//MVSMODS1 JOB 527TEC000S0003,TEC,CLASS=8,MSGCLASS=5,PRTY=10, DOC FILE // REGION=512K,PERFORM=12,TYPRUN=HOLD,NOTIFY=TS15500 DOC FILE //*VERSION 506 DOC FILE //******************************************************************* DOC FILE //******************************************************************* DOC FILE //* FILE 01 IS RECFM=FB,LRECL=80,BLKSIZE=32720 * DOC FILE //* * DOC FILE //* ******************** * DOC FILE //* * VERSION 12-05-23 * * Final * DOC FILE //* ******************** Version * DOC FILE //* * VERSION # 506 * * 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 //* -- Every time that MVS is mentioned here, except for the -- * DOC FILE //* -- times when we refer to MVS 3.8 (circa 1978 and modified),-- * DOC FILE //* -- we usually mean z/OS(R), which is a trade mark of IBM. -- * 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 //* -- And it can save an installation money and time. -- * 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 used to be one of its -- * DOC FILE //* -- vehicles for distribution (from 1989 thru 1998). -- * 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 committees 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@cbttape.org -- * 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@cbttape.org -- * 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 //* --------------------------------------------------------------- * DOC FILE //* -- "Everything in this collection is intended to make life -- * DOC FILE //* -- easier for the systems programmer (as long as it is -- * DOC FILE //* -- free)." (Arnie Casinghino) -- * DOC FILE //* --------------------------------------------------------------- * DOC FILE //* -- -- * DOC FILE //* -- WHAT IS THE CBT TAPE COLLECTION? -- * DOC FILE //* -- -- * DOC FILE //* -- BACKGROUND: -- * DOC FILE //* -- -- * DOC FILE //* -- IBM AND THE OS OPERATING SYSTEM ARCHITECTURE -- * DOC FILE //* -- -- * DOC FILE //* -- 1. IBM developed the "OS Architecture" operating -- * DOC FILE //* -- systems in the mid to late 1960s, so that the -- * DOC FILE //* -- architecture would be upwardly compatible. -- * DOC FILE //* -- Therefore, many programs that were written 40 or -- * DOC FILE //* -- more years ago, still can run unchanged, on today's -- * DOC FILE //* -- z/OS systems. -- * DOC FILE //* -- -- * DOC FILE //* -- 2. When one of the older programs does break, it is -- * DOC FILE //* -- often from something minor, which IBM had to change -- * DOC FILE //* -- for some reason. Example: Looking up the devices -- * DOC FILE //* -- that are attached to the system. IBM had to change -- * DOC FILE //* -- that mechanism several times, because of the advent -- * DOC FILE //* -- of new banking needs, and brokerage needs (ATM's, -- * DOC FILE //* -- and computer market trading). -- * DOC FILE //* -- -- * DOC FILE //* -- 3. When an IBM program does "break", then IBM either -- * DOC FILE //* -- fixes their own programs, or else IBM makes them -- * DOC FILE //* -- obsolete. They provide their customers with an -- * DOC FILE //* -- alternative, but sometimes the alternative isn't as -- * DOC FILE //* -- good as "the old way". (But often it's better. -- * DOC FILE //* -- Nevertheless, sometimes people want "the old way" -- * DOC FILE //* -- to continue to work, because they are used to it, -- * DOC FILE //* -- etc.) -- * DOC FILE //* -- -- * DOC FILE //* -- IBM AS A SOFTWARE HOUSE -- * DOC FILE //* -- -- * DOC FILE //* -- 1. IBM (software-wise), as a software developer for -- * DOC FILE //* -- their operating system and its utilities, cannot -- * DOC FILE //* -- develop "just any tools" that people want. They are -- * DOC FILE //* -- restricted by payroll needs to pay programmers, they -- * DOC FILE //* -- are restricted by the most urgent needs of the -- * DOC FILE //* -- customers (customer-driven), and they are restricted -- * DOC FILE //* -- by safety, which means that they don't want to write -- * DOC FILE //* -- something that will (even remotely) cause a problem -- * DOC FILE //* -- to someone. -- * DOC FILE //* -- -- * DOC FILE //* -- 2. When IBM does not write a tool that people need, -- * DOC FILE //* -- then the commercial vendors come in. BUT: -- * DOC FILE //* -- -- * DOC FILE //* -- A. Commercial vendors have to develop their tools -- * DOC FILE //* -- on expensive IBM hardware, that can run to 6 or -- * DOC FILE //* -- 7 figures. -- * DOC FILE //* -- -- * DOC FILE //* -- B. Commercial vendors also have "pay restrictions", -- * DOC FILE //* -- as well, just like IBM. They have to pay -- * DOC FILE //* -- programmers for their time, so they also have to -- * DOC FILE //* -- carefully schedule which projects their -- * DOC FILE //* -- programmers work on. -- * DOC FILE //* -- -- * DOC FILE //* -- C. Because of their (necessarily) large overhead, -- * DOC FILE //* -- commercial vendors have to charge exorbitant -- * DOC FILE //* -- amounts of money for their products, usually in -- * DOC FILE //* -- the 5 to 6 figure range. -- * DOC FILE //* -- -- * DOC FILE //* -- WHERE WE COME IN -- * DOC FILE //* -- -- * DOC FILE //* -- 1. IBM was nice enough to tell the systems programmers -- * DOC FILE //* -- enough about "the internals", so systems programmers -- * DOC FILE //* -- could write their own tools. These systems -- * DOC FILE //* -- programmers usually work for big companies who run -- * DOC FILE //* -- their own big computer installations. So there was -- * DOC FILE //* -- no "extra development expense" incurred by these -- * DOC FILE //* -- programmers. They could program whatever tools they -- * DOC FILE //* -- needed. This is basically, FREE DEVELOPMENT. -- * DOC FILE //* -- -- * DOC FILE //* -- 2. These systems programmers, who developed their own -- * DOC FILE //* -- tools, would use them for themselves. But what was -- * DOC FILE //* -- really needed, was a "central depository", where -- * DOC FILE //* -- other people could have access to this code and -- * DOC FILE //* -- share it. -- * DOC FILE //* -- -- * DOC FILE //* -- 3. This is what the CBT Tape collection is. It was -- * DOC FILE //* -- started by Arnold Casinghino at the Connecticut Bank -- * DOC FILE //* -- and Trust Company (CBT) in 1975. Arnie kept the -- * DOC FILE //* -- collection up for 15 years, until 1990, when I took -- * DOC FILE //* -- it over. We have been maintaining the collection -- * DOC FILE //* -- pro-actively for over 32 more years. -- * DOC FILE //* -- -- * DOC FILE //* -- 4. Therefore, people have a place to send in their -- * DOC FILE //* -- user-developed software, and they can benefit from -- * DOC FILE //* -- that type of software which was developed by others. -- * DOC FILE //* -- Much of the time, a systems programmer can find any -- * DOC FILE //* -- tool needed, AND THEY CAN GET IT FOR FREE. -- * DOC FILE //* -- -- * DOC FILE //* -- 5. Systems programmers in the IBM Mainframe world (the -- * DOC FILE //* -- z/OS part of it), depend heavily on this -- * DOC FILE //* -- collection, for software that is (either) not -- * DOC FILE //* -- provided by IBM, or if some equivalent of it is -- * DOC FILE //* -- provided by vendors, it is too expensive for them -- * DOC FILE //* -- to afford. -- * DOC FILE //* -- -- * DOC FILE //* -- 6. OF COURSE, IT IS "USE IT AT YOUR OWN RISK". We -- * DOC FILE //* -- can't warranty anything, but usually this software -- * DOC FILE //* -- has passed in front of many "eyes", and if someone -- * DOC FILE //* -- spots an error, they usually fix it themselves and -- * DOC FILE //* -- report it to us, or we try and fix it. -- * DOC FILE //* -- -- * DOC FILE //* -- 7. THAT'S ALL, FOLKS! -- * DOC FILE //* -- -- * DOC FILE //******************************************************************* DOC FILE //* -- -- * DOC FILE //* -- Loading CBT Tape files FROM A TAPE : SYSUPLOG FILE -- * DOC FILE //* -- ------- --- ---- ----- ---- - ---- -------- ---- -- * DOC FILE //* -- -- * DOC FILE //* -- *** Also see the SYSUPLOG Section below *** -- * DOC FILE //* -- -- * DOC FILE //* -- This does not apply if you are downloading CBT Files -- * DOC FILE //* -- from the www.cbttape.org website, or from the CBTA01 -- * DOC FILE //* -- disk that was backed up and tersed. -- * DOC FILE //* -- -- * DOC FILE //* -- THIS SECTION ONLY APPLIES IF YOU ARE LOADING CBT FILES -- * DOC FILE //* -- FROM A TAPE. -- * DOC FILE //* -- -- * DOC FILE //* -- If you are using the JCL from File 003 to load a CBT -- * DOC FILE //* -- Tape File from a TAPE (not from the XMIT files on the -- * DOC FILE //* -- web site and NOT from the CBTA01 disk pack): -- * DOC FILE //* -- -- * DOC FILE //* -- AND you are using the PDSLOAD program with the UPDATEO -- * DOC FILE //* -- procedure: (which you now MUST USE, in the UPDATEO proc) -- * DOC FILE //* -- -- * DOC FILE //* -- THEN: ****--->> You need access to the SYSUPLOG file. -- * DOC FILE //* -- -- * DOC FILE //* -- The SYSUPLOG file is a pds with each member corresponding - * DOC FILE //* -- to one CBT Tape file, one which was cut from the CBT Tape - * DOC FILE //* -- using the UPDATEO procedure (and not IEBCOPY). The -- * DOC FILE //* -- File 007 SYSUPLOG file is a sequential file, which YOU -- * DOC FILE //* -- RUN AS A JOB, TO CREATE THE NECESSARY SYSUPLOG PDS. -- * DOC FILE //* -- -- * DOC FILE //* -- You can create the SYSUPLOG file by running the SYSUPLOG -- * DOC FILE //* -- job in member SYSUPLOG of CBT FILE 008. OR, a copy of -- * DOC FILE //* -- it exists on the CBTA01 disk volume containing all of -- * DOC FILE //* -- the CBT Tape files for a given CBT Tape version number. -- * DOC FILE //* -- OR, it is contained in File 007 of any new CBT Tape. -- * DOC FILE //* -- -- * DOC FILE //* -- The following files will not have perfect data integrity -- * DOC FILE //* -- using the UPDATEO procedure, unless you have and use the -- * DOC FILE //* -- SYSUPLOG file, which is on CBT File 008, member FILE007. -- * DOC FILE //* -- -- * DOC FILE //* -- 008 014 033 047 134 182 311 312 314 387 404 546 547 570 -- * DOC FILE //* -- 593 599 612 614 680 702 760 795 814 847 850 854 862 875 -- * DOC FILE //* -- 883 888 889 890 896 897 898 917 935 939 952 967 969 979 -- * DOC FILE //* -- 985 988 995 1002 -- * DOC FILE //* -- -- * DOC FILE //* -- Without using the SYSUPLOG file in the UPDATEO procedure -- * DOC FILE //* -- the string: "><" in column 1, if it was originally -- * DOC FILE //* -- there, will be wrongly changed into the string "./" . -- * DOC FILE //* -- This is a disaster, if it happens in a zip file or a -- * DOC FILE //* -- PDF file, or a Microsoft WORD file. -- * DOC FILE //* -- -- * DOC FILE //* -- >>>> AGAIN, SEE THE SYSUPLOG SECTION BELOW. <<<< -- * DOC FILE //* -- -- * DOC FILE //******************************************************************* DOC FILE //* -- -- * DOC FILE //* -- XEPHON Materials -- * DOC FILE //* -- -- * DOC FILE //* -- Thomas Publications, which acquired all rights for the -- * DOC FILE //* -- Xephon materials from www.xephon.com, has given support -- * DOC FILE //* -- rights for all the materials, up thru the end of -- * DOC FILE //* -- the year 2005, to www.cbttape.org. -- * DOC FILE //* -- -- * DOC FILE //* -- Therefore, XEPHON materials republished here, certainly -- * DOC FILE //* -- have a right to be here, so you don't have to worry -- * DOC FILE //* -- about using them. Please ignore the Xephon copyright -- * DOC FILE //* -- notices (which look quite frightening). -- * DOC FILE //* -- -- * DOC FILE //* -- The Xephon magazines have a rather scary copyright -- * DOC FILE //* -- notice printed on each page. This copyright notice no -- * DOC FILE //* -- longer applies, since Xephon gave the rights to Thomas, -- * DOC FILE //* -- and Xephon is defunct. But I have found it impossible -- * DOC FILE //* -- to edit these out of the magazines, so they simply -- * DOC FILE //* -- need to be ignored. Please use these materials as you -- * DOC FILE //* -- see fit. If you use any code, though, you should give -- * DOC FILE //* -- attribution to the author. It is only right to do that. -- * DOC FILE //* -- -- * DOC FILE //* -- Sam Golob (12-2009, 07-2016, 06-2023) -- * DOC FILE //* -- -- * DOC FILE //* -- This applies to all of the Xephon magazines except for -- * DOC FILE //* -- VM. The VM magazine rights were bought by SDS-USA, and -- * DOC FILE //* -- I got permission from Jim Lampi of SDS to post them on -- * DOC FILE //* -- our website, or put them on the CBT Tape, provided that -- * DOC FILE //* -- attribution is given to SDS (Software Diversified -- * DOC FILE //* -- Services). -- * DOC FILE //* -- -- * DOC FILE //* -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -- * DOC FILE //* -- -- * DOC FILE //* -- Also, go to www.cbttape.org/xephon -- * DOC FILE //* -- where we have magazines from 1998 thru 2005 in PDF -- * DOC FILE //* -- format, with copyright notices changed, as far as -- * DOC FILE //* -- possible, and protections removed where they previously -- * DOC FILE //* -- existed. Use of these materials is now according to -- * DOC FILE //* -- the disclaimers on the CBT Tape. -- * DOC FILE //* -- -- * DOC FILE //* -- File 830 also contains Xephon MVS materials from before -- * DOC FILE //* -- 1998, so it is worth while to search the contents of -- * DOC FILE //* -- that file. The "raw" version of File 830 is File 814. -- * DOC FILE //* -- File 830 is a "fixed up" version of File 814, with much -- * DOC FILE //* -- effort put in, to correct errors. Not perfect yet, but -- * DOC FILE //* -- much better. -- * DOC FILE //* -- -- * DOC FILE //******************************************************************* DOC FILE //* -- -- * DOC FILE //* -- CBT TAPE CONTRIBUTION CONDITIONS: -- * DOC FILE //* -- -- * DOC FILE //* -- The only rules I have, regarding CBT Tape -- * DOC FILE //* -- contributions are: -- * DOC FILE //* -- -- * DOC FILE //* -- 1- The disclaimers in the "Disclaimer Section" of the -- * DOC FILE //* -- CBT Tape documentation (i.e. File 001) always apply, -- * DOC FILE //* -- and they override all other statements, both in the -- * DOC FILE //* -- actual file's documentation and elsewhere, regarding -- * DOC FILE //* -- the fitness and merchantability, etc. of the -- * DOC FILE //* -- materials in each file in the collection. -- * DOC FILE //* -- -- * DOC FILE //* -- 2- There should be no "time-outs". Somebody using the -- * DOC FILE //* -- tape ten or more years from now should be able to -- * DOC FILE //* -- run the materials then too. (Of course if the MVS -- * DOC FILE //* -- Operating System changes, we have no control over -- * DOC FILE //* -- that, and all disclaimers apply. But there must be -- * DOC FILE //* -- no artificial time-outs or expirations built into -- * DOC FILE //* -- the software.) -- * DOC FILE //* -- -- * DOC FILE //* -- 3- There should be no restrictions about who can copy -- * DOC FILE //* -- the materials. No contributor will be able to stop -- * DOC FILE //* -- anybody from copying the entire CBT tape for -- * DOC FILE //* -- themselves. -- * DOC FILE //* -- -- * DOC FILE //* -- 4- The contributor may (if he/she wants) retain -- * DOC FILE //* -- ownership of the materials, using copyright notices -- * DOC FILE //* -- to indicate that fact. However, the owner may not -- * DOC FILE //* -- restrict others from copying or using the file. If -- * DOC FILE //* -- the owner wishes to prohibit commercial use, he/she -- * DOC FILE //* -- may do so, by saying so. -- * DOC FILE //* -- -- * DOC FILE //******************************************************************* DOC FILE //* -- -- * DOC FILE //* -- Important Note: CBT Tape Materials vs. stuff on the Web -- * DOC FILE //* -- --------- ---- --- ---- --------- --- ----- -- --- --- -- * DOC FILE //* -- -- * DOC FILE //* -- There is a fundamental difference between what's on -- * DOC FILE //* -- the CBT Tape, and what's on a URL somewhere. -- * DOC FILE //* -- -- * DOC FILE //* -- The URLs depend on someone keeping them up. They are -- * DOC FILE //* -- dynamic by nature. Somebody has to pay the bill for -- * DOC FILE //* -- them. If the bill isn't paid, the URL -- * DOC FILE //* -- disappears--it's almost that simple--or sometimes the -- * DOC FILE //* -- provider itself disappears. One prominent example of -- * DOC FILE //* -- this, is the www.xephon.com website, whose URL has now -- * DOC FILE //* -- been taken over by some Chinese company, and it is -- * DOC FILE //* -- now unrecognizable, besides being nonexistent. -- * DOC FILE //* -- -- * DOC FILE //* -- But the CBT Tape, at bottom line, is a tape. Or it -- * DOC FILE //* -- can be kept on a cd-rom, which is almost the same -- * DOC FILE //* -- thing. Someone can keep it in the closet for 10 -- * DOC FILE //* -- years. Then it can be fished out and looked at, -- * DOC FILE //* -- and it'll still be useful. This difference is -- * DOC FILE //* -- something that many people (unless they stop to -- * DOC FILE //* -- think about it) don't realize. -- * DOC FILE //* -- -- * DOC FILE //* -- So what it boils down to, is that the CBT Tape, -- * DOC FILE //* -- besides being an MVS-related software repository, -- * DOC FILE //* -- is also a place to keep stuff and be able to refer -- * DOC FILE //* -- to it much later. IT IS MEANT TO LAST A LONG TIME, -- * DOC FILE //* -- WHEREAS WEB SITES MAY NOT LAST. -- * DOC FILE //* -- -- * DOC FILE //******************************************************************* DOC FILE //* -- -- * DOC FILE //* -- Announcement - (Differences in Installation Procedure) -- * DOC FILE //* -- -- * DOC FILE //* -- >>> ------------- ------------ ------------ <<< -- * DOC FILE //* -- >>> Contributors' Installation Instructions <<< -- * DOC FILE //* -- >>> ------------- ------------ ------------ <<< -- * DOC FILE //* -- -- * DOC FILE //* -- Many of these contributions were originally packaged -- * DOC FILE //* -- to be installed from somebody's web site. There are -- * DOC FILE //* -- some differences in installation procedure when you -- * DOC FILE //* -- install a package from the CBT Tape, from the CBT -- * DOC FILE //* -- Tape website (www.cbttape.org) or from files that -- * DOC FILE //* -- were downloaded from a private website. -- * DOC FILE //* -- -- * DOC FILE //* -- >>> ------------- ------------ ------------ <<< -- * DOC FILE //* -- >>> Contributors' Installation Instructions <<< -- * DOC FILE //* -- >>> ------------- ------------ ------------ <<< -- * DOC FILE //* -- -- * DOC FILE //* -- A CBT Tape file is a complete partitioned dataset, -- * DOC FILE //* -- usually, with the separate files as its MEMBERS. -- * DOC FILE //* -- Rarely, once in a while, it is a sequential dataset. -- * DOC FILE //* -- -- * DOC FILE //* -- Many of the components of the package, originally -- * DOC FILE //* -- intended to be separate files, or complete libraries, -- * DOC FILE //* -- are actually MEMBERS of this pds. IF YOU HAVE A -- * DOC FILE //* -- CBT TAPE FILE, YOU DO NOT HAVE TO SEPARATELY DOWNLOAD -- * DOC FILE //* -- THOSE FILES AND SEPARATELY UPLOAD THEM TO YOUR MVS -- * DOC FILE //* -- OR Z/OS SYSTEM. YOU ALREADY HAVE THEM, READY TO -- * DOC FILE //* -- BE USED, as MEMBERS of the CBT Tape file pds. -- * DOC FILE //* -- -- * DOC FILE //* -- Please be careful to note these differences in the -- * DOC FILE //* -- installation procedures, when you install from a CBT -- * DOC FILE //* -- Tape file. Sometimes we did not have time to redo -- * DOC FILE //* -- the installation instructions, to tell you that you -- * DOC FILE //* -- are not installing from the contributor's web site. -- * DOC FILE //* -- SO IT IS UP TO YOU TO ACCOUNT FOR THE DIFFERENCES. -- * DOC FILE //* -- -- * DOC FILE //* -- I have received some horrific looking emails from -- * DOC FILE //* -- people who have gotten confused. (E.g. "I have just -- * DOC FILE //* -- allocated 16 sequential files with blocksize 3600 -- * DOC FILE //* -- and I don't know what to do.....") -- * DOC FILE //* -- -- * DOC FILE //* -- * * * * * * * * * * * * -- * DOC FILE //* -- -- * DOC FILE //* -- Often, we have packaged entire pds'es in a CBT Tape -- * DOC FILE //* -- file, as XMIT-format MEMBERS of the install pds. So -- * DOC FILE //* -- in order to get that pds into proper shape on an MVS -- * DOC FILE //* -- system, you will need to do something like: -- * DOC FILE //* -- -- * DOC FILE //* -- TSO RECEIVE INDS('CBT.Vver.FILEnnn.PDS(xmitmem)') -- * DOC FILE //* -- -- * DOC FILE //* -- and answer the prompts to change defaults, if that is -- * DOC FILE //* -- necessary. Sometimes we have included a $RECEIVE -- * DOC FILE //* -- batch job to get this done, but sometimes not. -- * DOC FILE //* -- -- * DOC FILE //* -- XMIT and RECEIVE are commands from IBM, so that -- * DOC FILE //* -- IBM has HELP members for RECEIVE and XMIT (TRANSMIT) -- * DOC FILE //* -- in SYS1.HELP, and you should refer to them for -- * DOC FILE //* -- details on how to use these commands. -- * DOC FILE //* -- -- * DOC FILE //* -- BUT...... -- * DOC FILE //* -- If you don't have easy access to a "Mainframe"..... -- * DOC FILE //* -- -- * DOC FILE //* -- Several PC-based readers for XMIT-format files on -- * DOC FILE //* -- the PC are available for free. See Files 907 and -- * DOC FILE //* -- 871. File 871 also has a reader for XMIT-format -- * DOC FILE //* -- files on an Android phone. Also see the Un-XMIT -- * DOC FILE //* -- program on Sourceforge. File 916 contains a copy -- * DOC FILE //* -- of the XMIT-Manager program which is installable -- * DOC FILE //* -- on 64-bit Windows machines. -- * DOC FILE //* -- -- * DOC FILE //* -- All of these programs can also (and more easily) -- * DOC FILE //* -- be found on the main page of www.cbttape.org -- * DOC FILE //* -- on the left side, under "Xmit Manager" and -- * DOC FILE //* -- under "Xmit Viewers". -- * DOC FILE //* -- -- * DOC FILE //* -- * * * * * * * * * * * * -- * DOC FILE //* -- -- * DOC FILE //* -- On other occasions, we have packaged entire pds'es in -- * DOC FILE //* -- IEBUPDTE SYSIN format, or PDSLOAD (CBT File 093) -- * DOC FILE //* -- format, which is almost the same as IEBUPDTE, but it -- * DOC FILE //* -- preserves ISPF statistics of the individual members. -- * DOC FILE //* -- These pds'es will also be one MEMBER of the CBT Tape -- * DOC FILE //* -- file. The IEBUPDTE SYSIN or PDSLOAD formats are much -- * DOC FILE //* -- easier to understand than XMIT, in that they are just -- * DOC FILE //* -- the individual pds members strung together in one -- * DOC FILE //* -- single sequential file, with control cards in -- * DOC FILE //* -- between, telling IEBUPDTE or PDSLOAD how to -- * DOC FILE //* -- reconstruct the individual members in the actual pds. -- * DOC FILE //* -- PDSLOAD can also restore ISPF statistics for the -- * DOC FILE //* -- individual unloaded pds members. -- * DOC FILE //* -- -- * DOC FILE //* -- Sample PDSLOAD JCL may be found on File 093, or maybe -- * DOC FILE //* -- it might be packaged together with that individual -- * DOC FILE //* -- CBT Tape file, depending on how we packaged that -- * DOC FILE //* -- individual file. -- * DOC FILE //* -- -- * DOC FILE //* -- Note that a TAPEMAP (CBT File 299) of the CBT Tape -- * DOC FILE //* -- will show individual members of an IEBUPDTE SYSIN -- * DOC FILE //* -- format MEMBER which is really a pds. The member -- * DOC FILE //* -- names will show up in TAPEMAP's SYSPRNT2 DD name, -- * DOC FILE //* -- prefixed by a wedge > instead of a dash - . -- * DOC FILE //* -- -- * DOC FILE //* -- An ASCII-format TAPEMAP printout of the current CBT -- * DOC FILE //* -- Tape version, can be found on the www.cbttape.org -- * DOC FILE //* -- web site, at: -- * DOC FILE //* -- -- * DOC FILE //* -- http://www.cbttape.org/ftp/cbt/CBTMAP.txt -- * DOC FILE //* -- -- * DOC FILE //* -- So please use your head about this stuff. When you -- * DOC FILE //* -- have any further problems or questions about the -- * DOC FILE //* -- install of a package, please email me (Sam Golob) at: -- * DOC FILE //* -- -- * DOC FILE //* -- sbgolob@cbttape.org -- * DOC FILE //* -- -- * DOC FILE //* --------------------------------------------------------------- * DOC FILE //* -- -- * DOC FILE //* -- SYSUPLOG Section -- * DOC FILE //* -- -- * DOC FILE //* -- ANNOUNCEMENT - (FROM SAM GOLOB) November 2018 -- * DOC FILE //* -- -- * DOC FILE //* -- *----------------------------------------------------* -- * DOC FILE //* -- * THE FOLLOWING APPLIES, ONLY IF YOU ARE RELOADING * -- * DOC FILE //* -- * YOUR CBT TAPE FILES FROM AN ACTUAL TAPE....!!! * -- * DOC FILE //* -- *----------------------------------------------------* -- * DOC FILE //* -- -- * DOC FILE //* -- File 007 of the CBT Tape contains a job that creates -- * DOC FILE //* -- "the SYSUPLOG pds" (see below) -- * DOC FILE //* -- (File 007 is sequential. The SYSUPLOG file is a pds.) -- * DOC FILE //* -- -- * DOC FILE //* -- This job must be run, if you are reloading disk -- * DOC FILE //* -- files from a "tape". (Not necessary if you are -- * DOC FILE //* -- getting your files from the CBT Tape web site.) -- * DOC FILE //* -- -- * DOC FILE //* -- File 008 now contains all the files and jobs -- * DOC FILE //* -- necessary to create the CBT collection as a "tape". -- * DOC FILE //* -- -- * DOC FILE //* -- File 008 also contains all the jobs necessary to -- * DOC FILE //* -- re-create the disk files, from the "tape files", -- * DOC FILE //* -- if that is where you want to get your CBT Tape files -- * DOC FILE //* -- from. These jobs are named: VverJnn, where -- * DOC FILE //* -- -- * DOC FILE //* -- ver is the current tape version, e.g. 505 -- * DOC FILE //* -- nn is the sequence number of the job. -- * DOC FILE //* -- -- * DOC FILE //* -- Example: V496J05 will dump all CBT files from -- * DOC FILE //* -- 401 thru 500, to disk. -- * DOC FILE //* -- -- * DOC FILE //* -- (Of course, these jobs can be customized by you.) -- * DOC FILE //* -- -- * DOC FILE //* -- -->> See the next announcement below.... <<-- -- * DOC FILE //* -- -- * DOC FILE //* AN ACTUAL EXAMPLE * DOC FILE //* OF A SYSUPLOG FILE (FOR CBT FILE 314) * DOC FILE //* (these are the exception records) * DOC FILE //* * DOC FILE //* Member Line First 60 bytes of the record * DOC FILE //* Name Sequence for eyeballing and diagnosis * DOC FILE //* Number * DOC FILE //* -------- ------- -------------------------------------------- * DOC FILE //* TXT2HTML 0002118 >
'                  n = n + 1            *   DOC FILE
//*  TXT2PDF@ 0000816 ><΅ΗΤ Š„<   ŠΨ?„?%Φ_>ˆ₯€Τ Š„ˆ                *   DOC FILE
//*  XMITIP   0011478 >
'               /* added by aja */  *   DOC FILE
//*  XMITIP   0023813 >"_m_""_d_"");                  *   DOC FILE
//*                                                                 *   DOC FILE
//*     Note that the string '><' is present in columns 1 and 2     *   DOC FILE
//*     for each record.  This is legitimate, and the string was    *   DOC FILE
//*     NOT originally './', produced by LISTPDS or OFFLOAD.        *   DOC FILE
//*                                                                 *   DOC FILE
//*     Only the first 16 bytes:  member name, and line sequence    *   DOC FILE
//*     number, are actually used by the PDSLOAD program.  The      *   DOC FILE
//*     rest of the record is for the programmer, to help him/her   *   DOC FILE
//*     eyeball which record in the file was an exception, while    *   DOC FILE
//*     looking at the original file.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*     Also see the "OFFLOAD SECTION" below.                       *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - - -     *   DOC FILE
//*     *                                                     *     *   DOC FILE
//*     *    A  C  K  N  O  W  L  E  D  G  E  M  E  N  T  S   *     *   DOC FILE
//*     *                                                     *     *   DOC FILE
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - - -     *   DOC FILE
//*                                                                 *   DOC FILE
//*        I kept the tape up across an assortment of jobs,         *   DOC FILE
//*        and also through the kindness of several data            *   DOC FILE
//*        centers, all of whom are owed a big "thank you".         *   DOC FILE
//*                                                                 *   DOC FILE
//*        VERY VERY SPECIAL THANKS go to the late Gilbert          *   DOC FILE
//*        Saint-flour, who left us far too soon.  Gilbert was      *   DOC FILE
//*        solely responsible for providing a work platform         *   DOC FILE
//*        to support the making of this tape, for at least         *   DOC FILE
//*        5 years.  He owned a P/390 that he used, to run his      *   DOC FILE
//*        business, and he gave me a userid on his machine         *   DOC FILE
//*        so I could support the CBT Tape from there.              *   DOC FILE
//*        Later on, when I was working at an MVS site in           *   DOC FILE
//*        another company, the lines were always open to           *   DOC FILE
//*        Gilbert's machine as well, so that everything could      *   DOC FILE
//*        be preserved and none of the material ever got lost.     *   DOC FILE
//*        BTW this was with written permission from that           *   DOC FILE
//*        company.                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        More thanks........                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        Also, big thanks have to go to Scott Sherer and          *   DOC FILE
//*        NaSPA, for contracting to duplicate the tapes after      *   DOC FILE
//*        I made the first one.  This went on for almost ten       *   DOC FILE
//*        years, until we started the www.cbttape.org website      *   DOC FILE
//*        at the end of 1998.  NaSPA's support began in 1989,      *   DOC FILE
//*        when Arnie was still making CBT Tapes at CBT.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        Even before Arnie's shop lost their tape drives,         *   DOC FILE
//*        Scott and NaSPA were already duplicating CBT tapes       *   DOC FILE
//*        at Deluxe Check Printers.  Credit goes to Marty Kuntz    *   DOC FILE
//*        who worked duplicating the tapes at Deluxe.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        Arnie's "Connecticut Bank & Trust" data center           *   DOC FILE
//*        got rid of their tape drives in 1990.                    *   DOC FILE
//*        (We had about 1 1/2 years' advance warning before        *   DOC FILE
//*        we were obligated to completely switch over).            *   DOC FILE
//*                                                                 *   DOC FILE
//*        Even more special thanks go to Sam Knutson, who          *   DOC FILE
//*        started the website, paid for it himself, administers    *   DOC FILE
//*        it, and so forth.  The fact that he put it on a          *   DOC FILE
//*        reliable provider with much redundancy and almost no     *   DOC FILE
//*        down time, is a great boon to someone who is doing an    *   DOC FILE
//*        IPL of a new system during off hours, especially on a    *   DOC FILE
//*        Sunday.                                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        We owe a big debt of gratitude to Innovation Data        *   DOC FILE
//*        Processing, the makers of FDR and other fine software    *   DOC FILE
//*        products, for sponsoring the www.cbttape.org web site    *   DOC FILE
//*        during much of its existence (for at least 15 or 16      *   DOC FILE
//*        years).  Thanks to John Mazzone in particular.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        If some tool breaks, while you are installing a new      *   DOC FILE
//*        version of z/OS, you can hunt around on our site for     *   DOC FILE
//*        a newer version of what broke, and the hour doesn't      *   DOC FILE
//*        matter.  The credit for this convenience, goes solely    *   DOC FILE
//*        to Sam Knutson.  (sknutson@cbttape.org)                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        Many other pats on the back go to Sam Knutson, also.     *   DOC FILE
//*        (This is for a lot of other stuff he does, to            *   DOC FILE
//*        constantly contribute, and for his continued and         *   DOC FILE
//*        continuous enthusiasm.  AND for his sessions at SHARE.)  *   DOC FILE
//*                                                                 *   DOC FILE
//*        Our gratitute goes out to all the other data centers     *   DOC FILE
//*        which have helped me out over the years:                 *   DOC FILE
//*        (I have left several of them out intentionally, but      *   DOC FILE
//*        we still owe all of them a big "thank you".)             *   DOC FILE
//*                                                                 *   DOC FILE
//*        0-  Newsweek, Inc, of course.....                        *   DOC FILE
//*             Credit goes posthumously to my boss Stan McGinley.  *   DOC FILE
//*        1-  First National Bank of Toms River, NJ.               *   DOC FILE
//*             Credit goes to Fred Hetzel.                         *   DOC FILE
//*        2-  Jensen Research Corp.  (Credit to Eric Jensen)       *   DOC FILE
//*        3-  Brooklyn College of the City of New York             *   DOC FILE
//*             (To Howard Givner and the whole crew there)         *   DOC FILE
//*        4-  City University of New York                          *   DOC FILE
//*             (Ben Klein and Aron Eisenpress in particular.)      *   DOC FILE
//*        5-  DOITT - Department of Information Technology         *   DOC FILE
//*             and Telecommunications - New York City              *   DOC FILE
//*             (To everyone there--a wonderful environment)        *   DOC FILE
//*        6-  The Great Atlantic and Pacific Tea Company           *   DOC FILE
//*             (Now defunct. They were helpful.)                   *   DOC FILE
//*                                                                 *   DOC FILE
//*  ===>> 7-  An extra special thank you, of the highest order,    *   DOC FILE
//*             must be made to the Open Mainfram Project of the    *   DOC FILE
//*             Linux Foundation who (as of September 2020) have    *   DOC FILE
//*             made their IBM mainframe available to us for the    *   DOC FILE
//*             purpose of software development for CBT Tape        *   DOC FILE
//*             products.  Thank you to all the people there, too   *   DOC FILE
//*             numerous to mention.  And thank you to all the      *   DOC FILE
//*             CBT Tape contributors who are using this system     *   DOC FILE
//*             to further develop their products that we are       *   DOC FILE
//*             distributing here.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        SPECIAL, SPECIAL, SPECIAL......                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        I worked for my father, Milton J. Golob, of blessed      *   DOC FILE
//*        memory, for about a year.  During that time, I was       *   DOC FILE
//*        accumulating contribution tapes (this was before         *   DOC FILE
//*        the Internet) in several satchels.  My father gave       *   DOC FILE
//*        me a few months off, so I could work at an MVS           *   DOC FILE
//*        site and make CBT Tapes there.  Many thanks to him too!  *   DOC FILE
//*        (He allowed me to accept the contract at Brooklyn        *   DOC FILE
//*        College while I was still working for him.)              *   DOC FILE
//*                                                                 *   DOC FILE
//*        More thanks go to the many contributors of material.     *   DOC FILE
//*        THE ENTIRE COLLECTION DEPENDS ON ALL OF YOU.......       *   DOC FILE
//*                                                                 *   DOC FILE
//*        Separate thanks go to people who help me fix things      *   DOC FILE
//*        on a regular basis:  John McKown, Bill Godfrey, Greg     *   DOC FILE
//*        Price, John Kalinich, Ze'ev Atlas, Gabriel Gargiulo,     *   DOC FILE
//*        Roland Schiradin, Willy Jensen, Robert AH Prins, Rob     *   DOC FILE
//*        Prins (two different people), and many, many others.     *   DOC FILE
//*        I can't mention everybody, but many thanks go to you     *   DOC FILE
//*        all...!!                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        Other thanks go to people who insisted that I NOT        *   DOC FILE
//*        BE ABLE TO MAKE ONE PENNY from this endeavor.  It        *   DOC FILE
//*        has certainly kept the spirit of the CBT Tape up,        *   DOC FILE
//*        and the costs down.  All the best of everything to       *   DOC FILE
//*        all of you.  (I mean it.)  YOU KNOW WHO YOU ARE...!!     *   DOC FILE
//*                                                                 *   DOC FILE
//*        R.I.P. to Dave Andrews and John Hooper, my dear friends. *   DOC FILE
//*               And of course to Rick Fochtman, Ken Tomiak,       *   DOC FILE
//*               and Gerhard Postpischil.  We miss you all....     *   DOC FILE
//*                                                                 *   DOC FILE
//*        John Hooper is responsible for very reliable code,       *   DOC FILE
//*        in CBT File 019.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        Much of Gerhard's code is in CBT Files 860, 861, & 862.  *   DOC FILE
//*        These are very large files, and are worth exploration.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        You all owe Dave Andrews and his former boss, Bill       *   DOC FILE
//*        Winters, for the fact that you are able to have the      *   DOC FILE
//*        HLASM Assembler.  WITHOUT THEM, YOU WOULDN'T HAVE IT.!!  *   DOC FILE
//*        Both of them have also passed on, as has John Ehrman.    *   DOC FILE
//*        We have to be grateful to all of them, for their work.   *   DOC FILE
//*                                                                 *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  ANNOUNCEMENT - (FROM SAM GOLOB)           October 2015   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --       A NEW PROCESS IN THE MAKING OF THIS TAPE.  IT IS    -- *   DOC FILE
//* --    NECESSARY TO USE A NEW FILE TO DUMP THE TAPE FILES TO  -- *   DOC FILE
//* --    DISK, WHEN YOU ARE USING CBT FILE 003 JCL, OR THE      -- *   DOC FILE
//* --          ---- --- --- ----- --- ---- --- ---              -- *   DOC FILE
//* --    VverJnn (e.g. V496J05) jobs from File 008.             -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --       YOU WILL NEED A NEW FILE CALLED THE SYSUPLOG PDS    -- *   DOC FILE
//* --    WHICH WAS CREATED WHEN MAKING THIS TAPE VERSION.       -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --       TO CREATE THE SYSUPLOG PDS, YOU NEED TO RUN THE     -- *   DOC FILE
//* --    JOB ON EITHER MEMBER "SYSUPLOG" OR MEMBER "FILE007"    -- *   DOC FILE
//* --    WHICH IS IN FILE 008.  OR ELSE, JUST DUMP FILE 007     -- *   DOC FILE
//* --    OF THE CBT TAPE (A SEQUENTIAL FILE), AND RUN THE       -- *   DOC FILE
//* --    JOB TO CREATE THE SYSUPLOG PDS.                        -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --                -----   WHY ???   -----                    -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    IF YOU ARE RESTORING FILES FROM AN ACTUAL TAPE,        -- *   DOC FILE
//* --    YOU *MUST* USE THE PDSLOAD PROGRAM FROM FILE 093       -- *   DOC FILE
//* --    (PACKAGED IN THE CBTCREAT.LOAD LOAD LIBRARY ON         -- *   DOC FILE
//* --    FILE 008, MEMBER LOADLIB).  THE REASON FOR THIS        -- *   DOC FILE
//* --    IS EXPLAINED BELOW.                                    -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    ------------------------------------------------       -- *   DOC FILE
//* --    ------------  IMPORTANT NOTE BELOW  ------------       -- *   DOC FILE
//* --    ------------------------------------------------       -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --        CONCERNING REPLACEMENT OR NON-REPLACEMENT          -- *   DOC FILE
//* --              OF ./ TO >< AND VICE-VERSA                   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  The PDSLOAD program (which performs a lot of the         -- *   DOC FILE
//* --  functionality of IEBUPDTE) loads a partitioned dataset   -- *   DOC FILE
//* --  from a sequentialized version of it, using "./ ADD       -- *   DOC FILE
//* --  NAME=memname" cards to separate what should be each      -- *   DOC FILE
//* --  member.                                                  -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  Sometimes, such a sequentialized pds (now a PS           -- *   DOC FILE
//* --  sequential file) is itself a member of a pds.  And we    -- *   DOC FILE
//* --  package CBT Tape files that way quite often.  The CBT    -- *   DOC FILE
//* --  Tape file is itself a pds, but some of ITS members are   -- *   DOC FILE
//* --  sequentialized pds'es, containing a lot of "./ ADD       -- *   DOC FILE
//* --  NAME=" cards beginning in column 1.  How do we prevent   -- *   DOC FILE
//* --  IEBUPDTE, or PDSLOAD, from unwanted expansion of these   -- *   DOC FILE
//* --  "inner" pds'es, while we are busy reloading the "outer"  -- *   DOC FILE
//* --  pds?                                                     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  What we do, while we are sequentializing the outer pds,  -- *   DOC FILE
//* --  is that automatically, using either the LISTPDS program  -- *   DOC FILE
//* --  or the OFFLOAD program, we change all "./ ADD            -- *   DOC FILE
//* --  NAME=memname" to ">< ADD NAME=memname" in the inner      -- *   DOC FILE
//* --  pds.  Then, when we go the opposite way, to make a pds   -- *   DOC FILE
//* --  out of the "outer" sequential file, the inner pds        -- *   DOC FILE
//* --  remains as a single sequential file, and there is no     -- *   DOC FILE
//* --  confusion between any >< cards in the inner pds, and     -- *   DOC FILE
//* --  the ./ cards in the outer pds.  There are simply no ./   -- *   DOC FILE
//* --  cards in the inner pds.  They are all changed to ><.     -- *   DOC FILE
//* --  Upon expansion of the outer pds, the inner pds remains   -- *   DOC FILE
//* --  a single member in the expanded outer pds that was       -- *   DOC FILE
//* --  created (by IEBUPDTE or PDSLOAD) from the "outer"        -- *   DOC FILE
//* --  sequentialized pds file.                                 -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  In order to further expand the "inner pds" which is now  -- *   DOC FILE
//* --  a member of the "outer" pds (which is a pds), we have    -- *   DOC FILE
//* --  to change all the "><" strings in IT, to "./" strings    -- *   DOC FILE
//* --  in column 1.  The PDSLOAD program does this              -- *   DOC FILE
//* --  automatically, when we tell it to, using a PARM of       -- *   DOC FILE
//* --  UPDTE(><).                                               -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  Nowadays, with new expanded techniques in packaging CBT  -- *   DOC FILE
//* --  Tape files, this leads to a problem.  A member of a pds  -- *   DOC FILE
//* --  on a CBT Tape file, may not only be a "sequentialized    -- *   DOC FILE
//* --  pds", sequentialized using IEBUPDTE or LISTPDS, or       -- *   DOC FILE
//* --  OFFLOAD, and containing the >< string in column 1        -- *   DOC FILE
//* --  purposely.  It may also be other stuff that possibly     -- *   DOC FILE
//* --  might contain the string >< in column 1 of the (FB-80)   -- *   DOC FILE
//* --  pds member.  And how can that happen?                    -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  We sometimes fold zip files as FB-80, and include them   -- *   DOC FILE
//* --  as members of an FB-80 pds, in a CBT Tape file.          -- *   DOC FILE
//* --  Sometimes the member might be a folded over Word docx    -- *   DOC FILE
//* --  file, or a PDF file, or it might even be a file of a     -- *   DOC FILE
//* --  load module in Greg Price's REVLOAD format.  If it would -- *   DOC FILE
//* --  happen that the string >< lands in column 1, PDSLOAD     -- *   DOC FILE
//* --  would automatically change it to a ./ string, and that   -- *   DOC FILE
//* --  would wreak a lot of havoc in a zip file, and            -- *   DOC FILE
//* --  considerable havoc in a Word or PDF file.                -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  HOW DO WE STOP THAT?                                     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  An excellent programmer, a person with much experience   -- *   DOC FILE
//* --  in this area, has created a way to flag these            -- *   DOC FILE
//* --  "exceptional cases" using the optional DDNAME of         -- *   DOC FILE
//* --  SYSUPLOG, to be used by both the LISTPDS and PDSLOAD     -- *   DOC FILE
//* --  programs.  The LISTPDS program which sequentialized the  -- *   DOC FILE
//* --  pds orignally, flags which records have the string >< in -- *   DOC FILE
//* --  column 1.  And the PDSLOAD program, which re-creates the -- *   DOC FILE
//* --  pds from its sequentialized form, reads that "exception  -- *   DOC FILE
//* --  file" and purposely DOES NOT change the >< (which should -- *   DOC FILE
//* --  be there) back to ./ (which shouldn't be there).         -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  This preserves the integrity of the CBT Tape files when  -- *   DOC FILE
//* --  they are reloaded to disk FROM TAPE.                     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  The NEWTnnnx members of File 008 and the VnnnJmxx        -- *   DOC FILE
//* --  members of this pds have been changed to add this DDNAME -- *   DOC FILE
//* --  for all LISTPDS invocations.  This seems to have solved  -- *   DOC FILE
//* --  the problem of file integrity in the disk expansions of  -- *   DOC FILE
//* --  all the CBT Tape files.                                  -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  So if you use PDSLOAD to preserve the ISPF statistics    -- *   DOC FILE
//* --  on the tape files, you must include the //SYSUPLOG DD    -- *   DOC FILE
//* --  name, at least on the problematic files, which have      -- *   DOC FILE
//* --  non-null members in the SYSUPLOG pds.                    -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  One problem is that to properly load some of the CBT     -- *   DOC FILE
//* --  Tape disk files from tape, you need to have the          -- *   DOC FILE
//* --  SYSUPLOG file made by LISTPDS when that version of       -- *   DOC FILE
//* --  the CBT Tape was created.  So for each level of the      -- *   DOC FILE
//* --  CBT Tape, we have begun to provide the appropriate       -- *   DOC FILE
//* --  SYSUPLOG file here.  Just look at CBT File 008.          -- *   DOC FILE
//* --  And run the SYSUPLOG job or the FILE007 job member       -- *   DOC FILE
//* --  of CBT File 008.  You will thus generate the proper      -- *   DOC FILE
//* --  SYSUPLOG file.  Then you can run the VnnnJmm jobs        -- *   DOC FILE
//* --  (on File 008) properly.                                  -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT - (FROM SAM GOLOB)               (07/05)     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   The regular CBT Tape has filled up again, and I have    -- *   DOC FILE
//* --   decided to let it run over the length of a normal       -- *   DOC FILE
//* --   IDRC compressed cartridge.  So if you have a 3490E      -- *   DOC FILE
//* --   cartridge the CBT Tape will still fit on one cart.      -- *   DOC FILE
//* --   But otherwise you will have to split the tape into      -- *   DOC FILE
//* --   two, using the COPYNLNL program (see below).            -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  *-----------------------------------------------------*  -- *   DOC FILE
//* --  *                                                     *  -- *   DOC FILE
//* --  *  IF THE TAPE IS DISTRIBUTED IN AWS FORMAT, THERE    *  -- *   DOC FILE
//* --  *  WILL BE NO DIFFERENCE FROM BEFORE.  THE TAPE FILE  *  -- *   DOC FILE
//* --  *  WILL JUST BE LONGER.                               *  -- *   DOC FILE
//* --  *                                                     *  -- *   DOC FILE
//* --  *  Since an AWS tape is not a physical tape with a    *  -- *   DOC FILE
//* --  *  magnetic strip of a fixed size, but it is a disk   *  -- *   DOC FILE
//* --  *  file, it only matters how much disk space you      *  -- *   DOC FILE
//* --  *  need to hold it.  Therefore, it is possible to     *  -- *   DOC FILE
//* --  *  have an AWS-format "3480" tape that will hold      *  -- *   DOC FILE
//* --  *  many gigabytes.                                    *  -- *   DOC FILE
//* --  *                                                     *  -- *   DOC FILE
//* --  *-----------------------------------------------------*  -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//*******************************************************************   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- Announcement -    ($$$#DATE member in the newer files)    -- *   DOC FILE
//* --                   (Now, all CBT files should have such    -- *   DOC FILE
//* --                    a member.   SG 07/2022)                -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    Most of the files on this tape have a date stamp,      -- *   DOC FILE
//* --    which is a member called $$$#DATE, that states when    -- *   DOC FILE
//* --    this file was prepared for distribution.  You can      -- *   DOC FILE
//* --    use this member as a kind of "version" indicator.      -- *   DOC FILE
//* --    The REXX programs or CLISTs which create this member   -- *   DOC FILE
//* --    may be found on CBT File 006.                          -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    The CLISTs which can produce the $$$#DATE member can   -- *   DOC FILE
//* --    be found on File 006, called GENDAT and GENDATE.       -- *   DOC FILE
//* --    (In practice, I usually use GENDATR, which was created -- *   DOC FILE
//* --    by Gabriel Gargiulo for this purpose.)                 -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    The principal purpose of the $$$#DATE member is for    -- *   DOC FILE
//* --    marking the level of a particular file on our web      -- *   DOC FILE
//* --    site's UPDATES page.  On that page, files are posted   -- *   DOC FILE
//* --    in between tape version releases, so you may want to   -- *   DOC FILE
//* --    compare your version of a file with the tape's         -- *   DOC FILE
//* --    version, at a particular tape release level, or with   -- *   DOC FILE
//* --    the level currently on the www.cbttape.org Updates     -- *   DOC FILE
//* --    page.                                                  -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    See  www.cbttape.org    and click on Updates .         -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  Further Note:  We shall sometimes post versions of this  -- *   DOC FILE
//* --    file (File 001) on the Updates page of www.cbttape.org -- *   DOC FILE
//* --    to show the intermediate versions (between releases).  -- *   DOC FILE
//* --    Such versions of File 001 will be marked as an         -- *   DOC FILE
//* --    "Intermediate Version".  The version of File 001 that  -- *   DOC FILE
//* --    goes with a final cut of the tape, will be marked as   -- *   DOC FILE
//* --    a "Final Version".                                     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  Contents of a typical $$$#DATE member:                   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//*                                                                 *   DOC FILE
//*  REGULAR CBT TAPE - VERSION 486    FILE:  832                   *   DOC FILE
//*                                                                 *   DOC FILE
//*      ORIGINAL DSNAME:  SBGOLOB.CBT486.FILE832                   *   DOC FILE
//*      ---------------                                            *   DOC FILE
//*                      --RECFM-LRECL-BLKSIZE-DSORG                *   DOC FILE
//*                        FB    80    5600    PO                   *   DOC FILE
//*                                                                 *   DOC FILE
//*   PDS117I 18 MEMBERS COUNTED; CUMULATIVE SIZE IS 11,612 RECORDS *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*  TIME THIS PDS WAS SHIPPED:   03/18/13    13:52:03    UTC-4:00  *   DOC FILE
//*                                                                 *   DOC FILE
//*  Note:  For accuracy, during Daylight Savings Time in my area,  *   DOC FILE
//*         I will adjust the UTC-5:00 to UTC-4:00.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- Announcement -    Hercules Note:  (still true 12/2009)    -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    The MVS world today (in 2002) is starting to split     -- *   DOC FILE
//* --     into two distinct and still coherent parts:  the      -- *   DOC FILE
//* --     commercial MVS sites, running OS/390 and z/OS, and    -- *   DOC FILE
//* --     the Hobbyist sites, running MVS 3.8 under Hercules,   -- *   DOC FILE
//* --     or variants of MVS 3.8.                               -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    I am now trying to accommodate both of these valid     -- *   DOC FILE
//* --     MVS platforms.  Many tools that were developed on     -- *   DOC FILE
//* --     one of these platforms, also will run on the other    -- *   DOC FILE
//* --     platform.  The two are very often, mutually           -- *   DOC FILE
//* --     beneficial.                                           -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    Improvements to MVS tools that run under Hercules,     -- *   DOC FILE
//* --     sometimes are the inspiration for corresponding       -- *   DOC FILE
//* --     improvements to the same tools that run on OS/390     -- *   DOC FILE
//* --     and z/OS, and vice-versa.  It's a good situation.     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    One example of this is on File 134, and is the full    -- *   DOC FILE
//* --     screen editor portion of the REVIEW program from      -- *   DOC FILE
//* --     Greg Price.  The editor is invoked using the UPDATE   -- *   DOC FILE
//* --     command from a REVIEW session (or "U" from a REVIEW   -- *   DOC FILE
//* --     directory list).  This is an ISPF-like editor which   -- *   DOC FILE
//* --     runs under RAW TSO (i.e. TSO READY mode).  This       -- *   DOC FILE
//* --     editor is a magnificent recovery tool which also      -- *   DOC FILE
//* --     runs under z/OS (either under ISPF or in TSO READY    -- *   DOC FILE
//* --     mode).  So you see, that "necessity was the mother    -- *   DOC FILE
//* --     of invention", in the MVS 3.8 environment where ISPF  -- *   DOC FILE
//* --     wasn't available, but in the z/OS environment, a      -- *   DOC FILE
//* --     fantastic new file recovery tool has now become       -- *   DOC FILE
//* --     available to us!!!  You can fix PARMLIB without       -- *   DOC FILE
//* --     ISPF being available, and so forth.                   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    Another such tool is ZZSA, which is an IPL-able        -- *   DOC FILE
//* --     multi-utility and (primitive) editor for MVS packs    -- *   DOC FILE
//* --     and files.  ZZSA comes as IPL text.  It can be        -- *   DOC FILE
//* --     either loaded from a CD-rom to IPL a mainframe from   -- *   DOC FILE
//* --     the hardware console, or it can be IPL-ed from a pack -- *   DOC FILE
//* --     or a mini-disk where its IPL text was loaded onto.    -- *   DOC FILE
//* --     See Files 437 and 538 for the ZZSA materials.         -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     Using ZZSA, you can read MVS disk packs without being -- *   DOC FILE
//* --     licensed for MVS, OS/390, or z/OS.                    -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     On File 538 there is a zipped one-cylinder mini-disk  -- *   DOC FILE
//* --     in P/390 AWS format which (after expansion) can be    -- *   DOC FILE
//* --     IPL-ed to run ZZSA.                                   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     If you have a Windows PC, and you want to learn how   -- *   DOC FILE
//* --     to use ZZSA, there is a completely self-contained     -- *   DOC FILE
//* --     system on CBT File 979 to construct a Hercules        -- *   DOC FILE
//* --     environment, IPL ZZSA, and run it against a minidisk  -- *   DOC FILE
//* --     in 3390 format.                                       -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     (Under Hercules, I think you have to run it in ESA390 -- *   DOC FILE
//* --     mode, but that is no problem.  Just include all       -- *   DOC FILE
//* --     the other disks you want to look at, in the Hercules  -- *   DOC FILE
//* --     config file.)                                         -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//*******************************************************************   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- Announcement -    Hercules-specific tools for MVS 3.8     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    In the light of the fact that many people are running  -- *   DOC FILE
//* --     MVS 3.8 in their homes, under the Hercules emulation  -- *   DOC FILE
//* --     of S/390 hardware on their home PC, we have placed    -- *   DOC FILE
//* --     some files which have predominantly Hercules-oriented -- *   DOC FILE
//* --     tools, on the CBT Tape.  Some of these files are:     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    File 035  - PDS 8.6 load module, tailored to run       -- *   DOC FILE
//* --                under MVS 3.8.  Load module name is        -- *   DOC FILE
//* --                PDS8538. (Similar on File 135)             -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    File 052  - From Jim Morrison.  SHOWMVS retro-fitted   -- *   DOC FILE
//* --                to run as a batch program under MVS 3.8.   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    File 077  - From Brian Westerman.  Tools tested to     -- *   DOC FILE
//* --                work under MVS 3.8.                        -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    File 182  - PDS 8.6 has been fitted with a set of      -- *   DOC FILE
//* --                options so it can run in line mode, under  -- *   DOC FILE
//* --                MVS 3.8.  See member $$$HERC.  From John   -- *   DOC FILE
//* --                Kalinich.                                  -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    File 415  - From Rob Prins.  This is the famous RPF    -- *   DOC FILE
//* --                TSO-based fullscreen edit program and      -- *   DOC FILE
//* --                productivity package, designed to be a     -- *   DOC FILE
//* --                lot like ISPF, in look and feel.  Not      -- *   DOC FILE
//* --                exactly ISPF, but it has some great        -- *   DOC FILE
//* --                features, and it works under MVS 3.8.      -- *   DOC FILE
//* --                (RPF/XA for MVS/XA and above, is on        -- *   DOC FILE
//* --                File 417.)                                 -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    File 547  - From Volker Bandke.  The "Father of the    -- *   DOC FILE
//* --                MVS 3.8 Turnkey System" exhibits his       -- *   DOC FILE
//* --                special collection of MVS 3.8 (and higher) -- *   DOC FILE
//* --                tools.  This is a large collection.        -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    File 571  - From Jim Morrison.  These are the XMIT370  -- *   DOC FILE
//* --                and RECV370 batch programs, to allow       -- *   DOC FILE
//* --                MVS 3.8 to produce and "receive" TSO       -- *   DOC FILE
//* --                XMIT-format unloaded pds'es.               -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    File 601  - A specially spiffed up version of QUEUE    -- *   DOC FILE
//* --                for MVS 3.8 from Greg Price.  It is more   -- *   DOC FILE
//* --                SDSF-like than the original version of     -- *   DOC FILE
//* --                QUEUE.                                     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    File 887  - Scott Vetter's very large collection of    -- *   DOC FILE
//* --                utilities specifically geared to run on    -- *   DOC FILE
//* --                MVS 3.8.                                   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    File 979  - A completely self-contained, non-IBM       -- *   DOC FILE
//* --                environment, to be run on a Windows PC,    -- *   DOC FILE
//* --                where you can learn how to use ZZSA,       -- *   DOC FILE
//* --                the standalone IPL-able dataset fixer      -- *   DOC FILE
//* --                upper.                                     -- *   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.  In      -- *   DOC FILE
//* --     the past, that wasn't true.                           -- *   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
//* --     (36 yes, 1 no.)                                       -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//*******************************************************************   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- Announcement -    (Breaking this file into a pds)         -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    Note ............                                      -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    I have written a program, called CBTUPD, which will    -- *   DOC FILE
//* --    break this file into a pds.  I maintain File 001       -- *   DOC FILE
//* --    as members of that pds, and then I put them together   -- *   DOC FILE
//* --    to create the sequential file which you are reading.   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    There are currently close to 1500 members in that pds. -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    File 004 of this tape contains source for CBTUPD,      -- *   DOC FILE
//* --    in uncompressed form: RECFM=FB,BLKSIZE=32720,LRECL=80  -- *   DOC FILE
//* --                                                           -- *   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.  File 006 is in    -- *   DOC FILE
//* --    the normal CBT973-compressed IEBUPDTE SYSIN format.    -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    The CBTUPDTE edit macro has been superseded by the     -- *   DOC FILE
//* --    assembler program called CBTUPD.  Also, CBTUPD was     -- *   DOC FILE
//* --    fixed to handle greater than 1000 files, whereas       -- *   DOC FILE
//* --    (I think) the CBTUPDTE edit macro has not been         -- *   DOC FILE
//* --    fixed that way.                                        -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    The CBTUPD assembler program should be run in batch,   -- *   DOC FILE
//* --    because it does a lot of I/O.                          -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- JCL to run the CBTUPD program (sample - customize):       -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    //MYIDUPD   JOB (ACCT#),S-GOLOB,                       -- *   DOC FILE
//* --    // NOTIFY=&SYSUID,                                     -- *   DOC FILE
//* --    // CLASS=A,MSGCLASS=X                                  -- *   DOC FILE
//* --    //*                                                    -- *   DOC FILE
//* --    //INSERT EXEC PGM=CBTUPD                               -- *   DOC FILE
//* --    //STEPLIB DD DISP=SHR,DSN=MYID.LOAD                    -- *   DOC FILE
//* --    //INPUT  DD  DISP=SHR,DSN=MYID.CBT.EDIT(FILE001)       -- *   DOC FILE
//* --    //OUTPUT DD  DISP=SHR,DSN=MYID.CBTDOC.TEST(FILE001$)   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   INPUT and OUTPUT files are RECFM=FB, LRECL=80, and      -- *   DOC FILE
//* --     any appropriate blocksize.                            -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   The OUTPUT file is a copy of the original File 001      -- *   DOC FILE
//* --     introducing ./ ADD NAME=membname cards of appropriate -- *   DOC FILE
//* --     member names as seperators, in appropriate places.    -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   The member names have been chosen to sort in collating  -- *   DOC FILE
//* --     sequence, so the pieces of File 001 will remain in    -- *   DOC FILE
//* --     the proper sort order (EBCDIC).                       -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   The OUTPUT file will thus be input to a PDSLOAD or      -- *   DOC FILE
//* --     IEBUPDTE reload job, to create the pds.               -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   If you want to create File 001 from the pds, you just   -- *   DOC FILE
//* --     run program OFFLOAD with no separators (PARM=NOSEP)   -- *   DOC FILE
//* --     to run all the members into a sequential dataset,     -- *   DOC FILE
//* --     in member sort order.  This will properly re-create   -- *   DOC FILE
//* --     File 001.                                             -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- Longer Explanation:                                       -- *   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 deliberately chose the member names generated by     -- *   DOC FILE
//* -- the CBTUPD program, so that they will sort (EBCDIC)       -- *   DOC FILE
//* -- in collating sequence, so the smaller pieces of File 001  -- *   DOC FILE
//* -- will remain in their proper order.                        -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    I wrote CBTUPD to put the separator cards in the       -- *   DOC FILE
//* -- same places, to generate a pds with the same member       -- *   DOC FILE
//* -- names, that I myself use when I update this file.         -- *   DOC FILE
//* -- (SG - 04/04/13, since 02/1999).                           -- *   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 rebuild File 001 from the members of         -- *   DOC FILE
//* -- this partitioned dataset.                                 -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    Please note that in all of the new CBT Tape files,     -- *   DOC FILE
//* -- the @FILEnnn member will be equal to that component of    -- *   DOC FILE
//* -- CBT File 001 which describes that particular file's       -- *   DOC FILE
//* -- contents.  So there is a correspondence between the       -- *   DOC FILE
//* -- @FILEnnn member of a file, and its description on CBT     -- *   DOC FILE
//* -- File 001.                                                 -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    Our naming convention for these members, if the file   -- *   DOC FILE
//* -- number is 4 digits, is @FILnnnn.  The regular CBT Tape    -- *   DOC FILE
//* -- now has over 1000 files, so that this naming convention   -- *   DOC FILE
//* -- is now being used in a practical sense.                   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//*******************************************************************   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- Announcement - (Microsoft WORD documentation              -- *   DOC FILE
//* --                      and documentation as PDF files)      -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  On some of the files on this tape, I've included         -- *   DOC FILE
//* --  documentation by the authors of the files, that is in    -- *   DOC FILE
//* --  either Microsoft WORD format, or in PDF format.  I       -- *   DOC FILE
//* --  discourage this, because you need a PC that has WORD,    -- *   DOC FILE
//* --  or a Microsoft Word Reader (downloadable from            -- *   DOC FILE
//* --  www.microsoft.com), in order to read the stuff.          -- *   DOC FILE
//* --  Or you need the ADOBE PDF reader or equivalent program,  -- *   DOC FILE
//* --  to read the PDF-format files.  (But nowadays these       -- *   DOC FILE
//* --  programs are readily available to most people.)          -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  Whenever I could, I have created plain text files to     -- *   DOC FILE
//* --  replace the WORD stuff, but sometimes I've also had to   -- *   DOC FILE
//* --  include the original doc from the file's author.         -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  Nowadays, I don't usually try to translate Microsoft     -- *   DOC FILE
//* --  WORD files or PDF files into plain text.  (SG 04/2013)   -- *   DOC FILE
//* --  This is because most people don't have any trouble       -- *   DOC FILE
//* --  reading them with the tools available on their PC's.     -- *   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, on the PC.  Or      -- *   DOC FILE
//* --  the PDF files should be readable by the Adobe Reader,    -- *   DOC FILE
//* --  the Foxit PDF reader, or by some equivalent program.     -- *   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
//* --  File 043 now has a novel way of accessing all of the     -- *   DOC FILE
//* --  information on this tape.  If your site has an FTP       -- *   DOC FILE
//* --  connection with www.cbttape.org , it is now possible     -- *   DOC FILE
//* --  to download the complete CBT Tape and CBT Overflow Tape  -- *   DOC FILE
//* --  to your own z/OS system, and keep the Updates current    -- *   DOC FILE
//* --  as well...!!  This system was developed by Lionel Dyck.  -- *   DOC FILE
//* --  Look at CBT File 043 for all the details.                -- *   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
//* --  AND POSSIBLY, FOR MANY OTHER OLD CBT TAPE VERSIONS.      -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --        http://www.cbttape.org/c249down.htm                -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  Xephon materials are at:  www.cbttape.org/xephon .       -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --  Other relevant materials, some PC-based, may be obtained -- *   DOC FILE
//* --  at this web site.  Content may vary.  Sam Knutson is the -- *   DOC FILE
//* --  proprietor of the web site, and its contents.            -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --        email:  sknutson@cbttape.org                       -- *   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
//* --  An FB-80 version of the JES2 Song Book (from the SHARE   -- *   DOC FILE
//* --  sing-alongs on Thursday night) is available on File 033. -- *   DOC FILE
//* --  The SHARE officials have now given me permission to put  -- *   DOC FILE
//* --  a Microsoft WORD version of the song book on the CBT     -- *   DOC FILE
//* --  Tape, as well.                                           -- *   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
//* --                                                           -- *   DOC FILE
//* --  There are some problems with keeping both addresses      -- *   DOC FILE
//* --  up-to-date.  Often, the contributor will tell me about   -- *   DOC FILE
//* --  a new contact address or email address.  I will have     -- *   DOC FILE
//* --  to find all occurrences of the old address and update    -- *   DOC FILE
//* --  them.  Sometimes, I'll do a perfect job, and sometimes   -- *   DOC FILE
//* --  maybe not.  Old files have a problem, because the        -- *   DOC FILE
//* --  authors themselves (if they are still working) don't     -- *   DOC FILE
//* --  bother to inform me at all.  In any case, if you are     -- *   DOC FILE
//* --  trying to contact an author, please write to me at       -- *   DOC FILE
//* --  sbgolob@cbttape.org and I will do my best to help you.   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --                                      (S.GOLOB  04/13)     -- *   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)  999 Files    (12/2020)   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT - (FROM SAM GOLOB)  980 Files    (11/2018)   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT - (FROM SAM GOLOB)  940 Files    (08/2014)   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT - (FROM SAM GOLOB)  920 Files    (06/2013)   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT - (FROM SAM GOLOB)  900 Files    (12/2012)   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT - (FROM SAM GOLOB)  880 Files    (01/2012)   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT - (FROM SAM GOLOB)  860 Files    (01/2011)   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT - (FROM SAM GOLOB)  840 Files    (08/2010)   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT - (FROM SAM GOLOB)  820 Files    (12/2009)   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT - (FROM SAM GOLOB) 1050 Files    (04/2023)   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT - (FROM SAM GOLOB)  780 Files    (05/07)     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     After going first to 700 files and then to 750,       -- *   DOC FILE
//* --     I am now adding 10 files at a time to the end of      -- *   DOC FILE
//* --     the tape.  Version 474 contains 780 files.  Sam       -- *   DOC FILE
//* --     Knutson had suggested that I add files gradually,     -- *   DOC FILE
//* --     so I am adding them 10 at a time.                     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT - (FROM SAM GOLOB)  600 Files    (01/01)     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     I HAVE DECIDED TO EXTEND THIS TAPE FROM 500 TO 600    -- *   DOC FILE
//* --     FILES.  We are very grateful that we have more than   -- *   DOC FILE
//* --     filled up all of the 500 file slots.  Thanks to all   -- *   DOC FILE
//* --     of you contributors!                                  -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT - (FROM SAM GOLOB)               (02/03)     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   I now have the following email address:                 -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --          sbgolob@cbttape.org                              -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   I do not use my sbgolob@aol.com address anymore. It is  -- *   DOC FILE
//* --   not valid, and please do not send mail to me there,     -- *   DOC FILE
//* --   anymore.  My former attglobal.net address is also       -- *   DOC FILE
//* --   not valid anymore.  Please use sbgolob@cbttape.org.     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --          ----  Division of Responsibility ----            -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   Sam Knutson, who is the www.cbttape.org webmaster, can  -- *   DOC FILE
//* --   be contacted at:                                        -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --          sknutson@cbttape.org                             -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   Sam Golob should be contacted regarding contributions   -- *   DOC FILE
//* --   and any information about tape contents and programs.   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   THESE EMAIL ADDRESSES (FOR SAM GOLOB) MAY BE USED FOR   -- *   DOC FILE
//* --   CORRESPONDENCE WITH HIM, AND/OR SUBMISSION OF NEW       -- *   DOC FILE
//* --   MATERIAL FOR EITHER CBT TAPE (I.E.  THIS TAPE, OR THE   -- *   DOC FILE
//* --   CBT OVERFLOW TAPE).                                     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   I'D ALSO LIKE TO REQUEST ALL CONTRIBUTORS, PAST AND/OR  -- *   DOC FILE
//* --   PRESENT, TO CONTRIBUTE THEIR CURRENT EMAIL ADDRESS, AS  -- *   DOC FILE
//* --   WELL AS THEIR TELEPHONE NUMBER FOR VOICE COMMUNICATION  -- *   DOC FILE
//* --   AT LEAST TO ME. I AM HOPING THAT THE CBT MATERIAL WILL  -- *   DOC FILE
//* --   BECOME MORE USEFUL, IF PARTICIPANTS WILL BE ABLE TO     -- *   DOC FILE
//* --   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)               (01/01)     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   (not relevant now, but the techniques still are)        -- *   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@cbttape.org                                 -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   You can now use the COPYNLNL program which is on        -- *   DOC FILE
//* --   Files 229 and 316, to split an NL tape.  You can        -- *   DOC FILE
//* --   use COPYNLNL to put, say, the first 300 NL files        -- *   DOC FILE
//* --   on one tape, and the next 300 files on a second         -- *   DOC FILE
//* --   tape.                                                   -- *   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 (never, ever     -- *   DOC FILE
//* --                             distributed elsewhere....)    -- *   DOC FILE
//* --      The Entire SHARE MVS Tape (SPLA Tape)                -- *   DOC FILE
//* --      The Entire SHARE PL/1 Tape                           -- *   DOC FILE
//* --      Many other new materials......                       -- *   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
//* -- > With the advent of the Hercules S/390 emulator for   <  -- *   DOC FILE
//* -- > PC's, and with a lot of people now running MVS 3.8,  <  -- *   DOC FILE
//* -- > these files have suddenly become quite relevant.     <  -- *   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@cbttape.org                 -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   (This last paragraph is not too relevant now - 11/18)   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   Please note that the COPYNLNL program on Files 229      -- *   DOC FILE
//* --   and 316, can be used to split the NL CBT Tape.  You     -- *   DOC FILE
//* --   can use COPYNLNL to put, say, the first 300 files       -- *   DOC FILE
//* --   on one tape, and the next 300 files on a second tape.   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   If you get a CBT "Tape" as an AWS-format emulated       -- *   DOC FILE
//* --   tape, you can use the VTT2TAPE program from CBT File    -- *   DOC FILE
//* --   533, to cut a real, physical tape from the AWS-format   -- *   DOC FILE
//* --   tape.  You'll have to upload (FTP?) the AWS-format      -- *   DOC FILE
//* --   tape image from PC disk, to an FB-80                    -- *   DOC FILE
//* --   (RECFM=FB,LRECL=80) MVS sequential file in BINARY, and  -- *   DOC FILE
//* --   then the VTT2TAPE program will convert that file into   -- *   DOC FILE
//* --   an actual tape on your tape drive.                      -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--- *   DOC FILE
//* --------------------------------------------------------------- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* -- ANNOUNCEMENT -  (FROM SAM GOLOB)                          -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --             email:    sbgolob@cbttape.org                 -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --       Whatever my current email address is, is also       -- *   DOC FILE
//* --       posted at www.cbttape.org , where there is a        -- *   DOC FILE
//* --       button to click, if you want to send an email       -- *   DOC FILE
//* --       to me.    (07/01)                                   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --     THIS TAPE HAS NOTHING TO DO WITH NaSPA, BUT I         -- *   DOC FILE
//* --     PERSONALLY AM A MEMBER OF NaSPA.  (I don't know       -- *   DOC FILE
//* --     if they've renewed my membership lately.)             -- *   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 4 9 0 E     C A R T S         )   ******   -- *   DOC FILE
//* --   ******   (     OR    T W O   T A P E S     )   ******   -- *   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 443 definitely needs IDRC ONLY ..   ***   -- *   DOC FILE
//* --                     and took up 4257.3 FEET.              -- *   DOC FILE
//* --   ***   VERSION 471 DEFINITELY NEEDS 3490E    ...   ***   -- *   DOC FILE
//* --                     and took up 5653.2 Feet.              -- *   DOC FILE
//* --   ***   VERSION 478 DEFINITELY NEEDS 3490E    ...   ***   -- *   DOC FILE
//* --                     and took up 6975.7 Feet.              -- *   DOC FILE
//* --   ***   VERSION 496 (I don't know what it needs.)   ***   -- *   DOC FILE
//* --                     (some kind of 3590 ??)                -- *   DOC FILE
//* --                     It took up 18161.8 Feet.              -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --         ---------------------------------------           -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   ***   VERSION 486 is a whopping 12663.0 Feet.     ***   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   ***   VERSION 488 is a whopping 14306.0 Feet.     ***   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   ***   VERSION 496 is a whopping 18161.8 Feet.     ***   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   ***   VERSION 505 is a whopping 19911.6 Feet.     ***   -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --           There is no trouble with this tape in           -- *   DOC FILE
//* --           AWS format, but as a real tape, I think         -- *   DOC FILE
//* --           that maybe only a 3590 will hold it now.        -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --           Most people will probably want to               -- *   DOC FILE
//* --           download individual files, from                 -- *   DOC FILE
//* --           www.cbttape.org, or maybe they would            -- *   DOC FILE
//* --           want to use the DFDSS or FDR-unloaded           -- *   DOC FILE
//* --           disk pack (3390-3) containing all               -- *   DOC FILE
//* --           files from the CBT Tape itself.  See            -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --       http://www.cbttape.org/dumpedformatlibrary.htm      -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --         ---------------------------------------           -- *   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:  THE FULL CONTENTS OF THIS TAPE WILL NOW    -- *   DOC FILE
//* --        PROBABLY ONLY FIT ON SOME KIND OF 3590 CARTRIDGE.  -- *   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 ADDRESS:                             -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --          sbgolob@cbttape.org                              -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    MY EMAIL ADDRESS IS ALSO POSTED AT www.cbttape.org     -- *   DOC FILE
//* --     on the first page, where it says:                     -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --    Send email about CBT Tape in general, to Sam Golob.    -- *   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
//* --        This is kind of obsolete now, but you should       -- *   DOC FILE
//* --        look anyway.  I may have these materials lying     -- *   DOC FILE
//* --        around somewhere.          SG - 10/27/2014         -- *   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.  (It is now out of print.)        -- *   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
//* --    (This book is not too available nowadays.  Check       -- *   DOC FILE
//* --     Amazon or Ebay, or maybe someone you know, might      -- *   DOC FILE
//* --     lend it to you.)                                      -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//*******************************************************************   DOC FILE
//***SECTION DISCLAIMER SECTION                                     *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*            D I S C L A I M E R    S E C T I O N                 *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*   The tapes commonly referred to as "The CBT MVS Utilities      *   DOC FILE
//*   Tape", and "The CBT Overflow Tape", as well as "The CBT       *   DOC FILE
//*   Overflow Tape Two" are hereinafter referred to as "this       *   DOC FILE
//*   tape".  The materials on these "tapes", even if they are      *   DOC FILE
//*   not physically on a tape, but they exist on a cd-rom disk,    *   DOC FILE
//*   or on any other machine-readable medium, or printed, or       *   DOC FILE
//*   written, or in analog or digital form, or in any data         *   DOC FILE
//*   representation format, such as EBCDIC or ASCII or any other   *   DOC FILE
//*   data representation scheme, or they are in any compressed     *   DOC FILE
//*   or encrypted format, shall fully be included in all           *   DOC FILE
//*   disclaimers of responsibility, as though these materials      *   DOC FILE
//*   were actually physically on tape.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  THIS TAPE CONTAINS FREE SOFTWARE, NOT TO BE CHARGED FOR,       *   DOC FILE
//*  EXCEPT FOR HANDLING COSTS.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*  THIS TAPE MAY BE FREELY DUPLICATED.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  NOTICE.  There are certain copyrighted sections on this tape   *   DOC FILE
//*   which contain reservations of rights.  Owners of these        *   DOC FILE
//*   sections have given permission for the use of their           *   DOC FILE
//*   materials subject to the conditions stated in each case.      *   DOC FILE
//*                                                                 *   DOC FILE
//*   THESE RESERVATIONS DO NOT APPLY TO THE ENTIRE TAPE ... !!!.   *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  DISCLAIMER REGARDING "NON-FREE" MATERIALS.                     *   DOC FILE
//*   The editor and/or any other persons or institutions,          *   DOC FILE
//*   corporations, or any other entity handling this tape,         *   DOC FILE
//*   do not assume responsibility for the inadvertent inclusion    *   DOC FILE
//*   of "non-free" materials.  If any such materials are found     *   DOC FILE
//*   to have been accidentally included on this tape, please       *   DOC FILE
//*   inform the editor immediately, and such materials will be     *   DOC FILE
//*   promptly removed.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*   ALL DISCLAIMERS OF RESPONSIBILITY, ABOVE AND BELOW, APPLY     *   DOC FILE
//*   TO ALL PERSONS AND/OR INSTALLATIONS OR ANY OTHER ENTITY       *   DOC FILE
//*   EDITING, DUPLICATING, PROCESSING, OR OTHERWISE HANDLING       *   DOC FILE
//*   THIS TAPE, AS WELL AS TO ALL AUTHORS AND CONTRIBUTORS OF      *   DOC FILE
//*   MATERIAL TO THIS TAPE.  NO RESPONSIBILITIES ARE ASSUMED       *   DOC FILE
//*   BY ANY OF THESE PERSONS, INSTALLATIONS, CORPORATIONS,         *   DOC FILE
//*   ENTITIES, INSTITUTIONS, OR ORGANIZATIONS.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*   No warranty, expressed or implied, is provided by any or      *   DOC FILE
//*   all of the persons and/or installations editing,              *   DOC FILE
//*   duplicating, or otherwise handling this tape, as well as      *   DOC FILE
//*   by all authors and contributors of material to this tape.     *   DOC FILE
//*   Persons and/or installations using any of the programs or     *   DOC FILE
//*   materials on this tape, do so entirely at their own risk.     *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*   NO WARRANTY IS MADE TO THE ACCURACY OF THE PROGRAMS OR        *   DOC FILE
//*   RELATED MATERIAL AND NO RESPONSIBILITY IS ASSUMED FOR ANY     *   DOC FILE
//*   MODIFICATION DIRECTLY OR INDIRECTLY CAUSED BY THE USE OF      *   DOC FILE
//*   THIS SOFTWARE.  IT IS THE USER'S RESPONSIBILITY TO EVALUATE   *   DOC FILE
//*   THE USEFULNESS OF THE MATERIAL SUPPLIED.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*   We do not guarantee to keep any material provided up to       *   DOC FILE
//*   date, nor do we guarantee to provide any corrections or       *   DOC FILE
//*   extensions described by anyone, or corrections or             *   DOC FILE
//*   extensions made in the future.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*   NO WARRANTY, EXPRESSED OR IMPLIED, IS PROVIDED BY ANY OR      *   DOC FILE
//*   ALL OF THE PERSONS AND/OR INSTALLATIONS EDITING,              *   DOC FILE
//*   DUPLICATING, OR OTHERWISE HANDLING THIS TAPE, AS WELL AS      *   DOC FILE
//*   BY ALL AUTHORS AND CONTRIBUTORS OF MATERIAL TO THIS TAPE.     *   DOC FILE
//*   PERSONS AND/OR INSTALLATIONS USING ANY OF THE PROGRAMS OR     *   DOC FILE
//*   MATERIALS ON THIS TAPE, DO SO ENTIRELY AT THEIR OWN RISK.     *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*   This software is provided by the contributors and/or          *   DOC FILE
//*   copyright holders "as is", and any express or implied         *   DOC FILE
//*   warranties, including, but not limited to, the implied        *   DOC FILE
//*   warranties of merchantability and fitness for a               *   DOC FILE
//*   particular purpose are disclaimed.  In no event shall         *   DOC FILE
//*   anybody involved in handling this tape collection, or         *   DOC FILE
//*   the contributors or copyright owners be liable for any        *   DOC FILE
//*   direct, indirect, incidental, special, exemplary, or          *   DOC FILE
//*   consequential damages (including, but not limited to,         *   DOC FILE
//*   procurement of substitute goods or services; loss of          *   DOC FILE
//*   use, data, or profits; or business interruption)              *   DOC FILE
//*   however caused and on any theory of liability, whether        *   DOC FILE
//*   in contract, strict liability, or tort (including             *   DOC FILE
//*   negligence or otherwise) arising in any way out of the        *   DOC FILE
//*   use of this software, even if advised of the                  *   DOC FILE
//*   possibility of such damage.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*   THE EDITOR AND/OR ANY OTHER PERSONS, INSTITUTIONS,            *   DOC FILE
//*   CORPORATIONS, OR ANY OTHER ENTITY HANDLING THIS TAPE, AS      *   DOC FILE
//*   WELL AS ANY AUTHORS OR CONTRIBUTORS OF MATERIAL TO THIS       *   DOC FILE
//*   TAPE, DO NOT ASSUME ANY RESPONSIBILITY, EXPRESS, IMPLIED,     *   DOC FILE
//*   OR TO BE CONSTRUED IN ANY WAY, TO UPDATE THIS TAPE AT         *   DOC FILE
//*   ALL.  ANY STATEMENTS TO THE CONTRARY, ANYWHERE ON THIS        *   DOC FILE
//*   TAPE, ARE HEREBY OVERRIDDEN BY THIS STATEMENT.                *   DOC FILE
//*                                                                 *   DOC FILE
//*   Specifically, but not limited thereto, no responsibility      *   DOC FILE
//*   is assumed, in any way, by anyone handling this tape, or      *   DOC FILE
//*   by any author or contributor of material to this tape, to     *   DOC FILE
//*   ensure YEAR 2000 compliance of any materials on this          *   DOC FILE
//*   tape, at all.                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*   THESE STATEMENTS, IN THEIR GENERAL APPLICATION, AND NOT       *   DOC FILE
//*   LIMITED TO YEAR 2000 CONSIDERATIONS, APPLY TO ALL             *   DOC FILE
//*   MATERIALS CONTAINED ON THIS TAPE, WITHOUT EXCEPTION.          *   DOC FILE
//*                                                                 *   DOC FILE
//*   These statements OVERRIDE ANY STATEMENT OF DOCUMENTATION,     *   DOC FILE
//*   anywhere else on this tape, that any software or materials    *   DOC FILE
//*   contained on this tape are YEAR 2000 compliant or functional. *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//***TAPE DUPLICATION SECTION                                       *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*       T A P E    D U P L I C A T I O N    S E C T I O N         *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  THIS 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
//*   All authors give their implied permission to allow their      *   DOC FILE
//*   materials to be duplicated.  No contributor restricts the     *   DOC FILE
//*   ability of any user of this tape, to duplicate the entire     *   DOC FILE
//*   tape.                                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  DUPLICATION ADVICE.  (USE THIS ON YOUR OWN RESPONSIBILITY)     *   DOC FILE
//*                                                                 *   DOC FILE
//*   Nowadays, most people do not obtain these materials from      *   DOC FILE
//*   a "tape", as it used to be.  Most people download these       *   DOC FILE
//*   materials, a file at a time, from the www.cbttape.org web     *   DOC FILE
//*   site.  At the web site, you can get a DFDSS or FDR backup     *   DOC FILE
//*   of a 3390-format disk, containing all the materials in one    *   DOC FILE
//*   version of the "tape".  Or you can download the "tape" in     *   DOC FILE
//*   AWS format (emulating a 3480, but it is very long).           *   DOC FILE
//*                                                                 *   DOC FILE
//*   So the following remarks are for general knowledge only,      *   DOC FILE
//*   and the techniques can apply to duplicating any tape.         *   DOC FILE
//*   But the general principles also apply to duplicating any of   *   DOC FILE
//*   these CBT Tape materials.  (SBG - Nov 2018).                  *   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
//*   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
//*   You can now use the COPYNLNL program from Files 229 and       *   DOC FILE
//*   316, to copy some NL files from the CBT Tape to one tape,     *   DOC FILE
//*   and the rest of them to a second tape.  This should allow     *   DOC FILE
//*   2-tape versions of the CBT Tape to be made, for 3480          *   DOC FILE
//*   uncompressed cartridges, or even for 3480 IDRC carts.         *   DOC FILE
//*                                                                 *   DOC FILE
//*   For example, you can use COPYNLNL to copy the first 300 NL    *   DOC FILE
//*   files of the CBT Tape to one output tape, and then copy       *   DOC FILE
//*   Files 301 to the end, over to a second output tape.  This     *   DOC FILE
//*   way, if the tape is too long for 3480 non-IDRC, someone       *   DOC FILE
//*   who can read an IDRC tape can copy it properly to two         *   DOC FILE
//*   3480 uncompressed tapes, and so forth.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*   This tape is now too long for a 3600 foot reel, or for        *   DOC FILE
//*   a 3480 cart, or for a 3480 IDRC cart.  To contain the         *   DOC FILE
//*   materials on one reel, you need a 3490E cart, at least.       *   DOC FILE
//*   Most likely, you would need a 3590 cartridge.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*   If you want to have all the files on this tape in one place,  *   DOC FILE
//*   either use an AWS-format "tape" file on disk, whose "length"  *   DOC FILE
//*   is only limited by the amount of disk space to hold the file, *   DOC FILE
//*   or else, try the alternative Tersed DFDSS or FDR backups of   *   DOC FILE
//*   a 3390 disk containing all the tape files, which can be found *   DOC FILE
//*   at our web site, www.cbttape.org.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*   If your shop has direct FTP access to the www.cbttape.org     *   DOC FILE
//*   web site, then you can use the software on CBT Tape File 043  *   DOC FILE
//*   to directly download the entire tape from the web site to     *   DOC FILE
//*   your z/OS system's DASD.  (Most convenient.)                  *   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
//*   This section refers to what happens when people email stuff   *   DOC FILE
//*   to me in ASCII.  If you can avoid that (as per the remarks    *   DOC FILE
//*   below), please do so.                                         *   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
//*                                                                 *   DOC FILE
//* --             email:    sbgolob@cbttape.org                 -- *   DOC FILE
//*                                                                 *   DOC FILE
//*   ERRORS WE KNOW ABOUT ARE -                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*      HEX 53    SHOULD BE CHANGED TO    HEX 5F       USUALLY.    *   DOC FILE
//*      HEX 6A    SHOULD BE CHANGED TO    HEX 4F   OR VICE-VERSA.  *   DOC FILE
//*                                                                 *   DOC FILE
//*   PLEASE 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
//*  On the CBT Tape web site:  www.cbttape.org , there is an       *   DOC FILE
//*  Updates page, which contains the latest versions of files.     *   DOC FILE
//*  These files are updated (almost) daily.  If a file contains    *   DOC FILE
//*  a $$$#DATE member, that is an indication of the update date    *   DOC FILE
//*  and time, for that file.  So please look there.                *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  ANNOUNCEMENT ------*-*-*-*-*------ DOC FOR OTHER TAPES.        *   DOC FILE
//*                                                                 *   DOC FILE
//*  NOTE:  The arrival of Github and SourceForge has changed       *   DOC FILE
//*         some of the dynamics here.  But I think that the        *   DOC FILE
//*         remarks below, still apply to a considerable extent.    *   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 have also established Files 050 and 051, to contain URLs    *   DOC FILE
//*  that can help point you to materials (many of them free)       *   DOC FILE
//*  which we can't put on this tape for some reason or other.      *   DOC FILE
//*                                                                 *   DOC FILE
//*  A notable example of a free tool is TASID from Doug Nadel,     *   DOC FILE
//*  who worked for IBM's ISPF development.  TASID is copyrighted   *   DOC FILE
//*  by IBM, but it is free.  Another example is the compression    *   DOC FILE
//*  program TRSMAIN from IBM.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*    TASID can now be obtained here:                              *   DOC FILE
//*                                                                 *   DOC FILE
//*  https://www-01.ibm.com/support/docview.wss?uid=swg24009131     *   DOC FILE
//*                                                                 *   DOC FILE
//*    A bunch of zaps to TASID 5.21 were supplied by Vladimir      *   DOC FILE
//*    Mironov on CBT File 980, so that the initiator display       *   DOC FILE
//*    of TASID will now work.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*    So please see File 980, where there is a zap for this        *   DOC FILE
//*    version of TASID, so it will display initiators properly     *   DOC FILE
//*    (Option 4) under z/OS 2.2 and 2.3.  (Tested on 2.5 as well)  *   DOC FILE
//*                                                                 *   DOC FILE
//*    Doug's site is now obsolete, as far as his IBM mainframe     *   DOC FILE
//*    creations are concerned.  You can refer to File 683, where   *   DOC FILE
//*    a lot of IBM downloads are still available.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*    See:   ftp://public.dhe.ibm.com                              *   DOC FILE
//*                                                                 *   DOC FILE
//*    To get TRSMAIN, go to www.ibm.com , and search for           *   DOC FILE
//*     TRSMAIN.  Current URL to get TRSMAIN (as of 03/01) is:      *   DOC FILE
//*                                                                 *   DOC FILE
//*     ftp://ftp.software.ibm.com/s390/mvs/tools/packlib/          *   DOC FILE
//*                                                                 *   DOC FILE
//*     (Yes, as of Nov 2018 it is still there, in its old form,    *   DOC FILE
//*      from 1998.)   But, for the newest version of TRSMAIN...    *   DOC FILE
//*                                                                 *   DOC FILE
//*    TRSMAIN is now distributed with the z/OS operating system    *   DOC FILE
//*    under the name AMATERSE.  On a z/OS 2.x system, it is on     *   DOC FILE
//*    SYS1.MIGLIB, as follows:                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*    NAME     DATA     ALIASOF                                    *   DOC FILE
//*    AMATERSE                                                     *   DOC FILE
//*    GIMUNPCK          AMATERSE                                   *   DOC FILE
//*    TRSMAIN           AMATERSE                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*  We hope these services will be of help to everyone. SG         *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  With the advent of "retro-MVS computing", which you can do at  *   DOC FILE
//*  home with the HERCULES S390 emulator that runs on a PC, I'd    *   DOC FILE
//*  appreciate finding out about old utilities that might have     *   DOC FILE
//*  been forgotten over the years.  If you have information about  *   DOC FILE
//*  old utilities, please email me at sbgolob@cbttape.org .        *   DOC FILE
//*                                                                 *   DOC FILE
//*  Now, we can all run MVS in our house, only depending on        *   DOC FILE
//*  licensing issues for the software.  Many people currently      *   DOC FILE
//*  are running MVS 3.8J, which is free.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*  If you want to find out about Hercules, there is a news group. *   DOC FILE
//*  Current URLs are (as of 05/01):  yahoogroups.com is no longer  *   DOC FILE
//*  active.  Go to groups.io for Hercules-related user groups      *   DOC FILE
//*  now.  (12/20)                                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*    New group now:  https://hercules-390.groups.io/g/group       *   DOC FILE
//*                                                                 *   DOC FILE
//*    Hercules is now available in several different versions:     *   DOC FILE
//*    One very good version is from:                               *   DOC FILE
//*                                                                 *   DOC FILE
//*      http://www.softdevlabs.com/hercules                        *   DOC FILE
//*                                                                 *   DOC FILE
//*    To find out a lot about Hercules, see the MOSHIX YouTube     *   DOC FILE
//*    videos at:  (you can refer to File 977 as well)              *   DOC FILE
//*                                                                 *   DOC FILE
//*      https://www.youtube.com/user/moshe5760/videos              *   DOC FILE
//*                                                                 *   DOC FILE
//*  Please see Files 077 and 547, which contain utilities that     *   DOC FILE
//*  have been tested to run under MVS 3.8, running under the       *   DOC FILE
//*  Hercules emulator.  Some of those tools might also run under   *   DOC FILE
//*  OS/390, or z/OS, but they haven't been tested there.           *   DOC FILE
//*                                                                 *   DOC FILE
//*  Thanks to Volker Bandke for File 547, and to Brian Westerman   *   DOC FILE
//*  for File 077.                                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*  To obtain an MVS system which can be installed on your PC      *   DOC FILE
//*  in a couple of minutes, complete with TSO and many utilities,  *   DOC FILE
//*  go to the TK4- website, which was put together by              *   DOC FILE
//*  Juergen Winkelmann....  (This is MVS 3.8, greatly enhanced     *   DOC FILE
//*  and completely legal to run.)                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*      http://wotho.ethz.ch/tk4-/                                 *   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
//* --             email:  sbgolob@cbttape.org                   -- *   DOC FILE
//*                                                                 *   DOC FILE
//*      To obtain copies of some old tapes that we have,           *   DOC FILE
//*      in AWS format, please go to:                               *   DOC FILE
//*                                                                 *   DOC FILE
//*             http://www.cbttape.org/c249down.htm                 *   DOC FILE
//*                                                                 *   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 DVD.)   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.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*  A THANK YOU:  (for all the OS/360 materials available)         *   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
//*  Note:  If you are using the old OS/360 ALGOL compiler, or if   *   DOC FILE
//*    you wish to do so, we have a complete reworking of that      *   DOC FILE
//*    compiler on CBT File 876, from Tom Armstrong.  Tom has tried *   DOC FILE
//*    to correct all the errors and omissions found on the OS/360  *   DOC FILE
//*    tapes that we had, and it is probably best, if you want      *   DOC FILE
//*    to use OS/360 ALGOL, to use his fixed version on File 876.   *   DOC FILE
//*                                                                 *   DOC FILE
//*                                               (S.GOLOB 10/2014) *   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@cbttape.org   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
//*  Since it is now possible to send entire tapes over the         *   DOC FILE
//*  Internet, with the tapes being in AWS format, please email     *   DOC FILE
//*  Sam Golob  at  sbgolob@cbttape.org   , if you can send a       *   DOC FILE
//*  tape in this way.                                              *   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 CBT tape to VM - V2.0            *   DOC FILE
//*+File 006:  Collection of Utilities to manipulate File 001 doc   *#  DOC FILE
//*+File 007:  SYSUPLOG (keep as EBCDIC only) - sequential data     *#  DOC FILE
//*+File 008:  File containing jobs used to create the CBT Tape     *#  DOC FILE
//*+File 009:  Gene Lew old RACF exits                              *   DOC FILE
//*+File 010:  IMON for z/OS - a comprehensive z/OS monitor         *   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:  SHARE RACF mods tape - SETPW2 fixed - WHOIS fixed    *   DOC FILE
//*+File 014:  Sam Golob's SMP/E Introduction tutorial, etc.        *   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:  Utilities from John Hooper                           *   DOC FILE
//*+File 020:  A collection of system level 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:  SHARE JES2 Song Book                                 *   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 mod & doc     *   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:  Utilities for IBM Connect:Direct - John Bradley      *   DOC FILE
//*+File 043:  The Official CBT Dialog for easy access to all files *#  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 DASD 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:  STATS program to report structure of datasets        *   DOC FILE
//*+File 050:  Internet URLs for Free Downloads                     *   DOC FILE
//*+File 051:  Internet URLs for some Relevant Vendor Sites         *   DOC FILE
//*+File 052:  SHOWMVS for MVS 3.8 - from Jim Morrison              *   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:  TSTVS - Console Editor and Dataset Utility-Rob Prins *   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:  MVS 3.8 Utilities for Hercules from Brian Westerman  *   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 - moved to CBT Overflow Tape File 092 *   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:  Old Peoples Bank Disk Mgmt stuff plus new VVDSLIST   *   DOC FILE
//*+File 098:  ISPF interface for XMIT/RECEIVE - source and data    *#  DOC FILE
//*+File 099:  REXX Code Snippets - contributed                     *#  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" and other 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:  TSO Echo Programs for "TSO Command Restriction"      *   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:  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:  Report Distribution System with Security             *   DOC FILE
//*+File 138:  Program called SYSTEM to report system info          *   DOC FILE
//*+File 139:  Dennis Longnecker Utilities + WHOHAS                 *   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 - load library                        *   DOC FILE
//*+File 146:  KERMIT for TSO - source                              *   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 - Chuck Hoffman + ISPFPRIM from File 010     *   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, USERS            *   DOC FILE
//*+File 171:  DISASM, TAPEMAP, SMFSPLIT, TPX, FX, SUTL, DLIUTILS   *   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 - moved to CBT Overflow Tape File 089 *   DOC FILE
//*+File 177:  Add OPCODES to the assembler as MACROS (MNEMAC lib)  *   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.6.19.4 PDSE Support   *#  DOC FILE
//*+File 183:  Gilbert Saint-flour's collection of Utilities, etc.  *   DOC FILE
//*+File 184:  Tom Bryant's way of setting up IPCS                  *   DOC FILE
//*+File 185:  IKJTABLS Source Code and Auth Table handling tools   *#  DOC FILE
//*+File 186:  EMPTY                                                *   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 - now 64K capable       *   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 Commands from Bob Break   *   DOC FILE
//*+File 199:  BLKSPTRK, CMDPGM, more programs 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 - moved CBT Overflow 310*   DOC FILE
//*+File 211:  CICS XSYS Documentation - moved, CBT Overflow 311    *   DOC FILE
//*+File 212:  DB2 CROSS SYSTEM - moved, CBT Overflow 312           *   DOC FILE
//*+File 213:  DB2 XSYS Documentation - moved, CBT Overflow 313     *   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 Tool collection updated from Lee Conyers *   DOC FILE
//*+File 221:  EDP Auditor REXX tools updated 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 and other utilities for Tape Copying        *   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:  New Disassembler by Dick Thornton-author of File 217 *   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:  ISPF Interactive Disassembler - Source Code          *   DOC FILE
//*+File 244:  UK GUIDE Tape Supplement - 1993A                     *   DOC FILE
//*+File 245:  UK GUIDE Tape - Norwich Union Insurance Supplement   *   DOC FILE
//*+File 246:  Issue Console Commands from Batch                    *   DOC FILE
//*+File 247:  Broadcast Manager Utilities to manage SYS1.BRODCAST  *#  DOC FILE
//*+File 248:  Jim Boysen Utility collection                        *   DOC FILE
//*+File 249:  Programs from Eileen Barkow - WMOD updated for z/OS  *   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 - Updated for 3390-9 etc. *   DOC FILE
//*+File 261:  Moved CMD1 Subsystem to File 296 of Overflow Tape    *   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 for 64-bit addresses, DUDASD and JLOG   *#  DOC FILE
//*+File 265:  BF Goodrich LOGON exit                               *   DOC FILE
//*+File 266:  SS0104 TAPE MAP program - measures footages          *   DOC FILE
//*+File 267:  HETUTL Utility-read a tape-make AWS or HET file      *   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 - Know BEFORE you RECEIVE...!!      *   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:  CKIEBGEN versions (copy program) - Warren Whitford   *#  DOC FILE
//*+File 294:  VSAM Analysis TSO command called VSAMANAL            *   DOC FILE
//*+File 295:  A Heartfelt Essay about programming, by Dave Cole    *   DOC FILE
//*+File 296:  TSO Utilities. Use with PDS86 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--Show LPA and 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 incomplete*   DOC FILE
//*+File 310:  ALGOL Library Source Code                            *   DOC FILE
//*+File 311:  Dave Alcock's large Utilities collection             *   DOC FILE
//*+File 312:  Lionel Dyck Collection of Utilities.  A thru R       *#  DOC FILE
//*+File 313:  Lionel Dyck Collection of Utilities.  S thru TS      *#  DOC FILE
//*+File 314:  Lionel Dyck Collection of Utilities. TX thru Z       *#  DOC FILE
//*+File 315:  Dave Lees Utilities                                  *   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 processor*   DOC FILE
//*+File 322:  TSO SLEEP programs (like the VM ones)                *   DOC FILE
//*+File 323:  REXX Function Package from Gerard Nicol              *   DOC FILE
//*+File 324:  Gerard Nicol package to access StorageTek API - HSC  *   DOC FILE
//*+File 325:  TSO Command Processor Programs from Wells Fargo      *   DOC FILE
//*+File 326:  Free FORTRAN G & H  - moved to CBT Overflow File 090 *   DOC FILE
//*+File 327:  Free RPG/F Compiler - moved to CBT Overflow File 091 *   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 dialog for SMF88, CICS CSD and COBANAL display  *   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 execs and other tools from Joerg Berning        *   DOC FILE
//*+File 345:  Generalized MPF Exit - from Murray Nicholas          *   DOC FILE
//*+File 346:  JES2 Exits from Bob Break                            *   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 update ISPF in-storage & stored command tables  *   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 - moved to Overflow File 301  *   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:  Carl Hafner's large collection of Utilities-PDSMATCH *   DOC FILE
//*+File 358:  SYSOUT archive package from Eric Bielefeld           *   DOC FILE
//*+File 359:  Utilities from Howard Dean and Bill Smith            *   DOC FILE
//*+File 360:  State of Wisconsin utilities - COMMAND, VOLS updated *   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:  REXX execs and other stuff from David McRitchie      *   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:  Moved CDS programs to File 297 of Overflow Tape      *   DOC FILE
//*+File 385:  LPA Compare program from Jerry Lawson                *   DOC FILE
//*+File 386:  Salvador Carrasco EXECs and other programs           *   DOC FILE
//*+File 387:  Stony Brook PASCAL Distribution                      *   DOC FILE
//*+File 388:  David Cole's Job Scheduler package                   *   DOC FILE
//*+File 389:  QUEUE program for JES2 5.1, 5.2                      *   DOC FILE
//*+File 390:  Schudel QUEUE for ESA 5.2 thru OS390, early z/OS     *   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 & Ken MacKenzie   *   DOC FILE
//*+File 394:  Jan Jakubek collection of Utilites, and KSDSPACE Pgm *   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:  SPITBOL 360 Compiler and Library                     *   DOC FILE
//*+File 402:  SMF Display Consolidation from Multiple MVS systems  *   DOC FILE
//*+File 403:  Message Display Facility (UMSG) from Ugur Cilesiz    *   DOC FILE
//*+File 404:  TSSO for OS/390 and z/OS                             *   DOC FILE
//*+File 405:  Defense Logistics Agency Exits and Utilities         *   DOC FILE
//*+File 406:  CQX (purge all jobs with same name), & FIND TSO cmds *   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:  RPF TSO-based ISPF-like editor, etc. Vers 1.9.5      *#  DOC FILE
//*+File 416:  Deluxe Check Printing - useful programs              *   DOC FILE
//*+File 417:  RACFADM - ISPF Dialog to make RACF admin easier.     *#  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 REXX 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:  Jan Jaeger utilities collection, including ZZSA      *   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 Dalby's MVS-JES2 Utilities + STEPLIB, etc.       *   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 Large Block Interface (LBI) for tape     *   DOC FILE
//*+File 476:  LISP for MVS - moved back to CBT from Overflow Tape  *   DOC FILE
//*+File 477:  AWSUTIL Utility to Create AWS-format "tapes" on DASD *   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:  Thomas Ramseier collection of Utilities              *   DOC FILE
//*+File 484:  Cache Manager ISPF utility                           *   DOC FILE
//*+File 485:  VTAM application from Binyamin Dissen                *   DOC FILE
//*+File 486:  SETCLOCK program                                     *   DOC FILE
//*+File 487:  REXX to trap and display output from TSO Commands    *   DOC FILE
//*+File 488:  Jim Iannone Utilities for Production Control         *#  DOC FILE
//*+File 489:  Jim Iannone Utilities for Shared Medical Systems pkg *   DOC FILE
//*+File 490:  INSTASM - Assembler Macros for Reentrant code        *   DOC FILE
//*+File 491:  XMITMAIL - Lite XMITIP written in COBOL + BATCHART   *   DOC FILE
//*+File 492:  SHOWzOS 8.01 and 7.25, plus SHOWMVS 7.10 and 6.30    *   DOC FILE
//*+File 493:  Utilities from Jim Connelley - VC, CRC32, C2F        *   DOC FILE
//*+File 494:  IKJEESX9 LISTBC exit - partial use of SYS1.BRODCAST  *   DOC FILE
//*+File 495:  Dynamic ISPF installs of products - from Tom Conley  *   DOC FILE
//*+File 496:  REXX exec to do LISTA (display allocations)          *   DOC FILE
//*+File 497:  CSVLLIX1 LLA Fetch exit example from A.Colombo       *   DOC FILE
//*+File 498:  Match Merge program from Craig Schneiderwent         *   DOC FILE
//*+File 499:  Utilities and RACF Panels from Ed Ross -             *   DOC FILE
//*+File 500:  MVS & z/OS Automation ECF V23-Event Capture Facility *   DOC FILE
//*+File 501:  SNTP (Simple Network Time Protocol) Server - K.Clapp *   DOC FILE
//*+File 502:  ZAP to AMASPZAP program to eliminate AMA117D message *   DOC FILE
//*+File 503:  MBRLIST exec that runs under raw TSO                 *   DOC FILE
//*+File 504:  Software Inventory System                            *   DOC FILE
//*+File 505:  ASSIST Assembler - moved to Overflow Tape File 085   *   DOC FILE
//*+File 506:  REXX execs for handling SMP/E output                 *   DOC FILE
//*+File 507:  TPL V6.0 for MVS. Table Producing Language (pub dom) *   DOC FILE
//*+File 508:  EXCMD - Command Processor to execute CLISTs & REXX   *   DOC FILE
//*+File 509:  Application to web-enable the SHOWMVS command        *   DOC FILE
//*+File 510:  IEBLIST and SPACE dataset listers - Ricardo Paranhos *   DOC FILE
//*+File 511:  VSAM Space Analysis program from Geoffrey McIntyre   *   DOC FILE
//*+File 512:  ISPF CUT-PASTE - from Luc van Rompaey                *   DOC FILE
//*+File 513:  Tools to use OPERLOG in a sysplex, like SYSLOG       *   DOC FILE
//*+File 514:  ICHRTX00 special-purpose SAF exit - Larry Williams   *   DOC FILE
//*+File 515:  Alex Brodsky REXX functions (assembler) & ISPF stuff *   DOC FILE
//*+File 516:  CA-1 (TMS) program. Inquire VOLSER against CTSQSTS.  *   DOC FILE
//*+File 517:  XPL Compiler Generator System                        *   DOC FILE
//*+File 518:  Sam Knutson's Utilities - AUXBOOST, PUTPARM others   *   DOC FILE
//*+File 519:  Compare TMS (CA-1) volume data to IBM VTS vol status *   DOC FILE
//*+File 520:  REXX Functions from Robin Ryerse                     *   DOC FILE
//*+File 521:  Some EREP jobstreams from Tom Bryant                 *   DOC FILE
//*+File 522:  Write User SMF records from Application Programs     *   DOC FILE
//*+File 523:  General SMF Record Selection Program from Paul Dion  *   DOC FILE
//*+File 524:  EXCP Tape Functions in a Subroutine, from Ron Tatum  *   DOC FILE
//*+File 525:  Zap to CFMON free IBM utility to work past OS/390 2.6*   DOC FILE
//*+File 526:  Top Secret Security Administration package           *   DOC FILE
//*+File 527:  Matthew Stitt collection of programs & new LISTICAT  *   DOC FILE
//*+File 528:  J.McKown REXX--Look at LISTCAT and create IDCAMS srce*   DOC FILE
//*+File 529:  Programs to report CICS SMF records, more - M.Stitt  *   DOC FILE
//*+File 530:  PL/I program to format PL/I programs - Roy Gardiner  *   DOC FILE
//*+File 531:  Compound EXEC to detect DSNames, and other EXECs     *   DOC FILE
//*+File 532:  Extensive collection of Roscoe RPFs - Charles Hottel *   DOC FILE
//*+File 533:  AWS Tape,FKT<->Real Tape Conversion Utilities on MVS *   DOC FILE
//*+File 534:  SPACE command from Paul Dion                         *   DOC FILE
//*+File 535:  Powerful Concat, Alloc, Deconcat CMD from D.Sudibyo  *   DOC FILE
//*+File 536:  CA-Xcom and CA-Dispatch Report Distribution Extension*   DOC FILE
//*+File 537:  Entry and Exit Assembler macros                      *   DOC FILE
//*+File 538:  IPL Text for ZZSA (Standalone Utils) & ZZSA minidisk *   DOC FILE
//*+File 539:  DSNUSAGE - a mini-app in SAS and REXX from H. White  *   DOC FILE
//*+File 540:  PARM Checker Routine - for setting program options   *   DOC FILE
//*+File 541:  CCKD DASD compression routines to be run on MVS      *   DOC FILE
//*+File 542:  Alastair Gray-replacement for MCNVTCAT, other tools  *#  DOC FILE
//*+File 543:  REXXs and Assembler Program to display System Info   *   DOC FILE
//*+File 544:  Material and Code for setting up Stanford PL360      *   DOC FILE
//*+File 545:  Stanford University PL360 EBCDIC distribution        *   DOC FILE
//*+File 546:  Documentation for Stanford PL360                     *   DOC FILE
//*+File 547:  Volker Bandke's Hercules Supplementary Utilities     *   DOC FILE
//*+File 548:  REXX Functions from Alfred Nikolyn                   *   DOC FILE
//*+File 549:  ISPF Dialog to display Unit Names - from Mark Baron  *   DOC FILE
//*+File 550:  Dan Snyder's Structured Macro Toolkit Set            *   DOC FILE
//*+File 551:  Exits to control users of the CONSOLE TSO command    *   DOC FILE
//*+File 552:  COBOL 2 and COBOL/MVS Analysis Program               *   DOC FILE
//*+File 553:  SUBMITC Edit Macro to submit jobs, with "smarts"     *   DOC FILE
//*+File 554:  "MVS Power Programming" ESA Coding Examples          *   DOC FILE
//*+File 555:  Solomon Santos Utility and Subroutine collection     *   DOC FILE
//*+File 556:  HTTP Socket Requestor - Get a text file from the web *   DOC FILE
//*+File 557:  Soundex Code Generator package from Jim Moore        *   DOC FILE
//*+File 558:  Dick Thornton's Large Collection of Assembler Code   *   DOC FILE
//*+File 559:  Dick Thornton's Large Collection of C-Language Code  *   DOC FILE
//*+File 560:  Dick Thornton's Large JCL Collection                 *   DOC FILE
//*+File 561:  Dick Thornton's CLIST Collection                     *   DOC FILE
//*+File 562:  Dick Thornton's EXECs, with PANELS and MESSAGES      *   DOC FILE
//*+File 563:  Dick Thornton's Large Collection of COBOL Code       *   DOC FILE
//*+File 564:  Dick Thornton's Documentation PDS'es                 *   DOC FILE
//*+File 565:  Dick Thornton's Classes - C, COBOL, Dump Reading     *   DOC FILE
//*+File 566:  Sam Bass Utilities collection-copy 256K block tapes  *#  DOC FILE
//*+File 567:  Clark Jennings CSVLLIX2 exit and Module Fetch Stats  *   DOC FILE
//*+File 568:  TSO Games circa 1980 - contributed by Dick Thornton  *   DOC FILE
//*+File 569:  Rules and Notes for File 568 TSO Games               *   DOC FILE
//*+File 570:  MVS Tips and 'How-To's - Please contribute your own! *#  DOC FILE
//*+File 571:  XMIT370 and RECV370 from Jim Morrison                *   DOC FILE
//*+File 572:  MVS zipping programs from Jeff Kaplan                *   DOC FILE
//*+File 573:  IEFUJV exit for System Symbolic substitution in JCL  *   DOC FILE
//*+File 574:  Some MVS 3.8-related items from Wolfgang Schaefer    *   DOC FILE
//*+File 575:  Read and Combine JES2 Spool Offload Files Directly   *   DOC FILE
//*+File 576:  Easy Handy Dataset Copying tool from Mick Sheehy     *   DOC FILE
//*+File 577:  Interesting REXX execs from Pergentino Arias         *   DOC FILE
//*+File 578:  General ISPF Table Handling Facility - Roy Gardiner  *   DOC FILE
//*+File 579:  BREAK and CONTINUE addon macros for HLASM Toolkit    *   DOC FILE
//*+File 580:  New CUT and PASTE macros from Michael R. Smith       *   DOC FILE
//*+File 581:  Complete Disaster Recovery System from Tom Hutchins  *   DOC FILE
//*+File 582:  TAPEMAP for MVS 3.8 (from File 299) and PDSLOAD      *   DOC FILE
//*+File 583:  PROFSET and EPROF packages from Jim Moore            *   DOC FILE
//*+File 584:  AUTOINIT (DASD Initialization in Batch)-Ugur Cilesiz *   DOC FILE
//*+File 585:  AWSSL - Dataset to SL AWS Tape Utility - Reed Petty  *   DOC FILE
//*+File 586:  Generalized ISPF Application Starter - Robin Murray  *   DOC FILE
//*+File 587:  Older VTOC command-improved features-MVS38 can run it*   DOC FILE
//*+File 588:  Automated System Shutdown from Sergey Makogonov      *   DOC FILE
//*+File 589:  HSCTOOL and Utilities - Philippe Leite - HERCMD      *   DOC FILE
//*+File 590:  Exercises from Knuth books in Assembler by C. Hottel *   DOC FILE
//*+File 591:  VM REXXFORM - REXX exec reformatter                  *   DOC FILE
//*+File 592:  DISPLAY function in Assembler programs - R.L. Rice   *   DOC FILE
//*+File 593:  ASMG                                                 *   DOC FILE
//*+File 594:  Dataset Display Facility (DDF) from Roy Gardiner     *   DOC FILE
//*+File 595:  LABEL macro to trace program execution - R.L. Rice   *   DOC FILE
//*+File 596:  SWP EDIT macro from David Chambers                   *   DOC FILE
//*+File 597:  MPF exit to issue START commands based on message id *   DOC FILE
//*+File 598:  Utilities from Richard Rice                          *   DOC FILE
//*+File 599:  REXX execs to summarize the ISPF environment         *   DOC FILE
//*+File 600:  SMF Exit and Programs to process TCP/IP SMF records  *   DOC FILE
//*+File 601:  MVS 3.8 version of QUEUE from Greg Price             *   DOC FILE
//*+File 602:  REXX execs from Mike Newell                          *   DOC FILE
//*+File 603:  QWIKSCAN pds scanning utility from Sebastian Welton  *   DOC FILE
//*+File 604:  Bell SNOBOL4 load module, disassembled SRC & OBJECT  *   DOC FILE
//*+File 605:  ACF2 to RACF password capture conversion aid         *   DOC FILE
//*+File 606:  AWSSL V19J+ - supports creation of HET and AWS tapes *   DOC FILE
//*+File 607:  A free IND$FILE version from Mike Rayborn - V1.0.6   *   DOC FILE
//*+File 608:  Free Space Lister TSO command from Bob Glover        *   DOC FILE
//*+File 609:  RESCUE systems, RACF tool, etc. from John Miller     *   DOC FILE
//*+File 610:  CHANGE71 and WTOR programs from somitcw              *   DOC FILE
//*+File 611:  REXX to submit job based on RC from previous job     *   DOC FILE
//*+File 612:  DUDASD, DSPACE, LOCATE (modules) SYSINCRD - A.Cheng  *   DOC FILE
//*+File 613:  JCL to create and renew a RESCUE system from prod    *   DOC FILE
//*+File 614:  SHOWMVS and SHOWzOS Load Libraries FB-80 XMIT format *   DOC FILE
//*+File 615:  ISPF and DYNALLOC macro libraries - Lionel Dyck      *   DOC FILE
//*+File 616:  Programs etc. from Nigel Thomas                      *   DOC FILE
//*+File 617:  REXX exec to produce SMF 30 Report from P. Berrios   *   DOC FILE
//*+File 618:  Cryptographic Interface from Pergentino Arias        *   DOC FILE
//*+File 619:  Dynamic Proclib modification for MVS 3.8J            *   DOC FILE
//*+File 620:  COBOL precompiler to extend COPY statements          *   DOC FILE
//*+File 621:  NPF Exits-print MVS datasets to PCL network printers *   DOC FILE
//*+File 622:  MATRIX package - easy interface to data spaces       *   DOC FILE
//*+File 623:  Automated System Shutdown and Automated IPL - H Zhou *   DOC FILE
//*+File 624:  FIND REXX to get all instances of a DSN. And TSOUCB. *   DOC FILE
//*+File 625:  REXX to recatalog all datasets listed in a LISTCAT   *   DOC FILE
//*+File 626:  EN (display enqueues), JI (JES2 inits), CSA execs    *   DOC FILE
//*+File 627:  AUTOMAN Console Operations Package                   *   DOC FILE
//*+File 628:  Convert TCP/IP packet trace into TCPDUMP format      *   DOC FILE
//*+File 629:  An SNTP Server from Andrew Armstrong                 *   DOC FILE
//*+File 630:  DFDSS Move/Copy datasets in the foreground           *   DOC FILE
//*+File 631:  REXX to search a pds for strings                     *   DOC FILE
//*+File 632:  BASE64 conversion on MVS for emails - Gary Cherlet   *   DOC FILE
//*+File 633:  Updated DSPACE TSO command and ISPF dialog using it  *   DOC FILE
//*+File 634:  List all or some UCBs defined to your MVS system     *   DOC FILE
//*+File 635:  REXX to generate mass file renames                   *   DOC FILE
//*+File 636:  Execute TSO commands against datasets in LISTC LEV( )*   DOC FILE
//*+File 637:  Program to compare load modules - Nolan Young        *   DOC FILE
//*+File 638:  Send Email With Attachments from Hunter Zhou         *   DOC FILE
//*+File 639:  Set System Clock program from Hunter Zhou            *   DOC FILE
//*+File 640:  VPS Dynamic Separator Page Printer exit              *   DOC FILE
//*+File 641:  For MVS 3.8, Display maxcc in Job Notify Message     *   DOC FILE
//*+File 642:  OPERLOG scan program and SMP/E API interface - R.Hobt*   DOC FILE
//*+File 643:  Paul A. Scott macros and programs including CALENDAR *   DOC FILE
//*+File 644:  FUSION - change management package from J. Caughman  *   DOC FILE
//*+File 645:  Update to SHOWMVS to show if it's running authorized *   DOC FILE
//*+File 646:  CLIST to REXX conversion tool                        *   DOC FILE
//*+File 647:  An XML parser written in REXX from Andrew Armstrong  *   DOC FILE
//*+File 648:  GPSAM - General Purpose Access Method - H. Gilbert   *#  DOC FILE
//*+File 649:  PDS2PDS utility from Mike Newell                     *   DOC FILE
//*+File 650:  A CSA Reporting and Tracking Tool from Mike Reeves   *   DOC FILE
//*+File 651:  Batch program to reset BWO flags from Chip Grantham  *   DOC FILE
//*+File 652:  A system-specific FIND utility from Richard Rice     *   DOC FILE
//*+File 653:  Dynamic Allocation utilities from Jim Harrison       *   DOC FILE
//*+File 654:  TSO FSI - Full Screen Interface from Tommy Sprinkle  *   DOC FILE
//*+File 655:  Catalog Cleanup Tool from David Kopischke            *   DOC FILE
//*+File 656:  Large collection of REXX utlities from Kannan Ak     *   DOC FILE
//*+File 657:  z/OS 1.4 RESCUE system build, from Kevin Mitts       *   DOC FILE
//*+File 658:  CRC check Assembler program and REXX that calls it   *   DOC FILE
//*+File 659:  Create P/390 DASD recipe - from Glenn Siegel         *   DOC FILE
//*+File 660:  Edit macro to check REXX execs for compile errors    *   DOC FILE
//*+File 661:  HOTRDR package to submit jobs, from Peter McFarland  *   DOC FILE
//*+File 662:  Automated system to convert CA-1 to FLEX-ES Faketape *   DOC FILE
//*+File 663:  Public Domain C Runtime Library                      *   DOC FILE
//*+File 664:  Date Conversion Routines and programs - Jay Moseley  *   DOC FILE
//*+File 665:  Field fixing routines from Jay Moseley               *   DOC FILE
//*+File 666:  Random number generator and COMB sort implementation *   DOC FILE
//*+File 667:  An RPG Tutorial from Jay Moseley - see File 327 also *   DOC FILE
//*+File 668:  OFFLOAD JES2 spool to datasets, from Hunter Zhou     *   DOC FILE
//*+File 669:  REXX save & retrieve variables, read/write VSAM-more *#  DOC FILE
//*+File 670:  REXX math function package                           *   DOC FILE
//*+File 671:  ZOOM edit macro to "cursor retrieve" datasets        *   DOC FILE
//*+File 672:  NETINIT - issue system cmds after VTAM is up, etc.   *   DOC FILE
//*+File 673:  CCFDELET utility to delete datasets using JCL        *   DOC FILE
//*+File 674:  REXX-based TSO/ISPF toolkit from Robin Murray        *   DOC FILE
//*+File 675:  REXX execs pertaining to DB2 by Isaac Yassin         *   DOC FILE
//*+File 676:  VPS exits and other exits from Jim Marshall          *   DOC FILE
//*+File 677:  Parallel Sysplex Manager ISPF Application, M.Willemse*   DOC FILE
//*+File 678:  Write DFDSS dump to AWS-format file instead of a tape*   DOC FILE
//*+File 679:  Edit macro to construct a flowchart from JCL w/VISIO *   DOC FILE
//*+File 680:  Edit Macro, ISPF, REXX, PDSMAN courses - Bruce Koss  *   DOC FILE
//*+File 681:  Updated PL/I Execution Analyzer (PLEA) from Bob Styma*   DOC FILE
//*+File 682:  ESO command processor to display Esoterics           *   DOC FILE
//*+File 683:  BPXSTOP URL from IBM with their website infromation  *   DOC FILE
//*+File 684:  Rick Fochtman's PDSUPDTE program and misc. exits etc.*   DOC FILE
//*+File 685:  TXT2XML - Text to XML and back, from Pierre Delaunoy *   DOC FILE
//*+File 686:  SMFDUMP program                                      *   DOC FILE
//*+File 687:  Compare VVDS'es to referenced Catalogs               *   DOC FILE
//*+File 688:  IMS - Generate DBRC INIT commands automat. + ACBLIST *   DOC FILE
//*+File 689:  Peter Sawyer's famous paper on how to use SVC 26     *   DOC FILE
//*+File 690:  Cross Memory storage browser from Martin Kline       *   DOC FILE
//*+File 691:  READSEQ program to pick records, and BRODCAST stuff  *   DOC FILE
//*+File 692:  UATAPE tape mapping and copying utility-D. Merrifield*   DOC FILE
//*+File 693:  PDSCLEAN program: expand dir & empty PDS, empty PDSE *   DOC FILE
//*+File 694:  MACTREE macro from Mark Yuhas to do a binary search  *   DOC FILE
//*+File 695:  Useful REXX execs from J.D. Acevedo                  *   DOC FILE
//*+File 696:  System to imitate z/OS tape robot on FLEX-ES         *   DOC FILE
//*+File 697:  Reports for CICS/TS using Linux, Perl, and PostgreSQL*   DOC FILE
//*+File 698:  RACF reporting using Linux, Perl, and PostgreSQL     *   DOC FILE
//*+File 699:  ISPF/assembler SUBMIT edit macro, returns JOB id     *   DOC FILE
//*+File 700:  Useful ISPF REXX execs from Jim Haire                *   DOC FILE
//*+File 701:  DB2 Admin helpers from Marino Drazeta                *   DOC FILE
//*+File 702:  JES2 Mellon Mod equivalents at z/OS 1.6 level, etc.  *   DOC FILE
//*+File 703:  Program to convert Fujitsu FAL stats to ISPF stats   *   DOC FILE
//*+File 704:  DRDASD program to report status of your disk packs   *   DOC FILE
//*+File 705:  Performance tuning z/OS on Flex-ES using TSSO, etc.  *   DOC FILE
//*+File 706:  Create line charts from your data using SVG          *   DOC FILE
//*+File 707:  Customize ISPF 3.4 dataset lists according to users  *   DOC FILE
//*+File 708:  A very general MPF exit system with great capability *   DOC FILE
//*+File 709:  MPFCMD program from Bob Shannon                      *   DOC FILE
//*+File 710:  TSO commands to display DASD volume and dataset recds*   DOC FILE
//*+File 711:  Free LIBRARIAN program package                       *   DOC FILE
//*+File 712:  Send a file or send mail from CICS using TCP/IP      *   DOC FILE
//*+File 713:  The EMPTYPDS batch program to "empty" a pds          *   DOC FILE
//*+File 714:  FLEXCLI program to issue FLEXES commands on MVS      *   DOC FILE
//*+File 715:  Tape Erase Program                                   *   DOC FILE
//*+File 716:  QUERYENQ ISPF implementation from Jim Moore          *   DOC FILE
//*+File 717:  JumpList program package from Joseph Caughman        *   DOC FILE
//*+File 718:  TSO or JES/MSTR Logon, Garry Green-Futurity Software *   DOC FILE
//*+File 719:  Offline DASD Dump/Restore Program from Greg Smith    *   DOC FILE
//*+File 720:  Collection of Utilities from Bill Sweeney            *   DOC FILE
//*+File 721:  ChangeWiz - Program Change History - Shirley Huhtanen*   DOC FILE
//*+File 722:  FileWiz - File Compare Program from Shirley Huhtanen *   DOC FILE
//*+File 723:  Available Storage Displays, from Jim Moore           *   DOC FILE
//*+File 724:  HLASM Toolkit Improvements from Ed Jaffe             *   DOC FILE
//*+File 725:  CICS Auxiliary Trace Analyzer from Andrew Armstrong  *   DOC FILE
//*+File 726:  Generate VSAM DEFINE statements from VSAM file       *   DOC FILE
//*+File 727:  COPYVBS program using EXCP to read full 3390 tracks  *   DOC FILE
//*+File 728:  ICHPWX01 - RACF Password Quality Exit - Dave Jousma  *   DOC FILE
//*+File 729:  MAXITRAN REXX to script batch FTP from an MVS client *   DOC FILE
//*+File 730:  Program to run COBOL programs in batch under z/OS.e  *   DOC FILE
//*+File 731:  IKJTSOxx Parmlib info-Display/Chg XMIT parms-UCBDASD *#  DOC FILE
//*+File 732:  A familiar version of the WHOHAS command             *   DOC FILE
//*+File 733:  ALGOL 68C Cambridge University distribution - 1976   *   DOC FILE
//*+File 734:  Original PDS command, circa 1975. Still works.       *   DOC FILE
//*+File 735:  Edit macros from Tom Barthold                        *   DOC FILE
//*+File 736:  Perl Script from Mark Naughton to display IODF detail*   DOC FILE
//*+File 737:  Package to clear all DASD to X'00' after D/R Test    *   DOC FILE
//*+File 738:  Package to reallocate and reorg VSAM clusters        *   DOC FILE
//*+File 739:  Heavy Duty ISPF Commands Tool - by Ron Brown         *   DOC FILE
//*+File 740:  REXX Package to Execute SQL statements - Alan Wynne  *   DOC FILE
//*+File 741:  BASE64 encoding and decoding program in Assembler    *   DOC FILE
//*+File 742:  PDS member versioning tool from Bob Birdsall         *   DOC FILE
//*+File 743:  MODLIST program from Terry Miller                    *   DOC FILE
//*+File 744:  RACF "Rules" Enforcer - RRE 3.40                     *   DOC FILE
//*+File 745:  FM "File Formatter" program package                  *   DOC FILE
//*+File 746:  MVS and C Versions of Richard Tsujimoto's Parser     *   DOC FILE
//*+File 747:  System Logger Reader - from Mark Naughton            *   DOC FILE
//*+File 748:  BASE64 to text decoding; EMAIL Change Approval System*   DOC FILE
//*+File 749:  Gilbert Saint-flour Utilities adapted for MVS 3.8    *   DOC FILE
//*+File 750:  ISPF Productivity REXX EXECs by Ted MacNeil          *   DOC FILE
//*+File 751:  Tape Programs and Code from somitcw                  *   DOC FILE
//*+File 752:  ISPF Profile Dumping Utility from Robin Ryerse       *   DOC FILE
//*+File 753:  Robin Ryerse's REXX Function Package                 *   DOC FILE
//*+File 754:  ISPF Profile Searching Tool from Henrik Salminen     *   DOC FILE
//*+File 755:  Improved version of JRP which runs on MVS 3.8        *   DOC FILE
//*+File 756:  Powerful JCL preprocessor from Daniel Gaeta          *   DOC FILE
//*+File 757:  LOGGRASM Utility to track Assembler code execution   *   DOC FILE
//*+File 758:  LOADWORD package from Craig Schneiderwent            *   DOC FILE
//*+File 759:  CICS MQ api crossing exit to trace MQ api calls      *   DOC FILE
//*+File 760:  Ken Tomiak's z/OS and PC sysprog helper's package    *   DOC FILE
//*+File 761:  FINDALL package of REXX execs from Mark Baron        *   DOC FILE
//*+File 762:  DDNAME info to nullify OEM products, and JCL info    *   DOC FILE
//*+File 763:  Convert FB-80 Hex to 2 lines printable and back, more*   DOC FILE
//*+File 764:  Alex Kara Utility REXXes, etc.                       *   DOC FILE
//*+File 765:  Forms Based Authentication for HTTP Server under z/OS*   DOC FILE
//*+File 766:  Shared Spool Mods-"Mellon"-for JES2 z/OS 1.7 and 1.8 *   DOC FILE
//*+File 767:  REXX Frontends for TERSE and UNTERSE - D. Gaeta      *   DOC FILE
//*+File 768:  VM/CMS version of VTT2DISK, VTT2TAPE... from File 533*   DOC FILE
//*+File 769:  R. Prins' edit macros to convert code/text into HTML *   DOC FILE
//*+File 770:  Event Management System for Automation - Deru Sudibyo*   DOC FILE
//*+File 771:  ICSF (Cryptographic Services Facility) Monitor       *   DOC FILE
//*+File 772:  Stephen Bacher collected public work                 *   DOC FILE
//*+File 773:  Disassemble a Chunk of Storage - Arthur Fichtl       *   DOC FILE
//*+File 774:  Upgraded 80-byte compress program like CBT973-RL Rice*   DOC FILE
//*+File 775:  App under CICS COBOL to respond to HTTP requests     *   DOC FILE
//*+File 776:  RECV390 for the PC, zip file from Edgar Hofmann      *   DOC FILE
//*+File 777:  REXX exec to measure disk occupancy - Philippe Cochy *   DOC FILE
//*+File 778:  Programs to access GIMAPI (SMP/E API) using REXX     *   DOC FILE
//*+File 779:  COBOL pgm to access SDSF and do Symbolic JCL Substit.*   DOC FILE
//*+File 780:  Fullscreen interface using REXX without ISPF- D.Gaeta*   DOC FILE
//*+File 781:  Modification of IBM Sample RACSEQ program - J. McKown*   DOC FILE
//*+File 782:  Powerful Windows program to look at AWS-format tapes *   DOC FILE
//*+File 783:  PL/I Scientific Subroutine Package for 360 (OS)      *   DOC FILE
//*+File 784:  J.McKown implementations of a "Dataset List" web page*   DOC FILE
//*+File 785:  Substitute system symbols into JCL - K-H Doppelfeld  *   DOC FILE
//*+File 786:  Separate CBTF1.zip file into separate HTML datasets  *   DOC FILE
//*+File 787:  Send data to remote hosts in multi-Sysplex environmnt*   DOC FILE
//*+File 788:  MA1K Application for MQ series by C.Schneiderwent    *   DOC FILE
//*+File 789:  Batch job to automate and email IBM's SCRT report    *   DOC FILE
//*+File 790:  SRS (Sysout Retrieval Services) pkg from Dave Danner *   DOC FILE
//*+File 791:  STORAGE OBTAIN/RELEASE REXX Function - Anthony Rudd  *   DOC FILE
//*+File 792:  DISKMAP for z/OS EAV support-earlier z/OS too.       *   DOC FILE
//*+File 793:  R.L.Rice updates for SDF 3.4 - alpha                 *   DOC FILE
//*+File 794:  RXMEM REXX function - beta version - from D.F.Gaeta  *   DOC FILE
//*+File 795:  HTTP Server in Assembler--ALPHA--needs expert to fix.*   DOC FILE
//*+File 796:  Lindy Mayfield Utilities                             *   DOC FILE
//*+File 797:  LWATMGR, LLWA, TSUB.Fix your TSO session auth tables *#  DOC FILE
//*+File 798:  Job Scheduler written in COBOL from Kevin Dengsong   *   DOC FILE
//*+File 799:  SMF Type 30 post processor written in COBOL          *   DOC FILE
//*+File 800:  RECEIVE/UNXMIT tool written in REXX for the PC       *   DOC FILE
//*+File 801:  Create Browseable Bar Charts in Silverlight format   *   DOC FILE
//*+File 802:  DELINK program in C from Jason Winter                *   DOC FILE
//*+File 803:  ISPF Macro collection                                *   DOC FILE
//*+File 804:  TAPEMAP reworked with JUMP instructions              *   DOC FILE
//*+File 805:  Establish SNMP sub-agent, and an EMC monitoring STC..*   DOC FILE
//*+File 806:  SMF 110 CICS Performance Monitor Analysis Tools      *   DOC FILE
//*+File 807:  HFSELECT and SUPRDUMP from M.Karlin and others       *   DOC FILE
//*+File 808:  PC un-XMIT in object REXX. ZIP file from File 800.   *   DOC FILE
//*+File 809:  Fixed DITTO from Richard L. Rice                     *   DOC FILE
//*+File 810:  Fixed ONSCREEN rework of FM (File 745) from R.L. Rice*   DOC FILE
//*+File 811:  Fixed LIBRARIAN from Richard L. Rice (was File 711)  *   DOC FILE
//*+File 812:  Fixed DISASM from Richard L. Rice (was on File 171)  *   DOC FILE
//*+File 813:  Fixed SUTL from Richard L. Rice (was on File 171)    *   DOC FILE
//*+File 814:  Old XEPHON MVS articles in zipped text - from E.Vogt *   DOC FILE
//*+File 815:  SRCHE multiple dataset search facility - Bob Glover  *   DOC FILE
//*+File 816:  Instant change of Default Notices number in ACCT/SYNC*   DOC FILE
//*+File 817:  FIXCATLG program - Other pgms from M. Wojtukiewicz   *   DOC FILE
//*+File 818:  Assembler stub to call AMODE64 module from COBOL pgm *   DOC FILE
//*+File 819:  RACF Exit Dynamic UPDATE/DELETE/REMOVE Facility "ICH"*   DOC FILE
//*+File 820:  64/20 Assembly Language Development Platform-R.Harper*   DOC FILE
//*+File 821:  CC - ISPF Edit Macro to plug values into a Skeleton  *   DOC FILE
//*+File 822:  Softcap CPU Utilization and Measuring Tool for LPARs *   DOC FILE
//*+File 823:  Expand ISPF command shell panel to retain 20 commands*   DOC FILE
//*+File 824:  ISPF-based VTOC zapper that interfaces with RACF     *   DOC FILE
//*+File 825:  SSL Handshake diagnosis program                      *   DOC FILE
//*+File 826:  TSO command to make a job cancelable or non-swap etc.*#  DOC FILE
//*+File 827:  RACF Profiling Utility from John C. Miller           *   DOC FILE
//*+File 828:  Updated DELAY program from somitcw                   *   DOC FILE
//*+File 829:  TIDYASM program to neaten Assembler source code      *   DOC FILE
//*+File 830:  XEPHON MVS articles from 07/1987 thru 12/1996 EBCDIC *   DOC FILE
//*+File 831:  Dynamic Concatenation TSO command                    *   DOC FILE
//*+File 832:  Package to Print MVS files on TCPIP printers         *   DOC FILE
//*+File 833:  Label Aid Facility to look at COBOL programs in ISPF *   DOC FILE
//*+File 834:  Dataset Migration Allocation Aid facility+Misc REXX's*   DOC FILE
//*+File 835:  Programs and REXX to display the PPT under ISPF & TSO*   DOC FILE
//*+File 836:  Xephon MVS Update programs/other pgms working on z/OS*   DOC FILE
//*+File 837:  Exits. Inform TSO user about pending files to RECEIVE*   DOC FILE
//*+File 838:  Dynamic Allocation macro that generates SVC99 params *   DOC FILE
//*+File 839:  Long Parameters in EXEC - JCL symbolic substitution  *   DOC FILE
//*+File 840:  ICSF KGUP exit to make updates dependent on RACF     *   DOC FILE
//*+File 841:  Run CA-Optimized COBOL pgms with CA-Optimizer removed*   DOC FILE
//*+File 842:  Create multiple XMIT-format datasets on MVS by prefix*   DOC FILE
//*+File 843:  Panel recovery of HSM datasets from ISPF 3.4 or 6    *   DOC FILE
//*+File 844:  ENQWATCH - Long running task - announce ENQ conflicts*   DOC FILE
//*+File 845:  HOSTCMD, SYSCMD, RUNAUTH from G. Bliznets            *   DOC FILE
//*+File 846:  TRK0SAVE, TRK0UPD, EOFDISK by somitcw +"ONLINE CLIP" *#  DOC FILE
//*+File 847:  Development of COPYMODS program thru 88 versions     *   DOC FILE
//*+File 848:  LIBSPOOL                                             *   DOC FILE
//*+File 849:  Display TSO Users - DT cmd, Display Active - DA cmd  *   DOC FILE
//*+File 850:  RAKF Security System for MVS 3.8                     *   DOC FILE
//*+File 851:  RMMCOPY - generate JCL to copy tapes with 256K blocks*   DOC FILE
//*+File 852:  GCCMVS - GCC C-Compiler and Library - 3.2.3 MVS 9.0  *   DOC FILE
//*+File 853:  GCCMVS - GCC C-Compiler and Library - 3.4.6 MVS 1.0  *   DOC FILE
//*+File 854:  Free Instructional Papers from "The Trainer's Friend"*   DOC FILE
//*+File 855:  Excel spreadsheet to figure DASD sizes               *   DOC FILE
//*+File 856:  Shared Spool Mods (Mellon Mods) for z/OS 1.9 - 1.13  *   DOC FILE
//*+File 857:  Interactive EREP Report from Marco Serafini          *   DOC FILE
//*+File 858:  Clemson University Structured Macro Library          *   DOC FILE
//*+File 859:  Clemson University Service Processor Source Modules  *   DOC FILE
//*+File 860:  Gerhard Postpischil miscellaneous source code        *   DOC FILE
//*+File 861:  Gerhard Postpischil macro library                    *   DOC FILE
//*+File 862:  Gerhard Postpischil more code                        *   DOC FILE
//*+File 863:  IKJEFF10 TSO SUBMIT exit - J. Callihan               *   DOC FILE
//*+File 864:  John McKown UNIX Shell Commands for z/OS             *   DOC FILE
//*+File 865:  Free zip/unzip (MINIZIP and MINIUNZ) for MVS         *   DOC FILE
//*+File 866:  BSPUFI - C SQL-DB2-TSO Processor/Executor/Monitor    *   DOC FILE
//*+File 867:  RDW2VB (add BDWs) and RECU2AWS programs from somitcw *   DOC FILE
//*+File 868:  DISKCOMP trk-by-trk compare of 2 offline DASD packs  *   DOC FILE
//*+File 869:  Getmain/Freemain Trace with IPCS support             *   DOC FILE
//*+File 870:  HTTP REXX scripts from Rick Turnbull                 *   DOC FILE
//*+File 871:  Un-XMIT for Android - from Roland Scholz             *   DOC FILE
//*+File 872:  z/OS port of Julian Seward's bzip2 library - R.Scholz*   DOC FILE
//*+File 873:  Macros for ULUT-based UCB scans. 64-bit ULUT, Type 3.*   DOC FILE
//*+File 874:  HELP members for some programs in the CBT collection *   DOC FILE
//*+File 875:  ALGOL 68C from Chris Cheney, et al                   *   DOC FILE
//*+File 876:  ALGOL F v2.1 source and executables from T.Armstrong *   DOC FILE
//*+File 877:  MAKE tool for z/OS. Includes V/B/E macros.           *   DOC FILE
//*+File 878:  TSO BURN command newly rewritten by Joe Reichman     *   DOC FILE
//*+File 879:  TSOFIND from Tom Hall. Also fixed for z/OS.          *   DOC FILE
//*+File 880:  Extension of ADRDSSU to manage dumps in a network    *   DOC FILE
//*+File 881:  Modification to Excel format Julian Calendar from CBT*   DOC FILE
//*+File 882:  Console Automation Tools                             *   DOC FILE
//*+File 883:  Manage DFHSM migration in a small environment        *   DOC FILE
//*+File 884:  Abe Kornelis macro library and other tools           *   DOC FILE
//*+File 885:  Disassembler with Jump Instructions-from Albert Cheng*   DOC FILE
//*+File 886:  Init large quantities of DASD volumes - Ed Petka     *   DOC FILE
//*+File 887:  Scott Vetter collection of mods and pgms for MVS 3.8J*   DOC FILE
//*+File 888:  MVSEXP - Browse z/OS system info with a web browser  *   DOC FILE
//*+File 889:  Hercules 3.12 - 64 bit for Windows + Hyperion 4.4.1  *   DOC FILE
//*+File 890:  SIMULA 360/370 Compiler, Library, and PDF Format Doc *#  DOC FILE
//*+File 891:  REXX to flowchart, graph structure of COBOL programs *   DOC FILE
//*+File 892:  TERSE pgms - DOS, OS/2, AIX, Windows, Linux, Mac OS-X*   DOC FILE
//*+File 893:  SMFLOG - SMF Type 4, 20, 35 - Logons, Logoffs, Inits *   DOC FILE
//*+File 894:  Collection of helpful REXX execs for OE from R.Zenuk *   DOC FILE
//*+File 895:  STEMEDIT update and related mods to File 183-R.Nowak *   DOC FILE
//*+File 896:  Misc. TSO Tools - from SHARE 1993 - still useful     *   DOC FILE
//*+File 897:  Port of SQLITE 3.8 to z/OS - File 923 is newer...    *   DOC FILE
//*+File 898:  Alex Kara collected works                            *   DOC FILE
//*+File 899:  TSO command DACEE - Display and Format an ACEE       *   DOC FILE
//*+File 900:  MD5 and SHAx calculation programs for MVS and z/OS   *   DOC FILE
//*+File 901:  ASSIST assembler presented by Jay Moseley            *   DOC FILE
//*+File 902:  Callable Date Conversion routines from Jay Moseley   *   DOC FILE
//*+File 903:  Field formatting routines from Jay Moseley           *   DOC FILE
//*+File 904:  IBM Connect:Direct add-ons and exits from A. Cieri   *   DOC FILE
//*+File 905:  Common Storage info about selected PARMLIB members   *   DOC FILE
//*+File 906:  STLSPACE (nice LSPACE command) from Steve McColley   *   DOC FILE
//*+File 907:  XiFrame XMI Explorer for the PC, from Nick Barnes    *   DOC FILE
//*+File 908:  ISPF Client Server Local Dialogs and Facilities      *   DOC FILE
//*+File 909:  GSMAIL - package to email CA-Dispatch reports        *   DOC FILE
//*+File 910:  NoSQLz DBMS from Thierry Falissard                   *   DOC FILE
//*+File 911:  Problems from "The REXX Language on TSO" - Gargiulo  *   DOC FILE
//*+File 912:  Don Higgins macro collections and programs           *   DOC FILE
//*+File 913:  Send z/OS SMS free space data to an iPhone           *   DOC FILE
//*+File 914:  Shared Spool Mods (Mellon Mods) for z/OS 2.1         *   DOC FILE
//*+File 915:  Generic Tracker Facility - ISPF dialog, EAV planning *   DOC FILE
//*+File 916:  Xmit Manager - installable on Win-64-bit - RAR format*   DOC FILE
//*+File 917:  SELECTIT - Extremely powerful file manipulaton & copy*   DOC FILE
//*+File 918:  Port of BASH 4.2 to z/OS - executables only          *   DOC FILE
//*+File 919:  Port of BASH 4.2 to z/OS - with source & executables *   DOC FILE
//*+File 920:  Generate DEFINE statements from existing VSAM file   *   DOC FILE
//*+File 921:  ISPFDSN utility. Allocate ISPF datasets in native TSO*   DOC FILE
//*+File 922:  DSPACE TSO command tailored for EAV volumes          *   DOC FILE
//*+File 923:  SQLITE 3.8.7 for z/OS, ported by John McKown         *   DOC FILE
//*+File 924:  LDSI list information about datasets (from ISPF 3.4) *   DOC FILE
//*+File 925:  ENL - enlarge non-VSAM and VSAM datasets             *   DOC FILE
//*+File 926:  AMORT - payment schedule pgm from Phil Polchinski    *#  DOC FILE
//*+File 927:  PRMEVSAM program from Steve Wentworth                *   DOC FILE
//*+File 928:  Adaptation of regex.h header file to COBOL copybooks *   DOC FILE
//*+File 929:  REALNAME REXX function for GDG's etc.                *   DOC FILE
//*+File 930:  Support material for Phil Polchinski Calendar File   *   DOC FILE
//*+File 931:  Code from "TSO CLIST to TSO REXX Conversion Handbook"*   DOC FILE
//*+File 932:  Calendar File (EBCDIC) - LRECL=35                    *   DOC FILE
//*+File 933:  Calendar File (ASCII text with Doc - zipped)         *   DOC FILE
//*+File 934:  DFSORT job to produce maximum Calendar File          *   DOC FILE
//*+File 935:  SQLITE 3.8.11 for z/OS, ported by John McKown        *   DOC FILE
//*+File 936:  Port of NAWK (New AWK) to z/OS from John McKown      *   DOC FILE
//*+File 937:  EMPTY                                                *   DOC FILE
//*+File 938:  SSINFO program                                       *   DOC FILE
//*+File 939:  PCRE2-Perl-Compatible Regular Expressions 10.42 z/OS *   DOC FILE
//*+File 940:  Program to list libraries controlled by LLA          *   DOC FILE
//*+File 941:  G. Bliznets utilities - AMBLIST, DDL, ISP<->CSV      *   DOC FILE
//*+File 942:  Display VSAM info from ISPF 3.4. Create DEFINE's     *   DOC FILE
//*+File 943:  Xephon CICS Update articles - Sep 87 thru Jan 93     *   DOC FILE
//*+File 944:  Xephon SNA Update articles - Mar 91 thru Dec 92      *   DOC FILE
//*+File 945:  Xephon VSAM Update articles - Apr 91 thru Jan 93     *   DOC FILE
//*+File 946:  Xephon VM Update articles - Sep 87 thru Jan 93 (SDS) *   DOC FILE
//*+File 947:  Xephon VSE Update articles - Mar 91 thru Dec 92 (SDS)*   DOC FILE
//*+File 948:  CICS and DB2 SMF execs - PDS2SEQ                     *   DOC FILE
//*+File 949:  PDSUR - IEHMOVE substitute - easier to use           *   DOC FILE
//*+File 950:  Norbert Haas REXX Utilities - AUTOMAT etc.           *   DOC FILE
//*+File 951:  GDGP Utility for GDG's from Nick Light               *   DOC FILE
//*+File 952:  Valuable OS/360 Documents in PDF format              *   DOC FILE
//*+File 953:  John Gateley macro library and utilities             *#  DOC FILE
//*+File 954:  Make addrspce CANCELABLE, FORCIBLE, NON-*** and more *   DOC FILE
//*+File 955:  z/OS Remote Syslog Facility - John C. Miller         *   DOC FILE
//*+File 956:  Steve Myers programs: DSREF, ICOPY, DASDSUM, etc.    *   DOC FILE
//*+File 957:  IEBUPDTX program, macros, etc. from Seymour Metz     *   DOC FILE
//*+File 958:  Manipulate and Display the TSO Relogon Buffer        *   DOC FILE
//*+File 959:  Release unused DASD space without opening datasets   *   DOC FILE
//*+File 960:  REXX execs to use & demonstrate many useful z/OS APIs*   DOC FILE
//*+File 961:  Additional ISPF Edit and View commands, Yves Colliard*   DOC FILE
//*+File 962:  ISPF Interface for Mounting and Unmounting UNIX files*   DOC FILE
//*+File 963:  Dynamic ISPF file allocation pkg from Al Ferguson    *   DOC FILE
//*+File 964:  Display VSAM dataset details ISPF 3.4 or PDS LISTC/F *   DOC FILE
//*+File 965:  SQLITE 3.21.0 for z/OS, ported by John McKown        *   DOC FILE
//*+File 966:  HLASM - TSO prompter to run High-Level Assembler     *   DOC FILE
//*+File 967:  CBT Usermods Collection for ISPF (CUCI)              *#  DOC FILE
//*+File 968:  Show PARMLIB concatenation in ISRDDN format          *   DOC FILE
//*+File 969:  PDSEGEN multi-utility for PDSE v2 member generations *#  DOC FILE
//*+File 970:  Ken Tomiak's version of RCNVTCAT (batch job)         *   DOC FILE
//*+File 971:  Program EMPTYTST: is a dataset or pds member empty?  *   DOC FILE
//*+File 972:  GENIE edit macro - like IBM's MODEL but extensible   *   DOC FILE
//*+File 973:  WATFIV (Fortran) compiler and library                *   DOC FILE
//*+File 974:  Rewrite of TSSO/AOF using enhanced console support   *   DOC FILE
//*+File 975:  Count & Statistics of Reserved Words in a COBOL pgm  *   DOC FILE
//*+File 976:  USYNC command: ADD/DEL userid entry in Broadcast DS  *   DOC FILE
//*+File 977:  URL Table for MOSHIX YouTube Mainframe Videos        *#  DOC FILE
//*+File 978:  Beta version of GENIE edit macro - from K. Tomiak    *   DOC FILE
//*+File 979:  ZZSA Tutorial Package - complete setup to learn ZZSA *   DOC FILE
//*+File 980:  ZAP for TASID 5.21 to fix Initiator Display (4)      *   DOC FILE
//*+File 981:  REXX Utilities from Larry Zuckett                    *   DOC FILE
//*+File 982:  JOL from Clement Clarke                              *   DOC FILE
//*+File 983:  Mainframe Software Installation Customizer (MSIC)    *   DOC FILE
//*+File 984:  Ken Tomiak REXX execs                                *   DOC FILE
//*+File 985:  REXX execs from Marius Lewin                         *   DOC FILE
//*+File 986:  A TSO PUTLINE programming interface - W. Jensen      *   DOC FILE
//*+File 987:  Programs from NaSPA VIP tape, fixed to run on z/OS   *   DOC FILE
//*+File 988:  OS/360 Storage Zap - original program from S. Metz   *   DOC FILE
//*+File 989:  FINDMEM package. Give member name, find the datasets *   DOC FILE
//*+File 990:  ISPF Developer Tips and Tricks - doc and code - V1.10*   DOC FILE
//*+File 991:  From John Hamlet - SVCUPDTE                          *   DOC FILE
//*+File 992:  Example code to put "security" in TSO commands       *   DOC FILE
//*+File 993:  COBOL program to read many types of SMF records      *   DOC FILE
//*+File 994:  TSO commands - Display entire load modules in hex    *   DOC FILE
//*+File 995:  WYLBUR and accessory tools for MVS 3.8 and MVS/SP    *   DOC FILE
//*+File 996:  Slaten pkgs-Loadlib Scanner, Rexx Toolkit, String pkg*   DOC FILE
//*+File 997:  ISPF Git Interface - ZIGI                            *#  DOC FILE
//*+File 998:  RACFROD reporting system for RACF                    *   DOC FILE
//*+File 999:  CICSPlex aware batch facility-manage CICS resources  *   DOC FILE
//*+File1000:  Dan Dirkse Edit Macro Mass Change Facility           *   DOC FILE
//*+File1001:  REXX Execs from Peter Vels                           *   DOC FILE
//*+File1002:  SMP/E Tutorial SHARE Presentations - in PDF format   *   DOC FILE
//*+File1003:  Programs from Peter Sylvester                        *#  DOC FILE
//*+File1004:  PRECIS Tape Mapping Program from UNC - improved      *   DOC FILE
//*+File1005:  Assembler Structured Programming Tool Set-Sylvester  *   DOC FILE
//*+FILE1006:  Load Module compare program from Reed Starnes        *   DOC FILE
//*+FILE1007:  DATOC - VTOC zapping tool in Batch from UNC          *   DOC FILE
//*+FILE1008:  ISPPREP modification from Kevin Ferguson             *#  DOC FILE
//*+FILE1009:  DB2 User Defined Functions from Salvador Carrasco    *   DOC FILE
//*+FILE1010:  Some structured macros from Dan Snyder               *   DOC FILE
//*+FILE1011:  SDSF Exit so DA command does not call RMF            *   DOC FILE
//*+FILE1012:  Thoughts for Beginning Systems Programmers           *   DOC FILE
//*+FILE1013:  System Programmer Thoughts from David Spiegel        *   DOC FILE
//*+FILE1014:  REXX code to show the codes from a Jobstraam or TSU  *   DOC FILE
//*+FILE1015:  DB2 Multi-Utility - U. Braeuer - second edition      *   DOC FILE
//*+FILE1016:  TSO commands from Steve Myers                        *   DOC FILE
//*+FILE1017:  Load Module Contents Analyzer - Batch - Steve Myers  *   DOC FILE
//*+FILE1018:  A "super duper" IEFACTRT exit                        *   DOC FILE
//*+FILE1019:  Steve Myers' SMF-related programs                    *   DOC FILE
//*+FILE1020:  Steve Myers' XREFASM package for modern Assemblers   *   DOC FILE
//*+FILE1021:  Steve Myers' improved program to make block letters  *   DOC FILE
//*+FILE1022:  Glenn Siegel automation process for IBM SCRT report  *   DOC FILE
//*+FILE1023:  REXX Xreference Utility from Richard Humphris        *   DOC FILE
//*+FILE1024:  Utilities from Lennie Dymoke-Bradshaw                *   DOC FILE
//*+FILE1025:  Batch DSLIST program from Steve Myers                *   DOC FILE
//*+FILE1026:  Jay Moseley documentation for his favorite utilities *   DOC FILE
//*+FILE1027:  Convert JES2 output to email - P.Lemons              *#  DOC FILE
//*+FILE1028:  SUPERXMT program implemented by Kevin Ferguson       *   DOC FILE
//*+FILE1029:  RXP (EXECIO-like) function package from Daniel Gaeta *   DOC FILE
//*+FILE1030:  RXSQLITE from D.Gaeta-Alternative to SQLITE in REXX  *   DOC FILE
//*+FILE1031:  Find and Fix some irregular ISPF stats               *   DOC FILE
//*+FILE1032:  ZXPC 1.1.0 General "Service Provider" from Ben Marino*   DOC FILE
//*+FILE1033:  REXX routine to calculate dates                      *   DOC FILE
//*+FILE1034:  Easily copy a dataset under ISPF - DSU program       *   DOC FILE
//*+FILE1035:  zPipe - Free Pipes-like package written in REXX      *   DOC FILE
//*+FILE1036:  OS/360 Sort/Merge fixed by Tom Armstrong w/doc       *   DOC FILE
//*+FILE1037:  Disassembler from Gerhard Postpischil and T.Armstrong*   DOC FILE
//*+FILE1038:  System Rexx to Modify the Linklist dynamically       *   DOC FILE
//*+FILE1039:  Version of the LOOK storage browser for MVS 3.8      *   DOC FILE
//*+FILE1040:  Frank Clarke execs-enhance PL/I listings and source  *#  DOC FILE
//*+FILE1041:  B2H - Convert Book Manager and other inputs to HTML  *   DOC FILE
//*+FILE1042:  DEIMBED REXX to allocate temporary ISPF resources    *#  DOC FILE
//*+FILE1043:  A REXX Preprocessor from Edgar Hofmann               *#  DOC FILE
//*+FILE1044:  CBTXREF. Given a member name, get the CBT Tape file  *#  DOC FILE
//*+FILE1045:  DATECONV Assembler macro from Sergey Kenunen         *#  DOC FILE
//*+FILE1046:  Tool to convert ISPF panels into prepped form        *#  DOC FILE
//*+FILE1047:  FINDLIBS and SHOWLIBS execs from Frank Clarke        *#  DOC FILE
//*+FILE1048:  EMPTY                                                *   DOC FILE
//*+FILE1049:  EMPTY                                                *   DOC FILE
//*+FILE1050:  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
//*       Please note that at the www.cbttape.org web site, there   *   DOC FILE
//*       is a button to click concerning the "top 10 most popular  *   DOC FILE
//*       files" that have been downloaded.  This is an indication  *   DOC FILE
//*       of popularity, but you, yourself should search through    *   DOC FILE
//*       File 001 to try and determine what materials will help    *   DOC FILE
//*       you.  However, I have included a few suggestions below.   *   DOC FILE
//*                                                                 *   DOC FILE
//*       ANY COMMENTS ON THIS SUBJECT SHOULD BE ADDRESSED TO       *   DOC FILE
//*       ME (SAM GOLOB).  WRITE ME, AT                             *   DOC FILE
//*                                                                 *   DOC FILE
//* --             email:    sbgolob@cbttape.org                 -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//*    To see a TAPEMAP (CBT File 299) of a current version of      *   DOC FILE
//*    this tape, go to:                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*           http://www.cbttape.org/ftp/cbt/CBTMAP.txt             *   DOC FILE
//*                                                                 *   DOC FILE
//*    Piece of advice - still relevant:                            *   DOC FILE
//*                                                                 *   DOC FILE
//*           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
//*    YOU MAY TRY TO LOOK AT:  (MY PERSONAL OPINIONS ONLY ... )    *   DOC FILE
//*                                                                 *   DOC FILE
//*    Check the "Top Ten" downloads at www.cbttape.org             *   DOC FILE
//*       (out of date, but still interesting)                      *   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.6 PRODUCT ON FILE 182 (MORE UTILITIES ON FILES     *   DOC FILE
//*       296, 112, AND 134) IS INDISPENSABLE.  "PDS 8.6"           *   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 TO INSTALL PDS 8.6.        *   DOC FILE
//*       THIS WILL BE REPAID MANYFOLD, OVER YEARS OF TIME.         *   DOC FILE
//*       PDS 8.6 NOW HAS A QUICK INSTALL PROCEDURE AS WELL.        *   DOC FILE
//*       THE SUPPLEMENTAL UTILITIES HAVE BEEN COLLECTED IN XMIT    *   DOC FILE
//*       FORMAT (ON FILE 182) IN A MEMBER CALLED UTILXMIT.  AND    *   DOC FILE
//*       THE MAIN EXECUTABLE CODE IS IN A MEMBER CALLED Z035XMIT.  *   DOC FILE
//*       THE ONLY THING LEFT TO DO BY HAND, IS TO COPY ALL THE     *   DOC FILE
//*       PANELS AND MESSAGES, AND THERE IS AN INSTALL MEMBER FOR   *   DOC FILE
//*       THAT TOO.  PDS ALSO HAS AN SMP/E INSTALL INCLUDED,        *   DOC FILE
//*       IF YOU WANT TO GO THAT ROUTE.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*    (Note:  All utilities called by File 182 (or at least most   *   DOC FILE
//*            of them) are now in load module format as member     *   DOC FILE
//*            UTILXMIT in File 182.  This is for everyone's        *   DOC FILE
//*            convenience, and to make sure that you are using     *   DOC FILE
//*            the appropriate level of each utility.)              *   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.  REVIEW NOW HAS AN "ISPF EDIT-LIKE" UPDATE    *   DOC FILE
//*       CAPABILITY THAT CAN RUN UNDER "RAW TSO" IN READY MODE,    *   DOC FILE
//*       WHICH DOES NOT NEED ISPF.  A "MUST HAVE" FOR RECOVERY     *   DOC FILE
//*       SITUATIONS.  SEE ALSO:  RFE (Review Front End) THERE.     *   DOC FILE
//*                                                                 *   DOC FILE
//*    FILE 172 FROM DAVID CARTWRIGHT OF SHENSTONE STAFFORDSHIRE 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 (maintained by Sam         *   DOC FILE
//*       Golob and Carlos Aguilera Sr.)                            *   DOC FILE
//*       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 409 and 410  MXI is a multi-function MVS auditor's      *   DOC FILE
//*       tool from Rob Scott.  Use it to poke around the system    *   DOC FILE
//*       while under ISPF.  Try it.  You'll love it!               *   DOC FILE
//*       (Rob now works for Rocket Software, which markets a       *   DOC FILE
//*       commercial version of MXI, but this one is still pretty   *   DOC FILE
//*       good, even on many z/OS 2.3 systems.)                     *   DOC FILE
//*                                                                 *   DOC FILE
//*    FILE 415, which is RPF from Rob Prins.  This is a multi-     *   DOC FILE
//*       utility and file editor, that runs in READY mode on       *   DOC FILE
//*       TSO.  Rob has upgraded RPF more than 10 times, during     *   DOC FILE
//*       the past two years (as of 12/20), and it is very useful   *   DOC FILE
//*       for many purposes.  Try it...!!                           *   DOC FILE
//*                                                                 *   DOC FILE
//*    (Note.  I don't have a current version of QUEUE.  If some    *   DOC FILE
//*     good sweet JES2 expert wants to adapt it for z/OS, it       *   DOC FILE
//*     would be much appreciated by many.  QUEUE is a standard     *   DOC FILE
//*     spool browser on the MVS 3.8 Turnkey (TK4-) system.)        *   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
//*       (I use SPY from File 566.)                                *   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
//*       (Improved by Joe Reichman to eliminate S0C4 abends.)      *   DOC FILE
//*                                                                 *   DOC FILE
//*    Note:  Current application of CMD1 is on MVS 3.8 under       *   DOC FILE
//*           Hercules, in the Turnkey system (TK4-).               *   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
//*       (The AOF part of TSSO was rewritten by Jamie Gibson as    *   DOC FILE
//*       a separate package called AOF.  See File 974)             *   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.6 PRODUCT UNDER TSSO.  PDS 8.6 "COPY"   *   DOC FILE
//*       FUNCTION (TO INVOKE IEBCOPY) SHOULD WORK W/O JES. PDS 8.6 *   DOC FILE
//*       "FIXPDS EXPANDDIR" TO EXPAND A PDS DIRECTORY ON THE FLY,  *   DOC FILE
//*       SHOULD ALSO WORK.  PDS 8.6 "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 RUN IT ON Z/OS 2.1.  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. RUNS ON Z/OS.) *   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
//*       (The world has changed a lot since I wrote this.          *   DOC FILE
//*       Nevertheless you can probably benefit by having a look    *   DOC FILE
//*       at File 071.)                                             *   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
//*                                                                 *   DOC FILE
//*  TOP TEN - Statistics from the www.cbttape.org web site         *   DOC FILE
//*            as to which files were the most popular downloads.   *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*                   CBT Tape Home Page                            *   DOC FILE
//*                                                                 *   DOC FILE
//*   For the last few years, I have only updated the main version  *   DOC FILE
//*   of the CBT Tape around twice a year.  Much new stuff comes    *   DOC FILE
//*   in, in-between these updates, and that can be found on the    *   DOC FILE
//*   CBT "Updates" page.  Therefore, when going to the CBT Tape    *   DOC FILE
//*   site, www.cbttape.org, PLEASE LOOK AT THE UPDATES PAGE        *   DOC FILE
//*   FIRST.                                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*   This is changed from when Arnie distributed the collection,   *   DOC FILE
//*   purely on tapes, and therefore, he made around 15 updates     *   DOC FILE
//*   per year (not TWO, the way I do).  Therefore, the current     *   DOC FILE
//*   tape version, in Arnie's time (before 1991), was CURRENT.     *   DOC FILE
//*                                                                 *   DOC FILE
//*      --------       I M P O R T A N T       --------            *   DOC FILE
//*                                                                 *   DOC FILE
//*   BUT NOW, THE "CURRENT VERSION" IS NOT NECESSARILY CURRENT.    *   DOC FILE
//*                                  -- --- ----------- -------     *   DOC FILE
//*                                                                 *   DOC FILE
//*   SO PLEASE LOOK AT THE UPDATES SECTION OF www.cbttape.org      *   DOC FILE
//*                      FIRST......!!!!!!                          *   DOC FILE
//*                                                                 *   DOC FILE
//*      --------       I M P O R T A N T       --------            *   DOC FILE
//*                                                                 *   DOC FILE
//*      CBT Tape Top Ten most popular file by downloads            *   DOC FILE
//*                                                                 *   DOC FILE
//*   Where do I start?   What are the most popular tools?  Here    *   DOC FILE
//*   is a short list in order of what others are downloading       *   DOC FILE
//*   most often.                                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*                   The most popular download is CBT File         *   DOC FILE
//*                   #1 the directory of the tape. Still           *   DOC FILE
//*    (#1)           tops the download charts--after all,          *   DOC FILE
//*                   "you can't tell the players without a         *   DOC FILE
//*                   program".                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*   File 1 on both the CBT and Overflow (COV) is a complete       *   DOC FILE
//*   index and guide to what is on the tape so if you do not       *   DOC FILE
//*   already have file 1 for the current version of the tape       *   DOC FILE
//*   you will probably want to download it first.  It is           *   DOC FILE
//*   available below in several formats so you can use the one     *   DOC FILE
//*   that is most convenient.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*    File001 - DIRECTORY  Download EBCDIC compressed .ZIP         *   DOC FILE
//*    format for use on MVS                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*    File001 - DIRECTORY  Download ASCII compressed .ZIP          *   DOC FILE
//*    format for use on PC                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*    View File 1 here as ASCII text. This is uncompressed         *   DOC FILE
//*    .TXT which is very large so use one of the .ZIP versions     *   DOC FILE
//*    if you can.                                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*    (#2) File # 183 Gilbert Saint-flour's collection -           *   DOC FILE
//*         SHOWzOS etc   (SHOWzOS is now on File 492)              *   DOC FILE
//*    (#3) File # 182 PDS Command Package - Version 8.6            *   DOC FILE
//*    (#4) File # 020 A collection of System REXX execs (4/8)      *   DOC FILE
//*    (#5) File # 120 Sam Golob's "MVS Tools & Tricks"             *   DOC FILE
//*         articles  (5/9)                                         *   DOC FILE
//*    (#6) File # 172 David Cartwright's collection of             *   DOC FILE
//*         Utilities (6/4)                                         *   DOC FILE
//*    (#7) File # 134 Greg Price Utility collection -              *   DOC FILE
//*         REVIEW, etc.  (7/5)                                     *   DOC FILE
//*    (#8) File # 171 DITTO, TAPEMAP, SMFUTIL, TPX, FX,            *   DOC FILE
//*         SUTL (no BLP req) (8/6)                                 *   DOC FILE
//*    (#9) File # 312 FTPBATCH, XMITIP - others from Lionel        *   DOC FILE
//*         Dyck  (9/7)                                             *   DOC FILE
//*    (#10)File # 071 Documentation for the contents of            *   DOC FILE
//*         other free tapes                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*   The most "popular" files were determined by using the         *   DOC FILE
//*   freeware Analog Web analyzer to review web server logs        *   DOC FILE
//*   from Thu-01-Jul-1999 05:13 to Wed-30-Aug-2000 21:28           *   DOC FILE
//*   (426.68 days).                                                *   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 1000 FILES.              *   DOC FILE
//*                                                                 *   DOC FILE
//*  THE FIRST FIVE 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 A LOT OF    *   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 AT LEAST 9 SEPARATE JOBS. *   DOC FILE
//*                                                                 *   DOC FILE
//*  Please look at File 008 nowadays (12/20), and use the jobs     *   DOC FILE
//*  V500Jnn (different if the current tape is not V500), to load   *   DOC FILE
//*  indiviual files down to disk, from a "tape".                   *   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
//*  On the www.cbttape.org web site, you can get a Tersed backup   *   DOC FILE
//*  of an entire 3390 disk pack, either in DFDSS or FDR format,    *   DOC FILE
//*  which contains all the files in this tape.  Sometimes that     *   DOC FILE
//*  format is more convenient to have, than the tape format.       *   DOC FILE
//*                                                                 *   DOC FILE
//*  Further observations about what you can do....                 *   DOC FILE
//*                                                                 *   DOC FILE
//*  You can use the CBTUPD program, together with IEBUPDTE or      *   DOC FILE
//*  PDSLOAD (File 093) to create a partitioned dataset out of      *   DOC FILE
//*  this file.  It may be easier for you to look at File 001       *   DOC FILE
//*  if you have it broken into many separate members.              *   DOC FILE
//*                                                                 *   DOC FILE
//*  The CBTUPD program is on File 004 or File 006.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*  Load modules of these two programs are on File 035.            *   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.  Check the Updates section of www.cbttape.org ,      *   DOC FILE
//*  for files that were very recently updated.                     *   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
//*  Using files from this tape, downloaded from the CBT Tape       *   DOC FILE
//*  web site:   www.cbttape.org  :                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*  1-  Most files on the web site are in zipped TSO XMIT format.  *   DOC FILE
//*                                                                 *   DOC FILE
//*  2-  After downloading,   unzip the file.  You will get an      *   DOC FILE
//*      EBCDIC file in TSO-XMIT format usually.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*  3-  Upload the file (in BINARY - NO TRANSLATION - no ASCII and *   DOC FILE
//*      no CRLF) to an MVS machine, and under TSO, do a RECEIVE    *   DOC FILE
//*      command against the file:   TSO RECEIVE INDS(file.name)    *   DOC FILE
//*      Answer the prompts appropriately, or keep pressing ENTER,  *   DOC FILE
//*      and you will get a file that is in the same format as on   *   DOC FILE
//*      my MVS machine.  Usually it is a pds.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*      The XMIT-format file must be an EBCDIC file, LRECL=80,     *   DOC FILE
//*      RECFM=FB, in order for the RECEIVE to work.                *   DOC FILE
//*                                                                 *   DOC FILE
//*  4-  If you don't have an MVS machine, and you need to look at  *   DOC FILE
//*      the materials on a pc, use the XMIT manager program that   *   DOC FILE
//*      is available at the www.cbttape.org web site.              *   DOC FILE
//*      A 64-bit version of XMIT manager may be found on CBT       *   DOC FILE
//*      File 916, and may be downloaded to the PC from there.      *   DOC FILE
//*                                                                 *   DOC FILE
//*      On the CBT website home page (www.cbttape.org) there is    *   DOC FILE
//*      a clicker on the left side called:  XMIT Viewers.  Go      *   DOC FILE
//*      there to see a collection of XMIT-file viewers for the     *   DOC FILE
//*      PC or for Android phones, that are available.              *   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
//*   Note - Sam Knutson, who is the webmaster of the CBT Tape      *   DOC FILE
//*          web site:  www.cbttape.org , sometimes will suggest    *   DOC FILE
//*          input to this documentation.  This documentation       *   DOC FILE
//*          is written by Sam Golob, with some of the older parts  *   DOC FILE
//*          written by Arnold Casinghino (the tape's former        *   DOC FILE
//*          editor.)    (from SG-05/17/01)                         *   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 or z/OS  *   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" MVS Utilities Tape without the       *   DOC FILE
//*   initials CBT meaning anything special.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*   (There was once a joke about calling it "Casinghino's         *   DOC FILE
//*    Big Tape", but since Arnie wasn't maintaining it any more,   *   DOC FILE
//*    but that one didn't stick.)                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*          -----------   PLEASE NOTE   ------------               *   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
//*   Sam Golob:  email:  sbgolob@cbttape.org                       *   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
//*   YOU DO NOT HAVE TO BE A MEMBER OF NASPA, SHARE, OR ANY        *   DOC FILE
//*   OTHER ORGANIZATION TO OBTAIN THE CBT TAPE MATERIALS.....      *   DOC FILE
//*                                                                 *   DOC FILE
//*           ****   THEY ARE FREE TO ALL   ****                    *   DOC FILE
//*                                                                 *   DOC FILE
//*   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   DOC FILE
//*                                                                 *   DOC FILE
//*   The principal way, nowadays, of getting CBT Tape information  *   DOC FILE
//*   and materials, is from the CBT Tape web site, which is run    *   DOC FILE
//*   by Sam Knutson.  The address is:                              *   DOC FILE
//*                                                                 *   DOC FILE
//*                    www.cbttape.org                              *   DOC FILE
//*                                                                 *   DOC FILE
//*   Nowadays, we don't give out cd-roms on a regular basis        *   DOC FILE
//*   anymore.  But you can download an AWS-tape version of the     *   DOC FILE
//*   CBT tape from www.cbttape.org, and you can also get DFDSS     *   DOC FILE
//*   or FDR backups of a 3390 format disk, from www.cbttape.org    *   DOC FILE
//*   as well.                                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*   See below for more details and better advice.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   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
//*   This also includes the CBT Overflow tape, and CBT Tape        *   DOC FILE
//*   Version 249 from July 1985, which contains materials          *   DOC FILE
//*   that were previously deleted from the CBT Tape.               *   DOC FILE
//*                                                                 *   DOC FILE
//*   Other previous levels of the tape can be obtained, in AWS     *   DOC FILE
//*   format, from the web page:                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*   http://www.cbttape.org/c249down.htm                           *   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
//*   Most people get these materials from www.cbttape.org.         *   DOC FILE
//*                                                                 *   DOC FILE
//*   Additionally, files that have been updated since the last     *   DOC FILE
//*   version cut of the CBT Tape, may be found in the Updates      *   DOC FILE
//*   section of www.cbttape.org.  Since all updated files are      *   DOC FILE
//*   immediately available to everybody from the website, I only   *   DOC FILE
//*   need to make new version cuts of the tape, two or three       *   DOC FILE
//*   times per year.  (SG - 11/02/2014)                            *   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 EMAIL OR BY       *   DOC FILE
//*    PHONE.    (EMAIL IS BETTER, BUT EITHER WAY WILL DO.)         *   DOC FILE
//*                                                                 *   DOC FILE
//* >> At the www.cbttape.org web site, there is a button to click  *   DOC FILE
//* >> which tells you CONTRIBUTOR INFORMATION.  The information    *   DOC FILE
//* >> there, will be current....                                   *   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@cbttape.org .                       *   DOC FILE
//*                                                                 *   DOC FILE
//*    If the file is large, you can zip 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
//*    If you have any trouble sending anything in to me, please    *   DOC FILE
//*    contact me via email:  sbgolob@cbttape.org  and we can       *   DOC FILE
//*    arrange for some alternative means for sending in your       *   DOC FILE
//*    materials.                                                   *   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
//*    This box is still active as of 12/2020, but I would prefer   *   DOC FILE
//*    that you use other means of sending me stuff.  Please email  *   DOC FILE
//*    me if you hav any questions about anything:                  *   DOC FILE
//*                                                                 *   DOC FILE
//*       sbgolob@cbttape.org                                       *   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
//*    The idea here depends on your situation.  If you don't want  *   DOC FILE
//*    the public to know who you are, you should nevertheless      *   DOC FILE
//*    give ME your contact information.  I will take all support   *   DOC FILE
//*    requests, and will forward them to you.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*  ORDER INFORMATION - ORDER INFORMATION - ORDER INFORMATION      *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*     YOU DO NOT HAVE TO BE A MEMBER OF ANY ORGANIZATION          *   DOC FILE
//*     TO OBTAIN A COPY OF THIS TAPE.  THIS TAPE AND ITS           *   DOC FILE
//*     MATERIALS ARE AVAILABLE TO EVERYONE...                      *   DOC FILE
//*                                                                 *   DOC FILE
//*     All materials in the collection are obtainable at           *   DOC FILE
//*                                                                 *   DOC FILE
//*                       www.cbttape.org                           *   DOC FILE
//*                                                                 *   DOC FILE
//*     A real tape will now be very long, and will probably        *   DOC FILE
//*     fit only on a 3590 cartridge.  A better way of obtaining    *   DOC FILE
//*     all the tape materials at once, is to unload an entire      *   DOC FILE
//*     3390 disk pack containing all the tape files.  This pack    *   DOC FILE
//*     is obtainable, TERSED, in either DFDSS or FDR backup        *   DOC FILE
//*     format, at www.cbttape.org, from a "clicker" on the         *   DOC FILE
//*     site's home page.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*     Other alternatives are available.  See www.cbttape.org      *   DOC FILE
//*                                                                 *   DOC FILE
//*     For example, if you really want to have an actual tape      *   DOC FILE
//*     for yourself, you can download an AWS-format tape image     *   DOC FILE
//*     from the www.cbttape.org web site, FTP it to an FB-80       *   DOC FILE
//*     format disk file on an MVS or z/OS system, and use the      *   DOC FILE
//*     VTT2TAPE program from CBT File 533 to write the actual      *   DOC FILE
//*     tape from the AWS-format image (folded over on MVS or z/OS  *   DOC FILE
//*     to RECFM=FB,LRECL=80 format.  FTP will automatically fold   *   DOC FILE
//*     the file on MVS or z/OS if the file is preallocated as      *   DOC FILE
//*     FB-80 (any BLKSIZE) and the upload is in BINARY.)           *   DOC FILE
//*                                                                 *   DOC FILE
//*     You may want to store AWS-format tape images on a cd-rom    *   DOC FILE
//*     or a DVD disk.  This is a convenient way to keep multiple   *   DOC FILE
//*     tape versions from this collection.  Of course, on a z/OS   *   DOC FILE
//*     system that can't read this format, you have to convert     *   DOC FILE
//*     the tape image to an actual tape, as per the previous       *   DOC FILE
//*     paragraph.  AWS-format tapes are directly readable, as      *   DOC FILE
//*     "tapes", on Hercules systems, however.                      *   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                                          *   DOC FILE
//* --             email:    sbgolob@cbttape.org                 -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//*   EDITOR'S CONTACT INFORMATION:                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*   ADDRESS: (USE THE FOLLOWING ADDRESS - active as of 12/2020)   *   DOC FILE
//*            but email is better.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*            Sam Golob                                            *   DOC FILE
//*            P.O. Box 906                                         *   DOC FILE
//*            Tallman, NY  10982                                   *   DOC FILE
//*                                                                 *   DOC FILE
//* --             EMAIL:    sbgolob@cbttape.org                 -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*   Arnold Casinghino's email address:  arnold32x@gmail.com       *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*   Arnold Casinghino's contact information:  Arnie has not       *   DOC FILE
//*   edited this tape for a long time, but you may reach him       *   DOC FILE
//*   if you would like to say "hello" and thank him, at:           *   DOC FILE
//*                                                                 *   DOC FILE
//*   email:  Arnold Casinghino                *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   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
//*      This also includes the CBT Overflow tape, and CBT Tape     *   DOC FILE
//*      Version 249 from July 1985, which contains materials       *   DOC FILE
//*      that were previously deleted from the CBT Tape.            *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*   DOC FILE
//*                                                                 *   DOC FILE
//*  If you obtain CBT Tape files from www.cbttape.org, the         *   DOC FILE
//*  individual files, either on the CBT directory, or the UPDATES  *   DOC FILE
//*  directory, are in zip'ed TSO XMIT format, so you unzip         *   DOC FILE
//*  them, upload them to the mainframe (binary - no translation),  *   DOC FILE
//*  and do a TSO RECEIVE INDATASET(  ) on them, to re-constitute   *   DOC FILE
//*  how they 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
//*                            (somebody should fix this)           *   DOC FILE
//*          FILE 007     The SYSUPLOG file, sequentialized to      *   DOC FILE
//*                            fit into one CBT File.               *   DOC FILE
//*                                                                 *   DOC FILE
//*    THESE 6 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
//*$%^  Programs used to create this tape have been packaged    ()# *   DOC FILE
//*$%^  in TSO XMIT format on File 008, in member LOADLIB.      ()# *   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 a 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).  Otherwise look at CBT         *   DOC FILE
//*    File 008, members Vvvvjnn, where vvv is the current tape     *   DOC FILE
//*    version (example: 500) and nn goes from 01 thru 10.          *   DOC FILE
//*    These members from File 008 can be used to load individual   *   DOC FILE
//*    files from a CBT Tape, or a CBT Tape image.                  *   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
//*      The UPDATES section of www.cbttape.org contains the        *   DOC FILE
//*      absoluely latest version of each file that we have.        *   DOC FILE
//*                                                                 *   DOC FILE
//*      Sometimes we keep several versions of a program, one       *   DOC FILE
//*      which works on the latest z/OS systems, and others which   *   DOC FILE
//*      work on previous systems, but which are incompatible       *   DOC FILE
//*      with the latest systems.  An example is TSSO on File 404   *   DOC FILE
//*      (latest version) and its member $$PREZ18 which is an       *   DOC FILE
//*      IEBUPDTE-unloaded pds that contains a previous version     *   DOC FILE
//*      of TSSO.  Another example is DSPACE on File 633 (non-EAV   *   DOC FILE
//*      version) and DSPACE on File 922 (EAV version).             *   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@cbttape.org   )  *   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
//*         From the www.cbttape.org website, the CBT directory     *   DOC FILE
//*         contains all materials from the "version cut".  Later,  *   DOC FILE
//*         "in-between" versions of each file, are on the UPDATES  *   DOC FILE
//*         directory of www.cbttape.org.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*      C. If you ever want to know what is on the current version *   DOC FILE
//*         of the tape go to www.cbttape.org , which has all the   *   DOC FILE
//*         information.  If you need to know something specific,   *   DOC FILE
//*         which you can not easily find at the CBT Tape web       *   DOC FILE
//*         site you may email Sam Golob:                           *   DOC FILE
//*                                                                 *   DOC FILE
//*           email:  sbgolob@cbttape.org                           *   DOC FILE
//*                                                                 *   DOC FILE
//*      D. 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
//*      E. There are some older versions of the CBT Tape which     *   DOC FILE
//*         are obtainable at www.cbttape.org.  In particular,      *   DOC FILE
//*         CBT Tape Version 249, from July 1985, is there in its   *   DOC FILE
//*         entirety.  Other tape versions are downloadable in      *   DOC FILE
//*         AWS-format.  Don't forget the "CBT Overflow Tape" !!!   *   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
//*                                                                 *   DOC FILE
//*    All of the tape materials are obtainable from the web site   *   DOC FILE
//*    at  www.cbttape.org  and most people nowadays don't get a    *   DOC FILE
//*    tape.  You can split a CBT Tape into several shorter tapes   *   DOC FILE
//*    using the COPYNLNL program from CBT Files 229 or 316.        *   DOC FILE
//*                                                                 *   DOC FILE
//*    I am trying to consolidate some files, two files into one,   *   DOC FILE
//*    for example, in order to free up some file numbers.  This    *   DOC FILE
//*    practice will occur, until we can break the 1000-file        *   DOC FILE
//*    barrier.  (SG - 12/2020)                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*    - - - - - - - - - - - - - - - - - - - - - - - - - - - - -    *   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
//* --  >>>>>>   and several G.U.I.D.E. tapes from       <<<<<<  -- *   DOC FILE
//* --  >>>>>>   various countries.                      <<<<<<  -- *   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 z/OS 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 or z/OS      *   DOC FILE
//*   information, please email me at:                              *   DOC FILE
//*                                                                 *   DOC FILE
//*                   sbgolob@cbttape.org                           *   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
//*                              AND YOU CAN FIND MANY MATERIALS    *   DOC FILE
//*                              THAT USED TO BE AT WWW.XEPHON.COM  *   DOC FILE
//*                              HERE.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*   001  -  WWW.XEPHON.COM  -  For more info from the old xephon  *   DOC FILE
//*     (Not supported now.)      site, Google "wayback machine"    *   DOC FILE
//*     (Only on the wayback      and enter:   www.xephon.com       *   DOC FILE
//*      machine, at              to see old versions of the site.  *   DOC FILE
//*      www.archive.org)         The "wayback machine" is located  *   DOC FILE
//*                               at www.archive.org.               *   DOC FILE
//*                                                                 *   DOC FILE
//*      www.xephon.com is now some kind of Chinese website,        *   DOC FILE
//*      which is unrelated to what we are doing.  To get at        *   DOC FILE
//*      it, you have to go to www.archive.org and pull back        *   DOC FILE
//*      OLD levels of the name.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*    Most materials from       Using www.archive.org, and going   *   DOC FILE
//*          Xephon               from year 1999 and back, you may  *   DOC FILE
//*      are supported at         be able to obtain many old Xephon *   DOC FILE
//*      www.cbttape.org.         articles.  Also see CBT File 830  *   DOC FILE
//*                               for older MVS articles.           *   DOC FILE
//*                                                                 *   DOC FILE
//*      See www.cbttape.org/xephon  for many old magazines.        *   DOC FILE
//*                                                                 *   DOC FILE
//*      Almost all Xephon materials are now supported here,        *   DOC FILE
//*      at www.cbttape.org, so that if any of these materials      *   DOC FILE
//*      are on the CBT Tape, they are here legitimately            *   DOC FILE
//*      (as of May 2008).  You can use all of THESE Xephon         *   DOC FILE
//*      materials in good conscience.  I have removed all the      *   DOC FILE
//*      old "protections" and "Xephon nasty notices" from these    *   DOC FILE
//*      materials to the best of my ability.  You can also         *   DOC FILE
//*      IGNORE THE Xephon COPYRIGHT NOTICES found on each page     *   DOC FILE
//*      of the PDF-format magazines.                               *   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 your name                     *   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  -  Lione Dyck's mainframe sites page....                 *   DOC FILE
//*                                                                 *   DOC FILE
//*               www.lbdsoftware.com/sites.html/mainframes/        *   DOC FILE
//*                                                                 *   DOC FILE
//*           This site is very (I mean VERY) helpful.              *   DOC FILE
//*                                                                 *   DOC FILE
//*   004  -  http://www.archive.org/web/hardware.php               *   DOC FILE
//*              (Google search for "wayback machine")              *   DOC FILE
//*                                                                 *   DOC FILE
//*           Wayback Machine is a place where many back copies     *   DOC FILE
//*           of websites have been archived.  For example, if      *   DOC FILE
//*           you want to access very old Xephon artices, go to     *   DOC FILE
//*           the above URL and enter www.xephon.com as the web     *   DOC FILE
//*           site name to search.  Many old versions of this       *   DOC FILE
//*           website will come up, and you can pick any one of     *   DOC FILE
//*           them, to download old Xephon articles from.  Do the   *   DOC FILE
//*           same thing for any other website of your choice,      *   DOC FILE
//*           including www.cbttape.org.  This is a marvelous       *   DOC FILE
//*           new resource on the web.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*           If you want to find old Xephon articles which are     *   DOC FILE
//*           not from MVS magazines, go to the Wayback Machine,    *   DOC FILE
//*           enter www.xephon.com as the website to search for,    *   DOC FILE
//*           look for snapshots from 1998 or earlier, click        *   DOC FILE
//*           Downloads, and click on "The Archives--over 3000      *   DOC FILE
//*           older articles from 1996 and earlier.                 *   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
//*  - ==         FROM THE SAME SOURCES WHERE THE REGULAR     == -  *   DOC FILE
//*  - ==         CBT 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
//*  - ==         all this code.                              == -  *   DOC FILE
//*  - ==         (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@cbttape.org                             == -  *   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 ANY OF THE LATEST SHARE SOFTWARE.             *   DOC FILE
//*                                                                 *   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
//*       See the SHARE web site:                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*                    www.share.org                                *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==      3  THE JES2 MODIFICATION TAPE.                 == -  *   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
//*  - ==         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".  Contents are temporarily        == -  *   DOC FILE
//*  - ==         being kept on "File 998" at the web site:   == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==         www.cbttape.org/updates.htm                 == -  *   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 428V, 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
//*  - ==      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@cbttape.org          == -  *   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@cbttape.org              == -  *   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 DSN( ) and           == -  *   DOC FILE
//*  - ==      OUTDSN( ) 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.  (I have old disks of these.  Write     == -  *   DOC FILE
//*  - ==         to me, not to NaSPA.  sbgolob@cbttape.org)  == -  *   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
//*  - ==    Sometimes, there are several varieties of a      == -  *   DOC FILE
//*  - ==    particular program in different files on one     == -  *   DOC FILE
//*  - ==    version of the CBT Tape.  THEN, you have to      == -  *   DOC FILE
//*  - ==    pick the latest one, or the one that helps you   == -  *   DOC FILE
//*  - ==    the most.  The following remark is from Arnie,   == -  *   DOC FILE
//*  - ==    during a time when there existed many other      == -  *   DOC FILE
//*  - ==    public tapes (before 1990).                      == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==    Here is Arnie's remark, referring to the         == -  *   DOC FILE
//*  - ==    multiplicity of shared tapes which were          == -  *   DOC FILE
//*  - ==    available in his time (before 1990).             == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==    Just a note here about duplication.  Because of  == -  *   DOC FILE
//*  - ==    how all these 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 figure 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
//*  - ==    But if you have any insights or info that would  == -  *   DOC FILE
//*  - ==    help other people, please email Sam Golob at:    == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==    sbgolob@cbttape.org                              == -  *   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 "Overflow" under "Downloads".            == -  *   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
//*  - ==                                                     == -  *   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
//*  - ==                                                     == -  *   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
//*  - ==                                                     == -  *   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
//*  - ========================================================= -  *   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 address is:         == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==                sbgolob@cbttape.org                  == -  *   DOC FILE
//*  - ==                                                     == -  *   DOC FILE
//*  - ==    Usually, contributors make a pds on MVS (z/OS),  == -  *   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 zip       == -  *   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 "around the world".            == -  *   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
//*   ---> ISPF STATS PRESERVED WITH  S     IN THIS COLUMN  <---    *   DOC FILE
//* CBT access dialg 043 SBG    10784 S  8.8 07-20-22      080 YES  *   DOC FILE
//* ASMTOZAP         044 SBG     4513 S  3.2 06-03-14      080 YES  *   DOC FILE
//* PDS COMPARE      045 CBT     2875    2.3 12-06-81      080 YES  *   DOC FILE
//* TSO SCRATCH      046 CBT     3270    2.3 10-26-15      080 YES  *   DOC FILE
//* NOCELL-LISTICAT  047 UNKCBT 79750 S 51.8 10-30-01      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
//*   On the other hand, when you see a date in the $$$#DATE        *   DOC FILE
//*   member of a CBT file, that was the date on which the file     *   DOC FILE
//*   was actually prepared by me.  (SBG)                           *   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-506 SECTION                                          *   DOC FILE
//*  V-506  CHANGES FOR VERSION 506 DEC 05, 2023                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        A.  We continue to thank the Linux Foundation, Open      *   DOC FILE
//*            Mainframe Project, which has given us access         *   DOC FILE
//*            to a z/OS development machine.  A considerable       *   DOC FILE
//*            number of the Updates and Additions mentioned        *   DOC FILE
//*            here, were developed on that machine, by retired     *   DOC FILE
//*            systems programmers and by others.  Thank you,       *   DOC FILE
//*            Open Mainframe Project of the Linux Foundation...!!  *   DOC FILE
//*            Special thanks to John Mertic and the other good     *   DOC FILE
//*            folks there.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        B.  Another of my email addresses is never used.         *   DOC FILE
//*            Please DO NOT SEND EMAIL to sbgolob@att.net.         *   DOC FILE
//*                        * * * * ONLY * * * *                     *   DOC FILE
//*            Please use sbgolob@cbttape.org to email me.          *   DOC FILE
//*                        * * * * ONLY * * * *                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        1.  File 006 (which contains tools to maintain this      *   DOC FILE
//*            documentation file) and File 008 (which contains     *   DOC FILE
//*            jobs to create the new version of the CBT Tape),     *   DOC FILE
//*            have been updated accordingly.  So has File 008      *   DOC FILE
//*            been updated.  See the Updates page for the latest.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        2.  File 035 has been updated, with some programs.       *   DOC FILE
//*            PDS -- VERSION 8.6.20.0  AUGUST 17, 2023             *   DOC FILE
//*            Programs updated:  LOOK, PDS86                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        3.  Update to File 043, from Lionel Dyck, to improve     *   DOC FILE
//*            the CBT download and viewing package.  With this     *   DOC FILE
//*            package, you can automatically download all, or      *   DOC FILE
//*            part of, the entire CBT Tape to your z/OS system     *   DOC FILE
//*            for immediate viewing and use.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        4.  Update to File 098, with fixes from Lionel Dyck.     *   DOC FILE
//*            This package is an enhancement for XMIT-RECIEVE.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        5.  Addition of File 099 which contains nice REXX        *   DOC FILE
//*            code snippets for people to copy and use.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        6.  Update to File 120 to add a new article from Sam     *   DOC FILE
//*            Golob.                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        7.  Update to File 127 to fix a problem with the         *   DOC FILE
//*            TSCALL program.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        8.  Update to File 135 to add new ISO date load modules  *   DOC FILE
//*            for PDS86 to this file.                              *   DOC FILE
//*            PDS -- VERSION 8.6.20.0  AUGUST 17, 2023             *   DOC FILE
//*                                                                 *   DOC FILE
//*        9.  Update to File 147 from Rob Prins, who is the new    *   DOC FILE
//*            maintainer of the ARCHIVER program package (orig-    *   DOC FILE
//*            inally from Rick Fochtman).                          *   DOC FILE
//*                                                                 *   DOC FILE
//*       10.  Update to File 182 from John Kalinich.  This is      *   DOC FILE
//*            for the PDS86 program package (source code).         *   DOC FILE
//*            PDS -- VERSION 8.6.20.0  AUGUST 17, 2023             *   DOC FILE
//*                                                                 *   DOC FILE
//*       11.  Update to File 185 to enhance the SHOWTPVT command   *   DOC FILE
//*            and to reassemble the TSO auth tables.               *   DOC FILE
//*                                                                 *   DOC FILE
//*       12.  Update to File 207 from Ed Liss and Rob Prins.       *   DOC FILE
//*            This is the old FSE (Full Screen Editor) for TSO,    *   DOC FILE
//*            modified to use the extra rows on mod 3 and mod 4    *   DOC FILE
//*            TSO terminals.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*       13.  Update to File 264 from Sam Golob, to use a custom   *   DOC FILE
//*            CBMACS so that IBM macros can be formatted better,   *   DOC FILE
//*            by the LOOK program.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       14.  Retain File 290 as the source for the GPSAM package. *   DOC FILE
//*            (The file had been duplicated.)                      *   DOC FILE
//*                                                                 *   DOC FILE
//*       15.  Update to File 293 to program CKIEBGEN.  Fix to      *   DOC FILE
//*            remove unprintable X'20' characters from the         *   DOC FILE
//*            report, because of improper use of the ED            *   DOC FILE
//*            instruction.  (Suggested by Bill Godfrey.)           *   DOC FILE
//*                                                                 *   DOC FILE
//*       16.  Update to File 312 from Lionel Dyck, to do the       *   DOC FILE
//*            following:  Add DSFSADM, Update FASTPATH, OMVSCMD.   *   DOC FILE
//*                                                                 *   DOC FILE
//*       17.  Update to File 313 from Lionel Dyck, to do the       *   DOC FILE
//*            following:  Update SAVELAB, TRYIT.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*       18.  Update to File 314 from Lionel Dyck, to do the       *   DOC FILE
//*            following:  Update WHOSON, ZFSTOOLS, ZTSOHELP.       *   DOC FILE
//*                                                                 *   DOC FILE
//*       19.  Update to file 415 from Rob Prins, to bring RPF      *   DOC FILE
//*            to level 1.9.6.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*       20.  Update to File 417 from Lionel Dyck, Bruce Koss,     *   DOC FILE
//*            and others, to bring this magnificent RACF           *   DOC FILE
//*            administration tool to level 36.7.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*       21.  Update to File 433 from Frank Clarke, which is a     *   DOC FILE
//*            major revision of his REXX execs.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*       22.  Update to File 434 from Mark Zelden, to enhance      *   DOC FILE
//*            IPLINFO even more.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*       23.  Update to File 479 from Lionel Dyck, to fix a        *   DOC FILE
//*            problem in the BCEDIT REXX exec (which updates       *   DOC FILE
//*            SYS1.BRODCAST notices).                              *   DOC FILE
//*                                                                 *   DOC FILE
//*       24.  Update to File 488 from Jim Iannone, which is a      *   DOC FILE
//*            large revision of his utilities file.                *   DOC FILE
//*                                                                 *   DOC FILE
//*       25.  Update to File 542 from Andreas Freybier.  SPACE     *   DOC FILE
//*                                                                 *   DOC FILE
//*       26.  Update to File 566 (Sam Bass' file) from Sam Golob,  *   DOC FILE
//*            to add a few DUMPxxxx programs to dump the contents  *   DOC FILE
//*            of a few more control blocks.  DUMPPSCB, DUMPTSB.    *   DOC FILE
//*                                                                 *   DOC FILE
//*       27.  Update to File 570 from Frank Clarke, to add a       *   DOC FILE
//*            member called TRACING.  (This is a file with several *   DOC FILE
//*            pieces of REXX advice and snippets of code).         *   DOC FILE
//*                                                                 *   DOC FILE
//*       28.  Update to File 648 from Ben Marino, which contains   *   DOC FILE
//*            ZRMS, his Resource Monitor Subsystem.  This is a     *   DOC FILE
//*            sophisticated and valuable software tool.  Please    *   DOC FILE
//*            see member @FILE648 for valuable instruction on how  *   DOC FILE
//*            to use the tool.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*       29.  Update to File 669 from Willy Jensen, which is an    *   DOC FILE
//*            extensive rework of his package concerning REXX      *   DOC FILE
//*            Global Variables, VSAM bulk access, OpComm etc.      *   DOC FILE
//*                                                                 *   DOC FILE
//*       30.  Update to File 731 from Sam Golob, which contains    *   DOC FILE
//*            many TSO-related programs, the likes of which can    *   DOC FILE
//*            be found nowhere else.  Updated members include:     *   DOC FILE
//*            SHOWTSB, SHOWTSVT, SYSLV, TSUINFO.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*       31.  Update to File 797, to modify or add members to      *   DOC FILE
//*            the load library.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*       32.  Update to File 826, to modify or add members to      *   DOC FILE
//*            the load library.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*       33.  Update to File 846, to fix access in the JCL to      *   DOC FILE
//*            Track 0 of a disk pack, when there is no additional  *   DOC FILE
//*            space on the volume.  The DD name whose extents      *   DOC FILE
//*            should be changed to Track 0 (for one track) must    *   DOC FILE
//*            be specified as (TRK,0) instead of (TRK,1).          *   DOC FILE
//*                                                                 *   DOC FILE
//*       34.  Update to File 890 from Peter Sylvester, to revise   *   DOC FILE
//*            some addresses to get information about the SIMULA   *   DOC FILE
//*            compiler and libraary, which is included in this     *   DOC FILE
//*            file.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*       35.  Update to File 926 from Jim Iannone, to correct      *   DOC FILE
//*            Phil Polchinski's AMORT COBOL program, so it will    *   DOC FILE
//*            compile cleanly on all recent COBOL compilers        *   DOC FILE
//*            through 6.4.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*       36.  Update to File 953 from John Gateley, to update      *   DOC FILE
//*            or add several of his programs, and to update his    *   DOC FILE
//*            very valuable macro library.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*       37.  Update to File 967 from Tom Conley, which is a very  *   DOC FILE
//*            extensive revision of (the collectively revised)     *   DOC FILE
//*            CBT Usermod Collection for ISPF (CUCI).              *   DOC FILE
//*                                                                 *   DOC FILE
//*       38.  Update to File 969 from Lionel Dyck, which is his    *   DOC FILE
//*            unequalled PDSEGEN (PDSE Version 2 member generation *   DOC FILE
//*            handler).  Nice job, Lionel.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*       39.  Update to File 977, which is a list of URL's to      *   DOC FILE
//*            the Moshix (Moshe Bar's) videos on YouTube,          *   DOC FILE
//*            concerning MVS 3.8, VM, and other related            *   DOC FILE
//*            products.  These are very valuable tutorials,        *   DOC FILE
//*            and there are a lot of them.                         *   DOC FILE
//*            https://www.youtube.com/user/moshe5760/videos        *   DOC FILE
//*                                                                 *   DOC FILE
//*       40.  Update to File 997 which is from Henri Kuiper and    *   DOC FILE
//*            Lionel Dyck, and which contains their z/OS ISPF      *   DOC FILE
//*            interface to GIT called ZIGI.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*       41.  Update to File 1003 which contains some handy        *   DOC FILE
//*            utilities from Peter Sylvester.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*       42.  Update to File 1008 from Kevin Ferguson, which       *   DOC FILE
//*            contains a modification to the ISPPREP facility.     *   DOC FILE
//*                                                                 *   DOC FILE
//*       43.  Update to File 1027 from Paul Lemons, and contains   *   DOC FILE
//*            a package to look at any JES2 output, and redirect   *   DOC FILE
//*            it to an email.                                      *   DOC FILE
//*            Please read the various "README*" members to see     *   DOC FILE
//*            how this is done, so you can set it up for yourself. *   DOC FILE
//*                                                                 *   DOC FILE
//*       44.  Update to File 1040 from Frank Clarke, to improve    *   DOC FILE
//*            his analysis of PL/1 program listings.               *   DOC FILE
//*                                                                 *   DOC FILE
//*       45.  Update to File 1042 from Frank Clarke, which is a    *   DOC FILE
//*            rework of his DEIMBED REXX exec.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*       46.  Addition of File 1043 from Edgar Hofmann, which      *   DOC FILE
//*            contains a REXX Preprocessor, that is integrated     *   DOC FILE
//*            seamlessly into the TSO environment.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       47.  Addition of File 1044 from Frank Clarke, and         *   DOC FILE
//*            consists of one primary routine, CBTXREF, that       *   DOC FILE
//*            displays the CBTSCAN table (included here as         *   DOC FILE
//*            member CBTSCAN) plus several subsidiary routines     *   DOC FILE
//*            that are useful for successful installation or       *   DOC FILE
//*            are needed by other software.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*       48.  Addition of File 1045 from Sergey Kenunen, which     *   DOC FILE
//*            contains an assembler macro to convert dates.        *   DOC FILE
//*            Please see member $$NOTE01 for more details.         *   DOC FILE
//*                                                                 *   DOC FILE
//*       49.  Addition of File 1046 from Kevin Ferguson, and       *   DOC FILE
//*            contains a tool to convert ISPF panels into          *   DOC FILE
//*            "prepped" form, which has some improvements over     *   DOC FILE
//*            IBM's way of doing things.  Please see the member    *   DOC FILE
//*            called $$INFO for more details.  Also please see     *   DOC FILE
//*            the member called $$INSTAL.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*       50.  Addition of File 1047 from Frank Clarke, which       *   DOC FILE
//*            provides two REXX EXECs, FINDLIBS and SHOWLIBS,      *   DOC FILE
//*            useful for inventorying libraries (by type)          *   DOC FILE
//*            across the entire installation.                      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-505 SECTION                                          *   DOC FILE
//*  V-505  CHANGES FOR VERSION 505 APR 24, 2023                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        A   We continue to thank the Linux Foundation, Open      *   DOC FILE
//*            Mainframe Project, which has given us access         *   DOC FILE
//*            to a z/OS development machine.  A considerable       *   DOC FILE
//*            number of the Updates and Additions mentioned        *   DOC FILE
//*            here, were developed on that machine, by retired     *   DOC FILE
//*            systems programmers and by others.  Thank you,       *   DOC FILE
//*            Open Mainframe Project of the Linux Foundation...!!  *   DOC FILE
//*            Special thanks to John Mertic and the other good     *   DOC FILE
//*            folks there.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        B   Another of my email addresses is never used.         *   DOC FILE
//*            Please do not send email to sbgolob@att.net.         *   DOC FILE
//*                        * * * * ONLY * * * *                     *   DOC FILE
//*            Please use sbgolob@cbttape.org to email me.          *   DOC FILE
//*                        * * * * ONLY * * * *                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        1   File 006 (which contains tools to maintain this      *   DOC FILE
//*            documentation file) and File 008 (which contains     *   DOC FILE
//*            jobs to create the new version of the CBT Tape),     *   DOC FILE
//*            have been updated accordingly.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        2   File 035 has been updated, with many programs.       *   DOC FILE
//*            PDS -- VERSION 8.6.19.4  MARCH 23, 2023              *   DOC FILE
//*                                                                 *   DOC FILE
//*        3   Update to File 036, written by the late Robert       *   DOC FILE
//*            Weinstein, to correct an abend designation.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        4.  Updates to File 043 from Lionel Dyck, to improve     *   DOC FILE
//*            his magnificent package which downloads the entire   *   DOC FILE
//*            CBT Tape collection, or part of it, to your MVS      *   DOC FILE
//*            (z/OS) mainframe system.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        5.  Update to File 068, which is the TSTVS console       *   DOC FILE
//*            editor and dataset utility, from Rob Prins.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        6.  Fix to File 112 from John Gateley, if a Format 8     *   DOC FILE
//*            DSCB is present.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        7.  Updates to File 120 from Sam Golob, to fix many      *   DOC FILE
//*            articles, correcting his contact address and to      *   DOC FILE
//*            adjust many articles for current system updates.     *   DOC FILE
//*            General overhaul of this file (much needed).         *   DOC FILE
//*                                                                 *   DOC FILE
//*        8.  Updates to File 134 from Greg Price, mostly to the   *   DOC FILE
//*            REVIEW program.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        9.  Update to File 135 from Greg Price, to bring the     *   DOC FILE
//*            REVIEW modules to level 50.4 and to bring PDS        *   DOC FILE
//*            to:  PDS -- VERSION 8.6.19.4  MARCH 23, 2023         *   DOC FILE
//*                                                                 *   DOC FILE
//*       10.  Update to File 171 to update Richard Rice's email    *   DOC FILE
//*            address.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*       11.  Update to File 182 from John Kalinich with many      *   DOC FILE
//*            changes: PDS -- VERSION 8.6.19.4  MARCH 23, 2023     *   DOC FILE
//*                                                                 *   DOC FILE
//*       12.  Update to File 185 to upgrade the load library.      *   DOC FILE
//*                                                                 *   DOC FILE
//*       13.  Update to File 247 to fix the BCMNNOTC program       *   DOC FILE
//*            that changes the number of notices formatted in      *   DOC FILE
//*            SYS1.BRODCAST by the SYNC commnad, to be more        *   DOC FILE
//*            "correct" in finding the place to change.  (It       *   DOC FILE
//*            worked before, but it operates more "correctly"      *   DOC FILE
//*            now.)                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*       14.  Update to File 257 which contains "linkage editor    *   DOC FILE
//*            zaps" to allow object deck blocking to 32720, to     *   DOC FILE
//*            add some explanatory notes.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*       15.  Update to File 264 to reassemble the LOOK program,   *   DOC FILE
//*            and change a few SHOWMACS entries.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*       16.  Minor update to File 266 (SS0104 tape mapping        *   DOC FILE
//*            program).                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*       17.  Update to File 293 (CKIEBGEN program) to correct     *   DOC FILE
//*            an email address.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*       18.  Minor update to File 299 (TAPEMAP).                  *   DOC FILE
//*                                                                 *   DOC FILE
//*       19.  Updates to File 300 (add LISTMOD, TSOCP (valuable),  *   DOC FILE
//*            changes to CDSCB, AUCMD and CMD).                    *   DOC FILE
//*                                                                 *   DOC FILE
//*       20.  Updates to File 312 from Lionel Dyck: additions or   *   DOC FILE
//*            changes to:  ADDCOMMA CHGSTR EDSL EZMENU FTPB        *   DOC FILE
//*                         FTPB$CHG GETIPLDT LSTPROC QTAB          *   DOC FILE
//*                         RELPDSE                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       21.  Updates to File 313 from Lionel Dyck: additions or   *   DOC FILE
//*            changes to:  SDSFXDD TRYIT TRYIT$                    *   DOC FILE
//*                                                                 *   DOC FILE
//*       22.  Updates to File 313 from Lionel Dyck: additions or   *   DOC FILE
//*            changes to:  ZSYNC                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*       23.  Minor update to File 316 (change to LISTIDR          *   DOC FILE
//*            assembly JCL).                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*       24.  Minor change to File 338 - assembly JCL for          *   DOC FILE
//*            CANCELU.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*       25.  Minor change to File 347 - support for MODLIST pgm.  *   DOC FILE
//*                                                                 *   DOC FILE
//*       30.  Update to File 390 - added ISPF stats to some        *   DOC FILE
//*            members which didn't have them.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*       31.  Update to File 397 to change Frank Clarke's email    *   DOC FILE
//*            address.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*       32.  Update to File 415 from Rob Prins to change RPF      *   DOC FILE
//*            to Level 1.9.4.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*       33.  Update to File 417 from Bruce Koss and Lionel Dyck   *   DOC FILE
//*            to bring its level to V35R7.  (357 revisions..!!)    *   DOC FILE
//*                                                                 *   DOC FILE
//*       34.  Updates to File 433 from Frank Clarke.               *   DOC FILE
//*                                                                 *   DOC FILE
//*       35.  Updates to File 434 from Mark Zelden.                *   DOC FILE
//*                                                                 *   DOC FILE
//*       36.  Minor update to File 473 (CHKASVT).                  *   DOC FILE
//*                                                                 *   DOC FILE
//*       37.  Minor update to File 480 (CKIEBGEN).                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       38.  Updates to File 492 from Roland Schiradin to bring   *   DOC FILE
//*            SHOWzOS to Level 8.01.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*       39.  Updates to File 566 which is Sam Bass' file, from    *   DOC FILE
//*            Sam Golob, to add a whole bunch of control block     *   DOC FILE
//*            dumps, written in the pattern set up by Sam Bass.    *   DOC FILE
//*            (It took 10 minutes to write the last one.)          *   DOC FILE
//*            DUMPACEE DUMPASSB DUMPASVT DUMPINMX DUMPIOVT         *   DOC FILE
//*            DUMPTSVT IKJTPVT  IKJXPRM  IOSDIOVT                  *   DOC FILE
//*                                                                 *   DOC FILE
//*       40.  Update to File 570 from Sam Golob, to member         *   DOC FILE
//*            PERSAUTH.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*       41.  Update to File 614 from Sam Golob, to add assembly   *   DOC FILE
//*            and linkedit for SHOWzOS 8.1.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*       42.  Update to File 617 from Pedro Berrios.               *   DOC FILE
//*                                                                 *   DOC FILE
//*       43.  Massive update to File 669 from Willy Jensen.        *   DOC FILE
//*                                                                 *   DOC FILE
//*       44.  Update to File 731 from Sam Golob.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*       45.  Minor update to File 734, which is a very early      *   DOC FILE
//*            version of the PDS command from MVT days.  Included  *   DOC FILE
//*            for nostalgia's sake, although it still works.       *   DOC FILE
//*                                                                 *   DOC FILE
//*       46.  Minor revision to File 763.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*       47.  Change to File 764 to show Alex Kara's new email     *   DOC FILE
//*            address.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*       48.  Update to File 797 from Sam Golob to fix SHOWTPVT,   *   DOC FILE
//*            to show a new field in the TPVT control block that   *   DOC FILE
//*            was created for z/OS 2.4--main switch is in the      *   DOC FILE
//*            TSVT control block.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*       49.  Update to File 816 from Sam Golob, to fix the        *   DOC FILE
//*            BDMNNOTC program to change the default number of     *   DOC FILE
//*            Global Notices created, when you do an ACCOUNT SYNC. *   DOC FILE
//*            IBM says you have to do a zap and IPL with CLPA      *   DOC FILE
//*            (their procedure is included here), but you don't    *   DOC FILE
//*            have to do it.  Just run my program, BDMNNOTC for    *   DOC FILE
//*            instant results.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*       50.  Update to File 826 (CNCLPG) program notes from       *   DOC FILE
//*            Sam Golob.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*       51.  Update to File 846 from Sam Golob to talk about      *   DOC FILE
//*            possible scenarios for clipping a disk pack while    *   DOC FILE
//*            it is online.  (Be careful when you do this).        *   DOC FILE
//*                                                                 *   DOC FILE
//*       52.  Update to File 857, to add notes about Marco         *   DOC FILE
//*            Serafini's beautiful LOGREC report.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*       53.  Update to File 873, to enhance our version of the    *   DOC FILE
//*            IOSDIOVT macro, and bring the assembly JCL up to     *   DOC FILE
//*            date.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*       54.  Update to File 874, to add some HELP members.        *   DOC FILE
//*                                                                 *   DOC FILE
//*       55.  Update to File 876 from Tom Armstrong. which is      *   DOC FILE
//*            his repair to the ALGOL F compiler.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*       56.  Update to File 898 to correct Alex Kara's email      *   DOC FILE
//*            address.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*       57.  Update to File 905 to remove some IBM materials      *   DOC FILE
//*            that were inadvertently included.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*       58.  Update to File 939 from Ze'ev Atlas, to bring        *   DOC FILE
//*            the z/OS port of PCRE (Perl Compatible Regular       *   DOC FILE
//*            Expressions) to the 10.42 level.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*       59.  JCL update to File 940.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*       60.  Large update to File 953 from John Gateley.          *   DOC FILE
//*                                                                 *   DOC FILE
//*       61.  JCL update to File 958.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*       62.  JCL update to File 959.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*       63.  Update to File 969 from Lionel Dyck, to bring        *   DOC FILE
//*            PDSEGEN to Level 6.2.2.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*       64.  Update to File 977 from Moshe Bar (moshix) to add    *   DOC FILE
//*            more URL's to his list of videos on YouTube.         *   DOC FILE
//*                                                                 *   DOC FILE
//*       65.  JCL update to File 994.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*       66.  Massive update to File 996 from Larry K. Slaten.     *   DOC FILE
//*                                                                 *   DOC FILE
//*       67.  Update to File 997 from Henri Kuiper and Lionel      *   DOC FILE
//*            Dyck to their Git interface to z/OS.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       68.  Update to File 1000 from Dan Dirkse, which is        *   DOC FILE
//*            his edit macro mass change facility.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       69.  Addition of File 1032 from Ben Marino, which is      *   DOC FILE
//*            a sophisticated "global service provider", that      *   DOC FILE
//*            operates as a subsystem.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*       70.  Addition of File 1033 from Scott Mattes, which       *   DOC FILE
//*            is a REXX routine to calculate dates.  Originally    *   DOC FILE
//*            found on the VMSHARE 1991 tools tape.                *   DOC FILE
//*                                                                 *   DOC FILE
//*       71.  Addition of File 1034 which is a REXX exec that      *   DOC FILE
//*            allows you to easily copy a dataset.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       72.  Addition of File 1035 which contains a version       *   DOC FILE
//*            of z/OS PIPES that is written in Rexx.               *   DOC FILE
//*                                                                 *   DOC FILE
//*       73.  Addition of File 1036 from Tom Armstrong, which      *   DOC FILE
//*            is a complete rewriting of the OS/360 Sort/Merge     *   DOC FILE
//*            product.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*       74.  Addition of File 1037, which is a sophisticated      *   DOC FILE
//*            disassembler which came from the late Gerhard        *   DOC FILE
//*            Postpischil, by way of Tom Armstrong.                *   DOC FILE
//*                                                                 *   DOC FILE
//*       75.  Addition of File 1038 from Larry Zuckett, which      *   DOC FILE
//*            contains a System REXX exec that can dynamically     *   DOC FILE
//*            add or delete datasets from the Link List.           *   DOC FILE
//*                                                                 *   DOC FILE
//*       76.  Addition of File 1039 from Rob Prins, which          *   DOC FILE
//*            contains an old version of the LOOK command, that    *   DOC FILE
//*            is usable on MVS 3.8.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*       77.  Addition of File 1040 from Frank Clarke, which       *   DOC FILE
//*            contains a set of REXX execs and macros designed     *   DOC FILE
//*            to operate on PL/1 source elements and compiler      *   DOC FILE
//*            listings.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*       78.  Addition of File 1041, which contains a package      *   DOC FILE
//*            of REXX execs to convert Book Manager files          *   DOC FILE
//*            GML, Script/VS or "flat" files to HTML.              *   DOC FILE
//*                                                                 *   DOC FILE
//*       79.  Addition of File 1042 from Frank Clarke, which       *   DOC FILE
//*            contains one routing called DEIMBED, that helps      *   DOC FILE
//*            to isolate and independently allocate resources      *   DOC FILE
//*            that are used by REXX routines.                      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-504 SECTION                                          *   DOC FILE
//*  V-504  CHANGES FOR VERSION 504 AUG 16, 2022                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        A   We continue to thank the Linux Foundation, Open      *   DOC FILE
//*            Mainframe Project, which has given us access         *   DOC FILE
//*            to a z/OS development machine.  A considerable       *   DOC FILE
//*            number of the Updates and Additions mentioned        *   DOC FILE
//*            here, were developed on that machine, by retired     *   DOC FILE
//*            systems programmers and by others.  Thank you,       *   DOC FILE
//*            Open Mainframe Project of the Linux Foundation...!!  *   DOC FILE
//*            Special thanks to John Mertic and the other good     *   DOC FILE
//*            folks there.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        B   Another of my email addresses is never used.         *   DOC FILE
//*            Please do not send email to sbgolob@att.net.         *   DOC FILE
//*                        * * * * ONLY * * * *                     *   DOC FILE
//*            Please use sbgolob@cbttape.org to email me.          *   DOC FILE
//*                        * * * * ONLY * * * *                     *   DOC FILE
//*                                                                 *   DOC FILE
//*            References to sbgolob@att.net have been removed      *   DOC FILE
//*            from the following files:                            *   DOC FILE
//*            004 017 046 083 118 123 136 176 193 204 215 223      *   DOC FILE
//*            229 243 247 257 261 263 266 277 289 347 380 398      *   DOC FILE
//*            402 447 481 504 516 533 537 545 546 570 587 604      *   DOC FILE
//*            625 633 635 646 658 711 713 732 733 760 763 792      *   DOC FILE
//*            795 809 814 816 831 837 838 849 850 863 865 879      *   DOC FILE
//*            893 894 896 905 916 934 940 943 944 945 946 947      *   DOC FILE
//*            954 958                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        1   Update to File 006 to fix the tools to manipulate    *   DOC FILE
//*            File 001 for the current version of the tape.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        2   Update to File 008 to bring all the jobs for         *   DOC FILE
//*            creating the tape, up to the current version.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        3   Update to File 035 to add the latest versions        *   DOC FILE
//*            of the OFFLOAD program and the PDS 8.6 package:      *   DOC FILE
//*            PDS -- VERSION 8.6.18.15  JULY 26, 2022              *   DOC FILE
//*                                                                 *   DOC FILE
//*        4   Update to File 043 from Lionel Dyck, to the          *   DOC FILE
//*            CBTVIEW package.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        5   Update to File 093 to fix the OFFLOAD program        *   DOC FILE
//*            so it creates ISPF statistics when the packed        *   DOC FILE
//*            dates end in a "C" instead of an "F".                *   DOC FILE
//*                                                                 *   DOC FILE
//*        6   Update to File 135 to add the latest versions        *   DOC FILE
//*            of the OFFLOAD program and the PDS 8.6 package:      *   DOC FILE
//*            PDS -- VERSION 8.6.18.15  JULY 26, 2022              *   DOC FILE
//*                                                                 *   DOC FILE
//*        7   Update to File 182 to add the latest version         *   DOC FILE
//*            of the PDS 8.6 package:  (source code)               *   DOC FILE
//*            PDS -- VERSION 8.6.18.15  JULY 26, 2022              *   DOC FILE
//*                                                                 *   DOC FILE
//*        8   Update to File 225 which contains Dave Cole's        *   DOC FILE
//*            original version of the OFFLOAD program.  The        *   DOC FILE
//*            doc member @FILE225 was changed to help advertise    *   DOC FILE
//*            Dave Cole's other products.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        9   Update to File 313 from Lionel Dyck, to bring        *   DOC FILE
//*            new versions of his SAVELAB and SDSFXDD packages.    *   DOC FILE
//*                                                                 *   DOC FILE
//*       10   Update to File 314 from Lionel Dyck, to bring        *   DOC FILE
//*            new versions of his ZFSTOOLS and ZSYNC packages.     *   DOC FILE
//*                                                                 *   DOC FILE
//*       11   Update to File 316 to fix the OFFLOAD program        *   DOC FILE
//*            so it creates ISPF statistics when the packed        *   DOC FILE
//*            dates end in a "C" instead of an "F".                *   DOC FILE
//*                                                                 *   DOC FILE
//*       12   Update to File 519 to get rid of Sam Golob's         *   DOC FILE
//*            obsolete email address in the documentation.         *   DOC FILE
//*            This file compares tapes from a CA-1 TMC to          *   DOC FILE
//*            records for the same tape, in an IBM VTS             *   DOC FILE
//*            (Virtual Tape System).                               *   DOC FILE
//*                                                                 *   DOC FILE
//*       13   Update to File 617 from Pedro Berrios.               *   DOC FILE
//*                                                                 *   DOC FILE
//*       14   Update to File 860 to replace the copy of the        *   DOC FILE
//*            OFFLOAD program that was there, with the latest      *   DOC FILE
//*            copy (which takes care of the ISPF packed dates      *   DOC FILE
//*            problem, when the dates end in a "C" instead         *   DOC FILE
//*            of an "F").                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*       15   Addition of File 1031 which is a set of tools        *   DOC FILE
//*            to detect the "packed date X'nC' problem" when       *   DOC FILE
//*            it occurs, and to fix it.                            *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-503 SECTION                                          *   DOC FILE
//*  V-503  CHANGES FOR VERSION 503 JUL 20, 2022                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        A   The LISTPDS program had an error, which caused a few *   DOC FILE
//*            files to drop ISPF statistics.  This error was fixed *   DOC FILE
//*            in several files of the CBT Tape, specifically Files *   DOC FILE
//*            093, 035, 135, 172, 316, 371, 612, and 860.  It also *   DOC FILE
//*            had another error fixed, concerning size of extended *   DOC FILE
//*            statistics in the SYSPRINT report.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        B   We continue to thank the Linux Foundation, Open      *   DOC FILE
//*            Mainframe Project, which has given us access         *   DOC FILE
//*            to a z/OS development machine.  A considerable       *   DOC FILE
//*            number of the Updates and Additions mentioned        *   DOC FILE
//*            here, were developed on that machine, by retired     *   DOC FILE
//*            systems programmers and by others.  Thank you,       *   DOC FILE
//*            Open Mainframe Project of the Linux Foundation...!!  *   DOC FILE
//*            Special thanks to John Mertic and the other good     *   DOC FILE
//*            folks there.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        C   One of my email addresses has disappeared completely *   DOC FILE
//*            and I cannot recover any mail sent to there.         *   DOC FILE
//*                                                                 *   DOC FILE
//*            Please use sbgolob@cbttape.org to email me.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        D   There was always a problem with "Which Version of    *   DOC FILE
//*            any given CBT Tape file have I downloaded?  So in    *   DOC FILE
//*            the year 2001, I created "a time and date stamp      *   DOC FILE
//*            member called $$$#DATE, which gets shipped with      *   DOC FILE
//*            every file.  However, the old files didn't have      *   DOC FILE
//*            these members.  So now, we have created them, for    *   DOC FILE
//*            all the files that didn't have them.  They look      *   DOC FILE
//*            like this:                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*      REGULAR CBT TAPE - VERSION 503    FILE:  204               *   DOC FILE
//*                                                                 *   DOC FILE
//*          ORIGINAL DSNAME:  SBGOLOB.CBT503.FILE204               *   DOC FILE
//*          ---------------                                        *   DOC FILE
//*                          --RECFM-LRECL-BLKSIZE-DSORG            *   DOC FILE
//*                            FB    80    5600    PO               *   DOC FILE
//*                                                                 *   DOC FILE
//*  PDS117I 19 MEMBERS COUNTED; CUMULATIVE SIZE IS 22,674 RECORDS  *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//* TIME THIS PDS WAS SHIPPED: 06/16/22 22:24:13 UTC-4:00 PRE-2001  *   DOC FILE
//*                                             (extra)----->>>     *   DOC FILE
//*                                                                 *   DOC FILE
//*            Please note that the PRE-2001 mark was added, to     *   DOC FILE
//*            show that the file has not been changed since at     *   DOC FILE
//*            least as far back as the year 2001.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*            In the File Status Section below, the dates on       *   DOC FILE
//*            these files will not be changed, but the record      *   DOC FILE
//*            counts will be changed because of the extra two      *   DOC FILE
//*            members that are being added to each file.           *   DOC FILE
//*                                                                 *   DOC FILE
//*            If the file is FB-80, then the @FILEnnn doc member   *   DOC FILE
//*            has also been added to it, to modernize the older    *   DOC FILE
//*            files in the collection, and to make it easier to    *   DOC FILE
//*            see what that file is about.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        D   File numbers that have been altered in this way,     *   DOC FILE
//*            are as follows:  (241 files)                         *   DOC FILE
//*                                                                 *   DOC FILE
//*            011 012 015 016 021 023 025 026 027 030 031 032 037  *   DOC FILE
//*            040 041 045 053 054 055 056 057 058 059 065 067 069  *   DOC FILE
//*            070 071 072 074 075 076 078 079 080 081 082 084 085  *   DOC FILE
//*            086 087 089 091 095 096 098 100 101 103 105 106 109  *   DOC FILE
//*            113 114 116 117 121 122 124 125 126 127 128 130 131  *   DOC FILE
//*            132 138 140 141 142 143 144 146 148 150 151 152 153  *   DOC FILE
//*            154 158 159 163 164 165 167 169 173 175 178 179 180  *   DOC FILE
//*            181 184 187 188 189 190 191 192 194 195 196 197 201  *   DOC FILE
//*            202 203 204 205 206 207 208 209 214 215 216 217 218  *   DOC FILE
//*            219 221 223 224 227 231 232 233 235 236 237 244 245  *   DOC FILE
//*            248 250 251 252 253 254 255 256 258 262 263 265 269  *   DOC FILE
//*            270 271 272 273 274 275 276 278 279 280 282 283 284  *   DOC FILE
//*            285 286 287 288 290 292 298 303 304 305 306 307 309  *   DOC FILE
//*            310 317 318 319 320 328 329 332 333 334 335 336 337  *   DOC FILE
//*            339 340 341 342 348 350 351 354 355 356 359 363 364  *   DOC FILE
//*            365 366 369 370 373 374 375 376 379 381 383 385 392  *   DOC FILE
//*            399 400 405 416 418 421 422 424 426 427 428 429 430  *   DOC FILE
//*            453 454 455 456 457 458 459 460 461 462 463 464 465  *   DOC FILE
//*            466 467 468 469 470 471 472                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        1   Updates to File 006 and 008 as usual.  File 006      *   DOC FILE
//*            needs the tape version on the execs to be changed    *   DOC FILE
//*            from 501 to 502, and File 008 needs the general      *   DOC FILE
//*            overhaul to produce the Version 503 tape and files.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        2   Update to File 029 to update the author contact      *   DOC FILE
//*            information.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        3   Update to File035 to bring the load modules for      *   DOC FILE
//*            the PDS 8.6 program to the level:                    *   DOC FILE
//*            PDS -- VERSION 8.6.18.14  MAY 29, 2022               *   DOC FILE
//*                                                                 *   DOC FILE
//*        4   Update to File 043 from Lionel Dyck.  File 043 is    *   DOC FILE
//*            a package so that you can have all the CBT files     *   DOC FILE
//*            available to your z/OS system, provided that your    *   DOC FILE
//*            z/OS system has an FTP connection with the website   *   DOC FILE
//*            www.cbttape.org.  Updates to all files can then be   *   DOC FILE
//*            automatically uploaded as well.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        5   Update to File 102 to get rid of some obsolete       *   DOC FILE
//*            contact information.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        6   Update to File135 to bring the load modules for      *   DOC FILE
//*            the PDS 8.6 program to the level:  (ISO dates)       *   DOC FILE
//*            PDS -- VERSION 8.6.18.14  MAY 29, 2022               *   DOC FILE
//*                                                                 *   DOC FILE
//*        7   Update to File 182 from John Kalinich to bring the   *   DOC FILE
//*            PDS 8.6 source code and accessories to the level:    *   DOC FILE
//*            PDS -- VERSION 8.6.18.14  MAY 29, 2022               *   DOC FILE
//*                                                                 *   DOC FILE
//*        8   Update to File 300 to the LISTLPA program.  This is  *   DOC FILE
//*            to compensate for the changed length of the LPDE     *   DOC FILE
//*            (LPA Directory Entry) in z/OS 2.4.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        9   Update to File 312 from Lionel Dyck, to add the      *   DOC FILE
//*            ALTLIB and ISPFLLV members, and to update the        *   DOC FILE
//*            FTPB and FASTPATH packages.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*       10   Update to File 313 from Lionel Dyck, to add the      *   DOC FILE
//*            SDSFXDD package.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*       11   Update to File 314 from Lionel Dyck, to add the      *   DOC FILE
//*            WHOSON exec, and to update the ZSYNC package.        *   DOC FILE
//*                                                                 *   DOC FILE
//*       12   Update to File 414 from Joe Garcia.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*       13   Update to File 415 which is RPF (Rob's Programming   *   DOC FILE
//*            Facility) from Rob Prins, to make many improvements  *   DOC FILE
//*            and raise its system level to 1.9.2.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       14   Update to File 417 from Bruce Koss, Lionel Dyck,     *   DOC FILE
//*            and others, to level V35R3.  This is the amazing     *   DOC FILE
//*            RACF Administration Tool.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*       15   Update to File 433 from Frank Clarke, which is a     *   DOC FILE
//*            greatly revised and updated collection of his        *   DOC FILE
//*            REXX execs.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*       16   Update to File 434 from Mark Zelden, to revise       *   DOC FILE
//*            his TWOPAK members and supply a new member to        *   DOC FILE
//*            make a two-pack rescue system for z/OS 2.4.          *   DOC FILE
//*            Also, he has updated his DSLISTSV and ONEPAK22       *   DOC FILE
//*            members.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*       17   Update to File 500 from Ben Marino, which is his     *   DOC FILE
//*            sophisticated "Event Capture Facility".  Ben has     *   DOC FILE
//*            raised his package to level V2R3M0.  A list of       *   DOC FILE
//*            release notes for this release can be found in       *   DOC FILE
//*            member $$NOTE05 of this pds.  We are very grateful   *   DOC FILE
//*            to the Linux foundation, Open Mainframe Projeck,     *   DOC FILE
//*            for the use of their z/OS system in the development  *   DOC FILE
//*            of this product.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*       18   Extensive update to File 669 from Willy Jensen.      *   DOC FILE
//*            (Large collection of REXX execs, REXX functions,     *   DOC FILE
//*            etc. etc.)                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*       19   Minor change to File 731 from Sam Golob.             *   DOC FILE
//*                                                                 *   DOC FILE
//*       20   Update to Files 801 and 870 to change the            *   DOC FILE
//*            documentation.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*       21   Update to File 876 which is the "fixed" ALGOL F      *   DOC FILE
//*            compiler.  Documentation updates only.               *   DOC FILE
//*                                                                 *   DOC FILE
//*       22   Update to File 889 to include a later version of     *   DOC FILE
//*            the Hercules emulator - Hyperion Version 4.4.1.      *   DOC FILE
//*                                                                 *   DOC FILE
//*       23   Update to File 899 to update the version of the      *   DOC FILE
//*            FACEE program (callable version of DACEE) that       *   DOC FILE
//*            is there.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*       24   Update to File 939 from Ze'ev Atlas, which is the    *   DOC FILE
//*            z/OS version of PCRE (Perl Compatible Regular        *   DOC FILE
//*            Expressions), that is now compatible with PCRE       *   DOC FILE
//*            Version 10.40.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*       25   Update to File 961 from Yves Colliard, which is      *   DOC FILE
//*            his collection of execs to support additional        *   DOC FILE
//*            line commands in ISPF edit, view, etc. etc.          *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       26   Update to File 967 from Tom Conley, which is his     *   DOC FILE
//*            very large collection of ISPF usermods, that is      *   DOC FILE
//*            called CUCI (CBT Usermd Collection for ISPF).        *   DOC FILE
//*                                                                 *   DOC FILE
//*       27   Update to File 969 from Lionel Dyck, which is his    *   DOC FILE
//*            PDSEGEN package.  PDSEGEN is designed to help in     *   DOC FILE
//*            handling PDSE version 2 member generations, which    *   DOC FILE
//*            IBM (even though it created them) doesn't support    *   DOC FILE
//*            well.  We have some updates to the package here.     *   DOC FILE
//*                                                                 *   DOC FILE
//*       28   Update to File 977 to include the new Moshix MVS     *   DOC FILE
//*            videos made in the last half year.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*       29   Update to File 985 from Marius Lewin, to greatly     *   DOC FILE
//*            revise his collection of REXX execs.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       30   Update to File 990 from Lionel Dyck, which is        *   DOC FILE
//*            a large collection of tricks and tips for ISPF       *   DOC FILE
//*            developers.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*       31   Update to File 997 from Henri Kuiper and Lionel      *   DOC FILE
//*            Dyck, which is an ISPF Git interface called          *   DOC FILE
//*            ZIGI.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*       32   Addition of File 1021 from Steve Myers, which is     *   DOC FILE
//*            an improved version of the program from IBM to       *   DOC FILE
//*            make block letters.  The original EASLD095 is on     *   DOC FILE
//*            CBT File 316, which is a derivative of IBM's         *   DOC FILE
//*            IEFSD095.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*       33   Addition of File 1022 from Glenn Siegel, which is    *   DOC FILE
//*            his automation of IBM's SCRT report.  This process   *   DOC FILE
//*            /job is scheduled to run on third day of every       *   DOC FILE
//*            month.  I use XMITIP to email my reports.            *   DOC FILE
//*            This is a great email tool by Lionel B. Dyck         *   DOC FILE
//*            (CBT File 314).  Thank you for all of your work,     *   DOC FILE
//*            Lionel.  If you don't have it you'll need it         *   DOC FILE
//*            for this process.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*       34   Addition of File 1023 from Richard Humphris,         *   DOC FILE
//*            and contains a package of programs to produce        *   DOC FILE
//*            a Cross-Reference report for REXX programs, which    *   DOC FILE
//*            is very useful.  The programs are referred to, as    *   DOC FILE
//*            the REXX Xreference Utility.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*       35   Addition of File 1024 from Lennie Dymoke-Bradshaw,   *   DOC FILE
//*            and contains some of the utilities he wrote for      *   DOC FILE
//*            public distribution.  These were obtained from       *   DOC FILE
//*            his website:   https://rsclweb.com/downloads/        *   DOC FILE
//*            name       :   Reverse Sweep Consulting Limited      *   DOC FILE
//*                                                                 *   DOC FILE
//*       36   Addition of File 1025 from Steve Myers, and          *   DOC FILE
//*            contains a batch program to simulate an ISPF 3.4     *   DOC FILE
//*            dataset list.  (This is the list only--you can't do  *   DOC FILE
//*            anything with the names.)  The program name          *   DOC FILE
//*            is DSLIST.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*       37   Addition of File 1026 from Jay Moseley and consists  *   DOC FILE
//*            of documentation for how to use (currently 46)       *   DOC FILE
//*            MVS-based utilities that he finds useful.            *   DOC FILE
//*            Most of these utilities (not all of them) have       *   DOC FILE
//*            versions that can be used in both MVS 3.8 under      *   DOC FILE
//*            Hercules, or under z/OS.  Some of them come from     *   DOC FILE
//*            IBM, and some come from the CBT Tape.                *   DOC FILE
//*                                                                 *   DOC FILE
//*       38   Addition of File 1027 from Paul Lemons and contains  *   DOC FILE
//*            a package to look at any JES2 output, and redirect   *   DOC FILE
//*            it to an email.  Please read the various "README*"   *   DOC FILE
//*            members to see how this is done, so you can set it   *   DOC FILE
//*            up for yourself.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*       39   Addition of File 1028 from Kevin Ferguson, and       *   DOC FILE
//*            contains a version of the SUPERXMT program from a    *   DOC FILE
//*            XEPHON article (which we are now able to use,        *   DOC FILE
//*            with no restrictions).  SUPERXMT allows you to get   *   DOC FILE
//*            around the OUTLIMIT restrictions, which the          *   DOC FILE
//*            installation has placed on the XMIT command          *   DOC FILE
//*            (as to the size of its output).                      *   DOC FILE
//*                                                                 *   DOC FILE
//*       40   Addition of File 1029 from Daniel Gaeta and          *   DOC FILE
//*            contains a service package called RXP.  RXP          *   DOC FILE
//*            performs EXECIO-like operations on data.             *   DOC FILE
//*                                                                 *   DOC FILE
//*            See member called $README (one "$") for some         *   DOC FILE
//*            further explanation of how to use this package.      *   DOC FILE
//*                                                                 *   DOC FILE
//*            Source is currently not provided.  The executing     *   DOC FILE
//*            code (from member - in XMIT-format) called LOAD      *   DOC FILE
//*            is from C/370 language source.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*       41   Addition of File 1030 from Daniel Gaeta and          *   DOC FILE
//*            contains RXSQLITE, which is an alternative to        *   DOC FILE
//*            using SQLITE in the REXX language.                   *   DOC FILE
//*            See member $README for more details.                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-502 SECTION                                          *   DOC FILE
//*  V-502  CHANGES FOR VERSION 502 NOV 07, 2021                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        A   Many of this version's changes were due to the       *   DOC FILE
//*            enormous generosity of the Linux Foundations's       *   DOC FILE
//*            Open Mainframe Project, which has given us access    *   DOC FILE
//*            to a z/OS development machine.  A considerable       *   DOC FILE
//*            number of the Updates and Additions mentioned        *   DOC FILE
//*            here, were developed on that machine, by retired     *   DOC FILE
//*            systems programmers and by others.  Thank you,       *   DOC FILE
//*            Open Mainframe Project of the Linux Foundation...!!  *   DOC FILE
//*            Special thanks to John Mertic and the other good     *   DOC FILE
//*            folks there.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        B   One of my email addresses has disappeared completely *   DOC FILE
//*            and I cannot recover any mail sent to there.         *   DOC FILE
//*                                                                 *   DOC FILE
//*            Please use sbgolob@cbttape.org to email me.          *   DOC FILE
//*                                                                 *   DOC FILE
//*            ( sbgolob@attglobal.net has disappeared )            *   DOC FILE
//*                                                                 *   DOC FILE
//*            sbgolob@cbttape.org is the only email address        *   DOC FILE
//*            that I currently use.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        1   Updates to File 006 and 008 as usual.  File 006      *   DOC FILE
//*            needs the tape version on the execs to be changed    *   DOC FILE
//*            from 501 to 502, and File 008 needs the general      *   DOC FILE
//*            overhaul to produce the Version 502 tape and files.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        2   Update to File 014 to inclule SMP Demystified Part   *   DOC FILE
//*            two, which had somohow gotten lost from the file.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        3   Update to File 020 to eliminate my obsolete email    *   DOC FILE
//*            address from the support list.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        4   Updates to File 035 (load module library) to add     *   DOC FILE
//*            the following programs:  Bring the PDS 8.6           *   DOC FILE
//*            command to the PDS -- VERSION 8.6.18.11              *   DOC FILE
//*            AUGUST 22, 2021 level, and to add or modify:         *   DOC FILE
//*            CDSCB COPYMODS DUSER RECONLIM TRMSZRPT               *   DOC FILE
//*            TSUINFO USERMAX ZAPDSCB.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        5   Updates to File 036 to replace the copy of CVTCLIST  *   DOC FILE
//*            that was there, with the newer one, and to format    *   DOC FILE
//*            the file better.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        6   Addition of File 043 from Lionel Dyck, which is a    *   DOC FILE
//*            package that makes it easy to access all the CBT     *   DOC FILE
//*            Tape files on your z/OS system.  Highly recommended. *   DOC FILE
//*                   "The Official CBT ISPF Dialog"                *   DOC FILE
//*                                                                 *   DOC FILE
//*        7   Update to File 093 from our dear "Updater", to fix   *   DOC FILE
//*            a bug in the UPDTE program.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        8   Update to File 115 to supply a @FILE115 member.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        9   Updates to File 134 from Greg Price, to bring        *   DOC FILE
//*            REVIEW to the 50.1 level.  Update to Fullscreen      *   DOC FILE
//*            ZAP to accommodate 8-character TSO userids.          *   DOC FILE
//*                                                                 *   DOC FILE
//*       10   Updates to the File 135 load library to correspond   *   DOC FILE
//*            to the source updates in File 134 for REVIEW, and    *   DOC FILE
//*            for Fullscreen ZAP.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*       11   Updates to File 182 to bring PDS 8.6 to the level:   *   DOC FILE
//*            PDS -- VERSION 8.6.18.11  AUGUST 22, 2021            *   DOC FILE
//*                                                                 *   DOC FILE
//*       12   Update to File 229 from Sam Golob to include the     *   DOC FILE
//*            latest version of COPYMODS (Level 88).               *   DOC FILE
//*                                                                 *   DOC FILE
//*       13   Update to File 247 with minor updates to LPSCB       *   DOC FILE
//*            and MYIDP.  The BRODCAST stuff was unchanged.        *   DOC FILE
//*                                                                 *   DOC FILE
//*       14   Update to File 300 to Fullscreen ZAP with the fix    *   DOC FILE
//*            for 8-character userids.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*       15   Update to File 312 from Lionel Dyck, with changes    *   DOC FILE
//*            or additions of the following packages:              *   DOC FILE
//*            EMAC EZMENU FTPB FTPB$CHG ISPFDEMO LSTPROC OMVSMAN   *   DOC FILE
//*            PDS2PDSE PRMCK QTAB RELPDSE                          *   DOC FILE
//*                                                                 *   DOC FILE
//*       16   Update to File 313 from Lionel Dyck, with changes    *   DOC FILE
//*            to the SPELLC package.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*       17   Update to File 314 from Lionel Dyck, with changes    *   DOC FILE
//*            or additions of the following packages:              *   DOC FILE
//*            XMITIP ZFSTOOLS ZSYNC ZTSOHELP                       *   DOC FILE
//*                                                                 *   DOC FILE
//*       18   Update to File 415 from Rob Prins, which is his      *   DOC FILE
//*            ISPF-like multi-utility called RPF.  The current     *   DOC FILE
//*            level of RPF is 1.9.0.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*       19   Update to File 417 from Bruce Koss and Lionel Dyck.  *   DOC FILE
//*            This is the RACF administration tool called RACFADM, *   DOC FILE
//*            which is now at Level 35.2.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*       20   Update to File 423 to fix a bug in the TERMSZ        *   DOC FILE
//*            program.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*       21   Update to File 433 from Frank Clarke, with major     *   DOC FILE
//*            changes.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*       22   Update to File 500 which is Ben Marino's "Event      *   DOC FILE
//*            Capture Facility", which now was made to work on     *   DOC FILE
//*            z/OS, as well as on MVS 3.8.  This is a highly       *   DOC FILE
//*            sophisticated automation package.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*       23   Update to File 591 from Lionel Dyck to fix           *   DOC FILE
//*            REXXFORM.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*       24   Update to File 655 from Xiayang, to fix a small      *   DOC FILE
//*            problem in the CATCLR3 exec.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*       25   Update to File 669 from Willy Jensen, which is       *   DOC FILE
//*            an almost complete reworking of his REXX Global      *   DOC FILE
//*            Variables package.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*       26   Updates to File 731 (TSO-related programs):          *   DOC FILE
//*            Changes to TSVTTMO and SHOWTPVT.                     *   DOC FILE
//*            Addition of TSUINFO and TRMSZRPT.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*       27   Update to File 791 from Lindy Mayfield, to fix the   *   DOC FILE
//*            D522 REXX exec.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*       28   Update to File 846, to adjust the JCL that runs      *   DOC FILE
//*            ONLCLIP and ONLCLEAR in an SMS environment.          *   DOC FILE
//*                                                                 *   DOC FILE
//*       29   Update to File 847, to add COPYMODS Level 88.        *   DOC FILE
//*                                                                 *   DOC FILE
//*       30   Update to File 874, to include a few more HELP       *   DOC FILE
//*            members for programs on the CBT Tape.  Update        *   DOC FILE
//*            the HELP members for REVIEW.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*       31   Updates to File 895 (STEMEDIT program) from Rainer   *   DOC FILE
//*            Nowak.                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*       32   Update to File 939 from Ze'ev Atlas, to include      *   DOC FILE
//*            Release 10.38 of PCRE (Perl Compatible Regular       *   DOC FILE
//*            Expressions), ported to z/OS.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*       33   Update to File 941 from Gregory Bliznets to add more *   DOC FILE
//*            programs to his collection.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*       34   Update to File 955 from John Miller, which is his    *   DOC FILE
//*            Remote Logging Facility.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*       35   Update to File 956 from Steve Myers, to include      *   DOC FILE
//*            some more of his incomparable programs, for example, *   DOC FILE
//*            ICOPY or SCAN118.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*       36   Update to File 966 from Steve Myers, which contains  *   DOC FILE
//*            his HLASM assembler prompter.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*       37   Update to File 967 from Tom Conley, to include a     *   DOC FILE
//*            few essential members of his CUCI package            *   DOC FILE
//*            (CBT Usermod Collection for ISPF (CUCI)) that had    *   DOC FILE
//*            been left out by accident.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*       38   Update to File 969 from Lionel Dyck, which is his    *   DOC FILE
//*            PDSEGEN application to exploit the possibilities     *   DOC FILE
//*            of PDSE V2 member generations.  For a long time,     *   DOC FILE
//*            this package has been better than anything IBM       *   DOC FILE
//*            had, in handling the (extra) pds members, and        *   DOC FILE
//*            as of this writing, it probably still is a better    *   DOC FILE
//*            utility for handling the extra PDSE Version 2        *   DOC FILE
//*            generation members.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*       39   Update to File 977 to list the URL's of all the      *   DOC FILE
//*            MVS videos which MOSHIX (Moshe Bar) has added to     *   DOC FILE
//*            his YouTube group, since the last version of this    *   DOC FILE
//*            collection.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*       40   Update to File 990, which is a collection of ISPF    *   DOC FILE
//*            tricks and tips for ISPF developers.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       41   Update to File 997 from Henri Kuiper and Lionel      *   DOC FILE
//*            Dyck, to their ISPF Git interface.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*       42   Update to File 1000 from Dan Dirkse, to his Edit     *   DOC FILE
//*            macro mass change facility.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*       43   Addition of File 1006 from Reed Starnes, which       *   DOC FILE
//*            contains a load module compare program that is       *   DOC FILE
//*            quite innovative and useful.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*       44   Addition of File 1007 from Reed Starnes, which is    *   DOC FILE
//*            a batch program called DATOC which can change        *   DOC FILE
//*            fields in the VTOC.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*       45   Addition of File 1008 from Kevin Ferguson, which     *   DOC FILE
//*            contains a modification to the ISPF ISPPREP          *   DOC FILE
//*            facility.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*       46   Addition of File 1009 from Salvador Carrasco and     *   DOC FILE
//*            contains a collection of DB2 User-defined Functions. *   DOC FILE
//*                                                                 *   DOC FILE
//*       47   Addition of File 1010 from Dan Snyder, which         *   DOC FILE
//*            contains a new shipment of structured macros.        *   DOC FILE
//*            A new file was created here, to avoid confusion      *   DOC FILE
//*            with other similar files.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*       48   Addition of File 1011 from Dana Mitchell and         *   DOC FILE
//*            contains an SDSF exit that tells SDSF to ignore      *   DOC FILE
//*            RMF if it is not present.  This has presented a      *   DOC FILE
//*            problem when converting from z/OS 2.2 to z/OS 2.4.   *   DOC FILE
//*                                                                 *   DOC FILE
//*       49   Addition of File 1012 which contains some thoughts   *   DOC FILE
//*            about systems programming, from an experienced       *   DOC FILE
//*            system programmer.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*       50   Addition of File 1013 which contains some thoughts   *   DOC FILE
//*            about systems programming, from David Spiegel.       *   DOC FILE
//*                                                                 *   DOC FILE
//*       51   Addition of File 1014 from (the late) Ken Tomiak.    *   DOC FILE
//*            This is a very interesting piece of code (a REXX     *   DOC FILE
//*            exec) which has been included here, not only as      *   DOC FILE
//*            an honor and a tribute to him, but also because      *   DOC FILE
//*            it is useful.  This REXX exec (called CONDCODE)      *   DOC FILE
//*            follows job execution and supplies statistics        *   DOC FILE
//*            somewhat similar to an IEFACTRT exit, about the      *   DOC FILE
//*            results of the job.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*       52   Addition of File 1015 from Ulrich Braeuer, and       *   DOC FILE
//*            contains a multi-purpose tool to perfom many         *   DOC FILE
//*            functions in DB2.  Much of this package is still     *   DOC FILE
//*            commented in German.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       53   Addition of File 1016 from Steve Myers, and          *   DOC FILE
//*            contains some of the uniquely written TSO commands   *   DOC FILE
//*            that he has produced.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*       54   Addition of File 1017 from Steve Myers, and          *   DOC FILE
//*            contains a batch utility to analyze the contents     *   DOC FILE
//*            of load libraries in detail.  This analysis can be   *   DOC FILE
//*            used to compare load libraries for changes, and      *   DOC FILE
//*            to understand details about their general contents.  *   DOC FILE
//*                                                                 *   DOC FILE
//*       55   Addition of File 1018 from Dale Tyvand, which        *   DOC FILE
//*            contains a "super duper" IEFACTRT exit, that         *   DOC FILE
//*            displays a lot of information. I think that          *   DOC FILE
//*            (at least) some shops would very much enjoy having   *   DOC FILE
//*            this exit available for their use, or even just      *   DOC FILE
//*            to learn from.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*       56   Addition of File 1019 from Steve Myers and is a      *   DOC FILE
//*            self-contained package of SMF-related programs.      *   DOC FILE
//*            This file has some overlap with Steve's File 956,    *   DOC FILE
//*            but it is suggested to use this file by itself.      *   DOC FILE
//*                                                                 *   DOC FILE
//*       57   Addition of File 1020 from Steve Myers and           *   DOC FILE
//*            contains a program to cross reference a large number *   DOC FILE
//*            of assembler listings, and to report the occurrence  *   DOC FILE
//*            of variables, across the whole collection.           *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-501 SECTION                                          *   DOC FILE
//*  V-501  CHANGES FOR VERSION 501 MAR 04, 2021                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        A   One of my email addresses has disappeared completely *   DOC FILE
//*            and I cannot recover any mail sent to there.         *   DOC FILE
//*                                                                 *   DOC FILE
//*            Please use sbgolob@cbttape.org to email me.          *   DOC FILE
//*                                                                 *   DOC FILE
//*            ( sbgolob@attglobal.net has disappeared )            *   DOC FILE
//*                                                                 *   DOC FILE
//*            sbgolob@cbttape.org is the only email address        *   DOC FILE
//*            that I currently use.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        1   Updates to File 006 and 008 as usual.  File 006      *   DOC FILE
//*            needs the tape version on the execs to be changed    *   DOC FILE
//*            from 500 to 501, and File 008 needs the general      *   DOC FILE
//*            overhaul to produce the Version 501 tape and files.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        2   Update to File 035 to bring PDS86 to the level:      *   DOC FILE
//*            PDS -- VERSION 8.6.18.9  FEBRUARY 16, 2021           *   DOC FILE
//*                                                                 *   DOC FILE
//*        3   Update to File 068 from Rob Prins.  This is a small  *   DOC FILE
//*            update to the TSTVS console program.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        4   Update to File 134 to change the documentation in    *   DOC FILE
//*            member @FILE135, to reflect the updated source       *   DOC FILE
//*            for REVIEW 49.7 and to advertise the presence of     *   DOC FILE
//*            Greg Price's magnificent IM (IMON) program whose     *   DOC FILE
//*            source code, and load modules, are now available     *   DOC FILE
//*            on CBT File 010.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        5   Updates to File 135 to reflect the ISO Date          *   DOC FILE
//*            updates to PDS -- VERSION 8.6.18.9  and to now       *   DOC FILE
//*            include the load modules for IMON from File 010.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        6   Update to File 147 from Rob Prins,                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        7   Update to File 182 from John Kalinich to bring       *   DOC FILE
//*            PDS86 to release:                                    *   DOC FILE
//*            PDS -- VERSION 8.6.18.9  FEBRUARY 16, 2021           *   DOC FILE
//*                                                                 *   DOC FILE
//*        8   Update to File 264 to do some renames and to         *   DOC FILE
//*            organize the versions of the LOOK program.           *   DOC FILE
//*            Make the 64-bit version of LOOK the main version.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        9   Updates to File 312 from Lionel Dyck.  Members       *   DOC FILE
//*            changed or added:  CONS, FTPB, NETRC, OMVSMAN.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 313 from Lionel Dyck, to add          *   DOC FILE
//*            SYNCFTP.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 415 from Rob Prins, to bring RPF      *   DOC FILE
//*            to version level 1.8.7.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 417 from Bruce Koss, Lionel Dyck,     *   DOC FILE
//*            and "the team" to bring RACFADM to level V35R0.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 423, to program LAA, to be able       *   DOC FILE
//*            to find all the DSAB's, even if they are above       *   DOC FILE
//*            the 16M line (31-bit addresses).                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 483 from Sam Golob, to the DTOD       *   DOC FILE
//*            program that was created from Thomas Ramseier's      *   DOC FILE
//*            model.  DTOD allows you to enter any STCK date,      *   DOC FILE
//*            and it will format it into time, date format.        *   DOC FILE
//*            EXAMPLE:  DTOD D458765434222221                      *   DOC FILE
//*            RESULT :                                             *   DOC FILE
//*            Date: Friday, 18th of May 2018 (05/18/18 2018.138)   *   DOC FILE
//*                  Time: 08:55:19.0                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 499 to combine the contents of        *   DOC FILE
//*            (the former) File 500 with it, thereby freeing up    *   DOC FILE
//*            File 500 for another use.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Addition of File 500 from Ben Marino, which contains *   DOC FILE
//*            his automation package for MVS 3.8, which is called  *   DOC FILE
//*            ECF, or Event Capture Facility.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 566 (from Sam Golob) to Sam Bass'     *   DOC FILE
//*            wonderful file, to change some JCL.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 634 (LISTUCB command) to get rid      *   DOC FILE
//*            of my obsolete email addresses for support.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 669 from Willy Jensen, which is a     *   DOC FILE
//*            complete revamping of his REXX Global Variables      *   DOC FILE
//*            package.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 731 from Sam Golob, to add some       *   DOC FILE
//*            new programs, and to fix some others.                *   DOC FILE
//*            Fixed documentation in the 8 TCAS programs, and      *   DOC FILE
//*            added or modified some other programs.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 745, which were old updates, but      *   DOC FILE
//*            which apparently had never been applied to the file. *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 797, to add the load library.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 899, to enhance the formatting in     *   DOC FILE
//*            the DACEE command.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Update to File 939 from Ze'ev Atlas, to bring        *   DOC FILE
//*            PCRE for z/OS to version 10.36.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Update to File 941 from Gregory Bliznets, to         *   DOC FILE
//*            modify and improve many of his programs.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Update to File 953 from John Gateley, to his large   *   DOC FILE
//*            collection of programs, and to his macro library.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Update to File 967 from Tom Conley, to raise his     *   DOC FILE
//*            "CUCI" CBT Usermod Collection for ISPF, to           *   DOC FILE
//*            Version 1.5.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Update to File 969 from Lionel Dyck, which is the    *   DOC FILE
//*            magnificent PDSEGEN package that can handle PDSE     *   DOC FILE
//*            Version 2 member generations much more easily than   *   DOC FILE
//*            most anything else.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Update to File 977 to add more URL addresses for     *   DOC FILE
//*            Moshix videos on YouTube.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Update to File 980 to add another zap to TASID       *   DOC FILE
//*            V5.21 to fix its initiator display for z/OS 2.4.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Update to File 985 from Marius Lewin, which is       *   DOC FILE
//*            a large update of his REXX exec collection.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Addition of File 1000 from Dan Dirkse, which         *   DOC FILE
//*            contains his Edit Macro Mass Change Facility, that   *   DOC FILE
//*            can apply an edit macro to many pds members at once. *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Addition of File 1001 from Peter Vels to contain     *   DOC FILE
//*            a nice collection of his REXX execs.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        34  Addition of File 1002 from Tom Conley and Bill       *   DOC FILE
//*            Smith, which contains some PDF presentations         *   DOC FILE
//*            about how to use SMP/E.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        35  Addition of File 1003 from Peter Sylvester, which    *   DOC FILE
//*            contains a few useful programs that were rescued     *   DOC FILE
//*            from former times.  (They work great.)  There is     *   DOC FILE
//*            a lot to learn from, in the coding.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        36  Addition of File 1004 from Reed Starnes, to add a    *   DOC FILE
//*            very useful tape mapping program called PRECIS.      *   DOC FILE
//*            (Thanks to John Kalinich for getting this started.)  *   DOC FILE
//*                                                                 *   DOC FILE
//*        37  Addition of File 1005 from Peter Sylvester, called   *   DOC FILE
//*            "Assembler Structured Programming Tool Set".         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-500 SECTION                                          *   DOC FILE
//*  V-500  CHANGES FOR VERSION 500 DEC 20, 2020                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        A   One of my email addresses has disappeared completely *   DOC FILE
//*            and I cannot recover any mail sent to there.         *   DOC FILE
//*                                                                 *   DOC FILE
//*            Please use sbgolob@cbttape.org to email me.          *   DOC FILE
//*                                                                 *   DOC FILE
//*            ( sbgolob@attglobal.net has disappeared )            *   DOC FILE
//*                                                                 *   DOC FILE
//*            sbgolob@cbttape.org is the only email address        *   DOC FILE
//*            that I currently use.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        1   Updates to File 006 and 008 as usual.  File 006      *   DOC FILE
//*            needs the tape version on the execs to be changed    *   DOC FILE
//*            from 499 to 500, and File 008 needs the general      *   DOC FILE
//*            overhaul to produce the Version 500 tape and files.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        2   Addition of File 010 from Greg Price, which is his   *   DOC FILE
//*            magnificent IMON monitor for z/OS, that used to      *   DOC FILE
//*            be a "pay product".  Greg has made both source and   *   DOC FILE
//*            load for IMON to now be available.  IMON is an       *   DOC FILE
//*            extraordinarily versatile and useful tool that is    *   DOC FILE
//*            now available for ALL SYSTEMS PROGRAMMERS TO USE     *   DOC FILE
//*            AND LEARN FROM.  Don't miss the opportunity...!!!    *   DOC FILE
//*                                                                 *   DOC FILE
//*        3   Update to File 019, which is John Hooper's file,     *   DOC FILE
//*            from Orazio Scaggion, to add SMS storage information *   DOC FILE
//*            to John's FLSMFDSN program.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        4   Update to File 034, to rename member IGGPRE00 to     *   DOC FILE
//*            its proper name of RACFUSER.  The member name in     *   DOC FILE
//*            the file did not match the actual contents of the    *   DOC FILE
//*            member.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        5   Update to File 035, which is the "quick install"     *   DOC FILE
//*            load library for many programs in this collection.   *   DOC FILE
//*            Member names changed are:                            *   DOC FILE
//*            ALLIDS  CPSCB  DVOL    LPSCB  PDS  PDSUR  PDSUR01    *   DOC FILE
//*            PDS38   PDS86  PDS86I  PDS8638  FASTPATH             *   DOC FILE
//*                                                                 *   DOC FILE
//*        6   Addition of File 042 from John Bradley.  This file   *   DOC FILE
//*            contains set of reporting utilities and general      *   DOC FILE
//*            manipulation code for Connect Direct z/OS            *   DOC FILE
//*            Statistics File contents.                            *   DOC FILE
//*            (The old contents of File 042 were moved to the      *   DOC FILE
//*            KEYWORDS member of File 006.)                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        7   Moved File 043 to File 006, together with the        *   DOC FILE
//*            contents of File 042.  That material can be found    *   DOC FILE
//*            in File 006, members KEYWORDS, KEYWORDH, and the     *   DOC FILE
//*            member KEYWORD is a CLIST to reconstitute KEYWORDH   *   DOC FILE
//*            from XMIT format to what it really is (VB-255).      *   DOC FILE
//*            So File 043 is empty now.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        8   Update to File 097 from Sam Golob to make a slight   *   DOC FILE
//*            change to the VVDSLIST program that is in this       *   DOC FILE
//*            collection.  The collection consists of old programs *   DOC FILE
//*            from Peoples National Bank of Washington (Seattle).  *   DOC FILE
//*            The VVDSLIST program still doesn't work for packs    *   DOC FILE
//*            on which the VVDS has SMS information.  If anybody   *   DOC FILE
//*            wants to fix that program, they are invited to       *   DOC FILE
//*            do so (please!).                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        9   Update to File 134 from Greg Price, to bring the     *   DOC FILE
//*            REVIEW program, and all its helpers, to the 49.7     *   DOC FILE
//*            Version level.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*       10   Update to File 135 (load library) to bring REVIEW    *   DOC FILE
//*            load modules to the Version 49.7 level, and to       *   DOC FILE
//*            bring the PDS 8.6 load modules (ISO dates) to the    *   DOC FILE
//*            PDS -- VERSION 8.6.18.5  NOVEMBER 26, 2020           *   DOC FILE
//*            version level.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*       11   Addition of File 137 from Billy Fenwick, which       *   DOC FILE
//*            contains a detailed report system, to carefully      *   DOC FILE
//*            and accurately control the distribution of reports,  *   DOC FILE
//*            to only those people who are allowed to see them.    *   DOC FILE
//*            (The VI rexx exec - which was on File 137 before,    *   DOC FILE
//*            is adequately covered by a fixed version in Files    *   DOC FILE
//*            942 and 964.)                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*       12   Updates to File 147 (which is the ARCHIVER package   *   DOC FILE
//*            from Rick Fochtman) made by Rob Prins.  Rob is now   *   DOC FILE
//*            the proprietor of this package.  Rob's program       *   DOC FILE
//*            package called RPF (File 415) now has an interface   *   DOC FILE
//*            to upload and download members from one of these     *   DOC FILE
//*            VSAM Archives automatically.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*       13   Update to File 160, which is Chuck Hoffman's file,   *   DOC FILE
//*            to add the former contents of File 010, which used   *   DOC FILE
//*            to contain Chuck's ISPFPRIM assembler program.       *   DOC FILE
//*            (File 010 now contains Greg Price's IMON monitor.)   *   DOC FILE
//*                                                                 *   DOC FILE
//*       14   Update to File 182 from John Kalinich, to bring      *   DOC FILE
//*            the PDS 8.6 program package to level:                *   DOC FILE
//*            PDS -- VERSION 8.6.18.5  NOVEMBER 26, 2020           *   DOC FILE
//*                                                                 *   DOC FILE
//*       15   Update to File 183 to fix FASTPATH, so it properly   *   DOC FILE
//*            invokes the SHOWzOS program.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*       16   Update to File300 to change CPSCB and LPSCB to       *   DOC FILE
//*            accommodate the new OPERPARM console attribute       *   DOC FILE
//*            in the PSCB control block.  (Load modules in File    *   DOC FILE
//*            035 have been changed as well.)                      *   DOC FILE
//*                                                                 *   DOC FILE
//*       17   Updates to File 312 from Lionel Dyck to add or       *   DOC FILE
//*            change the following packages (which are members     *   DOC FILE
//*            of the dataset):                                     *   DOC FILE
//*            CONCATIT  EDITMAC  EDSL  OMVSPAX  QTAB  REXXER       *   DOC FILE
//*            RUNC                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       18   Updates to File 313 from Lionel Dyck to add or       *   DOC FILE
//*            change the following packages (which are members     *   DOC FILE
//*            of the dataset):                                     *   DOC FILE
//*            SHAREVAR  TRYIT  TUTORPRT                            *   DOC FILE
//*                                                                 *   DOC FILE
//*       19   Updates to File321 from both Peter Farley and        *   DOC FILE
//*            Roland Schiradin.  The following members were        *   DOC FILE
//*            changed:                                             *   DOC FILE
//*            COBANALJ  COBANALZ  PIDTABLE  STRING64               *   DOC FILE
//*                                                                 *   DOC FILE
//*       20   Update to File 360 to put in an obituary for my      *   DOC FILE
//*            dear friend Gordon Boyd Hampton, who made updates    *   DOC FILE
//*            for the VOLS command and its HELP file.              *   DOC FILE
//*                                                                 *   DOC FILE
//*       21   Update to the TSSO file, File 404 from John          *   DOC FILE
//*            Kalinich, to add Word-format documentation for       *   DOC FILE
//*            TSSO.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*       22   Updates to File 415, which is RPF, from Rob Prins,   *   DOC FILE
//*            to raise its version release level to 1.8.6.         *   DOC FILE
//*            This is an improvement of five (5) release levels    *   DOC FILE
//*            since the last CBT Tape Version. (Last level 1.8.1)  *   DOC FILE
//*            (Rob has been busy. Thanks, Rob.)                    *   DOC FILE
//*                                                                 *   DOC FILE
//*       23   Updates to File 417, with is the RACF Administration *   DOC FILE
//*            Tool, RACFADM.  Current version level is 34.7.       *   DOC FILE
//*            (Version on the previous CBT Tape was 25.1.  This    *   DOC FILE
//*            represents a change OF 96 RELEASE LEVELS...!!!)      *   DOC FILE
//*            (Bruce Koss, Lionel Dyck, John Kalinich, and the     *   DOC FILE
//*            rest of the crew, have been busy too.)               *   DOC FILE
//*                                                                 *   DOC FILE
//*       24   Updates to File 434 from Mark Zelden, to improve     *   DOC FILE
//*            (once again) IPLINFO, and to add SDSFPRT.            *   DOC FILE
//*                                                                 *   DOC FILE
//*       25   Update to File 492 from Roland Schiradin, to bring   *   DOC FILE
//*            SHOWzOS to two new releases (7.25 and 8.01).         *   DOC FILE
//*            SHOWzOS Release 8.01 uses some new machine           *   DOC FILE
//*            instructions, and it may not run perfectly on some   *   DOC FILE
//*            machines.  Therefore you may run Release 7.25 which  *   DOC FILE
//*            is a clean release that can run on more machines.    *   DOC FILE
//*                                                                 *   DOC FILE
//*       26   Update to File 535 from Deru Sudibyo to fix CCAT.    *   DOC FILE
//*                                                                 *   DOC FILE
//*       27   Update to File 614 to add load modules and assembly  *   DOC FILE
//*            JCL for SHOWzOS 7.25 and 8.01.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*       28   Update to File 669 from Willy Jensen with a complete *   DOC FILE
//*            reshipment of his programs.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*       29   Update to File 684 from Sam Golob to add CHKSWAP     *   DOC FILE
//*            to RIck Fochtman's collection of programs.  I        *   DOC FILE
//*            found the program among Rick's stuff, and I figured  *   DOC FILE
//*            that it should be added here.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*       30   Update to File 731 from Sam Golob to add modified    *   DOC FILE
//*            versions of DACEE (to dump UTOKEN and ACEX option-   *   DOC FILE
//*            ally), ALLIDS (to supply addresses in storage where  *   DOC FILE
//*            your userid name occurs, besides just naming the     *   DOC FILE
//*            control block), and TSVT8, to add some descriptive   *   DOC FILE
//*            background documentation).                           *   DOC FILE
//*                                                                 *   DOC FILE
//*       31   Update to File 797, to update the load library.      *   DOC FILE
//*                                                                 *   DOC FILE
//*       32   Update to File 817 from Mike Wojtukiewicz, to add    *   DOC FILE
//*            the Q390TIOT program.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*       33   Update to File 836, to add a large bunch of          *   DOC FILE
//*            programs that were fixed, which came from the        *   DOC FILE
//*            Xephon archives and elsewhere.  Documentation        *   DOC FILE
//*            is in the file, as to the origin of all these        *   DOC FILE
//*            programs.  (See member @FILE836).                    *   DOC FILE
//*                                                                 *   DOC FILE
//*       34   Update to File 846 from Sam Golob, to add the        *   DOC FILE
//*            ONLCLEAR program, which removes identification       *   DOC FILE
//*            information from the VOL1 record of a disk pack.     *   DOC FILE
//*                                                                 *   DOC FILE
//*       35   Update to File 874, which is a HELP file for many    *   DOC FILE
//*            programs on the CBT Tape collection.  The change     *   DOC FILE
//*            was to the CPSCB help member, to add information     *   DOC FILE
//*            about adding or removing CONSOLE OPERPARM authority, *   DOC FILE
//*            which is a new PSCB setting.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*       36   Update to File 885, which is Albert Cheng's          *   DOC FILE
//*            version of the disassembler.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*       37   Update to File 895 from Rainer Nowak, which are      *   DOC FILE
//*            modifications related to STEMEDIT from CBT File      *   DOC FILE
//*            183.                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       38   Update to File 899 from Sam Golob, which contains    *   DOC FILE
//*            enhancements to the DACEE program.  (FACEE, the      *   DOC FILE
//*            callable version of DACEE, hasn't been touched yet.) *   DOC FILE
//*                                                                 *   DOC FILE
//*       39   Update to File 900, to add or modify the following   *   DOC FILE
//*            list of programs related to checksums:               *   DOC FILE
//*            CKS@  CKSPGM  CKSPGM$  CKSUM  CKSUM$  CKSUM#         *   DOC FILE
//*            CKSUMR  CKSUMR24  CKSUM24  CKSUM24$  MD5PGM          *   DOC FILE
//*            MD5P24  MD5P24$  MD5P24B  SHA1PGM  SHA1PGM$          *   DOC FILE
//*            SHA2PGM  SHA2PGM$                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*       40   Update to File 939 from Ze'ev Atlas, which contans   *   DOC FILE
//*            PCRE (Perl Compatible Regular Expressions) at        *   DOC FILE
//*            Release Level 10.35A.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*       41   Update to File 949 which contains a fix to the       *   DOC FILE
//*            PDSUR program (to avoid random padding at the end    *   DOC FILE
//*            of the unloaded dataset).                            *   DOC FILE
//*                                                                 *   DOC FILE
//*       42   Update to File 953 from John Gateley, to fix or add  *   DOC FILE
//*            the following members:                               *   DOC FILE
//*            DODYNP$$  DODYNPRC  PIPE$$$  PIPECNT  PIPESET        *   DOC FILE
//*            PROCSTEM  STEMSO$$  STEMSORT  TRYSTEM                *   DOC FILE
//*                                                                 *   DOC FILE
//*       43   Update to File 967 from Tom Conley, to upgrade       *   DOC FILE
//*            the CBT Usermods Collection for ISPF (CUCI)          *   DOC FILE
//*            to Version 1.3.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*       44   Update to File 969 from Lionel Dyck, to bring the    *   DOC FILE
//*            version level of PDSEGEN to 5.8.5.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*       45   Update to File 977 to add more UIDs for Moshix       *   DOC FILE
//*            mainframe videos.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*       46   Update to File 980 which is a correction to the      *   DOC FILE
//*            zap of TASID, to correct a JCL error (put the        *   DOC FILE
//*            comment BEFORE the SYSIN card for AMASPZAP.          *   DOC FILE
//*                                                                 *   DOC FILE
//*       47   Update to File 985 from Marius Lewin, to upgrade     *   DOC FILE
//*            his entire collection of Rexx tools:                 *   DOC FILE
//*            1)  rexx executing z/OS Unix commands.               *   DOC FILE
//*            2)  rexx executing another rexx given                *   DOC FILE
//*                as parameter.                                    *   DOC FILE
//*            3)  Miscellaneous rexx.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*       48   Update to File 997 from Lionel Dyck to upgrade his   *   DOC FILE
//*            z/OS Github access tool called Zigi.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       49   Addition of File 999 from Henry Fogwill which        *   DOC FILE
//*            contains a powerful batch utility to manage the      *   DOC FILE
//*            status of CICS resources in your CICSPlex.           *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-499 SECTION                                          *   DOC FILE
//*  V-499  CHANGES FOR VERSION 499 MAY 17, 2020                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        A   One of my email addresses has disappeared completely *   DOC FILE
//*            and I cannot recover any mail sent to there.         *   DOC FILE
//*                                                                 *   DOC FILE
//*            Please use sbgolob@cbttape.org to email me.          *   DOC FILE
//*                                                                 *   DOC FILE
//*            ( sbgolob@attglobal.net has disappeared )            *   DOC FILE
//*                                                                 *   DOC FILE
//*            Please try not to use sbgolob@att.net because I      *   DOC FILE
//*            seldom look there.  It is just a backup email.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        1   Updates to File 006 and 008 as usual.  File 006      *   DOC FILE
//*            needs the tape version on the execs to be changed    *   DOC FILE
//*            from 496 to 498, and File 008 needs the general      *   DOC FILE
//*            overhaul to produce the Version 498 tape and files.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        2   Update to File 035, with changed or updated modules  *   DOC FILE
//*            as follows:                                          *   DOC FILE
//*            ALLIDS CNCLPG LISTHEAD LISTMOD LISTMODD ONLCLIP      *   DOC FILE
//*            ONLCLIPX PDS PDS38 PDS86 PDS86I PDS8638              *   DOC FILE
//*            with ONLCLIP as a newly written program.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        3   Update to File 093, to supply a corrected version    *   DOC FILE
//*            of the UPDTE program, which somehow never made it    *   DOC FILE
//*            to the CBT Tape, despite the fact that it had been   *   DOC FILE
//*            around for a very long time (since 1983)..!!         *   DOC FILE
//*                                                                 *   DOC FILE
//*            I have a request for all of you:                     *   DOC FILE
//*            If you know of any program or program version that   *   DOC FILE
//*            is better than something which we have on the CBT    *   DOC FILE
//*            Tape, please let me know, so we can add it to the    *   DOC FILE
//*            collection.  Thank you very much, in advance.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        4   Update to File 120 from Sam Golob, to add some new   *   DOC FILE
//*            articles.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*      BM1911NV  :  The Value of Tools, new and old - Part 1      *   DOC FILE
//*      BM1912DE  :  The Value of Tools, new and old - Part 2      *   DOC FILE
//*                   (Some newer tools you may not know about)     *   DOC FILE
//*      BM2001JA  :  8-character TSO userids in z/OS 2.3           *   DOC FILE
//*      BM2001JB  :  Saving and reloading IPL text-a new technique *   DOC FILE
//*      BM2001JC  :  CNCLPG - Altering an address space - for free *   DOC FILE
//*      BM2002FE  :  ONLCLIP - Changing the VOLSER of a disk pack  *   DOC FILE
//*                   (while the pack remains online)               *   DOC FILE
//*      BM2003MA  :  Using z/OS System Services Macros, or not     *   DOC FILE
//*                                                                 *   DOC FILE
//*        5   Update to File 134 to fix the Fullscreen ZAP program *   DOC FILE
//*            so that it takes a UNIT(uuuu) parameter if the       *   DOC FILE
//*            volser of two packs are the same.  There are times   *   DOC FILE
//*            when this can happen.  The two packs just can't be   *   DOC FILE
//*            online at the same time.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        6   Update to File 135 to update the PDS86 program,      *   DOC FILE
//*            REVIEW, and Fullscreen ZAP load modules.             *   DOC FILE
//*            SHOWzOS updated to Version 7.24.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        7   Update to File 166 from Vinh Vu, to add the          *   DOC FILE
//*            following programs to his collection:                *   DOC FILE
//*            $$LIST $ALIDEF $CATDEF $IEASYS $MCOPY $MDEL $MEM     *   DOC FILE
//*            $MREN $POINT $RXSYMBL $SYMSUB $SYSINFO $SYSPRM       *   DOC FILE
//*            and to update the following program:  $CPU           *   DOC FILE
//*                                                                 *   DOC FILE
//*        8   Update to File 168 to fix the following programs:    *   DOC FILE
//*            DSPRINT, MEMBER, SHOWDS                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        9   Update to File 182 to the following level:           *   DOC FILE
//*            PDS -- VERSION 8.6.18.2  APRIL 28, 2020              *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 185 to update the load library.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 247 to add BDMUSADD and BDMUSDEL.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 300 to fix the ZAP program so it      *   DOC FILE
//*            can take a UNIT(nnnn) parameter.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Updates to File 312 from Lionel Dyck to update       *   DOC FILE
//*            the following packages:                              *   DOC FILE
//*            FIXKEYS IPLTCHK ONLY PLPISPF QTAB                    *   DOC FILE
//*            and to add the following packages:                   *   DOC FILE
//*            ALIGN  BODY                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Updates to File 313 from Lionel Dyck to update       *   DOC FILE
//*            the following packages:                              *   DOC FILE
//*            SAVELAB  SPELLC  SPELLCHG                            *   DOC FILE
//*            and to add the following package:                    *   DOC FILE
//*            TSO8CHAR                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Updates to File 314 from Lionel Dyck to update       *   DOC FILE
//*            the following package:                               *   DOC FILE
//*            ZTSOHELP                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 321 from Peter Farley to update       *   DOC FILE
//*            the COBANALZ program.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Cosmetic update to File 367.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 404 to fix a vulnerability.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 415 from Rob Prins, to bring his      *   DOC FILE
//*            magnificent TSO-based editor and multi-utility       *   DOC FILE
//*            program RPF to the following level:                  *   DOC FILE
//*            RPF V1R8M1 Build: 05/05/20 11.45                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Addition of File 417 from a group of developers,     *   DOC FILE
//*            which is an unbelievably nice RACF administration    *   DOC FILE
//*            tool called RACFADM.  It makes RACF administration   *   DOC FILE
//*            much easier.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 423 from Sam Golob to add three       *   DOC FILE
//*            programs that make it much easier to find out        *   DOC FILE
//*            the content of load modules and PDSE load objects.   *   DOC FILE
//*            LISTMOD, LISTHEAD, LISTMODD.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 434 from Mark Zelden to add a         *   DOC FILE
//*            package called SDSFPRT.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 488 from Jim Iannone to completely    *   DOC FILE
//*            overhaul his package of utilities for production     *   DOC FILE
//*            control.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Update to File 492 from Roland Schiradin, to bring   *   DOC FILE
//*            SHOWzOS to Level 7.24.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Numerous updates to File 612 from Albert Cheng.      *   DOC FILE
//*            members added or modified:                           *   DOC FILE
//*            BLOCATE DSPACE DUDASD  HDSPACE JSRCHLOG LOAD         *   DOC FILE
//*            LOCATE  QIODF  REGSIZE SRCHLOG SRCHLOGF              *   DOC FILE
//*            VIEWPARM                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Update to File 614 which consists of SHOWzOS and     *   DOC FILE
//*            SHOWMVS load libraries in XMIT format, for various   *   DOC FILE
//*            levels of SHOWzOS.  Updated to add load module       *   DOC FILE
//*            library for SHOWzOS 7.24 (assembled on z/OS 2.4).    *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Update to File 624 from Sam Golob to fix the         *   DOC FILE
//*            TSOUCB program.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Massive update to File 669 from Willy Jensen,        *   DOC FILE
//*            which contains:                                      *   DOC FILE
//*            REXX Global Variables, VSAM bulk access, OpComm etc  *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Update to File 670 from Deru Sudibyo, to the REXX    *   DOC FILE
//*            mathematical function package called DRXMATH.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Update to File 731 to modify programs ALLIDS         *   DOC FILE
//*            and DACEE.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Update to File 797 to fix the load library.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Update to File 826 to add a display of CHSTS         *   DOC FILE
//*            flags to the CNCLPG program.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Update to File 836 to add the LLASTATS program       *   DOC FILE
//*            and to fix the STRPATRN program.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Update to File 846 to add the ONLCLIP program and    *   DOC FILE
//*            to fix the TRK0INIT program.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        34  Update to File 847 to fix some documentation.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        35  Addition of File 882 from Tony Thigpen and Dana      *   DOC FILE
//*            Mitchell to provide a nice console automation        *   DOC FILE
//*            program, and an MPF installation exit.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        36  Addition of File 884 from Abe Kornelis to contain    *   DOC FILE
//*            his comprehensive macro library, and other           *   DOC FILE
//*            materials.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        37  Update to File 885 from Albert Cheng, to update      *   DOC FILE
//*            his disassembler that recognizes the new JUMP type   *   DOC FILE
//*            instructions, etc.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        38  Update to File 899 to add functionality to the       *   DOC FILE
//*            DACEE program, so that it also displays the ACEE     *   DOC FILE
//*            TOKEN and the ACEX as well as the ACEE.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        39  Update to File 900 to add batch programs (24-bit     *   DOC FILE
//*            and 31-bit) to produce the same result as the        *   DOC FILE
//*            SH5SUM TSO command.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        40  Update to File 926 to include a compile of the       *   DOC FILE
//*            AMORT program using COBOL 6.3.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        41  Update to File 939 from Ze'ev Atlas, to contain      *   DOC FILE
//*            his port of PCRE (Perl Compatible Regular Expres-    *   DOC FILE
//*            sions) at level 10.34A.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        42  Updates to File 942 to include fixes from Jim        *   DOC FILE
//*            Turner to the VI exec that displays VSAM dataset     *   DOC FILE
//*            characteristics from an ISPF 3.4 dataset list.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        43  Update to File 950 to include a change to AUTOMAT,   *   DOC FILE
//*            so that its data file is contained in an ISPF        *   DOC FILE
//*            profile dataset with a more standard name.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        44  Update to File 959 from Richard Pinion, to fix the   *   DOC FILE
//*            PARTREL program so that it can release space from    *   DOC FILE
//*            uncataloged datasets.  PARTREL was also found to     *   DOC FILE
//*            work for PDSE's if they aren't too full.  (This      *   DOC FILE
//*            program uses IBM's PARTREL macro to partially        *   DOC FILE
//*            release allocated dataset space.)                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        45  Update to File 964 to contain Jim Turner's fixes     *   DOC FILE
//*            for the VI exec, and it includes a fix from John     *   DOC FILE
//*            Kalinich to the RXDATE rexx exec.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        46  Update to File 969 from Lionel Dyck to bring the     *   DOC FILE
//*            PDSEGEN package to Level 5.6.9.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        47  Update to File 977 to add more URL's for Moshix's    *   DOC FILE
//*            YouTube videos.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        48  Update to File 985 from Marius Lewin, to augment     *   DOC FILE
//*            his large collection of REXX execs.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        49  Update to File 990 from Lionel Dyck, to upgrade      *   DOC FILE
//*            his ISPF Developer's Guide.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        50  Update to File 992 which contains some code pieces   *   DOC FILE
//*            to add security to TSO commands, etc.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        51  Update to File 994 with some necessary fixes to      *   DOC FILE
//*            the LISTHEAD and LISTMOD programs.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        52  Addition of File 996 from Larry Slaten which         *   DOC FILE
//*            contains his:                                        *   DOC FILE
//*            Load Library Scanner                                 *   DOC FILE
//*            REXX Toolkit                                         *   DOC FILE
//*            String Handling Package                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        53  Addition of File 997 from Henri Kuiper and Lionel    *   DOC FILE
//*            Dyck, which contains their ZIGI ISPF application     *   DOC FILE
//*            to access Github from ISPF.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        54  Addition of File 998 from William Smith to contain   *   DOC FILE
//*            the RACFROD, RACF reporting system.                  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-498 SECTION                                          *   DOC FILE
//*  V-498  CHANGES FOR VERSION 498 DEC 01, 2019                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        A   One of my email addresses has disappeared completely *   DOC FILE
//*            and I cannot recover any mail sent to there.         *   DOC FILE
//*                                                                 *   DOC FILE
//*            Please use sbgolob@cbttape.org to email me.          *   DOC FILE
//*                                                                 *   DOC FILE
//*            ( sbgolob@attglobal.net has disappeared )            *   DOC FILE
//*                                                                 *   DOC FILE
//*            Please try not to use sbgolob@att.net because I      *   DOC FILE
//*            seldom look there.  It is just a backup email.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        1   Updates to File 006 and 008 as usual.  File 006      *   DOC FILE
//*            needs the tape version on the execs to be changed    *   DOC FILE
//*            from 496 to 498, and File 008 needs the general      *   DOC FILE
//*            overhaul to produce the Version 498 tape and files.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        2   Update to File 019 just to adjust the support        *   DOC FILE
//*            address.  (Memory of the author John Hooper)         *   DOC FILE
//*                                                                 *   DOC FILE
//*        3   Update to File 024 to replace its copy of EPUTL      *   DOC FILE
//*            with an up-to-date version.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        4   Update to File 035 with the following modules,       *   DOC FILE
//*            that either have been updated, or are new:           *   DOC FILE
//*            ACTIVE CPSCB DTEST LISTHEAD LISTMOD LISTMODD         *   DOC FILE
//*            LOADTEST LOADTN LPSCB PDS PDS38 PDS86 PDS86I         *   DOC FILE
//*            PDS8638 SHOWTCAS SHOWTPVT USERS                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        5   Update to File 048 to try and make sure that         *   DOC FILE
//*            the LISTSPC and LISTVOL commands work.  If there     *   DOC FILE
//*            are many datasets in a given level, there might      *   DOC FILE
//*            not be enough GETMAIN-ed space to put their data,    *   DOC FILE
//*            but at least they work most of the time.  Better     *   DOC FILE
//*            to use DSAT from File 296, but these are my old      *   DOC FILE
//*            standby commands from the early 80's, and I want     *   DOC FILE
//*            them to still be usable.  Changes needed to          *   DOC FILE
//*            LOCINDEX primarily.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        6   Update to File 068 from Rob Prins, to upgrade        *   DOC FILE
//*            TSTVS from version 3.0 to version 3.1.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        7   Update to File 112 from Tony Cieri, with a small     *   DOC FILE
//*            fix to the VTOC TSO command.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        8   Update to File 119 to fix a GETMAIN/FREEMAIN         *   DOC FILE
//*            problem in the EPUTL subrouine.  This fix should     *   DOC FILE
//*            be applied to all occurrences of EPUTL on the CBT    *   DOC FILE
//*            Tape, and I have been trying to do so.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        9   Update to File 120 from Sam Golob, to make a few     *   DOC FILE
//*            minor updates to some articles and doc members.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 134 from Greg Price, to bring the     *   DOC FILE
//*            level of REVIEW to (at least) 49.0.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update of File 135 from Greg Price and John Kalinich *   DOC FILE
//*            to bring the level of REVIEW load modules to (at     *   DOC FILE
//*            least) 49.0 and the load modules for PDS 8.6 up to   *   DOC FILE
//*            (at least) 8.6.18.0.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 136, to propagate the aforementioned  *   DOC FILE
//*            fix (File 119) to the EPUTL subroutine.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 170 from Frank O'Quinn to add the     *   DOC FILE
//*            USERS TSO command which he wrote.  This is similar   *   DOC FILE
//*            to, but not identical with, the USERS command that   *   DOC FILE
//*            is in File 300.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Updates to File 182 from John Kalinich, to bring     *   DOC FILE
//*            the PDS 8.6 package to version level 8.6.18.0.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 185 to reassemble the sample auth     *   DOC FILE
//*            tables (source and load are here).                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 228 from Peter van der Woude, to      *   DOC FILE
//*            update Bill Horton's system for recovering datasets  *   DOC FILE
//*            that were backed up by HSM.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Updates to File 300.  Some of these are very         *   DOC FILE
//*            interesting:                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*            ACTIVE    -  Shows active jobs. Same load module     *   DOC FILE
//*                         as USERS                                *   DOC FILE
//*            DTOD      -  TSO command with argument of time       *   DOC FILE
//*                         in STCK format and it will format       *   DOC FILE
//*                         time-of-day, day-of-week, and date.     *   DOC FILE
//*                         Example:  DTOD D7121FBDF6CDD080         *   DOC FILE
//*                         Output:                                 *   DOC FILE
//*                           Date: Sunday, 24th of November 2019   *   DOC FILE
//*                           (11/24/19 2019.328) Time: 06:24:30.8  *   DOC FILE
//*            LPSCB     -  List PSCB, UPT, ECT fields.             *   DOC FILE
//*                         Modified to show end of control blocks. *   DOC FILE
//*            REVIEW@   -  Doc. Describe the distinction between   *   DOC FILE
//*                         Bill Godfrey's original REVIEW program  *   DOC FILE
//*                         and Greg Price's versions, 80000 more   *   DOC FILE
//*                         lines of code later.                    *   DOC FILE
//*            SYSTEM    -  An old command. Still works a bit.      *   DOC FILE
//*                         Doesn't show memory size because the    *   DOC FILE
//*                         field moved.                            *   DOC FILE
//*            SYSTEM$   -  Assembly JCL for old SYSTEM command     *   DOC FILE
//*            SYSTEM00  -  Old version of SYSTEM                   *   DOC FILE
//*            TODPRINT  -  Subroutine to format TOD clock input    *   DOC FILE
//*                         (from Thomas Ramseier)                  *   DOC FILE
//*            USERS     -  Assembly from a disassembly, to show    *   DOC FILE
//*                         currently logged-on TSO users.          *   DOC FILE
//*            USERSACT  -  Doc on what I did to try and improve    *   DOC FILE
//*                         the disassembled source for USERS and   *   DOC FILE
//*                         ACTIVE (same source code for both).     *   DOC FILE
//*            USERSC1   -  Record of some of the original changes  *   DOC FILE
//*                         to the source code of USERS and ACTIVE. *   DOC FILE
//*            USERS00   -  Original disassembly of USERS, ACTIVE.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Updates to File 312 from Lionel Dyck.  Quite a few   *   DOC FILE
//*            of them.                                             *   DOC FILE
//*            Members changed or added:                            *   DOC FILE
//*            FINDDDM  FINDDSN   FTPB  FTPB$CHG  FTPB#  FTPB@      *   DOC FILE
//*            PLPISPF  PLPISPF$  QTAB                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 313 from Lionel Dyck to update TRYIT. *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 313 from Lionel Dyck to update ZSYNC. *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 415 from Rob Prins, to bring the      *   DOC FILE
//*            RPF multi-utility product to Version 1.7.7.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 423 to enhance the LISTHEAD program   *   DOC FILE
//*            and to add the LISTMOD program to display the        *   DOC FILE
//*            contents of load modules, in hex.  Also fixed Jeff   *   DOC FILE
//*            Broido's TERMSIZE command which uses the GTSIZE      *   DOC FILE
//*            macro and is not APF-authorized.  Get the same       *   DOC FILE
//*            information in the TERMSZ command which pulls the    *   DOC FILE
//*            same information from the TSB and which must be      *   DOC FILE
//*            APF-authorized.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 434 from Mark Zelden, to update       *   DOC FILE
//*            IPLINFO and a few other members.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Update to File 442 and 443 to update Kimu's contact  *   DOC FILE
//*            info and website info.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Updates to File 452 from Dan Dalby which is a        *   DOC FILE
//*            general overhaul of much of his collection.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Updates to File 488 from Jim Iannone which is also   *   DOC FILE
//*            a complete overhaul of his entire collection of      *   DOC FILE
//*            utilities.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Update to File 566 just to fix the EPUTL subroutine. *   DOC FILE
//*            See update to File 119.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Update to File 597 from Hans Westheim and Paul       *   DOC FILE
//*            Naidoo, which is an MPF exit.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Update to File 669 from Willy Jensen to enhance      *   DOC FILE
//*            his REXX global variables package, and his other     *   DOC FILE
//*            materials (VSAM bylk access), etc.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Updates to File 731 from Sam Golob, to introduce     *   DOC FILE
//*            a whole class of programs, based on the TCAS         *   DOC FILE
//*            control block.  SHOWTCAS and SHOWTPVT, and other     *   DOC FILE
//*            programs were enhanced or created.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Update to File 776 to make sure that its version     *   DOC FILE
//*            of the EPUTL subroutine was updated.  (See CBT       *   DOC FILE
//*            File 119 above.)                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Update to File 797 from Sam Golob.  Fix the load     *   DOC FILE
//*            library.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Update to File 836 to add the RACFAUTH program.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        34  Update to File 852 to bring the GCC 3.2.3            *   DOC FILE
//*            C-language compiler to level 9.0.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        35  Update to File 853 which is the GCC 3.4.6            *   DOC FILE
//*            C-language compiler.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        36  Updates to Files 860, 861, and 862 to change the     *   DOC FILE
//*            support address for Gerhard Postpischil, of          *   DOC FILE
//*            blessed memory.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        37  Update to File 874 from Sam Golob, to add or fix     *   DOC FILE
//*            some of the HELP members listed there.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        38  Update to File 899, which is the DACEE program,      *   DOC FILE
//*            to update the EPUTL subroutine (see CBT File 119).   *   DOC FILE
//*                                                                 *   DOC FILE
//*        39  Update to File 939, from Ze'ev Atlas, which is a     *   DOC FILE
//*            port of PCRE (Perl Compatible Regular Expressions)   *   DOC FILE
//*            Release 10.33 to z/OS.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        40  Update to File 950 from Sam Golob, to add another    *   DOC FILE
//*            model AUTOMAT profile, which may fit the needs of    *   DOC FILE
//*            more users.  See member AUTOMAT@.  Problem with      *   DOC FILE
//*            the other sample, was that it didn't show you how    *   DOC FILE
//*            to open primary ISPF screens.  This one does that.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        41  Update to File 961 from Yves Colliard, which         *   DOC FILE
//*            contains a collection of ISPF commands that can      *   DOC FILE
//*            be added to your session.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        42  Update to File 966 from Steve Myers, which is a      *   DOC FILE
//*            full HLASM Assembler prompter (useful).              *   DOC FILE
//*                                                                 *   DOC FILE
//*        43  Update to File 967 from Tom Conley.  Rename of the   *   DOC FILE
//*            collection.  (CBT Usermods Collection for ISPF.)     *   DOC FILE
//*                                                                 *   DOC FILE
//*        44  Update to File 969 from Lionel Dyck, which is the    *   DOC FILE
//*            PDSEGEN tool to effectively deal with PDSE Vers 2    *   DOC FILE
//*            member generations.  Currently Version 5.6.0.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        45  Update to File 973 from David Spiegel, which is a    *   DOC FILE
//*            set of fixes for the WATFIV Fortran Compiler from    *   DOC FILE
//*            the University of Waterloo.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        46  Updates to File 977 from Moshe Bar (via Sam Golob)   *   DOC FILE
//*            to add URL's to the table of URL's for all of the    *   DOC FILE
//*            Moshix YouTube videos, to date.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        47  Update to File 988 from Shmuel Metz, with his        *   DOC FILE
//*            suggestions for porting the COREZAP program to       *   DOC FILE
//*            MVS and z/OS.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        48  Update to File 989 from Willy Jensen, which is his   *   DOC FILE
//*            fantastic system for locating any given PDS member   *   DOC FILE
//*            name in the entire z/OS system.  The system is       *   DOC FILE
//*            called FINDMEM.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        49  Update to File 990 from Lionel Dyck, which is his    *   DOC FILE
//*            guide for ISPF developers.  The current version is   *   DOC FILE
//*            Version 1.3.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        50  Addition of File 991 from John Hamlet, which is      *   DOC FILE
//*            his program for temporarily installing an update     *   DOC FILE
//*            to an SVC number.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        51  Addition of File 992 to contain some code snippets   *   DOC FILE
//*            that will help limit access to TSO commands, etc.    *   DOC FILE
//*            These are not full programs, but code pieces that    *   DOC FILE
//*            are used to control TSO command usage etc. in novel  *   DOC FILE
//*            ways.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        52  Addition of File 993 from Robert Sample and          *   DOC FILE
//*            contains a COBOL program to read many types of SMF   *   DOC FILE
//*            records.  This is unusual in that COBOL is not       *   DOC FILE
//*            usually the language of choice for this purpose,     *   DOC FILE
//*            but the program works well.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        53  Addition of File 994 from Sam Golob, with an         *   DOC FILE
//*            improved version of Jeff Broido's LISTHEAD program,  *   DOC FILE
//*            and another program called LISTMOD, to display the   *   DOC FILE
//*            contents of load modules in hex, showing all         *   DOC FILE
//*            displacements, which is easy to read.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        54  Addition of File 995 from Bill Smith, which is a     *   DOC FILE
//*            Wylbur distribution that is suitable for running     *   DOC FILE
//*            on MVS 3.8 and MVS/SP.  (pre-XA)                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-497 SECTION                                          *   DOC FILE
//*  V-497  CHANGES FOR VERSION 497 APR 29, 2019                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        A   One of my email addresses has disappeared completely *   DOC FILE
//*            and I cannot recover any mail sent to there.         *   DOC FILE
//*                                                                 *   DOC FILE
//*            Please use sbgolob@cbttape.org to email me.          *   DOC FILE
//*                                                                 *   DOC FILE
//*            ( sbgolob@attglobal.net has disappeared )            *   DOC FILE
//*                                                                 *   DOC FILE
//*            Please try not to use sbgolob@att.net because I      *   DOC FILE
//*            seldom look there.  It is just a backup email.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        1   Updates to File 006 and 008 as usual.  File 006      *   DOC FILE
//*            needs the tape version on the execs to be changed    *   DOC FILE
//*            from 496 to 497, and File 008 needs the general      *   DOC FILE
//*            overhaul to produce the Version 497 tape and files.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        2   Update to File 022 to "modernize it" and put in      *   DOC FILE
//*            members $$$#DATE and @FILE022.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        3   Updates to File 035 (load module file) as follows:   *   DOC FILE
//*                                                                 *   DOC FILE
//*            CNCLPG    -  Full power to cancel and burn jobs      *   DOC FILE
//*            CNCLP125  -  You may want less power here            *   DOC FILE
//*            LOOK      -  31-bit LOOK program - made reusable     *   DOC FILE
//*            LOOKJ     -  31-bit LOOK program - made reusable     *   DOC FILE
//*            LOOKN     -  64-bit LOOK program - preferred to use  *   DOC FILE
//*                         (You should alias this as LOOK)         *   DOC FILE
//*            LOOKX     -  31-bit LOOK assembled with "plainer"    *   DOC FILE
//*                         CBMACS (macro formatting module)        *   DOC FILE
//*            PDS       -  PDS 8.6.17.9 - USA dates                *   DOC FILE
//*            PDS38     -  PDS 8.6.17.9 - for MVS 3.8              *   DOC FILE
//*            PDS86     -  PDS 8.6.17.9 - USA dates                *   DOC FILE
//*            PDS86I    -  PDS 8.6.17.9 - ISO dates                *   DOC FILE
//*            PDS8638   -  PDS 8.6.17.9 - for MVS 3.8 - ISO dates  *   DOC FILE
//*            SHOWTPVT  -  Display contents of the actual TPVT     *   DOC FILE
//*                         (TSO PARMLIB Vector Table) addresses    *   DOC FILE
//*                         and bit settings.                       *   DOC FILE
//*            TAPEMAP   -  Normal TAPEMAP from File 299            *   DOC FILE
//*            TAPEMAPM  -  TAPEMAP fixed for file numbers > 9999   *   DOC FILE
//*            TAPEMAPX  -  TAPEMAP with Jump instructions, from    *   DOC FILE
//*                         File 804                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        4   Update to File 068, TSTVS to include a better        *   DOC FILE
//*            install job.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        5   Update to File 134 to raise the version level of     *   DOC FILE
//*            the REVIEW package to 48.6.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        6   Updates to File 135 to raise the version level of    *   DOC FILE
//*            the REVIEW package to 48.6, and the PDS package      *   DOC FILE
//*            to 8.6.17.9.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        7   Updates to File 182 to raise the version level of    *   DOC FILE
//*            the PDS command package to 8.6.17.9.                 *   DOC FILE
//*            PDS -- VERSION 8.6.17.9  APRIL 10, 2019              *   DOC FILE
//*                                                                 *   DOC FILE
//*        8   Update to File 185 to add the source for the         *   DOC FILE
//*            SHOWTPVT TSO command, which displays the current     *   DOC FILE
//*            addresses and bit settings in the TPVT (TSO PARMLIB  *   DOC FILE
//*            Vector Table).                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        9   Update to File 247 to fix the MYID* programs for     *   DOC FILE
//*            correctly displaying 8-character TSO userids.        *   DOC FILE
//*                                                                 *   DOC FILE
//*       10   Updates to the LOOK family of programs to fix        *   DOC FILE
//*            several issues:  (from Joe Reichman)                 *   DOC FILE
//*                                                                 *   DOC FILE
//*            A.  First, the old design of LOOK allowed you to     *   DOC FILE
//*            look at storage in your own address space without    *   DOC FILE
//*            being authorized.  This involved allocating          *   DOC FILE
//*            user-key CSA, which will not be allowed in z/OS      *   DOC FILE
//*            2.4 and later releases.  So now LOOK has to be       *   DOC FILE
//*            authorized always, in order to allocate "system      *   DOC FILE
//*            key CSA" for its work space.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*            B.  LOOK could not examine 64-bit storage.  The      *   DOC FILE
//*            new program LOOKN was developed, mostly by Joe       *   DOC FILE
//*            Reichman (I helped a bit), which addresses 64-bit    *   DOC FILE
//*            storage and 31-bit storage as well.  The LOOKN       *   DOC FILE
//*            program is the "way to go".                          *   DOC FILE
//*                                                                 *   DOC FILE
//*            C.  Joe coded much better error recovery and SRB     *   DOC FILE
//*            management into both versions of LOOK, so that in    *   DOC FILE
//*            the latest systems, the program doesn't bomb with    *   DOC FILE
//*            S0C4's and S0C1's and exit in the middle of doing    *   DOC FILE
//*            your work.  Both programs are much more reliable     *   DOC FILE
//*            now.                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       11   Updates to File 299, mainly to add a version of      *   DOC FILE
//*            TAPEMAP (member TAPEMAPM) which contains support     *   DOC FILE
//*            for more than 9999 file sequence numbers in the      *   DOC FILE
//*            tape labels (Wayne Rhoten's design to support up     *   DOC FILE
//*            to 65535 file sequence numbers).                     *   DOC FILE
//*                                                                 *   DOC FILE
//*       12   Updates to File 312 from Lionel Dyck to add          *   DOC FILE
//*            packages DROPISPF and FIXKEYS, and to modify         *   DOC FILE
//*            packages:  CAVXTRT, LOADISPF, PLPISPF, and RUNC.     *   DOC FILE
//*                                                                 *   DOC FILE
//*       13   Update to File 313 from Lionel Dyck to modify        *   DOC FILE
//*            the SETCLIP package.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       14   Update to File 314 from Lionel Dyck to modify        *   DOC FILE
//*            the ZSYC program.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*       15   Update to File 316 to fix the PDSLOAD program:       *   DOC FILE
//*            Corrected program for 8-digit ISPF userids.          *   DOC FILE
//*                (Sam Golob, Greg Price, and Bill Godfrey)        *   DOC FILE
//*            Also forced extended ISPF stats when they were       *   DOC FILE
//*            there before, even if the counts were not bigger     *   DOC FILE
//*            than 65535.  Version 10.1                            *   DOC FILE
//*                                                                 *   DOC FILE
//*       16   Update to File 353 to "modernize it" and put in      *   DOC FILE
//*            members $$$#DATE and @FILE353.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*       17   Update to File 406 to "fix the grammar" in the       *   DOC FILE
//*            CQX source code, mostly, for example:                *   DOC FILE
//*                L         R3,16(,R3)   instead of                *   DOC FILE
//*                L         R3,16(R3)                              *   DOC FILE
//*            and also to add some power (optionally) to purge     *   DOC FILE
//*            more jobs (include some STC's).                      *   DOC FILE
//*                                                                 *   DOC FILE
//*       18   Updates to File 415 which is RPF (Rob's Programming  *   DOC FILE
//*            Facility) from Rob Prins.  Rob improved the package  *   DOC FILE
//*            by four releases, to V1R7M1.  This package offers    *   DOC FILE
//*            an ISPF-like editor from TSO READY mode, and it also *   DOC FILE
//*            has quite a number of other programming facilities,  *   DOC FILE
//*            somewhat similar to ISPF, and a PANVALET and a       *   DOC FILE
//*            LIBRARIAN option, to edit files directly from them.  *   DOC FILE
//*            Much improved screen size support.  Added HEX mode   *   DOC FILE
//*            browsing.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*       19   Updates to File 434 from Mark Zelden.  Updates to:   *   DOC FILE
//*            CMD34, IPLINFO, ONEPAK22, TWOPAK22.                  *   DOC FILE
//*            Addition of:  TWOPAK23.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*       20   Update to the documentation for File 473, which      *   DOC FILE
//*            is the CHKASVT program from Scott Finlayson, to      *   DOC FILE
//*            give attribution to Ron Robinson as well.            *   DOC FILE
//*                                                                 *   DOC FILE
//*       21   Update to File 483 from Sam Golob, to fix the QSMS   *   DOC FILE
//*            program from several errors.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*       22   Massive changes to File 488 from Jim Iannone.        *   DOC FILE
//*                                                                 *   DOC FILE
//*       23   Massive changes to File 489 from Jim Iannone.        *   DOC FILE
//*                                                                 *   DOC FILE
//*       24   Update to File 535 from Deru Sudibyo to enhance      *   DOC FILE
//*            the CCAT program (dynamically concatenate and        *   DOC FILE
//*            deconcatenate datasets).                             *   DOC FILE
//*                                                                 *   DOC FILE
//*       25   Update to File 536 to change Deru Sudibyo's email    *   DOC FILE
//*            address.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*       26   Update to File 542 from George Pavlik to provide     *   DOC FILE
//*            helpful notes about using member SWAREQ22.           *   DOC FILE
//*                                                                 *   DOC FILE
//*       27   Many updates to File 669 from Willy Jensen.          *   DOC FILE
//*            (Collection of REXX functions, etc.)                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       28   Update to the documentation of File 670, to show     *   DOC FILE
//*            Deru Sudibyo's correct email address.                *   DOC FILE
//*                                                                 *   DOC FILE
//*       29   Updates to File 684, to make versions of the SVC     *   DOC FILE
//*            display program that are BROWSEd, EDITed, VIEWed,    *   DOC FILE
//*            and REVIEWed.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        SVCMAP  Program to display the SVC table and extended    *   DOC FILE
//*                SVC's.  A quick dump of the first few bytes      *   DOC FILE
//*                of each SVC is included in the display.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        SVCMAB  REXX to BROWSE the output of the SVCMAP program  *   DOC FILE
//*        SVCMAE  REXX to EDIT   the output of the SVCMAP program  *   DOC FILE
//*        SVCMAR  REXX to REVIEW the output of the SVCMAP program  *   DOC FILE
//*        SVCMAV  REXX to VIEW   the output of the SVCMAP program  *   DOC FILE
//*                                                                 *   DOC FILE
//*       30   Updates to File 731.  Addition of SHOWTPVT, and      *   DOC FILE
//*            updates to TSVT8 (change the byte in TPVT+4D         *   DOC FILE
//*            as well as TSVT+6).                                  *   DOC FILE
//*            Update to UCBDASD from George Pavlik to show         *   DOC FILE
//*            SMS status of the volume displayed.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*       31   Update to File 770 documentation, to change          *   DOC FILE
//*            Deru Sudibyo's email address.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*       32   Update to File 797 to add source for SHOWTPVT        *   DOC FILE
//*            (it's useful in several places) and to update        *   DOC FILE
//*            the load library.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*       33   Updates to File 804 (the Jump Instruction version    *   DOC FILE
//*            of TAPEMAP) by Rich Hobt, et al.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*       34   Updates to File 826 to add the WAITT program.        *   DOC FILE
//*            (change the JWT Job Wait Time of your address        *   DOC FILE
//*            space)                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*       35   Some fixes to File 830, which are Xephon MVS         *   DOC FILE
//*            articles bulk-uploaded by Eugene Vogt from the       *   DOC FILE
//*            old Xephon website preserved at archive.org.         *   DOC FILE
//*            His raw file is File 814, and I worked on the        *   DOC FILE
//*            data, copied to File 830, to fix as many character   *   DOC FILE
//*            misrepresentations as possible, so the programs      *   DOC FILE
//*            will be able to be used with less effort.            *   DOC FILE
//*                                                                 *   DOC FILE
//*       36   Update to File 835, to fix PPTD so it produces       *   DOC FILE
//*            proper and meaningful return codes in Register 15.   *   DOC FILE
//*                                                                 *   DOC FILE
//*       37   Many updates to File 836, to get more programs       *   DOC FILE
//*            from old Xephon MVS articles to work on z/OS (2.3).  *   DOC FILE
//*            See member @FILE836 for details.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*       38   Update to File 873 from George Pavlik, to get        *   DOC FILE
//*            ULUDASD to show if a volume is SMS-managed.          *   DOC FILE
//*                                                                 *   DOC FILE
//*       39   Update to File 874, which is a large number of HELP  *   DOC FILE
//*            members for CBT-based utilities, to add more HELP    *   DOC FILE
//*            members.  The idea is to look through the HELP       *   DOC FILE
//*            members to see if such a program would be useful     *   DOC FILE
//*            to you, and then go ahead and install it.            *   DOC FILE
//*                                                                 *   DOC FILE
//*       40   Update to File 895 from Lionel Dyck, to add          *   DOC FILE
//*            documentation for STEMEDIT.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*       41   Miniscule change to File 898, but this is an         *   DOC FILE
//*            important file, because it is Alex Kara's life       *   DOC FILE
//*            work.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*       42   Update to File 900 to the SHAx programs, to          *   DOC FILE
//*            support EAV volumes.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       43   Update to File 917 by Peter Glanzmann, to fix        *   DOC FILE
//*            George DeLuca's SELECTIT program for EAV volumes.    *   DOC FILE
//*                                                                 *   DOC FILE
//*       44   Update to File 948 from Duc Tuan Nguyen, to fix      *   DOC FILE
//*            his PDS2SEQ program.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       45   Update to File 951 from Peter Glanzmann, to make a   *   DOC FILE
//*            few fixes to Nick Light's GDGP program.              *   DOC FILE
//*                                                                 *   DOC FILE
//*       46   Update to File 953 from John Gateley, to add a       *   DOC FILE
//*            bunch of programs and fix a few more.  Also there    *   DOC FILE
//*            are updates to his important MACLIB.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       47   Many updates to File 967 (CBT ISPF Usermods          *   DOC FILE
//*            Collection) from Tom Conley.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*       48   Updates to File 969 from Lionel Dyck, to his         *   DOC FILE
//*            wonderful PDSEGEN package that handles PDSE          *   DOC FILE
//*            member generations better than anything else,        *   DOC FILE
//*            to date.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*       49   Update to File 976 from Larry Zuckett to his         *   DOC FILE
//*            USYNC command to add or delete a userid entry        *   DOC FILE
//*            into SYS1.BRODCAST (or the active Broadcast          *   DOC FILE
//*            Dataset).                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*       50   Updates to File 977, which are URL's to the Moshix   *   DOC FILE
//*            mainframe videos on YouTube.  Moshix adds more       *   DOC FILE
//*            videos to his collection, and we have to keep up.    *   DOC FILE
//*                                                                 *   DOC FILE
//*       51   Addition of File 981 from Larry Zuckett, to          *   DOC FILE
//*            contain some of his REXX utilities.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*       52   Addition of File 982 from Clem Clarke.  This file    *   DOC FILE
//*            contains his famous JOL package.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*       53   Addition of File 983 from (the late) Ken Tomiak,     *   DOC FILE
//*            and contans his MSIC system for installing software  *   DOC FILE
//*            packages.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*       54   Addition of File 984 from Ken Tomiak, which          *   DOC FILE
//*            contains a large collection of his REXX execs.       *   DOC FILE
//*                                                                 *   DOC FILE
//*       55   Addition of File 985 from Marius Lewin and contains  *   DOC FILE
//*            a collection of his REXX execs.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*       56   Addition of File 986 from Willy Jensen, which        *   DOC FILE
//*            contains an easy package for putting PUTLINE TSO     *   DOC FILE
//*            output into a program.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*       57   Addition of File 987, which contains some programs   *   DOC FILE
//*            from the Naspa VIP tape, which were fixed to work    *   DOC FILE
//*            on z/OS.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*       58   Addition of File 988 from Shmuel (Seymour J) Metz,   *   DOC FILE
//*            which contains his original Core Storage zapping     *   DOC FILE
//*            program written for OS/360 and SVS.  Purpose of      *   DOC FILE
//*            including it here are for the people who run the     *   DOC FILE
//*            Turnkey OS360 system, or else to provide a basis     *   DOC FILE
//*            for modifications, to get it to work on later        *   DOC FILE
//*            systems.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*       59   Addition of File 989 from Willy Jensen, which        *   DOC FILE
//*            contains a magnificent package called FINDMEM.       *   DOC FILE
//*            When you set this up on your system, you just        *   DOC FILE
//*            have to give it a pds member name, and IT WILL       *   DOC FILE
//*            FIND EVERY SINGLE DATASET, CATALOGED, OR             *   DOC FILE
//*            UNCATALOGED, WHICH CONTAINS THAT MEMBER NAME.        *   DOC FILE
//*            Stupendous.....!!!!!                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       60   Addition of File 990 from Lionel Dyck, which         *   DOC FILE
//*            contains a guide for ISPF Developers, with many      *   DOC FILE
//*            details.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-496 SECTION                                          *   DOC FILE
//*  V-496  CHANGES FOR VERSION 496 NOV 11, 2018                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        A   One of my email addresses has disappeared completely *   DOC FILE
//*            and I cannot recover any mail sent to there.         *   DOC FILE
//*                                                                 *   DOC FILE
//*            Please use sbgolob@cbttape.org to email me.          *   DOC FILE
//*            ( sbgolob@attglobal.net has disappeared )            *   DOC FILE
//*                                                                 *   DOC FILE
//*            Please try not to use sbgolob@att.net because I      *   DOC FILE
//*            seldom look there.  It is just a backup email.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        B   LISTPDS source code and load modules needed to       *   DOC FILE
//*            be updated, as per the source update which enables   *   DOC FILE
//*            the program to punch ./ ALIAS cards using a parm     *   DOC FILE
//*            of 'ALIAS'.  Files that needed updating due to       *   DOC FILE
//*            this (late) change, are:  008, 035, 093, 135, 172,   *   DOC FILE
//*            182, 316, 371, and 612 (at least).  I will have      *   DOC FILE
//*            to look at file 860 to see if it warrants updating.  *   DOC FILE
//*            This was a last-minute update to this tape version,  *   DOC FILE
//*            done when I noticed that we were losing source code  *   DOC FILE
//*            aliases.  (Load module alias are OK, because we      *   DOC FILE
//*            use IEBCOPY to put them on the "tape".)              *   DOC FILE
//*                                                                 *   DOC FILE
//*        1   Updates to File 006 and 008 as usual, to bring       *   DOC FILE
//*            them up to levels appropriate for this tape          *   DOC FILE
//*            version.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        2   Updates to File 035 with fixes for PDSUR from        *   DOC FILE
//*            Peter Glanzmann and an update to PDS 8.6 from        *   DOC FILE
//*            John Kalinich.                                       *   DOC FILE
//*            VERSION 8.6.17.6  OCTOBER 26, 2018                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        2A  Update to File 093 to allow LISTPDS to punch         *   DOC FILE
//*            ./ ALIAS cards, if you invoke it with a parm         *   DOC FILE
//*            of 'ALIAS' (in addition to the other parms there).   *   DOC FILE
//*                                                                 *   DOC FILE
//*        3   Update to File 119 from Andreas Freybier, to remove  *   DOC FILE
//*            redundant code from the CLR3270 program source.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        4   Update to File 134 from Greg Price to bring REVIEW   *   DOC FILE
//*            to level 48.4, and to fix a problem in XVTCLIST.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        5   Update to File 135 to bring the PDS programs, with   *   DOC FILE
//*            ISO date option, to level 8.6.17.6, and to bring     *   DOC FILE
//*            REVIEW to level 48.4.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        6   Update to File 160 to substitute Jeff Broido's       *   DOC FILE
//*            modification of FREEALL for Chuck Hoffman's original *   DOC FILE
//*            version.  Keeping original version as member         *   DOC FILE
//*            FREEALLO.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        6A  Update to File 172 to include the latest version     *   DOC FILE
//*            of LISTPDS (8.4) which can punch ./ ALIAS cards      *   DOC FILE
//*            using a PARM of 'ALIAS'.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        7   Update to File 182 which is PDS from John Kalinich,  *   DOC FILE
//*            to level: PDS -- VERSION 8.6.17.6  OCTOBER 26, 2018  *   DOC FILE
//*            Also updated REVIEW and LISTPDS in the UTILXMIT      *   DOC FILE
//*            member.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        8   Update to File 183 from Sam Golob to fix the TSO     *   DOC FILE
//*            LOCKTERM command, so it accommodates 8-character     *   DOC FILE
//*            TSO userids, which were introduced in z/OS 2.3.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        9   Update to File 296 from Sam Golob, to fix the TSO    *   DOC FILE
//*            XEQ command to accommodate 8-character TSO userids   *   DOC FILE
//*            and to update support information.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*       10   Update to File 300, to fix the "TO" TSO command      *   DOC FILE
//*            to handle two single quotes as one, and also to      *   DOC FILE
//*            accommodate 8-character TSO userids.  There is a     *   DOC FILE
//*            problem when sending a message (to another TSO       *   DOC FILE
//*            userid) with TO, from an ISPF command line, because  *   DOC FILE
//*            ISPF always checks for an even number of quotes      *   DOC FILE
//*            in the command line.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*       11   Updates to File 312 from Lionel Dyck, with the       *   DOC FILE
//*            following members either changed or added:           *   DOC FILE
//*            EXTISPF  FTPB     IPLTCHK IPLTCHK$ LPRPRINT LSTPRC$  *   DOC FILE
//*            LSTPROC3 OMVSCOPY OMVSMAN OMVSSEL  PLPISPF  PLPISPF$ *   DOC FILE
//*            PRMCK    PRMCK$   QTAB    RANDSTR  RUNC              *   DOC FILE
//*                                                                 *   DOC FILE
//*       12   Updates to File 313 from Lionel Dyck, with the       *   DOC FILE
//*            following members either changed or added:           *   DOC FILE
//*            SAVELAB  SDSFEXT  TRYIT   TSOPROF                    *   DOC FILE
//*                                                                 *   DOC FILE
//*       13   Updates to File 314 from Lionel Dyck, with the       *   DOC FILE
//*            following members either changed or added:           *   DOC FILE
//*            USSBATCH XMITIP   XMITIP$ XMITIP#  XMITIP@           *   DOC FILE
//*            XMITIPR  ZFSTOOLS ZSTART  ZSYNC    ZTSOHELP          *   DOC FILE
//*                                                                 *   DOC FILE
//*       14   Update to File 316 from Sam Golob, to replace the    *   DOC FILE
//*            version of PDSMATCH that was there, with the fixed   *   DOC FILE
//*            version of PDSMATCH that is in CBT File 357.         *   DOC FILE
//*            Replace LISTPDS with new version (8.4) that can      *   DOC FILE
//*            punch ./ ALIAS cards with a PARM of 'ALIAS'.         *   DOC FILE
//*                                                                 *   DOC FILE
//*       15   Update to File 349 from Willy Jensen, to revise      *   DOC FILE
//*            most of the contents of this file.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*       15A  Update to File 371, to rename old load modules       *   DOC FILE
//*            LISTPDS and PDSLOAD, and add newer versions of       *   DOC FILE
//*            the same programs.  We don't want you to do          *   DOC FILE
//*            without the latest and greatest......                *   DOC FILE
//*                                                                 *   DOC FILE
//*             NAME     DATA     ALIASOF  LEN/LKED   --            *   DOC FILE
//*             LISTPDS                    2018/11/10               *   DOC FILE
//*             LISTPDSO                   1983/10/03 REUS          *   DOC FILE
//*             PDSLOAD                    2017/02/02               *   DOC FILE
//*             PDSLOADO                   1983/10/03 REUS          *   DOC FILE
//*                                                                 *   DOC FILE
//*       16   Update to File 409, to supply a zap that fixes       *   DOC FILE
//*            the MXI Link Pack Directory search, for z/OS 2.3.    *   DOC FILE
//*                                                                 *   DOC FILE
//*       17   Update to File 410, to supply a member called TXI    *   DOC FILE
//*            which is actually MXI with the zap from File 409     *   DOC FILE
//*            applied to it.  If you have z/OS 2.3, you should     *   DOC FILE
//*            use load module TXI (maybe renamed to MXI) instead   *   DOC FILE
//*            of load module MXI.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*       18   Update to File 423 to include a few more programs    *   DOC FILE
//*            written by this author, and to correct a typo in     *   DOC FILE
//*            the VTPUT macro.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*       19   Update to File 434 from Mark Zelden to introduce     *   DOC FILE
//*            ONEPAK and TWOPAK jobs for z/OS 2.2 and 2.3.  Also   *   DOC FILE
//*            to modify members IPLINFO and SDSF@DR.               *   DOC FILE
//*                                                                 *   DOC FILE
//*       20   Update to File 437 to supply a zap for Jan Jaeger's  *   DOC FILE
//*            NODSI program, not to require a RACF FACILITY CLASS  *   DOC FILE
//*            profile in order to run.  It still needs APF         *   DOC FILE
//*            authorization, but the zap bypasses the RACF         *   DOC FILE
//*            requirement.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*       21   Update to File 452 from Dan Dalby, which is a        *   DOC FILE
//*            refresh of the entire library.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*       22   Update to File 496 from Marty Kuntz, to modify       *   DOC FILE
//*            the TIOT REXX exec (displaying dataset allocations   *   DOC FILE
//*            under TSO).  Previous mod was from Ken MacKenzie.    *   DOC FILE
//*                                                                 *   DOC FILE
//*       23   Update to File 566 from Sam Bass, to fix the tape    *   DOC FILE
//*            copying program COPYTPX with backend program         *   DOC FILE
//*            RTAPE2, so that it will copy tapes with up to        *   DOC FILE
//*            256K block sizes.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*       24   Minor modification to File 612.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*       25   Doc modification to File 615.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*       26   Update to File 617 from Pedro Berrios.               *   DOC FILE
//*                                                                 *   DOC FILE
//*       27   Big update to File 669 from Willy Jensen.            *   DOC FILE
//*                                                                 *   DOC FILE
//*       28   Update to File 683 which was found to be IBM         *   DOC FILE
//*            copyrighted material.  But this resulted in a big    *   DOC FILE
//*            improvement to the file, because the IBM website     *   DOC FILE
//*            containing the BPXSTOP exec, also contains a huge    *   DOC FILE
//*            number of other programs, and we provide a list      *   DOC FILE
//*            of all the directories here, and how to download     *   DOC FILE
//*            everything from them.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*       29   Update to File 716 from Lionel Dyck and John         *   DOC FILE
//*            Kalinich, providing a big enhancement to the         *   DOC FILE
//*            ENQ REXX exec.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*       30   Update to File 731 from Sam Golob to include the     *   DOC FILE
//*            DVAT program (list in-core information about the     *   DOC FILE
//*            current VATLSTxx PARMLIB settings).                  *   DOC FILE
//*                                                                 *   DOC FILE
//*       31   Very minor change to File 803.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*       32   Updates to File 926 which is the AMORT program       *   DOC FILE
//*            from Philip Polchinsky.  The program didn't change,  *   DOC FILE
//*            but the COBOL compilers did, and we have added       *   DOC FILE
//*            compliles and linkedits of the AMORT program for     *   DOC FILE
//*            COBOL 5.1 and 6.2 (XMIT-format PDSE's).              *   DOC FILE
//*                                                                 *   DOC FILE
//*       33   Update to File 939 from Ze'ev Atlas, which is a      *   DOC FILE
//*            z/OS port of PCRE 10.32 (Perl Compatible Regular     *   DOC FILE
//*            Expressions).                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*       34   Update to File 941 from Gregory Bliznets to improve  *   DOC FILE
//*            many of his programs.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*       35   Update to File 948 from Duc Tuan Nguyen, which       *   DOC FILE
//*            is a considerable change to his SMF extraction       *   DOC FILE
//*            programs.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*       36   Update to File 949 from Peter Glanzmann to make      *   DOC FILE
//*            some improvements to the PDSUR program.              *   DOC FILE
//*                                                                 *   DOC FILE
//*       37   Update to File 953 from John Gateley, which is       *   DOC FILE
//*            almost a complete reshipment.  Notable are the       *   DOC FILE
//*            updates to his macro library, which while used       *   DOC FILE
//*            by the programs in his collection, are also of       *   DOC FILE
//*            general applicability.  So you should keep an        *   DOC FILE
//*            eye on his macros, as well.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*       38   Minor doc file updates to File 957.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*       39   Update to File 961 from Yves Colliard.  This is a    *   DOC FILE
//*            considerable update to his YCLMAC macro collection.  *   DOC FILE
//*                                                                 *   DOC FILE
//*       40   Update to File 966 from Steve Myers.  This is an     *   DOC FILE
//*            update to his (original) TSO prompter for the        *   DOC FILE
//*            HLASM assembler.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*       41   Updates to File 969 from Lionel Dyck, which is       *   DOC FILE
//*            the amazing PDSEGEN package, that manipulates and    *   DOC FILE
//*            handles PDSE Version 2 member generations, probably  *   DOC FILE
//*            better than any other utility, including anything    *   DOC FILE
//*            from IBM.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*       42   Addition of File 970 from (the late) Ken Tomiak,     *   DOC FILE
//*            which is a reworking of RCNVTCAT to make it nicer.   *   DOC FILE
//*            This version runs best in batch, and is renamed as   *   DOC FILE
//*            TCNVTCAT to eliminate confusion with other varieties *   DOC FILE
//*            of RCNVTCAT.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*       43   Addition of File 971 from "The Updater" and from     *   DOC FILE
//*            Gerhard Postpischil.  This is an assembler program   *   DOC FILE
//*            called EMPTYTST, which is designed to run in a       *   DOC FILE
//*            batch jobstream, and to test if the dataset output   *   DOC FILE
//*            from a job step, is an empty dataset, or not.        *   DOC FILE
//*                                                                 *   DOC FILE
//*       44   Addition of File 972 from (the late) Ken Tomiak,     *   DOC FILE
//*            and it is an original (huge) edit macro package      *   DOC FILE
//*            called GENIE, which is supposed to do the same type  *   DOC FILE
//*            of function as IBM's MODEL edit macro, except that   *   DOC FILE
//*            GENIE is much more customizable.  A later version    *   DOC FILE
//*            of GENIE is on File 978, which Ken worked on heavily *   DOC FILE
//*            in his last months.  (Perhaps you should use that    *   DOC FILE
//*            version.)                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*       45   Addition of File 973 from Jay Moseley, which         *   DOC FILE
//*            contains the WATFIV Fortran compiler and library     *   DOC FILE
//*            from the University of Waterloo.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*       46   Addition of File 974 from Jamie Gibson, which        *   DOC FILE
//*            contains a rewrite of the TSSO console automation    *   DOC FILE
//*            facility.  This package uses enhanced console        *   DOC FILE
//*            support instead of the subsystem interface.          *   DOC FILE
//*            The program is called AOF (Automated Operations      *   DOC FILE
//*            Facility).                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*       47   Addition of File 975 from Cristian Casares which     *   DOC FILE
//*            contains a COBOL program that will be useful to      *   DOC FILE
//*            COBOL programers.                                    *   DOC FILE
//*            THIS PGM CALCULATES THE AMOUNT OF RESERVED WORDS     *   DOC FILE
//*            IN A COBOL ENTERPRISE 3.4.0 PGM.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*            LIST ON A SYSOUT:                                    *   DOC FILE
//*            -TOTAL OF FOUND WORDS                                *   DOC FILE
//*            -TOTAL OF RESERVED WORDS(1)                          *   DOC FILE
//*            -TOTAL OF COMMENTS                                   *   DOC FILE
//*            -TOTAL OF LINES READ                                 *   DOC FILE
//*            -(EACH RESERVED WORD) W/ITS TOTAL AND PERCENTAGE     *   DOC FILE
//*                                                                 *   DOC FILE
//*       48   Addition of File 976 from Larry Zuckett which is     *   DOC FILE
//*            a program called USYNC, which can easily add a       *   DOC FILE
//*            userid entry into the active SYS1.BRODCAST.          *   DOC FILE
//*                                                                 *   DOC FILE
//*       49   Addition of File 977 from Moshe Bar, which contains  *   DOC FILE
//*            a table of URL's for his fabulous videos on YouTube  *   DOC FILE
//*            pertaining to MVS, VM, VSE on Hercules, as well as   *   DOC FILE
//*            z/OS.  You can go to YouTube directly at URL:        *   DOC FILE
//*                                                                 *   DOC FILE
//*            https://www.youtube.com/user/moshe5760/videos        *   DOC FILE
//*                                                                 *   DOC FILE
//*            and see his current list of videos (there are over   *   DOC FILE
//*            90 of them so far), but here, the exact URL for      *   DOC FILE
//*            each video is put in a table for you to copy, and    *   DOC FILE
//*            go to, just in case it disappears on the HTML.       *   DOC FILE
//*                                                                 *   DOC FILE
//*            This list is constantly being added to, and you      *   DOC FILE
//*            should always get the latest version of this file    *   DOC FILE
//*            from the "Updates" page of www.cbttape.org, or       *   DOC FILE
//*            look at the YouTube URL just above.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*       50   Addition of File 978 from Sam Golob, which contains  *   DOC FILE
//*            Ken Tomiak's last "working copy" of his GENIE edit   *   DOC FILE
//*            macro.  Ken did a lot of work on this package after  *   DOC FILE
//*            the version that is on File 972, and I don't want    *   DOC FILE
//*            the tremendous efforts (of a very very skilled       *   DOC FILE
//*            programmer) to be lost.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*       51   Addition of File 979 from Sam Golob, which is a      *   DOC FILE
//*            self-contained package, designed to run on a PC,     *   DOC FILE
//*            which will teach you how to use the ZZSA standalone  *   DOC FILE
//*            program from Jan Jaeger (Files 437 and 538).  An     *   DOC FILE
//*            entire Hercules emulator is included here, with a    *   DOC FILE
//*            config file that will run ZZSA only, on a sample     *   DOC FILE
//*            5-cylinder minidisk, so you can practice using all   *   DOC FILE
//*            the ZZSA functions.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*       52   Addition of File 980 from Vladimir Mironov, which    *   DOC FILE
//*            contains a zap to fix the latest TASID load module   *   DOC FILE
//*            (property of IBM) so that the "display initiators"   *   DOC FILE
//*            option 4, will work on z/OS 2.2 and 2.3 systems.     *   DOC FILE
//*                                                                 *   DOC FILE
//*            The latest TASID load module can be obtained from:   *   DOC FILE
//*                                                                 *   DOC FILE
//*     https://www-01.ibm.com/support/docview.wss?uid=swg24009131  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-495 SECTION                                          *   DOC FILE
//*  V-495  CHANGES FOR VERSION 495 JAN 15, 2018                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         A  Sometimes I put one program or utility into several  *   DOC FILE
//*            different files on the CBT Tape.  The reason is that *   DOC FILE
//*            if someone has access to only one file, I feel that  *   DOC FILE
//*            the file should be as self-contained as possible,    *   DOC FILE
//*            and that the user shouldn't have to scrounge around  *   DOC FILE
//*            on the rest of the CBT Tape for the missing pieces.  *   DOC FILE
//*                                                                 *   DOC FILE
//*            I can usually spot all the occurrences of a program  *   DOC FILE
//*            on the CBT Tape by looking at a TAPEMAP report of    *   DOC FILE
//*            the tape.  If I haven't updated a copy of a program  *   DOC FILE
//*            on a file somewhere, please let me know.  Sometimes  *   DOC FILE
//*            there is a good reason for it.  Sometimes it is just *   DOC FILE
//*            that I didn't notice it.  Please ask about anything  *   DOC FILE
//*            you see, which you may have a question about.        *   DOC FILE
//*                                                                 *   DOC FILE
//*                 email:   sbgolob@cbttape.org                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         B  One of my email addresses has disappeared completely *   DOC FILE
//*            and I cannot recover any mail sent to there.         *   DOC FILE
//*                                                                 *   DOC FILE
//*            Please use sbgolob@cbttape.org                       *   DOC FILE
//*            ( sbgolob@attglobal.net has disappeared )            *   DOC FILE
//*                                                                 *   DOC FILE
//*         1  Updates to File 006 and 008 as usual, to bring       *   DOC FILE
//*            them up to levels appropriate for this tape          *   DOC FILE
//*            version.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  Updates to File 035.  The following members have     *   DOC FILE
//*            been updated:                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*            CBTUPD   - anticipation of 4-digit CBT file numbers  *   DOC FILE
//*            CKIEBGEN - improvements in record selection logic    *   DOC FILE
//*                       fix a few other bugs                      *   DOC FILE
//*            CKIEBG07 - older version of CKIEBGEN                 *   DOC FILE
//*            DOCFILE  - anticipation of 4-digit CBT file numbers  *   DOC FILE
//*            PDS      - VERSION 8.6.16.1  DECEMBER 29, 2017       *   DOC FILE
//*            PDS38    - VERSION 8.6.16.1  DECEMBER 29, 2017       *   DOC FILE
//*            PDS86    - VERSION 8.6.16.1  DECEMBER 29, 2017       *   DOC FILE
//*            PDS86I   - VERSION 8.6.16.1  DECEMBER 29, 2017       *   DOC FILE
//*            PDS8638  - VERSION 8.6.16.1  DECEMBER 29, 2017       *   DOC FILE
//*            STEPLIB  - change support email address              *   DOC FILE
//*            TSUB     - nullify (not blank) a table entry         *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  Update to File 119.  Cosmetic changes to EPUTL.      *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  Updates to File 134.  Fix DDASD program UCB scan     *   DOC FILE
//*            for z/OS 2.x.  Update REVIEW to version 47.9         *   DOC FILE
//*            (courtesy of Greg Price).                            *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  Updates to File 135:  REVIEW 47.9, FASTPATH,         *   DOC FILE
//*            SHOWzOS 7.23, and BR.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  Update to File 136 - "cosmetic" changes to EPUTL     *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  Update to File 182 from John Kalinich.               *   DOC FILE
//*            PDS - VERSION 8.6.16.1  DECEMBER 29, 2017            *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  Update to File 183.   Wrote some doc about how       *   DOC FILE
//*            to change the ISPF command table entries             *   DOC FILE
//*            generated by the FASTPATH command (member FASTPMOD). *   DOC FILE
//*            Changed FASTPATH source to require UTIL without      *   DOC FILE
//*            abbreviation, to invoke IBM's ISRUTIL panel,         *   DOC FILE
//*            because "UT" gets in the way of the PDS 8.6 command  *   DOC FILE
//*            UT to invoke PDS's own utility panels.               *   DOC FILE
//*                                                                 *   DOC FILE
//*         9  Update to File 185 to LOADLIB.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 229 to bring CKIEBGEN to Level 8,     *   DOC FILE
//*            and to fix my email addresses (as per item 0 above). *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 247 to add a version of LPSCB which   *   DOC FILE
//*            is updated to handle 8-character TSO userids.  The   *   DOC FILE
//*            PSCBUSER and UPTPREFX fields are now not used when   *   DOC FILE
//*            an 8-character TSO userid is defined, and new fields *   DOC FILE
//*            have been added instead, to replace them.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 264 from Joe Reichman to modify LOOK  *   DOC FILE
//*            so that it doesn't get a S0C4 when you enter a bad   *   DOC FILE
//*            address.  Other improvements--use IEAMSCHD instead   *   DOC FILE
//*            of SCHEDULE to issue the SRB for cross-memory        *   DOC FILE
//*            access, etc.  Previous versions now labeled as       *   DOC FILE
//*            LOOK00, LOOK01, LOOK02.  Current version is LOOKJ.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 293 with massive corrections to the   *   DOC FILE
//*            SKIP= and COPY= processing in the CKIEBGEN program.  *   DOC FILE
//*            Also made meaningful return-code processing in       *   DOC FILE
//*            CKIEBGEN, and fixed reporting for missing RECFM if   *   DOC FILE
//*            that condition has occurred.  Also added MAKERCDS    *   DOC FILE
//*            program to generate any number of numbered 12-byte   *   DOC FILE
//*            records (used to test the SKIP and COPY code to see  *   DOC FILE
//*            how many records got copied, and which ones).        *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 296.  DSAT, RELEASE, and XEQ were     *   DOC FILE
//*            fixed to accommodate 8-character TSO prefixes, for   *   DOC FILE
//*            8-character userid support in z/OS 2.3.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Continuing a big effort to update programs in File   *   DOC FILE
//*            300 to run on z/OS.  The following programs were     *   DOC FILE
//*            fixed or updated:                                    *   DOC FILE
//*            CALCINST CMDLOFF COUNT COUNT2 DD DSPRINT DUSER       *   DOC FILE
//*            LIBCALL LPSCB MEMBER SCRATCH SCRAT24 SHOWDS SHOWSS   *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Many changes to File 312 from Lionel Dyck and        *   DOC FILE
//*            others.  Members changed or added:                   *   DOC FILE
//*            BACKDIR CHKIKJ EMAC FASTPATH FTPB IEBPDSE IFTHENEL   *   DOC FILE
//*            LOADISPF LSTPRC$  OMVSMAN  ONLY  PDSEGEN  PDSEGEN$   *   DOC FILE
//*            PDSEGEN# REXXFORM RUNC ZTSOHELP                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Updates to File 313 from Lionel Dyck:                *   DOC FILE
//*            SETCLIP  SPELLC  TRYIT  TXT2CSV                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Updates to File 314 from Lionel Dyck:                *   DOC FILE
//*            VB2FB XMITIP ZCLONE ZSTART ZSYNC ZTSOHELP            *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 316 to add a program that reports     *   DOC FILE
//*            which members of a pds are ISPF PACKED or not.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 386 from Salvador Carrasco, to add    *   DOC FILE
//*            IRXFMAT.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 404 (TSSO) from John McKown, to       *   DOC FILE
//*            remove the dependency that TSSOPARM has to be in     *   DOC FILE
//*            SYS1.PARMLIB.  Now TSSO was made to use the          *   DOC FILE
//*            IEFPRMLB service to find the TSSOPARM member in      *   DOC FILE
//*            whichever PARMLIB library it happens to be.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Updates to File 411 and 412 by Rob Scott.  Modules   *   DOC FILE
//*            updated were:  DDDEFCHK  DDDEFPTH                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Updates to File 434 from Mark Zelden, to add         *   DOC FILE
//*            RXSMF30 and to update IPLINFO.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Update to File 480 which is Baldomero Castilla's     *   DOC FILE
//*            file, from Sam Golob, to put the latest version      *   DOC FILE
//*            of the CKIEBGEN program there.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Update to File 481 which is Baldomero Castilla's     *   DOC FILE
//*            load library, to put the latest load module for      *   DOC FILE
//*            the CKIEBGEN program there.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Two updates to File 534, one to accommodate EAV      *   DOC FILE
//*            volumes, and the other to accommodate big TSO        *   DOC FILE
//*            screens, in the SPACE command from Paul Dion.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Numerous updates to File 566 (Sam Bass's file)       *   DOC FILE
//*            many of which were to convert TSO commands from      *   DOC FILE
//*            TPUT to PUTLINE output.  And since PUTLINE output    *   DOC FILE
//*            is trappable, Mark Zelden's TSOx trapping commands   *   DOC FILE
//*            were added as well.  Fix to ZAPDSCB to correct a     *   DOC FILE
//*            Y2K problem when resetting dates in the VTOC.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Updates to File 617 from Pedro Berrios.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Update to File 659 to add Hercules 3.12.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Updates to File 669 from Willy Jensen, for his       *   DOC FILE
//*            package to store REXX variables for use later.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Updates to File 731 which is a collection of TSO     *   DOC FILE
//*            programs from Sam Golob, many APF-authorized.        *   DOC FILE
//*            Programs added or modified:                          *   DOC FILE
//*                                                                 *   DOC FILE
//*            ALLIDS   - Show TSO session's userid in many places  *   DOC FILE
//*            BYE      - Tool to manipulate the TSO RELOGON buffer *   DOC FILE
//*            CPFX     - Tool to create 8-character TSO prefixes   *   DOC FILE
//*            LOADLIB  - Updated load library                      *   DOC FILE
//*            MEMBER   - Show attributes of a pds member           *   DOC FILE
//*            NOLOGOF  - Turn off the "force logoff" bit of RLGB   *   DOC FILE
//*            RELOGON  - Force a RELOGON of your TSO userid        *   DOC FILE
//*            SHOWRLGB - Show everything about the Relogon Buffer  *   DOC FILE
//*            TSVT8    - Turn on/off 8-character userid support    *   DOC FILE
//*            YESLOGOF - Turn on the "force logoff bit of the RLGB *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Update to File 789 from Al Ferguson, to his programs *   DOC FILE
//*            that help in running IBM's SCRT process (Sub-        *   DOC FILE
//*            Capacity Reporting Tool).                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Update to File 797 to allow TSUB to nullify a        *   DOC FILE
//*            table entry in the middle of the table.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        34  Update to File 826 to allow CNCLPG to "correctly"    *   DOC FILE
//*            transwap an address space, or to make it             *   DOC FILE
//*            non-memtermable, or memtermable.  If you can't       *   DOC FILE
//*            get rid of an address space with BURN, then you      *   DOC FILE
//*            can KILL it, and it should get rid of any address    *   DOC FILE
//*            space.  (Something to try if a FORCE operator        *   DOC FILE
//*            command doesn't work.)  Add a "TSO authority"        *   DOC FILE
//*            requirement to run the command.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        35  Update to File 831 to fix CONCATPG for 8-character   *   DOC FILE
//*            TSO prefixes in z/OS 2.3 and higher.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        36  Update to File 889 to include 32-bit and 64-bit      *   DOC FILE
//*            versions of Hercules 3.12 for Windows.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        37  Update to File 890 (SIMULA programming language)     *   DOC FILE
//*            to change Peter Sylvester's email address.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        38  Update to File 895 from Rainer Nowak to make         *   DOC FILE
//*            some modifications to Gilbert Saint-flour's          *   DOC FILE
//*            STEMEDIT program as well as some other things        *   DOC FILE
//*            that are related.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        39  Update to File 900 to fix the SHA*** programs        *   DOC FILE
//*            for 8-character TSO prefixes, and to add the         *   DOC FILE
//*            SHA224S program.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        40  Update to File 939 from Ze'ev Atlas, to upgrade      *   DOC FILE
//*            PCRE (Perl-Compatible Regular Expressions) v2,       *   DOC FILE
//*            to level 10.30A, in the port to z/OS.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        41  Update to File 948 from Duc Tuan Nguyen, to upgrade  *   DOC FILE
//*            his collection of REXX execs.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        42  Update to File 950 from Norbert Haas, to add the     *   DOC FILE
//*            RULER exec, which can put a ruler anywhere within    *   DOC FILE
//*            an ISPF edit, like the COLS line command in ISPF,    *   DOC FILE
//*            except that you can start the RULER, anywhere in     *   DOC FILE
//*            the edit screen, not just in column 1.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        43  A large update to File 953 from John Gateley, to     *   DOC FILE
//*            add and improve his programs.  Members changed are:  *   DOC FILE
//*                                                                 *   DOC FILE
//*            CHKAUTH GENDSN$$ GETCNCAT GETDSNAM LISTAPF MACLIB    *   DOC FILE
//*            STRINGIT PROCSTEM STEMSORT STEMSR15 STEMSR35         *   DOC FILE
//*            TRIMIT TRYAUTH TRYGDSN TRYSTEM                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        44  Addition of File 954 which is the CSCF program       *   DOC FILE
//*            to change the attributes of a running address        *   DOC FILE
//*            space.                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        45  Addition of File 955 from John C. Miller, which      *   DOC FILE
//*            contains his remote logging facility.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        46  Addition of File 956 from Steve Myers, which         *   DOC FILE
//*            contains programs to show dataset access by userid   *   DOC FILE
//*            from SMF data.  The DSREF program produces reports   *   DOC FILE
//*            showing dataset access by userid, using SMF 14,      *   DOC FILE
//*            15 and 30 records.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        47  Addition of File 957 from Seymour (Shmuel) Metz,     *   DOC FILE
//*            and contains source code for the IEBUPDTX program,   *   DOC FILE
//*            and a very large collection of macros.               *   DOC FILE
//*            This file represents a lot of complicated work done  *   DOC FILE
//*            in the early 1970's and which still is useful.       *   DOC FILE
//*            There is other code here, as well.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        48  Addition of File 958 from Sam Golob, which contains  *   DOC FILE
//*            programs that will hopefully show you anything you   *   DOC FILE
//*            want to know about the TSO RELOGON BUFFER, and will  *   DOC FILE
//*            hopefully allow you to change it in any way that     *   DOC FILE
//*            you would like.  The BYE program was written by      *   DOC FILE
//*            "Updater".                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        49  Addition of File 959 from Richard W. Pinion and      *   DOC FILE
//*            contains a program to release excess space from a    *   DOC FILE
//*            list of datasets (by name), without affecting the    *   DOC FILE
//*            last-access date.  This program uses the PARTREL     *   DOC FILE
//*            macro, and is itself, named PARTREL.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        50  Addition of File 960 from Al Ferguson which contains *   DOC FILE
//*            many REXX execs with their accompanying techniques,  *   DOC FILE
//*            to get a large variety of jobs done.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        51  Addition of File 961 from Yves Colliard and contains *   DOC FILE
//*            a collection of ISPF commands which can be added     *   DOC FILE
//*            to your session.                                     *   DOC FILE
//*            YCLMAC - A collection of user line commands          *   DOC FILE
//*                     for use in ISPF Edit and View               *   DOC FILE
//*                                                                 *   DOC FILE
//*        52  Addition of File 962 which is from Bud Randall,      *   DOC FILE
//*            and contains an ISPF interface to mount and          *   DOC FILE
//*            unmount UNIX files.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        53  Addition of File 963 from Al Ferguson which          *   DOC FILE
//*            contains a package to dynamically allocate and       *   DOC FILE
//*            deallocate datasets when needed by an ISPF           *   DOC FILE
//*            application.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        54  Addition of File 964 which is from Steve Kleeves by  *   DOC FILE
//*            way of John Kalinich, and which contains a package   *   DOC FILE
//*            to display the characteristics of VSAM datasets,     *   DOC FILE
//*            from both an ISPF 3.4 screen, and from the           *   DOC FILE
//*            PDS 8.6 command's LISTC/LISTF screen.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        55  Addition of File 965 from John McKown which is a     *   DOC FILE
//*            port of SQLITE 3.21.0 to z/OS.  The current state    *   DOC FILE
//*            of this package is described in the member           *   DOC FILE
//*            @FILE965.  This is version 3.21.0 of SQLITE.         *   DOC FILE
//*                                                                 *   DOC FILE
//*            Older versions of this port can be found on:         *   DOC FILE
//*                                                                 *   DOC FILE
//*            CBT File 897  -  Version 3.8                         *   DOC FILE
//*            CBT File 923  -  Version 3.8.7                       *   DOC FILE
//*            CBT File 935  -  Version 3.8.11                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        56  Addition of File 966 from Steve Myers and contains   *   DOC FILE
//*            a TSO command called HLASM which is a full TSO       *   DOC FILE
//*            prompter for the High Level Assembler (ASMA90).      *   DOC FILE
//*                                                                 *   DOC FILE
//*        57  Addition of File 967 from Tom Conley, which is       *   DOC FILE
//*            establishing a file to be updated by the SHARE       *   DOC FILE
//*            ISPF group.  This file will be called CUIC           *   DOC FILE
//*            (CBT ISPF Usermods Collection).                      *   DOC FILE
//*                                                                 *   DOC FILE
//*            IBM's investment in ISPF has steadily dwindled       *   DOC FILE
//*            since z/OS V2R1, while investment in z/OSMF has      *   DOC FILE
//*            vastly increased.  There is still a user community   *   DOC FILE
//*            for ISPF that requires increased function.  The      *   DOC FILE
//*            goal of this collection will be to provide           *   DOC FILE
//*            that function wherever possible.                     *   DOC FILE
//*            Tom Conley, in his position as SHARE's ISPF          *   DOC FILE
//*            Advocate, is establishing this collection to         *   DOC FILE
//*            provide function that will in all likelihoood        *   DOC FILE
//*            not be provided by IBM.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        58  Addition of File 968 from John McKown, which         *   DOC FILE
//*            contains a REXX exec named SYSPARM, that does        *   DOC FILE
//*            an ISRDDN-like display of the PARMLIB concatenation  *   DOC FILE
//*            on your system.  (Akin to the LSTPROC REXX exec      *   DOC FILE
//*            from Lionel Dyck on File 312, which shows your       *   DOC FILE
//*            PROCLIB concatenation.)                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        59  Addition of File 969 which contains the PDSEGEN      *   DOC FILE
//*            multi-utility from Lionel Dyck, to manipulate PDSE   *   DOC FILE
//*            V2 member generations.  IBM's support of PDSE V2     *   DOC FILE
//*            member generations is woefully inadequate at         *   DOC FILE
//*            present, and this package does an excellent job to   *   DOC FILE
//*            fill their gap in support.  This file has been       *   DOC FILE
//*            separated from File 312, where it previously         *   DOC FILE
//*            resided.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-494 SECTION                                          *   DOC FILE
//*  V-494  CHANGES FOR VERSION 494 MAR 05, 2017                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         1  Updates to File 006 and 008 as usual, to bring       *   DOC FILE
//*            them up to levels appropriate for this tape          *   DOC FILE
//*            version.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  Moved File 007 (RACF user group tape) to a           *   DOC FILE
//*            new location (File 013) to make room for the         *   DOC FILE
//*            SYSUPLOG file on File 007, which is necessary        *   DOC FILE
//*            to use when uploading CBT files from an actual       *   DOC FILE
//*            "tape" (or a virtual tape).  Some of the tape's      *   DOC FILE
//*            files might have the string "><" in columns 1 and    *   DOC FILE
//*            2 legitimately, and this file is a recording of      *   DOC FILE
//*            which records legitimately had >< in column 1.       *   DOC FILE
//*            Those records should not be changed to ./ by the     *   DOC FILE
//*            PDSLOAD program.  So including the SYSUPLOG file     *   DOC FILE
//*            in the PDSLOAD JCL will ensure accuracy of all       *   DOC FILE
//*            the uploaded files.  The SYSUPLOG file is an         *   DOC FILE
//*            IEBUPDTE-unloaded pds, and must be expanded to       *   DOC FILE
//*            a real pds.  JCL for doing this is included.         *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  Updates to File 035 as follows:  programs changed    *   DOC FILE
//*            or added:  New release of REVIEW (47.0) and          *   DOC FILE
//*            new release of PDS.  8.6.15.13  MARCH 5, 2017        *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  Update to File 134 from Greg Price, with a new       *   DOC FILE
//*            version of the REVIEW command and all its parts.     *   DOC FILE
//*            (47.0)                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  Update to File 135 with a new version of REVIEW,     *   DOC FILE
//*            and new version of PDS 8.6.15.13  MARCH 5, 2017.     *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  Update to File 182 from John Kalinich, with a new    *   DOC FILE
//*            version of the PDS command package source.           *   DOC FILE
//*            PDS 8.6.15.13  MARCH 5, 2017                         *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  Update to File 264 with various changes to enhance   *   DOC FILE
//*            installability of the LOOK program, and to clean     *   DOC FILE
//*            up the code without changing functionality (yet).    *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  Updates to File 300 to the following programs:       *   DOC FILE
//*            LISTVTOC, LM, and OPERA.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*         9  Updates to Files 312, from Lionel Dyck.              *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 776 which is RECV390 from Edgar       *   DOC FILE
//*            Hoffmann.  This program runs on a PC.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 835 which contains programs to        *   DOC FILE
//*            display the PPT (Program Properties Table) of        *   DOC FILE
//*            the z/OS systems.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 953 from John Gateley to included     *   DOC FILE
//*            more of his programs.                                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-493 SECTION                                          *   DOC FILE
//*  V-493  CHANGES FOR VERSION 493 FEB 09, 2017                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         1  Updates to File 006 and 008 as usual, to bring       *   DOC FILE
//*            them up to levels appropriate for this tape          *   DOC FILE
//*            version.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  Moved File 007 (RACF user group tape) to a           *   DOC FILE
//*            new location (File 013) to make room for the         *   DOC FILE
//*            SYSUPLOG file on File 007, which is necessary        *   DOC FILE
//*            to use when uploading CBT files from an actual       *   DOC FILE
//*            "tape" (or a virtual tape).  Some of the tape's      *   DOC FILE
//*            files might have the string "><" in columns 1 and    *   DOC FILE
//*            2 legitimately, and this file is a recording of      *   DOC FILE
//*            which records legitimately had >< in column 1.       *   DOC FILE
//*            Those records should not be changed to ./ by the     *   DOC FILE
//*            PDSLOAD program.  So including the SYSUPLOG file     *   DOC FILE
//*            in the PDSLOAD JCL will ensure accuracy of all       *   DOC FILE
//*            the uploaded files.  The SYSUPLOG file is an         *   DOC FILE
//*            IEBUPDTE-unloaded pds, and must be expanded to       *   DOC FILE
//*            a real pds.  JCL for doing this is included.         *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  Update to File 009, which is a file of RACF exits.   *   DOC FILE
//*            The change was just to update its packaging          *   DOC FILE
//*            (inclusion of the @FILE009 member, and so forth).    *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  Addition of File 013 which used to be File 007.      *   DOC FILE
//*            File 007 now has the SYSUPLOG file, needed for       *   DOC FILE
//*            tape file restores using PDSLOAD.  Contents of       *   DOC FILE
//*            this file have been updated from old File 007        *   DOC FILE
//*            in the following members:  SETPW2, WHOIS$, ZAPDFPO   *   DOC FILE
//*            (Old SETPW2 still works.  Change was to fix a typo   *   DOC FILE
//*            in a comment.)                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  Update to File 017 to fix the LISTDD program for     *   DOC FILE
//*            SWA above the line.  Old version of LISTDD is        *   DOC FILE
//*            still here as a different member.  The new version   *   DOC FILE
//*            seems to still work if SWA is below the line.        *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  Update to File 019 to change the support             *   DOC FILE
//*            information.  Unfortunately, John Hooper has         *   DOC FILE
//*            passed away.  Please write for support to            *   DOC FILE
//*            sbgolob@cbttape.org.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  Updates to File 035 as follows:  programs changed    *   DOC FILE
//*            or added:                                            *   DOC FILE
//*            ASUB  CNCLPG  EESCB  IEBTSUB  LISTPDS  LOOK          *   DOC FILE
//*            OFFLOAD  OFFLOADW  PDS   PDSLOAD   PDSLOADW          *   DOC FILE
//*            PDSMATCH PDS38 PDS86 PDS86I PDS8638 STEPLIB          *   DOC FILE
//*            TSUB  UCBDASD  ULUDASD  ULUTSCAN  ULUTYPE            *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  Update to File 039 to put in a fixed version of      *   DOC FILE
//*            RCNVTCAT which works for SWA above the line, and     *   DOC FILE
//*            which includes some UNIX implementation, and         *   DOC FILE
//*            which has been fixed so you can generate the name    *   DOC FILE
//*            of the target catalog that you want to recatalog     *   DOC FILE
//*            all these entries into.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*         9  Update to File 066 (the ASM member) to fix the       *   DOC FILE
//*            LASTCLPA program so it works on z/OS 2.2.  Problem   *   DOC FILE
//*            was that FMID HBB77A0 "sorts lower" than HBB7705,    *   DOC FILE
//*            so it looks like an earlier release.  Changed        *   DOC FILE
//*            "release level" determination to come from CVTOSLV3, *   DOC FILE
//*            bit X'10' to make the determination always accurate. *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 093 to fix the OFFLOAD, LISTPDS,      *   DOC FILE
//*            and PDSLOAD programs so they can accommodate         *   DOC FILE
//*            8-character userids in ISPF stats.  Also updated     *   DOC FILE
//*            load module Files 035 and 135 with these changes.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 119 from Bill Smith.  CLR3270 was     *   DOC FILE
//*            updated and SM (toggle session manager mode in TSO)  *   DOC FILE
//*            was tested to work at a higher z/OS level (2.2).     *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 133 from Sam Golob.  Fix LASTCLPA     *   DOC FILE
//*            (both PUTLINE and non-PUTLINE versions) to work      *   DOC FILE
//*            for z/OS 2.2.  The z/OS version test (by FMID)       *   DOC FILE
//*            was wrong.  Used CVTOSLV3,X'10' test instead, to     *   DOC FILE
//*            see accurately, if we were at HBB7705.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 134 from Greg Price, with a new       *   DOC FILE
//*            version of the REVIEW command and all its parts.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 135 with a new version of REVIEW,     *   DOC FILE
//*            and new versions of LISTPDS, OFFLOAD, and PDSLOAD    *   DOC FILE
//*            to accommodate new 8-character ISPF userids.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 162 to update Dave Cole's address.    *   DOC FILE
//*                                                                 *   DOC FILE
//*                  Colesoft Marketing, Inc.                       *   DOC FILE
//*                  414 3rd ST. NE                                 *   DOC FILE
//*                  Charlottesville, VA 22902 USA                  *   DOC FILE
//*                  540-456-8210                                   *   DOC FILE
//*                  www.colesoft.com                               *   DOC FILE
//*                  email:  dbcole@gmail.com                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 182 from John Kalinich, with a new    *   DOC FILE
//*            version of the PDS command package.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 183 from Lionel Dyck to add a help    *   DOC FILE
//*            member and a doc member for STEMEDIT.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 185 to reassemble the auth tables,    *   DOC FILE
//*            and to enhance TSUB so you can effectively           *   DOC FILE
//*            nullify a table entry without also nullifying the    *   DOC FILE
//*            entries beyond the one that you hit.  This is done   *   DOC FILE
//*            by making an entry of "?" followed by 7 spaces.      *   DOC FILE
//*            The new option is called "N" instead of "B".         *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 199 to update Dave Cole's address.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 220 from Anthony Cieri to create      *   DOC FILE
//*            the SDUMPE and SDUMPG execs to display 64-bit        *   DOC FILE
//*            storage contents.  (Patterned after the SDUMP        *   DOC FILE
//*            exec.)                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 225 to update Dave Cole's address.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 226 to update Dave Cole's address.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 234 from Joe Reichman, to correct     *   DOC FILE
//*            an error in the disassembler, generating the wrong   *   DOC FILE
//*            code.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Update to File 247 from Sam Golob, with various      *   DOC FILE
//*            small improvements, and the inclusion of BDMDSFIX    *   DOC FILE
//*            load module, which can fix a Broadcast Dataset       *   DOC FILE
//*            that was copied from one device geometry to a        *   DOC FILE
//*            different device geometry (example:  3380 to a       *   DOC FILE
//*            3390).  The difference is that the first DATA byte   *   DOC FILE
//*            of the X'FF' records (in the key byte) (unused       *   DOC FILE
//*            records) in the Broadcast Dataset, must always       *   DOC FILE
//*            contain the "R" of the "CCHHR" of the record, and    *   DOC FILE
//*            with different device geometries, the number of      *   DOC FILE
//*            these records per track, differs.  We fix that by    *   DOC FILE
//*            resetting these numbers to their new proper value.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Update to File 249 to fix the UCB program and the    *   DOC FILE
//*            WMOD program.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Update to File 264 with various changes to enhance   *   DOC FILE
//*            installability of the LOOK program.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Updates to File 300 to various programs from         *   DOC FILE
//*            various sources.                                     *   DOC FILE
//*            COPYSDS  - various improvements                      *   DOC FILE
//*            COUNT    - fix return code logic                     *   DOC FILE
//*            Rename ECHO to ECHOHEX.                              *   DOC FILE
//*            EKKO     - use it to put variables into REXX         *   DOC FILE
//*                       execs in the middle of a SAY.             *   DOC FILE
//*            LOGTIME  - a new program to tell you what time       *   DOC FILE
//*                       you logged on to your current session.    *   DOC FILE
//*                       works by formatting the logon time in     *   DOC FILE
//*                       the PSCB.                                 *   DOC FILE
//*            LPSCB    - list 8-character addresses instead of 6   *   DOC FILE
//*            QLIST    - minor fixes                               *   DOC FILE
//*            TO       - minor fix                                 *   DOC FILE
//*            UNITS    - change to UCB lookup - didn't work on     *   DOC FILE
//*                       new systems, and fixed now                *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Updates to Files 312, 313, 314 from Lionel Dyck.     *   DOC FILE
//*            Many improvements and new programs, too numerous     *   DOC FILE
//*            to mention.  PDSEGEN, RUNC, many many many more.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Update to File 316 to add a program called RESETU.   *   DOC FILE
//*            RESETU - change userid in ISPF stats of a pds member *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Update to File 357 to fix a VB bug in PDSMATCH.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Update to File 388 to update Dave Cole's address.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Update to File 407 to update Dave Cole's address.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Update to File 408 to update Dave Cole's address.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        34  Update to File 411 from Lionel Dyck to provide       *   DOC FILE
//*            HELP members for STEMPULL and STEMPUSH.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        35  Update to File 423 to get TELL to work, minor        *   DOC FILE
//*            improvements to LAA (use IBM's IHAQDB macro),        *   DOC FILE
//*            and add parameters to LISTHEAD showing more, or      *   DOC FILE
//*            less, information about the module headers,          *   DOC FILE
//*            according to taste and need.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        36  Update to File 434 from Mark Zelden, with changes    *   DOC FILE
//*            to the following members:  DELDUPS  IPLINFO          *   DOC FILE
//*            REXXSTOR  RXSTOR64                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        37  Update to File 452, primarily to change Dan Dalby's  *   DOC FILE
//*            support email address.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        38  Update to File 492, with fixes to SHOWzOS, at level  *   DOC FILE
//*            7.23.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        39  Updates to File 542 from John McKown and Lionel      *   DOC FILE
//*            Dyck, with addition (from John) to DEFINES and       *   DOC FILE
//*            IVPJOB, and from both, to RCNVTCAT and SCNVTCAT.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        40  Updates to File 566 from Sam Golob to DUMPPPT and    *   DOC FILE
//*            ZAPDSCB, eliminating the need for the "trick SVC".   *   DOC FILE
//*            These are wonderful programs brought to us by        *   DOC FILE
//*            Sam Bass, together with his other wonderful stuff.   *   DOC FILE
//*            Try ZAPDSCB.  You'll be hooked.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        41  Update to File 614 to add a new assembly of SHOWzOS  *   DOC FILE
//*            7.23 under z/OS 2.2.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        42  Update to File 769 from Robert A.H. Prins, to        *   DOC FILE
//*            upgrade his package that converts source code        *   DOC FILE
//*            written in various languages, to HTML.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        43  Updates to File 797 to change the support address    *   DOC FILE
//*            for STEPLIB, and to add the nullification function   *   DOC FILE
//*            'N' to TSUB, as an improvement on 'B' (blanking      *   DOC FILE
//*            function).                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        44  Addition of File 884 from Ze'ev Atlas, which is a    *   DOC FILE
//*            port of PCRE version 10.2 (Perl Compatible Regular   *   DOC FILE
//*            Expressions 10.2) to z/OS.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        45  Update to File 900 to add support (besides for MD5)  *   DOC FILE
//*            for SHA1, SHA2, SHA3, and SHA5.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        46  Update to File 934 from Sri Kolusu of IBM to make    *   DOC FILE
//*            a SORT job constructing a calendar file, that runs   *   DOC FILE
//*            faster than his original SORT job.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        47  Update to File 941 from Gregory Bliznets to fix      *   DOC FILE
//*            the following of his REXX execs:                     *   DOC FILE
//*            CSV2ISP  HTML  ISP2CSV                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        48  Update to File 948 from Duc Tuan Nguyen (dt n)       *   DOC FILE
//*            with changes to the following of his programs:       *   DOC FILE
//*            IFCREADS  S100CSV  S101CSV  S102CSV                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        49  Addition of File 950 from Norbert Haas, containing   *   DOC FILE
//*            an impressive collection of REXX execs.  Some of     *   DOC FILE
//*            them are commented in German.  We have tried to      *   DOC FILE
//*            translate as many of them into English as possible.  *   DOC FILE
//*            Very significant is his AUTOMAT exec, which sets     *   DOC FILE
//*            up multiple screens in the ISPF environment          *   DOC FILE
//*            automatically and predictably.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        50  Addition of File 951 from Nick Light, which          *   DOC FILE
//*            contains his tool called GDGP.  GDGP is written      *   DOC FILE
//*            in REXX and it can either create a new GDG or        *   DOC FILE
//*            modify the characteristics of an existing GDG.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        51  Addition of File 952 from Bill Smith and             *   DOC FILE
//*            John Kalinich, which contains two important          *   DOC FILE
//*            documents in PDF format about OS/360 design          *   DOC FILE
//*            considerations and debugging, which are              *   DOC FILE
//*            still important for us to know today.                *   DOC FILE
//*            BROOKS   -  A lecture by Fred Brooks, lead           *   DOC FILE
//*                        designer of OS/360.                      *   DOC FILE
//*            MVTDEBUG -  An internal IBM design document          *   DOC FILE
//*                        from 1969, about how to debug            *   DOC FILE
//*                        OS/360 problems.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        52  Addition of File 953 from John Gately, which         *   DOC FILE
//*            contains a macro called STRING that builds a         *   DOC FILE
//*            long string of data from component parts.  The       *   DOC FILE
//*            macro is in Assembler.                               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-492 SECTION                                          *   DOC FILE
//*  V-492  CHANGES FOR VERSION 492 AUG 25, 2016                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         1  Updates to File 006 and 008 as usual, to bring       *   DOC FILE
//*            them up to levels appropriate for this tape          *   DOC FILE
//*            version.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  Update to File 035 for PDSMATCH (to fix a bug)       *   DOC FILE
//*            and to introduce PDSUR (an IEHMOVE substitute -      *   DOC FILE
//*            see CBT File 949 for source code) which has          *   DOC FILE
//*            somehow escaped inclusion on the CBT tape for at     *   DOC FILE
//*            least 35 years.  PDSUR is a very useful program      *   DOC FILE
//*            for sequentializing pds'es and for handling any      *   DOC FILE
//*            files in IEHMOVE format.  It predates the use of     *   DOC FILE
//*            XMIT for this purpose.  PDSUR is not restricted      *   DOC FILE
//*            to blocksize = 800.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  Update to File 039 to put in a fixed version of      *   DOC FILE
//*            RCNVTCAT which works for SWA above the line, and     *   DOC FILE
//*            which includes some UNIX implementation.             *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  Update to File 118 to change some doc.  File 289     *   DOC FILE
//*            contains a related program called PHRANQUE, which    *   DOC FILE
//*            performs functions similar to the programs here.     *   DOC FILE
//*            So I included a cross-reference to it.               *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  Update to File 182 to put a fixed version of the     *   DOC FILE
//*            PDSMATCH load module into the UTILXMIT member.       *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  Update to File 289 to include JCL to implement the   *   DOC FILE
//*            PHRANQUE program, that looks at SMPPTFIN files and   *   DOC FILE
//*            tells you a lot of detail about what is on them.     *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  Update to File 312 from Lionel Dyck to add or fix    *   DOC FILE
//*            the following members: IEBPDSE, OMVSCMD, OMVSPAX,    *   DOC FILE
//*            PDSEGEN, PDSEGEN#, PDSEGEN@, PLPISPF, PLPISPF$.      *   DOC FILE
//*            In particular, PDSEGEN is a fantastic tool to deal   *   DOC FILE
//*            with and handle PDSE version 2 generations.  Worth   *   DOC FILE
//*            looking at.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  Update to File 313 from Lionel Dyck to fix the       *   DOC FILE
//*            TSOTRAP exec.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*         9  Update to File 357 because that is where the         *   DOC FILE
//*            latest source code for PDSMATCH is.  PDSMATCH        *   DOC FILE
//*            got fixed because it was comparing corresponding     *   DOC FILE
//*            null members of 2 pds'es as unequal.  The bug is     *   DOC FILE
//*            now fixed.  (Of course, two null members should      *   DOC FILE
//*            compare as equal...!  There's nothing in each of     *   DOC FILE
//*            them.  0=0.)                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 542 from Lionel Dyck and John McKown  *   DOC FILE
//*            to fix the RCNVTCAT exec to work when SWA is above   *   DOC FILE
//*            the line, for the TSU jobclass in JES2.  Also fixed  *   DOC FILE
//*            somewhat to work for UNIX (see member $$NOTE03 in    *   DOC FILE
//*            the pds, for details).                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 731 from Sam Golob to add some        *   DOC FILE
//*            support to display the incore TEST values that       *   DOC FILE
//*            were coded in the active IKJTSOxx PARMLIB member     *   DOC FILE
//*            (if any).                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Addition of File 949 to (finally after 35 years)     *   DOC FILE
//*            add the useful PDSUR program, which creates or       *   DOC FILE
//*            reads IEHMOVE-format FB-80 files (no blocksize       *   DOC FILE
//*            restriction).  This program was originally           *   DOC FILE
//*            written in 1973 by Gene Czarcinski, and enhanced     *   DOC FILE
//*            a few times by a very qualified updater, so it       *   DOC FILE
//*            works nicely now (on z/OS 2.2).                      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-491 SECTION                                          *   DOC FILE
//*  V-491  CHANGES FOR VERSION 491 JUL 06, 2016                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         1  Updates to File 006 and 008 as usual, to bring       *   DOC FILE
//*            them up to levels appropriate for this tape          *   DOC FILE
//*            version.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*            Also create this tape almost completely, using       *   DOC FILE
//*            materials from File 008 instead of from external     *   DOC FILE
//*            datasets.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  Update to File 019 from John Hooper to reflect       *   DOC FILE
//*            his change of address, and also to fix a few         *   DOC FILE
//*            programs.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  Update to File 035 to reflect a reassembly of        *   DOC FILE
//*            LOOK, a new version of PDS 8.6, PDSMATCH, and        *   DOC FILE
//*            LISTPDS, and a new program called LOGOPTS.           *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  Update to File 093 to the LISTPDS program, so        *   DOC FILE
//*            that it has support for extended ISPF statistics.    *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  Update to File 134 from Greg Price, to bring         *   DOC FILE
//*            REVIEW to Level 46.2.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  Update to the load module File 135, to update        *   DOC FILE
//*            REVIEW, PDS 8.6 (for European dates), and LISTPDS    *   DOC FILE
//*            (to add support for preserving extended ISPF         *   DOC FILE
//*            statistics and displaying them).                     *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  Updates to File 182 which is PDS 8.6 source code,    *   DOC FILE
//*            from John Kalinich.  The current level of PDS is:    *   DOC FILE
//*            PDS -- VERSION 8.6.15.9  JUNE 17, 2016 MVSLEV=MVS722 *   DOC FILE
//*            Load modules for this level of PDS 8.6 are reflected *   DOC FILE
//*            in Files 035 and 135.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  Small update to File 183 to fix the LOCKTERM         *   DOC FILE
//*            program.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*         9  Updates to File 220 and 221 from Anthony Cieri.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 264 from Sam Golob, rework the        *   DOC FILE
//*            macro formatting in LOOK, and reassembly of LOOK     *   DOC FILE
//*            for z/OS 2.2.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Updates to File 300 from Greg Price (additional      *   DOC FILE
//*            TEST subcommands updated) and from "Updater" who     *   DOC FILE
//*            fixed FINDFILE so it does a proper UCBSCAN for       *   DOC FILE
//*            z/OS.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Numerous updates from Lionel Dyck to Files 312       *   DOC FILE
//*            thru 314 to add new REXX execs and fix ones that     *   DOC FILE
//*            were already there.  You have to explore these...    *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 347 from Sam Golob to indicate that   *   DOC FILE
//*            this program, while it still works, has limitations, *   DOC FILE
//*            and that its author, Rick Fochtman, has passed       *   DOC FILE
//*            away, unfortunately for all of us.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 349 from Willy Jensen (ISPCMDL and    *   DOC FILE
//*            ISPCMDU) to list and update ISPF command tables.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 357 to fix PDSMATCH so that it will   *   DOC FILE
//*            tie in better with a call from PDS 8.6 and to fix    *   DOC FILE
//*            a bug.  (MATCH subcommand of the PDS program)        *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 406 to fix both the CQX program       *   DOC FILE
//*            and the FIND program.  Both work on z/OS 2.2.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 434 from Mark Zelden, to fix the      *   DOC FILE
//*            following:  ASIDLIST, IPLINFO, JOBCHECK, and         *   DOC FILE
//*            LOGRREXX.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Updates to File 452 from Dan Dalby (many programs).  *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 492 from Roland Schiradin, which      *   DOC FILE
//*            is SHOWzOS v7.23, that is necessary for z/OS 2.1     *   DOC FILE
//*            and z/OS 2.2.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 523 from R.W.Suhr, which is the       *   DOC FILE
//*            SMFSLCT program.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 533 from Gerhard Postpischil, to      *   DOC FILE
//*            add a version of VTT2TAPE and VTT2DISK that can      *   DOC FILE
//*            be assembled and used on an MVS/370 system.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 534 from Ralf Mahler, to fix the      *   DOC FILE
//*            SPACE command (from Paul Dion) for EAV (Extended     *   DOC FILE
//*            Attribute Volumes).                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 538 to change Jan Jaeger's email      *   DOC FILE
//*            address.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Update to File 612 from Albert Cheng, to add the     *   DOC FILE
//*            VIEWPARM and ISPFST execs.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Update to File 614 (load module libraries for        *   DOC FILE
//*            many versions of SHOWzOS) to add a version of        *   DOC FILE
//*            SHOWzOS 7.23 assembled under z/OS 2.2.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Update to File 633 from William J Smith, to          *   DOC FILE
//*            include a newly written version of the DSPACE TSO    *   DOC FILE
//*            command, which has been updated for EAV (Extended    *   DOC FILE
//*            Attribute Volumes).  The FDSPACE exec has not yet    *   DOC FILE
//*            been modified to accommodate the changed fields      *   DOC FILE
//*            of the new version.  (You would probably need a      *   DOC FILE
//*            considerably changed version of FDSPACE.  I don't    *   DOC FILE
//*            have EAV, and I don't want to mess with the version  *   DOC FILE
//*            of FDSPACE that I am currently using (sbg).)         *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Update to File 669 from Willy Jensen, which is his   *   DOC FILE
//*            facility to store REXX variables externally to the   *   DOC FILE
//*            REXX program, and make them available to the same    *   DOC FILE
//*            program later, or to other REXX programs.  The       *   DOC FILE
//*            facility is called REXXGBLV (REXX Global Variables). *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Update to File 731 from Sam Golob, to fix a field    *   DOC FILE
//*            in the EESCB display, and to add the LOGOPTS TSO     *   DOC FILE
//*            command (APF-authorized) that can temporarily        *   DOC FILE
//*            change the new LOGON attributes for the LPAR.        *   DOC FILE
//*            Also a minor fix to the UCBDASD program.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Cosmetic change to File 751.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Update to File 826 from Sam Golob to fix the help    *   DOC FILE
//*            and documentation for the CNCLPG commad, to doc      *   DOC FILE
//*            its ability to BURN an address space, besides its    *   DOC FILE
//*            ability to change attributes of the address space:   *   DOC FILE
//*            (cancelable, forcible, swappable, etc.)              *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Cosmetic change to File 841.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Update to File 873 to make a minor fix to the        *   DOC FILE
//*            ULUDASD program, corresponding to the fix to         *   DOC FILE
//*            UCBDASD in CBT File 731.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Update to File 874 from Sam Golob, which is HELP     *   DOC FILE
//*            members for many of the tools on the CBT Tape.       *   DOC FILE
//*            (And also a load library containing the REVIEW       *   DOC FILE
//*            and fullscreen HEL TSO commands is now included      *   DOC FILE
//*            here.)                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        34  Cosmetic changes to File 879 (TSOFINDZ still works   *   DOC FILE
//*            on z/OS 2.2 and just had to be reassembled).         *   DOC FILE
//*                                                                 *   DOC FILE
//*        35  Update to File 882 from Ze'ev Atlas, which is        *   DOC FILE
//*            Version 8.38 of PCRE (Version 1) ported to z/OS.     *   DOC FILE
//*            PCRE (Perl-Compatible Regular Expressions) now has   *   DOC FILE
//*            a later version (Version 2) whose port to z/OS       *   DOC FILE
//*            can be found on CBT File 939.                        *   DOC FILE
//*            However, for current users of PCRE Version 1,        *   DOC FILE
//*            we also present the latest version of it here.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        36  Update to File 900 to add SHA-1 and SHA-2 support.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        37  Update to File 908 from James Halley, which is his   *   DOC FILE
//*            interface to the ISPF workstation facility and it    *   DOC FILE
//*            enables people to transfer files easily from the     *   DOC FILE
//*            Windows workstation to the ISPF mainframe session.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        38  Update to File 926 which is Phil Polchinski's        *   DOC FILE
//*            AMORT (figure out your mortgage payments) program    *   DOC FILE
//*            written in COBOL.  Included here is JCL to compile   *   DOC FILE
//*            the program under different versions of COBOL        *   DOC FILE
//*            (and the resulting load libraries).  A compile       *   DOC FILE
//*            under COBOL 6.1 has now been added to the others.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        39  Addition of File 938 from Peter Giles, which         *   DOC FILE
//*            contains a modification of the SSINFO program        *   DOC FILE
//*            (output to the system console and SYSLOG)            *   DOC FILE
//*            displaying a lot of z/OS subsystem information.      *   DOC FILE
//*            Original code was from Xephon, but we support        *   DOC FILE
//*            most of the Xephon code now, and you can use         *   DOC FILE
//*            almost all of it, without worrying about the         *   DOC FILE
//*            copyright.  Xephon is (unfortunately) defunct.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        40  Addition of File 939 from Ze'ev Atlas, which is      *   DOC FILE
//*            a port of PCRE Version 2 (Perl-Compatible Regular    *   DOC FILE
//*            Expressions) to z/OS.  This version supersedes       *   DOC FILE
//*            PCRE Version 1, which can still be found on CBT      *   DOC FILE
//*            File 882.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        41  Addition of File 940 from Sam Golob, by way of       *   DOC FILE
//*            Gilbert Saint-flour and its original author.         *   DOC FILE
//*            This is the LLAPRINT program which shows you         *   DOC FILE
//*            which libraries are controlled by LLA (Linklist      *   DOC FILE
//*            Lookaside) currently.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        42  Addition of File 941 from Gregory Bliznets, which    *   DOC FILE
//*            contains some VERY useful REXX tools.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        43  Addition of File 942 by way of John Kalinich,        *   DOC FILE
//*            which contains some tools to list characteristics    *   DOC FILE
//*            of VSAM datasets, directly from the ISPF 3.4         *   DOC FILE
//*            screen, among other things.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        44  Addition of Files 943 thru 947 which are Xephon      *   DOC FILE
//*            articles for magazines from approximately            *   DOC FILE
//*            1990 thru 1993 or shorter.  Files:                   *   DOC FILE
//*                                                                 *   DOC FILE
//*                   943   -  CICS Update                          *   DOC FILE
//*                   944   -  SNA  Update                          *   DOC FILE
//*                   945   -  VSAM Update                          *   DOC FILE
//*                   946   -  VM   Update, courtesy of SDS USA     *   DOC FILE
//*                                         who own the rights      *   DOC FILE
//*                   947   -  VSE  Update                          *   DOC FILE
//*                                                                 *   DOC FILE
//*            The rights to most of the Xephon magazines were      *   DOC FILE
//*            given to Thomas Publishing, and Bob Thomas gave      *   DOC FILE
//*            the support rights, thru the end of 2005, to         *   DOC FILE
//*            www.cbttape.org.  Again, the VM articles are         *   DOC FILE
//*            here, courtest of SDS USA, and I got permission      *   DOC FILE
//*            to republish the articles from Jim Lampi of SDS.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        45  Addition of File 948 from Duc Tuan Nguyen, which     *   DOC FILE
//*            contains REXX execs for administering CICS and       *   DOC FILE
//*            DB2.  Also, there is an exec for sequentializing     *   DOC FILE
//*            all the members of a PDS.                            *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-490 SECTION                                          *   DOC FILE
//*  V-490  CHANGES FOR VERSION 490 OCT 26, 2015                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         1  Updates to File 006 and 008 as usual, to bring       *   DOC FILE
//*            them up to levels appropriate for this tape          *   DOC FILE
//*            version.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*            Also create this tape almost completely, using       *   DOC FILE
//*            materials from File 008 instead of from external     *   DOC FILE
//*            datasets.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  Updates to File 020 from Sam Golob to fix some       *   DOC FILE
//*            minor bugs in many of the members, to get them       *   DOC FILE
//*            to run.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  Updates to File 035, which is a load module library  *   DOC FILE
//*            for quick installs of many utility products.         *   DOC FILE
//*            Members changed:                                     *   DOC FILE
//*            PACKRAT PACKRATU PDS PDS38 PDS86 PDS86I PDS8638      *   DOC FILE
//*            UCBDASD UCBTAPE UCBTYPE ULUDASD ULUDIAG ULUTAPE      *   DOC FILE
//*            PDS86 -- VERSION 8.6.15.2  July 19, 2015             *   DOC FILE
//*            Other programs (PACKRAT, ULU**** etc. were changed   *   DOC FILE
//*            to accommodate ULUT Version 3 for UCB lookups.       *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  Update to File 039, which contains zaps to IPOUPDTE  *   DOC FILE
//*            and CPPUPDTE so they don't reference the $$$COIBM    *   DOC FILE
//*            member in the pds which they are updating.  Also     *   DOC FILE
//*            added historical information regarding MCNVTCAT      *   DOC FILE
//*            (once supplied with CBIPO and CBPDO, and no longer   *   DOC FILE
//*            supplied), and also copied RCNVTCAT (the exec) from  *   DOC FILE
//*            File 542 so you can use it for re-cataloging all     *   DOC FILE
//*            non-VSAM datasets in a new VSAM catalog.             *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  Update to File 046 to convert PACKRATU to use        *   DOC FILE
//*            to ULUT UCB lookup macros ULUDSECT, ULUINIT, and     *   DOC FILE
//*            ULUSCAN (for ULUT Type 3 and all earlier versions).  *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  Update to File 093 to PDSLOADW, OFFLOADW, and to     *   DOC FILE
//*            add the latest version of LISTPDS from File 316.     *   DOC FILE
//*            Purpose of these updates is to insure data integrity *   DOC FILE
//*            when reloading CBT Tape files from "tape".           *   DOC FILE
//*                                                                 *   DOC FILE
//*            Problem was that file members which accidentally     *   DOC FILE
//*            contained the string "><" in columns 1 and 2 were    *   DOC FILE
//*            getting these strings erroneously changed to "./"    *   DOC FILE
//*            because it was assumed that IEBUPDTE control cards   *   DOC FILE
//*            were the original cause of the "><" strings, and     *   DOC FILE
//*            that wasn't always the case.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*            So LISTPDS and OFFLOADW were changed to produce      *   DOC FILE
//*            an "exception log" file of all cards in the original *   DOC FILE
//*            pds which always originally contained "><" in        *   DOC FILE
//*            columns 1 and 2.  These were NOT assumed to have     *   DOC FILE
//*            arisen from "./" cards, and therefore, if a record   *   DOC FILE
//*            is in the log (pointed to by DD name SYSUPLOG),      *   DOC FILE
//*            then it will not be changed by PDSLOAD processing    *   DOC FILE
//*            when the pds is loaded from the sequential unload    *   DOC FILE
//*            dataset.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  Update to File 134 from Greg Price, mostly to        *   DOC FILE
//*            the REVIEW program package, which is now at          *   DOC FILE
//*            Level 46.1, and which includes support for PDSE      *   DOC FILE
//*            Type 2 to be able to see multiple versions of the    *   DOC FILE
//*            same member name.  Some further support material     *   DOC FILE
//*            was also added to this file.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  Update to File 135 from Greg Price and others, to    *   DOC FILE
//*            update the REVIEW package to Version 46.1, and       *   DOC FILE
//*            also to update PDS86 as follows:                     *   DOC FILE
//*                                                                 *   DOC FILE
//*            PDS86 -- VERSION 8.6.15.2  July 19, 2015             *   DOC FILE
//*                                                                 *   DOC FILE
//*         9  Update to File 182 from John Kalinich, to the PDS    *   DOC FILE
//*            8.6 program package source and load, to level:       *   DOC FILE
//*                                                                 *   DOC FILE
//*            PDS86 -- VERSION 8.6.15.2  July 19, 2015             *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 183 from several sources:             *   DOC FILE
//*            Data Areas Handbook program (DAHANDBK) from          *   DOC FILE
//*            Gilbert's own files.                                 *   DOC FILE
//*            SHOWDASD from Anthony Cieri, to accommodate the      *   DOC FILE
//*            ULUT Type 3 (above the 64-bit bar).                  *   DOC FILE
//*            SWAREQ22 from Don Poitras to accommodate another     *   DOC FILE
//*            control block being put above the bar in z/OS 2.2.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to Files 220 and 221 from Anthony Cieri       *   DOC FILE
//*            and Sam Golob, to further accommodate changes        *   DOC FILE
//*            for z/OS 2.1 and 2.2.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Updates to File 249 from Eileen Barkow and           *   DOC FILE
//*            Steve Niebauer, to various versions of the WMOD      *   DOC FILE
//*            program.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 312 from Lionel Dyck, to programs     *   DOC FILE
//*            LPRPRINT and PSPRINT.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 316 with a fix to the FFYCOPY         *   DOC FILE
//*            program, and to replace LISTPDS with the newest      *   DOC FILE
//*            version that makes an update log of all records      *   DOC FILE
//*            which originally contained the string "><" in        *   DOC FILE
//*            columns 1 and 2.  See explanation above in Item 6.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 321 from Roland Schiradin to fix      *   DOC FILE
//*            the COBANAL program for COBOL V4 and V5.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 432 from Thierry Falissard to         *   DOC FILE
//*            add ALLSTOP and VTOCR programs.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 434 from Mark Zelden to update        *   DOC FILE
//*            IPLINFO, REXXMEM, and RXSTOR64.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 480 from Sam Golob, to add the        *   DOC FILE
//*            latest level of CKIEBGEN and accompanying JCL.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 492 from Roland Schiradin and         *   DOC FILE
//*            some helpers, to add SHOWzOS 7.23.  This version     *   DOC FILE
//*            is needed for z/OS 2.1.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 612 from Albert Cheng to update       *   DOC FILE
//*            multiple programs:                                   *   DOC FILE
//*            Members are:                                         *   DOC FILE
//*            ALOCLPA, ASSEMBLE, BLOCATE, CHKMEM, DSPACE,          *   DOC FILE
//*            DUDASD, HDSPACE, HDUDASD, HFINDCMD, HFINDPRG,        *   DOC FILE
//*            HLOCATE, JBLOCATE, JDATE, JDSPACE, JSHOWPPT,         *   DOC FILE
//*            LOAD, LOCATE, LOCATE$, LOCATEO, LPALIB, REGSIZE,     *   DOC FILE
//*            SHOWPPT, SHOWPPT$, SVCNO, SVCUPDTE, SYSINCRD         *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 614 (SHOWzOS load libraries)          *   DOC FILE
//*            to include assemblies and load libraries for         *   DOC FILE
//*            SHOWzOS 7.22 and 7.23 (necessary for z/OS 2.1).      *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 630 from Robert Glover to upgrade     *   DOC FILE
//*            MC (use ADRDSSU to copy/move datasets interactively) *   DOC FILE
//*            and TSOSMS (assembler program to list SMS status     *   DOC FILE
//*            of a dataset.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 668 from Ed Tobias to fix Hunter      *   DOC FILE
//*            Zhou's spool offload program when an IBM macro       *   DOC FILE
//*            was changed.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Update to File 731 from Sam Golob to fix UCBxxxx     *   DOC FILE
//*            display programs for ULUT (UCB lookup table)         *   DOC FILE
//*            Type 3 (above the 64-bit bar).                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Update to File 751, to change the name of member     *   DOC FILE
//*            IGC0023{ to IGC00230.  The { character was causing   *   DOC FILE
//*            problems for people using older versions of the      *   DOC FILE
//*            PDSLOAD program, that checked member names for       *   DOC FILE
//*            "validity" before reloading them into a pds. PDSLOAD *   DOC FILE
//*            had been fixed by Greg Price and Gerhard Postpischil *   DOC FILE
//*            previously, but to get rid of the problem entirely,  *   DOC FILE
//*            the member was renamed to remove the bad character.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Update to File 815 from Robert Glover to upgrade     *   DOC FILE
//*            his extended search facility SRCHE.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Update to File 873 from Sam Golob to fix his         *   DOC FILE
//*            ULUT (UCB lookup table) scanning macros for          *   DOC FILE
//*            ULUT Type 3 (above the 64-bit bar), and to fix       *   DOC FILE
//*            (most of) the programs that depend on them.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Update to File 882 from Ze'ev Atlas, which has       *   DOC FILE
//*            Version 8.37 of PCRE (Perl Compatible Regular        *   DOC FILE
//*            Expressions).                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Update to File 908 from James Halley, to upgrade     *   DOC FILE
//*            his ISPF Client Server enhancement facility to       *   DOC FILE
//*            run with Windows 7 and later.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Update to File 917 to correct some documentation.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Addition of File 924 from Robert Cichetti which      *   DOC FILE
//*            contains his LDSI REXX exec to tell you about the    *   DOC FILE
//*            attributes of datasets.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Addition of File 925 from Robert Glover to contain   *   DOC FILE
//*            the ENL REXX exec and panels, etc. to dynamically    *   DOC FILE
//*            enlarge a dataset.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Addition of File 926 from Philip Polchinski which    *   DOC FILE
//*            contains his amortization program AMORT, written     *   DOC FILE
//*            in COBOL.  Tested with several releases of COBOL.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        34  Addition of File 927 from Steve Wentworth with a     *   DOC FILE
//*            program to prime a newly created VSAM file, so a     *   DOC FILE
//*            COBOL program can write past the first record.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        35  Addition of File 928 from Ze'ev Atlas which          *   DOC FILE
//*            contains some code in COBOL to create comparable     *   DOC FILE
//*            functionality to the regex.h header for C.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        36  Addition of File 929 from somitcw and contains a     *   DOC FILE
//*            program called REALNAME, which is a REXX function    *   DOC FILE
//*            that returns the actual file name of a gdg dataset,  *   DOC FILE
//*            or the actual name of an alias in a catalog.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        37  Addition of File 930 from Phil Polchinski which      *   DOC FILE
//*            contains supporting JCL and other materials to use   *   DOC FILE
//*            his CALENDAR FILE, which is found in EBCDIC format   *   DOC FILE
//*            on File 932, and in zipped ASCII format on File 933. *   DOC FILE
//*                                                                 *   DOC FILE
//*        38  Addition of File 931 from Gabriel Gargiulo, who      *   DOC FILE
//*            writes books about REXX and CLISTs.  This file       *   DOC FILE
//*            contains the exercise examples from Gabe's new       *   DOC FILE
//*            book called                                          *   DOC FILE
//*            "TSO CLIST to TSO REXX Conversion Handbook"          *   DOC FILE
//*            ISBN-13: 978-1508668497                              *   DOC FILE
//*            ISBN-10: 1508668493                                  *   DOC FILE
//*            which you can order from amazon.com and other        *   DOC FILE
//*            places.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        39  Addition of Files 932 and 933 which contain Phil     *   DOC FILE
//*            Polchinski's calendar file in EBCDIC and zipped      *   DOC FILE
//*            ASCII respectively.  This file can be used to        *   DOC FILE
//*            programmatically solve many complicated calendar     *   DOC FILE
//*            calculation problems.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        40  Addition of File 934 from Sri Kolusu of IBM DFSORT   *   DOC FILE
//*            development, which contains a DFSORT job to create   *   DOC FILE
//*            Phil Polchinski's calendar file, if you need to      *   DOC FILE
//*            re-create it.  File 930 contains Phil's program      *   DOC FILE
//*            to do the similar job with more flexibility.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        41  Addition of File 935 from John McKown, which         *   DOC FILE
//*            contains a port of SQLITE 3.8.11 for z/OS.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        42  Addition of File 936 from John McKown, which         *   DOC FILE
//*            contains a port of NAWK (New AWK) to z/OS.           *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-489 SECTION                                          *   DOC FILE
//*  V-489  CHANGES FOR VERSION 489 NOV 12, 2014                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         1  Updates to File 006 and 008 as usual, to bring       *   DOC FILE
//*            them up to levels appropriate for this tape          *   DOC FILE
//*            version.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*            Also create this tape almost completely, using       *   DOC FILE
//*            materials from File 008 instead of from external     *   DOC FILE
//*            datasets.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  Updates to File 035, which is a load module library  *   DOC FILE
//*            for quick installs of many utility products.         *   DOC FILE
//*            Members changed:  LOOK, LOOK2, PDS, PDS38, PDS86,    *   DOC FILE
//*            PDS86I, PDS8638                                      *   DOC FILE
//*            PDS86 -- VERSION 8.6.15.0  September 12, 2014        *   DOC FILE
//*            Recompile of LOOK with z/OS 2.1 macros.              *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  Update to File 039, which contains zaps to IPOUPDTE  *   DOC FILE
//*            and CPPUPDTE so they don't reference the $$$COIBM    *   DOC FILE
//*            member in the pds which they are updating.  Also     *   DOC FILE
//*            added a few other members for helpfulness.           *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  Update to File 112 which is the VTOC TSO command,    *   DOC FILE
//*            to fix it for Extended Access Volumes (EAV's).       *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  Update to File 118, which is a package of programs   *   DOC FILE
//*            to help you look at PTFs and other SYSMODs before    *   DOC FILE
//*            SMP/E gets its grubby hands on them.  With these     *   DOC FILE
//*            programs, you can examine PTF and other SYSMOD input *   DOC FILE
//*            files and tapes, to see what is on them.  Extended   *   DOC FILE
//*            to supply information about GIMCPTS, which expands   *   DOC FILE
//*            the compressed PTF contents.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  Update to File 135, which contains load modules      *   DOC FILE
//*            that are mostly related to Greg Price's software     *   DOC FILE
//*            on File 134.                                         *   DOC FILE
//*            Members changed: PDS, PDS38, PDS86, PDS8638          *   DOC FILE
//*            PDS86 -- VERSION 8.6.15.0  September 12, 2014        *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  Update to File 149, to restore the COMPLOAD program  *   DOC FILE
//*            which was there before.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  Update to File 182 from John Kalinich.  This is:     *   DOC FILE
//*            PDS86 -- VERSION 8.6.15.0  September 12, 2014        *   DOC FILE
//*                                                                 *   DOC FILE
//*         9  Update to File 264 for reassembly of LOOK.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Updates to File 300 for VSMRGN and COUNT programs.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Updates to File 423 to the LISTHEAD, CKC, and        *   DOC FILE
//*            MAPXA TSO commands.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 434 to add the ONEPAK21 and TWOPAK21  *   DOC FILE
//*            jobs, creating one-pack and two-pack rescue systems  *   DOC FILE
//*            at the z/OS 2.1 level.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 452 from Dan Dalby, to make many      *   DOC FILE
//*            program changes.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 492 from Roland Schiradin, with       *   DOC FILE
//*            Version 7.22 of SHOWzOS, which is absolutely         *   DOC FILE
//*            necessary when running z/OS 2.1.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 526 from David I. Russell, with       *   DOC FILE
//*            a new version of his sophisticated administration    *   DOC FILE
//*            tool for CA-Top Secret.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 542 to add one member.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 612 from Albert Cheng to modify       *   DOC FILE
//*            or add quite a few members:                          *   DOC FILE
//*            Members changed:  ASSEMBLE, BLOCATE, DSPACE,         *   DOC FILE
//*            DUDASD, DUDASD$, DUDASD01, HDUDASD, JBLOCATE,        *   DOC FILE
//*            JCATNEWD, JDSPACE, JLISTPDS, JSYSINCD, LISTPDS,      *   DOC FILE
//*            LOAD, LOAD$, LOCATE, OLDMACS, SYSINCRD, TRAP         *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 617 from Pedro Berrios, to make       *   DOC FILE
//*            the documentation clearer.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 633 to enhance DSPACE and the exec    *   DOC FILE
//*            which calls it, FDSPACE, so that it displays the     *   DOC FILE
//*            full capacity of each volume in cylinders.  Also     *   DOC FILE
//*            see File 922, which contains an EAV-compatible       *   DOC FILE
//*            version of DSPACE and FDSPACE, which is different    *   DOC FILE
//*            from this version.  Rather, it was updated from      *   DOC FILE
//*            the original version of DSPACE and FDSPACE.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 882 from Ze'ev Atlas, which has       *   DOC FILE
//*            Version 8.35 of PCRE (Perl Compatible Regular        *   DOC FILE
//*            Expressions).                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 897 documentation from John McKown    *   DOC FILE
//*            which is a port of SQLITE 3.8 to z/OS 2.1.           *   DOC FILE
//*            This version has been superseded by Version 3.8.7    *   DOC FILE
//*            of SQLITE on File 923, but it is being kept here,    *   DOC FILE
//*            just in case that somebody has to re-link members    *   DOC FILE
//*            from this version into their programs.  Initially,   *   DOC FILE
//*            you should use Version 3.8.7 on File 923.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Addition of File 912 from Don Higgins, which has     *   DOC FILE
//*            his macros, both for structured assembler code,      *   DOC FILE
//*            and for general purpose use.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Addition of File 913 from Peter H.C. Tsai, which     *   DOC FILE
//*            contains a way of displaying SMS information from    *   DOC FILE
//*            your z/OS system on your Apple iPhone.               *   DOC FILE
//*            Documentation is in PDF format.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Addition of File 914 from Steve McColley, which      *   DOC FILE
//*            contains the Shared Spool Mods (Mellon Mods) for     *   DOC FILE
//*            z/OS 2.1.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Addition of File 915 from William J. Smith and       *   DOC FILE
//*            contains an ISPF dialog to generate JCL that runs    *   DOC FILE
//*            the GTZPRINT batch job for IBM's Generic Tracker     *   DOC FILE
//*            Facility.  This facility will collect data to        *   DOC FILE
//*            prepare a shop that is planning to install EAV's     *   DOC FILE
//*            (Extended Access Volumes).  The data tells you what  *   DOC FILE
//*            you have to fix, in order that the installation will *   DOC FILE
//*            be EAV-capable; that nothing will get in the way     *   DOC FILE
//*            of installing the new Extended Access Volumes.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Addition of File 916 from Robert A.H. Prins, which   *   DOC FILE
//*            contains a 64-bit installable version of the         *   DOC FILE
//*            XMIT-Manager PC program from Neal Johnston-Ward.     *   DOC FILE
//*            This program allows you to browse and copy members   *   DOC FILE
//*            and files in TSO XMIT-format on the PC.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Addition of File 917 from George DeLuca, which       *   DOC FILE
//*            contains his SELECTIT program, an extremely          *   DOC FILE
//*            powerful file copying and file manipulation          *   DOC FILE
//*            program.  SELECTIT has many capabilities, including  *   DOC FILE
//*            the ability to copy data files to different          *   DOC FILE
//*            formats, and concatenation of input files with       *   DOC FILE
//*            different record formats.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Addition of Files 918 and 919 from John McKown,      *   DOC FILE
//*            which contain a port of BASH 4.2 to z/OS 2.1.        *   DOC FILE
//*            The current level of this port is 4.2.53 (updated    *   DOC FILE
//*            through "Fix 53").  This includes the fix for        *   DOC FILE
//*            the SHELLSHOCK exploit and more.  See member         *   DOC FILE
//*            called $$UPDATE for details of all the fixes.        *   DOC FILE
//*            This file is in VB-255 format, because of the fix    *   DOC FILE
//*            report, whose line length exceeds 80 characters.     *   DOC FILE
//*            File 918 contains only executables, and File 919     *   DOC FILE
//*            also contains source code, as required by the        *   DOC FILE
//*            GPL license.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Addition of File 920 from John McKown via the        *   DOC FILE
//*            request of Robert Cichetti.  This file contains      *   DOC FILE
//*            a REXX exec (called "DEFINES") which generates       *   DOC FILE
//*            IDCAMS DEFINE statements to create a duplicate       *   DOC FILE
//*            VSAM file from an existing VSAM file.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Addition of File 921 from Albert Cheng, which has    *   DOC FILE
//*            a TSO command processor to allocate ISPF datasets    *   DOC FILE
//*            in native TSO.  ISPFDSN reads the $ISPFDSN parmlib   *   DOC FILE
//*            member to allocate ISPF datasets.  It can also       *   DOC FILE
//*            read your TSO logon proc to allocate ISPF datasets   *   DOC FILE
//*            for new users which are not familiar with ISPFDSN.   *   DOC FILE
//*            Refer to member @GUIDE to implement ISPFDSN in       *   DOC FILE
//*            your installation.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Addition of File 922 from William J. Smith, which    *   DOC FILE
//*            contains a version of the DSPACE TSO command, and    *   DOC FILE
//*            the FDSPACE ISPF dialog to display mounted DASD      *   DOC FILE
//*            volumes at your installation.  This version has      *   DOC FILE
//*            been modified for EAV support (Extended Access       *   DOC FILE
//*            Volumes which have cylinder addressability in their  *   DOC FILE
//*            high ends.)  If you don't have EAV in your shop,     *   DOC FILE
//*            it is probably better to use the older version of    *   DOC FILE
//*            these programs, which may be found on CBT File 633.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Addition of File 923 from John McKown, which has     *   DOC FILE
//*            a port of SQLITE 3.8.7 for z/OS.  This is a later    *   DOC FILE
//*            version of SQLITE than the version found on File     *   DOC FILE
//*            897.  It is preferable to use this version for a     *   DOC FILE
//*            new install.  The older version (on File 897) is     *   DOC FILE
//*            there, in case you already have it installed, and    *   DOC FILE
//*            you need some of the executables from that version.  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-488 SECTION                                          *   DOC FILE
//*  V-488  CHANGES FOR VERSION 488 JUN 03, 2014                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         1  Updates to File 006 and 008 as usual, to bring       *   DOC FILE
//*            them up to levels appropriate for this tape          *   DOC FILE
//*            version.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*            Also create this tape almost completely, using       *   DOC FILE
//*            materials from File 008 instead of from external     *   DOC FILE
//*            datasets.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  Update to File 007 from Don Isenstadt to fix the     *   DOC FILE
//*            WHOIS RACF TSO command (which tells you the name     *   DOC FILE
//*            connected with a userid) so that it will take        *   DOC FILE
//*            8-character userids.  This file used to be the       *   DOC FILE
//*            RACF SHARE tape and it contains RACF tools.          *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  Update to File 035 which reflects the following      *   DOC FILE
//*            list of load module changes:                         *   DOC FILE
//*            CCKDDUMP, CCKDLOAD, CNCLPG, DA, DAF, DAF149,         *   DOC FILE
//*            DISKMAP, DSAT, DVOL, PACKRAT, PDS, PDSORIG, PDS38,   *   DOC FILE
//*            PDS86, PDS86I, PDS8638, STEPLIB, STEPLIB1, UKEYCSA,  *   DOC FILE
//*            ULUDASD, ULUTAPE, with                               *   DOC FILE
//*            PDS86 -- VERSION 8.6.14.11  May 21, 2014             *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  Update to File 044 to add an Assembler version of    *   DOC FILE
//*            the ASMTOZAP program from Gerhard Postpischil.       *   DOC FILE
//*            This version is member ASMTOZAG.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  Update to File 134 which has a new version of        *   DOC FILE
//*            REVIEW (44.2) and which has the following list       *   DOC FILE
//*            of updated members:                                  *   DOC FILE
//*            $$$#DATE, $$README, $REVC370, @FILE134, @FILE135,    *   DOC FILE
//*            LOADCLST, LOADHELP, LOADLOAD, REV$$$$$, REV$BETA,    *   DOC FILE
//*            REV$IOBJ, REV$LPDS, REV$MVS, REV$VTOC, REV$ZASM,     *   DOC FILE
//*            REV$ZOS, REVASM, REVCLIST, REVCOPY, REVDATA,         *   DOC FILE
//*            REVDB2PG, REVDUMY, REVEDIT, REVFAQ, REVHELP,         *   DOC FILE
//*            REVIEVME, REVIEW, REVINFLT, REVINIT, REVLEVL,        *   DOC FILE
//*            REVLISTC, REVLPDS, REVMENU, REVMSGS, REVNOTES,       *   DOC FILE
//*            REVNOTEX, REVPNLS, REVRTF, REVSMF, REVSMF$,          *   DOC FILE
//*            REVSUBS, REVSUBS2, REVTOCRD, REVUSPDS, REVZLOAD,     *   DOC FILE
//*            REV370LD                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  Update to File 135 load library to change the PDS    *   DOC FILE
//*            program to the following version: (ISO date format)  *   DOC FILE
//*            PDS86 -- VERSION 8.6.14.11  May 21, 2014             *   DOC FILE
//*            and to update the REVIEW program to Version 44.2.    *   DOC FILE
//*            Also an update for SHOWzOS to Version 7.22, which    *   DOC FILE
//*            works on z/OS 2.1.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  Update to File 182 which is the PDS 8.6 package      *   DOC FILE
//*            from John Kalinich.  Version of source is:           *   DOC FILE
//*            PDS86 -- VERSION 8.6.14.11  May 21, 2014             *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  Update to File 220 from Sam Golob and Tony Cieri     *   DOC FILE
//*            which is the EDP Auditor's package from the late     *   DOC FILE
//*            Lee Conyers.  Also, many of the REXX execs in the    *   DOC FILE
//*            packaged (from File 221) were converted from         *   DOC FILE
//*            VB-255 format to FB-80 format.  Much of this         *   DOC FILE
//*            stuff runs on z/OS 1.13 and z/OS 2.1, but not all    *   DOC FILE
//*            of it.  If you can fix some things up, please send   *   DOC FILE
//*            your fixes in to me:  sbgolob@cbttape.org            *   DOC FILE
//*                                                                 *   DOC FILE
//*         9  Update to File 221 from Tony Cieri and Sam Golob,    *   DOC FILE
//*            which contains fixes for Lee Conyers' REXX execs,    *   DOC FILE
//*            so they can run on z/OS 1.13 and z/OS 2.1, etc.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 300 from Sam Golob and others, to     *   DOC FILE
//*            fix programs that were there, getting them to work   *   DOC FILE
//*            for z/OS 1.13 and thereabouts.                       *   DOC FILE
//*            Changed members are:                                 *   DOC FILE
//*            ------- ------- ---                                  *   DOC FILE
//*            COUNT, COUNT1, DA, DA@@                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 312 from Lionel Dyck to change his    *   DOC FILE
//*            address and to update the following members:         *   DOC FILE
//*            LPREDIT, LPRPRINT, PSPRINT                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 313 from Lionel Dyck to change his    *   DOC FILE
//*            address and to update the following member:          *   DOC FILE
//*            $SOFTPUB                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 314 from Lionel Dyck to change his    *   DOC FILE
//*            address.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 316 from Sam Golob and others, to     *   DOC FILE
//*            add or change the following members:                 *   DOC FILE
//*            TOD, TOD$, TOD$O, TOD01, UADSORT, UADSORT$,          *   DOC FILE
//*            UADSORTO, ZEBCOMPR, ZEBCOMP1                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*            Changed Members:                                     *   DOC FILE
//*            $SNGLTSO, @FILE434, IPLINFO, REXXMEM, SMPDELF,       *   DOC FILE
//*            XEFCLIST                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 452 from Dan Dalby.                   *   DOC FILE
//*            Changed Members:                                     *   DOC FILE
//*            $D2BLS, $D2BLSJ, ADDTO, D2BLS, HELP, LOADLIB,        *   DOC FILE
//*            MACLIB, PACKMAP, STEPLIB                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 541 from Christophe Varlet, to        *   DOC FILE
//*            upgrade the cckddump and cckdload programs from      *   DOC FILE
//*            Greg Smith, so they will handle larger disks.        *   DOC FILE
//*            Changed Members:                                     *   DOC FILE
//*            C$ASM01, D$LKED01, X$CCKDA, X$CCKDA0, X$CCKDL,       *   DOC FILE
//*            X$CCKDL0, X$CCKDO, X$CCKDO0                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 542 to reflect Alastair Gray's        *   DOC FILE
//*            changed email address.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 566 from Sam Bass.                    *   DOC FILE
//*            Changed Programs:   DUMPLWA and LPALIST              *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 614 from Sam Golob to include a       *   DOC FILE
//*            new load module library for SHOWzOS 7.22, assembled  *   DOC FILE
//*            on z/OS 2.1 for z/OS 2.1, 1.13, and 1.12.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 660 from Gerhard Postpischil, which   *   DOC FILE
//*            contains a fix to his REXXER edit macro, to          *   DOC FILE
//*            dynamically compile a REXX exec and show errors.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 731 from Sam Golob, to add a new      *   DOC FILE
//*            program called UCBTYPE, that lists defined device    *   DOC FILE
//*            totals.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 792 from John Kalinich to fix a bug   *   DOC FILE
//*            in the DISKMAP program, while he was incorporating   *   DOC FILE
//*            DISKMAP support into PDS 8.6.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Update to File 831 from Jacques Devaux, John         *   DOC FILE
//*            Kalinich and Sam Golob, to make the concatenation    *   DOC FILE
//*            program more useful for English speaking users.      *   DOC FILE
//*            The original program was written with French         *   DOC FILE
//*            comments.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Update to File 846 from Sam Golob, to add a program  *   DOC FILE
//*            called TR02ABS that converts IPL Text in somitcw's   *   DOC FILE
//*            TRK0SAVE format into ICKDSF ABS format.  Thus a      *   DOC FILE
//*            collection of IPLTEXT backups in TRK0SAVE format     *   DOC FILE
//*            can be converted so that ICKDSF will be able to      *   DOC FILE
//*            load them.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Update to File 856 from Steve McColley, to add       *   DOC FILE
//*            some information about his vendor product called     *   DOC FILE
//*            ESSM which is an extension of the Mellon Mods to     *   DOC FILE
//*            JES2.  This may be helpful for installations         *   DOC FILE
//*            running the Mellon Mods currently.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Update to File 860 from Gerhard Postpischil to       *   DOC FILE
//*            update some of his source members:                   *   DOC FILE
//*            ASMTOZAP, COPYFDR, COPYVOL, DRIPLOAD, DSSDUMP,       *   DOC FILE
//*            LOADZAP, PARMTZ, PRINTALL, WYLVTOC, WYLVTOCS         *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Update to File 873 from Sam Golob to add a program   *   DOC FILE
//*            called ULUTYPE, that lists defined device totals.    *   DOC FILE
//*            This program is the same as UCBTYPE on File 731.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Update to File 899 from Sam Golob to add a           *   DOC FILE
//*            modification to his DACEE program so that it         *   DOC FILE
//*            becomes a callable service.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Addition of File 900 which is a collection of        *   DOC FILE
//*            programs that calculate MD5 checksums.  These        *   DOC FILE
//*            programs were written in Assembler, and are an       *   DOC FILE
//*            adaptation of some of the work of Leland Lucius,     *   DOC FILE
//*            who wrote a routine to calculate MD5 sums that       *   DOC FILE
//*            is callable from REXX.                               *   DOC FILE
//*            http://homerow.net/asm/md5/                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Addition of File 901 which is the ASSIST assembler   *   DOC FILE
//*            for OS/360 and similar operating systems.  This      *   DOC FILE
//*            file was submitted, courtesy of Jay Moseley.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Addition of File 902 from Jay Moseley, which is      *   DOC FILE
//*            a collection of date conversion routines, originally *   DOC FILE
//*            written for Y2K purposes.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Addition of File 903 from Jay Moseley, which is      *   DOC FILE
//*            a collection of field formatting routines that       *   DOC FILE
//*            can be used, for example, to verify the format       *   DOC FILE
//*            of fields entered in CICS transactions.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        34  Addition of File 904 from Tony Cieri, containing     *   DOC FILE
//*            a collection of exits and programs designed to       *   DOC FILE
//*            work with IBM's Connect:Direct product FMID HDGA510. *   DOC FILE
//*            These exits go back a long way, but they have        *   DOC FILE
//*            been refreshed to work with IBM Connect:Direct       *   DOC FILE
//*            Version 5.1.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        35  Addition of File 905 from Sam Golob.  These members  *   DOC FILE
//*            represent a small subset of PARMLIB members, and     *   DOC FILE
//*            contains explanations and code relating to where     *   DOC FILE
//*            these PARMLIB member settings are reflected in       *   DOC FILE
//*            Common Storage.  Parmlib members represented so      *   DOC FILE
//*            far, are:                                            *   DOC FILE
//*            IKJTSOxx, DEVSUPxx, VATLSTxx, and LPALSTxx.          *   DOC FILE
//*                                                                 *   DOC FILE
//*            It is hoped that this collection will grow, with     *   DOC FILE
//*            more PARMLIB members included.  If you are so        *   DOC FILE
//*            inclined, please do the research on a PARMLIB        *   DOC FILE
//*            member, and submit it to me for inclusion here.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        36  Addition of File 906 from Steve McColley, which      *   DOC FILE
//*            contains an "LSPACE-type" TSO command to list the    *   DOC FILE
//*            space characteristics of disk volumes.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        37  Addition of File 907 from Nick Barnes, which         *   DOC FILE
//*            contains an MSI executable file for the PC, that     *   DOC FILE
//*            installs an application to display XMIT-format       *   DOC FILE
//*            files on the PC.  A replacement for XMIT-Manager.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        38  Addition of File 908 from James Halley, which        *   DOC FILE
//*            contains a package to send ISPF outputs to Windows   *   DOC FILE
//*            workstations for printing, and many types of         *   DOC FILE
//*            further post-processing.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        39  Addition of File 909 from Glenn Siegel, which        *   DOC FILE
//*            contains a package to allow you to email CA-Dispatch *   DOC FILE
//*            reports.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        40  Addition of File 910 from Thierry Falissard, which   *   DOC FILE
//*            contains a database management system called         *   DOC FILE
//*            NoSQLz for z/OS.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*            website:  www.nosqlz.com                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        41  Addition of File 911 from Gabriel Gargiulo, and      *   DOC FILE
//*            contains problems and answers from his book:         *   DOC FILE
//*                                                                 *   DOC FILE
//*                "The REXX Language on TSO"                       *   DOC FILE
//*                  by Gabriel F. Gargiulo.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*                ISBN-10: 1479104779                              *   DOC FILE
//*                ISBN-13: 978-1479104772                          *   DOC FILE
//*                                                                 *   DOC FILE
//*            This book can be ordered from Amazon.                *   DOC FILE
//*                                                                 *   DOC FILE
//*            email:  gabeg@yoursecondlanguage.com                 *   DOC FILE
//*                                                                 *   DOC FILE
//*            Also, some extra REXX execs from the book are        *   DOC FILE
//*            included for your benefit.                           *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-487 SECTION                                          *   DOC FILE
//*  V-487  CHANGES FOR VERSION 487 OCT 27, 2013                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         0  Updates to File 006 and 008 as usual, to bring       *   DOC FILE
//*            them up to levels appropriate for this tape          *   DOC FILE
//*            version.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*         1  Update to File 033 which contains several versions   *   DOC FILE
//*            of the SHARE song book.  This is courtesy of Helen   *   DOC FILE
//*            Seren.  The song book for 2009 was added.            *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  Update to File 035 load library to change the PDS    *   DOC FILE
//*            program to the following version:                    *   DOC FILE
//*            PDS86 -- VERSION 8.6.14.5  June 10, 2013             *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  Update to File 044 to add an Assembler version of    *   DOC FILE
//*            the ASMTOZAP program from Gerhard Postpischil.       *   DOC FILE
//*            This version is member ASMTOZAG.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  Update to File 066 to apply Gerhard Postpischil's    *   DOC FILE
//*            fix to the PDSLOAD program.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  Update to File 093 to apply Gerhard Postpischil's    *   DOC FILE
//*            fix to the PDSLOAD source code.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  Update to File 094 from Michael Cleary with his      *   DOC FILE
//*            newer version of DAF, version 1.49.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  Update to File 119 to copy newer versions of the     *   DOC FILE
//*            TSOENTER and TSOLEAVE macros from File 136.  Older   *   DOC FILE
//*            versions are still here, if you need them.           *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  Update to File 133 to change some doc.               *   DOC FILE
//*                                                                 *   DOC FILE
//*         9  Update to File 135 load library to change the PDS    *   DOC FILE
//*            program to the following version: (ISO date format)  *   DOC FILE
//*            PDS86 -- VERSION 8.6.14.5  June 10, 2013             *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 136 to change the support             *   DOC FILE
//*            information.  I don't know if Howard Dean is         *   DOC FILE
//*            still alive.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 182 which is the PDS 8.6 package      *   DOC FILE
//*            from John Kalinich.  Version of source is:           *   DOC FILE
//*            PDS86 -- VERSION 8.6.14.5  June 10, 2013             *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 183 from Rainer Nowak add his         *   DOC FILE
//*            changes to the STEMEDIT program.  Member STEMEDI#    *   DOC FILE
//*            is a copy of what is on CBT File 895.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 185 to make a few changes to the      *   DOC FILE
//*            assembled tables, and to add a method of using       *   DOC FILE
//*            only free disassembly tools to disassemble the       *   DOC FILE
//*            auth tables already on your system.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 200 with the addition of the CPUID    *   DOC FILE
//*            program that was written by the late Rex Widmer.     *   DOC FILE
//*            Also added was a REXX exec that does the same sort   *   DOC FILE
//*            of thing.  The CPUID program was found in some of    *   DOC FILE
//*            Rex Widmer's notes.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 300 from Sam Golob and others, to     *   DOC FILE
//*            fix programs that were there, to get them to work    *   DOC FILE
//*            for z/OS 1.13 and thereabouts.                       *   DOC FILE
//*            Changed members are:                                 *   DOC FILE
//*            ------- ------- ---                                  *   DOC FILE
//*            $$$#DATE, $$CHANLG, @FILE300, CALC, CALC$,           *   DOC FILE
//*            CALC$O, CALC#, CALC@, CALCINST, CALCIN14,            *   DOC FILE
//*            CALCIN23, CALCLE41, CALCO, CALCSUB#, DA, DA$,        *   DOC FILE
//*            DA$ZAP, DA#, DAOLD, DAOLD#, DSNCHE$O, DSNCHEC$,      *   DOC FILE
//*            DSNCHECK, DSNCHECO, DYNALC, IO, IO$ IO#, IO@,        *   DOC FILE
//*            IOOLD, IO01, IO02, IO03, LISTLPA, LISTLPA$,          *   DOC FILE
//*            LISTLPAO, REVIEW@, RLSE@, ZAP, ZAP$, ZAP$DOC,        *   DOC FILE
//*            ZAP$O, ZAP#, ZAP#O, ZAPO                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 325 with two (alternative) fixes      *   DOC FILE
//*            to the PRINTOFF program, so that it displays the     *   DOC FILE
//*            proper date for Y2K.  Some people like PRINTOFF      *   DOC FILE
//*            instead of IBM's newer PRINTDS command, so we've     *   DOC FILE
//*            made sure that it is available and it works.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 423 from Sam Golob with permission    *   DOC FILE
//*            from Jeff Broido.  Jeff's new support address was    *   DOC FILE
//*            updated, and several programs (his, or from other    *   DOC FILE
//*            people which were related to his programs) were      *   DOC FILE
//*            added.                                               *   DOC FILE
//*            List of Changed Members:                             *   DOC FILE
//*            ---- -- ------- -------                              *   DOC FILE
//*            $$$$$NEW, $$$$DOC, $$$#DATE, $$$COJRB, $$$PERMT,     *   DOC FILE
//*            $MACLIB, @FILE423, BRODCAST, CHECKDD, CKDAY, CKM,    *   DOC FILE
//*            CKMOUNT, CKO, CMAP, DIGCLK, DIGCLK$, DIGCLK#, LAA,   *   DOC FILE
//*            LAAOLD, LAAT, MAPSP, MAPXA, MERKNOW, NOW, OFF, ON,   *   DOC FILE
//*            QUOTE, REGS, SMAP, TELL, TERMSIZ$, TERMSIZE,         *   DOC FILE
//*            TERMTYP, TERMTYP$, TERMTYPE, TF, VPUT, VTPUT,        *   DOC FILE
//*            VWTPU                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*            Changed Members:  IPLINFO, XEFCLIST                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 495 from Tom Conley.  This is a       *   DOC FILE
//*            new version of DYNISPF:  2013/08/10 V4R2 release.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 508 from A.L. Richards.  This adds    *   DOC FILE
//*            another version of the EXCMD program which           *   DOC FILE
//*            preserves the ISPF environment, so there are now     *   DOC FILE
//*            two versions:  one which preserves, and one which    *   DOC FILE
//*            destroys, the ISPF environment.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 536 from Sam Golob (to Deru Sudibyo's *   DOC FILE
//*            file) because some of the member names in the MACLIB *   DOC FILE
//*            member had X'00' suffixed to the IEBUPDTE NAME=xxx   *   DOC FILE
//*            cards.  These were changed to blanks.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 589 from Philippe Leite to fix the    *   DOC FILE
//*            HERCMD program.  The HERCMD program still has some   *   DOC FILE
//*            issues, but it seems to do the job semi-adequately.  *   DOC FILE
//*            If someone can fix it so it works perfectly, quite   *   DOC FILE
//*            a few people would be very grateful.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 800 which is a RECEIVE/UNXMIT         *   DOC FILE
//*            program from Enrico Sorichetti to work on other      *   DOC FILE
//*            platforms.  File 808 is a modified ZIP file,         *   DOC FILE
//*            and it was updated as well.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Updates to Files 860, 861, and 862 from Gerhard      *   DOC FILE
//*            Postpischil.  This is a large collection of his      *   DOC FILE
//*            works.                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Update to File 876 to fix the PDSLOAD object deck,   *   DOC FILE
//*            as per Gerhard Postpischil's correction.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Update to File 882 from Ze'ev Atlas.  This is a      *   DOC FILE
//*            port of PCRE 8.33V2 for native z/OS.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Addition of File 890 from Peter Sylvester, to add    *   DOC FILE
//*            the Simula compiler and library, with complete       *   DOC FILE
//*            original documentation.  Simula was written in the   *   DOC FILE
//*            1960's in Norway, and was the first computer         *   DOC FILE
//*            language to feature "object oriented programming".   *   DOC FILE
//*            Complete documentation is supplied, which consists   *   DOC FILE
//*            of scanned PDF documents, that (unfortunately)       *   DOC FILE
//*            take up a lot of room, but they are here.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Addition of File 891 from Quasar Chunawala, which    *   DOC FILE
//*            contains a REXX program that operates as an edit     *   DOC FILE
//*            macro, to be used when looking at a COBOL program.   *   DOC FILE
//*            This REXX allows you to automatically skip to the    *   DOC FILE
//*            place where a procedure is coded, from the place     *   DOC FILE
//*            where is was called.  So it allows flowcharting      *   DOC FILE
//*            of the program, and makes that process easier.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Addition of File 892 which contains a zip file       *   DOC FILE
//*            that has versions of TERSE which work on other       *   DOC FILE
//*            platforms.  Members in the zip file are:             *   DOC FILE
//*               terse.exe        tersedos.exe                     *   DOC FILE
//*               terse.txt        terselinux.i386                  *   DOC FILE
//*               terse16.exe      terselinux.s390                  *   DOC FILE
//*               terse32.exe      terseosx.i386                    *   DOC FILE
//*               terseaix.i386    terseosx.ppc                     *   DOC FILE
//*               terseaix.risc                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Addition of File 893 from Sam Golob and contains     *   DOC FILE
//*            a program called SMFLOG, which shows TSO activity    *   DOC FILE
//*            and JOB init activity on a z/OS system.  SMF types   *   DOC FILE
//*            4, 20, 35 are reported interactively.  Also, the     *   DOC FILE
//*            DSMF program was copied from File 300, to help you   *   DOC FILE
//*            determine which SMF dataset the SMFLOG program       *   DOC FILE
//*            should look at.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Addition of File 894 from Robert Zenuk via Sam       *   DOC FILE
//*            Golob.  These are mostly REXX execs written by       *   DOC FILE
//*            Rob and posted on the MVS-OE listserv newsgroup.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Addition of File 895 from Rainer Nowak, which has    *   DOC FILE
//*            a modification to Gilbert Saint-flour's STEMEDIT     *   DOC FILE
//*            program.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Addition of File 896, which is a collection of       *   DOC FILE
//*            SHARE TSO tools from 1993.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        34  Addition of File 897 from John McKown, which is      *   DOC FILE
//*            a port of SQLITE 3.8 for z/OS.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        35  Addition of File 898 from Alex Kara, and it is       *   DOC FILE
//*            a large depository of his collected works.  Many     *   DOC FILE
//*            tools and ideas can be gleaned from this             *   DOC FILE
//*            very large collection.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        36  Addition of File 899 which contains a TSO command    *   DOC FILE
//*            called DACEE.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-486 SECTION                                          *   DOC FILE
//*  V-486  CHANGES FOR VERSION 486 APR 02, 2013                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         1  Update to File 006 which contains tools I use to     *   DOC FILE
//*            handle File 001 of this tape, and also tools to      *   DOC FILE
//*            place a time-stamp member into a CBT Tape file.      *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  Update to File 008 which contains jobs used to       *   DOC FILE
//*            make the CBT Tape version.  Include more up-to-date  *   DOC FILE
//*            jobs for this tape version.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  Updates to File 035 with changes in load modules:    *   DOC FILE
//*            APFLIST DSATN FASTPATH FASTP149 SS0104 VSAMADTL      *   DOC FILE
//*            VSAMAGET VSAMAHLP VSAMANAL VSAMANDX WHATSNEW.        *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  Updates to File 133 (Alan Field's programs) from     *   DOC FILE
//*            Sam Golob.  Following members have been changed:     *   DOC FILE
//*            DISASM3B JULSUB JULSUB$ LASTCLP$ SVCTAB SVCTAB$      *   DOC FILE
//*            SVCTAB$1 SVCTAB# SVCTABO SVCTAB01                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  Updates to Rick Fochtman's files, to reflet the      *   DOC FILE
//*            change in their support address.  These are:         *   DOC FILE
//*            Files 147, 277, 326, 347, 414, 447, 537, 684.        *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  Update to File 172 from Sam Golob, to fix VSAMANAL   *   DOC FILE
//*            for 3390's and 3380's completely, after Dave         *   DOC FILE
//*            Cartwright did most of the work.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  Update to File 183 from Sam Golob, to include        *   DOC FILE
//*            Gilbert Saint-flour's latest version of FASTPATH,    *   DOC FILE
//*            as taken from his archives and tested.               *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  Update to File 185 from Sam Golob.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*         9  Update to File 200 from Sam Golob, to fix the        *   DOC FILE
//*            time-date routine in the WHATSNEW program.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 266 from Sam Golob, to fix the old    *   DOC FILE
//*            Florida Power tape map program called SS0104.        *   DOC FILE
//*            Tape footages (6250 bpi) now show more than 10000    *   DOC FILE
//*            feet.  Also, replace the time-date routine.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 294 from Sam Golob, to fix VSAMANAL   *   DOC FILE
//*            here in its source file, for 3390's and 3380's.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 296 from Andreas Freybier, to fix     *   DOC FILE
//*            the DSAT program for EAV volumes.  Members changed   *   DOC FILE
//*            or added:                                            *   DOC FILE
//*            DSATASM DSATGO DSATHELP DSATNEW DSATNEW$ DSATNEWO    *   DOC FILE
//*            DSATO$                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  A big effort was made to get many programs on        *   DOC FILE
//*            File 300 to work properly under z/OS (1.12, 1.13).   *   DOC FILE
//*            Members changed or added are:                        *   DOC FILE
//*            ABEND##, AUCMD, AUCMD$, AUCMD#, AUCMDO, CATPW#,      *   DOC FILE
//*            CMDLOFF, CMDLOFF$, CMDLOFFO, COMPRES$, COMPRESO,     *   DOC FILE
//*            COMPRESS, CPSCB, DAJOB, DAJOB$, DAJOBO, DAPF, DAPF$, *   DOC FILE
//*            DAPF#, DAPFU, DAPF00, DDISK, DDISK$, DDISKO, DDISK01,*   DOC FILE
//*            DLINK, DLINK$, DLINKO, DLPA, DLPA$, DLPAO, DLVLDSS,  *   DOC FILE
//*            DLVLDSS$, DLVLDSSO, DSMF, DSMF$, DSMFOLD, DSMF01,    *   DOC FILE
//*            DSMF02, DSVC, DSVC$, DSVCOLD, DUSER, DUSER$, DUSER00,*   DOC FILE
//*            LASTIPL, LISTAX, LISTAX$, LISTAX#, LISTAXO, MACROS,  *   DOC FILE
//*            SHOWDS, SHOWDSA, SHOWSS, SHOWSS$, SHOWSS00, UADLST,  *   DOC FILE
//*            UADLST$, UADLST#, UADS, UADS$, UADSO                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  A big effort was made to get more programs on        *   DOC FILE
//*            File 316 to work properly under z/OS (1.12, 1.13).   *   DOC FILE
//*            Members changed or added are:                        *   DOC FILE
//*            UADL, UADLIN#0, UADLIN#1, UADLIN#2, UADLIST,         *   DOC FILE
//*            UADLIST$, UADLISTO, UADLIST1, UADLIS01               *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Updates to File 434 from Mark Zelden.  Members       *   DOC FILE
//*            changed were:                                        *   DOC FILE
//*            IPLHIST, XEFCLIST, XEFMENU, XEFMENUB                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Updates to Files 446 528 696 697 698 781 784 864     *   DOC FILE
//*            from John McKown to change his email address.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 523 (SMFSLCT) from Sterling James     *   DOC FILE
//*            to fix a bug.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to FIle 633 from Bill Smith (DSPACE and       *   DOC FILE
//*            FDSPACE) to improve the documentation.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 646 which is a public-domain CLIST    *   DOC FILE
//*            to REXX conversion tool from IBM.  Only change was   *   DOC FILE
//*            to add a "before" and "after" example.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 659 to add Hercules 3.08 implemen-    *   DOC FILE
//*            tation if you want it, or need it.  See also,        *   DOC FILE
//*            File 889.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 731 to add a program called DACEE,    *   DOC FILE
//*            which formats many of the fields in the ACEE and     *   DOC FILE
//*            also hex dumps the entire contents of the user's     *   DOC FILE
//*            ACEE.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 752 from Bill Earle, to fix a bug     *   DOC FILE
//*            by replacing a complete subroutine of the APPLDUMP   *   DOC FILE
//*            utility.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 832 from Marco Serafini, to fix       *   DOC FILE
//*            some bugs in his utility to print files on TCPIP     *   DOC FILE
//*            printers.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Update to File 873 from Sam Golob to rearrange       *   DOC FILE
//*            the members and fix some doc in his scheme to        *   DOC FILE
//*            access ULUT (UCB scan) information using a set of    *   DOC FILE
//*            assembler macros.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Update to File 874 to add a help member for          *   DOC FILE
//*            VSAMANAL.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Update to File 875 from its author Chris Cheney,     *   DOC FILE
//*            to change some of the documentation and to give      *   DOC FILE
//*            proper credits.  This is ALGOL 68C.  The package     *   DOC FILE
//*            as it is now, is meant to be installed from an       *   DOC FILE
//*            AWS tape image, which has now been included in       *   DOC FILE
//*            this pds (as member AL68CAWS) in FB-80 (folded       *   DOC FILE
//*            over) format.  If you FTP this member to a PC        *   DOC FILE
//*            file, you can read it on a P390 or under Hercules    *   DOC FILE
//*            to install the product using the given instructions. *   DOC FILE
//*            (We will try to improve this situation in the        *   DOC FILE
//*            future, and make ALGOL 68C more easy to install      *   DOC FILE
//*            directly from the file members.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Addition of File 883 from Miklos Szigetvari,         *   DOC FILE
//*            which is a package of exits and programs to          *   DOC FILE
//*            help manage DFHSM in a small installation.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Addition of File 885 from Albert Cheng.  It          *   DOC FILE
//*            contains an updated Disassembler program which       *   DOC FILE
//*            handles the new Jump instructions, and so forth.     *   DOC FILE
//*            The new disassembler is called HDISASM to            *   DOC FILE
//*            distinguish it from older programs of this type.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Addition of File 886 from Ed Petka, which is a       *   DOC FILE
//*            system to init thousands of DASD volumes in a        *   DOC FILE
//*            short time.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Addition of File 887 from Scott Vetter, which        *   DOC FILE
//*            contains a large collection of programs and          *   DOC FILE
//*            usermods for MVS 3.8J to make it more modern         *   DOC FILE
//*            and workable.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Addition of File 888 from Miklos Szigetvari          *   DOC FILE
//*            and contains a package to give a very comprehensive  *   DOC FILE
//*            display of z/OS system information which you can     *   DOC FILE
//*            get via your Internet browser.                       *   DOC FILE
//*            This package uses the z/OS system's HTTP server      *   DOC FILE
//*            to put the information out on the Internet.          *   DOC FILE
//*            It is really a first!  It is an excellent tool for   *   DOC FILE
//*            modern-day sysprogs!                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Addition of File 889 which is an implementation      *   DOC FILE
//*            of the Hercules 3.08 emulator to run under Windows   *   DOC FILE
//*            7 and similar levels of Windows, in 64-bit mode.     *   DOC FILE
//*            It is "completely pre-installed" and also contains   *   DOC FILE
//*            David Trout's DLL's so FTP can be set up.  To set    *   DOC FILE
//*            up FTP you also need the WINPCAP member from File    *   DOC FILE
//*            659 to be installed on your PC.  This stuff is all   *   DOC FILE
//*            here, and nothing else needs to be downloaded from   *   DOC FILE
//*            the Internet.  It just has to be downloaded to a     *   DOC FILE
//*            PC in BINARY and unzipped.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*            Of course, you are responsible to obtain an          *   DOC FILE
//*            operating system (legally) and DASD volumes and a    *   DOC FILE
//*            "config file" to actually run an operating system    *   DOC FILE
//*            under this Hercules.  But if you can supply          *   DOC FILE
//*            those, everything should work.                       *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-485 SECTION                                          *   DOC FILE
//*  V-485  CHANGES FOR VERSION 485 DEC 16, 2012                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         1  Update to File 008 which contains jobs used to       *   DOC FILE
//*            make the CBT Tape version.  Include more up-to-date  *   DOC FILE
//*            jobs for this tape version.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  Update to File 019 from John Hooper, to fix his      *   DOC FILE
//*            program CONSOLE.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  Updates to File 035 with changes in load modules:    *   DOC FILE
//*            BURN, CNCLPG25, PACKRAT, PACKRATU, PDS, PDS38,       *   DOC FILE
//*            PDS86, PDS86I, PDS8638, UCBDASD, UCBTAPE.            *   DOC FILE
//*            Level: PDS86 -- VERSION 8.6.14.2  NOVEMBER 11, 2012  *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  Update to File 046 to rescue the PACKRAT program,    *   DOC FILE
//*            so it can run on z/OS systems.  The old PACKRAT      *   DOC FILE
//*            program broke at the z/OS 1.1 level, but still       *   DOC FILE
//*            worked at OS/390 2.10.  There are 2 new versions,    *   DOC FILE
//*            (PACKRATZ and BACKENDZ in source code), and the      *   DOC FILE
//*            other one, (PACKRATU and BACKENDU in source code).   *   DOC FILE
//*            These both should work on OS/390 and all z/OS        *   DOC FILE
//*            systems.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  Updates to File 135 with changes in load modules:    *   DOC FILE
//*            PDS, PDS38, PDS86, PDS8638, SHOWZOS(721), SHOW720.   *   DOC FILE
//*            Level: PDS86 -- VERSION 8.6.14.2  NOVEMBER 11, 2012  *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  Updates to File 182 from John Kalinich, to raise     *   DOC FILE
//*            the level of the PDS 8.6 program to:                 *   DOC FILE
//*            PDS86 -- VERSION 8.6.14.2  NOVEMBER 11, 2012         *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  Update to File 183 to state that Carlos Aguilera     *   DOC FILE
//*            and Sam Golob are now taking care of Gilbert         *   DOC FILE
//*            Saint-flour's files, software, and materials.        *   DOC FILE
//*               web-site:  www.gsf-soft.com                       *   DOC FILE
//*               email   :  carlos@gsf-soft.com                    *   DOC FILE
//*            Gilbert's old email address is no longer valid.      *   DOC FILE
//*            To contact Carlos, please use Carlos' email address. *   DOC FILE
//*            References to Gilbert's old addresses have now been  *   DOC FILE
//*            changed, inside the source code everywhere.          *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  Update to File 185 to reassemble the auth tables     *   DOC FILE
//*            and to make various updates to improve the usability *   DOC FILE
//*            of the file.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*         9  Update to File 338 which was originally from         *   DOC FILE
//*            Gilbert Saint-flour, to fix the contact information  *   DOC FILE
//*            that was there.  Carlos Aguilera is now maintaining  *   DOC FILE
//*            this stuff, together with Sam Golob.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 423 to fix the LISTHEAD program,      *   DOC FILE
//*            so it would recognize the new JUMP and LARL          *   DOC FILE
//*            instructions that now begin IBM system programs.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 434 from Mark Zelden, to update       *   DOC FILE
//*            his wonderful REXX exec, IPLINFO.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 452 from Dan Dalby to fix some bugs.  *   DOC FILE
//*            There is much (VERY) useful software to try, in      *   DOC FILE
//*            this file.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 492 from Roland Schiradin to include  *   DOC FILE
//*            Version 7.21 of SHOWzOS.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 531, to fix a bug in the IGGCSIRX     *   DOC FILE
//*            (catalog search interface) REXX exec.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 542 from Alastair Gray, to fix a      *   DOC FILE
//*            bug in the (extremely useful) RCNVTCAT exec.  The    *   DOC FILE
//*            CATALOG(   ) name was not being filled in.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 612 from Albert Cheng, with a new     *   DOC FILE
//*            shipment of program updates.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 614 from Sam Golob, to add a new      *   DOC FILE
//*            load library member for SHOWzOS 7.21, assembled      *   DOC FILE
//*            on z/OS 1.13.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 708 which is Glenn Siegel's MPFXTALL  *   DOC FILE
//*            package.  Addition of a small program called         *   DOC FILE
//*            MPFXDSPL by Thomas Hutchins.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 731 from Sam Golob to add two TSO     *   DOC FILE
//*            commands named UCBDASD and UCBTAPE, which use an     *   DOC FILE
//*            undocumented UCB lookup scheme that was discovered   *   DOC FILE
//*            by Gilbert Saint-flour to use in SHOWzOS (File 492). *   DOC FILE
//*            This method hadn't been publicly exploited, and      *   DOC FILE
//*            UCBDASD and UCBTAPE are some initial coding          *   DOC FILE
//*            examples.  See File 873 for more info about this     *   DOC FILE
//*            method (of using the UCB Lookup Table, or ULUT).     *   DOC FILE
//*            ULUT lookups are NON-APF-Authorized and need to be   *   DOC FILE
//*            in 31-bit mode.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 749 which is Gilbert Saint-flour's    *   DOC FILE
//*            MVS 3.8 programs, which he adapted from OS/390 and   *   DOC FILE
//*            z/OS.  Gilbert's contact information had to be       *   DOC FILE
//*            replaced with Carlos Aguilera's and Sam Golob's.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 757 from Ken Fitzgerald.  This is     *   DOC FILE
//*            his LOGGRASM package, now updated to Fix Pack 17.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 779 from Bill Bass.  This is a new    *   DOC FILE
//*            revision of his SYMBSUB (symbolic substitution)      *   DOC FILE
//*            program written in COBOL, to automatically           *   DOC FILE
//*            substitute symbols in JCL cards.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 826 from Sam Golob and Joe Reichman.  *   DOC FILE
//*            The addition to this file is version 1.2.5 of the    *   DOC FILE
//*            CNCLPG program, which besides being able to change   *   DOC FILE
//*            an address space to SWAPPABLE and NON-SWAPPABLE,     *   DOC FILE
//*            CANCELABLE and NON-CANCELABLE, this version can now  *   DOC FILE
//*            optionally BURN the address space (CALLRTM,          *   DOC FILE
//*            TYPE=MEMTERM).                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Update to File 834 from Alexander Vasilenko, to fix  *   DOC FILE
//*            a few problems with his MIGRATE macro, that helps    *   DOC FILE
//*            to allocate a list of datasets from one system, on   *   DOC FILE
//*            another system, using LISTDSI to grab their          *   DOC FILE
//*            DCB attributes and other characteristics.  Also,     *   DOC FILE
//*            Alex added a few of his other commands and macros.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Update to File 866 from Vladimir Mestovski to add    *   DOC FILE
//*            a few fixes to his BSPUFI (Batch SPUFI or            *   DOC FILE
//*            C SQL-DB2-TSO Processor).                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Addition of File 873 from Sam Golob.  The purpose    *   DOC FILE
//*            of this file is to give a tribute to Gilbert         *   DOC FILE
//*            Saint-flour and to thank him for his pioneering      *   DOC FILE
//*            work.  This file shows us how to use Gilbert's       *   DOC FILE
//*            technique of scanning UCB's from IBM's UCB Lookup    *   DOC FILE
//*            Table (called ULUT) which resides above the 16M      *   DOC FILE
//*            line.  Using this technique, you get REAL UCB's      *   DOC FILE
//*            without needing APF-authorization.  Additionally,    *   DOC FILE
//*            macros ULUINIT and ULUSCAN are provided, which       *   DOC FILE
//*            make coding with this technique much easier.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Addition of File 874 from Sam Golob, which is a      *   DOC FILE
//*            pds that has members from his HELP file, with        *   DOC FILE
//*            HELP members for many programs on the CBT Tape.      *   DOC FILE
//*            By looking at the HELP members, you can learn        *   DOC FILE
//*            what nice tools you might like to install.           *   DOC FILE
//*                                                                 *   DOC FILE
//*            HELP members listed:                                 *   DOC FILE
//*            ---- ------- ------                                  *   DOC FILE
//*            ABEND ADDTO ADIS BLKDISK BLKSPTRK BURN CATL          *   DOC FILE
//*            CDSCB CINMX CNCLPG COPYFILE COPYMODS CPSCB DSAT      *   DOC FILE
//*            DSPACE DVOL EESCB FSH FSHELP HEL ICH IEBANTP         *   DOC FILE
//*            IKJEEPTR INMXD JCLSET KONCAT LDS LOCATE LPSCB        *   DOC FILE
//*            LWATMGR PDS86 RELEASE REV REVED REVEDIT REVIEW       *   DOC FILE
//*            REVOUT REVPDS REVPDSE REVUNIX REVVSAM RXJCL          *   DOC FILE
//*            STEPLIB TSUB TSUBQUIK UKEYCSA USERINFO WHOSGOT       *   DOC FILE
//*            XEQ UCBDASD ULUDASD UCBTAPE ULUTAPE                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Addition of File 875 which is ALGOL 68C from         *   DOC FILE
//*            Cambridge University.  Our packaging is a copy       *   DOC FILE
//*            of their tape files to a PDS.  Our ISPF statistics   *   DOC FILE
//*            mark which file that each pds member came from.      *   DOC FILE
//*            It is up to the person installing this program       *   DOC FILE
//*            to figure out the details, but (to my knowledge)     *   DOC FILE
//*            all the necessary materials for installation are     *   DOC FILE
//*            here.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Addition of File 876 from Tom Armstrong, and it      *   DOC FILE
//*            contains his version of the ALGOL F compiler and     *   DOC FILE
//*            library, Version 2.1.  Tom has done a lot of         *   DOC FILE
//*            repair work on the ALGOL F source code, the way      *   DOC FILE
//*            we received it from old IBM tapes.  This version     *   DOC FILE
//*            can be assembled and run, and to our knowledge,      *   DOC FILE
//*            it has been well fixed.  Thanks for a big job,       *   DOC FILE
//*            Tom !!                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Addition of File 877 from Vladimir Mestovski.        *   DOC FILE
//*            This file contains some very useful edit macros,     *   DOC FILE
//*            among which are V, B, E, which allow you to put      *   DOC FILE
//*            your cursor on a dataset name in an ISPF edit,       *   DOC FILE
//*            allowing you to VIEW, BROWSE, or EDIT the dataset.   *   DOC FILE
//*            In addition, this file contains Vladimir's MAKE      *   DOC FILE
//*            package, which is a powerful tool to do automate     *   DOC FILE
//*            many different types of tasks, in different          *   DOC FILE
//*            enviornments under z/OS.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Addition of File 878 from Joe Reichman.  This        *   DOC FILE
//*            file contains an updated version of the BURN TSO     *   DOC FILE
//*            command that works on z/OS.  BURN will get rid of    *   DOC FILE
//*            an address space, using CALLRTM TYPE=MEMTERM,        *   DOC FILE
//*            which will sometimes be able to clear out an         *   DOC FILE
//*            address space from the system, even when a FORCE     *   DOC FILE
//*            can't do it.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Addition of File 879 from Tom Hall, which is the     *   DOC FILE
//*            TSOFIND TSO command.  TSOFIND will find all          *   DOC FILE
//*            occurrences of a dataset (by its name), cataloged    *   DOC FILE
//*            or uncataloged, in the system, and will optionally   *   DOC FILE
//*            display each one's DCB attributes.  This program     *   DOC FILE
//*            was originally 40 years old and runs on MVS 3.8.     *   DOC FILE
//*            But a z/OS version was created by one of our great   *   DOC FILE
//*            benefactors with a long history of CBT Tape          *   DOC FILE
//*            contributions.  The z/OS version is called           *   DOC FILE
//*            TSOFINDZ.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Addition of File 880 from Miklos Szigetvari, and     *   DOC FILE
//*            contains a product called MVSDSSN, which is an       *   DOC FILE
//*            extension of ADRDSSU, and which is used to manage    *   DOC FILE
//*            the dumps in a network.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        34  Addition of File 881 from Robert Harrison, and       *   DOC FILE
//*            contains a revised copy of the Julian Calendar in    *   DOC FILE
//*            Microsoft Excel format, that was posted to the       *   DOC FILE
//*            CBT Tape website.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        35  Addition of File 882 from Ze'ev Atlas.  This file    *   DOC FILE
//*            contains a port of the PCRE (Perl-Compatible Regular *   DOC FILE
//*            Expressions) product to z/OS.                        *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-484 SECTION                                          *   DOC FILE
//*  V-484  CHANGES FOR VERSION 484 JUL 08, 2012                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         0  Phil Roberts, who is the current keeper of the MVS   *   DOC FILE
//*            3.8J Turnkey system, has requested that I re-block   *   DOC FILE
//*            several of the CBT Tape files, so that their block   *   DOC FILE
//*            size will fit into the track size of at least a      *   DOC FILE
//*            3330 disk pack.  So several files had to be          *   DOC FILE
//*            reblocked.  These are:  Files:  118, 121, 202,       *   DOC FILE
//*            221, 224, 259, 305, 362, 530, 695.  These are        *   DOC FILE
//*            considered "changed" files for this CBT Tape         *   DOC FILE
//*            version, but their contents have not been changed.   *   DOC FILE
//*                                                                 *   DOC FILE
//*         1  Update to File 019 from John Hooper, to fix his      *   DOC FILE
//*            program FLSMFJOB, so it will supply statistics on    *   DOC FILE
//*            ZAAP and ZIIP usage.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  Updates to File 035 with changes in load modules:    *   DOC FILE
//*            COPYMODS, COPYMO83, LASTCLPA, PDS,      PDSLOAD,     *   DOC FILE
//*            PDSLOADW, PDSLOAD1, PDSLOAD2, PDSLOAD3, PDS38,       *   DOC FILE
//*            PDS86,    PDS86I,   PDS8638.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*         3  Updates to File 066 from Alan Field.  Also he has    *   DOC FILE
//*            a new email address:                                 *   DOC FILE
//*              email:    alan_c_field@bluecrossmn.com             *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  Updates to File 093 from Gerhard Postpischil and     *   DOC FILE
//*            Greg Price ("Team GP"), and from Sam Golob.  Most    *   DOC FILE
//*            of it is from Gerhard.  Fix was to PDSLOAD, so it    *   DOC FILE
//*            will not (necessarily) filter output members by      *   DOC FILE
//*            the "validity" of the pds member name.               *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  Adjustment to File 119 from Bill Smith, to adjust    *   DOC FILE
//*            the reassembly of the SM command to switch into      *   DOC FILE
//*            out of TSO Session Manager mode.  Also, I changed    *   DOC FILE
//*            the member named X to be named X1 (SG).              *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  Updates to File 133 from Alan Field.  Also he has    *   DOC FILE
//*            a new email address:                                 *   DOC FILE
//*              email:    alan_c_field@bluecrossmn.com             *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  Updates to File 135 with changes in load modules:    *   DOC FILE
//*            PDS,      PDSLOAD,  PDSLOADW, PDSLOAD1, PDSLOAD2,    *   DOC FILE
//*            PDSLOAD3, PDS38,    PDS86,    PDS8638.               *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  Updates to File 182 from John Kalinich.  PDS86 is    *   DOC FILE
//*            now at the level:                                    *   DOC FILE
//*            PDS86 -- VERSION 8.6.13.0  FEBRUARY 29, 2011         *   DOC FILE
//*                                                                 *   DOC FILE
//*         9  Updates to File 183 which is Gilbert Saint-flour's   *   DOC FILE
//*            file, from Sam Golob.  This was taken from the       *   DOC FILE
//*            last version on Gilbert's system.  Please address    *   DOC FILE
//*            inquiries to Sam Golob, sbgolob@cbttape.org.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Updates to File 229 from Sam Golob.  This is to      *   DOC FILE
//*            bring the COPYMODS program to Level 086.  Change     *   DOC FILE
//*            was prinicpally to be able to look at the output     *   DOC FILE
//*            tapes, to see if we could keep the output tape's     *   DOC FILE
//*            volser in the copied tape (when we want to).         *   DOC FILE
//*            New options are SHOOVL and KEEPVOL.  SHOOVL (Show    *   DOC FILE
//*            Output Volumes) can be used together with READ, so   *   DOC FILE
//*            you can see what volume label is on the output       *   DOC FILE
//*            volumes, without having to overlay them by doing     *   DOC FILE
//*            a real copy.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Updates to File 434 from Mark Zelden.  Members       *   DOC FILE
//*            updated were:                                        *   DOC FILE
//*            $$$#DATE, $$$INDEX, $$CHANGE, $SNGLTSO, @FILE434,    *   DOC FILE
//*            IPLINFO,  LINETBL,  ONEPAKZD, ONEPAKZ8, TWOPAKZD,    *   DOC FILE
//*            TWOPAKZ8, XEFCLIST, XMEMLIST                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Updates to File 452 from Dan Dalby.  Members         *   DOC FILE
//*            updated were:                                        *   DOC FILE
//*            $$$#DATE, $$CHANGE, $$NOTE8,  $LDS,     $SAFECPY,    *   DOC FILE
//*            $SJFSAMP, ADDTO,    CATL,     HELP,     LDS,         *   DOC FILE
//*            LOADLIB,  LWATMGR,  MACLIB,   PACKMAP,  PRU,         *   DOC FILE
//*            SAFECOPY, SJFSAMP,  STEPLIB                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 485 from Juergen Winkelmann to        *   DOC FILE
//*            adapt Binyamin Dissen's TESTVTM2 program to work     *   DOC FILE
//*            on MVS 3.8J.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 492 from Roland Schiradin, which      *   DOC FILE
//*            was put up by Sam Golob.  SHOWzOS 7.21 should work   *   DOC FILE
//*            fine on z/OS 1.13 but there was a bug on z/OS 2.1    *   DOC FILE
//*            in the advance preliminary tests.  Since z/OS 2.1    *   DOC FILE
//*            was postponed for a year, I decided to release       *   DOC FILE
//*            SHOWzOS 7.21 for the general public, but NOT as      *   DOC FILE
//*            the default SHOWzOS in File 492.  See member         *   DOC FILE
//*            $$NOTE6.  (SG - July 2012)                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 520 from Robin Ryerse, to upgrade     *   DOC FILE
//*            his REXX function packages.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 523 from Jamie Gibson, to fix a       *   DOC FILE
//*            small problem in Paul Dion's SMFSLCT program.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 614 from Sam Golob, to include a      *   DOC FILE
//*            load module library for SHOWzOS 7.21, assembled      *   DOC FILE
//*            on z/OS 1.13.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 751 from somitcw.  This is some of    *   DOC FILE
//*            his tape handling code.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 757 from Ken Fitzgerald.  This is     *   DOC FILE
//*            V1R1M16 (1.1.16) of LOGGRASM.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 830 from Sam Golob.  This includes    *   DOC FILE
//*            fixes to some more of the MVS Update articles from   *   DOC FILE
//*            Xephon.  There is an ongoing project to make these   *   DOC FILE
//*            articles machine-readable and as error-free as is    *   DOC FILE
//*            possible.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 847 from Sam Golob.  Three more       *   DOC FILE
//*            versions of the COPYMODS program were developed.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 856 from Steve McColley.  The JES2    *   DOC FILE
//*            Mellon Mods were tested so that with re-assembly     *   DOC FILE
//*            on z/OS 1.13, they will work at that system level.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Addition of Files 860, 861, and 862 from Gerhard     *   DOC FILE
//*            Postpischil, to bring us a lot of his code.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Addition of File 863 from Jim Callihan, which is     *   DOC FILE
//*            a rewrite of an IKJEFF10 submit exit for TSO.  His   *   DOC FILE
//*            old version stopped working at z/OS 1.13, but this   *   DOC FILE
//*            rewritten version works at ALL recent z/OS and       *   DOC FILE
//*            OS/390 levels.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Addition of File 864 from John McKown, which         *   DOC FILE
//*            contains his collection of UNIX shell commands that  *   DOC FILE
//*            he wrote, to run under z/OS UNIX.  These commands    *   DOC FILE
//*            were designed to mimic some TSO commands.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Addition of File 865 from Jason Winter, which        *   DOC FILE
//*            contains a free ZIP and UNZIP program/command        *   DOC FILE
//*            that runs under z/OS (ported to the MVS platform).   *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Addition of File 866 from Vladimir Mestovski,        *   DOC FILE
//*            which contains a program called BSPUFI               *   DOC FILE
//*            (Batch SPUFI).                                       *   DOC FILE
//*            C SQL-DB2-TSO Processor/Executor/Monitor             *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Addition of File 867 from somitcw with some          *   DOC FILE
//*            programs to assist in the moving of variable-        *   DOC FILE
//*            blocked (VB) files from one system to another.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Addition of File 868 from Claudio Mauceri which      *   DOC FILE
//*            contains a program to do a track-by-track compare    *   DOC FILE
//*            of two offline disk packs.  (Packs are not REQUIRED  *   DOC FILE
//*            to be offline.)  This is very useful, when you have  *   DOC FILE
//*            cloned a pack and you want to make sure that it is   *   DOC FILE
//*            EXACTLY the same as the original pack, or if it was  *   DOC FILE
//*            changed slightly.  This pgm spots all changes right  *   DOC FILE
//*            away.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Addition of File 869 from Jan Ott, which contains    *   DOC FILE
//*            a program to do a GETMAIN-FREEMAIN trace, to track   *   DOC FILE
//*            the origin of storage requests.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Addition of File 870 from Rick Turnbull, which       *   DOC FILE
//*            contains a collection of REXX scripts designed       *   DOC FILE
//*            to execute from the z/OS HTTP environment under      *   DOC FILE
//*            OMVS.  They aid in retrieving information from       *   DOC FILE
//*            and to the user's browser.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Addition of File 871 from Roland Scholz, which       *   DOC FILE
//*            contains two un-XMIT applications to view XMIT-      *   DOC FILE
//*            format files:                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*            1-  un-XMIT under Android     (XMIT***)              *   DOC FILE
//*            2-  un-XMIT under Windows     (JXMIT***)             *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Addition of File 872 from Roland Scholz, which       *   DOC FILE
//*            contains a port of Julian Seward's bzip2 compression *   DOC FILE
//*            library to z/OS.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-483 SECTION                                          *   DOC FILE
//*  V-483  CHANGES FOR VERSION 483 DEC 25, 2011                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         1  Updates to File 035 with changes in load modules:    *   DOC FILE
//*            CNCLPG, LOOK, and PDS 8.6 to level:                  *   DOC FILE
//*            PDS86 -- VERSION 8.6.12.14  NOVEMBER 1, 2011         *   DOC FILE
//*                                                                 *   DOC FILE
//*         2  Updates to File 135 with changes in load modules:    *   DOC FILE
//*            PDS86 -- VERSION 8.6.12.14  NOVEMBER 1, 2011         *   DOC FILE
//*            This file has the "iso date" version of PDS 8.6.     *   DOC FILE
//*                                                                 *   DOC FILE
//*         3. Updates to File 182 with changes to PDS 8.6 source   *   DOC FILE
//*            modules.  Level is:                                  *   DOC FILE
//*            PDS86 -- VERSION 8.6.12.14  NOVEMBER 1, 2011         *   DOC FILE
//*                                                                 *   DOC FILE
//*         4  Updates to File 183 from Gilbert Saint-flour,        *   DOC FILE
//*            taken from his system with (hopefully) his most      *   DOC FILE
//*            recent updates and revisions.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*         5  Update to File 185 from Sam Golob.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*         6  Update to File 229 from Sam Golob to supply a new    *   DOC FILE
//*            version of the CKIEBGEN sequential QSAM file copy    *   DOC FILE
//*            program that can select which records you want to    *   DOC FILE
//*            copy (optionally).                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*         7  Update to File 264 with a reassembly of the LOOK     *   DOC FILE
//*            program using more up-to-date system macros from     *   DOC FILE
//*            z/OS 1.12.  TSO control blocks TPVT and CTLT are     *   DOC FILE
//*            formatted in this assembly.  Load module is on       *   DOC FILE
//*            File 035.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*         8  Update to File 293 from Sam Golob to modify the      *   DOC FILE
//*            CKIEBGEN sequential copy program so that it will     *   DOC FILE
//*            select records using SKIP=nnnn and COPY=mmmm         *   DOC FILE
//*            control cards.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*         9  Update to File 296 from Andreas Freybier and John    *   DOC FILE
//*            Kalinich, so that DSAT can look at EAV (large sized) *   DOC FILE
//*            disk volumes.  Because of this change, the format    *   DOC FILE
//*            of some DSAT outputs has changed.  John Kalinich     *   DOC FILE
//*            changed the PDS program (File 182) so that it will   *   DOC FILE
//*            read either format.  (PDS86 -- VERSION 8.6.12.13     *   DOC FILE
//*            or later).  For this reason, the new version was     *   DOC FILE
//*            named DSATNEW and not DSAT.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Multiple updates to File 434 from Mark Zelden.       *   DOC FILE
//*            Mark's email address and website have changed as     *   DOC FILE
//*            follows:                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*            email:    mark@mzelden.com                           *   DOC FILE
//*            website:  http://www.mzelden.com/mvsutil.html        *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Multiple updates to File 452 from Dan Dalby.         *   DOC FILE
//*            Members changed:                                     *   DOC FILE
//*            $CHKPROC, $CHKVOL, $LISTAST, $XMIT, CHECKVOL,        *   DOC FILE
//*            HELP, LISTAST, LOADLIB, MACLIB, READVOL1, SAFECOPY,  *   DOC FILE
//*            STEPLIB                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 542 from Andreas Freybier with a new  *   DOC FILE
//*            version of the SPACE EXEC, updated for EAV.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 554 from Ed Tobias to correct and     *   DOC FILE
//*            supplement some of Mitchell Marx's code.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 702 from Steve McColley to change     *   DOC FILE
//*            his address.  Steve is a JES2 expert who supports    *   DOC FILE
//*            the Mellon Mods to JES2, and this is a collection    *   DOC FILE
//*            of his JES2 usermods.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 757 from Ken Fitzgerald, to bring     *   DOC FILE
//*            his LOGGRASM package to level V1R1M15.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 766 from Steve McColley, to bring     *   DOC FILE
//*            the Mellon Mods for JES2 to z/OS 1.7 and 1.8.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 797 to add a version of TSUB that     *   DOC FILE
//*            can be authorized by a "trick SVC".                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 826 from Joe Reichman to add a        *   DOC FILE
//*            non-swap and swap function to the CNCLPG program,    *   DOC FILE
//*            for any active address space.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Addition of File 854 from Steve Comstock to supply   *   DOC FILE
//*            a lot of training articles in PDF format, for the    *   DOC FILE
//*            benefit of the public.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Addition of File 855 from Uri Lifshitz to supply     *   DOC FILE
//*            an Excel spreadsheet to calculate DASD file sizes.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Addition of File 856 from Steve McColley to supply   *   DOC FILE
//*            the Mellon Mods for JES2 at levels z/OS 1.9 thru     *   DOC FILE
//*            z/OS 1.12.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Addition of File 857 from Marco Serafini to supply   *   DOC FILE
//*            an amazing REXX EXEC that gives you a detailed       *   DOC FILE
//*            LOGREC report on TSO with almost no effort.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Addition of File 858 from Jim Blalock of Clemson     *   DOC FILE
//*            University.  This file contains the Clemson Univer-  *   DOC FILE
//*            sity Structured Macros.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Addition of File 859 from Jim Blalock of Clemson     *   DOC FILE
//*            University.  This file contains the source modules   *   DOC FILE
//*            and macros for the Clemson University Service        *   DOC FILE
//*            Processors.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-482 SECTION                                          *   DOC FILE
//*  V-482  CHANGES FOR VERSION 482 JUN 23, 2011                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035 to reflect the new version of     *   DOC FILE
//*            the COPYMODS and COPYFILE (COPYSLNL, COPYNLNL)       *   DOC FILE
//*            tape copying programs.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 120 from Sam Golob to add some doc    *   DOC FILE
//*            concerning the AWSMOUNT command to mount "tapes"     *   DOC FILE
//*            on a P/390 machine.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 135 to include load modules for the   *   DOC FILE
//*            later version of the PDS 8.6 command (ISO dates).    *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 182 from John Kalinich.  PDS 8.6 is   *   DOC FILE
//*            now at level:                                        *   DOC FILE
//*            PDS100I PDS86 -- VERSION 8.6.12.10  MAY 13, 2011     *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 185 with some changes to make the     *   DOC FILE
//*            tools easier to deploy.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 229 to fix the COPYMODS program, and  *   DOC FILE
//*            the COPYFILE, COPYSLNL, and COPYNLNL family of tape  *   DOC FILE
//*            copying programs.  These are separate changes.       *   DOC FILE
//*            COPYFILE, COPYSLNL, COPYNLNL have changes to the     *   DOC FILE
//*            EXCP copying engine.  COPYFILE has a bug fix.  If a  *   DOC FILE
//*            tape block was EXACTLY 80 bytes, it wouldn't write   *   DOC FILE
//*            a tape mark after that file when stripping tape      *   DOC FILE
//*            labels (PARM=STRIP).                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 296 from John Kalinich with a new     *   DOC FILE
//*            version of DVOL.  Several old versions are being     *   DOC FILE
//*            archived here, in case there are any compatibility   *   DOC FILE
//*            problems.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 316 to include the latest versions    *   DOC FILE
//*            of COPYFILE, COPYSLNL, and COPYNLNL, since the       *   DOC FILE
//*            COPYFILE program was originally sent in by Jim       *   DOC FILE
//*            Marshall, and it was included on this file.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 382 from Ken Sharpe, to fix a bug     *   DOC FILE
//*            in the disassembler's opcode interpreter.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Updates to File 434 by Mark Zelden, whose email      *   DOC FILE
//*            address has changed, and whose website has also      *   DOC FILE
//*            changed.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*                email:    mark@mzelden.com                       *   DOC FILE
//*                website:  http://www.mzelden.com/mvsutil.html    *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 452 from Dan Dalby, to fix STEPLIB    *   DOC FILE
//*            for later operating systems (z/OS 1.13), and with    *   DOC FILE
//*            several other changes.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 566 from Sam Bass with numerous       *   DOC FILE
//*            updates and added programs and many fixes.  Don't    *   DOC FILE
//*            use his old versions unless absolutely necessary.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 647 from Andrew Armstrong which is    *   DOC FILE
//*            a new version of his PARSEXML package, a REXX        *   DOC FILE
//*            XML parser.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 669 from Willy Jensen, which is       *   DOC FILE
//*            a REXX function to save and preserve REXX variables. *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 688 from Dougie Lawson, to update     *   DOC FILE
//*            his ACBLIST program that is on this file.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 757 from Ken Fitzgerald, to upgrade   *   DOC FILE
//*            LOGGRASM to V1R1M14.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 790 from Dave Danner.  This is his    *   DOC FILE
//*            SYSOUT Retrieval package.  The package, in its       *   DOC FILE
//*            previous release (1.2.1) did not work any more on    *   DOC FILE
//*            z/OS 1.9 and above.  It needed a revision, which is  *   DOC FILE
//*            included here (SRS release 1.3.0).                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 797 to make the facilities mentioned  *   DOC FILE
//*            there, easier to deploy under some circumstances.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 820 from Sam Golob to add some more   *   DOC FILE
//*            of Rich Harper's source code to the stuff he already *   DOC FILE
//*            has in the file.  Useful for Files 185 and 797.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 842 from Roger Mihay to improve his   *   DOC FILE
//*            package that allows bulk production of XMIT-format   *   DOC FILE
//*            files.                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 844 from Kevin Ferguson, to fix a     *   DOC FILE
//*            bug in his ENQWATCH program, which is a long running *   DOC FILE
//*            task that looks out for ENQ waits, and informs the   *   DOC FILE
//*            TSO user, if a TSO user is partly responsible.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 846 from Sam Golob, to add a program  *   DOC FILE
//*            that removes IPL text from Track 0 of a disk volume. *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Addition of File 847 by Sam Golob.  This file is an  *   DOC FILE
//*            example of program development.  It is being put     *   DOC FILE
//*            out so that people might get some benefit from it.   *   DOC FILE
//*            There is no other file on the CBT Tape like this     *   DOC FILE
//*            one (yet).  We're breaking new ground.               *   DOC FILE
//*                                                                 *   DOC FILE
//*            What does this file consist of?  It consists of      *   DOC FILE
//*            incremental levels of source code, of one program,   *   DOC FILE
//*            during its development.  It is being put out so      *   DOC FILE
//*            that you can follow the development, stage by stage. *   DOC FILE
//*                                                                 *   DOC FILE
//*            What program?                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*            The program is the tape copying program called       *   DOC FILE
//*            COPYMODS which is on CBT File 229.  Originally,      *   DOC FILE
//*            COPYMODS was meant to make multiple copies of NL     *   DOC FILE
//*            tapes.  However, because of problems that happened   *   DOC FILE
//*            when one tried to make copies of SL tapes using      *   DOC FILE
//*            this program, COPYMODS was revised.  Eventually,     *   DOC FILE
//*            COPYMODS was taken through 81 new versions and made  *   DOC FILE
//*            into a very powerful tape manipulation tool.         *   DOC FILE
//*                                                                 *   DOC FILE
//*            At present, COPYMODS can do a ton of things with     *   DOC FILE
//*            tapes.  Examples are to use it as a tape measuring   *   DOC FILE
//*            tool, convert SL to NL, convert NL to SL by          *   DOC FILE
//*            splicing a set of labels back in, altering the       *   DOC FILE
//*            volser, do all of this for ASCII tapes, and so on.   *   DOC FILE
//*            COPYMODS can effortlessly deal with leading tape     *   DOC FILE
//*            marks on a tape (VSE tapes).  The COPYMODS program   *   DOC FILE
//*            now has 44 separate option settings.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*            I wanted to show interested people enough material   *   DOC FILE
//*            to be able to appreciate the PROCESS, and see the    *   DOC FILE
//*            way it all developed.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*            Since I had almost all of the intermediate versions  *   DOC FILE
//*            of the source code still lying around, I figured     *   DOC FILE
//*            that I'd put them all out there, if anyone wants to  *   DOC FILE
//*            look at all the incremental changes, stage by stage. *   DOC FILE
//*            So here they are, almost all of them, to look at     *   DOC FILE
//*            and learn from.  A load library is also included.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Addition of File 848 from Sam Bass which is a        *   DOC FILE
//*            re-introduction of the LIBSPOOL package that once    *   DOC FILE
//*            was on this tape.  LIBSPOOL is an adaptation of      *   DOC FILE
//*            PANSPOOL, except that it is for CA-LIBRARIAN         *   DOC FILE
//*            instead of for CA-PANVALET.  Sam Bass did the        *   DOC FILE
//*            original work on the adaptation.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Addition of File 849 which contains a few TSO        *   DOC FILE
//*            commands from Scott Vetter.  There are MVS 3.8       *   DOC FILE
//*            versions of these commands and z/OS 1.12 versions.   *   DOC FILE
//*            (z/OS adaptations by Sam Golob.)                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Addition of File 850 from Juergen Winkelmann, Scott  *   DOC FILE
//*            Vetter, and others.  This is a distribution of the   *   DOC FILE
//*            RAKF security package that works on MVS 3.8.  This   *   DOC FILE
//*            package is an adaptation of the ESG (RACF-like)      *   DOC FILE
//*            security package for MVS/SP 1.3 and later, by Craig  *   DOC FILE
//*            Yasuna, which is on CBT File 165.  But to make it    *   DOC FILE
//*            work for MVS 3.8, which didn't have as developed a   *   DOC FILE
//*            SAF interface, it required very considerable         *   DOC FILE
//*            effort on the part of a bunch of people.  (See the   *   DOC FILE
//*            $CREDITS member in this file for more details.)      *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Addition of File 851 from Fred Schmidt, which takes  *   DOC FILE
//*            advantage of IBM's new LBI (Large Block Interface)   *   DOC FILE
//*            for access methods, which allows you to write tape   *   DOC FILE
//*            blocks with 256K block size.  This package is a      *   DOC FILE
//*            REXX which generates jobs using IEBGENER to allow    *   DOC FILE
//*            multiple large-blocked files to be written to a tape *   DOC FILE
//*            once file at a time.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Addition of File 852 from Paul Edwards, which is a   *   DOC FILE
//*            port of the GCC C-language compiler and PDP runtime  *   DOC FILE
//*            library, which are free.  This version of GCC is     *   DOC FILE
//*            3.2.2 MVS 8.5.  This is a very large file consisting *   DOC FILE
//*            of over a million lines of card-images.  This stuff  *   DOC FILE
//*            probably can be made to run on all levels of MVS.    *   DOC FILE
//*            So you can run C-language programs for free, on      *   DOC FILE
//*            MVS, and you don't have to license a compiler and    *   DOC FILE
//*            library from IBM, using this compiler and library    *   DOC FILE
//*            instead.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Addition of File 853 from Paul Edwards, which is a   *   DOC FILE
//*            port of the GCC C-language compiler and PDP runtime  *   DOC FILE
//*            library, which are free.  This version of GCC is     *   DOC FILE
//*            3.4.6 MVS 1.0.  This is a very large file consisting *   DOC FILE
//*            of over 1.2 million lines of card-images.  This      *   DOC FILE
//*            stuff probably can be made to run on all levels of   *   DOC FILE
//*            MVS.  So you can run C-language programs for free,   *   DOC FILE
//*            on MVS, and you don't have to license a compiler     *   DOC FILE
//*            and library from IBM, using this compiler and        *   DOC FILE
//*            library instead.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-481 SECTION                                          *   DOC FILE
//*  V-481  CHANGES FOR VERSION 481 FEB 20, 2011                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  This version had to be created sooner because of     *   DOC FILE
//*            a few documentation issues.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 008 to now include all the jobs       *   DOC FILE
//*            used to create the CBT Tape initially.  After an     *   DOC FILE
//*            SL version of the tape is created first, an NL       *   DOC FILE
//*            version is then made by stripping off the tape       *   DOC FILE
//*            labels.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 035 to reflect the new version of     *   DOC FILE
//*            the PDS 8.6 command from File 182.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 134 to include a load library that    *   DOC FILE
//*            makes it easier to install the REVIEW TSO command.   *   DOC FILE
//*            The load library is packaged in TSO XMIT format      *   DOC FILE
//*            as member @REVLLIB.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 135 to reflect the new version of     *   DOC FILE
//*            the PDS 8.6 command from File 182.  This file has    *   DOC FILE
//*            the load modules adjusted for European date format.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 182 from John Kalinich, which is      *   DOC FILE
//*            PDS 8.6.  Current level is now:                      *   DOC FILE
//*              PDS86 -- VERSION 8.6.12.7  FEBRUARY 4, 2011        *   DOC FILE
//*            A load library was packaged with this file, to       *   DOC FILE
//*            make the PDS command easier to install.  Member      *   DOC FILE
//*            name is Z035XMIT.  Also see UTILXMIT and COMXMIT.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 185 to add a few more authorized      *   DOC FILE
//*            programs to the lists, and to assemble new load      *   DOC FILE
//*            modules with all the new program names.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 229 to fix a bug in COPYMODS, which,  *   DOC FILE
//*            when used with PARM=STRIP, to strip labels off an    *   DOC FILE
//*            SL tape and make copies which are NL tapes, if the   *   DOC FILE
//*            tape file had an 80-byte block in it, COPYMODS did   *   DOC FILE
//*            not write a tape mark after that file in the copies. *   DOC FILE
//*            This is now fixed in COPYMODS version 082.  (This    *   DOC FILE
//*            bug didn't come up often, but it was a pain in the   *   DOC FILE
//*            neck for years.  I'll try and retrofit the fix into  *   DOC FILE
//*            previous versions of COPYMODS, but for now, please   *   DOC FILE
//*            use version 082 to be sure.)                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 476 to restore LISP for MVS back to   *   DOC FILE
//*            this tape, from the CBT Overflow Tape.  Better to    *   DOC FILE
//*            advertise its existence.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 547 (Volker Bandke's MVS 3.8 tool     *   DOC FILE
//*            collection) to fix some doc.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 610 (somitcw tools) to fix some doc.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 614 to add a load library for         *   DOC FILE
//*            SHOWzOS 7.20, assembled under z/OS 1.12.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 710 (somitcw tools) to fix some doc.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 819 (RACF dynamic exit loader) to     *   DOC FILE
//*            fix a doc error only--no actual executable content.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 830 (Xephon MVS Update articles) to   *   DOC FILE
//*            fix a few minor things.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 835 by Sam Golob to add another       *   DOC FILE
//*            Program Properties Table listing program called      *   DOC FILE
//*            PPTD, to the already existing ISPF application       *   DOC FILE
//*            called PPTSCAN and the REXX exec which displays      *   DOC FILE
//*            it, called PPTSCANR.  It was felt that sometimes     *   DOC FILE
//*            you want to list the PPT directly, outside of an     *   DOC FILE
//*            ISPF application.  PPTD is a TSO command, whereas    *   DOC FILE
//*            PPTSCAN and PPTSCANR are an ISPF application, but    *   DOC FILE
//*            they display essentially the same data.              *   DOC FILE
//*                                                                 *   DOC FILE
//*            To enhance the usefulness of the PPTD command        *   DOC FILE
//*            (which uses PUTLINE terminal output), Mark           *   DOC FILE
//*            Zelden's commands to "trap and browse" (TSOB),       *   DOC FILE
//*            "trap and edit" (TSOE), "trap and view" (TSOV),      *   DOC FILE
//*            and "trap and REVIEW" (TSOR) were added to this      *   DOC FILE
//*            file as well.  TSOR can work in TSO READY mode.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Addition of File 843 from Mike Wickman which         *   DOC FILE
//*            contains a REXX exec application to do HSM           *   DOC FILE
//*            recovery of datasets from ISPF 3.4 or ISPF 6.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Addition of File 844 is from Kevin Ferguson, which   *   DOC FILE
//*            contains his program called ENQWATCH.  This is a     *   DOC FILE
//*            continuously running task that watches for dataset   *   DOC FILE
//*            enqueue conflicts and informs the TSO user if        *   DOC FILE
//*            he/she is the culprit.  There is more there, too.    *   DOC FILE
//*            See the doc.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Addition of File 845 is from Gregory Bliznets.       *   DOC FILE
//*            This package contains three programs:  RUNAUTH,      *   DOC FILE
//*            HOSTCMD and SYSCMD.  With RUNAUTH, an authorized     *   DOC FILE
//*            program can be called from an un-authorized TSO      *   DOC FILE
//*            environment, including a CLIST or a REXX script,     *   DOC FILE
//*            where a direct call causes a system abend 047.       *   DOC FILE
//*            The second program allows execution of a host (CP    *   DOC FILE
//*            or Hercules) command, passed as a parameter, on      *   DOC FILE
//*            z/OS or OS/390.  Running both together, CP or        *   DOC FILE
//*            Hercules commands can be entered from unauthorized   *   DOC FILE
//*            TSO sessions without any system mods.  The third     *   DOC FILE
//*            program SYSCMD allows execution of MVS system        *   DOC FILE
//*            commands (MVS console commands) from the program,    *   DOC FILE
//*            the same thing as provided by TSO CONSOLE service.   *   DOC FILE
//*            This program also can be used together with          *   DOC FILE
//*            RUNAUTH to allow to run MVS commands from an         *   DOC FILE
//*            unauthorized TSO session.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Addition of File 846 from somitcw, which are his     *   DOC FILE
//*            Track 0 manipulation programs to dump and load IPL   *   DOC FILE
//*            text so you can move the IPL text from one disk      *   DOC FILE
//*            pack to another.  Also included is his EOFDISK       *   DOC FILE
//*            program to clear disk tracks using EXCP.             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-480 SECTION                                          *   DOC FILE
//*  V-480  CHANGES FOR VERSION 480 JAN 16, 2011                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  Increase the number of files on this tape to 860.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035 with changes to load modules:     *   DOC FILE
//*            PDS, PDS38, PDS86, PDS86I, PDS8638                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 135 to reflect updated PDS 8.6        *   DOC FILE
//*            versions:  Members: PDS, PDS38, PDS86, PDS8638       *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 182 from John Kalinich, which is      *   DOC FILE
//*            PDS 8.6.  Current level is:                          *   DOC FILE
//*              PDS86 -- VERSION 8.6.12  DECEMBER 16, 2010         *   DOC FILE
//*            with many changes since the version on CBT Tape      *   DOC FILE
//*            Version 479.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 490 from Andy Robertson.  This is     *   DOC FILE
//*            his macro library to make it easier to write         *   DOC FILE
//*            reentrant Assembler programs.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 491 from Andy Robertson.  These are   *   DOC FILE
//*            BATCHART LECH PDSLOAD XMITMAIL.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 642 from Rich Hobt.  These are his    *   DOC FILE
//*            AFCLOGR1 and AFCSMP1 packages.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 757 from Ken Fitzgerald, which is     *   DOC FILE
//*            Version V1R1M13 of his LOGGRASM package, to help     *   DOC FILE
//*            students learn Assembler, by seeing the effects      *   DOC FILE
//*            of the instructions they code.  Many bugs were       *   DOC FILE
//*            fixed, specifically relating to the diagnostic       *   DOC FILE
//*            abend report, and support for new instructions       *   DOC FILE
//*            was added, etc.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 810 from Eugene Vogt.  This is a      *   DOC FILE
//*            minor correction of some of the SMF record format    *   DOC FILE
//*            meanings.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 830 from Sam Golob, which contains    *   DOC FILE
//*            contains 926 articles (with their code examples)     *   DOC FILE
//*            from Xephon "MVS Update" magazines from July 1987    *   DOC FILE
//*            through December 1996.  Updates consisted of many    *   DOC FILE
//*            fixes to the ASCII - EBCDIC content of the articles  *   DOC FILE
//*            and their code examples so that they would be more   *   DOC FILE
//*            readily usable at current z/OS levels.  The work     *   DOC FILE
//*            has not been finished yet....                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 834 from Alexander I. Vasilenko.      *   DOC FILE
//*            This file contains an edit macro which helps you     *   DOC FILE
//*            reallocate datasets from one system to another       *   DOC FILE
//*            system, which preserves all the allocation           *   DOC FILE
//*            attributes.  Only tested properly for volumes        *   DOC FILE
//*            under SMS control.  If you can fix it for non-SMS    *   DOC FILE
//*            volumes, please submit the fix(es) to Sam Golob.     *   DOC FILE
//*            Member MIGRATN is an attempt to get this to work     *   DOC FILE
//*            when you know that the volume is non-SMS.            *   DOC FILE
//*                                                                 *   DOC FILE
//*              email:  sbgolob@cbttape.org                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Addition of File 835 from is from Peter Giles and    *   DOC FILE
//*            contains a corrected version of the PPT scan         *   DOC FILE
//*            program package that was published in the Xephon     *   DOC FILE
//*            MVS Update issue of November 1994.  Original author  *   DOC FILE
//*            was R.F. Perretta.  Most Xephon articles are now     *   DOC FILE
//*            under the support of www.cbttape.org, so you no      *   DOC FILE
//*            longer have to worry about their copyrights.         *   DOC FILE
//*            Tested by Sam Golob to work on z/OS 1.11.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Addition of File 836 from Sam Golob, which contains  *   DOC FILE
//*            some members from File 830 (old XEPHON MVS articles) *   DOC FILE
//*            which were either of current interest, or which      *   DOC FILE
//*            were made to work on z/OS 1.11.  This is a work in   *   DOC FILE
//*            progress, but the files that are already here,       *   DOC FILE
//*            SHOULD be here.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Addition of File 837 from Bruce Bordonaro.  This     *   DOC FILE
//*            file contains 2 exits which are necessary to         *   DOC FILE
//*            implement, when you want to inform TSO users that    *   DOC FILE
//*            there is a file waiting for them to RECEIVE under    *   DOC FILE
//*            TSO/E.  The exits are HASX13 and INMXZ02.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Addition of File 838 which is an original post by    *   DOC FILE
//*            Leslie J. Somos in the C370-L list from March 11,    *   DOC FILE
//*            1994.  This post contains his CECDYN macro and       *   DOC FILE
//*            supporting materials to dynamically allocate a file  *   DOC FILE
//*            and self-generate the parameters.  See member        *   DOC FILE
//*            CECDYNRW in this pds for the original post that he   *   DOC FILE
//*            made on C370-L.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*            Unfortunately, Leslie Somos has passed away.         *   DOC FILE
//*            This file will remain as a tribute to him and to     *   DOC FILE
//*            his work.  We will try and add any additional        *   DOC FILE
//*            materials we find from him, to this file as well.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Addition of File 839 from Clement Clarke and         *   DOC FILE
//*            contains programs to allow for long PARM fields      *   DOC FILE
//*            and symbolic parameter substitution in card image    *   DOC FILE
//*            format control cards.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Addition of File 840 from Mark Jacobs and contains   *   DOC FILE
//*            an ICSF KGUP protection exit which inhibits the      *   DOC FILE
//*            changing of ICSF decryption keys, based on RACF      *   DOC FILE
//*            permissions.  See member called $NOTES.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Addition of File 841 which contains a way to         *   DOC FILE
//*            remove CA-Optimizer from your system, and still      *   DOC FILE
//*            be able to run Optimized COBOL programs without      *   DOC FILE
//*            recompile.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Addition of File 842 from Roger Mihay and contains   *   DOC FILE
//*            a way to put a large number of pds'es or sequential  *   DOC FILE
//*            files into TSO XMIT format and download them to a    *   DOC FILE
//*            PC for viewing with XMIT manager or some similar     *   DOC FILE
//*            tool on the PC.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-479 SECTION                                          *   DOC FILE
//*  V-479  CHANGES FOR VERSION 479 AUG 16, 2010                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  Increase the number of files on this tape to 840.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 019 to make improvements to FLSMFJOB. *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 035 with changes to load modules:     *   DOC FILE
//*            CNCLPG, DSAT, LOOK, LWATMGR, PDS, PDSMATCH,          *   DOC FILE
//*            PDS86, PDS86I, PDS8638, STEPLIB, VTOC                *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 112 with some fixes to the VTOC TSO   *   DOC FILE
//*            command from John Kalinich.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 119 to fix the EPUTL routine so       *   DOC FILE
//*            that the PUTLINE output can display 255 characters   *   DOC FILE
//*            instead of 125.  Mucho helpful if you use the        *   DOC FILE
//*            APUT-EPUTL interface to convert TPUT to PUTLINE      *   DOC FILE
//*            terminal outputs.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 120 from Sam Golob to add 2 new       *   DOC FILE
//*            articles.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 123 to fix the ECHOPGM so it will     *   DOC FILE
//*            echo 251 characters instead of 123, using the        *   DOC FILE
//*            PUTLINE interface (reflects change in EPUTL).        *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 135 to reflect updated PDS 8.6        *   DOC FILE
//*            versions and an updated SHOWzOS (see File 492 and    *   DOC FILE
//*            File 614).                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 136 to reflect the same change in     *   DOC FILE
//*            the EPUTL (PUTLINE conversion) routine as in File    *   DOC FILE
//*            119.                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 182 from John Kalinich, which is      *   DOC FILE
//*            PDS 8.6.  Current level is:                          *   DOC FILE
//*              PDS86 -- VERSION 8.6.12  AUGUST 5, 2010            *   DOC FILE
//*            with many changes since the version on CBT Tape      *   DOC FILE
//*            Version 478.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 183 from Gilbert Saint-flour, with    *   DOC FILE
//*            the following members changed:                       *   DOC FILE
//*            $LOAD183, BR, COMPRCMD, FASTPATH, FTP, PLI2JOB,      *   DOC FILE
//*            PLI2TSO, STRING, SYSDEBUG                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 185 to reassemble the sample TSO      *   DOC FILE
//*            auth tables to include more program names.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 264 (the LOOK TSO command to browse   *   DOC FILE
//*            actual storage) so that it will format some of the   *   DOC FILE
//*            undocumented TSO control blocks.  (I was told that   *   DOC FILE
//*            some of these layouts will be released by IBM in     *   DOC FILE
//*            z/OS 1.12.)                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 268 from Peter J. Farley to RXVSAM    *   DOC FILE
//*            (which gives REXX access to VSAM files) originally   *   DOC FILE
//*            submitted by Mark Winges.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Updates to File 296 from John Kalinich and Ken       *   DOC FILE
//*            Sharpe to fix the DSAT program to recognize HFS      *   DOC FILE
//*            files and extended VSAM files in DSORG.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Updates to File 312 from Lionel Dyck with fixes      *   DOC FILE
//*            to CAVXTRT and PRMCK.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Updates to File 314 from Lionel Dyck with fixes      *   DOC FILE
//*            to TXT2RTF and XMITIP (level 1008).                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 343 from John Kalinich to fix the     *   DOC FILE
//*            FREEPOOL invocations in the VTOCLIST program so      *   DOC FILE
//*            that storage was not unnecessarily tied up.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 382 from Paul Gillis to add a few     *   DOC FILE
//*            more tools, and his DEBUG macro to produce displays  *   DOC FILE
//*            for diagnosing Assembler programs.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 404 (TSSO) from Dana Mitchell to      *   DOC FILE
//*            correct a bug and fix a problem (see member          *   DOC FILE
//*            $$NOTE6).                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 423 from Sam Golob to include a       *   DOC FILE
//*            modified version of Jeff Broido's LISTHEAD program,  *   DOC FILE
//*            which now shows non-standard load module headers.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Updates to File 434 from Mark Zelden.  Members:      *   DOC FILE
//*            IPLHIST IPLINFO LASTIPL ONEPAKZ8 RXSTOR64 SDSF@DR    *   DOC FILE
//*            TWOPAKZ8 VTOCLIST                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Updates to File 452 from Dan Dalby.  There are many  *   DOC FILE
//*            updates, but notably there is an update to the       *   DOC FILE
//*            STEPLIB program, which had to be modified for z/OS   *   DOC FILE
//*            1.12, because at that level, there is a change in    *   DOC FILE
//*            the way IBM does STEPLIBs.  Members changed:         *   DOC FILE
//*            ADDTO, HELP, IEFUJV, JCLSYMBL, JCLSYMBS, LOADLIB,    *   DOC FILE
//*            MACLIB, STEPLIB, STEPLIBO                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 482 from John Fisher to the GDGCOPY   *   DOC FILE
//*            program, to make it work for many GDGs at a time     *   DOC FILE
//*            (1000 instead of 100).                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Update to File 492 from Roland Schiradin, which is   *   DOC FILE
//*            SHOWzOS 7.20.  (Load module libraries on File 614).  *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Update to File 510 from Ricardo Paranhos.  A new     *   DOC FILE
//*            email address from Ricardo is in this file now.      *   DOC FILE
//*            Update is to the IEBLIST program.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Update to File 589 from Philippe Leite, to his       *   DOC FILE
//*            HSCTOOL package, which is a REXX function package    *   DOC FILE
//*            to handle STK silo commands (for the STK robot tape  *   DOC FILE
//*            libraries).                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Update to File 609 from John Miller and Chris        *   DOC FILE
//*            Buckley.  Change is to new system cloning member     *   DOC FILE
//*            called ZCLONE30 for later versions of z/OS.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Update to File 614 from Sam Golob to contain more    *   DOC FILE
//*            load module libraries for different assemblies of    *   DOC FILE
//*            SHOWzOS, especially for SHOWzOS 7.20 assembled       *   DOC FILE
//*            under z/OS 1.11.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Update to File 693 which is the PDSCLEAN program     *   DOC FILE
//*            from Terry Miller.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Update to File 742 from Bob Birdsall, which is a     *   DOC FILE
//*            source versioning system that works under ISPF.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Update to File 743 from Terry Miller.  This update   *   DOC FILE
//*            is for the MODLIST program, that lists load module   *   DOC FILE
//*            attributes.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Update to File 751 from "Somitcw" which is a set     *   DOC FILE
//*            of his tools.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Update to File 757 from Ken Fitzgerald, which is     *   DOC FILE
//*            Version V1R1M12 of his LOGGRASM package, to help     *   DOC FILE
//*            students learn Assembler, by seeing the effects      *   DOC FILE
//*            of the instructions they code.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        34  Update to File 810 from Richard L. Rice, which is    *   DOC FILE
//*            his ONSCREEN file browser and formatting package.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        35  Update to File 814 from Eugene Vogt.  This is a      *   DOC FILE
//*            collection of Xephon "MVS Update" articles (926 of   *   DOC FILE
//*            them), in ZIP format ASCII.  A pds with all of these *   DOC FILE
//*            articles, expanded in EBCDIC format, is now on       *   DOC FILE
//*            File 830 (a new file).  Articles are from July 1987  *   DOC FILE
//*            through December 1996.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        36  Addition of File 818 from Petr Svoboda which is      *   DOC FILE
//*            an assembler stub to allow 31-bit COBOL programs     *   DOC FILE
//*            to access 64-bit data.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        37  Addition of File 819 from Terry Miller.  This is     *   DOC FILE
//*            his "ICH" RACF dynamic exit loader package, which    *   DOC FILE
//*            allows for dynamic substitution of new versions of   *   DOC FILE
//*            RACF exits into your system.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        38  Addition of File 820 from Richard D. Harper, which   *   DOC FILE
//*            is his "Private 64/20 z/OS Assembly Language         *   DOC FILE
//*            Development Platform" which can be used by system-   *   DOC FILE
//*            level programmers to quickly develop system level    *   DOC FILE
//*            code.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        39  Addition of File 821 from Gil Segal and Giora Bar.   *   DOC FILE
//*            This file contains a REXX utility called CC, which   *   DOC FILE
//*            is an edit macro that plugs values from a data       *   DOC FILE
//*            file, into a skeleton, so that real JCL is created   *   DOC FILE
//*            automatically from the skeleton.  The CC utility     *   DOC FILE
//*            runs as an ISPF edit macro.  Full documentation is   *   DOC FILE
//*            provided in a PDF file.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        40  Addition of File 822 from Terry Miller, and          *   DOC FILE
//*            contains code to capture CPU utilization and limit   *   DOC FILE
//*            information for use as a metric in softcapping       *   DOC FILE
//*            an LPAR or an LPAR group.  The package is called     *   DOC FILE
//*            SOFTCAPI.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        41  Addition of File 823 from Alexander I. Vasilenko,    *   DOC FILE
//*            which contains modifications to ISPF panel ISRTSO    *   DOC FILE
//*            (ISRTSOA) (ISPF command shell aid) to show 20        *   DOC FILE
//*            previously executed commands instead of 10, and to   *   DOC FILE
//*            explicitly provide and adjust retention options to   *   DOC FILE
//*            your own liking.  I find it VERY handy to have.      *   DOC FILE
//*            There is also an ISPF 7.3-like application called    *   DOC FILE
//*            VIEWPOOL included here.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        42  Addition of File 824 from Richard L. Rice.  This     *   DOC FILE
//*            is a VTOC zapping tool.  It is based on ISPF and it  *   DOC FILE
//*            interfaces with RACF.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        43  Addition of File 825 from Raymond Ching and          *   DOC FILE
//*            contains an SSL handshaking program.  "I have        *   DOC FILE
//*            written a simple z/OS batch program to perform the   *   DOC FILE
//*            first few phases of SSL handshake and print the      *   DOC FILE
//*            human readable output into the SYSPRINT DDname.  My  *   DOC FILE
//*            intention is to write a simple program to diagnose   *   DOC FILE
//*            the most common SSL setup issues in z/OS."           *   DOC FILE
//*                                                                 *   DOC FILE
//*        44  Addition of File 826 from Sam Golob and contains     *   DOC FILE
//*            a program to make a job or STC or TSU cancelable,    *   DOC FILE
//*            directly forcible, or non-cancelable or non-         *   DOC FILE
//*            forcible.  This is an APF-authorized standalone      *   DOC FILE
//*            TSO command.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        45  Addition of File 827 from John C. Miller and         *   DOC FILE
//*            contains dialogs to help administer RACF.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        46  Addition of File 828 from "Somitcw" which is his     *   DOC FILE
//*            DELAY program to set an STIMER with a user specified *   DOC FILE
//*            value.                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        47  Addition of File 829 from Eugene Vogt, which has     *   DOC FILE
//*            a version of TIDYASM (originally from File 316)      *   DOC FILE
//*            that now works on modern z/OS systems.  Most bugs    *   DOC FILE
//*            have been fixed.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        48  Addition of File 830 from Eugene Vogt, which         *   DOC FILE
//*            contains 926 articles (with their code examples)     *   DOC FILE
//*            from Xephon "MVS Update" magazines from July 1987    *   DOC FILE
//*            through December 1996.  Support for most Xephon      *   DOC FILE
//*            magazines has now been taken over by www.cbttape.org *   DOC FILE
//*            and their code examples and text can now be used by  *   DOC FILE
//*            anyone, in good conscience.  Stuff not administered  *   DOC FILE
//*            by Bob Thomas is not included, and 2006-2008 issues  *   DOC FILE
//*            are not included.  See www.cbttape.org/xephon        *   DOC FILE
//*                                                                 *   DOC FILE
//*        49  Addition of File 831 which is a TSO command for      *   DOC FILE
//*            dynamic concatenation - deconcatenation of datasets  *   DOC FILE
//*            to your TSO session.  This command was submitted by  *   DOC FILE
//*            Jacques Devaux and was probably written by Serge     *   DOC FILE
//*            Joliecoeur.  Comments were in French, translated     *   DOC FILE
//*            into English by Sam Golob, with help from Jacques.   *   DOC FILE
//*            Original French version is included.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        50  Addition of File 832 from Marco Serafini and         *   DOC FILE
//*            contains REXX execs and panels to print MVS files    *   DOC FILE
//*            directly on TCPIP printers.  Documentation is in     *   DOC FILE
//*            WORD format.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        51  Addition of File 833 from Alexander I. Vasilenko     *   DOC FILE
//*            and contains a facility to save labels when you      *   DOC FILE
//*            look at COBOL programs under ISPF.  If you analyze   *   DOC FILE
//*            COBOL programs a lot, this is a very handy           *   DOC FILE
//*            facility.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        52  Addition of File 834 from Alexander I. Vasilenko and *   DOC FILE
//*            contains an edit macro which helps you reallocate    *   DOC FILE
//*            datasets from one system to another system, which    *   DOC FILE
//*            preserves all the allocation attributes.             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-478 SECTION                                          *   DOC FILE
//*  V-478  CHANGES FOR VERSION 478 DEC 27, 2009                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 006 to change the CBT version         *   DOC FILE
//*            numbers mentioned in the execs and CLISTs.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 035 which is a collection of          *   DOC FILE
//*            load modules.  Changed modules are:                  *   DOC FILE
//*            ASUB, BDMNNOTC, DAF, DISKMAP, DSAT, LWATEDIT,        *   DOC FILE
//*            OFFLOAD, PDS, PDSLOAD, PDS38, PDS86                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 077 to change Brian Westerman's       *   DOC FILE
//*            address.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 088 to change Brian Westerman's       *   DOC FILE
//*            address.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 093 because PDSLOAD and OFFLOAD       *   DOC FILE
//*            needed modified control cards, to accommodate        *   DOC FILE
//*            the new ISPF statistics fields for z/OS 1.11.        *   DOC FILE
//*            The new versions are still downward compatible       *   DOC FILE
//*            if the ISPF statistics are of the old version.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 094 from Michael Cleary to add        *   DOC FILE
//*            Version 1.4.8 of DAF.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 120 from Sam Golob to add a new       *   DOC FILE
//*            article about TSO authorization tables.  This        *   DOC FILE
//*            article does not belong to NaSPA.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 134 from Greg Price to bring REVIEW   *   DOC FILE
//*            to Level 42.3 with improvements to REVEDIT and       *   DOC FILE
//*            other features.  REVIEW now has a VIEW mode as well  *   DOC FILE
//*            as an EDIT (called UPDATE) mode which tries to       *   DOC FILE
//*            approximate ISPF EDIT and VIEW.  But these also      *   DOC FILE
//*            operate in READY mode, when ISPF isn't up.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 135 to reflect changes in REVIEW      *   DOC FILE
//*            and also changes in PDS86 from File 182.  Load       *   DOC FILE
//*            modules for PDS86 reflect European-style dates.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 182 from John Kalinich to reflect     *   DOC FILE
//*            the latest changes to Level 8.6.11.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 183 from Gilbert Saint-flour to       *   DOC FILE
//*            reflect changes since the last CBT version.  They    *   DOC FILE
//*            are numerous.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 185, mostly to add TSUB support for   *   DOC FILE
//*            the "real" TSO auth tables which are chained off     *   DOC FILE
//*            the TSO user's LWA.  These are the tables that your  *   DOC FILE
//*            session actually uses, and the effect of a change    *   DOC FILE
//*            is immediate, lasting until the next LOGON or until  *   DOC FILE
//*            another change using TSUB.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 247 from Sam Golob, adding a TSO      *   DOC FILE
//*            command called BDMNNOTC, which changes the number    *   DOC FILE
//*            that ACCOUNT/SYNC uses, to determine how many Global *   DOC FILE
//*            Notices to make when reformatting the Broadcast      *   DOC FILE
//*            Dataset (SYS1.BRODCAST).  This number is very hard   *   DOC FILE
//*            to change, according to IBM, but in truth it is      *   DOC FILE
//*            just a fullword in the CVT, and this program will    *   DOC FILE
//*            simply plug in a different number there.  BDMNNOTC   *   DOC FILE
//*            has to be APF-authorized in the IKJEFTE2 table       *   DOC FILE
//*            (authcmd).                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 296 with bug fixes for COMPARE from   *   DOC FILE
//*            Greg Price and fixes for DSAT to show SMS flags,     *   DOC FILE
//*            from John Loch.  Also, DSAT will now assemble with   *   DOC FILE
//*            z/OS 1.10 and 1.11 macros.  Help for DSAT was moved  *   DOC FILE
//*            to a separate pds member.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Updates to Files 297, 301, and 302 with new          *   DOC FILE
//*            addresses for Mike Cleary.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 312 from Lionel Dyck with a new       *   DOC FILE
//*            version of FTPB (1.223).                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 314 from Lionel Dyck with new         *   DOC FILE
//*            versions of TXT2CSV, TXT2PDF, and XMITIP (09.12).    *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 321 from Roland Schiradin with a      *   DOC FILE
//*            newer version of COBANALZ.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 360 from Gordon B. Hampton, to add    *   DOC FILE
//*            large volume support to the VOLS command.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 404 (TSSO) from Dana Mitchell, to     *   DOC FILE
//*            add the System Id into messages when running in a    *   DOC FILE
//*            sysplex.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 432 from Sam Golob, to let people     *   DOC FILE
//*            know that any former XEPHON materials included in    *   DOC FILE
//*            this file are now supported at www.cbttape.org       *   DOC FILE
//*            and are no longer subject to any Xephon copyright    *   DOC FILE
//*            conditions.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Updates to File 434 from Mark Zelden.  The           *   DOC FILE
//*            following members were updated since the last        *   DOC FILE
//*            tape release:                                        *   DOC FILE
//*            $ONEPAK @FILE434 ACBCHECK FVE IPLINFO ONEPAKZ8       *   DOC FILE
//*            REXXSTOR RXSTOR64 TAPESTAK TWOPAKZ8                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 437 from Sam Golob, to add a member   *   DOC FILE
//*            called ZZSAPACK which is a zip of a P390-format      *   DOC FILE
//*            minidisk which contains ZZSA (standalone z/OS        *   DOC FILE
//*            DASD utility from Jan Jaeger) as its IPL Text.       *   DOC FILE
//*            Therefore, you can download this file to a PC,       *   DOC FILE
//*            unzip it, include it in a Hercules configuration,    *   DOC FILE
//*            and IPL it, to gain access to the other MVS DASD     *   DOC FILE
//*            disks without having or using MVS or z/OS.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Update to File 452 from Dan Dalby, to improve his    *   DOC FILE
//*            STEPLIB program and to add his LWATMGR and LWATEDIT  *   DOC FILE
//*            programs to replace any or all of the TSO auth       *   DOC FILE
//*            tables that your TSO session is currently using.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Moved the MVS LISP compiler from File 476 to File    *   DOC FILE
//*            083 of the CBT Overflow Tape.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Update to File 492 from Roland Schiradin with a      *   DOC FILE
//*            new release of SHOWzOS.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Update to File 498 from Craig Schneiderwent, which   *   DOC FILE
//*            is his match-merge program.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Update to File 534 from Paul Dion with fixes to      *   DOC FILE
//*            his SPACE program (LSPACE functionality).            *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Update to File 538 from Sam Golob to Jan Jaeger's    *   DOC FILE
//*            ZZSA file.  ZZSA is an IPL-able program which        *   DOC FILE
//*            allows you to access MVS (z/OS) files on z/OS DASD,  *   DOC FILE
//*            without using or needing to IPL z/OS.  You just IPL  *   DOC FILE
//*            ZZSA.  The member ZZSAPACK was added, which is a     *   DOC FILE
//*            tiny mini-disk with no files, just IPL Text only,    *   DOC FILE
//*            to IPL ZZSA from.  So you can add the zzsa01 pack    *   DOC FILE
//*            to your Hercules configuration, or to VM, and use    *   DOC FILE
//*            it just to IPL ZZSA that way and access your DASD.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Update to File 614 which is a collection of load     *   DOC FILE
//*            libraries in TSO XMIT format, containing different   *   DOC FILE
//*            versions of SHOWMVS and SHOWzOS (latest source on    *   DOC FILE
//*            File 492).  SHOWzOS needs the latest versions of     *   DOC FILE
//*            HLASM to assemble it, so we've already done so.      *   DOC FILE
//*            Problem is that different levels of the operating    *   DOC FILE
//*            system need different assemblies of SHOWMVS or       *   DOC FILE
//*            SHOWzOS to work properly.  So we've included a lot   *   DOC FILE
//*            of versions, assembled on different levels of z/OS,  *   DOC FILE
//*            and you can pick the one which best fits your        *   DOC FILE
//*            system.  Added SHOWzOS 7.19 assemblies, for z/OS     *   DOC FILE
//*            1.8, 1.9, and 1.10.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Update to File 621 from Dana Mitchell to Hunter      *   DOC FILE
//*            Zhou's NPF exit programs that allow you to print     *   DOC FILE
//*            mainframe datasets to any network printer with       *   DOC FILE
//*            PCL language support.  Updates are:                  *   DOC FILE
//*            Add system ID and HW name to HOST line on banner     *   DOC FILE
//*             page.                                               *   DOC FILE
//*            Update PCL form PT02, force simplex, 6LPI, 10CPI.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Update to File 659 to make it easier to clone a      *   DOC FILE
//*            running system, when you already have another        *   DOC FILE
//*            running system to help you out.  Also, upgraded      *   DOC FILE
//*            the Hercules system to 3.06 as opposed to 2.16,      *   DOC FILE
//*            which is a big improvement.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Update to File 688 from Dougie Lawson, to make       *   DOC FILE
//*            his ACBLIST program work for IMS V10 and V11.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        34  Update to File 693 from Terry Miller and Richard     *   DOC FILE
//*            Rice, to upgrade and fix the PDSCLEAN program that   *   DOC FILE
//*            logically empties a PDS or PDSE from all their       *   DOC FILE
//*            members.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        35  Update to File 711 which is a LIBRARIAN program      *   DOC FILE
//*            package.  Purpose:                                   *   DOC FILE
//*            The LIBRARIAN is a VTAM LU 6.2 client-server type    *   DOC FILE
//*            application.  My idea for using an LU 6.2 interface  *   DOC FILE
//*            was to allow users to access a library without       *   DOC FILE
//*            having to log-in to the system where the library     *   DOC FILE
//*            actually lives.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        36  Update to File 713 from Sam Golob to rework the      *   DOC FILE
//*            EMPTYPDS program from File 172 to have proper        *   DOC FILE
//*            return codes and to display better messages.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        37  Update to File 738 from Terry Miller with fixes      *   DOC FILE
//*            and enhancements for his REORGVS program to          *   DOC FILE
//*            reallocate and reorganize existing VSAM files.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        38  Update to File 745 from Richard Rice, which is       *   DOC FILE
//*            his File Manager program.  It is recommended to      *   DOC FILE
//*            use File 810 instead of this file, because File      *   DOC FILE
//*            810 is a later reworking of this material.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        39  Update to File 757 from Ken Fitzgerald, which is     *   DOC FILE
//*            his LOGGRASM system for developing and debugging     *   DOC FILE
//*            assembler code.  This package is now at the          *   DOC FILE
//*            V1R1M11 level.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        40  Update to File 769 from Robert Prins.  This          *   DOC FILE
//*            package contains a collection of REXX execs that     *   DOC FILE
//*            are run as ISPF edit macros, which turn code (from   *   DOC FILE
//*            various programming languages) into HTML source,     *   DOC FILE
//*            and optionally, invoke a browser to display it.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        41  Update to File 773 from Arthur Fichtl.  This         *   DOC FILE
//*            package contains an interactive disassembler which   *   DOC FILE
//*            interprets a chunk of dumped values as though they   *   DOC FILE
//*            are machine instructions.  This package, which is    *   DOC FILE
//*            called ISDA, is written entirely in REXX.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        42  Update to File 797 from Dan Dalby and Sam Golob.     *   DOC FILE
//*            These programs manipulate, re-create, or alter       *   DOC FILE
//*            the characteristics of your TSO "auth tables"        *   DOC FILE
//*            that are pointed to by the LWA (Logon Work Area)     *   DOC FILE
//*            for your TSO session.  With these programs, you      *   DOC FILE
//*            have an amazing and phenomenal amount of control     *   DOC FILE
//*            over those tables (unique to your own TSO session).  *   DOC FILE
//*            You just have to authorize one of these programs     *   DOC FILE
//*            (TSUB or LLWA or LWATMGR) in your IKJEFTE2 table,    *   DOC FILE
//*            and you're on your way.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        43  Update to File 799 from Kevin Dengsong, which        *   DOC FILE
//*            contains a package to process SMF Type 30 records,   *   DOC FILE
//*            written in COBOL.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        44  Addition of File 802 from Jason Winter which         *   DOC FILE
//*            contains a Delinker program written in C, that is    *   DOC FILE
//*            similar to David Noon's DELINKI program from File    *   DOC FILE
//*            090 that was written in PL/I.  Jason Winter is the   *   DOC FILE
//*            author of a C compiler that produces MVS-compatible  *   DOC FILE
//*            object decks.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        45  Addition of File 803 from Lionel Dyck and contains   *   DOC FILE
//*            a collection of ISPF macros that he used to use in   *   DOC FILE
//*            the past, and which were very worth while keeping.   *   DOC FILE
//*            Lionel is not the author of these macros--he ran     *   DOC FILE
//*            across them in his travels, and used them in         *   DOC FILE
//*            programming over the years.  Now, he found them      *   DOC FILE
//*            and wants to put them out for everyone to benefit    *   DOC FILE
//*            from.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        46  Addition of File 804 from Rich Hobt and contains a   *   DOC FILE
//*            version of the TAPEMAP program from File 299 which   *   DOC FILE
//*            was modified to use the modern "relative addressing" *   DOC FILE
//*            assembler instructions.  In other words, JUMP        *   DOC FILE
//*            instead of BRANCH was used.  This freed up the need  *   DOC FILE
//*            to fill a whole bunch of base registers.             *   DOC FILE
//*                                                                 *   DOC FILE
//*            Some of Rich's new macros helped in the conversion:  *   DOC FILE
//*               ASMINFO BR2JMP BR2JMPX INR OUTR                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        47  Addition of File 805 from Michael Schmutzok which    *   DOC FILE
//*            contains the source code and JCL needed to           *   DOC FILE
//*            establish an SNMP sub-agent, an EMC (Extended MCS)   *   DOC FILE
//*            monitoring started task and an externally called     *   DOC FILE
//*            storage snap program.  Member MACROS in this file    *   DOC FILE
//*            contains the user written macros needed to compile   *   DOC FILE
//*            the programs.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*            See member $$$INTRO for an explanation of SNMP and   *   DOC FILE
//*            an introduction to what this package does.  It       *   DOC FILE
//*            basically finds "alerts" in the system operation,    *   DOC FILE
//*            so the sysprog or an operator can keep track of      *   DOC FILE
//*            them.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        48  Addition of File 806 from Kevin Dengsong which       *   DOC FILE
//*            contains a package to process SMF Type 110           *   DOC FILE
//*            records, written in COBOL.  The title of this        *   DOC FILE
//*            package is "CICS Preformance Monitor Analysis        *   DOC FILE
//*            Tools".                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        49  Addition of File 807 is from Morris Karlin, Norman   *   DOC FILE
//*            Lindner, and Irwin Eisenstein, and contains their    *   DOC FILE
//*            programs HFSELECT and SUPRDUMP.  These programs      *   DOC FILE
//*            were originally for sale, but Morris Karlin and      *   DOC FILE
//*            Norman Lindner have given permission for them to     *   DOC FILE
//*            be included on the CBT Tape collection, subject to   *   DOC FILE
//*            CBT Tape disclaimers and conditions.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*            HFSELECT is a powerful file selection and            *   DOC FILE
//*            match-merge program, which has additional            *   DOC FILE
//*            capabilities.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*            SUPRDUMP is a program that can read, copy, and       *   DOC FILE
//*            print the contents of a large variety of tapes.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        50  Addition of File 808 which is an extremely           *   DOC FILE
//*            valuable contribution from Enrico Sorichetti and     *   DOC FILE
//*            contains a RECEIVE/UNXMIT tool that works on a PC.   *   DOC FILE
//*            I am just offering Enrico's zip file here, because   *   DOC FILE
//*            the programs are PC REXX programs and they are not   *   DOC FILE
//*            for MVS use, directly.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*            This file contains the ZIP member of File 800        *   DOC FILE
//*            only.  You should download this file in BINARY to    *   DOC FILE
//*            a PC and unzip it there.  Please email Enrico        *   DOC FILE
//*            Sorichetti (the author) if you have any questions.   *   DOC FILE
//*                                                                 *   DOC FILE
//*            email:  Enrico Sorichetti     *   DOC FILE
//*                                                                 *   DOC FILE
//*        51  Addition of File 809 from Richard L. Rice and is a   *   DOC FILE
//*            fixed copy of his DITTO program that used to be on   *   DOC FILE
//*            File 171.  See his explanation in member $$NOTE1,    *   DOC FILE
//*            which tells you what the former problem was, and     *   DOC FILE
//*            how he fixed it.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*            We should regard this file as a beta version,        *   DOC FILE
//*            until it is tested more.  If you are using this      *   DOC FILE
//*            file, please write your feedback to Sam Golob,       *   DOC FILE
//*                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*            Hopefully this will be a good alternate DITTO        *   DOC FILE
//*            package for those shops which block BLP.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        52  Addition of File 810 from Richard L. Rice and        *   DOC FILE
//*            contains his ONSCREEN package, which is his          *   DOC FILE
//*            complete reworking of his file browser package       *   DOC FILE
//*            called FM (File Manager) that is on CBT File 745.    *   DOC FILE
//*            This package is completely original, although it     *   DOC FILE
//*            has features that were suggested by the REVIEW       *   DOC FILE
//*            program from File 134.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*            The idea here is to create a flexible file browser   *   DOC FILE
//*            package which is customizable.  The reason for the   *   DOC FILE
//*            rename from FM, is that FM sounded too much like a   *   DOC FILE
//*            utility for pre-formatting datasets, rather than a   *   DOC FILE
//*            data viewer.                                         *   DOC FILE
//*            email:            *   DOC FILE
//*                                                                 *   DOC FILE
//*        53  Addition of File 811 which is a very useful          *   DOC FILE
//*            LIBRARIAN program package, and which was             *   DOC FILE
//*            completely new when written (Mar/06). The package    *   DOC FILE
//*            was written by Richard L. Rice.  This is a fixed     *   DOC FILE
//*            version of the LIBRARIAN program that was on File    *   DOC FILE
//*            711.                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*            This LIBRARIAN is a free package, unrelated to       *   DOC FILE
//*            any other package having the same or a similar       *   DOC FILE
//*            name......                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        54  Addition of File 812 which is a fixed version of a   *   DOC FILE
//*            Disassembler from Richard L. Rice, that was on       *   DOC FILE
//*            File 171.  This program is a redesign of the         *   DOC FILE
//*            disassembler on File 217, but broken into csects.    *   DOC FILE
//*            This disassembler calls the assembler and allows     *   DOC FILE
//*            you to use real macros and their dsects for label    *   DOC FILE
//*            mapping.                                             *   DOC FILE
//*            email:  Richard.L.Rice@conocophillips.com            *   DOC FILE
//*                                                                 *   DOC FILE
//*        55  Addition of from Richard L. Rice and contains a      *   DOC FILE
//*            fixed version of his SUTL (System Utility) package   *   DOC FILE
//*            that allow you to get system information from an     *   DOC FILE
//*            MVS system on your network that you are NOT logged   *   DOC FILE
//*            on to.  This utility was previously packaged on      *   DOC FILE
//*            File 171.                                            *   DOC FILE
//*            email:  Richard.L.Rice@conocophillips.com            *   DOC FILE
//*                                                                 *   DOC FILE
//*        56  Addition of File 814 which was sent in by Eugene     *   DOC FILE
//*            Vogt and contains a huge collection of old XEPHON    *   DOC FILE
//*            MVS articles in text format.  These come largely     *   DOC FILE
//*            before the 1998 lower limit of the articles found    *   DOC FILE
//*            in:                                                  *   DOC FILE
//*            www.cbttape.org/xephon                               *   DOC FILE
//*                                                                 *   DOC FILE
//*            This collection is still extremely valuable.         *   DOC FILE
//*            See member $INDEX for contents information.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        57  Addition of File 815 from Bob Glover and contains    *   DOC FILE
//*            an extended string search facility called SRCHE      *   DOC FILE
//*            that runs under ISPF.  We trust that it will be      *   DOC FILE
//*            useful to you.                                       *   DOC FILE
//*            email:  "Glover, Bob"         *   DOC FILE
//*                                                                 *   DOC FILE
//*        58  Addition of File 816 from Sam Golob which contains   *   DOC FILE
//*            an APF-authorized TSO command called BDMNNOTC, to    *   DOC FILE
//*            quickly and instantly change the default number of   *   DOC FILE
//*            Global Notices created by an ACCOUNT/SYNC combina-   *   DOC FILE
//*            tion, when it formats a SYS1.BRODCAST dataset, or    *   DOC FILE
//*            create, when it formats a SYS1.BRODCAST dataset      *   DOC FILE
//*            any active Broadcast Dataset.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*            email:  sbgolob@cbttape.org                          *   DOC FILE
//*                                                                 *   DOC FILE
//*            IBM officially makes this number very difficult to   *   DOC FILE
//*            change.  You have to zap the hex number into csect   *   DOC FILE
//*            IKJEBLMT of module IKJEFXSR and the change will      *   DOC FILE
//*            not take effect until the next IPL.  Fortunately,    *   DOC FILE
//*            there is a solution.  The actual number that SYNC    *   DOC FILE
//*            looks at, is located squarely in the CVT itself.     *   DOC FILE
//*            It isn't even chained off it!  The number is a       *   DOC FILE
//*            fullword at location CVT + X'5A8'.  And loading      *   DOC FILE
//*            this up initially, is the reason for the necessity   *   DOC FILE
//*            of the IPL.  This TSO command, called BDMNNOTC,      *   DOC FILE
//*            just goes in and changes that number in the CVT.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        59  Addition of File 817 from Mike Wojtukiewicz and      *   DOC FILE
//*            contains his program called FIXCATLG to generate     *   DOC FILE
//*            JCL that recatalogs (without scratching) all         *   DOC FILE
//*            datasets on certain volumes in a new catalog.        *   DOC FILE
//*            This program also contains a second output to        *   DOC FILE
//*            create input to SMP/E that makes DDDEF entries for   *   DOC FILE
//*            all the mentioned datasets.                          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-477 SECTION                                          *   DOC FILE
//*  V-477  CHANGES FOR VERSION 477 JAN 18, 2009                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 019 from John Hooper to change the    *   DOC FILE
//*            COMMAND, CONSOLE, FLSMFJOB, and LISTF programs.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 035 to change the version of PDS86.   *   DOC FILE
//*            Also, load modules from File 731 (ADIS, CINMX,       *   DOC FILE
//*            EESCB, INMXD) and from File 797 (LLWA, LWATMGR,      *   DOC FILE
//*            TSUB) were added.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 120 to add articles that DO NOT       *   DOC FILE
//*            belong to NaSPA.  One is on TSO Authorization        *   DOC FILE
//*            Tables, and the other is about TSO Control Blocks.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 134 from Greg Price to update the     *   DOC FILE
//*            REVIEW command to Level 42.0.  REVIEW now has an     *   DOC FILE
//*            UPDATE capability which is like ISPF EDIT (done      *   DOC FILE
//*            from READY mode if you want) and it is no longer     *   DOC FILE
//*            strictly a file browser.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 135 to change the REVIEW program      *   DOC FILE
//*            and OFFLOAD program from Greg Price, and also the    *   DOC FILE
//*            PDS 8.6 program (ISO dates) from John Kalinich.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 182 which is PDS 8.6 from John        *   DOC FILE
//*            Kalinich.  Current level is 8.6.09.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 185 from Sam Golob to add some        *   DOC FILE
//*            entries to the Auth Table assemblies, add an Auth    *   DOC FILE
//*            Table assembly for the LLWA program (File 797),      *   DOC FILE
//*            add an article on TSO Auth Tables, add some very     *   DOC FILE
//*            powerful programs to the load library, and add       *   DOC FILE
//*            help and examples for the TSUB program (source on    *   DOC FILE
//*            File 797).                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 247 from Sam Golob to add the latest  *   DOC FILE
//*            version of load module BDMSCAN from his commercial   *   DOC FILE
//*            product, and allow its public use.  BDMSCAN (which   *   DOC FILE
//*            reports on the status of a Broadcast Dataset) can    *   DOC FILE
//*            now show how many (and which) NOTICE records are     *   DOC FILE
//*            active, and it can detect an error condition with    *   DOC FILE
//*            empty User Message records, that other programs      *   DOC FILE
//*            could not detect until now.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 264 from Sam Golob to add the UKEYCSA *   DOC FILE
//*            authorized TSO command.  The LOOK program, which is  *   DOC FILE
//*            a tremendous aid to browsing virtual storage, acts   *   DOC FILE
//*            by allocating User Key storage in Common Storage.    *   DOC FILE
//*            As of z/OS 1.8, and as a default in z/OS 1.9 and     *   DOC FILE
//*            later, this is now a Parmlib setting in the DIAGxx   *   DOC FILE
//*            member and is not allowed.  So, to be able to use    *   DOC FILE
//*            LOOK temporarily, you can disable the restriction    *   DOC FILE
//*            using the UKEYCSA program temporarily, use LOOK, and *   DOC FILE
//*            then set the restriction back, using UKEYCSA again.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Updates to File 312 from Lionel Dyck.  Packages      *   DOC FILE
//*            FTPB, LISTPRC, and PLPISPF were upgraded.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Updates to File 314 from Lionel Dyck.  Packages      *   DOC FILE
//*            XMITIP, TXT2HTML, TXT2PDF, and TXT2RTF were          *   DOC FILE
//*            upgraded.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 321 from Roland Schiradin to upgrade  *   DOC FILE
//*            the COBANALZ program.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 323 (REXX Function Package) from      *   DOC FILE
//*            Gerard Nicol.  Former Files 323 and 324 have been    *   DOC FILE
//*            combined into File 323.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Addition of File 324 from Gerard Nicol to contain    *   DOC FILE
//*            a package that checks how HSC (from StorageTek)      *   DOC FILE
//*            is doing.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to the documentation for File 397 which is    *   DOC FILE
//*            from Frank Clarke.  This file contains conversion    *   DOC FILE
//*            routines in REXX to convert numeric values to, and   *   DOC FILE
//*            from, packed decimal format.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 404 (which is TSSO).  A fix to the    *   DOC FILE
//*            TSSOSS09 module was necessary at the z/OS 1.8 and    *   DOC FILE
//*            higher, levels.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Updates to File 434 from Mark Zelden.  Members:      *   DOC FILE
//*            $SNGLTSO, FINDMOD, IPLINFO, ISPCMDSA, ONEPAKZ8,      *   DOC FILE
//*            REXXSTOR, TSOB, TSOE, TSOR, TSOV, TWOPAKZ8           *   DOC FILE
//*            have been added or updated.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Updates to File 452 from Dan Dalby.  This is a       *   DOC FILE
//*            complete reshipment of his programs, plus a new      *   DOC FILE
//*            version of his STEPLIB program, marked in this       *   DOC FILE
//*            file as member STEPLIBN.  The same source is         *   DOC FILE
//*            found in File 797 as member STEPLIB.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 492 from Roland Schiradin, to         *   DOC FILE
//*            upgrade SHOWzOS to Version 7.17.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 612 to fix an assembly error in the   *   DOC FILE
//*            LOCATE program.  IBM's YREGS "register equate"       *   DOC FILE
//*            macro was added to the source deck.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 614 to add load modules for SHOWzOS   *   DOC FILE
//*            7.17 that work for z/OS 1.8, and z/OS 1.9; these     *   DOC FILE
//*            have to be separate assemblies - the macros are      *   DOC FILE
//*            incompatible for SHOWzOS (at the 1.8 and 1.9         *   DOC FILE
//*            levels).                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 642 from Rich Hobt, to update the     *   DOC FILE
//*            AFCLOGR1 program.  The AFCSMP1 program is the same   *   DOC FILE
//*            as it was in the last version of the tape.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 731 which contains TSO-related        *   DOC FILE
//*            programs from Sam Golob (to show and/or manipulate   *   DOC FILE
//*            TSO/E control blocks).  The ADIS program was added.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Update to File 738 from Terry Miller, with a new     *   DOC FILE
//*            version of the REORGVS program.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Update to File 757 from Ken Fitzgerald, with the     *   DOC FILE
//*            new V1R1M09 version of his LOGGRASM package.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Update to File 770 from Deru Sudibyo with a newer    *   DOC FILE
//*            version of his zCBT automation program.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Update to File 771 from Karl-Heinz Doppelfeld,       *   DOC FILE
//*            with a new version of his ICSF statistics display    *   DOC FILE
//*            program called ICSFSTAT.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Update to File 779 from Bill Bass to correct a bug   *   DOC FILE
//*            in his symbolic substitution program called SYMBSUB. *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Addition of File 781 from John McKown, containing    *   DOC FILE
//*            his modification to IBM's RACSEQ program that they   *   DOC FILE
//*            allow to be distributed or modified.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*            This is a modification of the IBM supplied RACSEQ    *   DOC FILE
//*            program.  It has been modified to be able to write   *   DOC FILE
//*            its output in XML format.  It has also been          *   DOC FILE
//*            extended to write to a specified DDName, DSName,     *   DOC FILE
//*            Sysout class, or UNIX Path.  When writing to a       *   DOC FILE
//*            DSName, it can either be an existing DSName, or a    *   DOC FILE
//*            new one.  If it is a new one, the DSName will be     *   DOC FILE
//*            allocated with either the system defaults, the SMS   *   DOC FILE
//*            defaults as assigned by the ACS routines, or with    *   DOC FILE
//*            the characteristics specified via a USING() and/or   *   DOC FILE
//*            LIKE() parameter.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Addition of File 782 from David Trout (aka Fish)     *   DOC FILE
//*            and contains his PC program to look at the contents  *   DOC FILE
//*            of an AWS-format (virtual) tape.  Member AWSBR152    *   DOC FILE
//*            is a folded-over FB-80 file which is the image of    *   DOC FILE
//*            a zip file of the executable.  Member SOURCZIP is    *   DOC FILE
//*            a zip of the source code.  These members are meant   *   DOC FILE
//*            to be downloaded in BINARY to a PC and used there.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Addition of File 783, which is the PL/I Scientific   *   DOC FILE
//*            Subroutine package for OS/360 (public domain).       *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Addition of File 784 from John McKown, which         *   DOC FILE
//*            contains two implementations of a web page under     *   DOC FILE
//*            z/OS Unix System Services that allow the user to     *   DOC FILE
//*            obtain ISPF 3.4-like information about datasets.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Addition of File 785 from Karl-Heinz Doppelfeld      *   DOC FILE
//*            and contatins 2 REXXes and an edit macro to          *   DOC FILE
//*            substitute system symbols into JCL.  The package     *   DOC FILE
//*            is called JCLSYMB.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        34  Addition of File 786 from Paul Gilmartin and         *   DOC FILE
//*            contains a program (a POSIX shell script) to         *   DOC FILE
//*            separate the CBTF1.zip file from www.cbttape.org     *   DOC FILE
//*            into individual HTML datasets.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        35  Addition of File 787 from Karl-Heinz Doppelfeld      *   DOC FILE
//*            and contains an online File Transfer Utility for     *   DOC FILE
//*            sending data to a generated list of remote hosts.    *   DOC FILE
//*            The list of remote hosts will be generated from      *   DOC FILE
//*            ClonePlex System table BWSOSDAT.  The target name    *   DOC FILE
//*            can include system symbols like &SYSNAME, &SYSUQ,    *   DOC FILE
//*            &SYSCLONE and &SYSRZ.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        36  Addition of File 788 from Craig Schneiderwent.       *   DOC FILE
//*            This file contains the MA1K application for MQ       *   DOC FILE
//*            Series, which was authored by him.  This             *   DOC FILE
//*            application used to be distributed on an IBM         *   DOC FILE
//*            website, but it is now distributed here.  The        *   DOC FILE
//*            purpose of this application is to encapsulate        *   DOC FILE
//*            triggered message processing for MQSeries            *   DOC FILE
//*            applications triggered in CICS TS.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        37  Addition of File 789 from Al Ferguson and contains   *   DOC FILE
//*            a batch job to automate and run IBM's SCRT           *   DOC FILE
//*            (Sub-Capacity Reporting Tool) report every month     *   DOC FILE
//*            automatically, and to email the result to IBM.       *   DOC FILE
//*            This will help all of you who have to do this, and   *   DOC FILE
//*            use a person to perform all the operations           *   DOC FILE
//*            manually.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        38  Addition of File 790 from Dave Danner (by way of     *   DOC FILE
//*            Ken Tomiak) and contains his SRS (Sysout Retrieval   *   DOC FILE
//*            Services) package.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*            SYSOUT Retrieval Services (SRS) is a product that    *   DOC FILE
//*            retrieves data from the JES spool using the SYSOUT   *   DOC FILE
//*            Application Program Interface (SAPI).  SRS supports  *   DOC FILE
//*            a robust set of SYSOUT selection criteria            *   DOC FILE
//*            (documented in the $ABOUT member of this pds) that   *   DOC FILE
//*            can be specified by the user on the EXEC PARM=       *   DOC FILE
//*            statement.  Using these criteria, SRS builds the     *   DOC FILE
//*            necessary data structures and calls SAPI asking for  *   DOC FILE
//*            SYSOUT data that matches the selection request.  If  *   DOC FILE
//*            JES finds and returns a spool data set, SRS copies   *   DOC FILE
//*            the data to a file specified by the user.  There's   *   DOC FILE
//*            more to it than that.  See the documentation.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        39  Addition of File 791 from Anthony Rudd (by way of    *   DOC FILE
//*            Ken Tomiak) and contains a REXX function written in  *   DOC FILE
//*            Assembler, that accomplishes GETMAIN and FREEMAIN    *   DOC FILE
//*            functionality from within REXX.  For further         *   DOC FILE
//*            documentation, see comments in the GETMAIN code.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        40  Addition of File 792 from Keith Cowden               *   DOC FILE
//*            and contains an updated copy of the DISKMAP          *   DOC FILE
//*            program from File 260.  This version of DISKMAP      *   DOC FILE
//*            contains the EAV enhancements from z/OS 1.10 but     *   DOC FILE
//*            it also runs on lower levels of z/OS and before.     *   DOC FILE
//*                                                                 *   DOC FILE
//*            Please address inquiries to Sam Golob:               *   DOC FILE
//*            sbgolob@cbttape.org.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*            Source code for DISKMAP is contained in this file,   *   DOC FILE
//*            but it can only be assembled with the z/OS 1.10      *   DOC FILE
//*            versions of the IECSDSL1 and TRKADDR macros.         *   DOC FILE
//*            Therefore we have included an already assembled      *   DOC FILE
//*            load library in XMIT format, as member LOADLIB.      *   DOC FILE
//*            If you have z/OS 1.10, you can assemble DISKMAP      *   DOC FILE
//*            for yourself.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*            All z/OS 1.10 macros needed for assembly (I think):  *   DOC FILE
//*              CVAFDSM DCBE IECSDSL1 OBTAIN TRKADDR               *   DOC FILE
//*                                                                 *   DOC FILE
//*        41  Addition of File 793 from Richard Rice.  This file   *   DOC FILE
//*            contains a nice modification of SDF (Spool Display   *   DOC FILE
//*            Facility) for JES3.  We have to consider this an     *   DOC FILE
//*            alpha test version (until somebody tries it and      *   DOC FILE
//*            verifies it) for the following reason:  Richard      *   DOC FILE
//*            has SDF 2.9 (a backleveled version of SDF) running   *   DOC FILE
//*            on his JES3 system.  The source code in this file    *   DOC FILE
//*            was forward-fitted to SDF 3.4 (the current version)  *   DOC FILE
//*            and it assembled cleanly.  But it was not tested     *   DOC FILE
//*            while running SDF 3.4.  Someone will have to run     *   DOC FILE
//*            this version with SDF 3.4 and send any changes       *   DOC FILE
//*            back to me (sbgolob@cbttape.org) so this file will   *   DOC FILE
//*            then be a "tested version".                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        42  Addition of File 794 from Daniel F. Gaeta which      *   DOC FILE
//*            contains a useful REXX function.                     *   DOC FILE
//*            The RXMEM function has the following features :      *   DOC FILE
//*              - to manage token pair service, using IEANTxx      *   DOC FILE
//*                modules                                          *   DOC FILE
//*              - to manage GETMAIN and FREEMAIN memory            *   DOC FILE
//*              - to manage linked list options                    *   DOC FILE
//*            As I am working on improvements, I am not            *   DOC FILE
//*            delivering the source code.  Just REXX samples.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        43  Addition of File 795 which is an ALPHA TEST          *   DOC FILE
//*            version of an HTTP Server written in Assembler by    *   DOC FILE
//*            Richard Rice.  This package DOES NOT WORK PROPERLY   *   DOC FILE
//*            as is.  See member $$NOTE1 in the package.           *   DOC FILE
//*                                                                 *   DOC FILE
//*            The reason why we are putting this package out, IS   *   DOC FILE
//*            TO GET SOMEBODY (who knows what he/she is doing) TO  *   DOC FILE
//*            FIX IT!  IF YOU KNOW THIS STUFF, PLEASE TRY TO GET   *   DOC FILE
//*            IT TO WORK, and then send it back to me.             *   DOC FILE
//*                                                                 *   DOC FILE
//*            email: sbgolob@cbttape.org                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        44  Addition of File 796 from Lindy Mayfield.  This      *   DOC FILE
//*            is a collection of his utilities.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*            So far there are two utilities:                      *   DOC FILE
//*                                                                 *   DOC FILE
//*            1) A Rexx/ISPF exec that shows control blocks and    *   DOC FILE
//*               information regarding 522 timeouts.               *   DOC FILE
//*            2) A Rexx assembler function to write SMF records.   *   DOC FILE
//*               Uses BPX1SMF.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        45  Addition of File 797 which is the combined work      *   DOC FILE
//*            of Dan Dalby and Sam Golob.  This file contains      *   DOC FILE
//*            programs which can dynamically reload, or otherwise  *   DOC FILE
//*            control, the copies of your own TSO session's        *   DOC FILE
//*            "authorization tables".  These are IKJEFTE2          *   DOC FILE
//*            (AUTHCMD), IKJEFTE8 (AUTHPGM), IKJEFTAP (AUTHTSF),   *   DOC FILE
//*            and IKJEFTNS (NOTBKGND).  Since these are the tables *   DOC FILE
//*            which your own TSO session actually uses, the scope  *   DOC FILE
//*            of the reloading is to your own TSO sesion only,     *   DOC FILE
//*            and the effect of the reloading or altering of the   *   DOC FILE
//*            tables is immediate.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*            Dan Dalby is the author of the LWATMGR program.      *   DOC FILE
//*            Sam Golob is the author of the LLWA and TSUB         *   DOC FILE
//*            programs.  If you install (and authorized in the     *   DOC FILE
//*            E2 table) either LWATMGR or LLWA and you authorize   *   DOC FILE
//*            Dan Dalby's STEPLIB program somewhere in there,      *   DOC FILE
//*            you can re-create the authorizations of an APF-      *   DOC FILE
//*            authorized STEPLIB, without actually having one      *   DOC FILE
//*            in your TSO session's LOGON PROC.  See instructions  *   DOC FILE
//*            in the file, and the member called @ARTICLE.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        46  Addition of File 798 from Kevin Kang Dengsong and    *   DOC FILE
//*            contains two job scheduling systems written in       *   DOC FILE
//*            COBOL.                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        47  Addition of File 799 from Kevin Kang Dengsong and    *   DOC FILE
//*            contains a package to process SMF Type 30 records,   *   DOC FILE
//*            written in COBOL.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        48  Addition of File 800 from Enrico Sorichetti which    *   DOC FILE
//*            contains a RECEIVE/UNXMIT tool that works on a PC.   *   DOC FILE
//*            I am just offering Enrico's zip file here, because   *   DOC FILE
//*            the programs are PC REXX programs and they are not   *   DOC FILE
//*            for MVS use, directly.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*            You should download the ZIP member of this file to   *   DOC FILE
//*            a PC in BINARY (no translation!) and unzip it on     *   DOC FILE
//*            the PC.  Since I am not knowledgeable in this area,  *   DOC FILE
//*            I'd suggest that you email Enrico if you have any    *   DOC FILE
//*            questions.  (SG - 2008/12/19)                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        49  Addition of File 801 from Rick Turnbull which        *   DOC FILE
//*            contains an EXEC called XAML01 that can produce      *   DOC FILE
//*            browse-able bar charts in Microsoft Silverlight      *   DOC FILE
//*            XAML format.  See the included Word Doc file or      *   DOC FILE
//*            PDF Doc file.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-476 SECTION                                          *   DOC FILE
//*  V-476  CHANGES FOR VERSION 476 APR 18, 2008                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035 to change the version of PDS86,   *   DOC FILE
//*            to fix a bug in the RELEASE command, the OFFLOAD     *   DOC FILE
//*            program, and the TAPEMAP program.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 093 to fix a source bug in the        *   DOC FILE
//*            OFFLOADW source code.  Fix is from Greg Price.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 094 from Michael Cleary, to bring     *   DOC FILE
//*            the level of DAF to 1.4.8.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 120 from Sam Golob to add more        *   DOC FILE
//*            articles.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Updates to File 135 to reflect the new level of      *   DOC FILE
//*            PDS 8.6.08.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 171 from Richard Rice, to add a new   *   DOC FILE
//*            utility called DLIUTILS (or to at least fix it).     *   DOC FILE
//*            Also, DITTO which used to be here, has been deleted  *   DOC FILE
//*            because on later z/OS systems, the fake open will    *   DOC FILE
//*            crash the system, so it was eliminated altogether    *   DOC FILE
//*            to avoid any possible problems.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 182 from John Kalinich, to upgrade    *   DOC FILE
//*            the PDS package to level 8.6.08.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 296 from John Kalinich, to set the    *   DOC FILE
//*            source code of the RELEASE command so that SWA above *   DOC FILE
//*            the line is the default.  If you have an older       *   DOC FILE
//*            system, you can still assemble it the other way.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 299 from Sam Golob, to temporarily    *   DOC FILE
//*            regress the changes to TAPEMAP from Steve Myers      *   DOC FILE
//*            that put in the "big file sequence number support",  *   DOC FILE
//*            because of a small problem, but to include the FDR   *   DOC FILE
//*            device support code from John Kalinich, which John   *   DOC FILE
//*            had gotten from Bruce Black (of blessed memory).     *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 312 from Lionel Dyck to raise the     *   DOC FILE
//*            level of CSVEDIT to 1.11.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 314 from Lionel Dyck to raise the     *   DOC FILE
//*            level of XMITIP to 08.04.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 322 which is a collection of          *   DOC FILE
//*            programs that perform a "sleep" function similar     *   DOC FILE
//*            to what you find in VM.  The ILBOWAT0 function       *   DOC FILE
//*            written in COBOL was supplied by Joseph Caughman.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 434 from Mark Zelden with multiple    *   DOC FILE
//*            changes.  Members changed were:                      *   DOC FILE
//*            $$CHANGE, $$INSTAL, HLISTB, HLISTBL, HLISTM, HLISTML *   DOC FILE
//*            IPLINFO, ISPCMDSA, LOGRREXX, RXSTOR64, TWOPAKZ8.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 529 to add a note that mentions that  *   DOC FILE
//*            some of the materials to assemble programs in File   *   DOC FILE
//*            529 can be found in File 527.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 566 from Sam Bass to fix his SPY      *   DOC FILE
//*            (i.e. CONSOLE) program.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 571 from Jim Morrison to fix a bug    *   DOC FILE
//*            in RECV370.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 642 from Rich Hobt to make            *   DOC FILE
//*            enhancements to AFCLOGR1 and AFCSMP1.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 757 from Ken Fitzgerald, to raise     *   DOC FILE
//*            the level of the LOGGRASM package to V1R1M06.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 758 from Craig Schneiderwent to       *   DOC FILE
//*            add fixes to the LOADWORD package.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 766 from Stephen McColley which       *   DOC FILE
//*            contains (what used to be) the Mellon Mods for       *   DOC FILE
//*            JES2.  This set of mods applies to z/OS 1.7 and      *   DOC FILE
//*            z/OS 1.8.  They have also added some extra mods      *   DOC FILE
//*            to JES2 of their own.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 776 from Edgar Hoffmann to enhance    *   DOC FILE
//*            RECV390 that runs on the PC.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Addition of File 778 from Daniel F. Gaeta which      *   DOC FILE
//*            contains a set of programs to access the SMP/E       *   DOC FILE
//*            API called GIMAPI through REXX variables.  These     *   DOC FILE
//*            programs can produce customized reports from SMP/E   *   DOC FILE
//*            zones.                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Addition of File 779 from Bill Bass which contains   *   DOC FILE
//*            a sophisticated COBOL program that can read SDSF     *   DOC FILE
//*            job output and produce symbolic substitutions of     *   DOC FILE
//*            the variables in the JCL.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Addition of File 780 from Daniel F. Gaeta, which     *   DOC FILE
//*            is an interface to use REXX to create panel-like     *   DOC FILE
//*            effects without ISPF.                                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-475 SECTION                                          *   DOC FILE
//*  V-475  CHANGES FOR VERSION 475 DEC 20, 2007                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 120 to add several more articles.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 134 from Greg Price to enhance his    *   DOC FILE
//*            excellent REVIEW browsing (and file editing)         *   DOC FILE
//*            program.  REVIEW is now at Level 41.0.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 135 from Greg Price, to reflect the   *   DOC FILE
//*            load modules for the new level of REVIEW (41.0).     *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 171 from Richard Rice.  DITTO was     *   DOC FILE
//*            deleted, because its "fake open" processing now      *   DOC FILE
//*            does not work on the latest z/OS systems.  A new     *   DOC FILE
//*            application called DLIUTILS was added.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 183 from Gilbert Saint-flour to fix   *   DOC FILE
//*            many of his utilities.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 185 to add some names to the auth     *   DOC FILE
//*            tables and to add two new programs to the LOADLIB    *   DOC FILE
//*            member.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  No change to File 299.  A change was applied, but    *   DOC FILE
//*            it was then taken out.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 312 from Lionel Dyck, to upgrade      *   DOC FILE
//*            his CA-View Extract ISPF Dialog to accommodate a     *   DOC FILE
//*            new CA-View release from Computer Associates.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 321 from Roland Schiradin to adjust   *   DOC FILE
//*            his COBANAL program to the newest COBOL from IBM.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 434 from Mark Zelden to upgrade       *   DOC FILE
//*            many of his utilities and members.  Updated          *   DOC FILE
//*            members are:  $$$INDEX, $$CHANGE, APFVER,            *   DOC FILE
//*            CATSRCH, CLONERES, CLONERSO, COLADD, COLUTIL,        *   DOC FILE
//*            FINDMOD, INSLINE, IPLINFO, LPROG, PREFIX,            *   DOC FILE
//*            PREFIX2, RDATE, RDATEF, REXXMEM, RXSTOR64,           *   DOC FILE
//*            SUFFIX, SW.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 492 from Roland Schiradin to supply   *   DOC FILE
//*            SHOWzOS Release 7.16, which is up-to-date for both   *   DOC FILE
//*            z/OS 1.8 and 1.9.  SHOWzOS 7.16 must be assembled    *   DOC FILE
//*            differently (with the appropriate level of macros)   *   DOC FILE
//*            for z/OS 1.8 as opposed to z/OS 1.9.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 495 from Tom Conley, to bring his     *   DOC FILE
//*            DYNISPF (Dynamic Allocation of an ISPF Application)  *   DOC FILE
//*            package to the V4R1 level.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 614 from Sam Golob which contains     *   DOC FILE
//*            load module libraries in TSO XMIT format, for many   *   DOC FILE
//*            different levels of SHOWMVS and SHOWzOS (originally  *   DOC FILE
//*            from File 492, and more anciently, from File 183).   *   DOC FILE
//*            The reason why these materials are not included in   *   DOC FILE
//*            File 492, is that SHOWzOS is sensitive to different  *   DOC FILE
//*            release levels of each component, and ideally, each  *   DOC FILE
//*            assembly of SHOWzOS should accurately reflect the    *   DOC FILE
//*            actual level of each component that is resident on   *   DOC FILE
//*            your system.  Problem is that assembling SHOWzOS     *   DOC FILE
//*            also requires a very high release and PTF level of   *   DOC FILE
//*            HLASM (the High Level Assembler), and not all shops  *   DOC FILE
//*            have that necessary level.  So File 614 was created  *   DOC FILE
//*            for shops that can't assemble the latest release of  *   DOC FILE
//*            SHOWzOS.  The SHOWzOS release 7.16 assembly on z/OS  *   DOC FILE
//*            1.8 is now included here.  Not yet z/OS 1.9.  I      *   DOC FILE
//*            don't have the macros yet.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 708 from Glenn Siegel.  This is the   *   DOC FILE
//*            MPFXTALL general MPF exit facility which responds    *   DOC FILE
//*            to multiple conditions and messages on the system.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 713, only to change the current       *   DOC FILE
//*            email address of Steve Meyers.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 731 from Sam Golob, to add another    *   DOC FILE
//*            program to this collection of TSO/E control block    *   DOC FILE
//*            display and manipulation utilities.  The new         *   DOC FILE
//*            utility, called ALPL (which must be APF-authorized   *   DOC FILE
//*            in order to do any changes) will display, and/or     *   DOC FILE
//*            change the default DISP (OLD or SHR) for the ALLOC   *   DOC FILE
//*            command, if OLD or SHR is not specified in an        *   DOC FILE
//*            invocation of an ALLOC command.  This is a           *   DOC FILE
//*            globally set quantity, and ALPL can change it from   *   DOC FILE
//*            OLD to SHR and vice-versa.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 741 from Bill Godfrey, to fix his     *   DOC FILE
//*            MAKEB64 program that encodes/decodes a text file     *   DOC FILE
//*            to/from BASE64 format.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  No change to File 749 from Gilbert Saint-flour.      *   DOC FILE
//*            This file is a collection of his utilities, that     *   DOC FILE
//*            were adapted to work on MVS 3.8 (under Hercules).    *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 757 which is the LOGGRASM package     *   DOC FILE
//*            from Ken Fitzgerald.  The new level of LOGGRASM      *   DOC FILE
//*            is V1R1M04 - Fix Pack 4.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Addition of File 764 from Alex Kara.  This is a      *   DOC FILE
//*            collection of several utilities, called CATSRCH,     *   DOC FILE
//*            TTL, and XMEMSTOR.  CATSRCH is originally from       *   DOC FILE
//*            Mark Zelden with the SAYIT option added by Alex.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Addition of File 765 from Stephen Odo, which         *   DOC FILE
//*            contains a home-grown forms based authentication     *   DOC FILE
//*            system for the IBM HTTP Server for z/OS.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Addition of File 766 from Stephen McColley, which    *   DOC FILE
//*            contains the Mellon Mods for JES2, for z/OS 1.7      *   DOC FILE
//*            and 1.8, together with some extensions to them.      *   DOC FILE
//*            Very valuable for those shops which use extensions   *   DOC FILE
//*            to JES2 standard capabilites.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Addition of File 767 from Daniel Gaeta, which        *   DOC FILE
//*            contains a frontend for TRSMAIN to both terse and    *   DOC FILE
//*            unterse files in TRSMAIN compress format.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Addition of File 768 from Rick Bourgeois, which      *   DOC FILE
//*            adapts Sam Golob's VTT2**** programs to convert      *   DOC FILE
//*            real tapes back or forth to AWS or FLEX-ES Faketape  *   DOC FILE
//*            (TM) format, to run on CMS under VM.  Sam Golob's    *   DOC FILE
//*            original package for MVS systems, is on File 533.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Addition of File 769 from Robert Prins, which is     *   DOC FILE
//*            a collection of REXX execs that are run as ISPF      *   DOC FILE
//*            edit macros, which turn code (from various           *   DOC FILE
//*            programming languages) into HTML source.  Optionally *   DOC FILE
//*            these REXXes will invoke a browser to display the    *   DOC FILE
//*            resulting HTML code.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Addition of File 770 from Deru Sudibyo which         *   DOC FILE
//*            contains a free z/OS event management system; in     *   DOC FILE
//*            other words, this is a kind of Automated Operations  *   DOC FILE
//*            System.  This system uses a custom REXX function     *   DOC FILE
//*            package that is supplied with the system.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Addition of File 771 from Karl-Heinz Doppelfeld,     *   DOC FILE
//*            which contains an ICSF (Interactive Cryptographic    *   DOC FILE
//*            Service Facility) monitor that is written in REXX.   *   DOC FILE
//*            This package will display various ICSF statistics.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Addition of File 772 from Stephen E. Bacher.  This   *   DOC FILE
//*            is a large collection of programs in various         *   DOC FILE
//*            languages, which represents a portion of Steve's     *   DOC FILE
//*            public work.  A lot of useful stuff is here, as      *   DOC FILE
//*            well as programming examples in Assembler, C, and    *   DOC FILE
//*            PL/I.  Worth a good look.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Addition of File 773 from Arthur Fichtl.  This file  *   DOC FILE
//*            contains an interactive disassembler which can       *   DOC FILE
//*            interpret portions of a storage dump, or any chunk   *   DOC FILE
//*            of dumped storage, as Assembler instructions.  It    *   DOC FILE
//*            should prove highly useful to all of you folks who   *   DOC FILE
//*            make the effort to learn how to use it.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Addition of File 774 from Richard L. Rice, which     *   DOC FILE
//*            contains a reworked version of the CBT973 compress   *   DOC FILE
//*            and decompress program that is used to compress      *   DOC FILE
//*            FB-80 format files on the (actual) CBT Tape.  There  *   DOC FILE
//*            is one simple extension here, that is, if all of     *   DOC FILE
//*            the characters in an 80-byte record are the same,    *   DOC FILE
//*            then the record will compress into a five-byte       *   DOC FILE
//*            record, instead of expanding to a 94-byte record     *   DOC FILE
//*            (if the characters are not all blanks).              *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Addition of File 775 from Craig Schneiderwent.       *   DOC FILE
//*            This file contains a proof-of-concept application    *   DOC FILE
//*            allowing CICS COBOL to respond to HTTP requests.     *   DOC FILE
//*            This application and the accompanying subject        *   DOC FILE
//*            material is the topic of a SHARE presentation by     *   DOC FILE
//*            this author.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Addition of File 776 from Edgar Hoffmann which       *   DOC FILE
//*            contains a version of RECV390 that expands a file    *   DOC FILE
//*            in TSO XMIT format.  This program runs on a PC,      *   DOC FILE
//*            and is not initially designed to run on an MVS       *   DOC FILE
//*            system.  Therefore, it is presented as its original  *   DOC FILE
//*            zipped file (folded into FB-80 on MVS) which         *   DOC FILE
//*            expands into a C program (with appropriate doc).     *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Addition of File 777 from Philippe Cochy, which      *   DOC FILE
//*            contains a REXX exec to read a dcollect report, and  *   DOC FILE
//*            check disk space occupancy.  This REXX contains an   *   DOC FILE
//*            original algorithm to filter dataset names.          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-474 SECTION                                          *   DOC FILE
//*  V-474  CHANGES FOR VERSION 474 AUG 06, 2007                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  This tape now contains 780 file slots.  That should  *   DOC FILE
//*            hold us for a while.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035 to reflect changes in PDS 8.6     *   DOC FILE
//*            and other programs.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 120 to add more articles.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 135 to reflect changes in PDS 8.6     *   DOC FILE
//*            and other programs.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 182 which is the PDS 8.6 utility      *   DOC FILE
//*            package.  Addition functionality was incorporated,   *   DOC FILE
//*            and the level is 8.6.06 currently.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 185 to add more names to the tables,  *   DOC FILE
//*            and tested on z/OS 1.8.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 234 from B. Einsargueix and John      *   DOC FILE
//*            Kalinich, to fix a bug in the Disassembler.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 247 from Sam Golob to fix a few       *   DOC FILE
//*            minor bugs.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 297 from Mike Cleary to enhance his   *   DOC FILE
//*            GRS package to the 1.4.2 level.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 299 (TAPEMAP) from John Kalinich, to  *   DOC FILE
//*            add new device type definitions.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 312 from Lionel Dyck et al, to fix    *   DOC FILE
//*            and enhance CMT, FTPB, and LISTPROC.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 313 from Lionel Dyck et al, to fix    *   DOC FILE
//*            and enhance SDSFEXT.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 314 from Lionel Dyck et al, to fix    *   DOC FILE
//*            and enhance XMITIP to the 5.68 level.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 404 from Larry Lawler et al, to fix   *   DOC FILE
//*            TSSO so that it will work under z/OS 1.8, where      *   DOC FILE
//*            only 4-byte console name support still exists, and   *   DOC FILE
//*            the concept of Master Console has been eliminated.   *   DOC FILE
//*            The previous version of TSSO is still in this file,  *   DOC FILE
//*            in PDSLOAD (IEBUPDTE-like) format, as member         *   DOC FILE
//*            $$PREZ18.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 434 from Mark Zelden, to include      *   DOC FILE
//*            numerous changes.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 452 from Dan Dalby, which is a        *   DOC FILE
//*            complete refresh of his collection of programs       *   DOC FILE
//*            and utilities.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 492 from Roland Schiradin, to include *   DOC FILE
//*            SHOWzOS 7.15.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 510 to include the current email      *   DOC FILE
//*            address of author Ricardo Paranhos, who is now       *   DOC FILE
//*            living in Brazil.  (Thanks to Philippe Leite.)       *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 520 which is Robin Ryerse's REXX      *   DOC FILE
//*            function collection.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 523 from Paul Dion, which is his      *   DOC FILE
//*            SMFSLCT (SMF Selection Program), a general utility   *   DOC FILE
//*            to select and copy SMF records from current datasets *   DOC FILE
//*            and from archived datasets.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 558 from Sam Golob, to fix several    *   DOC FILE
//*            of Dick Thornton's programs so they display Y2K      *   DOC FILE
//*            format dates properly.  (MODINFO, LMODHIST, PDSHIST) *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 566 from Sam Bass, to add his console *   DOC FILE
//*            display program that works under TSO.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 589 from Philippe Leite, to enhance   *   DOC FILE
//*            his HSC package, and to add a program that issues    *   DOC FILE
//*            Hercules commands under MVS (similar to the VM       *   DOC FILE
//*            command type programs that run from TSO).            *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 606 from Dave Cartwright, to Reed     *   DOC FILE
//*            Petty's AWSSL program that creates an AWS or a HET   *   DOC FILE
//*            format tape, from datasets.  The fix is to allow     *   DOC FILE
//*            for 64K block sizes on the tapes.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Update to File 614 to add load modules and assembly  *   DOC FILE
//*            JCL for SHOWzOS 7.15.  Source is on File 492.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Update to File 647 which is Level 1.9.3 of PARSEXML  *   DOC FILE
//*            (a REXX XML Parser) from Andrew Armstrong.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Update to File 708 from Glenn Siegel, which is his   *   DOC FILE
//*            MPFXTALL generalized MPF exit program.  Many         *   DOC FILE
//*            improvements have been made over older versions.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Update to File 731 from Sam Golob (TSO commands to   *   DOC FILE
//*            display or alter some TSO/E control block contents)  *   DOC FILE
//*            to add Mark Zelden's TSOV and TSOR execs, which      *   DOC FILE
//*            capture SYSOUTTRAP output from PUTLINE-enabled TSO   *   DOC FILE
//*            commands and ISPF VIEW, or TSO REVIEW the outputs.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Update to File 739 from Ron Brown, to enhance his    *   DOC FILE
//*            powerful ISPF command table handling package to      *   DOC FILE
//*            work under z/OS 1.7.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Update to File 743 from Terry Miller, to enhance     *   DOC FILE
//*            his MODLIST load module display program.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Addition of File 750 from Ted MacNeil.  This is      *   DOC FILE
//*            a nice collection of useful ISPF REXX execs for      *   DOC FILE
//*            session setup, which Ted wrote for the IBM Systems   *   DOC FILE
//*            Magazine.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Addition of File 751 from "Somitcw" which contains   *   DOC FILE
//*            tape handling code that is particularly applicable   *   DOC FILE
//*            in a P/390 or FLEX-ES environment.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Addition of File 752 from Robin Ryerse, which is     *   DOC FILE
//*            an ISPF Profile dumping tool, written in REXX, with  *   DOC FILE
//*            an Assembler subroutine.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Addition of File 753 from Robin Ryerse, which is     *   DOC FILE
//*            his REXX function package.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        34  Addition of File 754 from Henrik Salminen, which     *   DOC FILE
//*            is a (mostly) REXX based tool (with ISPF panels)     *   DOC FILE
//*            to search ISPF profiles.  I have found this tool     *   DOC FILE
//*            very useful (SBG).                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        35  Addition of File 755 from Scott Vetter, which is a   *   DOC FILE
//*            version of the JRP (JES2 Remote Printers) package    *   DOC FILE
//*            that runs on MVS 3.8.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        36  Addition of File 756 from Daniel Gaeta which is a    *   DOC FILE
//*            REXX-based JCL preprocessor, with very powerful      *   DOC FILE
//*            capabilities.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        37  Addition of File 757 from Kenneth Fitzgerald         *   DOC FILE
//*            which contains source and doc for a system to        *   DOC FILE
//*            teach Assembler Language to college students and     *   DOC FILE
//*            other beginners.  This system is called LOGGRASM.    *   DOC FILE
//*            From the looks of it, it might be helpful for the    *   DOC FILE
//*            rest of us, too.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        38  Addition of File 758 from Craig Schneiderwent and    *   DOC FILE
//*            contains a package to search loadable modules for    *   DOC FILE
//*            a specified string.  The package is called           *   DOC FILE
//*            LOADWORD.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        39  Addition of File 759 from Kevin Wailes, and          *   DOC FILE
//*            contains an implementation of the CICS MQ api        *   DOC FILE
//*            crossing exit which traces all MQ api calls for      *   DOC FILE
//*            all or selected transactions.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        40  Addition of File 760 which is from Ken Tomiak and    *   DOC FILE
//*            is his collection of PC and z/OS based tools         *   DOC FILE
//*            geared for both novices and gurus alike.  A good     *   DOC FILE
//*            portion of the collection is geared towards          *   DOC FILE
//*            transporting data from one platform to the other     *   DOC FILE
//*            using FTP at some point.  The file is in zip         *   DOC FILE
//*            format, folded into FB-80 on MVS, and should be      *   DOC FILE
//*            installed by downloading it in BINARY to a PC, and   *   DOC FILE
//*            unzipping it.  (Then you follow Ken's directions.)   *   DOC FILE
//*                                                                 *   DOC FILE
//*        41  Addition of File 761 from Mark Baron which contains  *   DOC FILE
//*            several REXX execs which help you to find things on  *   DOC FILE
//*            an MVS system.  The name of the principal REXX       *   DOC FILE
//*            exec, and the name of the package itself is          *   DOC FILE
//*            FINDALL.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        42  Addition of File 762 from Ken Tomiak which           *   DOC FILE
//*            contains information about special DD names that     *   DOC FILE
//*            are connected with either IBM products, or OEM       *   DOC FILE
//*            products for z/OS (i.e. MVS).  This is a very        *   DOC FILE
//*            useful list to have.  Anybody who wishes to add      *   DOC FILE
//*            to this list is welcome to do so.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        43  Addition of File 763 which is collection of          *   DOC FILE
//*            utilities from various authors to convert 80-byte    *   DOC FILE
//*            card-image hex data, such as a PTF or an object      *   DOC FILE
//*            deck, to two lines of printable code, per line of    *   DOC FILE
//*            data.  And of course, there's another conversion     *   DOC FILE
//*            program, to convert all the printable data back to   *   DOC FILE
//*            hex.  This file has been moved.  It was originally   *   DOC FILE
//*            File 760.  And there's a four-line version as        *   DOC FILE
//*            well.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-473 SECTION                                          *   DOC FILE
//*  V-473  CHANGES FOR VERSION 473 JAN 14, 2007                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035 which is a load module library,   *   DOC FILE
//*            for fast install of many CBT Tape products.  Since   *   DOC FILE
//*            Version 472 of this tape, PDS 8.6 has been updated   *   DOC FILE
//*            to PDS 8.6.05.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 120 to add more articles.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 135 to add ISO Date versions of the   *   DOC FILE
//*            PDS 8.6 load modules.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 182 which is PDS 8.6 source code and  *   DOC FILE
//*            panels and messages, etc.  Latest level is 8.6.05    *   DOC FILE
//*            dated Dec 29, 2006.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 183 from Gilbert Saint-flour which    *   DOC FILE
//*            is a refresh of the marvelous programs in his big    *   DOC FILE
//*            collection.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 247 from Sam Golob, to fix minor      *   DOC FILE
//*            errors.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Updates to File 312 from Lionel Dyck.  Change to     *   DOC FILE
//*            LISTPRC.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Updates to File 313 from Lionel Dyck.  Change to     *   DOC FILE
//*            SLM.                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Updates to File 314 from Lionel Dyck.  Change to     *   DOC FILE
//*            XMITIP package.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 321 from Roland Schiradin, which is   *   DOC FILE
//*            his COBOL load module analyzer.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 437, to add JCL that puts ZZSA IPL    *   DOC FILE
//*            text onto a given volume using ICKDSF.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 492 from Roland Schiradin, to raise   *   DOC FILE
//*            SHOWzOS to level 7.14.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Updates to File 513 from Jose Maria Martinez         *   DOC FILE
//*            Besteiro and Angel Luis Dominguez Martin, to fix     *   DOC FILE
//*            bugs in their OPERLOG package.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Updates to File 582 from Gerhard Postpischil, to     *   DOC FILE
//*            fix TAPEMP38 for MVS 3.8, and to add code for        *   DOC FILE
//*            versions of BUILDCDE and PDSLOAD, which work on      *   DOC FILE
//*            MVS 3.8.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 614 from Sam Golob, to add a load     *   DOC FILE
//*            module library for SHOWzOS 7.14, whose source code   *   DOC FILE
//*            has been updated on File 492.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 713, which is the EMPTYPDS program.   *   DOC FILE
//*            This update is from Steve Myers.  Now tested on z/OS *   DOC FILE
//*            1.7 and 1.8.  Documentation change only.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 736 from Mark Naughton which is his   *   DOC FILE
//*            Perl script that displays IODF information.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 738 from Terry Miller which is his    *   DOC FILE
//*            REORGVS package that can be used to redefine a VSAM  *   DOC FILE
//*            dataset from an existing VSAM dataset.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 743 from Terry Miller which is his    *   DOC FILE
//*            MODLIST program that displays detailed information   *   DOC FILE
//*            about load modules.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Addition of File 747 from Mark Naughton, which is    *   DOC FILE
//*            a program to read the System Logger.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Addition of File 748 from Jose Neto, which is a      *   DOC FILE
//*            REXX program and/or and Assembler program to         *   DOC FILE
//*            convert BASE64 code to message text.  Also included  *   DOC FILE
//*            is an email sending system to support Change         *   DOC FILE
//*            control approvals by a system administrator.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Addition of File 749 from Gilbert Saint-flour,       *   DOC FILE
//*            which is a version of many of his utilities from     *   DOC FILE
//*            File 183, which were adapted to assemble and run     *   DOC FILE
//*            on MVS 3.8.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-472 SECTION                                          *   DOC FILE
//*  V-472  CHANGES FOR VERSION 472 SEP 25, 2006                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 019 from John Hooper, with multiple   *   DOC FILE
//*            updates to his utilities.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 035 which is a load module library,   *   DOC FILE
//*            for fast install of many CBT Tape products.  Since   *   DOC FILE
//*            Version 471 of this tape, PDS 8.6 and DAF have been  *   DOC FILE
//*            updated.  PDS 8.6.04 and DAF 1.47.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 060 to restore some sort of source    *   DOC FILE
//*            code for the module PRSTRNG, whose source code       *   DOC FILE
//*            seems to have disappeared.  I disassembled the copy  *   DOC FILE
//*            of this module in the load module file, File 061,    *   DOC FILE
//*            in reassemblable form, and included the REASMLNK     *   DOC FILE
//*            PROC as well, so you can reassemble easily.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 088 from Brian Westerman.  Please     *   DOC FILE
//*            refer to the COMMAND program on File 019, pending    *   DOC FILE
//*            a rewrite of COMMANDZ here.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 090 from Greg Price, which adds some  *   DOC FILE
//*            of his modifications to David Noon's DELINKER        *   DOC FILE
//*            program to get it to work on newer MVS modules.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 094 from Michael Cleary, to bring     *   DOC FILE
//*            DAF to the Version 1.47 level.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 120 from Sam Golob to add some new    *   DOC FILE
//*            articles.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 134 from Greg Price to contain a      *   DOC FILE
//*            revised version of REVIEW (40.02).                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 135 from Greg Price (et al) to        *   DOC FILE
//*            contain REVIEW 40.02 load modules, the latest        *   DOC FILE
//*            version of PDS (8.6.04) with ISO date support,       *   DOC FILE
//*            a load module for SHOWzOS 7.13, a fixed version      *   DOC FILE
//*            of SHOWDS, and an updated version of DELINKI.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 182 from John Kalinich, to contain    *   DOC FILE
//*            source code and other materials for PDS 8.6.04.      *   DOC FILE
//*            (You need to install the panels and message member   *   DOC FILE
//*            from this library, to run PDS in ISPMODE.  You can   *   DOC FILE
//*            run PDS in XISPMODE with just the load module.)      *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 234 which is Dick Thornton's later    *   DOC FILE
//*            disassembler, that can disassemble PDSE load modules *   DOC FILE
//*            as well as the old type.  There was a problem with   *   DOC FILE
//*            the STORAGE macro invocation, which was solved by    *   DOC FILE
//*            B. Einsargueix with a source code fix.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 257, which contains zaps to the old   *   DOC FILE
//*            linkage editor, so it will accept object decks that  *   DOC FILE
//*            are blocked up to 32720 bytes per block.  The IBM    *   DOC FILE
//*            imposed limit on the old linkage editor was 3200     *   DOC FILE
//*            bytes for object deck blocking, and this was never   *   DOC FILE
//*            remedied for the linkage editor, only for the newer  *   DOC FILE
//*            binder.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 299 from Steve Myers, to add support  *   DOC FILE
//*            for the z/OS 1.5 modification to tape labels, that   *   DOC FILE
//*            allows support for file numbers greater than 9999.   *   DOC FILE
//*            (Question mark followed by 3 binary numbers, Wayne   *   DOC FILE
//*            Rhoten's design.)                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 312 from Lionel Dyck, with a new      *   DOC FILE
//*            version of LSTPROC (REXX exec that ISRDDN's your     *   DOC FILE
//*            PROCLIB concatenation).                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 313 from Lionel Dyck to supply a new  *   DOC FILE
//*            version of SLM (System Library Manager).             *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 314 from Lionel Dyck to update        *   DOC FILE
//*            XMITIP to the 5.48a level.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 321 from Roland Schiradin to supply   *   DOC FILE
//*            a new level of the COBOL load module analyzer.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 404 to correct the assembly jobs      *   DOC FILE
//*            for TSSO.  This version of TSSO has been tested      *   DOC FILE
//*            on z/OS 1.7.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 434 from Mark Zelden, to provide      *   DOC FILE
//*            changes to IPLINFO, REXXSTOR, and AMBCLIST.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 492 from Roland Schiradin, to upgrade *   DOC FILE
//*            SHOWzOS to version 7.13.  Sample load modules are    *   DOC FILE
//*            in File 614, for many versions of SHOWMVS.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 510 from Alexander Vasilenko and      *   DOC FILE
//*            Sam Golob.  This is Ricardo Paranhos' IEBLIST        *   DOC FILE
//*            program that lists contents of DASD packs, allowing  *   DOC FILE
//*            various kinds of filtering of datasets according to  *   DOC FILE
//*            different criteria.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 518 from Sam Knutson.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 571 which is an XMIT and RECEIVE      *   DOC FILE
//*            batch program from Jim Morrison.  The update is      *   DOC FILE
//*            from Phil Roberts to fix U370DATE for after Y2K.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Update to File 614 which is contains XMITs of load   *   DOC FILE
//*            module libraries for various versions of SHOWMVS     *   DOC FILE
//*            and SHOWzOS.  Since SHOWzOS was updated on File 492, *   DOC FILE
//*            this file also had to be updated with the correspon- *   DOC FILE
//*            ding load modules.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Update to File 621 which contains NPF exits that     *   DOC FILE
//*            allow printing to printers having PCL language       *   DOC FILE
//*            support.  This file is from Hunter Zhou.  Hunter     *   DOC FILE
//*            has moved, so the corresponding addresses had to     *   DOC FILE
//*            be changed on all his files, and internally in all   *   DOC FILE
//*            his programs.  I don't think any functionality has   *   DOC FILE
//*            actually changed in any of the programs.             *   DOC FILE
//*                                                                 *   DOC FILE
//*            See also corresponding changes in:                   *   DOC FILE
//*                                                                 *   DOC FILE
//*            File 623 - Automated IPL and Shutdown                *   DOC FILE
//*            File 638 - SENDMAIL                                  *   DOC FILE
//*            File 639 - SETHOUR                                   *   DOC FILE
//*            File 668 - JES2 Spool Offload                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Update to File 634 which is a LISTUCB program that   *   DOC FILE
//*            lists both online and offline UCBs.  The update is   *   DOC FILE
//*            a bug fix to UCBSUBR by Alan Buschmann.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Update to File 647 from Andrew Armstrong.  This      *   DOC FILE
//*            package is his XML parser written in REXX.  The      *   DOC FILE
//*            upgrade is to Version 1.9.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Update to File 661 from Peter McFarland.  This is    *   DOC FILE
//*            his HOTRDR package to submit jobs to the internal    *   DOC FILE
//*            reader from pds libraries.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Update to File 682 from Bob Glover.  This is his     *   DOC FILE
//*            ESO TSO display, to show system esoterics.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Update to File 686 from Warren Whitford.  This is    *   DOC FILE
//*            a fix to the SMFDUMP program that was distantly      *   DOC FILE
//*            derived from an IBM sample that had not been         *   DOC FILE
//*            distributed by IBM for a long time.  Fix was for     *   DOC FILE
//*            the multi-line WTO.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Update to File 688 from Larry Altman.  This file     *   DOC FILE
//*            contains the RCNGNINT REXX exec (formerly called     *   DOC FILE
//*            DBRCINIT) and supporting code and samples.  The      *   DOC FILE
//*            purpose of this code, is to generate DBRC INIT       *   DOC FILE
//*            commands in order to transfer database registration  *   DOC FILE
//*            information from one recon to another, or to create  *   DOC FILE
//*            database registration commands which may have been   *   DOC FILE
//*            lost.  This is an IMS tool.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Update to File 708 from Glenn Siegel.  This file     *   DOC FILE
//*            contains his very generalized MPF exit system.       *   DOC FILE
//*            This version of MPFXTALL is Version 5.0.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Update to File 711 which is the LIBRARIAN package    *   DOC FILE
//*            that was contributed semi-anonymously.  This is an   *   DOC FILE
//*            upgrade, with many fixes necessary.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        34  Update to File 717 from Joe Caughman.  This is his   *   DOC FILE
//*            JumpList program package that provides a convenient  *   DOC FILE
//*            programmer's workbench environment.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        35  Update to File 718 from Gary Green.  This file       *   DOC FILE
//*            contains two TSO Logon exits.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        36  Update to File 724 from Ed Jaffe.  This file         *   DOC FILE
//*            contains his remaining improvements to IBM's HLASM   *   DOC FILE
//*            Toolkit, which haven't yet been incorporated in the  *   DOC FILE
//*            Toolkit package by IBM itself.  This package assumes *   DOC FILE
//*            that the PTF for APAR PK01283 has been installed.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        37  Update to File 725 from Andrew Armstrong.  This      *   DOC FILE
//*            file contains his CICS Auxiliary Trace Visualizer.   *   DOC FILE
//*            The current version is now Version 1.2.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        38  Update to File 726 from Philippe Simon.  This is     *   DOC FILE
//*            the VC REXX exec to create source DEFINE statements  *   DOC FILE
//*            for a VSAM dataset, from the dataset itself.  This   *   DOC FILE
//*            update is a further update of Ted MacNeil's update   *   DOC FILE
//*            to Jim Connelley's original version.  The added      *   DOC FILE
//*            REXX from Philippe Simon is member VCP in this file. *   DOC FILE
//*            All three versions are still here in this file.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        39  Update to File 738 from Terry Miller.  This file     *   DOC FILE
//*            contains a facility to reorganize VSAM clusters      *   DOC FILE
//*            (from the original clusters) without having to code  *   DOC FILE
//*            any of the DEFINE statements.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        40  Update to File 739 from Ron Brown.  This file        *   DOC FILE
//*            contains a package to update your TSO session's      *   DOC FILE
//*            ISPF command tables dynamically.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        41  Addition of File 741 from Bill Godfrey.  This file   *   DOC FILE
//*            contains code to create and decode BASE64 character  *   DOC FILE
//*            encoding.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        42  Addition of File 742 from Bob Birdsall.  This file   *   DOC FILE
//*            contains a source code versioning system that works  *   DOC FILE
//*            for PARMLIB, TCPPARMS, and other system level        *   DOC FILE
//*            datasets.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        43  Addition of File 743 from Terry Miller, which        *   DOC FILE
//*            contains his MODLIST program to list linkedit and    *   DOC FILE
//*            Binder attributes for load modules.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        44  Addition of File 744 from Eugene Vogt and Alain      *   DOC FILE
//*            Steffen, containing their RACF Rules Enforcer (RRE)  *   DOC FILE
//*            package, Version 3.40.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        45  Addition of File 745 which was contributed           *   DOC FILE
//*            semi-anonymously.  This file contains the FM         *   DOC FILE
//*            file browser package which can format the browsed    *   DOC FILE
//*            files, if the formats of the data are previously     *   DOC FILE
//*            known.  New formats can easily be added.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        46  Addition of File 746 from Richard Tsujimoto, which   *   DOC FILE
//*            contains both the Assembler (for MVS) and C versions *   DOC FILE
//*            (for other platforms) of his Parser, Tokenizer, and  *   DOC FILE
//*            Interpreter.  This package was featured in a three-  *   DOC FILE
//*            part article in "Technical Support" magazine (April, *   DOC FILE
//*            May and June 2006) from NaSPA.                       *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-471 SECTION                                          *   DOC FILE
//*  V-471  CHANGES FOR VERSION 471 FEB 28, 2006                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  Tape increased to 750 files and length is now        *   DOC FILE
//*            significantly greater than 5000 feet (measured       *   DOC FILE
//*            at 6250 bpi) so that for any medium shorter than     *   DOC FILE
//*            a 3490E, the physical tape has to be divided         *   DOC FILE
//*            into 2 tapes with the COPYNLNL program from          *   DOC FILE
//*            Files 229 or 316.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035 which is a load module library.   *   DOC FILE
//*            Changed programs were:  LOOK (to show lower case     *   DOC FILE
//*            characters), PDS86 (PDSE support), and the VTT2****  *   DOC FILE
//*            programs to convert AWS (or FLEX-ES Faketape) to     *   DOC FILE
//*            and from real tape on a native MVS system.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 048 which contains the LISTSPC and    *   DOC FILE
//*            LISTVOL commands, to convert the TPUT support to     *   DOC FILE
//*            PUTLINE.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 088 from Brian Westerman, to upgrade  *   DOC FILE
//*            the COMMANDZ program.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 094 from Michael Cleary, to upgrade   *   DOC FILE
//*            the DAF program to version 1.46.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 120 from Sam Golob, to add several    *   DOC FILE
//*            new articles.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 135 to add the ISO date version of    *   DOC FILE
//*            PDS 8.6 (source on File 182).                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 182 to bring the level of the PDS     *   DOC FILE
//*            command package to PDS86 -- VERSION 8.6.01.  This    *   DOC FILE
//*            update is from John Kalinich, with a lot of help     *   DOC FILE
//*            from Greg Price in adding PDSE support.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 183 from Gilbert Saint-flour.  Many   *   DOC FILE
//*            members have been changed.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 185 to add some more program names    *   DOC FILE
//*            to the tables.  Load module was moved from File 186. *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  File 186 is now empty.  (Load module moved to File   *   DOC FILE
//*            185 and put into XMIT format.)                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 198 from Bob Break, to add a version  *   DOC FILE
//*            of the JES2 Exit Loader program that works for JES2  *   DOC FILE
//*            on z/OS 1.7 only.  Member name is CBTEX05.  All the  *   DOC FILE
//*            old versions of the exit loader are still there.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 199 to change CMDPGM.  AMODE and      *   DOC FILE
//*            RMODE were adjusted to now work, and the auth        *   DOC FILE
//*            mechanism was made more standard.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to Files 238 thru 243 from Valentin Chernyak  *   DOC FILE
//*            with a new release of REASM (4.0).  This is a very   *   DOC FILE
//*            powerful and adjustable (as you go) interactive      *   DOC FILE
//*            code disassembler that works under ISPF.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 246 which is the W$$MGCR program to   *   DOC FILE
//*            issue system commands in a batch job.  The program   *   DOC FILE
//*            was adjusted to get rid of some artificially         *   DOC FILE
//*            restrictive auth code, but you can put it back       *   DOC FILE
//*            according to your installation's requirements, if    *   DOC FILE
//*            you wish.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 247 which is the Broadcast Manager    *   DOC FILE
//*            package, to make some needed corrections to the      *   DOC FILE
//*            BCMREST and BCMEXPND program logic, and BCMSCAN.     *   DOC FILE
//*            The BDMSCAN program (load module only) was donated   *   DOC FILE
//*            from Sam Golob's upcoming commercial package and     *   DOC FILE
//*            anyone is now allowed to use it.  Reporting in the   *   DOC FILE
//*            BDMSCAN program is MUCH better than in BCMSCAN.      *   DOC FILE
//*            A REXX from Brian Westerman (called BC) to do the    *   DOC FILE
//*            allocations for the BCMUTIL management utility,      *   DOC FILE
//*            was also newly donated.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 264 to reassemble and relink the      *   DOC FILE
//*            LOOK program, and also to make it show lower case    *   DOC FILE
//*            characters in the EBCDIC display on the right of     *   DOC FILE
//*            the screen.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 312 from Lionel Dyck, to change the   *   DOC FILE
//*            CMT program.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 314 from Lionel Dyck, to upgrade      *   DOC FILE
//*            XMITIP (to version 5.44) and TXT2RTF.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 360 from Mike Tomkins, to correct     *   DOC FILE
//*            several logic errors in the COMMAND program, and     *   DOC FILE
//*            to get it to run on z/OS 1.4.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 423 from Sam Golob, to add PUTLINE    *   DOC FILE
//*            support to the LAA (List Allocations) TSO command.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 434 from Mark Zelden.  Members        *   DOC FILE
//*            updated:  EXCL, INCL, ONEPAKZ6, TWOPAKZ6.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 555 from Solomon Santos.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 600 (program HPNSTST) from Mike       *   DOC FILE
//*            Tomkins, to fix a bug.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Update to File 608 from Bob Glover to TSOSPA (list   *   DOC FILE
//*            space on DASD volumes) to fix a bug concerning the   *   DOC FILE
//*            number of cylinders on a volume (alternate cyls).    *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Update to File 711 (Librarian) to fix a bug.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Update to File 716 from Mike Tomkins, to add a new   *   DOC FILE
//*            ISPF-based enqueue tester which is an enhanced       *   DOC FILE
//*            version of Jim Moore's original idea.  See members   *   DOC FILE
//*            ENQ and ENQ$.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Update to File 717 from Joe Caughman, which is his   *   DOC FILE
//*            JumpList program package.  The update fixes a bug.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Update to File 731 to add two new TSO commands       *   DOC FILE
//*            which concern the INMXPARM control block, containing *   DOC FILE
//*            the quantities on the system, which affect TSO XMIT  *   DOC FILE
//*            (TRANSMIT) processing.  TSO HELP members added for   *   DOC FILE
//*            EESCB, INMXD, CINMX commands.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Addition of File 733, which is the full ALGOL68C     *   DOC FILE
//*            tape distribution for the ALGOL 68C language, from   *   DOC FILE
//*            Cambridge University (dated the Spring of 1976).     *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Addition of File 734, which is the original version  *   DOC FILE
//*            of the PDS command package for MVS, before Bruce     *   DOC FILE
//*            Leland and Steve Smith, et al, got a hold of it.     *   DOC FILE
//*            It is very similar to the version I used on MVT.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Addition of File 735 from Tom Barthold, which        *   DOC FILE
//*            contains some edit macros he has written.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Addition of File 736 from Mark Naughton, which       *   DOC FILE
//*            contains a Perl script that runs under Unix services *   DOC FILE
//*            and which displays detailed information about your   *   DOC FILE
//*            IODF configuration.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Addition of File 737 from Bob Glover, which contains *   DOC FILE
//*            a package of programs to clear DASD, in bulk, after  *   DOC FILE
//*            a Disaster Recovery test.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        34  Addition of File 738 from Terry Miller, which        *   DOC FILE
//*            contains a facility to reorganize VSAM clusters      *   DOC FILE
//*            without having to code any of the VSAM DEFINE        *   DOC FILE
//*            statements.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        35  Addition of File 739 from Ron Brown, which is a      *   DOC FILE
//*            sophisticated package to update your ISPF session's  *   DOC FILE
//*            command tables dynamically.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        36  Addition of File 740 from Alan Wynne, containing     *   DOC FILE
//*            a package of REXX execs to run SQL statements.       *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-470 SECTION                                          *   DOC FILE
//*  V-470  CHANGES FOR VERSION 470 DEC 28, 2005                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  Tape increased to 740 files and length is now        *   DOC FILE
//*            significantly greater than 5000 feet (measured       *   DOC FILE
//*            at 6250 bpi) so that for any medium shorter than     *   DOC FILE
//*            a 3490E, the physical tape has to be divided         *   DOC FILE
//*            into 2 tapes with the COPYNLNL program from          *   DOC FILE
//*            Files 229 or 316.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*            This increment (from version 469 to 470) contains    *   DOC FILE
//*            over 40 file changes.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 007 from Harvey Wachtel, to correct   *   DOC FILE
//*            errors in the SETPW2 program that allows a RACF      *   DOC FILE
//*            administrator to change the passwords of other       *   DOC FILE
//*            users.  File 007 is the SHARE RACF group's tape of   *   DOC FILE
//*            utilities.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 019 from Peter Hunkeler and Greg      *   DOC FILE
//*            Shirey.  These were enhancements and a fix for the   *   DOC FILE
//*            FLSMFJOB program.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 035 to reflect changes to:            *   DOC FILE
//*            COPYFILE, COPYSLNL, DAF, DAF142, PDS, PDS38,         *   DOC FILE
//*            PDS86, PDS86I, PDS8638, TAPEMAP.  PDS 8.6 (with      *   DOC FILE
//*            PDSE support) has now replaced PDS 8.5.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 094 from Michael Cleary, to add both  *   DOC FILE
//*            DAF 1.44 and DAF 1.45.  DAF 1.45 is the current      *   DOC FILE
//*            version at this time.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 120 from Sam Golob, to add six more   *   DOC FILE
//*            articles.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Updates to Files 134 and 135 from Greg Price, to     *   DOC FILE
//*            reflect updates to REVIEW, MINIZIP, MINIUNZ,         *   DOC FILE
//*            OFFLMOD and ZAP.  More opcodes were added to the     *   DOC FILE
//*            "instruction disassembly" function of Fullscreen     *   DOC FILE
//*            ZAP.  Additionally, PDS 8.6 for YYMMDD dates, was    *   DOC FILE
//*            included in File 135 instead of PDS 8.5.  (PDS 8.6   *   DOC FILE
//*            has PDSE support.)                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 171 from Richard Rice, with a fix     *   DOC FILE
//*            for the Disassembler.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 182 to replace PDS 8.5 by PDS 8.6.    *   DOC FILE
//*            PDS 8.6 was developed by John Kalinich and Greg      *   DOC FILE
//*            Price, to add PDSE support to many functions of      *   DOC FILE
//*            the PDS program.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 199 to reflect some of the changes    *   DOC FILE
//*            to Dave Cole's website.  Dave has now released his   *   DOC FILE
//*            DSCOPY program to the public (finally).              *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 229 from Sam Golob, to reflect the    *   DOC FILE
//*            changes to COPYFILE (copy selected files from SL     *   DOC FILE
//*            to SL tapes) and COPYSLNL (do the same thing, but    *   DOC FILE
//*            strip the labels off the output tape to make an      *   DOC FILE
//*            NL tape).  Tape label printing in both programs      *   DOC FILE
//*            is now controlled ONLY by a TAPELOUT DD name being   *   DOC FILE
//*            present, NOT by PARM=TAPEL.  IDRCOFF parm turns off  *   DOC FILE
//*            the IDRC indicator in the output tape labels, for    *   DOC FILE
//*            COPYFILE.  LABLDUMP option (similar to COPYMODS      *   DOC FILE
//*            LABLDUMP) is now available for COPYFILE and COPYSLNL *   DOC FILE
//*            if the LABLDUMP and TAPELOUT DD names are BOTH       *   DOC FILE
//*            coded in the JCL.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 247 from Sam Golob, to fix an         *   DOC FILE
//*            error in BCMREST and BCMEXPND about how big to       *   DOC FILE
//*            allocate the restored copy of a SYS1.BRODCAST        *   DOC FILE
//*            dataset.  Inclusion of load module and JCL for       *   DOC FILE
//*            the (much improved) BDMSCAN program (much better     *   DOC FILE
//*            than BCMSCAN).  BDMSCAN is from Sam Golob's          *   DOC FILE
//*            forthcoming commercial product, but he wants         *   DOC FILE
//*            people to use it, because it is so much better       *   DOC FILE
//*            than BCMSCAN.  Permission is granted for anyone      *   DOC FILE
//*            to use BDMSCAN, forever.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 299 from Sam Golob, to fix the        *   DOC FILE
//*            IEBCOPY recognition code in TAPEMAP.  IBM is now     *   DOC FILE
//*            using a few more bits in the IEBCOPY header, and     *   DOC FILE
//*            they can't be counted on to be zeros, so the code    *   DOC FILE
//*            to recognize IEBCOPY has to ignore them.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 314 from Lionel Dyck, to bring a      *   DOC FILE
//*            new version of XMITIP, version 5.40.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 316 from Jim Marshall, to fix the     *   DOC FILE
//*            FCBLIST program.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 394 from Jan Jakubek.  Changed        *   DOC FILE
//*            members are:  KSDSPACE, MXIVSTOR, OFDASVER, TI.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 408 which is David Cole's macro       *   DOC FILE
//*            library.  Changes reflect the changes at Dave's      *   DOC FILE
//*            website which is www.colesoft.com.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*            Changed members are:  $SNGLTSO, CATSRCH, IPLINFO,    *   DOC FILE
//*            LMPREXX, REXXSTOJ, REXXSTOR, RXSTOR64, SW.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 452 from Dan Dalby, with multiple     *   DOC FILE
//*            changes.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 492 from Roland Schiradin, to bring   *   DOC FILE
//*            you Version 7.12 of SHOWzOS.  Older versions,        *   DOC FILE
//*            SHOWMVS 7.10 and 6.30 are still there (for your      *   DOC FILE
//*            viewing pleasure).                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 527 from Matt Stitt.                  *   DOC FILE
//*            Changed members are:  DADSM, LISTICAT, PRINT, VTOC,  *   DOC FILE
//*            XPRLDEF, XPRLIST, XPRNTLIN.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 529 from Matt Stitt.                  *   DOC FILE
//*            Changed members are:  AESDCRYP, CICSMTH5, CICSMTH6,  *   DOC FILE
//*            CICSSMF, CICSYRLY, ICCFMEMB, SETDUMP, SMFLST14,      *   DOC FILE
//*            SMFLST17, SMFLST30, SMFLST61, SMFLST64 SMFLST65.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 533 from Sam Golob.  This is a        *   DOC FILE
//*            change to the VTT2TAPE program.  Put in the ASG      *   DOC FILE
//*            enhancement to allow a volser change through a       *   DOC FILE
//*            PARM='TVOL=nwvser', or PARM='TVOL(nwvser)'.  Put     *   DOC FILE
//*            in a check for short volsers (less than 6 chars      *   DOC FILE
//*            in the volser on the PARM card).  You can still      *   DOC FILE
//*            change the output tape's volser by using a SYSIN     *   DOC FILE
//*            card with NEWVOL=volser, starting in column 1.       *   DOC FILE
//*            (The volume in the SYSIN card overrides the one      *   DOC FILE
//*            in the PARM card.)                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 614 which is a collection of load     *   DOC FILE
//*            module libraries with different versions of the      *   DOC FILE
//*            SHOWMVS and SHOWzOS programs.  Added SHOWzOS 7.12.   *   DOC FILE
//*            (See File 492 for source code.)                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Update to File 637 from Nolan Young, which is his    *   DOC FILE
//*            load module compare program.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Update to File 647 from Andrew Armstrong.  This is   *   DOC FILE
//*            his new Version 1.8 of his REXX XML parser.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Update to File 692 which is David Merrifield's       *   DOC FILE
//*            UATAPE tape mapping program.  This is from Johan     *   DOC FILE
//*            Derr-Haverlach and is a simple addition to UATAPE    *   DOC FILE
//*            so it knows about 3490 and 3590 devices.  (This      *   DOC FILE
//*            way the density is correct and it won't say that     *   DOC FILE
//*            the "write ring is in").  No other changes.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Update to File 693 from Terry Miller, which is       *   DOC FILE
//*            the PDSCLEAN program from him and Richard Rice.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Update to File 702 from Stephen McColley (and        *   DOC FILE
//*            Frank Lawrence) of SunTrust.  This has the z/OS      *   DOC FILE
//*            1.6 version of their JES2 mods, which include the    *   DOC FILE
//*            equivalent of the Mellon Mods.  Steve suggests       *   DOC FILE
//*            that you use their 1.6 version for previous levels   *   DOC FILE
//*            of z/OS too.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Update to File 708 from Glenn Siegel, which has      *   DOC FILE
//*            a completely fixed (and enhanced) version of his     *   DOC FILE
//*            MPFXTALL very generalized MPF exit system.  This     *   DOC FILE
//*            system gets control very early in the IPL process,   *   DOC FILE
//*            and you can automate a lot of things with it.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Update to File 717 from Joseph Caughman.  This is    *   DOC FILE
//*            his JumpList programmer productivity organizer.      *   DOC FILE
//*            The JumpList package is a way of organizing          *   DOC FILE
//*            datasets that a programmer needs, into user-defined  *   DOC FILE
//*            groups of datasets, called profiles.  JumpList also  *   DOC FILE
//*            allows file tailoring, when submitting JCL for       *   DOC FILE
//*            execution.  This means the dynamic substitution of   *   DOC FILE
//*            variable values into the JCL, so that one sample of  *   DOC FILE
//*            JCL may be used to submit a variety of different     *   DOC FILE
//*            actual jobs.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Addition of File 723 from Jim Moore, which contains  *   DOC FILE
//*            some application code to show how much storage is    *   DOC FILE
//*            available to your session.  CLCCSTOR and SHOWMEM     *   DOC FILE
//*            provide this service from an ISPF environment.       *   DOC FILE
//*            SHOWSTOR provides a similar service for an IDMS/DC   *   DOC FILE
//*            environment.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Addition of File 724 from Ed Jaffe, which contains   *   DOC FILE
//*            his improvements to IBM's HLASM Toolkit.  Some       *   DOC FILE
//*            other HLASM-related tools are also included, such    *   DOC FILE
//*            as the ASMFLOW program that cleans and prettifies    *   DOC FILE
//*            Assembler source code.  These modifications were     *   DOC FILE
//*            dramatically simplified after APAR PK01283 (since    *   DOC FILE
//*            IBM adopted most of his suggestions).  The only      *   DOC FILE
//*            modification remaining is the NEXTWHEN macro.        *   DOC FILE
//*            This macro allows you to pass control from one       *   DOC FILE
//*            WHEN clause to the next WHEN clause or the           *   DOC FILE
//*            OTHRWISE clause.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Addition of File 725 from Andrew Armstrong, which    *   DOC FILE
//*            contains his CICS Auxiliary Trace Visualizer,        *   DOC FILE
//*            written in REXX.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        34  Addition of File 726 from Ted MacNeil, which is an   *   DOC FILE
//*            improvement on the VC command written by Jim         *   DOC FILE
//*            Connelley.  The idea is to point this REXX at a      *   DOC FILE
//*            VSAM dataset and generate IDCAMS DEFINE statements   *   DOC FILE
//*            to redefine it without the IMBED, REPLICATE, and     *   DOC FILE
//*            KEYRANGE statements.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        35  Addition of File 727 from Martin Kline.  This file   *   DOC FILE
//*            contains a program to copy VB or VBS disk files,     *   DOC FILE
//*            up to a full track in length, to a VBS output        *   DOC FILE
//*            file.  EXCP is used to read the input file.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        36  Addition of File 728 from Dave Jousma, and contains  *   DOC FILE
//*            a RACF Password Quality Exit, ICHPWX01.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        37  Addition of File 729 from Rob Wunderlich, and        *   DOC FILE
//*            contains his MAXITRAN REXX that helps to run batch   *   DOC FILE
//*            FTP between an MVS client and another FTP server.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        38  Addition of File 730 from Hal Merritt, which is a    *   DOC FILE
//*            generalization of some IBM sample code, to be able   *   DOC FILE
//*            to run COBOL programs in a z/OS.e environment.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        39  Addition of File 731 from Sam Golob, which contains  *   DOC FILE
//*            TSO command processors that show you about the       *   DOC FILE
//*            state of TSO/E control blocks.  The EESCB command,   *   DOC FILE
//*            which does not have to run authorized, will show     *   DOC FILE
//*            you the current state of the BROADCAST dataset, and  *   DOC FILE
//*            will give you information about the last BROADCAST   *   DOC FILE
//*            dataset switch that was done (last IKJTSOxx PARMLIB  *   DOC FILE
//*            member switch).  Support is included for pre-TSO/E   *   DOC FILE
//*            Version 3 information as well.  The CINMX command,   *   DOC FILE
//*            which has to run authorized, is a quick way to       *   DOC FILE
//*            reset the XMIT outlimit in core, without having to   *   DOC FILE
//*            do a PARMLIB change.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        40  Addition of File 732 from Sam Golob, which is a      *   DOC FILE
//*            reinstatement of Chuck Hoffman's WHOHAS command.     *   DOC FILE
//*            It is familiar, and I like it better.  (SG)          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-469 SECTION                                          *   DOC FILE
//*  V-469  CHANGES FOR VERSION 469 JUL 17, 2005                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  Tape increased to 730 files and length is now        *   DOC FILE
//*            significantly greater than 5000 feet (measured       *   DOC FILE
//*            at 6250 bpi) so that for any medium shorter than     *   DOC FILE
//*            a 3490E, the physical tape has to be divided         *   DOC FILE
//*            into 2 tapes with the COPYNLNL program from          *   DOC FILE
//*            Files 229 or 316.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*            This increment (from version 468 to 469) contains    *   DOC FILE
//*            over 50 file changes and is the greatest single      *   DOC FILE
//*            change, for a tape version, in the history of the    *   DOC FILE
//*            CBT Tapes.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 033, which is the SHARE JES2 group    *   DOC FILE
//*            song book.  A later version (from Winter 2004) has   *   DOC FILE
//*            been added in MSWORD format.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 035, to reflect various source code   *   DOC FILE
//*            changes from various files.  Load modules for PDS    *   DOC FILE
//*            8.5.26, LOOK, COPYFILE, DAF, and COPYSLNL have been  *   DOC FILE
//*            changed, among others.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 094 from Michael Cleary, to present   *   DOC FILE
//*            DAF version 1.4.3 plus fixes.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 120 from Sam Golob, to add several    *   DOC FILE
//*            new articles.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 134 to include a fix for Fullscreen   *   DOC FILE
//*            ZAP, which didn't work on a certain type of STK      *   DOC FILE
//*            storage box.  One CCW was adjusted.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 135 to reflect changes in PDS 8.5.26, *   DOC FILE
//*            Fullscreen ZAP, and SHOWzOS 7.11.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 182 with a refresh of PDS 8.5.26.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 229 to add Label Dump functionality   *   DOC FILE
//*            to COPYMODS and COPYSLNL.  The optional LABLDUMP     *   DOC FILE
//*            DD name dumps the labels of files copied, to an      *   DOC FILE
//*            FB-80 external dataset, in COPYMODS LABLDUMP format. *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update of File 247 which is the Broadcast Manager    *   DOC FILE
//*            package from Sam Golob.  Coverage was added to the   *   DOC FILE
//*            package, to be able to directly update Notices       *   DOC FILE
//*            records, and to clean the Notices part of the        *   DOC FILE
//*            BRODCAST dataset so it is more clearly browseable.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 260 from Alan Buschmann to fix        *   DOC FILE
//*            DISKMAP for 31-bit UCBs and such.  Tested on z/OS    *   DOC FILE
//*            1.6.                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 264 from Sam Golob to add some more   *   DOC FILE
//*            macro formatting and to reassemble for File 035.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 291 from Rick Hevener to tweak his    *   DOC FILE
//*            instruction timings program.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 296 from Cary Garrett, to change      *   DOC FILE
//*            the DVOL program, to reflect the fact that the       *   DOC FILE
//*            CVAFDSM parameter list that changed from 64 to 100   *   DOC FILE
//*            bytes, somewhere between z/OS 1.4 and z/OS 1.6.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 300 from Sam Golob, to change the     *   DOC FILE
//*            CPSCB and LPSCB programs so the CONSOLE attribute    *   DOC FILE
//*            bit of the PSCBATR1 field in the PSCB can be         *   DOC FILE
//*            turned on and off, or listed (by the respective      *   DOC FILE
//*            programs).  The PSCB has, indeed, grown!             *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 312 from Lionel Dyck to present a     *   DOC FILE
//*            new version of FTP batch.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 313 from Lionel Dyck to present a     *   DOC FILE
//*            new version of the TRYIT rexx.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 314 from Lionel Dyck to present a     *   DOC FILE
//*            new version of XMITIP (5.36).                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 321 from Roland Schiradin which is    *   DOC FILE
//*            his COBOL load module analyzer.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 349 from Willy Jensen, which is his   *   DOC FILE
//*            group of REXX programs to update the ISPF command    *   DOC FILE
//*            table for your TSO session, on the fly.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 391 from Robert Ngan, which is his    *   DOC FILE
//*            TRACE390 program to trace instruction execution      *   DOC FILE
//*            for Assembler programs.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 404 which is TSSO.  This update is    *   DOC FILE
//*            from Daniel Cattin, to correct an assembly error     *   DOC FILE
//*            in TSSOSS09 that occurs because of a macro change    *   DOC FILE
//*            at the z/OS 1.6 level.  The module will assemble     *   DOC FILE
//*            at previous levels as well, with this fix.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Updates to File 434 from Mark Zelden.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 479 which is the BCEDIT REXX to edit  *   DOC FILE
//*            SYS1.BRODCAST Notices messages, from Paul Lemons.    *   DOC FILE
//*            This update is from Sam Golob, to add the new CPSCB  *   DOC FILE
//*            and LPSCB versions which let you list and change     *   DOC FILE
//*            the CONSOLE attribute of your TSO session in the     *   DOC FILE
//*            PSCB control block.  You can't use BCEDIT unless     *   DOC FILE
//*            the CONSOLE attribute in the PSCB is set on.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Update to File 490 from Andy Robertson, which is     *   DOC FILE
//*            his collection of Assembler macros to make it easy   *   DOC FILE
//*            to code reentrant programs.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Update to File 491 from Andy Robertson, to improve   *   DOC FILE
//*            his "lite XMITIP" program, his LE condition handler  *   DOC FILE
//*            program, and his BATCHART program.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Update to File 492 from Roland Schiradin, to         *   DOC FILE
//*            now contain SHOWzOS 7.11 and SHOWMVS 7.10.  The      *   DOC FILE
//*            load module libraries were moved to a new file,      *   DOC FILE
//*            File 614, because assembly of SHOWzOS has a lot      *   DOC FILE
//*            of release dependencies, and a load module which     *   DOC FILE
//*            was produced on one system, might have problems on   *   DOC FILE
//*            another system.  So we have removed the load         *   DOC FILE
//*            library members from File 492 to discourage people   *   DOC FILE
//*            from using them.  And we are encouraging people to   *   DOC FILE
//*            do these assemblies for themselves.  Nevertheless,   *   DOC FILE
//*            since the SHOWzOS assembly requires HLASM 1.4 with   *   DOC FILE
//*            PTF UQ86018 and prereqs applied, or HLASM 1.5, and   *   DOC FILE
//*            since not everybody has these levels, we have        *   DOC FILE
//*            supplied a collection of already created load        *   DOC FILE
//*            modules in a separate file, File 614, so if you      *   DOC FILE
//*            can't assemble SHOWzOS yourself, at least you'll     *   DOC FILE
//*            have some load modules available so you can run it.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Update to File 527 from Matthew Stitt.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Update to File 533 from Sam Golob.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Update to File 570 which is the "advice and          *   DOC FILE
//*            counsel" file to give you a place to look, if you    *   DOC FILE
//*            want to learn people's advice about how to do        *   DOC FILE
//*            stuff.  Inclusion of a huge collection of JCL        *   DOC FILE
//*            examples, at the z/OS 1.4 level.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Update to File 589 from Philippe Leite.  This is     *   DOC FILE
//*            his HSCTOOL package to handle commands to the STK    *   DOC FILE
//*            storage devices.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Update to File 600 from Paul Wells.  These are C     *   DOC FILE
//*            language programs to format SMF TCP/IP records.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Addition of File 614 to contain load module          *   DOC FILE
//*            libraries in XMIT format as pds members, with        *   DOC FILE
//*            load modules for various levels of the SHOWMVS       *   DOC FILE
//*            and SHOWzOS programs.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Update to File 647 from Andrew Armstrong.  This      *   DOC FILE
//*            is his XML parser.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        34  Update to File 685 from Pierre Delaunoy.  This is    *   DOC FILE
//*            a new release of his TXT2XML package.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        35  Update to File 688 from Larry Altman.  This is an    *   DOC FILE
//*            IMS package, which allows you to transfer database   *   DOC FILE
//*            registration information from one recon to another.  *   DOC FILE
//*            There is also a second product here now, called      *   DOC FILE
//*            ACBLIST from Dougie Lawson.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        36  Addition of File 706 from Andrew Armstrong, to       *   DOC FILE
//*            contain a package that enables you to convert your   *   DOC FILE
//*            performance data and other graphics to SVG           *   DOC FILE
//*            (Scalable Vector Graphics) format, to display it     *   DOC FILE
//*            throughout your network, on other platforms.  Since  *   DOC FILE
//*            this file contains Java executibles, it is very      *   DOC FILE
//*            large.  This file is in IEBCOPY format, VB-260.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        37  Update to File 707 from J. D. Acevedo.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        38  Update to File 708 from Glenn Siegel.  This is a     *   DOC FILE
//*            very general MPF exit, to include all of your MPF    *   DOC FILE
//*            exits.  This version has bugs fixed, and works for   *   DOC FILE
//*            z/OS 1.4 and above.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        39  Addition of File 711 which is a Librarian package    *   DOC FILE
//*            that was submitted semi-anonymously.  Please send    *   DOC FILE
//*            questions to Sam Golob, sbgolob@cbttape.org   .      *   DOC FILE
//*                                                                 *   DOC FILE
//*        40  Addition of File 712 from Paul Gorlinsky, which      *   DOC FILE
//*            contains two COBOL programs using the TCP/IP socket  *   DOC FILE
//*            interface from CICS.  One program is for sending     *   DOC FILE
//*            files from CICS, and the other is for sending mail   *   DOC FILE
//*            from CICS.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        41  Addition of File 713 from Steve Myers.  This is      *   DOC FILE
//*            an updated and improved version of the EMPTYPDS      *   DOC FILE
//*            program from File 172.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        42  Addition of File 714 from Robert Styma.  This        *   DOC FILE
//*            file contains a set of programs to enable an MVS     *   DOC FILE
//*            system that is running under FLEX-ES to issue        *   DOC FILE
//*            flexes commands to the Linux system it is            *   DOC FILE
//*            running on.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        43  Addition of File 715 from Sam Golob.  This is a      *   DOC FILE
//*            revival of the tape erase program that originally    *   DOC FILE
//*            was on File 370 of CBT Tape Version 249 from the     *   DOC FILE
//*            Federal Bank of West Germany.  I think one of the    *   DOC FILE
//*            CCWs has to be tweaked if the Data Security Erase    *   DOC FILE
//*            CCW code does not work on your system.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        44  Addition of File 716 from Jim Moore.  This is an     *   DOC FILE
//*            implementation of the new ISPF QUERYENQ service,     *   DOC FILE
//*            to create a WHOHAS command which shows any enqueues  *   DOC FILE
//*            present, in a pop-up ISPF window.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        45  Addition of File 717 from Joseph Caughman.  This     *   DOC FILE
//*            is his JumpList package which is an ISPF             *   DOC FILE
//*            workbench that allows programmers to get to all      *   DOC FILE
//*            of their data easily.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        46  Addition of File 718 from Garry Green.  This         *   DOC FILE
//*            file contains two TSO logon exits, which allow       *   DOC FILE
//*            you to LOGON to any subsystem, provided that         *   DOC FILE
//*            PROCs for that subsystem have been prepared.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        47  Addition of File 719 from Greg Smith.  This file     *   DOC FILE
//*            contains his DASD dump-restore program for offline   *   DOC FILE
//*            DASD.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        48  Addition of File 720 from Bill Sweeney.  This file   *   DOC FILE
//*            contains a large collection of his utilities.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        49  Addition of File 721 from Shirley Huhtanen.  This    *   DOC FILE
//*            file contains her unique ChangeWiz package to        *   DOC FILE
//*            detect all kinds of pds member changes, program      *   DOC FILE
//*            changes, and other changes on your system.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        50  Addition of File 722 from Shirley Huhtanen.  This    *   DOC FILE
//*            file contains her FileWiz package, which is a        *   DOC FILE
//*            sophisticated program that compares two files.       *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-468 SECTION                                          *   DOC FILE
//*  V-468  CHANGES FOR VERSION 468 FEB 14, 2005                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 019 from Marty French to the          *   DOC FILE
//*            FLSMFJOB member of John Hooper's file.  The          *   DOC FILE
//*            change was to accommodate big job numbers.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 028 which is a collection of          *   DOC FILE
//*            CLISTs to generate backup JCL to tape, from the      *   DOC FILE
//*            starting point of a list of dataset names, etc.      *   DOC FILE
//*            Tried a few of the members on z/OS 1.5, but they     *   DOC FILE
//*            should all work (of course, with modification).      *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Updates to File 035 to reflect updates in TAPEMAP.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 120 from Sam Golob to add articles.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 134 from Greg Price to add a new      *   DOC FILE
//*            version of REVIEW which is Level 39.2.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 135 to include the latest load        *   DOC FILE
//*            modules for REVIEW 39.2.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to Files 185 and 186 to reflect the new       *   DOC FILE
//*            default contents of the IKJTSOxx member in PARMLIB,  *   DOC FILE
//*            although you still have to customize this stuff      *   DOC FILE
//*            carefully for yourself.  (z/OS 1.5 level.)           *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 299 which is the TAPEMAP program.     *   DOC FILE
//*            SMPPTFIN files now are distributed starting with     *   DOC FILE
//*            ++ ASSIGN cards, and these were not being recognized *   DOC FILE
//*            by TAPEMAP as being SMPPTFIN files.  TAPEMAP now     *   DOC FILE
//*            does that, and will report sysmod numbers if there   *   DOC FILE
//*            are SYSMODs later in the file.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 314 from Lionel Dyck with XMITIP      *   DOC FILE
//*            version 5.28.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 349 which is for dynamic update       *   DOC FILE
//*            of your ISPF command table.  Added an updated        *   DOC FILE
//*            ISPCOMND member sample, to put into your ISPF        *   DOC FILE
//*            profile.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 404 (TSSO) from Brian Westerman       *   DOC FILE
//*            to fix a problem with the SPMON member.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Updates to Files 409 and 410 from Rob Scott, to      *   DOC FILE
//*            include a new Genlevel of MXI and some panel         *   DOC FILE
//*            changes.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*            MXI Version 4.3 GenLevel 050126                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 492 from Roland Schiradin to contain  *   DOC FILE
//*            SHOWMVS 7.10 and a new 64-bit-only version of        *   DOC FILE
//*            SHOWMVS which is called SHOWzOS (also at version     *   DOC FILE
//*            7.10).  Load module libraries for each level of      *   DOC FILE
//*            SHOWMVS (6.30 and 7.10) and SHOWzOS (7.10) have      *   DOC FILE
//*            been included, because assembly of the SHOWMVS       *   DOC FILE
//*            source requires z/OS R1.4 and HLASM 1.4, and         *   DOC FILE
//*            assembly of SHOWzOS requires HLASM 1.5, or some      *   DOC FILE
//*            extra maintenance to HLASM 1.4, to support the       *   DOC FILE
//*            FLAG(NOEXLITW) option.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 498 which is the Match-Merge program  *   DOC FILE
//*            from Craig Schneiderwent.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 533 from Sam Golob, to include a      *   DOC FILE
//*            completely rewritten VTT2DISK and VTT2TAPE, that     *   DOC FILE
//*            allow for the creation and reading of AWS tape       *   DOC FILE
//*            files with any chunk size.  Also added were two      *   DOC FILE
//*            similar programs that produce and read virtual       *   DOC FILE
//*            tapes on disk, in FLEX-ES Faketape format.  You      *   DOC FILE
//*            don't need a FLEX-ES or a P/390 machine to produce   *   DOC FILE
//*            or read any of these virtual tapes.  Any MVS system  *   DOC FILE
//*            will do.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 628 from Andrew Armstrong.  This is   *   DOC FILE
//*            a program to analyze a TCP/IP packet trace file.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 630 from Bob Glover.  This is his     *   DOC FILE
//*            program and exec to copy and move datasets using     *   DOC FILE
//*            DFDSS, in the foreground under TSO.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 662 from Dave Cartwright, which       *   DOC FILE
//*            is his automated bridge from CA-1 to FLEX-ES         *   DOC FILE
//*            Faketapes.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 685 from Pierre Delaunoy, with an     *   DOC FILE
//*            updated version of his TXT2XML program.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 688 from Larry Altman, with a later   *   DOC FILE
//*            version of the INITDBGN program for IMS support.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 693 from Terry Miller and Richard     *   DOC FILE
//*            Rice, which is their facility to dynamically add     *   DOC FILE
//*            directory blocks to, and reorganize partitioned      *   DOC FILE
//*            datasets.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 702 from Frank Lawrence and Stephen   *   DOC FILE
//*            McColley of SunTrust.  These are JES2 mods that      *   DOC FILE
//*            include much of the functionality of the Mellon      *   DOC FILE
//*            Mods, and more.  The mods are being maintained by    *   DOC FILE
//*            Stephen McColley.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Addition of File 704 from Rob Johns, which is the    *   DOC FILE
//*            DRDASD (Doctor DASD) program that gathers a lot of   *   DOC FILE
//*            information about your mounted "DASD farm".          *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Addition of File 705 from Dave Cartwright, which     *   DOC FILE
//*            is a system to do some performance measurement on    *   DOC FILE
//*            MVS which is running on a FLEX-ES system.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Addition of File 706 from Andrew Armstrong, which    *   DOC FILE
//*            contains a system to convert your graphic data,      *   DOC FILE
//*            such as performance data, to Scalable Vector         *   DOC FILE
//*            Graphics (SVG) format and make it displayable        *   DOC FILE
//*            elsewhere in your network.  This file is very big,   *   DOC FILE
//*            because it includes the Java executables that are    *   DOC FILE
//*            needed to run it on MVS, and we tried to make it     *   DOC FILE
//*            self-contained.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Addition of File 707 from J.D. Acevedo, which is     *   DOC FILE
//*            his system to create customized and personal ISPF    *   DOC FILE
//*            3.4 dataset lists that are reproducible, and which   *   DOC FILE
//*            make it possible to get to YOUR lists of datasets    *   DOC FILE
//*            very quickly and conveniently.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Addition of File 708 from Glenn Siegel, which        *   DOC FILE
//*            contains a very general MPF exit to perform the      *   DOC FILE
//*            actions of many MPF exits, combined into one.  I     *   DOC FILE
//*            was tempted to call it "the mother of all MPF        *   DOC FILE
//*            exits".  One MPF exit replaces all of them (I        *   DOC FILE
//*            think).                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Addition of File 709 from Bob Shannon, which is      *   DOC FILE
//*            his MPFCMD program that was "in demand" by the       *   DOC FILE
//*            participants in a IBM-Main discussion thread         *   DOC FILE
//*            recently (around Jan or Feb 2005).                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Addition of File 710 from somitcw@yahoo.com, which   *   DOC FILE
//*            are two TSO commands to display DASD volume records  *   DOC FILE
//*            and DASD dataset records.  These commands can work   *   DOC FILE
//*            on all levels of MVS, including MVS 3.8 thru z/OS.   *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-467 SECTION                                          *   DOC FILE
//*  V-467  CHANGES FOR VERSION 467 NOV 15, 2004                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Updates to File 035 to reflect updates in COPYMODS,  *   DOC FILE
//*            PDS 8.5.25, DAF, and the addition of a new program,  *   DOC FILE
//*            XMDSMAIN, which is a TSO cross-memory core browser   *   DOC FILE
//*            somewhat like LOOK from File 264, but which uses     *   DOC FILE
//*            ESA cross-memory facilities, and not SRBs.  This     *   DOC FILE
//*            makes XMDSMAIN more accurate in some cases, when     *   DOC FILE
//*            going to the virtual storage in another address      *   DOC FILE
//*            space.  Source for XMDSMAIN is on File 690, and      *   DOC FILE
//*            its author is Martin Kline.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 094 which is DAF from Mike Cleary.    *   DOC FILE
//*            DAF is now at the version 1.4.2 level.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 120 from Sam Golob to add articles.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 134 from Greg Price to add a new      *   DOC FILE
//*            version of REVIEW which is Level 38.5.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 135 to include the latest load        *   DOC FILE
//*            modules for REVIEW 38.5 with the new editor.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 171 from Richard L. Rice, to fix      *   DOC FILE
//*            a bug in the disassembler.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 182 from John Kalinich with some      *   DOC FILE
//*            changes to PDS 8.5.25 for big screen sizes.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Updates to COPYMODS on File 229 from Sam Golob,      *   DOC FILE
//*            to add an optional report for individual blocks'     *   DOC FILE
//*            sizes (RECSIZE).  COPYMODS is now at Level 080.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 247 from Sam Golob to fix up the      *   DOC FILE
//*            equipment included which edits the NOTICES section   *   DOC FILE
//*            of SYS1.BRODCAST.  A new CLIST called $NOTICE is     *   DOC FILE
//*            included, which can be used if you can't get the     *   DOC FILE
//*            TSO CONSOLE permissions needed to run the $$BCEDIT   *   DOC FILE
//*            exec.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 297 from Michael Cleary, which is     *   DOC FILE
//*            his ISPF dialog to provide an interactive interface  *   DOC FILE
//*            to the GRS (Global Resource Serialization) queue.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Updates to Files 313 and 314 from Lionel Dyck to     *   DOC FILE
//*            bring out new versions of SPELLC, TXT2HTML, and      *   DOC FILE
//*            XMITIP.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Updates to Files 409 and 410 from Rob Scott, to      *   DOC FILE
//*            include a new Genlevel of MXI and some panel         *   DOC FILE
//*            changes.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*            MXI Version 4.3 GenLevel 040902                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Updates to File 434 from Mark Zelden.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Updates to File 452 from Dan Dalby, with a re-work   *   DOC FILE
//*            to his fine utilities collection.  Members of the    *   DOC FILE
//*            pds are individual libraries, in TSO XMIT format.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 492 from Roland Schiradin to contain  *   DOC FILE
//*            SHOWMVS 7.09 and a new 64-bit-only version of        *   DOC FILE
//*            SHOWMVS which is called SHOWzOS (also at version     *   DOC FILE
//*            7.09).  Load module libraries for each level of      *   DOC FILE
//*            SHOWMVS (6.30 and 7.08 and 7.09) and SHOWzOS (7.09)  *   DOC FILE
//*            have been included, because assembly of the SHOWMVS  *   DOC FILE
//*            source requires z/OS R1.4 and HLASM 1.4, and         *   DOC FILE
//*            assembly of SHOWzOS requires HLASM 1.5, or some      *   DOC FILE
//*            extra maintenance to HLASM 1.4, to support the       *   DOC FILE
//*            FLAG(NOEXLITW) option.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 518 from Sam Knutson, to expand his   *   DOC FILE
//*            collection of tools.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 534 from Paul Dion, with a new        *   DOC FILE
//*            version of the SPACE command that works in z/OS      *   DOC FILE
//*            Release 1.5.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 630 from Bob Glover.  This is his     *   DOC FILE
//*            program and exec to copy and move datasets using     *   DOC FILE
//*            DFDSS, in the foreground under TSO.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 638 from Guanghui Zhou, which is      *   DOC FILE
//*            his SENDMAIL program to send emails from TSO.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 640 from Andrew Armstrong, which      *   DOC FILE
//*            is his program to produce better separator pages     *   DOC FILE
//*            under VPS.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 669 from Willy Jensen, to his REXX    *   DOC FILE
//*            function package which adds facility to save REXX    *   DOC FILE
//*            variables.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 685 from Pierre Delaunoy, with fixes  *   DOC FILE
//*            to his TXT2XML facility.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Addition of File 686 to include a version of the     *   DOC FILE
//*            SMFDUMP program that is descended from a SAMPLIB     *   DOC FILE
//*            offering from IBM which was distributed in the       *   DOC FILE
//*            distant past.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Addition of File 687 from Jose Maria (Chema)         *   DOC FILE
//*            Alvarez, which is a package to compare catalogs      *   DOC FILE
//*            mentioned in VVDS'es on DASD volumes, and see if     *   DOC FILE
//*            they are actually real catalogs that are connected   *   DOC FILE
//*            on the running system.  (This is a very neat piece   *   DOC FILE
//*            of work, and potentially very useful.  SG)           *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Addition of File 688 from Larry Altman, which is     *   DOC FILE
//*            an improved version of the INITDBGN program from     *   DOC FILE
//*            Larry Prestosa.  This program can be used to         *   DOC FILE
//*            generate DBRC INIT commands under IMS V6 and V7,     *   DOC FILE
//*            in order to transfer database registration           *   DOC FILE
//*            information from one recon to another.  Also, it     *   DOC FILE
//*            can create database registration commands which      *   DOC FILE
//*            may have been lost.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Addition of File 689 from Peter Sawyer, which        *   DOC FILE
//*            contains his famous 1989 SHARE paper on how to       *   DOC FILE
//*            use SVC 26 (the low-level ICF and VSAM catalog       *   DOC FILE
//*            interface).  Published documentation on how to       *   DOC FILE
//*            use SVC 26 directly (this is what LISTCAT and        *   DOC FILE
//*            other such commands call) is almost nil.  Peter      *   DOC FILE
//*            speculates why, and provides a very good piece       *   DOC FILE
//*            of doc, which is essential if you want to issue      *   DOC FILE
//*            SUPERLOCATE and LOCATE, and similar catalog          *   DOC FILE
//*            functions, directly from an Assembler program.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Addition of File 690 from Martin Kline, which is     *   DOC FILE
//*            his TSO cross-memory core browser called XMDSMAIN.   *   DOC FILE
//*            A copy of the load module for XMDSMAIN has also      *   DOC FILE
//*            been included on File 035.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Addition of File 691 from Martin Kline, to include   *   DOC FILE
//*            a tool to optimize reads of a few records from a     *   DOC FILE
//*            large sorted sequential file.  There are a few       *   DOC FILE
//*            SYS1.BRODCAST tools here too.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Addition of File 692 from David Merrifield of the    *   DOC FILE
//*            University of Arkansas.  This file contains his      *   DOC FILE
//*            tape mapping, printing, and copying utility called   *   DOC FILE
//*            UATAPE.  (Extended to handle 64K blocks on a tape.)  *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Addition of File 693 from Terry Miller and Richard   *   DOC FILE
//*            Rice.  This file contains a TSO utility called       *   DOC FILE
//*            PDSCLEAN, which can expand a pds directory in place  *   DOC FILE
//*            or clean out all the members of a pds.  Since        *   DOC FILE
//*            PDSCLEAN invokes IEBCOPY after its processing, it    *   DOC FILE
//*            has to be run APF authorized.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Addition of File 694 from Mark Yuhas, which          *   DOC FILE
//*            contains a macro called MACTREE for doing an         *   DOC FILE
//*            efficient binary search through a table of values,   *   DOC FILE
//*            and a two-part article explaining the thinking       *   DOC FILE
//*            behind the macro.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Addition of File 695 from J.D. Acevedo, which        *   DOC FILE
//*            contains his collection of very useful REXX execs,   *   DOC FILE
//*            including a display of system variables, ISPF        *   DOC FILE
//*            variables, etc. and other very useful tools.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        33  Addition of File 696 from John McKown, which         *   DOC FILE
//*            contains a system to implement the z/OS tape robot   *   DOC FILE
//*            for FLEX-ES.  There is some code which must be run   *   DOC FILE
//*            under Linux, which is contained in an XMIT-format    *   DOC FILE
//*            TAR file in this pds.  Full instructions are         *   DOC FILE
//*            included for installation.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        34  Addition of File 697 from John McKown, which         *   DOC FILE
//*            contains a system that does reporting for CICS       *   DOC FILE
//*            Transaction Server 1.3 on Linux, using Perl,         *   DOC FILE
//*            and PostgrSQL.  This system replaces the sample      *   DOC FILE
//*            code distributed by IBM, which does a similar job    *   DOC FILE
//*            using DB2.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        35  Addition of File 698 from John McKown, which         *   DOC FILE
//*            contains a system to do RACF reporting on Linux,     *   DOC FILE
//*            using Perl and PostgreSQL.  Files 696 thru 698       *   DOC FILE
//*            were developed for running z/OS on a FLEX-ES         *   DOC FILE
//*            machine, which emulates S/390 and 64-bit instruc-    *   DOC FILE
//*            tions running under Linux.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        36  Addition of File 699 from Alex Brodsky, which        *   DOC FILE
//*            contains an "intelligent" ISPF edit macro to submit  *   DOC FILE
//*            jobs.  One of the advantages of this command is      *   DOC FILE
//*            that you can exclude lines from the JCL and not      *   DOC FILE
//*            include the excluded lines in the submitted job.     *   DOC FILE
//*            Also, this edit macro returns the Job Id.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        37  Addition of File 700 from Jim Haire, which contains  *   DOC FILE
//*            some REXX-based edit macros of great usefulness,     *   DOC FILE
//*            to extend "cut and paste" type capabilities to       *   DOC FILE
//*            parts of a line, etc.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        38  Addition of File 701 from Marino Drazeta, which      *   DOC FILE
//*            contains some very useful DB2 Administration tools.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        39  Addition of File 702 from Frank Lawrence, which      *   DOC FILE
//*            contains JES2 Mods on the z/OS 1.4 level, some       *   DOC FILE
//*            of which provide "MELLON MODS"-like functionality.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        40  Addition of File 703 from Clem Clarke, which is      *   DOC FILE
//*            his PFD2ISPF program that converts member stats      *   DOC FILE
//*            in a pds from Fujitsu PFD format to ISPF format.     *   DOC FILE
//*            This program has further usefulness as a learning    *   DOC FILE
//*            tool, to teach how to manipulate pds directory       *   DOC FILE
//*            entries in general, inside an Assembler program.     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-466 SECTION                                          *   DOC FILE
//*  V-466  CHANGES FOR VERSION 466 JUL 25, 2004                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  Several files have been moved from the Regular CBT   *   DOC FILE
//*            Tape to the CBT Overflow Tape, because of lack of    *   DOC FILE
//*            room on the Regular CBT Tape.  They are:             *   DOC FILE
//*                                                                 *   DOC FILE
//*            File 210  -  moved to CBT Overflow Tape, File 310    *   DOC FILE
//*            File 211  -  moved to CBT Overflow Tape, File 311    *   DOC FILE
//*            File 212  -  moved to CBT Overflow Tape, File 312    *   DOC FILE
//*            File 213  -  moved to CBT Overflow Tape, File 313    *   DOC FILE
//*                                                                 *   DOC FILE
//*            Documentation remains on the Regular CBT Tape, to    *   DOC FILE
//*            point you to the new location of these files.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Updates to File 035 to reflect updates in COPYMODS   *   DOC FILE
//*            and PDS 8.5.25.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 039 to supply a slightly different    *   DOC FILE
//*            zap to IPOUPDTE and CPPUPDTE so it doesn't require   *   DOC FILE
//*            a $$$COIBM member in order for these programs to     *   DOC FILE
//*            work.  This is just an alternative.  The other zap   *   DOC FILE
//*            works too.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 094 which is DAF from Mike Cleary.    *   DOC FILE
//*            DAF is now at the version 1.4.0 level.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 120 from Sam Golob to add articles.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 134 from Greg Price to add a new      *   DOC FILE
//*            version of REVIEW that has an ISPF-like editor.      *   DOC FILE
//*            Just enter U for Update, from the directory list,    *   DOC FILE
//*            or UPDATE from the command line of a REVIEW screen.  *   DOC FILE
//*            This editor works from raw TSO and does not need     *   DOC FILE
//*            ISPF at all.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 135 to include the latest load        *   DOC FILE
//*            modules for REVIEW with the new editor.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 182 from John Kalinich with some      *   DOC FILE
//*            changes to PDS 8.5.25.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Updates to COPYMODS on File 229 from Sam Golob,      *   DOC FILE
//*            to add a (6250 bpi) FOOTAGE report, and a MINMAX     *   DOC FILE
//*            option that can show max and min blocksizes for      *   DOC FILE
//*            each tape file.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 247 from Sam Golob to include a       *   DOC FILE
//*            few assembly jobs, that either assemble all of the   *   DOC FILE
//*            BCM***** modules in the package, or one or several   *   DOC FILE
//*            of the modules at a time.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 266 which is the ancient SS0104 Tape  *   DOC FILE
//*            measuring program from Florida Power.  This program  *   DOC FILE
//*            had some trouble running with SL tapes on recent     *   DOC FILE
//*            MVS systems, and an original author, Gordon P. West, *   DOC FILE
//*            helped solved the problem.  Here is fixed source.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Updates to Files 312, 313, and 314 from Lionel       *   DOC FILE
//*            Dyck.  These files deserve special examination,      *   DOC FILE
//*            because there have been many updates to them.        *   DOC FILE
//*            Also added was a TRYIT edit macro, which actually    *   DOC FILE
//*            runs the REXX that you are currently editing.  And   *   DOC FILE
//*            a spelling checker that runs under MVS (called       *   DOC FILE
//*            SPELLC in File 313) was added too.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Many updates to Carl Hafner's collection (File 357). *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Updates to File 434 from Mark Zelden, specifically   *   DOC FILE
//*            to the IPLINFO REXX exec.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 445 which is an object deck           *   DOC FILE
//*            disassembler, from Chris Kendon.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 520 (REXX function package) from      *   DOC FILE
//*            Robin Ryerse.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 589 which is HSCTOOL from Philippe    *   DOC FILE
//*            Leite.                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 608 which is the SPA (list space on   *   DOC FILE
//*            disk) command package from Bob Glover.  I believe    *   DOC FILE
//*            the change is to accommodate very large 3390 packs.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 630 which is the MC (move, copy)      *   DOC FILE
//*            TSO package from Bob Glover, which invokes DFDSS     *   DOC FILE
//*            move-copy interactively.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 633 which is the excellent FDSPACE    *   DOC FILE
//*            and DSPACE package from Bill Smith, which also       *   DOC FILE
//*            displays disk pack free space, but which can call    *   DOC FILE
//*            ISPF 3.4 to list the contents of each disk pack.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 647 which is the XML parser from      *   DOC FILE
//*            Andrew Armstrong.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 662 from David Cartwright, which      *   DOC FILE
//*            is an automated method of conversion from CA-1       *   DOC FILE
//*            tape management to FLEX-ES FakeTape.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 674 which is a large collection of    *   DOC FILE
//*            REXX-based utilities from Robin Murray.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Addition of File 677, which is a "Sysplex Manager"   *   DOC FILE
//*            package from Marco Willemse.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Addition of File 678, which is a series of DFDSS     *   DOC FILE
//*            exits that allows writing an AWS image of a tape,    *   DOC FILE
//*            instead of writing a real tape.  So the DFDSS        *   DOC FILE
//*            backup goes to AWS instead of to an actual tape.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Addition of File 679 from Carlos Aguilera, to        *   DOC FILE
//*            allow automatic construction of a flowchart          *   DOC FILE
//*            directly from JCL, using a REXX input to the VISIO   *   DOC FILE
//*            product.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Addition of File 680 which is an excellent series    *   DOC FILE
//*            of course outlines from Bruce Koss.  The courses     *   DOC FILE
//*            are in both Microsoft Word members (which have to    *   DOC FILE
//*            be downloaded in BINARY to a pc), and in EBCDIC      *   DOC FILE
//*            text members.  The WORD members have more detail     *   DOC FILE
//*            (screen shots) that could not be translated into     *   DOC FILE
//*            text, so both have been supplied here.               *   DOC FILE
//*                                                                 *   DOC FILE
//*            Courses supplied:  REXX course, TSO course,          *   DOC FILE
//*              Edit Macro course, PDSMAN-EZYEDIT course,          *   DOC FILE
//*              ISPF course.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*            Most of these courses contain an amazing amount      *   DOC FILE
//*            of detail, so you can learn a lot of things from     *   DOC FILE
//*            them, even if you already know the subjects well.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Addition of File 681 which is an update of the       *   DOC FILE
//*            PL/I Execution Analyzer (PLEA) from Bob Styma.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Addition of File 682 from Bob Glover, which is his   *   DOC FILE
//*            TSO display of system esoterics, called ESO.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Addition of File 683 from Brian Westerman, which is  *   DOC FILE
//*            an application called BPXSTOP, that shuts down all   *   DOC FILE
//*            open UNIX services.  This is something that you run  *   DOC FILE
//*            just before shutting the system down for an IPL,     *   DOC FILE
//*            that will clean up anything that is still open in    *   DOC FILE
//*            the MVS UNIX environment, after you've manually      *   DOC FILE
//*            shut down everything that you could.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Addition of File 684 from Rick Fochtman, which       *   DOC FILE
//*            contains a PDS update-in-place utility called        *   DOC FILE
//*            PDSUPDTE, plus numerous system exits.  A useful      *   DOC FILE
//*            file to look at.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Addition of File 685 from Pierre Delaunoy, which     *   DOC FILE
//*            contains his TXT2XML facility which converts text    *   DOC FILE
//*            to XML, and vice-versa.                              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-465 SECTION                                          *   DOC FILE
//*  V-465  CHANGES FOR VERSION 465 MAY 02, 2004                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035 to add a new load module called   *   DOC FILE
//*            TAPEMAPF which is a copy of TAPEMAP that will bypass *   DOC FILE
//*            certain I/O errors.  Source is on File 299.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 050 to update the URLs so that most   *   DOC FILE
//*            of them will now work again.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 120 to add new articles.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 135 to include load modules for       *   DOC FILE
//*            REVIEW 38 beta, instead of the latest version of     *   DOC FILE
//*            REVIEW 37, which has some bugs when running with     *   DOC FILE
//*            ISPF.  I figured that I should include a version     *   DOC FILE
//*            of REVIEW which avoids problems, even though it's    *   DOC FILE
//*            still "beta".  Load modules for SHOWMVS have been    *   DOC FILE
//*            updated to the 7.08 level.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 183 from Gilbert Saint-flour.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 247 from Sam Golob to include a       *   DOC FILE
//*            version of BCMISPF (from Vinh Vu) which is in        *   DOC FILE
//*            IEBUPDTE SYSIN format (PDSLOAD format) instead       *   DOC FILE
//*            of being in TSO XMIT format.  The TSO XMIT format    *   DOC FILE
//*            member is now called BCMISPF, and the PDSLOAD        *   DOC FILE
//*            format member is called BCMISPFI.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 299 from Peter McFarland to make a    *   DOC FILE
//*            version of TAPEMAP called TAPEMAPF that eliminates   *   DOC FILE
//*            looking for the sense bytes when there is a problem  *   DOC FILE
//*            with the input tape.  Since this is a kludge, I      *   DOC FILE
//*            have kept the original version too, until TAPEMAP    *   DOC FILE
//*            can be properly fixed for when the UCBs are genned   *   DOC FILE
//*            above the 16M line.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Updates to Files 312, 313, and 314 from Lionel       *   DOC FILE
//*            Dyck.  These files deserve special examination,      *   DOC FILE
//*            because there have been many updates to them.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 321 from Roland Schiradin, which is   *   DOC FILE
//*            his COBOL load module analyzer.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 394 from Jan Jakubek to add a new     *   DOC FILE
//*            REXX called MXIVSTOR.  This REXX uses MXI to get     *   DOC FILE
//*            the amount of virtual storage available to your      *   DOC FILE
//*            TSO session.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to Files 409 and 410 from Rob Scott to        *   DOC FILE
//*            supply a new genlevel of MXI.  Rob now works for     *   DOC FILE
//*            Rocket Software.  www.rocketsoftware.com             *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 415 from Rob Prins, which is V1R5M2   *   DOC FILE
//*            of RPF (Rob's Programming Facility).                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 417 from Rob Prins, which is V1R2M2   *   DOC FILE
//*            of RPF/E (the "above the line" version of RPF),      *   DOC FILE
//*            which is at the same functional level as V1R5M2 of   *   DOC FILE
//*            RPF.                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 492 from Roland Schiradin, to         *   DOC FILE
//*            contain source and load for SHOWMVS 6.30 and 7.08.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 527 from Matthew Stitt to include     *   DOC FILE
//*            a new date conversion routine, callable from COBOL,  *   DOC FILE
//*            named G207DCAN.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 600 from Paul Wells.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 627, which is AUTOMAN from Simon      *   DOC FILE
//*            Spanchak.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Addition of File 662 from David Cartwright, which    *   DOC FILE
//*            is an automated method of conversion from CA-1       *   DOC FILE
//*            tape management to FLEX-ES FakeTape.  BTW, shops     *   DOC FILE
//*            which are thinking of eliminating MVS might          *   DOC FILE
//*            consider downsizing it to a FLEX-ES system, thereby  *   DOC FILE
//*            saving some of the jobs of the MVS people.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Addition of File 663 from Paul Edwards, which is a   *   DOC FILE
//*            public domain C language runtime library.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Addition of File 664 from Jay Moseley, which is his  *   DOC FILE
//*            collection of date conversion subroutines.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Addition of File 665 from Jay Moseley, which is his  *   DOC FILE
//*            his collection of field reformatting routines.  The  *   DOC FILE
//*            idea is to properly reformat fields that were        *   DOC FILE
//*            entered during a CICS-based transaction.  Or these   *   DOC FILE
//*            routines can be used in other similar types of       *   DOC FILE
//*            circumstances.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Addition of File 666 from Jay Moseley.  This is his  *   DOC FILE
//*            implementation of the "comb sort" improvement to     *   DOC FILE
//*            the bubble sort algorithm, and the file also         *   DOC FILE
//*            includes a pseudo-random number generator.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Addition of File 667 from Jay Moseley.  This is his  *   DOC FILE
//*            excellent tutorial about how to use the older        *   DOC FILE
//*            versions of the RPG language, such as RPG/F whose    *   DOC FILE
//*            compiler and library modules are on File 327 of      *   DOC FILE
//*            this tape.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Addition of File 668 from Hunter Guanghui Zhou.      *   DOC FILE
//*            This is a program to OFFLOAD JES2 spool datasets     *   DOC FILE
//*            to sequential datasets for future preservation       *   DOC FILE
//*            and archival.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Addition of File 669 from Willy Jensen, which        *   DOC FILE
//*            contains a REXX function package to save and         *   DOC FILE
//*            preserve REXX variables.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Addition of File 670 from Deru Sudibyo, which        *   DOC FILE
//*            contains a REXX math function package, similar       *   DOC FILE
//*            to math functions for PL/I.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Addition of File 671 from Ed Pancoast, which         *   DOC FILE
//*            contains a useful edit macro called ZOOM.  This      *   DOC FILE
//*            edit macro allows you to retrieve a dataset by       *   DOC FILE
//*            placing a cursor on its name.  ZOOM originally       *   DOC FILE
//*            came from the TSO TIMES magazine from the Fall       *   DOC FILE
//*            1994 issue.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Addition of File 672 from Joel Ewing, which is the   *   DOC FILE
//*            NETINIT program in a version that works under OS/390 *   DOC FILE
//*            and z/OS.  NETINIT will intelligently start VTAM     *   DOC FILE
//*            applications and issue arbitrary MVS commands after  *   DOC FILE
//*            VTAM is up.  NETINIT can probably completely replace *   DOC FILE
//*            IBM's VTAMAPPL program in functionality.  In         *   DOC FILE
//*            addition, in its NETSTOP incarnation, NETINIT can    *   DOC FILE
//*            take down most of your system intelligently, too.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Addition of File 673 from Tom Sipusic, with a        *   DOC FILE
//*            program called CCFDELET which will delete datasets   *   DOC FILE
//*            using JCL.  In addition, CCFDELET will delete HSM    *   DOC FILE
//*            archived datasets without having to recall them.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Addition of File 674 from Robin Murray, to contain   *   DOC FILE
//*            a nice collection of REXX-based utilities that will  *   DOC FILE
//*            help enhance your TSO session toolbox.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        31  Addition of File 675 from Isaac Yassin, to contain   *   DOC FILE
//*            REXX execs pertaining to DB2 reporting.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        32  Addition of File 676 from Jim Marshall, which        *   DOC FILE
//*            contains updated batch utilities, VPS EXITS, and     *   DOC FILE
//*            code, updated to work in z/OS.                       *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-464 SECTION                                          *   DOC FILE
//*  V-464  CHANGES FOR VERSION 464 FEB 05, 2004                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  Because of the physical size of this tape, File 352  *   DOC FILE
//*            has been moved to the CBT Overflow Tape, File 301.   *   DOC FILE
//*            This is the Intel Mods and Utilities collection.     *   DOC FILE
//*            The table of contents for that collection remains    *   DOC FILE
//*            in this documentation, so you can still find the     *   DOC FILE
//*            materials easily, if you need them.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*              File 352:   moved to CBT Overflow Tape, File 301   *   DOC FILE
//*                                                                 *   DOC FILE
//*            The XSYS facility for CICS and DB2 has also been     *   DOC FILE
//*            moved, for the same reason.  However, for now, the   *   DOC FILE
//*            XSYS facility for MVS (Files 204 and 205) remains    *   DOC FILE
//*            here on this tape.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*              File 210:   moved to CBT Overflow Tape, File 310   *   DOC FILE
//*              File 211:   moved to CBT Overflow Tape, File 311   *   DOC FILE
//*              File 212:   moved to CBT Overflow Tape, File 312   *   DOC FILE
//*              File 213:   moved to CBT Overflow Tape, File 313   *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035 load module library with the      *   DOC FILE
//*            new versions of COPYFILE and COPYSLNL, plus newly    *   DOC FILE
//*            assembled load modules for PDS 8.5.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 120 from Sam Golob to add articles.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 135 to include newly assemble load    *   DOC FILE
//*            modules for the ISO-date versions of PDS 8.5.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 182 from John Kalinich, with a newer  *   DOC FILE
//*            version of PDS 8.5.25.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 229 to remove the TLPRINT limitation  *   DOC FILE
//*            from COPYMODS and COPYSLNL.  You can now print an    *   DOC FILE
//*            unlimited number of labels when copying files from   *   DOC FILE
//*            a tape with a large number of SL files.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 312 from Lionel Dyck, to add a new    *   DOC FILE
//*            package called ONCALL, and an updated version of     *   DOC FILE
//*            FTP Batch.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 314 from Lionel Dyck, with a new      *   DOC FILE
//*            version of XMITIP and TXT2RTF.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Updates to File 394 from Jan Jakubek.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Updates to Files 409 and 410 (which is MXI) from     *   DOC FILE
//*            Rob Scott, who now works for Rocket Software.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 498 which is the match-merge program  *   DOC FILE
//*            from Craig Schneiderwent.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 529 from Matthew Stitt.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 541 which is the cckd program from    *   DOC FILE
//*            Greg Smith.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 542 from Alastair Gray.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 589 which is the HSCTOOL package      *   DOC FILE
//*            from Philippe Leite.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 623 from Hunter Zhou, which contains  *   DOC FILE
//*            his AUTOIPL and AUTO shutdown packages.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 629 which is Andrew Armstrong's       *   DOC FILE
//*            SNTP package.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 644 which is the FUSION change        *   DOC FILE
//*            control program package from Joe Caughman.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 647 which is Andrew Armstrong's XML   *   DOC FILE
//*            parser written in REXX.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Addition of File 657 from Kevin Mitts, which is a    *   DOC FILE
//*            set of jobs to set up an MVS rescue res pack.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Addition of File 658 which is an Assembler program   *   DOC FILE
//*            to do a CRC check calculation on a file, and a REXX  *   DOC FILE
//*            exec to call it.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Addition of File 659 from Glenn Siegel, which is a   *   DOC FILE
//*            cookbook recipe, including ingredients (such as      *   DOC FILE
//*            pieces of Hercules, etc.), to create P/390           *   DOC FILE
//*            compatible DASD files from conventional MVS DASD.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Addition of File 660 which is a beautiful edit       *   DOC FILE
//*            macro from Gerhard Postpischil, to check a REXX      *   DOC FILE
//*            exec by calling the REXX compiler.  Compiler errors  *   DOC FILE
//*            are displayed right in the edit itself.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Addition of File 661 from Peter McFarland, which is  *   DOC FILE
//*            his HOTRDR package to submit jobs from multiple      *   DOC FILE
//*            files, into the internal reader.  This program can   *   DOC FILE
//*            be used to submit batch jobs at IPL time, for        *   DOC FILE
//*            example.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-463 SECTION                                          *   DOC FILE
//*  V-463  CHANGES FOR VERSION 463 NOV 27, 2003                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Updates to File 035 which is a load module           *   DOC FILE
//*            collection.  This version reflects updates to        *   DOC FILE
//*            PDS, COPYMODS, COPYFILE, COPYSLNL.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 066 from Alan Field.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 094 from Mike Cleary to his DAF       *   DOC FILE
//*            utility for analyzing SMF records.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 120 to add more articles.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 134 from Greg Price to bring REVIEW   *   DOC FILE
//*            to version 37.5.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Updates to File 135 which is Greg Price's load       *   DOC FILE
//*            module library but which contains "European--i.e.    *   DOC FILE
//*            the non-United States" version of PDS 8.5 as well.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 171 to the SMFSPLIT utility from      *   DOC FILE
//*            Richard L. Rice.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 182 from John Kalinich to bring the   *   DOC FILE
//*            PDS 8.5 utility package to update level 25.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 229 from Sam Golob, to make multiple  *   DOC FILE
//*            changes to the COPYMODS, COPYFILE, and COPYSLNL      *   DOC FILE
//*            programs.  See the documentation there for details.  *   DOC FILE
//*            For example, COPYMODS now has its full functionality *   DOC FILE
//*            available to handle ASCII tapes (ANSI/ISO Levels 3   *   DOC FILE
//*            and 4).  COPYFILE and COPYSLNL now have no limits    *   DOC FILE
//*            as to the number of labels they can print out, if    *   DOC FILE
//*            PARM=TAPEL is coded in their execution JCL.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Multiple updates from Lionel Dyck to his packages    *   DOC FILE
//*            in Files 312, 313, and 314.  Plus the addition of    *   DOC FILE
//*            a new utility or two.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 315 from Dave Lees.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 357 from Carl Hafner, to fix and add  *   DOC FILE
//*            utilities.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 358 from Kevin Mitts, who has         *   DOC FILE
//*            completely repackaged the SYSOUT archive utility     *   DOC FILE
//*            from Eric Bielefeld.  (Missing pieces found and      *   DOC FILE
//*            added with the cooperation of Eric.)                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 404 from Mike Mayne and others, to    *   DOC FILE
//*            fix a pesky bug having to do with an AOF table       *   DOC FILE
//*            reload operation.  See member #SSOSS09.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update of File 498 from Craig Schneiderwent, which   *   DOC FILE
//*            is his Match-Merge program.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 513 from Jose Maria Martinez Besteiro *   DOC FILE
//*            and Angel Luis Dominguez Martin.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 621 from Hunter Zhou.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 629 (SNTP) from Andrew Armstrong.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 644, which is the FUSION program      *   DOC FILE
//*            update tracking package from Joseph Caughman.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 647, which is the XML parser program  *   DOC FILE
//*            from Andrew Armstrong.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Addition of File 649, which is the PDS2PDS utility   *   DOC FILE
//*            from Mike Newell.  This is a utility for comparing   *   DOC FILE
//*            two pds'es.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Addition of File 650 from Mike Reeves, which is a    *   DOC FILE
//*            CSA reporting and tracking tool.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Addition of File 651 from Chip Grantham, which       *   DOC FILE
//*            contains batch programs to update BWO (backup-       *   DOC FILE
//*            while-open) flags in DFSMS/MVS.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Addition of File 652 from Richard L. Rice.  This is  *   DOC FILE
//*            his multi-dataset FIND utility.  The idea is that    *   DOC FILE
//*            if you have several MVS systems, you can look in     *   DOC FILE
//*            the correct libraries for members, no matter which   *   DOC FILE
//*            MVS system you are logged on to.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Addition of File 653 from Jim Harrison, which        *   DOC FILE
//*            contains his collection of utilities for Dynamic     *   DOC FILE
//*            Allocation.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Addition of File 654 from Tommy Sprinkle.  This is   *   DOC FILE
//*            his Full Screen Interface for TSO, version 1.2.0.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Addition of File 655 from David Kopischke.  This     *   DOC FILE
//*            file contains REXX execs to help you clean up your   *   DOC FILE
//*            MVS catalogs.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Addition of File 656 from Kannan AK in Madras,       *   DOC FILE
//*            India, and contains a very large collection, mostly  *   DOC FILE
//*            of REXX-based utilities.  This collection is very    *   DOC FILE
//*            worthy of a good look!                               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-462 SECTION                                          *   DOC FILE
//*  V-462  CHANGES FOR VERSION 462 SEP 15, 2003                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 006 to add DOCFILX REXX exec that     *   DOC FILE
//*            was converted from the DOCFIL CLIST, using the       *   DOC FILE
//*            CLIST to REXX conversion tool from File 646.         *   DOC FILE
//*            (Much tweaking was done to get the REXX to actually  *   DOC FILE
//*            work correctly.)                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 019 from John Hooper.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 035 to add new version of COPYMODS,   *   DOC FILE
//*            and PDS 8.5.24.  VTT2TAPE, COPYFILE, COPYSLNL,       *   DOC FILE
//*            COPYNLNL, IEHMAP, and DAF.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 038 from Larry Williams, to get       *   DOC FILE
//*            the KLINGON startup CLIST to work on MVS 3.8 under   *   DOC FILE
//*            Hercules.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 083 with a new assembly procedure     *   DOC FILE
//*            for IEHMAP, and a loadlib in TSO XMIT format.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 094 with a new version of DAF.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 120 to add new articles.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 135 to add new load modules for       *   DOC FILE
//*            PDS 8.5 and SHOWMVS.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 171, to change Richard Rice's         *   DOC FILE
//*            contact email address.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 172 from Dave Cartwright.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 182 from John Kalinich to PDS 8.5.24. *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 183 from Gilbert Saint-flour.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 229 from Sam Golob, to add a new      *   DOC FILE
//*            version of COPYMODS that can Hex Print records       *   DOC FILE
//*            from the tape being read/copied, a la TAPESCAN.      *   DOC FILE
//*            Also, to measure outputs written to short tapes.     *   DOC FILE
//*            New versions of COPYMODS, COPYSLNL, and COPYNLNL     *   DOC FILE
//*            to remove the restriction that successive file       *   DOC FILE
//*            numbers (on input or output tapes) have to be        *   DOC FILE
//*            ascending.  You can now code:  7/1  2  22 , or even  *   DOC FILE
//*            2 2 2 2 2 2  and so forth.  You can now also code    *   DOC FILE
//*            multiple ranges of files to copy, such as:           *   DOC FILE
//*            51 -100  151 -200 to copy files 51 thru 100 and      *   DOC FILE
//*            afterwards files 151 thru 200.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Updates to File 312 from Lionel Dyck.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 314 from Lionel Dyck with a new       *   DOC FILE
//*            version of XMITIP etc.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 316 to also include the new source    *   DOC FILE
//*            for COPYFILE, COPYSLNL, and COPYNLNL, which had      *   DOC FILE
//*            originated on this file.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 492 from Roland Schiradin, to         *   DOC FILE
//*            contain SHOWMVS 7.07 and the old version 6.30.       *   DOC FILE
//*            These versions now contain Mike Knorr's update       *   DOC FILE
//*            (instructions on File 645) which tells the user      *   DOC FILE
//*            whether or not SHOWMVS was invoked authorized.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 525 from Stephen Bell, to add         *   DOC FILE
//*            another zap to fix IBM's unsupported CFMON monitor   *   DOC FILE
//*            so it can work at least up to z/OS 1.4.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 533 from Sam Golob to VTT2TAPE        *   DOC FILE
//*            so you can optionally change the volser of the       *   DOC FILE
//*            output tape that you're cutting from an AWS file.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 570 to add a small snippet of code    *   DOC FILE
//*            that extracts the JES job number.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Update to File 588 from Sergey Makogonov.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Update to File 601 from Greg Price to bring his      *   DOC FILE
//*            version of QUEUE for MVS 3.8 (under Hercules)        *   DOC FILE
//*            up to the latest version he has.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Update to File 606 which is AWSSL 1.9J from          *   DOC FILE
//*            Reed Petty.  This program creates HET (Hercules      *   DOC FILE
//*            Emulated Tape) "tape" files or AWS "tape" files      *   DOC FILE
//*            from datasets on MVS.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Update to File 612 from Richard Rice to fix Albert   *   DOC FILE
//*            Cheng's LOCATE program.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Addition of File 644 from Joseph Caughman, which     *   DOC FILE
//*            is his FUSION package, a change management package   *   DOC FILE
//*            that takes advantage of the tremendous capabilities  *   DOC FILE
//*            of IBM's SUPERC comparison program.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Addition of File 645 from Mike Knorr, which is       *   DOC FILE
//*            a piece of code he adds to all current versions      *   DOC FILE
//*            of SHOWMVS (on File 492) so SHOWMVS tells you if     *   DOC FILE
//*            it is running authorized or not.  Roland Schiradin   *   DOC FILE
//*            has included this code into his latest versions      *   DOC FILE
//*            of SHOWMVS (7.07 and 6.30) but I am including it     *   DOC FILE
//*            here, so you know how to upgrade ANY version of      *   DOC FILE
//*            SHOWMVS with this functionality.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Addition of File 646 with is two REXX programs       *   DOC FILE
//*            that assist in converting a CLIST to a REXX exec.    *   DOC FILE
//*            Highly non-perfect, but if you need some assistance  *   DOC FILE
//*            and have to convert CLISTs to REXX execs, these      *   DOC FILE
//*            can help a lot.  The CLS2REXX exec functions as      *   DOC FILE
//*            an edit macro, and the TSOPROC exec converts PROC    *   DOC FILE
//*            statements from the CLIST.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Addition of File 647 which is an XML parser          *   DOC FILE
//*            written in REXX, from Andrew Armstrong.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        30  Addition of File 648 from Howard Gilbert, which      *   DOC FILE
//*            is his GPSAM generalized data-handling subsystem     *   DOC FILE
//*            that converts arbitrary data to appear as            *   DOC FILE
//*            sequential to an application program.  This file     *   DOC FILE
//*            used to appear on Files 10 and 11 of the CBT Tape    *   DOC FILE
//*            in days of yore.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-461 SECTION                                          *   DOC FILE
//*  V-461  CHANGES FOR VERSION 461 JUL 17, 2003                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  To make more room on this tape, the following files  *   DOC FILE
//*            have been moved to the CBT Overflow Tape:            *   DOC FILE
//*                                                                 *   DOC FILE
//*            File 261 has been moved to Overflow Tape File 296.   *   DOC FILE
//*            File 384 has been moved to Overflow Tape File 297.   *   DOC FILE
//*                                                                 *   DOC FILE
//*            A stub for each file remains on this tape, to point  *   DOC FILE
//*            the user to the new location of the materials.       *   DOC FILE
//*                                                                 *   DOC FILE
//*            File 071 was updated to reflect the new contents     *   DOC FILE
//*            of the CBT Overflow Tape.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035 to add new version of COPYMODS,   *   DOC FILE
//*            Level 057, and to update DSAT, DVOL, PDS 8.5.24.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 120 to add another article.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 135 to reflect changes in PDS 8.5.24. *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 182 from John Kalinich to PDS 8.5.24. *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 229 from Sam Golob, to add a new      *   DOC FILE
//*            version of COPYMODS that can Hex Print records       *   DOC FILE
//*            from the tape being read/copied, a la TAPESCAN.      *   DOC FILE
//*            Also, to measure outputs written to short tapes.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 299 from Joel R. Ewing, to properly   *   DOC FILE
//*            correct the day-of-week routine in TAPEMAP, which    *   DOC FILE
//*            is the TODAY CSECT, so it works until the year       *   DOC FILE
//*            2100.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 312 from Lionel Dyck, to bring FTP    *   DOC FILE
//*            Batch to level 2.10, and an update to CAVXTRT.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 314 from Lionel Dyck, with XMITIP     *   DOC FILE
//*            4.82.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 343 from John Kalinich, to fix        *   DOC FILE
//*            VTOCLIST so it bypasses HFS files.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Updates to File 409 and 410 to reflect a new         *   DOC FILE
//*            MXI Version 4.3 GenLevel 030703.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 495 with a new level of the           *   DOC FILE
//*            Dynamic ISPF Starter Set (DISS).                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 570, with some advice as to how to    *   DOC FILE
//*            install SSH on MVS Unix.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 588 from Sergey Makogonov.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 623 from Hunter Zhou, to add a fix    *   DOC FILE
//*            for the AUTOIPL package.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Updates to File 628 and 629, just to change the      *   DOC FILE
//*            author's email contact address (Andrew Armstrong).   *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Addition of File 636, which is a REXX exec to allow  *   DOC FILE
//*            the execution of one TSO command against a list of   *   DOC FILE
//*            datasets, which has been generated by LISTC LEV( ).  *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Addition of File 637 from Nolan Young, which is a    *   DOC FILE
//*            program to compare two load modules.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Addition of File 638, which is the SENDMAIL package  *   DOC FILE
//*            from Hunter Zhou.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Addition of File 639, which is the SETHOUR package   *   DOC FILE
//*            from Hunter Zhou.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Addition of File 640 from Andrew Armstrong, which    *   DOC FILE
//*            is a VPS Dynamic Separator Page Printer exit.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Addition of File 641 from Brian Westerman, which     *   DOC FILE
//*            contains "maximum condition codes" mods for the      *   DOC FILE
//*            JES2 job completion notify messages in MVS 3.8.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Addition of File 642 from Rich Hobt, which contains  *   DOC FILE
//*            a program to find any strings you want, in a         *   DOC FILE
//*            SYSPLEX OPERLOG.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Addition of File 643 from Paul A. Scott, which       *   DOC FILE
//*            contains some interesting macros and applications    *   DOC FILE
//*            of his, including a CALENDAR for any year (really    *   DOC FILE
//*            nice).                                               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-460 SECTION                                          *   DOC FILE
//*  V-460  CHANGES FOR VERSION 460 JUN 15, 2003                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 120 to add new articles.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 296 from Andreas Freybier, to         *   DOC FILE
//*            enhance the DSAT command, to:                        *   DOC FILE
//*                                                                 *   DOC FILE
//*            A - Increase the GETMAIN area for more datasets.     *   DOC FILE
//*            B - Display more than 9999 datasets.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 312 from Lionel Dyck, to add the      *   DOC FILE
//*            2.08 level of FTPBATCH.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 313 from Lionel Dyck, to add the      *   DOC FILE
//*            1.28 level of SDSFPAGE.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 314 from Lionel Dyck, to add the      *   DOC FILE
//*            4.78 level of XMITIP.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 357 from Carl Hafner, with quite a    *   DOC FILE
//*            few improvements to his utility collection.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to Files 409 and 410 from Rob Scott, to       *   DOC FILE
//*            bring MXI to Version 4.3 GenLevel 030522.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Updates to File 434 from Mark Zelden.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 520 from Robin Ryerse to add another  *   DOC FILE
//*            REXX function.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 527 from Matt Stitt.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 529 from Matt Stitt.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 588 - system shutdown - from          *   DOC FILE
//*            Sergey Makogonov.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 608 from Bob Glover, DASD space       *   DOC FILE
//*            lister, so it works better.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 621 - another system shutdown -       *   DOC FILE
//*            from Hunter Zhou.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Addition of File 623 - AUTOIPL - from Hunter Zhou.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Addition of File 624 - a REXX to FIND all datasets,  *   DOC FILE
//*            cataloged or uncataloged, with a given name, on the  *   DOC FILE
//*            system, or on certain given packs.  Uses DCOLLECT.   *   DOC FILE
//*            From Bob Glover.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Addition of File 625, contributed semi-anonymously,  *   DOC FILE
//*            which is a REXX to uncatalog and recatalog all the   *   DOC FILE
//*            datasets listed by a LISTCAT of a catalog.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Addition of File 626 from Bob Glover, which contains *   DOC FILE
//*            two REXX execs, one to list JES2 initiators, and the *   DOC FILE
//*            other, to list system enqueues.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Addition of File 627 from Simon Spanchak, which is   *   DOC FILE
//*            his AutoMan package to automate system operations.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Addition of File 628 from Andrew Armstrong, which    *   DOC FILE
//*            contains a REXX exec to analyze an OS/390 TCP/IP     *   DOC FILE
//*            packet trace file.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Addition of File 629 from Andrew Armstrong, which    *   DOC FILE
//*            contains an SNTP server program.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Addition of File 630 from Bob Glover, which is an    *   DOC FILE
//*            ISPF interface to DFDSS to move/copy groups of       *   DOC FILE
//*            datasets from one pack to another.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Addition of File 631 from Lee Hayden and Bob Glover, *   DOC FILE
//*            which is a dialog entered from ISPF 3.4, to search   *   DOC FILE
//*            a partitioned dataset for up to 3 strings at a time. *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Addition of File 632 from Gary Cherlet.  This file   *   DOC FILE
//*            contains an Assembler program to convert EBCDIC      *   DOC FILE
//*            files into BASE64 format.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Addition of File 633 from William J. Smith.  This    *   DOC FILE
//*            file contains both an updated version of the         *   DOC FILE
//*            DSPACE (display DASD space) TSO command processor,   *   DOC FILE
//*            and also an ISPF front-end driven by the CLIST       *   DOC FILE
//*            called FDSPACE.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Addition of File 634, which is a REXX to list UCBs.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Addition of File 635, which is a REXX to assist      *   DOC FILE
//*            with mass renames of groups of datasets.             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-459 SECTION                                          *   DOC FILE
//*  V-459  CHANGES FOR VERSION 459 APR 21, 2003                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 071 to reflect a Version 459V of      *   DOC FILE
//*            the CBT Overflow Tape.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 104 (JRP) to supply some macros       *   DOC FILE
//*            from File 172, and make this file self-contained.    *   DOC FILE
//*            Dave Cartwright had used a few of his own macros     *   DOC FILE
//*            when he made a fix to JRP.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 120 from Sam Golob to add new         *   DOC FILE
//*            articles.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Updates to File 312 from Lionel Dyck to PLPISPF.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Updates to File 314 from Lionel Dyck, to TXT2HTML    *   DOC FILE
//*            and XMITIP.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 404 (TSSO) from Michael Mayne, to     *   DOC FILE
//*            fix a problem in the TSSOSS10 module.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Updates to File 409 and 410, which is a new release  *   DOC FILE
//*            of MXI (4.3) and some further updates.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 495 from Tom Conley, which is         *   DOC FILE
//*            Version 3.8 of his Dynamic ISPF application          *   DOC FILE
//*            installation system.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 525, which is a fix to IBM's CFMON    *   DOC FILE
//*            program so it works for higher releases of MVS, up   *   DOC FILE
//*            to z/OS 1.4.  This is from Stephen Bell.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 542 from Alastair Gray.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 588, which now contains an Automated  *   DOC FILE
//*            Shutdown procedure for MVS.  This file formerly      *   DOC FILE
//*            contained one REXX exec, but that is now included    *   DOC FILE
//*            in the entire package for the Automated Shutdown.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 607, which is a non-IBM IND$FILE      *   DOC FILE
//*            from Mike Rayborn.  This update was to fix a problem *   DOC FILE
//*            discovered by Jason Winter.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 611 from Hari Ramaswamy Saraswathy    *   DOC FILE
//*            of Madras, India (Chennai) which now contains an     *   DOC FILE
//*            Automatic Job Scheduler, to make sure that a stream  *   DOC FILE
//*            of jobs executes conditionally, and in the required  *   DOC FILE
//*            order.                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 612 from Albert Cheng, which          *   DOC FILE
//*            contains modifications to the DUDASD, DSPACE, and    *   DOC FILE
//*            LOCATE (modules) programs, so they respect 4-digit   *   DOC FILE
//*            unit names, and work on modern systems.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Deletion of File 614, since TapeMan is currently     *   DOC FILE
//*            under litigation.  Please refrain from using TapeMan *   DOC FILE
//*            if you have already downloaded it.  Thanks.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Addition of File 618 from Pergentino Arias, which    *   DOC FILE
//*            contains a package of programs to encrypt your data  *   DOC FILE
//*            using IBM's ICSF facility.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Addition of File 619 from Brian Westerman, which     *   DOC FILE
//*            contains a version of the Dynamic Proclib mod for    *   DOC FILE
//*            MVS 3.8J, which (usually) runs under Hercules.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Addition of File 620 from Hiroyuki Konishi, which    *   DOC FILE
//*            contains a precompiler for COBOL source code, to     *   DOC FILE
//*            allow COPY statements anywhere in the code, not      *   DOC FILE
//*            just in the PROCEDURE DIVISION.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Addition of File 621 from Hunter Zhou, and contains  *   DOC FILE
//*            some TCP/IP NPF Exit Programs to print mainframe     *   DOC FILE
//*            datasets directly to any network printer with PCL    *   DOC FILE
//*            language support.  Most laser printers support PCL,  *   DOC FILE
//*            such as HP, Xerox, Canon, Lexmark.  The programs     *   DOC FILE
//*            will also generate a banner page to identify the     *   DOC FILE
//*            sender.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Addition of File 622 which contains an amazing       *   DOC FILE
//*            program called MATRIX from Simon Spanchak.  MATRIX   *   DOC FILE
//*            easily allows application programs to create large   *   DOC FILE
//*            data spaces, place data in them, and access the      *   DOC FILE
//*            data.  MATRIX enables cross systems (sysplex)        *   DOC FILE
//*            communications and cross systems events and large    *   DOC FILE
//*            scale tabling.  This package contains Application    *   DOC FILE
//*            Programming Interfaces (API's) for C, COBOL, and     *   DOC FILE
//*            Assembler.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-458 SECTION                                          *   DOC FILE
//*  V-458  CHANGES FOR VERSION 458 MAR 09, 2003                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  To make some room on this tape, which now almost     *   DOC FILE
//*            overflows a 3480 IDRC cartridge, several files have  *   DOC FILE
//*            been moved to the CBT Overflow Tape.  These are:     *   DOC FILE
//*                                                                 *   DOC FILE
//*  File 476 - LISP for MVS     - moved to Overflow Tape File 083  *   DOC FILE
//*  File 505 - ASSIST Assembler - moved to Overflow Tape File 085  *   DOC FILE
//*                                                                 *   DOC FILE
//*            I have left pointers on this tape, for those who     *   DOC FILE
//*            want to find these materials on the CBT Overflow     *   DOC FILE
//*            Tape.  So Files 476 and 505 contain stubs from the   *   DOC FILE
//*            previous files, which point to their new location.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 006 to make some version level        *   DOC FILE
//*            changes to the CLISTs.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 035 to reflect the newest level of    *   DOC FILE
//*            load modules for PDS 8.5.23.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 071 to reflect the new documentation  *   DOC FILE
//*            for Version 458V of the CBT Overflow Tape.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 120 from Sam Golob to add a few more  *   DOC FILE
//*            articles.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 135 to reflect the newest level of    *   DOC FILE
//*            load modules for PDS 8.5.23.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 182 which is PDS 8.5.23 (with some    *   DOC FILE
//*            useful panel and programming enhancements) from      *   DOC FILE
//*            John Kalinich.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 268 which contains REXX functions     *   DOC FILE
//*            to access VSAM.  This update was only to change      *   DOC FILE
//*            Mark Winges' contact email address.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Various updates to Files 312, 313, and 314 from      *   DOC FILE
//*            Lionel Dyck.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Updates to File 404 (TSSO) from Dave Cartwright.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Updates to Files 409 and 410 (MXI) from Rob Scott,   *   DOC FILE
//*            to fix some bugs encountered when MXI was invoked    *   DOC FILE
//*            authorized.  Hopefully, all is happy with this       *   DOC FILE
//*            version and genlevel.                                *   DOC FILE
//*                MXI Version 4.2 GenLevel 030211                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 415 which is RPF from Rob Prins.      *   DOC FILE
//*            RPF is now at level V1R5M1.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 417 which is RPF/E from Rob Prins.    *   DOC FILE
//*            RPF/E is now at level V1R2M1.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Updates to File 434 from Mark Zelden.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Removal of the LISP language implementation for MVS  *   DOC FILE
//*            which was on File 476.  File 476 now contains a stub *   DOC FILE
//*            of its former self, which points to its new place,   *   DOC FILE
//*            which is File 083 of the CBT Overflow Tape.          *   DOC FILE
//*            This is to reduce the footage on the regular CBT     *   DOC FILE
//*            Tape so it still fits on a 3480 IDRC cartridge.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 498 to the MTCHMRG (match-merge)      *   DOC FILE
//*            program from Craig Schneiderwent.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Removal of the ASSIST Assembler for OS/360, which    *   DOC FILE
//*            was on File 505.  File 505 now contains a stub of    *   DOC FILE
//*            its former self, which points to its new place,      *   DOC FILE
//*            which is File 085 of the CBT Overflow Tape.          *   DOC FILE
//*            This is to reduce the footage on the regular CBT     *   DOC FILE
//*            Tape so it still fits on a 3480 IDRC cartridge.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 525 from Stephen Bell to fix his      *   DOC FILE
//*            zap to IBM's CFMON program, so it works on MVS       *   DOC FILE
//*            systems up to z/OS 1.4.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 541 from Greg Smith, with a new       *   DOC FILE
//*            compile for the MVS version of the cckd utilities.   *   DOC FILE
//*            This compile fixes a problem with cckdload.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 542 from Alastair Gray, to fix        *   DOC FILE
//*            RCNVTCAT and some other programs on the file.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 588, which now contains an Automated  *   DOC FILE
//*            Shutdown procedure for MVS.  This file formerly      *   DOC FILE
//*            contained one REXX exec, but that is now included    *   DOC FILE
//*            in the entire package for the Automated Shutdown.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Update to File 601, which is a version of QUEUE for  *   DOC FILE
//*            MVS 3.8J, from Greg Price.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Addition of File 610 which contains the CHANGE71     *   DOC FILE
//*            and WTOR programs, plus some other code.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Addition of File 611 from Hari Ramaswamy Saraswathy  *   DOC FILE
//*            of Madras, India (Chennai) which contains REXX code  *   DOC FILE
//*            to submit a second job conditionally, based on the   *   DOC FILE
//*            return code from the first job.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Addition of File 612 from Albert Cheng, which        *   DOC FILE
//*            contains modifications to the DUDASD, DSPACE, and    *   DOC FILE
//*            LOCATE (modules) programs, so they respect 4-digit   *   DOC FILE
//*            unit names, and work on modern systems.  Also, he    *   DOC FILE
//*            has a REXX exec to display the number of currently   *   DOC FILE
//*            available address spaces in the ASVT.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Addition of File 613 from Mark Crabtree, which       *   DOC FILE
//*            contains model JCL to generate a one-pack RESCUE     *   DOC FILE
//*            MVS system from your current production MVS system.  *   DOC FILE
//*            This JCL refers to some site-dependent code, and     *   DOC FILE
//*            is intended to copy PARMLIB and PROCLIB rescue pack  *   DOC FILE
//*            code that you save from one "refresh" of the rescue  *   DOC FILE
//*            system to the next, together with the real system    *   DOC FILE
//*            code, that changes.  This code comes from a z/OS     *   DOC FILE
//*            release 1.2 system.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Addition of File 614 from Simon Spanchak, which      *   DOC FILE
//*            contains his TapeMan package which manages the       *   DOC FILE
//*            allocation of a pool of tape drives that is shared   *   DOC FILE
//*            across multiple MVS systems.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Addition of File 615 from Lionel Dyck, which is a    *   DOC FILE
//*            set of two macro libraries, one is to help you to    *   DOC FILE
//*            write Dynamic Allocation code in Assembler, and the  *   DOC FILE
//*            other is to write ISPF Dialog Manager code in        *   DOC FILE
//*            Assembler.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        28  Addition of File 616 from Nigel Thomas, to contain   *   DOC FILE
//*            some MVS tools he has written, and to describe some  *   DOC FILE
//*            of his experiences in configuring DHCP and CISCO     *   DOC FILE
//*            routers on the mainframe.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        29  Addition of File 617 from Pedro Berrios, and         *   DOC FILE
//*            contains a REXX exec to produce a report from SMF    *   DOC FILE
//*            Type 30 records.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-457 SECTION                                          *   DOC FILE
//*  V-457  CHANGES FOR VERSION 457 JAN 15, 2003                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  The purpose of this quick update is to include       *   DOC FILE
//*            SHOWMVS 7.06 in time for making the tapes and        *   DOC FILE
//*            cd-roms to distribute at SHARE.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 135 to reflect SHOWMVS 7.06.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 492 which contains SHOWMVS 7.06 now.  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-456 SECTION                                          *   DOC FILE
//*  V-456  CHANGES FOR VERSION 456 JAN 12, 2003                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035 to reflect PDS 8.5.23.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 120 to add another article.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 134 from Greg Price, with version     *   DOC FILE
//*            36.7 of the REVIEW command--source code.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 135 from Greg Price, with version     *   DOC FILE
//*            36.7 of the REVIEW command--load modules, and        *   DOC FILE
//*            the ISO Date version of PDS 8.5.23.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 182 from John Kalinich, which is      *   DOC FILE
//*            PDS 8.5 Update 23.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Addition of File 246, which is a program that        *   DOC FILE
//*            issues MVS console commands from batch.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Updates to File 312 from Lionel Dyck.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Updates to File 314 from Lionel Dyck.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 321 to reflect a change in the        *   DOC FILE
//*            COBA ISPF interface from Fritz Alber.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 330 from Fritz Alber, to fix the      *   DOC FILE
//*            XMIT-format members so that they produce a PDS       *   DOC FILE
//*            instead of a PDSE.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 394 from Janek Jakubek, with some     *   DOC FILE
//*            bug fixes to the KSDSPACE program, and some other    *   DOC FILE
//*            things.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 404 from Peter Vander Woude to fix    *   DOC FILE
//*            some problems with TSSO properly loading tables.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 410 from Rob Scott to contain         *   DOC FILE
//*            MXI Version 4.2 GenLevel 030110.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 423 to make a minor addition.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 541 from Greg Smith with a new        *   DOC FILE
//*            compile level for the MVS version of the compressed  *   DOC FILE
//*            CKD utility.  This utility will create a compressed  *   DOC FILE
//*            DASD file for a MVS disk pack, which will run the    *   DOC FILE
//*            same pack on a Hercules system (if you FTP the file  *   DOC FILE
//*            down to a pc).                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 607 from Mike Rayborn, which is a     *   DOC FILE
//*            newer version of his IND$FILE program.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Addition of File 608 from Bob Glover, which is a     *   DOC FILE
//*            handy TSO command to list space available on DASD    *   DOC FILE
//*            volumes, including volume name masking.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Addition of File 609 from John Miller and Chris      *   DOC FILE
//*            Buckley, which contains schemes for creating an MVS  *   DOC FILE
//*            RESCUE pack for your own system, at various OS/390   *   DOC FILE
//*            levels.  However there are some other useful things  *   DOC FILE
//*            from John Miller here, too, such as a package to     *   DOC FILE
//*            assist in maintaining the RACF dataset.              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-455 SECTION                                          *   DOC FILE
//*  V-455  CHANGES FOR VERSION 455 DEC 17, 2002                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035 to get the latest version of      *   DOC FILE
//*            whatever was fixed, in this case, COPYMODS and       *   DOC FILE
//*            VTT2DISK, and VTT2CNVU.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 120 to add another article.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 229 to fix COPYMODS and VTT2DISK      *   DOC FILE
//*            to add the IDRCOFF parameter, and to fix VTT2DISK    *   DOC FILE
//*            and VTT2CNVU so that the FB-80 fill characters for   *   DOC FILE
//*            the AWS tape file created, are X'00' instead of      *   DOC FILE
//*            X'20'.                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 260 which is DISKMAP, from Alan       *   DOC FILE
//*            Buschmann, to fix a bug.  The original program       *   DOC FILE
//*            is from Chuck Hoffman, and was updated for 3390-9    *   DOC FILE
//*            devices by Charles Wells.  All three versions are    *   DOC FILE
//*            now included in this file.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 312 from Lionel Dyck, to introduce    *   DOC FILE
//*            the DDLIST package, and update the PLPISPF package.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 313 from Lionel Dyck, to add a new    *   DOC FILE
//*            product, called SLM (System Library Manager).        *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 314 from Lionel Dyck, to include      *   DOC FILE
//*            a new version of both XMITIP and TXT2PDF.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 321 from Roland Schiradin to fix a    *   DOC FILE
//*            bug in COBANALZ, or rather, to eliminate an          *   DOC FILE
//*            instruction which only runs on certain levels of     *   DOC FILE
//*            hardware.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 330 from Fritz Alber, with a new      *   DOC FILE
//*            version of both his CCSD package, and his ISPF       *   DOC FILE
//*            interface for COBANAL from File 321.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 394 from Janek Jakubek, with a new    *   DOC FILE
//*            version of the KSDSPACE program, and some other      *   DOC FILE
//*            things.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Updates to File 404 from Ed Jaffe, to make a lot     *   DOC FILE
//*            of changes so that TSSO will run on all OS/390       *   DOC FILE
//*            and whatever z/OS systems have been released by      *   DOC FILE
//*            IBM at this point.  These updates were followed      *   DOC FILE
//*            by a fix from Dave Cartwright.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Updates to Files 409 and 410 from Rob Scott, to      *   DOC FILE
//*            contain Release 4.2 of MXI.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 417 from Rob Prins to contain         *   DOC FILE
//*            V1R2M0 of RPF/E, which is the XA (and above)         *   DOC FILE
//*            version of RPF.  This version of RPF/E has been      *   DOC FILE
//*            updated to contain all the enhancements of RPF       *   DOC FILE
//*            V1R5M0, which is now on File 415.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 498, which is the MTCHMRG match       *   DOC FILE
//*            merge program from Craig Schneiderwent.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 533 from Sam Golob, to fix VTT2DISK   *   DOC FILE
//*            to add the IDRCOFF execution parameter, and both     *   DOC FILE
//*            VTT2DISK and VTT2CNVU so that the FB-80 fill         *   DOC FILE
//*            character is X'00' instead of X'20' as per an        *   DOC FILE
//*            agreement with Reed Petty and the Hercules group.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 542 from Alastair Gray, to enhance    *   DOC FILE
//*            the programs there, including RCNVTCAT.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 549 from Mark Baron, to upgrade       *   DOC FILE
//*            the UNITNAME package for z/OS operating systems.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 558, which is Dick Thornton's         *   DOC FILE
//*            collection of Assembler programs.  Mike McCawley     *   DOC FILE
//*            had pointed out that some assembler macros were      *   DOC FILE
//*            missing.  Member $MACLIB2 adds many more of Dick's   *   DOC FILE
//*            macros to this file.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 583 from Jim Moore, to fix a bug      *   DOC FILE
//*            in his EPROF code.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Addition of File 603 from Sebastian Welton, which    *   DOC FILE
//*            is his QWIKSCAN program, that does quick and         *   DOC FILE
//*            complicated pds string scans, from an ISPF platform. *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Addition of File 604, which is a re-linkedit of      *   DOC FILE
//*            the original SNOBOL4 load module from Bell Labs.     *   DOC FILE
//*            However, there is a twist here, that the linkedit    *   DOC FILE
//*            was done from a disassembly, so the load module      *   DOC FILE
//*            has been completely reconstructed and linkedited     *   DOC FILE
//*            with the DFSMS binder.  Also, an object deck has     *   DOC FILE
//*            been included.  The disassembled source code has     *   DOC FILE
//*            been zipped to save space, but it is also included   *   DOC FILE
//*            in this file, for reference if needed.  Hopefully    *   DOC FILE
//*            there is now enough stuff, so the SNOBOL4 load       *   DOC FILE
//*            module can be reconstructed and run on any MVS       *   DOC FILE
//*            platform.  This file is in IEBCOPY format.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Addition of File 605, which is a set of software     *   DOC FILE
//*            to capture ACF2 passwords for conversion to RACF,    *   DOC FILE
//*            without have to change any of the users' passwords,  *   DOC FILE
//*            after the conversion is over.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Addition of File 606 from Reed Petty, which contains *   DOC FILE
//*            a version of his AWSSL program that creates AWS      *   DOC FILE
//*            format tape files on an MVS system, from datasets.   *   DOC FILE
//*            An older version of AWSSL is on File 585.  The       *   DOC FILE
//*            difference between this version (V19H) and the       *   DOC FILE
//*            version on File 585 (V19G) is that this version      *   DOC FILE
//*            is capable of producing tape files in HET (Hercules  *   DOC FILE
//*            Emulated Tape) compressed format, whereas V19G is    *   DOC FILE
//*            not.  The HET support requires inclusion of the      *   DOC FILE
//*            ZLIB and BZLIB compression routines, which is a      *   DOC FILE
//*            large bulk of code.  Also, HET support is only       *   DOC FILE
//*            supported if you are running MVS on a Hercules       *   DOC FILE
//*            system.  So to keep things simple, it is probably    *   DOC FILE
//*            better to run the version of AWSSL on File 585,      *   DOC FILE
//*            unless you really need this version.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Addition of File 607 from Mike Rayborn, which is     *   DOC FILE
//*            a version of IND$FILE was written by him, and which  *   DOC FILE
//*            may be used by the public.                           *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-454 SECTION                                          *   DOC FILE
//*  V-454  CHANGES FOR VERSION 454 NOV 17, 2002                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  Size of the tape was extended to 700 files.          *   DOC FILE
//*            Almost all of the first 600 slots got filled up,     *   DOC FILE
//*            and we are grateful for your contributions.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Updates to File 035, load module updates reflect     *   DOC FILE
//*            change to COPYMODS to fix a "bug" when writing       *   DOC FILE
//*            "tape marks" to virtual tape devices.  The "bytes    *   DOC FILE
//*            moved" field in the "TM CCW" has to be a very small  *   DOC FILE
//*            number with a virtual tape.  It is not ignored,      *   DOC FILE
//*            as with a real tape.  So the limitation is in        *   DOC FILE
//*            the emulator--however it is easy to code the tape    *   DOC FILE
//*            writing programs such as COPYMODS and VTT2TAPE,      *   DOC FILE
//*            to get around this limitation.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 120 to add a new article.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 229 to fix COPYMODS as described      *   DOC FILE
//*            above.                                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Updates to File 311 from Dave Alcock.                *   DOC FILE
//*                                                                 *   DOC FILE
//*            2002-11-02                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*            - APFADD....Added exec;                              *   DOC FILE
//*            - BENCHMRK..Added program and sample output          *   DOC FILE
//*                        (BENCHMR1 & BENCHMR2);                   *   DOC FILE
//*            - CATME.....Added exec;                              *   DOC FILE
//*            - CA90S.....Added exec;                              *   DOC FILE
//*            - CLIPBRD...Removed because it is obsolete with      *   DOC FILE
//*                        OS/390 R8 clipboard.                     *   DOC FILE
//*            - DASRC.....Fixes WHATDATE dialog panel error;       *   DOC FILE
//*            - DIVER.....Changed driving exec and panels          *   DOC FILE
//*                        names; Added wait sub;                   *   DOC FILE
//*            - FINDMOD...Added assembler program;                 *   DOC FILE
//*            - LASTUSE...Added exec;                              *   DOC FILE
//*            - OSCMD.....Added exec;                              *   DOC FILE
//*            - SHOWFDR...Added ISPF dialog;                       *   DOC FILE
//*            - SHOWMRO...Brought up to 2000-07-31 level;          *   DOC FILE
//*            - SUBME.....Added exec;                              *   DOC FILE
//*            - VSMAP.....Brought up to 1999-08-30 level;          *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Updates to File 313 from Lionel Dyck.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Updates to File 314 from Lionel Dyck.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 316 to create a version of LISTPDS    *   DOC FILE
//*            which doesn't put a date and time stamp in the       *   DOC FILE
//*            generated ./ ADD NAME=member card, when the pds      *   DOC FILE
//*            member in the source pds didn't have ISPF stats.     *   DOC FILE
//*            This version is called LISPDS.  It is needed when    *   DOC FILE
//*            creating CBT Tapes, because the date and time        *   DOC FILE
//*            stamps made it hard to see if two "identical" CBT    *   DOC FILE
//*            tapes that were created at different times, were     *   DOC FILE
//*            truly identical.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 321, which is COBANAL from Roland     *   DOC FILE
//*            Schiradin.  This update takes the newest COBOL       *   DOC FILE
//*            releases (as of this writing) into account.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Addition of File 380 from F. David McRitchie.        *   DOC FILE
//*            This collection consists mostly of REXX execs.       *   DOC FILE
//*            This collection was submitted for the CBT Tape       *   DOC FILE
//*            in 1999, and "got lost in the cracks" until now.     *   DOC FILE
//*            (Sorry Dave....  It's my fault. (SBG))               *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Moved the JES2 5.1.0 version of QUEUE from File      *   DOC FILE
//*            390 to File 389.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 390, which now contains a more        *   DOC FILE
//*            updated QUEUE for OS390 by Jack Schudel.  Still a    *   DOC FILE
//*            "work in progress" but a lot of progress has         *   DOC FILE
//*            already been made.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 415 from Rob Prins.  This is RPF      *   DOC FILE
//*            Version 1.5.0.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 495, which now contains a new         *   DOC FILE
//*            release of Dynamic ISPF by Tom Conley.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 542 from Alastair Gray to further     *   DOC FILE
//*            improve RCNVTCAT.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 570 to add a hint from Tom Conley     *   DOC FILE
//*            as to how to use a REXX exec as your TSO LOGON       *   DOC FILE
//*            "CLIST".                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 571 from Jim Morrison.  This file     *   DOC FILE
//*            now contains updated versions of XMIT370 and         *   DOC FILE
//*            RECV370.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Addition of File 599 from Bill George and Ken        *   DOC FILE
//*            MacKenzie, which is a REXX exec that displays key    *   DOC FILE
//*            ISPF variables in an ISPF window.  You can invoke    *   DOC FILE
//*            this exec at any time, to find out the information.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Addition of File 600 from Paul Wells.  This is a     *   DOC FILE
//*            package to produce reports from TCP/IP SMF records.  *   DOC FILE
//*            Most of this package is written in C.  The programs  *   DOC FILE
//*            can be run as SMF exits too.  This package is        *   DOC FILE
//*            dependent on the "rewritten TCP/IP" which comes      *   DOC FILE
//*            with OS/390 release 2.5 and higher.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Addition of File 601 from Greg Price.  This is a     *   DOC FILE
//*            spiced up version of QUEUE for MVS 3.8.  This        *   DOC FILE
//*            version has been especially written for Hercules     *   DOC FILE
//*            users, but if you happen to be running MVS 3.8 on    *   DOC FILE
//*            a real mainframe (highly unlikely), you can use      *   DOC FILE
//*            it too.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Addition of File 602, which has several handy REXX   *   DOC FILE
//*            execs from Mike Newell.                              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-453 SECTION                                          *   DOC FILE
//*  V-453  CHANGES FOR VERSION 453 OCT 23, 2002                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  I've made an attempt to get rid of instances of      *   DOC FILE
//*            the macro called 'MSG' in as much source code as     *   DOC FILE
//*            possible.  As of HLASM release 4, this has become    *   DOC FILE
//*            an assembler instruction, so the macro is not        *   DOC FILE
//*            recognized in the assembly, and perfectly normal     *   DOC FILE
//*            code gets an assembly error.  MSG was changed to     *   DOC FILE
//*            MSGZ.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*            Code fixed thus far, affects the following files:    *   DOC FILE
//*                                                                 *   DOC FILE
//*            File 035:  Load modules                              *   DOC FILE
//*                                                                 *   DOC FILE
//*            File 134:  ZAP, REVCAT                               *   DOC FILE
//*                                                                 *   DOC FILE
//*            File 135:  Load modules                              *   DOC FILE
//*                                                                 *   DOC FILE
//*            File 229:  COPYFILE, COPYSLNL, COPYNLNL, MSGZ        *   DOC FILE
//*                                                                 *   DOC FILE
//*            File 300:  IKJT9MAC, JCLSCAN, LPSCB, REVIEW,         *   DOC FILE
//*                       VTOC, ZAP                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*            File 316:  COPYFILE, COPYSLNL, COPYNLNL, COPYREC,    *   DOC FILE
//*                       MACROS, TANAL                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 006 from Sam Golob, with a change     *   DOC FILE
//*            to the GENDAT and GENDATE clists (the ones that      *   DOC FILE
//*            produce the $$$#DATE member in the CBT Tape files)   *   DOC FILE
//*            so the ISPF stats of the member reflect the CBT      *   DOC FILE
//*            Tape version level, when the latest update was made. *   DOC FILE
//*            Also some new clists were added, to ensure that      *   DOC FILE
//*            columns 73-80 are correctly filled in, in File 001.  *   DOC FILE
//*            These clists use the DOCFILE program.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 035, to add the DOCFILE program,      *   DOC FILE
//*            new versions of PDS 8.5.22, and the reassembled      *   DOC FILE
//*            versions of COPYFILE, COPYSLNL, COPYNLNL, etc.,      *   DOC FILE
//*            which had used a macro named MSG, and which had to   *   DOC FILE
//*            reassembled.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 120 from Sam Golob, to add a new      *   DOC FILE
//*            article from his MVS Tools and Tricks column.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 134, to change the source of the      *   DOC FILE
//*            ZAP program, so the MSG macro was changed to MSGZ.   *   DOC FILE
//*            In REVIEW, Greg Price had changed MSG to MESG.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 135, which is Greg Price's load       *   DOC FILE
//*            module library, to reflect many source level         *   DOC FILE
//*            changes, and the new version of PDS 8.5.22.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 174 from Aron Eisenpress, to add a    *   DOC FILE
//*            documentation member for the TAPECOPY program.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 229, to reflect source level changes  *   DOC FILE
//*            to COPYMODS, COPYSLNL, COPYNLNL, MSGWRITE, and       *   DOC FILE
//*            to change the MSG macro's name to MSGZ, internally   *   DOC FILE
//*            and externally.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 241 from Alex Brodsky, to add a note  *   DOC FILE
//*            about setting up Valentin Chernyak's ISPF-based      *   DOC FILE
//*            disassembler.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 300 to reflect multiple source        *   DOC FILE
//*            changes related to the MSG macro.  MSG is now        *   DOC FILE
//*            a machine instruction (HLASM Release 4 and           *   DOC FILE
//*            higher).                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Updates to File 312 from Lionel Dyck.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Updates to File 313 from Lionel Dyck.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Updates to File 314 from Lionel Dyck.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 316 to reflect multiple source        *   DOC FILE
//*            changes related to the MSG macro.  MSG is now        *   DOC FILE
//*            a machine instruction (HLASM Release 4 and           *   DOC FILE
//*            higher).                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Addition of File 387 which is the Stony Brook        *   DOC FILE
//*            PASCAL Distribution.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 434 from Mark Zelden, with an         *   DOC FILE
//*            improvement to IPLINFO, and other changes.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 495 from Tom Conley, to reflect a     *   DOC FILE
//*            new release of his Dynamic ISPF installation         *   DOC FILE
//*            package (DYNISPF).                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 542 from Alastair Gray, with an       *   DOC FILE
//*            improvement to RCNVTCAT, and more improvements.      *   DOC FILE
//*            See member $$$NOTE1 in the file.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 566 from Sam Bass, to add a utility   *   DOC FILE
//*            and to improve several others.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 594 from Roy Gardiner, to fix some    *   DOC FILE
//*            of the documentation for the DDF package.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Addition of File 595 from Richard L. Rice.  This     *   DOC FILE
//*            file contains a macro that can produce diagnostic    *   DOC FILE
//*            displays to trace the execution of an assembler      *   DOC FILE
//*            program.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Addition of File 596 from David Chambers, which      *   DOC FILE
//*            contains an ISPF Edit Macro to swap two variables    *   DOC FILE
//*            which are on opposite sides of an equal sign.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Addition of File 597 from Hans Westheim and Paul     *   DOC FILE
//*            Naidoo.  This file contains an MPF exit to issue     *   DOC FILE
//*            START operator commands, based on the occurrence     *   DOC FILE
//*            of a system message.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Addition of File 598 from Richard L. Rice, which     *   DOC FILE
//*            contains some old programs he wrote, which are       *   DOC FILE
//*            still useful, and which can be learned from.         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-452 SECTION                                          *   DOC FILE
//*  V-452  CHANGES FOR VERSION 452 OCT 02, 2002                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  In order to make proper room for Lionel Dyck's       *   DOC FILE
//*            packages, so that the individual downloads from      *   DOC FILE
//*            the www.cbttape.org web site won't be overly large,  *   DOC FILE
//*            I made the following moves of previous file          *   DOC FILE
//*            numbers:                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*              File 314 moved to File 315 - Dave Lees Utilities   *   DOC FILE
//*              File 315 moved to File 591 - REXX Reformatter      *   DOC FILE
//*                                                                 *   DOC FILE
//*            And Files 312 through 314 now have Lionel Dyck's     *   DOC FILE
//*            packages on them:                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*              File 312 - packages starting from A  thru R        *   DOC FILE
//*              File 313 - packages starting from S  thru TS       *   DOC FILE
//*              File 314 - packages starting from TX thru Z        *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Updates to File 035, to reflect the PDS 8.5 Update   *   DOC FILE
//*            number 22, etc. (several revisions of Update 22)     *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 104 from Dave Cartwright, with a fix  *   DOC FILE
//*            for the JRP (JES2 Remote Printers) program.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 120 from Sam Golob to add a new       *   DOC FILE
//*            article.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 135 to include the latest version     *   DOC FILE
//*            of PDS 8.5.22 with PDSE support.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 177 from Jan Jaeger, to include       *   DOC FILE
//*            a set of macros (SYS1.MNEMAC) so the old assembler   *   DOC FILE
//*            IFOX00 will assemble all the XA, ESA, and z/OS       *   DOC FILE
//*            instructions.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 182 from John Kalinich, to contain    *   DOC FILE
//*            a new revision of PDS 8.5 Update 22.  This version   *   DOC FILE
//*            of "free PDS" has some PDSE support, by means of a   *   DOC FILE
//*            REXX exec, which creates a MEMLIST from a PDSE.      *   DOC FILE
//*            Then, once the MEMLIST has been created, any PDS     *   DOC FILE
//*            subcommand which does not need EXCP can be executed  *   DOC FILE
//*            against that list.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*            ALIAS, DELETE, DIRENTRY, EDIT, BROWSE, COPY,         *   DOC FILE
//*            COMPARE, REVIEW, RENAME, and VIEW can be used as     *   DOC FILE
//*            line commands on these PDSE source member lists.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 312 from Lionel Dyck.  This file      *   DOC FILE
//*            now contains his packages starting from letters      *   DOC FILE
//*            A thru R.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 313 from Lionel Dyck.  This file      *   DOC FILE
//*            now contains his packages starting from letters      *   DOC FILE
//*            S thru TS.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Addition of File 314 from Lionel Dyck. This file     *   DOC FILE
//*            now contains his packages starting from letters      *   DOC FILE
//*            TX thru Z.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Moved Dave Lees Utilities file from File 314 to      *   DOC FILE
//*            File 315.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 410 from Rob Scott, to raise MXI      *   DOC FILE
//*            4.1 to genlevel 020917.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 417 from Rob Prins to clean up the    *   DOC FILE
//*            RPF/E installation, source, and load library         *   DOC FILE
//*            members, after John Kalinich had pointed out that    *   DOC FILE
//*            there had been a few loose ends.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 518 from Sam Knutson, to add a        *   DOC FILE
//*            program that converts PARM input to a job, into      *   DOC FILE
//*            SYSIN-type cards, very nicely.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 541 from Greg Smith, which is a new   *   DOC FILE
//*            compile of the CCKD code which runs on MVS.  This    *   DOC FILE
//*            code creates a compressed CKD disk pack from a       *   DOC FILE
//*            mainframe MVS pack, which can run under Hercules     *   DOC FILE
//*            as "real DASD".  You can move MVS DASD to Hercules   *   DOC FILE
//*            using this package.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 542 from Alastair Gray, with an       *   DOC FILE
//*            improved version of his MCNVTCAT replacement, and    *   DOC FILE
//*            some other good stuff.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 570 to include Batch ISPF info and    *   DOC FILE
//*            "gotchas" from Roy Gardiner.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 585 from Reed Petty, to contain       *   DOC FILE
//*            version 1.9E of the AWSSL program (a completely      *   DOC FILE
//*            new and enhanced version).  AWSSL creates Standard   *   DOC FILE
//*            Labeled AWS-format tape files, on an MVS system,     *   DOC FILE
//*            from MVS disk datasets.  Now, several formats of     *   DOC FILE
//*            the AWS-format files on MVS are supported.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Addition of File 587 from Matt Gates, which contains *   DOC FILE
//*            a version of the VTOC command that has some useful   *   DOC FILE
//*            enhancements.  Dave Cartwright fixed this program,   *   DOC FILE
//*            so far, so it runs under MVS 3.8 under Hercules.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Addition of File 589 from Philippe Leite.  This      *   DOC FILE
//*            file contains a REXX function package to allow HSC   *   DOC FILE
//*            STK silo control commands to be entered from a REXX  *   DOC FILE
//*            exec.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Addition of File 590 from Charles Hottel, to contain *   DOC FILE
//*            a set of Assembler Language programs he wrote, which *   DOC FILE
//*            perform exercises from Donald Knuth's "Fundamental   *   DOC FILE
//*            Algorithms" and "Sorting and Searching" books.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Addition of File 591 which is the REXX exec          *   DOC FILE
//*            reformatter that had been on File 315 previously.    *   DOC FILE
//*            This file had been sent by Bob Fowles and Philip     *   DOC FILE
//*            H. Smith III.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Addition of File 592 from Richard L. Rice.  This is  *   DOC FILE
//*            an Assembler module, and a macro which calls it, to  *   DOC FILE
//*            accomplish a DISPLAY function for fields in an       *   DOC FILE
//*            Assembler language program.  This program is very    *   DOC FILE
//*            old (but so is Assembler Language).                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Addition of File 593 which is ASMG.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Addition of File 594 from Roy Gardiner, which is     *   DOC FILE
//*            his ISPF-based Dataset Display Facility (DDF).       *   DOC FILE
//*            This REXX-based package provides a workbench-like    *   DOC FILE
//*            background for frequently used datasets, so you      *   DOC FILE
//*            don't have to always retype their names.  This       *   DOC FILE
//*            is a very nice package.  There may be other things   *   DOC FILE
//*            which do something similar, but here you have the    *   DOC FILE
//*            source code, and you can see how it's done.          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-451 SECTION                                          *   DOC FILE
//*  V-451  CHANGES FOR VERSION 451 SEP 09, 2002                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Updates to File 035, to reflect the PDS 8.5 Update   *   DOC FILE
//*            number 22, etc.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 134 to include REVIEW 36.6.  This is  *   DOC FILE
//*            from Greg Price.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 135 to include a new version of       *   DOC FILE
//*            REVIEW (36.6) in the load modules, and the latest    *   DOC FILE
//*            version of PDS 8.5.22 with the better PDSE support.  *   DOC FILE
//*            Also included here is SHOWMVS 7.05.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 182 from John Kalinich, to contain    *   DOC FILE
//*            a new revision of PDS 8.5 Update 22.  This version   *   DOC FILE
//*            of "free PDS" has some PDSE support, by means of a   *   DOC FILE
//*            REXX exec, which creates a MEMLIST from a PDSE.      *   DOC FILE
//*            Then, once the MEMLIST has been created, any PDS     *   DOC FILE
//*            subcommand which does not need EXCP can be executed  *   DOC FILE
//*            against that list.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*            ALIAS, DELETE, DIRENTRY, EDIT, BROWSE, COPY,         *   DOC FILE
//*            COMPARE, REVIEW, RENAME, and VIEW can be used as     *   DOC FILE
//*            line commands on these PDSE source member lists.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 183 from Gilbert Saint-flour.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 312 from Lionel Dyck.  Updates are    *   DOC FILE
//*            to PRMCK and FTPBATCH.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 417 which is Rob Prins' RPF/E file    *   DOC FILE
//*            editor and utilities package.  There were a few      *   DOC FILE
//*            glitches in the installation, which were corrected   *   DOC FILE
//*            by John Kalinich.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 434 by Mark Zelden.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 476 from Steve Bacher.  This is a     *   DOC FILE
//*            cosmetic change to MVS LISP.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 492 from Roland Schiradin, to contain *   DOC FILE
//*            SHOWMVS 7.05.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 520 from Robin Ryerse, to add another *   DOC FILE
//*            REXX function called VARLIST.  This function lists   *   DOC FILE
//*            all initialized variables.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 570 from Dave Kulas, to add a         *   DOC FILE
//*            procedure that allows you to define user versions    *   DOC FILE
//*            of SYS1.PARMLIB.  This is useful so a sysprog can    *   DOC FILE
//*            set his/her own system initialization variables.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Addition of File 586 from Robin Murray, which is an  *   DOC FILE
//*            ISPF application starter that has some interesting   *   DOC FILE
//*            capabilities.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Addition of File 587 from Matt Gates, which contains *   DOC FILE
//*            a version of the VTOC command that has some useful   *   DOC FILE
//*            enhancements.  This version works on older versions  *   DOC FILE
//*            of MVS (circa 1990), and is awaiting someone who can *   DOC FILE
//*            merge the code into the current version of VTOC, or  *   DOC FILE
//*            who can make this code work on the current MVS       *   DOC FILE
//*            operating systems.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Addition of File 588 from Sergey Makogonov.  This    *   DOC FILE
//*            is a new REXX function called FWAIT, which waits     *   DOC FILE
//*            a certain interval, to see if a STOP or MODIFY       *   DOC FILE
//*            operator command was entered on the console within   *   DOC FILE
//*            the given time interval.                             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-450 SECTION                                          *   DOC FILE
//*  V-450  CHANGES FOR VERSION 450 AUG 20, 2002                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Updates to File 035, to reflect the PDS 8.5 Update   *   DOC FILE
//*            number 22, and the TSTVS console-based FB-80 file    *   DOC FILE
//*            editing program from Rob Prins.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Addition of File 068, which is the TSTVS console     *   DOC FILE
//*            editor and utility package from Rob Prins.  TSTVS    *   DOC FILE
//*            is a recovery tool, which can be used to edit        *   DOC FILE
//*            and rename datasets from the MVS console, and it     *   DOC FILE
//*            can be started, SUB=MSTR, so even JES is not         *   DOC FILE
//*            required for TSTVS to work.  One-line console        *   DOC FILE
//*            input is done by the programmer, and the output      *   DOC FILE
//*            of the command results, is displayed on the console. *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 120 to add a new article.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 134 to include a new version of       *   DOC FILE
//*            REVIEW (36.5) in the source code.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 135 to include a new version of       *   DOC FILE
//*            REVIEW (36.5) in the load modules.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 147 which is Rick Fochtman's          *   DOC FILE
//*            ARCHIVER program.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*            An adaptation was made to ARCHIVER, to be able to    *   DOC FILE
//*            assemble and run it on MVS 3.8J, under Hercules.     *   DOC FILE
//*            This update came from Dave Cartwright.  See his      *   DOC FILE
//*            members $ARCH370 and $INST370.  Since MVS 3.8J and   *   DOC FILE
//*            Hercules are accessible to all, they can provide a   *   DOC FILE
//*            suitable medium for archiving all your later MVS     *   DOC FILE
//*            software goodies for posterity.  And you won't have  *   DOC FILE
//*            to be dependent on an employer, to be able to        *   DOC FILE
//*            access, read, and update your stuff.  There are      *   DOC FILE
//*            also a couple of bug fixes to the main ARCHIVER      *   DOC FILE
//*            code.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 182 from John Kalinich, to contain    *   DOC FILE
//*            PDS 8.5.22 .                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 312, from Lionel Dyck--new version    *   DOC FILE
//*            of PLPISPF.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 313, from Lionel Dyck--new version    *   DOC FILE
//*            of XMITIP.                                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Addition of File 403 from Ugur Cilesiz.  This is     *   DOC FILE
//*            a system to instantly display IBM messages under     *   DOC FILE
//*            ISPF.  The system can also be used to display any    *   DOC FILE
//*            FB-80 file that you may need to display at a         *   DOC FILE
//*            moment's notice.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 409 from Rob Scott--new version 4.1   *   DOC FILE
//*            of MXI.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 410 from Rob Scott--new version 4.1   *   DOC FILE
//*            of MXI--load modules.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 411 from Rob Scott.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 412 from Rob Scott--load modules.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 415 from Rob Prins, to contain        *   DOC FILE
//*            V1R4M3 of RPF (ISPF-like text editor, and            *   DOC FILE
//*            programming facility which runs under native TSO).   *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Addition of File 417, which is RPF/E for OS/390.     *   DOC FILE
//*            This is the OS/390 (everything from XA and after)    *   DOC FILE
//*            version of the RPF program package from File 415.    *   DOC FILE
//*            This code can be used to edit larger datasets than   *   DOC FILE
//*            RPF can.  This code also comes from Rob Prins.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 520 from Robin Ryerse, to add the     *   DOC FILE
//*            SCCALLOC Rexx function package.  This adds TSO       *   DOC FILE
//*            ALLOC and FREE capability to native REXX.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 542 from Alastair Gray.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Addition of File 583 from Jim Moore, which is an     *   DOC FILE
//*            initial edit macro, written in COBOL, that sets      *   DOC FILE
//*            the ISPF Edit Profile for the ISPF session.  This    *   DOC FILE
//*            is an illustrative program for a series of articles  *   DOC FILE
//*            in "Technical Support" magazine, about initial edit  *   DOC FILE
//*            macros and ISPF Edit profiles.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Addition of File 584 from Ugur Cilesiz, to contain   *   DOC FILE
//*            the AUTOINIT JCL stream, which runs REXXes in batch, *   DOC FILE
//*            to automate the initialization of DASD.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Addition of File 585 from Reed Petty, which is the   *   DOC FILE
//*            AWSSL program.  This program reads datasets on an    *   DOC FILE
//*            MVS (OS390, z/OS) system, and creates an SL "tape"   *   DOC FILE
//*            dataset on disk, in AWS format.  The format on MVS   *   DOC FILE
//*            is VB, and is compatible with AWSUTIL from File 477. *   DOC FILE
//*            Therefore, if you want to cut a real tape from the   *   DOC FILE
//*            dataset produced, you can convert it to FB-80 format *   DOC FILE
//*            using the VTT2CNVU program from File 533, and cut a  *   DOC FILE
//*            real tape from that dataset, with the VTT2TAPE       *   DOC FILE
//*            program from File 533.                               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-449 SECTION                                          *   DOC FILE
//*  V-449  CHANGES FOR VERSION 449 JUL 21, 2002                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  To avoid unnecessary overhead in copying tapes,      *   DOC FILE
//*            we have again made the number of files on this       *   DOC FILE
//*            tape to be 600 files, and this number will only      *   DOC FILE
//*            be enlarged as necessary.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 120 from Sam Golob, to add another    *   DOC FILE
//*            article.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 312 from Lionel Dyck, to include a    *   DOC FILE
//*            new version of the PLPISPF package.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 313 from Lionel Dyck, to include a    *   DOC FILE
//*            new version of the TXT2HTML package.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 534 from Paul Dion, to enhance the    *   DOC FILE
//*            SPACE command, and add an ISPF interface to it.      *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-448 SECTION                                          *   DOC FILE
//*  V-448  CHANGES FOR VERSION 448 JUL 08, 2002                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 006, to include some CLISTs that      *   DOC FILE
//*            have been used to extend this tape from 600 to 800   *   DOC FILE
//*            file slots.  VB-255 and FB-80 versions of these      *   DOC FILE
//*            CLISTs have been included.  These CLISTs have been   *   DOC FILE
//*            used to generate additional sections of the File 001 *   DOC FILE
//*            documentation, to make slots for the extra files.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 134 to change Greg Price's email      *   DOC FILE
//*            address.  It is now:  gregp@prycroft6.com.au         *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 234 from Dick Thornton, to include    *   DOC FILE
//*            debugged versions of his new disassembler, due to    *   DOC FILE
//*            the extensive testing efforts of Mike Hodapp.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 312 from Lionel Dyck, to include a    *   DOC FILE
//*            new version of the CAVXTRT package.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 346 from Bill Ruff, who pointed out   *   DOC FILE
//*            that JCTCNVRC is a fullword field in OS390R10, and   *   DOC FILE
//*            it isn't one byte (as it was before).  Therefore     *   DOC FILE
//*            he could fix Bob Break's JES2 Exit 44.  This is for  *   DOC FILE
//*            the purpose of implementing Mark Zelden's idea for   *   DOC FILE
//*            using the same TSO userid in a shared environment.   *   DOC FILE
//*            (See member $SNGLTSO in File 434.)                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 415 from Rob Prins.  This level of    *   DOC FILE
//*            RPF is now 1.4.2+ .                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 495 which is DYNISPF from Tom Conley. *   DOC FILE
//*            This package is now at version level 3.5.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 540 from Sam Golob, to include a      *   DOC FILE
//*            correction from Gerald Kaiser.  The callable         *   DOC FILE
//*            EXEC and SYSIN "parm parse routine" can now be made  *   DOC FILE
//*            to require blanks, or commas, or some other          *   DOC FILE
//*            character, between parm keywords, but it doesn't     *   DOC FILE
//*            default to that.  You have to uncomment an           *   DOC FILE
//*            instruction to enable that requirement.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 542 from Alastair Gray, to tweak his  *   DOC FILE
//*            MCNVTCAT replacement program (called RCNVTCAT), and  *   DOC FILE
//*            his SPACE routine.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 547 from Volker Bandke, to include    *   DOC FILE
//*            the Stage 1 SYSGEN deck for the MVS 3.8 system in    *   DOC FILE
//*            his MVS Hercules Turnkey cd-rom, Version 3.  This    *   DOC FILE
//*            is so that if you are using the Turnkey MVS 3.8 V3   *   DOC FILE
//*            under Hercules, you'll easily be able to find out    *   DOC FILE
//*            what devices, and device addresses, have been        *   DOC FILE
//*            defined (i.e. genned).                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 555 from Solomon Santos, to improve   *   DOC FILE
//*            is ISPF interface to the TSO XMIT command (ISPFXMI). *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 558 from Dick Thornton, to include    *   DOC FILE
//*            the same upgrades to the new disassembler programs,  *   DOC FILE
//*            that were necessary in File 234.  The program names  *   DOC FILE
//*            are RESCHECK, REBUILD, and RESOURCE.  Mike Hodapp    *   DOC FILE
//*            did a lot of debugging, for which we are grateful    *   DOC FILE
//*            to both him and to Dick Thornton.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 565 from Dick Thornton, to include    *   DOC FILE
//*            the textbook to his Dump Reading class, and to make  *   DOC FILE
//*            numerous organizational improvements.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Addition of File 571 from Jim Morrison, to contain   *   DOC FILE
//*            the initial version of his XMIT370 program, which    *   DOC FILE
//*            performs a TSO XMIT-like function for MVS 3.8, and   *   DOC FILE
//*            a corresponding RECV370 program, which performs the  *   DOC FILE
//*            RECEIVE-like function for the file that was created  *   DOC FILE
//*            by XMIT370.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 576 from Mick Sheehy, to improve his  *   DOC FILE
//*            ISPF interface for copying datasets.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Addition of File 579 from Tim Patriquin, to add      *   DOC FILE
//*            BREAK and CONTINUE macros to the HLASM Toolkit       *   DOC FILE
//*            structured macro set.  This is an addition to the    *   DOC FILE
//*            HLASM Toolkit.  You need to be licensed for the      *   DOC FILE
//*            HLASM Toolkit, to use this file.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Addition of File 580 from Michael R. Smith, which    *   DOC FILE
//*            contains and updated version of CUT and PASTE edit   *   DOC FILE
//*            macros, converted to REXX.  These macros were        *   DOC FILE
//*            modeled on the CUT and PASTE macro set from File     *   DOC FILE
//*            182 (in functionality only).                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Addition of File 581 which is a complete disaster    *   DOC FILE
//*            recovery implementation, from Thomas Hutchins.       *   DOC FILE
//*            Documentation is in Microsoft Word, so it has to be  *   DOC FILE
//*            downloaded in BINARY to a PC, from the members of    *   DOC FILE
//*            this pds.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Addition of File 582 from Solomon Santos.  This is   *   DOC FILE
//*            a version of TAPEMAP from File 299, which can be     *   DOC FILE
//*            assembled and run on MVS 3.8, running under          *   DOC FILE
//*            Hercules.  This is a temporary home for this version *   DOC FILE
//*            of TAPEMAP.  At some future date, we might attempt   *   DOC FILE
//*            to combine this code with the version of TAPEMAP     *   DOC FILE
//*            that is on File 299.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-447 SECTION                                          *   DOC FILE
//*  V-447  CHANGES FOR VERSION 447 MAY 31, 2002                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035, to add the newest version of     *   DOC FILE
//*            the COPYMODS program, as well as to add aliases      *   DOC FILE
//*            to BLKDISK for calculating blocks, tracks, and       *   DOC FILE
//*            cylinders for many old DASD devices.  With a lot     *   DOC FILE
//*            of people using Hercules today, and running old      *   DOC FILE
//*            OS/360 and MVS operating systems, we now have to     *   DOC FILE
//*            do track calculations with these old devices, or     *   DOC FILE
//*            at least have that capability available.  The        *   DOC FILE
//*            TRACKCAP keyword of BLKnnnn, will show the track     *   DOC FILE
//*            capacities of all these old devices.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 071, to reflect new documentation     *   DOC FILE
//*            for the CBT Overflow Tape, which is now at level     *   DOC FILE
//*            Version 447V.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 135, which is Greg Price's load       *   DOC FILE
//*            library.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 229, to add some new features to      *   DOC FILE
//*            the COPYMODS program.  One new feature is to make    *   DOC FILE
//*            PARM=SYSIN dependent on whether a //SYSIN DD card    *   DOC FILE
//*            is actually there.  The other is to add the CUMSEP   *   DOC FILE
//*            parm, which is like CUMTOT, but the label cum        *   DOC FILE
//*            totals, and the data file cum totals, get added      *   DOC FILE
//*            up separately.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 244 from Dale McCart, to supply       *   DOC FILE
//*            more up-to-date zaps to IEBPTPCH so the output       *   DOC FILE
//*            for printing members of a pds, comes out in          *   DOC FILE
//*            alphabetical order of the member names.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Addition of File 267, which is the HETUTL utility    *   DOC FILE
//*            program from Leland Lucius.  HETUTL can read a tape  *   DOC FILE
//*            on MVS, and produce a disk file, either in standard  *   DOC FILE
//*            AWS tape format (non-compressed), or in compressed   *   DOC FILE
//*            AWS format which is directly readable on a Hercules  *   DOC FILE
//*            S/390 emulator system, as though it were a real      *   DOC FILE
//*            tape.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 312, to move all members beginning    *   DOC FILE
//*            with letters S thru Z, to File 313.  This file has   *   DOC FILE
//*            been getting too big to conveniently download.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Addition of File 313, which is the part of Lionel    *   DOC FILE
//*            Dyck's collection, whose member names begin with     *   DOC FILE
//*            the letters S thru Z.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  I moved Murray Nicholas' file, which was File 313,   *   DOC FILE
//*            to a previously empty slot at File 345.  This will   *   DOC FILE
//*            make room to divide Lionel Dyck's enormous utilities *   DOC FILE
//*            collection into two files, so they can also be next  *   DOC FILE
//*            to each other.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 540, which is the generalized PARM    *   DOC FILE
//*            and SYSIN parser from Sam Golob.  Some code was      *   DOC FILE
//*            added to the parser, to force the search for the     *   DOC FILE
//*            next keyword, only after a comma or a space was      *   DOC FILE
//*            found after a successful keyword hit.  This code     *   DOC FILE
//*            can easily be changed to allow for any separator     *   DOC FILE
//*            characters you want.  To enable this code, you just  *   DOC FILE
//*            have to comment out one line.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 555 from Solomon Santos, to add       *   DOC FILE
//*            a very nice application, which is an ISPF interface  *   DOC FILE
//*            for the TSO XMIT command.  It becomes very easy,     *   DOC FILE
//*            with this utility, to create XMIT-format FB-80       *   DOC FILE
//*            files from pds'es.  Very nice piece of work.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 558, which is the library of          *   DOC FILE
//*            Assembler programs from Dick Thornton.  Members      *   DOC FILE
//*            from his macro library have been added, in an        *   DOC FILE
//*            IEBUPDTE (PDSLOAD)-format pds, as member $MACLIB.    *   DOC FILE
//*            Also his $$README member has been revised.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 560, which is the library of JCL      *   DOC FILE
//*            streams for running various jobs and programs,       *   DOC FILE
//*            from Dick Thornton.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 561 from Dick Thornton, to add a      *   DOC FILE
//*            $$README index member for the file, and to make      *   DOC FILE
//*            some other improvements.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 562 from Dick Thornton, to add a      *   DOC FILE
//*            $$README index member for the file, and to make      *   DOC FILE
//*            some other improvements.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 564 from Dick Thornton, to add        *   DOC FILE
//*            $$README members for this file, and for his other    *   DOC FILE
//*            unloaded pds'es included in this file.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 565 from Dick Thornton, to add        *   DOC FILE
//*            more documentation to the material for his 3         *   DOC FILE
//*            courses, and to make the material easier to use.     *   DOC FILE
//*            Also, the TEXTBOOK for his AbendAID dump reading     *   DOC FILE
//*            course has now been included.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Update to File 570, which is the "how to do stuff"   *   DOC FILE
//*            advice file.  Dick Thornton's MEMORY member from     *   DOC FILE
//*            File 564 is an excellent addition here.  It has      *   DOC FILE
//*            been included here, as member THORNTON.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Update to File 576 from Mick Sheehy, to make the     *   DOC FILE
//*            XCPY (easy dataset copying) exec more easy to use,   *   DOC FILE
//*            and more foolproof.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Addition of File 577 from Pergentino Arias, which    *   DOC FILE
//*            is an interesting collection of his REXX execs, and  *   DOC FILE
//*            supporting Assembler programs.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Addition of File 578 from Roy Gardiner, which is     *   DOC FILE
//*            a generalized easy-to-use ISPF table handling aid.   *   DOC FILE
//*            This facility makes it possible for the programmer   *   DOC FILE
//*            to easily create a table update utility which is     *   DOC FILE
//*            fed from his/her own panels.                         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-446 SECTION                                          *   DOC FILE
//*  V-446  CHANGES FOR VERSION 446 MAY 14, 2002                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Addition of File 052 from Jim Morrison, which is     *   DOC FILE
//*            a version of SHOWMVS that runs on MVS 3.8 under      *   DOC FILE
//*            Hercules, and runs as a batch program (since ISPF    *   DOC FILE
//*            is not available under normal MVS 3.8).              *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 120 from Sam Golob, to add a new      *   DOC FILE
//*            article.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 134 from Greg Price - source library. *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 135 from Greg Price - load library.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Addition of File 415 from Rob Prins, which is his    *   DOC FILE
//*            magnificent RPF editor and programming productivity  *   DOC FILE
//*            package.  This package is currently at Version Level *   DOC FILE
//*            1.4.2.  RPF is used instead of SPF or ISPF by users  *   DOC FILE
//*            of MVS 3.8 running under Hercules.  But it also      *   DOC FILE
//*            runs under OS/390 and z/OS.  This package is a       *   DOC FILE
//*            good backup, if ISPF can't come up for some reason.  *   DOC FILE
//*            It pays to get familiar with RPF under normal        *   DOC FILE
//*            conditions, so that in a pinch, you'll be able to    *   DOC FILE
//*            use it fluently.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 495 from Tom Conley, which is his     *   DOC FILE
//*            Dynamic ISPF Starter Set, now at Level 3.4.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 558, which is the library of          *   DOC FILE
//*            Assembler programs from Dick Thornton.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 559, which is the library of C        *   DOC FILE
//*            programs from Dick Thornton.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 563, which is the library of COBOL    *   DOC FILE
//*            programs from Dick Thornton.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 570, to add some how-to information   *   DOC FILE
//*            from Bruce Bordonaro.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Addition of File 572 from Jeff Kaplan.  This file    *   DOC FILE
//*            contains some specialized MVS-based zipping programs *   DOC FILE
//*            which are compatible to zip's from other platforms.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 573, to add a new program.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Addition of File 575 from Thomas Hutchins, which     *   DOC FILE
//*            contains a tool to read JES2 Spool Offload files     *   DOC FILE
//*            directly, and to combine two or more separate JES2   *   DOC FILE
//*            Spool Offload files.  There are also a few edit      *   DOC FILE
//*            macros that change EBCDIC to ASCII and vice-versa.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Addition of File 576 from Mick Sheehy.  This is a    *   DOC FILE
//*            handy dataset copying tool which consists of a REXX  *   DOC FILE
//*            exec and one panel.  This tool makes it very easy    *   DOC FILE
//*            and quite foolproof, to copy sequential and pds      *   DOC FILE
//*            datasets, giving you a big chance to change things   *   DOC FILE
//*            about the target dataset.                            *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-445 SECTION                                          *   DOC FILE
//*  V-445  CHANGES FOR VERSION 445 MAY 01, 2002                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035 to contain load moduies for the   *   DOC FILE
//*            latest version of PDS 8.5 (Update 21).               *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 135 to contain load moduies for the   *   DOC FILE
//*            ISO Date version of PDS 8.5, Update 21.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 182 from John Kalinich, to contain    *   DOC FILE
//*            update 21 of PDS 8.5.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 268 from Mark Winges, to contain      *   DOC FILE
//*            version 2.2 of his RXVSAM set of REXX funtions,      *   DOC FILE
//*            for dealing with VSAM files.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 312 from Lionel Dyck, with changes    *   DOC FILE
//*            to several of his program packages.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 438 from Dan Snyder, to include a     *   DOC FILE
//*            new $$$STRUC (Structured Macros set) library, and    *   DOC FILE
//*            a couple of source updates.  The structured macro    *   DOC FILE
//*            library can also be found on File 550 as a separate  *   DOC FILE
//*            entity.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 498 from Craig Schneiderwent, to      *   DOC FILE
//*            add some performance improvements to his MTCHMRG     *   DOC FILE
//*            program.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 527 from Matthew Stitt, to further    *   DOC FILE
//*            improve his version of LISTICAT and other programs.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 550 from Dan Snyder, which is a       *   DOC FILE
//*            revision of his Structured Macro Library.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 555 from Solomon Santos.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 556 which is SCKTINTF from Jeff       *   DOC FILE
//*            Kaplan, to fix a few bugs, and make the code run     *   DOC FILE
//*            (much) more efficiently.  Credit for that goes       *   DOC FILE
//*            to John Bos (John.Bos@AtosOrigin.com) in the         *   DOC FILE
//*            Netherlands, who did extensive testing, and Jeff     *   DOC FILE
//*            Kaplan updated the utility.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Addition of File 566 from Sam Bass, which is a       *   DOC FILE
//*            nice collection of his utilities.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Addition of File 567 from Clark Jennings, which      *   DOC FILE
//*            contains a CSVLLIX2 exit, and some code to capture   *   DOC FILE
//*            module fetch information, and to monitor LLA         *   DOC FILE
//*            activity.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Addition of File 568 from Dick Thornton, which is    *   DOC FILE
//*            a collection of TSO games in load module form,       *   DOC FILE
//*            circa 1980.  Some of these games require the PL/1-F  *   DOC FILE
//*            run-time library from File 092.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Addition of File 569 from Dick Thornton, which       *   DOC FILE
//*            contains some FB-80 notes and rules information      *   DOC FILE
//*            for the games from File 568.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Addition of File 570, which will be a place to keep  *   DOC FILE
//*            a collection of MVS tips and tricks and advice.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Addition of File 573 from Shane Ginnane, which is    *   DOC FILE
//*            an IEFUJV exit that allows insertion of system       *   DOC FILE
//*            symbolics into JCL, for example, to insert them      *   DOC FILE
//*            into dataset names, but leaving them as symbolics.   *   DOC FILE
//*            They will resolve at pre-conversion time, on the     *   DOC FILE
//*            executing system.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Addition of File 574 from Wolfgang Schaefer, which   *   DOC FILE
//*            contains some items of direct use to the Hercules    *   DOC FILE
//*            MVS 3.8 community, but which will probably work      *   DOC FILE
//*            on OS/390 and z/OS as well.                          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-444 SECTION                                          *   DOC FILE
//*  V-444  CHANGES FOR VERSION 444 APR 14, 2002                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035 to include load modules for all   *   DOC FILE
//*            the utilities from File 296 (necessary to run PDS    *   DOC FILE
//*            8.5) which aren't on File 135.  This makes it        *   DOC FILE
//*            possible to do a quick install of PDS 8.5.  Just     *   DOC FILE
//*            copy the panels to your panel library, the message   *   DOC FILE
//*            member to your message library, and the PDS85, PDS   *   DOC FILE
//*            DSAT, DVOL, COMPARE, COMPAREB, RELEASE, RESET and    *   DOC FILE
//*            BLK**** load modules from File 035 to your load      *   DOC FILE
//*            library that is accessible to your TSO session.      *   DOC FILE
//*            Then copy all the REVIEW and REV**** load modules    *   DOC FILE
//*            from FILE 135 with their aliases, to the same load   *   DOC FILE
//*            library, and you're set.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*            Other changes to File 035:                           *   DOC FILE
//*            Made COBREAD AMODE 31, so it doesn't bomb when       *   DOC FILE
//*             looking at "modern" COBOL modules                   *   DOC FILE
//*            Included COMPARE$ alias to COMPARE (to invoke PDS)   *   DOC FILE
//*            Included COMPAREC (PDS SUPERC interface from Serena) *   DOC FILE
//*            Included COMPAREW (PDS COMPAREX interface from       *   DOC FILE
//*             Serena)                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 077 from Brian Westerman, to add      *   DOC FILE
//*            an IEBUPDTE (PDSLOAD)-formatted pds for installing   *   DOC FILE
//*            the DYNABLDL program for MVS 3.8J.  Before LLA was   *   DOC FILE
//*            invented, in MVS/XA, the best way to get around the  *   DOC FILE
//*            "unchangeableness" of the MVS BLDL list, was to use  *   DOC FILE
//*            this marvelous Dynamic BLDL intercept to the BLDL    *   DOC FILE
//*            SVC (SVC 18).  This version of DYNABLDL was written  *   DOC FILE
//*            by David B. Cole.  Tested and fitted by Brian        *   DOC FILE
//*            Westerman for MVS 3.8J.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 120 to add another article.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Addition of File 234 from Dick Thornton, who is      *   DOC FILE
//*            the author of the famous disassembler program on     *   DOC FILE
//*            File 217 of this tape.  This is a complete rewrite   *   DOC FILE
//*            of that disassembler for modern MVS systems, and     *   DOC FILE
//*            it uses the IEWBIND and IEWBUFF macros from IBM,     *   DOC FILE
//*            to do the load module access, so it will also work   *   DOC FILE
//*            against load modules that are in PDSE's.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 343 from John Kalinich, to adjust     *   DOC FILE
//*            the VTOCLIST program to accommodate large 3390       *   DOC FILE
//*            volumes.  The old version has still been included    *   DOC FILE
//*            in this file, just in case you don't need the new    *   DOC FILE
//*            support, and you are locked into the column format   *   DOC FILE
//*            of the program.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 344 from Joerg Berning, to add to     *   DOC FILE
//*            his utilities collection.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 349 from Sam Golob, to add some more  *   DOC FILE
//*            commands to the sample ISPF command table update.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to Files 409 and 410 from Rob Scott, to ship  *   DOC FILE
//*            a new build for MXI 3.4.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 433 from Frank Clarke.  This is a     *   DOC FILE
//*            refresh to his excellent collection of REXX execs.   *   DOC FILE
//*            This file is now in IEBUPDTE SYSIN format, and the   *   DOC FILE
//*            pds for it, is FB-80 instead of VB-255.  File 003    *   DOC FILE
//*            has been changed to reflect this, as well.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 527 from Matthew Stitt to add a new   *   DOC FILE
//*            version of the LISTICAT program, whose original      *   DOC FILE
//*            version is in File 047.  Also there's a lot of new   *   DOC FILE
//*            stuff here.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 542 from Alastair Gray, with an       *   DOC FILE
//*            improved version of his MCNVTCAT replacement, and    *   DOC FILE
//*            some other good stuff.                               *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 547 from Volker Bandke and somitcw@   *   DOC FILE
//*            yahoo.com to add more utilities to their MVS 3.8     *   DOC FILE
//*            Turnkey Hercules Utility collection.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Addition of File 554 from Mitchell Marx and          *   DOC FILE
//*            Penelope Davis.  This file contains the coding       *   DOC FILE
//*            examples from their book entitled:  "MVS Power       *   DOC FILE
//*            Programming" that was part of the Jay Ranade series  *   DOC FILE
//*            from McGraw Hill.  This book is an excellent text    *   DOC FILE
//*            for teaching ESA Assembler programming for the MVS   *   DOC FILE
//*            Operating System, and some very interesting ESA      *   DOC FILE
//*            code is contained in this file.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Addition of File 555 from Solomon Santos.  This is   *   DOC FILE
//*            is very useful Utility and Subroutine collection.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Addition of File 556 from Jeff Kaplan, which is      *   DOC FILE
//*            an HTTP requestor socket interface, written in REXX, *   DOC FILE
//*            which will retrieve a file from a web site and       *   DOC FILE
//*            transport it to OS/390.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Addition of File 557 from Jim Moore, which is a      *   DOC FILE
//*            nice package to generate SOUNDEX codes that were     *   DOC FILE
//*            written about by Donald Knuth in his Sorting and     *   DOC FILE
//*            Searching volume.  SOUNDEX codes are used by many    *   DOC FILE
//*            states to generate the beginning of your driver's    *   DOC FILE
//*            license number, from your last name.  This package   *   DOC FILE
//*            contains a REXX, and Assembler program, a panel,     *   DOC FILE
//*            and a COBOL program, and is a cool coding example.   *   DOC FILE
//*            Also, it is possible to use this package to produce  *   DOC FILE
//*            more general SOUNDEX codes than the 4-character      *   DOC FILE
//*            ANNN ones, which were originally envisioned.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Addition of Files 558 thru 565 from Dick Thornton,   *   DOC FILE
//*            which is a collection of much of his work.  Dick     *   DOC FILE
//*            is the author of the famous DISASSEMBLER program     *   DOC FILE
//*            which has been on File 217 of this tape for many     *   DOC FILE
//*            years, and which has served as a model for other     *   DOC FILE
//*            disassemblers which people have written:             *   DOC FILE
//*                                                                 *   DOC FILE
//*            Dick has recently written a new version of his       *   DOC FILE
//*            DISASSEMBLER which can now be found on File 234      *   DOC FILE
//*            of this tape.  To run on older systems, File 217     *   DOC FILE
//*            is still being kept around.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*            Contents of files 558 thru 565:                      *   DOC FILE
//*                                                                 *   DOC FILE
//*            File 558 - Large Collection of Assembler Code        *   DOC FILE
//*            File 559 - Large Collection of C-Language Code       *   DOC FILE
//*            File 560 - Large JCL Collection                      *   DOC FILE
//*            File 561 - CLIST Collection                          *   DOC FILE
//*            File 562 - EXECs, with PANELS and MESSAGES           *   DOC FILE
//*            File 563 - Large Collection of COBOL Code            *   DOC FILE
//*            File 564 - Documentation PDS'es                      *   DOC FILE
//*            File 565 - Classes - C, COBOL, Dump Reading          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-443 SECTION                                          *   DOC FILE
//*  V-443  CHANGES FOR VERSION 443 MAR 12, 2002                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  "Rabbit Hole Ware":  Several contributions to this   *   DOC FILE
//*            tape apparently got lost in my input box a few       *   DOC FILE
//*            years ago, and never got to the tape.  One might     *   DOC FILE
//*            say they "fell into the Rabbit Hole" (after Alice    *   DOC FILE
//*            in Wonderland, I think).  Therefore, Sam Knutson     *   DOC FILE
//*            has coined the term "Rabbit-Hole Ware" for these     *   DOC FILE
//*            contributions.  Several files are in this category,  *   DOC FILE
//*            notably Files 548, 549, 551, and 552.  Sorry about   *   DOC FILE
//*            that.  I'm glad these files are here, at last......  *   DOC FILE
//*            They are courtesy of Sam Knutson.  Please thank him. *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Addition of File 077 from Brian Westerman.  This     *   DOC FILE
//*            file contains a large collection of utilities which  *   DOC FILE
//*            were tested to work under the MVS 3.8J Turnkey       *   DOC FILE
//*            Hercules system from Volker Bandke.  Many of these   *   DOC FILE
//*            utilities may be found in old CBT Tapes, and on      *   DOC FILE
//*            File 088 in their more modern versions.  But these   *   DOC FILE
//*            versions were tested under MVS 3.8J, and for people  *   DOC FILE
//*            who are constrained to run that system, they are     *   DOC FILE
//*            as good as gold.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 088 from Brian Westerman, to add      *   DOC FILE
//*            the COMMANDZ program, a corrected version of AUTO,   *   DOC FILE
//*            and a non-MVS/SP version of AUTO to run under        *   DOC FILE
//*            HERCULES MVS 3.8J, called HERCAUTO.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 120, to add a new article.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 134 from Greg Price to include a      *   DOC FILE
//*            new version of REVIEW (36.3).                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 135 to reflect updates to several     *   DOC FILE
//*            programs.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 299 to include a member that shows    *   DOC FILE
//*            TAPEMAP's possible PARMs.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Updates to File 312 from Lionel Dyck.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 321 which is COBANAL from Roland      *   DOC FILE
//*            Schiradin.  There is also an ISPF interface to       *   DOC FILE
//*            COBANAL from Fritz Alber, included in this file.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 330 from Fritz Alber, which includes  *   DOC FILE
//*            his ISPF interface to the COBANAL program on File    *   DOC FILE
//*            321.                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 409 from Rob Scott, which is an       *   DOC FILE
//*            upgrade to the source members of MXI for Release     *   DOC FILE
//*            3.4.                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 410 from Rob Scott, which is an       *   DOC FILE
//*            upgrade to the load members of MXI for Release 3.4.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 438 from Dan Snyder to improve his    *   DOC FILE
//*            structured macro set, which has now been separated   *   DOC FILE
//*            out to File 550, but which exists on this file       *   DOC FILE
//*            too, as member $$$STRUC.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 478 from Jan Jaeger to add some       *   DOC FILE
//*            doc as to how to run his RAWSTAPE program.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 492 from Roland Schiradin, to         *   DOC FILE
//*            contain Version 7.03 of SHOWMVS, for OS/390 and      *   DOC FILE
//*            z/OS systems, as well as Version 6.29, for           *   DOC FILE
//*            pre-OS/390 systems.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 523 from Paul Dion, to put some       *   DOC FILE
//*            more improvements into his SMFSLCT (SMF selection)   *   DOC FILE
//*            program.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 527 from Matthew Stitt.  Several      *   DOC FILE
//*            new tools were added.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 543 from David Barnard-Brown, to      *   DOC FILE
//*            revise his CHECKSYS routine, so that the routines    *   DOC FILE
//*            can be separately callable.  Cool....                *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Addition of File 547 from Volker Bandke, which is    *   DOC FILE
//*            a large file that is a supplement to his Turnkey     *   DOC FILE
//*            MVS 3.8J system that sets up and runs the Hercules   *   DOC FILE
//*            emulator on your PC under Windows.  This file does   *   DOC FILE
//*            not include Hercules, or the Turnkey system, but     *   DOC FILE
//*            contains many utilities that will run on different   *   DOC FILE
//*            flavors of MVS.  Also, Volker's famous "Wisdom from  *   DOC FILE
//*            the Fortune Cookie Jar" is included here.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Addition of File 548 which is a collection of REXX   *   DOC FILE
//*            functions from Alfred Nikolyn.  These functions      *   DOC FILE
//*            may be especially useful in a disk shadowing         *   DOC FILE
//*            environment, but they are also generally useful.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Addition of File 549 from Mark Baron, which is an    *   DOC FILE
//*            ISPF application to display Unit Names on MVS.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Addition of File 550 from Dan Snyder, which is his   *   DOC FILE
//*            Structured Macro Toolkit, which is free.  If you     *   DOC FILE
//*            were thinking of using IBM's Structured Macro        *   DOC FILE
//*            Toolkit, which is a licensed product, but you were   *   DOC FILE
//*            afraid to use IBM's macros because of a lack of      *   DOC FILE
//*            portability to the resulting source code, you might  *   DOC FILE
//*            think of trying to use these macros instead.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Addition of File 551 from Martin Leist, which        *   DOC FILE
//*            contains his exits to control which users can        *   DOC FILE
//*            use the TSO CONSOLE command.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Addition of File 552 from Marc Manuel, which         *   DOC FILE
//*            contains his program to analyze COBOL 2 and          *   DOC FILE
//*            COBOL/MVS load modules.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Addition of File 553 from David Alcock, to contain   *   DOC FILE
//*            his SUBMITC edit macro.  This macro allows you to    *   DOC FILE
//*            SUBMIT a JCL jobstream, but with various "smarts"    *   DOC FILE
//*            that have been built in, such as prompting for       *   DOC FILE
//*            passwords, and others.                               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-442 SECTION                                          *   DOC FILE
//*  V-442  CHANGES FOR VERSION 442 FEB 03, 2002                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035, to reflect the new updates       *   DOC FILE
//*            to PDS 8.5 Update 20.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 120, to include a new article.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 135, to reflect the new updates       *   DOC FILE
//*            to PDS 8.5 Update 20, but with the new ISO Date      *   DOC FILE
//*            option turned on.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 182, which is source code for PDS     *   DOC FILE
//*            8.5, and which includes some slight updates to       *   DOC FILE
//*            Update 20 of this product.  This is from John        *   DOC FILE
//*            Kalinich.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Updates to File 312 from Lionel Dyck.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Addition of File 402, which is a scheme to           *   DOC FILE
//*            consolidate "D SMF" type data from multiple MVS      *   DOC FILE
//*            systems, so it can be viewed from one system.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Updates to File 434 from Mark Zelden.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 485 from Judah Jacobs, to add his     *   DOC FILE
//*            setup instructions for using Binyamin Dissen's       *   DOC FILE
//*            VTAM application.  See member $$INSTR.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 527 from Matthew Stitt.  Several      *   DOC FILE
//*            things were added, notably an update to his DADSM    *   DOC FILE
//*            program.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-441 SECTION                                          *   DOC FILE
//*  V-441  CHANGES FOR VERSION 441 JAN 28, 2002                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  Correction of File 003, so it does not have too      *   DOC FILE
//*            many EXEC statements in each JOB.  There are now     *   DOC FILE
//*            7 JOBs in the jobstream of File 003.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Addition of File 033 which is the SHARE JES2         *   DOC FILE
//*            song book.  This song book contains songs that       *   DOC FILE
//*            were composed for the SHARE JES2 sing-alongs         *   DOC FILE
//*            which are held at every SHARE meeting on Thursday    *   DOC FILE
//*            nights at S.C.I.D.S.  One of the senior members      *   DOC FILE
//*            of the JES2 committee comes out in the traditional   *   DOC FILE
//*            orange grass skirt, to lead the singing, along       *   DOC FILE
//*            with the rousing piano music and the accompaniment   *   DOC FILE
//*            and waving of Bob Rannie's famous "paddles".  This   *   DOC FILE
//*            is a sight that is not to be missed, in person.      *   DOC FILE
//*            Second best (far distantly) is to sing the songs     *   DOC FILE
//*            in this book, together with your friends.....        *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 035 to contain the new PDS 8.5        *   DOC FILE
//*            command, and other changes, especially to the        *   DOC FILE
//*            VTT2**** programs.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 120 to add more articles.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 134 from Greg Price, to bring REVIEW  *   DOC FILE
//*            to Version 36.2.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 135 from Greg Price, to update the    *   DOC FILE
//*            load modules for REVIEW, PDS85, and some others.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 182 from John Kalinich, to bring      *   DOC FILE
//*            PDS 8.5 to the Update 20 level.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Updates to File 312 from Lionel Dyck.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Deletion of File 345, which was essentially a        *   DOC FILE
//*            repeat of File 447.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 394 from Jan Jakubek, to add some     *   DOC FILE
//*            more utilities and update his KSDSPACE program.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 431 from Steve Bacher, to include     *   DOC FILE
//*            a fix from Steve McGinty.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Updates to File 434 from Mark Zelden.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 438 from Dan Snyder, to add some      *   DOC FILE
//*            more functionality to his set of structured macros.  *   DOC FILE
//*            The set of structured macros is now put together,    *   DOC FILE
//*            in member $$$STRUC, although these same members are  *   DOC FILE
//*            also separately listed in the file.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 447, to make some slight changes      *   DOC FILE
//*            which had been part of File 345.  These two files    *   DOC FILE
//*            had essentially been duplicates of each other.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 452 from Dan Dalby, to his MVS-JES2   *   DOC FILE
//*            collection of utilities and tools.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 479 from Paul Lemons, which contains  *   DOC FILE
//*            his SYS1.BRODCAST "notices editor", and other stuff. *   DOC FILE
//*            I think the update was to the Yahtzee game.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 495 from Tom Conley, which is his     *   DOC FILE
//*            Dynamic ISPF Install package, that lets you install  *   DOC FILE
//*            individual ISPF applications without affecting the   *   DOC FILE
//*            other applications which are running.  The Dynamic   *   DOC FILE
//*            ISPF Starter Set is now at the V3.3 level.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 533 from Sam Golob, to enhance the    *   DOC FILE
//*            VTT2DISK and VTT2TAPE programs (that make an AWS     *   DOC FILE
//*            format tape file on MVS, or cut a real tape from an  *   DOC FILE
//*            AWS format file).  Also, a new program VTT2CNVU was  *   DOC FILE
//*            added, to convert VB AWS files on MVS, to FB-80      *   DOC FILE
//*            format, so that VTT2TAPE can be run against them.    *   DOC FILE
//*            Now you can convert files created by Brandon Hill's  *   DOC FILE
//*            AWSUTIL program (File 477) which are VB, to the      *   DOC FILE
//*            FB-80 format required by VTT2TAPE to cut a tape.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Addition of File 540 from Sam Golob, which is his    *   DOC FILE
//*            PARM scanner routine called PARMCHEK.  This is a     *   DOC FILE
//*            table-driven parm scanner that can set up to 5 bytes *   DOC FILE
//*            worth of bits, based on PARM or SYSIN input.  This   *   DOC FILE
//*            program makes it possible to set many option bits    *   DOC FILE
//*            to control a program's execution, based on PARM or   *   DOC FILE
//*            SYSIN keywords.  This program was adapted from the   *   DOC FILE
//*            COPYMODS program on File 229, that has over 30       *   DOC FILE
//*            separate options in it.  Driver programs are         *   DOC FILE
//*            included to show how this routine can be called.     *   DOC FILE
//*            This version of the program is not re-entrant, so    *   DOC FILE
//*            re-entrant programs have to LINK to it.  (I hope to  *   DOC FILE
//*            fix that soon.)                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Addition of File 541, which is from Greg Smith,      *   DOC FILE
//*            via the Hercules-390 File List and contains an MVS   *   DOC FILE
//*            version of the routines to create CCKD-compressed    *   DOC FILE
//*            DASD, and uncompressed DASD.  This allows entire     *   DOC FILE
//*            MVS disk drives from an MVS system to be ported to   *   DOC FILE
//*            a Hercules system running on a PC.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Addition of File 542 from Alastair Gray, which       *   DOC FILE
//*            contains a REXX routine to replace the MCNVTCAT      *   DOC FILE
//*            program (formerly from IBM CBIPO), and some other    *   DOC FILE
//*            nice utilities.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Addition of File 543, which is from David            *   DOC FILE
//*            Barnard-Brown, and contains REXX execs and an        *   DOC FILE
//*            Assembler program, to display system information.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Addition of File 544 from Phil Roberts, which        *   DOC FILE
//*            contains important materials for starting and        *   DOC FILE
//*            running Stanford University's PL360 programming      *   DOC FILE
//*            Language.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Addition of File 545, which is the complete EBCDIC   *   DOC FILE
//*            distribution from Stanford University, of the PL360  *   DOC FILE
//*            programming language.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Addition of File 546, which currently contains the   *   DOC FILE
//*            first of five books in PDF format, from Stanford     *   DOC FILE
//*            University's FTP files, concerning PL360.  These     *   DOC FILE
//*            take up a ton of space in PDF format, having been    *   DOC FILE
//*            scanned in, and I am including only the first one    *   DOC FILE
//*            here, as a place holder for the file, so there will  *   DOC FILE
//*            be an adjacent file number available if/when I can   *   DOC FILE
//*            convert the books to actual EBCDIC text.             *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-440 SECTION                                          *   DOC FILE
//*  V-440  CHANGES FOR VERSION 440 DEC 11, 2001                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 006, to remove VTT2TAPE code, and     *   DOC FILE
//*            to refer to File 533, where the latest versions of   *   DOC FILE
//*            programs VTT2TAPE and VTT2DISK are.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 035, to reflect PDS 8.5.19, and       *   DOC FILE
//*            PDS85I, and to add VTT2TAPE and VTT2DISK from        *   DOC FILE
//*            File 533.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 120 to add more articles.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 135, to reflect PDS 8.5.19.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 182 from John Kalinich, to contain    *   DOC FILE
//*            the PDS program package, Version 8.5, Update 19.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Various updates to File 312 from Lionel Dyck.        *   DOC FILE
//*            These are continuing updates, and they reflect the   *   DOC FILE
//*            new and changed programs which Lionel posts at his   *   DOC FILE
//*            web site.  Lionel's current web site address is:     *   DOC FILE
//*                                                                 *   DOC FILE
//*               http://www.geocities.com/lbdyck                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 358 from Eric Bielefeld, to supply    *   DOC FILE
//*            some missing macros from his SYSOUT storage          *   DOC FILE
//*            package.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Addition of File 401 from Bob Goldberg.  This file   *   DOC FILE
//*            now contains the SPITBOL 360 compiler and library.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 434 from Mark Zelden, with some       *   DOC FILE
//*            more improvements to his programs.  These are also   *   DOC FILE
//*            continuing updates.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 438, which is Dan Snyder's macro      *   DOC FILE
//*            library, to update some of the members.  Also,       *   DOC FILE
//*            in the light of the fact that the IBM Structured     *   DOC FILE
//*            Macros that come with the HLASM Toolkit, are not     *   DOC FILE
//*            available to every MVS site, and therefore are       *   DOC FILE
//*            not "public" and not "portable", Dan's collection    *   DOC FILE
//*            of structured macros, was packaged separately from   *   DOC FILE
//*            the rest of the macros, in member $$$STRUC.          *   DOC FILE
//*                                                                 *   DOC FILE
//*            These structured macros are public and free, and     *   DOC FILE
//*            are therefore being proposed as an alternative to    *   DOC FILE
//*            use, instead of the ones shipped with the IBM        *   DOC FILE
//*            HLASM Toolkit.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 495 from Tom Conley, to contain       *   DOC FILE
//*            V3R2 of his Dynamic ISPF Starter Set package,        *   DOC FILE
//*            which helps you install ISPF applications into       *   DOC FILE
//*            your TSO sessions more easily.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 529 from Matthew Stitt, to add a      *   DOC FILE
//*            few more programs to his SMF Record formatting       *   DOC FILE
//*            programs that are written in COBOL.  There are       *   DOC FILE
//*            also other system-oriented programs here, that       *   DOC FILE
//*            are meant to be available to application programmers *   DOC FILE
//*            also.                                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 531 from David Stern, to include      *   DOC FILE
//*            an improvement to one of his REXX execs.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Addition of File 533 from Sam Golob.  This is        *   DOC FILE
//*            a package that converts entire tapes to AWS-format   *   DOC FILE
//*            disk files, and which can take an AWS-format disk    *   DOC FILE
//*            file, and cut a tape from it.  There are 2 programs. *   DOC FILE
//*            VTT2DISK reads a tape, and creates an FB-80 AWS      *   DOC FILE
//*            format disk file on MVS.  VTT2TAPE looks at such     *   DOC FILE
//*            a disk file, and cuts a real tape on a tape drive.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Addition of File 534 from Paul Dion, which contains  *   DOC FILE
//*            a very capable command, to show DASD free space.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Addition of File 535 from Deru Sudibyo, which        *   DOC FILE
//*            contains CCAT, a versatile command to do dynamic     *   DOC FILE
//*            allocation, concatenation, and deconcatenation of    *   DOC FILE
//*            datasets.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Addition of File 536 from Deru Sudibyo, which        *   DOC FILE
//*            contains XDI, a software package that is a Report    *   DOC FILE
//*            Distribution Management System, for shops which      *   DOC FILE
//*            have both the CA-XCOM, and CA-Dispatch packages.     *   DOC FILE
//*            See member $MANUAL which explains the reason for     *   DOC FILE
//*            the creation of this system.  CA-Dispatch shops      *   DOC FILE
//*            may profit a lot from this.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Addition of File 537 from Rick Fochtman, which       *   DOC FILE
//*            (at present) contains entry and exit assembler       *   DOC FILE
//*            macros.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Addition of File 538 from Jan Jaeger, which          *   DOC FILE
//*            contains an IPLable version of ZZSA, his standalone  *   DOC FILE
//*            text editor.  This file is tailored for Hercules     *   DOC FILE
//*            users, but I think it will work on normal MVS too.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Addition of File 539 from Hersch White, which is     *   DOC FILE
//*            a REXX and a SAS program, to read SMF records and    *   DOC FILE
//*            report who mucked with a dataset.  This is set up    *   DOC FILE
//*            as a no-brainer, for application programmers and     *   DOC FILE
//*            operators to use, themselves, with no outside help.  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-439 SECTION                                          *   DOC FILE
//*  V-439  CHANGES FOR VERSION 439 OCT 30, 2001                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  Thanks to Gilbert Saint-flour for hosting the        *   DOC FILE
//*            creation of this tape, again.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035, to reflect PDS 8.5.18, and       *   DOC FILE
//*            PDS8538, which is PDS 8.5 that runs under MVS        *   DOC FILE
//*            Release 3.8J, which you can run for free, under      *   DOC FILE
//*            Hercules, on your PC at home.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 047, to put back some of the stuff    *   DOC FILE
//*            that Jim Lane had inadvertently deleted in his last  *   DOC FILE
//*            reorganization of this file.  My thanks to Aron      *   DOC FILE
//*            Eisenpress for supplying me with the old CBT Tape    *   DOC FILE
//*            to get the proper level of material, and to all      *   DOC FILE
//*            the other people who sent me old CBT tapes, when     *   DOC FILE
//*            I asked for them on IBM-MAIN.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 112 from Dave Cartwright, to add      *   DOC FILE
//*            enqueue checking to the VTOC command.  Sam Golob     *   DOC FILE
//*            modified the code to convert the MSG macro to a      *   DOC FILE
//*            new name, MSGZ, because MSG is now an assembler      *   DOC FILE
//*            opcode.  Wade Simons further updated the code,       *   DOC FILE
//*            to put work areas above the 16M line, so more        *   DOC FILE
//*            datasets can be processed.                           *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 118, to add some slight programming   *   DOC FILE
//*            changes to the SMP/E preprocessing package.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 120 to add more articles.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 134 from Greg Price, to include       *   DOC FILE
//*            new enhancements to REVIEW and SHOWDS.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 135, to reflect PDS 8.5.18, and       *   DOC FILE
//*            PDS8538, which is PDS 8.5 that runs under MVS        *   DOC FILE
//*            Release 3.8J, which you can run for free, under      *   DOC FILE
//*            Hercules, on your PC at home.  Also reflects the     *   DOC FILE
//*            new levels of REVIEW and SHOWDS.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 172 from Dave Cartwright, to add      *   DOC FILE
//*            a new program (HPR), include a couple of useful      *   DOC FILE
//*            programs from Hercules work (CCKDDUMP and AWSTAPE)   *   DOC FILE
//*            and to fix the MAPDISK program so it doesn't update  *   DOC FILE
//*            the last referenced date of the data sets it         *   DOC FILE
//*            reports on.  Other fixes too.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 182 from John Kalinich, to contain    *   DOC FILE
//*            the PDS program package, Version 8.5, Update 18.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 247 from Sam Golob, with some more    *   DOC FILE
//*            improvements to the Broadcast Manager package of     *   DOC FILE
//*            utilities (for managing SYS1.BRODCAST).  A Notices   *   DOC FILE
//*            listing program BCMNLIST has now been written.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Various updates to File 312 from Lionel Dyck.        *   DOC FILE
//*            These are continuing updates, and they reflect the   *   DOC FILE
//*            new and changed programs which Lionel posts at his   *   DOC FILE
//*            web site.  Lionel's current web site address is:     *   DOC FILE
//*                                                                 *   DOC FILE
//*               http://www.geocities.com/lbdyck                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 331 from Charles Hottel, to correct   *   DOC FILE
//*            a couple of mistakes in the example in the $$$DOC    *   DOC FILE
//*            member.                                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 344 from Joerg Berning.  Added is     *   DOC FILE
//*            a REXX utility to read files from an AWSTAPE disk    *   DOC FILE
//*            file image of a tape.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 394 from Jan Jakubek, to include      *   DOC FILE
//*            the addition of a whole bunch of his utilities,      *   DOC FILE
//*            as well as an upgrade to his program KSDSPACE.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 409 from Rob Scott to bring the       *   DOC FILE
//*            level of his MXI panels to Release 3.3.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Update to File 410 from Rob Scott, which is          *   DOC FILE
//*            MXI Version 3.3 GenLevel 011026.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Update to File 434 from Mark Zelden, with some       *   DOC FILE
//*            more improvements to his programs.  These are also   *   DOC FILE
//*            continuing updates.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Update to File 520 from Robin Ryerse, to include     *   DOC FILE
//*            another REXX function package, called SCXSORT,       *   DOC FILE
//*            in addition to the REXX function packages that       *   DOC FILE
//*            are already there.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Addition of File 528 from John McKown, which         *   DOC FILE
//*            contains a REXX exec to parse a LISTCAT listing      *   DOC FILE
//*            and produce source statements for IDCAMS, to         *   DOC FILE
//*            recatalog the items listed.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Addition of File 529 from Matthew Stitt, which       *   DOC FILE
//*            contains some programs to report CICS statistics,    *   DOC FILE
//*            and some other programs.  Most of these programs     *   DOC FILE
//*            are written in COBOL, but they are very useful,      *   DOC FILE
//*            for people who need this information.  There is      *   DOC FILE
//*            also a program, CATLIST, to report on the contents   *   DOC FILE
//*            of old-style VSAM catalogs, without using IBM's      *   DOC FILE
//*            LISTCAT.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Addition of File 530 from Roy Gardiner, which is     *   DOC FILE
//*            a PL/I program to reformat PL/I programs, so they    *   DOC FILE
//*            are neater and it's easier to follow the logic.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Addition of File 531 from David Stern, which is a    *   DOC FILE
//*            compound EXEC to show a lot of OS390 and TCP/IP      *   DOC FILE
//*            information.   Additionally, the TCP/IP part has     *   DOC FILE
//*            been broken out into a separate EXEC, because of     *   DOC FILE
//*            its great general usefulness.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Addition of File 532 from Charles Hottel.  This is   *   DOC FILE
//*            a large collection of RPFs for Roscoe.  It should    *   DOC FILE
//*            prove to be extremely useful for installations       *   DOC FILE
//*            using Roscoe.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-438 SECTION                                          *   DOC FILE
//*  V-438  CHANGES FOR VERSION 438 AUG 01, 2001                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Deletion of File 033 from Gene Cray.  All the        *   DOC FILE
//*            functionality (and JCL compatibility) from Gene's    *   DOC FILE
//*            version of the PUTXREF program, have been included   *   DOC FILE
//*            in (LEVEL 006 of) the PUTXREF program, on File 118.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Addition of File 049 which is the old STATS          *   DOC FILE
//*            program from Bruce Leland.  This program             *   DOC FILE
//*            displays info about the internal structure of        *   DOC FILE
//*            several types of datasets.  I thought it was so      *   DOC FILE
//*            interesting that I resurrected it from File 213      *   DOC FILE
//*            of the old CBT Tape (Version 249).                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 118 from Sam Golob, to merge the      *   DOC FILE
//*            features of Gene Cray's version of PUTXREF, which    *   DOC FILE
//*            used to be on File 033, into the later version of    *   DOC FILE
//*            PUTXREF, that is on File 118.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to documentation of File 183 to move all      *   DOC FILE
//*            references to the SHOWMVS program, to File 492.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Deletion of File 234.  This material can be found    *   DOC FILE
//*            on File 247, as the BCMSCAN program.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 247 which is the Broadcast Manager    *   DOC FILE
//*            set of programs.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 293 from Sam Golob to make another    *   DOC FILE
//*            small improvement to the CKIEBGEN program.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Updates to File 312 from Lionel Dyck.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 322 to add a member that uses an      *   DOC FILE
//*            IBM model under UNIX System Services to wait for     *   DOC FILE
//*            an interval.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to FIle 434 from Mark Zelden.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 495 from Tom Conley, to bring his     *   DOC FILE
//*            ISPF Quick Install package to Level 3.1.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Addition of File 527 which is a collection of        *   DOC FILE
//*            tools and exits from Matthew Stitt.                  *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-437 SECTION                                          *   DOC FILE
//*  V-437  CHANGES FOR VERSION 437 JUL 12, 2001                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 104 from Dave Cartwright.  This is    *   DOC FILE
//*            JRP (JES2 Remote Processing), and the update is to   *   DOC FILE
//*            fix some problems.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 118 from Sam Golob, to replace all    *   DOC FILE
//*            COBOL programs with Assembler equivalents.  PUTXREF  *   DOC FILE
//*            was also modified to produce fixed blocked output    *   DOC FILE
//*            instead of variable unblocked output.  SYSPRINT      *   DOC FILE
//*            reporting was introduced into the SMPUPD program     *   DOC FILE
//*            processing, and is quite extensive.  Many other      *   DOC FILE
//*            improvements.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 120 to add more articles.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 135 to include a later version of     *   DOC FILE
//*            SHOWMVS.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 136 to fix a bug in BRODSCAN.  The    *   DOC FILE
//*            program did not report garbaged user messages in     *   DOC FILE
//*            SYS1.BRODCAST correctly.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 229 from Sam Golob, to mark the       *   DOC FILE
//*            STRIP parm as not having been implemented yet.       *   DOC FILE
//*            The change was done in member #MANUAL.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 247 which is the Broadcast Manager    *   DOC FILE
//*            program, to make numerous updates, and to add the    *   DOC FILE
//*            BCMXPORT program.  Also, the BCEDIT REXX execs by    *   DOC FILE
//*            Paul Lemons, to edit Notices messages, were copied   *   DOC FILE
//*            over to here from File 479.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 299 from Sam Golob, to eliminate      *   DOC FILE
//*            the X'00' characters that were appearing in the      *   DOC FILE
//*            TAPEMAP report headers (and replacing them with      *   DOC FILE
//*            blanks).                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Numerous updates to File 312 from Lionel Dyck.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 410 from Rob Scott, to ship a new     *   DOC FILE
//*            genlevel of MXI.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Updates to File 434 from Mark Zelden.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 455 to include a later version of     *   DOC FILE
//*            SHOWMVS.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 492 which is SHOWMVS, from Roland     *   DOC FILE
//*            Schiradin.  This file now contains Version 6.29      *   DOC FILE
//*            and Version 7.02.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 519 from Sam Golob, to improve the    *   DOC FILE
//*            reporting in the TMS-VTS comparison (audit) system.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Addition of File 522 from Michael Oujesky, which     *   DOC FILE
//*            is a program to write a user record to SMF.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Addition of File 523 from Paul Dion, which is a      *   DOC FILE
//*            very general SMF record selection program, which     *   DOC FILE
//*            can also read from the currently active SMF dataset, *   DOC FILE
//*            if you wish.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Addition of File 524 from Ron Tatum, which is his    *   DOC FILE
//*            coded routine to do general EXCP to tape datasets.   *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Addition of File 525 from Stephen Bell, which is a   *   DOC FILE
//*            mod to IBM's free CFMON program, so it will work     *   DOC FILE
//*            with OS/390 systems at a higher level than R2.6.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Addition of File 526 from David I. Russell.  This    *   DOC FILE
//*            is a magnificent ISPF interface and set of           *   DOC FILE
//*            enhancement programs, to make life easier for the    *   DOC FILE
//*            CA-Top Secret security administrator.                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-436 SECTION                                          *   DOC FILE
//*  V-436  CHANGES FOR VERSION 436 JUN 12, 2001                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 120 to add articles.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 312 from Lionel Dyck.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 314 from Dave Lees.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 516 from Sam Golob, to fix several    *   DOC FILE
//*            problems running the CBRTST program against a        *   DOC FILE
//*            very large number of volumes.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Addition of File 519 from Sam Golob, which contains  *   DOC FILE
//*            a package to audit differences between TMS reporting *   DOC FILE
//*            of tape volume information, and VTS (Virtual Tape    *   DOC FILE
//*            System) reporting, using IBM's VTS.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Addition of File 520 from Robin Ryerse, which        *   DOC FILE
//*            contains some REXX functions coded in Assembler.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 521 from Tom Bryant, which contains   *   DOC FILE
//*            some useful EREP Jobstreams.                         *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-435 SECTION                                          *   DOC FILE
//*  V-435  CHANGES FOR VERSION 435 MAY 30, 2001                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 120 to add one or more articles.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 183 from Gilbert Saint-flour.         *   DOC FILE
//*            SHOWMVS is now on File 492, and is being worked      *   DOC FILE
//*            on by Roland Schiradin.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Addition of File 293 by Warren Whitford and Sam      *   DOC FILE
//*            Golob.  This file contains iterations (continued     *   DOC FILE
//*            improvements) to the CKIEBGEN sequential dataset     *   DOC FILE
//*            copying program that uses QSAM.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Addition of File 295 from David B. Cole.  This       *   DOC FILE
//*            is an essay that describes his inner feelings        *   DOC FILE
//*            as a programmer, and is very much worth reading.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 296, to correct a typo in DVOL that   *   DOC FILE
//*            stops it from being assembled properly.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 308 from Alan Field, to provide       *   DOC FILE
//*            a version of his system level display mod, for       *   DOC FILE
//*            the z/OS 1.1 level.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Updates to File 312 from Lionel Dyck.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 409 from Rob Scott.  This is the      *   DOC FILE
//*            FB-80 file containing panels, and other stuff for    *   DOC FILE
//*            MXI.  This file has been updated for MXI 3.2a.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 410 from Rob Scott.  This file        *   DOC FILE
//*            is the load library for MXI.  It is now at level     *   DOC FILE
//*            MXI Version 3.2 GenLevel 010524.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 411 from Rob Scott.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 413 from Ashley Street.               *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 495 which is a new edition of Tom     *   DOC FILE
//*            Conley's ISPF starter set.  Cool.                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Addition of File 515 from Alex Brodsky, which is     *   DOC FILE
//*            a nice collection of REXX functions and ISPF stuff.  *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Addition of File 516 from Sam Golob, which is a      *   DOC FILE
//*            program for CA-1 analysis of your tapes.  This       *   DOC FILE
//*            program is driven by a list of volumes, and it       *   DOC FILE
//*            calls CA-1's new program CTSQSTS, to report and      *   DOC FILE
//*            interpret the return code gotten for each volume.    *   DOC FILE
//*            This program may be run against a list of all the    *   DOC FILE
//*            volumes in your TMC, to report their status.  The    *   DOC FILE
//*            report is very short, and convenient to look at.     *   DOC FILE
//*            Better than a TMSBINQ, for some purposes, if you     *   DOC FILE
//*            don't need detail.  To my knowledge, this program    *   DOC FILE
//*            does not update the TMC entries.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Addition of File 517 from Peter Flass.  This is the  *   DOC FILE
//*            XPL Compiler Generator System from the late 60s,     *   DOC FILE
//*            which allows you to write your own compilers.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Addition of File 518 from Sam Knutson.  This is a    *   DOC FILE
//*            program to change the ASM internal defaults, so it   *   DOC FILE
//*            doesn't report an "Auxiliary Storage Full" condition *   DOC FILE
//*            so quickly.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-434 SECTION                                          *   DOC FILE
//*  V-434  CHANGES FOR VERSION 434 MAY 01, 2001                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 120 to add a few new articles.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to Files 134 and 135 from Greg Price, to      *   DOC FILE
//*            update REVIEW to accommodate people who are          *   DOC FILE
//*            running Hercules (S390 hardware emulator that        *   DOC FILE
//*            runs on a PC).  Other updates too.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 247 to update the BCMISPF materials   *   DOC FILE
//*            from Vinh Vu.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 357 from Carl Hafner, to make         *   DOC FILE
//*            multiple changes to his large collection.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Addition of File 389 from Jack Schudel, with a       *   DOC FILE
//*            version of JES2 QUEUE that avowedly is not perfect,  *   DOC FILE
//*            but which might be made to work for JES2 spool       *   DOC FILE
//*            browsing from the ESA 5.2.0 level thru OS390 2.8     *   DOC FILE
//*            or 2.10.  It is being distributed here, to make it   *   DOC FILE
//*            available, so people can work on it further.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to the documentation for File 393 from Bob    *   DOC FILE
//*            Lamerand and Ken MacKenzie, which had been missing   *   DOC FILE
//*            from File 001.  This is a TSO REXX exec, to list     *   DOC FILE
//*            which RACF groups the user is connected to.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Updates to File 434 from Mark Zelden.  Several       *   DOC FILE
//*            iterations since Version 433 of this tape.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 452 from Dan Dalby (MVS-JES2),        *   DOC FILE
//*            to add some of his latest stuff.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 476 from Steve Bacher, to improve     *   DOC FILE
//*            the installability of LISP.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 492 which is the SHOWMVS version      *   DOC FILE
//*            levels that are maintained by Roland Schiradin       *   DOC FILE
//*            (as opposed to Gilbert Saint-flour alone).  This     *   DOC FILE
//*            is now a permanent file location, and it currently   *   DOC FILE
//*            contains version 6.28 (a stabilized version of 6.27) *   DOC FILE
//*            which only goes up to OS/390 2.10, and also the new  *   DOC FILE
//*            version for z/OS called SHOWMVS 7.01.  SHOWMVS 7.01  *   DOC FILE
//*            is only supported for OS/390 R1.1 and above.         *   DOC FILE
//*                                                                 *   DOC FILE
//*            For ease of installation, this file contains both    *   DOC FILE
//*            SHOWMVS load modules in TSO XMIT format.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 511 from Geoffrey McIntyre, to fix    *   DOC FILE
//*            a few problems with his VSAM analysis tool.          *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Addition of File 514 from Larry Williams, which      *   DOC FILE
//*            contains an ICHRTX00 SAF exit to stop even users     *   DOC FILE
//*            who have RACF SPECIAL attribute, from updating a     *   DOC FILE
//*            disk volume.  This is to stop TSO users at a         *   DOC FILE
//*            software house from altering the shop's copy of      *   DOC FILE
//*            distributed software releases.  Only specially       *   DOC FILE
//*            designated users can make updates to this volume,    *   DOC FILE
//*            or these volumes.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-433 SECTION                                          *   DOC FILE
//*  V-433  CHANGES FOR VERSION 433 APR 02, 2001                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 014 from Sam Golob, to fix a few      *   DOC FILE
//*            things on the old articles from 1988.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 035 to bring the PDS command load     *   DOC FILE
//*            module to the 8.5.16 level.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 050 to do a change to Thierry         *   DOC FILE
//*            Falissard's entry.  This file still needs a lot      *   DOC FILE
//*            of updating.                                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 120 to add a few new articles.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 139 to make it easier to exit the     *   DOC FILE
//*            WHOHAS command.  Under TSO Session Manager, you      *   DOC FILE
//*            have a hard time entering a null command.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 182 from John Kalinich, to bring      *   DOC FILE
//*            the PDS command package to the 8.5.16 level.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 249 from Steve Niebauer and Eileen    *   DOC FILE
//*            Barkow to fix the WMOD program(s) for OS/390 R2.7    *   DOC FILE
//*            systems and higher.                                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 312 from Lionel Dyck, to make         *   DOC FILE
//*            multiple changes to his large collection.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 332 to introduce another version      *   DOC FILE
//*            of AUTO which has been enhanced.  You might like     *   DOC FILE
//*            this one better.                                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 386 from Salvador Carrasco, to many   *   DOC FILE
//*            of his utilities.                                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Addition of File 406 which contains the CQX and      *   DOC FILE
//*            FIND TSO commands that used to be on the tape.       *   DOC FILE
//*            CQX has been fixed a bit for more modern systems.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 414 from Joe Garcia, to solve some    *   DOC FILE
//*            problems with the REWRITE program that converts      *   DOC FILE
//*            output from machine carriage control to ANSI.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Updates to File 434 from Mark Zelden.  Several       *   DOC FILE
//*            iterations since Version 432 of this tape.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 491 from Andy Robertson, to add       *   DOC FILE
//*            a new package called BATCHART, which generates       *   DOC FILE
//*            pictures that are viewable on a 3270, and which      *   DOC FILE
//*            can be converted to .gif files too.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Update to File 495 from Thomas Conley, to greatly    *   DOC FILE
//*            expand his sample collection of how to dynamically   *   DOC FILE
//*            install common software products, as they are        *   DOC FILE
//*            needed by the user (and NOT initially at the         *   DOC FILE
//*            beginning of the ISPF session).                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Addition of File 502 from Charles MacNiven, who      *   DOC FILE
//*            needed to create a copy of AMASPZAP which doesn't    *   DOC FILE
//*            issue the AMA117D REPLY Y OR N TO UPDATE VTOC        *   DOC FILE
//*            message.  This is how he solved the problem.         *   DOC FILE
//*            More info too.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Addition of File 503 from Adrian Stern which         *   DOC FILE
//*            contains a pds member listing utility written        *   DOC FILE
//*            in REXX.  This utility has the advantage of          *   DOC FILE
//*            running under raw TSO, and writing a file, without   *   DOC FILE
//*            the member name data having to be OUTTRAPed.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Addition of File 504 to present a software           *   DOC FILE
//*            inventory system that has been set up to keep        *   DOC FILE
//*            track of software duplications and changes.  The     *   DOC FILE
//*            system consists of an Assembler Language data        *   DOC FILE
//*            gathering part, followed by a SAS reporting part.    *   DOC FILE
//*            An administrator for this system should be           *   DOC FILE
//*            familiar with both Assembler Language and SAS.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Addition of File 505 from Sam Knutson, which is      *   DOC FILE
//*            the ASSIST Assembler Language teaching tool.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Addition of File 506 from Jim Blalock, which has     *   DOC FILE
//*            several REXX tools that help to process SMP/E        *   DOC FILE
//*            outputs.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        21  Addition of File 507 from Dennis Opfermann, which    *   DOC FILE
//*            is the public domain MVS version of TPL, Version     *   DOC FILE
//*            6.0.  TPL was developed many years ago at the        *   DOC FILE
//*            Bureau of Labor Statistics, as a pioneering          *   DOC FILE
//*            statistical tabulation tool.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*        22  Addition of File 508 from Al Richards, which is      *   DOC FILE
//*            a TSO command processor written in Assembler, that   *   DOC FILE
//*            executes CLISTs or REXX execs.  The name of this     *   DOC FILE
//*            program is EXCMD.  The purpose for developing this   *   DOC FILE
//*            processor was for TSO LOGON processing in a highly   *   DOC FILE
//*            customized environment, to convert assembler         *   DOC FILE
//*            language based dynamic allocation of datasets to     *   DOC FILE
//*            REXX and CLIST based allocation.  As written, this   *   DOC FILE
//*            command has another use--it temporarily destroys     *   DOC FILE
//*            the ISPF environment for the command it is           *   DOC FILE
//*            executing.  Therefore, if you can't get out of       *   DOC FILE
//*            ISPF, and you want to run a command which must not   *   DOC FILE
//*            be run under ISPF, you can simulate the non-ISPF     *   DOC FILE
//*            environment by executing the command with EXCMD.     *   DOC FILE
//*                                                                 *   DOC FILE
//*            EXCMDI command added, which preserves the ISPF       *   DOC FILE
//*            environment, and does the same function as EXCMD.    *   DOC FILE
//*                                                                 *   DOC FILE
//*        23  Addition of File 509 from Tim-Kent Larsen, which     *   DOC FILE
//*            is a system to web-enable the SHOWMVS command from   *   DOC FILE
//*            File 183.  You can invoke SHOWMVS from the client    *   DOC FILE
//*            machine, and get the output of SHOWMVS in HTML       *   DOC FILE
//*            format, over the Internet.  This is an example of    *   DOC FILE
//*            how to web-enable MVS commands.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        24  Addition of File 510 from Ricardo Paranhos, which    *   DOC FILE
//*            contains the flexible IEBLIST program to show        *   DOC FILE
//*            datasets on volumes, and to display their space      *   DOC FILE
//*            occupation and their DCB properties.  There is also  *   DOC FILE
//*            another program called SPACE as well.                *   DOC FILE
//*                                                                 *   DOC FILE
//*        25  Addition of File 511 from Geoffrey McIntyre, which   *   DOC FILE
//*            is a VSAM space management and analysis tool, with   *   DOC FILE
//*            an ISPF interface.  The main program is written in   *   DOC FILE
//*            COBOL.  This tool is very handy to have.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        26  Addition of File 512 from Luc van Rompaey, which     *   DOC FILE
//*            contains an ISPF CUT-PASTE that appears to be        *   DOC FILE
//*            quite sophisticated.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        27  Addition of File 513 from Angel Luis Dominguez       *   DOC FILE
//*            Martin and Jose Maria Martinez Besteiro.  This       *   DOC FILE
//*            file contains tools to use OPERLOG in a sysplex,     *   DOC FILE
//*            and to handle OPERLOG system messages as though      *   DOC FILE
//*            they were from SYSLOG (the "old" way).               *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-432 SECTION                                          *   DOC FILE
//*  V-432  CHANGES FOR VERSION 432 JAN 25, 2001                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        00  I am increasing the number of files on this tape     *   DOC FILE
//*            from 500 files to 600 files.                         *   DOC FILE
//*                                                                 *   DOC FILE
//*            The newest files on this tape have a date stamp,     *   DOC FILE
//*            which is a member called $$$#DATE, which says when   *   DOC FILE
//*            that file was prepared for distribution.  You can    *   DOC FILE
//*            use that member as a kind of version indicator.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 006 to include CLISTs that I use      *   DOC FILE
//*            to put a date and time stamp into newly shipped      *   DOC FILE
//*            CBT Tape files.  GENDAT for batch, GENDATE for TSO.  *   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 Files 134 and 135 from Greg Price, to      *   DOC FILE
//*            bring REVIEW to the V 35.0 level, and to introduce   *   DOC FILE
//*            a mechanism for logging on to multiple TSO sessions  *   DOC FILE
//*            for the same userid.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to Files 238 thru 242 which is the Super      *   DOC FILE
//*            Disassembler called REASM from Valentin Chernyak.    *   DOC FILE
//*            Some of these files have been much extended.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Addition of File 243 which is source code for        *   DOC FILE
//*            the Super Disassembler called REASM from Valentin    *   DOC FILE
//*            Chernyak.  Some of it is commented in Russian.       *   DOC FILE
//*            Most is commented in English.                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 247 to add enhancements to the        *   DOC FILE
//*            SYS1.BRODCAST manager package from various people.   *   DOC FILE
//*            Notable is the BCMISPF interface from Vinh Vu.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 312 from Lionel Dyck to add several   *   DOC FILE
//*            updates.                                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 321 from Roland Schiradin to his      *   DOC FILE
//*            COBANAL program, which has to be updated from        *   DOC FILE
//*            time to time, to include information about new       *   DOC FILE
//*            COBOL versions.                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to Files 409 and 410 from Rob Scott, to       *   DOC FILE
//*            bring MXI 3.1a to a new maintenance level (changes   *   DOC FILE
//*            are to load mods on File 410 - you can use the       *   DOC FILE
//*            same panels).                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Addition of File 493 from Jim Connelley, with        *   DOC FILE
//*            several extremely useful tools, notably a            *   DOC FILE
//*            "reverse IDCAMS" which points at a VSAM file         *   DOC FILE
//*            and generates IDCAMS control statements to DEFINE    *   DOC FILE
//*            a clone of it.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Addition of File 494 from David Sumner which is an   *   DOC FILE
//*            IKJEESX9 exit to LISTBC, which says that even        *   DOC FILE
//*            though TSO Userlogs are defined in PARMLIB, the      *   DOC FILE
//*            system should not make any new ones.  This allows    *   DOC FILE
//*            some userlogs for a few "big message gatherers"      *   DOC FILE
//*            and the use of SYS1.BRODCAST with its centralized    *   DOC FILE
//*            control, for all the others.  This package was       *   DOC FILE
//*            also added to File 247 (Broadcast Manager package).  *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Addition of File 495 from Tom Conley.  This is an    *   DOC FILE
//*            "ISPF Starter" package to make it easier to install  *   DOC FILE
//*            a product's ISPF interface, without adding more      *   DOC FILE
//*            ddnames to the LOGON PROC.  Many examples, for many  *   DOC FILE
//*            different commonly-used products, are included.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Addition of File 496 from Ken MacKenzie, which is    *   DOC FILE
//*            a REXX exec (called TIOT) that performs a TSO LISTA  *   DOC FILE
//*            function.  This exec works very well with the DISP   *   DOC FILE
//*            exec from File 487.  If you say TSO DISP TIOT, then  *   DOC FILE
//*            you ISPF VIEW your dataset allocations for TSO.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Addition of File 497 from Antonio Colombo of Amdahl  *   DOC FILE
//*            Italy, which is a CSVLLIX1 (LLA Fetch) exit, with    *   DOC FILE
//*            all the material that you need, to run it.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Addition of File 498 from Craig Schneiderwent,       *   DOC FILE
//*            which is a match-merge program written in Assembler. *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Addition of Files 499 and 500 from Edward Ross,      *   DOC FILE
//*            containing some miscellaneous utilities, and an      *   DOC FILE
//*            ISPF system to do RACF manipulation.  File 500       *   DOC FILE
//*            consists of object decks that accompany this         *   DOC FILE
//*            collection.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Addition of File 501 from Ken Clapp.  This file      *   DOC FILE
//*            contains an SNTP time server, and some other         *   DOC FILE
//*            related stuff.  An SNTP time server is used for      *   DOC FILE
//*            synchronizing your OS/390 system clock.              *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-431 SECTION                                          *   DOC FILE
//*  V-431  CHANGES FOR VERSION 431 DEC 15, 2000                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035 to reflect changes in DAF and     *   DOC FILE
//*            COPYMODS (and possibly other things by the time      *   DOC FILE
//*            this cut of the tape is finalized).                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  Update to File 069 to reload this file of coding     *   DOC FILE
//*            examples from Carmine Cannatello from his original   *   DOC FILE
//*            diskette.  The data was converted to EBCDIC using    *   DOC FILE
//*            SPF/PC in such a way, that all tab characters were   *   DOC FILE
//*            completely eliminated.  Spacing is now proper.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 094 from Mike Cleary, to bring        *   DOC FILE
//*            DAF to the 2.9.0 level.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Update to File 120 from Sam Golob to add more        *   DOC FILE
//*            articles.                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to File 134 from Greg Price.                  *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 135 from Greg Price, and to reflect   *   DOC FILE
//*            SHOWMVS version 6.27.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 166 from Vinh Vu.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 229 from Sam Golob, to enhance the    *   DOC FILE
//*            COPYMODS program and to add other useful programs    *   DOC FILE
//*            that help when you need to copy or make tapes.       *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to File 312 from Lionel Dyck to add an        *   DOC FILE
//*            application called LDAPMAIL, to update many of       *   DOC FILE
//*            his other utilities, and to add other tools.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to File 321 from Roland Schiradin and         *   DOC FILE
//*            Fritz Alber, to enhance the COBANAL application.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 330 from Fritz Alber, to enhance      *   DOC FILE
//*            his ISPF interface to COBANAL.                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 357 from Carl Hafner, to add more     *   DOC FILE
//*            utilities and improve his existing ones.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Update to File 432 from Thierry Falissard.           *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Addition of File 487 from Robert Bridges, which      *   DOC FILE
//*            is a REXX exec to trap the output of TSO commands,   *   DOC FILE
//*            and ISPF VIEW that output so it won't roll off       *   DOC FILE
//*            the screen.                                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Addition of File 488 from Jim Iannone, which is a    *   DOC FILE
//*            collection of utilities, mostly written in COBOL,    *   DOC FILE
//*            which are helpful in production control.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Addition of File 489 from Jim Iannone, which is a    *   DOC FILE
//*            specialized collection of tools to help install      *   DOC FILE
//*            the Shared Medical Systems update tapes.  This is    *   DOC FILE
//*            a specialized package (from Invision) that is used   *   DOC FILE
//*            by hospitals.                                        *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Addition of File 490 from Andy Robertson, which is   *   DOC FILE
//*            a collection of assembler macros to assist in        *   DOC FILE
//*            writing re-entrant code.                             *   DOC FILE
//*                                                                 *   DOC FILE
//*        19  Addition of File 491 from Andy Robertson, which is   *   DOC FILE
//*            his XMITMAIL package, a sort of XMITIP (File 312)    *   DOC FILE
//*            lite.  This package is written mostly in COBOL.      *   DOC FILE
//*            Its purpose is for sending emails from MVS TSO.      *   DOC FILE
//*                                                                 *   DOC FILE
//*        20  Addition of File 492 from Roland Schiradin.  This    *   DOC FILE
//*            is SHOWMVS version 6.27, which really should be on   *   DOC FILE
//*            File 183, but since this was Roland's independent    *   DOC FILE
//*            addition, it's still a bit tedious to integrate it   *   DOC FILE
//*            into the corresponding files on File 183.  Roland    *   DOC FILE
//*            modified quite a few of the macros, etc.  So we're   *   DOC FILE
//*            keeping it separate for the time being, to make it   *   DOC FILE
//*            easier to install correctly.  File 183 still has     *   DOC FILE
//*            SHOWMVS version 6.25.                                *   DOC FILE
//*                                                                 *   DOC FILE
//***SECTION V-430 SECTION                                          *   DOC FILE
//*  V-430  CHANGES FOR VERSION 430 NOV 12, 2000                    *   DOC FILE
//*                                                                 *   DOC FILE
//*        01  Update to File 035 for the COPYMODS load module.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        02  File 069 which contains coding examples from         *   DOC FILE
//*            Carmine Cannatello's "Advanced Assembler Language    *   DOC FILE
//*            and MVS Interfaces" book, was filled with tab        *   DOC FILE
//*            characters, and I've made a first attempt to         *   DOC FILE
//*            clean them up by changing them to spaces.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        03  Update to File 120 from Sam Golob to add a few       *   DOC FILE
//*            more articles.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*        04  Addition of File 123 from Sam Golob.  This is a      *   DOC FILE
//*            set of TSO Echo programs, which echo the entire      *   DOC FILE
//*            data portion of the TSO command buffer back to the   *   DOC FILE
//*            terminal.  If you ALIAS one of these programs to a   *   DOC FILE
//*            real TSO command, you just get a reflection of what  *   DOC FILE
//*            the user entered.  You can restrict the use of TSO   *   DOC FILE
//*            commands in this way.                                *   DOC FILE
//*                                                                 *   DOC FILE
//*        05  Update to Files 134 and 135 from Greg Price.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 183 from Gilbert Saint-flour.         *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 229 from Sam Golob, to add function   *   DOC FILE
//*            to the COPYMODS program.  It can now optionally      *   DOC FILE
//*            read an SL tape and copy all the labels to an FB-80  *   DOC FILE
//*            output file.  This can be done in read-only mode,    *   DOC FILE
//*            or while copying to up to 16 output tapes.  COPYMODS *   DOC FILE
//*            can also merge an external label file into an NL     *   DOC FILE
//*            tape to create an SL tape, or up to 16 copies of it. *   DOC FILE
//*                                                                 *   DOC FILE
//*        06  Update to File 312 from Lionel Dyck.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        07  Update to File 321 from Roland Schiradin.            *   DOC FILE
//*                                                                 *   DOC FILE
//*        08  Update to File 357 from Carl Hafner, to add some     *   DOC FILE
//*            new utilities and update the older ones.             *   DOC FILE
//*                                                                 *   DOC FILE
//*        09  Update to Files 409 and 410 from Rob Scott, to       *   DOC FILE
//*            version 3.1a of MXI.                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        10  Update to Files 411 and 412 from Rob Scott, to       *   DOC FILE
//*            fix and add some of his utilities.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        11  Update to File 431 to add one of Steve Bacher's      *   DOC FILE
//*            programs that wasn't there before.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        12  Update to File 434 from Mark Zelden.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*        13  Reship of File 476 from Steve Bacher, to add an      *   DOC FILE
//*            ISPF interface to the LISP compiler and library.     *   DOC FILE
//*                                                                 *   DOC FILE
//*        14  Update to File 482, which is GDGCOPY from Eric       *   DOC FILE
//*            Bielefeld, to correct a shipping error.              *   DOC FILE
//*                                                                 *   DOC FILE
//*        15  Addition of File 483, which is a collection of       *   DOC FILE
//*            utilities from Thomas Ramseier.                      *   DOC FILE
//*                                                                 *   DOC FILE
//*        16  Addition of File 484, which is the CACHEMAN          *   DOC FILE
//*            utility package from Chuck Baumann of Amdahl.        *   DOC FILE
//*                                                                 *   DOC FILE
//*        17  Addition of File 485, which is a complex VTAM        *   DOC FILE
//*            application that was written by Binyamin Dissen.     *   DOC FILE
//*            It is possible to run this program, or to use it     *   DOC FILE
//*            as a valuable VTAM coding example.                   *   DOC FILE
//*                                                                 *   DOC FILE
//*        18  Addition of File 486, which is a program to          *   DOC FILE
//*            issue a SET CLOCK command to accurately set the      *   DOC FILE
//*            local time on an MVS system.  This program is        *   DOC FILE
//*            from Skip Robinson.                                  *   DOC FILE
//*                                                                 *   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
//*                                                                 *   DOC FILE
//*                    email:   sbgolob@cbttape.org                 *   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 sknutson@cbttape.org , and he can make you        *   DOC FILE
//*            2 tapes.  Also, the COPYNLNL program on Files        *   DOC FILE
//*            229 or 316, can split an NL tape into two, while     *   DOC FILE
//*            converting from one tape media to another.           *   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 CONVTEK (formerly Automated Migration Services), *   DOC FILE
//*            WHO HAVE DONATED THE FACILITIES WHERE THIS TAPE IS   *   DOC FILE
//*            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                               *   DOC FILE
//*                                                                 *   DOC FILE
//*            SAM KNUTSON'S EMAIL ADDRESS:  sknutson@cbttape.org   *   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.                                   *   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:  Bill.Godfrey@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 3490E OR A 3590 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@cbttape.org                    *   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
//*        carlos@gsf-soft.com                                      *   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 CONVTEK *   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
//*                email:    sbgolob@cbttape.org                    *   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
//*        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
//*            CONVTEK 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
//*        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
//*            CONVTEK 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
//*            CONVTEK 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
//*            CONVTEK 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
//*            CONVTEK 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
//*            CONVTEK 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.  HIS NEW CONTACT        *   DOC FILE
//*            INFORMATION IS:                                      *   DOC FILE
//*                                                                 *   DOC FILE
//*            email:   arnold32x@gmail.com                         *   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
//*            CONVTEK 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
//*            CONVTEK 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
//*        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 L.L. BEAN.  THIS IS THE PASSWORD  *   DOC FILE
//*            MOD 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
//*            CONVTEK 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
//*            CONVTEK 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
//*            CONVTEK 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
//*            CONVTEK 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
//*            CONVTEK 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 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
//***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 L.L. BEAN TO ADD NEW CODE    *   DOC FILE
//*            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 L.L. BEAN IN FREEPORT      *   DOC FILE
//*            MAINE, WHICH CONTAINS A COPY OF THEIR CODE TO ALLOW  *   DOC FILE
//*            PASSWORDS IN JCL FOR AN MVS XA LEVEL SYSTEM AND AN   *   DOC FILE
//*            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
//*  I am now creating long tapes, with footages exceeding 5000.    *   DOC FILE
//*  To make two tapes out of a long tape, use the COPYNLNL         *   DOC FILE
//*     program from File 229 or File 316.                          *   DOC FILE
//*                                                                 *   DOC FILE
//*        SP13 =  MVS/SP1.3 RELEASE                                *   DOC FILE
//*        X A  =  MVS/XA RELEASE                                   *   DOC FILE
//*        N/A  =  NOT SYSTEM DEPENDENT (NO REASON NOT TO RUN)      *   DOC FILE
//*        CBT  =  TESTED AT CBT                                    *   DOC FILE
//*        NWK  =  TESTED AT NEWSWEEK  (MVS SP 1.3.x)               *   DOC FILE
//*        SBG  =  TESTED BY SAM GOLOB (anywhere after NEWSWEEK)    *   DOC FILE
//*      UNKCBT =  NOT TESTED AT CBT                                *   DOC FILE
//*      UNKSBG =  NOT TESTED BY SAM GOLOB                          *   DOC FILE
//*         ALL =  ONLY THE SHARE JES2 SONGS HAVE THIS MARKER       *   DOC FILE
//*                BECAUSE THEY ARE NOT DEPENDENT ON RELEASE        *   DOC FILE
//*                LEVEL AND SO FORTH.  EVERYBODY CAN HAVE FUN      *   DOC FILE
//*                WITH THEM, NO MATTER WHAT RELEASE LEVEL          *   DOC FILE
//*                OF MVS THAT YOU ARE RUNNING.                     *   DOC FILE
//*                  (ENJOY!  -  IT'S FILE 033.)                    *   DOC FILE
//*                                                                 *   DOC FILE
//*         (@) =  Alpha test version - needs to be fixed           *   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    94172  106.9 12-05-23      080    NO* % DOC FILE
//* COMPRESS PGM     002 CBT      263     .3 04-01-79      080    NO*   DOC FILE
//* JCL - DROP TAPE  003 SBG     3358    4.2 12-05-23      080    NO*   DOC FILE
//* CBTUPD Program   004 SBG      466     .9 08-16-22      080    NO*   DOC FILE
//* VMREXX-DROP TAPE 005 UNKSBG  5181    6.0 11-07-21      080    NO*   DOC FILE
//* CBT Doc Utilties 006 SBG     4692 S  3.2 12-05-23      080 YES  *   DOC FILE
//* SYSUPLOG job     007 UNKCBT  2877    4.3 12-05-23      080    NO*   DOC FILE
//* Jobs,create tape 008 SBG    90012 S 66.6 12-05-23      080 YES  *   DOC FILE
//* Old RACF exits   009 UNKCBT   785 S   .9 02-09-17      080 YES  *   DOC FILE
//* IMON Z/OS MONTOR 010 SBG    67152 S 49.5 12-20-20      080 YES  *   DOC FILE
//* INTEL MODS       011 N/A     4775 S  3.2 08-16-92      080 YES  *   DOC FILE
//* ISPF DIAG        012 UNCBT   6474    4.2 03-24-85      080 YES  *   DOC FILE
//* RACF MODS        013 SBG    28414   19.4 02-09-17      080 YES  *   DOC FILE
//* ARTICLES         014 N/A     5310 S  4.2 11-07-21      080 YES  *   DOC FILE
//* WARNER Utilities 015 UNKCBT  3206    2.3 07-28-88      080 YES  *   DOC FILE
//* SCOTT & WHITE    016 UNKCBT  1254     .9 07-28-88      080 YES  *   DOC FILE
//* LISTDD CP        017 CBT     1137     .9 02-09-17      080 YES  *   DOC FILE
//* TSUPDATE         018 CBT     1164    2.8 12-01-85      133    NO*   DOC FILE
//* JOHN HOOPER UTIL 019 UNKSBG 81289 S 49.5 12-20-20      080 YES  *   DOC FILE
//* SYSTEM REXX EXEC 020 SBG     4522 S  3.2 11-07-21      080 YES  *   DOC FILE
//* BELL & HOWELL    021 UNKCBT  4370    3.2 02-01-87      080 YES  *   DOC FILE
//* ADRIA UTIL       022 UNKCBT 21264   11.6 04-29-19      080 YES  *   DOC FILE
//* ALTJES           023 UNKCBT   436     .3 02-01-87      080 YES  *   DOC FILE
//* MCI PGMS         024 UNKCBT  4183    2.8 12-01-19      080 YES  *   DOC FILE
//* CONSOLE & OTHERS 025 UNKCBT 12667    6.9 10-27-98      080 YES  *   DOC FILE
//* SURVEY           026 UNKCBT   607     .4 03-31-87      080 YES  *   DOC FILE
//* DATE PGM         027 UNKCBT  3369    2.3 03-31-87      080 YES  *   DOC FILE
//* BACKEMUP CLISTs  028 SBG     4666 S  3.2 02-14-05      080 YES  *   DOC FILE
//* ENLARGE VTOC     029 SBG      354 S   .3 07-20-22      080 YES  *   DOC FILE
//* PFKDEFAULT       030 NWK      235 S   .2 03-22-95      080 YES  *   DOC FILE
//* IGGPRE00         031 UNKCBT   163     .1 05-01-87      080 YES  *   DOC FILE
//* JCL COPYP DOWND  032 UNKCBT  8221 S  6.5 03-22-95      080 YES  *   DOC FILE
//* SHARE JES2 Songs 033 ALL    27356 S 30.5 10-27-13      080 YES  *   DOC FILE
//* RACFUSER         034 UNKCBT  1823    1.4 12-20-20      080 YES  *   DOC FILE
//* LOAD MODS        035 SBG      504  141.7 12-05-23    IEBCOPY  NO*   DOC FILE
//* FIXPDS           036 UNKCBT  4785 S  3.2 04-24-23      080 YES  *   DOC FILE
//* COPYCAT          037 UNKCBT  4343    3.2 01-23-83      080 YES  *   DOC FILE
//* KLINGON          038 UNKSBG 17984 S  9.3 09-15-03      080 YES  *   DOC FILE
//* CITIBANK         039 SBG     4210 S  2.8 02-09-17      080 YES  *   DOC FILE
//* PEOPLES UTIL     040 UNKCBT 12057    8.3 11-04-87      080 YES  *   DOC FILE
//* XEROX MODS       041 UNKCBT  7522    5.1 03-05-89      080 YES  *   DOC FILE
//* Connect Direct   042 CBT     8502 S  6.9 12-20-20      080 YES  *   DOC FILE
//* CBT access dialg 043 SBG    10880 S  8.8 12-05-23      080 YES  *   DOC FILE
//* ASMTOZAP         044 SBG     4513 S  3.2 06-03-14      080 YES  *   DOC FILE
//* PDS COMPARE      045 CBT     2875    2.3 12-06-81      080 YES  *   DOC FILE
//* TSO SCRATCH      046 CBT     3269    2.3 10-26-15      080 YES  *   DOC FILE
//* NOCELL-LISTICAT  047 UNKCBT 79750 S 51.8 10-30-01      080 YES  *   DOC FILE
//* LISTVOL, LISTSPC 048 CBT     2892 S  1.9 12-01-19      080 YES  *   DOC FILE
//* STATS program    049 UNKSBG  3406 S  2.3 08-01-01      080 YES  *   DOC FILE
//* Internet URLs    050 SBG     1031 S   .9 05-02-04      080 YES  *   DOC FILE
//* Vendor URLs      051 SBG      545 S   .4 11-23-99      080 YES  *   DOC FILE
//* SHOWMVS MVS 3.8  052 UNKSBG  4036 S  2.8 11-11-18      080 YES  *   DOC FILE
//* DELUXE ISPF      053 UNKSBG 54239 S 37.5 11-30-87      080 YES  *   DOC FILE
//* DELUXE ISPF      054 UNKSBG  4706 S  2.8 11-30-87      080 YES  *   DOC FILE
//* DELUXE ISPF      055 UNKSBG   289 S   .2 11-30-87      080 YES  *   DOC FILE
//* DELUXE ISPF      056 UNKSBG  1771 S  1.4 11-30-87      080 YES  *   DOC FILE
//* DELUXE ISPF      057 UNKSBG  5280 S  6.6 08-19-94    IEBCOPY  NO*   DOC FILE
//* LINKLIST         058 CBT      806     .9 01-01-88      080 YES  *   DOC FILE
//* IPL DATE         059 CBT     1156 S   .9 03-22-95      080 YES  *   DOC FILE
//* SFTWAR ISPF      060 UNKCBT  6583 S  4.2 09-25-06      080 YES  *   DOC FILE
//* SFTWAR ISPF      061 UNKCBT    24    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   449     .3 02-21-90      080 YES  *   DOC FILE
//* A.Field Utilites 066 UNKCBT  9128 S  6.0 02-09-17      080 YES  *   DOC FILE
//* VIO EXIT         067 UNKCBT   948     .9 01-01-88      080 YES  *   DOC FILE
//* TSTVS-Cns Editor 068 SBG     5574 S  3.7 04-24-23      080 YES  *   DOC FILE
//* CODING EXAMPLES  069 UNKSBG 17384 S 10.2 12-27-00      080 YES  *   DOC FILE
//* ZAPS GENL DYNAM  070 CBT    25365 S 17.1 12-28-93      080 YES  *   DOC FILE
//* OTHER TAPES DOC  071 N/A    60259 S 42.1 07-17-03      080 YES  *   DOC FILE
//* PANEXEC ISPPLIB  072 UNKSBG  3676 S  2.8 08-26-92      080 YES  *   DOC FILE
//* PANEXEC ISPLLIB  073 UNKSBG    12    3.3 08-19-94    IEBCOPY  NO*   DOC FILE
//* NASPA MACLIB     074 UNKSBG 10618 S  6.5 08-26-92      080 YES  *   DOC FILE
//* PANEXEC ISPALIB  075 UNKSBG  3507 S  2.8 08-26-92      080 YES  *   DOC FILE
//* PANEXEC PROCS    076 UNKSBG   148 S   .1 08-26-92      080 YES  *   DOC FILE
//* MVS 3.8 Utilites 077 UNKSBG 48689 S 31.9 12-27-09      080 YES  *   DOC FILE
//* ISPF EDIT MACRO  078 UNKSBG  8554 S  5.1 08-10-99      080 YES  *   DOC FILE
//* DCF ISPF INTERFC 079 UNKSBG 17607 S  9.7 09-02-93      080 YES  *   DOC FILE
//* RACF PGMS        080 UNKCBT  1567    1.4 05-22-88      080 YES  *   DOC FILE
//* MVS DEBE         081 CBT     1629     .9 06-19-79      080 YES  *   DOC FILE
//* DOC 82-86        082 CBT     3207    1.9 10-16-76      080 YES  *   DOC FILE
//* IEHMAP           083 CBT    17572 S 11.6 09-15-03      080 YES  *   DOC FILE
//* MAPLPA OBJ       084 SU'S     160     .2 10-16-76      080 YES  *   DOC FILE
//* PTXREF OBJ       085 SU'S     311     .4 10-16-76      080 YES  *   DOC FILE
//* ZAP    OBJ       086 SU'S     274     .3 10-16-76      080 YES  *   DOC FILE
//* SYSLOG           087 UNKCBT  2460    1.9 01-19-89      080 YES  *   DOC FILE
//* WESTERMAN UTILS  088 UNKCBT 28907 S 19.0 12-27-09      080 YES  *   DOC FILE
//* DYNALLOC INTRFAC 089 UNKCBT  1761 S  1.4 10-27-98      080 YES  *   DOC FILE
//* DELINKI: PLI-BAL 090 UNKSBG  3938 S  2.8 09-25-06      080 YES  *   DOC FILE
//* FORT PL1 RPG ALG 091 UNKCBT  2808 S  2.3 10-27-98      080 YES  *   DOC FILE
//* PL1/F COMP moved 092 UNKCBT    54 S   .1 07-25-04      080 YES  *   DOC FILE
//* SEQUENTIALIZ PDS 093 UNKCBT 51991 S 31.9 08-16-22      080 YES  *   DOC FILE
//* DAF              094 UNKCBT187535 S116.6 10-27-13      080 YES  *   DOC FILE
//* ISPF EDIT MACRO  095 UNKCBT 12922    7.9 11-08-90      080 YES  *   DOC FILE
//* UNIV MO HOSP CODE096 UNKCBT  6651    4.6 11-01-88      080 YES  *   DOC FILE
//* PEOPLES-VVDSLIST 097 UNKCBT 24469   15.7 12-20-20      080 YES  *   DOC FILE
//* XMIT/RECEIVE     098 UNKCBT  2711    1.4 12-05-23      080 YES  *   DOC FILE
//* REXX CODE PIECES 099 UNKCBT   590     .3 12-05-23      080 YES  *   DOC FILE
//* ISPF/PDF         100 UNKCBT  2701    1.9 09-05-82      080 YES  *   DOC FILE
//* ISPF/PDF         101 UNKCBT  3610    1.9 09-05-82      080 YES  *   DOC FILE
//* TAPESCAN         102 SBG     4572 S  3.2 07-20-22      080 YES  *   DOC FILE
//* ISPF DIALOGS     103 UNKCBT  7765 S  5.6 05-29-98      080 YES  *   DOC FILE
//* JES2 RMT PR(JRP) 104 UNKCBT 13625 S  8.8 04-21-03      080 YES  *   DOC FILE
//* OUTLIST          105 UNKCBT   624     .4 01-19-89      080 YES  *   DOC FILE
//* RACF LIST        106 UNKCBT  1078 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  1877    1.4 05-04-89      080 YES  *   DOC FILE
//* IEFACTRT         110 UNKCBT   114     .3 05-04-89      133    NO*   DOC FILE
//* REVLON           111 UNKCBT  3109    2.3 07-20-22      080 YES  *   DOC FILE
//* VTOC             112 CBT    20516 S 13.9 04-24-23      080 YES  *   DOC FILE
//* SMPSCAN          113 UNKCBT   669     .9 01-25-88      080 YES  *   DOC FILE
//* SMPSCAN          114 UNKCBT   546     .9 01-25-88      080 YES  *   DOC FILE
//* SMPSCAN          115 UNKCBT  7235   10.9 11-07-21    IEBCOPY  NO*   DOC FILE
//* SEEK ANALYSIS    116 X A     3397    1.9 05-04-89      080 YES  *   DOC FILE
//* WTO EXITS        117 UNKCBT  2440    1.9 11-14-89      080 YES  *   DOC FILE
//* PUTXREF & SMPUPD 118 UNKCBT  8150 S  5.6 08-25-16      080 YES  *   DOC FILE
//* SYNTEX UTIL      119 UNKCBT 10705 S  7.4 12-01-19      080 YES  *   DOC FILE
//* MVS TOOLS ARTCLS 120 SBG    77756 S 59.2 12-05-23      080 YES  *   DOC FILE
//* WIDE ILLUS ARTCL 121 SBG      822 S  2.8 07-08-12    IEBCOPY  NO*   DOC FILE
//* SUBSYSTEM        122 N/A     3812    2.8 06-19-88      080 YES  *   DOC FILE
//* TSO Echo Progrms 123 SBG     1180 S   .9 08-16-10      080 YES  *   DOC FILE
//* ISPF/PDF         124 UNKCBT  4567    2.8 06-04-89      080 YES  *   DOC FILE
//* SAS PGMS         125 N/A     7261    4.6 06-29-89      080 YES  *   DOC FILE
//* LL BEAN ESA      126 UNKCBT 10120 S  6.5 12-03-93      080 YES  *   DOC FILE
//* CHRYSLER         127 UNKCBT 10052    6.0 12-05-23      080 YES  *   DOC FILE
//* CHIMP VTAM       128 UNKCBT  3251    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  1572 S  1.4 03-29-99      080 YES  *   DOC FILE
//* EXITS            131 UNKCBT   573     .3 07-21-89      080 YES  *   DOC FILE
//* UTILITIES        132 UNKCBT  2203    1.4 07-21-89      080 YES  *   DOC FILE
//* A.Field Utilites 133 SBG     7740 S  5.1 02-09-17      080 YES  *   DOC FILE
//* PRICE UTILITIES  134 SBG   364434 S249.0 12-05-23      080 YES  *   DOC FILE
//* PRICE UTIL LOAD  135 SBG      484  132.0 12-05-23    IEBCOPY  NO*   DOC FILE
//* H.Dean Utilities 136 UNKCBT 14816 S  9.7 12-01-19      080 YES  *   DOC FILE
//* Report Distribut 137 UNKSBG 30044 S 26.8 12-20-20      080 YES  *   DOC FILE
//* SYSTEMID         138 UNKCBT  1127 S   .9 02-02-94      080 YES  *   DOC FILE
//* UTILITIES        139 UNKCBT  2093 S  1.4 04-02-01      080 YES  *   DOC FILE
//* DARS SYSTEM      140 UNKCBT  1231     .9 11-14-89      080 YES  *   DOC FILE
//* BRODCAST         141 UNKCBT  1189     .9 11-14-89      080 YES  *   DOC FILE
//* VTAM APPL        142 UNKCBT   647     .4 11-14-89      080 YES  *   DOC FILE
//* IDCAMS ISPF      143 UNKCBT   836     .9 11-14-89      080 YES  *   DOC FILE
//* VPS EXIT         144 UNKCBT   668     .4 12-07-89      080 YES  *   DOC FILE
//* KERMIT           145 UNKCBT    14    1.5 08-19-94    IEBCOPY  NO*   DOC FILE
//* KERMIT           146 UNKCBT 24786   15.7 08-19-94    IEBCOPY  NO*   DOC FILE
//* ARCHIVER         147 UNKCBT 34484 S 27.8 12-05-23      080 YES  *   DOC FILE
//* ISPF PAN         148 UNKCBT  5586    3.7 02-21-90      080 YES  *   DOC FILE
//* UTILITIES        149 UNKCBT 29291   19.4 11-12-14      080 YES  *   DOC FILE
//* XMIT RECEIVE     150 UNKCBT  1207     .9 02-21-90      080 YES  *   DOC FILE
//* LISTCAT ISPF     151 UNKCBT   741     .9 04-04-90      080 YES  *   DOC FILE
//* Zbiegien Utilties152 UNKCBT  9261    5.1 04-04-90      080 YES  *   DOC FILE
//* 3800 CHAR SET    153 UNKCBT    51    1.1 08-19-94    IEBCOPY  NO*   DOC FILE
//* SMP ELEMENTS     154 UNKCBT   346 S   .2 03-22-95      080 YES  *   DOC FILE
//* North REXX Split 155 UNKSBG  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     .4 08-15-90      133    NO*   DOC FILE
//* ISPF & REXX      158 UNKSBG  3523    2.3 11-24-93      080 YES  *   DOC FILE
//* UCBFIND          159 CBT      859     .9 08-22-84      080 YES  *   DOC FILE
//* TSO CPS          160 UNKCBT 18656 S 11.6 12-20-20      080 YES  *   DOC FILE
//* MARSHALL ISPF    161 UNKCBT 22274 S 12.0 11-23-99      080 YES  *   DOC FILE
//* XREFASM          162 UNKCBT  2428    1.9 02-09-17      080 YES  *   DOC FILE
//* DUDA UTILITIES   163 UNKSBG 10757 S  7.4 12-20-90      080 YES  *   DOC FILE
//* RESCUE SYSTEM    164 UNKSBG  3898    2.8 11-08-90      080 YES  *   DOC FILE
//* RACF 1.7 SYSTEM  165 NWK     4489 S  3.2 03-25-91      080 YES  *   DOC FILE
//* VINH VU UTILTIES 166 UNKSBG 27036 S 14.3 05-17-20      080 YES  *   DOC FILE
//* CATELLUS UTIL    167 UNKSBG  2720 S  1.9 05-16-91      080 YES  *   DOC FILE
//* GODFREY UTIL     168 UNKSBG 19332 S 10.2 05-17-20      080 YES  *   DOC FILE
//* K WILLIAMS UTIL  169 UNKSBG 20812 S 13.4 05-16-91      080 YES  *   DOC FILE
//* DUMPCSA          170 SBG      591 S   .4 12-01-19      080 YES  *   DOC FILE
//* FX,TMAP,DISA,ETC 171 UNKSBG 61987 S 37.5 04-24-23      080 YES  *   DOC FILE
//* CARTWRIGHT UTIL  172 UNKSBG 88569 S 50.4 07-20-22      080 YES  *   DOC FILE
//* SMPETOOL         173 UNKSBG 16032 S 11.1 02-10-92      080 YES  *   DOC FILE
//* CUNY TAPECOPY    174 SBG     4148 S  2.8 10-23-02      080 YES  *   DOC FILE
//* PHILIPS UTIL     175 SBG    15481 S 10.6 02-10-92      080 YES  *   DOC FILE
//* ALGOL COMP moved 176 UNKSBG    51 S   .1 07-25-04      080 YES  *   DOC FILE
//* OPCODE MACROS    177 UNKSBG  4775 S  2.3 10-02-02      080 YES  *   DOC FILE
//* IPCS FOR IDMS    178 UNKSBG  5643 S  3.7 10-28-92      080 YES  *   DOC FILE
//* WOREN MACLIB     179 N/A    13473 S  9.3 05-10-00      080 YES  *   DOC FILE
//* WOREN TSOCMDS    180 N/A    33485 S 22.2 03-30-92      080 YES  *   DOC FILE
//* WOREN MVS PGMS   181 N/A     4796 S  3.7 03-30-92      080 YES  *   DOC FILE
//* PDS Command Pkg  182 SBG   298390 S267.1 12-05-23      080 YES  *   DOC FILE
//* Saint-flour Util 183 UNKSBG 57534 S 39.8 12-20-20      080 YES  *   DOC FILE
//* IPCS EXECS ESA   184 SBG     4965 S  2.8 01-20-94      080 YES  *   DOC FILE
//* IKJTABLS SRC     185 SBG    32938 S 24.5 12-05-23      080 YES  *   DOC FILE
//* EMPTY            186 N/A        1 S 45.8 12-05-23      080 YES  *   DOC FILE
//* CLIST CONVERT    187 SBG     4241 S  3.2 03-22-95      080 YES  *   DOC FILE
//* IBM SOURCE HANDL 188 UNKCBT  2047 S  1.9 03-22-95      080 YES  *   DOC FILE
//* IBM SOURCE HANDL 189 UNKCBT   407    2.3 08-19-94    IEBCOPY  NO*   DOC FILE
//* VSMDUMP          190 UNKSBG  8693 S  4.6 03-25-93      080 YES  *   DOC FILE
//* ACCTG FOR STC'S  191 UNKSBG  1900 S  1.4 03-25-93      080 YES  *   DOC FILE
//* GEN RECOV CODE   192 UNKSBG  1769 S  1.4 03-25-93      080 YES  *   DOC FILE
//* TCOPY            193 SBG     2585 S  1.9 07-14-00      080 YES  *   DOC FILE
//* CUT-PASTE        194 UNKSBG   368 S   .2 06-11-93      080 YES  *   DOC FILE
//* DUTTMAN CLISTS   195 SBG      137 S   .1 06-11-93      080 YES  *   DOC FILE
//* JES2 EXIT LOADER 196 SBG      725 S   .9 03-22-95      080 YES  *   DOC FILE
//* IMS MODS         197 UNKSBG 13637 S  8.3 09-24-93      080 YES  *   DOC FILE
//* JES2 EXIT LOADER 198 UNKSBG  3152 S  2.3 02-28-06      080 YES  *   DOC FILE
//* Dave Cole Progms 199 UNKCBT 29324 S 21.3 02-09-17      080 YES  *   DOC FILE
//* TWA PDS          200 UNKCBT  7065 S  4.6 10-27-13      080 YES  *   DOC FILE
//* SYSTEM CLIST VAR 201 UNKSBG  3077 S  2.3 11-24-93      080 YES  *   DOC FILE
//* G. PRICE IODATA  202 UNKSBG   174 S  1.2 07-08-12    IEBCOPY  NO*   DOC FILE
//* TMS SILO EJECT   203 UNKSBG  1214 S   .9 01-20-94      080 YES  *   DOC FILE
//* MVS CROSS SYSTEM 204 SBG    22673 S 17.1 03-22-95      080 YES  *   DOC FILE
//* MVS XSYS SCRIPT  205 SBG     4823 S  3.8 01-28-94    IEBCOPY  NO*   DOC FILE
//* DCOLLECT REXX    206 UNKSBG  3493 S  2.3 02-18-94      080 YES  *   DOC FILE
//* FSE              207 SBG    12309 S  7.4 12-05-23      080 YES  *   DOC FILE
//* LSPC COMMAND     208 UNKSBG  1703 S  1.4 02-02-94      080 YES  *   DOC FILE
//* CALCULATOR REXX  209 SBG      831 S   .9 02-02-94      080 YES  *   DOC FILE
//* XSYS-move OVF310 210 SBG       57 S   .1 02-05-04      080 YES  *   DOC FILE
//* XSYS-move OVF311 211 SBG       31 S   .2 02-05-04    IEBCOPY  NO*   DOC FILE
//* XSYS-move OVF312 212 SBG       59 S   .1 02-05-04      080 YES  *   DOC FILE
//* XSYS-move OVF313 213 SBG       31 S   .2 02-05-04    IEBCOPY  NO*   DOC FILE
//* CTL BLK COBOL II 214 UNKSBG  6727 S  4.6 05-06-94      080 YES  *   DOC FILE
//* SMP/E CLISTS     215 SBG     1013 S   .9 03-22-95      080 YES  *   DOC FILE
//* DATE CONVERSION  216 UNKSBG   941 S   .9 07-18-94      080 YES  *   DOC FILE
//* DISASSEMBLER     217 CBT     7104 S  4.6 07-15-92      080 YES  *   DOC FILE
//* RMFMON SCR       218 CBT     5753    4.2 04-01-86      080 YES  *   DOC FILE
//* FORTE EXECS      219 SBG      299 S   .2 03-22-95      080 YES  *   DOC FILE
//* EDP AUDIT TOOLS  220 SBG    13988 S  9.7 02-09-17      080 YES  *   DOC FILE
//* EDP AUDIT REXX   221 SBG     9987 S 14.0 07-06-16    IEBCOPY  NO*   DOC FILE
//* EMPTY            222 N/A        1   30.5 12-05-23      080 YES  *   DOC FILE
//* FREE TAPE MGMT   223 UNKSBG  2705 S  1.9 03-22-95      080 YES  *   DOC FILE
//* FREE TAPE MGMT   224 UNKSBG   796 S  2.6 07-08-12    IEBCOPY  NO*   DOC FILE
//* OFFLOAD          225 CBT     1110     .9 08-16-22      080 YES  *   DOC FILE
//* COMPRSEQ         226 CBT     1397    1.4 02-09-17      080 YES  *   DOC FILE
//* TSO AUTHD0       227 CBT     2735 S  1.9 08-16-92      080 YES  *   DOC FILE
//* DFHSM RECOVER    228 UNKSBG   653     .4 12-01-19      080 YES  *   DOC FILE
//* COPYMODS,Tap Cpy 229 SBG    78985 S 52.8 11-07-21      080 YES  *   DOC FILE
//* ISPF FAIR        230 UNKCBT  1292    3.1 05-29-86      133    NO*   DOC FILE
//* ISPF FAIR        231 UNKCBT   997     .9 11-23-86      080 YES  *   DOC FILE
//* ISPF FAIR        232 UNKCBT   410     .3 05-29-86      080 YES  *   DOC FILE
//* ABEND PROGRAM    233 SBG      554 S   .3 02-08-95      080 YES  *   DOC FILE
//* New Disassembler 234 SBG     8206 S  6.0 05-17-20      080 YES  *   DOC FILE
//* LPA LOADER       235 CBT     1101     .9 07-24-78      080 YES  *   DOC FILE
//* LISTC ZAP        236 SBG      400     .3 03-22-95      080 YES  *   DOC FILE
//* PDSXREF          237 CBT     5511    3.2 08-02-78      080 YES  *   DOC FILE
//* Int Disasm LOAD  238 SBG      200   24.8 02-28-06    IEBCOPY  NO*   DOC FILE
//* Int Disasm PANEL 239 SBG     2506 S  1.9 02-28-06      080 YES  *   DOC FILE
//* Int Disasm MSGS  240 SBG      259 S   .2 02-28-06      080 YES  *   DOC FILE
//* Int Disasm JCL   241 SBG      642 S   .5 02-28-06      080 YES  *   DOC FILE
//* Int Disasm CBLKS 242 SBG      456   91.4 02-28-06    IEBCOPY  NO*   DOC FILE
//* Int Disasm Sourc 243 SBG    13115 S  7.9 02-28-06      080 YES  *   DOC FILE
//* UK GUIDE 1993A   244 UNKSBG 23351 S 14.8 05-31-02      080 YES  *   DOC FILE
//* UK GUIDE NUI     245 UNKSBG 10374 S  6.0 05-19-94      080 YES  *   DOC FILE
//* MGCR program     246 SBG     1077 S   .9 02-28-06      080 YES  *   DOC FILE
//* BRODCAST Manager 247 SBG    38672 S 23.1 12-05-23      080 YES  *   DOC FILE
//* BOYSEN UTIL      248 UNKSBG  6115 S  4.2 03-11-96      080 YES  *   DOC FILE
//* BARKOW PGMS      249 SBG    24083 S 13.0 02-09-17      080 YES  *   DOC FILE
//* DISPLAY GRS LONG 250 SBG      410 S   .3 09-13-95      080 YES  *   DOC FILE
//* ISPF EDIT MACRO2 251 SBG     3728 S  2.3 11-27-95      080 YES  *   DOC FILE
//* JEFF KAPLAN SRC  252 UNKSBG 11360 S  6.9 01-05-96      080 YES  *   DOC FILE
//* JEFF KAPLAN EXEC 253 UNKSBG 46163 S 24.5 01-05-96      080 YES  *   DOC FILE
//* JEFF KAPLAN CNTL 254 UNKSBG 24918 S 16.2 01-05-96      080 YES  *   DOC FILE
//* JEFF KAPLAN ISPP 255 UNKSBG  7142 S  4.2 01-05-96      080 YES  *   DOC FILE
//* JEFF KAPLAN ISPT 256 UNKSBG   452 S   .9 01-05-96      080 YES  *   DOC FILE
//* LKED BLK 32720   257 SBG     1906 S  2.3 04-24-23      080 YES  *   DOC FILE
//* WIN3270 SOURCE   258 UNKSBG 38641 S 19.0 03-11-96      080 YES  *   DOC FILE
//* WIN3270 LOAD     259 UNKSBG   230   25.0 07-08-12    IEBCOPY  NO*   DOC FILE
//* QUICK MAP        260 CBT    10015 S  5.1 07-17-05      080 YES  *   DOC FILE
//* Overflow File296 261 UNKCBT    57 S   .1 07-17-03      080 YES  *   DOC FILE
//* PTFXREF PGM      262 SBG      581 S   .4 06-27-96      080 YES  *   DOC FILE
//* UK GUIDE MACROS  263 UNKSBG  5685 S  3.7 05-28-96      080 YES  *   DOC FILE
//* LOOK, DUDASD     264 UNKCBT 34594 S 25.0 12-05-23      080 YES  *   DOC FILE
//* BFG LOGON EXIT   265 UNKSBG  9334 S  6.0 03-30-92      080 YES  *   DOC FILE
//* SS0104 TAPE MAP  266 SBG     2430 S  1.9 04-24-23      080 YES  *   DOC FILE
//* HETUTL Tape Pgm  267 SBG    61285 S 29.2 05-31-02      080 YES  *   DOC FILE
//* REXX VSAM        268 UNKSBG  4263 S  2.3 08-16-10      080 YES  *   DOC FILE
//* PL/I ADVENTR SRC 269 UNKSBG  5122 S  3.2 12-26-96      080 YES  *   DOC FILE
//* WASH UTIL        270 UNKCBT 94149 S 49.1 10-27-98      080 YES  *   DOC FILE
//* DYN PROCLIB      271 UNKCBT  6423    5.1 02-10-92      080 YES  *   DOC FILE
//* VTAM LOGO        272 UNKCBT   854     .9 08-22-84      080 YES  *   DOC FILE
//* TSO SEC JES2     273 UNKCBT   717     .9 08-22-84      080 YES  *   DOC FILE
//* DYN PROCLIB V4   274 UNKSBG  7578 S  5.1 02-10-92      080 YES  *   DOC FILE
//* HEDGES PROGRAMS  275 UNKSBG  2132 S  1.4 12-11-96      080 YES  *   DOC FILE
//* CHECKSUM         276 SBG      264 S   .2 12-11-96      080 YES  *   DOC FILE
//* JCL SUBSTITUTION 277 UNKSBG   931 S   .9 04-02-13      080 YES  *   DOC FILE
//* SLSS SPF         278 UNKCBT 12263    9.7 05-17-88      080 YES  *   DOC FILE
//* SLSS DOC         279 UNKCBT  4280 S  4.7 12-26-96    IEBCOPY  NO*   DOC FILE
//* SCRIPT DOC       280 UNKCBT 17530 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 28797 S 19.4 12-26-96      080 YES  *   DOC FILE
//* SCRIPT MEMO      283 UNKCBT 17530 S 21.5 12-26-96    IEBCOPY  NO*   DOC FILE
//* SCRIPT CODE      284 UNKCBT  7548 S  5.1 12-26-96      080 YES  *   DOC FILE
//* SCRIPT HYPH      285 UNKCBT  2747 S  2.2 12-26-96    IEBCOPY  NO*   DOC FILE
//* SCRIPT OBJ       286 UNKCBT  2775 S  3.2 12-26-96      080 YES  *   DOC FILE
//* SCRIPT TSO       287 UNKCBT  3980 S  2.8 12-26-96      080 YES  *   DOC FILE
//* SCRIP TSO PROMTR 288 UNKSBG  2165 S  1.4 12-26-96      080 YES  *   DOC FILE
//* PTF XREF REPORTS 289 UNKSBG  3466 S  2.8 08-25-16      080 YES  *   DOC FILE
//* GPSAM ACCES METH 290 UNKSBG  3618 S  2.8 12-05-23      080 YES  *   DOC FILE
//* CPU INSTRC SPEED 291 UNKSBG  1399 S   .9 07-17-05      080 YES  *   DOC FILE
//* CBT DOC TO HTML  292 UNKSBG  1321 S   .9 12-18-97      080 YES  *   DOC FILE
//* CKIEBGEN program 293 SBG     4334 S  2.8 12-05-23      080 YES  *   DOC FILE
//* VSAM ANALYZER    294 CBT     6481    4.2 04-02-13      080 YES  *   DOC FILE
//* Dave Cole Essay  295 SBG      119 S   .1 05-30-01      080 YES  *   DOC FILE
//* TSO UTILITIES    296 UNKCBT 71857 S 46.7 04-24-23      080 YES  *   DOC FILE
//* GRS ISPF-Cleary  297 UNKSBG  4288 S  2.8 12-27-09      080 YES  *   DOC FILE
//* GTE - PUB        298 UNKCBT 15779   10.6 10-26-86      080 YES  *   DOC FILE
//* TAPEMAP          299 CBT    14682 S 10.6 04-24-23      080 YES  *   DOC FILE
//* MARSHALL TSOCP'S 300 CBT   256734 S150.9 04-24-23      080 YES  *   DOC FILE
//* CDSCB RACROUTE   301 UNKSBG  1935 S  1.4 12-27-09      080 YES  *   DOC FILE
//* LPA-LINKLST Info 302 UNKSBG  6020 S  3.7 12-27-09      080 YES  *   DOC FILE
//* SIMTERM OS/390   303 UNKSBG  1452 S  1.4 12-18-97      080 YES  *   DOC FILE
//* LSTVOL SOURCE    304 UNKSBG  4666 S  3.2 12-18-97      080 YES  *   DOC FILE
//* LSTVOL ASMLINK   305 UNKSBG  1495 S  4.0 07-08-12    IEBCOPY  NO*   DOC FILE
//* TSSO-SUBSYS      306 CBT     4680 S  3.2 05-16-91      080 YES  *   DOC FILE
//* ASMH 2 HLASM PGM 307 UNKSBG    79 S   .1 12-18-97      080 YES  *   DOC FILE
//* CONS SYSLEVL ZAP 308 UNKSBG   142 S   .1 05-30-01      080 YES  *   DOC FILE
//* ALGOL COMP SOURC 309 UNKSBG 15160 S  9.7 01-20-98      080 YES  *   DOC FILE
//* ALGOL LIBR SOURC 310 UNKSBG 10403 S  6.5 01-20-98      080 YES  *   DOC FILE
//* DAVE ALCOCK UTIL 311 UNKSBG 69907 S 38.0 11-17-02      080 YES  *   DOC FILE
//* Lionel Dyck A-R  312 UNKSBG 98980 S 71.3 12-05-23      080 YES  *   DOC FILE
//* Lionel Dyck S-TS 313 UNKSBG112811 S 91.2 12-05-23      080 YES  *   DOC FILE
//* Lionel Dyck TX-Z 314 UNKSBG188722 S161.5 12-05-23      080 YES  *   DOC FILE
//* DAVE LEES UTIL   315 UNKSBG  6454 S  3.7 11-27-03      080 YES  *   DOC FILE
//* MARSHALL BATCH   316 CBT   141937 S 80.1 04-24-23      080 YES  *   DOC FILE
//* BOOKMANAGER MGMT 317 UNKSBG  1791 S   .9 05-29-98      080 YES  *   DOC FILE
//* POFFLOAD PRINT   318 UNKSBG  1704 S  1.4 05-29-98      080 YES  *   DOC FILE
//* SMF1415 USP      319 3.8     1306     .9 01-01-86      080 YES  *   DOC FILE
//* DSS EXITS        320 SP13    1335    1.4 09-18-90      080 YES  *   DOC FILE
//* COBOL ANALYZER   321 SBG    36907 S 23.1 12-20-20      080 YES  *   DOC FILE
//* TSO SLEEP ETC.   322 UNKSBG  1067 S   .9 04-18-08      080 YES  *   DOC FILE
//* REXX Function Pk 323 UNKSBG 11627 S  8.8 01-18-09      080 YES  *   DOC FILE
//* Nicol STK API    324 UNKSBG  2439 S  2.8 01-18-09      080 YES  *   DOC FILE
//* TSO CPS WELLS    325 UNKCBT 22236 S 13.0 10-27-13      080 YES  *   DOC FILE
//* FORTRAN H  moved 326 UNKCBT    66 S   .1 07-25-04      080 YES  *   DOC FILE
//* RPG COMPLR moved 327 UNKSBG    59 S   .1 07-25-04      080 YES  *   DOC FILE
//* IGGPRE-POST EXIT 328 UNKSBG  4512 S  3.2 05-29-98      080 YES  *   DOC FILE
//* SCE JES2 EXIT 6  329 UNKSBG  5966 S  4.6 05-29-98      080 YES  *   DOC FILE
//* F Alber ISPF Int 330 UNKSBG 43515 S 31.0 01-12-03      080 YES  *   DOC FILE
//* COBOL Addr Point 331 UNKSBG   284 S   .2 10-30-01      080 YES  *   DOC FILE
//* AUTO SCHED       332 UNKCBT  3638 S  2.8 04-02-01      080 YES  *   DOC FILE
//* GZIP COMPRES JCL 333 SBG     3561 S  3.2 10-27-98      080 YES  *   DOC FILE
//* GZIP SOURCE .H   334 N/A      978 S   .9 05-29-98      080 YES  *   DOC FILE
//* GZIP SOURCE .C   335 N/A     8354 S  4.6 10-27-98      080 YES  *   DOC FILE
//* RICE UTILITIES   336 UNKCBT 30495   20.8 09-16-84      080 YES  *   DOC FILE
//* GLOBAL MEM SERCH 337 UNKSBG   290 S   .2 05-29-98      080 YES  *   DOC FILE
//* P390 UTILITIES   338 SBG     2892 S  2.3 04-24-23      080 YES  *   DOC FILE
//* JES2 #5 EXIT     339 UNKCBT   908     .9 11-30-87      080 YES  *   DOC FILE
//* DCM 7980-3 REPT  340 UNKSBG  4691 S  2.3 10-27-98      080 YES  *   DOC FILE
//* LOAD PGMS IN CSA 341 UNKSBG  3656 S  2.3 10-27-98      080 YES  *   DOC FILE
//* MODEL 204 ISPF   342 UNKSBG  5353 S  3.2 10-27-98      080 YES  *   DOC FILE
//* Kalinic VTOCLIST 343 UNKSBG  1748 S  1.4 08-16-10      080 YES  *   DOC FILE
//* Berning RX Tools 344 SBG     6160 S  2.8 04-14-02      080 YES  *   DOC FILE
//* GENERAL MPF EXIT 345 UNKSBG   485 S   .3 05-31-02      080 YES  *   DOC FILE
//* BREAK JES2 EXITS 346 UNKSBG  1475 S   .9 07-08-02      080 YES  *   DOC FILE
//* FOCHTMAN MODLIST 347 UNKSBG  3493 S  2.3 04-24-23      080 YES  *   DOC FILE
//* PDS COPY ALPHABT 348 UNKSBG   712 S   .4 11-23-99      080 YES  *   DOC FILE
//* ISPF CMDTBL UPDT 349 SBG     2560 S  1.9 11-11-18      080 YES  *   DOC FILE
//* WLM SCHENV= CNVT 350 UNKSBG   707 S   .4 03-29-99      080 YES  *   DOC FILE
//* LIST LE LVL COBL 351 UNKSBG   169 S   .1 03-29-99      080 YES  *   DOC FILE
//* INTEL-move OV301 352 UNKCBT   425 S   .3 02-05-04      080 YES  *   DOC FILE
//* SPF PGMS         353 UNKCBT 41907   24.1 04-29-19      080 YES  *   DOC FILE
//* RANDY HALL PGMS  354 UNKSBG 54740 S 29.6 03-29-99      080 YES  *   DOC FILE
//* KONCAT PROGRAM   355 UNKSBG  2087 S  1.4 03-29-99      080 YES  *   DOC FILE
//* NETSOL VTAM SMGR 356 UNKSBG  7455 S  5.1 03-29-99      080 YES  *   DOC FILE
//* Carl Hafner pgms 357 UNKSBG 89865 S 56.5 02-09-17      080 YES  *   DOC FILE
//* SOUT SYSOUT WTR  358 UNKSBG 15696 S 10.6 11-27-03      080 YES  *   DOC FILE
//* SYNTEX PGMS      359 UNKCBT 12748    8.3 03-31-87      080 YES  *   DOC FILE
//* WSRCC UTILITIES  360 UNKCBT 22246 S 13.9 12-20-20      080 YES  *   DOC FILE
//* JOHNSTON UTILS   361 UNKSBG 10807 S  7.4 05-22-00      080 YES  *   DOC FILE
//* JOHNSTON LOADLIB 362 UNKSBG    15    1.6 07-08-12    IEBCOPY  NO*   DOC FILE
//* ISPF NAME CHANGE 363 UNKSBG   697 S   .4 03-29-99      080 YES  *   DOC FILE
//* CONTROL CARD SUB 364 UNKSBG  2446 S  1.9 03-29-99      080 YES  *   DOC FILE
//* XMIT ERROR-FREE  365 SBG     2544 S  1.9 08-10-99      080 YES  *   DOC FILE
//* MARVIN SHAW PGMS 366 SBG      239 S   .2 08-10-99      080 YES  *   DOC FILE
//* ASCBS, TSO USERS 367 SBG      243 S   .2 05-17-20      080 YES  *   DOC FILE
//* J WILLIAMS UTILS 368 UNKSBG  3814 S  2.8 11-23-99      080 YES  *   DOC FILE
//* PRC CODE         369 UNKCBT 26808 S 15.3 03-29-99      080 YES  *   DOC FILE
//* IO COUNTS        370 UNKCBT   139     .1 06-26-90      080 YES  *   DOC FILE
//* WASH LOAD        371 UNKCBT    97   27.1 07-20-22    IEBCOPY  NO*   DOC FILE
//* MacKenz DYNALLOC 372 UNKSBG   767 S   .4 11-23-99      080 YES  *   DOC FILE
//* GTE TSO CP       373 UNKCBT  4063    2.8 06-12-83      080 YES  *   DOC FILE
//* SAS PGMS FOR SMF 374 UNKSBG 10736 S  6.5 08-10-99      080 YES  *   DOC FILE
//* OBJECTSTAR SMF   375 UNKSBG  2086 S   .9 08-10-99      080 YES  *   DOC FILE
//* ZDF-D.MARSDEN UT 376 UNKSBG 14517 S  8.8 08-10-99      080 YES  *   DOC FILE
//* TCAS SUB=MSTR    377 UNKSBG  1164 S   .9 08-10-99      080 YES  *   DOC FILE
//* SORTTRAK         378 UNKSBG   999 S   .9 08-10-99      080 YES  *   DOC FILE
//* PROC XREF        379 CBT     3039    1.9 07-17-83      080 YES  *   DOC FILE
//* McRitchie execs  380 UNKSBG 33781 S 20.4 11-17-02      080 YES  *   DOC FILE
//* FIRST COMP SRVCS 381 UNKCBT 41146   26.4 12-12-88      080 YES  *   DOC FILE
//* P.GILLIS UTILITS 382 UNKSBG 15868 S  9.3 06-23-11      080 YES  *   DOC FILE
//* INTEL INFO       383 UNKCBT  7670 S 12.1 08-19-94    IEBCOPY  NO*   DOC FILE
//* Overflow File297 384 UNKCBT    49     .1 07-17-03      080 YES  *   DOC FILE
//* LPA COMPARE      385 CBT      539     .4 11-30-87      080 YES  *   DOC FILE
//* CARRASCO PROGRMS 386 UNKSBG  6545 S  3.7 01-15-18      080 YES  *   DOC FILE
//* Stony Brk Pascal 387 UNKSBG 36259 S 25.0 10-23-02      080 YES  *   DOC FILE
//* SCHEDULER        388 UNKCBT  9437    6.9 02-09-17      080 YES  *   DOC FILE
//* QUEUE 5.1 +      389 UNKSBG 18273 S 13.4 11-17-02      080 YES  *   DOC FILE
//* QUE 5.2, OS390   390 SBG    21531 S 15.7 04-24-23      080 YES  *   DOC FILE
//* Ngan TRACE390    391 UNKSBG  8783 S  6.5 07-17-05      080 YES  *   DOC FILE
//* WOREN QUEUE 4.2  392 UNKSBG 42178 S 29.6 03-30-92      080 YES  *   DOC FILE
//* RACFGRPS Rexx    393 SBG      126 S   .1 05-01-01      080 YES  *   DOC FILE
//* Jakubek Utilites 394 UNKSBG 13773 S  9.7 12-28-05      080 YES  *   DOC FILE
//* S.Metz CATIND Rx 395 UNKSBG   161 S   .1 11-23-99      080 YES  *   DOC FILE
//* S.Hawley FINDSTR 396 SBG       78 S   .1 11-23-99      080 YES  *   DOC FILE
//* Clarke PACK UNPK 397 UNKSBG    84 S   .1 04-24-23      080 YES  *   DOC FILE
//* IBMMAC etc.      398 UNKSBG  2574 S  1.9 11-23-99      080 YES  *   DOC FILE
//* TSSO MODS        399 UNKCBT  2715    1.9 05-01-87      080 YES  *   DOC FILE
//* DYNAMASK         400 UNKCBT 11674 S  8.3 10-28-92      080 YES  *   DOC FILE
//* SPITBOL 360      401 UNKSBG 31791 S 22.2 12-11-01      080 YES  *   DOC FILE
//* SMF Consolidaton 402 UNKSBG   254 S   .2 02-03-02      080 YES  *   DOC FILE
//* Message Display  403 SBG     5101 S  4.2 08-20-02      080 YES  *   DOC FILE
//* TSSO FOR OS/390  404 SBG   118688 S 77.3 12-20-20      080 YES  *   DOC FILE
//* UTILITIES        405 UNKCBT 12456    9.3 04-01-86      080 YES  *   DOC FILE
//* CQX FIND         406 SBG     2224 S  1.9 04-29-19      080 YES  *   DOC FILE
//* DYNAMIC BLDL     407 NWK    11384 S  9.3 02-09-17      080 YES  *   DOC FILE
//* Dave Cole Macros 408 UNKCBT 25057 S 16.7 02-09-17      080 YES  *   DOC FILE
//* R.Scott MXI FB80 409 SBG    19783 S 11.6 11-11-18      080 YES  *   DOC FILE
//* R.Scott MXI Load 410 SBG      551   60.0 11-11-18    IEBCOPY  NO*   DOC FILE
//* R.Scott Util Src 411 UNKSBG  7319 S  4.6 01-15-18      080 YES  *   DOC FILE
//* R.Scott Util Lod 412 UNKSBG    14    3.8 01-15-18    IEBCOPY  NO*   DOC FILE
//* A.Street FADH Ut 413 UNKSBG  2078 S  1.9 05-30-01      080 YES  *   DOC FILE
//* Machine to ANSI  414 UNKSBG   760 S   .5 07-20-22      080 YES  *   DOC FILE
//* RPF by Rob Prins 415 SBG    93475 S 77.3 12-05-23      080 YES  *   DOC FILE
//* DELUXE PGM       416 UNKCBT  3888    2.8 03-18-84      080 YES  *   DOC FILE
//* RACFADM tool     417 SBG    34755 S 21.8 12-05-23      080 YES  *   DOC FILE
//* COMBINED Insurnc 418 UNKCBT  6154    4.2 01-19-89      080 YES  *   DOC FILE
//* Dignus Source Lb 419 UNKSBG  8456 S  4.2 08-10-99      080 YES  *   DOC FILE
//* Dignus Load Lib  420 UNKSBG    86   23.9 08-10-99    IEBCOPY  NO*   DOC FILE
//* XACORZAP         421 UNKCBT  4543 S  2.8 12-20-90      080 YES  *   DOC FILE
//* MARQUARDT        422 UNKCBT  4102    2.3 07-21-89      080 YES  *   DOC FILE
//* BROIDO CODE      423 SBG    16677 S 10.6 04-24-23      080 YES  *   DOC FILE
//* VETAPE-DC        424 UNKCBT   583     .4 08-29-85      080 YES  *   DOC FILE
//* IEFUSI Exit-Loos 425 UNKSBG   367 S   .3 07-14-00      080 YES  *   DOC FILE
//* JSTATUS          426 UNKCBT  2723    2.3 08-29-85      080 YES  *   DOC FILE
//* IHASTOW          427 CBTXA    109     .1 09-17-85      080 YES  *   DOC FILE
//* ROCKWELL SHOW    428 UNKSBG  3341    2.3 11-24-93      080 YES  *   DOC FILE
//* ALLERGAN UTIL    429 UNKCBT  5840    3.7 09-17-85      080 YES  *   DOC FILE
//* MC EVOY UTIL     430 UNKCBT  5063    3.2 10-15-85      080 YES  *   DOC FILE
//* Bacher Offerings 431 UNKSBG 75550 S 40.3 01-28-02      080 YES  *   DOC FILE
//* T.Falissard Util 432 UNKSBG 28873 S 28.2 10-26-15      080 YES  *   DOC FILE
//* Frank Clarke exc 433 UNKSBG 36486 S 20.4 12-05-23      080 YES  *   DOC FILE
//* Mark Zelden util 434 SBG    87340 S 54.2 12-05-23      080 YES  *   DOC FILE
//* F.Clarke FB-80   435 UNKSBG  3977 S  2.3 11-23-99      080 YES  *   DOC FILE
//* COMPCODE-G.Jones 436 UNKSBG  1428 S  1.4 02-22-00      080 YES  *   DOC FILE
//* Jan Jaeger Utils 437 UNKSBG  9987 S  6.5 11-11-18      080 YES  *   DOC FILE
//* Dan Snyder Macro 438 UNKSBG 10785 S  6.9 05-01-02      080 YES  *   DOC FILE
//* V Mielke PDSX    439 UNKSBG  2835 S  1.9 02-22-00      080 YES  *   DOC FILE
//* PDSX Load Librar 440 UNKSBG    11    3.1 02-22-00    IEBCOPY  NO*   DOC FILE
//* B Vogt RACF pgms 441 UNKSBG  1348 S   .9 02-22-00      080 YES  *   DOC FILE
//* Kimu REVIVE pgm  442 UNKSBG  8286 S  4.6 12-01-19      080 YES  *   DOC FILE
//* Kimu Utilities   443 UNKSBG 14313 S  7.4 12-01-19      080 YES  *   DOC FILE
//* Big Blk Tap File 444 UNKSBG   947 S   .9 02-22-00      080 YES  *   DOC FILE
//* Object Deck Disa 445 UNKSBG 32613 S 19.0 07-25-04      080 YES  *   DOC FILE
//* UNIX Pgm-COBOL   446 UNKSBG   417 S   .3 04-02-13      080 YES  *   DOC FILE
//* ENQMON-Enhnc GRS 447 UNKSBG   586 S   .4 04-02-13      080 YES  *   DOC FILE
//* Date in Syst Var 448 UNKSBG   708 S   .4 07-14-00      080 YES  *   DOC FILE
//* Amdahl Bookmangr 449 UNKSBG  9696 S  6.5 07-14-00      080 YES  *   DOC FILE
//* Globl Str Search 450 SBG      227 S   .1 07-14-00      080 YES  *   DOC FILE
//* Scarcella EXECs  451 SBG      133 S   .1 07-14-00      080 YES  *   DOC FILE
//* Dan's MVS-JES2 U 452 UNKSBG 50085 S 31.0 12-01-19      080 YES  *   DOC FILE
//* MOINIL INDEX     453 UNKSBG   513 S   .4 05-28-96      080 YES  *   DOC FILE
//* MOINIL BASIC     454 UNKSBG 84515 S 52.8 08-01-00      080 YES  *   DOC FILE
//* MOINIL COMPLEMNT 455 UNKSBG 48109 S 31.0 07-12-01      080 YES  *   DOC FILE
//* MOINIL ADDITIONL 456 UNKSBG 63936 S 39.3 05-28-96      080 YES  *   DOC FILE
//* MOINIL DEMO/GAME 457 UNKSBG 48004 S 28.7 08-01-00      080 YES  *   DOC FILE
//* MOINIL CBT-EXTR  458 UNKSBG 99487 S 65.7 05-29-96      080 YES  *   DOC FILE
//* MOINIL SUPPLEMNT 459 UNKSBG 18086 S 11.1 05-28-96      080 YES  *   DOC FILE
//* ISPF GUIDE       460 UNKCBT  1319     .9 11-23-86      080 YES  *   DOC FILE
//* ISPF GUIDE       461 UNKCBT 10246    5.1 11-23-86      080 YES  *   DOC FILE
//* ISPF GUIDE       462 UNKCBT  2961    1.9 11-23-86      080 YES  *   DOC FILE
//* ISPF GUIDE       463 UNKCBT   305     .2 11-23-86      080 YES  *   DOC FILE
//* ISPF GUIDE       464 UNKCBT 26861   16.2 11-23-86      080 YES  *   DOC FILE
//* ISPF GUIDE       465 UNKCBT  3753    2.8 11-23-86      080 YES  *   DOC FILE
//* ISPF GUIDE       466 UNKCBT   488     .3 11-23-86      080 YES  *   DOC FILE
//* ISPF GUIDE       467 UNKCBT  4526    2.8 11-23-86      080 YES  *   DOC FILE
//* ISPF GUIDE       468 UNKCBT    17     .0 11-23-86      080 YES  *   DOC FILE
//* ISPF GUIDE       469 UNKCBT 24523   16.2 11-23-86      080 YES  *   DOC FILE
//* ISPF GUIDE       470 UNKCBT  2449    1.9 11-23-86      080 YES  *   DOC FILE
//* ISPF GUIDE       471 UNKCBT  3883    2.8 11-23-86      080 YES  *   DOC FILE
//* MURPHY           472 UNKCBT  8265    4.6 04-17-88      080 YES  *   DOC FILE
//* CHKASVT program  473 SBG      302 S   .2 04-24-23      080 YES  *   DOC FILE
//* LIBCLEAN         474 UNKSBG  1064 S   .9 08-23-00      080 YES  *   DOC FILE
//* LBI TAPE DOC     475 UNKSBG   326 S   .3 08-23-00      080 YES  *   DOC FILE
//* LISP for MVS     476 UNKSBG112364 S100.4 02-20-11      080 YES  *   DOC FILE
//* AWSUTIL-Vrt Tape 477 SBG     1456 S   .9 08-23-00      080 YES  *   DOC FILE
//* RAWSTAPE         478 UNKSBG   268 S   .2 03-12-02      080 YES  *   DOC FILE
//* BCEDIT,BKSRCH et 479 UNKSBG  2376 S  1.4 12-05-23      080 YES  *   DOC FILE
//* Castilla Utl Src 480 UNKSBG  4208 S  2.8 04-24-23      080 YES  *   DOC FILE
//* Castilla Loadmod 481 UNKSBG    15    5.6 01-15-18    IEBCOPY  NO*   DOC FILE
//* GDGCOPY          482 UNKSBG  1074 S   .9 08-16-10      080 YES  *   DOC FILE
//* Ramseier Utiltys 483 UNKSBG 10612 S  6.9 03-04-21      080 YES  *   DOC FILE
//* Amdahl CACHEMAN  484 UNKSBG 10493 S  6.5 11-12-00      080 YES  *   DOC FILE
//* Dissen VTAM Appl 485 UNKSBG  4613 S  2.8 07-08-12      080 YES  *   DOC FILE
//* SETCLOCK program 486 UNKSBG   466 S   .3 11-12-00      080 YES  *   DOC FILE
//* Trap & V30-19SO  487 SBG       60 S   .1 12-27-00      080 YES  *   DOC FILE
//* Iannone Prod Ctl 488 UNKSBG 60766 S 31.5 12-05-23      080 YES  *   DOC FILE
//* Iannone Sh Med S 489 UNKSBG  7952 S  4.6 04-29-19      080 YES  *   DOC FILE
//* INSTASM Rent Mac 490 UNKSBG  4043 S  1.9 01-16-11      080 YES  *   DOC FILE
//* XMITMAIL         491 UNKSBG 21244 S 12.0 01-16-11      080 YES  *   DOC FILE
//* SHOWzOS Schiradn 492 SBG   517195 S305.9 04-24-23      080 YES  *   DOC FILE
//* Connelley tools  493 SBG     3072 S  2.3 01-25-01      080 YES  *   DOC FILE
//* IKJEESX9 BC exit 494 UNKSBG   108 S   .1 01-25-01      080 YES  *   DOC FILE
//* ISPF Starter kit 495 UNKSBG 11719 S  9.7 10-27-13      080 YES  *   DOC FILE
//* TIOT REXX exec   496 SBG      885 S   .9 11-11-18      080 YES  *   DOC FILE
//* CSVLLIX1 exit    497 UNKSBG  1835 S  1.4 01-25-01      080 YES  *   DOC FILE
//* Match-merge pgm  498 UNKSBG 10981 S  6.9 12-27-09      080 YES  *   DOC FILE
//* Ed Ross Utilties 499 UNKSBG 29737 S 16.7 03-04-21      080 YES  *   DOC FILE
//* ECF for MVS 3.8j 500 UNKSBG 62196 S 40.3 07-20-22      080 YES  *   DOC FILE
//* SNTP Time Server 501 UNKSBG  9226 S 10.2 01-25-01      080 YES  *   DOC FILE
//* ZAP to AMASPZAP  502 SBG     3875 S  3.2 04-02-01      080 YES  *   DOC FILE
//* MBRLIST program  503 SBG      517 S   .3 04-02-01      080 YES  *   DOC FILE
//* Software Invntry 504 SBG     9948 S  6.0 04-02-01      080 YES  *   DOC FILE
//* ASSIST-Ovflw 085 505 UNKSBG   459 S   .3 03-09-03      080 YES  *   DOC FILE
//* REXX for SMP/E   506 UNKSBG   854 S   .9 04-02-01      080 YES  *   DOC FILE
//* TPL 6.0 for MVS  507 UNKSBG 23836 S 29.2 04-02-01      080 YES  *   DOC FILE
//* EXCMD cmd procsr 508 SBG      548 S   .4 10-27-13      080 YES  *   DOC FILE
//* Web-enab SHOWMVS 509 UNKSBG   178 S   .1 04-02-01      080 YES  *   DOC FILE
//* IEBLIST-Paranhos 510 SBG     6817 S  4.2 08-16-10      080 YES  *   DOC FILE
//* VSAM Analys Tool 511 UNKSBG  4781 S  3.2 05-01-01      080 YES  *   DOC FILE
//* ISPF Cut-Paste   512 UNKSBG  3011 S  1.9 04-02-01      080 YES  *   DOC FILE
//* OPERLOG Tools    513 UNKSBG 12763 S  8.8 01-14-07      080 YES  *   DOC FILE
//* ICHRTX00 for VOL 514 UNKSBG   301 S   .2 05-01-01      080 YES  *   DOC FILE
//* REXX functions   515 UNKSBG  5171 S  3.2 05-30-01      080 YES  *   DOC FILE
//* CA1 Vol Test Pgm 516 SBG     1134 S   .9 06-12-01      080 YES  *   DOC FILE
//* XPL Compiler Gen 517 UNKSBG 14763 S 10.2 05-30-01      080 YES  *   DOC FILE
//* ASM Full default 518 UNKSBG   734 S   .5 09-25-06      080 YES  *   DOC FILE
//* TMS-VTS Audit    519 SBG     3241 S  2.3 08-16-22      080 YES  *   DOC FILE
//* REXX Functions   520 UNKSBG  7413 S  4.2 07-08-12      080 YES  *   DOC FILE
//* EREP Jobstreams  521 UNKSBG   232 S   .1 06-12-01      080 YES  *   DOC FILE
//* User SMF Data    522 UNKSBG   914 S   .5 07-12-01      080 YES  *   DOC FILE
//* SMF Selection    523 SBG    24459 S 15.3 07-06-16      080 YES  *   DOC FILE
//* EXCP Tape Routne 524 UNKSBG   915 S   .9 07-12-01      080 YES  *   DOC FILE
//* CFMON Mods       525 UNKSBG   280 S   .2 09-15-03      080 YES  *   DOC FILE
//* TSS Admin Packag 526 UNKSBG 47179 S 47.7 11-12-14      080 YES  *   DOC FILE
//* Stitt programs   527 UNKSBG 11921 S  7.4 12-28-05      080 YES  *   DOC FILE
//* LISTCAT-Src REXX 528 UNKSBG   558 S   .3 04-02-13      080 YES  *   DOC FILE
//* CICS SMF Stats   529 UNKSBG 24248 S 14.8 04-18-08      080 YES  *   DOC FILE
//* Format PL/I pgms 530 UNKSBG   947 S   .9 07-08-12      080 YES  *   DOC FILE
//* Show OS390 info  531 UNKSBG  1547 S   .9 12-16-12      080 YES  *   DOC FILE
//* Roscoe RPFs      532 UNKSBG 12763 S  6.9 10-30-01      080 YES  *   DOC FILE
//* AWS to Real Tape 533 SBG    19606 S 13.4 07-06-16      080 YES  *   DOC FILE
//* SPACE command    534 SBG    52192 S 31.0 01-15-18      080 YES  *   DOC FILE
//* CCAT Dyn Concat  535 UNKSBG  2426 S  2.8 12-20-20      080 YES  *   DOC FILE
//* XDI XCOM-Dispach 536 UNKSBG 19483 S 13.9 04-29-19      080 YES  *   DOC FILE
//* Macros           537 UNKSBG   901 S   .9 04-02-13      080 YES  *   DOC FILE
//* IPLtext for ZZSA 538 UNKSBG  1758 S  2.3 07-06-16      080 YES  *   DOC FILE
//* DSNUSAGE         539 UNKSBG   853 S   .9 12-11-01      080 YES  *   DOC FILE
//* PARM Scanner Pgm 540 SBG     2255 S  1.4 07-08-02      080 YES  *   DOC FILE
//* MVS CCKD Create  541 UNKSBG 36722 S 35.2 06-03-14      080 YES  *   DOC FILE
//* RCNVTCAT & REXXs 542 UNKSBG 23491 S 16.2 12-05-23      080 YES  *   DOC FILE
//* REXX System Info 543 UNKSBG  2969 S  1.9 03-12-02      080 YES  *   DOC FILE
//* PL360 Setup-Code 544 UNKSBG  5245 S  3.7 01-28-02      080 YES  *   DOC FILE
//* Stanford PL360   545 UNKSBG 29027 S 17.1 01-28-02      080 YES  *   DOC FILE
//* PL360 Book 1 PDF 546 UNKSBG  7973 S 10.6 01-28-02      080 YES  *   DOC FILE
//* Volker Bandke    547 UNKSBG 72540 S 48.1 02-20-11      080 YES  *   DOC FILE
//* Nikolyn REXX Fns 548 UNKSBG   852 S   .4 03-12-02      080 YES  *   DOC FILE
//* Baron UNITNAME   549 UNKSBG   403 S   .3 12-17-02      080 YES  *   DOC FILE
//* Structurd Macros 550 UNKSBG  1796 S  1.4 05-01-02      080 YES  *   DOC FILE
//* CONSOLE cmd auth 551 UNKSBG   585 S   .4 03-12-02      080 YES  *   DOC FILE
//* COBOL Analysis   552 UNKSBG   667 S   .9 03-12-02      080 YES  *   DOC FILE
//* SUBMITC edmacro  553 UNKSBG  2010 S  1.4 03-12-02      080 YES  *   DOC FILE
//* MVS PP ESA Code  554 UNKSBG  9484 S  6.9 12-25-11      080 YES  *   DOC FILE
//* Mon Santos Utils 555 UNKSBG  3463 S  2.3 02-28-06      080 YES  *   DOC FILE
//* Get File frm web 556 UNKSBG   239 S   .2 05-01-02      080 YES  *   DOC FILE
//* SOUNDEX codes    557 UNKSBG   497 S   .4 04-14-02      080 YES  *   DOC FILE
//* Thornton ASM     558 UNKSBG141023 S 89.8 08-06-07      080 YES  *   DOC FILE
//* Thornton C       559 UNKSBG 34912 S 22.2 05-14-02      080 YES  *   DOC FILE
//* Thornton JCL     560 UNKSBG 22390 S 16.2 05-31-02      080 YES  *   DOC FILE
//* Thornton CLISTs  561 UNKSBG  2550 S  2.3 05-31-02      080 YES  *   DOC FILE
//* Thornton EXECs   562 UNKSBG  3587 S  2.3 05-31-02      080 YES  *   DOC FILE
//* Thornton COBOL   563 UNKSBG 20864 S 13.4 05-14-02      080 YES  *   DOC FILE
//* Thornton Doc Inf 564 UNKSBG 25066 S 15.7 05-31-02      080 YES  *   DOC FILE
//* Thornton Classes 565 UNKSBG 25754 S 16.7 07-08-02      080 YES  *   DOC FILE
//* Sam Bass Utilits 566 UNKSBG 41328 S 26.8 12-05-23      080 YES  *   DOC FILE
//* CSVLLIX2-Fetch   567 UNKSBG   480 S   .3 05-01-02      080 YES  *   DOC FILE
//* TSO Games        568 SBG      109   11.9 05-01-02    IEBCOPY  NO*   DOC FILE
//* TSO Game Rules   569 SBG      758 S   .5 05-01-02      080 YES  *   DOC FILE
//* MVS Tips, Tricks 570 SBG    95304 S 43.5 12-05-23      080 YES  *   DOC FILE
//* XMIT370, RECV370 571 UNKSBG 34597 S 22.2 04-18-08      080 YES  *   DOC FILE
//* MVS zip programs 572 UNKSBG  1652 S   .9 05-14-02      080 YES  *   DOC FILE
//* IEFUJV SymbinJcl 573 UNKSBG   705 S   .4 05-14-02      080 YES  *   DOC FILE
//* W.Schaefer tools 574 UNKSBG  1592 S  1.4 05-01-02      080 YES  *   DOC FILE
//* JES2 Spl Offload 575 UNKSBG  4584 S  2.8 05-14-02      080 YES  *   DOC FILE
//* Copy Dataset     576 SBG      726 S   .4 07-08-02      080 YES  *   DOC FILE
//* P.Arias EXECs    577 SBG     1109 S   .9 05-31-02      080 YES  *   DOC FILE
//* ISPF Table Handl 578 UNKSBG  1761 S  1.4 05-31-02      080 YES  *   DOC FILE
//* HLASM Macro Adds 579 UNKSBG   256 S   .2 07-08-02      080 YES  *   DOC FILE
//* CUT-PASTE macros 580 SBG     1230 S   .9 07-08-02      080 YES  *   DOC FILE
//* Disaster Recovry 581 UNKSBG 12397 S 12.5 07-08-02      080 YES  *   DOC FILE
//* TAPEMAP MVS38 et 582 UNKSBG  9341 S  6.9 01-14-07      080 YES  *   DOC FILE
//* PROFSET edit mac 583 UNKSBG  2829 S  1.9 12-17-02      080 YES  *   DOC FILE
//* AUTOINIT DASD    584 UNKSBG   700 S   .4 08-20-02      080 YES  *   DOC FILE
//* AWSSL program    585 UNKSBG  4149 S  2.8 10-02-02      080 YES  *   DOC FILE
//* ISPF App Starter 586 UNKSBG   846 S   .9 09-09-02      080 YES  *   DOC FILE
//* Enhance VTOC cmd 587 UNKSBG 10284 S  6.9 10-02-02      080 YES  *   DOC FILE
//* Auto Sys Shutdwn 588 UNKSBG 15319 S  9.3 09-15-03      080 YES  *   DOC FILE
//* HSC REXX functon 589 UNKSBG  6310 S  3.2 10-27-13      080 YES  *   DOC FILE
//* KNUTH Assembler  590 UNKSBG 44126 S 21.8 10-02-02      080 YES  *   DOC FILE
//* VM REXXFORM      591 UNKSBG  1319 S   .9 11-07-21      080 YES  *   DOC FILE
//* DISPLAY in BAL   592 UNKSBG   846 S   .9 10-02-02      080 YES  *   DOC FILE
//* ASMG             593 UNKSBG 57880 S 39.3 04-24-23      080 YES  *   DOC FILE
//* Dataset Disp Fac 594 UNKSBG  5853 S  3.2 10-23-02      080 YES  *   DOC FILE
//* Macro for trace  595 UNKSBG   197 S   .2 10-23-02      080 YES  *   DOC FILE
//* SWP Edit Macro   596 UNKSBG   191 S   .1 10-23-02      080 YES  *   DOC FILE
//* MPF exit         597 UNKSBG  1620 S  1.4 12-01-19      080 YES  *   DOC FILE
//* RL Rice programs 598 UNKSBG  7464 S  4.6 10-23-02      080 YES  *   DOC FILE
//* ISPF Var Display 599 SBG      407 S   .2 11-17-02      080 YES  *   DOC FILE
//* TCP/IP SMF pgms  600 UNKSBG 14081 S 13.0 02-28-06      080 YES  *   DOC FILE
//* MVS 3.8J QUEUE   601 UNKSBG 10183 S  6.5 09-15-03      080 YES  *   DOC FILE
//* Newell REXX exec 602 SBG     1262 S   .9 11-17-02      080 YES  *   DOC FILE
//* QWIKSCAN         603 UNKSBG  2418 S  1.8 12-17-02      080 YES  *   DOC FILE
//* SNOBOL4 Bell     604 UNKSBG  7360 S 11.3 12-17-02    IEBCOPY  NO*   DOC FILE
//* ACF2 Passwords   605 UNKSBG  1813 S  1.4 12-17-02      080 YES  *   DOC FILE
//* AWSSL for HET    606 SBG    65587 S 29.6 08-06-07      080 YES  *   DOC FILE
//* Free IND$FILE    607 UNKSBG  3130 S  4.2 04-21-03      080 YES  *   DOC FILE
//* SPA TSO command  608 SBG     1228 S   .9 02-28-06      080 YES  *   DOC FILE
//* RESCUE packs etc 609 UNKSBG 38384 S 25.0 08-16-10      080 YES  *   DOC FILE
//* CHANGE71 & WTOR  610 UNKSBG   645 S   .4 02-20-11      080 YES  *   DOC FILE
//* Cond Job Submit  611 UNKSBG  1970 S   .9 04-21-03      080 YES  *   DOC FILE
//* DUDASD,DSPACE,et 612 UNKSBG 21026 S 19.9 07-20-22      080 YES  *   DOC FILE
//* RESCUE Systm JCL 613 UNKSBG   805 S   .5 03-09-03      080 YES  *   DOC FILE
//* SHOWZOS Loadmods 614 SBG   104680 S127.3 04-24-23      080 YES  *   DOC FILE
//* DYNAL,ISPF maclb 615 UNKSBG 34853 S 21.8 11-11-18      080 YES  *   DOC FILE
//* Nigel Thomas utl 616 UNKSBG  4673 S  2.8 03-09-03      080 YES  *   DOC FILE
//* REXSMF30         617 UNKSBG   844 S  2.6 04-24-23    IEBCOPY  NO*   DOC FILE
//* ICSF API Intrfac 618 UNKSBG  2875 S  1.9 04-21-03      080 YES  *   DOC FILE
//* Dyn Proclb MVS38 619 UNKSBG 13004 S  9.3 04-21-03      080 YES  *   DOC FILE
//* COPY for COBOL   620 UNKSBG   320 S   .2 04-21-03      080 YES  *   DOC FILE
//* Exits to PCL prt 621 UNKSBG  5722 S  3.7 12-27-09      080 YES  *   DOC FILE
//* MATRIX dataspace 622 UNKSBG 19056 S 16.2 04-21-03      080 YES  *   DOC FILE
//* Zhou Sys Shutdwn 623 UNKSBG  3378 S  2.3 09-25-06      080 YES  *   DOC FILE
//* FIND datasets    624 SBG      825 S   .5 05-17-20      080 YES  *   DOC FILE
//* FIXCAT recatalog 625 UNKSBG   326 S   .2 06-15-03      080 YES  *   DOC FILE
//* ENQ and JI REXXs 626 SBG      815 S   .9 06-15-03      080 YES  *   DOC FILE
//* AutoMan          627 UNKSBG  2168 S  2.8 05-02-04      080 YES  *   DOC FILE
//* TCPIP Trace Anal 628 UNKSBG  1129 S   .9 02-14-05      080 YES  *   DOC FILE
//* SNTP Server      629 UNKSBG  4265 S  2.8 02-05-04      080 YES  *   DOC FILE
//* MOVE/COPY Rexx   630 SBG      531 S   .3 10-26-15      080 YES  *   DOC FILE
//* PDS string srch  631 SBG      328 S   .2 06-15-03      080 YES  *   DOC FILE
//* BASE64 convert   632 UNKSBG  1445 S   .9 06-15-03      080 YES  *   DOC FILE
//* DSPACE & FDSPACE 633 SBG     2689 S  1.9 07-06-16      080 YES  *   DOC FILE
//* List UCBs        634 SBG      525 S   .4 03-04-21      080 YES  *   DOC FILE
//* RENAMEF exec     635 SBG      134 S   .1 06-15-03      080 YES  *   DOC FILE
//* Cmd on LISTC dsn 636 SBG      263 S   .2 07-17-03      080 YES  *   DOC FILE
//* Loadmod compare  637 UNKSBG   485 S   .3 12-28-05      080 YES  *   DOC FILE
//* SENDMAIL         638 UNKSBG  3706 S  2.3 09-25-06      080 YES  *   DOC FILE
//* SETHOUR          639 SBG     3020 S  1.9 09-25-06      080 YES  *   DOC FILE
//* VPS Sepratr exit 640 UNKSBG  5727 S  3.2 11-15-04      080 YES  *   DOC FILE
//* MVS 3.8 Maxcc    641 UNKSBG   584 S   .4 07-17-03      080 YES  *   DOC FILE
//* OPERLOG FIND pgm 642 UNKSBG  5049 S  3.2 01-16-11      080 YES  *   DOC FILE
//* P.Scott macs pgm 643 SBG     6625 S  4.2 07-17-03      080 YES  *   DOC FILE
//* FUSION Chang Man 644 UNKSBG  4230 S  3.2 02-05-04      080 YES  *   DOC FILE
//* Auth Msg SHOWMVS 645 SBG      133 S   .1 09-15-03      080 YES  *   DOC FILE
//* CLIST to REXX    646 SBG     3593 S  1.9 04-02-13      080 YES  *   DOC FILE
//* XML Parser       647 UNKSBG 11814 S  8.3 06-23-11      080 YES  *   DOC FILE
//* ZRMS Subsystem   648 UNKSBG 16405 S 10.6 12-05-23      080 YES  *   DOC FILE
//* PDS2PDS          649 UNKSBG 25664 S 25.9 11-27-03      080 YES  *   DOC FILE
//* CSA Tracking     650 UNKSBG  1224 S   .9 11-27-03      080 YES  *   DOC FILE
//* Reset BWO Flags  651 UNKSBG 10862 S  6.5 11-27-03      080 YES  *   DOC FILE
//* Systm Specf FIND 652 UNKSBG   899 S   .9 11-27-03      080 YES  *   DOC FILE
//* DYN Alloc Utils  653 UNKSBG  1798 S  1.4 11-27-03      080 YES  *   DOC FILE
//* TSO Fullscr Intf 654 UNKSBG 11700 S  7.4 11-27-03      080 YES  *   DOC FILE
//* Catalog Cleanup  655 UNKSBG  2094 S  1.4 11-07-21      080 YES  *   DOC FILE
//* A.Kannan Utils   656 UNKSBG 10176 S  6.0 11-27-03      080 YES  *   DOC FILE
//* Rescue Pack JCL  657 UNKSBG  1206 S   .9 02-05-04      080 YES  *   DOC FILE
//* CRC Calculator   658 SBG      259 S   .2 02-05-04      080 YES  *   DOC FILE
//* P390 DASD        659 SBG   176207 S233.3 01-15-18      080 YES  *   DOC FILE
//* REXX Checker     660 SBG      383 S   .3 06-03-14      080 YES  *   DOC FILE
//* HOTRDR           661 UNKSBG  1550 S   .9 09-25-06      080 YES  *   DOC FILE
//* CA-1 to FakeTape 662 UNKSBG  1131 S   .9 02-14-05      080 YES  *   DOC FILE
//* Public C Library 663 UNKSBG 12561 S  5.6 05-02-04      080 YES  *   DOC FILE
//* Date Conversion  664 UNKSBG 10252 S  8.8 05-02-04      080 YES  *   DOC FILE
//* Field Formatting 665 UNKSBG  2349 S  1.9 05-02-04      080 YES  *   DOC FILE
//* Comb Sort+random 666 UNKSBG   845 S   .9 05-02-04      080 YES  *   DOC FILE
//* RPG/F Tutorial   667 SBG     4646 S  3.2 05-02-04      080 YES  *   DOC FILE
//* JES2 Spool Archv 668 UNKSBG  4296 S  2.3 10-26-15      080 YES  *   DOC FILE
//* Save REXX varbls 669 UNKSBG 40684 S 23.6 12-05-23      080 YES  *   DOC FILE
//* REXX math functs 670 UNKSBG  3358 S  2.3 05-17-20      080 YES  *   DOC FILE
//* ZOOM edit macro  671 SBG      358 S   .2 05-02-04      080 YES  *   DOC FILE
//* NETINIT, NETSTOP 672 SBG     1656 S  1.4 05-02-04      080 YES  *   DOC FILE
//* CCFDELET         673 UNKSBG   808 S   .9 05-02-04      080 YES  *   DOC FILE
//* R.Murray REXX ut 674 UNKSBG 12312 S  7.4 07-25-04      080 YES  *   DOC FILE
//* Yassin DB2 execs 675 UNKSBG   895 S   .9 05-02-04      080 YES  *   DOC FILE
//* Marshall VPS exi 676 UNKSBG  3821 S  2.8 05-02-04      080 YES  *   DOC FILE
//* Par SYSPLEX Mgr  677 UNKSBG  1950 S  1.4 07-25-04      080 YES  *   DOC FILE
//* DFDSS to AWStape 678 UNKSBG  1823 S  1.4 07-25-04      080 YES  *   DOC FILE
//* JCL to Flowchart 679 UNKSBG   378 S   .2 07-25-04      080 YES  *   DOC FILE
//* Courses--B.Koss  680 UNKSBG 23594 S 26.4 07-25-04      080 YES  *   DOC FILE
//* PLEA PL/I Ex Anl 681 UNKSBG  4971 S  2.8 07-25-04      080 YES  *   DOC FILE
//* ESO - Esoterics  682 SBG     2136 S  1.4 09-25-06      080 YES  *   DOC FILE
//* IBM Website doc  683 UNKSBG   338 S   .2 11-11-18      080 YES  *   DOC FILE
//* Fochtman PDSUPDT 684 UNKSBG  7874 S  5.6 12-20-20      080 YES  *   DOC FILE
//* TXT2XML          685 UNKSBG 40763 S 37.0 07-17-05      080 YES  *   DOC FILE
//* SMFDUMP          686 UNKSBG   642 S   .4 09-25-06      080 YES  *   DOC FILE
//* VVDS Catlg names 687 SBG      440 S   .3 11-15-04      080 YES  *   DOC FILE
//* DBRC INIT cmds   688 UNKSBG 41714 S 27.3 06-23-11      080 YES  *   DOC FILE
//* Sawyer SVC26 pap 689 UNKSBG  3508 S  2.3 11-15-04      080 YES  *   DOC FILE
//* XMDSMAIN x-memry 690 SBG     2107 S  1.4 11-15-04      080 YES  *   DOC FILE
//* READSEQ-M.Kline  691 UNKSBG  1579 S   .9 11-15-04      080 YES  *   DOC FILE
//* UATAPE utility   692 SBG     8656 S  6.5 12-28-05      080 YES  *   DOC FILE
//* PDSCLEAN pgm     693 SBG     4123 S  2.8 08-16-10      080 YES  *   DOC FILE
//* Compare VVDS/Cat 694 SBG     1303 S   .9 11-15-04      080 YES  *   DOC FILE
//* INITDBGN pgm     695 UNKSBG  1002 S   .9 07-08-12      080 YES  *   DOC FILE
//* z/OS tape FLEXES 696 UNKSBG   974 S  1.4 04-02-13      080 YES  *   DOC FILE
//* CICS rept/Linux  697 UNKSBG  1264 S  1.8 04-02-13      080 YES  *   DOC FILE
//* RACF rept/Linux  698 UNKSBG 14200 S 18.5 04-02-13      080 YES  *   DOC FILE
//* SUBMIT edit macr 699 SBG      934 S   .9 11-15-04      080 YES  *   DOC FILE
//* ISPF REXX execs  700 UNKSBG  2297 S  1.4 11-15-04      080 YES  *   DOC FILE
//* DB2 Admin Helprs 701 UNKSBG  1332 S   .9 11-15-04      080 YES  *   DOC FILE
//* JES2 Mellon z-16 702 UNKSBG 20167 S 13.0 12-25-11      080 YES  *   DOC FILE
//* Fujits/ISPF stat 703 UNKSBG   458 S   .3 11-15-04      080 YES  *   DOC FILE
//* DRDASD           704 UNKSBG   995 S   .9 02-14-05      080 YES  *   DOC FILE
//* Perf Tun FLEX-ES 705 UNKSBG  5525 S  3.7 02-14-05      080 YES  *   DOC FILE
//* SVG Line Charts  706 UNKSBG 43292 S157.7 07-17-05    IEBCOPY  NO*   DOC FILE
//* ISPF Datast List 707 SBG      613 S   .4 07-17-05      080 YES  *   DOC FILE
//* General MPF Exit 708 UNKSBG 22083 S 15.3 12-16-12      080 YES  *   DOC FILE
//* MPFCMD program   709 UNKSBG   265 S   .2 02-14-05      080 YES  *   DOC FILE
//* DDU and DDUVOL   710 UNKSBG  1235 S   .9 02-20-11      080 YES  *   DOC FILE
//* Librarian        711 UNKSBG 37062 S 21.3 12-27-09      080 YES  *   DOC FILE
//* File,Mail f/CICS 712 UNKSBG  3722 S  2.3 07-17-05      080 YES  *   DOC FILE
//* Empty a PDS      713 SBG     1491 S   .9 12-27-09      080 YES  *   DOC FILE
//* Flexes cmd f/MVS 714 UNKSBG 18555 S 12.5 07-17-05      080 YES  *   DOC FILE
//* Tape Erase       715 SBG      943 S   .9 07-17-05      080 YES  *   DOC FILE
//* QUERYENQ applic  716 SBG     1030 S   .9 11-11-18      080 YES  *   DOC FILE
//* JumpList         717 SBG     5847 S  6.5 09-25-06      080 YES  *   DOC FILE
//* TSO Logon Exits  718 UNKSBG  1032 S   .9 09-25-06      080 YES  *   DOC FILE
//* DASD dump-restor 719 UNKSBG  2281 S  1.4 07-17-05      080 YES  *   DOC FILE
//* W.Sweeney Utils  720 UNKSBG 13930 S  8.3 07-17-05      080 YES  *   DOC FILE
//* ChangeWiz        721 UNKSBG 14294 S  8.3 07-17-05      080 YES  *   DOC FILE
//* FileWiz          722 UNKSBG  3789 S  2.3 07-17-05      080 YES  *   DOC FILE
//* Storage Displays 723 UNKSBG   640 S   .5 12-28-05      080 YES  *   DOC FILE
//* HLASM Toolk Enhn 724 UNKSBG  1831 S  1.4 09-25-06      080 YES  *   DOC FILE
//* CICS Aux Tr Anlz 725 UNKSBG  4383 S  2.8 09-25-06      080 YES  *   DOC FILE
//* VSAM Define Redo 726 SBG     1833 S  1.4 09-25-06      080 YES  *   DOC FILE
//* COPYVBS - EXCP   727 UNKSBG   349 S   .2 12-28-05      080 YES  *   DOC FILE
//* ICHPWX01         728 UNKSBG   436 S   .3 12-28-05      080 YES  *   DOC FILE
//* MAXITRAN         729 UNKSBG  2053 S  1.9 12-28-05      080 YES  *   DOC FILE
//* PIPICALL-z/OS.e  730 UNKSBG   318 S   .2 12-28-05      080 YES  *   DOC FILE
//* TSO PARMLIB cmds 731 SBG    53996 S 33.8 12-05-23      080 YES  *   DOC FILE
//* WHOHAS           732 SBG      560 S   .4 12-28-05      080 YES  *   DOC FILE
//* ALGOL68C Distrib 733 UNKSBG 21723 S 18.1 02-28-06      080 YES  *   DOC FILE
//* Original PDS Cmd 734 SBG     4585 S  2.8 04-24-23      080 YES  *   DOC FILE
//* Barthold Editmac 735 UNKSBG   779 S   .4 02-28-06      080 YES  *   DOC FILE
//* IODF Display     736 UNKSBG 15583 S  5.6 01-14-07      080 YES  *   DOC FILE
//* Bulk Clear DASD  737 UNKSBG  2976 S  1.9 02-28-06      080 YES  *   DOC FILE
//* Reorg VSAM Clust 738 UNKSBG  7356 S  4.2 12-27-09      080 YES  *   DOC FILE
//* ISPF Cmd Tables  739 SBG    10527 S  6.9 08-06-07      080 YES  *   DOC FILE
//* REXX to run SQL  740 UNKSBG  2999 S  1.9 02-28-06      080 YES  *   DOC FILE
//* Base64 enco-deco 741 UNKSBG  1372 S   .9 12-20-07      080 YES  *   DOC FILE
//* Source versioner 742 UNKSBG  6897 S  4.6 08-16-10      080 YES  *   DOC FILE
//* MODLIST          743 SBG     5800 S  3.7 08-16-10      080 YES  *   DOC FILE
//* RACF Rules Enfor 744 UNKSBG 31942 S 40.7 09-25-06      080 YES  *   DOC FILE
//* FM File formattr 745 UNKSBG 74264 S 45.4 03-04-21      080 YES  *   DOC FILE
//* Tsujimoto parser 746 UNKSBG 16846 S 18.1 09-25-06      080 YES  *   DOC FILE
//* SysLogger Reader 747 UNKSBG  1372 S   .9 01-14-07      080 YES  *   DOC FILE
//* BASE64 decod etc 748 UNKSBG  1237 S   .9 01-14-07      080 YES  *   DOC FILE
//* GSF utils MVS3.8 749 UNKSBG  8510 S  6.0 12-16-12      080 YES  *   DOC FILE
//* MacNeil ISPF exc 750 UNKSBG   244 S   .2 08-06-07      080 YES  *   DOC FILE
//* Tape Handling Cd 751 UNKSBG 10817 S  6.9 07-06-16      080 YES  *   DOC FILE
//* Ryerse Prof Dump 752 UNKSBG  1922 S   .9 04-02-13      080 YES  *   DOC FILE
//* Ryerse REXX Func 753 UNKSBG  1363 S  1.8 08-06-07      080 YES  *   DOC FILE
//* ISPF Search Prof 754 SBG     1719 S   .9 08-06-07      080 YES  *   DOC FILE
//* JRP 3.8 - Vetter 755 UNKSBG  9923 S  6.5 08-06-07      080 YES  *   DOC FILE
//* Gaeta JCL Preprc 756 UNKSBG  1379 S   .9 08-06-07      080 YES  *   DOC FILE
//* LOGGRASM AsmTool 757 UNKSBG113593 S104.6 12-16-12      080 YES  *   DOC FILE
//* Search Loadmods  758 UNKSBG   965 S   .9 04-18-08      080 YES  *   DOC FILE
//* CICS MQ API exit 759 UNKSBG  1756 S   .9 08-06-07      080 YES  *   DOC FILE
//* Tomiak Universe  760 SBG    22074 S 21.3 08-06-07      080 YES  *   DOC FILE
//* Baron "find" exc 761 SBG      743 S   .4 08-06-07      080 YES  *   DOC FILE
//* Tomiak null DDs  762 SBG     3053 S  1.9 08-06-07      080 YES  *   DOC FILE
//* Tomiak hex2print 763 SBG     9966 S  6.9 04-24-23      080 YES  *   DOC FILE
//* Alex Kara Utils  764 UNKSBG  3660 S  3.2 04-24-23      080 YES  *   DOC FILE
//* HTTP Forms-S.Odo 765 UNKSBG  3270 S  3.2 12-20-07      080 YES  *   DOC FILE
//* Mellon Mods JES2 766 UNKSBG 21394 S 21.8 12-25-11      080 YES  *   DOC FILE
//* TRSMAIN Frontend 767 UNKSBG   166 S   .1 12-20-07      080 YES  *   DOC FILE
//* Tape<>AWS in CMS 768 UNKSBG 18540 S 13.9 12-20-07      080 YES  *   DOC FILE
//* Code to HTMS src 769 UNKSBG 14234 S  9.7 02-09-17      080 YES  *   DOC FILE
//* z/OS Event Mgmt  770 UNKSBG  8877 S  6.9 04-29-19      080 YES  *   DOC FILE
//* ICSF Statistics  771 UNKSBG  1367 S   .9 01-18-09      080 YES  *   DOC FILE
//* Steve Bacher Utl 772 UNKSBG 57871 S 36.1 12-20-07      080 YES  *   DOC FILE
//* ISDA Dump Disasm 773 UNKSBG 83970 S109.7 12-27-09      080 YES  *   DOC FILE
//* Modified CBT973  774 UNKSBG   511 S   .3 12-20-07      080 YES  *   DOC FILE
//* CICS resp 2 HTTP 775 UNKSBG  3357 S  2.3 12-20-07      080 YES  *   DOC FILE
//* RECV390 for PC   776 UNKSBG 10448 S 11.1 12-01-19      080 YES  *   DOC FILE
//* SPDISK stor cap  777 UNKSBG   252 S   .2 12-20-07      080 YES  *   DOC FILE
//* Access SMP/E API 778 UNKSBG   476 S   .3 04-18-08      080 YES  *   DOC FILE
//* JCL Symb Substit 779 UNKSBG  5838 S  3.7 12-16-12      080 YES  *   DOC FILE
//* Panels w/o ISPF  780 UNKSBG   301 S   .2 04-18-08      080 YES  *   DOC FILE
//* RACSEQ pgm modif 781 UNKSBG  4917 S  2.8 04-02-13      080 YES  *   DOC FILE
//* AWSBROWSE windws 782 SBG    51530 S 68.5 01-18-09      080 YES  *   DOC FILE
//* PL/I Sci Subrutn 783 UNKSBG 16440 S  9.7 01-18-09      080 YES  *   DOC FILE
//* Web Page DSList  784 UNKSBG  1806 S  2.3 04-02-13      080 YES  *   DOC FILE
//* JCLSYMB pgm      785 UNKSBG   345 S   .2 01-18-09      080 YES  *   DOC FILE
//* Seprat CBTF1.zip 786 UNKSBG   144 S   .1 01-18-09      080 YES  *   DOC FILE
//* Multi Data Send  787 UNKSBG  4302 S  2.3 01-18-09      080 YES  *   DOC FILE
//* MA1K for MQ Ser  788 UNKSBG  3998 S  2.3 01-18-09      080 YES  *   DOC FILE
//* Automat SCRT rpt 789 UNKSBG  3890 S  3.2 01-15-18      080 YES  *   DOC FILE
//* Sysout Retr Serv 790 UNKSBG  9246 S  6.5 06-23-11      080 YES  *   DOC FILE
//* REXX Getm/Frmain 791 UNKSBG   264 S   .2 01-18-09      080 YES  *   DOC FILE
//* DISKMAP for EAV  792 SBG    12113 S  6.5 06-03-14      080 YES  *   DOC FILE
//* SDF mods (alpha) 793 UNKSBG  4062 S  2.8 01-18-09      080 YES  *   DOC FILE
//* RXMEM REXX funct 794 UNKSBG   381 S   .3 01-18-09      080 YES  *   DOC FILE
//* HTTP Server (@)  795 UNKSBG 56041 S 61.6 01-18-09      080 YES  *   DOC FILE
//* Mayfield Utilits 796 UNKSBG  2015 S  1.4 11-07-21      080 YES  *   DOC FILE
//* Reload Auth Tabl 797 SBG    59808 S 38.9 12-05-23      080 YES  *   DOC FILE
//* COBOL Job Schedl 798 UNKSBG 55453 S 32.9 01-18-09      080 YES  *   DOC FILE
//* SMF 30 post proc 799 UNKSBG  5343 S  4.6 12-27-09      080 YES  *   DOC FILE
//* RECEIVE for PC   800 UNKSBG  1100 S  1.4 10-27-13      080 YES  *   DOC FILE
//* XAML Bar Charts  801 UNKSBG 10566 S 13.4 07-20-22      080 YES  *   DOC FILE
//* Delinker in C    802 UNKSBG  6122 S  7.4 12-27-09      080 YES  *   DOC FILE
//* ISPF Macros-LBD  803 UNKSBG 26109 S 15.7 11-11-18      080 YES  *   DOC FILE
//* TAPEMAP - Jxx    804 SBG     5177 S  3.7 04-29-19      080 YES  *   DOC FILE
//* SNMP SubAgent    805 UNKSBG 11912 S  8.3 12-27-09      080 YES  *   DOC FILE
//* SMF 110 analysis 806 UNKSBG 27401 S 25.5 12-27-09      080 YES  *   DOC FILE
//* HFSELECT,SUPRDMP 807 UNKSBG 25815 S 20.4 12-27-09      080 YES  *   DOC FILE
//* Zip of PC UNXMIT 808 UNKSBG   610     .9 10-27-13      080    NO*   DOC FILE
//* DITTO fixed      809 UNKSBG 14056 S  8.8 12-27-09      080 YES  *   DOC FILE
//* ONSCREEN--was FM 810 UNKSBG113174 S 64.8 01-16-11      080 YES  *   DOC FILE
//* LIBRARIAN - free 811 UNKSBG 37083 S 21.3 12-27-09      080 YES  *   DOC FILE
//* DISASSEMBLER     812 UNKSBG 29138 S 16.2 12-27-09      080 YES  *   DOC FILE
//* SUTL - fixed     813 UNKSBG 12488 S  7.9 12-27-09      080 YES  *   DOC FILE
//* Old Xephon MVS   814 SBG    41720 S 55.1 08-16-10      080 YES  *   DOC FILE
//* SRCHE            815 SBG      582 S   .3 10-26-15      080 YES  *   DOC FILE
//* EMPTY SYNC # Not 816 SBG     1102 S   .9 04-24-23      080 YES  *   DOC FILE
//* FIXCATLG+        817 SBG     1267 S   .9 12-20-20      080 YES  *   DOC FILE
//* Call AMODE64     818 UNKSBG   169 S   .1 08-16-10      080 YES  *   DOC FILE
//* RACF Exit Update 819 SBG     3748 S  2.3 02-20-11      080 YES  *   DOC FILE
//* 64/20 ASM Develp 820 UNKSBG 84414 S 92.1 06-23-11      080 YES  *   DOC FILE
//* CC-Edit Macro    821 UNKSBG  6649 S  8.8 08-16-10      080 YES  *   DOC FILE
//* LPAR Capcty Tool 822 UNKSBG  3259 S  2.3 08-16-10      080 YES  *   DOC FILE
//* ISPF 6 ISRTSOA   823 SBG      756 S   .4 08-16-10      080 YES  *   DOC FILE
//* ISPF VTOC Zapper 824 UNKSBG 10910 S  6.5 08-16-10      080 YES  *   DOC FILE
//* SSL Handshake pg 825 UNKSBG  1757 S  1.4 08-16-10      080 YES  *   DOC FILE
//* TSO Canc Nonswap 826 SBG    21563 S 17.1 12-05-23      080 YES  *   DOC FILE
//* RACF Prof Utilty 827 UNKSBG  3373 S  2.3 08-16-10      080 YES  *   DOC FILE
//* DELAY program    828 UNKSBG   394 S   .3 08-16-10      080 YES  *   DOC FILE
//* TIDYASM fixed    829 SBG     1412 S  1.4 08-16-10      080 YES  *   DOC FILE
//* XEPHON MVS Updat 830 SBG   262558 S150.0 04-29-19      080 YES  *   DOC FILE
//* Dyn Concat Cmg   831 SBG     2290 S  1.9 01-15-18      080 YES  *   DOC FILE
//* Prt to TCPIP ptr 832 UNKSBG 11612 S 13.4 04-02-13      080 YES  *   DOC FILE
//* COBOL Label Aid  833 UNKSBG  2051 S  1.9 08-16-10      080 YES  *   DOC FILE
//* DSN Alloc Aid    834 SBG     3109 S  1.9 12-16-12      080 YES  *   DOC FILE
//* PPT Display Pgms 835 SBG     2268 S  1.4 04-29-19      080 YES  *   DOC FILE
//* Xephn under z/OS 836 SBG    13987 S  7.9 12-20-20      080 YES  *   DOC FILE
//* RECEIVE exits    837 UNKSBG   377 S   .3 01-16-11      080 YES  *   DOC FILE
//* DYNALC mac SVC99 838 UNKSBG 14145 S  9.3 01-16-11      080 YES  *   DOC FILE
//* Long JCL Parms   839 UNKSBG  2446 S  1.8 01-16-11      080 YES  *   DOC FILE
//* ICSF KGUP exit   840 UNKSBG   206 S   .1 01-16-11      080 YES  *   DOC FILE
//* Elim CA-Optimizr 841 UNKSBG   343 S   .2 07-06-16      080 YES  *   DOC FILE
//* Bulk XMIT by pfx 842 UNKSBG  1403 S   .9 06-23-11      080 YES  *   DOC FILE
//* Recover HSM dsns 843 UNKSBG   268 S   .2 02-20-11      080 YES  *   DOC FILE
//* ENQWATCH STC     844 UNKSBG  7713 S  9.3 06-23-11      080 YES  *   DOC FILE
//* HOSTCMD, RUNAUTH 845 UNKSBG   988 S   .9 02-20-11      080 YES  *   DOC FILE
//* TRK0xxx, EOFDISK 846 SBG     4380 S  2.8 12-05-23      080 YES  *   DOC FILE
//* COPYMODS vers-ns 847 SBG   421326 S299.0 11-07-21      080 YES  *   DOC FILE
//* LIBSPOOL         848 UNKSBG 17226 S 11.6 06-23-11      080 YES  *   DOC FILE
//* Vetter DA, DT    849 SBG     2977 S  1.9 06-23-11      080 YES  *   DOC FILE
//* RAKF for MVS 3.8 850 UNKSBG 52179 S 55.1 06-23-11      080 YES  *   DOC FILE
//* RMMCOPY 256K BLK 851 UNKSBG   756 S   .9 06-23-11      080 YES  *   DOC FILE
//* GCC C-lang 3.2.3 852 UNKS  991677 S561.9 12-01-19      080 YES  *   DOC FILE
//* GCC C-lang 3.4.6 853 UNKS 1226574 S715.5 12-01-19      080 YES  *   DOC FILE
//* Tutorial Papers  854 UNKSBG 97902 S129.6 12-25-11      080 YES  *   DOC FILE
//* DASD Sizes Excel 855 UNKSBG   487 S   .9 12-25-11      080 YES  *   DOC FILE
//* Mellon Mods 1.13 856 SBG    40879 S 42.1 06-03-14      080 YES  *   DOC FILE
//* Easy EREP report 857 SBG     6942 S  8.8 04-24-23      080 YES  *   DOC FILE
//* Clemson Macros   858 UNKSBG 22681 S 15.7 12-25-11      080 YES  *   DOC FILE
//* Clemson Source   859 UNKSBG 87612 S 62.9 12-25-11      080 YES  *   DOC FILE
//* Postpischil code 860 SBG   439386 S306.4 08-16-22      080 YES  *   DOC FILE
//* Postpischl macro 861 SBG    30111 S 21.3 12-01-19      080 YES  *   DOC FILE
//* Postpischil code 862 SBG   111122 S 99.0 12-01-19      080 YES  *   DOC FILE
//* IKJEFF10 exit    863 SBG      774 S   .9 07-08-12      080 YES  *   DOC FILE
//* UNIX shell cmds  864 UNKSBG  4528 S  6.0 04-02-13      080 YES  *   DOC FILE
//* Free zip/unzip   865 SBG    19854 S 25.0 07-08-12      080 YES  *   DOC FILE
//* BSPUFI SQL-DB2   866 UNKSBG  9093 S  6.9 12-16-12      080 YES  *   DOC FILE
//* VB FTP conv aids 867 SBG      556 S   .4 07-08-12      080 YES  *   DOC FILE
//* Disk track compr 868 SBG     4101 S  2.3 07-08-12      080 YES  *   DOC FILE
//* GETMAIN-FR trace 869 UNKSBG163926 S178.7 07-08-12      080 YES  *   DOC FILE
//* HTTP REXX script 870 UNKSBG 34182 S 44.9 07-20-22      080 YES  *   DOC FILE
//* un-XMIT PC,Andrd 871 SBG     4380 S  6.0 07-08-12      080 YES  *   DOC FILE
//* bzip2 library    872 UNKSBG  8744 S  7.4 07-08-12      080 YES  *   DOC FILE
//* ULUT UCB lookups 873 SBG     9541 S  5.6 04-24-23      080 YES  *   DOC FILE
//* CBT HELP members 874 SBG    34807 S 26.8 04-24-23      080 YES  *   DOC FILE
//* ALGOL 68C        875 UNKSBG 98513 S 93.5 04-02-13      080 YES  *   DOC FILE
//* ALGOL F - V2.1   876 UNKSBG 84793 S 56.9 04-24-23      080 YES  *   DOC FILE
//* MAKE tool&Macros 877 UNKSBG  2681 S  1.9 12-16-12      080 YES  *   DOC FILE
//* TSO BURN command 878 SBG      930 S   .5 12-16-12      080 YES  *   DOC FILE
//* TSOFIND command  879 SBG      986 S   .5 07-06-16      080 YES  *   DOC FILE
//* Manag netw dumps 880 UNKSBG170853 S134.2 12-16-12      080 YES  *   DOC FILE
//* Excel Jul Calend 881 UNKSBG  4303 S  6.0 12-16-12      080 YES  *   DOC FILE
//* JOBZDOIT automat 882 UNKSBG2 1553 S  1.4 05-17-20      080 YES  *   DOC FILE
//* Manage DFHSM sml 883 UNKSBG346104 S361.0 04-02-13      080 YES  *   DOC FILE
//* Kornelis maclib  884 UNKSBG 62826 S 44.0 05-17-20      080 YES  *   DOC FILE
//* HDISASM          885 UNKSBG 14626 S 12.0 12-20-20      080 YES  *   DOC FILE
//* Init many DASD   886 UNKSBG  1059 S   .9 04-02-13      080 YES  *   DOC FILE
//* Vetter 3.8 utils 887 UNKSBG 99142 S 62.0 04-02-13      080 YES  *   DOC FILE
//* Sys Info on HTTP 888 UNKSBG683861 S819.2 04-02-13      080 YES  *   DOC FILE
//* Herc 4.41 Win-64 889 SBG   464410 S616.5 07-20-22      080 YES  *   DOC FILE
//* SIMULA 360/370   890 UNKSBG400448 S530.9 12-05-23      080 YES  *   DOC FILE
//* REXX flwch COBOL 891 UNKSBG  1116 S   .9 10-27-13      080 YES  *   DOC FILE
//* TERSE x/systems  892 UNKSBG  5002 S  6.5 10-27-13      080 YES  *   DOC FILE
//* SMFLOG pgm       893 SBG     1342 S   .9 10-27-13      080 YES  *   DOC FILE
//* R.Zenuk execs    894 SBG     4797 S  3.2 10-27-13      080 YES  *   DOC FILE
//* STEMEDIT-R.Nowak 895 UNKSBG  4695 S  2.8 11-07-21      080 YES  *   DOC FILE
//* SHARE93 TSO tool 896 SBG    24772 S 14.3 10-27-13      080 YES  *   DOC FILE
//* SQLITE 3.8 z/OS  897 UNKSBG218922 S281.9 11-12-14      080 YES  *   DOC FILE
//* Alex Kara works  898 SBG   494484 S298.1 04-24-23      080 YES  *   DOC FILE
//* DACEE            899 SBG     7263 S  3.7 07-20-22      080 YES  *   DOC FILE
//* MD5 & SHA-1,2,5  900 SBG    18395 S  9.7 12-20-20      080 YES  *   DOC FILE
//* ASSIST assembler 901 UNKSBG 66603 S 56.9 06-03-14      080 YES  *   DOC FILE
//* Date Conv routns 902 UNKSBG  4118 S  3.2 06-03-14      080 YES  *   DOC FILE
//* Field formatting 903 UNKSBG  2343 S  1.9 06-03-14      080 YES  *   DOC FILE
//* Connect:Direct   904 UNKSBG  7879 S  4.6 06-03-14      080 YES  *   DOC FILE
//* PARMLIB into CSA 905 SBG     8059 S  5.6 04-24-23      080 YES  *   DOC FILE
//* STLSPACE command 906 SBG     3941 S  2.8 06-03-14      080 YES  *   DOC FILE
//* XMI Explorer PC  907 SBG    70627 S 93.5 06-03-14      080 YES  *   DOC FILE
//* ISPF Clien Servr 908 UNKSBG 20618 S 25.0 07-06-16      080 YES  *   DOC FILE
//* GSMAIL package   909 UNKSBG   915 S   .9 06-03-14      080 YES  *   DOC FILE
//* NoSQLz DBMS      910 UNKSBG216989 S 91.6 06-03-14      080 YES  *   DOC FILE
//* REXX prob solutn 911 SBG     3634 S  1.9 06-03-14      080 YES  *   DOC FILE
//* Don Higgins macr 912 UNKSBG 81936 S 43.0 11-12-14      080 YES  *   DOC FILE
//* SMS data-iPhone  913 UNKSBG 28917 S 25.5 11-12-14      080 YES  *   DOC FILE
//* Mellon Mods z2.1 914 UNKSBG 42197 S 43.5 11-12-14      080 YES  *   DOC FILE
//* GTZ ISPF for EAV 915 UNKSBG  1417 S   .9 11-12-14      080 YES  *   DOC FILE
//* XMIT-MGR 64-bit  916 UNKSBG  7263 S  9.7 11-12-14      080 YES  *   DOC FILE
//* SELECTIT utility 917 UNKSBG 18944 S 19.4 04-29-19      080 YES  *   DOC FILE
//* BASH 4.2.53 exec 918 UNKSBG 11450 S 43.0 11-12-14      080    NO*   DOC FILE
//* BASH 4.2.53 src  919 UNKSBG 78799 S280.9 11-12-14      080    NO*   DOC FILE
//* Generate DEFINES 920 SBG     1073 S   .9 11-12-14      080 YES  *   DOC FILE
//* ISPFDSN alloc pg 921 UNKSBG  3320 S  2.8 11-12-14      080 YES  *   DOC FILE
//* DSPACE for EAV   922 SBG     1975 S  1.4 11-12-14      080 YES  *   DOC FILE
//* SQLITE 3.8.7 por 923 UNKSBG193195 S247.2 11-12-14      080 YES  *   DOC FILE
//* LDSI             924 SBG      811 S   .4 10-26-15      080 YES  *   DOC FILE
//* ENLarge datasets 925 SBG     1431 S   .9 10-26-15      080 YES  *   DOC FILE
//* AMORT in COBOL   926 SBG     6286 S  7.4 12-05-23      080 YES  *   DOC FILE
//* PRMEVSAM         927 UNKSBG   264 S   .2 10-26-15      080 YES  *   DOC FILE
//* regex.h COBOL    928 UNKSBG  1780 S  1.4 10-26-15      080 YES  *   DOC FILE
//* REALNAME dsn pgm 929 SBG      189 S   .1 10-26-15      080 YES  *   DOC FILE
//* CALFILE support  930 SBG     2930 S  3.7 10-26-15      080 YES  *   DOC FILE
//* REXX Book Exmpls 931 SBG     1772 S  1.4 10-26-15      080 YES  *   DOC FILE
//* EBCDIC CALFILE   932 SBG   309725  155.0 10-26-15      080    NO*   DOC FILE
//* ASCII CALFILE    933 SBG    32581   47.3 10-26-15      080    NO*   DOC FILE
//* DFSORT CALFILE   934 SBG      553 S   .4 02-09-17      080 YES  *   DOC FILE
//* SQLITE 3.8.11    935 UNKSBG311308 S403.1 10-26-15      080 YES  *   DOC FILE
//* New AWK for z/OS 936 UNKSBG 12432 S 16.7 10-26-15      080 YES  *   DOC FILE
//* EMPTY            937 N/A        1   24.5 03-04-21      080 YES  *   DOC FILE
//* SSINFO           938 SBG      695 S   .4 07-06-16      080 YES  *   DOC FILE
//* PCRE Ver 2 z/OS  939 UNKSBG186450 S213.4 04-24-23      080 YES  *   DOC FILE
//* LLAPRINT         940 SBG      988 S   .9 04-24-23      080 YES  *   DOC FILE
//* Bliznets Utils   941 SBG    24163 S 24.1 11-07-21      080 YES  *   DOC FILE
//* VSAM - ISPF 3.4  942 SBG     2647 S  1.9 05-17-20      080 YES  *   DOC FILE
//* Xephon CICS      943 SBG   120979 S 70.8 07-06-16      080 YES  *   DOC FILE
//* Xephon SNA       944 SBG    23104 S 13.9 07-06-16      080 YES  *   DOC FILE
//* Xephon VSAM      945 SBG    23701 S 12.5 07-06-16      080 YES  *   DOC FILE
//* Xephon VM - SDS  946 SBG   157607 S 87.0 07-06-16      080 YES  *   DOC FILE
//* Xephon VSE       947 SBG    25043 S 14.3 07-06-16      080 YES  *   DOC FILE
//* CICS & DB2 Rexxs 948 SBG     6932 S  4.2 04-29-19      080 YES  *   DOC FILE
//* PDSUR (IEHMOVE)  949 SBG    13327 S  8.3 12-20-20      080 YES  *   DOC FILE
//* Norbert Haas Rex 950 SBG     5436 S  3.2 05-17-20      080 YES  *   DOC FILE
//* GDG Tool         951 UNKSBG  1473 S   .9 04-29-19      080 YES  *   DOC FILE
//* OS/360 Docs PDF  952 SBG    86780 S115.7 02-09-17      080 YES  *   DOC FILE
//* J.Gateley progms 953 UNKSBG 23718 S 15.7 12-05-23      080 YES  *   DOC FILE
//* CSCF alter job   954 SBG     1185 S   .9 01-15-18      080 YES  *   DOC FILE
//* z/OS RMTLOG      955 UNKSBG  5119 S  3.7 11-07-21      080 YES  *   DOC FILE
//* Dataset access   956 UNKSBG  6617 S  7.4 11-07-21      080 YES  *   DOC FILE
//* IEBUPDTX etc.    957 UNKSBG 38416 S 25.5 11-11-18      080 YES  *   DOC FILE
//* TSO RLGB tools   958 SBG     1417 S   .9 04-24-23      080 YES  *   DOC FILE
//* PARTREL pgm      959 SBG     1362 S   .9 04-24-23      080 YES  *   DOC FILE
//* Ferguson REXX    960 UNKSBG 29612 S 22.2 01-15-18      080 YES  *   DOC FILE
//* YCL Edit Macs    961 UNKSBG 10008 S  5.6 07-20-22      080 YES  *   DOC FILE
//* ISPF UNIX mount  962 UNKSBG  9070 S 10.6 01-15-18      080 YES  *   DOC FILE
//* Ferguson Dynaloc 963 UNKSBG 19897 S 16.7 01-15-18      080 YES  *   DOC FILE
//* VSAM ISPF 3.4    964 SBG     1737 S   .9 05-17-20      080 YES  *   DOC FILE
//* SQLITE 3.21.0    965 UNKSBG153975 S193.5 01-15-18      080 YES  *   DOC FILE
//* HLASM TSO promtr 966 SBG     3356 S  2.8 11-07-21      080 YES  *   DOC FILE
//* CBT ISPF Usrmods 967 UNKSBG155108 S186.5 12-05-23      080 YES  *   DOC FILE
//* PARMLIB ISRDDN   968 SBG      218 S   .1 01-15-18      080 YES  *   DOC FILE
//* PDSEGEN          969 SBG    57838 S 57.4 12-05-23      080 YES  *   DOC FILE
//* TCNVTCAT Tomiak  970 SBG     2106 S  1.4 11-11-18      080 YES  *   DOC FILE
//* EMPTYTST bat pgm 971 SBG     4340 S  3.2 11-11-18      080 YES  *   DOC FILE
//* GENIE edit macro 972 SBG   108586 S 67.6 11-11-18      080 YES  *   DOC FILE
//* WATFIV Fortran   973 UNKSBG121494 S 89.3 12-01-19      080 YES  *   DOC FILE
//* AOF - Auto Opera 974 SBG     6629 S  4.6 11-11-18      080 YES  *   DOC FILE
//* COBOL count pgm  975 UNKSBG  4144 S  1.9 11-11-18      080 YES  *   DOC FILE
//* Add user Brodcst 976 SBG      919 S   .9 04-29-19      080 YES  *   DOC FILE
//* Moshix Video URL 977 SBG      345 S   .4 12-05-23      080 YES  *   DOC FILE
//* GENIE Beta vers  978 SBG   112741 S 70.4 11-11-18      080 YES  *   DOC FILE
//* ZZSA practice pk 979 SBG   108898 S143.0 11-11-18      080 YES  *   DOC FILE
//* Zap TASID inits  980 SBG      283 S   .2 03-04-21      080 YES  *   DOC FILE
//* Zuckett Utilties 981 UNKSBG  2942 S  2.3 04-29-19      080 YES  *   DOC FILE
//* JOL Clem Clarke  982 UNKSBG299709 S238.4 04-29-19      080 YES  *   DOC FILE
//* Tomiak MSIC Inst 983 UNKSBG  5634 S  3.7 04-29-19      080 YES  *   DOC FILE
//* Tomiak REXX exec 984 UNKSBG121836 S 75.9 04-29-19      080 YES  *   DOC FILE
//* M.Lewin REXX exc 985 UNKSBG 18930 S 10.6 07-20-22      080 YES  *   DOC FILE
//* Jensen PUTLINE   986 SBG      832 S  0.4 04-29-19      080 YES  *   DOC FILE
//* Fixed VIP tools  987 SBG     1208 S  0.9 04-29-19      080 YES  *   DOC FILE
//* Metz 360 Corezap 988 UNKSBG 22538 S 15.3 12-01-19      080 YES  *   DOC FILE
//* Jensen FINDMEM   989 SBG    12923 S 13.9 12-01-19      080 YES  *   DOC FILE
//* ISPF code tricks 990 UNKSBG 10514 S  6.0 07-20-22      080 YES  *   DOC FILE
//* Temp SVC Update  991 SBG    23037 S 13.4 12-01-19      080 YES  *   DOC FILE
//* TSO code snippet 992 SBG      464 S   .3 05-17-20      080 YES  *   DOC FILE
//* COBOL Read SMF   993 UNKSBG161918 S103.7 12-01-19      080 YES  *   DOC FILE
//* LISTHEAD LISTMOD 994 SBG     3843 S  2.3 04-24-23      080 YES  *   DOC FILE
//* WYLBUR pre-XA    995 UNKSBG159982 S116.6 12-01-19      080 YES  *   DOC FILE
//* Slaten tools     996 UNKSBG226521 S136.1 04-24-23      080 YES  *   DOC FILE
//* ZIGI-ISPF GITHUB 997 UNKSBG 33851 S 19.9 12-05-23      080 YES  *   DOC FILE
//* RACFROD reportng 998 SBG    13860 S 15.7 05-17-20      080 YES  *   DOC FILE
//* CICSplex mgmt    999 UNKSBG  3928 S  5.1 12-20-20      080 YES  *   DOC FILE
//* Ed Macr Mass Ch 1000 UNKSBG  4380 S  3.2 04-24-23      080 YES  *   DOC FILE
//* Vels Rexx Execs 1001 UNKSBG  1461 S   .9 03-04-21      080 YES  *   DOC FILE
//* SMP/E Tutorials 1002 SBG    48342 S 64.3 03-04-21      080 YES  *   DOC FILE
//* Sylvester Pgms  1003 SBG     8318 S  5.6 12-05-23      080 YES  *   DOC FILE
//* PRECIS Tapemap  1004 SBG      878 S   .9 03-04-21      080 YES  *   DOC FILE
//* Sylvester ASPTS 1005 N/A    32283 S 22.7 03-04-21      080 YES  *   DOC FILE
//* Loadmod compare 1006 SBG     1139 S   .9 11-07-21      080 YES  *   DOC FILE
//* DATOC VTOC chng 1007 UNKSBG   953 S   .9 11-07-21      080 YES  *   DOC FILE
//* ISPPREP mod     1008 UNKSBG   957 S   .9 12-05-23      080 YES  *   DOC FILE
//* DB2 User Functs 1009 UNKSBG  1225 S   .9 11-07-21      080 YES  *   DOC FILE
//* Struct Macros   1010 UNKSBG  8488 S  8.3 11-07-21      080 YES  *   DOC FILE
//* SDSF exit       1011 UNKSBG  1377 S   .9 11-07-21      080 YES  *   DOC FILE
//* Sysprog thoghts 1012 SBG      142 S   .1 11-07-21      080 YES  *   DOC FILE
//* Sysprog thoghts 1013 UNKSBG   364 S   .4 11-07-21      080 YES  *   DOC FILE
//* REXX job stats  1014 UNKSBG   476 S   .3 11-07-21      080 YES  *   DOC FILE
//* multi-DB2 tool  1015 UNKSBG331680 S150.4 11-07-21      080 YES  *   DOC FILE
//* SMYERS TSO cmds 1016 SBG    22547 S 15.7 11-07-21      080 YES  *   DOC FILE
//* SMYERS Loadm anl1017 UNKSBG  3506 S  2.8 11-07-21      080 YES  *   DOC FILE
//* Super IEFACTRT  1018 UNKSBG  2741 S  1.9 11-07-21      080 YES  *   DOC FILE
//* SMYERS SMF pgms 1019 UNKSBG  7171 S  5.1 11-07-21      080 YES  *   DOC FILE
//* SMYERS XREFASM  1020 UNKSBG 10501 S 11.6 11-07-21      080 YES  *   DOC FILE
//* SMYERS EALSD095 1021 UNKSBG   795 S   .9 07-20-22      080 YES  *   DOC FILE
//* Auto IBM SCRTrpt1022 UNKSBG   646 S   .4 07-20-22      080 YES  *   DOC FILE
//* REXX XREF Report1023 UNKSBG 32049 S 26.8 07-20-22      080 YES  *   DOC FILE
//* Dymoke-Brad Util1024 UNKSBG 16711 S 22.2 07-20-22      080 YES  *   DOC FILE
//* SMYERS DSLIST   1025 UNKSBG  2843 S  2.3 07-20-22      080 YES  *   DOC FILE
//* Moseley Util Doc1026 SBG    16022 S 21.3 07-20-22      080 YES  *   DOC FILE
//* JES2 to Email   1027 UNKSBG   874 S   .9 12-05-23      080 YES  *   DOC FILE
//* Super XMIT      1028 SBG      692 S   .4 07-20-22      080 YES  *   DOC FILE
//* Gaeta RXP EXECIO1029 UNKSBG  9286 S 12.0 07-20-22      080 YES  *   DOC FILE
//* Gaeta RXSQLITE  1030 UNKSBG 82504 S107.8 07-20-22      080 YES  *   DOC FILE
//* Fix ISPF stat CF1031 SBG      895 S   .9 08-16-22      080 YES  *   DOC FILE
//* Service Subsystm1032 UNKSBG 21802 S 13.9 04-24-23      080 YES  *   DOC FILE
//* DATECALC        1033 UNKSBG  1468 S   .9 04-24-23      080 YES  *   DOC FILE
//* DSU Copy Dataset1034 UNKSBG  1652 S  1.4 04-24-23      080 YES  *   DOC FILE
//* zPIPE for z/OS  1035 UNKSBG 11359 S 13.9 04-24-23      080 YES  *   DOC FILE
//* OS360 Sort/Merge1036 UNKSBG119807 S 91.2 04-24-23      080 YES  *   DOC FILE
//* Postp disassmblr1037 UNKSBG 21439 S 17.1 04-24-23      080 YES  *   DOC FILE
//* LINKLIST add/del1038 UNKSBG   344 S   .2 04-24-23      080 YES  *   DOC FILE
//* LOOK for MVS 3.81039 SBG     1960 S  1.4 04-24-23      080 YES  *   DOC FILE
//* Clarke exec/macr1040 UNKSBG 10952 S  6.0 12-05-23      080 YES  *   DOC FILE
//* Convert to HTML 1041 UNKSBG 57574 S 69.9 04-24-23    IEBCOPY  NO*   DOC FILE
//* DEIMBED exec    1042 UNKSBG   306 S   .2 12-05-23      080 YES  *   DOC FILE
//* REXX Preprocesor1043 UNKSBG  5431 S  6.0 12-05-23      080 YES  *   DOC FILE
//* CBTXREF CBTSCAN 1044 SBG    17197 S 19.9 12-05-23      080 YES  *   DOC FILE
//* DATECONV macro  1045 UNKSBG  1097 S   .9 12-05-23      080 YES  *   DOC FILE
//* ISPPREP convert 1046 UNKSBG 11463 S 13.9 12-05-23      080 YES  *   DOC FILE
//* FINDLIBS, etc.  1047 UNKSBG  2688 S  1.9 12-05-23      080 YES  *   DOC FILE
//* EMPTY           1048 N/A        1     .0 03-03-23      080 YES  *   DOC FILE
//* EMPTY           1049 N/A        1     .0 03-03-23      080 YES  *   DOC FILE
//* EMPTY           1050 N/A        1     .0 03-03-23      080 YES  *   DOC FILE
//*       TOTAL FOOTAGE              19983.4                        *   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
//*   IEBUPDTE REMARK - BEGIN ----- >>    (from Arnie)              *   DOC FILE
//*                                                                 *   DOC FILE
//*   THE FOLLOWING APPLIES, ONLY IF YOU ARE USING IEBUPDTE TO      *   DOC FILE
//*   RELOAD A TAPE FILE.  YOU SHOULD ONLY USE PDSLOAD, NOT         *   DOC FILE
//*   IEBUPDTE, FOR THIS PURPOSE.                                   *   DOC FILE
//*                                                                 *   DOC FILE
//*    (PDSLOADW source code for PDSLOAD, is on CBT File 093)       *   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
//*   IEBUPDTE REMARK -  END  -----  <<                             *   DOC FILE
//*                                                                 *   DOC FILE
//*******************************************************************   DOC FILE
//*                                                                 *   DOC FILE
//*                   ** THE SYSUPLOG FILE **                       *   DOC FILE
//*                      --- -------- ----                          *   DOC FILE
//* --                                                           -- *   DOC FILE
//* --   *----------------------------------------------------*  -- *   DOC FILE
//* --   *  THE FOLLOWING APPLIES, ONLY IF YOU ARE RELOADING  *  -- *   DOC FILE
//* --   *  YOUR CBT TAPE FILES FROM AN ACTUAL TAPE....!!!    *  -- *   DOC FILE
//* --   *----------------------------------------------------*  -- *   DOC FILE
//* --                                                           -- *   DOC FILE
//*                                                                 *   DOC FILE
//*    SEE AN EXAMPLE OF A SYSUPLOG FILE OF EXCEPTION RECORDS,      *   DOC FILE
//*    BELOW....  (This is an actual file, from CBT File 314)       *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*    When we started packaging zip files and PDF and WORD files   *   DOC FILE
//*    by folding them over into 80-byte records, and making pds    *   DOC FILE
//*    members out of them, then LISTPDS, OFFLOAD, and PDSLOAD      *   DOC FILE
//*    started causing file integrity problems.                     *   DOC FILE
//*                                                                 *   DOC FILE
//*    This was because zip files, PDF files, .docx files and so    *   DOC FILE
//*    forth, can have random data in them (i.e. any data), and     *   DOC FILE
//*    sometimes, they can actually have the string of '><' folded  *   DOC FILE
//*    over into columns 1 and 2 of an 80-byte record.  What will   *   DOC FILE
//*    happen when PDSLOAD tries to load them back as pds members?  *   DOC FILE
//*    PDSLOAD will change the '><' string into './', causing file  *   DOC FILE
//*    corruption, and havoc.                                       *   DOC FILE
//*                                                                 *   DOC FILE
//*    So what was done?  LISTPDS and OFFLOAD were then modified    *   DOC FILE
//*    to keep a record of whenever the string '><' legitimately    *   DOC FILE
//*    occurred in a file, and it would write that record to an     *   DOC FILE
//*    output ddname called //SYSUPLOG.  For every pds member       *   DOC FILE
//*    offloaded by OFFLOAD or LISTPDS, where the string '><'       *   DOC FILE
//*    legitimately occurs in columns 1 and 2, a record is written  *   DOC FILE
//*    to the SYSUPLOG file.  When PDSLOAD tries to load a record   *   DOC FILE
//*    back, with the string '><' in columns 1 and 2, it first      *   DOC FILE
//*    checks with the SYSUPLOG file to see if the '><' was         *   DOC FILE
//*    legitimate.  IF IT WAS LEGITIMATE, it is not turned back     *   DOC FILE
//*    into './' .  In that way, file integrity is maintained.      *   DOC FILE
//*                                                                 *   DOC FILE
//*    An example layout of a real SYSUPLOG file is shown below.    *   DOC FILE
//*                                                                 *   DOC FILE
//*    How do we implement this in the CBT Tape?                    *   DOC FILE
//*    --- -- -- --------- ---- -- --- --- ----                     *   DOC FILE
//*                                                                 *   DOC FILE
//*    Whenever we use LISTPDS to package a pds and turn it into    *   DOC FILE
//*    a sequential file, we keep track of the CBT file number.     *   DOC FILE
//*    Since the SYSUPLOG output is sequential, consisting of       *   DOC FILE
//*    80-byte "exception records", each individual CBT file's      *   DOC FILE
//*    total SYSUPLOG file gets placed in a pds, which can hold     *   DOC FILE
//*    all the SYSUPLOG outputs, for all the numbered files in      *   DOC FILE
//*    the CBT Tape.  Sometimes there are no exception records      *   DOC FILE
//*    for a CBT Tape file.  Then the pds member corresponding      *   DOC FILE
//*    to that file, is a null member.                              *   DOC FILE
//*                                                                 *   DOC FILE
//*    This creates a "SYSUPLOG pds" which contains all the         *   DOC FILE
//*    exception records, grouped by which file they occurred in,   *   DOC FILE
//*    for every "pds-format" file of the CBT Tape.                 *   DOC FILE
//*                                                                 *   DOC FILE
//*    When we create the actual CBT "tape", LISTPDS produces the   *   DOC FILE
//*    SYSUPLOG file for each tape file, and dumps it into this     *   DOC FILE
//*    pds.  To preserve the pds, we OFFLOAD it to a sequential     *   DOC FILE
//*    file for you to use WHILE RELOADING FROM TAPE, and store     *   DOC FILE
//*    it, as a jobstream, in three places -- in File 007           *   DOC FILE
//*    as a sequential file, and in two members of File 008,        *   DOC FILE
//*    one called FILE007, and the other called SYSUPLOG.           *   DOC FILE
//*                                                                 *   DOC FILE
//*    If you actually have a "real CBT TAPE", as a tape, you       *   DOC FILE
//*    will need to use the SYSUPLOG pds to reload it from tape,    *   DOC FILE
//*    if that file has any exception records in it.  Otherwise,    *   DOC FILE
//*    you won't need the SYSUPLOG file.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*       ALSO, IF YOU AREN'T RELOADING A CBT FILE FROM TAPE,       *   DOC FILE
//*    BUT YOU ARE GETTING IT FROM THE WEB SITE, THEN YOU WON'T     *   DOC FILE
//*                    NEED ANY OF THIS.                            *   DOC FILE
//*                                                                 *   DOC FILE
//*         EXAMPLE OF A SYSUPLOG FILE (FOR CBT FILE 314)           *   DOC FILE
//*              (these are the exception records)                  *   DOC FILE
//*                                                                 *   DOC FILE
//*  Member   Line        First 60 bytes of the record              *   DOC FILE
//*  Name     Sequence    for eyeballing and diagnosis              *   DOC FILE
//*           Number                                                *   DOC FILE
//*  -------- ------- --------------------------------------------  *   DOC FILE
//*  TXT2HTML 0002118 >
'                  n = n + 1            *   DOC FILE
//*  TXT2PDF@ 0000816 ><΅ΗΤ Š„<   ŠΨ?„?%Φ_>ˆ₯€Τ Š„ˆ                *   DOC FILE
//*  XMITIP   0011478 >
'               /* added by aja */  *   DOC FILE
//*  XMITIP   0023813 >"_m_""_d_"");                  *   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
//*         1048 - 1050                                             *   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
//*  389   JES2 5.1.0        JACK SCHUDEL OF NERDC.                 *   DOC FILE
//*             5.2.0  ?                                            *   DOC FILE
//*                                                                 *   DOC FILE
//*  390   JES2 5.2.0        JACK SCHUDEL OF NERDC. Modernized      *   DOC FILE
//*             OS/390       for OS/390. Later than File 389.       *   DOC FILE
//*                                                                 *   DOC FILE
//*  601   MVS 3.8 JES2      Greg Price souped up from an old       *   DOC FILE
//*                          Jack Schudel version.                  *   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
//*      3521.5  VERSION 430    NOV 12, 2000  -  222,195,011   500  *   DOC FILE
//*      3595.4  VERSION 431    DEC 27, 2000  -  227,286,588   500  *   DOC FILE
//*                                                                 *   DOC FILE
//*  009 - TOTAL VERSIONS FOR 2000                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*      3718.7  VERSION 432    JAN 25, 2001  -  231,313,561   600  *   DOC FILE
//*      3866.9  VERSION 433    APR 02, 2001  -  241,758,325   600  *   DOC FILE
//*      3882.7  VERSION 434    MAY 01, 2001  -  242,777,790   600  *   DOC FILE
//*      3902.5  VERSION 435    MAY 30, 2001  -  243,964,129   600  *   DOC FILE
//*      3905.0  VERSION 436    JUN 12, 2001  -  244,103,779   600  *   DOC FILE
//*      3943.2  VERSION 437    JUL 12, 2001  -  246,740,687   600  *   DOC FILE
//*      3947.9  VERSION 438    AUG 01, 2001  -  247,075,689   600  *   DOC FILE
//*      4011.8  VERSION 439    OCT 30, 2001  -  251,129,261   600  *   DOC FILE
//*      4083.2  VERSION 440    DEC 11, 2001  -  255,753,670   600  *   DOC FILE
//*                                                                 *   DOC FILE
//*  009 - TOTAL VERSIONS FOR 2001                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*      4151.4  VERSION 441    JAN 28, 2002  -  260,517,980   600  *   DOC FILE
//*      4153.7  VERSION 442    FEB 03, 2002  -  260,658,165   600  *   DOC FILE
//*      4257.3  VERSION 443    MAR 12, 2002  -  267,902,593   600  *   DOC FILE
//*      4448.4  VERSION 444    APR 14, 2002  -  281,531,715   600  *   DOC FILE
//*      4486.3  VERSION 445    MAY 01, 2002  -  283,763,382   600  *   DOC FILE
//*      4545.4  VERSION 446    MAY 14, 2002  -  287,803,485   600  *   DOC FILE
//*      4609.8  VERSION 447    MAY 31, 2002  -  292,248,294   600  *   DOC FILE
//*      4646.8  VERSION 448    JUL 08, 2002  -  294,448,698   800  *   DOC FILE
//*      4643.1  VERSION 449    JUL 21, 2002  -  294,557,974   600  *   DOC FILE
//*      4687.2  VERSION 450    AUG 20, 2002  -  297,614,541   600  *   DOC FILE
//*      4681.9  VERSION 451    SEP 09, 2002  -  297,242,616   600  *   DOC FILE
//*      4816.1  VERSION 452    OCT 02, 2002  -  306,527,018   600  *   DOC FILE
//*      4859 6  VERSION 453    OCT 23, 2002  -  309,547,809   600  *   DOC FILE
//*      4943.2  VERSION 454    NOV 17, 2002  -  315,171,387   700  *   DOC FILE
//*      5053.8  VERSION 455    DEC 17, 2002  -  322,534,992   700  *   DOC FILE
//*                                                                 *   DOC FILE
//*  015 - TOTAL VERSIONS FOR 2002                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*      5080.3  VERSION 456    JAN 12, 2003  -  324,346,444   700  *   DOC FILE
//*      5078.4  VERSION 457    JAN 15, 2003  -  324,219,273   700  *   DOC FILE
//*      4969.8  VERSION 458    MAR 09, 2003  -  316,460,796   700  *   DOC FILE
//*      4997.3  VERSION 459    APR 21, 2003  -  318,167,704   700  *   DOC FILE
//*      5025.3  VERSION 460    JUN 15, 2003  -  320,025,694   700  *   DOC FILE
//*      4943.6  VERSION 461    JUL 17, 2003  -  314,277,499   700  *   DOC FILE
//*      4979.3  VERSION 462    SEP 15, 2003  -  316,648,264   700  *   DOC FILE
//*      5035.5  VERSION 463    NOV 27, 2003  -  320,470,078   700  *   DOC FILE
//*                                                                 *   DOC FILE
//*  008 - TOTAL VERSIONS FOR 2003                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*      4954.3  VERSION 464    FEB 05, 2004  -  316,109,020   700  *   DOC FILE
//*      5005.6  VERSION 465    MAY 02, 2004  -  319,484,340   700  *   DOC FILE
//*      4993.5  VERSION 466    JUL 25, 2004  -  324,529,505   700  *   DOC FILE
//*      5097.5  VERSION 467    NOV 15, 2004  -  331,471,207   710  *   DOC FILE
//*                                                                 *   DOC FILE
//*  004 - TOTAL VERSIONS FOR 2004                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*      5131.2  VERSION 468    FEB 14, 2005  -  333,834,382   710  *   DOC FILE
//*      5477.0  VERSION 469    JUL 17, 2005  -  357,160,519   730  *   DOC FILE
//*      5590.5  VERSION 470    DEC 28, 2005  -  364,907,237   740  *   DOC FILE
//*                                                                 *   DOC FILE
//*  003 - TOTAL VERSIONS FOR 2005                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*      5653.2  VERSION 471    FEB 28, 2006  -  368,746,641   750  *   DOC FILE
//*      5824.7  VERSION 472    SEP 25, 2006  -  380,554,517   750  *   DOC FILE
//*                                                                 *   DOC FILE
//*  002 - TOTAL VERSIONS FOR 2006                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*      5854.5  VERSION 473    JAN 14, 2007  -  382,740,261   750  *   DOC FILE
//*      6022.0  VERSION 474    AUG 06, 2007  -  394,177,932   780  *   DOC FILE
//*      6174.9  VERSION 475    DEC 20, 2007  -  404,844,783   780  *   DOC FILE
//*                                                                 *   DOC FILE
//*  003 - TOTAL VERSIONS FOR 2007                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*      6219.7  VERSION 476    APR 18, 2008  -  408,087,898   800  *   DOC FILE
//*                                                                 *   DOC FILE
//*  001 - TOTAL VERSIONS FOR 2008                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*      6504.3  VERSION 477    JAN 18, 2009  -  429,113,582   820  *   DOC FILE
//*      6976.2  VERSION 478    DEC 27, 2009  -  461,660,776   820  *   DOC FILE
//*                                                                 *   DOC FILE
//*  002 - TOTAL VERSIONS FOR 2009                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*      7387.7  VERSION 479    AUG 16, 2010  -  490,245,621   840  *   DOC FILE
//*                                                                 *   DOC FILE
//*  001 - TOTAL VERSIONS FOR 2010                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*      7418.9  VERSION 480    JAN 16, 2011  -  492,343,110   860  *   DOC FILE
//*      7545.3  VERSION 481    FEB 20, 2011  -  501,193,392   860  *   DOC FILE
//*      9260.3  VERSION 482    JUN 23, 2011  -  622,224,089   860  *   DOC FILE
//*      9518.2  VERSION 483    DEC 25, 2011  -  640,204,702   860  *   DOC FILE
//*                                                                 *   DOC FILE
//*  004 - TOTAL VERSIONS FOR 2011                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*     10308.1  VERSION 484    JUL 08, 2012  -  695,714,752   880  *   DOC FILE
//*     10795.6  VERSION 485    DEC 16, 2012  -  729,866,757   900  *   DOC FILE
//*                                                                 *   DOC FILE
//*  002 - TOTAL VERSIONS FOR 2012                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*     12663.0  VERSION 486    APR 02, 2013  -  861,476,855   900  *   DOC FILE
//*     13845.8  VERSION 487    OCT 27, 2013  -  944,998,398   900  *   DOC FILE
//*                                                                 *   DOC FILE
//*  002 - TOTAL VERSIONS FOR 2013                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*     14306.0  VERSION 488    JUN 03, 2014  -  976,580,141   920  *   DOC FILE
//*     15230.2  VERSION 489    NOV 12, 2014  - 1040,680,654   940  *   DOC FILE
//*                                                                 *   DOC FILE
//*  002 - TOTAL VERSIONS FOR 2014                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*     16102.0  VERSION 490    OCT 26, 2015  - 1101,233,674   940  *   DOC FILE
//*                                                                 *   DOC FILE
//*  001 - TOTAL VERSIONS FOR 2015                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*     16522.5  VERSION 491    JUL 06, 2016  - 1130,689,936   950  *   DOC FILE
//*     16494.0  VERSION 492    AUG 25, 2016  - 1128,627,550   960  *   DOC FILE
//*                                                                 *   DOC FILE
//*  002 - TOTAL VERSIONS FOR 2016                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*     16940.5  VERSION 493    FEB 09, 2017  - 1159,814,187   960  *   DOC FILE
//*     16960.6  VERSION 494    MAR 05, 2017  - 1161,119,711   960  *   DOC FILE
//*                                                                 *   DOC FILE
//*  002 - TOTAL VERSIONS FOR 2017                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*     17675.2  VERSION 495    JAN 15, 2018  - 1211,170,794   970  *   DOC FILE
//*     18161.8  VERSION 496    NOV 11, 2018  - 1244,658,292   980  *   DOC FILE
//*                                                                 *   DOC FILE
//*  002 - TOTAL VERSIONS FOR 2018                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*     18699.9  VERSION 497    APR 29, 2019  - 1282,149,004   990  *   DOC FILE
//*     18982.5  VERSION 498    DEC 01, 2019  - 1301,748,522   995  *   DOC FILE
//*                                                                 *   DOC FILE
//*  002 - TOTAL VERSIONS FOR 2019                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*     18527.9  VERSION 499    MAY 17, 2020  - 1269,708,096  1000  *   DOC FILE
//*     18734.1  VERSION 500    DEC 20, 2020  - 1284,146,720  1000  *   DOC FILE
//*                                                                 *   DOC FILE
//*  002 - TOTAL VERSIONS FOR 2020                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*     18918.4  VERSION 501    MAR 04, 2021  - 1296,920,833  1010  *   DOC FILE
//*     19167.7  VERSION 502    NOV 07, 2021  - 1314,122,264  1040  *   DOC FILE
//*                                                                 *   DOC FILE
//*  002 - TOTAL VERSIONS FOR 2021                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*     19718.0  VERSION 503    JUL 20, 2022  - 1352,307,823  1040  *   DOC FILE
//*     19703.0  VERSION 504    AUG 16, 2022  - 1351,230,036  1040  *   DOC FILE
//*                                                                 *   DOC FILE
//*  002 - TOTAL VERSIONS FOR 2022                                  *   DOC FILE
//*     FT(6250)                                 BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*     19911.6  VERSION 505    APR 24, 2023  - 1364,736,822  1050  *   DOC FILE
//*     19983.4  VERSION 506    DEC 05, 2023  - 1369,752,768  1050  *   DOC FILE
//*              VERSION 507                  -     ,   ,     1050  *   DOC FILE
//*                                                                 *   DOC FILE
//*                                                                 *   DOC FILE
//*-----------------------------------------------------------------*   DOC FILE
//*                                                                 *   DOC FILE
//*     FT(6250) OLD TAPE VERSIONS - ARCHIVED... BYTE COUNT         *   DOC FILE
//*--    ------                                  -----------        *   DOC FILE
//*      1963.5  VERSION 249 *  JUL 05, 1985  -  116,902,941   460  *   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)  (still not updated - 01/09)            *   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  -                     P.O. Box 906             *   DOC FILE
//*|                                       Tallman, NY 10982-0906   *   DOC FILE
//*|           email -  sbgolob@cbttape.org                         *   DOC FILE
//*|                                                                *   DOC FILE
//*| 014 120                                                        *   DOC FILE
//*| 018 035                                                        *   DOC FILE
//*| 035          see File 035 in Documentation Section             *   DOC FILE
//*| 040 097                                                        *   DOC FILE
//*| 042 043 006                                                    *   DOC FILE
//*| 043 042 006                                                    *   DOC FILE
//*| 047 424                                                        *   DOC FILE
//*| 051 050                                                        *   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
//*| 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 296 112                                *   DOC FILE
//*| 135 134 183 202 112  see File 135 in Documentation Section     *   DOC FILE
//*| 162 408                                                        *   DOC FILE
//*| 180 179                                                        *   DOC FILE
//*| 181 179                                                        *   DOC FILE
//*| 182 035 296 112 134 135                                        *   DOC FILE
//*| 183 135 492                                                    *   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
//*| 217 234 171 238-243      Disassemblers                         *   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
//*| 312 313 314       Lionel Dyck's files                          *   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
//*| 409 410                                                        *   DOC FILE
//*| 410 409                                                        *   DOC FILE
//*| 422 388   SCHEDULER PRINT                                      *   DOC FILE
//*| 424 047                                                        *   DOC FILE
//*| 426 119                                                        *   DOC FILE
//*| 453 454 455 456 457 458 459      Paul Moinil                   *   DOC FILE
//*| 460 THRU 471                     ISPF GUIDE Tape               *   DOC FILE
//*| 499 500                                                        *   DOC FILE
//*| 558 559 560 561 562 563 564 565  Dick Thornton                 *   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 was distributed on 3480 IDRC cartridges    <<< *   DOC FILE
//* >>>                        and                              <<< *   DOC FILE
//* >>>            has code that pertains to MVS                <<< *   DOC FILE
//* >>>                                                         <<< *   DOC FILE
//* >>>   Now most of the code is distributed on the Internet.  <<< *   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).  The REAL JCL is on File 008.        *   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
//*           There are also some more tools for handling this      *   FILE 001
//*           documentation, which may be found on File 006.        *   FILE 001
//*                                                                 *   FILE 001
//*           Some ancient remarks from Arnie Casinghino:           *   FILE 001
//*           (They still may be relevant.)                         *   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@cbttape.org                   *   FILE 004
//*                                                                 *   FILE 004
//*           Please see File 006 for more related tools.           *   FILE 004
//*                                                                 *   FILE 004
//***FILE 005 IS FROM GEORGE SHEDLOCK OF LOUISVILLE, KY, 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
//*                   6507 Keeling Place Road                       *   FILE 005
//*                   Louisville, KY 40291                          *   FILE 005
//*                   (352) 875-3290                                *   FILE 005
//*                                                                 *   FILE 005
//*                   email:  george@shedlock.org                   *   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
//*           To more easily run DOCFILE, so as to make sure that   *   FILE 006
//*           columns 73-80 in the File 001 documentation are       *   FILE 006
//*           correct, I have added 3 clists:  DOCFIL, DOCFILA,     *   FILE 006
//*           and DOCFILN.  DOCFIL checks columns 73-80 in          *   FILE 006
//*           the @FILEnnn member that is in the staging pds,       *   FILE 006
//*           which is named 'userid.CBTver.FILEnnn'.  DOCFILN      *   FILE 006
//*           does the same for the @FILEnnn member of the          *   FILE 006
//*           'userid.CBTDOC.PDS' dataset.  DOCFILA reads an        *   FILE 006
//*           arbitrary FILE001-format pds member, and writes       *   FILE 006
//*           an arbitrary FILE001-format member which has been     *   FILE 006
//*           fixed in columns 73-80.  I now use DOCFILX which      *   FILE 006
//*           was converted to REXX from the CLIST called DOCFILN.  *   FILE 006
//*           I currently use DOCFILX, which is a REXX exec.        *   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
//*           I don't know how many people use the INFO/MVS         *   FILE 006
//*           anymore.)                                             *   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 were 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
//*           Added GENDAT and GENDATE clists to place a time and   *   FILE 006
//*           date stamp into each CBT Tape File pds, before it     *   FILE 006
//*           is shipped.  GENCOV does the same, for files on the   *   FILE 006
//*           CBT Overflow Tape.  I currently use GENDATR for this  *   FILE 006
//*           purpose, which is a REXX written by Gabriel Gargiulo. *   FILE 006
//*                                                                 *   FILE 006
//*           Add Ron Tansky's program CBTCOPY which copies CBT     *   FILE 006
//*           File 001 into a VB dataset in order to save space.    *   FILE 006
//*           Nowadays it's debatable if this program is really     *   FILE 006
//*           needed.  But it's there for the coding example, and   *   FILE 006
//*           maybe it might be useful for someone.  This program   *   FILE 006
//*           occupied CBT File 013, which has now been freed up.   *   FILE 006
//*                                                                 *   FILE 006
//*           Gabriel Gargiulo converted the GENDAT clist to REXX.  *   FILE 006
//*           It is a little better, in that it finds the PDS117    *   FILE 006
//*           message even if it is "in the wrong place".  Thanks,  *   FILE 006
//*           Gabe.  The new REXX is called GENDATR.  GENDATR is    *   FILE 006
//*           what I personally use now, as well as DOCFILX.        *   FILE 006
//*                                                                 *   FILE 006
//*  Note.    Since we were pushing 1000 files on this tape, I was  *   FILE 006
//*           trying to consolidate files which took up file slots  *   FILE 006
//*           in the past.  I don't like to delete anything, so     *   FILE 006
//*           I put the contents of File 042 and File 043 into      *   FILE 006
//*           this file, as members KEYWORDS and KEYWORDH,          *   FILE 006
//*           respectively.                                         *   FILE 006
//*                                                                 *   FILE 006
//*           Many thanks go to Bill Godfrey, whose knowledge of    *   FILE 006
//*           the Perl language helped us to fix our website, so    *   FILE 006
//*           it can handle over 1000 files.  Thanks, Bill...!!!    *   FILE 006
//*                                                                 *   FILE 006
//***FILE 007 contains the SYSUPLOG file for this tape.             *   FILE 007
//*                                                                 *   FILE 007
//*       IMPORTANT:  (IF YOU UNLOAD A PDS FILE FROM A TAPE OR      *   FILE 007
//*       ---------    TAPE IMAGE, PLEASE READ THIS....!!!)         *   FILE 007
//*                                                                 *   FILE 007
//*           This file contains a job to create the SYSUPLOG       *   FILE 007
//*           file to correspond to each file in the CBT Tape       *   FILE 007
//*           which is a pds.  WHY DO YOU NEED THIS FILE, AND       *   FILE 007
//*           WHEN WOULD YOU NEED IT?                               *   FILE 007
//*                                                                 *   FILE 007
//*           YOU *ONLY* NEED THE SYSUPLOG FILE IF YOU UNLOAD A     *   FILE 007
//*           CBT FILE FROM A TAPE, USING THE UPDATEO PROCEDURE.    *   FILE 007
//*                                                                 *   FILE 007
//*           YOU DON'T NEED THE SYSUPLOG FILE IF YOU GET A CBT     *   FILE 007
//*           FILE FROM THE www.cbttape.org WEB SITE, OR IF YOU     *   FILE 007
//*           GET IT FROM THE DFDSS OR FDR UNLOADED DISK (TERSED).  *   FILE 007
//*                                                                 *   FILE 007
//*       EXPLANATION:                                              *   FILE 007
//*                                                                 *   FILE 007
//*           When a tape file was made from a pds, the LISTPDS     *   FILE 007
//*           program was used to sequentialize it, instead of      *   FILE 007
//*           IEBUPDTE.  The LISTPDS program now produces a         *   FILE 007
//*           SYSUPLOG pds member for each CBT pds file, that       *   FILE 007
//*           recorded all of that file's records which             *   FILE 007
//*           originally contained a string "><" in columns 1       *   FILE 007
//*           and 2.                                                *   FILE 007
//*                                                                 *   FILE 007
//*           WHY ?                                                 *   FILE 007
//*                                                                 *   FILE 007
//*           LISTPDS (like IEBUPDTE) sequentializes a pds and      *   FILE 007
//*           separates each member's data with a                   *   FILE 007
//*           ./ ADD NAME=membname   card in front of the data.     *   FILE 007
//*           But it also preserves each member's ISPF statistics,  *   FILE 007
//*           when they exist.  IEBUPDTE doesn't do that.  This     *   FILE 007
//*           is why we use LISTPDS instead of IEBUPDTE to make     *   FILE 007
//*           the CBT Tape files.                                   *   FILE 007
//*                                                                 *   FILE 007
//*           If one member itself was an IEBUPDTE-unloaded pds     *   FILE 007
//*           then LISTPDS changes IT'S ./ ADD cards to >< ADD      *   FILE 007
//*           cards.                                                *   FILE 007
//*                                                                 *   FILE 007
//*           The PDSLOAD program re-creates a pds from the         *   FILE 007
//*           LISTPDS unloaded program which created the tape.      *   FILE 007
//*           PDSLOAD re-creates the unloaded ISPF statistics.      *   FILE 007
//*           PDSLOAD can also detect when an individual pds        *   FILE 007
//*           member was itself and IEBUPDTE-unloaded pds.          *   FILE 007
//*           But PDSLOAD is not so "smart" about it, unless        *   FILE 007
//*           you have the SYSUPLOG file.                           *   FILE 007
//*                                                                 *   FILE 007
//*           See, when PDSLOAD "sees" a >< string in columns 1     *   FILE 007
//*           and 2, it assumes it came from an IEBUPDTE control    *   FILE 007
//*           card and changes the >< back to ./ .                  *   FILE 007
//*                                                                 *   FILE 007
//*           Upon reloading the files of this tape, the PDSLOAD    *   FILE 007
//*           program assumes that if a record contains the "><"    *   FILE 007
//*           string in columns 1 and 2, that it was originally a   *   FILE 007
//*           "./" string from IEBUPDTE.  And PDSLOAD changes it    *   FILE 007
//*           back.  But nowadays, sometimes "><" strings DO NOT    *   FILE 007
//*           COME from an IEBUPDTE ./ ADD card.  Nowadays, since   *   FILE 007
//*           we fold over zip files, or PDF files or WORD DOC      *   FILE 007
//*           files into FB-80 format on the tape itself, a "><"    *   FILE 007
//*           string might occur randomly, without origially        *   FILE 007
//*           coming from a changed IEBUPDTE ./ ADD card.  This     *   FILE 007
//*           could lead to very significant data integrity         *   FILE 007
//*           problems.                                             *   FILE 007
//*                                                                 *   FILE 007
//*           But, if you have the SYSUPLOG file......              *   FILE 007
//*                                                                 *   FILE 007
//*           It shows that the record origially contained "><"     *   FILE 007
//*           in columns 1 and 2.  And then, PDSLOAD will ignore    *   FILE 007
//*           the "><" string at the beginning of the record,       *   FILE 007
//*           and not change it, preserving the data integrity of   *   FILE 007
//*           that file.                                            *   FILE 007
//*                                                                 *   FILE 007
//*           So when you are reloading a CBT file from a TAPE,     *   FILE 007
//*           using the UPDATEO procedure from CBT File 003, you    *   FILE 007
//*           must supply the appropriate member of the SYSUPLOG    *   FILE 007
//*           file to the PDSLOAD program.  Otherwise, there is a   *   FILE 007
//*           data integrity problem where there may be spurious    *   FILE 007
//*           "./" strings in the data in columns 1 and 2.          *   FILE 007
//*                                                                 *   FILE 007
//*           Our SYSUPLOG file is a sequential unload of a pds     *   FILE 007
//*           in IEBUPDTE SYSIN format, with each member corres-    *   FILE 007
//*           ponding to a CBT Tape file.  If that file contained   *   FILE 007
//*           no "><" strings in columns 1 and 2 originally, then   *   FILE 007
//*           the SYSUPLOG pds member for that file will be a       *   FILE 007
//*           null member, and you won't need it for the reload.    *   FILE 007
//*                                                                 *   FILE 007
//*           The data in File 007 is sequential, and it is a       *   FILE 007
//*           job to create the SYSUPLOG partitioned dataset.       *   FILE 007
//*                                                                 *   FILE 007
//*       REMEMBER:  <<<-------                                     *   FILE 007
//*                                                                 *   FILE 007
//*           YOU DON'T NEED THE SYSUPLOG FILE IF YOU GET A CBT     *   FILE 007
//*           FILE FROM THE www.cbttape.org WEB SITE, OR IF YOU     *   FILE 007
//*           GET IT FROM THE DFDSS OR FDR UNLOADED DISK (TERSED).  *   FILE 007
//*                                                                 *   FILE 007
//*           YOU ONLY NEED THE SYSUPLOG FILE IF YOU UNLOAD A CBT   *   FILE 007
//*           FILE FROM A TAPE, USING THE UPDATEO PROCEDURE.        *   FILE 007
//*                                                                 *   FILE 007
//***FILE 008 now contains the jobs used by Sam Golob to create     *   FILE 008
//*           this tape.  This stuff (in Arnie's time) used to      *   FILE 008
//*       be part of File 001, but it was taken out by Sam Golob    *   FILE 008
//*       for lack of space.  Also, the jobs at the Connecticut     *   FILE 008
//*       Bank used different JCL than we now use.  So we are       *   FILE 008
//*       now re-inserting our JCL on the CBT Tape here in          *   FILE 008
//*       File 008, so you can get an idea about how this tape      *   FILE 008
//*       was created.  Load modules for the programs found         *   FILE 008
//*       in this JCL can be found in the member LOADLIB, which     *   FILE 008
//*       is in TSO XMIT format.  (DSN: SBGOLOB.CBTCREAT.LOAD)      *   FILE 008
//*                                                                 *   FILE 008
//*       Materials and programs which I use to package the         *   FILE 008
//*       INDIVIDUAL FILES on this tape, may be found on File 006.  *   FILE 008
//*                                                                 *   FILE 008
//*       See member $$$$NOTE which tells you that this file is     *   FILE 008
//*       not really accurate until after production of the tape    *   FILE 008
//*       version is complete.  So look on the Updates page for     *   FILE 008
//*       the ACCURATE version of this file, which was actually     *   FILE 008
//*       used to create the previous tape version.                 *   FILE 008
//*                                                                 *   FILE 008
//*      - - - - - - - - - - - - - - - - - - - - - - - - - - - -    *   FILE 008
//*      >>                                                   <<    *   FILE 008
//*      >>  Description of creating the tape and reloading   <<    *   FILE 008
//*      >>  its files to the www.cbttape.org web site:       <<    *   FILE 008
//*      >>                                                   <<    *   FILE 008
//*      - - - - - - - - - - - - - - - - - - - - - - - - - - - -    *   FILE 008
//*      *                                                     *    *   FILE 008
//*      * After the tape has been created, using the jobs     *    *   FILE 008
//*      * NEWT504*, it was then unloaded to disk, using the   *    *   FILE 008
//*      * jobs V504J** and the pds'es converted to TSO XMIT   *    *   FILE 008
//*      * format using the jobs V504X**.  All the files are   *    *   FILE 008
//*      * then FTP'ed to the PC.                              *    *   FILE 008
//*      *                                                     *    *   FILE 008
//*      * For zipping, I use WinRAR (the authentic version    *    *   FILE 008
//*      * from their web site www.rarlab.com).  And then I    *    *   FILE 008
//*      * FTP all the zipped files to the www.cbttape.org     *    *   FILE 008
//*      * web site.                                           *    *   FILE 008
//*      *                                                     *    *   FILE 008
//*      * On the PC, I rename all the zipped files from names *    *   FILE 008
//*      * FILEnnn.zip to CBTnnn.zip, with a capital "CBT".    *    *   FILE 008
//*      * These are then uploaded to the www.cbttape.org      *    *   FILE 008
//*      * web site to refill the CBT directory there.         *    *   FILE 008
//*      *                                                     *    *   FILE 008
//*      * Several tape copying and tape mapping programs      *    *   FILE 008
//*      * are used, as described in the rest of the NEWT504*  *    *   FILE 008
//*      * jobs.  The program load modules for these, have     *    *   FILE 008
//*      * been supplied in the member LOADLIB.                *    *   FILE 008
//*      *                                                     *    *   FILE 008
//*      - - - - - - - - - - - - - - - - - - - - - - - - - - - -    *   FILE 008
//*                                                                 *   FILE 008
//*        Other materials included here:                           *   FILE 008
//*                                                                 *   FILE 008
//*        Member CBTSTATS (dated CBT Version 320) contains         *   FILE 008
//*        some of Arnie's old job stats, which he recorded for     *   FILE 008
//*        his own records.  The information in this member         *   FILE 008
//*        contains the (clock time) length of his runs, exact      *   FILE 008
//*        footages, and record counts, etc.  I don't want to       *   FILE 008
//*        leave it out.  Arnie Casinghino forged the spirit        *   FILE 008
//*        of this collection, and dedicated his every extra        *   FILE 008
//*        effort to its continuance.  I had a very big act         *   FILE 008
//*        to follow, in trying to maintain and enhance Arnie's     *   FILE 008
//*        work of 15 years.  Arnie definitely set the tone         *   FILE 008
//*        for everything that you see here.                        *   FILE 008
//*                                                                 *   FILE 008
//*        Arnie's data on this file extends through Version        *   FILE 008
//*        320 of this tape.  Arnie supported this tape through     *   FILE 008
//*        Version 321.  After that point, the management of        *   FILE 008
//*        the CBT Tape was taken over by me (Sam Golob), in        *   FILE 008
//*        Sept. 1990.  My first tape version was Version 322.      *   FILE 008
//*                                                                 *   FILE 008
//*      - - - - - - - - - - - - - - - - - - - - - - - - - - - -    *   FILE 008
//*      *                                                     *    *   FILE 008
//*      *    A  C  K  N  O  W  L  E  D  G  E  M  E  N  T  S   *    *   FILE 008
//*      *                                                     *    *   FILE 008
//*      - - - - - - - - - - - - - - - - - - - - - - - - - - - -    *   FILE 008
//*                                                                 *   FILE 008
//*        I kept the tape up across an assortment of jobs,         *   FILE 008
//*        and also through the kindness of several data            *   FILE 008
//*        centers, all of whom are owed a big "thank you".         *   FILE 008
//*                                                                 *   FILE 008
//*        VERY VERY SPECIAL THANKS go to the late Gilbert          *   FILE 008
//*        Saint-flour, who left us far too soon.  Gilbert was      *   FILE 008
//*        solely responsible for providing a work platform         *   FILE 008
//*        to support the making of this tape, for at least         *   FILE 008
//*        5 years.  He owned a P/390 that he used, to run his      *   FILE 008
//*        business, and he gave me a userid on his machine         *   FILE 008
//*        so I could support the CBT Tape from there.              *   FILE 008
//*        Later on, when I was working at an MVS site in           *   FILE 008
//*        another company, the lines were always open to           *   FILE 008
//*        Gilbert's machine as well, so that everything could      *   FILE 008
//*        be preserved and none of the material ever got lost.     *   FILE 008
//*        BTW this was with written permission from that           *   FILE 008
//*        company.                                                 *   FILE 008
//*                                                                 *   FILE 008
//*        More thanks........                                      *   FILE 008
//*                                                                 *   FILE 008
//*        Also, big thanks have to go to Scott Sherer and          *   FILE 008
//*        NaSPA, for contracting to duplicate the tapes after      *   FILE 008
//*        I made the first one.  This went on for almost ten       *   FILE 008
//*        years, until we started the www.cbttape.org website      *   FILE 008
//*        at the end of 1998.  NaSPA's support began in 1989,      *   FILE 008
//*        when Arnie was still making CBT Tapes at CBT.            *   FILE 008
//*                                                                 *   FILE 008
//*        Even before Arnie's shop lost their tape drives,         *   FILE 008
//*        Scott and NaSPA were already duplicating CBT tapes       *   FILE 008
//*        at Deluxe Check Printers.  Credit goes to Marty Kuntz    *   FILE 008
//*        who worked duplicating the tapes at Deluxe.              *   FILE 008
//*                                                                 *   FILE 008
//*        Arnie's "Connecticut Bank & Trust" data center           *   FILE 008
//*        got rid of their tape drives in 1990.                    *   FILE 008
//*        (We had about 1 1/2 years' advance warning before        *   FILE 008
//*        we were obligated to completely switch over).            *   FILE 008
//*                                                                 *   FILE 008
//*        Even more special thanks go to Sam Knutson, who          *   FILE 008
//*        started the website, paid for it himself for a while,    *   FILE 008
//*        administers it, and so forth.  The fact that he put      *   FILE 008
//*        it on a reliable provider with much redundancy and       *   FILE 008
//*        almost no down time, is a great boon to someone who      *   FILE 008
//*        is doing an IPL of a new system during off hours,        *   FILE 008
//*        especially on a Sunday.                                  *   FILE 008
//*                                                                 *   FILE 008
//*        We owe a big debt of gratitude to Innovation Data        *   FILE 008
//*        Processing, the makers of FDR and other fine software    *   FILE 008
//*        products, for sponsoring the www.cbttape.org web site    *   FILE 008
//*        during much of its existence (for at least 15 or 16      *   FILE 008
//*        years by now).  Thanks to John Mazzone in particular.    *   FILE 008
//*                                                                 *   FILE 008
//*        If some tool breaks, while you are installing a new      *   FILE 008
//*        version of z/OS, you can hunt around on our site for     *   FILE 008
//*        a newer version of what broke, and the hour doesn't      *   FILE 008
//*        matter.  The credit for this convenience, goes solely    *   FILE 008
//*        to Sam Knutson.  (sknutson@cbttape.org)                  *   FILE 008
//*                                                                 *   FILE 008
//*        Many other pats on the back go to Sam Knutson, also.     *   FILE 008
//*        (This is for a lot of other stuff he does, to            *   FILE 008
//*        constantly contribute, and for his continued and         *   FILE 008
//*        continuous enthusiasm.  AND for his sessions at SHARE.)  *   FILE 008
//*                                                                 *   FILE 008
//*        Our gratitute goes out to all the other data centers     *   FILE 008
//*        which have helped me out over the years:                 *   FILE 008
//*        (I have left several of them out intentionally, but      *   FILE 008
//*        we still owe all of them a "thank you".)                 *   FILE 008
//*                                                                 *   FILE 008
//*        0-  Newsweek, Inc, of course.....                        *   FILE 008
//*             Credit goes posthumously to my boss Stan McGinley.  *   FILE 008
//*        1-  First National Bank of Toms River, NJ.               *   FILE 008
//*             Credit goes to Fred Hetzel.                         *   FILE 008
//*        2-  Jensen Research Corp.  (Credit to Eric Jensen)       *   FILE 008
//*        3-  Brooklyn College of the City of New York             *   FILE 008
//*             (To Howard Givner and the whole crew there)         *   FILE 008
//*        4-  City University of New York                          *   FILE 008
//*             (Ben Klein and Aron Eisenpress in particular.)      *   FILE 008
//*        5-  DOITT - Department of Information Technology         *   FILE 008
//*             and Telecommunications - New York City              *   FILE 008
//*             (To everyone there--a wonderful environment)        *   FILE 008
//*        6-  The Great Atlantic and Pacific Tea Company           *   FILE 008
//*             (Now also defunct. They were helpful.)              *   FILE 008
//*                                                                 *   FILE 008
//*  ===>> 7-  An extra special thank you, of the highest order,    *   FILE 008
//*             must be made to the Open Mainfram Project of the    *   FILE 008
//*             Linux Foundation who (as of September 2020) have    *   FILE 008
//*             made their IBM mainframe available to us for the    *   FILE 008
//*             purpose of software development for CBT Tape        *   FILE 008
//*             products.  Thank you to all the people there, too   *   FILE 008
//*             numerous to mention.  And thank you to all the      *   FILE 008
//*             CBT Tape contributors who are using this system     *   FILE 008
//*             to further develop their products that we are       *   FILE 008
//*             distributing here.                                  *   FILE 008
//*                                                                 *   FILE 008
//*        I worked for my father, Milton J. Golob, of blessed      *   FILE 008
//*        memory, for about a year.  During that time, I was       *   FILE 008
//*        accumulating contribution tapes (this was before         *   FILE 008
//*        the Internet) in several satchels.  My father gave       *   FILE 008
//*        me a few months off, so I could work at an MVS           *   FILE 008
//*        site and make CBT Tapes there.  Many thanks to him too!  *   FILE 008
//*        (He allowed me to accept the contract at Brooklyn        *   FILE 008
//*        College while I was still working for him.)              *   FILE 008
//*                                                                 *   FILE 008
//*        More thanks go to the many contributors of material.     *   FILE 008
//*        THE ENTIRE COLLECTION DEPENDS ON ALL OF YOU.......       *   FILE 008
//*                                                                 *   FILE 008
//*        Separate thanks go to people who help me fix things      *   FILE 008
//*        on a regular basis:  John McKown, Bill Godfrey, Greg     *   FILE 008
//*        Price, John Kalinich, Ze'ev Atlas, Gabriel Gargiulo,     *   FILE 008
//*        Roland Schiradin, Willy Jensen, Robert AH Prins, Rob     *   FILE 008
//*        Prins (two different people), and many, many others.     *   FILE 008
//*        I can't mention everybody, but many thanks go to you     *   FILE 008
//*        all...!!                                                 *   FILE 008
//*                                                                 *   FILE 008
//*        Other thanks go to people who insisted that I NOT        *   FILE 008
//*        BE ABLE TO MAKE ONE PENNY from this endeavor.  It        *   FILE 008
//*        has certainly kept the spirit of the CBT Tape up,        *   FILE 008
//*        and the costs down.  All the best of everything to       *   FILE 008
//*        all of you.  (I mean it.)  YOU KNOW WHO YOU ARE...!!     *   FILE 008
//*                                                                 *   FILE 008
//*        R.I.P. to Dave Andrews and John Hooper, my dear friends. *   FILE 008
//*               And of course to Rick Fochtman, Ken Tomiak,       *   FILE 008
//*               Gerhard Postpischil, and Eugene Vogt.             *   FILE 008
//*                                                                 *   FILE 008
//*        John Hooper is responsible for very reliable code,       *   FILE 008
//*        in CBT File 019.                                         *   FILE 008
//*                                                                 *   FILE 008
//*        Much of Gerhard's code is in CBT Files 860, 861, & 862.  *   FILE 008
//*        These are very large files, and are worth exploration.   *   FILE 008
//*                                                                 *   FILE 008
//*        You all owe Dave Andrews and his former boss, Bill       *   FILE 008
//*        Winters, for the fact that you are able to have the      *   FILE 008
//*        HLASM Assembler.  WITHOUT THEM, YOU WOULDN'T HAVE IT.    *   FILE 008
//*        Both of them have also passed on, as has John Ehrman.    *   FILE 008
//*        We have to be grateful to all of them, for their work.   *   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 Greg Price, and contains source code and      *   FILE 010
//*           a load library for his system monitor called IMON     *   FILE 010
//*           or IM.                                                *   FILE 010
//*                                                                 *   FILE 010
//*       IMON used to be a "pay product", but since Greg           *   FILE 010
//*       has no more paying customers, he has released the         *   FILE 010
//*       source code for use by anyone, but only under the         *   FILE 010
//*       conditions specified in the $$NOTICE meember of           *   FILE 010
//*       this pds.                                                 *   FILE 010
//*                                                                 *   FILE 010
//*       This program is an extremely important multi-purpose      *   FILE 010
//*       tool to have in your arsenal.  Every systems              *   FILE 010
//*       programmer should learn how to use its many parts.        *   FILE 010
//*       Previously, this marvelous program wasn't available       *   FILE 010
//*       to the public.  Now, the author has graciously given      *   FILE 010
//*       everyone access to it.                                    *   FILE 010
//*                                                                 *   FILE 010
//*       email:  greg.price@optusnet.com.au                        *   FILE 010
//*                                                                 *   FILE 010
//*       Load modules are included in XMIT format as member        *   FILE 010
//*       LOADLIB.                                                  *   FILE 010
//*                                                                 *   FILE 010
//*       JCL members are included in XMIT format as member         *   FILE 010
//*       IMONCNTL.                                                 *   FILE 010
//*                                                                 *   FILE 010
//*   Sample IMON main menu (condensed to fit in this space)        *   FILE 010
//*                                                                 *   FILE 010
//*      INTERACTIVE MONITORING PROGRAM FOR OS/390 AND z/OS         *   FILE 010
//*   ? - INVOKE THE I-MON TUTORIAL   (PF1/13)                      *   FILE 010
//*   $ - DISK SPACE DISPLAY                     I-MON              *   FILE 010
//*   @ - UNIX USER DATA BASE DISPLAY           PRIMARY             *   FILE 010
//*   A - ADDRESS SPACE MONITOR       (PF6/18)  OPTIONS             *   FILE 010
//*   B - DISPLAY BLDL AND CSVQUERY RESULTS                         *   FILE 010
//*   C - CHANNEL PATH MONITOR                                      *   FILE 010
//*   D - INPUT/OUTPUT DEVICE MONITOR (PF9/21)  USERID-----: CBT0   *   FILE 010
//*   E - RESERVE AND ENQUEUE MONITOR           TERMINAL---: TCP0   *   FILE 010
//*   G - GRAPHIC ACTIVITY MONITOR              NETWORK----: VTAM   *   FILE 010
//*   J - JOB STATUS MONITOR                    DATE-(NOW)-: 2020   *   FILE 010
//*   K - HISTORICAL KNOWLEDGE DISPLAY          DATE-(IPL)-: 2020   *   FILE 010
//*   L - SYSTEM LIBRARY DISPLAY                SYSTEM-ID--: CBT    *   FILE 010
//*   M - SYSTEM/SYSPLEX MANAGEMENT MONITOR     SYSTEM-NAME: CBT    *   FILE 010
//*   N - NUCLEUS MAP DISPLAY AND LOOKUP        SYSPLEX----: LOCA   *   FILE 010
//*   O - OS CONSOLE AND MTT MONITOR            LPAR-NAME--: TRNG   *   FILE 010
//*   P - PAGE DATA SET MONITOR                 CLONE-NAME-: BT     *   FILE 010
//*   R - RATE CPU INSTRUCTION SPEED            VM-GUEST-ID:        *   FILE 010
//*   S - SWAP DOMAIN OR SERVICE CLASS MONITOR  CONFIG-NAME: VI39   *   FILE 010
//*   T - SVC TABLE DISPLAY                     CPU-SERIAL-: 02AB   *   FILE 010
//*   U - PERFORM UNIT I/O SAMPLING             CPU-MODEL--: 3907   *   FILE 010
//*   V - VIRTUAL STORAGE MONITOR                                   *   FILE 010
//*   X - EXIT I-MON                  (PF3/15)                      *   FILE 010
//*   (C) COPYRIGHT PRYCROFT SIX PTY. LTD. 1986-2020                *   FILE 010
//*                                                                 *   FILE 010
//*   IMON originated from the old CHIMP monitor that used to be    *   FILE 010
//*   on the CBT Tape.  But:                                        *   FILE 010
//*                                                                 *   FILE 010
//*   1.  IMON works on current z/OS systems (2.4 at present)       *   FILE 010
//*   2.  IMON was originally modified to work on Fujitsu FACOM     *   FILE 010
//*        systems as well as MVS.                                  *   FILE 010
//*   3.  IMON was a vendor product, sold for pay, for a long time, *   FILE 010
//*        until now.                                               *   FILE 010
//*                                                                 *   FILE 010
//*   Don't pass up an opportunity to install this product,         *   FILE 010
//*    and use its many featues.  This product is very precious.    *   FILE 010
//*                                                                 *   FILE 010
//*   Thanks, Greg....!!!!                                          *   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 a copy of the SHARE RACF Mods Tape from Jim        *   FILE 013
//*           Blalock of Clemson University in Anderson, South      *   FILE 013
//*           Carolina.  This file is in IEBUPDTE SYSIN format.     *   FILE 013
//*           For additional information, see the members called    *   FILE 013
//*           $$$DOC AND $$INDEX.                                   *   FILE 013
//*                                                                 *   FILE 013
//*           THIS FILE HAS BEEN MOVED TO FILE 013 FROM FILE 007.   *   FILE 013
//*                                                                 *   FILE 013
//*           email:   carey@clemson.edu                            *   FILE 013
//*                                                                 *   FILE 013
//*           SETPW2 fixed to correct a bug, by Harvey Wachtel of   *   FILE 013
//*           CUNY (City University of New York).  SETPW2A added,   *   FILE 013
//*           to require some more RACF authority to reset the      *   FILE 013
//*           passwords.                                            *   FILE 013
//*                                                                 *   FILE 013
//*           email:    babybaby@uapc.cuny.edu      *   FILE 013
//*                                                                 *   FILE 013
//*           WHOIS was fixed by Don Isenstadt to allow up to       *   FILE 013
//*           8 character userids.  Old version is member WHOIS01.  *   FILE 013
//*                                                                 *   FILE 013
//*           Don Isenstadt                                         *   FILE 013
//*           Technical Specialist, IMS/DB2 DBA                     *   FILE 013
//*           Database Management and Support                       *   FILE 013
//*           Parker Hannifin Corporation                           *   FILE 013
//*           Phone: (216) 896-3067                                 *   FILE 013
//*           email: don.isenstadt@parker.com                       *   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
//*           email:  sbgolob@cbttape.org                           *   FILE 014
//*                                                                 *   FILE 014
//*           This file now contains an IEFACTRT exit that (it      *   FILE 014
//*           is believed) can replace the I/O Count system         *   FILE 014
//*           modification, on modern systems.                      *   FILE 014
//*                                                                 *   FILE 014
//*           Even better, Greg Price's IEFU83 exit (included       *   FILE 014
//*           here as member $$IEFU83), will show a lot of          *   FILE 014
//*           information as well.  See member IOCOUN$$ for         *   FILE 014
//*           more detail about this package.                       *   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
//*           SMPART2   -  COMPLETION OF THE SMPART MATERIAL.       *   FILE 014
//*                          (IT WAS THERE ALL THE TIME, BUT IT     *   FILE 014
//*                          GOT LOST IN THE SHUFFLE.)              *   FILE 014
//*                          THIS IS AN OLD ARTICLE THAT SOMEHOW    *   FILE 014
//*                          WENT MISSING FROM THIS FILE.           *   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
//*           email:  sbgolob@cbttape.org                           *   FILE 017
//*                                                                 *   FILE 017
//*           This program is a slick way to display your TSO       *   FILE 017
//*           session's file allocations.                           *   FILE 017
//*                                                                 *   FILE 017
//*           PUTLINE interface is used, so the output can be       *   FILE 017
//*           trapped.                                              *   FILE 017
//*                                                                 *   FILE 017
//*           The program was fixed to operate if SWA=ABOVE was     *   FILE 017
//*           set in the JOBCLASS(TSU) of the JES2 parms.  The      *   FILE 017
//*           old version of the program is called LISTDD00, and    *   FILE 017
//*           works when SWA is below the line, even for late       *   FILE 017
//*           level operating systems like z/OS 2.2.                *   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 Salisbury, North Carolina.     *   FILE 019
//*           This file contains a collection of his utilities.     *   FILE 019
//*                                                                 *   FILE 019
//*       It pains me to report that my dear friend John Hooper     *   FILE 019
//*       has passed away.                                          *   FILE 019
//*                                                                 *   FILE 019
//*       FLSMFDSN has been updated by Orazio Scaggion to add       *   FILE 019
//*       support for SMS classes.                                  *   FILE 019
//*                                                                 *   FILE 019
//*       email:   Orazio Scaggion     *   FILE 019
//*                                                                 *   FILE 019
//*       Please write for support to:                              *   FILE 019
//*                                                                 *   FILE 019
//*       email:   sbgolob@cbttape.org                              *   FILE 019
//*                                                                 *   FILE 019
//*                   JOHN HOOPER UTILITIES                         *   FILE 019
//*                   ---- ------ ---------                         *   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 worked in our former         *   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.  Most have been now been tested       *   FILE 019
//*    to work, at least through z/OS 1.13 and z/OS 2.3.            *   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
//*        Enhanced to show ZAAP and ZIIP specialty engine use.     *   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
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 019
//*                                                                 *   FILE 019
//*     Changes dated 08/12/05 - Peter Hunkeler (@PHUN01)           *   FILE 019
//*                                                                 *   FILE 019
//*     Entries changed:                                            *   FILE 019
//*                                                                 *   FILE 019
//*        FLSMFJOB  A new keyword CPUTIMEFRACTS was added. It      *   FILE 019
//*                  requests that hundredths of a second are       *   FILE 019
//*                  taken into account when selecting records      *   FILE 019
//*                  by CPU time and when printing CPU time values. *   FILE 019
//*                                                                 *   FILE 019
//*                                                                 *   FILE 019
//*     Changes dated 09/01/03                                      *   FILE 019
//*                                                                 *   FILE 019
//*     Entries removed:                                            *   FILE 019
//*                                                                 *   FILE 019
//*        JES$LF    This exit 5 routine was affected by the        *   FILE 019
//*                  changes that were part of z/OS 1.2.            *   FILE 019
//*                  After much discussion at our                   *   FILE 019
//*                  installation is was determined that the        *   FILE 019
//*                  effort and time to update this exit was        *   FILE 019
//*                  not worth its limited use.  We, like           *   FILE 019
//*                  most installation use IOF or SDSF to           *   FILE 019
//*                  access the jobs in the print queue.  The       *   FILE 019
//*                  operator's console is only used by the         *   FILE 019
//*                  "old timers".  We may add this back in         *   FILE 019
//*                  the future as time allows but it is            *   FILE 019
//*                  unlikely that time will ever allow.            *   FILE 019
//*                  Sorry.                                         *   FILE 019
//*                                                                 *   FILE 019
//*     Entries added:                                              *   FILE 019
//*                                                                 *   FILE 019
//*        PAGEFIX   This utility allows an installation to         *   FILE 019
//*                  effectively dynamically remove storage         *   FILE 019
//*                  from the system.  This can be either to        *   FILE 019
//*                  reserve it for some future use or to           *   FILE 019
//*                  determine the effects that a major new         *   FILE 019
//*                  application may have on paging.                *   FILE 019
//*                                                                 *   FILE 019
//*        CONSOLE   This TSO command provide a similar look        *   FILE 019
//*                  and feel as an operators console.              *   FILE 019
//*                  Several levels of security can be set to       *   FILE 019
//*                  grant varying lists of commands to be          *   FILE 019
//*                  issued.  It is typically linked into the       *   FILE 019
//*                  system as CONS so as not to be confused        *   FILE 019
//*                  with the IBM supplied CONSOLE command.         *   FILE 019
//*                                                                 *   FILE 019
//*        LISTF     This TSO command provides ANOTHER way to       *   FILE 019
//*                  list the free space for one or more disk       *   FILE 019
//*                  volumes.  The one feature that I think         *   FILE 019
//*                  sets is apart from the others is the           *   FILE 019
//*                  support for SMS STORAGE GROUP and status       *   FILE 019
//*                  without having to use ISMF.  It uses an        *   FILE 019
//*                  undocumented interface and, as such, is        *   FILE 019
//*                  subject to future failures.  It also           *   FILE 019
//*                  provides flexible selection criteria and       *   FILE 019
//*                  sort criteria.                                 *   FILE 019
//*                                                                 *   FILE 019
//*     Entries updated:                                            *   FILE 019
//*                                                                 *   FILE 019
//*        COMMAND   This utility was greatly extended.  New        *   FILE 019
//*                  commands like IFSTARTED, IFSTOPPED,            *   FILE 019
//*                  IFONLINE, IFOFFLINE, ONLINE, OFFLINE were      *   FILE 019
//*                  added as well as support for 4 digit           *   FILE 019
//*                  reply numbers.  See member $COMMAND for        *   FILE 019
//*                  details.                                       *   FILE 019
//*                                                                 *   FILE 019
//*        FLSMFCAT  Improved Y2K support was added.                *   FILE 019
//*                                                                 *   FILE 019
//*                  Updated date processing to allow               *   FILE 019
//*                  selection using several date formats           *   FILE 019
//*                  including Gregorian.                           *   FILE 019
//*                                                                 *   FILE 019
//*                  Updated date processing to allow display       *   FILE 019
//*                  in either Julian or Gregorian format.          *   FILE 019
//*                  It now defaults to displaying the date         *   FILE 019
//*                  in Gregorian format.                           *   FILE 019
//*                                                                 *   FILE 019
//*                  Time processing was improved to allow          *   FILE 019
//*                  printing across midnight.                      *   FILE 019
//*                                                                 *   FILE 019
//*        FLSMFJOB  Improved Y2K support was added.                *   FILE 019
//*                                                                 *   FILE 019
//*                  Time processing was improved to allow          *   FILE 019
//*                  printing across midnight.                      *   FILE 019
//*                                                                 *   FILE 019
//*        FLSMFDSN  Improved Y2K support was added.                *   FILE 019
//*                                                                 *   FILE 019
//*                  Added support for number of extents.           *   FILE 019
//*                                                                 *   FILE 019
//*                  Added support for VSAM statistics.             *   FILE 019
//*                                                                 *   FILE 019
//*                  Time processing was improved to allow          *   FILE 019
//*                  printing across midnight.                      *   FILE 019
//*                                                                 *   FILE 019
//*        MODLOOK   Support for dynamic linklists was added.       *   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 was gone over at the z/OS 2.1 level by Sam Golob,    *   FILE 020
//*       who made several improvements, etc.  Please see member    *   FILE 020
//*       $$NOTE01 for more detail.             (2015/08/30)        *   FILE 020
//*                                                                 *   FILE 020
//*       email:  sbgolob@cbttape.org                               *   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) 383-1167                      *   FILE 022
//*                   FAX  :    (703) 383-1168                      *   FILE 022
//*                                                                 *   FILE 022
//*           current email:    mhinva@earthlink.net                *   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 Patrick Murphy of Texas Utility Services      *   FILE 025
//*           and it contains several of their TSO commands,        *   FILE 025
//*           including their CONSOLE command that has been used    *   FILE 025
//*           in production through OS/390 2.10.  This file         *   FILE 025
//*           contains the following programs:  For additional      *   FILE 025
//*           information, see the member called $DOC.              *   FILE 025
//*                                                                 *   FILE 025
//*           email:  pmurphy1@txu.com                              *   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.                     *   FILE 028
//*                                                                 *   FILE 028
//*           THE FOLLOWING IS WHAT THIS CLIST PDS CAN DO FOR       *   FILE 028
//*           YOU.  THIS FILE IS NOW IN IEBUPDTE SYSIN FORMAT.      *   FILE 028
//*                                                                 *   FILE 028
//*           This file has now been converted to FB, LRECL=80      *   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, $$$DOC1,           *   FILE 028
//*                                      $$$DOC2 and $$$DOC3.       *   FILE 028
//*                                                                 *   FILE 028
//*       >>>>   You will have to modify these CLISTs to            *   FILE 028
//*       >>>>   generate JCL that is appropriate to run            *   FILE 028
//*       >>>>   at your installation.                              *   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
//*                 BACKUP 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 HAVE    *   FILE 028
//*                 WRITTEN ANOTHER ONE, GENPOPS, THAT ADDED THE    *   FILE 028
//*                 CAPABILITY OF DUMPING SEQUENTIAL DATASETS       *   FILE 028
//*                 AFTER DOING THE PDS'ES.                         *   FILE 028
//*                                                                 *   FILE 028
//*                 THE 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.                          *   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
//*           email:  sbgolob@cbttape.org                           *   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 IS 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 from the SHARE JES2 Committee, and contains        *   FILE 033
//*           the Year 2001 version of the SHARE JES2 Songbook,     *   FILE 033
//*           from which the songs are taken, to be sung at the     *   FILE 033
//*           famous "JES2 Sing-Along" session on Thursday night    *   FILE 033
//*           at all SHARE meetings (in the S.C.I.D.S. ballroom).   *   FILE 033
//*                                                                 *   FILE 033
//*           Every SHARE meeting, songs are added to this          *   FILE 033
//*           collection.  This collection is cumulative, and       *   FILE 033
//*           contains all the past songs, as well as recent        *   FILE 033
//*           ones.                                                 *   FILE 033
//*                                                                 *   FILE 033
//*           A plain text (EBCDIC - FB-80) version is supplied,    *   FILE 033
//*           as member JESSONG in this pds.                        *   FILE 033
//*                                                                 *   FILE 033
//*           Now the 2004 version of the JES2 songbook is          *   FILE 033
//*           included in MSWORD format.....  (Member SONG2004.)    *   FILE 033
//*                                                                 *   FILE 033
//*           And the 2009 version of the JES2 songbook is also     *   FILE 033
//*           included in MSWORD format.....  (Member SONG2009.)    *   FILE 033
//*           Thanks to Helen Seren.                                *   FILE 033
//*                                                                 *   FILE 033
//*             *** + ***   -----------------   *** + ***           *   FILE 033
//*             *** + ***                       *** + ***           *   FILE 033
//*             *** + ***       S H A R E       *** + ***           *   FILE 033
//*             *** + ***                       *** + ***           *   FILE 033
//*             *** + ***   JES2  SONG  BOOK    *** + ***           *   FILE 033
//*             *** + ***                       *** + ***           *   FILE 033
//*             *** + ***   -----------------   *** + ***           *   FILE 033
//*                                                                 *   FILE 033
//*           We gratefully acknowledge all members, past and       *   FILE 033
//*           present, of the SHARE JES2 Committee, who have        *   FILE 033
//*           contributed to collecting this magnificent and        *   FILE 033
//*           growing volume of beautiful and instructive           *   FILE 033
//*           songs, whose words echo in our ears, from one         *   FILE 033
//*           SHARE meeting to the next.                            *   FILE 033
//*                                                                 *   FILE 033
//*           Also, we acknowledge gratefully, all of the           *   FILE 033
//*           talented song writers, who have sublimated their      *   FILE 033
//*           computer skills and other capabilities, into          *   FILE 033
//*           producing these inimitable gems....                   *   FILE 033
//*                                                                 *   FILE 033
//*           And we acknowledge the talented piano players of      *   FILE 033
//*           the generations, past and present....                 *   FILE 033
//*                                                                 *   FILE 033
//*           (Ah, Anne Caluori is good.... )                       *   FILE 033
//*                                                                 *   FILE 033
//*           And the projectionists--who have to proceed,          *   FILE 033
//*           at the proper speed....                               *   FILE 033
//*                                                                 *   FILE 033
//*           And the paddle wavers.  Thanks, Bob Rannie....        *   FILE 033
//*                                                                 *   FILE 033
//*           Nothing beats being there in person !!!!!!            *   FILE 033
//*                                                                 *   FILE 033
//*                       Helen Seren                               *   FILE 033
//*               email:  helen.seren@gmail.com                     *   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
//*       Short explanation and note about load module CBT Tape     *   FILE 035
//*       files:  (This is a "technology update".)                  *   FILE 035
//*                                                                 *   FILE 035
//*           Way back in time, before the TSO XMIT (TRANSMIT)      *   FILE 035
//*           command became popular, in the ancient days of the    *   FILE 035
//*           pre-1990's, it was necessary to include separate      *   FILE 035
//*           load module libraries on the CBT Tape, because an     *   FILE 035
//*           IEBCOPY unload of a load module file with RECFM=U     *   FILE 035
//*           was not compatible with RECFM=FB, LRECL=80 card-image *   FILE 035
//*           files, that most source programs are formatted with.  *   FILE 035
//*           Therefore, on the tape, if we wanted to distribute    *   FILE 035
//*           load modules, we had to make a separate file for      *   FILE 035
//*           source code and a separate file for load modules.     *   FILE 035
//*                                                                 *   FILE 035
//*           But now, that a load module library can be put into   *   FILE 035
//*           TSO XMIT format, which is FB-80 card image format,    *   FILE 035
//*           load modules can be included in the same file where   *   FILE 035
//*           source code is distributed.  So this development has  *   FILE 035
//*           lessened the need for separate load module files on   *   FILE 035
//*           the CBT Tape.  Load module libraries can now exist    *   FILE 035
//*           on a "source code file" as a member, which is a real  *   FILE 035
//*           load library in TSO XMIT format (FB-80)!              *   FILE 035
//*                                                                 *   FILE 035
//*           Nevertheless, this load module file has been here     *   FILE 035
//*           on the tape, and it includes many varied programs     *   FILE 035
//*           from many sources, from time immemorial.  This        *   FILE 035
//*           file provides a convenient place from which to        *   FILE 035
//*           install many programs.  Therefore, I've decided that  *   FILE 035
//*           rather than reduce the size of this file or eliminate *   FILE 035
//*           it altogether, I'm actually going to expand it, even  *   FILE 035
//*           though some of its load modules can be found in       *   FILE 035
//*           other places and in other CBT Tape files.             *   FILE 035
//*                                                                 *   FILE 035
//*       The following is a list of most of the programs in this   *   FILE 035
//*       library, and where their original source code is.         *   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
//*             006  SOURCE           DOCFILE - cols 73-80 of this  *   FILE 035
//*                                            documentation        *   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
//*             046  SOURCE           PACKRAT, PACKRATU - dataset   *   FILE 035
//*                                    scratch/uncat on disk packs  *   FILE 035
//*             068  SOURCE           TSTVS - Console FB-80 editor  *   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
//*             133  SOURCE           LOGTIME (time of this LOGON)  *   FILE 035
//*             133  SOURCE           LASTCLPA                      *   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           PDS86 - PDS Vers 8.6 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
//*             182  SOURCE           PDS86I - PDS 8.6 genned with  *   FILE 035
//*                                    European dates.              *   FILE 035
//*             182  SOURCE           PDSORIG - Old original PDS    *   FILE 035
//*                                    program from ancient times.  *   FILE 035
//*             183  SOURCE           FASTPATH - Quick ISPF updates *   FILE 035
//*             183  SOURCE           FASTP149 - FASTPATH previous  *   FILE 035
//*                                              release            *   FILE 035
//*             193  SOURCE           TCOPY - Tape copying utility  *   FILE 035
//*             200  SOURCE           WHATSNEW - in a load library  *   FILE 035
//*             218  SOURCE           VSAMMAPP                      *   FILE 035
//*             229  SOURCE           COPYFILE - copies SL tape fls *   FILE 035
//*             229  SOURCE           COPYSLNL - copies SL to NL    *   FILE 035
//*             229  SOURCE           COPYNLNL - copies NL to NL    *   FILE 035
//*             229  SOURCE           IGG019WD - with COPYFILE      *   FILE 035
//*             229  SOURCE           IGG019WE - with COPYFILE      *   FILE 035
//*             229  SOURCE           COPYMODS - souped up version  *   FILE 035
//*                                    with much extra capability   *   FILE 035
//*             229  SOURCE           CKIEBGEN (SBG version of      *   FILE 035
//*                                    Baldomero Castilla's QSAM    *   FILE 035
//*                                    GET-PUT file copy program)   *   FILE 035
//*             264  SOURCE           LOOK (see what's in storage)  *   FILE 035
//*                                    Latest version doesn't get   *   FILE 035
//*                                    user-key CSA, but it must    *   FILE 035
//*                                    run APF-authorized.          *   FILE 035
//*             264  SOURCE           LOOKN - 64-bit version of     *   FILE 035
//*                                           LOOK program. Must    *   FILE 035
//*                                           run APF-authorized.   *   FILE 035
//*             264  SOURCE           UKEYCSA (APF-authorized)      *   FILE 035
//*                                    (allow/not Key-8 CSA)        *   FILE 035
//*                                    (UKEYCSA Y is needed for     *   FILE 035
//*                                    the LOOK command to run,     *   FILE 035
//*                                    for z/OS 1.8 and higher.)    *   FILE 035
//*             266  SOURCE           SS0104 tape mapping program   *   FILE 035
//*                                    (used to determine footages) *   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
//*                                   Compiled w/PL/1 Optimizer 131 *   FILE 035
//*             294  SOURCE           VSAMSIZE  VSAMANAL            *   FILE 035
//*             296  SOURCE           BLKDISK BLK3380 BLK3390       *   FILE 035
//*             296  SOURCE           BLK3375 BLK9345 BLK3350       *   FILE 035
//*             296  SOURCE           DSAT                          *   FILE 035
//*             296  SOURCE           DVOL                          *   FILE 035
//*             296  SOURCE           COMPARE                       *   FILE 035
//*             296  SOURCE           COMPARE$ alias of COMPARE     *   FILE 035
//*             296  SOURCE           COMPAREB                      *   FILE 035
//*             296  no source        COMPAREC from Serena Inc.     *   FILE 035
//*                                      PDS interface to SUPERC    *   FILE 035
//*                    see member COMXMIT in File 182               *   FILE 035
//*             296  no source        COMPAREW from Serena Inc.     *   FILE 035
//*                                      PDS interface to COMPAREX  *   FILE 035
//*                    see member COMXMIT in File 182               *   FILE 035
//*             296  SOURCE           RELEASE                       *   FILE 035
//*             296  SOURCE           RESET                         *   FILE 035
//*             296  SOURCE           XEQ                           *   FILE 035
//*             299  SOURCE           TAPEMAP & TAPEMAPO            *   FILE 035
//*             300  SOURCE           CDSCB                         *   FILE 035
//*             300  SOURCE           CPSCB                         *   FILE 035
//*             300  SOURCE           DUSER    - Displays TSO users *   FILE 035
//*                                              logged on, with    *   FILE 035
//*                                              their asid.        *   FILE 035
//*             300  SOURCE           LASTIPL                       *   FILE 035
//*             300  SOURCE           LPSCB                         *   FILE 035
//*             316  SOURCE           LISPDS (really LISTPDS)       *   FILE 035
//*             316  SOURCE           TAPEL - used with COPYFILE    *   FILE 035
//*             357  SOURCE           PDSMATCH - Compare 2 PDS dirs *   FILE 035
//*             365  SOURCE           OSTAREDC - OSTARXMT error     *   FILE 035
//*                                     checking assembler program  *   FILE 035
//*             423  SOURCE           LISTHEAD - Display headers of *   FILE 035
//*                                              load modules. Plus *   FILE 035
//*                                              hex display of its *   FILE 035
//*                                              first 300 bytes.   *   FILE 035
//*             533  SOURCE           VTT2DISK - Real Tape to FB-80 *   FILE 035
//*                                              AWS format disk.   *   FILE 035
//*             533  SOURCE           VTT2TAPE - AWS format FB-80   *   FILE 035
//*                                              disk to Real Tape. *   FILE 035
//*             541  SOURCE           CCKDDUMP - Disk to cckd fmt   *   FILE 035
//*             541  SOURCE           CCKDLOAD - Load from cckd fmt *   FILE 035
//*             566  SOURCE           APFLIST  - list APF libraries *   FILE 035
//*             566  SOURCE           ZAPDSCB  - Full screen change *   FILE 035
//*                                              for VTOC entries   *   FILE 035
//*             690  SOURCE           XMDSMAIN - browse virtual     *   FILE 035
//*                                               storage           *   FILE 035
//*             731  SOURCE           CINMX    - change XMIT and    *   FILE 035
//*                                               RECEIVE settings  *   FILE 035
//*                                   DTEST    - display TSO TEST   *   FILE 035
//*                                               PARMLIB settings  *   FILE 035
//*                                   LOADTEST - batch program to   *   FILE 035
//*                                               change them       *   FILE 035
//*                                   INMXD    - display XMIT and   *   FILE 035
//*                                               RECEIVE settings  *   FILE 035
//*                                   ADIS     - display public     *   FILE 035
//*                                               (PARMLIB) TSO     *   FILE 035
//*                                               "auth tables"     *   FILE 035
//*                                   EESCB    - display current    *   FILE 035
//*                                               Broadcast Dataset *   FILE 035
//*                                               status, and more  *   FILE 035
//*                                   LOGOPTS  - flip on/off bits   *   FILE 035
//*                                               controlled by     *   FILE 035
//*                                               IKJTSOxx LOGON    *   FILE 035
//*                                               parameter         *   FILE 035
//*                                   RECONLIM - display or change  *   FILE 035
//*                                               TCAS RECONLIM     *   FILE 035
//*                                               value, on the fly *   FILE 035
//*                                   SHOWTCAS - display and format *   FILE 035
//*                                               TCAS control blk. *   FILE 035
//*                                               APF-authorized    *   FILE 035
//*                                               because data is   *   FILE 035
//*                                               fetch-protected   *   FILE 035
//*                                   SHOWTPVT - display and format *   FILE 035
//*                                               TPVT control blk. *   FILE 035
//*                                               Not documented by *   FILE 035
//*                                               IBM               *   FILE 035
//*                                   UCBDASD  - display real UCB   *   FILE 035
//*                        (File 873) ULUDASD     DASD info, cyls,  *   FILE 035
//*                                               etc. Not APF-auth *   FILE 035
//*                                   UCBTAPE  - display real UCB   *   FILE 035
//*                        (File 873) ULUTAPE     TAPE info, with   *   FILE 035
//*                                               pending mounts.   *   FILE 035
//*                                               Not APF-authorizd *   FILE 035
//*                                   USERMAX  - display or change  *   FILE 035
//*                                               TCAS USERMAX      *   FILE 035
//*                                               value, on the fly *   FILE 035
//*             792  SOURCE           DISKMAP  - map DASD volume    *   FILE 035
//*                                               EAV capable.      *   FILE 035
//*             797  SOURCE           TSUB     - Reload and change  *   FILE 035
//*                                   LLWA     - your TSO session's *   FILE 035
//*                                   LWATMGR  - "auth tables"      *   FILE 035
//*                                   LWATEDIT - edit auth tables   *   FILE 035
//*             816  SOURCE           BDMNNOTC - Change default #   *   FILE 035
//*                                              of Global Notices  *   FILE 035
//*                                              in SYS1.BRODCAST   *   FILE 035
//*                                              produced by        *   FILE 035
//*                                              ACCOUNT/SYNC.      *   FILE 035
//*             826  SOURCE           CNCLPG   - Make address space *   FILE 035
//*                                              cancelable or      *   FILE 035
//*                                              non-cancelable,    *   FILE 035
//*                                              non-swappable or   *   FILE 035
//*                                              swappable. BURN an *   FILE 035
//*                                              address space.     *   FILE 035
//*             846  SOURCE           ONLCLIP  - Change the volser  *   FILE 035
//*                                              of a disk pack,    *   FILE 035
//*                                              while it is online.*   FILE 035
//*                                              IPL text is not    *   FILE 035
//*                                              affected.          *   FILE 035
//*             949  SOURCE           PDSUR    - IEHMOVE substitute *   FILE 035
//*                                              good for sequenti- *   FILE 035
//*                                              alization of pds's *   FILE 035
//*             994  SOURCE           LISTMOD  - Hex Dump an entire *   FILE 035
//*                                              load module, or    *   FILE 035
//*                                              alternatively      *   FILE 035
//*                                              from its entry pt  *   FILE 035
//*                                              till the end.      *   FILE 035
//*                                              Display in hex     *   FILE 035
//*                                              75 bytes wide.     *   FILE 035
//*                                              This is more use-  *   FILE 035
//*                                              ful than LISTMODD. *   FILE 035
//*             994  SOURCE           LISTMODD - Hex Dump an entire *   FILE 035
//*                                              load module, or    *   FILE 035
//*                                              alternatively      *   FILE 035
//*                                              from its entry pt  *   FILE 035
//*                                              till the end.      *   FILE 035
//*                                              Display in decimal *   FILE 035
//*                                              112 bytes wide.    *   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, OF BLESSED     *   FILE 036
//*           MEMORY, WHO WAS A GENIUS.  THIS UTILITY RESURRECTS    *   FILE 036
//*           DELETED MEMBERS OF A PDS, BUT IT DOES SO WITHOUT      *   FILE 036
//*           USING THE DIRECTORY.  THIS FILE IS IN IEBUPDTE SYSIN  *   FILE 036
//*           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
//*           Please note that this program was written around      *   FILE 036
//*           1983 or before that, and HLASM didn't exist then.     *   FILE 036
//*           A few changes in the ASMLINK member had to be made,   *   FILE 036
//*           and they are in the new member ASMLINKS.  Same with   *   FILE 036
//*           ABEND designations in some of the source code.        *   FILE 036
//*           Thanks to Bandit Chansongserm of IBM Thailand for     *   FILE 036
//*           picking these changes up.  ASMLINKS JCL was written   *   FILE 036
//*           for a z/OS 2.4 system, and using HLASM for the        *   FILE 036
//*           install.                                              *   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.              *   FILE 036
//*           FIXPDS IS ESPECIALLY HELPFUL WHEN THE PDS DIRECTORY   *   FILE 036
//*           IS NOT RELIABLE.     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
//*                email:  larryw@ix.netcom.com                     *   FILE 038
//*                                                                 *   FILE 038
//***FILE 039 is partially from Citibank in New York, and           *   FILE 039
//*           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.                                  *   FILE 039
//*                                                                 *   FILE 039
//*       $$IPODOC member with detailed doc on how to use           *   FILE 039
//*       IPOUPDTE, if you have it.                                 *   FILE 039
//*                                                                 *   FILE 039
//*       The RCNVTCAT REXX which effectively replaces MCNVTCAT,    *   FILE 039
//*       has been copied here from CBT File 542.                   *   FILE 039
//*                                                                 *   FILE 039
//*       Fixed RCNVTCAT to correctly generate DEF ALIAS            *   FILE 039
//*       statements (per Bob Richards).                            *   FILE 039
//*                                                                 *   FILE 039
//*       email:  sbgolob@cbttape.org                               *   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 John Bradley and contains set of reporting    *   FILE 042
//*           utilities and general manipulation code for Connect   *   FILE 042
//*           Direct z/OS Statistics File contents.                 *   FILE 042
//*                                                                 *   FILE 042
//*           keywords:  Connect:Direct                             *   FILE 042
//*                                                                 *   FILE 042
//*           email:  john.bradley@meerkatcomputerservices.com      *   FILE 042
//*                                                                 *   FILE 042
//* The contents of the file were created for two purposes.         *   FILE 042
//*                                                                 *   FILE 042
//* 1. SMF exit was developed so statistics records could be        *   FILE 042
//*    directed to SMF so all required records could be maintained  *   FILE 042
//*    in similar manner to our other SMF records.                  *   FILE 042
//*                                                                 *   FILE 042
//* 2. We found many of our customers did not have their            *   FILE 042
//*    statistics files and recording set up adequately and they    *   FILE 042
//*    had no insight as to what Connect Direct itself was doing    *   FILE 042
//*    in writing statistics and what transfers and data were       *   FILE 042
//*    being undertaken each day.                                   *   FILE 042
//*                                                                 *   FILE 042
//*    I developed the various jobs and reports to allow            *   FILE 042
//*    customers to adhoc monitor and manage statistics to          *   FILE 042
//*    assist in performance and problem determination, to allow    *   FILE 042
//*    pro-active performance monitoring of the statistics files,   *   FILE 042
//*    statistics creation and general product performance and      *   FILE 042
//*    to schedule jobs to produce KPIs for management.             *   FILE 042
//*                                                                 *   FILE 042
//*    As well as the above there are some very good examples of    *   FILE 042
//*    how to use DFSORT and ICETOOL to avoid programming in REXX,  *   FILE 042
//*    Assembler or a High Level Lanaguage for report production.   *   FILE 042
//*                                                                 *   FILE 042
//***FILE 043 is from Lionel Dyck and contains an exec called       *   FILE 043
//*           CBT, which provides easy access to all CBT Tape       *   FILE 043
//*           files, provided they are cataloged on your system     *   FILE 043
//*           and on disk, and their dataset names have a           *   FILE 043
//*           consistent format.  If a CBT Tape file is not on      *   FILE 043
//*           your local DASD, the dialog provides an option        *   FILE 043
//*           to download the file from the CBTtape.org site to     *   FILE 043
//*           your local DASD.                                      *   FILE 043
//*                                                                 *   FILE 043
//*           Execute $INSTALL to install into a new dataset,       *   FILE 043
//*           replace an existing dataset, or *update* an existing  *   FILE 043
//*           dataset.                                              *   FILE 043
//*                                                                 *   FILE 043
//*           email:  lbdyck@gmail.com                              *   FILE 043
//*                                                                 *   FILE 043
//*       Included with this package is an exec called CBTSRCH      *   FILE 043
//*       provided by Willy Jensen. It may be called by itself,     *   FILE 043
//*       or invoked as the Enhanced Search (ES) within the CBT     *   FILE 043
//*       dialog.                                                   *   FILE 043
//*                                                                 *   FILE 043
//*           email:        willy.h.jensen@outlook.com              *   FILE 043
//*           website:      http://harders-jensen.com/wjtech        *   FILE 043
//*                                                                 *   FILE 043
//*       This package also utilizes Dave Alcock's XMITINFO         *   FILE 043
//*       exec (File 311). It is used to determine the DCB of       *   FILE 043
//*       the XMIT file so that the CBT exec can set an optimal     *   FILE 043
//*       BLKSIZE during the RECEIVE process.                       *   FILE 043
//*                                                                 *   FILE 043
//*       CBT Tape FILE001 is required for this application to      *   FILE 043
//*       run, but if it isn't available, the application will      *   FILE 043
//*       attempt to FTP the file to your local DASD for use.       *   FILE 043
//*       This is then used to build an index of all files          *   FILE 043
//*       for quick access, allowing the user to determine if       *   FILE 043
//*       they want to download the specific file.                  *   FILE 043
//*                                                                 *   FILE 043
//*       An option is also provided to check for file updates      *   FILE 043
//*       and then to download the updated files.                   *   FILE 043
//*                                                                 *   FILE 043
//*       Note: This is another option:                             *   FILE 043
//*       By downloading the tersed backup files of the disk        *   FILE 043
//*       CBTA01 from the CBT website www.cbttape.org               *   FILE 043
//*                                                                 *   FILE 043
//* =============================================================== *   FILE 043
//*  ONLINE Forum                                                   *   FILE 043
//* =============================================================== *   FILE 043
//*                                                                 *   FILE 043
//*       If you'd like to join an online forum to discuss all      *   FILE 043
//*       things CBT use this link to join the System Z Enthusiasts *   FILE 043
//*       Discord server and find the 'cbttape' channel.            *   FILE 043
//*                                                                 *   FILE 043
//*       https://discord.gg/hxRhtu8KnW                             *   FILE 043
//*                                                                 *   FILE 043
//* =============================================================== *   FILE 043
//*                                                                 *   FILE 043
//*       NAME       VER.MOD   LAST MODIFIED     SIZE   ID          *   FILE 043
//*       $$README    01.64   2023/09/18 10:19    316 CBT           *   FILE 043
//*       $INSTALL    01.37   2022/04/21 07:05    134 CBT           *   FILE 043
//*       $INSTALP    01.05   2021/12/28 06:53     44 CBT           *   FILE 043
//*       CBT         01.85   2023/09/21 07:10   3768 CBT           *   FILE 043
//*       CBTCONFG    01.13   2023/08/07 09:07     53 CBT           *   FILE 043
//*       CBTDOWN     01.14   2021/11/10 08:16    276 CBT           *   FILE 043
//*       CBTDOWNJ    01.00   2021/04/10 10:58     12 CBT           *   FILE 043
//*       CBTSRCH     01.18   2021/08/12 06:07   1116 CBT           *   FILE 043
//*       CBTSRCH$    01.02   2021/05/01 05:26     63 CBT           *   FILE 043
//*       CBTVIEW     01.01   2021/11/29 11:25     25 CBT           *   FILE 043
//*       UNZIPL      01.00   2021/04/07 03:33    761 CBT           *   FILE 043
//*       UNZIPXMI    01.01   2021/05/10 20:05   3272 CBT           *   FILE 043
//*       XMITINFO    01.01   2022/04/20 09:20    959 CBT           *   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
//*           Author:  Howard Gilbert                               *   FILE 044
//*                                                                 *   FILE 044
//*           A designation of GILBERT here, refers to Howard       *   FILE 044
//*           Gilbert of Yale University, and not to anyone else.   *   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 044
//*                                                                 *   FILE 044
//*           Gerhard Postpischil made a rework of ASMTOZAP in      *   FILE 044
//*           Assembler.  I have called it ASMTOZAG in this pds.    *   FILE 044
//*           ASMTOZAG needs the member SUBLPALK to be assembled    *   FILE 044
//*           along with it, and it needs 33 macros (member         *   FILE 044
//*           ASMTOMAC) to assemble cleanly.  The entire job has    *   FILE 044
//*           been packaged as member ASMTOZA$ (Assembly-Linkedit   *   FILE 044
//*           JCL).  I myself haven't tested it, so I can't vouch   *   FILE 044
//*           for it.  But it's presented here for you to try.      *   FILE 044
//*           Original materials came from CBT files 860 and 861.   *   FILE 044
//*                                                                 *   FILE 044
//*           email:  gerhard@postpischil.com                       *   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.                   *   FILE 046
//*                                                                 *   FILE 046
//*           As originally written, this program has been used     *   FILE 046
//*           on 3330, 3350, 3380, and 3390 devices.  It has been   *   FILE 046
//*           run under MVS/SP 1.3, MVS/XA, and MVS/ESA, and it     *   FILE 046
//*           stopped working on z/OS, but it was still working     *   FILE 046
//*           on OS/390 v2.10.  PACKRAT has now been fixed to       *   FILE 046
//*           work on z/OS in two ways:                             *   FILE 046
//*                                                                 *   FILE 046
//*           z/OS with UCBSCAN - members PACKRATZ and BACKENDZ     *   FILE 046
//*                                                                 *   FILE 046
//*           z/OS with ULUT    - members PACKRATU and BACKENDU     *   FILE 046
//*                                                                 *   FILE 046
//*           Assembly with UCBSCAN - member PACKRAT$               *   FILE 046
//*                                                                 *   FILE 046
//*           Assembly with ULUT    - member PACKRAT#               *   FILE 046
//*                                                                 *   FILE 046
//*           To assemble PACKRAT, you need to assemble two         *   FILE 046
//*           modules, PACKRAT and BACKEND, together in a batch     *   FILE 046
//*           assembly.  For OS/390 and z/OS, use the combination   *   FILE 046
//*           of PACKRATZ and BACKENDZ, or PACKRATU and BACKENDU.   *   FILE 046
//*           The respective assembly jobs are PACKRAT$ and         *   FILE 046
//*           PACKRAT#.                                             *   FILE 046
//*                                                                 *   FILE 046
//*           PACKRAT has now been fixed to work on z/OS in 2       *   FILE 046
//*           different ways.  For all z/OS levels, you can use     *   FILE 046
//*           members PACKRATZ and BACKENDZ.  Member PACKRAT$ is    *   FILE 046
//*           one sample assembly job for the z/OS version of       *   FILE 046
//*           PACKRAT.  (A big "thank you" goes to the person who   *   FILE 046
//*           fixed this program to work under z/OS.  He got a      *   FILE 046
//*           good tool back for us.)                               *   FILE 046
//*                                                                 *   FILE 046
//*           I'm quite sure that PACKRAT does not need to be       *   FILE 046
//*           run APF-authorized.  But it is true that whoever      *   FILE 046
//*           runs PACKRAT has to have TSO OPER authorization       *   FILE 046
//*           (in the PSCB, not in RACF).                           *   FILE 046
//*                                                                 *   FILE 046
//*           - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 046
//*                                                                 *   FILE 046
//*           A different version of PACKRAT, called PACKRATU       *   FILE 046
//*           here, uses a different method of UCB scanning in      *   FILE 046
//*           its BACKEND module, which is called BACKENDU.         *   FILE 046
//*           This method works from ESA 5.2.2 thru at least z/OS   *   FILE 046
//*           2.2.  Below ESA 5.2.2, BACKENDU uses the older        *   FILE 046
//*           methods of UCB scanning.  No APF authorization is     *   FILE 046
//*           needed.  The difference in PACKRATU from the "**Z"    *   FILE 046
//*           versions is that AMODE 31 is needed, and real (not    *   FILE 046
//*           copied) UCB's are obtained by the method.  BACKENDZ   *   FILE 046
//*           obtains copied UCB's, not the real UCB's, although    *   FILE 046
//*           that doesn't seem to make any difference in the       *   FILE 046
//*           processing.                                           *   FILE 046
//*                                                                 *   FILE 046
//*           - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 046
//*                                                                 *   FILE 046
//*           Directions for use:                                   *   FILE 046
//*                                                                 *   FILE 046
//*           PACKRAT is a full screen TSO application to delete    *   FILE 046
//*           or scratch datasets on a disk pack in a convenient    *   FILE 046
//*           manner.  After typing TSO PACKRAT, the prompt         *   FILE 046
//*           screen allows you to enter the VOLSER you wish to     *   FILE 046
//*           examine and the scan date.  A full screen of data     *   FILE 046
//*           sets can be scratched at a time.  Hitting the enter   *   FILE 046
//*           key, pages you forward through the VTOC.  Additional  *   FILE 046
//*           information may be found in the comments of the       *   FILE 046
//*           code itself, and you'll get the hang of it with       *   FILE 046
//*           some practice.  (Recommendation:  Try scratching      *   FILE 046
//*           a few test datasets first.)                           *   FILE 046
//*                                                                 *   FILE 046
//*           As coded currently, PACKRAT will delete SYS1. and     *   FILE 046
//*           other system datasets.  To protect users from doing   *   FILE 046
//*           this, look for SYS1. in the source code and           *   FILE 046
//*           uncomment or change the appropriate lines (z/OS ver). *   FILE 046
//*           This code is in source member BACKENDZ (or BACKENDU). *   FILE 046
//*                                                                 *   FILE 046
//*           This program does not need ISPF, and it can be run    *   FILE 046
//*           in TSO READY mode.                                    *   FILE 046
//*                                                                 *   FILE 046
//*           Members SAMPSCR1 and SAMPSCR2 were included to give   *   FILE 046
//*           you an idea about what the full screens look like.    *   FILE 046
//*                                                                 *   FILE 046
//*           SAMPSCR1 - the introductory screen                    *   FILE 046
//*           SAMPSCR2 - what a screen full of datasets on a        *   FILE 046
//*                      disk pack looks like                       *   FILE 046
//*                                                                 *   FILE 046
//*           email:  sbgolob@cbttape.org                           *   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
//*           Some pieces from the 06/04/89 version of this file    *   FILE 047
//*           have been grafted back in.  For example, JCLFLOW,     *   FILE 047
//*           the EXITS member, and Jim's older SAS programs.       *   FILE 047
//*           The ISPF stats will tell you which member is newer,   *   FILE 047
//*           and which is older.                                   *   FILE 047
//*           (Sam Golob - 08/08/01 - taken from CBT352)            *   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=,DISP=SHR         *   FILE 047
//*               //SYSUT1   DD DSN=,DISP=SHR             *   FILE 047
//*               //SYSUT2   DD DSN=,DISP=SHR             *   FILE 047
//*               //VMF      DD DSN=,DISP=SHR           *   FILE 047
//*               //CATALOG  DD DSN=,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.  Both commands      *   FILE 048
//*           have been "modernized" somewhat (see below for        *   FILE 048
//*           details as to how).                                   *   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
//*      email:  sbgolob@cbttape.org                                *   FILE 048
//*                                                                 *   FILE 048
//*       Modifications:                     (S.Golob 2006/Jan 04)  *   FILE 048
//*                                                                 *   FILE 048
//*       1.  IBM standard macro YREGS was inserted in the code     *   FILE 048
//*           of both programs instead of the EQUATE macro, for     *   FILE 048
//*           easier assembly.  Sample assembly JCL added.          *   FILE 048
//*                                                                 *   FILE 048
//*       2.  The GETMAIN in LOCINDEX was doubled.  I don't know    *   FILE 048
//*           if this is SUPPOSED to work, but it did.  More        *   FILE 048
//*           datasets can now be displayed.  (Now perhaps 800.)    *   FILE 048
//*                                                                 *   FILE 048
//*       3.  All TPUTs were converted to PUTLINE using Howard      *   FILE 048
//*           Dean and Jim Elsworth's method of doing the PUTLINE   *   FILE 048
//*           setup in an external module called EPUTL and calling  *   FILE 048
//*           EPUTL with a macro called APUT that has the same      *   FILE 048
//*           coding rules as a single line TPUT.                   *   FILE 048
//*                                                                 *   FILE 048
//*       4.  To take advantage of the PUTLINE outputs, two REXX    *   FILE 048
//*           execs called TSOE and TSOB from Mark Zelden were      *   FILE 048
//*           included to trap the SYSOUT output.  TSOE will ISPF   *   FILE 048
//*           Edit the trapped output, and TSOB will ISPF Browse    *   FILE 048
//*           it.  TSOV (made by me) will ISPF View it.             *   FILE 048
//*                                                                 *   FILE 048
//*       Output Samples:                                           *   FILE 048
//*                                                                 *   FILE 048
//*       (Note that DSAT from File 296 gives combined outputs      *   FILE 048
//*        from these two, using one command.  In DSAT, the         *   FILE 048
//*        space and volume serial information is combined in       *   FILE 048
//*        one command.  However, the DSAT width is greater than    *   FILE 048
//*        80 characters wide in output.  DSAT also includes DCB    *   FILE 048
//*        attributes of the datasets.)                             *   FILE 048
//*                                                                 *   FILE 048
//*   From LISTVOL:       LISTVOL LEV(IBMUSER)                      *   FILE 048
//*                                                                 *   FILE 048
//*       VOLUME  DATASET NAME                                      *   FILE 048
//*         VPMVSH  IBMUSER.B.ASM                                   *   FILE 048
//*         DATA05  IBMUSER.BDM.I130.LOAD                           *   FILE 048
//*         DATA05  IBMUSER.BDM.I130.OBJ                            *   FILE 048
//*         DATA05  IBMUSER.BDM.I138.CNTL                           *   FILE 048
//*         WORK05  IBMUSER.BDM.I138.LOAD                           *   FILE 048
//*         WORK04  IBMUSER.BDM.I138.OBJ                            *   FILE 048
//*         DATA05  IBMUSER.BDM.SYSPRINT                            *   FILE 048
//*         DATA05  IBMUSER.BDM.SYSPRINT.IEWL                       *   FILE 048
//*         WORKA4  IBMUSER.BRODCAST                                *   FILE 048
//*         WORK07  IBMUSER.CBT487.FILE185.TEST                     *   FILE 048
//*         WORKE3  IBMUSER.CCKD.ASM                                *   FILE 048
//*         WORK08  IBMUSER.CCKD.ASM.XMI                            *   FILE 048
//*         WORKE3  IBMUSER.CCKD.BZLIB.C                            *   FILE 048
//*         WORKE3  IBMUSER.CCKD.BZLIB.H                            *   FILE 048
//*                                                                 *   FILE 048
//*   From LISTSPC:       LISTSPC LEV(IBMUSER)                      *   FILE 048
//*                                                                 *   FILE 048
//*       DSORG ALLOC UNUSED EXTENTS DSNAME                         *   FILE 048
//*         PO  10943    790     1   IBMUSER.B.ASM                  *   FILE 048
//*         PS     15     15     1   IBMUSER.BDM.I130.LOAD          *   FILE 048
//*         PS     15     15     1   IBMUSER.BDM.I130.OBJ           *   FILE 048
//*         PS     15     15     1   IBMUSER.BDM.I138.CNTL          *   FILE 048
//*         PO     15     13     1   IBMUSER.BDM.I138.LOAD          *   FILE 048
//*         PS     15     14     1   IBMUSER.BDM.I138.OBJ           *   FILE 048
//*         PS     15     15     1   IBMUSER.BDM.SYSPRINT           *   FILE 048
//*         PS     15     15     1   IBMUSER.BDM.SYSPRINT.IEWL      *   FILE 048
//*         PS      1      1     1   IBMUSER.BRODCAST               *   FILE 048
//*         PO     59     14     1   IBMUSER.CBT487.FILE185.TEST    *   FILE 048
//*         PO     65      1    14   IBMUSER.CCKD.ASM               *   FILE 048
//*         PS     18     10     1   IBMUSER.CCKD.ASM.XMI           *   FILE 048
//*         PO      7      3     1   IBMUSER.CCKD.BZLIB.C           *   FILE 048
//*         PO      2      1     1   IBMUSER.CCKD.BZLIB.H           *   FILE 048
//*                                                                 *   FILE 048
//***FILE 049 is an old program from Bruce Leland called STATS.     *   FILE 049
//*           This program reports statistics on the internal       *   FILE 049
//*           structure of partitioned datasets and other dataset   *   FILE 049
//*           types.  Its original place was from File 213 of the   *   FILE 049
//*           old CBT Tapes, before Arnie made his wholesale        *   FILE 049
//*           deletions.  (This program came from CBT Tape Version  *   FILE 049
//*           249.)                                                 *   FILE 049
//*                                                                 *   FILE 049
//*           This program is still extremely relevant to us,       *   FILE 049
//*           after lo these many years....                         *   FILE 049
//*                                                                 *   FILE 049
//*           The program is extremely easy to run, and gives       *   FILE 049
//*           you a lot of info.                                    *   FILE 049
//*                                                                 *   FILE 049
//*           email address:   bleland@serena.com                   *   FILE 049
//*                                                                 *   FILE 049
//*       Description:  This program formats information on         *   FILE 049
//*           several types of disk data sets.  It reads            *   FILE 049
//*           through the entire data set and outputs disk          *   FILE 049
//*           track usage, record sizes, counts and other           *   FILE 049
//*           statistics.                                           *   FILE 049
//*                                                                 *   FILE 049
//*           In addition, several data set validity checks are     *   FILE 049
//*           performed during input processing to insure that      *   FILE 049
//*           the data set will be usable by the system for         *   FILE 049
//*           non-EXCP processing.                                  *   FILE 049
//*                                                                 *   FILE 049
//*           If any errors are encountered, the Return Code is     *   FILE 049
//*           set to 4095 (or the program abends); otherwise,       *   FILE 049
//*           the Return Code is set to the minimum of 4094 and     *   FILE 049
//*           the number of tracks which should compress out        *   FILE 049
//*           for partitioned data sets.                            *   FILE 049
//*                                                                 *   FILE 049
//*       Definitions (for Partitioned Data Sets):                  *   FILE 049
//*                                                                 *   FILE 049
//*           a.  Real Member - a non-alias member name which       *   FILE 049
//*               is present in the directory.                      *   FILE 049
//*           b.  Gas Member - a member of a partitioned data       *   FILE 049
//*               set which has been replaced or deleted from       *   FILE 049
//*               the data set.  A gas member does not have an      *   FILE 049
//*               entry in the directory pointing to it; disk       *   FILE 049
//*               storage occupied by gas members is made           *   FILE 049
//*               usable for other members by an IEBCOPY            *   FILE 049
//*               compress operation.                               *   FILE 049
//*                                                                 *   FILE 049
//*               Note: Gas members can be resurrected by the       *   FILE 049
//*               TSO PDS command if it is given the beginning      *   FILE 049
//*               TTR address and a member name.                    *   FILE 049
//*                                                                 *   FILE 049
//*       Program PARM (only the first parm character is            *   FILE 049
//*                     significant; at most one of the             *   FILE 049
//*                     following may be specified):                *   FILE 049
//*                                                                 *   FILE 049
//*           a.  Labelonly  - Label information is to be           *   FILE 049
//*                            formatted but no data set reads      *   FILE 049
//*                            are to be performed (except the      *   FILE 049
//*                            read for any ISAM Format 2           *   FILE 049
//*                            DSCB).                               *   FILE 049
//*           b.  Nogas      - No gas member report is to be        *   FILE 049
//*                            provided for partitioned data        *   FILE 049
//*                            sets.                                *   FILE 049
//*           c.  Errorsonly - Only error messages are to be        *   FILE 049
//*                            output.                              *   FILE 049
//*           d.  Allextents - All extents of the data set are      *   FILE 049
//*                            to be read regardless of the         *   FILE 049
//*                            DS1LSTAR setting.                    *   FILE 049
//*       Operation:                                                *   FILE 049
//*                                                                 *   FILE 049
//*           a.  The program performs a RDJFCB to get the          *   FILE 049
//*               DSName and volume name; an OBTAIN to get the      *   FILE 049
//*               Format 1 DSCB; a DEVTYPE to get the device        *   FILE 049
//*               characteristics; and an OPEN to initialize        *   FILE 049
//*               the data set's Data Extent Block (DEB)            *   FILE 049
//*               information.                                      *   FILE 049
//*           b.  The program formats and outputs DEB and DSCB      *   FILE 049
//*               information.                                      *   FILE 049
//*           c.  The program then reads through the data set       *   FILE 049
//*               and outputs disk track usage, record sizes,       *   FILE 049
//*               counts and other statistics.                      *   FILE 049
//*           d.  Additional processing:                            *   FILE 049
//*               1. For Physical Sequential, Direct or VSAM        *   FILE 049
//*                  data sets, no additional processing is         *   FILE 049
//*                  performed.                                     *   FILE 049
//*               2. For ISAM data sets, the program reads          *   FILE 049
//*                  through the entire data set (there may be      *   FILE 049
//*                  several files of data) and reports on each     *   FILE 049
//*                  file.  also, the program inputs the ISAM       *   FILE 049
//*                  label (Format Two DSCB) record and             *   FILE 049
//*                  provides a data set profile which includes     *   FILE 049
//*                  data set reorganization data and data set      *   FILE 049
//*                  characteristics.                               *   FILE 049
//*               3. For Partitioned Data Sets, if the data set     *   FILE 049
//*                  name and a member name is allocated to the     *   FILE 049
//*                  input data set, the member is processed        *   FILE 049
//*                  like a sequential data set.                    *   FILE 049
//*               4. For other Partitioned Data Sets, the           *   FILE 049
//*                  program compares directory TTR's against       *   FILE 049
//*                  actual disk addresses to provide a report      *   FILE 049
//*                  by gas member:                                 *   FILE 049
//*                  a.  For load libraries, the linkage-edit       *   FILE 049
//*                      date and the names of the first few        *   FILE 049
//*                      CSECTs are provided.                       *   FILE 049
//*                  b.  For other libraries, the first 79          *   FILE 049
//*                      characters of each gas member is           *   FILE 049
//*                      output.                                    *   FILE 049
//*                  Statistics are maintained on the size of       *   FILE 049
//*                  gas and real members and the number of         *   FILE 049
//*                  alias members.  STATS checks for aliases       *   FILE 049
//*                  which have no real entries and apparent        *   FILE 049
//*                  aliases (two real members with the same        *   FILE 049
//*                  TTR).                                          *   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 some      *   FILE 050
//*           software vendor sites.                                *   FILE 050
//*                                                                 *   FILE 050
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 050
//*           Updated April 28, 2004 by Sam Golob -                 *   FILE 050
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 050
//*                                                                 *   FILE 050
//*           Please bear in mind that this file is only intended   *   FILE 050
//*           to get you started, and in practice, it is very hard  *   FILE 050
//*           (or next to impossible) to keep it up to date.  You   *   FILE 050
//*           have to surf, and then translate the HTML into text.  *   FILE 050
//*           Takes too much time for a busy Sysprog who has to     *   FILE 050
//*           update the CBT Tape too.                              *   FILE 050
//*                                                                 *   FILE 050
//*           Nevertheless, I think it is valuable, for pointing us *   FILE 050
//*           Systems Programmers to some places on the net, where  *   FILE 050
//*           we can get some good information.                     *   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
//*     CARTWRT   -  An informal list of URLs made by David         *   FILE 050
//*                  Cartwright                                     *   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
//*     FALISSAR  -  Thierry Falissard's description of the         *   FILE 050
//*                  stuff on his home page.                        *   FILE 050
//*     FREEC     -  Free C Language Compiler that runs under       *   FILE 050
//*                  OS/390 Open Edition                            *   FILE 050
//*     IPOUPDTE  -  URL to get doc for using IPOUPDTE/CPPUPDTE     *   FILE 050
//*     JAEGER    -  Standalone utilities and other utilities       *   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 from Jim Morrison, and contains a version of the   *   FILE 052
//*           SHOWMVS program (the modern version is on File 492)   *   FILE 052
//*           which runs on MVS 3.8 under Hercules.                 *   FILE 052
//*                                                                 *   FILE 052
//*           Normally, SHOWMVS uses ISPF services, but since ISPF  *   FILE 052
//*           is not available under MVS 3.8, this version of       *   FILE 052
//*           SHOWMVS is meant to run as a batch program.           *   FILE 052
//*                                                                 *   FILE 052
//*           email:  n9gtm@comcast.net                             *   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
//*           Updated with a disassembly of the PRSTRNG module      *   FILE 060
//*           that was linked with module SSR010PR, and a copy      *   FILE 060
//*           of the REASMLNK proc needed to reassemble and         *   FILE 060
//*           relinkedit.                                           *   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 Alan Field and contains several of his        *   FILE 066
//*           utilities.                                            *   FILE 066
//*                                                                 *   FILE 066
//*              email:    alan_c_field@bluecrossmn.com             *   FILE 066
//*                                                                 *   FILE 066
//*     This PDS contains the following members:                    *   FILE 066
//*                                                                 *   FILE 066
//*     Note:    ASM and MACROS members replaced with later         *   FILE 066
//*              versions.  (SBG - 2012/02/17)                      *   FILE 066
//*                                                                 *   FILE 066
//*     Note:    Member #PDSLOAD now contains an object deck        *   FILE 066
//*              for the PDSLOAD program, right in this file,       *   FILE 066
//*              together with appropriate linkedit JCL.            *   FILE 066
//*                                                                 *   FILE 066
//*     $$DOC    - This member.                                     *   FILE 066
//*                                                                 *   FILE 066
//*     ASM      - Assembler language source for some useful        *   FILE 066
//*                utilities.                                       *   FILE 066
//*                                                                 *   FILE 066
//*                ASCBSLOT - List page dataset slot usage by       *   FILE 066
//*                           job.                                  *   FILE 066
//*                CHPID    - Convert PCHID to CHPID.               *   FILE 066
//*                CPCMD    - Issue VM commands from TSO.           *   FILE 066
//*                CPFSET   - Demonstrate setting Command           *   FILE 066
//*                           prefixes.                             *   FILE 066
//*                CSALST   - List info about CSA usage.            *   FILE 066
//*                DISASM3B - SVC table.                            *   FILE 066
//*                DSSLVL   - Display level of DFDSS.               *   FILE 066
//*                DXCFSTR  - Display CF structure info.            *   FILE 066
//*                IEECMDPF - Set cmd prefix equal to sysname.      *   FILE 066
//*                INFO     - Search by keyword for info.           *   FILE 066
//*                IOCDSLST - List IOCDS info.                      *   FILE 066
//*                IPLSTAT  - IPL strp timing.                      *   FILE 066
//*                JULSUB   - Julian date manipulation              *   FILE 066
//*                           subroutine.                           *   FILE 066
//*                LASTCLPA - Date/time of last CLPA.               *   FILE 066
//*                           (Fixed for z/OS 2.2 and later)        *   FILE 066
//*                LASTXCF  - Date/time of last SYSPLEX start.      *   FILE 066
//*                LELVL    - Lang. Env level and options.          *   FILE 066
//*                LNKLST   - List LNKLST datasets.                 *   FILE 066
//*                LPARCAP  - Display LPAR capacity.                *   FILE 066
//*                MONJOBS  - STC to detect looping jobs and        *   FILE 066
//*                           write WTO.                            *   FILE 066
//*                MONJOBSS - Subroutine for MONJOBS.               *   FILE 066
//*                RACFDS   - Display RACF dataset names.           *   FILE 066
//*                RETCODE  - Set return codes based on various     *   FILE 066
//*                           criteria.                             *   FILE 066
//*                SHOWLPAR - Display LPAR information.             *   FILE 066
//*                SMFDS    - Display SMF dataset information.      *   FILE 066
//*                SMFSRCH  - Search SMF records for dataset        *   FILE 066
//*                           activity.                             *   FILE 066
//*                SVCTAB   - Display SVC table.                    *   FILE 066
//*                TODCN    - Convert TOD clock values.             *   FILE 066
//*                                                                 *   FILE 066
//*     CLIST    - CLISTS to demonstrate the use of some of the     *   FILE 066
//*                utilities included in this file.                 *   FILE 066
//*                                                                 *   FILE 066
//*     CNTL     - JCL to run some of the utilities.                *   FILE 066
//*                                                                 *   FILE 066
//*     INFOSYS  - Sample members for the INFO command.             *   FILE 066
//*                                                                 *   FILE 066
//*     MACROS   - Macros necessary to assemble source in           *   FILE 066
//*                member ASM.                                      *   FILE 066
//*                                                                 *   FILE 066
//*     PANELS   - ISPF panels.                                     *   FILE 066
//*                                                                 *   FILE 066
//*     PLI      - A PL/I utility to sort IEHLIST LISTVTOC          *   FILE 066
//*                output into address order.                       *   FILE 066
//*                                                                 *   FILE 066
//*     USERMODS - System usermods (SMP/E format):                  *   FILE 066
//*                                                                 *   FILE 066
//*                LM00026 - TSO TEST command mod.                  *   FILE 066
//*                LM00031 - Mod to message IEE163I to display      *   FILE 066
//*                          the following:                         *   FILE 066
//*                     IEE163I MODE= RD-HNR423/C25D-SP7.0.4        *   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 the TSTVS Console Editor and Dataset Utility from  *   FILE 068
//*           Rob Prins.                                            *   FILE 068
//*                                                                 *   FILE 068
//*           email:  prin0096@gmail.com or robprins2@kpnmail.nl    *   FILE 068
//*                                                                 *   FILE 068
//*           TSTVS is a utility program which is run from the      *   FILE 068
//*           Operator Console.  Commands are entered from the      *   FILE 068
//*           console, and replies are sent back to the console.    *   FILE 068
//*                                                                 *   FILE 068
//*           TSTVS is a line editor which can be used to fix       *   FILE 068
//*           FB-80 datasets like PARMLIB datasets or started       *   FILE 068
//*           PROCs in SYS1.PROCLIB, before JES2 or JES3 has        *   FILE 068
//*           come up, or it can be executed afterwards.            *   FILE 068
//*                                                                 *   FILE 068
//*           Run job INSTALL to install TSTVS on an OS/390 or      *   FILE 068
//*           z/OS system.                                          *   FILE 068
//*                                                                 *   FILE 068
//*           Run job INSTALLM on a MVS system with a security      *   FILE 068
//*           system like RACF installed.                           *   FILE 068
//*                                                                 *   FILE 068
//*           Run job INSTNOS  on a MVS system with no security     *   FILE 068
//*           system installed.                                     *   FILE 068
//*                                                                 *   FILE 068
//*           The receiving load library should be APF authorized.  *   FILE 068
//*                                                                 *   FILE 068
//*           You can execute S EDIT after JES2 or JES3 is up.      *   FILE 068
//*                                                                 *   FILE 068
//*           Or:  S EDIT,SUB=MSTR   before JES2 or JES3 is up.     *   FILE 068
//*                                                                 *   FILE 068
//*           TSTVS functions as a line editor, and can also be     *   FILE 068
//*           used to allocate new partitioned dataset members,     *   FILE 068
//*           delete partitioned dataset members, or rename         *   FILE 068
//*           complete datasets and partitioned dataset members.    *   FILE 068
//*                                                                 *   FILE 068
//*           TSTVS is an excellent recovery tool, for when an      *   FILE 068
//*           MVS system (or OS/390, z/OS etc.) is only partially   *   FILE 068
//*           up, and a dataset or member needs to be fixed.        *   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 from Brian Westerman of Syzygy, Inc. and contains  *   FILE 077
//*           his collection of utilities which were tested to      *   FILE 077
//*           work on the Hercules MVS 3.8J Turnkey system from     *   FILE 077
//*           Volker Bandke.  Many of these utilities came from     *   FILE 077
//*           old CBT Tapes, and some are found on Brian's other    *   FILE 077
//*           file, which is File 088.  But these utilities, in     *   FILE 077
//*           these versions, have been tested to run under         *   FILE 077
//*           Hercules, running MVS 3.8J, and for those people      *   FILE 077
//*           who are restricted to that system, these are as       *   FILE 077
//*           good as gold.                                         *   FILE 077
//*                                                                 *   FILE 077
//*           My new address and phone number are                   *   FILE 077
//*                                                                 *   FILE 077
//*           Brian Westerman                                       *   FILE 077
//*           Syzygy Incorporated                                   *   FILE 077
//*           Director of Research and Development                  *   FILE 077
//*           897 Oak Park Blvd #500                                *   FILE 077
//*           Pismo Beach, CA  93449                                *   FILE 077
//*                                                                 *   FILE 077
//*           (800) 767-2244                                        *   FILE 077
//*           (800) 366-4082 - fax                                  *   FILE 077
//*                                                                 *   FILE 077
//*           email:    Brian_Westerman@SyzygyInc.com               *   FILE 077
//*                                                                 *   FILE 077
//*      The contents of the File is as follows:                    *   FILE 077
//*                                                                 *   FILE 077
//*      Module    Purpose/Info                                     *   FILE 077
//*      ------    ------------                                     *   FILE 077
//*      $         Interface to TSO CALL, use in Clists, etc.       *   FILE 077
//*      APFLIST   List the current APFLIST from memory             *   FILE 077
//*      AUTO      Command and JOB scheduler by time of day         *   FILE 077
//*      PACKRAT   Full Screen Volume maintenance Utility,          *   FILE 077
//*                requires BACKEND module                          *   FILE 077
//*      BACKEND   Part of Packrat (above)                          *   FILE 077
//*      BRODSCAN  Scan the broadcast dataset and give stats        *   FILE 077
//*      CANCELOK  Make any running Addresspace cancel-able         *   FILE 077
//*                (even VTAM)                                      *   FILE 077
//*      CATALOG   Nifty catalog maintenance command                *   FILE 077
//*      COMMAND   Issue MVS/JES commands from TSO                  *   FILE 077
//*      DATE      Display date in several formats on the OS        *   FILE 077
//*                console                                          *   FILE 077
//*      DEBE      Predecessor of DITTO                             *   FILE 077
//*      DYNABLDL  A must for pre-XA MVS systems. This program      *   FILE 077
//*                eliminates the need for a fixed IEABLDnn list,   *   FILE 077
//*                and instead creates a dynamic BLDL list table,   *   FILE 077
//*                which gets updated with the most frequently      *   FILE 077
//*                used programs.  This is an install pds, in the   *   FILE 077
//*                IEBUPDTE SYSIN format, or PDSLOAD SYSUT1 format. *   FILE 077
//*      OSDEBE2   Slight mods over base DEBE                       *   FILE 077
//*      DISPLAY   Display system Information                       *   FILE 077
//*      ILRBIRD   TSO response time test                           *   FILE 077
//*      INSTREAM  Dynamic SYSIN creation for inside of Clists      *   FILE 077
//*      KERMITT   TSO File Transfer Utility                        *   FILE 077
//*      KILL      End any addresspace                              *   FILE 077
//*      LOCATE    Show where any dataset is cataloged and also     *   FILE 077
//*                search all volumes for dups.                     *   FILE 077
//*      MINIGEN   Perform MVS sysgen in pieces so that you         *   FILE 077
//*                don't have to do extra work                      *   FILE 077
//*      DISKSEEK  Volume mapping and SIO testing utility (SMAP)    *   FILE 077
//*      DISKTEST  Test a volume before you put it in service       *   FILE 077
//*      MEMBER    Find module in linklist and/or LPA               *   FILE 077
//*      SHOWSS    Show active subsystems                           *   FILE 077
//*      SWAP      System Workload Analysis Program                 *   FILE 077
//*      SYSTEM    Display system type, machine info, IPL           *   FILE 077
//*                Date etc.                                        *   FILE 077
//*      VOLCHECK  Check a volume for miscataloged, or              *   FILE 077
//*                uncataloged datasets                             *   FILE 077
//*      VTAMCHK   Wait for VTAM to start and then issue            *   FILE 077
//*                list of commands                                 *   FILE 077
//*      WTC       Send non-rollable message to the console         *   FILE 077
//*      VTAMOPER  Vtam Secondary operator facility                 *   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
//*                    sfowjs@sbcglobal.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 disassembled     *   FILE 083
//*           source that was updated by Guy Albertelli of          *   FILE 083
//*           Akron, Ohio.)  This file is in IEBUPDTE SYSIN         *   FILE 083
//*           format.  This file consists of the original IEHMAP    *   FILE 083
//*           program (object) and all the published zaps, plus     *   FILE 083
//*           some unpublished zaps.  It also updates IEHMAP so     *   FILE 083
//*           that it will work on either SP, XA, or ESA.  The      *   FILE 083
//*           library contains the original IEHMAP object deck      *   FILE 083
//*           in two members, an MVS/XA CSECT that was created      *   FILE 083
//*           via the disassembler and the necessary zaps in        *   FILE 083
//*           separate members.  See the members called $DOC390     *   FILE 083
//*           and $DOC370 for additional information.  $DOC390      *   FILE 083
//*           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
//*           New assembly JCL for High Level Assembler.            *   FILE 083
//*                                                                 *   FILE 083
//*           A load library in TSO XMIT format has been included   *   FILE 083
//*           as member $LOADLIB.  This includes load modules for   *   FILE 083
//*           IEHMAP and IEHMAPIN.                                  *   FILE 083
//*                                                                 *   FILE 083
//*           Also tested on z/OS 1.4, and works as it did on       *   FILE 083
//*           OS/390 1.3.  Known bug about reporting "invalid       *   FILE 083
//*           extent" at the end of the track map.  The extent      *   FILE 083
//*           is not really invalid.                                *   FILE 083
//*                                                                 *   FILE 083
//*           email:  sbgolob@cbttape.org                           *   FILE 083
//*                   guy_albertelli@goodyear.com                   *   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
//*           Syzygy Incorporated                                   *   FILE 088
//*           Director of Research and Development                  *   FILE 088
//*           897 Oak Park Blvd #500                                *   FILE 088
//*           Pismo Beach, CA  93449                                *   FILE 088
//*                                                                 *   FILE 088
//*           (800) 767-2244                                        *   FILE 088
//*           (800) 366-4082 - fax                                  *   FILE 088
//*                                                                 *   FILE 088
//*     email:    Brian_Westerman@SyzygyInc.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
//*           (A new copy has been supplied by Brian.  Please       *   FILE 088
//*            see member COMMAND@.)                                *   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
//*                                                                 *   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.)                        Greg Price, July 1999.     *   FILE 090
//*                                                                 *   FILE 090
//*                                                                 *   FILE 090
//*     Minor changes in 2006 include AMODE(64) support.            *   FILE 090
//*                                                                 *   FILE 090
//*     A member contents list follows.                             *   FILE 090
//*                                                                 *   FILE 090
//*     -MEMBER-   -CONTENTS------------------------------------    *   FILE 090
//*                                                                 *   FILE 090
//*     $$DOC    - This member.                                     *   FILE 090
//*                                                                 *   FILE 090
//*     $$DOC2   - Details of the March 2006 changes.               *   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
//*       The MVT Compilers have now been moved to the CBT          *   FILE 091
//*       Overflow Tape.  The following compilers have been         *   FILE 091
//*       moved:                                                    *   FILE 091
//*                                                                 *   FILE 091
//*       ALGOL       - from File 176 to CBT Overflow File 089      *   FILE 091
//*       FORTRAN G/H - from File 326 to CBT Overflow File 090      *   FILE 091
//*       RPG/F       - from File 327 to CBT Overflow File 091      *   FILE 091
//*       PL/I-F      - from File 092 to CBT Overflow File 092      *   FILE 091
//*                                                                 *   FILE 091
//*       Procedures can still be found here.                       *   FILE 091
//*                                                                 *   FILE 091
//*           JIM HAS RETIRED FROM THE AIR FORCE.  HIS ADDRESS IS:  *   FILE 091
//*                                                                 *   FILE 091
//*                 Jim Marshall                                    *   FILE 091
//*                 Office of Personnel Management                  *   FILE 091
//*                 CIO/WTC - Room BH04                             *   FILE 091
//*                 1900 E Street NW                                *   FILE 091
//*                 Washington DC   20415-0001                      *   FILE 091
//*                 w - 202-606-1261                                *   FILE 091
//*                 f - 202-606-2092                                *   FILE 091
//*                 jdmarsha@opm.gov                                *   FILE 091
//*                                                                 *   FILE 091
//*              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
//*       The MVT Compilers have now been moved to the CBT          *   FILE 092
//*       Overflow Tape.  The following compilers have been         *   FILE 092
//*       moved:                                                    *   FILE 092
//*                                                                 *   FILE 092
//*       ALGOL       - from File 176 to CBT Overflow File 089      *   FILE 092
//*       FORTRAN G/H - from File 326 to CBT Overflow File 090      *   FILE 092
//*       RPG/F       - from File 327 to CBT Overflow File 091      *   FILE 092
//*       PL/I-F      - from File 092 to CBT Overflow File 092      *   FILE 092
//*                                                                 *   FILE 092
//*                     James D. Marshall                           *   FILE 092
//*                     Office of Personnel Management              *   FILE 092
//*                     OCIO/WTC-BH04                               *   FILE 092
//*                     1900 E Street NW                            *   FILE 092
//*                     Washington, DC 20415                        *   FILE 092
//*                     (202) 606-1261                              *   FILE 092
//*                     (202) 606-2092   fax                        *   FILE 092
//*                     jdmarsha@opm.gov                            *   FILE 092
//*                                                                 *   FILE 092
//*              THIS FILE CONTAINS THE COMPILER AND LIBRARY FOR    *   FILE 092
//*              PL1/F.                                             *   FILE 092
//*                                                                 *   FILE 092
//*              THIS COPY OF THE PLI/F COMPILER AND LIBRARY WAS    *   FILE 092
//*              RE-LINKEDITED BY LARRY WILLIAMS, TO ALLOW IT TO    *   FILE 092
//*              RUN ON AN MVS/XA OR MVS/ESA SYSTEM, HOPEFULLY      *   FILE 092
//*              WITHOUT THE ABENDS EXPERIENCED WHEN THE ORIGINAL   *   FILE 092
//*              LOAD MODULES WERE RUN ON XA.                       *   FILE 092
//*                                                                 *   FILE 092
//***FILE 093 Contains a system to sequentialize a PDS (any         *   FILE 093
//*           LRECL) from Sam Golob.  Some of this code is from     *   FILE 093
//*           the SHARE PL/I tape.  For additional information,     *   FILE 093
//*           see the members called $$$$DOC and $$$$DOC2.          *   FILE 093
//*                                                                 *   FILE 093
//*           Gerhard Postpischil has submitted a new version       *   FILE 093
//*           of PDSLOAD, current member PDSLOADW.  All older       *   FILE 093
//*           versions of PDSLOAD have been renumbered in order     *   FILE 093
//*           as follows:  PDSLOOLD, the oldest version, followed   *   FILE 093
//*           by PDSLOAD1 thru PDSLOAD9 in date order.  PDSLOADW    *   FILE 093
//*           is newer than all of them.  I guess that I'll         *   FILE 093
//*           adhere to this scheme.  (SBG - 2012/02/20)            *   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, et al)                    *   FILE 093
//*                                                                 *   FILE 093
//*           2.  LISTPDS can be used instead of OFFLOADW,          *   FILE 093
//*               and LISTPDS has just been fixed to accommodate    *   FILE 093
//*               extended ISPF statistics.  (Version 8.2)          *   FILE 093
//*               (June 2016)                                       *   FILE 093
//*                                                                 *   FILE 093
//*           See members $$NOTEnn for more history about           *   FILE 093
//*               this file.                                        *   FILE 093
//*                                                                 *   FILE 093
//*     07/2022   Fixed OFFLOAD, LISTPDS for ISPF statistics        *   FILE 093
//*               which contain packed dates ending in X'0C'.       *   FILE 093
//*               (v10.2)                                           *   FILE 093
//*                                                                 *   FILE 093
//*     02/2017   Fixed OFFLOAD, LISTPDS for 8-character            *   FILE 093
//*               ISPF userids in the ISPF stats.  (v10.1, v8.3)    *   FILE 093
//*                                                                 *   FILE 093
//*     10/2015   Fixed V10.0 - OFFLOADW optionally puts out a      *   FILE 093
//*     V10.0     //SYSUPLOG DD name, which logs all records        *   FILE 093
//*               in pds members that originally have string "><"   *   FILE 093
//*               in column 1, so that they don't get changed       *   FILE 093
//*               back to string "./" by PDSLOADW.                  *   FILE 093
//*                                                                 *   FILE 093
//*     09/2013   These two programs, PDSLOADW and OFFLOADW,        *   FILE 093
//*               have now been fixed to handle extended            *   FILE 093
//*               ISPF stats if they exist (from z/OS 1.11 on).     *   FILE 093
//*                                                                 *   FILE 093
//*     02/2017   Fixed PDSLOADW, OFFLOADW, and LISTPDS to handle   *   FILE 093
//*               pds member ISPF userids of 8 characters.          *   FILE 093
//*                                                                 *   FILE 093
//*     11/2018   LISTPDS was fixed to punch ./ ALIAS cards if      *   FILE 093
//*               it is run with a PARM of 'ALIAS'.                 *   FILE 093
//*                                                                 *   FILE 093
//*           Extended format of the ./ ADD card:                   *   FILE 093
//*                                                                 *   FILE 093
//*    From columns 01 thru 68 is the old format of the ./ ADD card *   FILE 093
//*                                                                 *   FILE 093
//*    Column 72 has to be a space, to accommodate IEBUPDTE ./      *   FILE 093
//*     continuations, if they exist.                               *   FILE 093
//*                                                                 *   FILE 093
//*    From columns 70 thru 80 is the new format, as follows:       *   FILE 093
//*                                                                 *   FILE 093
//*    ----+----1----+----2-                                        *   FILE 093
//*    ./ ADD NAME=membname                                         *   FILE 093
//*                                                                 *   FILE 093
//*    ---+----3----+----4----+----5----+----6----+----7----+----8  *   FILE 093
//*    vvmm-crdat-moddt-hhmm-sssss-iiiii-mmmmm-MYUSRID ss nnniiimm  *   FILE 093
//*    ver  yyjjj yyjjj time size  init  modif userid               *   FILE 093
//*    mod                                                          *   FILE 093
//*                          last                                   *   FILE 093
//*                          five   same  same                      *   FILE 093
//*                          digits                                 *   FILE 093
//*                                                                 *   FILE 093
//*           where ss  is decimal digits 1-2 of seconds of time    *   FILE 093
//*           where nnn is decimal digits 6-8 of the ISPF size      *   FILE 093
//*                   (so maximum number is 99,999,999).            *   FILE 093
//*           where iii is decimal digits 6-8 of the ISPF init      *   FILE 093
//*                   (so maximum number is 99,999,999).            *   FILE 093
//*           where mm  is decimal digits 6-7 of the ISPF modified  *   FILE 093
//*                   (so maximum number is 9,999,999).             *   FILE 093
//*           userid can now be up to 8 characters, filling in      *   FILE 093
//*                   the space at character 69.                    *   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
//*           Note: Small fix to PDSLOADX from Gerd Petermann:      *   FILE 093
//*                 email:  GPetermann@horizont-it.com              *   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
//*    Note from Sam Golob    03 April, 2012                        *   FILE 093
//*                                                                 *   FILE 093
//*     Greg Price and Gerhard Postpischil have the same initials.  *   FILE 093
//*     Therefore, Greg refers to this "update team" as TEAM-GP.    *   FILE 093
//*                                                                 *   FILE 093
//*     One issue dealt with in PDSLOAD is that it checks           *   FILE 093
//*     member names for "validity" before it loads a new pds       *   FILE 093
//*     member with that name.  I took a vote among two people:     *   FILE 093
//*     Greg Price said to eliminate the validity check for         *   FILE 093
//*     member names altogether.  Gerhard Postpischil said to       *   FILE 093
//*     keep it in.  Gerhard was willing to put his money where     *   FILE 093
//*     his mouth is, so he programmed a new version of PDSLOAD,    *   FILE 093
//*     now presented as member PDSLOADW.                           *   FILE 093
//*                                                                 *   FILE 093
//*     Gerhard's new version has options.  Default is to           *   FILE 093
//*     eliminate the validity check.  Two other options are to     *   FILE 093
//*     either check the name in a limited manner, or check the     *   FILE 093
//*     name in a stricter manner.                                  *   FILE 093
//*                                                                 *   FILE 093
//*        PARM='NAME=ASIS'   BYPASS ALL CHECKS  (default)          *   FILE 093
//*             'NAME=CHECK'  ALLOW ALL PRINTABLE CHARACTERS        *   FILE 093
//*                           (EXCEPT COMMA) USING CODEPAGE 037     *   FILE 093
//*             'NAME=IBM'    ENFORCE STRICT IBM JCL STANDARDS      *   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
//*     The current release of DAF is 1.49.  Included also are      *   FILE 094
//*     some previous releases, both in source and load module      *   FILE 094
//*     form.  These are:   DAF130 and DAF130L (load module)        *   FILE 094
//*     DAF140 and DAF140L, DAF142 and DAF142L, DAF143 and DAF143L, *   FILE 094
//*     DAF144 and DAF144L, DAF145 and DAF145L, DAF146 and DAF146L, *   FILE 094
//*     DAF147 and DAF147L. DAF148L is backleveled.  Current level  *   FILE 094
//*     is DAF148NL.                                                *   FILE 094
//*     DAF149 and DAF149L.                                         *   FILE 094
//*                                                                 *   FILE 094
//*     The current release is in members:  DAF and DAF149L.        *   FILE 094
//*                                                                 *   FILE 094
//*     I would recommend assembling DAF for yourself if you can.   *   FILE 094
//*     Only use the supplied load module if you cannot assemble    *   FILE 094
//*     for yourself.  (SBG - 03/16/2008)                           *   FILE 094
//*                                                                 *   FILE 094
//*     MIKE CLEARY HAS A NEW ADDRESS:                              *   FILE 094
//*                                                                 *   FILE 094
//*     Contact: Michael J. Cleary                                  *   FILE 094
//*              IBM Global Services                                *   FILE 094
//*              310-602-4105 (voice)                               *   FILE 094
//*              mailto:michaeljosephcleary@yahoo.com               *   FILE 094
//*              http://sites.google.com/site/michaeljosephcleary/  *   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           *   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 Peoples National Bank of Washington in        *   FILE 097
//*           Seattle, and contains all the source code, JCL,       *   FILE 097
//*           and documentation for the complete disk management    *   FILE 097
//*           system of Peoples National Bank of Washington.        *   FILE 097
//*           All disk management systems require customization     *   FILE 097
//*           to fit the particular needs of each installation.     *   FILE 097
//*           Extensive customization documentation is provided     *   FILE 097
//*           in the DOCPROG (programmer's documentation)           *   FILE 097
//*           member.  Run procedures, report formats, and          *   FILE 097
//*           record layouts are provided in DOCUSER (user's        *   FILE 097
//*           documentation).  Sample JCL and control files are     *   FILE 097
//*           provided in other members of this pds.                *   FILE 097
//*                                                                 *   FILE 097
//*           All of these programs have been compiled and run      *   FILE 097
//*           in under MVS/SP JES3.  To the best of our             *   FILE 097
//*           knowledge they have no XA or JES dependencies.        *   FILE 097
//*                                                                 *   FILE 097
//*           This file is in IEBUPDTE SYSIN format see the         *   FILE 097
//*           member called @DOC for additional information.        *   FILE 097
//*                                                                 *   FILE 097
//*           An update was made to the VVDSLIST program. (08/20)   *   FILE 097
//*           There seem to have been a few changes to the          *   FILE 097
//*           length requirement of the AMSDB cells in the VVDS.    *   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.  Member DATA is a sample  *   FILE 098
//*           names file for use with this tool.                    *   FILE 098
//*                                                                 *   FILE 098
//*           This file was modified (fixed) by Lionel B. Dyck.     *   FILE 098
//*                email:  lbdyck@gmail.com                         *   FILE 098
//*                                                                 *   FILE 098
//***FILE 099 Contains REXX code snippets that can be copied        *   FILE 099
//*           into other REXX code for use. A few are stand-alone   *   FILE 099
//*           tools. All can be used as usable examples.            *   FILE 099
//*                                                                 *   FILE 099
//*           Contributions of more snippets and small code         *   FILE 099
//*           samples are welcome. Send updates to Sam Golob        *   FILE 099
//*           at sbgolob@cbttape.org                                *   FILE 099
//*                                                                 *   FILE 099
//*     Contributors (knowing and unknowing):                       *   FILE 099
//*           Doug Nadel                                            *   FILE 099
//*           Lionel Dyck                                           *   FILE 099
//*           Willy Jensen                                          *   FILE 099
//*           John McKown                                           *   FILE 099
//*                                                                 *   FILE 099
//*     CURRENT CONTENTS:                                           *   FILE 099
//*                                                                 *   FILE 099
//*     Member      Description                                     *   FILE 099
//*     ------      --------------------------------------------    *   FILE 099
//*     ADDCOMMA    Add commas to a number (1000 -> 1,000)          *   FILE 099
//*     DISPDD      Display all the Datasets allocated to a DD      *   FILE 099
//*     DOALLEM     Invoke an ISPF Edit Macro on All PDS Members    *   FILE 099
//*     EHEX        Display a specific line in hex (edit macro)     *   FILE 099
//*     EXIST       Test if a OMVS file exists                      *   FILE 099
//*     GETIPLDT    Get the IPL Date and Time for all LPARs in      *   FILE 099
//*                 SYSPLEX (uses SDSF)                             *   FILE 099
//*     GREPZOS     Sample how to use grep on a z/OS sequential     *   FILE 099
//*                 dataset                                         *   FILE 099
//*     HEAPSORT    Do heap sort in REXX                            *   FILE 099
//*     LABDEL      Sample Edit Macro to add and remove a label     *   FILE 099
//*                 programatically                                 *   FILE 099
//*     SLEEP       Sample REXX to sleep for n seconds              *   FILE 099
//*     SORTBPX     Sort a REXX stem using OMVS sort command under  *   FILE 099
//*                 BPXWUNIX                                        *   FILE 099
//*     STEMSORT    Sort a REXX stem (bubble sort)                  *   FILE 099
//*     SRCHANYC    Change SRCHFOR anycase before/after LMMDISP     *   FILE 099
//*     SWAPEQ      ISPF Edit Macro to swap equates (a=b to b=a)    *   FILE 099
//*     TESTUID0    Test if user has UID 0 privileges               *   FILE 099
//*     TSO8        Test if 8 character TSO Userids allowed         *   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"     *   FILE 102
//*                                                                 *   FILE 102
//*            email:  sbgolob@cbttape.org                          *   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 Shenstone,            *   FILE 104
//*           Staffordshire, in England.  This file was modified    *   FILE 104
//*           from previous files File 104 and File 158 from this   *   FILE 104
//*           tape.                                                 *   FILE 104
//*                                                                 *   FILE 104
//*             DAVID CARTWRIGHT                                    *   FILE 104
//*             Lynn Farmhouse,                                     *   FILE 104
//*             Lynn Lane,                                          *   FILE 104
//*             SHENSTONE,                                          *   FILE 104
//*             Staffordshire                                       *   FILE 104
//*             UK  WS14 0EP                                        *   FILE 104
//*             ++44 (0)1543 481918                                 *   FILE 104
//*                                                                 *   FILE 104
//*             email address:   dcartwright@ymail.com              *   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, cataloged 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
//*                                                                 *   FILE 112
//*   >>>>>  Fixed to be EAV compatible with the contributions      *   FILE 112
//*   >>>>>  of Mike Nelson and Dan Dalby.  Older version is        *   FILE 112
//*   >>>>>  obtainable by renaming VTOCCHEO to VTOCCHEK and        *   FILE 112
//*   >>>>>  VTOCEXCO to VTOCEXCP.                                  *   FILE 112
//*                                                                 *   FILE 112
//*   >>>>>  Fix to VTOCCHEK and VTOCFORM from John Gateley to      *   FILE 112
//*   >>>>>  properly find all the extents in EAV volumes.          *   FILE 112
//*                                                                 *   FILE 112
//*          Tony Cieri added an option to VTOC of NOTOTALS,        *   FILE 112
//*          which will not produce a TOTALS line.  This seems      *   FILE 112
//*          to have been intended by the author, but an            *   FILE 112
//*          IKJNAME 'NOTOTALS' line needed to be added to the      *   FILE 112
//*          IKJPARS statements.                                    *   FILE 112
//*                                                                 *   FILE 112
//*          A load module for the VTOC command is on File 035      *   FILE 112
//*          and is called VTOC.                                    *   FILE 112
//*                                                                 *   FILE 112
//*          VTOC IS CALLED BY A SUBCOMMAND OF PDS VERSION 8.6      *   FILE 112
//*          FROM FILE 182.  IF YOU HAVE INSTALLED PDS VERSION 8.6  *   FILE 112
//*          YOU SHOULD ALSO INSTALL VTOC.                          *   FILE 112
//*                                                                 *   FILE 112
//*          IF YOU INSTALL PDS VERSION 8.6, 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 3390 MODEL 9.        *   FILE 112
//*                                                                 *   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
//*          Optional test for DSN enqueues (UPDATED 08-01)         *   FILE 112
//*          MSG macro converted to MSGZ    (UPDATED 08-01)         *   FILE 112
//*          VTOC table now above the line  (UPDATED 08-01)         *   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 members   *   FILE 118
//*           called $$NEWDOC and $$NEWASM.                         *   FILE 118
//*                                                                 *   FILE 118
//*         This file contains our programs which allow you to      *   FILE 118
//*         identify which FMIDs each PTF belongs to, in any        *   FILE 118
//*         SMPPTFIN input stream (PUT Tape, CBPDO PTF file,        *   FILE 118
//*         and so forth).  These programs AVOID INVOLVING          *   FILE 118
//*         SMP/E RECEIVE - that's the point!                       *   FILE 118
//*                                                                 *   FILE 118
//*     >>>>  THESE PROGRAMS ALLOW YOU TO IDENTIFY EACH PTF's FMID  *   FILE 118
//*     >>>>  WITHOUT DOING A RECEIVE, AND WITHOUT INVOLVING OR     *   FILE 118
//*     >>>>  INVOKING SMP/E AT ALL!                                *   FILE 118
//*                                                                 *   FILE 118
//*     >>>>  (If you're careful, you'll never mount the wrong      *   FILE 118
//*     >>>>  PTF tape again...... in a RECEIVE job !! )            *   FILE 118
//*                                                                 *   FILE 118
//*         Another program which will help you with this, is the   *   FILE 118
//*         program called "PHRANQUE" on CBT File 289.              *   FILE 118
//*                                                                 *   FILE 118
//*   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 118
//*                                                                 *   FILE 118
//*     Jerry Lawson's email:    jlawson@thehartford.com            *   FILE 118
//*                                                                 *   FILE 118
//*     Sam Golob's email:       sbgolob@cbttape.org                *   FILE 118
//*                                                                 *   FILE 118
//*   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 118
//*                                                                 *   FILE 118
//*     The only programs you now need, to do all the processing    *   FILE 118
//*     of SMPPTFIN input that can be done with this file, are:     *   FILE 118
//*                                                                 *   FILE 118
//*       PUTXREF - When used with optional DD cards //SMPCOUT      *   FILE 118
//*                 and //PDSATOUT , will replace the combined      *   FILE 118
//*                 functions of PUTXREF, plus the function of      *   FILE 118
//*                 SMPASUPD or SMPFMUPD.                           *   FILE 118
//*                                                                 *   FILE 118
//*                 The functionality from Gene Cray's file, to     *   FILE 118
//*                 pick out one FMID for the report, has been      *   FILE 118
//*                 moved here too.  See member PUTXREF# for        *   FILE 118
//*                 sample JCL which contains the optional ddname   *   FILE 118
//*                 //SRCHDATA , and instructions for its use.      *   FILE 118
//*                                                                 *   FILE 118
//*       SMPUPD  - Enhanced function with many stats now printed   *   FILE 118
//*                 and the possibility of PARM=READ for "read      *   FILE 118
//*                 only" of the SMPPTFIN input file.               *   FILE 118
//*                                                                 *   FILE 118
//*          All the rest of the programs are just included for     *   FILE 118
//*          either historical value, or as coding examples.        *   FILE 118
//*                                                                 *   FILE 118
//*   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 118
//*                                                                 *   FILE 118
//*     I would just like to observe that it is possible for one    *   FILE 118
//*     PTF to have more than one FMID.  IBM's SMP/E people do      *   FILE 118
//*     this themselves.  The PTF has the same materials, for the   *   FILE 118
//*     different FMIDs, but it has different requisites.           *   FILE 118
//*                                                                 *   FILE 118
//*     The consequences of this for our processing are:            *   FILE 118
//*                                                                 *   FILE 118
//*     PUTXREF will create multiple records for such a PTF, each   *   FILE 118
//*     record belonging to a different FMID.  SMPUPD will only     *   FILE 118
//*     report one PTF read, because only one PTF was read.         *   FILE 118
//*     Please note this phenomenon carefully, when it comes to     *   FILE 118
//*     comparing counts from the two programs.                     *   FILE 118
//*                                                                 *   FILE 118
//*   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 118
//*                                                                 *   FILE 118
//*    Newnote: 1- JCL for batch expansion of PTFs using the        *   FILE 118
//*    -------     GIMCPTS program is now included.  See GIM****    *   FILE 118
//*    Jul 2014    members in this pds, and see member $$NOTE01.    *   FILE 118
//*                                                                 *   FILE 118
//*             2- Our own programs, PUTXREF and SMPUPD, are        *   FILE 118
//*                not really affected by the new GIMCPTS           *   FILE 118
//*                and GIMDTS processing, because the comments      *   FILE 118
//*                and "++" statements remain unchanged.            *   FILE 118
//*                                                                 *   FILE 118
//*   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 118
//*                                                                 *   FILE 118
//*       Note:  COBOL is no longer needed for this processing.     *   FILE 118
//*                                                                 *   FILE 118
//*       Note:  FORFMID processing COBOL programs were             *   FILE 118
//*              replaced with Assembler equivalents.               *   FILE 118
//*              See member JCLFMIDS.  This processing              *   FILE 118
//*              no longer needs COBOL.                             *   FILE 118
//*                                                                 *   FILE 118
//*       Note2: The PUTXREF program now takes an optional ddname   *   FILE 118
//*              //SMPCOUT which is an FB-80 file, to replace the   *   FILE 118
//*              //SYSUT2  file of the SMPASUPD or SMPFMUPD         *   FILE 118
//*                        programs.  SMPASUPD or SMPFMUPD are      *   FILE 118
//*                        no longer needed for FORFMID processing. *   FILE 118
//*                                                                 *   FILE 118
//*       Note3: The PUTXREF program now takes an optional ddname   *   FILE 118
//*              //PDSATOUT which is an FB-80 file, to generate     *   FILE 118
//*              control cards for the PDS 8.6 program from File    *   FILE 118
//*              182 of the CBT Tape.  These cards will generate    *   FILE 118
//*              ISPF stats for the SYSMODs in the SMPPTS dataset,  *   FILE 118
//*              with the ISPF userid being the owning FMID of the  *   FILE 118
//*              SYSMOD, as follows:                                *   FILE 118
//*                                                                 *   FILE 118
//*              ATTRIB UQ54586 ADDSTATS  ID(EDU1G01)               *   FILE 118
//*              ATTRIB UW79679 ADDSTATS  ID(HBB6603)               *   FILE 118
//*              ATTRIB UW79748 ADDSTATS  ID(HBB6603)               *   FILE 118
//*              ATTRIB UQ54576 ADDSTATS  ID(HGD3200)               *   FILE 118
//*              ATTRIB UQ54956 ADDSTATS  ID(HGD3200)               *   FILE 118
//*              ATTRIB UW79333 ADDSTATS  ID(HIF4402)               *   FILE 118
//*              ATTRIB UQ53658 ADDSTATS  ID(HIR2101)               *   FILE 118
//*                                                                 *   FILE 118
//*       Note:  SMPUPD processing is now replaced by an            *   FILE 118
//*              Assembler program too.  No COBOL is                *   FILE 118
//*              needed any more to run this processing.            *   FILE 118
//*                                                                 *   FILE 118
//*              The new Assembler program now has extensive        *   FILE 118
//*              reporting in the SYSPRINT dataset.  Enjoy!         *   FILE 118
//*                                                                 *   FILE 118
//*              SMPUPD can now be run with PARM=READ for read      *   FILE 118
//*              only action, to print stats about the SMPPTFIN     *   FILE 118
//*              input dataset.                                     *   FILE 118
//*                                                                 *   FILE 118
//*   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 118
//*                                                                 *   FILE 118
//*     Historical Note about COBOL programs:                       *   FILE 118
//*                                                                 *   FILE 118
//*       COBOL programs are being kept here, just in case....      *   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 has been 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
//*       >>     Putting an //SMPCOUT DD card into a PUTXREF run,   *   FILE 118
//*              or running my programs SMPASUPD or SMPFMUPD which  *   FILE 118
//*              take input from the //PRINTER DD name of PUTXREF,  *   FILE 118
//*              will produce an output file that is almost         *   FILE 118
//*              "inputable" into an SMP/E RECEIVE or APPLY job.    *   FILE 118
//*              Output of the //SMPCOUT DD card or the SMPASUPD    *   FILE 118
//*              and SMPFMUPD programs, 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
//*       Further support:  Sam Golob                               *   FILE 119
//*                 email:  sbgolob@cbttape.org                     *   FILE 119
//*                                                                 *   FILE 119
//*       Please note that File 136, also from Howard Dean, is      *   FILE 119
//*       of a later date than this file, so File 136 should        *   FILE 119
//*       also be consulted before installing anything from         *   FILE 119
//*       this file, just to check that there isn't something       *   FILE 119
//*       newer.  (SG)                                              *   FILE 119
//*                                                                 *   FILE 119
//*       Members in this file which have corresponding members     *   FILE 119
//*       in CBT File 136 are:                                      *   FILE 119
//*                                                                 *   FILE 119
//*       APUT ASID CPPL CSPL EPUTL EPUTL$ EPUTLO HMDCHRON          *   FILE 119
//*       HTIME INUSE IOPL JULGREG LDROP LUSE PDFINIT REGS          *   FILE 119
//*       TSOENTER TSOLEAVE XABSM                                   *   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
//*           X1          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
//*                       (Fixed by William Smith to work           *   FILE 119
//*                       properly under more adverse conditions.)  *   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'.  (SM tested to run on z/OS 2.2. )  *   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
//*                       (Cleaned up a bit by Sam Golob)           *   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 19      *   FILE 120
//*           years' worth of articles, which are included here     *   FILE 120
//*           by consent from the publisher of the mazagine.        *   FILE 120
//*           Sam's old articles, from File 014 and File 182,       *   FILE 120
//*           are also included here, as are some newer articles    *   FILE 120
//*           which were never published by NaSPA, and which don't  *   FILE 120
//*           belong to them.                                       *   FILE 120
//*                                                                 *   FILE 120
//*     >>>>  This file is dedicated to the dear memory of <<<<     *   FILE 120
//*     >>>>  Roman Panczyszyn, who was an Operations      <<<<     *   FILE 120
//*     >>>>  Manager at the New York City Data Center,    <<<<     *   FILE 120
//*     >>>>  DoITT (Department of Information Technology  <<<<     *   FILE 120
//*     >>>>  and Telecommunications).                     <<<<     *   FILE 120
//*                                                                 *   FILE 120
//*           email: sbgolob@cbttape.org  (current contact address) *   FILE 120
//*                                                                 *   FILE 120
//*           Also included here is a REXX exec from Lionel Dyck,   *   FILE 120
//*           which can be used to display all the articles         *   FILE 120
//*           by means of their titles.  This should be helpful.    *   FILE 120
//*              EXEC 'this.pds(###RUNME)'                          *   FILE 120
//*                                                                 *   FILE 120
//*           This file also contains articles written for the      *   FILE 120
//*           public that DO NOT belong to NaSPA and were never     *   FILE 120
//*           published by NaSPA.  These articles are members       *   FILE 120
//*           with prefixes of BM****** and you are welcome to      *   FILE 120
//*           read them.                                            *   FILE 120
//*                                                                 *   FILE 120
//*           This file contains the original versions of Sam's     *   FILE 120
//*           columns before they were edited, or shortened by      *   FILE 120
//*           the magazine because of space limitations.            *   FILE 120
//*                                                                 *   FILE 120
//*           At the time many of these articles were written,      *   FILE 120
//*           you needed to purchase a CBT Tape from NaSPA in       *   FILE 120
//*           order to obtain these materials.  Now, please just    *   FILE 120
//*           go to www.cbttape.org and download the files that     *   FILE 120
//*           you want, completely free of charge.  Try going       *   FILE 120
//*           to the "Updates Page" of www.cbttape.org first, to    *   FILE 120
//*           get the latest versions of the files, if they had     *   FILE 120
//*           been recently updated.  New versions of the CBT Tape  *   FILE 120
//*           are now cut, usually twice a year.  So you have to    *   FILE 120
//*           rely on the Updates Page of the website for current   *   FILE 120
//*           copies of the software, usually.                      *   FILE 120
//*                                                                 *   FILE 120
//*           You can also read these articles directly from the    *   FILE 120
//*           web, at:                                              *   FILE 120
//*                     www.cbttape.org/articles                    *   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
//*           After 19 plus years, NaSPA has (possibly temporarily) *   FILE 120
//*           stopped publishing "Technical Support" magazine.      *   FILE 120
//*           Meanwhile, I am writing some articles anyway, for the *   FILE 120
//*           betterment of the people (hopefully), and for myself. *   FILE 120
//*           Stuff that doesn't belong to NaSPA is prefixed by     *   FILE 120
//*           member name "BM".  Even though a copyright notice     *   FILE 120
//*           appears in these articles, I give my permission for   *   FILE 120
//*           people to copy them and spread them around.  It's     *   FILE 120
//*           only republication without permission, that I am      *   FILE 120
//*           restricting.  If you want to re-publish anything      *   FILE 120
//*           that belongs to me, please ask me.                    *   FILE 120
//*                                                                 *   FILE 120
//*   >>>>  Members starting with BM****** belong to Sam Golob,     *   FILE 120
//*   >>>>  and not to NaSPA or any other magazine or organization. *   FILE 120
//*   >>>>  BM1005MY is allowed to be used by SHARE, INC. without   *   FILE 120
//*   >>>>  restriction.                                            *   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
//*     @FILE120  :  THIS FILE - CONTAINS AN INDEX TO THE COLUMNS   *   FILE 120
//*     $$INTRO   :  AUTHOR'S PREFACE AND "QUICK INTRO"             *   FILE 120
//*     ----------------------------------------------------------- *   FILE 120
//*     @PDSART0  :  The PDS Program - Course Intro                 *   FILE 120
//*     @PDSART1  :  Public MVS Software - The PDS Program - Part 1 *   FILE 120
//*     @PDSART2  :  Public MVS Software - The PDS Program - Part 2 *   FILE 120
//*     @PDSART3  :  Public MVS Software - The PDS Program - Part 3 *   FILE 120
//*     @SMINTRO  :  Introduction to my 1988 SMP Article            *   FILE 120
//*     @SMPART1  :  SMP Demystified: Part I                        *   FILE 120
//*     @SMPART2  :  SMP Demystified: Part II                       *   FILE 120
//*     ----------------------------------------------------------- *   FILE 120
//*     BM0009SE  :  THE JOY OF "SHARE" (SEPARATE ARTICLE - NOT     *   FILE 120
//*                  PUBLISHED - DOES NOT BELONG TO NASPA)          *   FILE 120
//*     BM0806JN  :  TSO/E CONTROL BLOCKS, AND MORE                 *   FILE 120
//*     BM0901JA  :  TSO AUTHORIZATION TABLES                       *   FILE 120
//*     BM0902FE  :  TSO AUTHORIZATION TABLES - PART 2              *   FILE 120
//*     BM1005MY  :  APF-AUTHORIZED TSO COMMANDS                    *   FILE 120
//*     BM1006JN  :  SHARING THE LOAD                               *   FILE 120
//*     BM1911NV  :  THE VALUE OF TOOLS, NEW AND OLD - PART 1       *   FILE 120
//*     BM1912DE  :  THE VALUE OF TOOLS, NEW AND OLD - PART 2       *   FILE 120
//*                  SOME NEWER TOOLS YOU MAY NOT KNOW ABOUT        *   FILE 120
//*     BM2001JA  :  8-CHARACTER TSO USERIDS IN Z/OS 2.3            *   FILE 120
//*     BM2001JB  :  SAVING AND RELOADING IPL TEXT-A NEW TECHNIQUE  *   FILE 120
//*     BM2001JC  :  CNCLPG - ALTERING AN ADDRESS SPACE - FOR FREE  *   FILE 120
//*     BM2002FE  :  ONLCLIP - CHANGING THE VOLSER OF A DISK PACK   *   FILE 120
//*                  (WHILE THE PACK REMAINS ONLINE)                *   FILE 120
//*     BM2003MA  :  USING Z/OS SYSTEM SERVICES MACROS, OR NOT      *   FILE 120
//*     BM2011NV  :  AN INTRODUCTION TO THE IBM MAINFRAME AND ITS   *   FILE 120
//*                  Z/OS OPERATING SYSTEM                          *   FILE 120
//*     BM2023FE  :  MAKING BETTER SENSE OUT OF LOAD MODULES        *   FILE 120
//*     BM2310OC  :  LOOK, DUMP, AND SHOW                           *   FILE 120
//*     ----------------------------------------------------------- *   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
//*     CM0010OC  :  RUNNING MVS ON A PC                            *   FILE 120
//*     CM0011NV  :  DESIGNING SOFTWARE:  WHAT'S IN IT FOR US?      *   FILE 120
//*     CM0012DE  :  KEEPING YOUR FINGER ON THE PULSE               *   FILE 120
//*     CM0101JA  :  TAPES AND THEIR LABELS                         *   FILE 120
//*     CM0102FE  :  DEFINING DATASET CHARACTERISTICS               *   FILE 120
//*     CM0103MA  :  ISPF INTERFACES FOR MVS PROGRAMS               *   FILE 120
//*     CM0104AP  :  THE ART OF THE ZAP                             *   FILE 120
//*     CM0105MY  :  USING SYSPROG TOOLS WITH APP-PROG AUTHORITY    *   FILE 120
//*     CM0106JN  :  FIGURING OUT THAT MODULE                       *   FILE 120
//*     CM0107JL  :  EBCDIC TO ASCII - YES OR NO?                   *   FILE 120
//*     CM0108AU  :  ASSEMBLER PROGRAMMING REVISITED                *   FILE 120
//*     CM0109SE  :  NAVIGATING THE CBT TAPE COLLECTION             *   FILE 120
//*     CM0110OC  :  LEARNING ABOUT MVS FROM THE SMF BOOK           *   FILE 120
//*     CM0111NV  :  TSO BASICS, REVISITED                          *   FILE 120
//*     CM0112DE  :  VIRTUAL TAPES                                  *   FILE 120
//*     CM0201JA  :  DOES SOFTWARE USE DEPEND ON SOFTWARE COST?     *   FILE 120
//*     CM0202FE  :  THE NEW "REVIEW"                               *   FILE 120
//*     CM0203MA  :  GLOSSARIES                                     *   FILE 120
//*     CM0204AP  :  CBT TAPE SOFTWARE PACKAGING                    *   FILE 120
//*     CM0205MY  :  DRIVEN BY NECESSITY                            *   FILE 120
//*     CM0206JL  :  RETRO MVS COMPUTING                            *   FILE 120
//*     CM0207AU  :  POSITIONS, AND THE DIVISION OF LABOR           *   FILE 120
//*     CM0208SE  :  RECOVERY TOOLS                                 *   FILE 120
//*     CM0209OC  :  DEVELOPMENTS IN FREE MVS SOFTWARE              *   FILE 120
//*     CM0210NV  :  THOUGHTS ABOUT ASSEMBLER MACROS                *   FILE 120
//*     CM0211DE  :  TRICKS WITH TAPES - PART 1 - TAPE CONCEPTS     *   FILE 120
//*     CM0301JA  :  TRICKS WITH TAPES - PART 2-TAPE COPYING TRICKS *   FILE 120
//*     CM0302FE  :  TRICKS WITH TAPES - PART 3 - USING EXCP        *   FILE 120
//*     CM0303MA  :  A REPLACEMENT FOR MCNVTCAT                     *   FILE 120
//*     CM0304AP  :  TSSO REVISITED                                 *   FILE 120
//*     CM0305MY  :  THE CBT OVERFLOW TAPE                          *   FILE 120
//*     CM0306JN  :  EXPLORING MVS SAMPLIBS                         *   FILE 120
//*     CM0307JL  :  ATHLETICISM IN SYSTEMS PROGRAMMING             *   FILE 120
//*     CM0308AU  :  NOVEL IDEAS                                    *   FILE 120
//*     CM0309SE  :  A FRESH LOOK AT THE PDS COMMAND PACKAGE        *   FILE 120
//*     CM0310OC  :  A PHILOSOPHY OF MVS UTILITY DESIGN             *   FILE 120
//*                  - POWER VS SAFETY                              *   FILE 120
//*     CM0311NV  :  MAKING LIFE COMPLICATED                        *   FILE 120
//*     CM0312DE  :  EVERYBODY'S DIFFERENT                          *   FILE 120
//*     CM0401JA  :  PLAYING                                        *   FILE 120
//*     CM0402FE  :  MODULARIZING AN MVS SYSTEM - PART 1            *   FILE 120
//*     CM0403MA  :  MODULARIZING AN MVS SYSTEM - PART 2            *   FILE 120
//*     CM0404AP  :  MODULARIZING AN MVS SYSTEM - PART 3            *   FILE 120
//*     CM0405MY  :  WHAT'S FOREMOST IN YOUR MIND                   *   FILE 120
//*     CM0406JN  :  CBT TAPE NEW CONTRIBUTIONS                     *   FILE 120
//*     CM0407JL  :  MEASURING AND ACCESSING TAPE DATA              *   FILE 120
//*     CM0408AU  :  ANATOMY OF AN MVS BATTLEWAGON                  *   FILE 120
//*     CM0409SE  :  ADMINISTERING SYS1.BRODCAST                    *   FILE 120
//*     CM0410OC  :  WORK AND PLAY                                  *   FILE 120
//*     CM0411NV  :  PDS AND PDSE                                   *   FILE 120
//*     CM0412DE  :  IDEAS                                          *   FILE 120
//*     CM0501JA  :  MY POINT OF VIEW                               *   FILE 120
//*     CM0502FE  :  EMULATION AND MVS                              *   FILE 120
//*     CM0503MA  :  CREATIVITY                                     *   FILE 120
//*     CM0504AP  :  MVS SYSTEM LEVELS                              *   FILE 120
//*     CM0505MY  :  ACCUMULATING KNOWLEDGE IN ASSEMBLER            *   FILE 120
//*     CM0506JN  :  FIGURING STUFF OUT                             *   FILE 120
//*     CM0507JL  :  MVS IS ITS HISTORY                             *   FILE 120
//*     CM0508AU  :  HOW TO DO STUFF RIGHT                          *   FILE 120
//*     CM0509SE  :  POWER VERSUS SAFETY                            *   FILE 120
//*     CM0510OC  :  THE 30TH ANNIVERSARY OF THE CBT TAPE           *   FILE 120
//*     CM0511NV  :  MAKING YOUR WORK SHORTER WITH TOOLS            *   FILE 120
//*     CM0512DE  :  ALL BEGINNINGS ARE DIFFICULT                   *   FILE 120
//*     CM0601JA  :  WORKING WITH WHAT YOU HAVE, AND ENJOYING IT    *   FILE 120
//*     CM0602FE  :  TSO/E CONTROL BLOCKS - PART 1                  *   FILE 120
//*     CM0603MA  :  TSO/E CONTROL BLOCKS - PART 2                  *   FILE 120
//*     CM0604AP  :  INTERNATIONALIZATION                           *   FILE 120
//*     CM0605MY  :  WHY CONTROL BLOCKS?                            *   FILE 120
//*     CM0606JN  :  THE WORLD SHOULD BE FULL OF COLLECTORS         *   FILE 120
//*     CM0607JL  :  THE WORLD SHOULD BE FULL OF COLLECTORS - 2     *   FILE 120
//*     CM0608AU  :  CBT TAPE PACKAGING                             *   FILE 120
//*     CM0609SE  :  FIND AND REPLACE IN PLACE                      *   FILE 120
//*     CM0610OC  :  MVS KNOWLEDGE                                  *   FILE 120
//*     CM0611NV  :  SYSTEM RECOVERY TOOLS - PART 1                 *   FILE 120
//*     CM0612DE  :  SYSTEM RECOVERY TOOLS - PART 2                 *   FILE 120
//*     CM0701JA  :  A LITTLE BIT AT A TIME                         *   FILE 120
//*     CM0702FE  :  TECHNOLOGY BREEDS TECHNOLOGY                   *   FILE 120
//*     CM0703MA  :  SANITY CHECKS AND PROGRAMMING ENHANCEMENTS     *   FILE 120
//*     CM0704AP  :  MVS EXPERIENCE                                 *   FILE 120
//*     CM0705MY  :  IF IT AIN'T BROKE, DON'T FIX IT                *   FILE 120
//*     CM0706JN  :  THE STRUCTURE OF THE BROADCAST DATASET         *   FILE 120
//*                  - PART 1                                       *   FILE 120
//*     CM0707JL  :  THE STRUCTURE OF THE BROADCAST DATASET         *   FILE 120
//*                  - PART 2                                       *   FILE 120
//*     CM0708AU  :  THE STRUCTURE OF THE BROADCAST DATASET         *   FILE 120
//*                  - PART 3                                       *   FILE 120
//*     CM0709SE  :  SYSTEM SOFTWARE "QUALITY"                      *   FILE 120
//*     CM0710OC  :  EXPLORING "LIVE" STORAGE WITH THE "LOOK"       *   FILE 120
//*                  TSO COMMAND                                    *   FILE 120
//*     CM0711NV  :  DISPLAYING MVS SYSTEM VALUES - PART 1          *   FILE 120
//*     CM0712DE  :  DISPLAYING MVS SYSTEM VALUES - PART 2          *   FILE 120
//*     CM0801JA  :  PROTECTING OUR CODE FROM SYSTEM ERRORS         *   FILE 120
//*     CM0802FE  :  CBT TAPE RECENT DEVELOPMENTS - PART 1          *   FILE 120
//*     CM0803MA  :  CBT TAPE RECENT DEVELOPMENTS - PART 2          *   FILE 120
//*     CM0804AP  :  TAPE MAPPING, TAPE MEASURING, TAPE COPYING     *   FILE 120
//*     CM0805MY  :  PRESERVING YOUR TAPES FOR POSTERITY            *   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 from Sam Golob and contains a primitive system     *   FILE 123
//*           to limit the use of TSO commands in a TSO session.    *   FILE 123
//*           Sometimes, you can't give a group of users the full   *   FILE 123
//*           spectrum of TSO commands beyond the ones they really  *   FILE 123
//*           need.  See member $$NOTES for more details.           *   FILE 123
//*                                                                 *   FILE 123
//*           This file contains several programs which reflect     *   FILE 123
//*           the TSO command entered, back to the terminal,        *   FILE 123
//*           without doing any other action.  If you want to       *   FILE 123
//*           block a user from using a particular TSO command,     *   FILE 123
//*           create a load library to concatenate (in a STEPLIB)   *   FILE 123
//*           ahead of all the other libraries that their TSO       *   FILE 123
//*           session has access to, then put one of these three    *   FILE 123
//*           programs into that library.  I greatly prefer to use  *   FILE 123
//*           the ECHOPGM command for this.  Then create an ALIAS   *   FILE 123
//*           member to the ECHOPGM program (using the PDS program  *   FILE 123
//*           from File 182 of the CBT Tape).  When you enter       *   FILE 123
//*           a command with that alias name, the ECHOPGM program   *   FILE 123
//*           is executed, and it reflects that command's name      *   FILE 123
//*           back to the terminal, with all its parameters.        *   FILE 123
//*                                                                 *   FILE 123
//*           If the user enters a "forbidden" program, his/her     *   FILE 123
//*           command is merely reflected back to the terminal,     *   FILE 123
//*           with all the parameters, and it doesn't do anything.  *   FILE 123
//*           Therefore the system is "protected" from that user,   *   FILE 123
//*           and the commands entered also can be logged.          *   FILE 123
//*                                                                 *   FILE 123
//*           Using the PDS command processor on File 182, you      *   FILE 123
//*           can create hundreds or thousands of aliases to one    *   FILE 123
//*           program.  It's usually easiest to do this with        *   FILE 123
//*           PDS running under TSO-in-batch.  If you really want   *   FILE 123
//*           to get fancy, just copy ECHOPGM to a new library,     *   FILE 123
//*           and then you can ALIAS all the program names in       *   FILE 123
//*           SYS1.CMDLIB and the other TSO command libraries.      *   FILE 123
//*           Then you delete the aliases for the commands the      *   FILE 123
//*           users are permitted to use.  Make sure there are      *   FILE 123
//*           enough directory blocks in the STEPLIB library,       *   FILE 123
//*           to contain all the alias names.  On a 3390 pack,      *   FILE 123
//*           45 directory blocks are on a track.  44 are on the    *   FILE 123
//*           first directory track, and 45 on all the others.      *   FILE 123
//*                                                                 *   FILE 123
//*           Here's some sample TSO-in-batch JCL to create         *   FILE 123
//*           aliases to a TSO command program.                     *   FILE 123
//*                                                                 *   FILE 123
//*       //SAGOLOBT  JOB (ACCT#),S-GOLOB,                          *   FILE 123
//*       // NOTIFY=&SYSUID,                                        *   FILE 123
//*       // CLASS=S,MSGCLASS=X                                     *   FILE 123
//*       //*                                                       *   FILE 123
//*       //TSOBATCH EXEC PGM=IKJEFT01                              *   FILE 123
//*       //STEPLIB  DD DISP=SHR,DSN=library.where.PDS.is           *   FILE 123
//*       //SYSTSPRT DD SYSOUT=*                                    *   FILE 123
//*       //SYSTSIN  DD *                                           *   FILE 123
//*        PDS 'your.new.steplib'                                   *   FILE 123
//*        ALIAS ECHOPGM command1                                   *   FILE 123
//*        ALIAS ECHOPGM command2                                   *   FILE 123
//*        ALIAS ECHOPGM command3                                   *   FILE 123
//*        ALIAS ECHOPGM command4                                   *   FILE 123
//*        END                                                      *   FILE 123
//*       /*                                                        *   FILE 123
//*              Do this to as many commands as you want.           *   FILE 123
//*                                                                 *   FILE 123
//*           The three ECHO*** programs included here are:         *   FILE 123
//*                                                                 *   FILE 123
//*        ECHOADF  - Only works under the TSO Session Manager,     *   FILE 123
//*                   EXEC PGM=ADFMDF03 in the logon proc.          *   FILE 123
//*                   (Don't use this program--we have better.)     *   FILE 123
//*                                                                 *   FILE 123
//*        ECHOTPUT - Reflects the entire contents of the command   *   FILE 123
//*                   buffer back to the terminal, using TPUT.      *   FILE 123
//*                   (Don't use this program--we have better.)     *   FILE 123
//*                                                                 *   FILE 123
//*        ECHOPGM  - Reflects the entire contents of the command   *   FILE 123
//*                   buffer back to the terminal, using PUTLINE.   *   FILE 123
//*                   (This program can echo up to 250 characters.  *   FILE 123
//*                    See the MAXMSG label in the EPUTL csect.)    *   FILE 123
//*                   (Use this program. It's the best we have.)    *   FILE 123
//*                                                                 *   FILE 123
//*    ---->   ECHOPGM is the preferred program to use.     <----   *   FILE 123
//*            ------- -- --- --------- ------- -- ---              *   FILE 123
//*    ---->    The other programs are included only as     <----   *   FILE 123
//*    ---->    coding examples and for experimentation.    <----   *   FILE 123
//*                                                                 *   FILE 123
//*          Sam Golob                                              *   FILE 123
//*                                                                 *   FILE 123
//*      email:  sbgolob@cbttape.org                                *   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 Jamie Gibson of Toys R Us in Parsippany,      *   FILE 126
//*           N.J., and contains exits and modifications            *   FILE 126
//*           that allow:                                           *   FILE 126
//*                                                                 *   FILE 126
//*    email:   gibsonj@toysrus.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
//*                  (FIXED BY "UPDATER")                           *   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, and contains several of his    *   FILE 133
//*           utilities.  This file contains the following members, *   FILE 133
//*           with JCL to assemble them.                            *   FILE 133
//*                                                                 *   FILE 133
//*           Note:  Also look at CBT File 066 from Alan Field.     *   FILE 133
//*                                                                 *   FILE 133
//*           email:    alan_c_field@bluecrossmn.com                *   FILE 133
//*                                                                 *   FILE 133
//*           All this stuff now assembles cleanly on z/OS 1.13     *   FILE 133
//*           and it seems to run OK there, too.                    *   FILE 133
//*                                                                 *   FILE 133
//*           For the old versions of everything, see member ASM.   *   FILE 133
//*                                                                 *   FILE 133
//*           CLIST    - SOME CLISTS TO DEMONSTRATE THE USE OF SOME *   FILE 133
//*                      OF THE UTILITIES INCLUDED IN THIS FILE.    *   FILE 133
//*                      (in IEBUPDTE SYSIN format)                 *   FILE 133
//*                                                                 *   FILE 133
//*           CNTL     - JCL TO RUN SOME OF THE UTILITIES INCLUDED  *   FILE 133
//*                      IN THIS FILE.                              *   FILE 133
//*                      (in IEBUPDTE SYSIN format)                 *   FILE 133
//*                                                                 *   FILE 133
//*           ASM      - ASSEMBLER LANGUAGE SOURCE FOR SOME USEFUL  *   FILE 133
//*                      UTILITIES (now contains old assembler      *   FILE 133
//*                      source - possibly still useful for MVS     *   FILE 133
//*                      3.8.)                                      *   FILE 133
//*                                                                 *   FILE 133
//*                      New assembler source is now broken out     *   FILE 133
//*                      into individual members, together with     *   FILE 133
//*                      sample assembly JCL.                       *   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
//*                            (Adjusted slightly by Sam Golob      *   FILE 133
//*                            to remove most of the user SVC's     *   FILE 133
//*                            and to add a few new IBM entries.)   *   FILE 133
//*                                                                 *   FILE 133
//*                 DSSLVL   - DISPLAY CURRENT DF/DSS PROGRAM       *   FILE 133
//*                            LEVEL.                               *   FILE 133
//*                                                                 *   FILE 133
//*                 JULSUB   - DATE CONVERSION SUBROUTINE.          *   FILE 133
//*                            (Adjusted slightly by Sam Golob.)    *   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
//*                            (Fixed to create PUTLINE output      *   FILE 133
//*                             by S.Golob, Mar, 2012)              *   FILE 133
//*                            (Original version is LASTCLPO which  *   FILE 133
//*                             uses TPUT terminal output.)         *   FILE 133
//*                            (Fixed for z/OS 2.2 whose release    *   FILE 133
//*                             number '77A0' sorts lower than      *   FILE 133
//*                             z/OS 1.2, whose number is '7705'.   *   FILE 133
//*                             Used CVTOSLV3 to determine level,   *   FILE 133
//*                             instead of release number.)         *   FILE 133
//*                                                                 *   FILE 133
//*                 LNKLST   - DISPLAY NAMES OF LINKLST DATASETS    *   FILE 133
//*                            CURRENTLY IN USE.                    *   FILE 133
//*                                                                 *   FILE 133
//*                 LOGTIME  - TSO COMMAND TO DISPLAY LOGON TIME    *   FILE 133
//*                            AND DATE FOR THIS TSO SESSION.       *   FILE 133
//*                            (Taken from PSCB Logon Time field    *   FILE 133
//*                            and formatted like LISTCLPA display) *   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
//*                            (Enhanced by Sam Golob. Please see   *   FILE 133
//*                            notes in member SVCTAB#.)            *   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.  (Member contains old macros   *   FILE 133
//*                      to fit the source in the old ASM member.)  *   FILE 133
//*                                                                 *   FILE 133
//*                      (Macros are now broken out into indivi-    *   FILE 133
//*                      dual pds members, marked with id MACRO.)   *   FILE 133
//*                                                                 *   FILE 133
//*           SVTOC    - 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
//*                                                                 *   FILE 134
//*           A very large body of work, including many tools.      *   FILE 134
//*                                                                 *   FILE 134
//*              email:  greg.price@optusnet.com.au                 *   FILE 134
//*                                                                 *   FILE 134
//*       >>  A load library for REVIEW load modules, was taken     *   FILE 134
//*       >>  from Greg's load library and put into TSO XMIT format *   FILE 134
//*       >>  as member REVlOAD in this pds.  That is to make the   *   FILE 134
//*       >>  REVIEW command easier to install quickly, if you      *   FILE 134
//*       >>  don't want to assemble it.  The MVS 370 load library  *   FILE 134
//*       >>  is the member, named REV370LD,                        *   FILE 134
//*                                                                 *   FILE 134
//*       >>  Please try to use RFE (the REVIEW Front End) program. *   FILE 134
//*       >>  We suspect that you'll like it.  It was developed     *   FILE 134
//*       >>  for MVS 3.8, but it is just as useful on z/OS.        *   FILE 134
//*                                                                 *   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  - Lex Eremin's ENCRYPT/DECRYPT TSO commands. *   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 Halliday.        *   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
//*                      Adventure 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 C.H.      *   FILE 134
//*                                                                 *   FILE 134
//*           DATABASE - Input file to PROGRAM - PL/I Adventure.    *   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
//*                      (Fixed by UPDATER for z/OS, at least 2.2)  *   FILE 134
//*                                                                 *   FILE 134
//*           DECDATE  - Assembler subroutines of PL/I Adventure.   *   FILE 134
//*                                                                 *   FILE 134
//*           DECIDER  - Clist for vocational guidance.             *   FILE 134
//*                                                                 *   FILE 134
//*           DIVER    - TSO TPUT program written by Steve Beer.    *   FILE 134
//*                      Uses extended colour and graphics 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 SMP/E 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
//*           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
//*           IKJEFLD3 - TSO Logon Post-Prompt exit to copy RACF    *   FILE 134
//*                      user's name into TSO session JOB card,     *   FILE 134
//*                      and allow multiple TSO sessions per id.    *   FILE 134
//*                                                                 *   FILE 134
//*           IMAGE1-2 - Static vector graphics sample by Craig     *   FILE 134
//*                      Halliday 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 PDSs 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 MVSs.  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
//*           MINIZIP# - Documentation on the stand-alone usage of  *   FILE 134
//*                      the MINIZIP and MINIUNZ programs/commands  *   FILE 134
//*                      now included in file 135.  The MINIUNZ     *   FILE 134
//*                      program is called by REVIEW to allow the   *   FILE 134
//*                      browsing (and copying) of data stored in   *   FILE 134
//*                      a ZIP archive file.                        *   FILE 134
//*                                                                 *   FILE 134
//*           MULTITSO - Documentation on using SVC56FE and exit    *   FILE 134
//*                      IKJEFLD3 to allow multiple concurrent      *   FILE 134
//*                      TSO sessions per TSO userid.               *   FILE 134
//*                                                                 *   FILE 134
//*           OFFLMOD  - C program/command by Jason Winter to       *   FILE 134
//*                      perform load module offload into REVLMOD   *   FILE 134
//*                      format without having to use REVIEW        *   FILE 134
//*                      interactively.  For MVS 3.8 to z/OS.       *   FILE 134
//*                                                                 *   FILE 134
//*           OFFLSAMP - Sample JCL to use OFFLMOD.                 *   FILE 134
//*                                                                 *   FILE 134
//*           OAC..... - Macros used by ZAP.                        *   FILE 134
//*                                                                 *   FILE 134
//*           PDSETEST - Show PDSE dir QSAM bug.  Fixed in OS/390.  *   FILE 134
//*                      See member $$INDEX6 for details.           *   FILE 134
//*                                                                 *   FILE 134
//*           PGMCOMP  - Job stream to compile and link Adventure.  *   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 (Adventure).                       *   FILE 134
//*                                                                 *   FILE 134
//*           PROGRAM  - PL/I source of Adventure taken from a      *   FILE 134
//*                      SHARE tape and modified.                   *   FILE 134
//*                                                                 *   FILE 134
//*           PS-PS7   - Vector graphics TPUT pgms by Chris Slarke. *   FILE 134
//*                                                                 *   FILE 134
//*           RANDU    - FORTRAN subroutine of PROGRAM (Adventure). *   FILE 134
//*                      Generates no FORTLIB calls.                *   FILE 134
//*                                                                 *   FILE 134
//*           REV$MVS  - JCL to assemble REVIEW under MVS 3.8J      *   FILE 134
//*                      using the Tachyon Legacy Assembler.        *   FILE 134
//*                                                                 *   FILE 134
//*           REV$ZOS  - JCL to assemble REVIEW under z/OS.         *   FILE 134
//*                                                                 *   FILE 134
//*           REVCAT   - SYSCTLG browser adapted from REVIEW just   *   FILE 134
//*                      because CVOLs are organized like PDS       *   FILE 134
//*                      directory blocks.  Shouldn't need it now.  *   FILE 134
//*                                                                 *   FILE 134
//*           REVCMPBF - 3270 buffer compression routine used by    *   FILE 134
//*                      REVIEW and REVCAT.                         *   FILE 134
//*                                                                 *   FILE 134
//*           REVED    - Alias of 'REVIEW' to facilitate editing.   *   FILE 134
//*                                                                 *   FILE 134
//*           REVEDIT  - Source of the REVIEW Editor subroutine.    *   FILE 134
//*                                                                 *   FILE 134
//*           REVEDIT# - TSO help for REVEDIT.                      *   FILE 134
//*                                                                 *   FILE 134
//*           REVGEN   - REVIEW source option settings.             *   FILE 134
//*                                                                 *   FILE 134
//*           REVIEW   - The original reason for this whole file.   *   FILE 134
//*                      "Release 50.4"                             *   FILE 134
//*                      Non-ISPF full-colour fullscreen tape/disk  *   FILE 134
//*                      VSAM/non-VSAM data set and DB2 tablespace  *   FILE 134
//*                      parallel browser, PDS searcher, editor,    *   FILE 134
//*                      SMF/LOGREC/VTOC and general DSECT record   *   FILE 134
//*                      formatter, PDS offloader, data filter,     *   FILE 134
//*                      reclaimer and translator, front-end for    *   FILE 134
//*                      PDS reloader, load module delinker, and    *   FILE 134
//*                      unzipper.  Now with logical PARMLIB        *   FILE 134
//*                      support, ZIP file directory formatting,    *   FILE 134
//*                      PCX (Paintbrush) and BMP (Windows and OS/2 *   FILE 134
//*                      bitmap) file picture image rendering,      *   FILE 134
//*                      program object history and mapping, and    *   FILE 134
//*                      point-and-shoot entry.  "USS Explorer".    *   FILE 134
//*                      Navigate around HFS directories.  REVIEW,  *   FILE 134
//*                      browse, edit and search UNIX files.        *   FILE 134
//*                      Display program object long alias names.   *   FILE 134
//*                      Display job status and held SYSOUT data.   *   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 z/OS.           *   FILE 134
//*                                                                 *   FILE 134
//*           REV$$$$$ - An explanation of REVIEW packaging. The    *   FILE 134
//*                      entire package can now be installed using  *   FILE 134
//*                      XMIT-format files, marked with an ISPF     *   FILE 134
//*                      userid of REVXMIT.  (Release 48.6)         *   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 or run as a batch utility.       *   FILE 134
//*                                                                 *   FILE 134
//*           REVLMOD$ - JCL to assemble REVLMOD.                   *   FILE 134
//*                                                                 *   FILE 134
//*           REVLSAMP - Sample JCL to use REVLMOD.                 *   FILE 134
//*                                                                 *   FILE 134
//*           REVMSGS  - REVIEW fullscreen message CSECT.           *   FILE 134
//*                                                                 *   FILE 134
//*           REVOUT   - Fullscreen job status and held SYSOUT      *   FILE 134
//*                      display - an alias of 'REVIEW'.            *   FILE 134
//*                                                                 *   FILE 134
//*           REVOUT#  - TSO help for REVOUT.                       *   FILE 134
//*                                                                 *   FILE 134
//*           REVOUTJB - TSO clist used by REVOUT.                  *   FILE 134
//*                                                                 *   FILE 134
//*           REVPCX.. - Sample PCX files to allow testing of       *   FILE 134
//*                      REVIEW picture rendering without file      *   FILE 134
//*                      transfer - need 3270 graphics terminal.    *   FILE 134
//*                      Note that GDDM (base) may be called.       *   FILE 134
//*                                                                 *   FILE 134
//*           REVPDS#  - REVIEW PDS member list TSO HELP.           *   FILE 134
//*                                                                 *   FILE 134
//*           REVPDSE# - REVIEW PDSE program member list TSO HELP.  *   FILE 134
//*                                                                 *   FILE 134
//*           REVPLIB  - TSO/E XMIT file of REVIEW's ISPF panels.   *   FILE 134
//*                                                                 *   FILE 134
//*           REVPROF  - ISPF profile member for REVIEW.            *   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
//*           REVSUBS  - Source of REVIEW subroutine CSECTs.        *   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
//*           REVUNIX# - REVIEW UNIX directory list TSO help.       *   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 z/OS.                         *   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
//*           SVC56FE  - Front end to SVC 56 (ENQ) to convert all   *   FILE 134
//*                      SYSIKJUA enqueues to SHARED.  Part of the  *   FILE 134
//*                      MULTITSO package.  Install with SVC56FE$.  *   FILE 134
//*                                                                 *   FILE 134
//*           SVC56LDR - Program to activate SVC56FE.  Part of the  *   FILE 134
//*                      MULTITSO package.  Install with SVC56LD$.  *   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.  (Small fix applied. SG per GIP)  *   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
//*           For additional information see the members            *   FILE 134
//*           $$INDEX through $$INDX40.                             *   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
//*           Current level of REVIEW is 50.1.                      *   FILE 135
//*                                                                 *   FILE 135
//*           Important addition to this file:  Load Modules        *   FILE 135
//*           for IM (aka IMON) which is Greg's fantastic           *   FILE 135
//*           system monitor.  Source is on File 010.               *   FILE 135
//*                                                                 *   FILE 135
//*        ** Programs and commands from File 010:                  *   FILE 135
//*              (See File 010 for source and documentation)        *   FILE 135
//*                                                                 *   FILE 135
//*           IM       - TSO cp - This is Greg's super duper        *   FILE 135
//*                      system monitor THAT YOU USED TO HAVE       *   FILE 135
//*                      TO PAY FOR...!!!!  (DON'T MISS THIS..!!)   *   FILE 135
//*           IMDATGAT - other                                      *   FILE 135
//*           IMPXAGLS -   modules                                  *   FILE 135
//*           IMPXASPY -     that go                                *   FILE 135
//*           IMSPACER -       with IM (otherwise known as IMON)    *   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
//*           GRPSTR   - TSO cp within clist only - RACF only       *   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
//*           OFFLMOD  - TSO/batch C utility by Jason Winter.       *   FILE 135
//*           PROGRAM  - TSO pgm - PL/I Adventure                   *   FILE 135
//*           PS-PS7   - TSO cp or pgm - TPUT demo                  *   FILE 135
//*           REVIEW   - TSO cp - has the following aliases:        *   FILE 135
//*                      REV,REVED,REVOUT,REVVSAM,HEL,FSHELP,FSH.   *   FILE 135
//*           REVLMOD  - TSO/batch pgm - mainly for use by REVIEW   *   FILE 135
//*           REVSMF   - External subroutine of REVIEW              *   FILE 135
//*           RFE      - REVIEW Front End                           *   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
//*           PDS86    - 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
//*                                                                 *   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
//*        ** Programs and commands from file 492:                  *   FILE 135
//*                                                                 *   FILE 135
//*           SHOWzOS  - TSO cp or pgm - ISPF recommended           *   FILE 135
//*                                                                 *   FILE 135
//***FILE 136 is from Mr Howard Dean of Alameda, 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
//*       Howard Dean has contributed another file, CBT File 119,   *   FILE 136
//*       which is of earlier date than this file.  When looking    *   FILE 136
//*       at programs from this file, CBT File 119 may also be      *   FILE 136
//*       a useful reference to look at, but this file is later.    *   FILE 136
//*                                                                 *   FILE 136
//*       further support:  Sam Golob                               *   FILE 136
//*                 email:  sbgolob@cbttape.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
//*                         (Cleaned up a bit by Sam Golob.)        *   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 Billy Fenwick and contains a detailed report  *   FILE 137
//*           system, to carefully and accurately control the       *   FILE 137
//*           distribution of reports, to only those people who are *   FILE 137
//*           allowed to see them.                                  *   FILE 137
//*                                                                 *   FILE 137
//*           email:  whfenwick01@gmail.com                         *   FILE 137
//*                                                                 *   FILE 137
//*       Copyright (c) 1991-2020 William H. Fenwick                *   FILE 137
//*                                                                 *   FILE 137
//*       Permission is granted for this software product to be     *   FILE 137
//*       distributed on the CBT Tape, and it may be used by        *   FILE 137
//*       anyone, but it may not be sold.  All CBT Tape disclaimers *   FILE 137
//*       apply.                                                    *   FILE 137
//*                                                                 *   FILE 137
//*       This a general description of the package.                *   FILE 137
//*                                                                 *   FILE 137
//*       This is a COBOL/CICS/VSAM based report viewing system.    *   FILE 137
//*       While most z/OS shops today have several ways to view     *   FILE 137
//*       reports.  I believe this system is unique in the way it   *   FILE 137
//*       allows users to view reports.  There is an internal       *   FILE 137
//*       security system in place that allows users to see only    *   FILE 137
//*       the reports they have access to or parts of a report.     *   FILE 137
//*       Multiple reports for multiple dates are normally stored   *   FILE 137
//*       in the VSAM files.  Also, users are only allowed to       *   FILE 137
//*       view reports for the Bank and Branch they have access     *   FILE 137
//*       to.  While this system was written for a Bank and         *   FILE 137
//*       Branch environment it can be made to fit other formats.   *   FILE 137
//*       Division and Department, Region and Division,, etc.       *   FILE 137
//*                                                                 *   FILE 137
//*       This system has a batch process that scans (JES2)         *   FILE 137
//*       report data and builds data records, index records and    *   FILE 137
//*       history records.  The CICS access process uses the        *   FILE 137
//*       History and Index records to access the Report data.      *   FILE 137
//*       Security records are used to verify exactly what a user   *   FILE 137
//*       is allowed to view.                                       *   FILE 137
//*                                                                 *   FILE 137
//*       My intent in the general copyright stuff was to say       *   FILE 137
//*       you can you this system freely.  However I don't want     *   FILE 137
//*       someone to install and use the system then charge their   *   FILE 137
//*       customers for using it.  Also I don't want someone to     *   FILE 137
//*       sell this system or at least not sell it without          *   FILE 137
//*       including me.                                             *   FILE 137
//*                                                                 *   FILE 137
//*       Having said that we don't really have a good way to       *   FILE 137
//*       manage that either.  In the end you have to trust         *   FILE 137
//*       folks.                                                    *   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 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
//*           WHOHAS    TSO command to discover enqueues to a       *   FILE 139
//*                     dataset.  Uses GQSCAN service.  S.Golob     *   FILE 139
//*                     added code to end the program with an =     *   FILE 139
//*                     sign, or BYE, or QUIT.  You can adjust      *   FILE 139
//*                     the code in case any dataset names start    *   FILE 139
//*                     with these letters.  Ending the program     *   FILE 139
//*                     with a null command, can't be done if you   *   FILE 139
//*                     are using TSO Session Manager--at least     *   FILE 139
//*                     not easily.                                 *   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 OF CHARLES SCHWAB AND CONTAINS  *   FILE 145
//*           THE LOAD MODULES FOR KERMIT. THIS FILE IS IN IEBCOPY  *   FILE 145
//*           FORMAT                                                *   FILE 145
//*                                                                 *   FILE 145
//***FILE 146 IS FROM MR BILL SMITH, FORMERLY OF CHARLES SCHWAB,    *   FILE 146
//*           AND CONTAINS A COPY OF KERMIT FOR TSO.  THIS FILE IS  *   FILE 146
//*           IN IEBCOPY FORMAT AND CONTAINS SOURCE.                *   FILE 146
//*                                                                 *   FILE 146
//*         ADDRESS:   WILLIAM SMITH                                *   FILE 146
//*                    IBM                                          *   FILE 146
//*                    STORAGE SYSTEMS DIVISION                     *   FILE 146
//*                    5600 COTTLE ROAD                             *   FILE 146
//*                    DEPT. W98A                                   *   FILE 146
//*                    DRIVER BUILD & INTEGRATION                   *   FILE 146
//*                    BUILDING 50, ROOM A382                       *   FILE 146
//*                    SAN JOSE, CA 95193-0001                      *   FILE 146
//*                    (408) 256-1557 OR                            *   FILE 146
//*                    TIE LINE 276-1557                            *   FILE 146
//*                                                                 *   FILE 146
//*         email:     smithwj@us.ibm.com                           *   FILE 146
//*                    sfowjs@sbcglobal.net                         *   FILE 146
//*                                                                 *   FILE 146
//*           THE KERMIT COMMAND INVOKES KERMIT-TSO, AN ASSEMBLY    *   FILE 146
//*           LANGUAGE PROGRAM WHICH IMPLEMENTS THE KERMIT FILE     *   FILE 146
//*           TRANSFER PROTOCOL ON IBM SYSTEM/370 AND XA MAINFRAME  *   FILE 146
//*           COMPUTERS AND COMPATIBLES RUNNING THE MVS (MULTIPLE   *   FILE 146
//*           VIRTUAL STORAGE) OPERATING SYSTEM WITH THE TSO (TIME  *   FILE 146
//*           SHARING OPTION) SUBSYSTEM.  KERMIT-TSO SUPPORTS FILE  *   FILE 146
//*           TRANSFER IN BOTH LINE-MODE AND FULL-SCREEN OPERATION. *   FILE 146
//*                                                                 *   FILE 146
//*           LINE-MODE SUPPORTS ASYNCHRONOUS  HALF-DUPLEX ASCII    *   FILE 146
//*           COMMUNICATIONS THROUGH 3705/3725 OR EQUIVALENT FRONT  *   FILE 146
//*           ENDS, WHILE FULL-SCREEN SUPPORTS ASYNCHRONOUS         *   FILE 146
//*           FULL-DUPLEX ASCII COMMUNICATIONS THROUGH THE IBM      *   FILE 146
//*           SERIES/1 RUNNING THE YALE ASCII COMMUNICATIONS SYSTEM *   FILE 146
//*           (OR EQUIVALENT) OR VARIOUS OTHER CONVERTERS WITH      *   FILE 146
//*           GRAPHICS THROUGHPUT OPTION.                           *   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.5.  This file is     *   FILE 147
//*           in IEBUPDTE SYSIN format.                             *   FILE 147
//*                                                                 *   FILE 147
//*           Rob Prins is the current maintainer of ARCHIVER.      *   FILE 147
//*                                                                 *   FILE 147
//*           Unfortunately, Rick Fochtman passed away several      *   FILE 147
//*           years ago.  Support emails are listed below.          *   FILE 147
//*                                                                 *   FILE 147
//*           ARCHIVER documentation has been put into PDF and      *   FILE 147
//*           MSWORD formats.  Members as follows:                  *   FILE 147
//*                                                                 *   FILE 147
//*           ARCHIVE#  - doc in PDF format                         *   FILE 147
//*           ARCHIVE@  - doc in MSWORD format                      *   FILE 147
//*                                                                 *   FILE 147
//*           Loadmodules for OS/390 and z/OS:                      *   FILE 147
//*           If you do a TSO RECEIVE of member LOADXMI, the        *   FILE 147
//*           LOADLIB has been created. Actually you don't need     *   FILE 147
//*           to assemble and link ARCHIVER, the loadmodules will   *   FILE 147
//*           run on an OS/390 or z/OS system.                      *   FILE 147
//*                                                                 *   FILE 147
//*           Loadmodules for MVS:                                  *   FILE 147
//*           If you do a TSO RECEIVE of member LOADXMIM, the       *   FILE 147
//*           LOADLIB has been created. Actually you don't need     *   FILE 147
//*           to assemble and link ARCHIVER, the loadmodules will   *   FILE 147
//*           run on a MVS system.                                  *   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
//*           Please refer all questions to Sam Golob or Rob Prins  *   FILE 147
//*                                                                 *   FILE 147
//*              email:  sbgolob@cbttape.org    (Sam Golob)         *   FILE 147
//*                                                                 *   FILE 147
//*              email:  prin0096@gmail.com     - or -              *   FILE 147
//*                      robprins2@kpnmail.nl   (Rob Prins)  -      *   FILE 147
//*                                                                 *   FILE 147
//*            Rob Prins is now the maintainer of the ARCHIVER.     *   FILE 147
//*                                                                 *   FILE 147
//*            Rob Prins is not to be confused with Robert A.H.     *   FILE 147
//*            Prins, who is a different person.                    *   FILE 147
//*                                                                 *   FILE 147
//*           ---------------------------------------------------   *   FILE 147
//*           Modification note:                                    *   FILE 147
//*                                                                 *   FILE 147
//*            Modified slightly by Rob Prins, (Version 6.1.2)      *   FILE 147
//*            The reason was that ARCHIVER was traditionally       *   FILE 147
//*            meant to be used in batch.  However, Rob, who is     *   FILE 147
//*            the author of RPF (Rob's Programming Facility -      *   FILE 147
//*            CBT File 415) wanted RPF to interactively be able    *   FILE 147
//*            to access and modify an Archive.  He found that      *   FILE 147
//*            some LOAD macros were not matched by corresponding   *   FILE 147
//*            DELETE macros, etc., plus a few other errors,        *   FILE 147
//*            which didn't show up when the ARCHIVER was run in    *   FILE 147
//*            batch.  These were fixed here.                       *   FILE 147
//*            Another modification is introducing an EXEC PARM     *   FILE 147
//*            By specifying 'PARM=SYSIN=ddname1,SYSPRINT=ddname2'  *   FILE 147
//*            you can override the standard ddnames for SYSIN and  *   FILE 147
//*            SYSPRINT. If you omit the PARM the standard ddnames  *   FILE 147
//*            SYSIN and SYSPRINT are used.                         *   FILE 147
//*                                                                 *   FILE 147
//*           Version 6.1.5: September 2023                         *   FILE 147
//*           - Fix an ABEND0C4 in module ARCHRSPC by adding        *   FILE 147
//*             MF=(G,GENWRK) in the TESTCB te restore the          *   FILE 147
//*             reentrancy of the loadmodule.                       *   FILE 147
//*           - Fix incorrout completion message after ALTER.       *   FILE 147
//*           - Fix detection of duplicate key in ARCHRSPC, to      *   FILE 147
//*             avoid deletion of item if the newname exist in      *   FILE 147
//*             ALTER (rename item).                                *   FILE 147
//*                                                                 *   FILE 147
//*           ---------------------------------------------------   *   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
//*     >>>>  An adaptation was made to ARCHIVER, to be able to     *   FILE 147
//*     >>>>  assemble and run it on MVS 3.8J, under Hercules.      *   FILE 147
//*     >>>>  This update came from Dave Cartwright.  See his       *   FILE 147
//*     >>>>  members $ARCH370 and $INST370.  Since MVS 3.8J and    *   FILE 147
//*     >>>>  Hercules are accessible to all, they can provide a    *   FILE 147
//*     >>>>  suitable medium for archiving all your later MVS      *   FILE 147
//*     >>>>  software goodies for posterity.  And you won't have   *   FILE 147
//*     >>>>  to be dependent on an employer, to be able to         *   FILE 147
//*     >>>>  access, read, and update your stuff.  There are       *   FILE 147
//*     >>>>  also a couple of bug fixes to the main ARCHIVER       *   FILE 147
//*     >>>>  code.                                                 *   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:   sbgolob@cbttape.org                         *   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 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
//*           email:  geoffrey.mcintyre@firstunion.com              *   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
//*         COMPLOAD - LOAD MODULE / CSECT COMPARE PROGRAM.         *   FILE 149
//*                    *** REQUIRED ***                             *   FILE 149
//*                    Renamed to make its function clearer.        *   FILE 149
//*                    Same as COMPARE program, except that         *   FILE 149
//*                    printable bytes are displayed in EBCDIC,     *   FILE 149
//*                    next to the HEX bytes.                       *   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
//*               Harold Zbiegien                    *   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)"     *   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
//*           email:  sbgolob@cbttape.org                           *   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.  (MODIFIED BY        *   FILE 160
//*                     JEFFREY R. BROIDO TO ADD SEVERAL OPTIONS)   *   FILE 160
//*                     (OLDER VERSION IS MEMBER FREEALL0)          *   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
//*          ISPFPRIM - COPIED FROM CBT FILE010. SEE MEMBER         *   FILE 160
//*                     $$$DOC10 FOR EXPLANATION.                   *   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                                    *   FILE 161
//*                 Office of Personnel Management                  *   FILE 161
//*                 CIO/WTC - Room BH04                             *   FILE 161
//*                 1900 E Street NW                                *   FILE 161
//*                 Washington DC   20415-0001                      *   FILE 161
//*                 w - 202-606-1261                                *   FILE 161
//*                 f - 202-606-2092                                *   FILE 161
//*                 jdmarsha@opm.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 IN      *   FILE 162
//*           CHARLOTTESVILLE VIRGINIA.  THIS FILE CONTAINS A COPY  *   FILE 162
//*           OF 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   z/OS      A utility for converting an          *   FILE 162
//*                            assembly listing into SUPERZAP       *   FILE 162
//*                            cards.                               *   FILE 162
//*                                                                 *   FILE 162
//*    blksptrk.zip  z/OS      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    z/OS      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  z/OS      A set of MVS programs for            *   FILE 162
//*                            scheduling the execution of System   *   FILE 162
//*                            Operator Commands on an interval     *   FILE 162
//*                            or calendar basis. Can be used to    *   FILE 162
//*                            control production scheduling.       *   FILE 162
//*                                                                 *   FILE 162
//*    xrefasm.zip   z/OS      A pair of programs for producing     *   FILE 162
//*                            master cross-reference listings      *   FILE 162
//*                            for multi-assembly programs.         *   FILE 162
//*                                                                 *   FILE 162
//*          Colesoft Marketing, Inc.                               *   FILE 162
//*          414 3rd ST. NE                                         *   FILE 162
//*          Charlottesville, VA 22902 USA                          *   FILE 162
//*          540-456-8210                                           *   FILE 162
//*          www.colesoft.com                                       *   FILE 162
//*          email:  dbcole@gmail.com                               *   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 and contains a nice collection        *   FILE 166
//*           of utilities, exits, and REXX execs.  This file       *   FILE 166
//*           is worth a very good look.                            *   FILE 166
//*                                                                 *   FILE 166
//*       email:  Vinh Vu                        *   FILE 166
//*                                                                 *   FILE 166
//*    CONTENTS OF THIS PDS:                                        *   FILE 166
//*                                                                 *   FILE 166
//*      $ALIDEF  -  THIS EXEC MACRO CREATES THE IDCAMS DELETE AND  *   FILE 166
//*                  DEFINE ALIAS FOR A LIST OF DATASETS.  PARM     *   FILE 166
//*                  EXEPECTED IS CATALOG NAME, AND OPTIONAL 'O'    *   FILE 166
//*                  FOR (ONLY DEFINE, AND NO DELETE STATEMENTS     *   FILE 166
//*                  FOR THE ALIAS BEFORE RE-DEFINING IT).          *   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
//*      $CATDEF  -  THIS EXEC MACRO CREATES THE IDCAMS DELETE AND  *   FILE 166
//*                  DEFINE STMTS FOR A LIST OF DATASETS.  PARM     *   FILE 166
//*                  EXEPECTED IS CATALOG NAME, VOLSER AND OPTIONAL *   FILE 166
//*                  'O' FOR (ONLY DEFINE, AND NO DELETE            *   FILE 166
//*                  STATEMENTS).                                   *   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
//*      $CPU     -  CLIST (EXEC) - WRITTEN IN TSO REXX.  THIS IS   *   FILE 166
//*                  A CPU MONITOR DISPLAY.  THE CPU UTILIZATION    *   FILE 166
//*                  IS DISPLAYED IN GRAPHICAL FORMAT USING ISPF    *   FILE 166
//*                  PANELS WITH DYNAMIC COLOR.  THE DATA IS WRAPPED*   FILE 166
//*                  AROUND ON THE SCREEN FOR COMPARISON.  PRETTY   *   FILE 166
//*                  COLORS !!!!                                    *   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
//*      $IEASYS  -  THIS EXEC DISPLAYS IEASYSXX VARIABLES.  IT     *   FILE 166
//*                  ALSO LISTS OUT THE PARMLIB WHERE THESE MEMBERS *   FILE 166
//*                  CAME FROM.  GREAT FOR DIAGNOSTICS AND CHASING  *   FILE 166
//*                  THROUGH WHAT PARM MEMBERS GOT PULLED BASED ON  *   FILE 166
//*                  IPL SPECFICATION.                              *   FILE 166
//*                                                                 *   FILE 166
//*      $INFO    -  CLIST (EXEC) - WRITTEN IN TSO REXX.  THIS IS A *   FILE 166
//*                  GENERAL SRM INFO DISPLAY.  THE CPU UTILIZATION *   FILE 166
//*                  PLUS ALL OTHER SRM INDICATORS ARE SHOWN. ANY   *   FILE 166
//*                  EXCEPTION CONDITION WILL CHANGE EITHER SOME    *   FILE 166
//*                  DISPLAY COLORS OR TEXT DISPLAY.  SOME OF THE   *   FILE 166
//*                  INFO INCLUDES PAGE FAULT RATE, MIGR AGE, AFQ,  *   FILE 166
//*                  UIC, ETC...  THE CPU UTIL IS ALSO DISPLAYED IN *   FILE 166
//*                  A GRAPHICAL FORMAT.  AGAIN, PRETTY COLORS !!!  *   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
//*      $MCOPY   -  THIS EXEC COPIES MEMBER(S) FROM ONE PDS TO     *   FILE 166
//*                  ANOTHER PDS USING ISPF SERVICES AND THEREFORE  *   FILE 166
//*                  MAINTAINS THE ENQ ACROSS. THE EXEC PROVIDES    *   FILE 166
//*                  SAME FUNCTION UNDER BATCH ISPF AS OPTION 3.3   *   FILE 166
//*                  UNDER ON-LINE ISPF.                            *   FILE 166
//*                                                                 *   FILE 166
//*      $MDEL    -  THIS EXEC DOES A DELETE OF A PDS MEMBER USING  *   FILE 166
//*                  ISPF DIALOG SERVICES AND THEREFORE MAINTAINS   *   FILE 166
//*                  THE ENQ ACROSS. THE EXEC DOES PROVIDE THE      *   FILE 166
//*                  SAME FUNCTION UNDER BATCH (RUNNING ISPF) AS    *   FILE 166
//*                  IN OPTION 3.1 FOR ONLINE ISPF.                 *   FILE 166
//*                                                                 *   FILE 166
//*      $MREN    -  THIS EXEC DOES A RENAME OF A PDS MEMBER USING  *   FILE 166
//*                  ISPF DIALOG SERVICES AND THEREFORE MAINTAINS   *   FILE 166
//*                  THE ENQ ACROSS.  THE EXEC PROVIDES SAME        *   FILE 166
//*                  FUNCTION UNDER BATCH ISPF AS OPTION 3.1 UNDER  *   FILE 166
//*                  ONLINE ISPF.                                   *   FILE 166
//*                                                                 *   FILE 166
//*      $MEM     -  THIS EXEC ALLOWS A MEMBER TO BE SEARCHED FROM  *   FILE 166
//*                  CONCATENATION OF SEVERAL PDS'S.  THESE PDS'S   *   FILE 166
//*                  CAN HAVE SPECIFIC VOLSER CODED.  ONLY THE      *   FILE 166
//*                  FIRST FOUND MEMBER IN THE CONCATENATION WILL   *   FILE 166
//*                  BE DISPLAYED (VIEW, BROWSE OR EDIT).  THIS IS  *   FILE 166
//*                  GOOD FOR LOOKING AT SYS1.XXX.PARMLIB MEMBERS.  *   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
//*      $POINT   -  TO GRAB THE DATA SET NAME AT WHERE THE CURSOR  *   FILE 166
//*                  IS AND BRINGS UP A PANEL SHOWING DATA SET      *   FILE 166
//*                  CHARACTERISTICS AND ALSO ALLOWS IT TO BE       *   FILE 166
//*                  EDITED, BROWSED, ETC... FOR THE DATA SET TYPES *   FILE 166
//*                  THAT ISPF CANNOT HANDLE, I.E. VSAM, LOADLIB,   *   FILE 166
//*                  FILEAID WILL BE INVOKED INSTEAD.               *   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
//*      $RXSYMBL -  AN ASSEMBLER PROGRAM TO USE THE ASASYMBP       *   FILE 166
//*                  MACRO TO RESOLVE AND SUBSTITUTE ALL SYSTEM     *   FILE 166
//*                  SYMBOLIC REFERENCES.  CALLED BY THE $SYMSUB    *   FILE 166
//*                  EXEC.                                          *   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
//*      $SYMSUB  -  EDIT MACRO TO REPLACE SYSTEM SYMBOLICS WITH    *   FILE 166
//*                  THEIR ACTUAL VALUE.  NEEDS EXTERNAL REXX       *   FILE 166
//*                  $RXSYMBL TO ACTUALLY RESOLVE THE SYMBOLICS.    *   FILE 166
//*                                                                 *   FILE 166
//*      $SYSINFO -  DISPLAY SYSTEM INFORMATION USING A GRAPHIC     *   FILE 166
//*                  ISPF PANEL.                                    *   FILE 166
//*                                                                 *   FILE 166
//*      $SYSPRM  -  THIS EXEC WILL BRING BRING IN THE              *   FILE 166
//*                  CONCATENATION OF PARMLIB MEMBERS INTO A        *   FILE 166
//*                  TEMPORARY DATA SET, THEN INVOKE ISPF EDIT      *   FILE 166
//*                  WITH MACRO $SYMSUB TO REPLACE SYSTEM           *   FILE 166
//*                  SYMBOLICS WITH THE REAL VALUES.  THIS IS A     *   FILE 166
//*                  GOOD WAY TO SEE WHAT EACH PARM MEMBER          *   FILE 166
//*                  SPECIFICATION EXPANDS TO UNDER THE CURRENT     *   FILE 166
//*                  SYSTEM.                                        *   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
//*      ENQMON   -  SOURCE - ASM PROGRAM USED AS A STC TO          *   FILE 166
//*                  MONITOR AND DISPLAY GRS ENQ CONTENTION. THIS   *   FILE 166
//*                  PROGRAM DOES GQSCAN EVERY MINUTE, DISPLAYS     *   FILE 166
//*                  THE HOLDERS/WAITERS ON THE CONSOLE.  IF THE    *   FILE 166
//*                  HOLDER IS A TSO USER, A MESSAGE WILL BE SENT   *   FILE 166
//*                  TO NOTIFY THE USER.  EVERY MINUTE, THE         *   FILE 166
//*                  CONSOLE DISPLAYED MESSAGE WILL BE              *   FILE 166
//*                  UN-HILIGHTED, THE MINUTE INCREMENTS, AND A     *   FILE 166
//*                  NEW MESSAGE IS DISPLAYED.  THE WAITING JOB     *   FILE 166
//*                  WILL ALSO RECEIVE MESSAGES AS PART OF THE      *   FILE 166
//*                  JOBLOG.  THIS PROGRAM TRIES TO MIMICK MIM AS   *   FILE 166
//*                  MUCH AS POSSIBLE WITH THE EXCEPTION OF THE     *   FILE 166
//*                  JOB REQUEUE FUNCTION.                          *   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
//*          email:  Vinh Vu                     *   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:  Bill.Godfrey@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
//*                    (fixed for 8-character TSO userids)          *   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 from Frank O'Quinn of Louisiana State University   *   FILE 170
//*           and contains several programs from him.               *   FILE 170
//*                                                                 *   FILE 170
//*           email:    butch@lsu.edu                               *   FILE 170
//*                                                                 *   FILE 170
//*           USERS   - A TSO command which tells you the name      *   FILE 170
//*                     of all TSO users currently logged on.       *   FILE 170
//*                                                                 *   FILE 170
//*           DUMPCSA - This is a program which I figured might     *   FILE 170
//*                     be useful to people for the ideas within    *   FILE 170
//*                     it.  This program "SNAP dumps" all          *   FILE 170
//*                     allocated CSA, so that the material may be  *   FILE 170
//*                     scanned for strings.  There is food for     *   FILE 170
//*                     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 by Richard Rice.                          *   FILE 171
//*                                                                 *   FILE 171
//*           email:  rcmodeller1955@yahoo.com                      *   FILE 171
//*                                                                 *   FILE 171
//*      These utilities are:                                       *   FILE 171
//*                                                                 *   FILE 171
//* (Removed) DITTO   -  Removed because it doesn't work anymore    *   FILE 171
//*                      with the latest z/OS operating systems.    *   FILE 171
//*                                                                 *   FILE 171
//*     (New) DLIUTILS - New. Utilities to unload and reload an     *   FILE 171
//*                      IMS DL/I database.                         *   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.  The reports  *   FILE 171
//*                      look different from the ones produced by   *   FILE 171
//*                      File 299's TAPEMAP.                        *   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 Lynn, Lichfield  in       *   FILE 172
//*           England.  This file contains a nice collection of     *   FILE 172
//*           utilities and useful tools.                           *   FILE 172
//*                                                                 *   FILE 172
//*           (UPDATED Dec 2012)                                    *   FILE 172
//*                                                                 *   FILE 172
//*           email:  dcartwright@ymail.com                         *   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
//*               Lynn Farmhouse,                                   *   FILE 172
//*               Lynn Lane,                                        *   FILE 172
//*               Lynn,                                             *   FILE 172
//*               SHENSTONE, Staffordshire                          *   FILE 172
//*               UK - WS14 0EP                                     *   FILE 172
//*               tel.  ++44 (0)1543 481918                         *   FILE 172
//*                                                                 *   FILE 172
//*      A lot of these programs are out of date, being written     *   FILE 172
//*      for MVS/XA. However, with the interest in retro-computing  *   FILE 172
//*      created by the Hercules project I will not prune them out  *   FILE 172
//*      so that future generations can have a good laugh.          *   FILE 172
//*      (http://www.i-foo.com/hercules/)                           *   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
//*      Browse member @INDEX for an overview of the contents       *   FILE 172
//*      Here is some old documentation;                            *   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 'MAPDLSIT' 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
//*      August 2001                                                *   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
//*      ADCAMS 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
//*      0nce 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 Rechnique 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
//*      ASTRA     Find named task - used in TSSO automation.       *   FILE 172
//*      FSF       To automate FLEX-ES "FakeTape"(tm) reads TMC.    *   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
//*      HPR       HSM Problem Reporter -                           *   FILE 172
//*                print explanation of HSM SMF records             *   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  Taintain 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. Very out of date now                        *   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
//*                   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  Cuxiliary storage manager zap common code        *   FILE 172
//*      SECFWON   Cllow 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
//*                   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
//*      CCKDDUMP  Greg Smith's DASD dumper for Hercules            *   FILE 172
//*      CCKDLOAD  Greg Smith's DASD loader for Hercules            *   FILE 172
//*      CPUID     Changes the CPUID in PCCAs                       *   FILE 172
//*                for disaster recovery purposes, at the           *   FILE 172
//*                disaster recovery site.                          *   FILE 172
//*      EDX       Jim Lane's clist ex File047 with multiple        *   FILE 172
//*                lists                                            *   FILE 172
//*      FILE171   Fixes to FILE171 - DITTO                         *   FILE 172
//*      GETDATE   USAF program to do date conversion + holiday     *   FILE 172
//*                table                                            *   FILE 172
//*      LISTPDS   New version (8.4), can punch ./ ALIAS cards      *   FILE 172
//*                and upgraded for new ISPF stats and 8-character  *   FILE 172
//*                userids (see comments in the code)               *   FILE 172
//*      LISTPDSO  Unnumbers members when unloading                 *   FILE 172
//*      LISTICF  Lline 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
//*        The MVT Compilers have now been moved to the CBT         *   FILE 176
//*        Overflow Tape.  The following compilers have been        *   FILE 176
//*        moved:                                                   *   FILE 176
//*                                                                 *   FILE 176
//*        ALGOL       - from File 176 to CBT Overflow File 089     *   FILE 176
//*        FORTRAN G/H - from File 326 to CBT Overflow File 090     *   FILE 176
//*        RPG/F       - from File 327 to CBT Overflow File 091     *   FILE 176
//*        PL/I-F      - from File 092 to CBT Overflow File 092     *   FILE 176
//*                                                                 *   FILE 176
//*            SAM GOLOB            Address:                        *   FILE 176
//*            P.O. BOX 906                                         *   FILE 176
//*            TALLMAN, NY  10982   Email:  sbgolob@cbttape.org     *   FILE 176
//*                                                                 *   FILE 176
//***FILE 177 is from Jan Jaeger, and contains an IEBUPDTE-unloaded *   FILE 177
//*           library of macros, which simulate XA, ESA, OS/390,    *   FILE 177
//*           and z/OS (64-bit) instructions.  The intent of this   *   FILE 177
//*           library is to be able to assemble newer code on an    *   FILE 177
//*           older version of the Assembler, even perhaps on       *   FILE 177
//*           IFOX00.  The macro library is member MNEMAC, and the  *   FILE 177
//*           job to produce the pds, is called $PDSLOAD.  Jan      *   FILE 177
//*           Jaeger's original JCL, saved intact, is member        *   FILE 177
//*           MNEMACO.                                              *   FILE 177
//*                                                                 *   FILE 177
//*           The original version of this file came from the       *   FILE 177
//*           FILES section of hercules-390@yahoogroups.com .       *   FILE 177
//*                                                                 *   FILE 177
//*           The older macros which had been on this file, came    *   FILE 177
//*           from a Western software house and consisted of some   *   FILE 177
//*           assembler macros which allow the old XF IFOX00        *   FILE 177
//*           Assembler to assemble XA code.  We are keeping that   *   FILE 177
//*           original member here also, as member OPCODES.  The    *   FILE 177
//*           reason for keeping that old member, is because it     *   FILE 177
//*           did things differently than Jan Jaeger does, and in   *   FILE 177
//*           my opinion, it is instructive to see the differences. *   FILE 177
//*           (SG - 09/02)                                          *   FILE 177
//*                                                                 *   FILE 177
//*           email:   jj@septa.nl                                  *   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      *   FILE 179
//*                                                                 *   FILE 179
//*           web site:         http://ldworen.net                  *   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      *   FILE 180
//*                                                                 *   FILE 180
//*           web site:         http://ldworen.net                  *   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      *   FILE 181
//*                                                                 *   FILE 181
//*           web site:         http://ldworen.net                  *   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
//* Current:  PDS -- VERSION 8.6.20.0  AUGUST 17, 2023              *   FILE 182
//* -------                                                         *   FILE 182
//*       ->  Pre-built load libraries are now included:            *   FILE 182
//*           These can be used for a VERY QUICK INSTALL of PDS.    *   FILE 182
//*                                                                 *   FILE 182
//*                 Members are:                                    *   FILE 182
//*                                                                 *   FILE 182
//*     >>>>  Z035XMIT (PDS load modules - avoids reassembly,       *   FILE 182
//*                     but you can't set options so precisely.)    *   FILE 182
//*     >>>>  UTILXMIT (needed utility load modules from CBT Tape)  *   FILE 182
//*     >>>>  COMXMIT  (load modules to invoke COMPARE programs)    *   FILE 182
//*                                                                 *   FILE 182
//*           - - - - - - - -  H I S T O R Y  - - - - - - - -       *   FILE 182
//*                                                                 *   FILE 182
//*           PDS was written in 1972 by Tom Springer, William      *   FILE 182
//*           Finkelstein, and Steve Smith at Security Pacific      *   FILE 182
//*           National Bank.                                        *   FILE 182
//*                                                                 *   FILE 182
//*           Bruce Leland and Steve Smith extensively modified     *   FILE 182
//*           PDS in the 1970's, 1980's, and early 1990's adding    *   FILE 182
//*           many new subcommands and ISPF Dialog mode support.    *   FILE 182
//*                                                                 *   FILE 182
//*           John Kalinich added Y2K support in 1997 and is now    *   FILE 182
//*           supporting and enhancing this package.                *   FILE 182
//*                                                                 *   FILE 182
//*           Greg Price and John Kalinich added PDSE support in    *   FILE 182
//*           2005.                                                 *   FILE 182
//*                                                                 *   FILE 182
//*           John Kalinich                                         *   FILE 182
//*           St Louis, MO                                          *   FILE 182
//*           the.pds.command@gmail.com                             *   FILE 182
//*                                                                 *   FILE 182
//*           Greg Price                                            *   FILE 182
//*           Prycroft Six Pty. Ltd.                                *   FILE 182
//*           service2@prycroft6.com.au                             *   FILE 182
//*                                                                 *   FILE 182
//*                                                                 *   FILE 182
//* >>>>      Please notify John or Greg if you have any fixes or   *   FILE 182
//* >>>>      enhancements to PDS, so that they may incorporate     *   FILE 182
//* >>>>      and/or test them.                                     *   FILE 182
//*                                                                 *   FILE 182
//*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  *   FILE 182
//*                                                                 *   FILE 182
//*           This is the highest current version of the free PDS   *   FILE 182
//*           command, which is Version 8.6, from John Kalinich     *   FILE 182
//*           and Greg Price.                                       *   FILE 182
//*                                                                 *   FILE 182
//*           PDS 8.6 incorporates the following changes:           *   FILE 182
//*                                                                 *   FILE 182
//*      o    PDSE (partitioned data set extended) support.         *   FILE 182
//*      o    MXI interface.                                        *   FILE 182
//*      o    SuperC Search-For interface.                          *   FILE 182
//*      o    DISASM interface.                                     *   FILE 182
//*      o    DELINK interface.                                     *   FILE 182
//*      o    TSO TRANSMIT interface.                               *   FILE 182
//*      o    OFFLOAD interface.                                    *   FILE 182
//*      o    SMPGEN support.                                       *   FILE 182
//*      o    IBM Debug Tool Load Module Analysis interface.        *   FILE 182
//*      o    FDR Compaktor/DISKMAP interface.                      *   FILE 182
//*      o    COBANAL load module analysis interface.               *   FILE 182
//*      o    CONDEND subcommand for batch execution.               *   FILE 182
//*      o    PDSLOAD interface.                                    *   FILE 182
//*      o    AMBLIST interface.                                    *   FILE 182
//*      o    Extended ISPF statistics (z/OS 1.11) support.         *   FILE 182
//*      o    GIMCPTS interface.                                    *   FILE 182
//*      o    PDSMATCH interface.                                   *   FILE 182
//*      o    IEBPDSE interface (z/OS 1.13).                        *   FILE 182
//*      o    EAV support for PDSE data sets in CYL managed space.  *   FILE 182
//*      o    8-Character TSO userid (z/OS 2.3) support.            *   FILE 182
//*      o    RMODE64 reporting (z/OS 2.3).                         *   FILE 182
//*      o    PDSE V2 member generations support (PGLITE exec).     *   FILE 182
//*                                                                 *   FILE 182
//*           PDS 8.5 incorporated the following changes:           *   FILE 182
//*                                                                 *   FILE 182
//*      o    Year 2000 date support.                               *   FILE 182
//*      o    Dynamic UCB and 4-digit device number support.        *   FILE 182
//*      o    31-bit UCB support.                                   *   FILE 182
//*      o    9345 and Fat DASD (3390-9 and above) support.         *   FILE 182
//*      o    Point-and-shoot sort columns in dialog panels.        *   FILE 182
//*      o    SuperC and Comparex compare interface.                *   FILE 182
//*      o    Reset ISPF creation/last modification date and time.  *   FILE 182
//*      o    ISPF View support.                                    *   FILE 182
//*      o    ISO alternative date support (yy/mm/dd).              *   FILE 182
//*      o    AMODE64 query and reporting.                          *   FILE 182
//*      o    NRETRIEV/REFLIST panel logic support.                 *   FILE 182
//*      o    PDS-determined block size.                            *   FILE 182
//*                                                                 *   FILE 182
//*           See member #PDSMODS for more details, or issue        *   FILE 182
//*           CONTROL MODS to list the most recent modifications.   *   FILE 182
//*                                                                 *   FILE 182
//*           It is possible to assemble PDS 8.6, so that it will   *   FILE 182
//*           run in Line Mode under MVS 3.8, under Hercules.       *   FILE 182
//*           This is documented in member $$$HERC.  The PDS8638    *   FILE 182
//*           load module in File 035 on this tape has been         *   FILE 182
//*           assembled to run under MVS 3.8, under Hercules.       *   FILE 182
//*                                                                 *   FILE 182
//*           It would be "GROSS NEGLECT" to have a copy of the     *   FILE 182
//*           CBT 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 an ISPF   *   FILE 182
//*           tasklib (STEPLIB, TSOLIB, or in some other way).      *   FILE 182
//*                                                                 *   FILE 182
//*           UTILXMIT was added to the installation file for       *   FILE 182
//*           a quick install of these PDS related utilities:       *   FILE 182
//*                                                                 *   FILE 182
//*           BLKDISK, COBANAL, COMPARE*, DISASM, DISKMAP,          *   FILE 182
//*           DELINKI, DSAT, DVOL, HEL, MXI, OFFLOAD, PDSLOAD,      *   FILE 182
//*           PDSMATCH, RELEASE, REVIEW, AND VTOC.                  *   FILE 182
//*                                                                 *   FILE 182
//*           Bruce Leland has donated to PDS 8.6, SuperC and       *   FILE 182
//*           Comparex interfaces for the COMPARE subcommand of     *   FILE 182
//*           PDS.                                                  *   FILE 182
//*                                                                 *   FILE 182
//*           See member COMXMIT, which has load modules for        *   FILE 182
//*           these interfaces:  COMPAREC is for SuperC, COMPAREW   *   FILE 182
//*           is for Comparex (R).                                  *   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 SYSIN 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
//*           deleted load module members.                          *   FILE 182
//*                                                                 *   FILE 182
//*           The PDS product at version 8.6 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
//*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  *   FILE 182
//*                                                                 *   FILE 182
//***FILE 183 is from Gilbert Saint-flour.  This is a collection    *   FILE 183
//*           of utilities and other highly useful things for       *   FILE 183
//*           system programmers to have.  The following is a       *   FILE 183
//*           summary of this file's contents.                      *   FILE 183
//*                                                                 *   FILE 183
//*           We are hoping to add to this file from time to time   *   FILE 183
//*           from Gilbert's personal libraries, to perpetuate his  *   FILE 183
//*           memory, and to show our enormous gratefulness to him  *   FILE 183
//*           for his devoted and skilled work.                     *   FILE 183
//*                                                                 *   FILE 183
//*           Sam Golob is working on Gilbert's free programs.      *   FILE 183
//*           Carlos Aguilera is working on Gilbert's programs      *   FILE 183
//*           written for pay.  See www.gsf-soft.com for both.      *   FILE 183
//*                                                                 *   FILE 183
//*           Please address all questions and inquiries to         *   FILE 183
//*           Sam Golob.  Thanks.                                   *   FILE 183
//*                                                                 *   FILE 183
//*           email:  sbgolob@cbttape.org                           *   FILE 183
//*                                                                 *   FILE 183
//*           or to Carlos Aguilera....                             *   FILE 183
//*                                                                 *   FILE 183
//*           email:  carlos@gsf-soft.com                           *   FILE 183
//*                                                                 *   FILE 183
//*              --> LAST UPDATE: 15Dec20 (for CBT500)              *   FILE 183
//*                                                                 *   FILE 183
//*                .--------------------------------.               *   FILE 183
//*                |  CBT TAPE - Index of file 183  |               *   FILE 183
//*                '--------------------------------'               *   FILE 183
//*                                                                 *   FILE 183
//*        website:  http://gsf-soft.com/Freeware                   *   FILE 183
//*                                                                 *   FILE 183
//*  ----------------- TSO and ISPF commands -------------------    *   FILE 183
//*                                                                 *   FILE 183
//*  ADDTRK    The ADDTRK EDIT macro (written in REXX) that         *   FILE 183
//*            invokes PDS86 to add a new extent to the PDS         *   FILE 183
//*            being edited.                                        *   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 GSFSOFT.*) 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.                         *   FILE 183
//*            Requires MVS/ESA 4.2.2 or above.                     *   FILE 183
//*            Uses data spaces, name/token pairs and compression.  *   FILE 183
//*            Supports multiple clip-boards and the APPEND option. *   FILE 183
//*                                                                 *   FILE 183
//*  DAHANDBK  Program to create a "handbook" of control block      *   FILE 183
//*            displacements from the assembly of mapping           *   FILE 183
//*            macros.                                              *   FILE 183
//*  DAHANDJ   Sample job to create a handbook.                     *   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' 'GSFSOFT.CLIST')           *   FILE 183
//*              DSNLIST DDNAME(SYSPROC) SETVAR(VAR2)               *   FILE 183
//*                                                                 *   FILE 183
//*              is equivalent to:                                  *   FILE 183
//*                                                                 *   FILE 183
//*              SET VAR2 = 'IPO1.CMDPROC' 'GSFSOFT.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 or CLIST in a TSO  *   FILE 183
//*            batch job, or execute EDIT data as a CLIST or EXEC.  *   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
//*            (Correct mistake in SHOWzOS ISPF table invocation)   *   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 positioned 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
//*            http://gsf-soft.com/Freeware/FASTPATH.shtml          *   FILE 183
//*                                                                 *   FILE 183
//*  FASTNOTE  Note from Sam Golob about invoking FASTPATH          *   FILE 183
//*                                                                 *   FILE 183
//*  FASTP149  Previous version of FASTPATH utility                 *   FILE 183
//*                                                                 *   FILE 183
//*  FILE183   CLIST to provide an easy access to REXX execs and    *   FILE 183
//*            programs distributed in this library                 *   FILE 183
//*            http://gsf-soft.com/Freeware/FILE183.shtml           *   FILE 183
//*                                                                 *   FILE 183
//*  FREEDIR   The FREEDIR EDIT macro (written in REXX) invokes     *   FILE 183
//*            PDS86 to add or delete directory blocks to change    *   FILE 183
//*            the size of the directory of the PDS being edited.   *   FILE 183
//*                                                                 *   FILE 183
//*  FSHELP    REXX EXEC - Full-screen TSO HELP which uses STEMVIEW *   FILE 183
//*            to display the output produced by the TSO HELP cmd.  *   FILE 183
//*                                                                 *   FILE 183
//*  FULLDSN   REXX Function - return the real dsname of an alias   *   FILE 183
//*            or the fully-qualified dsname from a relative        *   FILE 183
//*            generation.                                          *   FILE 183
//*                                                                 *   FILE 183
//*  FTP       REXX EDIT Macro - Transmit the data being edited     *   FILE 183
//*            using text-mode FTP                                  *   FILE 183
//*                                                                 *   FILE 183
//*  IKJEFLN2  TSO/E Logon Exit - enable the Reconnect option       *   FILE 183
//*            in the TN3270 environment.                           *   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
//*  IPADDR    REXX exec - retrieve the IP address associated with  *   FILE 183
//*            a VTAM terminal using NETSTAT TELNET.                *   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
//*  ISREDIT2  Program - speed up EDIT macros                       *   FILE 183
//*                                                                 *   FILE 183
//*            Executed once at the beginning of an EDIT macro.     *   FILE 183
//*                                                                 *   FILE 183
//*  LC        REXX EXEC - Full-screen IDCAMS LISTCAT               *   FILE 183
//*                                                                 *   FILE 183
//*            This TSO/ISPF REXX EXEC invokes IDCAMS then          *   FILE 183
//*            invokes STEMVIEW to display the output.              *   FILE 183
//*                                                                 *   FILE 183
//*            To use it, just enter LC as a line command on the    *   FILE 183
//*            Data Set List (3.4) or the WorkPlace (11) Utility    *   FILE 183
//*            screens                                              *   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 as a line command         *   FILE 183
//*            on the Data Set List Utility screen.                 *   FILE 183
//*                                                                 *   FILE 183
//*  LCAT92    TSO command - Full-screen IDCAMS LISTCAT             *   FILE 183
//*            1992 version of LCAT for OS/390 R2 and older         *   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
//*            (Fixed April 2016 by Garry Green.)                   *   FILE 183
//*            (Adjusted to show 8-character userids.)              *   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
//*  LVL       REXX EDIT macro - Compress Level Numbers for         *   FILE 183
//*            FB-80 PDS members with STATS ON and NUMBER STD.      *   FILE 183
//*                                                                 *   FILE 183
//*            LVL reuses "gas levels", i.e. levels which           *   FILE 183
//*            are not used in any record in the member,            *   FILE 183
//*            and adjusts pos 79-80 of the records accordingly.    *   FILE 183
//*                                                                 *   FILE 183
//*            If the macro invocation includes a number,           *   FILE 183
//*            then levels up to the specified number are           *   FILE 183
//*            reset to zero.                                       *   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
//*  REXXTRY   TSO command processor written in assembler.          *   FILE 183
//*                                                                 *   FILE 183
//*            REXXTRY can be used in a CLIST or in ISPF to         *   FILE 183
//*            execute a one-line REXX exec as a sub-routine.       *   FILE 183
//*            The REXX exec can be a single REXX instruction or    *   FILE 183
//*            multiple instructions separated by semi-colons.      *   FILE 183
//*                                                                 *   FILE 183
//*            REXXTRY can also be invoked in batch mode, in which  *   FILE 183
//*            case the REXX code is not specified as an argument   *   FILE 183
//*            to the command, but consists on all the input lines  *   FILE 183
//*            present after the REXXTRY command in SYSTSIN.        *   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
//*  RXSMS     Assembler program; can be invoked in a REXX exec     *   FILE 183
//*            to retrieve information from the SMS sub-system      *   FILE 183
//*            or from a volume's VTOC.                             *   FILE 183
//*                                                                 *   FILE 183
//*  SFE       REXX program to invoke the Search-For Extended       *   FILE 183
//*            utility.  Can be invoked from the Data Set List      *   FILE 183
//*            panel or as an EDIT macro.                           *   FILE 183
//*                                                                 *   FILE 183
//*  SHOWDASD  ISPF Dialog to display on-line DASD devices.         *   FILE 183
//*            (fixed for 64-bit ULUT - ULUT Type 3)                *   FILE 183
//*            (also works on older systems, so it supersedes       *   FILE 183
//*            the older version - member SHOWDAS1)                 *   FILE 183
//*                                                                 *   FILE 183
//*  SHOWDPNL  Requires the RXSMS program.                          *   FILE 183
//*                                                                 *   FILE 183
//*  SHOWVTOC  Panel for option V                                   *   FILE 183
//*                                                                 *   FILE 183
//*  SHOWJPAQ  TSO command - Display contents of Job Pack Area      *   FILE 183
//*            Queue (JPAQ)                                         *   FILE 183
//*                                                                 *   FILE 183
//*  SHOWTIOT  REXX exec - Display contents of Task Input-Output    *   FILE 183
//*            Table (TIOT)                                         *   FILE 183
//*                                                                 *   FILE 183
//*  STEMEDIT  REXX sub-routine written in assembler.               *   FILE 183
//*            Browse, View or Edit stem variables using BRIF,      *   FILE 183
//*            VIIF or EDIF.  A nice addition to OUTTRAP.           *   FILE 183
//*            View data from the stack also. ISPF V5 only.         *   FILE 183
//*                                                                 *   FILE 183
//*     Note:  An update to STEMEDIT, and some other modificatons,  *   FILE 183
//*            was written by Rainer Nowak, and is included in      *   FILE 183
//*            this pds, as member STEMEDI#.  This member was also  *   FILE 183
//*            repeated on the CBT Tape, as File 895.               *   FILE 183
//*                                                                 *   FILE 183
//*  STEMVIEW  REXX sub-routine written in assembler.               *   FILE 183
//*            Browse or View stem variables using BRIF or EDIF.    *   FILE 183
//*            View data from the stack also. ISPF V2, V3, V4.      *   FILE 183
//*                                                                 *   FILE 183
//*  SWAREQ    REXX exec - Convert an SVA to a 31-bit address       *   FILE 183
//*                                                                 *   FILE 183
//*  SWAREQ22  REXX exec - Convert an SVA to a 31-bit address on    *   FILE 183
//*            a z/OS 2.2 system or higher.  (from Don Poitras)     *   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
//*  VALLOC    Generate ALLOCATE commands for data set list         *   FILE 183
//*                                                                 *   FILE 183
//*            EDIT macro written in REXX.  Reads a list of data    *   FILE 183
//*            set names starting in pos 1 of each line and         *   FILE 183
//*            generates a set of corresponding ALLOCATE commands.  *   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 VIIF   *   FILE 183
//*                                                                 *   FILE 183
//*  VSAMVW95  1995 version of VSAMVIEW for ISPF V2, V3 and V4.     *   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
//*  XRENAME   REXX exec - Rename data sets "en masse"              *   FILE 183
//*                                                                 *   FILE 183
//*  XDEL      REXX EDIT macro - Delete current member              *   FILE 183
//*                                                                 *   FILE 183
//*  XREN      REXX EDIT macro - Rename current member              *   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
//*  DCODADDR  Assembler module to convert an address passed by     *   FILE 183
//*            its invoker into a character string that indicates   *   FILE 183
//*            what module, CSECT within the module, and offset     *   FILE 183
//*            within the CSECT the address points to.              *   FILE 183
//*              DCODADDR uses the Binder API and can be invoked    *   FILE 183
//*            by recovery routines or any other modules.           *   FILE 183
//*                                                                 *   FILE 183
//*  DONTFAIL  Prevent job failure caused by uncataloged data       *   FILE 183
//*            sets (ESA only, must be authorized)                  *   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
//*  JOBRLSE   Release a job by number (must be authorized)         *   FILE 183
//*                                                                 *   FILE 183
//*            This program issues a $A command to release a job    *   FILE 183
//*            previously 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
//*            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
//*  PLI2JOB   Retrieve Job-related information in PL/I             *   FILE 183
//*                                                                 *   FILE 183
//*  PLI2TSO   Issue TSO commands in PL/I                           *   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  DSN=SYS2.AUTHLIB,DISP=SHR           *   FILE 183
//*              //*                                                *   FILE 183
//*              //STEP53  EXEC PGM=SAS                             *   FILE 183
//*              //OSIN     DD DSN=USER1.X,DISP=SHR                 *   FILE 183
//*              //         DD DSN=UPQE.DQE40530(-1),DISP=SHR       *   FILE 183
//*              //OSIN2    DD DSN=UPQR.DQR02150(0),DISP=SHR        *   FILE 183
//*              //OSIN3    DD DSN=USER1.X,DISP=SHR                 *   FILE 183
//*              //         DD DSN=UPBG.DBGA0240(-1),DISP=SHR       *   FILE 183
//*              //OSIN4    DD DSN=USER1.X,DISP=SHR                 *   FILE 183
//*              //         DD DSN=USER1.YY,DISP=SHR                *   FILE 183
//*              //         DD DSN=UPQR.DQR02140(-1),DISP=SHR       *   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
//*  FILLDASD  Asm pgm to fill free DASD space with binary zeroes   *   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
//*  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
//*  USERCMDS  Job - Update USERCMDS in batch                       *   FILE 183
//*                                                                 *   FILE 183
//*            This is a TMP job that uses an in-line REXX exec     *   FILE 183
//*            and ISPF table services to append a set of in-line   *   FILE 183
//*            commands to the original USERCMDS table.             *   FILE 183
//*                                                                 *   FILE 183
//*            The resulting USERCMDS table may be given any        *   FILE 183
//*            name and go to any library you choose.               *   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
//*  ZAPXMIT   Patch job - Remove BLKSIZE(3120) from XMIT OUTDA()   *   FILE 183
//*            cmd                                                  *   FILE 183
//*                                                                 *   FILE 183
//*            This patch to the TRANSMIT command sets the BLKSIZE  *   FILE 183
//*            of the output data set to zero when TRANSMIT/XMIT    *   FILE 183
//*            is invoked with the OUTDA or OUTDS parameter.        *   FILE 183
//*            This version of the ZAP works on TSO/E 2.6.          *   FILE 183
//*                                                                 *   FILE 183
//***FILE 184 IS FROM TOM BRYANT OF THE CHICAGO SUBURBS 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
//*                email: thomas.bryant@mail.bcop.com               *   FILE 184
//*                       Thomas Bryant         *   FILE 184
//*                                                                 *   FILE 184
//*                phone: 630-775-4032                              *   FILE 184
//*                                                                 *   FILE 184
//***FILE 185 contains tools to help you control the TSO auth       *   FILE 185
//*           tables which APF-authorize TSO commands and programs  *   FILE 185
//*           to your TSO session.  Between this file, and File     *   FILE 185
//*           797, you have a very nice set of tools which will     *   FILE 185
//*           help you in this matter, both in altering the         *   FILE 185
//*           "common storage" copies of the auth tables created    *   FILE 185
//*           by PARMLIB (members IKJTSOxx), and in altering the    *   FILE 185
//*           individual TSO session's auth tables pointed to by    *   FILE 185
//*           the LWA (Logon Work Area).                            *   FILE 185
//*                                                                 *   FILE 185
//*           ASUB deals with the "common storage" tables. (CSA)    *   FILE 185
//*           TSUB deals with the "LWA pointed to" tables. (User)   *   FILE 185
//*                                                                 *   FILE 185
//*           File 185 also contains source code (member ASMTABLS)  *   FILE 185
//*           and a load library (member LOADLIB) to help you make  *   FILE 185
//*           a greatly expanded IKJTABLS load module to authorize  *   FILE 185
//*           programs and commands under TSO.  When run in an APF  *   FILE 185
//*           authorized STEPLIB in a TSO session, this IKJTABLS    *   FILE 185
//*           load module will override IKJTSOxx from PARMLIB and   *   FILE 185
//*           will also override the copies of IKJTEFE2, IKJEFTE8,  *   FILE 185
//*           IKJEFTAP, and IKJEFTNS that are in SYS1.LPALIB.       *   FILE 185
//*           The load module IKJTABLS should be copied into        *   FILE 185
//*           an APF-authorized STEPLIB with all its aliases:       *   FILE 185
//*           IKJEFTE2, IKJEFTE8, IKJEFTAP, IKJEFTNS.               *   FILE 185
//*                                                                 *   FILE 185
//*           The source code (member ASMTABLS) was created with    *   FILE 185
//*           the aid of the vendor product STARTOOL FDM from       *   FILE 185
//*           Serena, Inc.  I have included a free method of        *   FILE 185
//*           generating a nearly equivalent disassembly of your    *   FILE 185
//*           current IKJTABLS load module, using only free tools.  *   FILE 185
//*           This is completely self-contained in XMIT format,     *   FILE 185
//*           as pds member FILE234I in this file.  Member $$$$READ *   FILE 185
//*           in that pds, and member $$NOTE2 in this pds, will     *   FILE 185
//*           explain what to do, if you need to generate your      *   FILE 185
//*           own assembly JCL for IKJTABLS.                        *   FILE 185
//*                                                                 *   FILE 185
//*           The load library is included in this file, in member  *   FILE 185
//*           LOADLIB, in TSO XMIT format.  Just do a TSO RECEIVE   *   FILE 185
//*           INDS(this.pds(LOADLIB)) to create the load library    *   FILE 185
//*           on your system.  There are load modules for other     *   FILE 185
//*           "TSO auth table" tools in this load library as well:  *   FILE 185
//*                                                                 *   FILE 185
//*           ADIS, ASUB, LLWA, LSLT, LWATEDIT, LWATMGR, STEPLIB,   *   FILE 185
//*           and TSUB.                                             *   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 your IKJTSOxx 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
//*           I have tried to include all the commands that I       *   FILE 185
//*           use, and all the names that I could find on the       *   FILE 185
//*           live systems, but you may most likely need some       *   FILE 185
//*           more.  To quickly obtain a list of programs in your   *   FILE 185
//*           session's auth tables see the LWATMGR and LWATEDIT    *   FILE 185
//*           tools in CBT File 797.  Also you can run TSUB E2D,    *   FILE 185
//*           TSUB E8D, TSUB APD, TSUB NSD, to display your         *   FILE 185
//*           TSO session's current lists.  Use ASUB E2D, etc.      *   FILE 185
//*           to display the PARMLIB-generated current lists.       *   FILE 185
//*                                                                 *   FILE 185
//*           Also refer to CBT Tape File 797 for extra help in     *   FILE 185
//*           this area.  File 797 has tools to manipulate the      *   FILE 185
//*           TSO auth tables in each userid's session, or to       *   FILE 185
//*           LOAD COMPLETELY NEW TABLES for a user's session.      *   FILE 185
//*           File 185 concentrates on tools to CHANGE the          *   FILE 185
//*           EXISTING TSO auth tables either in common storage,    *   FILE 185
//*           or in your own session.  (ASUB and TSUB               *   FILE 185
//*           respectively.)                                        *   FILE 185
//*                                                                 *   FILE 185
//*           Please read members $EXPLAIN and $$NOTE1 carefully.   *   FILE 185
//*                                                                 *   FILE 185
//*           Use the new ADIS command (Auth table DISplay)         *   FILE 185
//*           command to display what authorized commands and       *   FILE 185
//*           programs everybody else has.  ADIS will generate      *   FILE 185
//*           a "copyable list" of these commands, whether it be    *   FILE 185
//*           from the "live" IKJEFTE2, or IKJEFTE8, or IKJEFTAP    *   FILE 185
//*           tables, or even from the IKJEFTNS table.              *   FILE 185
//*                                                                 *   FILE 185
//*           Members ADIS (source for a TSO command to display     *   FILE 185
//*           the active "auth tables" generated from a PARMLIB     *   FILE 185
//*           UPDATE(xx) command, a SET IKJTSO=xx command, or       *   FILE 185
//*           an IPL, and ADIS$ (JCL to assemble ADIS) have been    *   FILE 185
//*           added to this pds.  And the load module for ADIS      *   FILE 185
//*           has been added to the LOADLIB member.                 *   FILE 185
//*                                                                 *   FILE 185
//*           ADIS will display the common storage TSO/E "auth      *   FILE 185
//*           tables" generated from the PARMLIB member IKJTSOxx.   *   FILE 185
//*           The output of the ADIS command can be captured        *   FILE 185
//*           using SYSOUTTRAP tools, since it is generated by      *   FILE 185
//*           the TSO PUTLINE service.  Try ADIS.  You'll like      *   FILE 185
//*           it.  ADIS is read-only, and does not need APF         *   FILE 185
//*           authorization.                                        *   FILE 185
//*                                                                 *   FILE 185
//*           A new TSO command called SHOWTPVT documents all       *   FILE 185
//*           the fields of the TPVT control block (TSO PARMLIB     *   FILE 185
//*           Vector Table) which is not documented publicly        *   FILE 185
//*           by IBM.  SHOWTPVT shows all the values of your        *   FILE 185
//*           own system's TPVT.                                    *   FILE 185
//*                                                                 *   FILE 185
//*           Remember that the member LOADLIB of this pds also     *   FILE 185
//*           contains a load module for a greatly expanded         *   FILE 185
//*           IKJTABLS to authorize programs and commands under     *   FILE 185
//*           TSO.  This load module was created from the ASMTABLS  *   FILE 185
//*           source code.  For TSO/E Release 2.n, and higher,      *   FILE 185
//*           this load module (and its aliases) can be used as     *   FILE 185
//*           is.  There is also plenty of room to zap more names,  *   FILE 185
//*           in the IKJEFTE2, IKJEFTE8, and IKJEFTAP tables.  You  *   FILE 185
//*           may want to zap the tables to authorize more of your  *   FILE 185
//*           favorite programs.  Put it in an APF authorized       *   FILE 185
//*           STEPLIB in your TSO logon proc.  Has to be SETCODE    *   FILE 185
//*           AC(1).                                                *   FILE 185
//*                                                                 *   FILE 185
//*           Updated for z/OS Version 2.3.     (CBT498)            *   FILE 185
//*                                                                 *   FILE 185
//***FILE 186 IS CURRENTLY EMPTY                                    *   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 SAM 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@cbttape.org                           *   FILE 193
//*                                                                 *   FILE 193
//***FILE 194 IS A SET OF CUT AND PASTE MACROS FROM JIM MARSHALL    *   FILE 194
//*           THESE ARE EDIT MACROS TO BE USED UNDER ISPF.          *   FILE 194
//*                                                                 *   FILE 194
//*                  Jim Marshall                                   *   FILE 194
//*                  Office of Personnel Management                 *   FILE 194
//*                  CIO/WTC - Room BH04                            *   FILE 194
//*                  1900 E Street NW                               *   FILE 194
//*                  Washington DC   20415-0001                     *   FILE 194
//*                  w - 202-606-1261                               *   FILE 194
//*                  f - 202-606-2092                               *   FILE 194
//*                  jdmarsha@opm.gov                               *   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
//*           A new version in member CBTEX05, with some notes in   *   FILE 198
//*           member CBTEX05$, is for z/OS 1.7, and has just been   *   FILE 198
//*           added.                                                *   FILE 198
//*                                                                 *   FILE 198
//*           THERE ARE 4 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
//*               CBTEX05   -  BOB BREAK'S VERSION  (z/OS 1.7)      *   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@prodigy.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 CHARLOTTESVILLE, 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
//*    Fixed CMDPGM source to AMODE 31, RMODE 24.  Adjusted         *   FILE 199
//*    permissions to OPER only, but you should change this.        *   FILE 199
//*    (Some sysprogs don't have ACCOUNT authority.)                *   FILE 199
//*                                                                 *   FILE 199
//*    So on this file, you have CMDPGM fixed up.  Tested on        *   FILE 199
//*    z/OS 1.6.  (Not done by Dave Cole.)                          *   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
//*                                                                 *   FILE 199
//*    asm2zap.zip   z/OS      A utility for converting an          *   FILE 199
//*                            assembly listing into SUPERZAP       *   FILE 199
//*                            cards.                               *   FILE 199
//*                                                                 *   FILE 199
//*    blksptrk.zip  z/OS      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    z/OS      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  z/OS      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
//*    dscopy.zip    z/OS      A flexible program for copying       *   FILE 199
//*                            any number of datasets in a single   *   FILE 199
//*                            jobstep.  (Newly released.)          *   FILE 199
//*                                                                 *   FILE 199
//*    xrefasm.zip   z/OS      A pair of programs for producing     *   FILE 199
//*                            master cross-reference listings      *   FILE 199
//*                            for multi-assembly programs.         *   FILE 199
//*                                                                 *   FILE 199
//*         Colesoft Marketing, Inc.                                *   FILE 199
//*         414 3rd ST. NE                                          *   FILE 199
//*         Charlottesville, VA 22902 USA                           *   FILE 199
//*         540-456-8210                                            *   FILE 199
//*         www.colesoft.com                                        *   FILE 199
//*         email:  dbcole@gmail.com                                *   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
//*     See member called NEWSTUFF.                                 *   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
//*              z/OS Rel 1.13.  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
//*    CPUID     PROGRAM TO LIST CPUIDS OF ALL PROCESSORS           *   FILE 200
//*              (WRITTEN BY REX WIDMER. RESCUED FROM GILBERT       *   FILE 200
//*              SAINT-FLOUR'S ARCHIVES.)                           *   FILE 200
//*                                                                 *   FILE 200
//*    CPUIDX    REXX FROM MARCEL SCHMIDT TO LIST CPUIDS OF ALL     *   FILE 200
//*              PROCESSORS.  PROBABLY BETTER THAN THE CPUID        *   FILE 200
//*              PROGRAM.  THAT IS WHY WE INCLUDED IT HERE.         *   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.  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                                     *   FILE 203
//*                Office of Personnel Management                   *   FILE 203
//*                CIO/WTC - Room BH04                              *   FILE 203
//*                1900 E Street NW                                 *   FILE 203
//*                Washington DC   20415-0001                       *   FILE 203
//*                w - 202-606-1261                                 *   FILE 203
//*                f - 202-606-2092                                 *   FILE 203
//*                jdmarsha@opm.gov                                 *   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 EMAIL SAM GOLOB AT                    *   FILE 204
//*          sbgolob@cbttape.org                                    *   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@cbttape.org     *   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 contains the source modules  *   FILE 207
//*           and documentation for their 3270 Full Screen Editor,  *   FILE 207
//*           which is also an incore editor.  This is a TSO        *   FILE 207
//*           Full Screen Editor to be used solely for remote       *   FILE 207
//*           and local 3270 units.  It allows the simultaneous     *   FILE 207
//*           update and browse of up to 21 lines of a data set,    *   FILE 207
//*           and the execution of an FSE/TSO command at the same   *   FILE 207
//*           time.                                                 *   FILE 207
//*                                                                 *   FILE 207
//*       This file was updated by Ed Liss and Rob Prins to work    *   FILE 207
//*       on 3270 mod 2, mod 3, and mod 4 terminals, where it       *   FILE 207
//*       exploits the extra row size.  However, if you use this    *   FILE 207
//*       version of FSE on other-sized terminals, it reverts to    *   FILE 207
//*       24x80.                                                    *   FILE 207
//*                                                                 *   FILE 207
//*       email:  Ed Liss                     *   FILE 207
//*                                                                 *   FILE 207
//*       email:  Rob Prins                   *   FILE 207
//*                                                                 *   FILE 207
//*       The old File 207 is also included in its entirety,        *   FILE 207
//*       as member OLDF207, in XMIT format, in case the user       *   FILE 207
//*       wants to look at the old File 207, unchanged.             *   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 has been moved to the CBT Overflow Tape, File 310.    *   FILE 210
//*           Only this documentation remains on the regular CBT    *   FILE 210
//*           Tape, but all the file materials are intact in the    *   FILE 210
//*           new location.                                         *   FILE 210
//*                                                                 *   FILE 210
//*    Related files that have been moved.                          *   FILE 210
//*                                                                 *   FILE 210
//*      File 210  -  moved to CBT Overflow Tape, File 310          *   FILE 210
//*      File 211  -  moved to CBT Overflow Tape, File 311          *   FILE 210
//*      File 212  -  moved to CBT Overflow Tape, File 312          *   FILE 210
//*      File 213  -  moved to CBT Overflow Tape, File 313          *   FILE 210
//*                                                                 *   FILE 210
//* THIS FILE 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 has been moved to the CBT Overflow Tape, File 311.    *   FILE 211
//*           Only this documentation remains on the regular CBT    *   FILE 211
//*           Tape, but all the file materials are intact in the    *   FILE 211
//*           new location.                                         *   FILE 211
//*                                                                 *   FILE 211
//*    Related files that have been moved.                          *   FILE 211
//*                                                                 *   FILE 211
//*      File 210  -  moved to CBT Overflow Tape, File 310          *   FILE 211
//*      File 211  -  moved to CBT Overflow Tape, File 311          *   FILE 211
//*      File 212  -  moved to CBT Overflow Tape, File 312          *   FILE 211
//*      File 213  -  moved to CBT Overflow Tape, File 313          *   FILE 211
//*                                                                 *   FILE 211
//* THIS FILE 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 has been moved to the CBT Overflow Tape, File 312.    *   FILE 212
//*           Only this documentation remains on the regular CBT    *   FILE 212
//*           Tape, but all the file materials are intact in the    *   FILE 212
//*           new location.                                         *   FILE 212
//*                                                                 *   FILE 212
//*    Related files that have been moved.                          *   FILE 212
//*                                                                 *   FILE 212
//*      File 210  -  moved to CBT Overflow Tape, File 310          *   FILE 212
//*      File 211  -  moved to CBT Overflow Tape, File 311          *   FILE 212
//*      File 212  -  moved to CBT Overflow Tape, File 312          *   FILE 212
//*      File 213  -  moved to CBT Overflow Tape, File 313          *   FILE 212
//*                                                                 *   FILE 212
//* THIS FILE 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 has been moved to the CBT Overflow Tape, File 313.    *   FILE 213
//*           Only this documentation remains on the regular CBT    *   FILE 213
//*           Tape, but all the file materials are intact in the    *   FILE 213
//*           new location.                                         *   FILE 213
//*                                                                 *   FILE 213
//*    Related files that have been moved.                          *   FILE 213
//*                                                                 *   FILE 213
//*      File 210  -  moved to CBT Overflow Tape, File 310          *   FILE 213
//*      File 211  -  moved to CBT Overflow Tape, File 311          *   FILE 213
//*      File 212  -  moved to CBT Overflow Tape, File 312          *   FILE 213
//*      File 213  -  moved to CBT Overflow Tape, File 313          *   FILE 213
//*                                                                 *   FILE 213
//* THIS FILE 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@cbttape.org   *   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
//*  If you are working on more modern MVS systems:  OS/390 or      *   FILE 217
//*  z/OS, please see the version of this disassembler that was     *   FILE 217
//*  rewritten by its author, Dick Thornton, which is on File 234.  *   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
//*           Most of the REXX EXECs in this collection have been   *   FILE 220
//*           converted into fixed blocked LRECL=80 format.  They   *   FILE 220
//*           are no longer contained (in IEBUPDTE - PDSLOAD        *   FILE 220
//*           format) in a single member, but they have now been    *   FILE 220
//*           separated into individual members, so that it will    *   FILE 220
//*           be easier to find them and use them.                  *   FILE 220
//*                                                                 *   FILE 220
//*           See File 221 for the REXX EXECs in this collection,   *   FILE 220
//*           in VB format with LRECL=255.                          *   FILE 220
//*                                                                 *   FILE 220
//*           This collection was developed, a long time ago,       *   FILE 220
//*           at the MVS/XA 2.2.3 level.  Most of the EXECs have    *   FILE 220
//*           now been converted, by Anthony Cieri, to run on       *   FILE 220
//*           z/OS 1.13, 2.1, and 2.2.                              *   FILE 220
//*                                                                 *   FILE 220
//*                < ------ >  z/OS 1.13  < ------ >                *   FILE 220
//*                < ------ >  z/OS 2.1   < ------ >                *   FILE 220
//*                                                                 *   FILE 220
//*    Note:  Lee Conyers has unfortunately passed on.              *   FILE 220
//*    ----                                                         *   FILE 220
//*           Most of the REXX execs in this collection have        *   FILE 220
//*           been upgraded to the z/OS 1.13 level by Tony Cieri.   *   FILE 220
//*           Tony's TSO userid and the ISPF date, will indicate    *   FILE 220
//*           which members have been updated (most of them).       *   FILE 220
//*                                                                 *   FILE 220
//*             Anthony J.Cieri                                     *   FILE 220
//*             SEI Investments                                     *   FILE 220
//*             1 Freedom Valley Drive                              *   FILE 220
//*             Oaks, PA 19456                                      *   FILE 220
//*                                                                 *   FILE 220
//*             (P) 610.676.4088                                    *   FILE 220
//*             (F) 484.676.4088                                    *   FILE 220
//*             Email: acieri@seic.com                              *   FILE 220
//*                                                                 *   FILE 220
//*                < ------ >  z/OS 1.13  < ------ >                *   FILE 220
//*                < ------ >  z/OS 2.1   < ------ >                *   FILE 220
//*                                                                 *   FILE 220
//*           I'd also suggest looking at the "SHOWzOS" TSO         *   FILE 220
//*           command on File 492 of this tape, to supply some      *   FILE 220
//*           more of this kind of information.  (S.G.)             *   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
//*        SDUMP    DISPLAY 31-BIT STORAGE                          *   FILE 220
//*        SDUMPE   DISPLAY 64-BIT STORAGE BUT TRUNCATE HI 4 CHARS  *   FILE 220
//*        SDUMPG   DISPLAY 64-BIT STORAGE - DISPLAY 83 BYTES WIDE  *   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
//*    Note from Sam Golob     (March 5, 2014)                      *   FILE 220
//*                                                                 *   FILE 220
//*    Addition to CBT File 220, from CBT File 221.                 *   FILE 220
//*                                                                 *   FILE 220
//*    I converted many of the LIST*** REXXes to FB-80, so I        *   FILE 220
//*    could include them in my SYSPROC concatenation which is      *   FILE 220
//*    FB-80, as opposed to VB-255.  They are here in this          *   FILE 220
//*    member called REXXES, which is really a PDS in IEBUPDTE      *   FILE 220
//*    (PDSLOAD) format, for your use and pleasure.  These are      *   FILE 220
//*    really valuable and easily installable tools, to help        *   FILE 220
//*    you (or the auditors) to get a better insight into the       *   FILE 220
//*    specific workings of your MVS system.                        *   FILE 220
//*                                                                 *   FILE 220
//*    The REXXes that I have not yet converted, are the ones       *   FILE 220
//*    which don't seem to work right under z/OS 1.13               *   FILE 220
//*    (although I may have missed one or two which do work).       *   FILE 220
//*    These are on my "to do" list, to improve, both in the        *   FILE 220
//*    FB-80 and VB-255 versions.                                   *   FILE 220
//*                                                                 *   FILE 220
//*    The LISTDASD and LISTTAPE REXXes have been fixed.            *   FILE 220
//*                                                                 *   FILE 220
//*    The LISTDCQ REXX has been fixed.                             *   FILE 220
//*                                                                 *   FILE 220
//*    The IO*** members have not been converted.                   *   FILE 220
//*                                                                 *   FILE 220
//*    Lee Conyers (who has passed on) was really an expert         *   FILE 220
//*    auditor and he knew a lot about what makes the system        *   FILE 220
//*    tick, especially in those areas that an auditor has to       *   FILE 220
//*    watch.  It is a pleasure to be able to use his               *   FILE 220
//*    excellent tools.  That is why I have tried to make them      *   FILE 220
//*    even more useful, for today's environment.                   *   FILE 220
//*                                                                 *   FILE 220
//*    For the record, SHOWzOS on CBT File 492 (load module         *   FILE 220
//*    collection on CBT File 614) is also extremely useful to      *   FILE 220
//*    supplement this information obtainable with the REXXes       *   FILE 220
//*    here.                                                        *   FILE 220
//*                                                                 *   FILE 220
//*    We have included a TSO command to clear the screen, which    *   FILE 220
//*    is needed by the REXXes in File 221 and member REXXES in     *   FILE 220
//*    this file.  This is member CLEAR and its assembly JCL,       *   FILE 220
//*    member CLEAR$.                                               *   FILE 220
//*                                                                 *   FILE 220
//*    All the best of everything to all of you.                    *   FILE 220
//*                                                                 *   FILE 220
//*    Sam                                                          *   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
//*                < ------ >  z/OS 2.1   < ------ >                *   FILE 221
//*                                                                 *   FILE 221
//*    Note:  Lee Conyers has unfortunately passed on.              *   FILE 221
//*    ----                                                         *   FILE 221
//*           Most of the REXX execs in this collection have        *   FILE 221
//*           been upgraded to the z/OS 1.13 level by Tony Cieri.   *   FILE 221
//*           Tony's TSO userid and the ISPF date, will indicate    *   FILE 221
//*           which members have been updated (most of them).       *   FILE 221
//*                                                                 *   FILE 221
//*             Anthony J.Cieri                                     *   FILE 221
//*             SEI Investments                                     *   FILE 221
//*             1 Freedom Valley Drive                              *   FILE 221
//*             Oaks, PA 19456                                      *   FILE 221
//*                                                                 *   FILE 221
//*             (P) 610.676.4088                                    *   FILE 221
//*             (F) 484.676.4088                                    *   FILE 221
//*             Email: acieri@seic.com                              *   FILE 221
//*                                                                 *   FILE 221
//*           Many of these execs have been converted to FB-80      *   FILE 221
//*           format from VB-255.  The converted execs can be       *   FILE 221
//*           found on CBT File 220 as member REXXES.  This         *   FILE 221
//*           member is in IEBUPDTE (PDSLOAD) format, with the      *   FILE 221
//*           ISPF statistics preserved.  Use the PDSLOAD program   *   FILE 221
//*           from File 093 to restore the FB-80 pds of REXX        *   FILE 221
//*           execs, corresponding to most of the execs on this     *   FILE 221
//*           file.                                                 *   FILE 221
//*                                                                 *   FILE 221
//*                < ------ >  z/OS 2.1   < ------ >                *   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@cbttape.org .                                *   FILE 223
//*                                                                 *   FILE 223
//*      I AM NOT THE AUTHOR OF THIS SYSTEM, BUT I WILL BE GLAD     *   FILE 223
//*      TO DIRECT YOU TO HIM FOR 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 AND OTHERS.                                      *   FILE 225
//*                                                                 *   FILE 225
//*     DAVID COLE SELLS OTHER SOFTWARE PRODUCTS, AND HE MAY BE     *   FILE 225
//*     REACHED AT:                                                 *   FILE 225
//*                                                                 *   FILE 225
//*          COLESOFT MARKETING, INC.                               *   FILE 225
//*          414 3RD ST. NE                                         *   FILE 225
//*          CHARLOTTESVILLE, VA 22902 USA                          *   FILE 225
//*          540-456-8210                                           *   FILE 225
//*          WWW.COLESOFT.COM                                       *   FILE 225
//*          EMAIL:  DBCOLE@GMAIL.COM                               *   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 CHARLOTTESVILLE, VA.   *   FILE 226
//*                                                                 *   FILE 226
//*           Colesoft Marketing, Inc.                              *   FILE 226
//*           414 3rd ST. NE                                        *   FILE 226
//*           Charlottesville, VA 22902 USA                         *   FILE 226
//*           540-456-8210                                          *   FILE 226
//*           www.colesoft.com                                      *   FILE 226
//*           email:  dbcole@gmail.com                              *   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
//*           Modified and modernized by Peter Van der Woude.       *   FILE 228
//*                                                                 *   FILE 228
//*           email:  pvwoude5@gmail.com                            *   FILE 228
//*                                                                 *   FILE 228
//***FILE 229 is a collection of tape copying programs that was     *   FILE 229
//*           put together here by Sam Golob.  The primary program  *   FILE 229
//*           is called COPYMODS, and it can copy an input tape,    *   FILE 229
//*           end to end, to as many as 16 output tapes in one      *   FILE 229
//*           job step.  In addition, COPYMODS has been enhanced to *   FILE 229
//*           include many new features, but its default operation  *   FILE 229
//*           is still nearly identical to that of the original     *   FILE 229
//*           COPYMODS program from Paul Tokheim of the U.S. Air    *   FILE 229
//*           Force in Denver.  Paul's original COPYMODS program    *   FILE 229
//*           has been included here as member COPYMODO, so you     *   FILE 229
//*           can see how many enhancements have been made.         *   FILE 229
//*           Also see File 847 for a code history of how this      *   FILE 229
//*           program's enhancements were developed.                *   FILE 229
//*                                                                 *   FILE 229
//*           If you copy tapes a lot, you'll enjoy the many        *   FILE 229
//*           options in the COPYMODS program.  Additionally,       *   FILE 229
//*           you can use COPYFILE, COPYSLNL, and COPYNLNL to       *   FILE 229
//*           achieve whatever tape copying results you want.       *   FILE 229
//*           If you can't do some job in tape copying that you     *   FILE 229
//*           want to do, please contact me, and I'll see if we     *   FILE 229
//*           can add a feature.  Thanks in advance.  (S.G.)        *   FILE 229
//*                                                                 *   FILE 229
//*           Note:  I actually did it for someone, who wanted      *   FILE 229
//*           to copy SL tapes to scratch tapes to preserve the     *   FILE 229
//*           output volser.  See Version 086 of COPYMODS and       *   FILE 229
//*           higher, using the SHOOVL and KEEPVOL options.         *   FILE 229
//*           Also, a combination of SHOOVL and READ will do a      *   FILE 229
//*           "dry run" to see what will result from a KEEPVOL.     *   FILE 229
//*                                                                 *   FILE 229
//*      Keywords:  TAPECOPY COPYMODS COPYFILE                      *   FILE 229
//*                                                                 *   FILE 229
//*      Note:  COPYFILE and COPYSLNL now have an option to dump    *   FILE 229
//*      ----   tape labels for copied files, in COPYMODS LABLDUMP  *   FILE 229
//*             format.  To enable this, you have to code a         *   FILE 229
//*             //TAPELOUT DD card in the JCL, and also put a       *   FILE 229
//*             //LABLDUMP DD card pointing to an FB-80 format      *   FILE 229
//*             dataset that will receive the tape label images.    *   FILE 229
//*                                                                 *   FILE 229
//*  >>> COPYFILE dumps and prints labels from the output tape.     *   FILE 229
//*  >>> COPYSLNL dumps and prints labels from the input tape,      *   FILE 229
//*             since the output tape from COPYSLNL has no labels.  *   FILE 229
//*                                                                 *   FILE 229
//*      email:  sbgolob@cbttape.org                                *   FILE 229
//*                                                                 *   FILE 229
//*           Since it is difficult to test a new level of          *   FILE 229
//*           COPYMODS for all cases, I have decided to include     *   FILE 229
//*           a previous release of COPYMODS in this file, as       *   FILE 229
//*           a fallback, if necessary.                             *   FILE 229
//*                                                                 *   FILE 229
//*           In skilled hands, COPYMODS is an extremely versatile  *   FILE 229
//*           tape copying tool.  You should learn how to use       *   FILE 229
//*           its many options.  The pds member called #MANUAL      *   FILE 229
//*           documents most of them.                               *   FILE 229
//*                                                                 *   FILE 229
//*           Using a PARM of HEXPRT, or HEXPRT in a SYSIN card,    *   FILE 229
//*           COPYMODS will hex dump the first 132 bytes of the     *   FILE 229
//*           first n records of each file, where n=4 by default.   *   FILE 229
//*           This can be overridden by coding PRINTRCDS=nnn        *   FILE 229
//*           in a SYSIN card.  This action is similar to what      *   FILE 229
//*           TAPESCAN does, so if you code READ and HEXPRT in      *   FILE 229
//*           PARM or SYSIN for an execution of COPYMODS, you get   *   FILE 229
//*           a similar result to what you get for TAPESCAN.        *   FILE 229
//*                                                                 *   FILE 229
//*           I have also included another version of COPYMODS      *   FILE 229
//*           called COPYMODT from Art Tansky.  COPYMODT has        *   FILE 229
//*           some features which I haven't yet incorporated        *   FILE 229
//*           into COPYMODS.  One of its features is to count       *   FILE 229
//*           bytes for each file and tape label read.  That        *   FILE 229
//*           feature has is now an option in this version of       *   FILE 229
//*           COPYMODS, using the keywords of BYTES and CUMTOT,     *   FILE 229
//*           and also CUMSEP.                                      *   FILE 229
//*                                                                 *   FILE 229
//*           Art Tansky's other new feature is to support very     *   FILE 229
//*           many output DD names, because in Art's version        *   FILE 229
//*           the output DCB's are created dynamically, and are     *   FILE 229
//*           not static in the program.  COPYMODT currently        *   FILE 229
//*           supports up to 100 output tapes.                      *   FILE 229
//*                                                                 *   FILE 229
//*           Currently, my version does not do any GETMAINs.       *   FILE 229
//*           If my version of COPYMODS can be loaded into core,    *   FILE 229
//*           it will execute.  The tape buffer is a part of        *   FILE 229
//*           the COPYMODS program itself, and is 64K bytes long.   *   FILE 229
//*                                                                 *   FILE 229
//*           Several other programs from File 316 of the CBT       *   FILE 229
//*           Tape have also been included here for convenience.    *   FILE 229
//*           They are:                                             *   FILE 229
//*                                                                 *   FILE 229
//*           COPYFILE - Copies selected files from one SL tape     *   FILE 229
//*                      to another, using control cards.           *   FILE 229
//*                                                                 *   FILE 229
//*                     (These programs are needed because          *   FILE 229
//*                      COPYMODS cannot easily select files        *   FILE 229
//*                      from the input tape to copy.  Its          *   FILE 229
//*                      default action is to copy a tape from      *   FILE 229
//*                      end to end.  COPYFILE, COPYSLNL, and       *   FILE 229
//*                      COPYNLNL provide extremely flexible        *   FILE 229
//*                      file selection criteria for copying        *   FILE 229
//*                      SOME files of a tape, and not others.)     *   FILE 229
//*                                                                 *   FILE 229
//*                 ---> Fixed for intermittent ABEND 400 on        *   FILE 229
//*                      writes.  Unpredictable, so I replaced      *   FILE 229
//*                      Frank Yates' double buffering that was     *   FILE 229
//*                      GETMAINed, by single buffering with a      *   FILE 229
//*                      buffer inside the program.  Seems to       *   FILE 229
//*                      work.  Still keeping old level around.     *   FILE 229
//*                                                                 *   FILE 229
//*           COPYFIL# - Help member for the COPYFILE control       *   FILE 229
//*                      cards, so you know how to use them in      *   FILE 229
//*                      the COPYFILE, COPYSLNL, and COPYNLNL       *   FILE 229
//*                      programs, to select which files from       *   FILE 229
//*                      the input tape that you want to copy.      *   FILE 229
//*                                                                 *   FILE 229
//*           COPYSLNL - Same as COPYFILE, except that labels       *   FILE 229
//*                      are stripped off in the output tape,       *   FILE 229
//*                      so the output tape is NL.  Same control    *   FILE 229
//*                      cards as COPYFILE.                         *   FILE 229
//*                                                                 *   FILE 229
//*                      Now you can also use the STRIP option      *   FILE 229
//*                      of COPYMODS to create an NL tape from      *   FILE 229
//*                      an SL tape.  But COPYSLNL has file         *   FILE 229
//*                      selection controls that COPYMODS does      *   FILE 229
//*                      not have.                                  *   FILE 229
//*                                                                 *   FILE 229
//*                 ---> Fixed for intermittent ABEND 400 on        *   FILE 229
//*                      writes.  Unpredictable, so I replaced      *   FILE 229
//*                      Frank Yates' double buffering that was     *   FILE 229
//*                      GETMAINed, by single buffering with a      *   FILE 229
//*                      buffer inside the program.  Seems to       *   FILE 229
//*                      work.  Still keeping old level around.     *   FILE 229
//*                                                                 *   FILE 229
//*           COPYSLN# - Help member for the COPYSLNL control       *   FILE 229
//*                      cards, so you know how to use them in      *   FILE 229
//*                      the COPYFILE, COPYSLNL, and COPYNLNL       *   FILE 229
//*                      programs, to select which files from       *   FILE 229
//*                      the input tape that you want to copy.      *   FILE 229
//*                                                                 *   FILE 229
//*           COPYNLNL - Similar to COPYFILE, and uses the same     *   FILE 229
//*                      control cards, but copies selected files   *   FILE 229
//*                      from NL input tape to an NL output tape.   *   FILE 229
//*                      Only stops copying after 2 consecutive     *   FILE 229
//*                      tape marks.                                *   FILE 229
//*                                                                 *   FILE 229
//*                 ---> Fixed for intermittent ABEND 400 on        *   FILE 229
//*                      writes.  Unpredictable, so I replaced      *   FILE 229
//*                      Frank Yates' double buffering that was     *   FILE 229
//*                      GETMAINed, by single buffering with a      *   FILE 229
//*                      buffer inside the program.  Seems to       *   FILE 229
//*                      work.  Still keeping old level around.     *   FILE 229
//*                                                                 *   FILE 229
//*           COPYNLN# - Help member for the COPYNLNL control       *   FILE 229
//*                      cards, so you know how to use them in      *   FILE 229
//*                      the COPYFILE, COPYSLNL, and COPYNLNL       *   FILE 229
//*                      programs, to select which files from       *   FILE 229
//*                      the input tape that you want to copy.      *   FILE 229
//*                                                                 *   FILE 229
//*           CKIEBGEN - A simple copy program that uses QSAM       *   FILE 229
//*                      and just does GET and PUT.  DCB's are      *   FILE 229
//*                      coded very generally, and DCB info about   *   FILE 229
//*                      the input and output files has to be       *   FILE 229
//*                      specified in the JCL.  Adapted from        *   FILE 229
//*                      Baldomero Castilla's program of the        *   FILE 229
//*                      same name, but I added record counts,      *   FILE 229
//*                      and a DCB report for the input and         *   FILE 229
//*                      output datasets.  Also record selection.   *   FILE 229
//*                                                                 *   FILE 229
//*                      This program lacks the "smart-ss"          *   FILE 229
//*                      features of IEBGENER, but consequently     *   FILE 229
//*                      it can be used to copy more kinds of       *   FILE 229
//*                      sequential files than IEBGENER can.        *   FILE 229
//*                      Try it on FB-80 zip files, or parts of     *   FILE 229
//*                      XMIT files, to complete broken ones.       *   FILE 229
//*                                                                 *   FILE 229
//*                      Functionality added to select parts of     *   FILE 229
//*                      files to copy, through a SYSIN DD card     *   FILE 229
//*                      (which is optional) and by using           *   FILE 229
//*                                                                 *   FILE 229
//*                      SKIP=mmmmmmm                               *   FILE 229
//*                      COPY=nnnnnnn                               *   FILE 229
//*                                                                 *   FILE 229
//*                      control cards in SYSIN to determine        *   FILE 229
//*                      which segment of the file to copy.         *   FILE 229
//*                                                                 *   FILE 229
//*           Hopefully, File 229 contains everything you need      *   FILE 229
//*           to assemble all the programs.  If you think there's   *   FILE 229
//*           something missing, look at the MACROS member from     *   FILE 229
//*           File 316, or in File 316 source members.              *   FILE 229
//*                                                                 *   FILE 229
//*           All of these programs, except for CKIEBGEN, whose     *   FILE 229
//*           purpose is different, can now copy tape files         *   FILE 229
//*           with blocksize up to 64K blocks.                      *   FILE 229
//*                                                                 *   FILE 229
//*           The new features of the COPYMODS program are          *   FILE 229
//*           summarized below, but there's more than meets the     *   FILE 229
//*           eye.  If you do tape copying, these programs          *   FILE 229
//*           deserve study, for the extent of their capabilities.  *   FILE 229
//*                                                                 *   FILE 229
//*       >>  COPYMODS will automatically detect input tapes        *   FILE 229
//*       >>  with many leading tape marks, and will advance the    *   FILE 229
//*       >>  tape past them, if there is real data afterwards.     *   FILE 229
//*       >>  This requires no effort on the part of the user,      *   FILE 229
//*       >>  and it is done automatically.  SYSPRINT will report   *   FILE 229
//*       >>  the results.                                          *   FILE 229
//*                                                                 *   FILE 229
//*           When first written, the intent of the COPYMODS        *   FILE 229
//*           program was to copy NL tapes.  I have modified        *   FILE 229
//*           COPYMODS very extensively, to teach it about          *   FILE 229
//*           Standard Labeled tapes, and I have modified it        *   FILE 229
//*           to copy large-blocked files of up to 64K.  (SG        *   FILE 229
//*           12/00).  COPYMODS can now do many tricks with         *   FILE 229
//*           IBM Standard Labels and SL tapes.                     *   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'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 consecutive tape marks.       *   FILE 229
//*                                                                 *   FILE 229
//*           Under PARM control, this program can now create       *   FILE 229
//*           initted tapes, and optionally change the VOLSER       *   FILE 229
//*           of the newly initted SL tapes.  Thus, you can init    *   FILE 229
//*           a large number of tapes at the same time.             *   FILE 229
//*           (The new INITVOLS parameter eliminates the need       *   FILE 229
//*           for an already initted input tape, and you can        *   FILE 229
//*           INIT up to 16 output tapes at the same time.)         *   FILE 229
//*                                                                 *   FILE 229
//*           If you code a parm of SYSIN in the EXEC card,         *   FILE 229
//*           COPYMODS will take its parms from SYSIN, as well      *   FILE 229
//*           as from the EXEC card.  SYSIN is scanned last.        *   FILE 229
//*           Therefore SYSIN overrides the EXEC card if there      *   FILE 229
//*           is a conflict.  Parms coded later, always override    *   FILE 229
//*           parms coded earlier.  As of Level 049 of COPYMODS,    *   FILE 229
//*           you don't actually have to code PARM=SYSIN in the     *   FILE 229
//*           exec card.  The mere presence or absence of a         *   FILE 229
//*           //SYSIN DD card in the execution JCL of COPYMODS      *   FILE 229
//*           will determine whether (or not) the SYSIN ddname      *   FILE 229
//*           is opened and scanned.                                *   FILE 229
//*                                                                 *   FILE 229
//*           See the $$PARMS and $$PARMS1 member of this dataset   *   FILE 229
//*           for hints and advice on how to use the many options   *   FILE 229
//*           of COPYMODS.                                          *   FILE 229
//*                                                                 *   FILE 229
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 229
//*                                                                 *   FILE 229
//*       NEW FEATURES ADDED BY SAM GOLOB:                          *   FILE 229
//*                                                                 *   FILE 229
//*       (Also please see the individual Level nnn changes,        *   FILE 229
//*       as listed in the COPYMODS source code, for more           *   FILE 229
//*       information.)                                             *   FILE 229
//*                                                                 *   FILE 229
//*       It is recommended that you view the PARMTABL entries      *   FILE 229
//*       and look at the supplied #MANUAL member in the            *   FILE 229
//*       distribution pds, CBT File 229, for even more info.       *   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.  THE PARM SCANNER IS NOW A            *   FILE 229
//*           SEPARATE PROGRAM CALLED PARMCHEK, WHICH MUST BE       *   FILE 229
//*           ASSEMBLED IN BATCH, TOGETHER WITH THE COPYMODS        *   FILE 229
//*           MAIN SOURCE CODE.                                     *   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.  USE THE CHGVOL PARM TO          *   FILE 229
//*           INVOKE THIS ACTION.                                   *   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.  OPTION OF LTMSKIP OR LTMCOPY.              *   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).  THIS ALSO        *   FILE 229
//*           WORKS WHEN ADDING EXTERNAL LABELS TO AN NL TAPE.      *   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
//*      10.  COPYMODS CAN READ A TAPE (EITHER WHILE COPYING        *   FILE 229
//*           IT, OR IN READ-ONLY MODE), AND DUMP ALL THE TAPE      *   FILE 229
//*           LABELS TO AN FB-80 OUTPUT FILE WITH A DDNAME OF       *   FILE 229
//*           LABLDUMP.  USE A PARM OF LABLDUMP TO INVOKE THIS      *   FILE 229
//*           SERVICE.                                              *   FILE 229
//*                                                                 *   FILE 229
//*      11.  COPYMODS CAN READ AN SL TAPE AND DUMP THE LABELS      *   FILE 229
//*           OFF INTO AN OUTPUT FILE.  THESE LABEL IMAGES HAVE     *   FILE 229
//*           EXTRA CONTROL CARDS ADDED.  THESE LABELS CAN BE       *   FILE 229
//*           MERGED WITH THE FILES IN AN NL VERSION OF THE         *   FILE 229
//*           SAME TAPE, AND A NEW SL TAPE CREATED.  BY DEFAULT,    *   FILE 229
//*           BLOCK COUNTS IN THE EOF1 AND EOV1 OF THE OUTPUT       *   FILE 229
//*           TAPE ARE CORRECTED TO SHOW THE ACTUAL BLOCK           *   FILE 229
//*           COUNTS ON THE TAPE, BUT THIS ACTION CAN BE            *   FILE 229
//*           MANUALLY TURNED OFF WITH A PARM SETTING.              *   FILE 229
//*                                                                 *   FILE 229
//*      11a. IF YOU CODE A PARM OF SYSIN IN THE PARM FIELD OF      *   FILE 229
//*           THE EXEC CARD, THEN COPYMODS NOW TAKES PARM INPUT     *   FILE 229
//*           FROM SYSIN, AND THESE CAN OVERRIDE THE OTHER PARMS    *   FILE 229
//*           IN THE EXEC CARD, BECAUSE SYSIN IS SEARCHED LATER.    *   FILE 229
//*                                                                 *   FILE 229
//*           (BUT YOU DON'T HAVE TO CODE PARM=SYSIN IN THE PARM    *   FILE 229
//*           FIELD OF THE EXEC CARD.  IF THE SYSIN DDNAME IS       *   FILE 229
//*           PRESENT IN THE JCL, PARMCHEK WILL OPEN IT, AND        *   FILE 229
//*           WILL USE IT TO SCAN FOR PARMS.  SG - 07/03).          *   FILE 229
//*                                                                 *   FILE 229
//*      11b. ANY SPECIAL SYSIN KEYWORD, SUCH AS:                   *   FILE 229
//*           TAPEOWNER=xxxxxxxxxx                                  *   FILE 229
//*           FILELIMIT=nnnn                                        *   FILE 229
//*           LABELIMIT=nnnn                                        *   FILE 229
//*           PRINTRCDS=nnnn                                        *   FILE 229
//*             or                                                  *   FILE 229
//*           OUTVOLALL=volser , WILL CAUSE THE REST OF A SYSIN     *   FILE 229
//*           CARD TO BE IGNORED FOR PARMS FROM THE PARM TABLE.     *   FILE 229
//*                                                                 *   FILE 229
//*      11c. OUTVOLALL=volser , STARTING IN COLUMN1 OF A SYSIN     *   FILE 229
//*           CARD, WILL CAUSE ALL OUTPUT VOL1 LABELS TO BE         *   FILE 229
//*           OVERWRITTEN WITH THE CODED VOLSER.  THE REST OF       *   FILE 229
//*           THAT CARD IS NOT SEARCHED FOR PARMS.                  *   FILE 229
//*                                                                 *   FILE 229
//*      12.  OVERLAYING OF THE VOLSER (IN THE VOL1 LABEL)          *   FILE 229
//*           CAN ALSO BE DONE IF YOU ARE ADDING EXTERNAL           *   FILE 229
//*           LABELS TO AN NL TAPE.  THE OUTPUT TAPES CAN           *   FILE 229
//*           HAVE DIFFERENT VOLSER'S FROM THE VOL1 LABEL           *   FILE 229
//*           IN THE EXTERNAL LABEL DATASET.                        *   FILE 229
//*                                                                 *   FILE 229
//*      13.  LABLDUMP AND LABADDIN NOW TAKE IBM STANDARD USER      *   FILE 229
//*           LABELS (SUL) INTO ACCOUNT.  UP TO 8 UHLn AND/OR       *   FILE 229
//*           UTLn LABELS ALLOWED.  THEREFORE, YOU CAN MAKE A       *   FILE 229
//*           TAPE WITH ANY USER LABELS YOU WANT, EVEN THOUGH       *   FILE 229
//*           YOUR SYSTEM CAN'T CREATE SUCH A TAPE BY ITSELF.       *   FILE 229
//*           LABLDUMP DUMPS ALL THE LABEL RECORDS FROM AN SL       *   FILE 229
//*           TAPE TO AN EXTERNAL FILE (WITH SPECIAL CONTROL        *   FILE 229
//*           CARDS), AND LABADDIN CAN ADD THESE LABELS TO AN       *   FILE 229
//*           NL TAPE TO MAKE AN SL TAPE.  (OF COURSE, YOU CAN      *   FILE 229
//*           EDIT THE LABEL FILE ON DISK BEFORE USING IT TO        *   FILE 229
//*           CREATE A NEW SL TAPE FROM AN NL TAPE.)                *   FILE 229
//*                                                                 *   FILE 229
//*      14.  DEFAULT ACTION OF COPYMODS WITH LABADDIN IS THAT      *   FILE 229
//*           IT IS "LABEL DRIVEN".  THAT IS, IF THERE ARE MORE     *   FILE 229
//*           NL TAPE FILES THAN EXTERNAL LABELS, THE PROGRAM       *   FILE 229
//*           STOPS WHEN IT RUNS OUT OF LABELS.  IF THERE ARE       *   FILE 229
//*           MORE LABEL SETS THAN FILES, THE OUTPUT TAPE IS        *   FILE 229
//*           WRITTEN WITH NULL STANDARD LABEL FILES UNTIL THE      *   FILE 229
//*           LABEL DATASET IS EXHAUSTED, EVEN AFTER THE LAST       *   FILE 229
//*           DATA FILE HAS BEEN WRITTEN.                           *   FILE 229
//*                                                                 *   FILE 229
//*           A NEW OPTION CALLED NOEXNULL ALLOWS COPYMODS TO       *   FILE 229
//*           STOP AS SOON AS THE NL TAPE FILES ARE EXHAUSTED,      *   FILE 229
//*           EVEN IF THERE ARE ADDITIONAL LABEL SETS IN THE        *   FILE 229
//*           EXTERNAL LABEL DATASET.                               *   FILE 229
//*                                                                 *   FILE 229
//*      15.  WHEN DOING LABADDIN PROCESSING, IF THE LAST LABEL     *   FILE 229
//*           SET IN THE EXTERNAL LABEL FILE HAS A HDR1 AND A       *   FILE 229
//*           HDR2 LABEL, BUT NO ENDOFLABELHEADER AND NO EOF1       *   FILE 229
//*           AND NO EOF2, THE LBLFIX PARAMETER ALLOWS THE          *   FILE 229
//*           PROGRAM TO ACT AS IF THESE CONTROL CARDS WERE         *   FILE 229
//*           THERE.  THE EOF1 IS BUILT FROM THE HDR1 AND THE       *   FILE 229
//*           MEASURED BLOCK COUNT, AND THE EOF2 IS BUILT FROM      *   FILE 229
//*           THE HDR2.                                             *   FILE 229
//*                                                                 *   FILE 229
//*      16.  COPYMODS CAN NOW INIT TAPES WITHOUT COPYING AN        *   FILE 229
//*           INPUT TAPE.  USE A PARM OF INITVOLS.  ASCII TAPES     *   FILE 229
//*           ARE INITTED WITH A PARM OF EITHER INASC3 OR           *   FILE 229
//*           INASC4, FOR ASCII LEVEL 3 AND ASCII LEVEL 4           *   FILE 229
//*           RESPECTIVELY.  A PARM OF INASCII DEFAULTS TO          *   FILE 229
//*           ASCII LEVEL 3.                                        *   FILE 229
//*                                                                 *   FILE 229
//*      17.  COPYMODS CAN NOW CHANGE THE OWNER INFORMATION         *   FILE 229
//*           IN THE VOL1 LABEL.  USE THE TAPEOWNER= KEYWORD        *   FILE 229
//*           IN A SYSIN CARD.  14 CHARACTER TAPE OWNERS ARE        *   FILE 229
//*           SUPPORTED FOR ASCII TAPES.  IBM SL TAPES HAVE         *   FILE 229
//*           10 CHARACTERS IN THE TAPE OWNER FIELD.                *   FILE 229
//*                                                                 *   FILE 229
//*      18.  COPYMODS CAN LIMIT ITSELF IN THE NUMBER OF FILES      *   FILE 229
//*           COPIED, IF THE FILELIMIT=NN KEYWORD IS CODED IN       *   FILE 229
//*           SYSIN.  IF THE INPUT IS SL, THEN THE FILELIMIT        *   FILE 229
//*           IS INTERPRETED AS SL FILES, AND MULTIPLIED BY 3.      *   FILE 229
//*           IF NOT, THEN IT IS INTERPRETED AS NL.  SL             *   FILE 229
//*           INTERPRETATION OF FILE NUMBERS CAN BE FORCED,         *   FILE 229
//*           USING THE SLLIM PARM KEYWORD.  NL INTERPRETATION      *   FILE 229
//*           IS FORCED USING THE NLLIM PARM KEYWORD.               *   FILE 229
//*                                                                 *   FILE 229
//*      19.  USING THE "BYTES" PARAMETER, COPYMODS WILL REPORT     *   FILE 229
//*           BYTE COUNTS FOR ALL FILES IN THE INPUT TAPE, AND      *   FILE 229
//*           TOTAL BYTES FOR THE ENTIRE TAPE.  THE "CUMTOT"        *   FILE 229
//*           PARAMETER REPORTS CUMULATIVE BYTE TOTALS OVER         *   FILE 229
//*           MANY FILES, AND IMPLIES THAT THE "BYTES" PARM         *   FILE 229
//*           IS ALSO IN EFFECT.  A VARIANT OF THE "CUMTOT"         *   FILE 229
//*           PARAMETER IS THE "CUMSEP" PARAMETER, WHICH REPORTS    *   FILE 229
//*           CUMULATIVE BYTE TOTALS, FILE BY FILE, BUT CUMSEP      *   FILE 229
//*           SEPARATES BYTE TOTALS COMING FROM LABELS, FROM THE    *   FILE 229
//*           BYTE TOTALS COMING FROM DATA FILES.                   *   FILE 229
//*                                                                 *   FILE 229
//*      20.  COPYMODS NOW PRINTS "OPTIONS IN EFFECT" WITH THE      *   FILE 229
//*           "OPTION" PARAMETER.  (DEFAULT AS DISTRIBUTED, IS      *   FILE 229
//*           TO PRINT THEM.)                                       *   FILE 229
//*                                                                 *   FILE 229
//*           IF YOU ARE CONFUSED THAT THE OPTION REPORT DOES       *   FILE 229
//*           NOT SEEM TO REFLECT THE OPTION KEYWORDS YOU ARE       *   FILE 229
//*           CODING IN YOUR JCL, PLEASE BE AWARE THAT COPYMODS     *   FILE 229
//*           DOES SOME OPTION ADJUSTMENTS TO RESOLVE APPARENT      *   FILE 229
//*           INCONSISTENCIES WITH THE PARM SETTINGS.  TO GET       *   FILE 229
//*           A "BEFORE AND AFTER" REPORT FOR THIS ACTION, CODE     *   FILE 229
//*           THE "CODEDPRM" PARM KEYWORD.                          *   FILE 229
//*                                                                 *   FILE 229
//*      21.  BLOCK CORRECTION FOR EOF1 AND EOV1 LABELS NOW         *   FILE 229
//*           TAKES THE HIGH ORDER 4 BYTES OF THE BLOCK COUNT       *   FILE 229
//*           INTO ACCOUNT.  THIS IS A DIFFERENT FIELD IN THE       *   FILE 229
//*           EOF1 OR EOV1 LABEL (LAST 4 BYTES).  IF A TAPE         *   FILE 229
//*           FILE (EBCDIC SL TAPES ONLY) HAS MORE THAN 1           *   FILE 229
//*           MILLION BLOCKS IN IT, THEN THIS FIELD IS USED.        *   FILE 229
//*           OTHERWISE IT IS BLANKS.                               *   FILE 229
//*                                                                 *   FILE 229
//*      22.  COPYMODS CAN NOW DO A QUICK DUMP OF TAPE LABELS,      *   FILE 229
//*           WITHOUT READING THE TAPE DATA.  USE THE PARM OF       *   FILE 229
//*           LBDQUICK (WHICH IMPLIES READONLY), JUST TO DO         *   FILE 229
//*           A LABLDUMP AND "FORWARD SPACE FILE" OVER THE          *   FILE 229
//*           DATA BLOCKS ON THE TAPE.                              *   FILE 229
//*                                                                 *   FILE 229
//*      23.  USING PARM=STRIP, COPYMODS CAN STRIP ALL LABELS       *   FILE 229
//*           FROM SL TAPES TO MAKE NL OUTPUT TAPES.  IF            *   FILE 229
//*           FILE LIMITING IS NOT IN EFFECT (NO FILELIMIT=nnn      *   FILE 229
//*           CARD IN SYSIN), THEN THE LABELS AND THE TAPE MARK     *   FILE 229
//*           THAT FOLLOWS EACH ONE, WILL NOT BE WRITTEN TO THE     *   FILE 229
//*           OUTPUT TAPE(S).  IT DOES NOT MATTER WHERE THE         *   FILE 229
//*           LABELS ARE, ON THE TAPE, SO IF YOU HAVE SOME KIND     *   FILE 229
//*           OF MESSED-UP TAPE WITH LABELS IN THE WRONG PLACE,     *   FILE 229
//*           THESE WILL STILL BE CORRECTLY STRIPPED OFF.  IF       *   FILE 229
//*           FILE LIMITING IS IN EFFECT, THEN THE INPUT TAPE       *   FILE 229
//*           IS ASSUMED TO BE SL, AND THE NUMBER CODED IN THE      *   FILE 229
//*           FILELIMIT=nnn SYSIN CARD IS MULTIPLIED BY 3, AND      *   FILE 229
//*           THE COPYING IS STOPPED AFTER THAT POINT OF THE        *   FILE 229
//*           INPUT TAPE.                                           *   FILE 229
//*                                                                 *   FILE 229
//*           FOR PARM=STRIP OPERATIONS, COPYMODS USES THE          *   FILE 229
//*           LABELCHK ROUTINE TO DETERMINE IF A TAPE FILE IS       *   FILE 229
//*           REALLY A LABEL, SO IT WILL STRIP OFF A LABEL FILE     *   FILE 229
//*           WHEREVER IT OCCURS.  THIS IS NOT LIKE THE COPYSLNL    *   FILE 229
//*           PROGRAM, WHICH ASSUMES THAT EACH DATA FILE IS         *   FILE 229
//*           SANDWICHED BETWEEN TWO LABEL FILES, AND WHICH         *   FILE 229
//*           DOES THE STRIPPING BY "COUNTING" AND NOT BY           *   FILE 229
//*           "FEELING".                                            *   FILE 229
//*                                                                 *   FILE 229
//*      24.  IF YOU HAVE SPECIFIED FILELIMIT=nnn IN A SYSIN        *   FILE 229
//*           CARD AND HAVE THEREFORE INVOKED FILE LIMITING,        *   FILE 229
//*           YOU CAN FORCE THE nnn TO BE INTERPRETED AS NL,        *   FILE 229
//*           USING THE NLLIM PARM, AND YOU CAN FORCE THE nnn       *   FILE 229
//*           TO BE INTERPRETED AS SL (AND THEREFORE BE             *   FILE 229
//*           MULTIPLIED BY 3), BY USING THE SLLIM PARM.            *   FILE 229
//*                                                                 *   FILE 229
//*      25.  USING PARM=IDRCOFF, YOU CAN INDICATE THAT THE         *   FILE 229
//*           TAPE IS NON-COMPRESSED.  THIS IS USEFUL FOR AWS       *   FILE 229
//*           FORMAT TAPES WHICH REALLY AREN'T RUNNING ON THE       *   FILE 229
//*           3490 HARDWARE AND ABOVE.  SO YOU JUST INDICATE        *   FILE 229
//*           THEM AS UNCOMPRESSED, AND THE VIRTUAL TAPE LABELS     *   FILE 229
//*           DO NOT INDICATE TO MVS THAT IDRC IS ON.  THIS         *   FILE 229
//*           ALLOWS A 3420 OR 3480 VIRTUAL DEVICE TO READ THE      *   FILE 229
//*           TAPE, WITHOUT INCURRING AN S413-40 ABEND.             *   FILE 229
//*                                                                 *   FILE 229
//*      26.  USING PARM=HEXPRT, THE FIRST 132 BYTES OF THE         *   FILE 229
//*           FIRST n RECORDS IN EACH FILE ARE PRINTED IN HEX       *   FILE 229
//*           AND EBCDIC.  DEFAULT FOR n IS 4.  THIS CAN BE         *   FILE 229
//*           OVERRIDDEN BY CODING PRINTRCDS=nnn IN THE SYSIN       *   FILE 229
//*           CARD, STARTING IN COLUMN 1.  GLOBAL VARIABLE          *   FILE 229
//*           &HEXDFLA CAN BE SET AT ASSEMBLY TIME, TO CHANGE       *   FILE 229
//*           THE DEFAULT n RECORDS TO BE HEX PRINTED.              *   FILE 229
//*                                                                 *   FILE 229
//*      27.  THE PARM SCANNING PROGRAM PARMCHEK, CUSTOMIZED        *   FILE 229
//*           TO THIS VERSION OF COPYMODS, NOW DOES THE PARM        *   FILE 229
//*           SCANNING INSTEAD OF THE INLINE PARMCHK SUBROUTINE.    *   FILE 229
//*           THEREFORE, THIS PROGRAM SHOULD BE ASSEMBLED IN        *   FILE 229
//*           BATCH, TOGETHER WITH THE PARMCHEK PROGRAM.            *   FILE 229
//*           THIS ALSO ALLOWS OPTIONAL DDNAME //PARMREPT TO        *   FILE 229
//*           BE CODED, TO SHOW THE RESULTS FROM THE PARM SCAN.     *   FILE 229
//*                                                                 *   FILE 229
//*      28.  SUPPORT FOR ANSI/ISO (ASCII) TAPES.  LEVELS 3 AND     *   FILE 229
//*           4 ARE SUPPORTED.  COPYMODS CAN INIT ASCII TAPES       *   FILE 229
//*           (KEYWORDS INASC3 AND INASC4), AND CAN PERFORM         *   FILE 229
//*           ALL ITS FUNCTIONALITY ON THEM.  14 CHARACTER TAPE     *   FILE 229
//*           OWNER FIELD IS SUPPORTED FOR ASCII TAPES, AS WELL     *   FILE 229
//*           AS MOST OF THE OTHER DIFFERENCES BETWEEN ASCII        *   FILE 229
//*           LABEL FORMATS AND IBM (EBCDIC) LABEL FORMATS.         *   FILE 229
//*                                                                 *   FILE 229
//*      29.  SECURITY INDICATORS IN TAPE LABELS CAN BE TURNED      *   FILE 229
//*           OFF IN THE COPIED TAPES USING THE SECOFF KEYWORD.     *   FILE 229
//*           THESE INDICATORS (TURNED OFF) ARE:                    *   FILE 229
//*            ASCII SPACE IN BYTE 11 OF ASCII VOL1 LABEL.          *   FILE 229
//*            ASCII SPACE IN BYTE 54 OF ASCII XXX1 LABELS.         *   FILE 229
//*            EBCDIC 0 IN BYTE 54 OF IBM XXX1 LABELS.              *   FILE 229
//*           IF THESE HAD BEEN ANYTHING OTHER THAN THE ABOVE,      *   FILE 229
//*           THE SECOFF KEYWORD WILL CAUSE THEM TO BE RESET        *   FILE 229
//*           AS ABOVE, TO INDICATE NO DATASET PROTECTION.          *   FILE 229
//*                                                                 *   FILE 229
//*           RACF OR OTHER SECURITY MAY OVERRIDE THESE LABEL       *   FILE 229
//*           SECURITY INDICATORS, BUT WE HAVE THE ABILITY TO       *   FILE 229
//*           COMPLETELY TURN THEM OFF AT THE TAPE LABEL LEVEL.     *   FILE 229
//*           THE NOSECOFF KEYWORD NULLIFIES THE EFFECT OF THE      *   FILE 229
//*           SECOFF KEYWORD.                                       *   FILE 229
//*                                                                 *   FILE 229
//*      30.  COPYMODS CAN TRANSPARENTLY (WITH NO FURTHER EFFORT    *   FILE 229
//*           ON THE PROGRAMMER'S PART) READ PAST LEADING TAPE      *   FILE 229
//*           MARKS ON THE INPUT TAPE.  THESE MAY BE EITHER         *   FILE 229
//*           COPIED TO THE OUTPUT TAPES (KEYWORD LTMCOPY) OR       *   FILE 229
//*           NOT COPIED TO THE OUTPUT TAPES (KEYWORD LTMSKIP).     *   FILE 229
//*           MORE EXTENSIVE "LTM SERVICE" HAS BEEN BUILT INTO      *   FILE 229
//*           THIS PROGRAM.                                         *   FILE 229
//*                                                                 *   FILE 229
//*      31.  COPYMODS CAN DISPLAY 6250 BPI FOOTAGES FOR THE        *   FILE 229
//*           FILES ON THE TAPE, USING THE FOOTAGE KEYWORD.         *   FILE 229
//*           FOOTAGE CALCULATIONS FOR EACH FILE, AS WELL AS        *   FILE 229
//*           FOOTAGE FOR THE ENTIRE TAPE, UP TO THE CURRENT        *   FILE 229
//*           FILE, ARE DISPLAYED.                                  *   FILE 229
//*                                                                 *   FILE 229
//*      32.  COPYMODS WILL DISPLAY MINIMUM AND MAXIMUM BLOCK       *   FILE 229
//*           SIZES FOR EACH TAPE FILE READ, WHEN THE MINMAX        *   FILE 229
//*           OPTION IS CODED.                                      *   FILE 229
//*                                                                 *   FILE 229
//*      33.  COPYMODS CAN OPTIONALLY SHOW THE SIZE OF EACH         *   FILE 229
//*           TAPE DATA BLOCK (TECHNICALLY CALLED A "RECORD")       *   FILE 229
//*           ON THE TAPE, USING THE RECSIZE OPTION.  AS CODED      *   FILE 229
//*           CURRENTLY, RECSIZE CAN PRODUCE A LOT OF SYSPRINT      *   FILE 229
//*           OUTPUT, SINCE IT PRODUCES ONE LINE PER TAPE DATA      *   FILE 229
//*           BLOCK.  THE RECSIZE OPTION DISPLAYS DETAILS,          *   FILE 229
//*           WHICH THE MINMAX OPTION SUMMARIZES.  IF RECSIZE       *   FILE 229
//*           IS CODED, THEN THE MINMAX OPTION IS FORCED ON.        *   FILE 229
//*                                                                 *   FILE 229
//*      34.  THE KEEPVOL OPTION WILL ALLOW THE USE OF THE VOL1     *   FILE 229
//*           LABEL FROM A TARGET TAPE, IF THE VOL1 OF THE          *   FILE 229
//*           TARGET TAPE EXISTS, AND IF IT IS THE SAME TYPE        *   FILE 229
//*           AS THE VOL1 OF THE COPIED TAPE.  THIS ALLOWS FOR      *   FILE 229
//*           THE MOUNTING OF A SCRATCH TAPE, WHERE YOU DON'T       *   FILE 229
//*           KNOW THE VOLSER OF THE TARGET TAPE AHEAD OF TIME.     *   FILE 229
//*           THE KEEPVOL OPTION WILL ALLOW THE COPIED VOLUME       *   FILE 229
//*           TO KEEP THE SAME VOLSER AS THE SCRATCH TAPE, SO       *   FILE 229
//*           THAT A TAPE MANAGEMENT SYSTEM CAN KEEP TRACK OF       *   FILE 229
//*           IT.  EACH TARGET TAPE WILL GET DIFFERENT ACTION       *   FILE 229
//*           USING KEEPVOL, DEPENDING ON WHAT WAS ON IT BEFORE.    *   FILE 229
//*           IF THE VOL1 LABEL ON THE TARGET TAPE IS NOT THE       *   FILE 229
//*           SAME TYPE AS THE SOURCE TAPE, OR IF THE TARGET        *   FILE 229
//*           TAPE IS NON-LABELED, THEN A "STRAIGHT COPY" IS        *   FILE 229
//*           DONE TO THAT PARTICULAR OUTPUT TAPE, AS BEFORE.       *   FILE 229
//*                                                                 *   FILE 229
//*      35.  A COMBINATION OF THE OPTIONS "READ" AND "SHOOVL"      *   FILE 229
//*           (SHOW OUTPUT VOLUMES) WILL DO A "DRY RUN" TO SHOW     *   FILE 229
//*           YOU THE FUTURE RESULTS FROM A "KEEPVOL" RUN.          *   FILE 229
//*           "READ" WILL READ THE INPUT TAPE IN ITS ENTIRETY,      *   FILE 229
//*           AND "SHOOVL" WILL SHOW YOU THE FIRST 80 BYTES OF      *   FILE 229
//*           EACH OF THE OUTPUT TAPES.  NO ACTUAL COPY OF THE      *   FILE 229
//*           INPUT TAPE WILL BE DONE.  "KEEPVOL" IMPLIES           *   FILE 229
//*           "SHOOVL", BUT A TAPE COPY WILL ACTUALLY BE DONE.      *   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
//*           Support email:   sbgolob@cbttape.org                  *   FILE 233
//*                                                                 *   FILE 233
//***FILE 234 is from Dick Thornton, who is the author of the       *   FILE 234
//*           DISASSEMBLER program on File 217.  This is a rewrite  *   FILE 234
//*           of the disassembler to be able to handle load modules *   FILE 234
//*           which are in PDSE's as well as those in PDS'es, and   *   FILE 234
//*           it has been updated to use IBM's IEWBIND and IEWBUFF  *   FILE 234
//*           macros to do the load module access.                  *   FILE 234
//*                                                                 *   FILE 234
//*      Fixed by Joe Reichman to allow disassembly by              *   FILE 234
//*      entry point names, and also to fix a "bug",                *   FILE 234
//*      in disassembling "Halfword Immediate" instructions         *   FILE 234
//*      of the form xHI with negative number operands.             *   FILE 234
//*                                                                 *   FILE 234
//*      The disassembler will now also include ENTRY (entry        *   FILE 234
//*      point) assembler instructions in the disassembled code.    *   FILE 234
//*                                                                 *   FILE 234
//*         emails:  (check to see which are relevant):             *   FILE 234
//*                   sbgolob@cbttape.org                           *   FILE 234
//*                   reichmanjoe@gmail.com                         *   FILE 234
//*                                                                 *   FILE 234
//*      The following statements are from Dick Thornton:           *   FILE 234
//*                                                                 *   FILE 234
//*      This is a new disassembler that can be used to             *   FILE 234
//*      disassemble load modules in PDSE's as well as those in     *   FILE 234
//*      traditional PDS's.  It also can disassemble the more       *   FILE 234
//*      recent instructions that have been added to the IBM        *   FILE 234
//*      mainframe instruction set since my earlier disassembler    *   FILE 234
//*      that was written in 1977 and is now in File 217 of the     *   FILE 234
//*      CBT tape.                                                  *   FILE 234
//*                                                                 *   FILE 234
//*      I did not include DSECT statements in this version         *   FILE 234
//*      partly because I have not found them very useful, and      *   FILE 234
//*      partly due to time pressure, as I plan to retire June      *   FILE 234
//*      30, 2002.                                                  *   FILE 234
//*                                                                 *   FILE 234
//*      Installation and use notes:                                *   FILE 234
//*      1. This PDS contains the source code and JCL needed to     *   FILE 234
//*         install and test the RESOURCE/REBUILD/READLMOD          *   FILE 234
//*         disassembler.                                           *   FILE 234
//*      2. Details of coding for the control statements are        *   FILE 234
//*         given in comment statements at the beginning of the     *   FILE 234
//*         RESOURCE program.                                       *   FILE 234
//*      3. All the rest of the installation instructions may be    *   FILE 234
//*         found in the $README member of this pds.                *   FILE 234
//*                                                                 *   FILE 234
//*   Small fix to the RESOURCE program from John Kalinich, to fix  *   FILE 234
//*   the translate table of printables.                            *   FILE 234
//*                                                                 *   FILE 234
//*         email:  jkalinic@outlook.com                            *   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 and contains REASM, which   *   FILE 238
//*           is a Super Disassembler that runs interactively       *   FILE 238
//*           under ISPF.  This file contains Load Modules for      *   FILE 238
//*           REASM.                                                *   FILE 238
//*                                                                 *   FILE 238
//*           Current Release:  4.0                                 *   FILE 238
//*                                                                 *   FILE 238
//*        email:   volic@kspus.org                                 *   FILE 238
//*                 valentin.chernyak@multex.com                    *   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 and contains REASM, which   *   FILE 239
//*           is a Super Disassembler that runs interactively       *   FILE 239
//*           under ISPF.  This file contains ISPF panels for       *   FILE 239
//*           REASM.                                                *   FILE 239
//*                                                                 *   FILE 239
//*           Current Release:  4.0                                 *   FILE 239
//*                                                                 *   FILE 239
//*        email:   volic@kspus.org                                 *   FILE 239
//*                 valentin.chernyak@multex.com                    *   FILE 239
//*                                                                 *   FILE 239
//***FILE 240 is from Valentin Chernyak and contains REASM, which   *   FILE 240
//*           is a Super Disassembler that runs interactively       *   FILE 240
//*           under ISPF.  This file contains ISPF messages for     *   FILE 240
//*           REASM.                                                *   FILE 240
//*                                                                 *   FILE 240
//*           Current Release:  4.0                                 *   FILE 240
//*                                                                 *   FILE 240
//*        email:   volic@kspus.org                                 *   FILE 240
//*                 valentin.chernyak@multex.com                    *   FILE 240
//*                                                                 *   FILE 240
//***FILE 241 is from Valentin Chernyak and contains REASM, which   *   FILE 241
//*           is a Super Disassembler that runs interactively       *   FILE 241
//*           under ISPF.  This file contains documentation and     *   FILE 241
//*           JCL for REASM.                                        *   FILE 241
//*                                                                 *   FILE 241
//*           Current Release:  4.0                                 *   FILE 241
//*                                                                 *   FILE 241
//*        email:   volic@kspus.org                                 *   FILE 241
//*                 valentin.chernyak@multex.com                    *   FILE 241
//*                                                                 *   FILE 241
//***FILE 242 is from Valentin Chernyak and contains REASM, which   *   FILE 242
//*           is a Super Disassembler that runs interactively       *   FILE 242
//*           under ISPF.  This file contains a collection of       *   FILE 242
//*           "pre-digested" MVS macros for REASM, to interactively *   FILE 242
//*           supply mapping labels.  You can add to this           *   FILE 242
//*           collection with the PRCBGEN utility that is           *   FILE 242
//*           supplied on File 238 (JCL on File 241).               *   FILE 242
//*                                                                 *   FILE 242
//*           This collection has been greatly enlarged by the      *   FILE 242
//*           author.                                               *   FILE 242
//*                                                                 *   FILE 242
//*           Current Release:  4.0                                 *   FILE 242
//*                                                                 *   FILE 242
//*        email:   volic@kspus.org                                 *   FILE 242
//*                 valentin.chernyak@multex.com                    *   FILE 242
//*                                                                 *   FILE 242
//***FILE 243 is from Valentin Chernyak and contains source code    *   FILE 243
//*           for his Super Disassembler called REASM.              *   FILE 243
//*                                                                 *   FILE 243
//*           Current Release:  4.0                                 *   FILE 243
//*                                                                 *   FILE 243
//*        email:   volic@kspus.org                                 *   FILE 243
//*                 valentin.chernyak@multex.com                    *   FILE 243
//*                                                                 *   FILE 243
//*           There are 3 members in IEBUPDTE SYSIN format (or      *   FILE 243
//*           rather PDSLOAD format with the ISPF statistics        *   FILE 243
//*           included.  They are:                                  *   FILE 243
//*                                                                 *   FILE 243
//*           You can run REASM without assembling and compiling    *   FILE 243
//*           it from source code, using the load modules           *   FILE 243
//*           supplied in File 238.                                 *   FILE 243
//*                                                                 *   FILE 243
//*           ASM      -  Assembler source                          *   FILE 243
//*                                                                 *   FILE 243
//*           PLI      -  PL/I source                               *   FILE 243
//*                                                                 *   FILE 243
//*           MACLIB   -  Assembler Macros - there may be a few     *   FILE 243
//*                       more than necessary.  If some are         *   FILE 243
//*                       missing, please contact Sam Golob at      *   FILE 243
//*                       sbgolob@cbttape.org   or Valentin         *   FILE 243
//*                       Chernyak at  volic@kspus.org .            *   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 a program that issues console commands in Batch.   *   FILE 246
//*           The program must be run from an APF authorized        *   FILE 246
//*           library.                                              *   FILE 246
//*                                                                 *   FILE 246
//*           Included are some examples of running the program,    *   FILE 246
//*           to execute batch jobs that require console commands   *   FILE 246
//*           also, in order to accomplish things that the batch    *   FILE 246
//*           jobs are dependent on (like varying a volume          *   FILE 246
//*           offline or online).                                   *   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
//*           There are a great many utilities in this package.     *   FILE 247
//*           Users have contributed two front-ends so far.         *   FILE 247
//*                                                                 *   FILE 247
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 247
//*                                                                 *   FILE 247
//*     Important note:  A load module in TSO XMIT program for      *   FILE 247
//*           the vastly improved BDMSCAN program, which is part    *   FILE 247
//*           of the "Broadcast Master" commercial product from     *   FILE 247
//*           Sam Golob Systems Programming LLC, has been included  *   FILE 247
//*           as member BDMSCAN of this pds.  JCL to create a       *   FILE 247
//*           load library and run this program, has been included  *   FILE 247
//*           as member BDMSCAN$.  Try it.  You'll like it.         *   FILE 247
//*                                                                 *   FILE 247
//*           Full permission is granted from Sam Golob Systems     *   FILE 247
//*           Programming LLC, for anyone to run this copy of       *   FILE 247
//*           BDMSCAN anywhere.  No strings attached.               *   FILE 247
//*                                                                 *   FILE 247
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 247
//*                                                                 *   FILE 247
//*     I have just added an APF-authorized TSO command called      *   FILE 247
//*           BDMNNOTC which INSTANTLY changes the number of        *   FILE 247
//*           Global Notices records that are produced by the       *   FILE 247
//*           ACCOUNT/SYNC programs from IBM.  You just say         *   FILE 247
//*                                                                 *   FILE 247
//*                BDMNNOTC 200                                     *   FILE 247
//*                                                                 *   FILE 247
//*           and you can change the number of notices from 100     *   FILE 247
//*           (IBM's default) to 200 instantly, with no fuss and    *   FILE 247
//*           no IPL's and no zaps to IKJEFXSR/IKJEBLMT necessary.  *   FILE 247
//*                                                                 *   FILE 247
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 247
//*     Member $$BCMASM will assemble and link all BCM modules.     *   FILE 247
//*     Member $ASMSING will assemble and link one BCM module.      *   FILE 247
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 247
//*                                                                 *   FILE 247
//*  Improvements:                                                  *   FILE 247
//*                                                                 *   FILE 247
//*     1.  The userid ADD and userid DELETE programs, BCMUSADD     *   FILE 247
//*         and BCMUSDEL respectively, now use the TSO PUTLINE      *   FILE 247
//*         interface instead of TPUT, so you can get meaningful    *   FILE 247
//*         reports when you add or delete userids into the         *   FILE 247
//*         BRODCAST dataset using TSO-in-batch.                    *   FILE 247
//*                                                                 *   FILE 247
//*     2.  Three programs have been added to do direct writes      *   FILE 247
//*         to the NOTICES section of SYS1.BRODCAST or a copy       *   FILE 247
//*         of it.  BCMNLIST will list all active Notices messages  *   FILE 247
//*         in the allocated instance of SYS1.BRODCAST.  BCMNOTFY   *   FILE 247
//*         will create messages, delete messages or create blank   *   FILE 247
//*         messages in the NOTICES section of SYS1.BRODCAST or     *   FILE 247
//*         a copy of it.  To make those changes readable by        *   FILE 247
//*         LISTBC (which is the point), the BCMNUPD (authorized)   *   FILE 247
//*         TSO command sets a bit in the TSO Vector Table on,      *   FILE 247
//*         (this is the TSVTNCTU bit in TSVTFLG1) so anybody's     *   FILE 247
//*         execution of LISTBC will force an update to the         *   FILE 247
//*         incore Notices Table (only true for z/OS 1.3 MVS        *   FILE 247
//*         systems and later).                                     *   FILE 247
//*                                                                 *   FILE 247
//*         If the TSVTNCTU bit is on in a z/OS 1.2 or earlier      *   FILE 247
//*         MVS system, an OPER SEND ' ',SAVE command has to be     *   FILE 247
//*         executed, in order for the BRODCAST dataset to be       *   FILE 247
//*         re-read and the incore Notices table rewritten.         *   FILE 247
//*                                                                 *   FILE 247
//*         Members having names that begin with BCMN**** have      *   FILE 247
//*         to do with sending Broadcast Notify messages.  A few    *   FILE 247
//*         sample CLISTs are included to show how these programs   *   FILE 247
//*         can be deployed.  Lowercase messages can be sent with   *   FILE 247
//*         the BCMNOTFY program.  If you do this with a CLIST,     *   FILE 247
//*         you should specify CONTROL ASIS.                        *   FILE 247
//*                                                                 *   FILE 247
//*     3.  A new program called BCMNCLEN will clean out all the    *   FILE 247
//*         extra fluff from Notices records and replace it with    *   FILE 247
//*         hexzeros.  Both Used Notice slots and Empty Notice      *   FILE 247
//*         slots are cleaned by the TSO command BCMNCLEN, which    *   FILE 247
//*         does not take parameters.                               *   FILE 247
//*                                                                 *   FILE 247
//*     4.  Full support for changing NOTICES records was added     *   FILE 247
//*         with the BCMNOTFY and BCMNUPD programs.  BCMNOTFY will  *   FILE 247
//*         add or delete messages, or replace a message line with  *   FILE 247
//*         (30) blanks.  BCMNUPD is an APF authorized TSO command  *   FILE 247
//*         which is necessary to flip a bit on, that tells LISTBC  *   FILE 247
//*         or OPER SEND, etc. (depending on TSO/E release) to      *   FILE 247
//*         update the incore Global Notices table that LISTBC      *   FILE 247
//*         reports the Notices from.  Our BCMNLIST program will    *   FILE 247
//*         read the Global Notices directly from SYS1.BRODCAST,    *   FILE 247
//*         but not from the incore Notices table that LISTBC       *   FILE 247
//*         reads.                                                  *   FILE 247
//*                                                                 *   FILE 247
//*     5.  Another way of handling NOTICES comes from Paul W.      *   FILE 247
//*         Lemons' BCEDIT package, which has been copied to this   *   FILE 247
//*         file from File 479.                                     *   FILE 247
//*                                                                 *   FILE 247
//*         BCEDIT** consists of 3 REXX execs that allow the        *   FILE 247
//*         administrator to ISPF-edit the global Broadcast         *   FILE 247
//*         Notices, and optionally, re-SEND them out               *   FILE 247
//*         conveniently, without having to format any OPERATOR     *   FILE 247
//*         SEND commands.  These execs do all the OPERATOR         *   FILE 247
//*         SENDs for you.  (Changed not to strip leading blanks.   *   FILE 247
//*         Old version is still available as BCEDIT@.  SG)         *   FILE 247
//*                                                                 *   FILE 247
//*         BCEDIT was fixed by Lionel Dyck to eliminate trouble    *   FILE 247
//*         arising from single quotes in the LISTBC messages.      *   FILE 247
//*         (Oct/2023)                                              *   FILE 247
//*                                                                 *   FILE 247
//*         Important note:  In order for the BCEDIT package to     *   FILE 247
//*         be able to issue the proper OPERATOR SEND commands on   *   FILE 247
//*         behalf of the TSO user, TSO CONSOLE authority has to    *   FILE 247
//*         have been turned on.  To make that job easier, an       *   FILE 247
//*         updated version of the authorized TSO command CPSCB     *   FILE 247
//*         has been included in this file.  Since CPSCB does not   *   FILE 247
//*         produce any TSO output when it has executed success-    *   FILE 247
//*         fully, its companion TSO command LPSCB (List the PSCB)  *   FILE 247
//*         has also been included in this file.  These two TSO     *   FILE 247
//*         commands are designed to be used together, with CPSCB   *   FILE 247
//*         doing the changing, and LPSCB doing the reporting.      *   FILE 247
//*                                                                 *   FILE 247
//*     6.  A new member $NOTICE was added, to give an example      *   FILE 247
//*         CLIST to update the BROADCAST Notices for all TSO       *   FILE 247
//*         users, if you can't get the CONSOLE authority for       *   FILE 247
//*         using the BCEDIT REXX.  Also see members BCMNCLxx       *   FILE 247
//*         and BCMNRXxx.                                           *   FILE 247
//*                                                                 *   FILE 247
//*     7.  The BCMLIST and BCMDEL2 programs have been expanded     *   FILE 247
//*         to display, or delete, only SOME of the broadcast       *   FILE 247
//*         messages for a userid, not necessary ALL of them.       *   FILE 247
//*                                                                 *   FILE 247
//*         You have full control, which messages are kept, and     *   FILE 247
//*         which are to be deleted, by using the two new optional  *   FILE 247
//*         keywords:  SKIP(nn) and MSGS(mm).                       *   FILE 247
//*                                                                 *   FILE 247
//*         If SKIP(nn) is coded, the first nn records are ignored  *   FILE 247
//*         in the list or delete operation for a userid's messages.*   FILE 247
//*                                                                 *   FILE 247
//*         If MSGS(mm) is coded, the next mm records are listed    *   FILE 247
//*         (if BCMLIST is used) or deleted (if BCMDEL2 is used.)   *   FILE 247
//*                                                                 *   FILE 247
//*         This gives you full control about which messages to     *   FILE 247
//*         list or delete -- which are kept, and which deleted.    *   FILE 247
//*                                                                 *   FILE 247
//*         Vinh Vu's BCMISPF ISPF interface has been modified      *   FILE 247
//*         to deal with the new SKIP(nn) and MSGS(mm) keywords.    *   FILE 247
//*                                                                 *   FILE 247
//*     8.  A new program, BCMXPORT, has been created from the      *   FILE 247
//*         BCMLIST program, with an additional output, designed    *   FILE 247
//*         to format existing messages into SEND (or BCMSEND)      *   FILE 247
//*         commands, so that they can be reloaded into a new       *   FILE 247
//*         SYS1.BRODCAST dataset.  This program is best run,       *   FILE 247
//*         with JCL, under TSO-in-batch.                           *   FILE 247
//*                                                                 *   FILE 247
//*         All the SEND (or BCMSEND) commands, can be executed     *   FILE 247
//*         as a CLIST, to reload the new SYS1.BRODCAST dataset.    *   FILE 247
//*                                                                 *   FILE 247
//*         Output is in VB-255 format and the commands are         *   FILE 247
//*         displaced 8 bytes to the right.                         *   FILE 247
//*                                                                 *   FILE 247
//*         BCMXPORT supports the new SKIP(nn) and MSGS(mm)         *   FILE 247
//*         keywords.                                               *   FILE 247
//*                                                                 *   FILE 247
//*     9.  John Kalinich sent in a REXX exec and a panel from a    *   FILE 247
//*         former colleague of his, Mark Reschke, which is a very  *   FILE 247
//*         nice way of formatting various kinds of SEND commands   *   FILE 247
//*         directly from a panel.  I have packaged this in a new   *   FILE 247
//*         member called SENDX.  (I changed the name from SEND,    *   FILE 247
//*         so as not to confuse with the TSO SEND command, if      *   FILE 247
//*         this REXX is not the default "SEND" at your site.       *   FILE 247
//*                                                                 *   FILE 247
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 247
//*                                                                 *   FILE 247
//*  FE 1 -   An ISPF interface for some of the utilities in        *   FILE 247
//*           this package, was written by Vinh Vu, and is          *   FILE 247
//*           included as member BCMISPF.  This member is in        *   FILE 247
//*           PDSLOAD format (or IEBUPDTE SYSIN format), and        *   FILE 247
//*           it expands to produce a separate pds.                 *   FILE 247
//*                                                                 *   FILE 247
//*           Installation of Vinh Vu's package on each of your     *   FILE 247
//*           MVS LPARs, makes it very easy to do ongoing           *   FILE 247
//*           maintenance to SYS1.BRODCAST, to make sure it         *   FILE 247
//*           doesn't get full.  You need the BCMDEL2, BCMLIST,     *   FILE 247
//*           and BCMUSERS load modules installed as well.          *   FILE 247
//*                                                                 *   FILE 247
//*  FE 2 -   Willy Jensen "WJensen"  also        *   FILE 247
//*           added a package (member WJMAINT) which allows         *   FILE 247
//*           deletion of all messages for an id that has           *   FILE 247
//*           greater than a certain amount of messages (e.g.       *   FILE 247
//*           if a user has more than 200 messages, then            *   FILE 247
//*           delete all the messages for that user).  This         *   FILE 247
//*           process works by "brute force".  A more delicate      *   FILE 247
//*           method of controlling deletion of messages, is        *   FILE 247
//*           made possible by the SKIP(nn) and MSGS(mm) operands   *   FILE 247
//*           of the BCMDEL2 program, and the use of the BCMISPF    *   FILE 247
//*           ISPF interface from Vinh Vu.                          *   FILE 247
//*                                                                 *   FILE 247
//*  FE 3 -   I wrote a crude ISPF interface (members CLISTS        *   FILE 247
//*           and PANELS), but Vinh Vu's interface is MUCH NICER,   *   FILE 247
//*           and I recommend using that interface only (member     *   FILE 247
//*           BCMISPF or member BCMISPFI).                          *   FILE 247
//*                                                                 *   FILE 247
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   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,  845-731-9031                            *   FILE 247
//*             P.O. Box 906, Tallman, NY 10982                     *   FILE 247
//*                                                                 *   FILE 247
//*             email:   sbgolob@cbttape.org                        *   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
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - - -     *   FILE 247
//*                                                                 *   FILE 247
//*     See new member @ZAP#NOT for a quick way of changing the     *   FILE 247
//*     default number of NOTICES records, which ACCOUNT SYNC       *   FILE 247
//*     will format in SYS1.BRODCAST .  Usually it's done by        *   FILE 247
//*     coding a usermod, using the IKJBCAST macro with the         *   FILE 247
//*     BCLMT=nnn operand.  Sample for that is in SYS1.SAMPLIB,     *   FILE 247
//*     member BCSTSMPE.  (That is the "long and orderly" way.)     *   FILE 247
//*                                                                 *   FILE 247
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - - -     *   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
//*     BCMNLIST  -  List NOTICES messages on the SYS1.BRODCAST     *   FILE 247
//*                  dataset, or a copy of it, in a format          *   FILE 247
//*                  similar to that produced by the "SEND LIST"    *   FILE 247
//*                  subcommand of the OPERATOR TSO command.        *   FILE 247
//*                  This command does not have to be authorized.   *   FILE 247
//*                                                                 *   FILE 247
//*     BCMNCLEN  -  Cleans all NOTICES records in SYS1.BRODCAST    *   FILE 247
//*                  so they don't have any unused bytes that       *   FILE 247
//*                  mislead you when you REVIEW or BROWSE the      *   FILE 247
//*                  SYS1.BRODCAST dataset.  Replaces all           *   FILE 247
//*                  irrelevant or left over message bytes by       *   FILE 247
//*                  hexzeros.  This is a non-authorized TSO        *   FILE 247
//*                  command that is executed without parameters.   *   FILE 247
//*                                                                 *   FILE 247
//*     BCMNOTFY  -  Write NOTICES by message number to             *   FILE 247
//*                  SYS1.BRODCAST or a copy of it.  You can        *   FILE 247
//*                  write a new message to a given message number  *   FILE 247
//*                  without deleting the old message that was      *   FILE 247
//*                  there first.  You can delete a message from    *   FILE 247
//*                  a given number, or you can write a message     *   FILE 247
//*                  of blanks to a given number.  This command     *   FILE 247
//*                  does not have to be authorized.                *   FILE 247
//*                                                                 *   FILE 247
//*     BCMNUPD   -  Authorized TSO command, executed without       *   FILE 247
//*                  parameters, to update the bit in the TSO       *   FILE 247
//*                  Vector Table that forces a new copy of the     *   FILE 247
//*                  Incore Notices Table (that is read by LISTBC)  *   FILE 247
//*                  to be rewritten at the next LISTBC execution.  *   FILE 247
//*                  This makes all BCMNOTFY changes to the         *   FILE 247
//*                  BRODCAST dataset immediately readable by       *   FILE 247
//*                  LISTBC. (True for z/OS 1.3 and later.  See     *   FILE 247
//*                  comments in the BCMNHELP member for info       *   FILE 247
//*                  about setting this bit for z/OS 1.2 and        *   FILE 247
//*                  before.)                                       *   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
//*                  (Now uses the TSO PUTLINE interface and can    *   FILE 247
//*                  be run under TSO-in-batch or TSSO.)            *   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
//*                  (Now uses the TSO PUTLINE interface and can    *   FILE 247
//*                  be run under TSO-in-batch or TSSO.)            *   FILE 247
//*                                                                 *   FILE 247
//*     BCMSCAN   -  A modernization of the old BRODSCAN 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
//*     CPSCB and LPSCB  -  See note after BCEDIT comments above.   *   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.  Fixed for    *   FILE 247
//*                  8-character userids, z/OS 2.3 and higher.      *   FILE 247
//*                                                                 *   FILE 247
//*     MYIDN     -  A PUTLINE'd version of MYID.  Not re-entrant.  *   FILE 247
//*                                                                 *   FILE 247
//*     MYIDP     -  A version of MYID which uses the TSO PUTLINE   *   FILE 247
//*                  interface and which can show output when run   *   FILE 247
//*                  under TSO-in-batch or TSSO.  Re-entrant.       *   FILE 247
//*                  Also shows system name, system FMID level,     *   FILE 247
//*                  the TSO user's ASID, the logon PROC name,      *   FILE 247
//*                  and the 4-digit machine type, you are running  *   FILE 247
//*                  on, plus the system residence pack and its     *   FILE 247
//*                  unit address.  Also shows the origin of the    *   FILE 247
//*                  TSO userid, UADS or the security system name.  *   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
//*     email:   ebarkow@doitt.nyc.gov                              *   FILE 249
//*                                                                 *   FILE 249
//*     email:   sbgolob@cbttape.org                                *   FILE 249
//*                                                                 *   FILE 249
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 249
//*                                                                 *   FILE 249
//*     WMOD was fixed and improved to work on OS/390 2.8.  The     *   FILE 249
//*     program broke somewhere between 2.5 and 2.8.  This fix      *   FILE 249
//*     was made by Steve Niebauer of Wachovia Bank.                *   FILE 249
//*                                                                 *   FILE 249
//*     email:   Steve.Niebauer@Wachovia.Com                        *   FILE 249
//*                                                                 *   FILE 249
//*     Steve's version of WMOD is member WMOD.  Eileen's versions  *   FILE 249
//*     are called WMODTSO and WMODCICS.  Please see members called *   FILE 249
//*     $$NOTE and $$NOTE1.                                         *   FILE 249
//*                                                                 *   FILE 249
//*     I tested the new WMOD on OS/390 2.10 and it appears to      *   FILE 249
//*     work fine.  (SBG)  For older systems, use Eileen's old      *   FILE 249
//*     version, WMODTSO2.                                          *   FILE 249
//*                                                                 *   FILE 249
//*     Tested WMOD on z/OS 2.2 and seems to work fine.             *   FILE 249
//*     Problem fixed in this version of WMOD to make sure          *   FILE 249
//*     SYSPROC was still there, before trying to close it.         *   FILE 249
//*                                                                 *   FILE 249
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 249
//*                                                                 *   FILE 249
//*     Eileen has also fixed WMODTSO and WMODCICS for newer        *   FILE 249
//*     systems.  These are members WMODTSO and WMODCICS.  Eileen's *   FILE 249
//*     former members are WMODTSO1 and WMODCIC1.  The earlier      *   FILE 249
//*     fixed versions are WMODTSO2 and WMODCIC2.                   *   FILE 249
//*                                                                 *   FILE 249
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   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
//*                      (Updated for 4-byte UCB's.  Doesn't need   *   FILE 249
//*                      the SVC to get authorized.  Only needs     *   FILE 249
//*                      an entry in the IKJEFTE2 (AUTHCMD table    *   FILE 249
//*                      in IKJTSOxx PARMLIB member).               *   FILE 249
//*                                                                 *   FILE 249
//*     UCBSVC        -  UCB program linkedited SETCODE(0) and      *   FILE 249
//*                      which gets its authorization instead,      *   FILE 249
//*                      from an SVC.  (Same program as UCB.)       *   FILE 249
//*                                                                 *   FILE 249
//*     UCBOLD        -  The previous version of UCB.               *   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
//*             email:  jdkaplan@optonline.net                      *   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....  (Block size max set to 32720.)      *   FILE 257
//*                                                                 *   FILE 257
//*    *  -  *  -  *  -  *  -  *  -  *  -  *  -  *  -  *  -  *      *   FILE 257
//*                                                                 *   FILE 257
//*   The newer linkage editors (PGM=HEWL) do not seem to have      *   FILE 257
//*   this problem.  I assembled and linkedited a program with      *   FILE 257
//*   an object deck having BLKSIZE=32720 on a z/OS 2.4 system,     *   FILE 257
//*   and everything worked perfectly.  This was only a problem     *   FILE 257
//*   that existed "before the binder".                             *   FILE 257
//*                                                                 *   FILE 257
//*   However, the older linkage editor still exists as load        *   FILE 257
//*   module HEWLKED, and these zaps still apply to it.  For        *   FILE 257
//*   z/OS 2.4, member HDZ11C0 fits exactly to the existing         *   FILE 257
//*   program HEWLKED.  Unchanged in z/OS 2.5 as well.              *   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
//*                  MVS38      -   MVS 3.8j                        *   FILE 257
//*                  MVT        -   OS/360 Release 21.8             *   FILE 257
//*                                                                 *   FILE 257
//*   We have also included here, the actual linkage editors from   *   FILE 257
//*   old IBM systems, modified to take object decks that were      *   FILE 257
//*   blocked up to 32720 bytes in blocksize.                       *   FILE 257
//*                                                                 *   FILE 257
//*   The MVS 3.8j linkage editor, modified to accept 32720 byte    *   FILE 257
//*   object module blocksize, has been included here as member     *   FILE 257
//*   MVS38HEW.  This is allowed because MVS 3.8 was still either   *   FILE 257
//*   public domain, or IBM allows it to be given out for free.     *   FILE 257
//*   The MVT linkage editor, similarly modified to take 32720      *   FILE 257
//*   byte object module block sizes, has been included here also,  *   FILE 257
//*   as member MVTIEWL.                                            *   FILE 257
//*                                                                 *   FILE 257
//*    If you have any questions, I'm (hopefully) at:               *   FILE 257
//*                                                                 *   FILE 257
//*    Sam Golob                                                    *   FILE 257
//*    P.O. Box 906            email:  sbgolob@cbttape.org          *   FILE 257
//*    Tallman, NY  10982                                           *   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
//*      Updated November 2002 by Alan Buschmann of Kohl's          *   FILE 260
//*      Department Stores, to fix a bug.                           *   FILE 260
//*                                                                 *   FILE 260
//*      Updated again February 2005 by Alan Buschmann of Kohl's    *   FILE 260
//*      Department Stores, to correct the UCB display.             *   FILE 260
//*                                                                 *   FILE 260
//*         Al Buschmann                                            *   FILE 260
//*         Kohl's Department Stores                                *   FILE 260
//*         (262) 703-6103                                          *   FILE 260
//*         email:  Alan.Buschmann@kohls.com                        *   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 which contained the # CMD1 Subsystem from Guy         *   FILE 261
//*           Albertelli (and others), has been moved to File 296   *   FILE 261
//*           of the CBT Overflow Tape, to make room on the         *   FILE 261
//*           regular CBT Tape.  All materials described here,      *   FILE 261
//*           can be found there.  I have left this stub on the     *   FILE 261
//*           regular CBT Tape, to make the CMD1 subsystem easier   *   FILE 261
//*           to find.                                              *   FILE 261
//*                                                                 *   FILE 261
//*           FILE 261 IS A VERSION OF THE # CMD1 SUBSYSTEM FROM    *   FILE 261
//*           B.F 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         *   FILE 261
//*           LEVEL.  THE CURRENT MODULE NAMING IS FOR THE XA       *   FILE 261
//*           ENVIRONMENT.  MEMBER $MVSXA21 SHOWS THE RENAMES       *   FILE 261
//*           FROM SP3 TO XA.  MEMBER $$$BFGXA IS THE               *   FILE 261
//*           DOCUMENTATION OF THE CHANGES AND BUGS FOUND.  IT      *   FILE 261
//*           ALSO CONTAINS THE CURRENT STATUS OF THE MODULES IN    *   FILE 261
//*           THE SYSTEM.  SEE MEMBER CALLED $$$BFGES FOR THE       *   FILE 261
//*           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 L. Albertelli"       *   FILE 261
//*                                                                 *   FILE 261
//*           If you need help, please contact Sam Golob:           *   FILE 261
//*                                                                 *   FILE 261
//*                sbgolob@cbttape.org                              *   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@cbttape.org                              *   FILE 263
//*                                                                 *   FILE 263
//***FILE 264 is from Guy Albertelli in Akron, Ohio, and contains   *   FILE 264
//*           several TSO command processors.  A load module for    *   FILE 264
//*           LOOK is on File 035 of the CBT Tape, and several      *   FILE 264
//*           of them are included in the LOADLIB member in this    *   FILE 264
//*           pds, which is in TSO XMIT format.                     *   FILE 264
//*                                                                 *   FILE 264
//*           LOOK has now been extended to show 64-bit addresses   *   FILE 264
//*           as well as 31-bit addresses.  These fixes were done   *   FILE 264
//*           by Joe Reichman.                                      *   FILE 264
//*                                                                 *   FILE 264
//*           Our 64-bit version of LOOK is finally out.  The       *   FILE 264
//*           31-bit version of LOOK, now called LOOK31, is also    *   FILE 264
//*           available, in a version that has been fixed by        *   FILE 264
//*           Joe Reichman.                                         *   FILE 264
//*                                                                 *   FILE 264
//*       Please send inquiries and questions to Sam Golob.         *   FILE 264
//*                                                                 *   FILE 264
//*       email:  sbgolob@cbttape.org                               *   FILE 264
//*                                                                 *   FILE 264
//*       Please read the $$NOTExx members before assembling the    *   FILE 264
//*       LOOK command with anything other than the defaults.       *   FILE 264
//*       An example for coding your own macro definitions can      *   FILE 264
//*       be found by looking at members CBMACSE and LOOK$$$.       *   FILE 264
//*                                                                 *   FILE 264
//*       An object deck with a modified CBMACS (member CBBLOBJ1)   *   FILE 264
//*       can be linkedited to any version of LOOK.  See member     *   FILE 264
//*       LOOK$$# for JCL to assemble and linkedit LOOK in this     *   FILE 264
//*       way.                                                      *   FILE 264
//*                                                                 *   FILE 264
//*       LOOK or LOOK31 is the "driver program" for CBMACS, which  *   FILE 264
//*       formats macro layouts.  Any version of LOOK can drive     *   FILE 264
//*       any version of CBMACS (I think).  The LOOK and CBMACS     *   FILE 264
//*       parts are put together at assembly time.                  *   FILE 264
//*                                                                 *   FILE 264
//*           The command processors included here are:             *   FILE 264
//*                                                                 *   FILE 264
//*             1  LOOK    -  The 64-bit version of LOOK. 10 years  *   FILE 264
//*                           in coming out.  Must run authorized.  *   FILE 264
//*                           Details are almost the same as in     *   FILE 264
//*                           LOOK31 below. Indirect addressing for *   FILE 264
//*                           8-byte (64-bit) addresses, is done    *   FILE 264
//*                           with a "G" command instead of "J".    *   FILE 264
//*                           (Much of the work was done by         *   FILE 264
//*                            Joe Reichman.  Thanks, Joe.)         *   FILE 264
//*                                                                 *   FILE 264
//*                        -  Now, LOOK can immediately go into a   *   FILE 264
//*                           non-zero address, and a different     *   FILE 264
//*                           address space, using parameters:      *   FILE 264
//*                                                                 *   FILE 264
//*                           ADDRess(nnnnnnnn_nnnnnnnn) and        *   FILE 264
//*                           ASID(hhh) - hex address space         *   FILE 264
//*                           (Also done by Joe Reichman.)          *   FILE 264
//*                                                                 *   FILE 264
//*                        -  LOOK is a TSO command processor that  *   FILE 264
//*                           allows full screen display of real    *   FILE 264
//*                           time memory, in any address space.    *   FILE 264
//*                           The LOOK command has been enhanced    *   FILE 264
//*                           to make it easy to add new control    *   FILE 264
//*                           block maps, usually in 3 or 4         *   FILE 264
//*                           statements.                           *   FILE 264
//*                                                                 *   FILE 264
//*                           Both LOOK and LOOK31 are new versions *   FILE 264
//*                           designed to eliminate the S0C4        *   FILE 264
//*                           abends which LOOK gets on z/OS 2.x    *   FILE 264
//*                           if a bad address is entered.          *   FILE 264
//*                           (Fixed by Joe Reichman)               *   FILE 264
//*                                                                 *   FILE 264
//*                           Very importantly, this version of     *   FILE 264
//*                           LOOK can be run without getting       *   FILE 264
//*                           user key CSA.                         *   FILE 264
//*                                                                 *   FILE 264
//*                           Downside is that this version must    *   FILE 264
//*                           be run APF-authorized always.         *   FILE 264
//*                                                                 *   FILE 264
//*                           But importantly, you do not need      *   FILE 264
//*                           to set in PARMLIB DIAGxx member:      *   FILE 264
//*                           VSM ALLOWUSERKEYCSA(YES) , because    *   FILE 264
//*                           this version of LOOK does not         *   FILE 264
//*                           obtain user key CSA.  It now gets     *   FILE 264
//*                           its working storage in Key 0.         *   FILE 264
//*                                                                 *   FILE 264
//*                LOOK0x  -  Earlier versions of LOOK (source)     *   FILE 264
//*                                                                 *   FILE 264
//*                The LOADLIB contains a version of LOOK which     *   FILE 264
//*                was assembled against modified IBM macros that   *   FILE 264
//*                I could not include here, and it formats the     *   FILE 264
//*                TPVT control block, off the TSVT control block.  *   FILE 264
//*                It also cleans up the display of macro IKJEFLWA  *   FILE 264
//*                so that most fields display clearly.             *   FILE 264
//*                                                                 *   FILE 264
//*                Members in the LOADLIB XMIT file:                *   FILE 264
//*                                                                 *   FILE 264
//*                LOOK    - Assembled with member LOOK$$$          *   FILE 264
//*                          or member LOOK$$.                      *   FILE 264
//*                LOOK1   - Old version of LOOK, before Joe's      *   FILE 264
//*                          fixes. Subject to S0C4 abends          *   FILE 264
//*                          in z/OS 2.x                            *   FILE 264
//*                UKEYCSA - TSO command to flip the bits that      *   FILE 264
//*                          allow/disallow user key CSA.           *   FILE 264
//*                          Program only good from z/OS 1.8        *   FILE 264
//*                          thru z/OS 2.3.  Won't work in 2.4.     *   FILE 264
//*                                                                 *   FILE 264
//*            (The LOOK command is a "MUST" to know about - SG)    *   FILE 264
//*                                                                 *   FILE 264
//*            Important note, for the LOOK command to work:        *   FILE 264
//*            --------- ----  --- --- ---- ------- -- ----         *   FILE 264
//*               The newest version of LOOK does not obtain        *   FILE 264
//*               CSA storage in a user key, so it does not         *   FILE 264
//*               depend on the PARMLIB setting, mentioned          *   FILE 264
//*               below, which will go away anyway, in z/OS         *   FILE 264
//*               2.4.                                              *   FILE 264
//*                                                                 *   FILE 264
//*               However, for earlier versions of LOOK, which      *   FILE 264
//*               obtained user key CSA, there is a dependency      *   FILE 264
//*               on a PARMLIB setting to allow user key CSA.       *   FILE 264
//*                                                                 *   FILE 264
//*               This issue only starts with z/OS 1.8. !!!!!       *   FILE 264
//*               The PARMLIB setting is in the DIAGxx member:      *   FILE 264
//*                                             ****                *   FILE 264
//*               >>>>>>>>  VSM ALLOWUSERKEYCSA(YES)   <<<<<<<<     *   FILE 264
//*                                                                 *   FILE 264
//*               This was the default at z/OS 1.8, but in          *   FILE 264
//*               z/OS 1.9, VSM ALLOWUSERKEYCSA(NO) became the      *   FILE 264
//*               default.  It now has to be specifically set to    *   FILE 264
//*               VSM ALLOWUSERKEYCSA(YES), or LOOK will abend      *   FILE 264
//*               with a SB0A, reason code 5C.                      *   FILE 264
//*                                                                 *   FILE 264
//*               From z/OS 2.4 on, the setting of                  *   FILE 264
//*               VSM ALLOWUSERKEYCSA(YES) has been disabled.       *   FILE 264
//*            -------------------------------------------------    *   FILE 264
//*            For commercial installations, it is probably         *   FILE 264
//*            unsafe to set VSM ALLOWUSERKEYCSA(YES) in the        *   FILE 264
//*            active DIAGxx member of PARMLIB.  It leaves a bit    *   FILE 264
//*            too much of a security hole.  So you should set      *   FILE 264
//*            VSM ALLOWUSERKEYCSA(NO).  But in a pinch, if         *   FILE 264
//*            you just HAVE to use the LOOK command, there is      *   FILE 264
//*            an APF-authorized TSO command called UKEYCSA that    *   FILE 264
//*            has been supplied, which can flip the controlling    *   FILE 264
//*            bits temporarily, to temporarily allow (globally)    *   FILE 264
//*            CSA to be allocated in a User Storage Key, just so   *   FILE 264
//*            you can use LOOK, and then you can set it back       *   FILE 264
//*            so the system will no longer allow User Key storage  *   FILE 264
//*            allocation in CSA.  UKEYCSA Y and then UKEYCSA N.    *   FILE 264
//*                                                                 *   FILE 264
//*            UKEYCSA will only work in z/OS versions from 1.8     *   FILE 264
//*            thru 2.3.  It will stop working in z/OS 2.4.         *   FILE 264
//*            -------------------------------------------------    *   FILE 264
//*    NOTE:   THE NEW SOURCE FOR LOOK DOES NOT GET USER KEY CSA,   *   FILE 264
//*            SO IT DOES NOT DEPEND ON THE ABOVE PARMLIB SETTING.  *   FILE 264
//*            -------------------------------------------------    *   FILE 264
//*            See member $$NOTE02 for assembling fields present    *   FILE 264
//*              in IBM macros, but which are not shown by the      *   FILE 264
//*              formatting program CBMACS.  What to do?            *   FILE 264
//*            See member called LOADLIB for load modules.          *   FILE 264
//*            -------------------------------------------------    *   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
//*                           (Fixed by Albert Cheng (CBT File 612) *   FILE 264
//*                           for 4-digit unit addresses and other  *   FILE 264
//*                           matters.  DUDASD00 is the original    *   FILE 264
//*                           version.  JVD***** macros copied here *   FILE 264
//*                           for completeness, even if not used by *   FILE 264
//*                           the newer version of the program.)    *   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
//***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 used for other purposes.  The      *   FILE 266
//*           report is quite excellent for showing, in general,    *   FILE 266
//*           what is on a tape.                                    *   FILE 266
//*                                                                 *   FILE 266
//*           If you fix this code, for use with any density        *   FILE 266
//*           tape, and with cartridge, please send it to me to     *   FILE 266
//*           test, so I can update this file in your name.         *   FILE 266
//*           Thanks.  (S.Golob - 08/96).                           *   FILE 266
//*                                                                 *   FILE 266
//*           Note:  Fixed to avoid the CNTRL FSM invocation that   *   FILE 266
//*                  was causing I/O errors on some MVS systems.    *   FILE 266
//*                  (05/28/04 - SBG)                               *   FILE 266
//*           Note:  Fixed to record over 10000 total feet.         *   FILE 266
//*                  (12/16/12 - SBG)                               *   FILE 266
//*           Note:  Fixed to replace WKDATE routine with TODAY     *   FILE 266
//*                  routine. (12/18/12 - SBG)                      *   FILE 266
//*                                                                 *   FILE 266
//*           I want to acknowledge the big help of one of the      *   FILE 266
//*           original authors, Gordon P. West.  Thanks, Gordon.    *   FILE 266
//*                                                                 *   FILE 266
//*           email:  sbgolob@cbttape.org                           *   FILE 266
//*                                                                 *   FILE 266
//*           email:  gordon@westgp.us                              *   FILE 266
//*                                                                 *   FILE 266
//***FILE 267 is the HETUTL utility from Leland Lucius.  This is    *   FILE 267
//*           a program which runs under any MVS system, and which  *   FILE 267
//*           reads a tape, converting it either into AWS format    *   FILE 267
//*           or into HET (Hercules Emulated Tape) format.          *   FILE 267
//*                                                                 *   FILE 267
//*           HET format (which was invented by Leland Lucius) is   *   FILE 267
//*           a compressed variation of an AWS tape, and which is   *   FILE 267
//*           directly usable as a tape, by a Hercules S/390        *   FILE 267
//*           emulator, running on a PC.  HET tape format is not    *   FILE 267
//*           usable by a P/390, but the straight AWS-format        *   FILE 267
//*           that HETUTL is capable of producing, is usable by     *   FILE 267
//*           a P/390.  (See also the VTT2DISK utility on File      *   FILE 267
//*           533, which produces AWS-format tape files.  Also      *   FILE 267
//*           see the AWSUTIL utility from File 477.)               *   FILE 267
//*                                                                 *   FILE 267
//*           The compression routines used by HETUTL are either    *   FILE 267
//*           the ZLIB compression or the BZLIB compression         *   FILE 267
//*           routines.  We have to thank Thomas David Rivers       *   FILE 267
//*           of Dignus LLC, for having supplied the Systems/C      *   FILE 267
//*           compiler, which was used to convert the C-Language    *   FILE 267
//*           code for these compression routines, into Assembler   *   FILE 267
//*           Language source code.                                 *   FILE 267
//*                                                                 *   FILE 267
//*           A load module library containing the HETUTL load      *   FILE 267
//*           module, has been included in this file, as member     *   FILE 267
//*           $LOADLIB.                                             *   FILE 267
//*                                                                 *   FILE 267
//*           email:  "Leland Lucius"              *   FILE 267
//*                                                                 *   FILE 267
//*    - - - - - - - - - - - - - - - - - - - - - - - - - - - - -    *   FILE 267
//*                                                                 *   FILE 267
//*     HETUTL   TITLE    'Convert tape to HET format'              *   FILE 267
//*                                                                 *   FILE 267
//*     Function : Convert tapes to Hercules Emulated Tape          *   FILE 267
//*                format.                                          *   FILE 267
//*                                                                 *   FILE 267
//*     Amode    : Must run in 31-bit addressing mode               *   FILE 267
//*                                                                 *   FILE 267
//*     Rmode    : Must reside below the line                       *   FILE 267
//*                                                                 *   FILE 267
//*     Auth     : None (recently fixed not to need authorization)  *   FILE 267
//*                                                                 *   FILE 267
//*     Return   : All errors are indicated with a message          *   FILE 267
//*                to SYSPRINT and a non-zero condition             *   FILE 267
//*                code:                                            *   FILE 267
//*                                                                 *   FILE 267
//*     Descript : This program accepts an IBM format tape          *   FILE 267
//*                and converts it to an HET format file.           *   FILE 267
//*                Output compression, input block sizes of         *   FILE 267
//*                up to 65535 bytes, and options to create         *   FILE 267
//*                files compatible with the AWSTAPE format         *   FILE 267
//*                are supported.                                   *   FILE 267
//*                                                                 *   FILE 267
//*     Execparm : Specify "ABEND" to force the program to          *   FILE 267
//*                abend instead of return a condition code         *   FILE 267
//*                in the event of an error.                        *   FILE 267
//*                                                                 *   FILE 267
//*     Parms    : Blank delimited keyword/value pairs.             *   FILE 267
//*                                                                 *   FILE 267
//*           INPUT_DDNAME                                       *   FILE 267
//*               DD name of input data set.                        *   FILE 267
//*                                                                 *   FILE 267
//*               Default: SYSUT1                                   *   FILE 267
//*                                                                 *   FILE 267
//*           OUTPUT_DDNAME                                      *   FILE 267
//*               DD name of output data set.                       *   FILE 267
//*                                                                 *   FILE 267
//*               Default: SYSUT2                                   *   FILE 267
//*                                                                 *   FILE 267
//*           CHUNK_SIZE                                         *   FILE 267
//*               Physical output blocks will be broken             *   FILE 267
//*               into  sized chunks.  Setting this              *   FILE 267
//*               parameter to 4096 and turning off                 *   FILE 267
//*               compression will create output                    *   FILE 267
//*               compatible with the AWSTAPE format.               *   FILE 267
//*                                                                 *   FILE 267
//*               Minimum: 4096                                     *   FILE 267
//*               Maximum: 65535                                    *   FILE 267
//*               Default: 65535                                    *   FILE 267
//*                                                                 *   FILE 267
//*           COMPRESSION_METHOD <0|1|2>                            *   FILE 267
//*               Specifies whether compression should              *   FILE 267
//*               be performed and which method to use.             *   FILE 267
//*               See note above about AWSTAPE format               *   FILE 267
//*               compatiblity.                                     *   FILE 267
//*                                                                 *   FILE 267
//*               Values:  0 - No compression                       *   FILE 267
//*                        1 - ZLIB compression                     *   FILE 267
//*                        2 - BZLIB compression                    *   FILE 267
//*               Default: 1 - ZLIB compression                     *   FILE 267
//*                                                                 *   FILE 267
//*           COMPRESSION_LEVEL                                  *   FILE 267
//*               Level of compression performed.                   *   FILE 267
//*               Setting  to lower values decreases             *   FILE 267
//*               compression effectiveness, but will               *   FILE 267
//*               improve run times.                                *   FILE 267
//*                                                                 *   FILE 267
//*               Minimum: 1 - Fastest compression                  *   FILE 267
//*               Maximum: 9 - Best compression                     *   FILE 267
//*               Default: 4 - Middle of the road                   *   FILE 267
//*                                                                 *   FILE 267
//*           VERIFY_COMPRESSION                            *   FILE 267
//*               Decompress data after compression and             *   FILE 267
//*               compare against input data.                       *   FILE 267
//*                                                                 *   FILE 267
//*               Values:  YES - Verify compression                 *   FILE 267
//*                        NO  - Bypass verification                *   FILE 267
//*               Default: NO  - Bypass verification                *   FILE 267
//*                                                                 *   FILE 267
//*           CHECK_VOLSER                                  *   FILE 267
//*               Verify volser from VOL1 against the               *   FILE 267
//*               one requested.                                    *   FILE 267
//*                                                                 *   FILE 267
//*               Values:  YES - Check the volsers                  *   FILE 267
//*                        NO  - Bypass check                       *   FILE 267
//*               Default: NO  - Bypass check                       *   FILE 267
//*                                                                 *   FILE 267
//*           CLEAR_IDRC_INDICATOR                          *   FILE 267
//*               Clear the IDRC indicator in the VOL1              *   FILE 267
//*               record.                                           *   FILE 267
//*                                                                 *   FILE 267
//*               Values:  YES - Clears IDRC indicator in VOL1      *   FILE 267
//*                        NO  - Ignore the indicator               *   FILE 267
//*               Default: NO  - Ignore the indicator               *   FILE 267
//*                                                                 *   FILE 267
//*           DISPLAY_ENDING_STATUS                         *   FILE 267
//*               Display the sense information from                *   FILE 267
//*               the last read.                                    *   FILE 267
//*                                                                 *   FILE 267
//*               Values:  YES - Display the info                   *   FILE 267
//*                        NO  - Bypass display                     *   FILE 267
//*               Default: NO  - Bypass display                     *   FILE 267
//*                                                                 *   FILE 267
//*           ROUTE_CODE                                         *   FILE 267
//*               Specifies the route code to use when              *   FILE 267
//*               issuing WTORs.  Multiple route codes              *   FILE 267
//*               may be specifed by including as many              *   FILE 267
//*               ROUTE_CODE statements as needed.                  *   FILE 267
//*                                                                 *   FILE 267
//*               Minimum: 1                                        *   FILE 267
//*               Maximum: 128                                      *   FILE 267
//*               Default: 3 (Tape Pool)                            *   FILE 267
//*                                                                 *   FILE 267
//*  JCL : //HETUTL   EXEC PGM=HETUTL,REGION=4M<,PARM=ABEND>        *   FILE 267
//*        //STEPLIB  DD DISP=SHR,DSN=<(authorized) load library>   *   FILE 267
//*        //INDD     DD DISP=SHR,DSN=,LABEL=(1,SL)     *   FILE 267
//*        //OUTDD    DD DISP=(,CATLG),DSN=,       *   FILE 267
//*        //            SPACE=(CYL,(10,10)),UNIT=SYSALLDA          *   FILE 267
//*        //SYSPRINT DD SYSOUT=*                                   *   FILE 267
//*        //SYSIN    DD *                                          *   FILE 267
//*        INPUT_DDNAME        INDD                                 *   FILE 267
//*        INPUT_DDNAME        OUTDD                                *   FILE 267
//*        COMPRESSION_LEVEL   9                                    *   FILE 267
//*        /*                                                       *   FILE 267
//*                                                                 *   FILE 267
//*    Notes  : The input data set must be a tape dataset.          *   FILE 267
//*                                                                 *   FILE 267
//*             The output data set may reside on DASD or           *   FILE 267
//*             TAPE and will be forced to use                      *   FILE 267
//*             DCB=(RECFM=U,LRECL=0,BLKSIZE=32760).                *   FILE 267
//*                                                                 *   FILE 267
//*             The EXCP abnormal end appendage is no               *   FILE 267
//*             longer needed so the code has been removed.         *   FILE 267
//*             This means that HETUTL no longer has any            *   FILE 267
//*             APF requirements.                                   *   FILE 267
//*                                                                 *   FILE 267
//*             Developed on OS/390 2.8/10, so compatibility        *   FILE 267
//*             with other or older/newer OSes is unknown.          *   FILE 267
//*                                                                 *   FILE 267
//*    Thanks : Special thanks go out to Dignus, LLC for            *   FILE 267
//*             providing a short term license of their             *   FILE 267
//*             Systems/C compiler.  Using their compiler           *   FILE 267
//*             removes any run-time library limitations            *   FILE 267
//*             and/or restrictions.  Thanks Dave!                  *   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
//*           Revised again by Peter Farley (07/2010).  Details     *   FILE 268
//*           can be found in new member $CHNGLOG.                  *   FILE 268
//*                                                                 *   FILE 268
//*         This file was revised by Mark Winges, to Release 2.2.   *   FILE 268
//*         Please note that csect RXVSAMSG was combined with       *   FILE 268
//*         the main csect RXVSAM in Release 2.2.  Mark included    *   FILE 268
//*         Rob Van Riel's fixes in this latest release, as well    *   FILE 268
//*         as some more of his own.  (SG 04/02)                    *   FILE 268
//*                                                                 *   FILE 268
//*         email:   Mark Winges           *   FILE 268
//*         phone:   415-752-8291                                   *   FILE 268
//*                                                                 *   FILE 268
//*         email: "Van Riel, Rob"                *   FILE 268
//*                                                                 *   FILE 268
//*         email: "Peter Farley"              *   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, and contains the following       *   FILE 275
//*           utilities, as documented below.                       *   FILE 275
//*                                                                 *   FILE 275
//*        CURRENT ADDRESS:  MARK HEDGES                            *   FILE 275
//*                          11951 SENTINEL POINT COURT             *   FILE 275
//*                          RESTON, VA  22091                      *   FILE 275
//*        CURRENT PHONE:    (703) 383-1167                         *   FILE 275
//*                FAX  :    (703) 383-1168                         *   FILE 275
//*                                                                 *   FILE 275
//*        AUTHOR.   MARK HEDGES                                    *   FILE 275
//*                                                                 *   FILE 275
//*        Current email:  mhinva@earthlink.net                     *   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 - sbgolob@cbttape.org                           *   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 OF 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
//*     This program will help prevent problems in RECEIVE'ing      *   FILE 289
//*     SMPPTFIN-format data.  You can run the data through this    *   FILE 289
//*     program and find out if you are going to RECEIVE the        *   FILE 289
//*     right PTF's or the wrong ones, BEFORE THEY ARE SEEN         *   FILE 289
//*     BY SMP/E.                                                   *   FILE 289
//*                                                                 *   FILE 289
//*     See also:  Programs PUTXREF and SMPUPD from CBT File 118.   *   FILE 289
//*                                                                 *   FILE 289
//*     Brought up to date (z/OS 2.2) by Sam Golob.  But the        *   FILE 289
//*      original load module runs fine.  No source code changes    *   FILE 289
//*      either.  Just using newer versions of IBM macros and       *   FILE 289
//*      modules (IEFSD095 to make big letters on the printout).    *   FILE 289
//*      Load library included here, in TSO XMIT format.            *   FILE 289
//*                                                                 *   FILE 289
//*         email:  sbgolob@cbttape.org                             *   FILE 289
//*                                                                 *   FILE 289
//***FILE 290 is the documentation and source for GPSAM from the    *   FILE 290
//*           Yale Computer Center, written by Howard Gilbert.      *   FILE 290
//*           The documentation, which is in member $$$DOC, is in   *   FILE 290
//*           FBA format, LRECL=80.  The source for GPSAM is in     *   FILE 290
//*           the rest of this file.                                *   FILE 290
//*                                                                 *   FILE 290
//*           GPSAM lets you write your own "access method" and     *   FILE 290
//*           make 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
//*                                                                 *   FILE 291
//*     The program in TIMINGSP may be used to test timings of      *   FILE 291
//*     a large number of instructions on mainframe IBM or          *   FILE 291
//*     plug-compatible computers.  The method involves             *   FILE 291
//*     cycling through a loop 25,000 times with 11                 *   FILE 291
//*     instructions per cycle; the overhead for the loop is        *   FILE 291
//*     subtracted.  One may easily modify the above numeric        *   FILE 291
//*     parameters.  The only macros required are in                *   FILE 291
//*     SYS1.MACLIB.  Execution time for the program is             *   FILE 291
//*     approx. 0.5 sec. on the University of South Carolina's      *   FILE 291
//*     2066-0X2 machine.                                           *   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, Jim Melnyk of Great-West Life sent me an     *   FILE 291
//*     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 U.S.C.'s 9672-R53.  I would like       *   FILE 291
//*     to acknowledge Jim's assistance in testing various          *   FILE 291
//*     versions of the program on his three machines.  I would     *   FILE 291
//*     also like to thank him for suggesting that I employ a       *   FILE 291
//*     loop macro to facilitate changes.                           *   FILE 291
//*                                                                 *   FILE 291
//*     In Aug., 2002, Charlie Hottel of the Washington, D.C.,      *   FILE 291
//*     area raised some questions about the rather complicated     *   FILE 291
//*     computational shifting in the program.  Thanks to           *   FILE 291
//*     Charlie for suggesting a revision (and slight               *   FILE 291
//*     simplification) to prevent a possible 0C9.                  *   FILE 291
//*                                                                 *   FILE 291
//*     My contact information may be found near the beginning      *   FILE 291
//*     of TIMINGSP.                                                *   FILE 291
//*                                                                 *   FILE 291
//*     Rick Hevener (retired, formerly of University of South      *   FILE 291
//*     Carolina) Columbia, S.C.  2005-04-27                        *   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 from Warren Whitford and Sam Golob in partnership, *   FILE 293
//*           and contains various iterations of a sequential copy  *   FILE 293
//*           program for datasets, called CKIEBGEN.  The original  *   FILE 293
//*           version of CKIEBGEN was by Baldomero Castilla, and it *   FILE 293
//*           is on File 480.  The idea is to make a very simple    *   FILE 293
//*           copy program, using QSAM (GET, PUT, GET, PUT, etc.    *   FILE 293
//*           in a loop), that opens SYSUT1 for input, and SYSUT2   *   FILE 293
//*           for output.  A copy loop GETs a record from SYSUT1,   *   FILE 293
//*           PUTs it to SYSUT2, and loops until the SYSUT1 file    *   FILE 293
//*           is exhausted.  Then it closes both files and exits.   *   FILE 293
//*           No report is produced--it's just a simple QSAM copy.  *   FILE 293
//*           The equivalent of Baldomero's version of the program, *   FILE 293
//*           in this dataset, is member CKIEBG01.  (Baldomero      *   FILE 293
//*           commented his program in Spanish, and used his own    *   FILE 293
//*           entry and exit macros, which are really not           *   FILE 293
//*           necessary for the program to work.)                   *   FILE 293
//*                                                                 *   FILE 293
//*           This program has several advantages over IEBGENER     *   FILE 293
//*           and many of its substitutes, because of its           *   FILE 293
//*           generality and simplicity.  It also will copy         *   FILE 293
//*           files that IEBGENER might not copy, because it does   *   FILE 293
//*           not look at the data.  It just does GET and PUT,      *   FILE 293
//*           quite mindlessly.  But the DCB information has to     *   FILE 293
//*           be coded in the execution JCL, otherwise QSAM won't   *   FILE 293
//*           "know" how to construct the proper channel programs   *   FILE 293
//*           to do the GET and PUT for the particular input and    *   FILE 293
//*           output files.  This is a "record by record" copy,     *   FILE 293
//*           and NOT "block by block".                             *   FILE 293
//*                                                                 *   FILE 293
//*           Program MANYRCDS has been added to this file, as      *   FILE 293
//*           an aid in testing the SKIP and COPY functions of      *   FILE 293
//*           CKIEBGEN.  See notes in the MANYRCDS program for      *   FILE 293
//*           further details.                                      *   FILE 293
//*                                                                 *   FILE 293
//*           Many improvements have been made at Level 009.        *   FILE 293
//*           (See below.)                                          *   FILE 293
//*                                                                 *   FILE 293
//*           Most improvements for CKIEBGEN have been in the way   *   FILE 293
//*           of messaging.  You want to know, first of all, how    *   FILE 293
//*           many records have been copied.  So the next iteration *   FILE 293
//*           called CKIEBG02, adds a SYSPRINT ddname, and counts   *   FILE 293
//*           how many GETs and PUTs were done.  That is a sizable  *   FILE 293
//*           improvement.                                          *   FILE 293
//*                                                                 *   FILE 293
//*           The next iteration, CKIEBG03, adds DCB information    *   FILE 293
//*           for the input and output datasets, so you know the    *   FILE 293
//*           characteristics of these datasets, in addition to the *   FILE 293
//*           number of records copied.  This is done, using an     *   FILE 293
//*           execution of the RDJFCB macro for both input and      *   FILE 293
//*           output datasets after the copy was done.  RDJFCB      *   FILE 293
//*           can be done before or after OPEN, but after OPEN      *   FILE 293
//*           it can access more DCB information than before,       *   FILE 293
//*           because OPEN processing merges the extra information  *   FILE 293
//*           it obtained, back into the JFCB, where RDJFCB picks   *   FILE 293
//*           it up.                                                *   FILE 293
//*                                                                 *   FILE 293
//*           That approach works much of the time, but it's better *   FILE 293
//*           to try the RDJFCB before the copy is done, so that    *   FILE 293
//*           if there is an error (and not enough DCB information  *   FILE 293
//*           is present in the JCL, or from the catalog, you don't *   FILE 293
//*           attempt the copy.  The CKIEBG04 member incorporates   *   FILE 293
//*           that "improvement", as well as making the JFCB print  *   FILE 293
//*           routine into a subroutine, which is executed several  *   FILE 293
//*           times.                                                *   FILE 293
//*                                                                 *   FILE 293
//*           The next CKIEBGEN iteration adds a VOLSER display for *   FILE 293
//*           both the input and the output dataset.                *   FILE 293
//*                                                                 *   FILE 293
//*           This file was put on the CBT Tape, for the purpose    *   FILE 293
//*           of showing new Assembler language programmers some    *   FILE 293
//*           of the principles of coding, and also to illustrate   *   FILE 293
//*           how QSAM gets DCB information from the JCL, and from  *   FILE 293
//*           the catalogs.  It's also a good copy utility to have  *   FILE 293
//*           in your pocket, sometimes.                            *   FILE 293
//*                                                                 *   FILE 293
//*           See the important note at the bottom about fixing     *   FILE 293
//*           broken XMIT files, if you have the entire original    *   FILE 293
//*           (XMIT file) somewhere.                                *   FILE 293
//*                                                                 *   FILE 293
//*           Questions, please write:                              *   FILE 293
//*                                                                 *   FILE 293
//*            Warren Whitford:  (retired) write to Sam Golob       *   FILE 293
//*                                                                 *   FILE 293
//*            Sam Golob      :  sbgolob@cbttape.org                *   FILE 293
//*                                                                 *   FILE 293
//*     Next versions:  (You may expect some from time to time):    *   FILE 293
//*                                                                 *   FILE 293
//*            Level 006 - Put date and time into the report.       *   FILE 293
//*                                                                 *   FILE 293
//*            Level 007 - Copy any segment of the input file.      *   FILE 293
//*                        Optional SYSIN DD card with the          *   FILE 293
//*                          following controls:                    *   FILE 293
//*                                                                 *   FILE 293
//*             SKIP=mmmmmmm   (Skip first mmmmmmm records)         *   FILE 293
//*             COPY=nnnnnnn   (Copy the next nnnnnnn records)      *   FILE 293
//*                                                                 *   FILE 293
//*            For example, you can use this program to fix         *   FILE 293
//*            partial XMIT files, if you have the original         *   FILE 293
//*            somewhere.  Just copy the missing records at         *   FILE 293
//*            the end, and concatenate them to the partial         *   FILE 293
//*            beginning.  That puts the whole file together        *   FILE 293
//*            on the other side (in the target system).            *   FILE 293
//*                                                                 *   FILE 293
//*            Level 008 - Fixed the lack of reporting for          *   FILE 293
//*                          RECFM errors in the JFCB.              *   FILE 293
//*                        Re-commented much of the code.           *   FILE 293
//*                        Rewrote the Abnormal End processing      *   FILE 293
//*                          to give a return code of 12, so        *   FILE 293
//*                          you know that something went wrong,    *   FILE 293
//*                          and the copy wasn't done.              *   FILE 293
//*                        Fix errors in SKIP=, COPY= processing.   *   FILE 293
//*                        Later SKIP=, COPY= overrides earlier.    *   FILE 293
//*                        Allow 12 packed digits for SKIP=,        *   FILE 293
//*                         COPY=, so the largest numbers allowed   *   FILE 293
//*                         are 999999999999 (12 digits).  Ignore   *   FILE 293
//*                         binary numbers greater than             *   FILE 293
//*                         2,147,483,647, because the CVB          *   FILE 293
//*                         instruction can't handle them, but      *   FILE 293
//*                         the packed numbers are the ones used    *   FILE 293
//*                         here for comparison, not the binary.    *   FILE 293
//*                        If a SKIP= or COPY= card has a numeric   *   FILE 293
//*                         error, then stop the processing with    *   FILE 293
//*                         RC=12, and abort the copy.              *   FILE 293
//*                        Increased report number size for         *   FILE 293
//*                         skipped or copied records, in or        *   FILE 293
//*                         out records.                            *   FILE 293
//*                        Fixed possible catastrophic error when   *   FILE 293
//*                         you try and code numbers much greater   *   FILE 293
//*                         than 12 digits in SKIP and COPY SYSIN   *   FILE 293
//*                         statements.  (Limit number scan to      *   FILE 293
//*                         12 digits only--10 digits for Version   *   FILE 293
//*                         007, which was just fixed similarly.)   *   FILE 293
//*                                                                 *   FILE 293
//*            Level 009 - Fix to remove unprintable X'20'          *   FILE 293
//*                         characters from the report, because     *   FILE 293
//*                         of improper use of the ED instruction.  *   FILE 293
//*                         (Suggested by Bill Godfrey.)            *   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
//*           Fixed to show 3390's and 3380's instead of 3350's     *   FILE 294
//*           and 3330's.  (SG - Dec 2012)                          *   FILE 294
//*                                                                 *   FILE 294
//*           Compiled for CBT File 035 with PL/I Optimizer 1.4.0.  *   FILE 294
//*                                                                 *   FILE 294
//***FILE 295 is from David Cole, and is a short essay.  Dave is    *   FILE 295
//*           one of the extremely skilled Assembler Language       *   FILE 295
//*           programmers in this world, and he eloquently          *   FILE 295
//*           describes, in very few words, the essence of what     *   FILE 295
//*           he does.  It is the thinking process.                 *   FILE 295
//*                                                                 *   FILE 295
//*           One comment:  "I knew that Dave is among the best     *   FILE 295
//*           programmers.  I didn't know he was such a good        *   FILE 295
//*           writer .... "                                         *   FILE 295
//*                                                                 *   FILE 295
//*           This is very much worth reading, and re-reading, for  *   FILE 295
//*           anybody who programs.  You won't regret looking at    *   FILE 295
//*           this file......                                       *   FILE 295
//*                                                                 *   FILE 295
//*           Dave can be reached at dbcole@cfw.com .               *   FILE 295
//*                                                                 *   FILE 295
//*           Dave Cole writes (what I think is) the premier        *   FILE 295
//*           Assembler code debugger in the industry.  It is       *   FILE 295
//*           called XDC.  Dave's business addresses are:           *   FILE 295
//*                                                                 *   FILE 295
//*      Dave Cole              REPLY TO: dbcole@colesoft.com       *   FILE 295
//*      Cole Software          WEB PAGE: http://www.colesoft.com   *   FILE 295
//*      736 Fox Hollow Road    VOICE:    540-456-8536              *   FILE 295
//*      Afton, VA 22920        FAX:      540-456-6658              *   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
//*     CHANGES: --                                                 *   FILE 296
//*                                                                 *   FILE 296
//*     DSAT and DSATNEW fixed for 8-character TSO prefixes.        *   FILE 296
//*          (z/OS 2.3)                                             *   FILE 296
//*                                                                 *   FILE 296
//*     DSAT modified further by Andreas Freybier.  Bugs fixed.     *   FILE 296
//*          All branch instructions replaced by Jump instructions. *   FILE 296
//*          Detailed changes are commented in the source code.     *   FILE 296
//*                                                                 *   FILE 296
//*     DSATNEW renamed by Sam Golob, because of incompatibility    *   FILE 296
//*          with older versions of PDS 8.6.  Newer version         *   FILE 296
//*          PDS86 -- VERSION 8.6.12.13  SEPTEMBER 15, 2011         *   FILE 296
//*          fixes the incompatibility, but if you have an older    *   FILE 296
//*          PDS, this DSAT would cause problems in formatting LC   *   FILE 296
//*          or LISTC or LISTF.  Therefore to keep it separate,     *   FILE 296
//*          I have renamed it to DSATNEW.                          *   FILE 296
//*                                                                 *   FILE 296
//*     DSAT modified by Andreas Freybier, bug fixed by             *   FILE 296
//*          John Kalinich (08/24/2011).  (called DSATNEW)          *   FILE 296
//*                                                                 *   FILE 296
//*     DSAT fixed by Andreas Freybier to support EAV volumes.      *   FILE 296
//*          (this version is in member DSATNEW, and it needs       *   FILE 296
//*          system macros at the z/OS 1.10 level or higher,        *   FILE 296
//*          to assemble.)  (called DSATNEW)                        *   FILE 296
//*                                                                 *   FILE 296
//*     DSAT additional change by John Kalinich to recognize        *   FILE 296
//*          extended format VSAM datasets.  See member $$NOTE5.    *   FILE 296
//*     email:  John Kalinich                 *   FILE 296
//*                                                                 *   FILE 296
//*     DSAT fixed by Ken Sharpe (see $$NOTE4 in the pds            *   FILE 296
//*             for CBT File 296) to recognize HFS datasets.        *   FILE 296
//*     email:  "Sharpe,Ken"                  *   FILE 296
//*                                                                 *   FILE 296
//*     DSAT enhanced by Andreas Freybier, Apr 2003.                *   FILE 296
//*     email:  Andreas.Freybier@Beiersdorf.com                     *   FILE 296
//*                                                                 *   FILE 296
//*     DVOL fixed by Cary Garrett to account for the length        *   FILE 296
//*     change of the CVAFDSM parameter list.                       *   FILE 296
//*     email:  cogarre@ci.birmingham.al.us                         *   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
//*               (Fixed for 8-character prefixes, and support      *   FILE 296
//*               info.)                                            *   FILE 296
//*                                                                 *   FILE 296
//*          08   COMPARE - A SOMEWHAT MODIFIED VERSION OF THE      *   FILE 296
//*               YALE COMPARE PROGRAM - fixed by Greg Price        *   FILE 296
//*               to handle pds'es better.                          *   FILE 296
//*                                                                 *   FILE 296
//*          09   RELEASE - A TSO COMMAND TO RELEASE EXCESS SPACE   *   FILE 296
//*               OCCUPIED BY A DATASET.  Load Module for SWA above *   FILE 296
//*               the 16M line, assembled on 04/04/2007 by John     *   FILE 296
//*               Kalinich.  File 035 updated on 03/23/2008 by Sam  *   FILE 296
//*               Golob).  See member $$NOTE1.                      *   FILE 296
//*               (Fixed for 8-character TSO prefixes-z/OS 2.3)     *   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
//*     MIKE CLEARY HAS A NEW ADDRESS:                              *   FILE 297
//*                                                                 *   FILE 297
//*     Contact: Michael J. Cleary                                  *   FILE 297
//*              Mainframe Technical Services                       *   FILE 297
//*              AmerisourceBergen                                  *   FILE 297
//*              4000 Metropolitan Drive                            *   FILE 297
//*              Orange, California 92868                           *   FILE 297
//*              United States of America                           *   FILE 297
//*              714.385.4052 (voice)                               *   FILE 297
//*              714.385.8888 (fax)                                 *   FILE 297
//*              mailto:michaeljosephcleary@YAHOO.COM               *   FILE 297
//*              http://sites.google.com/site/michaeljosephcleary/  *   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 and various people.                            *   FILE 299
//*                                                                 *   FILE 299
//*           A load module library in XMIT format has now been     *   FILE 299
//*           included in this pds.  Please see member LOADLIB$     *   FILE 299
//*           for JCL to create the load library on your system.    *   FILE 299
//*                                                                 *   FILE 299
//*           Y2K fix to day of week routine, by Joel Ewing.        *   FILE 299
//*           This is in the TODAY CSECT.                           *   FILE 299
//*                                                                 *   FILE 299
//*   ---->>  *BEGIN* NEWS: ------                                  *   FILE 299
//*                                                                 *   FILE 299
//*           Another version of TAPEMAP, as member TAPEMAPM,       *   FILE 299
//*           contains changes from Steve Myers to accommodate      *   FILE 299
//*           File Sequence Numbers greater than 9999.  The         *   FILE 299
//*           reason that this is being presented as a separate     *   FILE 299
//*           member, is that it reformats the reports somewhat.    *   FILE 299
//*           That version of TAPEMAP (TAPEMAPM) has been marked    *   FILE 299
//*           as Version 2.5.1 to differentiate it from the other   *   FILE 299
//*           TAPEMAP (Version 2.5), and from the TAPEMAP version   *   FILE 299
//*           on File 804 (Version 2.5.3).                          *   FILE 299
//*                                                                 *   FILE 299
//*           Updated with a new list of DASD device types for      *   FILE 299
//*           the map of FDR tapes.  (J. Kalinich and Bruce Black)  *   FILE 299
//*                                                                 *   FILE 299
//*           There is another version of TAPEMAP, which resides    *   FILE 299
//*           in CBT File 804.  That version corresponds in level,  *   FILE 299
//*           to our Version 2.5, but it has replaced most of       *   FILE 299
//*           the branch instructions (e.g. BNE) with jump          *   FILE 299
//*           instructions (e.g. JNE), and 3 base registers are     *   FILE 299
//*           saved in the process.  The current version of TAPEMAP *   FILE 299
//*           here, has not been replaced, because of the MVS 3.8   *   FILE 299
//*           people who are assembling this program using IFOX00.  *   FILE 299
//*                                                                 *   FILE 299
//*           Added an XMIT of a load library which contains the    *   FILE 299
//*           following TAPEMAP versions:   (member LOADLIB)        *   FILE 299
//*                                                                 *   FILE 299
//*           member     CBT File    Version                        *   FILE 299
//*           ------     --------    -------                        *   FILE 299
//*           TAPEMAP      299        2.5                           *   FILE 299
//*           TAPEMAPM     299        2.5.1                         *   FILE 299
//*           TAPEMAPX     804        2.5.3                         *   FILE 299
//*                                                                 *   FILE 299
//*   ---->>  *END* NEWS: ------                                    *   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
//*    For questions, I am leaving my name for reference:           *   FILE 299
//*                                                                 *   FILE 299
//*           Sam Golob    email:  sbgolob@cbttape.org              *   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.  Due to      *   FILE 299
//*           the tediousness of testing any new version of         *   FILE 299
//*           TAPEMAP, its old version has not been deleted,        *   FILE 299
//*           just in case the new version affects some of the      *   FILE 299
//*           code that worked before.  You can simply say EXEC     *   FILE 299
//*           PGM=TAPEMAPO, instead.  I've tested the new           *   FILE 299
//*           version, but we're trying to be on the safe side.     *   FILE 299
//*           (TAPEMAP is read-only anyway.)                        *   FILE 299
//*                                                                 *   FILE 299
//*           Peter McFarland put in a kludge into the TAPEMAP      *   FILE 299
//*           code, to get around the case when the UCB extension   *   FILE 299
//*           is above the 16M line, and the sense information      *   FILE 299
//*           has not been gotten correctly.                        *   FILE 299
//*                                                                 *   FILE 299
//*           email:  Peter_Mcfarland@adp.com                       *   FILE 299
//*                                                                 *   FILE 299
//*           Sam Golob fixed (hopefully) some of the SMPPTFIN      *   FILE 299
//*           finding code, to allow for SYSMODs starting with      *   FILE 299
//*           a ++ASSIGN card.  TAPEMAP now treats such files as    *   FILE 299
//*           being in SMPPTFIN format, and correctly displays      *   FILE 299
//*           the SYSMOD numbers in SYSPRNT2.                       *   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, Retired                           *   FILE 300
//*                                                                 *   FILE 300
//*           Please address inquiries to Sam Golob.                *   FILE 300
//*                                                                 *   FILE 300
//*                 email:  sbgolob@cbttape.org                     *   FILE 300
//*                                                                 *   FILE 300
//*       Note:  As of 10-24-02, all occurrences of the MSG macro   *   FILE 300
//*              have been changed to MSGZ, because MSG is now an   *   FILE 300
//*              assembler opcode (as of HLASM Release 4, or        *   FILE 300
//*              OS/390 Release 2.10).                              *   FILE 300
//*                                                                 *   FILE 300
//*       Note:  As of the end of 2012 and the beginning of 2013,   *   FILE 300
//*              we made an effort to fix many of these programs    *   FILE 300
//*              so they will run on z/OS systems, if they didn't   *   FILE 300
//*              work there anymore.  No guarantees, and updated    *   FILE 300
//*              members are usually marked with an ISPF id of      *   FILE 300
//*              SBGOLOB.  We also tried to keep the old versions   *   FILE 300
//*              intact, so they can still be found for MVS 3.8     *   FILE 300
//*              systems and the like.  (SG and BG)                 *   FILE 300
//*                                                                 *   FILE 300
//*       RELEASE 27  -  01 MAY 92                                  *   FILE 300
//*            (SOME MEMBERS WERE UPDATED LATER - SG 8/22)          *   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
//*       AUCMD        -  AUTHORIZE A TSO COMMAND BY CALLING IT     *   FILE 300
//*                       THROUGH THIS AUTHORIZED COMMAND.          *   FILE 300
//*                       AS CODED, YOU GET AUTHORIZATION VIA THE   *   FILE 300
//*                       IKJEFTE2 TABLE (AUTHCMD IN PARMLIB).      *   FILE 300
//*                                                                 *   FILE 300
//*       AUCMDA       -  AUTHORIZE A TSO COMMAND BY CALLING IT     *   FILE 300
//*                       THROUGH THIS AUTHORIZED COMMAND, BUT      *   FILE 300
//*                       IF YOU ALLOCATE AN AUTHORIZED LIBRARY     *   FILE 300
//*                       VIA A TASKLIB ALLOCATION, IT WILL GET     *   FILE 300
//*                       THE LOAD MODULE FROM THERE.               *   FILE 300
//*                       AS CODED, YOU GET AUTHORIZATION VIA THE   *   FILE 300
//*                       IKJEFTE2 TABLE (AUTHCMD IN PARMLIB).      *   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
//*                       (Compile and install JCL has been fixed   *   FILE 300
//*                       for LE-based PL/I compilers under z/OS)   *   FILE 300
//*                                                                 *   FILE 300
//*       CATPW     1X -  BILL GODFREY:  DISPLAY PASSWORDS TO YOUR  *   FILE 300
//*                       ICF MASTER CATALOG.                       *   FILE 300
//*                                                                 *   FILE 300
//*       CDSCB     4  -  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
//*                       (ADD SMS/NOSMS KEYWORDS TO BE ABLE TO     *   FILE 300
//*                       UNCATALOG DATASETS ON SMS VOLUMES.)       *   FILE 300
//*                       SG - 12/13/22                             *   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
//*       CMD          -  EXECUTE TSO COMMANDS (NON-AUTH)           *   FILE 300
//*                       LIKE AUCMDA, BUT THE COMMANDS ARE         *   FILE 300
//*                       EXECUTED NON-AUTHORIZED, PURPOSELY.       *   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     2X -  COUNT THE NUMBER OF RECORDS IN A FILE.    *   FILE 300
//*                       (New 31-bit version)                      *   FILE 300
//*                       (Fix. DS1LSTAR is always 0 for a PDSE,    *   FILE 300
//*                        so always read the dataset even if       *   FILE 300
//*                        DS1LSTAR is 0.)                          *   FILE 300
//*                                                                 *   FILE 300
//*       COUNT1    1X -  COUNT THE NUMBER OF RECORDS IN A FILE.    *   FILE 300
//*                       (Old 24-bit version)                      *   FILE 300
//*                       (Fix. DS1LSTAR is always 0 for a PDSE,    *   FILE 300
//*                        so always read the dataset even if       *   FILE 300
//*                        DS1LSTAR is 0.)                          *   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
//*                       (Modified by Sam Golob to give TSO        *   FILE 300
//*                       CONSOLE authority. 04/05)                 *   FILE 300
//*                       (Modified by Sam Golob to give TSO        *   FILE 300
//*                       CONSOLE OPERPARM authority. 05/20)        *   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
//*                       (Fixed for z/OS by Sam Golob. Added       *   FILE 300
//*                       parameters to limit output by category.)  *   FILE 300
//*                       DAOLD is the original version.            *   FILE 300
//*                                                                 *   FILE 300
//*       DAJOB     4X -  DISPLAY ACTIVE CMD, HAS TSO USERS TOO     *   FILE 300
//*                       AND WHAT LOGON PROC THEY USE.             *   FILE 300
//*                       (FIXED FOR XA, ESA, OS/390, z/OS by       *   FILE 300
//*                       Sam Golob - Dec 28, 2012)                 *   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
//*                       (Fixed for dynamic APF list.)   BG        *   FILE 300
//*                       (Updated to do PUTLINE output.) SG        *   FILE 300
//*                                                                 *   FILE 300
//*       DATE      2X -  GIVES THE DATE AND TIME FROM THE SYSTEM.  *   FILE 300
//*                                                                 *   FILE 300
//*       DDX       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. (Fixed for 8-character prefixes)    *   FILE 300
//*                       (Changed name from DD to DDX, because     *   FILE 300
//*                       there is an IBM command (short for        *   FILE 300
//*                       DELDSD which is also called DD.(SG-09/22) *   FILE 300
//*                                                                 *   FILE 300
//*       DDISK        -  DISPLAY ONLINE DASD VOLUMES               *   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).  Fixed for z/OS 1.13.             *   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
//*                       (Fixed for 8-character prefixes-z/OS 2.3) *   FILE 300
//*                                                                 *   FILE 300
//*       DSMF      2X -  OPERATOR-LIKE 'D SMF' COMMAND.            *   FILE 300
//*                       --FIXED FOR NEW FORMAT IEEMBRDS--         *   FILE 300
//*                       (FOR WHEN SMF DATASETS COULD HAVE         *   FILE 300
//*                       44-CHARACTER DSNAMES.)                    *   FILE 300
//*                                                                 *   FILE 300
//*       DSVC      1X -  DISPLAY YOUR SVC LIST IN EFFECT FOR IPL.  *   FILE 300
//*                                                                 *   FILE 300
//*       DTOD      1X -  DISPLAY FORMATTED TIME AND DATE FROM A    *   FILE 300
//*                       STCK-FORMAT DATE.  (NEEDS TODCNVRT MACRO  *   FILE 300
//*                       FROM THOMAS RAMSEIER - FILE 483, AND      *   FILE 300
//*                       COPIED TO THIS PDS)  TSO COMMAND.         *   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
//*                       (FIXED FOR AMODE 31 - SBG)                *   FILE 300
//*                       (NEEDS CPINIT MACRO FIXED FOR AMODE 31)   *   FILE 300
//*                       (FIXED TO SHOW 8-CHARACTER USERIDS)       *   FILE 300
//*                                                                 *   FILE 300
//*       USERS        -  Display TSO users (same program as..)     *   FILE 300
//*       ACTIVE       -  Display Active Address Spaces             *   FILE 300
//*                       The ACTIVE program is an alias of the     *   FILE 300
//*                       USERS load module.  From disassembled     *   FILE 300
//*                       source.  To install, customize and        *   FILE 300
//*                       submit the member USERS.                  *   FILE 300
//*                       (Please see member USERSACT for any       *   FILE 300
//*                       relevant documentation regarding fixes.)  *   FILE 300
//*                       (See member USERSC1 for changes that had  *   FILE 300
//*                       to be made to the disassembled source.)   *   FILE 300
//*                       My recommendation: DA is a better program *   FILE 300
//*                       for displaying active jobs.               *   FILE 300
//*                                                                 *   FILE 300
//*       ECHOHEX   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
//*       EKKO      1  -  Type in a line and have it echoed back    *   FILE 300
//*                       to the terminal using PUTLINE.            *   FILE 300
//*                       One purpose for this command is to run    *   FILE 300
//*                       it in a REXX exec instead of SAY, to be   *   FILE 300
//*                       able to substitute variables into the     *   FILE 300
//*                       displayed string.                         *   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
//*                       (UCBSCAN fixed for z/OS and recent        *   FILE 300
//*                       systems.)                                 *   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
//*       IKJT9FIZ  z  -  'FIND' SUBCOMMAND OF THE TSO TEST CMD.    *   FILE 300
//*                                                                 *   FILE 300
//*       IKJT9LB   1  -  'LIST BREAKPOINTS' SUBCMD OF TSO TEST CMD *   FILE 300
//*                                                                 *   FILE 300
//*       IKJT9LBZ  z  -  'LIST BREAKPOINTS' SUBCMD OF TSO TEST CMD *   FILE 300
//*                                                                 *   FILE 300
//*       IKJT9LGZ  z  -  'LIST 64-BIT GPRS' 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
//*       IKJT9Z$$  z  -  JOB TO INSTALL z/OS TEST SUBCOMMANDS      *   FILE 300
//*                       AND ASSOCIATED IKJTSOxx PARMLIB UPDATES.  *   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
//*                       (Fixed for z/OS. Old member is IOOLD.)    *   FILE 300
//*                                                                 *   FILE 300
//*       JCLSCAN   1  -  SAM GOLOB SENT THIS TO ME.  HE RAN IT ON  *   FILE 300
//*                       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.  MORE SIMILAR TO ISRDDN UNDER ISPF.  *   FILE 300
//*                       (Fixed for z/OS by Sam Golob)             *   FILE 300
//*                                                                 *   FILE 300
//*       LISTMOD   1  -  TSO COMMAND TO LIST LOAD MODULES IN VERY  *   FILE 300
//*                       READABLE FORMAT.  MAKES IT EASY TO READ   *   FILE 300
//*                       LOAD MODULES.  HELPS ALSO, TO SEE IF      *   FILE 300
//*                       ZAPS HAVE BEEN APPLIED.  (FROM S.GOLOB)   *   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   2Y -  LIST ATTRIBUTES OF MEMBERS OF LPALIB.     *   FILE 300
//*                       (FIXED FOR 31-BIT ADDRESSES)              *   FILE 300
//*                       Fixed for z/OS 2.n.  Use member LISTLPA1  *   FILE 300
//*                       for older MVS versions, if this source    *   FILE 300
//*                       doesn't work or assemble there.           *   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
//*       LISTVTOC     -  PROGRAM TO LIST DATASETS ON A DASD PACK   *   FILE 300
//*                       IN THE ORDER THEY APPEAR IN THE VTOC.     *   FILE 300
//*                       THE REASON FOR THIS IS USUALLY TO FIND    *   FILE 300
//*                       DATASETS THAT HAVE ANOMALIES, OR SOME     *   FILE 300
//*                       PROPERTY, VERY QUICKLY. SEE THE KEYWORDS  *   FILE 300
//*                       THAT ARE AVAILABLE IN THE PROGRAM. THE    *   FILE 300
//*                       PROGRAM READS AN ENTIRE TRACK OF VTOC     *   FILE 300
//*                       ENTRIES WITH ONE EXCP, SO IT CAN BE USED  *   FILE 300
//*                       AS A CODING EXAMPLE TO SEE HOW THIS WAS   *   FILE 300
//*                       DONE.                                     *   FILE 300
//*                                                                 *   FILE 300
//*       LM        1  -  LIST MEMBER NAMES OF A DIRECTORY OF PDS.  *   FILE 300
//*                       (Storage was too small for pds'es with    *   FILE 300
//*                       many members. Raised it at least 12-fold  *   FILE 300
//*                       to accommodate these large pds'es.)       *   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
//*       LOGTIME   1  -  TSO COMMAND TO TELL THE USER WHEN         *   FILE 300
//*                       HIS/HER LOGON TIME WAS.                   *   FILE 300
//*                       (ADAPTED FROM LASTCLPA PROGRAM ON CBT     *   FILE 300
//*                       FILE 133.)                                *   FILE 300
//*                                                                 *   FILE 300
//*       LPSCB     3X -  LIST PSCB (PROTECTED STEP CONTROL BLK).   *   FILE 300
//*                       (Modified by Sam Golob to more accurately *   FILE 300
//*                       reflect macro IKJPSCB at z/OS 1.6.)       *   FILE 300
//*                       (Fixed to show an extra field in UPT.)    *   FILE 300
//*                       (Fixed to format the LOGON date and time  *   FILE 300
//*                       in PSCBLTIM.  Needs TODCNVRT program.)    *   FILE 300
//*                       (Modified by Sam Golob to show TSO        *   FILE 300
//*                       CONSOLE OPERPARM authority. CNOP 05/20)   *   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
//*                       (Fixed for 8-character prefixes if VOL    *   FILE 300
//*                       keyword is specified. If not, then it     *   FILE 300
//*                       will not find the 8-char prefix unless    *   FILE 300
//*                       it is run on at least z/OS 2.3 or newer)  *   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
//*                       (Fixed to use MGCRE instead of MGCR.)     *   FILE 300
//*                       (Old copy still there, as OPERA00)        *   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
//*                       (Fixed by Updater - 08/12/2017)           *   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
//*                       (This is Greg Price's improvement.)       *   FILE 300
//*                       (Fixed for 8-character TSO prefixes.)     *   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    3X -  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
//*                       (Fixed for above 16M addresses - SBG)     *   FILE 300
//*                       (Fixed for 8-character userid support)    *   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
//*       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
//*                       (Fixed for 8-character TSO userids)       *   FILE 300
//*                       (Fixed for issuing under ISPF, which      *   FILE 300
//*                        requires an even number of quotes in     *   FILE 300
//*                        a message.  This version reduces two     *   FILE 300
//*                        consecutive single quotes to one.        *   FILE 300
//*                        The old version is here also, as member  *   FILE 300
//*                        TO00, so if you don't like reducing      *   FILE 300
//*                        two quotes to one, you can use that      *   FILE 300
//*                        version of TO.)                          *   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
//*       TSOCP     1  -  PROGRAM TO EXECUTE A TSO COMMAND FROM     *   FILE 300
//*                       ANY LIBRARY ALLOCATED TO THE DDNAME OF    *   FILE 300
//*                       TASKLIB.                                  *   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
//*       UADLST       -  TSO COMMAND CONVERTED FROM UADLIST BATCH  *   FILE 300
//*                       PROGRAM ON FILE 316. LISTS CONTENTS OF    *   FILE 300
//*                       SYS1.UADS DATASET OR A COPY OF IT.        *   FILE 300
//*                       (WORKS ON Z/OS.)                          *   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
//*                       (FIXED FOR Z/OS.)                         *   FILE 300
//*                       AFTER LOOKING AT ALL THE USERIDS IN UADS  *   FILE 300
//*                       WITH UADLST, YOU CAN DRILL DOWN TO GET    *   FILE 300
//*                       MORE INFO BY USING UADS AFTERWARDS.       *   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     4  -  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
//*          UNITS01 IS FOR MVS/370 SYSTEMS.  UNITS02 IS FOR XA     *   FILE 300
//*          THRU ESA 4 WITHOUT DYNAMIC UCB'S.  UNITS IS FOR        *   FILE 300
//*          z/OS WITH DYNAMIC UCB SUPPORT AND 4-DIGIT DEVICE       *   FILE 300
//*          NUMBERS.                                               *   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
//*       VSMRGN    1  -  SHOWS ADDRESS AND SIZE OF PRIVATE STORAGE *   FILE 300
//*                       BOTH BELOW THE LINE, AND ABOVE THE LINE.  *   FILE 300
//*                       (TSO command that simulates the VSMRGEN   *   FILE 300
//*                       macro action and displays the results.)   *   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
//*       ZAP          -  UPDATED VERSION OF UCLA FULL SCREEN ZAP   *   FILE 300
//*                       PROGRAM FROM CBT FILE 134.  UPDATES ARE   *   FILE 300
//*                       FROM BRUCE BORDONARO AND GREG PRICE.      *   FILE 300
//*                       OLDER VERSION IS CALLED ZAPO.  (WHY USE   *   FILE 300
//*                       OLD STUFF WHEN MUCH NEWER STUFF IS        *   FILE 300
//*                       NOW AVAILABLE ?)                          *   FILE 300
//*                                                                 *   FILE 300
//***FILE 301 is from Mike Cleary of IBM Global Services in         *   FILE 301
//*           California, and contains a version of the CDSCB       *   FILE 301
//*           (change the DSCB) TSO command processor program       *   FILE 301
//*           from File 300, which uses SAF for its security        *   FILE 301
//*           checking.  In order to be able to change              *   FILE 301
//*           attributes of a dataset, you have to have ALTER       *   FILE 301
//*           access to it, the way this command is written.  Of    *   FILE 301
//*           course, if your shop has different requirements,      *   FILE 301
//*           you can change the code, but this version shows       *   FILE 301
//*           you how to fit the RACF or SAF checking 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
//*           Michael J. Cleary                                     *   FILE 301
//*           IBM Global Services                                   *   FILE 301
//*           310-602-4105 (voice)                                  *   FILE 301
//*           mailto:michaeljosephcleary@yahoo.com                  *   FILE 301
//*           http://sites.google.com/site/michaeljosephcleary/     *   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
//*               IBM Global Services                               *   FILE 302
//*               310-602-4105 (voice)                              *   FILE 302
//*               mailto:michaeljosephcleary@yahoo.com              *   FILE 302
//*               http://sites.google.com/site/michaeljosephcleary/ *   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:  Bill.Godfrey@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.                    *   FILE 306
//*                                                                 *   FILE 306
//*               Jim Marshall                                      *   FILE 306
//*               Office of Personnel Management                    *   FILE 306
//*               CIO/WTC - Room BH04                               *   FILE 306
//*               1900 E Street NW                                  *   FILE 306
//*               Washington DC   20415-0001                        *   FILE 306
//*               w - 202-606-1261                                  *   FILE 306
//*               f - 202-606-2092                                  *   FILE 306
//*               jdmarsha@opm.gov                                  *   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
//*          404 FROM BELLCORE, MODIFIED BY DAVE CARTWRIGHT         *   FILE 306
//*          AND GUY ALBERTELLI.     (SG - 5/24/01)                 *   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
//*           A version of this zap is also included for z/OS       *   FILE 308
//*           Release 1.1.                                          *   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         *   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.planetmvs.com/                                *   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
//*      APFADD    Text        Uses the OSCMD exec (also            *   FILE 311
//*                            included) to issue a SETPROG APF     *   FILE 311
//*                            ADD command to add a dataset to      *   FILE 311
//*                            the APF list dynamically;            *   FILE 311
//*                                                                 *   FILE 311
//*      BENCHMRK  Text        Program that shows if there is       *   FILE 311
//*                            any consideration between using      *   FILE 311
//*                            one method of doing the same         *   FILE 311
//*                            thing over another.  For             *   FILE 311
//*                            Example, performance wise does       *   FILE 311
//*                            the GETMAIN use more or less CPU     *   FILE 311
//*                            than the STORAGE macro?              *   FILE 311
//*                                                                 *   FILE 311
//*      BENCHMR1  Text        Sample output of BENCHMRK on a       *   FILE 311
//*                            9672-R56.                            *   FILE 311
//*                                                                 *   FILE 311
//*      BENCHMR2  Text        Sample output of BENCHMRK on a       *   FILE 311
//*                            2064-1C7.                            *   FILE 311
//*                                                                 *   FILE 311
//*      CATME     Text        Rexx exec that invokes DEFINE        *   FILE 311
//*                            NONVSAM for generic and system       *   FILE 311
//*                            system symbolics. Good for ISPF      *   FILE 311
//*                            3.4 vtoc lists.                      *   FILE 311
//*                                                                 *   FILE 311
//*      CA90S     Text        Rexx exec that invokes the           *   FILE 311
//*                            Computer Associates CA90s (TNGFW)    *   FILE 311
//*                            diagnostic display programs.  Not    *   FILE 311
//*                            terribly useful.                     *   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
//*      COMPPDS   Text        Rexx exec that compares two PDS      *   FILE 311
//*                            at the member level. If a member     *   FILE 311
//*                            exists in both PDSs, then ISPF       *   FILE 311
//*                            compare is invoked to compare at     *   FILE 311
//*                            the record level.                    *   FILE 311
//*                                                                 *   FILE 311
//*      COMPPDSJ  Text        JCL to run COMPPDS in batch          *   FILE 311
//*                                                                 *   FILE 311
//*      COPYANSI  Text        Rexx exec that filters an input      *   FILE 311
//*                            file that has ANSI printer           *   FILE 311
//*                            control charactes and translates     *   FILE 311
//*                            them for PCs (except top of          *   FILE 311
//*                            page).                               *   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
//*      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
//*      D2SEQN    Text        Death 2 Sequence Numbers - a         *   FILE 311
//*                            filter that removes sequence         *   FILE 311
//*                            numbers when copying records.        *   FILE 311
//*                            This makes printouts of source       *   FILE 311
//*                            code easier to read. I use this      *   FILE 311
//*                            when I printout JES2 source code     *   FILE 311
//*                            for example.  PTF strings like       *   FILE 311
//*                            "@THX1138" when found as the last    *   FILE 311
//*                            word on a line are also removed.     *   FILE 311
//*                            I find this really enhances my       *   FILE 311
//*                            source code viewing pleasure.        *   FILE 311
//*                                                                 *   FILE 311
//*      FINDMOD   Text        Assembler program that searchs       *   FILE 311
//*                            the normal search order (JPA,        *   FILE 311
//*                            LNKLST, LPALST, etc) for a           *   FILE 311
//*                            module.                              *   FILE 311
//*                                                                 *   FILE 311
//*      HLASMTR   Text        High Level Assembler Listing         *   FILE 311
//*                            trimmer.  Good for when you are      *   FILE 311
//*                            downloading a listing for            *   FILE 311
//*                            printing on a PC printer.  The       *   FILE 311
//*                            title lines and trailing report      *   FILE 311
//*                            stuff (like xref) are trimmed        *   FILE 311
//*                            out.                                 *   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
//*      ISGECMOM  PDS Unload  An (slight) enhancement to IBM's     *   FILE 311
//*                            sample ISGECMON                      *   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            *   FILE 311
//*                            listings from a given HLQ.           *   FILE 311
//*                                                                 *   FILE 311
//*      JES2EXIT  PDS Unload  Edited versions of my JES2 exits     *   FILE 311
//*                                                                 *   FILE 311
//*      LASTUSE   Text        Only useful for shops that have      *   FILE 311
//*                            CA-DISK (also called (SAMS:DISK      *   FILE 311
//*                            or DMS).  It shows the last job      *   FILE 311
//*                            that used the dataset and the        *   FILE 311
//*                            date.                                *   FILE 311
//*                                                                 *   FILE 311
//*      MPFEXITS  PDS Unload  The MPF exits I use at my shop       *   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
//*      NEWISPF   Text        Rexx exec that makes Version 4 of    *   FILE 311
//*                            ISPF look and act more like older    *   FILE 311
//*                            versions.                            *   FILE 311
//*                                                                 *   FILE 311
//*      OSCMD     Text        Rexx exec that uses the CONSOLE      *   FILE 311
//*                            command to issue a MVS command.      *   FILE 311
//*                            You must have proper access to       *   FILE 311
//*                            the TSO CONSOLE command to use       *   FILE 311
//*                            OSCMD.                               *   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
//*      SHOWFDR   PDS Unload  Small ISPF "dialog" that invokes     *   FILE 311
//*                            the FDR diagnostic ISPF-based        *   FILE 311
//*                            display functions;                   *   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
//*      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
//*      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
//*      SUBME     Text        REXX exec that submits the           *   FILE 311
//*                            currently edited data to the Job     *   FILE 311
//*                            Entry Subsystem.  Used when ISPF     *   FILE 311
//*                            submit fails.                        *   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
//*     ----------------------------------------------------------  *   FILE 311
//*                                                                 *   FILE 311
//*     See the $$README file for information on the file types:    *   FILE 311
//*     Text, PDS Unload and TSO XMIT.                              *   FILE 311
//*                                                                 *   FILE 311
//***FILE 312 is from Lionel Dyck in Austin, Texas and contains     *   FILE 312
//*           quite a few ISPF interface packages, and other        *   FILE 312
//*           stuff.                                                *   FILE 312
//*                                                                 *   FILE 312
//*           The member list probably more accurately reflects     *   FILE 312
//*           the contents of this file, than does the description  *   FILE 312
//*           of some details, below.  This file is constantly      *   FILE 312
//*           being revised.  For reference, please see Lionel's    *   FILE 312
//*           web site at:   http://www.lbdsoftware.com             *   FILE 312
//*                                                                 *   FILE 312
//*           email:  lbdyck@gmail.com                              *   FILE 312
//*                                                                 *   FILE 312
//*    Lionel Dyck's large collection of utilities has now been     *   FILE 312
//*    divided between Files 312, 313, 314, and 969.  All member    *   FILE 312
//*    names beginning with A-R are on File 312.  Names beginning   *   FILE 312
//*    with S-TS are on File 313.  Names from TX-Z are on File      *   FILE 312
//*    314.  File 969 contains the PDSEGEN ISPF application to      *   FILE 312
//*    exploit the capabilities of using PDSE Version 2 member      *   FILE 312
//*    generations.                                                 *   FILE 312
//*                                                                 *   FILE 312
//*    These four files contain quite a few separate utility        *   FILE 312
//*    packages which are unrelated to each other.  You can tell    *   FILE 312
//*    which members of these files belong to the same utility      *   FILE 312
//*    package, by the similarities in their member names.          *   FILE 312
//*                                                                 *   FILE 312
//*    Some utility packages will have several member names         *   FILE 312
//*    associated with them.  But these should all be similar       *   FILE 312
//*    to each other, letting you know that they belong to the      *   FILE 312
//*    same utility package.  You can see this, by looking at       *   FILE 312
//*    the member list shown below, so you can get the idea         *   FILE 312
//*    about how this packaging arrangement works.                  *   FILE 312
//*                                                                 *   FILE 312
//*    Documentation files which are in WORD format, or PDF         *   FILE 312
//*    format, have been included to make the use of the package    *   FILE 312
//*    associated with the doc, easier.  Usually a doc file in      *   FILE 312
//*    FB-80 EBCDIC text, has been included too.  To use the        *   FILE 312
//*    WORD or PDF format documentation, you have to download the   *   FILE 312
//*    member in BINARY to a PC, and look at the resulting file     *   FILE 312
//*    on the PC, using Microsoft WORD, or Adobe ACROBAT reader,    *   FILE 312
//*    respectively.                                                *   FILE 312
//*                                                                 *   FILE 312
//*       NAME       VER.MOD   LAST MODIFIED     SIZE   ID          *   FILE 312
//*       $DOC        01.06   2022/10/13 11:42     16 LBDYCK        *   FILE 312
//*       ADDCOMMA    01.00   2022/12/09 09:51     34 COMMA         *   FILE 312
//*       ALIGN       01.01   2019/12/31 06:41    216 ALIGN         *   FILE 312
//*       ALLOCGDG    01.00   2003/02/05 14:04    138 SYSLBD        *   FILE 312
//*       ALTLIBST    01.00   2022/01/31 09:33     66 ALTLIB        *   FILE 312
//*       BACKDIR     01.00   2017/07/11 14:14    359 LBD           *   FILE 312
//*       BISPFJCL    01.01   2016/11/16 10:18    526 SYSLBD        *   FILE 312
//*       BODY        01.00   2020/02/29 09:16    139 XMIT          *   FILE 312
//*       CAVXTR$     01.21   2003/06/02 08:27     77 SYSLBD        *   FILE 312
//*       CAVXTR$$    01.26   2010/05/21 01:24     92 SYSLBD        *   FILE 312
//*       CAVXTR#     01.26   2010/05/21 01:26   2080 PDF           *   FILE 312
//*       CAVXTR@     01.26   2010/05/21 01:26   2093 MSWORD        *   FILE 312
//*       CAVXTRT     01.27   2019/01/23 06:12   2725 CAV           *   FILE 312
//*       CHGSTR      01.00   2022/10/13 11:42     44 LBDYCK        *   FILE 312
//*       CHKIKJ      01.07   2017/06/15 12:28    977 LBD           *   FILE 312
//*       CHKLPALK    01.00   2016/11/23 06:51     90 SYSLBD        *   FILE 312
//*       CHKPDSE     01.01   2016/11/09 07:37     67 FILE312       *   FILE 312
//*       CLONE       01.00   2016/11/08 09:56    427 SYSLBD        *   FILE 312
//*       CMDS        01.00   2000/02/16 16:27    588 SYSLBD        *   FILE 312
//*       CMDSRPT     01.06   2016/03/17 07:47     74 SYSLBD        *   FILE 312
//*       CMDSRPTO    01.02   2016/03/02 14:50     43 SYSLBD        *   FILE 312
//*       CMT         03.05   2016/11/09 07:39   1287 FILE312       *   FILE 312
//*       COMPVTC$    01.01   2001/02/09 12:23     21 WSBG          *   FILE 312
//*       COMPVTOC    01.00   2001/02/09 12:23     58 SYSLBD        *   FILE 312
//*       CONCATIT    01.00   2020/08/23 09:08    554 SLBD          *   FILE 312
//*       CONS        01.06   2021/02/13 21:00     38 CONS          *   FILE 312
//*       COPYFB      01.02   2016/04/03 15:00     70 SYSLBD        *   FILE 312
//*       CSVEDIT     01.11   2008/04/15 11:10    542 SYSLBD        *   FILE 312
//*       CSVEDIT#    01.11   2008/04/15 11:12   2541 PDF           *   FILE 312
//*       CSVEDIT@    01.11   2008/04/15 11:12   1434 MSWORD        *   FILE 312
//*       CUTPASTE    01.00   1999/07/06 18:40   1326 SYSLBD        *   FILE 312
//*       DDLIST      01.00   2003/09/30 09:33   1607 SYSLBD        *   FILE 312
//*       DDLIST$     01.01   2003/09/29 07:29      6 SYSLBD        *   FILE 312
//*       DOALL       01.01   2016/11/09 07:44     56 FILE312       *   FILE 312
//*       DROPISPF    01.00   2018/12/06 07:18     28 DROPISPF      *   FILE 312
//*       DSFSADM     01.07   2023/10/14 09:47   1267 DSFSADM       *   FILE 312
//*       DSLIST      01.00   2000/02/15 21:40    106 SYSLBD        *   FILE 312
//*       DUMPMGMT    01.00   2001/09/25 16:49   1369 SYSLBD        *   FILE 312
//*       EDITMAC     01.01   2020/07/30 06:28    157 EDITMAC       *   FILE 312
//*       EDSL        01.99   2021/01/14 13:50   2903 SLBD          *   FILE 312
//*       EKKO        01.00   2016/11/05 13:57    413 CBTUSER       *   FILE 312
//*       EKKO$       01.10   2016/11/06 20:21     27 SBGOLOB       *   FILE 312
//*       EKKOH       01.00   2016/12/02 06:14     78 SBGOLOB       *   FILE 312
//*       EMAC        02.03   2021/08/25 09:44   1183 EMAC          *   FILE 312
//*       EXTISPF     01.00   2018/05/18 13:56    227 EXTISPF       *   FILE 312
//*       EZMENU      01.04   2023/04/13 12:07    867 EZMENU        *   FILE 312
//*       FASTPATH    01.08   2023/07/28 07:29   1326 FASTP         *   FILE 312
//*       FINDDDM     01.02   2013/10/28 11:21     93 MVSLBD1       *   FILE 312
//*       FINDDSN     01.04   2019/05/09 08:47     94 SLBD          *   FILE 312
//*       FIXBOOKP    01.00   2000/05/05 12:18    138 WSBG          *   FILE 312
//*       FIXKEYS     01.09   2019/12/30 09:02    834 FIXKEYS       *   FILE 312
//*       FIXKEYS$    01.02   2019/01/29 09:15     20 FIXKEYS       *   FILE 312
//*       FIXNL       01.01   2016/11/16 10:23     49 SYSLBD        *   FILE 312
//*       FTPB        02.32   2023/03/31 07:25   9673 FTPB          *   FILE 312
//*       FTPB$CHG    02.31   2023/03/31 07:25    356 FTPB          *   FILE 312
//*       FTPB#       02.24   2019/07/02 11:23   4146 PDF           *   FILE 312
//*       FTPB@       02.24   2019/07/02 11:23    692 MSWORD        *   FILE 312
//*       FTPFROMZ    01.00   2004/05/23 08:07   1131 SYSLBD        *   FILE 312
//*       FTPFROZC    01.00   2004/05/23 08:06     22 SYSLBD        *   FILE 312
//*       GENSUB      01.00   2002/02/19 10:39    188 SYSLBD        *   FILE 312
//*       GET         01.00   2000/02/16 16:49     88 SYSLBD        *   FILE 312
//*       GETIPLDT    01.00   2022/11/28 10:23     60 LBDYCK        *   FILE 312
//*       HIDELINE    01.00   2016/04/04 11:55     46 SYSLBD        *   FILE 312
//*       IDLIST      01.00   2016/11/08 10:35     62 SYSLBD        *   FILE 312
//*       IEBPDSE     01.12   2017/11/01 06:07    591 LBD           *   FILE 312
//*       IFTHENEL    01.00   2017/04/24 09:07     61 LBDYCK        *   FILE 312
//*       INEWS       01.09   2017/02/15 13:54   2691 SYSLBD        *   FILE 312
//*       IPLTCHK     01.00   2018/09/15 10:30    109 IPLTCHK       *   FILE 312
//*       IPLTCHK$    01.02   2018/09/15 11:59     40 IPLTCHK       *   FILE 312
//*       ISPFCMDS    01.01   2003/05/23 11:13    388 SYSLBD        *   FILE 312
//*       ISPFDEMO    01.00   2021/04/27 05:12    764 DEMO          *   FILE 312
//*       ISPFLLV     01.02   2022/05/29 13:37    672 ISPFLLV       *   FILE 312
//*       ISPFPRO$    01.00   2000/02/28 20:46    101 SYSLBD        *   FILE 312
//*       ISPFPROD    01.00   2000/08/21 17:40    429 SYSLBD        *   FILE 312
//*       LDAPMAI$    01.00   2000/11/22 10:54      6 WSBG          *   FILE 312
//*       LDAPMAIL    01.01   2003/08/27 10:31    344 SYSLBD        *   FILE 312
//*       LDAPMCHG    01.01   2003/08/26 14:45      6 SYSLBD        *   FILE 312
//*       LOADISPF    01.05   2019/01/09 06:55    324 ISPF          *   FILE 312
//*       LOG         01.00   2016/11/08 01:09    304 SYSLBD        *   FILE 312
//*       LOGARCH     01.01   2016/11/16 10:28    183 SYSLBD        *   FILE 312
//*       LOGIT       01.00   2004/04/20 11:45    458 LBDYCK        *   FILE 312
//*       LOGIT$      01.00   2004/04/20 11:45     84 LBDYCK        *   FILE 312
//*       LOGITCHG    01.00   2004/04/20 11:45     22 LBDYCK        *   FILE 312
//*       LOWER       01.01   2016/12/21 09:21     15 SYSLBD        *   FILE 312
//*       LPREDIT     01.01   2014/03/20 22:46     26 LBDYCK        *   FILE 312
//*       LPRPRINT    01.03   2018/02/14 07:48   1341 PRINT         *   FILE 312
//*       LPRPROLD    01.00   2014/03/21 10:56    421 LBDYCK        *   FILE 312
//*       LSTPRC      01.53   2008/11/01 22:12    817 SBGOLOB       *   FILE 312
//*       LSTPRC$     01.02   2018/02/16 14:32     19 SBGOLOB       *   FILE 312
//*       LSTPROC     03.04   2023/04/14 12:38    992 LSTPROC       *   FILE 312
//*       LSTPROC$    01.03   2016/04/19 14:16     10 SBGOLOB       *   FILE 312
//*       LSTPROC#    01.01   2016/11/16 10:30     24 LSTPROC       *   FILE 312
//*       LSTPROC@    01.00   2000/10/25 10:36     29 WSBG          *   FILE 312
//*       LSTPROC3    03.04   2018/09/27 14:24    812 FORJES3       *   FILE 312
//*       MGEN        01.01   2016/11/16 10:31     24 SYSLBD        *   FILE 312
//*       NETRC       01.02   2021/01/26 00:58    629 NETRC         *   FILE 312
//*       OMVSCMD     01.04   2023/09/26 14:03    469 OMVSCMD       *   FILE 312
//*       OMVSCOPY    02.18   2018/08/10 06:51   2595 OMVS          *   FILE 312
//*       OMVSLOG     01.02   2016/11/16 10:34    399 SYSLBD        *   FILE 312
//*       OMVSMAN     01.08   2021/06/07 11:46   1044 MAN           *   FILE 312
//*       OMVSPAX     01.02   2020/09/17 06:57   1185 PAX           *   FILE 312
//*       OMVSSEL     01.04   2018/08/16 07:37    869 OMVS          *   FILE 312
//*       ONCALL      01.00   2003/12/11 08:04    625 SYSLBD        *   FILE 312
//*       ONCALL#     01.00   2003/12/02 18:23     11 SYSLBD        *   FILE 312
//*       ONLY        01.07   2019/12/24 04:10    551 ONLY          *   FILE 312
//*       PACK        01.00   2016/04/17 18:21    660 TRSMAIN       *   FILE 312
//*       PDS2PDSE    01.03   2021/05/31 12:55    798 P2PE          *   FILE 312
//*       PDS2SEQ     01.02   2016/07/03 10:19    154 WSYNGUD       *   FILE 312
//*       PDS2SEQ$    01.01   2016/11/07 23:29     21 SYSLBD        *   FILE 312
//*       PLPISPF     01.51   2020/02/18 10:16   4364 XMIT          *   FILE 312
//*       PLPISPF$    01.49   2020/02/18 10:17    217 PLP           *   FILE 312
//*       PLPISPF#    01.29   2016/04/03 18:42   3369 PDF           *   FILE 312
//*       PLPISPF@    01.29   2016/04/03 18:42   1172 MSWORD        *   FILE 312
//*       PNS         01.00   2016/12/08 10:51     93 SYSLBD        *   FILE 312
//*       PRMCK       02.08   2021/10/01 06:59   2781 PRMCK         *   FILE 312
//*       PRMCK$      01.09   2018/09/13 05:40     50 PRMCK         *   FILE 312
//*       PRMCK#      01.00   1999/11/11 11:32      9 SYSLBD        *   FILE 312
//*       PSPRINT     01.02   2015/04/30 16:13    567 LBDYCK        *   FILE 312
//*       PSPRINTO    01.00   2014/03/21 11:02    553 LBDYCK        *   FILE 312
//*       QTAB        03.02   2023/04/03 12:58    787 LBDYCK        *   FILE 312
//*       RANDSTR     01.02   2018/02/27 06:16    151 LBD           *   FILE 312
//*       RELPDSE     01.05   2023/01/04 08:11    135 RELPDSE       *   FILE 312
//*       REXXDOC     01.00   2001/01/05 11:31    265 SYSLBD        *   FILE 312
//*       REXXER      01.10   2020/10/28 05:15    408 SLBD          *   FILE 312
//*       REXXFORM    01.04   2017/04/26 09:52    515 LBD           *   FILE 312
//*       REXXTRY     01.00   2000/11/08 18:46    187 REXXTRY       *   FILE 312
//*       REXXTRY$    01.00   2000/11/08 18:46     78 REXXTRY       *   FILE 312
//*       REXXTRY#    01.00   2000/11/08 18:56      9 WSBG          *   FILE 312
//*       REXXTRY@    01.00   2000/11/08 18:46     35 REXXTRY       *   FILE 312
//*       REXXTRYA    01.00   2000/12/26 17:20     77 REXXTRY       *   FILE 312
//*       REXXWAIT    01.00   2000/02/16 16:59    207 SBGOLOB       *   FILE 312
//*       RUNC        06.01   2020/07/30 06:27   8567 RUNC          *   FILE 312
//*       RUNCPP      01.00   2016/11/06 21:42   3159 POWERPT       *   FILE 312
//*                                                                 *   FILE 312
//*       ** Note: WORD members may require replying YES to         *   FILE 312
//*                Microsoft Word document recovery to open.        *   FILE 312
//*                                                                 *   FILE 312
//*  Member $DOC - basic information                                *   FILE 312
//*                                                                 *   FILE 312
//*  Member ALIGN - added 12/31/19                                  *   FILE 312
//*                                                                 *   FILE 312
//*         ISPF Edit Macro to Align the text on the                *   FILE 312
//*         specified line or lines.                                *   FILE 312
//*                                                                 *   FILE 312
//*          Options:                                               *   FILE 312
//*          ? display help                                         *   FILE 312
//*          C ll - strip and center                                *   FILE 312
//*          F ll - flow text to line length(ll)                    *   FILE 312
//*          L - strip and left justify                             *   FILE 312
//*          R - strip and right justify                            *   FILE 312
//*          V - strip and reverse text                             *   FILE 312
//*                                                                 *   FILE 312
//*          Optional for C is ll for line length                   *   FILE 312
//*          e.g. ALIGN C 65                                        *   FILE 312
//*               To align center for a width of 65                 *   FILE 312
//*                                                                 *   FILE 312
//*          Select row/rows using C/CC                             *   FILE 312
//*                                                                 *   FILE 312
//*  Member ALTLIBST - added 2022/01/30                             *   FILE 312
//*                                                                 *   FILE 312
//*      Nice display of active ALTLIB allocations with dsnames.    *   FILE 312
//*                                                                 *   FILE 312
//*  Member ADDCOMMA - added 2022/12/09                             *   FILE 312
//*                                                                 *   FILE 312
//*      Sample REXX to add commas to a number                      *   FILE 312
//*         - 999999 to 999,999                                     *   FILE 312
//*                                                                 *   FILE 312
//*  Member CONCATIT - added 8/23/2020                              *   FILE 312
//*                                                                 *   FILE 312
//*      ALLOCADD and DEALLOC are a combination of REXX exec's      *   FILE 312
//*      that provide the ability to add a dataset(s), or remove    *   FILE 312
//*      a dataset from an existing DD allocation.                  *   FILE 312
//*                                                                 *   FILE 312
//*      CONCATIT combines ALLOCADD and DEALLOC with a List option  *   FILE 312
//*      to provide a single exec instead of multiple.              *   FILE 312
//*                                                                 *   FILE 312
//*  Member BACKDIR - added 07/11/17                                *   FILE 312
//*                                                                 *   FILE 312
//*     OMVS utility written in rexx to backup complete directories *   FILE 312
//*                                                                 *   FILE 312
//*  Member BODY    - added 02/29/20                                *   FILE 312
//*                                                                 *   FILE 312
//*     ISPF Edit macro to report on the size of the BODY section   *   FILE 312
//*     of a panel. Also recommends window size and addpop parms.   *   FILE 312
//*                                                                 *   FILE 312
//*  Member CAVXTRT                                                 *   FILE 312
//*         - Updated 1/23/19 for CAView 14.x                       *   FILE 312
//*                                                                 *   FILE 312
//*     This dialog is intended as a more user friendly interface   *   FILE 312
//*     to the reports. The options available with this dialog      *   FILE 312
//*     are:                                                        *   FILE 312
//*                                                                 *   FILE 312
//*             - Broswe a report (using ISPF Browse)               *   FILE 312
//*             - View a report (using ISPF View)                   *   FILE 312
//*             - Copy a report to a dataset                        *   FILE 312
//*             - Mail a report (using XMITIP)                      *   FILE 312
//*             - Print a report                                    *   FILE 312
//*             - Transfer a report to a workstation                *   FILE 312
//*             - Load a report from CA-View tape to CA-View disk   *   FILE 312
//*                                                                 *   FILE 312
//*     This code has been tested on OS/390 2.10 and z/OS 1.9       *   FILE 312
//*     with CA-View and CA-View 11.0. It is slightly (does a       *   FILE 312
//*     dynamic lookup) dependent upon the report format            *   FILE 312
//*     generated by SARBCH with the /LIST statement If this        *   FILE 312
//*     report format changes then the code which parses the        *   FILE 312
//*     report will have to be changed.                             *   FILE 312
//*                                                                 *   FILE 312
//*  Member CHGSTR (added 10/13/2022)                               *   FILE 312
//*                                                                 *   FILE 312
//*     CHGSTR is a simple rexx function for use on z/OS that       *   FILE 312
//*     provides most of the capabilities of the ANSI Standard      *   FILE 312
//*     REXX CHANGESTR function.                                    *   FILE 312
//*                                                                 *   FILE 312
//*  Member CHKIKJ (update 06/15/2017)                              *   FILE 312
//*                                                                 *   FILE 312
//*     CHKIKJ is a quick/dirty ispf dialog to compare the ibm      *   FILE 312
//*     samplib version of ikjtso00 to what is actually running     *   FILE 312
//*     on the active lpar.                                         *   FILE 312
//*                                                                 *   FILE 312
//*     TSO Transmit format member (so receive it).                 *   FILE 312
//*                                                                 *   FILE 312
//*  Member CHKLPALK                                                *   FILE 312
//*                                                                 *   FILE 312
//*     REXX exec to check all LPALIST and LINKLIST datasets for    *   FILE 312
//*     extents and report on same.                                 *   FILE 312
//*                                                                 *   FILE 312
//*  Member CMDS                                                    *   FILE 312
//*                                                                 *   FILE 312
//*     This data set contains an ISPF Dialog that simplifies the   *   FILE 312
//*     processing of the ISPF command tables.                      *   FILE 312
//*                                                                 *   FILE 312
//*  Member CSVEDIT                                                 *   FILE 312
//*                                                                 *   FILE 312
//*     CSVEDIT - an ISPF Edit Macro designed to convert the        *   FILE 312
//*     current EDIT data set into a comma separated value data     *   FILE 312
//*     set which can then be imported into a spreadsheet or        *   FILE 312
//*     database.                                                   *   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. **Ancient**    *   FILE 312
//*                                                                 *   FILE 312
//*  Member DROPISPF (added 12/06/2018)                             *   FILE 312
//*                                                                 *   FILE 312
//*     Companion to LOADISPF (thanks to John Kalinich)             *   FILE 312
//*                                                                 *   FILE 312
//*  Member DSFSADM (updated 10/14/2023)                            *   FILE 312
//*                                                                 *   FILE 312
//*     A simple ISPF menu dialog with 3 entry points:              *   FILE 312
//*           A - Administration (z/OS commands and dsadm commands) *   FILE 312
//*           D - dsadm commands for admin                          *   FILE 312
//*           U - user dsadm commands                               *   FILE 312
//*                                                                 *   FILE 312
//*     DSFS, or Data Set File System, provides OMVS shell users    *   FILE 312
//*     with Unix-like access to z/OS datasets (ps, pds, pdse).     *   FILE 312
//*                                                                 *   FILE 312
//*     This dialog helps those who administer DSFS to find which   *   FILE 312
//*     command to use, and helps them issue it, for something they *   FILE 312
//*     probably won't be doing frequently.                         *   FILE 312
//*                                                                 *   FILE 312
//*     See the excellent IBM DSFS publications for more details    *   FILE 312
//*     and specifics on the commands.                              *   FILE 312
//*                                                                 *   FILE 312
//*  Member EDITMAC (added 07/30/2020)                              *   FILE 312
//*                                                                 *   FILE 312
//*        Execute an inline ISPF Edit macro                        *   FILE 312
//*                                                                 *   FILE 312
//*  Member EDSL (updated 12/09/2020)                               *   FILE 312
//*                                                                 *   FILE 312
//*        ISPF Enhanced Data Set List. Works with Personal         *   FILE 312
//*        Data Set Lists (DSList, ISPF 3.4) and more.              *   FILE 312
//*                                                                 *   FILE 312
//*  Member EMAC (update 8/25/2021)                                 *   FILE 312
//*                                                                 *   FILE 312
//*        ISPF Edit Macro (command) to display a selection         *   FILE 312
//*        list of edit macros to the user from which the user      *   FILE 312
//*        can select to execute the command or display any help.   *   FILE 312
//*        Cursor placement and/or row selection(s) supported.      *   FILE 312
//*                                                                 *   FILE 312
//*        An excellent example of a scrollable data entry field    *   FILE 312
//*        on the popup for macro parms (thanks John K.).           *   FILE 312
//*                                                                 *   FILE 312
//*        The tutorial panel and parm prompt popup panels show     *   FILE 312
//*        the PF Keys that are defined for Left/Right/ZEXPand.     *   FILE 312
//*                                                                 *   FILE 312
//*        Only works under ISPF Edit/View and will display its     *   FILE 312
//*        tutorial if called otherwise.                            *   FILE 312
//*                                                                 *   FILE 312
//*  Member EXTISPF  - added 05/18/2018                             *   FILE 312
//*                                                                 *   FILE 312
//*        Can be used to extract the embedded ISPF elements        *   FILE 312
//*        from the exec's where I use the LOADISPF process.        *   FILE 312
//*                                                                 *   FILE 312
//*  Member EZMENU   - updated 23/04/11                             *   FILE 312
//*                                                                 *   FILE 312
//*        A *new* simple way to create an ISPF Menu by using       *   FILE 312
//*        a easy to create and manage set of records. No more      *   FILE 312
//*        ISPF Panel coding.                                       *   FILE 312
//*                                                                 *   FILE 312
//*  Member FASTPATH - updated 7/28/2322                            *   FILE 312
//*        - new packaging and enhancements                         *   FILE 312
//*                                                                 *   FILE 312
//*        Display a selection list of all Selectable               *   FILE 312
//*        commands in the ISPCMDS ISPF Command Table               *   FILE 312
//*        and in the System and User command tables                *   FILE 312
//*        along with the commands in the current application       *   FILE 312
//*        command table.  This command will:                       *   FILE 312
//*                                                                 *   FILE 312
//*        1.  Provide the user with information on                 *   FILE 312
//*            fast path commands available.                        *   FILE 312
//*        2.  Simplify access to fast path commands.               *   FILE 312
//*        3.  Provide a pseudo-menu to ISPF command                *   FILE 312
//*            functions.                                           *   FILE 312
//*        4.  If a tutorial panel exists for the command           *   FILE 312
//*            of the format $ followed by the first 7              *   FILE 312
//*            characters of the command name, it will be           *   FILE 312
//*            displayed if the user selects the command            *   FILE 312
//*            with 'H' or via PF1(Help) on the pop-up              *   FILE 312
//*            menu if the command has options.                     *   FILE 312
//*        5.  Generate a Report of all commands.                   *   FILE 312
//*                                                                 *   FILE 312
//*  Member FINDDDM                                                 *   FILE 312
//*         - added 5/9/19                                          *   FILE 312
//*                                                                 *   FILE 312
//*   Function: Find specified member in the specified DDname       *   FILE 312
//*             concatenation.                                      *   FILE 312
//*                                                                 *   FILE 312
//*   Usage:    called from a rexx or clist                         *   FILE 312
//*                                                                 *   FILE 312
//*             library = findddm()                                 *   FILE 312
//*                                                                 *   FILE 312
//*             library will contain a count of dsnames found for   *   FILE 312
//*             the dd followed by the dsnames                      *   FILE 312
//*                                                                 *   FILE 312
//*  Member FINDDSN                                                 *   FILE 312
//*         - added 5/9/19                                          *   FILE 312
//*                                                                 *   FILE 312
//* Function: Find the datasets allocted to a specified ddname      *   FILE 312
//*                                                                 *   FILE 312
//* Usage:    called from a rexx or clist                           *   FILE 312
//*                                                                 *   FILE 312
//*           library = finddsn(ddname)                             *   FILE 312
//*                                                                 *   FILE 312
//*           library will contain a count of dsnames found for     *   FILE 312
//*           the dd followed by the dsnames                        *   FILE 312
//*                                                                 *   FILE 312
//*           For example:                                          *   FILE 312
//*                                                                 *   FILE 312
//*           xx=finddsn(ispmlib);say xx                            *   FILE 312
//*            2 ISP.SISPMENU SYS1.PROD.ISPMENU                     *   FILE 312
//*                                                                 *   FILE 312
//*  Member FIXKEYS - This member is in TSO XMIT format.            *   FILE 312
//*                   Updated 12/30/19                              *   FILE 312
//*                                                                 *   FILE 312
//*     This is an ISPF command that makes it easy to change PF     *   FILE 312
//*     Key defaults for ALL current ISPF profiles in the users     *   FILE 312
//*     ISPF Profile data set. The current Profile data set         *   FILE 312
//*     is backed up before processing.                             *   FILE 312
//*                                                                 *   FILE 312
//*     - supports changing up to 8 PF Keys at once                 *   FILE 312
//*     - does not affects dialogs with KEYLISTs                    *   FILE 312
//*     - only changes the keys for profiles in the user            *   FILE 312
//*       profile data set and thus may need to be run              *   FILE 312
//*       when new applications (and thus new profiles)             *   FILE 312
//*       are added.                                                *   FILE 312
//*     - when changing the SDSF profile change RETREIVE            *   FILE 312
//*       to CRETRIEV and RFIND to IFIND                            *   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
//*             (updated 03/17/2023)                                *   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 GETIPLDT - added 11/28/2022                             *   FILE 312
//*                                                                 *   FILE 312
//*     A simple exec, using SDSF REXX, to issue commands on all    *   FILE 312
//*     LPARs within a SYSPLEX and report the IPL Date/Time and     *   FILE 312
//*     z/OS release for each active LPAR.                          *   FILE 312
//*                                                                 *   FILE 312
//*  Member IEBPDSE - updated 11/01/17 V1.3                         *   FILE 312
//*                                                                 *   FILE 312
//*     A simple ISPF dialog to run IBM's IEBPDSE against your      *   FILE 312
//*     PDSE datasets.                                              *   FILE 312
//*                                                                 *   FILE 312
//*  Member IFTHENEL - ISPF Edit macro                              *   FILE 312
//*                                                                 *   FILE 312
//*     Very simple edit macro to display all if/then/else          *   FILE 312
//*     do/select/when/otherwise/end statements while hiding        *   FILE 312
//*     all others.                                                 *   FILE 312
//*                                                                 *   FILE 312
//*  Member INEWS - This member is in IEBUPDTE SYSIN format.        *   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
//*     INEWS is entered by executing the Rexx procedure INEWS      *   FILE 312
//*     and providing one or more of the valid parameters:          *   FILE 312
//*                                                                 *   FILE 312
//*     Syntax:   INEWS parameters                                  *   FILE 312
//*                                                                 *   FILE 312
//*     Required Parameters:                                        *   FILE 312
//*                                                                 *   FILE 312
//*         NEWS      Defines that INEWS will use the NEWS set      *   FILE 312
//*                   of tables, panels, and skeletons.             *   FILE 312
//*         'other'   Must be defined by the installation as        *   FILE 312
//*                   alternative to NEWS.                          *   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 IPLTCHK (added 09/14/2018)                              *   FILE 312
//*                                                                 *   FILE 312
//*        -------------------------------------------------------  *   FILE 312
//*        This REXX helps solve the problem of which DASD volumes  *   FILE 312
//*        connected to your system, contain IPL text, and what     *   FILE 312
//*        IPL text do they contain?                                *   FILE 312
//*        -------------------------------------------------------  *   FILE 312
//*        You don't have to dump Track 0 for ALL of your volumes,  *   FILE 312
//*        but you can FILTER the volser's for strings with volume  *   FILE 312
//*        names that you want to look at.  See syntax below.       *   FILE 312
//*        -------------------------------------------------------  *   FILE 312
//*                                                                 *   FILE 312
//*        Function:  Generate ADRDSSU Step and control cards to    *   FILE 312
//*                   print the first track of the selected disk    *   FILE 312
//*                   volumes.                                      *   FILE 312
//*                                                                 *   FILE 312
//*                   The main purpose is to find the disk          *   FILE 312
//*                   volumes that have IPL Text installed on       *   FILE 312
//*                   them and help to identify which type of IPL   *   FILE 312
//*                   Text using the trusted, real-time,            *   FILE 312
//*                   reliable, always available, and free          *   FILE 312
//*                   utility IEB-EYE-BALL to review.               *   FILE 312
//*                                                                 *   FILE 312
//*        Syntax:    %ipltchk filter(s)                            *   FILE 312
//*                                                                 *   FILE 312
//*                   filters are any strings that must be found    *   FILE 312
//*                   within the volser to be used.                 *   FILE 312
//*                                                                 *   FILE 312
//*        Usage:  Execute with, or without a filter, to generate   *   FILE 312
//*                the ADRDSSU JCL and control statements to        *   FILE 312
//*                print track 0 for the requested volumes. At      *   FILE 312
//*                the end of use the user is placed into ISPF      *   FILE 312
//*                Edit on the results and may then insert a JOB    *   FILE 312
//*                card, tailor however they wish, and submit it.   *   FILE 312
//*                Then review the OUTPUT DD Sysout for the         *   FILE 312
//*                information.                                     *   FILE 312
//*                                                                 *   FILE 312
//*        Dependencies:  DUDASD is required from CBT Tape File 612 *   FILE 312
//*                                                                 *   FILE 312
//*  Member ISPFCMDS                                                *   FILE 312
//*                                                                 *   FILE 312
//*     ISPFCMDS is a utility ISPF command that eases the task      *   FILE 312
//*     of adding installation or user commands to an active        *   FILE 312
//*     ISPF command table. This can eliminaate the requirement     *   FILE 312
//*     to customize the IBM provided ISPF command table or to      *   FILE 312
//*     create elaborate Site or User ISPF command table.           *   FILE 312
//*                                                                 *   FILE 312
//*   Syntax                                                        *   FILE 312
//*                                                                 *   FILE 312
//*     The syntax for calling ISPFCMDS is:                         *   FILE 312
//*                                                                 *   FILE 312
//*        %ISPFCMDS table verb truncation action                   *   FILE 312
//*                                                                 *   FILE 312
//*     Where:                                                      *   FILE 312
//*                                                                 *   FILE 312
//*     table is USER to add the command to the User Command table  *   FILE 312
//*              SITE to add the command to the Site table          *   FILE 312
//*              ISPF to add the command to the ISPCMDS table       *   FILE 312
//*                    note that this option is not recommended     *   FILE 312
//*              * to add the command to one of the following       *   FILE 312
//*                        in this order:                           *   FILE 312
//*                        1) USER                                  *   FILE 312
//*                        2) SITE                                  *   FILE 312
//*                        3) the active Application command table  *   FILE 312
//*                        4) ISPCMDS                               *   FILE 312
//*                                                                 *   FILE 312
//*     verb  is the name of the command to add to the table. This  *   FILE 312
//*                   must be from 1 to 8 alphanumeric characters.  *   FILE 312
//*                                                                 *   FILE 312
//*     truncation is the number of characters which the command    *   FILE 312
//*                   can be abbreviated or 0 to indicate no        *   FILE 312
//*                   abbreviation                                  *   FILE 312
//*                                                                 *   FILE 312
//*     action is a valid ISPF Select command                       *   FILE 312
//*                                                                 *   FILE 312
//*  Member ISPFDEMO  (Added 04/27/2021)                            *   FILE 312
//*                                                                 *   FILE 312
//*    Create a ISPF dialog demo that demonstrates panel flow.      *   FILE 312
//*                                                                 *   FILE 312
//*  Member ISPFLLV   (Added 05/29/2022)                            *   FILE 312
//*                                                                 *   FILE 312
//*    Tool to View both ISPLIST and ISPLOG when those are          *   FILE 312
//*    allocate to SYSOUT. Uses the SDSF REXX API and optionally    *   FILE 312
//*    STEMEDIT (file 895)                                          *   FILE 312
//*                                                                 *   FILE 312
//*  Member LOADISPF  (updated 01/09/2019)                          *   FILE 312
//*                                                                 *   FILE 312
//*    LOADISPF is a rexx routine to be copied into your            *   FILE 312
//*    rexx code that supports placing all ISPF elements            *   FILE 312
//*    (panels, messages, skeletons, clists, and rexx)              *   FILE 312
//*    inline in your REXX exec. It will, when called,              *   FILE 312
//*    scan your source code and dynamically allocate               *   FILE 312
//*    temporary datasets and then altlib or libdef to              *   FILE 312
//*    them.                                                        *   FILE 312
//*                                                                 *   FILE 312
//*  Member LOWER   - Simple REXX function written in REXX to       *   FILE 312
//*                   return a string in lowercase:                 *   FILE 312
//*                                                                 *   FILE 312
//*                   lcase = lower('STRING')                       *   FILE 312
//*                                                                 *   FILE 312
//*  Member LSTPROC - REXX Exec to list PROCLIB libraries and       *   FILE 312
//*                   invoke ISRDDN.                                *   FILE 312
//*                    ** updated 2023/04/14 **                     *   FILE 312
//*                                                                 *   FILE 312
//*  Member LSTPROC3 - version of LSTPROC for JES3 shops            *   FILE 312
//*                    ** updated 9/27/18 **                        *   FILE 312
//*                                                                 *   FILE 312
//*  Member MGEN - simple rexx exec to display the system           *   FILE 312
//*                maxgen limit. Demonstrates how to find           *   FILE 312
//*                the value.                                       *   FILE 312
//*                                                                 *   FILE 312
//*  Member OMVSCMD - This member is in TSO XMIT format.            *   FILE 312
//*         ** Updated 09/26/2024                                   *   FILE 312
//*                                                                 *   FILE 312
//*    Copy the OMVSCMD member from this library into a library     *   FILE 312
//*    in your SYSEXEC, or SYSPROC, allocations and enjoy.          *   FILE 312
//*                                                                 *   FILE 312
//*    Function:  Issue a OMVS command for the passed option        *   FILE 312
//*               or prompt for a command.  Then display the        *   FILE 312
//*               results in ISPF Browse.                           *   FILE 312
//*                                                                 *   FILE 312
//*               If no command is provided then a popup panel      *   FILE 312
//*               appears to prompt for the OMVS command.           *   FILE 312
//*                                                                 *   FILE 312
//*    Syntax:    %OMVSCMD command                                  *   FILE 312
//*               or                                                *   FILE 312
//*               %OMVSCMD -E command  (to Edit the results)        *   FILE 312
//*                                                                 *   FILE 312
//*    Usage:     Best used when added to the site ISPF             *   FILE 312
//*               command table:                                    *   FILE 312
//*                                                                 *   FILE 312
//*               Verb:   ocmd                                      *   FILE 312
//*               T:      0                                         *   FILE 312
//*               Action: select cmd(%OMVSCMD &zparm)               *   FILE 312
//*                                                                 *   FILE 312
//*               Then the user can enter:  ocmd xxx                *   FILE 312
//*                                                                 *   FILE 312
//*    Member OMVSCOPY - Updated 08/10/2018                         *   FILE 312
//*                                                                 *   FILE 312
//*    OMVSCOPY contains the following members:                     *   FILE 312
//*                                                                 *   FILE 312
//*    OMVSCOPY  - The ISPF front-end to the TSO OCOPY Command      *   FILE 312
//*    OCOPYO    - Sample JCL: copy from OMVS file to z/OS data set *   FILE 312
//*    OCOPYZ    - Sample JCL: copy from z/OS data set to OMVS file *   FILE 312
//*                                                                 *   FILE 312
//*    OMVSCOPY is an ISPF front-end to the TSO OCOPY command       *   FILE 312
//*    designed to make it easy to copy an z/OS data set to an OMVS *   FILE 312
//*    file and vice versa.  OMVSCOPY supports both foreground and  *   FILE 312
//*    batch execution. When the Batch option is selected, it will  *   FILE 312
//*    dynamically generate the batch JCL and allow the user to     *   FILE 312
//*    Edit it prior to submission, or the user can copy the JCL to *   FILE 312
//*    a permanent JCL data set for modification and reuse.         *   FILE 312
//*                                                                 *   FILE 312
//*    OMVSCOPY is an ISPF front end to the IBM TSO OCOPY command   *   FILE 312
//*    and will:                                                    *   FILE 312
//*                                                                 *   FILE 312
//*    1. copy a z/OS data set to an OMVS file                      *   FILE 312
//*    2. copy an OMVS file to a z/OS data set                      *   FILE 312
//*    3. supports an ISPF 3.17 like interface to find and select   *   FILE 312
//*       the desired OMVS file to copy                             *   FILE 312
//*    4. supports a ISPF 3.4 like interface to find and select the *   FILE 312
//*       desired z/OS data set to copy                             *   FILE 312
//*    5. supports a member selection list interface to find and    *   FILE 312
//*       select the desired PDS member to copy                     *   FILE 312
//*    6. Foreground and Batch execution is supported with the      *   FILE 312
//*       Batch mode generating JCL, presented under ISPF Edit, to  *   FILE 312
//*       the user to submit or to copy for later use.              *   FILE 312
//*    7. Support for SuperUser (foreground only)                   *   FILE 312
//*                                                                 *   FILE 312
//*    While using the ISPF dialog the input supports               *   FILE 312
//*    special processing:                                          *   FILE 312
//*                                                                 *   FILE 312
//*       - hlq.xxx.*    Results in a selection list of available   *   FILE 312
//*                      data sets                                  *   FILE 312
//*       - hlq.xxx.pds  Results in a selection list of members     *   FILE 312
//*       - /u/          Results in a selection list of OMVS files  *   FILE 312
//*                      similar to ISPF 3.17                       *   FILE 312
//*                                                                 *   FILE 312
//*    When in the OMVS file selection display the user can use L   *   FILE 312
//*    to open a directory, including using L on the .. directory   *   FILE 312
//*    to move up one level.  The CD command may also be used to go *   FILE 312
//*    directy to a directory. And the ~ may be used to indicate    *   FILE 312
//*    the users home directory.                                    *   FILE 312
//*                                                                 *   FILE 312
//*    The sample JCL members are for those who prefer to do the    *   FILE 312
//*    copy in batch.                                               *   FILE 312
//*                                                                 *   FILE 312
//*    Member OMVSMAN - updated 06/07/21                            *   FILE 312
//*                                                                 *   FILE 312
//*    OMVSMAN is an ISPF dialog that will list all of the known    *   FILE 312
//*    OMVS man pages in an ISPF Table. The manpage and description *   FILE 312
//*    is displayed. The user can select a manpage to be displayed  *   FILE 312
//*    in ISPF Browse or View.                                      *   FILE 312
//*                                                                 *   FILE 312
//*    The REXX code contains the ISPF Panels and Message inline    *   FILE 312
//*    so this is easy to install and use.                          *   FILE 312
//*                                                                 *   FILE 312
//*    Member OMVSPAX - this member is in TSO XMIT format.          *   FILE 312
//*               ** Updated 09/17/2020                             *   FILE 312
//*                                                                 *   FILE 312
//*    This member, when received using TSO RECEIVE, will be a      *   FILE 312
//*    PDS with the package.  Member $DOC is additional             *   FILE 312
//*    documentation, Member $RECV will receive the EXEC and        *   FILE 312
//*    PANELS members to create an EXEC and PANELS library.         *   FILE 312
//*                                                                 *   FILE 312
//*    OMVSPAX is a package of three small ISPF dialogs             *   FILE 312
//*    written in REXX to simplify the backup and restoration       *   FILE 312
//*    of a omvs directory.                                         *   FILE 312
//*     The dialogs are:                                            *   FILE 312
//*                                                                 *   FILE 312
//*         OMVSPAXB  - backup a omvs directory using pax to a      *   FILE 312
//*                     z/OS dataset.                               *   FILE 312
//*         OMVSPAXL  - list the contents of a backup pax z/OS      *   FILE 312
//*                     dataset.                                    *   FILE 312
//*         OMVSPAXR  - restore a pax z/OS backup dataset to        *   FILE 312
//*                     the original omvs directory or another      *   FILE 312
//*                     directory providing it exists               *   FILE 312
//*                                                                 *   FILE 312
//*     To invoke the dialogs:                                      *   FILE 312
//*                                                                 *   FILE 312
//*         1. Must be under ISPF                                   *   FILE 312
//*         2. From ISPF 6 enter %OMVSPAX?   Where ? is B/L/R       *   FILE 312
//*         3. From any ISPF command line enter:  TSO %OMVSPAX?     *   FILE 312
//*                                                                 *   FILE 312
//*  Member OMVSSEL - ISPF REXX Subroutine to Select OMVS Files     *   FILE 312
//*               ** Updated 08/16/2018                             *   FILE 312
//*                                                                 *   FILE 312
//*     Very useful subroutine for use in REXX under ISPF to        *   FILE 312
//*     select an OMVS file from a ISPF 3.17 like display for       *   FILE 312
//*     processing.                                                 *   FILE 312
//*                                                                 *   FILE 312
//*  Member ONCALL - Generate an oncall rotation schedule           *   FILE 312
//*                                                                 *   FILE 312
//*    I have a new tool that is on my beta page that you           *   FILE 312
//*    all might find interesting.  It will generate an             *   FILE 312
//*    oncall rotation for your group and optionally e-mail         *   FILE 312
//*    (using xmitip) the rotation list along with an               *   FILE 312
//*    icalendar file that can be used to add the oncall            *   FILE 312
//*    information to each individuals calendar.                    *   FILE 312
//*                                                                 *   FILE 312
//*  Member ONLY                                                    *   FILE 312
//*               ** Updated 12/24/2019                             *   FILE 312
//*                                                                 *   FILE 312
//*    ISPF Edit ONLY command to hide all records and expose only   *   FILE 312
//*    those that match the provided criteria.                      *   FILE 312
//*                                                                 *   FILE 312
//*  Member PDS2PDSE  - TSO command (REXX) to convert a PDS         *   FILE 312
//*                     to a PDSE with member generations           *   FILE 312
//*               ** Updated 2020-05-31                             *   FILE 312
//*                                                                 *   FILE 312
//*     Syntax: pds2pdse from-pds to-pdse mg(nnn) vol(vvv) swap     *   FILE 312
//*                                                                 *   FILE 312
//*     mg is the maxgen limit - defaults to system limit           *   FILE 312
//*     swap will rename the datasets after the alloc/copy          *   FILE 312
//*                                                                 *   FILE 312
//*     * Requires the PDS command (file 182)                       *   FILE 312
//*                                                                 *   FILE 312
//*  Member PLPISPF - A Dynamic ISPF Menu System                    *   FILE 312
//*               ** Updated 10/16/2018                             *   FILE 312
//*                                                                 *   FILE 312
//*     PLPISPF, or PLP for short, is a dynamic ISPF menuing        *   FILE 312
//*     system. PLP is short for Product Launch Point. It has       *   FILE 312
//*     a full ISPF menu driven administrative component that       *   FILE 312
//*     allows the admin to define the application name, profile,   *   FILE 312
//*     load library, clist/exec library, other ispf libraries,     *   FILE 312
//*     and optionally additional DD's to allocate. Then the        *   FILE 312
//*     call using TSO command, ISPF command, or ISPF Panel.        *   FILE 312
//*                                                                 *   FILE 312
//*  Member PNS - a short text document                             *   FILE 312
//*                                                                 *   FILE 312
//*     Attempts to document how to use point and shoot fields      *   FILE 312
//*     in ISPF dialogs.                                            *   FILE 312
 /*                                                                 *   FILE 312
//*  Member PRINT - This member is in TSO XMIT format.              *   FILE 312
//*               ** Updated 2/14/18 **                             *   FILE 312
//*                                                                 *   FILE 312
//*     This member contains 2 ISPF dialogs:                        *   FILE 312
//*                                                                 *   FILE 312
//*     LPREDIT  - ISPF Edit command to invoke LPRPRINT             *   FILE 312
//*                                                                 *   FILE 312
//*     LPRPRINT - used to print using the z/OS TCP/IP LPR          *   FILE 312
//*                command to any system with an LPD server.        *   FILE 312
//*                This includes intelligent printers which         *   FILE 312
//*                have LPD build-in. Now with message and panels   *   FILE 312
//*                inline.                                          *   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 3 rexx execs which are the entry       *   FILE 312
//*                points to the dialogs                            *   FILE 312
//*     MSGS     - ISPF messages for PSPRINT                        *   FILE 312
//*     PANELS   - ISPF panels, including brief tutorials, for      *   FILE 312
//*                the PSPRINT dialog                               *   FILE 312
//*                                                                 *   FILE 312
//*  Member PRMCK - Check the syntax of PARMLIB members.            *   FILE 312
//*         Updated 10/01/21                                        *   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
//*           -H  - display tutorial panel                          *   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 QTAB     - Updated 23/04/03                          *   FILE 312
//*                                                                 *   FILE 312
//*     Function:  ISPF Dialog to display all open ISPF tables      *   FILE 312
//*                with table stats with an option to display       *   FILE 312
//*                all table rows. Very useful to debug an ISPF     *   FILE 312
//*                application to see if it leaves any open         *   FILE 312
//*                tables when it ends.                             *   FILE 312
//*                                                                 *   FILE 312
//*                Updated to support row extension variables.      *   FILE 312
//*                                                                 *   FILE 312
//*     Member RANDSTR  - Updated 02/27/2018                        *   FILE 312
//*                                                                 *   FILE 312
//*     Function:  Generate a unique character string for use       *   FILE 312
//*                in an ISPF Table name, DDName, etc.              *   FILE 312
//*                                                                 *   FILE 312
//*                This is for ISPF dialogs that may run            *   FILE 312
//*                concurrently in either multiple split            *   FILE 312
//*                screens or stacked so as to prevent duplicate    *   FILE 312
//*                DD or ISPF table names.                          *   FILE 312
//*                                                                 *   FILE 312
//*                Or any length string with or without             *   FILE 312
//*                lowercase characters.                            *   FILE 312
//*                                                                 *   FILE 312
//*                Thus this can be used to generate a random       *   FILE 312
//*                password or passphrase                           *   FILE 312
//*                                                                 *   FILE 312
//*                This may also be used for any other need         *   FILE 312
//*                to have a unique character string that is        *   FILE 312
//*                a valid DDName, Member Name, etc.                *   FILE 312
//*                                                                 *   FILE 312
//*     Syntax:    x = randstr(n)                                   *   FILE 312
//*                                                                 *   FILE 312
//*                Where n is the number of characters to           *   FILE 312
//*                return, always starting with an alpha.           *   FILE 312
//*                                                                 *   FILE 312
//*                The default if not provided is 8                 *   FILE 312
//*                                                                 *   FILE 312
//*                If 'n' is preceded by L (e.g. L8) then           *   FILE 312
//*                50% of the characters will be lowercase          *   FILE 312
//*                                                                 *   FILE 312
//*  Member RELPDSE                                                 *   FILE 312
//*         - updated 01/04/2023                                    *   FILE 312
//*                                                                 *   FILE 312
//*    Invoke ADRDSSU to do a partial release of space in a PDSE.   *   FILE 312
//*    Thanks to code provided by Pedro Vera.                       *   FILE 312
//*                                                                 *   FILE 312
//*  Member REXXER                                                  *   FILE 312
//*         - added 10/28/20                                        *   FILE 312
//*                                                                 *   FILE 312
//*    Invoke REXX Compiler and only display error messages as      *   FILE 312
//*    an ISPF Edit Macro.                                          *   FILE 312
//*                                                                 *   FILE 312
//*  Member REXXFORM                                                *   FILE 312
//*                                                                 *   FILE 312
//*    REXXFORM is the z/OS ISPF Edit macro ported from the         *   FILE 312
//*    popular z/VM XEDIT REXXFORM command with several minor       *   FILE 312
//*    enhancements to take advantage of ISPF Edit capabilities.    *   FILE 312
//*                                                                 *   FILE 312
//*    REXXFORM is an ISPF edit macro used to format REXX           *   FILE 312
//*    EXECs by indenting DO and SELECT groups and                  *   FILE 312
//*    left-justifying lines at a selected column.  It also         *   FILE 312
//*    checks for unbalanced DO or SELECT statements.  One          *   FILE 312
//*    use of this ISPF edit macro is to uniformly                  *   FILE 312
//*    restructure REXX files after composing them without          *   FILE 312
//*    regard for any particular format or standard coding          *   FILE 312
//*    style.                                                       *   FILE 312
//*                                                                 *   FILE 312
//*  Member REXXTRY                                                 *   FILE 312
//*                                                                 *   FILE 312
//*    REXXTRY is from IBM's OS/2 and is an interactive             *   FILE 312
//*    way to experiment with any REXX command you care             *   FILE 312
//*    to try.                                                      *   FILE 312
//*                                                                 *   FILE 312
//*                                                                 *   FILE 312
//*  Member RUNC    - this member is in TSO XMIT format.            *   FILE 312
//*                   Updated 07/30/2020                            *   FILE 312
//*                                                                 *   FILE 312
//*    The RUNC ISPF Edit Command is only used within ISPF Edit     *   FILE 312
//*    and will execute any TSO commands found on the selected      *   FILE 312
//*    records within the active ISPF Edit data.                    *   FILE 312
//*                                                                 *   FILE 312
//*    No knowledge of CLIST, REXX, or JCL is required to use.      *   FILE 312
//*    But knowing TSO commands is helpful :-)                      *   FILE 312
//*                                                                 *   FILE 312
//*    NEW Capability to execute an Inline ISPF Edit Macro.         *   FILE 312
//*                                                                 *   FILE 312
//*    Syntax:  RUNC options                                        *   FILE 312
//*                                                                 *   FILE 312
//*    options may be:                                              *   FILE 312
//*                                                                 *   FILE 312
//*               blank (default)                                   *   FILE 312
//*               ? or HELP to display this info                    *   FILE 312
//*               n - must be the first option and will skip        *   FILE 312
//*                   the first n characters to find the command    *   FILE 312
//*               ? or HELP to display help information             *   FILE 312
//*              -A process all non-excluded command records        *   FILE 312
//*              -ALL process all non-excluded command records      *   FILE 312
//*              -B to browse the results using STEMEDIT            *   FILE 312
//*              -C to display log datasets                         *   FILE 312
//*              -D to insert messages as data in edit session      *   FILE 312
//*                 or -D(prefix) to prefix the inserted messages   *   FILE 312
//*              -L to log to a dataset (default defined in code)   *   FILE 312
//*              -LD to log to a sequential dataset                 *   FILE 312
//*              -LP to log to a partitioned dataset                *   FILE 312
//*              -LX to over-ride logging if defaulted in userdefs  *   FILE 312
//*              -N to insert messages as notelines in edit session *   FILE 312
//*              -O to change user default RUNC options             *   FILE 312
//*              -R to generate report if no messages generated     *   FILE 312
//*              -S nnn to stop if the return code exceeds nnn      *   FILE 312
//*              -T to not trap and let the results go to screen    *   FILE 312
//*              -V to view the results using STEMEDIT              *   FILE 312
//*                  default is to View                             *   FILE 312
//*              -W nnn to wrap text for -D/-N to nnn characters    *   FILE 312
//*                 if nnn is W will wrap to Edit data length       *   FILE 312
//*              ONLY(string) will search for the string (e.g. xyz) *   FILE 312
//*                 in the command string and if not found will     *   FILE 312
//*                 ignore that command.                            *   FILE 312
//*              PREFIX(string) will append the string to the       *   FILE 312
//*                 front of each command.                          *   FILE 312
//*              SUFFIX(string) will append the string to the       *   FILE 312
//*                 end of each command.                            *   FILE 312
//*                                                                 *   FILE 312
//*              ** PREFIX and SUFFIX apply only for TSO commands   *   FILE 312
//*                                                                 *   FILE 312
//*   Special control statements:                                   *   FILE 312
//*              </DOC> for a doc pop up panel          *   FILE 312
//*              <EXIT rc> to exit if return code >=                *   FILE 312
//*              <START><END> to define a range of commands         *   FILE 312
//*                                                                 *   FILE 312
//*              SET symbolic = value                               *   FILE 312
//*                                                                 *   FILE 312
//*    Dependencies: Requires STEMEDIT (copy included in package)   *   FILE 312
//*                  Optional EKKO (copy included in package)       *   FILE 312
//*                                                                 *   FILE 312
//*    Usage Notes: 1. Select records with TSO commands using       *   FILE 312
//*                    line tags, C, C#, or CC and CC,              *   FILE 312
//*                    or S, S#, SS and SS.                         *   FILE 312
//*                 2. Use the command option of -ALL to process    *   FILE 312
//*                    all non-excluded records for commands        *   FILE 312
//*                 3. Data lines starting with *, /*, //, or //*   *   FILE 312
//*                    or all blank will be ignored                 *   FILE 312
//*                    - use n to skip over *, /* , //, or //*      *   FILE 312
//*                 4. Excluded lines are also ignored              *   FILE 312
//*                 5. Commands may be continued on the next        *   FILE 312
//*                    record by using a + at the end of the        *   FILE 312
//*                    command for the record                       *   FILE 312
//*                 6. The data on the line will be executed        *   FILE 312
//*                    using the Address TSO command as a TSO       *   FILE 312
//*                    command, or ADDRESS ISPExec for ISPF         *   FILE 312
//*                    commands.                                    *   FILE 312
//*                 7. TSO and ISPF SELECT commands can be in any   *   FILE 312
//*                    record in the data.                          *   FILE 312
//*                 8. Not all TSO commands are trappable           *   FILE 312
//*                    - only those that use PUTLINE                *   FILE 312
//*                    - ISPF commands probably are not             *   FILE 312
//*                 9. Symbolics are supported in the command       *   FILE 312
//*                    using the syntax of &symbol. An ISPF         *   FILE 312
//*                    panel will be generated to prompt for        *   FILE 312
//*                    the symbolic values.                         *   FILE 312
//*                10. Use a symbolic at the end to allow entry     *   FILE 312
//*                    of additional command options                *   FILE 312
//*                11. Over 20 predefined symbolics supported       *   FILE 312
//*                                                                 *   FILE 312
//*     Sample Usage:                                               *   FILE 312
//*                                                                 *   FILE 312
//*        LISTD &dsn                                               *   FILE 312
//*        LISTC ENT(&dsn) ALL                                      *   FILE 312
//*        PDS &dsn                                                 *   FILE 312
//*        PDS MY.EXEC                                              *   FILE 312
//*        SELECT PANEL(&panel)                                     *   FILE 312
//*        SELECT PANEL(ISR@PRIM) +                                 *   FILE 312
//*               opt(&opt)                                         *   FILE 312
//*        BROWSE Dataset(xxx)                                      *   FILE 312
//*        BROWSE Dataset(xxx) Volume(volser)                       *   FILE 312
//*        BROWSE Member(xxx)                                       *   FILE 312
//*        Edit Dataset(xxx)                                        *   FILE 312
//*        Edit Dataset(xxx) Volume(volser)                         *   FILE 312
//*        Edit Member(xxx)                                         *   FILE 312
//*        View Dataset(xxx)                                        *   FILE 312
//*        View Dataset(xxx) Volume(volser)                         *   FILE 312
//*        View Member(xxx)                                         *   FILE 312
//*        Rename dataset volser from-member to-member              *   FILE 312
//*        Sleep nn                                                 *   FILE 312
//*        EJES ST                                                  *   FILE 312
//*        SDSF ST                                                  *   FILE 312
//*                                                                 *   FILE 312
//*    Then use the RUNC command on that dataset/member and use the *   FILE 312
//*    row selection commands to select the record(s) to process.   *   FILE 312
//*                                                                 *   FILE 312
//*    Included is the ERC (execute runc) command that is a ispf    *   FILE 312
//*    command to fast path to the commands dataset or pds member.  *   FILE 312
//*                                                                 *   FILE 312
//*    The symbolics in the sample commands will bring up an ISPF   *   FILE 312
//*    panel that will prompt the user to enter a value for each    *   FILE 312
//*    symbolic in the order that they are found within the         *   FILE 312
//*    command.                                                     *   FILE 312
//*                                                                 *   FILE 312
//* --------------------------------------------------------------- *   FILE 312
//*     Lionel B. Dyck                                              *   FILE 312
//*     email:   lbdyck@gmail.com                                   *   FILE 312
//*     github:  github.com/lbdyck                                  *   FILE 312
//*     website: www.lbdsoftware.com                                *   FILE 312
//* --------------------------------------------------------------- *   FILE 312
//*                                                                 *   FILE 312
//***FILE 313 is from Lionel Dyck in Austin, Texas and contains     *   FILE 313
//*           quite a few ISPF interface packages, and other        *   FILE 313
//*           stuff.                                                *   FILE 313
//*                                                                 *   FILE 313
//*           The member list probably more accurately reflects     *   FILE 313
//*           the contents of this file, than does the description  *   FILE 313
//*           of some details, below.  This file is constantly      *   FILE 313
//*           being revised.  For reference, please see Lionel's    *   FILE 313
//*           web site at:   http://www.lbdsoftware.com             *   FILE 313
//*                                                                 *   FILE 313
//*           email:  lbdyck@gmail.com                              *   FILE 313
//*           github:  github.com/lbdyck                            *   FILE 313
//*                                                                 *   FILE 313
//*    Lionel Dyck's large collection of utilities has now been     *   FILE 313
//*    divided between Files 312, 313, 314, and 969.  All member    *   FILE 313
//*    names beginning with A-R are on File 312.  Names beginning   *   FILE 313
//*    with S-TS are on File 313.  Names from TX-Z are on File      *   FILE 313
//*    314.  File 969 contains the PDSEGEN ISPF application to      *   FILE 313
//*    exploit the capabilities of using PDSE Version 2 member      *   FILE 313
//*    generations.                                                 *   FILE 313
//*                                                                 *   FILE 313
//*    These four files contain quite a few separate utility        *   FILE 313
//*    packages which are unrelated to each other.  You can tell    *   FILE 313
//*    which members of these files belong to the same utility      *   FILE 313
//*    package, by the similarities in their member names.          *   FILE 313
//*                                                                 *   FILE 313
//*    Some utility packages will have several member names         *   FILE 313
//*    associated with them.  But these should all be similar       *   FILE 313
//*    to each other, letting you know that they belong to the      *   FILE 313
//*    same utility package.  You can see this, by looking at       *   FILE 313
//*    the member list shown below, so you can get the idea         *   FILE 313
//*    about how this packaging arrangement works.                  *   FILE 313
//*                                                                 *   FILE 313
//*    Documentation files which are in WORD format, or PDF         *   FILE 313
//*    format, have been included to make the use of the package    *   FILE 313
//*    associated with the doc, easier.  Usually a doc file in      *   FILE 313
//*    FB-80 EBCDIC text, has been included too.  To use the        *   FILE 313
//*    WORD or PDF format documentation, you have to download the   *   FILE 313
//*    member in BINARY to a PC, and look at the resulting file     *   FILE 313
//*    on the PC, using Microsoft WORD, or Adobe ACROBAT reader,    *   FILE 313
//*    respectively.                                                *   FILE 313
//*                                                                 *   FILE 313
//*       NAME       VER.MOD   LAST MODIFIED     SIZE   ID          *   FILE 313
//*       $DOC        01.05   2014/03/23 09:11     14 SBGOLOB       *   FILE 313
//*       $SOFTPUB    01.01   2014/03/23 09:04     24 SBGOLOB       *   FILE 313
//*       SAVELAB     02.24   2023/08/24 07:58   2572 SAVELAB       *   FILE 313
//*       SDSFEXT     01.21   2018/05/18 10:19    751 SDSFEXT       *   FILE 313
//*       SDSFEXT#    01.20   2015/12/04 17:55   2069 PDF           *   FILE 313
//*       SDSFEXT@    01.20   2015/12/04 17:55    640 MSWORD        *   FILE 313
//*       SDSFEXTC    01.11   2015/12/04 13:01     51 SYSLBD        *   FILE 313
//*       SDSFPA$$    01.28   2003/04/28 08:57     19 SYSLBD        *   FILE 313
//*       SDSFPAG$    01.19   2001/02/20 10:52      9 SYSLBD        *   FILE 313
//*       SDSFPAG#    01.28   2003/04/28 08:57   4894 PDF           *   FILE 313
//*       SDSFPAG@    01.28   2003/04/28 08:57   5888 MSWORD        *   FILE 313
//*       SDSFPAGE    01.28   2003/04/28 08:57   1106 SYSLBD        *   FILE 313
//*       SDSFP119    01.19   2001/09/28 12:46    899 SYSLBD        *   FILE 313
//*       SDSFP19#    01.19   2001/09/06 23:44   1905 PDF           *   FILE 313
//*       SDSFXDD     01.03   2022/10/03 09:50    608 LBDYCK        *   FILE 313
//*       SETCLIP     01.03   2019/02/07 06:44   1707 SETCLIP       *   FILE 313
//*       SETCLIP#    01.00   2016/11/06 21:28   5471 PDF           *   FILE 313
//*       SETCLIP@    01.00   2016/11/06 21:28    922 MSWORD        *   FILE 313
//*       SETCLIPP    01.00   2016/11/06 21:46   3204 POWERPT       *   FILE 313
//*       SHAREVAR    01.01   2020/07/04 15:18    673 SHAREV        *   FILE 313
//*       SLM         01.06   2006/11/10 08:00   5195 SYSLBD        *   FILE 313
//*       SLM$        01.06   2002/12/14 23:10     23 SYSLBD        *   FILE 313
//*       SLM#        01.06   2006/11/10 08:01   6872 PDF           *   FILE 313
//*       SLM@        01.06   2006/11/10 08:02   2586 MSWORD        *   FILE 313
//*       SLMCHANG    01.06   2006/11/10 07:57     82 SYSLBD        *   FILE 313
//*       SOFTPUB     01.00   2000/12/26 17:30  43974 SYSLBD        *   FILE 313
//*       SOFTPUB$    01.01   2014/03/23 09:04     24 SBGOLOB       *   FILE 313
//*       SPELLC      01.05   2022/06/27 15:48   5854 XMIT          *   FILE 313
//*       SPELLC$     01.00   2021/04/13 10:05    199 SPELLC        *   FILE 313
//*       SPELLC$#    01.00   2021/04/13 10:05     37 SPELLC        *   FILE 313
//*       SPELLCHG    01.02   2022/06/27 15:49    269 SPELLC        *   FILE 313
//*       SYNCFTP     01.02   2021/01/27 00:08    192 SYNCFTP       *   FILE 313
//*       TERSE       01.00   2002/04/25 01:56    715 SYSLBD        *   FILE 313
//*       TMAILQRY    01.00   2000/04/05 16:34    399 SYSLBD        *   FILE 313
//*       TRYIT       04.02   2023/06/29 09:18   1492 TRYIT         *   FILE 313
//*       TRYIT$      02.04   2023/01/04 13:56    133 TRYIT         *   FILE 313
//*       TSOEMAIL    01.00   2000/04/13 22:28   8120 SYSLBD        *   FILE 313
//*       TSOPROF     01.02   2018/02/09 10:31    541 LBD           *   FILE 313
//*       TSOTRAP     01.22   2016/07/14 09:05    135 SYSLBD        *   FILE 313
//*       TSO8CHAR    01.03   2020/02/03 08:07     31 SLBD          *   FILE 313
//*       TUTORPRT    01.02   2020/03/14 11:10    226 TUTOR         *   FILE 313
//*       TXT2CSV     01.02   2017/06/29 13:03   1254 LBD           *   FILE 313
//*       TXT2RTF     01.00   2016/11/08 01:21    669 SYSLBD        *   FILE 313
//*                                                                 *   FILE 313
//*     Member SAVELAB (includes REXXLAB *and* COBLAB)              *   FILE 313
//*            *** Updated 2023/08/04 ***                           *   FILE 313
//*                                                                 *   FILE 313
//*     SAVELAB is an ispf edit macro that will save the labels     *   FILE 313
//*     used in the current edit member. This allows you to set     *   FILE 313
//*     labels and then restore them when you return to work on     *   FILE 313
//*     the member again later.                                     *   FILE 313
//*                                                                 *   FILE 313
//*     SAVELAB has the following parameter options:                *   FILE 313
//*                                                                 *   FILE 313
//*        No option - restore all saved labels                     *   FILE 313
//*        ERASE - Comletely erase the ALL saved labels for ALL     *   FILE 313
//*                members                                          *   FILE 313
//*        EXPORT - Save the saved labels in a PDS member           *   FILE 313
//*        FREE - Free saved labels for this member                 *   FILE 313
//*        HELP - Show this help info - alias is ?                  *   FILE 313
//*        IMPORT - Import the saved labels from a PDS member       *   FILE 313
//*        LIST - List all active labels in the data                *   FILE 313
//*        LISTS- Selection list of all active labels               *   FILE 313
//*        SAVE - Save all labels                                   *   FILE 313
//*        SHOW - Show the ISPF variable info on the saved labels   *   FILE 313
//*        SHOW ALL - Show all members with saved labels            *   FILE 313
//*        WHY  - Display reasons to use Edit Labels                *   FILE 313
//*                                                                 *   FILE 313
//*        Abbreviations are:  ERA, F, H, S, SH, EX, IM, W          *   FILE 313
//*                                                                 *   FILE 313
//*     SAVELAB saves the current dataset(member) as the            *   FILE 313
//*     key and then every label and associated record              *   FILE 313
//*     number in an ISPF variable. This variable is used           *   FILE 313
//*     for all saved labels and may not exceed 32K bytes           *   FILE 313
//*     (a warning message at 32,000 is issued).                    *   FILE 313
//*                                                                 *   FILE 313
//*     To use:                                                     *   FILE 313
//*     1. While in ISPF Edit, after having created labels,         *   FILE 313
//*     issue SAVELAB SAVE                                          *   FILE 313
//*     2. When returning to ISPF Edit, issue SAVELAB to            *   FILE 313
//*     restore all labels                                          *   FILE 313
//*     3. If SAVELAB used to restore labels or SAVELAB SAVE        *   FILE 313
//*     is issued then using PF3 (END) to end Edit will also        *   FILE 313
//*     issue the SAVELAB SAVE command before ending.               *   FILE 313
//*                                                                 *   FILE 313
//*     Note: If ISPF Edit is entered under a different ISPF        *   FILE 313
//*     Profile then the saved labels may not be the same,          *   FILE 313
//*     or even exist, as when using a different ISPF               *   FILE 313
//*     Profile.                                                    *   FILE 313
//*                                                                 *   FILE 313
//*     REXXLAB is included with SAVELAB and is an ISPF Edit        *   FILE 313
//*     macro/command that will dynamically generate ISPF Edit      *   FILE 313
//*     labels based on the REXX labels found in the code.          *   FILE 313
//*     See the source for a description of how it does this.       *   FILE 313
//*                                                                 *   FILE 313
//*     COBLAB is included with SAVELAB and is an ISPF Edit         *   FILE 313
//*     macro/command that will dynamically generate ISPF Edit      *   FILE 313
//*     labels based on the COBOL labels found in the code.         *   FILE 313
//*     See the source for a description of how it does this.       *   FILE 313
//*           *** Thanks to Ray Mullins for major help ***          *   FILE 313
//*                                                                 *   FILE 313
//*     Member SDSFEXT                                              *   FILE 313
//*            - Updated 5/18/2018                                  *   FILE 313
//*                                                                 *   FILE 313
//*     SDSFEXT is a utility using the older, non-SDSF REXX,        *   FILE 313
//*     interface to SDSF.  It is designed to use SDSF to extract   *   FILE 313
//*     a specific DDname for every JOB in the spool that matches   *   FILE 313
//*     the specified jobname.  The extracted data is then placed   *   FILE 313
//*     into a pre-allocated dataset referenced by a DDname in      *   FILE 313
//*     the command.                                                *   FILE 313
//*                                                                 *   FILE 313
//*     EDITPAGE is a frontend to SDSFPAGE that is a more logical   *   FILE 313
//*     name than SDSFPAGE when used as a pure ISPF Edit command.   *   FILE 313
//*                                                                 *   FILE 313
//*     SDSFPAGE is a tool designed to be used with SDSF to browse, *   FILE 313
//*     print to sysout, print to a data set, or e-mail (using      *   FILE 313
//*     XMITIP) a page or range of pages from a job in the spool.   *   FILE 313
//*                                                                 *   FILE 313
//*     Member SDSFXDD - Sample SDSF REXX to extract DD's           *   FILE 313
//*            - Updated 2022/10/03 (1.03)                          *   FILE 313
//*                                                                 *   FILE 313
//*      This utility, written in REXX, is intended to be invoked   *   FILE 313
//*      as a batch job step within individual jobs to extract      *   FILE 313
//*      SYSOUT files from the JES Spool into z/OS datasets         *   FILE 313
//*      (similar to the SDSF XDC line command).                    *   FILE 313
//*                                                                 *   FILE 313
//*      The command is generalized so the user has flexibility in  *   FILE 313
//*      numerous places with the singluar exception that the       *   FILE 313
//*      generated dataset name **must** not exceed the z/OS limit  *   FILE 313
//*      of 44 characters.                                          *   FILE 313
//*                                                                 *   FILE 313
//*     Member SETCLIP                                              *   FILE 313
//*            - Updated 2/7/19                                     *   FILE 313
//*                                                                 *   FILE 313
//*     SETCLIP is an ISPF Clipboard Manager                        *   FILE 313
//*                                                                 *   FILE 313
//*     SetClip will perform two functions depending on how it is   *   FILE 313
//*     invoked.                                                    *   FILE 313
//*                                                                 *   FILE 313
//*     Syntax:  %setclip option                                    *   FILE 313
//*                                                                 *   FILE 313
//*     Where option is:   blank     invokes the ISPF Dialog to     *   FILE 313
//*                                  define and setup the user      *   FILE 313
//*                                  clipboards                     *   FILE 313
//*                        non-blank to just setup the clipboards   *   FILE 313
//*                                                                 *   FILE 313
//*     When the option is blank an ISPF panel (setclipp) is        *   FILE 313
//*     displayed that allows the user to define up to 10 (the IBM  *   FILE 313
//*     default limit) Edit clipboards.                             *   FILE 313
//*                                                                 *   FILE 313
//*     Change the default # of clipboards in the ISPF Config       *   FILE 313
//*     option MAXIMUM_NUMBER_OF_EDIT_CLIPBOARDS.                   *   FILE 313
//*                                                                 *   FILE 313
//*     The panel requests both a clipboard name and the dataset, or*   FILE 313
//*     dataset(member), that contains the text that will be copied *   FILE 313
//*     into the clipboard. If the start and/or ending row numbers  *   FILE 313
//*     are not specified then all records will be copied into the  *   FILE 313
//*     clipboard.                                                  *   FILE 313
//*                                                                 *   FILE 313
//*     Member SHAREVAR                                             *   FILE 313
//*                                                                 *   FILE 313
//*        Updated 7/4/2020                                         *   FILE 313
//*                                                                 *   FILE 313
//*     A REXX Exec to pass REXX variables, including stems, to     *   FILE 313
//*     another REXX Exec which uses this routine to recreate       *   FILE 313
//*     all the passed variables.                                   *   FILE 313
//*                                                                 *   FILE 313
//*     Member SLM                                                  *   FILE 313
//*                                                                 *   FILE 313
//*     SLM or System Library Manager to provide the user with a    *   FILE 313
//*     list of the active system PARMLIB datasets and mebers to    *   FILE 313
//*     choose from.  Edit and Browse are supported with Save-to    *   FILE 313
//*     enabled to edit a member from one library and save it into  *   FILE 313
//*     another specific library (e.g. the first or second in the   *   FILE 313
//*     list).                                                      *   FILE 313
//*                                                                 *   FILE 313
//*     Member SPELLC (updated 6/27/2022)                           *   FILE 313
//*                                                                 *   FILE 313
//*     SPELLC is Spell Checker written as an ISPF Edit macro that  *   FILE 313
//*     is invoked on the ISPF Edit command line with or without    *   FILE 313
//*     any other parameters. It will immediately ask the user if   *   FILE 313
//*     they have their own dictionary.                             *   FILE 313
//*                                                                 *   FILE 313
//*     Member SYNCFTP (added 01/26/2021)                           *   FILE 313
//*                                                                 *   FILE 313
//*     SYNCFTP is a REXX exec designed to be used in batch or      *   FILE 313
//*     in another exec to 'synchronize' a PDS by sending members   *   FILE 313
//*     changed in the prior 'n' days from the local system to      *   FILE 313
//*     a remote system via FTP. It requires a userid.NETRC file    *   FILE 313
//*     exist with the remote IP address, userid, and password.     *   FILE 313
//*                                                                 *   FILE 313
//*     ** SYNCFTP requires the PDS command (see File 182).         *   FILE 313
//*                                                                 *   FILE 313
//*     ** See File 312 for the NETRC ISPF Dialog to help manage    *   FILE 313
//*        your NETRC dataset.                                      *   FILE 313
//*                                                                 *   FILE 313
//*     Member TERSE                                                *   FILE 313
//*                                                                 *   FILE 313
//*     TERSE is a package of 2 exec's. PACKDS and UNPACKDS that    *   FILE 313
//*     Member TERSE                                                *   FILE 313
//*                                                                 *   FILE 313
//*     TERSE is a package of 2 exec's. PACKDS and UNPACKDS that    *   FILE 313
//*     simplify using the IBM TERSE utility.                       *   FILE 313
//*                                                                 *   FILE 313
//*     Member TRYIT - Updated 06/29/2023 to V4.2                   *   FILE 313
//*                                                                 *   FILE 313
//*     TRYIT is an ISPF Edit command that is designed to be used   *   FILE 313
//*     to test an Assembler program, CLIST, REXX Exec, JCL, ISPF   *   FILE 313
//*     Panel or ISPF Skeleton while it is being edited. The way    *   FILE 313
//*     this works is such that the JCL, CLIST, REXX Exec, ISPF     *   FILE 313
//*     Panel, or ISPF Skeleton does *not* have to be in a library  *   FILE 313
//*     in the existing SYSPROC, SYSEXEC, ISPPLIB, or ISPSLIB       *   FILE 313
//*     allocations thus allowing the development and testing in    *   FILE 313
//*     other, less critical, data sets.                            *   FILE 313
//*                                                                 *   FILE 313
//*     If a JCL Syntax checking product is available then TRYIT    *   FILE 313
//*     can be used to invoke it - this is assuming the product     *   FILE 313
//*     can be invoked as an ISPF Edit Macro (e.g. CA-JCLCheck      *   FILE 313
//*     and JCLPrep).                                               *   FILE 313
//*                                                                 *   FILE 313
//*     For Assembler programs the active member will be assembled  *   FILE 313
//*     and optionally linkedited into a specified target library.  *   FILE 313
//*     After entering TRYIT the user will be prompted to enter     *   FILE 313
//*     the assembly and linkedit information if the member is      *   FILE 313
//*     determined to be an assembler program.                      *   FILE 313
//*                                                                 *   FILE 313
//*     For CLIST and REXX Exec members the active data set in      *   FILE 313
//*     which the member resides will be allocated using the TSO    *   FILE 313
//*     ALTLIB facility and then the member executed, along with    *   FILE 313
//*     any passed optional parameters.                             *   FILE 313
//*                                                                 *   FILE 313
//*     For ISPF Panels and ISPF Skeletons the active data set in   *   FILE 313
//*     which the member resides will be allocated using the ISPF   *   FILE 313
//*     LIBDEF facility then then the panel Displayed or Selected   *   FILE 313
//*     based upon the parameters provided to TRYIT. If there are   *   FILE 313
//*     any errors in the panel or skeleton an ISPF message will    *   FILE 313
//*     be displayed and the error may then be corrected using      *   FILE 313
//*     ISPF Edit and TRYIT used once again to verify the panel or  *   FILE 313
//*     skeleton - all without the need to split the screen and     *   FILE 313
//*     invoke ISPF Test.                                           *   FILE 313
//*                                                                 *   FILE 313
//*     Note there are limitations to the Skeleton testing as       *   FILE 313
//*     variables and imbed tables may not be available.            *   FILE 313
//*                                                                 *   FILE 313
//*     Because of the use of ALTLIB or LIBDEF the member being     *   FILE 313
//*     tested will be able to find subroutines or other ISPF       *   FILE 313
//*     Panels providing they reside within the data set being      *   FILE 313
//*     edited thus allowing an entire package to be developed,     *   FILE 313
//*     updated, and/or tested, in less critical libraries.         *   FILE 313
//*                                                                 *   FILE 313
//*     The type of member being edited is dynamically determined   *   FILE 313
//*     with a default of REXX Exec assumed if all the tests fail.  *   FILE 313
//*     The tests include:                                          *   FILE 313
//*                                                                 *   FILE 313
//*       1) The data set suffix                                    *   FILE 313
//*            clist = "CLIST SYSPROC CMDPROC"                      *   FILE 313
//*            rexx  = "REXX  SYSEXEC  EXEC"                        *   FILE 313
//*            asm   = "ASM   ASSEM"                                *   FILE 313
//*            jcl   = "JCL   CNTL"                                 *   FILE 313
//*            panel = "PANEL PANELS  ISPPLIB *PLIB *PENU *PDEU"    *   FILE 313
//*            skl   = "SKL  SKEL SKELS  ISPSLIB *SLIB *SENU *SDEU" *   FILE 313
//*       2) CLIST: Look for PROC followed by a number on record 1  *   FILE 313
//*       3) REXX: Look for the word REXX in record 1               *   FILE 313
//*       4) Panel: Look for any of these in record 1               *   FILE 313
//*          )ATTR )PANEL )CCSID )PROC )BODY )INIT )REINIT ..PREP:  *   FILE 313
//*       5) JCL: First record starts with //                       *   FILE 313
//*       6) SKEL: First record )CM, )SEL, or )SET                  *   FILE 313
//*                                                                 *   FILE 313
//*     This provides a very easy method for iterative testing and  *   FILE 313
//*     updating of the member until the member works as desired.   *   FILE 313
//*                                                                 *   FILE 313
//*     Member TSOPROF  (created 1991 - added 2/9/2018)             *   FILE 313
//*                                                                 *   FILE 313
//*     TSOPROF makes it easy to review and the key TSO PROFILE     *   FILE 313
//*     settings.                                                   *   FILE 313
//*                                                                 *   FILE 313
//*     Member TSOTRAP                                              *   FILE 313
//*                                                                 *   FILE 313
//*     TSOTRAP is a handy ISPF command that will issue whatever    *   FILE 313
//*     TSO command you give it, outtrap the results, and allow the *   FILE 313
//*     user to then Browse or Edit the results.                    *   FILE 313
//*                                                                 *   FILE 313
//*     Member TUTORPRT- Updated 3/14/20                            *   FILE 313
//*                                                                 *   FILE 313
//*     TUTORPRT is a REXX exec that will 'print' ISPF tutorial     *   FILE 313
//*     panels. Provide the dataset name where the panels are       *   FILE 313
//*     and the name of a starting tutorial panel. Optionally       *   FILE 313
//*     specify if the output should be text, or in RTF or PDF      *   FILE 313
//*     formats (if RTF or PDF then the txt2rtf or txt2pdf tools    *   FILE 313
//*     will be needed (see file 314 for both).                     *   FILE 313
//*                                                                 *   FILE 313
//*     Member TXT2CSV - Updated 06/29/17                           *   FILE 313
//*                                                                 *   FILE 313
//*     Convert a text file into a CSV.                             *   FILE 313
//*                                                                 *   FILE 313
//*     Member TSO8CHAR - Added 02/03/20                            *   FILE 313
//*                                                                 *   FILE 313
//*     Detect if TSO 8 Character Userids are enabled and           *   FILE 313
//*     return that info to the caller.                             *   FILE 313
//*                                                                 *   FILE 313
//*      Comments, suggestions, and complaints should be            *   FILE 313
//*      directed to the author at:                                 *   FILE 313
//*                                                                 *   FILE 313
//*      Lionel B. Dyck                                             *   FILE 313
//*      email:   lbdyck@gmail.com                                  *   FILE 313
//*      github:  github.com/lbdyck                                 *   FILE 313
//*      website: www.lbdsoftware.com                               *   FILE 313
//*                                                                 *   FILE 313
//***FILE 314 is from Lionel Dyck in Austin, Texas and contains     *   FILE 314
//*           quite a few ISPF interface packages, and other        *   FILE 314
//*           stuff.                                                *   FILE 314
//*                                                                 *   FILE 314
//*           The member list probably more accurately reflects     *   FILE 314
//*           the contents of this file, than does the description  *   FILE 314
//*           of some details, below.  This file is constantly      *   FILE 314
//*           being revised.  For reference, please see Lionel's    *   FILE 314
//*           web site at:   http://www.lbdsoftware.com             *   FILE 314
//*                                                                 *   FILE 314
//*    Lionel Dyck's large collection of utilities has now been     *   FILE 314
//*    divided between Files 312, 313, 314, and 969.  All member    *   FILE 314
//*    names beginning with A-R are on File 312.  Names beginning   *   FILE 314
//*    with S-TS are on File 313.  Names from TX-Z are on File      *   FILE 314
//*    314.  File 969 contains the PDSEGEN ISPF application to      *   FILE 314
//*    exploit the capabilities of using PDSE Version 2 member      *   FILE 314
//*    generations.                                                 *   FILE 314
//*                                                                 *   FILE 314
//*    These four files contain quite a few separate utility        *   FILE 314
//*    packages which are unrelated to each other.  You can tell    *   FILE 314
//*    which members of these files belong to the same utility      *   FILE 314
//*    package, by the similarities in their member names.          *   FILE 314
//*                                                                 *   FILE 314
//*    Some utility packages will have several member names         *   FILE 314
//*    associated with them.  But these should all be similar       *   FILE 314
//*    to each other, letting you know that they belong to the      *   FILE 314
//*    same utility package.  You can see this, by looking at       *   FILE 314
//*    the member list shown below, so you can get the idea         *   FILE 314
//*    about how this packaging arrangement works.                  *   FILE 314
//*                                                                 *   FILE 314
//*    Documentation files which are in WORD format, or PDF         *   FILE 314
//*    format, have been included to make the use of the package    *   FILE 314
//*    associated with the doc, easier.  Usually a doc file in      *   FILE 314
//*    FB-80 EBCDIC text, has been included too.  To use the        *   FILE 314
//*    WORD or PDF format documentation, you have to download the   *   FILE 314
//*    member in BINARY to a PC, and look at the resulting file     *   FILE 314
//*    on the PC, using Microsoft WORD, or Adobe ACROBAT reader,    *   FILE 314
//*    respectively.                                                *   FILE 314
//*                                                                 *   FILE 314
//*       NAME       VER.MOD   LAST MODIFIED     SIZE   ID          *   FILE 314
//*       $$$#DATE    05.06   2023/11/05 14:01     12 CBT-506       *   FILE 314
//*       $DOC        01.03   2014/03/23 09:12     14 SBGOLOB       *   FILE 314
//*       @FILE314    05.06   2023/11/05 14:01    477 CBT-506       *   FILE 314
//*       TXT2CSV     01.00   2016/11/08 09:58    196 SYSLBD        *   FILE 314
//*       TXT2HTC$    03.04   2008/12/01 23:33     48 SBGOLOB       *   FILE 314
//*       TXT2HTML    03.04   2008/12/01 23:35   2924 SYSLBD        *   FILE 314
//*       TXT2PDF     04.02   2009/12/03 10:40  28935 SYSLBD        *   FILE 314
//*       TXT2PDF#    04.02   2009/12/03 10:42   6257 PDF           *   FILE 314
//*       TXT2PDF@    04.02   2009/12/03 10:42   5594 MSWORD        *   FILE 314
//*       TXT2PDFH    04.02   2009/12/03 10:38    305 SBGOLOB       *   FILE 314
//*       TXT2RTF     01.00   2016/11/08 01:21    669 SYSLBD        *   FILE 314
//*       TXT2RTF$    01.12   2010/07/21 08:07     79 SBGOLOB       *   FILE 314
//*       UIDLIST     01.01   2016/11/16 10:46     44 SYSLBD        *   FILE 314
//*       USSBATCH    01.00   2018/01/24 09:11    199 USS           *   FILE 314
//*       VB2FB       02.10   2017/10/11 10:54    942 LBD           *   FILE 314
//*       VCURSOR     01.14   2016/04/05 10:37    276 SYSLBD        *   FILE 314
//*       VCURSOR1    01.02   2016/04/01 13:43    227 OLD           *   FILE 314
//*       WHOSON      01.05   2023/11/05 08:58    314 WHOSON        *   FILE 314
//*       WORDNUM     01.02   2004/03/17 09:52     50 SYSLBD        *   FILE 314
//*       XIT         01.01   2004/05/02 10:24     28 SYSLBD        *   FILE 314
//*       XMIAFREN    05.68   2004/04/20 10:16     95 J-MLUCE       *   FILE 314
//*       XMITB64     01.00   2000/12/26 17:11    651 FELDMAN       *   FILE 314
//*       XMITFREN    05.68   2004/04/20 09:26     95 J-MLUCE       *   FILE 314
//*       XMITIHST    16.09   2016/11/07 09:32   3102 SBGOLOB       *   FILE 314
//*       XMITINS#    16.03   2016/04/03 18:01   2953 SYSLBD        *   FILE 314
//*       XMITINS@    16.03   2016/04/03 18:01   2938 SYSLBD        *   FILE 314
//*       XMITIP      16.19   2021/03/26 07:55  74266 XMITIP        *   FILE 314
//*       XMITIP$     01.01   2018/03/28 07:50   2058 TEXT          *   FILE 314
//*       XMITIP#     01.01   2018/03/28 07:49  13299 PDF           *   FILE 314
//*       XMITIP@     01.01   2018/03/28 07:49   5037 WORD          *   FILE 314
//*       XMITIPR     01.01   2018/03/28 07:49  13394 RTF           *   FILE 314
//*       XMITVM      01.00   2000/03/29 10:53    205 SYSLBD        *   FILE 314
//*       XMITXLAT    05.06   2004/03/19 14:55     69 PDF           *   FILE 314
//*       ZFSTOOLS    01.09   2023/05/11 11:09   3323 ZFS           *   FILE 314
//*       ZOOM        01.05   2016/04/04 07:15     30 SYSLBD        *   FILE 314
//*       ZOSLOG      01.00   2016/11/08 10:01    237 SYSLBD        *   FILE 314
//*       ZSTART      01.11   2017/12/18 05:54    817 LBD           *   FILE 314
//*       ZSYNC       04.02   2023/04/07 06:54   1902 ZSYNC         *   FILE 314
//*       ZTSOHELP    03.15   2023/10/01 12:29  12357 TSOHELP       *   FILE 314
//*                                                                 *   FILE 314
//*  Member TXT2CSV                                                 *   FILE 314
//*                                                                 *   FILE 314
//*     TXT2CSV is a very useful utility written in REXX            *   FILE 314
//*     and ISPF.  This is a rexx utility that will do a            *   FILE 314
//*     very basic conversion of a report ext file from             *   FILE 314
//*     plain text to a comma separated value format file           *   FILE 314
//*     which can then be processed using a workstation             *   FILE 314
//*     based spreadsheet or database tool.                         *   FILE 314
//*                                                                 *   FILE 314
//*  Member TXT2HTML                                                *   FILE 314
//*                                                                 *   FILE 314
//*     TXT2HTML is a REXX utility with an optional ISPF front      *   FILE 314
//*     end to convert your mainframe report file into a more       *   FILE 314
//*     usable HTML report.                                         *   FILE 314
//*                                                                 *   FILE 314
//*  Member TXT2PDF                                                 *   FILE 314
//*                                                                 *   FILE 314
//*     TXT2PDF is a great tool from Leland Lucius with an ISPF     *   FILE 314
//*     front-end by Lionel that will convert your mainframe        *   FILE 314
//*     report or data to a PDF with more options than you can      *   FILE 314
//*     count.                                                      *   FILE 314
//*                                                                 *   FILE 314
//*  Member TXT2RTF                                                 *   FILE 314
//*                                                                 *   FILE 314
//*     TXT2RTF is a REXX utility with an optional ISPF front-end   *   FILE 314
//*     that will convert your mainframe report into a file that    *   FILE 314
//*     can be opened using an word processor. Numerous formatting  *   FILE 314
//*     and control options are available.                          *   FILE 314
//*                                                                 *   FILE 314
//*  Member UIDLIST- This member is in TSO XMIT format.             *   FILE 314
//*                                                                 *   FILE 314
//*     List all Users and their UIDs by listing                    *   FILE 314
//*     the /u/userid directories                                   *   FILE 314
//*                                                                 *   FILE 314
//*  Member USSLIST                                                 *   FILE 314
//*                                                                 *   FILE 314
//*     Simple utility to invoke OMVS commands in batch.            *   FILE 314
//*     Easier than using BPXBATCH and other tools but may          *   FILE 314
//*     not provide everything for everyone.                        *   FILE 314
//*                                                                 *   FILE 314
//*  Member VB2FB - version 2.9 10/11/17                            *   FILE 314
//*                                                                 *   FILE 314
//*     Function:  Copy Fixed to Variable or Variable to Fixed      *   FILE 314
//*                                                                 *   FILE 314
//*                Tests the in dataset members to determine        *   FILE 314
//*                if there will be any data truncation before      *   FILE 314
//*                starting the copy operation.                     *   FILE 314
//*                                                                 *   FILE 314
//*     Syntax:    %vb2fb in out members ( options                  *   FILE 314
//*                                                                 *   FILE 314
//*                in        input dataset name                     *   FILE 314
//*                out       output dataset name                    *   FILE 314
//*                members   * for all                              *   FILE 314
//*                          member names                           *   FILE 314
//*                          member name pattern (e.g. abc*)        *   FILE 314
//*                (         required if options coded              *   FILE 314
//*                options   REPlace for replace                    *   FILE 314
//*                          TRunc   for truncation allow3ed        *   FILE 314
//*                          NORenum to bypass renumbering          *   FILE 314
//*                                                                 *   FILE 314
//*     Notes:                                                      *   FILE 314
//*               1. The ISPF Panels and Edit Macros that are       *   FILE 314
//*                  used by this exec are included inline below    *   FILE 314
//*                  and loaded dynamically using the LoadISPF      *   FILE 314
//*                  routine.                                       *   FILE 314
//*               2. If a member will be truncated during the       *   FILE 314
//*                  copy, and truncation has NOT been allowed,     *   FILE 314
//*                  then the member will be placed into ISPF       *   FILE 314
//*                  Edit and those records that may be             *   FILE 314
//*                  truncated will be displayed with all other     *   FILE 314
//*                  records hidden. (uses edit macro EMT)          *   FILE 314
//*               3. If the from member has ISPF sequence numbers   *   FILE 314
//*                  then the to member will be updated after the   *   FILE 314
//*                  copy to fix the sequence numbers (used edit    *   FILE 314
//*                  macros EM1 and EM2).                           *   FILE 314
//*                  - unless NORenum option is specified           *   FILE 314
//*                                                                 *   FILE 314
//*  Member VCURSOR                                                 *   FILE 314
//*                                                                 *   FILE 314
//*     VCURSOR is an updated version of Doug Nadel's VCURSOR that  *   FILE 314
//*     includes updates by Ken Tommiak and Lionel Dyck. Assign it  *   FILE 314
//*     to a PFK and then put the cursor on a DSN and it will       *   FILE 314
//*     opened that DSN in Browse, Edit, View, or the PDS command.  *   FILE 314
//*                                                                 *   FILE 314
//*  Member WHOSON (updated 11/05/2023)                             *   FILE 314
//*                                                                 *   FILE 314
//*     WHOSON uses SDSF REXX to find all logged on TSO and SSH     *   FILE 314
//*     users the SYSPLEX and display them for the user. Use with   *   FILE 314
//*     TSOTRAP (in file 313) to browse or view the results.        *   FILE 314
//*                                                                 *   FILE 314
//*  Member zFSTOOLS (updated 05/11/23)                             *   FILE 314
//*                                                                 *   FILE 314
//*     zFSTools is a collection of useful tools to work in the     *   FILE 314
//*     OMVS/USS environment - not solely with zfs files.           *   FILE 314
//*                                                                 *   FILE 314
//*     - Includes update from Patrick Loftus to add ZFSSHRK        *   FILE 314
//*       which is the zfsadm shrink option                         *   FILE 314
//*                                                                 *   FILE 314
//*  Member zSync    (updated 04/14/23)                             *   FILE 314
//*                                                                 *   FILE 314
//*     zSync is an ISPF application that will compare two          *   FILE 314
//*     PDS libraries (not load libraries) and present the user     *   FILE 314
//*     with a selection list of members with info on the delta.    *   FILE 314
//*     The user can then browse/edit members in both libraries,    *   FILE 314
//*     compare the members (using ispf edit or superc), exclude    *   FILE 314
//*     members in the table, and copy all eligible members from    *   FILE 314
//*     the from to the to PDS.                                     *   FILE 314
//*                                                                 *   FILE 314
//*     The comparison initially is based on ISPF Stats but         *   FILE 314
//*     an option is provided to use SuperC (CD or CS) to           *   FILE 314
//*     overtly check a member without stats if different.          *   FILE 314
//*                                                                 *   FILE 314
//*  Member ZSTART - Updated 12/12/17 Version 2.3                   *   FILE 314
//*                                                                 *   FILE 314
//*     ZSTART is an ISPF dialog to simplify managing the ISPF      *   FILE 314
//*     variable that controls what starts automatically when you   *   FILE 314
//*     enter ISPF.                                                 *   FILE 314
//*                                                                 *   FILE 314
//*     IBM has provided since z/OS 2.1 in ISPF the ability to      *   FILE 314
//*     define a set of ISPF commands to be invoked each time       *   FILE 314
//*     ISPF starts. This list is stored in the ISPF Profile        *   FILE 314
//*     Variable ZSTART under the ISR Profile.                      *   FILE 314
//*                                                                 *   FILE 314
//*     The format of the startup list is:                          *   FILE 314
//*                                                                 *   FILE 314
//*     1. Multiple commands on a line must be separated by         *   FILE 314
//*        a colon (;)                                              *   FILE 314
//*     2. TSO Commands must be prefixed by TSO                     *   FILE 314
//*        - the same as is required when manually invoked          *   FILE 314
//*          under ISPF                                             *   FILE 314
//*     3. ISPF commands require no prefix                          *   FILE 314
//*                                                                 *   FILE 314
//*     Sample:                                                     *   FILE 314
//*                                                                 *   FILE 314
//*             Start 3.4                                           *   FILE 314
//*             Start QW;Swap 1                                     *   FILE 314
//*                                                                 *   FILE 314
//*     This sample will create three ISPF screens. The first is    *   FILE 314
//*     the default ISPF Primary Options Menu, and then it will     *   FILE 314
//*     start a second session with ISPF 3.4. After starting the    *   FILE 314
//*     ISPF 3.4 display it will start a third session with MVS     *   FILE 314
//*     QuickRef and then Swap back to the first session.           *   FILE 314
//*                                                                 *   FILE 314
//*     The ZSTART commands may be viewed 1, 2, or 3 commands per   *   FILE 314
//*     row based on the setting for the Commands per Row in the    *   FILE 314
//*     upper right of the panel. If, when loading the rows, it is  *   FILE 314
//*     discovered that a row would exceed the characters allowed   *   FILE 314
//*     in the row, the Commands per Row will be changed from 1 to  *   FILE 314
//*     2 or from 2 to 3 as appropriate. The max commands per row   *   FILE 314
//*     is 3.                                                       *   FILE 314
//*                                                                 *   FILE 314
//*  Member ZTSOHELP - Updated 10/01/24 Version 3.15                *   FILE 314
//*                    ** In TSO XMIT format.                       *   FILE 314
//*                                                                 *   FILE 314
//*     Provide a list of all known TSO Help entries as             *   FILE 314
//*     defined within this exec. The exec is a self contained      *   FILE 314
//*     ISPF dialog with ISPF Message, ISPF Panels, and Edit        *   FILE 314
//*     macros that are dynamically loaded when needed.             *   FILE 314
//*                                                                 *   FILE 314
//*     The dialog presents the user with a list of TSO Help        *   FILE 314
//*     members that can then be selected for viewing in a          *   FILE 314
//*     formatted state.                                            *   FILE 314
//*                                                                 *   FILE 314
//*  Member ZOSLOG - This member is in TSO XMIT format.             *   FILE 314
//*                                                                 *   FILE 314
//*     The ZOSLOG ISPF Dialog found in this package will           *   FILE 314
//*     present the user with a list of all syslog log files        *   FILE 314
//*     in the z/OS system and allow the user to select a           *   FILE 314
//*     file to Browse, or View.                                    *   FILE 314
//*                                                                 *   FILE 314
//*     The only customization required is to verify/update         *   FILE 314
//*     the hlq for the syslog datasets variable in the exec        *   FILE 314
//*     and for the dataset name date.                              *   FILE 314
//*                                                                 *   FILE 314
//*  Member XMITIP - This member is in TSO XMIT format.             *   FILE 314
//*                  Updated 03/25/2021 - V20.03                    *   FILE 314
//*                                                                 *   FILE 314
//*     Distributing Reports from Batch Jobs via E-Mail             *   FILE 314
//*                                                                 *   FILE 314
//*     How many times have you wanted to have 'that' report in     *   FILE 314
//*     your e-mail inbox instead of having to wait for it to       *   FILE 314
//*     be printed and then delivered to you?                       *   FILE 314
//*                                                                 *   FILE 314
//*     This document describes a simple process that can be        *   FILE 314
//*     used by any batch job to distribute reports as e-mail       *   FILE 314
//*     attachments to electronic mail addresses.  You can          *   FILE 314
//*     distribute from one to n files to from one to n             *   FILE 314
//*     addresses.  The attachment will be translated from          *   FILE 314
//*     EBCDIC to ASCII during the electronic mail processing       *   FILE 314
//*     so only text files should be sent (note that special        *   FILE 314
//*     characters may not translate correctly so you should        *   FILE 314
//*     test your file before implementing this process into a      *   FILE 314
//*     production job).                                            *   FILE 314
//*                                                                 *   FILE 314
//*     The benefit is that you can send reports, using the         *   FILE 314
//*     REPORT keyword, as rich text format (rtf) documents and     *   FILE 314
//*     specify landscape or portrait orientation as well as        *   FILE 314
//*     the font size.  This approach is useful as the batch,       *   FILE 314
//*     formerly printed reports, arrive in the users mail box      *   FILE 314
//*     in a format similar to the printed report.                  *   FILE 314
//*                                                                 *   FILE 314
//*     Documentation for XMITIP is in three parts:                 *   FILE 314
//*                                                                 *   FILE 314
//*     Part 1 documents how to use the XMITIP REXX Application     *   FILE 314
//*            to electronically distribute messages and/or         *   FILE 314
//*            text files (as text attachments) to electronic       *   FILE 314
//*            mail addresses via the intranet or internet.         *   FILE 314
//*                                                                 *   FILE 314
//*     Part 2 documents how to view the attachment on the          *   FILE 314
//*            workstation.                                         *   FILE 314
//*                                                                 *   FILE 314
//*     Part 3 documents how to customize your own application      *   FILE 314
//*            to do this.                                          *   FILE 314
//*                                                                 *   FILE 314
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - - -     *   FILE 314
//*                                                                 *   FILE 314
//*     Further documentation for XMITIP:                           *   FILE 314
//*                                                                 *   FILE 314
//*      This is a description of the XMITIP install partitioned    *   FILE 314
//*      dataset.  Approximate level is XMITIP 4.60 .               *   FILE 314
//*                                                                 *   FILE 314
//*      NOTE: A STEPLIB or update to linklist is now required      *   FILE 314
//*      to use this code.                                          *   FILE 314
//*                                                                 *   FILE 314
//*      Installation Step 1:                                       *   FILE 314
//*          To execute the RECEIVE member issue                    *   FILE 314
//*             "TSO EXEC 'hlq.pds-dsname(RECEIVE)' EXEC"           *   FILE 314
//*          This will create the rexx, panels, etc. libraries      *   FILE 314
//*          and place you in ISPF Browse on some key members.      *   FILE 314
//*      Installation Step 2.                                       *   FILE 314
//*          Update XMITIPCU - see the Installation Guide.          *   FILE 314
//*                                                                 *   FILE 314
//*      Updates can be found at http://www.lbdsoftware.com         *   FILE 314
//*                                                                 *   FILE 314
//*      Mutual Support:                                            *   FILE 314
//*      Mark Regan has created a listserv for mutual support:      *   FILE 314
//*                                                                 *   FILE 314
//*         Subscribe:    xmitip-subscribe@yahoogroups.com          *   FILE 314
//*         Unsubscribe:  xmitip-unsubscribe@yahoogroups.com        *   FILE 314
//*         Post message: xmitip@yahoogroups.com                    *   FILE 314
//*         List owner:   xmitip-owner@yahoogroups.com              *   FILE 314
//*                                                                 *   FILE 314
//*      XMITIP will work with both the older SMTP and newer        *   FILE 314
//*      CSSMTP servers on z/OS.                                    *   FILE 314
//*                                                                 *   FILE 314
//*      Caution: Be sure to run the IVPJOB to verify your          *   FILE 314
//*      installation.                                              *   FILE 314
//*                                                                 *   FILE 314
//*      $DOC     what you are reading                              *   FILE 314
//*      $WISH    list of requested changes/enhancements            *   FILE 314
//*      ALLOCGDG doc on using this new exec                        *   FILE 314
//*      ASM      Assembler source modules                          *   FILE 314
//*               * in IDTF format                                  *   FILE 314
//*      CHANGES  what's changed                                    *   FILE 314
//*      COMPILE  information if you want to compile this           *   FILE 314
//*               application                                       *   FILE 314
//*      DISTINFO information on using distribution lists           *   FILE 314
//*      EXEC     The rexx execs in TSO Transmit (IDTF) format      *   FILE 314
//*      FEEDBACK Sample JCL you can use to send feedback on XMITIP *   FILE 314
//*      IEFDB401 Sample dynamic allocation exit from University    *   FILE 314
//*               of Florida modified by Lionel Dyck.  Will         *   FILE 314
//*               issue Notify messages to TSO users for            *   FILE 314
//*               incoming mail.                                    *   FILE 314
//*      IOF      Shows how to e-mail from IOF using XMITSDSF       *   FILE 314
//*      IVP*     These members are the Installation                *   FILE 314
//*               Verification members - see member IVPJOB for      *   FILE 314
//*               the job to run                                    *   FILE 314
//*      LDAP     Information on the setup for using LDAP to        *   FILE 314
//*               query/validate e-mail addresses                   *   FILE 314
//*      LICENSE  The license under which this package is           *   FILE 314
//*               distributed                                       *   FILE 314
//*      LOAD     Load library containing various load modules      *   FILE 314
//*               * in IDTF format                                  *   FILE 314
//*      MSGS     The ISPF messages in TSO Transmit (IDTF) format   *   FILE 314
//*      NOTIFY   From Paul Wells: (in TSO Transmit (IDTF)          *   FILE 314
//*               format) This allows you to route the SMTP         *   FILE 314
//*               Logfile to OPS/MVS which will then process the    *   FILE 314
//*               logfile and issue messages to the user about      *   FILE 314
//*               incoming mail.                                    *   FILE 314
//*      PQ*****  APARs that you might find interesting  <<<<<<<<   *   FILE 314
//*      PANELS   The ISPF panels in TSO Transmit (IDTF) format     *   FILE 314
//*      PDF      Short description on how to use XMITIPPD          *   FILE 314
//*               outside of XMITIP to create PDF files.            *   FILE 314
//*      RECEIVE  A simple exec to receive the EXEC and PANELS      *   FILE 314
//*               members into partitioned datasets                 *   FILE 314
//*      SAMPDISC Sample Disclaimers if you need to use one         *   FILE 314
//*      SDSF     Information on using the XMITSDSF to interface    *   FILE 314
//*               to XMITIPFE                                       *   FILE 314
//*      SMTPRTN  Batch JCL for REXX Code SMTPRTN                   *   FILE 314
//*      SMTPVFY  Batch JCL to verify that SMTP is properly         *   FILE 314
//*               installed                                         *   FILE 314
//*      SPOOF1   Discussion on spoofing and the XMITIP             *   FILE 314
//*               antispoof option                                  *   FILE 314
//*      SPOOF2   A technique to prevent spoofing using SECURE      *   FILE 314
//*               SMTP * Thanks to Matt                             *   FILE 314
//*      TCPDATA  Information on how TCP/IP looks for the           *   FILE 314
//*               TCPDATA file                                      *   FILE 314
//*      TEST$GIF Sample GIF for testing GIF attachments            *   FILE 314
//*               (US Flag)                                         *   FILE 314
//*      TEST$CSV Sample CSV for testing CSV attachments            *   FILE 314
//*      TESTXMIT Rexx code to test the new dialog using altlib     *   FILE 314
//*               and libdef ** May also be used under a            *   FILE 314
//*               different name to invoke XMITIP ** without        *   FILE 314
//*               copying the xmitip libraries into production      *   FILE 314
//*               libraries                                         *   FILE 314
//*      TMSGQ    Sample exec for testing MSGQ                      *   FILE 314
//*      TXT2HTML User documentation on Text-to-HTML tool           *   FILE 314
//*      TOOLS    Brief summary of the tools included with XMITIP   *   FILE 314
//*      XMITSTAT Doc on how to generate SMTP Statistics            *   FILE 314
//*      STATJCL  JCL to generate SMTP statistics from the IBM      *   FILE 314
//*               SMTP Server.                                      *   FILE 314
//*                                                                 *   FILE 314
//*      For National Language Support:                             *   FILE 314
//*                                                                 *   FILE 314
//*      PDFXLTB  Build a national language translate table for     *   FILE 314
//*               XMITIPTR *                                        *   FILE 314
//*      SMTPXLTB Build a national language translate table for     *   FILE 314
//*               SMTP *                                            *   FILE 314
//*      PQ36249  Documents IBM APAR for @ support for other        *   FILE 314
//*               languages                                         *   FILE 314
//*      FRENCH   Information on setting up the SMTP translation    *   FILE 314
//*               tables for the French language.  * thanks to      *   FILE 314
//*               Felipe Cvitanich                                  *   FILE 314
//*                                                                 *   FILE 314
//*      For Disclaimer support:                                    *   FILE 314
//*                                                                 *   FILE 314
//*      Update XMITIPCU variable with the fully qualified data     *   FILE 314
//*      set name of a data set which contains your                 *   FILE 314
//*      installation's standard disclaimer.  The contents of       *   FILE 314
//*      this data set will be included with every e-mail for       *   FILE 314
//*      which a message is generated.                              *   FILE 314
//*                                                                 *   FILE 314
//*      IMPORTANT: Local customizations should be made in the      *   FILE 314
//*      XMITIPCU rexx exec and in the XMITLDAP rexx exec:          *   FILE 314
//*                                                                 *   FILE 314
//*        XMITIPCU - general customizations                        *   FILE 314
//*        XMITLDAP - customizations related to the use of ldap     *   FILE 314
//*                   to verify and/or find e-mail addresses.       *   FILE 314
//*        XMITIPML - you may need to customize this exec if the    *   FILE 314
//*                   ldap server returns information in a          *   FILE 314
//*                   format different from what is defined. (if    *   FILE 314
//*                   you change this you should remember what      *   FILE 314
//*                   you changed for future updates and if you     *   FILE 314
//*                   can generalize what you've done let me        *   FILE 314
//*                   know).  PLUS you may need to change the       *   FILE 314
//*                   comments on the panel XMITIPML.               *   FILE 314
//*                                                                 *   FILE 314
//*      If you need to change the dollar symbol to a pound or      *   FILE 314
//*      you need to change the PDF ebcdic->ascii translation       *   FILE 314
//*      table then you need to update XMITIPTR.                    *   FILE 314
//*                                                                 *   FILE 314
//*         e.g. For the dollar to pound change location 5B to      *   FILE 314
//*              be A3                                              *   FILE 314
//*                                                                 *   FILE 314
//*      ZIP Notes:                                                 *   FILE 314
//*                                                                 *   FILE 314
//*      1. PKZIP/MVS can be found at www.asizip.com                *   FILE 314
//*      2. ISPZIP can be found at www.ase.com.au                   *   FILE 314
//*      3. ZIP390 can be found at www.data21.com                   *   FILE 314
//*      4. InfoZip is now supported                                *   FILE 314
//*         InfoZIp can be found (for FREE) at:                     *   FILE 314
//*           ftp://ftp.freesoftware.com/pub/infozip/MVS/           *   FILE 314
//*         - an alternate (newer) download from                    *   FILE 314
//*           http://www.mildredbrennan.com/blog/?p=309             *   FILE 314
//*         - does not support name-in-archive for pds members      *   FILE 314
//*         - infozip must be installed in a steplib or in          *   FILE 314
//*           linklist ****                                         *   FILE 314
//*         - load module (zip) is provided in the load library     *   FILE 314
//*         - you may need to download and recompile InfoZip if     *   FILE 314
//*           you need a different ASCII character set.             *   FILE 314
//*      5. PKZIP/MVS pre 2.51 does not support the                 *   FILE 314
//*         name-in-archive option                                  *   FILE 314
//*      6. PKZIP/MVS version 5 has a problem with mixed case       *   FILE 314
//*         commands XMITIP has been fixed to generate upper        *   FILE 314
//*         case commands for PKZIP/MVS V5.  Now it seems that      *   FILE 314
//*         ASI has a patch to allow mixed case - available at      *   FILE 314
//*         their web site.                                         *   FILE 314
//*      7. PKZIP/MVS Version 5 requires fix level 508 at a         *   FILE 314
//*         minimum                                                 *   FILE 314
//*      8. ISPZIP issues                                           *   FILE 314
//*         - does not support ZIPPASS or ZIPMETHOD                 *   FILE 314
//*         - does not support name-in-archive for pds members      *   FILE 314
//*         - resultant zip file does not work with Infozip         *   FILE 314
//*           or Lotus Notes Viewer                                 *   FILE 314
//*                                                                 *   FILE 314
//*      National Language Information:                             *   FILE 314
//*      If you have an issue with your language and the @          *   FILE 314
//*      character then check out IBM APAR PQ36249                  *   FILE 314
//*                                                                 *   FILE 314
//*      Comments, suggestions, and complaints should be            *   FILE 314
//*      directed to the author at:                                 *   FILE 314
//*                                                                 *   FILE 314
//*      Lionel B. Dyck                                             *   FILE 314
//*      email:   lbdyck@gmail.com                                  *   FILE 314
//*      github:  github.com/lbdyck                                 *   FILE 314
//*      website: www.lbdsoftware.com                               *   FILE 314
//*                                                                 *   FILE 314
//***FILE 315 is from Dave Lees and contains a nice collection of   *   FILE 315
//*           his utilities.                                        *   FILE 315
//*                                                                 *   FILE 315
//*       email:   lees_david_a@sbcglobal.net                       *   FILE 315
//*                                                                 *   FILE 315
//*     File Updated:  June 6, 2001                                 *   FILE 315
//*                                                                 *   FILE 315
//*           THE UTILITIES ARE:                                    *   FILE 315
//*                                                                 *   FILE 315
//*     *****************************************************       *   FILE 315
//*     AUTHOR   - DAVID LEES                                       *   FILE 315
//*                lees_david_a@sbcglobal.net                       *   FILE 315
//*                CBT TAPE FILE 315 AS OF 2/14/2000                *   FILE 315
//*                                                                 *   FILE 315
//*     *****************************************************       *   FILE 315
//*     BITMAP   - CALLABLE SUBROUTINE TO EXPAND 8 BITS TO 8        *   FILE 315
//*                BYTES CHARACTER.                                 *   FILE 315
//*     BMSS     - FAIRLY FAST TEXT SEARCH PROGRAM.                 *   FILE 315
//*     BOMB     - SUBROUTINE TO PRODUCE AN '0CB' ABEND.            *   FILE 315
//*                DIAGNOSTIC TOOL.                                 *   FILE 315
//*     COB1     - COBOL/DB2 CROSS REFERENCE BASED ON USERID.       *   FILE 315
//*     COB2     - COBOL/DB2 CROSS REFERENCE BASED ON TABLENAME.    *   FILE 315
//*     COPYANY  - VERSATILE FILE TO FILE COPY: FB->VB,             *   FILE 315
//*                VB->FB, VB->VB, FB->FB, - PADS OR TRUNCATES      *   FILE 315
//*                BASED ON OUTPUT DCB. DISPLAYS DCB, COUNTS.       *   FILE 315
//*     CPUID    - AUTHORIZED PGM TO DISPLAY CPC ID.                *   FILE 315
//*                OBSOLETED BY: D M=(CPU)                          *   FILE 315
//*     CSTRACE  - SAMPLE OF USING SNAPSHOT MACRO TO CREATE         *   FILE 315
//*                A DEBUGGING TRACE.                               *   FILE 315
//*              - (YES, IT LOOKS LIKE IMS CALLS BUT IT'S           *   FILE 315
//*                ACTUALLY AN IMS CLONE).                          *   FILE 315
//*     CVD      - CALLABLE SUBROUTINE TO DUMP 80 BYTES IN          *   FILE 315
//*                VERTICAL HEX FORMAT.                             *   FILE 315
//*     CVX      - CONVERT TWO BYTES DISPLAY FORMAT HEX TO          *   FILE 315
//*                ONE BYTE BINARY.                                 *   FILE 315
//*     DBALPHA  - PRODUCES POSTERS WITH MAX OF 6 LINES OF 13       *   FILE 315
//*                CHARACTERS EACH.                                 *   FILE 315
//*     DBWAIT   - MEANT TO INTERACT WITH AUTOMATION SOFTWATE       *   FILE 315
//*                (AO, NETVIEW) TO CONTROL STEP BY STEP            *   FILE 315
//*                EXECUTION OF BATCH JOBS.                         *   FILE 315
//*     DYNAM    - CBT TAPE FILE089, INCLUDED HERE FOR              *   FILE 315
//*                CONVENIENCE ONLY.                                *   FILE 315
//*     ERASER   - OPEN/CLOSE A CARD IMAGE FILE TO EMPTY IT,        *   FILE 315
//*                OPTIONALLY INSERT ONE DATA LINE FROM             *   FILE 315
//*                PARM=.                                           *   FILE 315
//*     FLATLIB  - CONVERTS A TEXT PDS INTO A FLAT FILE WITH        *   FILE 315
//*                THE MEMBERNAME AS AS A PREFIX. EASY TO           *   FILE 315
//*                BUILD XREFS WITH SAS/EASYTRIECE/ETC.             *   FILE 315
//*     LNKLST00 - MULTI STEP JCL TO PRODUCE A CROSS                *   FILE 315
//*                REFERENCE OF LPA/PROG00 MEMBERS. SORTED BY       *   FILE 315
//*                MEMBERNAME AND LOADLIB. PRIMITIVE ISRDDN.        *   FILE 315
//*     MEMLIST  - EXPANDS A LIST OF PDS NAMES INTO                 *   FILE 315
//*                MEMBERNAMES AND ATTRIBUTES.  SHORT FORM          *   FILE 315
//*                FOR TEXT PDS, DEFAULT FOR LOAD LIBRARIES.        *   FILE 315
//*                DYNAM                                            *   FILE 315
//*     MIGRATOR - USES MGCRE AND VIRTUAL CONSOLE MACROS TO         *   FILE 315
//*                ISSUE HSM MIGRATE COMMANDS FOR A LIST OF         *   FILE 315
//*                DATASETS AND LOG SYSTEM RESPONSE MSGS.           *   FILE 315
//*                AMODE(31), RMODE(24), AC(1). MESSY DUE TO        *   FILE 315
//*                AR, IO, AMODE31...                               *   FILE 315
//*     NATSUB   - SUBROUTINE TO SUBMIT JCL TO DYNALLOC             *   FILE 315
//*                INTERNAL READER.                                 *   FILE 315
//*     PARSIFAL - PARSER TO STRIP DSNAMES FROM FROM FORMATS        *   FILE 315
//*                LIKE (LPALST00)                                  *   FILE 315
//*     QDUMP80  - FORMATTED DATASET DUMP SHOWS CHARACTER/HEX       *   FILE 315
//*                IN 80 COL LISTING.  DOES START-END AND           *   FILE 315
//*                LAST RECORDS. WILL TRANSLATE ASCII ALSO.         *   FILE 315
//*     R******* - JCL TO RUN THE PROGRAMS.                         *   FILE 315
//*     REGS     - REGISTER EQUATE MACRO.                           *   FILE 315
//*     SLEEPY   - WAITS FOR NN SECONDS. 99 MAX.                    *   FILE 315
//*     TODAY    - SUBROUTINE RETURNS DAY OF WEEK FROM TIME         *   FILE 315
//*                MACRO. VALID TO Y4K.                             *   FILE 315
//*     VSAMZAP  - SUPERZAP UTILITY FOR ESDS VSAM, ORIGINALLY       *   FILE 315
//*                USED FOR IMS, ALSO WORKS ON KSDS BUT CAN'T       *   FILE 315
//*                CHANGE KEYS.                                     *   FILE 315
//*                                                                 *   FILE 315
//***FILE 316 CONTAINS MANY BATCH UTILITIES AND OTHER GOOD THINGS.  *   FILE 316
//*          CODE FROM JIM MARSHALL (AIR FORCE RETIREE).            *   FILE 316
//*                                                                 *   FILE 316
//*          Jim's current address is:                              *   FILE 316
//*                                                                 *   FILE 316
//*                Jim Marshall, Retired                            *   FILE 316
//*                                                                 *   FILE 316
//*          Please address inquiries to Sam Golob.                 *   FILE 316
//*                                                                 *   FILE 316
//*                email:  sbgolob@cbttape.org                      *   FILE 316
//*                                                                 *   FILE 316
//*       Note:  As of 10-24-02, all occurrences of the MSG macro   *   FILE 316
//*              have been changed to MSGZ, because MSG is now an   *   FILE 316
//*              assembler opcode (as of HLASM Release 4, or        *   FILE 316
//*              OS/390 Release 2.10).                              *   FILE 316
//*                                                                 *   FILE 316
//*   Member $$ZDOC now replaced by member @FILE316.  (SBG - 08/03) *   FILE 316
//*                                                                 *   FILE 316
//*       RELEASE     -  08 OCTOBER 2018                            *   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 IS  *   FILE 316
//*                     ON FILE 035.)  Now copies blocks up to      *   FILE 316
//*                     64K in size.  New version by Sam Golob,     *   FILE 316
//*                     which improves the control card scanning.   *   FILE 316
//*                                                                 *   FILE 316
//*       COPYFI##      Newer version of COPYFILE, 3 members in     *   FILE 316
//*                     IEBUPDTE or PDSLOAD (File 093) format.      *   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.  New version.     *   FILE 316
//*                     Same control card scanning as COPYFILE.     *   FILE 316
//*                                                                 *   FILE 316
//*       COPYSL##      Newer version of COPYSLNL, 3 members in     *   FILE 316
//*                     IEBUPDTE or PDSLOAD (File 093) format.      *   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
//*                     New version.  Same control card scanning    *   FILE 316
//*                     as COPYFILE.                                *   FILE 316
//*                                                                 *   FILE 316
//*       COPYNL##      Newer version of COPYNLNL, 3 members in     *   FILE 316
//*                     IEBUPDTE or PDSLOAD (File 093) format.      *   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   2   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   2X  SUBSTITUTE FOR IEBGENER, HIGH SPEED COPY    *   FILE 316
//*                     USING BSAM VERSUS QSAM.                     *   FILE 316
//*                     (Fixed to make sure output DCB attributes   *   FILE 316
//*                     are the same as input. Or you can overlay,  *   FILE 316
//*                     using PARM=O  (letter O)                    *   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
//*       LISPDS    8.4 Same as LISTPDS, except that the date-time  *   FILE 316
//*                     stamp is removed from ./ ADD NAME=member    *   FILE 316
//*                     cards, if no ISPF statistics are present.   *   FILE 316
//*                     Version number updated to 8.1 to tell it    *   FILE 316
//*                     apart from LISTPDS.  (Now identical to      *   FILE 316
//*                     LISTPDS.  Fixed to handle extended ISPF     *   FILE 316
//*                     statistics like OFFLOAD and PDSLOAD,        *   FILE 316
//*                     which are on CBT File 093, and were copied  *   FILE 316
//*                     to this file.)                              *   FILE 316
//*                                                                 *   FILE 316
//*       LISTPDS  10.2 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
//*                     (Fixed to handle extended ISPF statistics   *   FILE 316
//*                     like OFFLOAD and PDSLOAD, which are on      *   FILE 316
//*                     CBT File 093, and were copied to this       *   FILE 316
//*                     file.)  Fixed to handle 8-character ids,    *   FILE 316
//*                     and fixed to punch ./ ALIAS cards with a    *   FILE 316
//*                     PARM of 'ALIAS'.                            *   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  10.2 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
//*                     (Best version copied to here from CBT File  *   FILE 316
//*                     093.  Handles extended ISPF statistics.)    *   FILE 316
//*                                                                 *   FILE 316
//*       PACKED    1   LOOK AT ALL MEMBERS OF A PDS TO SEE IF      *   FILE 316
//*                     THEY ARE IN ISPF PACKED FORMAT OR NOT.      *   FILE 316
//*                     NEEDS 2 DD NAMES:  SYSLIB IS THE INPUT      *   FILE 316
//*                     PDS, AND SYSPRINT IS THE REPORT.            *   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  10.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
//*                     (Best version copied to here from CBT File  *   FILE 316
//*                     093.  Handles extended ISPF statistics,     *   FILE 316
//*                     and SYSUPLOG DD to avoid changing '><'      *   FILE 316
//*                     to './' when it shouldn't do so.)           *   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
//*                     (Fixed by "UPDATER" to work with the PDS    *   FILE 316
//*                     utility program, and fixed some bugs.)      *   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
//*       RENDS     1   ASSEMBLER BATCH PROGRAM TO RENAME A DATASET *   FILE 316
//*                     TO THE SAME NAME, BUT WITH .NEW APPENDED    *   FILE 316
//*                     TO THE NAME.  TRUE THAT TSO "RENAME" CAN    *   FILE 316
//*                     ALSO DO IT, BUT THIS IS FOR LEARNING TO     *   FILE 316
//*                     CODE IT IN AN ASSEMBLER PROGRAM, AND TO     *   FILE 316
//*                     SEE HOW TO FLAG ALL (OR MOST) POSSIBLE      *   FILE 316
//*                     ERRORS.                                     *   FILE 316
//*                                                                 *   FILE 316
//*       RESETU    1   A PROGRAM THAT CAN RESET THE USERID OF A    *   FILE 316
//*                     PDS MEMBER WITH ISPF STATS.  WHILE NOT A    *   FILE 316
//*                     TSO COMMAND, IT CAN BE RUN UNDER TSO IN THE *   FILE 316
//*                     FOREGROUND, ACCORDING TO INSTRUCTIONS THAT  *   FILE 316
//*                     ARE INCLUDED IN THE PROGRAM.                *   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
//*                 4   (Fixed Mar 23,2014 to prettify the output   *   FILE 316
//*                     and make it displayable via PUTLINE. Also   *   FILE 316
//*                     assemble and link together with TODCNVRT,   *   FILE 316
//*                     so TODCNVRT doesn't have to be LOADed       *   FILE 316
//*                     and DELETEd.)                               *   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
//*       UADLIST       PRODUCE OUTPUT FROM READING SYS1.UADS.      *   FILE 316
//*                     (Fixed by BG.)                              *   FILE 316
//*                     (CLIST UADL to see results at the terminal) *   FILE 316
//*                                                                 *   FILE 316
//*       UADSORT   2   READ AND PRINT CONTENTS OF 'SYS1.UADS' BY   *   FILE 316
//*                     TRAVELING THROUGH THE RECORDS.              *   FILE 316
//*                     (Fixed by BG.)                              *   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
//*                 2   Fitted to all OS/390 and z/OS releases      *   FILE 316
//*                     because IBM moved code to BLPRT module.     *   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
//*           Addition of a CICS CEDA INSTALL 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
//*                                                                 *   FILE 321
//*     Roland Schiradin (November 2007)                            *   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
//*       -------------------  Index  ---------------------         *   FILE 321
//*                                                                 *   FILE 321
//*                                                                 *   FILE 321
//*  COBANAL   Frozen version, only bug-fixes                       *   FILE 321
//*            This version support pre OS/390 R10                  *   FILE 321
//*                                                                 *   FILE 321
//*            Last Change: April 2002                              *   FILE 321
//*                                                                 *   FILE 321
//*  COBANALJ  A sample JCL to assemble CobAnal or CobAnalZ         *   FILE 321
//*                                                                 *   FILE 321
//*            Last Change: November 2002                           *   FILE 321
//*                                                                 *   FILE 321
//*  COBANALZ  This Program analyze your Cobol-Load-Modules.        *   FILE 321
//*            There is no need for the source. Support             *   FILE 321
//*            for single programs also for a complete load-lib.    *   FILE 321
//*            This program require the STRING macro from FILE183.  *   FILE 321
//*            I have include the current versions of STRING        *   FILE 321
//*            Thanks to Gilbert Saint-Flour                        *   FILE 321
//*                                                                 *   FILE 321
//*            Full support for Enterprise Cobol V3                 *   FILE 321
//*            Full support for COBOL for OS/390 & VM V2            *   FILE 321
//*            Full support for COBOL for OS/390 & VM V1            *   FILE 321
//*            Full support for COBOL for MVS and VM formally called*   FILE 321
//*            COBOL/370 or ADCYLE COBOl/370.                       *   FILE 321
//*            Full support for COBOL-II every version.             *   FILE 321
//*            Few support for COBOL-I.                             *   FILE 321
//*                                                                 *   FILE 321
//*            If you have old or newer Cobol-Programs please       *   FILE 321
//*            send me the Load to Roland(at)Schiradin.de. I'll     *   FILE 321
//*            add some code to support those Cobol-Versions.       *   FILE 321
//*                                                                 *   FILE 321
//*            If you like to get the newest Version please contact *   FILE 321
//*            Roland(at)Schiradin.de                               *   FILE 321
//*                                                                 *   FILE 321
//*            Last Change: November 2007                           *   FILE 321
//*                                                                 *   FILE 321
//*  COBJCL    A sample JCL for COBANAL                             *   FILE 321
//*                                                                 *   FILE 321
//*            Last Change: November 2006                           *   FILE 321
//*                                                                 *   FILE 321
//*  EXCIJCL   Sample JCL to invoke the 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 your       *   FILE 321
//*            BIND-Job !!!! Please specify EXCI and COBOL3 as      *   FILE 321
//*            the precompiler option.                              *   FILE 321
//*                                                                 *   FILE 321
//*            Last Change: March 1999                              *   FILE 321
//*                                                                 *   FILE 321
//*  EXCISE    The CICS-Server-Program written in Assembler.        *   FILE 321
//*            Please expand the program to your needs.             *   FILE 321
//*                                                                 *   FILE 321
//*            Last Change: March 1999                              *   FILE 321
//*  STCCHECK  This program check if a started Task is allready     *   FILE 321
//*            active. This avoid abend U1800 if a operator         *   FILE 321
//*            start the same CICS again. Please note this works    *   FILE 321
//*            only on the same MVS-image, I'll add somtimes        *   FILE 321
//*            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
//*  STRING64  Provides functions similar to PL/I's                 *   FILE 321
//*            PUT EDIT or COBOL's STRING.                          *   FILE 321
//*            Partial 64bit support.                               *   FILE 321
//*                                                                 *   FILE 321
//*  SYEXCIC   Cobol-Source to invoke the CEDA INSTALL from Batch   *   FILE 321
//*                                                                 *   FILE 321
//*            Last Change: March 1996                              *   FILE 321
//*                                                                 *   FILE 321
//*  SYEXCIS   Assembler-Source to invoke the CEDA INSTALL          *   FILE 321
//*                                                                 *   FILE 321
//*            Last Change: March 1996                              *   FILE 321
//*  --------------------------------------------------------       *   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
//*           ILBOWAT0 -  from Joseph Caughman                      *   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 and contains a REXX function     *   FILE 323
//*           package written in Assembler.  This file contains     *   FILE 323
//*           the complete package and supersedes the former        *   FILE 323
//*           files 323 and 324.                                    *   FILE 323
//*                                                                 *   FILE 323
//*       email:   Gerard J. Nicol <gerard.nicol@tapetrack.com>     *   FILE 323
//*                www.tapetrack.com                                *   FILE 323
//*                                                                 *   FILE 323
//*           To create the install libraries, see member           *   FILE 323
//*           $RECEIVE.                                             *   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 and contains his package to      *   FILE 324
//*           access the StorageTek API and provide reports that    *   FILE 324
//*           check how HSC is doing.                               *   FILE 324
//*                                                                 *   FILE 324
//*       email: "Gerard J. Nicol" <gerard.nicol@tapetrack.com>     *   FILE 324
//*                                                                 *   FILE 324
//*       Please see member $$NOTE1 for some further information.   *   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
//*           (Note:  PRINTOFF was fixed for z/OS.)                 *   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
//*                    (Fixed for z/OS in two ways.  See member     *   FILE 325
//*                     called $PRINTOF.)                           *   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
//*                    FIXED FOR Y2K BY SAM GOLOB.                  *   FILE 325
//*                                                                 *   FILE 325
//*                    FOLLOWING FIXES WERE FROM SAM LEPORE.        *   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
//*            (SEE BELOW)  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
//*            +-- NOTE ==> (SBG - NO MORE. IKJEFLPA FROM IBM IS    *   FILE 325
//*                          NOW INCOMPATIBLE, SO WE DISASSEMBLED   *   FILE 325
//*                          THE OLD ONE, FIXED THE "CENTURY"       *   FILE 325
//*                          PROBLEM, AND WE ARE INCLUDING ITS      *   FILE 325
//*                          SOURCE HERE. ALSO IKJEFLPB.)           *   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
//*       The MVT Compilers have now been moved to the CBT          *   FILE 326
//*       Overflow Tape.  The following compilers have been         *   FILE 326
//*       moved:                                                    *   FILE 326
//*                                                                 *   FILE 326
//*       ALGOL       - from File 176 to CBT Overflow File 089      *   FILE 326
//*       FORTRAN G/H - from File 326 to CBT Overflow File 090      *   FILE 326
//*       RPG/F       - from File 327 to CBT Overflow File 091      *   FILE 326
//*       PL/I-F      - from File 092 to CBT Overflow File 092      *   FILE 326
//*                                                                 *   FILE 326
//*           JIM HAS RETIRED FROM THE AIR FORCE.  HIS ADDRESS IS:  *   FILE 326
//*                                                                 *   FILE 326
//*                 Jim Marshall                                    *   FILE 326
//*                 Office of Personnel Management                  *   FILE 326
//*                 CIO/WTC - Room BH04                             *   FILE 326
//*                 1900 E Street NW                                *   FILE 326
//*                 Washington DC   20415-0001                      *   FILE 326
//*                 w - 202-606-1261                                *   FILE 326
//*                 f - 202-606-2092                                *   FILE 326
//*                 jdmarsha@opm.gov                                *   FILE 326
//*                                                                 *   FILE 326
//*           THIS FILE HAS BEEN UPDATED BY RICK FOCHTMAN.          *   FILE 326
//*                 630-719-1545     rfochtman@ync.net              *   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
//*       The MVT Compilers have now been moved to the CBT          *   FILE 327
//*       Overflow Tape.  The following compilers have been         *   FILE 327
//*       moved:                                                    *   FILE 327
//*                                                                 *   FILE 327
//*       ALGOL       - from File 176 to CBT Overflow File 089      *   FILE 327
//*       FORTRAN G/H - from File 326 to CBT Overflow File 090      *   FILE 327
//*       RPG/F       - from File 327 to CBT Overflow File 091      *   FILE 327
//*       PL/I-F      - from File 092 to CBT Overflow File 092      *   FILE 327
//*                                                                 *   FILE 327
//*  ************************************************************   *   FILE 327
//*  *   Please see File 667, which contains an extensive       *   *   FILE 327
//*  *   tutorial by Jay Moseley, to teach you how to program   *   *   FILE 327
//*  *   with this version of the RPG language.                 *   *   FILE 327
//*  ************************************************************   *   FILE 327
//*                                                                 *   FILE 327
//*               Jim Marshall                                      *   FILE 327
//*               Office of Personnel Management                    *   FILE 327
//*               CIO/WTC - Room BH04                               *   FILE 327
//*               1900 E Street NW                                  *   FILE 327
//*               Washington DC   20415-0001                        *   FILE 327
//*               w - 202-606-1261                                  *   FILE 327
//*               f - 202-606-2092                                  *   FILE 327
//*               jdmarsha@opm.gov                                  *   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 5 datasets.           *   FILE 330
//*           Rexx Library                                          *   FILE 330
//*           Panel Library                                         *   FILE 330
//*           Message and Skeleton Library                          *   FILE 330
//*           Table Library                                         *   FILE 330
//*           Load Library                                          *   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
//*           Dale Chaney wrote the original program, and after     *   FILE 332
//*           these 30-odd years, it seems appropriate to give      *   FILE 332
//*           Dale the proper credit for this nice work.            *   FILE 332
//*                                                                 *   FILE 332
//*           A modified version of this program, which is running  *   FILE 332
//*           in production, has also been included in this file.   *   FILE 332
//*                                                                 *   FILE 332
//*           Another modified version of this program, which       *   FILE 332
//*           has been running under z/OS as high as release 1.11,  *   FILE 332
//*           has been put into this file as member AUTO.  Its      *   FILE 332
//*           load module is in XMIT format as member AUTOLOAD.     *   FILE 332
//*           This version of AUTO has been sent in by Glenn        *   FILE 332
//*           Siegel.                                               *   FILE 332
//*                                                                 *   FILE 332
//*           The old version, which doesn't seem to work anymore   *   FILE 332
//*           on z/OS, has been renamed AUTOOLD and has been        *   FILE 332
//*           replaced by the version from Glenn Siegel, which      *   FILE 332
//*           seems to work fine on z/OS, together with its load    *   FILE 332
//*           module, which is included here.                       *   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:     Roland@schiradin.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 and contains programs     *   FILE 338
//*           and enhancements for running a P390 system.           *   FILE 338
//*                                                                 *   FILE 338
//*     Gilbert's programs are now being supported by Carlos        *   FILE 338
//*      Aguilera and Sam Golob:                                    *   FILE 338
//*                                                                 *   FILE 338
//*     email:        carlos@gsf-soft.com                           *   FILE 338
//*     web page:     http://www.gsf-soft.com/Freeware              *   FILE 338
//*                                                                 *   FILE 338
//*     email:        sbgolob@cbttape.org                           *   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   -  Roland@schiradin.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 Computer  *   FILE 343
//*           Sciences Corp. 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@scsnet.csc.com                        *   FILE 343
//*                                                                 *   FILE 343
//*    Updated:  06/20/03  to bypass HFS files and change BAL       *   FILE 343
//*                        an BALR instructions to BAS and BASR.    *   FILE 343
//*    Updated:  03/25/02  with old version still included.         *   FILE 343
//*                                                                 *   FILE 343
//*    Here is a new VTOCLIST with 3390-27 (or 32) large DASD       *   FILE 343
//*    support.  I had to sacrifice the KEYLEN field in the         *   FILE 343
//*    report to make room for the larger track and cylinder        *   FILE 343
//*    sizes.  I renamed the old version with a "zero" in the       *   FILE 343
//*    3rd position of VTxCLIST.                                    *   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
//*   Updated 03-25-02.  See below (what's new?) for information.   *   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
//*     What's new?                                                 *   FILE 344
//*                                                                 *   FILE 344
//*     25.03.2002:                                                 *   FILE 344
//*     3.4Command Tracks                                           *   FILE 344
//*       Works for: + volumes                                      *   FILE 344
//*                  + DSLevel without volume                       *   FILE 344
//*                                                                 *   FILE 344
//*       Does not work for: - DSLevel with volume                  *   FILE 344
//*       Because I'm unable to get the DSLevel and volume          *   FILE 344
//*       from 3.4(panel ISRUDLP)(I tried ZALVOL, ZDLDSNLV,         *   FILE 344
//*       ZDLPVL and some other 4282 variables) I have to grab      *   FILE 344
//*       the DSLevel or volume from the screen.                    *   FILE 344
//*                                                                 *   FILE 344
//*     TSOCommand VGet                                             *   FILE 344
//*       Lists all variables from the member VGETTAB.              *   FILE 344
//*                                                                 *   FILE 344
//*     EditMacro MacroRes                                          *   FILE 344
//*       Added isredit preserve on.                                *   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 MURRAY NICHOLAS OF GALEFORCE INFORMATION      *   FILE 345
//*           SERVICES, PTY LTD IN MELBOURNE, AUSTRALIA, AND        *   FILE 345
//*           CONTAINS A GENERALIZED MPF EXIT WHICH CAN TRIGGER     *   FILE 345
//*           VARIED RESPONSES TO DIFFERENT CONSOLE MESSAGES.       *   FILE 345
//*                                                                 *   FILE 345
//*           THE MESSAGE NUMBERS AND RESPONSES ARE CONTAINED       *   FILE 345
//*           AS MEMBERS OF A DESIGNATED PDS.  THEREFORE, THE       *   FILE 345
//*           RESPONSES TO A GIVEN MESSAGE MAY BE EASILY            *   FILE 345
//*           CHANGED, WITHOUT A PARMLIB ADJUSTMENT.                *   FILE 345
//*                                                                 *   FILE 345
//*           THIS PACKAGE WORKS FINE AS IS, BUT A FEW              *   FILE 345
//*           IMPROVEMENTS COULD BE MADE, AS INDICATED BY SOME      *   FILE 345
//*           OF THE DOCUMENTATION, WHICH COULD MAKE THIS           *   FILE 345
//*           PACKAGE REALLY POWERFUL.                              *   FILE 345
//*                                                                 *   FILE 345
//*           THE AUTHOR MAY SPEND A CONSIDERABLE TIME IN THE U.S.  *   FILE 345
//*           IN THE NEAR FUTURE (5/98).                            *   FILE 345
//*                                                                 *   FILE 345
//*       email:   murray@galeforce.bu.aust.com  (lower case)       *   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
//*       $$EXIT44  -  Small change to Exit 44, for OS/390 2.10     *   FILE 346
//*                                                                 *   FILE 346
//*       Bob Break                                                 *   FILE 346
//*       St. Louis, Mo.                                            *   FILE 346
//*       cb7485@momail.sbc.com                                     *   FILE 346
//*       bbreak@swbell.net                                         *   FILE 346
//*       314-340-9301                                              *   FILE 346
//*       314-845-2018                                              *   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:   sbgolob@cbttape.org                          *   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
//*     Please address any requests for help or send any            *   FILE 347
//*     modifications or suggestions to Sam Golob, email address    *   FILE 347
//*     above.                                                      *   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@outlook.com>                *   FILE 348
//*                                                                 *   FILE 348
//***FILE 349 is from Willy Jensen and contains programs to update  *   FILE 349
//*           the ISPF commmand tables in-flight and through a      *   FILE 349
//*           dialog.                                               *   FILE 349
//*                                                                 *   FILE 349
//*           email:        willy.h.jensen@outlook.com              *   FILE 349
//*           website:      http://harders-jensen.com/wjtech        *   FILE 349
//*                                                                 *   FILE 349
//*       Programs contained in the package:                        *   FILE 349
//*                                                                 *   FILE 349
//*        ISPCMDU  - update the  command  table in-flight          *   FILE 349
//*                   using a pds member as input                   *   FILE 349
//*                                                                 *   FILE 349
//*        ISPCMDL  - dialog to list all active command tables      *   FILE 349
//*                                                                 *   FILE 349
//*        ISPCMDD  - dialog for update ISPCMDU member              *   FILE 349
//*                                                                 *   FILE 349
//*        ISPCTE   - dialog to update the ISPF command             *   FILE 349
//*                   table members, can activate changes           *   FILE 349
//*                   in-flight                                     *   FILE 349
//*                                                                 *   FILE 349
//*        XISPTBL  - ISPF table display pgm, used by ISPCTE        *   FILE 349
//*                                                                 *   FILE 349
//*        Member list                                              *   FILE 349
//*                                                                 *   FILE 349
//*         $$$DOC     - Installation instructions                  *   FILE 349
//*         $$$#DATE   - File 349 package date and version          *   FILE 349
//*         ISPCMDD    - REXX pgm - dialog for update ISPCMDU       *   FILE 349
//*                      member                                     *   FILE 349
//*         ISPCMDDD   - panel for ISPCMDD                          *   FILE 349
//*         ISPCMDDL   - panel for ISPCMDD                          *   FILE 349
//*         ISPCMDL    - REXX pgm - list table(s)                   *   FILE 349
//*         ISPCMDL1   - panel for ISPCMDL                          *   FILE 349
//*         ISPCMDL2   - panel for ISPCMDL                          *   FILE 349
//*         ISPCMDL3   - panel for ISPCMDL                          *   FILE 349
//*         ISPCMDU    - REXX pgm - update ISPCMDS in-flight        *   FILE 349
//*         ISPCOMND   - Sample file for ISPCMDU                    *   FILE 349
//*         ISPCTE     - REXX pgm - update command table            *   FILE 349
//*         ISPCTED    - ISPCTE panel - detail                      *   FILE 349
//*         ISPCTEL    - ISPCTE panel - list                        *   FILE 349
//*         ISPCTEP    - ISPCTE panel - prompt                      *   FILE 349
//*         XISPTBL    - REXX pgm - general table display           *   FILE 349
//*         XISPTBD1   - XISPTBL demo pgm 1 - simple case           *   FILE 349
//*         XISPTBD2   - XISPTBL demo pgm 2 - call external         *   FILE 349
//*                      cmd handler                                *   FILE 349
//*         XISPTBL@   - XISPTBL doc                                *   FILE 349
//*         XISPTBLD   - XISPTBL panel for demo programs.           *   FILE 349
//*         XISPTBLL   - XISPTBL panel for demo programs.           *   FILE 349
//*                                                                 *   FILE 349
//***FILE 350 is from Bob Break of St Louis, Missouri, and contains *   FILE 350
//*           several of his JES2 exits.                            *   FILE 350
//*                                                                 *   FILE 350
//*     These JES2 exits implement conversion to WLM resource       *   FILE 350
//*     affinity scheduling, from other schemes.                    *   FILE 350
//*                                                                 *   FILE 350
//*        MELLON04 and MELLON06 implement change of Mellon         *   FILE 350
//*           Mods /*ROUTE XEQ resname  (resource names)   to       *   FILE 350
//*           SCHENV=RESNAME                                        *   FILE 350
//*                                                                 *   FILE 350
//*        PROCNV06 implements conversion of SW Bell Corp's PRO     *   FILE 350
//*           system's "symbolic jobclasses"  to                    *   FILE 350
//*           SCHENV=SYMJBCLS                                       *   FILE 350
//*                                                                 *   FILE 350
//*     Tentative support:  Sam Golob    sbgolob@cbttape.org        *   FILE 350
//*                                                                 *   FILE 350
//***FILE 351 is from Kriss Davis of Illinois State University      *   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 <kpdavis@ilstu.edu>                 *   FILE 351
//*       EMAIL:    ROLAND SCHIRADIN (ROLAND@SCHIRADIN.DE)          *   FILE 351
//*                                                                 *   FILE 351
//***FILE 352 has been moved to the CBT Overflow Tape, File 301.    *   FILE 352
//*                                                                 *   FILE 352
//*           Below is a listing of what this file used to          *   FILE 352
//*           contain, so you can know whether to look at the       *   FILE 352
//*           CBT Overflow Tape, File 301, for this material, or    *   FILE 352
//*           not.                                                  *   FILE 352
//*                                                                 *   FILE 352
//*   CBT Overflow Tape, File 301:                                  *   FILE 352
//*                                                                 *   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 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@kp.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 This file contains several utilities to process       *   FILE 357
//*           partitioned data sets, some COBOL and PL/I            *   FILE 357
//*           utilities, and a number of ISPF EDIT and DS List      *   FILE 357
//*           macros. All are freeware to be used as desired.       *   FILE 357
//*           The utilities are now all in an unloaded member,      *   FILE 357
//*           @LOADLIB.                                             *   FILE 357
//*                                                                 *   FILE 357
//*               C_Hafner@HotMail.Com                              *   FILE 357
//*                                                                 *   FILE 357
//*       File Contents:                                            *   FILE 357
//*                                                                 *   FILE 357
//*       $$$NOTE  -- Introductory release notes                    *   FILE 357
//*       @FILE357 -- Simple description of file content  (this     *   FILE 357
//*                   file)                                         *   FILE 357
//*       @MACDOC# -- Documentation for all Edit & CLIST macros     *   FILE 357
//*                   expamded with carriage control                *   FILE 357
//*       @MACDOCO -- Documentation for all Edit & CLIST macros     *   FILE 357
//*       @PGMDOC# -- Documentation for the included programs       *   FILE 357
//*       @PGMDOCO -- Documentation for the included programs       *   FILE 357
//*                   expanded with carriage control                *   FILE 357
//*                                                                 *   FILE 357
//*       ABENDX   -- Abend with supplied user or system code       *   FILE 357
//*       ABENDX$  -- Sample JCL for ABENDX                         *   FILE 357
//*       ADDCC    -- Revise sequential file into printable file    *   FILE 357
//*                   using script tags                             *   FILE 357
//*       ADDCC$   -- Sample JCL for ADDCC                          *   FILE 357
//*       ADDCC@   -- Add carriage control to any sequential file   *   FILE 357
//*       ADDCOLS  -- Add columns (from Mark Zelden) of different   *   FILE 357
//*                   types                                         *   FILE 357
//*       ADDFLAG  -- Add revision flags to selected lines          *   FILE 357
//*       ADDLINEA -- Part of ADDLINES                              *   FILE 357
//*       ADDLINEB -- Part of ADDLINES                              *   FILE 357
//*       ADDLINES -- Add a member before or after every other      *   FILE 357
//*                   member in a PDS                               *   FILE 357
//*       ALIGN    -- Align code based on a string                  *   FILE 357
//*       ALIGNALL -- Align data based on delimiters                *   FILE 357
//*       ALIGNAX  -- Align data based on delimiters and removing   *   FILE 357
//*                   them                                          *   FILE 357
//*       ALIGNS   -- Align code based on a string with             *   FILE 357
//*                   minimal spaces utilized                       *   FILE 357
//*       ALLMEM   -- Execute a macro against every member of a     *   FILE 357
//*                   PDS (see ALLMEMC and ALLMEMF)                 *   FILE 357
//*       ALLMEMC  -- Sample change macro for ALLMEM                *   FILE 357
//*       ALLMEMF  -- Sample find macro for ALLMEM                  *   FILE 357
//*       ALLOC    -- Dynamic allocation macro                      *   FILE 357
//*       ALLOCGDX -- Allocate a relative GDG as an absolute one    *   FILE 357
//*       ALPHACNT -- COBOL alphanumeric count routines             *   FILE 357
//*       ASAXWC   -- IBM wildcard macro                            *   FILE 357
//*       ASAXWC$  -- Sample use of ASAXWC                          *   FILE 357
//*       BASEASM  -- Basic assembler read and write program        *   FILE 357
//*       BASECOB  -- Basic COBOL read and write program            *   FILE 357
//*       BASEEZ   -- Basic Easytrieve read and write program       *   FILE 357
//*       BASEPLI  -- Basic PL/I read and write program             *   FILE 357
//*       BC       -- Blank selected columns                        *   FILE 357
//*       BLDLR    -- Routine to get member directory data          *   FILE 357
//*       BNCHMKA  -- Assembler benchmark skeleton                  *   FILE 357
//*       BNCHMKC  -- COBOL benchmark skeleton                      *   FILE 357
//*       BNCHMKP  -- PL/I benchmark skeleton                       *   FILE 357
//*       BS       -- Optimal block size calculator                 *   FILE 357
//*       CC       -- Simple calculator                             *   FILE 357
//*       CENTER   -- Center text                                   *   FILE 357
//*       CHDEL    -- Dynamically create HDELs for files to be      *   FILE 357
//*                   deleted                                       *   FILE 357
//*       CLONE    -- Create a copy of a data set under ISPF DSList *   FILE 357
//*       CLONER   -- Create a copy of a data set under ISPF DSList *   FILE 357
//*                   and replace an existing data set              *   FILE 357
//*       CLRSCRN  -- Routine to clear TSO screen                   *   FILE 357
//*       CLS      -- Macro to invoke CLRSCRN to clear TSO screen   *   FILE 357
//*       CLS2REXX -- Macro to convert CLIST to REXX EXEC           *   FILE 357
//*       COBBITS  -- COBOL bit manipulation sub-programs           *   FILE 357
//*       COBCOLOF -- Put COBOL structure offsets into columns 73   *   FILE 357
//*                   thru 80 using FileAid                         *   FILE 357
//*       COBCOLOI -- Put COBOL structure offsets into columns 73   *   FILE 357
//*                   thru 80 using InSync                          *   FILE 357
//*       COBCOLSF -- Put COBOL structure offsets into columns 73   *   FILE 357
//*                   thru 80 using FileAid                         *   FILE 357
//*       COBCOLSI -- Put COBOL structure offsets into columns 73   *   FILE 357
//*                   thru 80 using InSync                          *   FILE 357
//*       COBCOLVF -- View FileAid layout of COBOL structure        *   FILE 357
//*       COBCOLVI -- View InSync layout of COBOL structure         *   FILE 357
//*       COBCPUTM -- Sample COBOL CPU calculation code from MVS    *   FILE 357
//*                   Help site                                     *   FILE 357
//*       COBHEXR  -- COBOL hex conversion sub-program              *   FILE 357
//*       COBLKLST -- COBOL LE link list sample                     *   FILE 357
//*       COL      -- Macro to insert column string                 *   FILE 357
//*       COLS     -- Macro to insert column string                 *   FILE 357
//*       COLSCC   -- Macro to insert column string over range      *   FILE 357
//*                   from Jim Haire                                *   FILE 357
//*       COMPRS   -- Macro to compress PDS from within Edit        *   FILE 357
//*       CONBLANK -- Consolidate 2 or more blank lines to one      *   FILE 357
//*       CONCATDD -- Concatenate a data set to a DD                *   FILE 357
//*       COPYCOLS -- Copy column data                              *   FILE 357
//*       COPYINS  -- Copy and insert column data                   *   FILE 357
//*       COUNTX   -- Show record count from DS List (ISPF 3.4)     *   FILE 357
//*                   for sequential or VSAM files                  *   FILE 357
//*       COUNTXNX -- Count excluded and included lines             *   FILE 357
//*       CU       -- Insert IEFBR14 data set clean up JCL          *   FILE 357
//*       CUD      -- Dynamically insert data set clean up JCL      *   FILE 357
//*       CUTX     -- Tweaked cut type macro                        *   FILE 357
//*       CVB      -- Convert display numeric to binary             *   FILE 357
//*       CVD      -- Convert binary to display numeric             *   FILE 357
//*       C2H      -- Convert characters to hex equivalent          *   FILE 357
//*       DELBLANK -- Delete blank lines                            *   FILE 357
//*       DELCOLS  -- Delete column data                            *   FILE 357
//*       DELDUPS  -- Sort file and delete duplicate lines          *   FILE 357
//*       DELDUPX  -- Delete contiguous duplicate lines             *   FILE 357
//*       DELPARA  -- Delete debug lines from DISPARA & DISPVAR     *   FILE 357
//*       DESC     -- Macro to show LRECL, BLKSIZE and count        *   FILE 357
//*       DETAB    -- Restructure tabbed file                       *   FILE 357
//*       DETAB$   -- JCL for DETAB                                 *   FILE 357
//*       DIRLIST  -- Hex list of a directory separating each member*   FILE 357
//*       DIRLIST$ -- JCL for DIRLIST                               *   FILE 357
//*       DIRSCNC  -- COBOL directory generator                     *   FILE 357
//*       DIRSCNC$ -- JCL for DIRSCNC                               *   FILE 357
//*       DIRSCNQ  -- PL/I directort generator                      *   FILE 357
//*       DIRSCNQ$ -- JCL for DIRSCNQ                               *   FILE 357
//*       DISPARA  -- Add DISPLAY at start of every paragraph       *   FILE 357
//*       DISPDSN  -- Reverse DSN=...,DISP=SHR to DISP=SHR,DSN=...  *   FILE 357
//*       DISPVAR  -- Add DISPLAY line for variable under cursor    *   FILE 357
//*       DYNA     -- Sample dynamic allocator using MACSDYNA       *   FILE 357
//*       DYNAMC   -- Sample COBOL dynamic allocation using BPXWDYN *   FILE 357
//*       DYNAMP   -- Sample PL/I dynamic allocation using BPXWDYN  *   FILE 357
//*       DYNCOB   -- Sample COBOL dynamic allocation using DYNA    *   FILE 357
//*       DYNF     -- Sample dynamic free using MACSDYNA            *   FILE 357
//*       DYNI     -- Sample dynamic internal reader using MACSDYNA *   FILE 357
//*       DYNN     -- Sample dynamic allocation using MACSDYNA      *   FILE 357
//*       DYNPLIA  -- Sample PL/I dynamic allocation using DYNA     *   FILE 357
//*       DYNPLII  -- Sample PL/I dynamic internal reader using DYNA*   FILE 357
//*       DYNPLIN  -- Sample PL/I dynamic allocation using DYNA     *   FILE 357
//*       DYNPLIS  -- Sample PL/I dynamic SYSOUT using DYNA         *   FILE 357
//*       DYNS     -- Sample dynamic SYSOUT using MACSDYNA          *   FILE 357
//*       EMPTY    -- Remove data from DS List sequential or PDS    *   FILE 357
//*       EMPTYCK$ -- Use IDCAMS to set return code indicating      *   FILE 357
//*                   whether a dataset is really empty             *   FILE 357
//*       ENC      -- Simple encryption macro                       *   FILE 357
//*       ENC2     -- Improved ENC encryption macro                 *   FILE 357
//*       EZCKGRDT -- Easytrieve Gregorian daet check               *   FILE 357
//*       EZCKJUDT -- Easytrieve Julian date check                  *   FILE 357
//*       EZCL     -- Easytrieve link sample                        *   FILE 357
//*       EZCOPY   -- Easytrieve simple copy                        *   FILE 357
//*       EZCOUNT  -- Easytrieve record count                       *   FILE 357
//*       EZGENRPT -- Easytrieve sample most options                *   FILE 357
//*       EZPARM   -- Easytrieve sample PARM usage                  *   FILE 357
//*       EZSTRSK  -- Easytrieve string search using STRSRCH macro  *   FILE 357
//*       EZUNPK   -- Easytrieve unpack sample                      *   FILE 357
//*       FALT     -- Dummy macro to allow repeat of FN, FGE, etc   *   FILE 357
//*       FAND     -- Show lines with all specified strings         *   FILE 357
//*       FEXC     -- Find the next excluded line                   *   FILE 357
//*       FGE      -- Find line with value greater then some value  *   FILE 357
//*       FGT      -- Find line with value greater then or equal    *   FILE 357
//*       FILLCOLS -- Overlay data columns with string              *   FILE 357
//*       FILLINS  -- Insert string into data columns               *   FILE 357
//*       FINDDUPS -- Sort and show duplicate lines                 *   FILE 357
//*       FINDDUPX -- Show duplicate lines                          *   FILE 357
//*       FINDNSTR -- Do SuperC in DS List for members w/o string   *   FILE 357
//*       FINDSTRX -- Do SuperC in DS List for members w/ string    *   FILE 357
//*       FLAGREVS -- Show which lines of a member changed in Edit  *   FILE 357
//*                   before saving                                 *   FILE 357
//*       FLE      -- Find line with value less then some value     *   FILE 357
//*       FLT      -- Find line with value less then or equal       *   FILE 357
//*       FMAX     -- Find largest value in some columns            *   FILE 357
//*       FMDOUBLE -- COBOL convert float to display for Easytrieve *   FILE 357
//*       FMIN     -- Find smallest value in some columns           *   FILE 357
//*       FN       -- Repeatable find of line with value not        *   FILE 357
//*       FNB      -- Find non blank values                         *   FILE 357
//*       FNOT     -- Show lines with none of given strings         *   FILE 357
//*       FOG      -- Random text generator                         *   FILE 357
//*       FOR      -- Show lines with any of the given strings      *   FILE 357
//*       FOREVER  -- Generate job to "touch" list of data sets     *   FILE 357
//*       FOREVERX -- Sample EXEC to "touch" list of data sets      *   FILE 357
//*       FORMCOLS -- Reformat arithmetic data using a format       *   FILE 357
//*       FPEND    -- Find the lines with a pending prefix command  *   FILE 357
//*       FREE     -- Dynamic allocation macro                      *   FILE 357
//*       FS       -- Submit PDS scan for string macro              *   FILE 357
//*       FX       -- Exclude all except lines with string          *   FILE 357
//*       GATHERX  -- Pull all excluded lines together              *   FILE 357
//*       GETDSN   -- Routine to get data set name from COBOL       *   FILE 357
//*       GETDSNS  -- Paste wildcard list of data sets into file    *   FILE 357
//*       GETGDGS  -- Generate GDG list or DD images                *   FILE 357
//*       GETMEMS  -- Generate selected member list after cursor    *   FILE 357
//*       GETRGNSZ -- Show TSO region size                          *   FILE 357
//*       GMT      -- Show Greenwich offset to local time           *   FILE 357
//*       HEXDUMP  -- Dump data in hex/character format as logical  *   FILE 357
//*                   records                                       *   FILE 357
//*       HEXDUMP$ -- JCL for HEXDUMP                               *   FILE 357
//*       HEXUDUM  -- Dump data in hex/character format as          *   FILE 357
//*                   unformatted records                           *   FILE 357
//*       HEXUDUM$ -- JCL for HEXUDUMP                              *   FILE 357
//*       HEXUIDC$ -- IDCAMS PRINT DUMP sample                      *   FILE 357
//*       HOWLONG  -- Show the larget and smallest record size      *   FILE 357
//*       HSMDOC   -- Quick reference to HSM commands               *   FILE 357
//*       H2C      -- Hex to character equivalent macro converter   *   FILE 357
//*       IE       -- Insert COBOL code for EVALUATE structure      *   FILE 357
//*       IEZBITS  -- IBM bit equivalence assembler macro           *   FILE 357
//*       II       -- Insert COBOL code for IF/ELSE/END-IF structure*   FILE 357
//*       IP       -- Insert COBOL code for PERFORM structure       *   FILE 357
//*       IPADDR   -- Get IP address                                *   FILE 357
//*       IS       -- Insert COBOL code for SEARCH structure        *   FILE 357
//*       ISA      -- Insert COBOL code for SEARCH ALL structure    *   FILE 357
//*       ISORT    -- Insert COBOL code for Sort JCL                *   FILE 357
//*       IST      -- Insert COBOL code for STRING structure        *   FILE 357
//*       JB       -- Jump back to PERFORM statement                *   FILE 357
//*       JC       -- Insert job card at front of file              *   FILE 357
//*       JOBINFO  -- COBOL sample grabbing job information from    *   FILE 357
//*                   control tables                                *   FILE 357
//*       JOINCOLS -- Join columns with Edit macro                  *   FILE 357
//*       JT       -- Jump to paragraph being PERFORMed             *   FILE 357
//*       KEEPCOLS -- Keep specified columns, deleting others       *   FILE 357
//*       LASTREF  -- Show the last reference date in DS List       *   FILE 357
//*       LESS     -- Exclude additional lines                      *   FILE 357
//*       LJUST    -- Left justify text                             *   FILE 357
//*       LKDT     -- Show link date                                *   FILE 357
//*       LMODWU   -- Load module where used                        *   FILE 357
//*       LMODWU$  -- JCL for LMODWU                                *   FILE 357
//*       LMODXRF  -- Load module cross reference                   *   FILE 357
//*       LMODXRF$ -- JCL for LMODXRF                               *   FILE 357
//*       LONGEST  -- Show the longest line                         *   FILE 357
//*       MACSDYNA -- Dynamic allocation macros (many)              *   FILE 357
//*       MORE     -- Unexclude additional lines                    *   FILE 357
//*       MOVECOLD -- Move column data deleting original columns    *   FILE 357
//*       MOVECOLS -- Move column data                              *   FILE 357
//*       MOVEINS  -- Move and insert column data                   *   FILE 357
//*       MOVEINSD -- Insert column data and delete original data   *   FILE 357
//*       NEATJCL  -- Format JCL                                    *   FILE 357
//*       NEW      -- Allocate a sequential file                    *   FILE 357
//*       NEWP     -- Allocate a PDS                                *   FILE 357
//*       NUMCOLS  -- Place numbers in specific columns             *   FILE 357
//*       NUMCOLS0 -- Place zero padded numbers in specific         *   FILE 357
//*       OPCODE   -- Describe instruction associated with          *   FILE 357
//*       PA       -- PASTEAFT equivalent for IBM CUT/PASTE commands*   FILE 357
//*       PACKDS   -- Compress file using IBM TRSMAIN               *   FILE 357
//*       PAGES    -- Select pages from large sequential carriage   *   FILE 357
//*       PAGES$   -- Sample JCL for PAGES                          *   FILE 357
//*       PASTEAFT -- Copy CUTX lines after one or more lines       *   FILE 357
//*       PASTEX   -- A paste variation                             *   FILE 357
//*       PASTY    -- Do PASTEX with a PF Key                       *   FILE 357
//*       PDSGEN   -- Generate data with member/data set tokens     *   FILE 357
//*       PDSGEN$  -- JCL for PDSGEN                                *   FILE 357
//*       PDSLIST  -- List concatenated PDS's of any record format  *   FILE 357
//*       PDSLIST$ -- JCL for PDSLIST                               *   FILE 357
//*       PDSMATC  -- Generate SUPERC compares for unequal PDSMATCH *   FILE 357
//*                   members                                       *   FILE 357
//*       PDSMATC$ -- JCL for PDSMATCH                              *   FILE 357
//*       PDSMATC@ -- JCL for PDSMATCH and PDSMATC                  *   FILE 357
//*       PDSMATCH -- Match 2 PDS's by name, statistics or data     *   FILE 357
//*                   (Updated to fix a bug. False equal if more    *   FILE 357
//*                    data was in the second file. - 12/2015)      *   FILE 357
//*                   (Second bug. Null members compared not equal) *   FILE 357
//*                   (Fix to do multiple GETMAINs that will        *   FILE 357
//*                    accommodate a directory of any size.)        *   FILE 357
//*                   (Fix to solve RECFM=VB problem.)              *   FILE 357
//*       PDSPUNC$ -- JCL for PDSPUNCH                              *   FILE 357
//*       PDSPUNCH -- Make an IEBUPDTE ADD/REPL file of             *   FILE 357
//*       PDS2SEQ  -- Put PDS members into sequential file          *   FILE 357
//*       PK       -- Pack numbers (into COMP-3 format)             *   FILE 357
//*       PULL     -- Select 1 or more sets of records from any     *   FILE 357
//*       PULL$    -- Sample JCL for PULL                           *   FILE 357
//*       PY       -- Equivalent of PASTY for IBM CUT/PASTE         *   FILE 357
//*       QCLONE   -- Submit of CLONE equivalent job                *   FILE 357
//*       QCLONER  -- Submit of CLONER equivalent job               *   FILE 357
//*       RANCOLS  -- Generate random numbers into specific         *   FILE 357
//*       RANCOLS0 -- Generate zero padded random numbers into      *   FILE 357
//*       REALUNIQ -- Find only really unique lines with sort       *   FILE 357
//*       REALUNIX -- Find only really unique lines with out sort   *   FILE 357
//*       REGS     -- Assembler register naming generator           *   FILE 357
//*       RENTER   -- Assembler reenterable prologue macro          *   FILE 357
//*       REVERSEX -- Reverse line order                            *   FILE 357
//*       REXIT    -- Assembler reenterable exit macro              *   FILE 357
//*       RJUST    -- Right justify text                            *   FILE 357
//*       SAVEINPL -- Save edited member in place                   *   FILE 357
//*       SCANPDS  -- Simple SuperC example                         *   FILE 357
//*       SCANPDSX -- SuperC with options shown                     *   FILE 357
//*       SETRC    -- Set return code for MVS COND checking         *   FILE 357
//*       SETRC$   -- Sample JCL for SETRC                          *   FILE 357
//*       SHIFT    -- Shift columns                                 *   FILE 357
//*       SHORTEST -- Find shortest line                            *   FILE 357
//*       SHUFFLE  -- Randomize line order                          *   FILE 357
//*       SLEEP    -- Pause for # seconds                           *   FILE 357
//*       SMARTGN  -- Generate control cards from list              *   FILE 357
//*       SMARTGN$ -- Sample JCL for SMARTGN                        *   FILE 357
//*       SNACK    -- Exclude all but lines w/ variable under       *   FILE 357
//*                   cursor                                        *   FILE 357
//*       SORTNX   -- Sort non excluded lines keeping the excluded  *   FILE 357
//*       SORTX    -- Documented sample sort controls               *   FILE 357
//*       SPLITAFT -- Split selected lines after given string       *   FILE 357
//*       SPLITON  -- Split selected lines at given string          *   FILE 357
//*       SPLTCOLS -- Split one line into several                   *   FILE 357
//*       SQUSH    -- Eliminate multiple blanks                     *   FILE 357
//*       STEMSRT1 -- REXX stem sort via quick sort w/ timings      *   FILE 357
//*       STEMSRT2 -- REXX stem sort via shell sort w/ timings      *   FILE 357
//*       STEMSRT3 -- REXX stem sort via call to sort w/ timings    *   FILE 357
//*       STOWR    -- Save member directory information routine     *   FILE 357
//*       STOWU    -- Null member directory information routine     *   FILE 357
//*       STRING   -- Gilbert's assembler DISPLAY macro             *   FILE 357
//*       STRING$  -- Sample JCL using STRING                       *   FILE 357
//*       STRING#  -- Documentation for STRING                      *   FILE 357
//*       STRSRCH  -- Easytrieve string search macro                *   FILE 357
//*       STRSRCH# -- Documentation for STRSRCH                     *   FILE 357
//*       STRUCT   -- Show program structure (COBOL, EZTrieve,      *   FILE 357
//*       SUBCAN   -- Submit job and cancel edit session            *   FILE 357
//*       SUBO     -- Submit job with substituted variables with    *   FILE 357
//*                   ORIGIN as default                             *   FILE 357
//*       SUBX     -- Submit job with substituted variables         *   FILE 357
//*       SUFFLINE -- Add suffix to selected lines                  *   FILE 357
//*       SUMCOLS  -- Sum columns                                   *   FILE 357
//*       SYSI     -- Show some TSO parameters                      *   FILE 357
//*       TD       -- Remove directory statistics                   *   FILE 357
//*       TERSE$   -- IBM compression sample                        *   FILE 357
//*       TODAY    -- Show variations of a given date               *   FILE 357
//*       TOUCH    -- Change any ISPF statistics from batch         *   FILE 357
//*       TOUCH$   -- JCL for TOUCH                                 *   FILE 357
//*       TRAP     -- Macro to trap output of TSO command           *   FILE 357
//*       TSJ      -- Do text split and join via PF Key             *   FILE 357
//*       TU       -- Update directory statistics                   *   FILE 357
//*       T1       -- Start macro timing                            *   FILE 357
//*       T2       -- Stop and display macro timing                 *   FILE 357
//*       UNIQUE   -- Sort and show unique lines                    *   FILE 357
//*       UNIQUEX  -- Show unique lines                             *   FILE 357
//*       UNPACKDS -- Decompress file using IBM TRSMAIN             *   FILE 357
//*       UNPK     -- Turn packed data into displayable data        *   FILE 357
//*       UNTOUCH  -- Eliminate any ISPF statistics from batch      *   FILE 357
//*       UNTOUCH$ -- JCL for UNTOUCH                               *   FILE 357
//*       VALUES   -- Summarize actual content of 1 or more sets of *   FILE 357
//*       VALUES$  -- JCL for VALUES                                *   FILE 357
//*       VERASE   -- Reset CUTX lines in Profile                   *   FILE 357
//*       VSAVE    -- Save file under View                          *   FILE 357
//*       VW       -- View file                                     *   FILE 357
//*       VWV      -- Gather and View part of VSAM file             *   FILE 357
//*       WAIT     -- Batch sleep routine                           *   FILE 357
//*       WAIT$    -- Gather and View part of VSAM file             *   FILE 357
//*       XALLMEM  -- Execute EXEC against another PDS              *   FILE 357
//*       XCOPY    -- Copy outside data source from command line    *   FILE 357
//*       XINDENT  -- Exclude to line with same indentation         *   FILE 357
//*       ZVW      -- View file under cursor                        *   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
//*           as repackaged and completed by Kevin Mitts.           *   FILE 358
//*                                                                 *   FILE 358
//*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  *   FILE 358
//*                                                                 *   FILE 358
//*     Repackager's Note:                                          *   FILE 358
//*                                                                 *   FILE 358
//*     I'm a heavy user of a lot of CBT products.  I've            *   FILE 358
//*     installed the SOUTSYS product but it was a real pain        *   FILE 358
//*     because there were many pieces missing.  I called and       *   FILE 358
//*     received all the missing pieces from the original           *   FILE 358
//*     writer and have repackaged it.  I have successfully         *   FILE 358
//*     installed it on OS/390 2.9 and z/OS 1.4.  It actually       *   FILE 358
//*     does a fair job of sysout archival.  My client and I        *   FILE 358
//*     were both pleasantly surprised that it worked well          *   FILE 358
//*     under z/OS 1.4.                                             *   FILE 358
//*                                                                 *   FILE 358
//*     So, if it helps, here's the repackaged product.             *   FILE 358
//*     See member $$INSTAL to do the installation.                 *   FILE 358
//*                                                                 *   FILE 358
//*                  Kevin Mitts                                    *   FILE 358
//*                  kevin.mitts@mindspring.com                     *   FILE 358
//*                  913-515-0638 cell                              *   FILE 358
//*                  KevMitts - AIM                                 *   FILE 358
//*                  Kevin Mitts - MSN IM                           *   FILE 358
//*                  kevinmitts - Yahoo IM                          *   FILE 358
//*                                                                 *   FILE 358
//*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  *   FILE 358
//*                                                                 *   FILE 358
//*     SUBJECT: SYSOUT WRITER UTILITY                              *   FILE 358
//*     FROM: Eric Bielefeld <EBIE@phmining.COM>                    *   FILE 358
//*                                                                 *   FILE 358
//*     Note.  If you think you are missing macros for an           *   FILE 358
//*            assembly, please look for them in member             *   FILE 358
//*            $MACLIB.                                             *   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
//*               eric-landsend@CHARTER.NET                         *   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
//*       Note:  The COMMAND program was fixed (2006/Feb) by        *   FILE 360
//*              Mike Tomkins.  email: mjt6@daimlerchrysler.com     *   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
//*                      Fixed (Feb. 2006) by Mike Tomkins.         *   FILE 360
//*                      email:  mjt6@daimlerchrysler.com           *   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
//*                      (Fixed for large volumes and different     *   FILE 360
//*                        display options by Gordon B. Hampton,    *   FILE 360
//*                        11/2008.  See member $$VOLSUP.)          *   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@outlook.com                       *   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
//*       Modules LISTPDS and PDSLOAD were replaced with newer      *   FILE 371
//*       versions:  (old versions kept as follows)                 *   FILE 371
//*                                                                 *   FILE 371
//*        NAME     DATA     ALIASOF  LEN/LKED   --                 *   FILE 371
//*        LISTPDS                    2018/11/10                    *   FILE 371
//*        LISTPDSO                   1983/10/03 REUS               *   FILE 371
//*        PDSLOAD                    2017/02/02                    *   FILE 371
//*        PDSLOADO                   1983/10/03 REUS               *   FILE 371
//*                                                                 *   FILE 371
//***FILE 372 is from Ken MacKenzie, and contains a dynamic         *   FILE 372
//*           allocation program that is faster than the ALLOC      *   FILE 372
//*           program which comes with TSO.  It's also a bit        *   FILE 372
//*           different, so you should look to see if it's          *   FILE 372
//*           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
//*                                                                 *   FILE 372
//*           Work      :                                           *   FILE 372
//*           ken.mackenzie@rbs.co.uk                               *   FILE 372
//*           *+44 131-523 5425 (*internal 25425)                   *   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 from F. David McRitchie, and contains REXX execs   *   FILE 380
//*           and other goodies he has written.  This file is       *   FILE 380
//*           several years old (dated approximately 1999), and is  *   FILE 380
//*           in the category of what I call "rabbit-hole ware".    *   FILE 380
//*           That is, Dave submitted it for the CBT Tape several   *   FILE 380
//*           years ago, I had some trouble processing it at that   *   FILE 380
//*           time, and it kind of "fell through the cracks" until  *   FILE 380
//*           I found it recently.  So here it is:  Please enjoy    *   FILE 380
//*           Dave's good work!  (SBG-11/02)                        *   FILE 380
//*                                                                 *   FILE 380
//*           For now, please refer to Sam Golob for questions      *   FILE 380
//*           and help:                                             *   FILE 380
//*                                                                 *   FILE 380
//*           email:  sbgolob@cbttape.org                           *   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@pc-link.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
//* 2009 additions                                                  *   FILE 382
//*                                                                 *   FILE 382
//*         DEBUGDOC documentation file for the DEBUG macor.        *   FILE 382
//*                                                                 *   FILE 382
//*         SHELL a very basic assembler program that I use as a    *   FILE 382
//*         model for any new code. This also contains samples of   *   FILE 382
//*         how the debug macro is coded.                           *   FILE 382
//*                                                                 *   FILE 382
//*         ISPFSTAT An assembler copy book that maps the ISPF stats*   FILE 382
//*         of a PDS directory, used by LISTDIR.                    *   FILE 382
//*                                                                 *   FILE 382
//*         LISTDIR  An assembler module to extract the contents of *   FILE 382
//*         a PDS directory. Used in IPL volume comparisons         *   FILE 382
//*                                                                 *   FILE 382
//*         LISTVTOC An assembler module to extract the contents of *   FILE 382
//*         a VTOC. Used in IPL volume comparisons                  *   FILE 382
//*                                                                 *   FILE 382
//*         IPLBLD00 JCL include member to set both IPL Volsers     *   FILE 382
//*                                                                 *   FILE 382
//*         IPLBLD90 JCL deck to generate IPL vol PDS compare jobs  *   FILE 382
//*         and compares the VTOCs while at it.                     *   FILE 382
//*                                                                 *   FILE 382
//*         IPLBLD91 JCL deck generated by IPLBLD90 that actually   *   FILE 382
//*         compares all PDS directories on the 2 IPL volumes.      *   FILE 382
//*                                                                 *   FILE 382
//*         IPLCOMPR JCL proc to compare PDS directories            *   FILE 382
//*                                                                 *   FILE 382
//*         IPLVOLXP Rexx exec to build IPL vol PDS directories     *   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 was moved to File 297 of the CBT Overflow Tape, to    *   FILE 384
//*           make some more room here.  The entire original        *   FILE 384
//*           contents of that file may now be found there, in      *   FILE 384
//*           that location.  (CBT Overflow Tape, File 297)         *   FILE 384
//*                                                                 *   FILE 384
//*           Only a stub from that file remains here, to point     *   FILE 384
//*           to the true location of the materials, on File 297    *   FILE 384
//*           of the CBT Overflow Tape.  Please look there.         *   FILE 384
//*                                                                 *   FILE 384
//*           This collection is from Computer Data Systems Inc.    *   FILE 384
//*           of Rockville, Maryland, and contains:                 *   FILE 384
//*                                                                 *   FILE 384
//*            1.  ISPF QUEUE FOR 1.3.4                             *   FILE 384
//*            2.  ISPF SPY                                         *   FILE 384
//*                                                                 *   FILE 384
//*            3.  SEVERAL OTHER PROGRAMS                           *   FILE 384
//*                                                                 *   FILE 384
//*           MEMBERS ARE :                                         *   FILE 384
//*                                                                 *   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
//*           Updated October 2000                                  *   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
//*      IRXFMAT   Rexx Package                                     *   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 386
//*                                                                 *   FILE 386
//*  Updates:                                                       *   FILE 386
//*                                                                 *   FILE 386
//*      CBT     25 July 1999                                       *   FILE 386
//*                                                                 *   FILE 386
//*        SAM      R101 New - Spool Access Method                  *   FILE 386
//*        IGX00200 R100 New - Ext-Svc authorization                *   FILE 386
//*        IRXFLOC  R100 New - Rexx Package                         *   FILE 386
//*        UTILMATC R100 New - Utility - Match source/pattern       *   FILE 386
//*                                                                 *   FILE 386
//*      CBT      6 Febr 2000                                       *   FILE 386
//*                                                                 *   FILE 386
//*        IRXF@CSI R100 New - Catalog Search Interface             *   FILE 386
//*        IRXF@DAI R100 New - Dasd Information                     *   FILE 386
//*        IRXFLOC* R101 Upd - Rexx Package                         *   FILE 386
//*                                                                 *   FILE 386
//*      CBT     31 Octo 2000                                       *   FILE 386
//*                                                                 *   FILE 386
//*        IRXF@CA1 R100 New - CA1 Volume Information               *   FILE 386
//*        IRXF@CMD R100 New - Dirty System Console Command         *   FILE 386
//*                            execution                            *   FILE 386
//*        IRXF@DOM R100 New - Delete Operator Message              *   FILE 386
//*        IRXF@MOD R100 New - Modify/Stop (QEdit) capabilities     *   FILE 386
//*        IRXF@VST R100 New - Verify Started Task                  *   FILE 386
//*        IRXF@WTO R101 Upd - Write to Operator                    *   FILE 386
//*        IRXFLOC* R102 Upd - Rexx Package                         *   FILE 386
//*                                                                 *   FILE 386
//***FILE 387 is the Stony Brook Pascal Compiler distribution,      *   FILE 387
//*           which was written largely by William Barabash, and    *   FILE 387
//*           which was resurrected by Mark S. Waterbury.           *   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
//*                                                                 *   FILE 388
//*    asm2zap.zip   z/OS      A utility for converting an          *   FILE 388
//*                            assembly listing into SUPERZAP       *   FILE 388
//*                            cards.                               *   FILE 388
//*                                                                 *   FILE 388
//*    blksptrk.zip  z/OS      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    z/OS      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  z/OS      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   z/OS      A pair of programs for producing     *   FILE 388
//*                            master cross-reference listings      *   FILE 388
//*                            for multi-assembly programs.         *   FILE 388
//*                                                                 *   FILE 388
//*              Colesoft Marketing, Inc.                           *   FILE 388
//*              414 3rd ST. NE                                     *   FILE 388
//*              Charlottesville, VA 22902 USA                      *   FILE 388
//*              540-456-8210                                       *   FILE 388
//*              www.colesoft.com                                   *   FILE 388
//*              email:  dbcole@gmail.com                           *   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 A JES2 5.X.0 VERSION OF QUEUE FROM JACK SCHUDEL    *   FILE 389
//*           OF NERDC AT THE UNIVERSITY OF FLORIDA IN GAINESVILLE  *   FILE 389
//*           FLORIDA.  THIS IS HIS MODIFICATION FROM THE 4.3.0     *   FILE 389
//*           VERSION ON FILE 391, AND JACK CLAIMS THAT IT IS       *   FILE 389
//*           MAY NEED A TWEAKING HERE AND THERE.  HOWEVER, IT      *   FILE 389
//*           WORKS.  SEE HIS NOTES.  CORRECTED BY SAM GOLOB SO     *   FILE 389
//*           THAT THIS VERSION WILL ALSO WORK WHEN ASSEMBLED       *   FILE 389
//*           AGAINST JES2 5.2.0 MACROS.  THIS VERSION NOW WORKS    *   FILE 389
//*           UNDER JES2 5.2.0 ALSO, AS WELL AS UNDER 5.1.0.        *   FILE 389
//*                                                                 *   FILE 389
//***FILE 390 is a JES2 5.2.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          *   FILE 390
//*           may need a tweaking here and there.                   *   FILE 390
//*                                                                 *   FILE 390
//*           However, Jack has done a lot of work on this version  *   FILE 390
//*           since he made that claim, and whatever source code    *   FILE 390
//*           was on his web site, is hereby presented also, in     *   FILE 390
//*           this file.                                            *   FILE 390
//*                                                                 *   FILE 390
//*           You may try and use this version of QUEUE for OS/390  *   FILE 390
//*           systems and at least early z/OS.                      *   FILE 390
//*                                                                 *   FILE 390
//*           Since the JES2 spool files for different versions     *   FILE 390
//*           are more compatible now, than they used to be, this   *   FILE 390
//*           version of QUEUE, if assembled against the JES2       *   FILE 390
//*           maclib, SYS1.version.SHASMAC for your current         *   FILE 390
//*           system, it might actually work for you.               *   FILE 390
//*                                                                 *   FILE 390
//*           Added ISPF statistics to the members that didn't      *   FILE 390
//*           have them.  (SG - 09/2022)                            *   FILE 390
//*                                                                 *   FILE 390
//*           email:  schudel@ufl.edu                               *   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 (April 2005)                                *   FILE 391
//*         CSC Financial Services Group,                           *   FILE 391
//*         Dallas, TX 75063                                        *   FILE 391
//*                                                                 *   FILE 391
//*           email:                                                *   FILE 391
//*                                                                 *   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@ldworen.net>     *   FILE 392
//*                                                                 *   FILE 392
//*           web site:         http://ldworen.net                  *   FILE 392
//*                                                                 *   FILE 392
//***FILE 393 from Robert Lamerand and Ken MacKenzie, and contains  *   FILE 393
//*           a handy REXX exec to tell you what RACF groups you    *   FILE 393
//*           are connected to.  The following are some notes from  *   FILE 393
//*           both contributors:                                    *   FILE 393
//*                                                                 *   FILE 393
//*     I think the original author is Bob Lamerand.  The note is   *   FILE 393
//*     from Ken MacKenzie:                                         *   FILE 393
//*                                                                 *   FILE 393
//*     Here's a simple REXX exec that allows a user to see         *   FILE 393
//*     what groups he is connected to.  We run with                *   FILE 393
//*     "list-of-groups" active.  I'm not sure what this will       *   FILE 393
//*     report on a system if it is inactive.                       *   FILE 393
//*                                                                 *   FILE 393
//*     Subject: RACF Group Enquiry                                 *   FILE 393
//*                                                                 *   FILE 393
//*     I was sent the following REXX exec the other day.  I        *   FILE 393
//*     made a slight modification from the original (to pick       *   FILE 393
//*     up the correct area length).  The exec lists the groups     *   FILE 393
//*     that a user belongs to or returns YES or NO to indicate     *   FILE 393
//*     that he belongs to a specific group.                        *   FILE 393
//*                                                                 *   FILE 393
//*     The exec works fine but, on browsing the RACF               *   FILE 393
//*     documentation, I get the impression that the list of        *   FILE 393
//*     groups will not be updated should the user be added to      *   FILE 393
//*     a new group.                                                *   FILE 393
//*                                                                 *   FILE 393
//*     Can anyone confirm that this is true?  And, if so, can      *   FILE 393
//*     anyone suggest a way of having the group list updated       *   FILE 393
//*     (without logging off then logging on)?                      *   FILE 393
//*                                                                 *   FILE 393
//*     Thanks-in-advance,                                          *   FILE 393
//*                                                                 *   FILE 393
//*     Ken MacKenzie                                               *   FILE 393
//*                                                                 *   FILE 393
//***FILE 394 is from Jan Jakubek of Toronto, Ontario, Canada.      *   FILE 394
//*                                                                 *   FILE 394
//*               .--------------------------------.                *   FILE 394
//*               |  CBT TAPE - Index of file 394  |                *   FILE 394
//*               |  From: Jan (Janek) Jakubek     |                *   FILE 394
//*               '--------------------------------'                *   FILE 394
//*                                                                 *   FILE 394
//*    KSDSPACE  VSAM KSDS space use mapping utility (reports on    *   FILE 394
//*              space used by data records, free space, # of index *   FILE 394
//*              records per IX level, low/high key per control     *   FILE 394
//*              area, unused space due to IX record too short).    *   FILE 394
//*                                                                 *   FILE 394
//*    KSDSPACO  Older version of KSDSPACE. Should run on           *   FILE 394
//*              unsupported levels of DFSMS (1.2 or less). It does *   FILE 394
//*              not work with Extended Format/Addressability KSDS. *   FILE 394
//*                                                                 *   FILE 394
//*    OFDVBFB   Converts sequential dataset from RECFM=VB to       *   FILE 394
//*              RECFM=FB                                           *   FILE 394
//*                                                                 *   FILE 394
//*    LLAUPDTX  Synchronous LLA update routine (using LLACOPY      *   FILE 394
//*              macro).  One member per step (specified in PARM)   *   FILE 394
//*              gets refreshed.                                    *   FILE 394
//*                                                                 *   FILE 394
//*    LLAUPDTS  Synchronous LLA update routine (using LLACOPY      *   FILE 394
//*              macro).  Multiple members (specified in SYSIN) get *   FILE 394
//*              refreshed.                                         *   FILE 394
//*                                                                 *   FILE 394
//*    DEFNVS    Generates IDCAMS DEFINE NONVSAM statements for a   *   FILE 394
//*              DASD volume.                                       *   FILE 394
//*                                                                 *   FILE 394
//*    DELNVS    Generates IDCAMS DELETE NSCR statements for a      *   FILE 394
//*              DASD volume.                                       *   FILE 394
//*                                                                 *   FILE 394
//*    IEFUSI    A sample, configurable (working in a real          *   FILE 394
//*              production environment) SMF USI exit.              *   FILE 394
//*                                                                 *   FILE 394
//*    LDAPROBE  LDAP server probe REXX exec.                       *   FILE 394
//*    LDAPROBJ  JCL (could run as an STC) to run LDAPROBE.         *   FILE 394
//*                                                                 *   FILE 394
//*    MXIVSTOR  Dispalys virtual storage usage of an address       *   FILE 394
//*              space (REXX exec). Requires/ calls MXI to retrieve *   FILE 394
//*              foreign address space LDA/ASCB/RAX/RAXMEMLIMIT.    *   FILE 394
//*              This is essentially a modified Mark Zelden's       *   FILE 394
//*              REXXSTOR, except that input data from a foreign AS *   FILE 394
//*              are retrieved via MXI.                             *   FILE 394
//*                                                                 *   FILE 394
//*    TI        Displays RMM tape dataset info for an ISPF 3.4     *   FILE 394
//*              dataset list entry using RMM LISTDATASET           *   FILE 394
//*              subcommand (REXX exec).                            *   FILE 394
//*                                                                 *   FILE 394
//*    TV        Displays RMM tape volume info for an ISPF 3.4      *   FILE 394
//*              dataset list entry using RMM VOLUME subcommand     *   FILE 394
//*              (clist).                                           *   FILE 394
//*                                                                 *   FILE 394
//*    MAKENSWP  Makes all address spaces with same name            *   FILE 394
//*              nonswappable.  This can be useful for Unix         *   FILE 394
//*              applications (in our case CTG). Does this via MXI  *   FILE 394
//*              MAKE command. This is a REXX exec.                 *   FILE 394
//*                                                                 *   FILE 394
//*    JJDGEN    Janek's data records generation utility. Need a    *   FILE 394
//*              few records for testing of an application ? Try    *   FILE 394
//*              this !                                             *   FILE 394
//*                                                                 *   FILE 394
//*    WTOH      Write Message to Operator routine (highlighted     *   FILE 394
//*              messages).                                         *   FILE 394
//*                                                                 *   FILE 394
//*    $TABLES   See $TABLES doc member for description of general  *   FILE 394
//*              purpose binary search table processing routines/   *   FILE 394
//*              package.  This may be of interest for application  *   FILE 394
//*              programmers (writing applications in PL/I, COBOL,  *   FILE 394
//*              Assembler).                                        *   FILE 394
//*                                                                 *   FILE 394
//*    HALVE     Binary search tables processing subroutine         *   FILE 394
//*                                                                 *   FILE 394
//*    HLVTD     HALVE related macro: table definition              *   FILE 394
//*                                                                 *   FILE 394
//*    JJTBGEN   Create table to be searched/ processed by HALVE    *   FILE 394
//*              subroutine.                                        *   FILE 394
//*                                                                 *   FILE 394
//*    TBLACCSS  Tables access interface routine for COBOL programs *   FILE 394
//*              (HALVE related).                                   *   FILE 394
//*                                                                 *   FILE 394
//*    KSDSINIT  New KSDS File Initialization Routine               *   FILE 394
//*                                                                 *   FILE 394
//*    JJPDSD    Deletes all members of a PDS dataset. It is slow/  *   FILE 394
//*              poor performer with PDS datasets, but it works     *   FILE 394
//*              (better) with PDSE.                                *   FILE 394
//*                                                                 *   FILE 394
//*    OFDASVER  Checks if specified address space/s is/are up.  If *   FILE 394
//*              all specified address spaces are up - ends with    *   FILE 394
//*              return code of zero, otherwise ends with return    *   FILE 394
//*              code of 16.                                        *   FILE 394
//*                                                                 *   FILE 394
//*              Possible use of this program:                      *   FILE 394
//*              .Verify if a CICS or DBCOMM/DB region is up in the *   FILE 394
//*              first step of a job. If yes, continue the job,     *   FILE 394
//*              otherwise terminate it.                            *   FILE 394
//*                                                                 *   FILE 394
//*              .Verify if all required STCs are up after IPL or   *   FILE 394
//*              periodically throughout a day. If not - issue a    *   FILE 394
//*              warning message.                                   *   FILE 394
//*                                                                 *   FILE 394
//*    Macros    SUBRET, SUBENT, TSTAMP, HLVTD                      *   FILE 394
//*                                                                 *   FILE 394
//*             Jan (Janek) Jakubek                                 *   FILE 394
//*                                                                 *   FILE 394
//*             Tel  :     416-255-8807      (Canada)               *   FILE 394
//*             Email:     Jan.Jakubek@CGI.COM                      *   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 from Frank Clarke and contains a routine to        *   FILE 397
//*           convert numeric data to mainframe packed decimal      *   FILE 397
//*           format.  PACK and UNPK REXX routines are included.    *   FILE 397
//*                                                                 *   FILE 397
//*           email:    Frank Clarke <rexxhead@yahoo.com>           *   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
//*                                                                 *   FILE 398
//*           email:  sbgolob@cbttape.org                           *   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 from Bob Goldberg and contains SPITBOL 360, the    *   FILE 401
//*           earlier implementation of SPITBOL, which is a         *   FILE 401
//*           compiler version of SNOBOL 4.                         *   FILE 401
//*                                                                 *   FILE 401
//*           email:  "Bob Goldberg" <gman_bob@yahoo.com>           *   FILE 401
//*                   "Bob Goldberg" <gman_bob@pacbell.net>         *   FILE 401
//*                                                                 *   FILE 401
//*      SPITBOL 360 $README FILE                                   *   FILE 401
//*      ------------------------                                   *   FILE 401
//*                                                                 *   FILE 401
//*      11/08/2001  Updated for Hercules AWS installation          *   FILE 401
//*                  (Bob Goldberg)                                 *   FILE 401
//*       8/20/2001  Initial Version (Bob Goldberg)                 *   FILE 401
//*                                                                 *   FILE 401
//*      Readme Contents                                            *   FILE 401
//*      ---------------                                            *   FILE 401
//*                                                                 *   FILE 401
//*      What is SPITBOL 360?                                       *   FILE 401
//*                                                                 *   FILE 401
//*      Installation Overview                                      *   FILE 401
//*                                                                 *   FILE 401
//*      General Installation                                       *   FILE 401
//*                                                                 *   FILE 401
//*      Hercules AWS Intallation                                   *   FILE 401
//*                                                                 *   FILE 401
//*      Reassembling the Compiler                                  *   FILE 401
//*                                                                 *   FILE 401
//*      Acknowledgments                                            *   FILE 401
//*                                                                 *   FILE 401
//*      What is SPITBOL 360? ν*ω                                   *   FILE 401
//*      ------------------------                                   *   FILE 401
//*                                                                 *   FILE 401
//*      SPITBOL 360 is an implementation of the SNOBOL4            *   FILE 401
//*      programming language for use on IBM 360 compatible         *   FILE 401
//*      computers. SPITBOL is considerably smaller than the        *   FILE 401
//*      original implementation of SNOBOL4 and has execution       *   FILE 401
//*      speeds up to ten times faster. For certain programs,       *   FILE 401
//*      notably those with in-line patterns, the gain in speed     *   FILE 401
//*      may be even greater.                                       *   FILE 401
//*                                                                 *   FILE 401
//*      Unlike SIL SNOBOL4ν**ω, which is an interpreter,           *   FILE 401
//*      SPITBOL is a true compiler which generates executable      *   FILE 401
//*      machine code. Of course, the complexity of the SNOBOL4     *   FILE 401
//*      language dictates that system subroutines be used for      *   FILE 401
//*      many common functions.                                     *   FILE 401
//*                                                                 *   FILE 401
//*      SPITBOL can be run as an 'in-core' 'load-and-go' system    *   FILE 401
//*      like WATFIV, where programs are executed as soon as they   *   FILE 401
//*      are compiled.  Alternately, the compiler can generate      *   FILE 401
//*      object modules that can be linked with a run-time          *   FILE 401
//*      library to create load modules for later execution.        *   FILE 401
//*                                                                 *   FILE 401
//*      SPITBOL 360 was originally distributed under license,      *   FILE 401
//*      for a fee.ν***ω Effective November, 2001, SPITBOL 360      *   FILE 401
//*      will be distributed under the General Public License       *   FILE 401
//*      (GPL), for no fee.                                         *   FILE 401
//*                                                                 *   FILE 401
//*      To obtain current information and distribution files       *   FILE 401
//*      for SPITBOL 360, visit:                                    *   FILE 401
//*                                                                 *   FILE 401
//*          http://www.snobol4.com                                 *   FILE 401
//*                                                                 *   FILE 401
//*      ----                                                       *   FILE 401
//*                                                                 *   FILE 401
//*      ν*ω SPITBOL = SPeedy ImplemenTation of SNOBOL4             *   FILE 401
//*                    --     -       -            ---              *   FILE 401
//*                                                                 *   FILE 401
//*      ν**ω The original SNOBOL4 implementation from Bell         *   FILE 401
//*      Telephone Laboratories was developed by R. E. Griswold     *   FILE 401
//*      and I. Polonsky, the designers of the SNOBOL4              *   FILE 401
//*      programming language. Thus, this reference                 *   FILE 401
//*      implementation is often referred to as BTL SNOBOL4. In     *   FILE 401
//*      the early 1970s, after Griswold left BTL for The           *   FILE 401
//*      University of Arizona and continued SNOBOL4 distribution   *   FILE 401
//*      from there, this implementation gained another name: SIL   *   FILE 401
//*      SNOBOL4. (SIL = SNOBOL4 Implementation Language)           *   FILE 401
//*                                                                 *   FILE 401
//*      ν***ω SPITBOL 360 was distributed from 1971 until 1984     *   FILE 401
//*      when it was superseded by SPITBOL 370.                     *   FILE 401
//*                                                                 *   FILE 401
//***FILE 402 contains a REXX exec and JCL, to obtain SMF status    *   FILE 402
//*           from many MVS systems in a data center, and to        *   FILE 402
//*           consolidate them in one place.                        *   FILE 402
//*                                                                 *   FILE 402
//*           email:   sbgolob@cbttape.org                          *   FILE 402
//*                                                                 *   FILE 402
//***FILE 403 is from Ugur Cilesiz, and contains a very simple      *   FILE 403
//*           system to display IBM Messages (and other FB-80       *   FILE 403
//*           help-type information) on your screen, instantly.     *   FILE 403
//*                                                                 *   FILE 403
//*           This system consists of a REXX exec (two versions     *   FILE 403
//*           available), one panel, and an FB-80 format            *   FILE 403
//*           partitioned dataset, which contains the message       *   FILE 403
//*           text, for each message.  You set up the partitioned   *   FILE 403
//*           dataset, with the message members you want to         *   FILE 403
//*           include.                                              *   FILE 403
//*                                                                 *   FILE 403
//*           Instructions are included here for obtaining the IBM  *   FILE 403
//*           message members, from Bookmanager installed under     *   FILE 403
//*           MVS.  Of course, if you have another vendor's         *   FILE 403
//*           documentation also installed under Bookmanager in     *   FILE 403
//*           MVS, you can easily extract and load their messages   *   FILE 403
//*           also.                                                 *   FILE 403
//*                                                                 *   FILE 403
//*           email:  Ugur.Cilesiz@rwesystems.com                   *   FILE 403
//*                                                                 *   FILE 403
//*       - - - - - - - - - - - - - - - - - - - - - - - - - -       *   FILE 403
//*                                                                 *   FILE 403
//*           Notes about this Message Display Facility             *   FILE 403
//*                                                                 *   FILE 403
//*      Sometimes, when you are involved in servicing one, or      *   FILE 403
//*      several, components of the MVS operating system very       *   FILE 403
//*      often, you might like a convenient (and very quick) way    *   FILE 403
//*      of displaying the messages from that component, under      *   FILE 403
//*      ISPF.  Then this system is something you can use.          *   FILE 403
//*                                                                 *   FILE 403
//*      This system is also very flexible, and the display         *   FILE 403
//*      capability is not limited to IBM messages, but you can     *   FILE 403
//*      make arbitrary members of the "message pds" and display    *   FILE 403
//*      them anytime, by entering their "member name" in the       *   FILE 403
//*      UMSG display panel.                                        *   FILE 403
//*                                                                 *   FILE 403
//*      The messages are displayed, using either ISPF Browse,      *   FILE 403
//*      or the REVIEW TSO command from File 134 (load modules      *   FILE 403
//*      on File 135) of the CBT Tape.  The REXX exec which uses    *   FILE 403
//*      ISPF Browse (in this pds) is member UMSG.  The REXX        *   FILE 403
//*      exec which uses the REVIEW TSO command, is member          *   FILE 403
//*      UMSGR.  The panel using ISPF Browse, is called MESAJP,     *   FILE 403
//*      and the one using REVIEW, is called MESAJP1.  (Sam         *   FILE 403
//*      Golob is responsible for the REVIEW adaptation.  Ugur      *   FILE 403
//*      did all the work, though.  It was only a slight change     *   FILE 403
//*      from Ugur's original REXX.  SG)                            *   FILE 403
//*                                                                 *   FILE 403
//*      If you didn't remember the exact name of the message,      *   FILE 403
//*      you can ask for a partial message, by using an asterisk    *   FILE 403
//*      as a wild card.  For example, if you want to display a     *   FILE 403
//*      list of all ARC**** members in your MESAJ.PDS, then        *   FILE 403
//*      type ARC* in the pop-up panel.  (The procedure for the     *   FILE 403
//*      REVIEW adaptation, is that if you got the message id a     *   FILE 403
//*      bit wrong, and a blank REVIEW screen pops up, then you     *   FILE 403
//*      can enter the DIR subcommand of REVIEW, to get a pds       *   FILE 403
//*      directory so you can find the right message id.)           *   FILE 403
//*                                                                 *   FILE 403
//*       - - - - - - - - - - - - - - - - - - - - - - - - - -       *   FILE 403
//*                                                                 *   FILE 403
//*      This package is very simply constructed, and is also       *   FILE 403
//*      easy to install.                                           *   FILE 403
//*                                                                 *   FILE 403
//*      To install this package, just copy the UMSG and UMSGR      *   FILE 403
//*      execs into your SYSPROC or SYSEXEC library for your TSO    *   FILE 403
//*      session.  And copy the one panel (member MESAJP) into a    *   FILE 403
//*      panel library in your ISPPLIB concatenation.  The          *   FILE 403
//*      messages themselves will be put (later) into an FB-80      *   FILE 403
//*      partitioned dataset that you create, which may get to      *   FILE 403
//*      be rather large, depending on the number of IBM (or        *   FILE 403
//*      other) messages that you may want to load into it.         *   FILE 403
//*                                                                 *   FILE 403
//*      You must customize the UMSG and UMSGR execs to point to    *   FILE 403
//*      your message library pds (not to my library).  Then you    *   FILE 403
//*      load the message library pds with the IBM messages         *   FILE 403
//*      (I'll tell you how to do it, below), and then you run      *   FILE 403
//*      the UMSG exec.  The messages library pds is usually        *   FILE 403
//*      named 'prefix.MESAJ.PDS' , but you can name it anything    *   FILE 403
//*      you want, as long as the UMSG or UMSGR execs point to      *   FILE 403
//*      it.                                                        *   FILE 403
//*                                                                 *   FILE 403
//*      If you are using the REVIEW command (member UMSGR) to      *   FILE 403
//*      display the messages, then you must install it.  The       *   FILE 403
//*      easiest way to do that, is to get CBT Tape File 135        *   FILE 403
//*      (from www.cbttape.org , or from a CBT Tape) and copy       *   FILE 403
//*      every member starting with REV****, and all their          *   FILE 403
//*      aliases, to an ISPLLIB or STEPLIB, that is accessible      *   FILE 403
//*      to your TSO session.                                       *   FILE 403
//*                                                                 *   FILE 403
//*      I have made an ISPF command table entry, called UMSG       *   FILE 403
//*      (abbreviated to 2 characters) to invoke UMSG, so all I     *   FILE 403
//*      have to do, on my system, is to type UM on the command     *   FILE 403
//*      line, and press enter.  Then I get the MESAJP panel        *   FILE 403
//*      window, and I enter the member name of the message I       *   FILE 403
//*      want to look up.  It is very simple to use.                *   FILE 403
//*                                                                 *   FILE 403
//*      Unfortunately, the actual IBM messages are copyrighted,    *   FILE 403
//*      and their explanations may also change once in a while.    *   FILE 403
//*      So we can not include the actual IBM messages in this      *   FILE 403
//*      file, but we will tell you how you can get them, if you    *   FILE 403
//*      have Bookmanager installed under MVS.                      *   FILE 403
//*                                                                 *   FILE 403
//*      Just look at the $MESAJ2 member in this pds, and you       *   FILE 403
//*      will see how to generate the members of your               *   FILE 403
//*      'userid.MESAJ.PDS', for whichever messages that you        *   FILE 403
//*      want to extract from Bookmanager.                          *   FILE 403
//*                                                                 *   FILE 403
//*      We have included several sample (non-IBM) messages to      *   FILE 403
//*      include in your 'userid.MESAJ.PDS' so you can test how     *   FILE 403
//*      the system works.  These are in the member (of this        *   FILE 403
//*      pds) called SAMPMSGS.  The member is a pds, in IEBUPDTE    *   FILE 403
//*      or PDSLOAD unloaded format, and contains (at least) a      *   FILE 403
//*      member called ABEND (displaying most of the common         *   FILE 403
//*      ABEND codes) and REVIEW (which is a HELP member for the    *   FILE 403
//*      REVIEW TSO command).  If you also include these members    *   FILE 403
//*      in your 'userid.MESAJ.PDS' dataset, then you can access    *   FILE 403
//*      them by entering ABEND or REVIEW in the UMSG panel.        *   FILE 403
//*                                                                 *   FILE 403
//*      Best of luck to all of you.....                            *   FILE 403
//*                                                                 *   FILE 403
//*         Ugur Cilesiz                August 07, 2002             *   FILE 403
//*         Sam Golob                                               *   FILE 403
//*                                                                 *   FILE 403
//***FILE 404 is source for TSSO to be run under OS/390 and z/OS.   *   FILE 404
//*                                                                 *   FILE 404
//*       Updated by John McKown to no longer require that the      *   FILE 404
//*       TSSOPARM member be in SYS1.PARMLIB, but it uses the       *   FILE 404
//*       IEFPRMLB service to search the PARMLIB concatenation      *   FILE 404
//*       of libraries.  Optionally, you can include a //PARMLIB    *   FILE 404
//*       DD card in the TSSO proc, to point to the library of      *   FILE 404
//*       your choice.                                              *   FILE 404
//*                                                                 *   FILE 404
//*    A WORD-format version of the TSSO 4.3 doc is included here   *   FILE 404
//*    courtesy of John Kalinich, as member $TSSODOC.               *   FILE 404
//*                                                                 *   FILE 404
//*    ---------------------------------------------------------    *   FILE 404
//*                                                                 *   FILE 404
//*    Fixed for z/OS 1.8 elimination of the Master Console,        *   FILE 404
//*    and to accommodate only 4-byte console ids.  Fix is by       *   FILE 404
//*    Larry Lawler (aka Dr CICS).                                  *   FILE 404
//*                                                                 *   FILE 404
//*    Old version (z/OS 1.7 and before) has been packaged in       *   FILE 404
//*    PDSLOAD format, as member $$PREZ18.  To reconstitute the     *   FILE 404
//*    old install pds, just run job $PDSLOAD in this pds, which    *   FILE 404
//*    is self-contained, and will yield the old pds for File 404.  *   FILE 404
//*                                                                 *   FILE 404
//*    Also added were newer versions of the "assemble all" and     *   FILE 404
//*    "assemble one module" JCL streams.  These are members:       *   FILE 404
//*                                                                 *   FILE 404
//*    ASMA9ALL and ASMA9ONE                                        *   FILE 404
//*                                                                 *   FILE 404
//*    A suggested enhancement which shows (at TSSO initialization  *   FILE 404
//*    time) which subsystem consoles are present, is included      *   FILE 404
//*    as member $$ENHANC.  You can use this extra source for       *   FILE 404
//*    this enhancement, if you want to.  It also comes from        *   FILE 404
//*    Larry Lawler.                                                *   FILE 404
//*                                                                 *   FILE 404
//*    ---------------------------------------------------------    *   FILE 404
//*                                                                 *   FILE 404
//*    Major modifications have been made to this version by        *   FILE 404
//*    Ed Jaffe.  Fixes were also added by Dave Cartwright.         *   FILE 404
//*    This version now should run on the z/OS releases which       *   FILE 404
//*    are available now (11/02).  Dependencies are on ESA 4.1      *   FILE 404
//*    and higher.                                                  *   FILE 404
//*                                                                 *   FILE 404
//*    Some fixes were made by Peter Vander Woude.  Please check    *   FILE 404
//*    over member $PVWNOTE.                                        *   FILE 404
//*                                                                 *   FILE 404
//*        email: "Peter Vander Woude" <pwoude@harristeeter.com>    *   FILE 404
//*                                                                 *   FILE 404
//*    Fixes made to TSSOSS09 by Michael Mayne and Daniel Cattin.   *   FILE 404
//*                                                                 *   FILE 404
//*        email:  mmayne@chattanooga.net    mmayne@hhsys.org       *   FILE 404
//*                Cattin@osys.ch                                   *   FILE 404
//*                                                                 *   FILE 404
//*    This version contains a fix to SPMON from Brian Westerman,   *   FILE 404
//*    so it doesn't get an 0C4.  See member $$SPMON for details.   *   FILE 404
//*                                                                 *   FILE 404
//*        email:  Brian_Westerman@SyzygyInc.com                    *   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 (Overflow) *   FILE 404
//*   File 402 - Dave Cartwright's updates ---> File 248 (Overflow) *   FILE 404
//*   File 403 - DC updates fitted to F401 ---> File 249 (Overflow) *   FILE 404
//*   File 404 - Previous version on File 404 > File 250 (Overflow) *   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
//*      Small change to TSSOWTO to fix a vulnerability.            *   FILE 404
//* --------------------------------------------------------------  *   FILE 404
//*                                                                 *   FILE 404
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT.                *   FILE 404
//*                                                                 *   FILE 404
//*           QUESTIONS, PLEASE CONTACT Sam Golob:                  *   FILE 404
//*                      sbgolob@cbttape.org                        *   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 from Ed Molnar of Computer Data Systems and        *   FILE 406
//*           contains two TSO command processors.  This file was   *   FILE 406
//*           originally on the CBT Tape many years ago, before     *   FILE 406
//*           Arnie Casinghino started doing his wholesale          *   FILE 406
//*           deletions.  I put it back because the programs,       *   FILE 406
//*           although old, are very useful.  The two CPs are:      *   FILE 406
//*           CQ (I call it CQX), and FIND.                         *   FILE 406
//*                                                                 *   FILE 406
//*           email:  sbgolob@cbttape.org                           *   FILE 406
//*                                                                 *   FILE 406
//*       Descriptions:                                             *   FILE 406
//*                                                                 *   FILE 406
//*           A. CQX  (renamed from CQ)                             *   FILE 406
//*                                                                 *   FILE 406
//*              (Modified by S.Golob to increase GETMAIN sizes.)   *   FILE 406
//*                                                                 *   FILE 406
//*              This CP is used to cancel and delete all jobs      *   FILE 406
//*              with a given jobname, off the input and output     *   FILE 406
//*              queues.  This command only authorizes itself       *   FILE 406
//*              when calling the subsystem interface.  This        *   FILE 406
//*              command, as coded, uses an "authorizing SVC",      *   FILE 406
//*              but if you authorize it during linkedit, and       *   FILE 406
//*              run it from an APF authorized library, you don't   *   FILE 406
//*              need the SVC.  The SVC number must be changed for  *   FILE 406
//*              the authorizing of this function to what ever      *   FILE 406
//*              number is used for your installation.  This        *   FILE 406
//*              should be the only installation dependent item     *   FILE 406
//*              in this code.  The format for this command is:     *   FILE 406
//*              "CQ jobname", which will purge all jobs having     *   FILE 406
//*              the given jobname (even running ones), or          *   FILE 406
//*                                                                 *   FILE 406
//*              "CQ (jobname(jobid),jobname(jobid)....jobname)"    *   FILE 406
//*                                                                 *   FILE 406
//*              which will only kill the jobs having the given     *   FILE 406
//*              job numbers.                                       *   FILE 406
//*                                                                 *   FILE 406
//*              Be very careful.                                   *   FILE 406
//*                                                                 *   FILE 406
//*              (Tested on z/OS 2.2 and it seems to purge          *   FILE 406
//*              running jobs, but when RC=28 from SSOBRETN is      *   FILE 406
//*              nullified, it purges STC's and TSU's in the        *   FILE 406
//*              print queue, but not those that are running.)      *   FILE 406
//*              See the code to find out how to nullify RC=28      *   FILE 406
//*              from the SSOBRETN call.  The code is not being     *   FILE 406
//*              shipped to do that.  (Safer.)                      *   FILE 406
//*                                                                 *   FILE 406
//*           B. FIND                                               *   FILE 406
//*                                                                 *   FILE 406
//*              Fixed for z/OS 2.2.  UCB routines, DASD types      *   FILE 406
//*              updated.  (Original program, written in 1978, is   *   FILE 406
//*              still included as member FIND01.)                  *   FILE 406
//*                                                                 *   FILE 406
//*              This is a data set search routine.  The idea is    *   FILE 406
//*              to find cataloged and all uncataloged copies of    *   FILE 406
//*              the data set name.                          .      *   FILE 406
//*                                                                 *   FILE 406
//*              The CP prompts for the dataset name, and does      *   FILE 406
//*              some standard ckecking.  It the searches the       *   FILE 406
//*              catalog to find the entry.  After the catalog is   *   FILE 406
//*              searched it then searches the UCB entries and      *   FILE 406
//*              compares them with our DASD types.  This list is   *   FILE 406
//*              incorprated within the code and may be added to    *   FILE 406
//*              easily.  It obtains the volume name and ckecks     *   FILE 406
//*              the VTOC for the Format 1 DSCB.  Also, if there    *   FILE 406
//*              is a alternate path there is a second address in   *   FILE 406
//*              the tabel pointing to the device.  Therfore a      *   FILE 406
//*              second search is done and if a 'hit' is made a     *   FILE 406
//*              second message is produced.  A second character    *   FILE 406
//*              table is put in for the convenience of others.     *   FILE 406
//*                                                                 *   FILE 406
//*                                                                 *   FILE 406
//*              Sample output of FIND:                             *   FILE 406
//*                                                                 *   FILE 406
//*              SYS1.W$$.LINKLIB                                   *   FILE 406
//*              DATASET CATALOGED ON VOL: VPWRKA                   *   FILE 406
//*              DEV ADDRESS: D30 VOL: VPWRKA TYPE: 3390            *   FILE 406
//*              DEV ADDRESS: D32 VOL: VPWRKC TYPE: 3390            *   FILE 406
//*                                                                 *   FILE 406
//*              (lower report also shows uncataloged copies)       *   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
//*           Colesoft Marketing, Inc.                              *   FILE 407
//*           414 3rd ST. NE                                        *   FILE 407
//*           Charlottesville, VA 22902 USA                         *   FILE 407
//*           540-456-8210                                          *   FILE 407
//*           www.colesoft.com                                      *   FILE 407
//*           email:  dbcole@gmail.com                              *   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 copies of Dave Cole's MACLIB, which          *   FILE 408
//*           are 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 CHARLOTTESVILLE, VA.   *   FILE 408
//*                                                                 *   FILE 408
//*          Colesoft Marketing, Inc.                               *   FILE 408
//*          414 3rd ST. NE                                         *   FILE 408
//*          Charlottesville, VA 22902 USA                          *   FILE 408
//*          540-456-8210                                           *   FILE 408
//*          www.colesoft.com                                       *   FILE 408
//*          email:  dbcole@gmail.com                               *   FILE 408
//*                                                                 *   FILE 408
//*    It is preferred that Dave's free software be obtained        *   FILE 408
//*    from his web site at http://www.colesoft.com/utilities.html  *   FILE 408
//*    but we are keeping a copy of his updated macro library here  *   FILE 408
//*    in case somebody is desperate to assemble something, and it  *   FILE 408
//*    is difficult to get to Dave's web site on a given day, so    *   FILE 408
//*    see member NEWMACLB which is Dave's new macro library as     *   FILE 408
//*    of August 2005, in PDSLOAD (IEBUPDTE SYSIN) format.          *   FILE 408
//*                                                                 *   FILE 408
//*    Member MOREMACS will probably not be necessary for anything  *   FILE 408
//*    you need, but it has been included because it includes the   *   FILE 408
//*    macros necessary to assemble my old copy of Dave's DSCOPY    *   FILE 408
//*    program.  The new copy is in member NEWSTUFF of File 199,    *   FILE 408
//*    and preferably, it should be gotten from Dave Cole's web     *   FILE 408
//*    site.                                                        *   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   z/OS      A utility for converting an          *   FILE 408
//*                            assembly listing into SUPERZAP       *   FILE 408
//*                            cards.                               *   FILE 408
//*                                                                 *   FILE 408
//*    blksptrk.zip  z/OS      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
//*    dscopy.zip    z/OS      A flexible program for copying       *   FILE 408
//*                            any number of sequential files       *   FILE 408
//*                            in a single jobstep.                 *   FILE 408
//*                                                                 *   FILE 408
//*    macros.zip    z/OS      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  z/OS      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   z/OS      A pair of programs for producing     *   FILE 408
//*                            master cross-reference listings      *   FILE 408
//*                            for multi-assembly programs.         *   FILE 408
//*                                                                 *   FILE 408
//*           Colesoft Marketing, Inc.                              *   FILE 408
//*           414 3rd ST. NE                                        *   FILE 408
//*           Charlottesville, VA 22902 USA                         *   FILE 408
//*           540-456-8210                                          *   FILE 408
//*           www.colesoft.com                                      *   FILE 408
//*           email:  dbcole@gmail.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 Rocket Software.       *   FILE 409
//*           The MXI package is a type of system monitor that      *   FILE 409
//*           can run under ISPF, in batch, or it can be invoked    *   FILE 409
//*           under REXX.  MXI is an extremely powerful program     *   FILE 409
//*           that can tell you very much about your MVS operating  *   FILE 409
//*           system, how it is set up, and what is running on      *   FILE 409
//*           it.  Load modules (sorry, no source) are on File      *   FILE 409
//*           410.                                                  *   FILE 409
//*                                                                 *   FILE 409
//*           Important note:  If you are running z/OS 2.3 or       *   FILE 409
//*                            higher, please use the TXI load      *   FILE 409
//*                            module, and not the MXI load         *   FILE 409
//*                            module.  See member $$ZAPZ23.        *   FILE 409
//*                                                                 *   FILE 409
//*                For up to date information please see the        *   FILE 409
//*                SEC website : http://www.rocketsoftware.com      *   FILE 409
//*                                                                 *   FILE 409
//*                Any problems, comments or suggestions            *   FILE 409
//*                please e-mail : rob.scott@rocketsoftware.com     *   FILE 409
//*                                                                 *   FILE 409
//*           Information                                           *   FILE 409
//*           Version          MXI Version 4.3 GenLevel 050126      *   FILE 409
//*                            (c) Rocket Software                  *   FILE 409
//*                            http://www.rocketsoftware.com        *   FILE 409
//*                                                                 *   FILE 409
//*           Author           Rob Scott                            *   FILE 409
//*           Generation Date  2005/01/26                           *   FILE 409
//*                      Time  08.40                                *   FILE 409
//*           Assembler        HLASM 1.5.0                          *   FILE 409
//*           System           z/OS 01.06.00                        *   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
//*      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
//*    4.3                                                          *   FILE 409
//*     o  Added the MENU command and changed the entire menu       *   FILE 409
//*        system.                                                  *   FILE 409
//*     o  Added the GQE command to display common storage          *   FILE 409
//*        getmains.                                                *   FILE 409
//*     o  Added the DB command to list DB2 subsystems.             *   FILE 409
//*     o  Added the DBBP command to list DB2 buffer pools.         *   FILE 409
//*     o  Added the DBDA command to list DB2 threads.              *   FILE 409
//*     o  Added the DBEP command to list DB2 EDM pool              *   FILE 409
//*        statistics.                                              *   FILE 409
//*     o  Added the DBGP command to list DB2 getpage               *   FILE 409
//*        requests.                                                *   FILE 409
//*     o  Added the DBLK command to list DB2 locking               *   FILE 409
//*        statistics.                                              *   FILE 409
//*     o  Added the DBZP command to list DB2 system                *   FILE 409
//*        parameters.                                              *   FILE 409
//*     o  Added the JOB() ASID() and PGM() keywords to the         *   FILE 409
//*        USP command.                                             *   FILE 409
//*     o  Added the CADS count to the DSP display.                 *   FILE 409
//*     o  Added the DSNS count to the PAGE display.                *   FILE 409
//*     o  Point and shoot on column headings on tabular            *   FILE 409
//*        displays now invoke SORT for that column.                *   FILE 409
//*        Performing this action twice inverts the SORT            *   FILE 409
//*        direction.                                               *   FILE 409
//*     o  Point and shoot on the jobname in the CSR display        *   FILE 409
//*        now takes you to the GQE display showing orphaned        *   FILE 409
//*        storage that matches the jobname.                        *   FILE 409
//*     o  Added the CLIENT= keyword to MXISERV to increase         *   FILE 409
//*        remote security.                                         *   FILE 409
//*     o  Added the USERTRAN= keyword to MXISERV to allow          *   FILE 409
//*        client userid translation.                               *   FILE 409
//*     o  Added a TCP/IP security exit to enhance non-MVS          *   FILE 409
//*        client request security.                                 *   FILE 409
//*     o  Non-authorised commands can now be protected via         *   FILE 409
//*        internal or external security.                           *   FILE 409
//*     o  Removed the leading zero on address space id             *   FILE 409
//*        restriction on the DA command.                           *   FILE 409
//*                                                                 *   FILE 409
//*        ** IMPORTANT **                                          *   FILE 409
//*        MXI 4.3 now provides the ability the protect             *   FILE 409
//*        non-authorised commands.                                 *   FILE 409
//*                                                                 *   FILE 409
//*        Please review your RACF profiles or MXISECTB             *   FILE 409
//*        source.                                                  *   FILE 409
//*                                                                 *   FILE 409
//*        If you previously coded NOENTRY=DENY (internal) or       *   FILE 409
//*        UACC=NONE on MXICMD.* (external), you will need to       *   FILE 409
//*        adjust the rules to cater for all non-auth               *   FILE 409
//*        commands.                                                *   FILE 409
//*        ** IMPORTANT **                                          *   FILE 409
//*                                                                 *   FILE 409
//*    4.2                                                          *   FILE 409
//*     o  Added the CDR command to list device serial numbers.     *   FILE 409
//*     o  Added the CON command to show MCS console screen         *   FILE 409
//*        images.                                                  *   FILE 409
//*     o  Added the ENC command to list enclaves.                  *   FILE 409
//*     o  Added the LOGR command to list log streams.              *   FILE 409
//*     o  Added the MQ command to show MQ Series subsystems.       *   FILE 409
//*     o  Added the MQC command to show MQ Series channels.        *   FILE 409
//*     o  Added the MQCS command to show MQ Series channel         *   FILE 409
//*        status.                                                  *   FILE 409
//*     o  Added the MQDA command to show MQ Series active          *   FILE 409
//*        threads.                                                 *   FILE 409
//*     o  Added the MQQ command to show MQ Series queues.          *   FILE 409
//*     o  Added the MQU command to show MQ Series page set         *   FILE 409
//*        usage.                                                   *   FILE 409
//*     o  Added the region information to the DA display for a     *   FILE 409
//*        single ASID.                                             *   FILE 409
//*     o  Added the ONLY(INIT) keyword to the DA command.          *   FILE 409
//*     o  Added the LLASMF global option to specify the SMF        *   FILE 409
//*        record number to be used in the MXILLIX1 exit.           *   FILE 409
//*     o  Add support for CMF when collecting type-70 records.     *   FILE 409
//*     o  Added the CCT MCT and RCT control block definitions      *   FILE 409
//*        to the MEM command.                                      *   FILE 409
//*     o  Added the OMVS info to the RACF GROUP display on the     *   FILE 409
//*        RL command.                                              *   FILE 409
//*     o  Added the CDR information to the DASD and TAPE           *   FILE 409
//*        displays.                                                *   FILE 409
//*     o  Removed the leading zero on unit address restriction     *   FILE 409
//*        on the TAPE and UCB commands.                            *   FILE 409
//*                                                                 *   FILE 409
//*    4.1                                                          *   FILE 409
//*     o  Added the RSYS command to connect to remote systems      *   FILE 409
//*     o  Added the MXI TCP/IP Server address space.               *   FILE 409
//*     o  Added the MXI subsystem.                                 *   FILE 409
//*     o  Added the LLA command to show LLA module fetch           *   FILE 409
//*        statistics.                                              *   FILE 409
//*     o  Added the SOFT command to show system software           *   FILE 409
//*        levels.                                                  *   FILE 409
//*     o  Indicate SCOPE=COMMON dataspaces on the DSP command      *   FILE 409
//*        display.                                                 *   FILE 409
//*     o  Changed the panel title lines to include system          *   FILE 409
//*        information.                                             *   FILE 409
//*     o  MXI global options now specified via macro               *   FILE 409
//*        statements rather than zaps.                             *   FILE 409
//*     o  Renamed the help panels.                                 *   FILE 409
//*                                                                 *   FILE 409
//*    3.4                                                          *   FILE 409
//*     o  Added the DEV command to show DASD activity (if RMF      *   FILE 409
//*        is active).                                              *   FILE 409
//*     o  Added the HSM command to show HSM configuration.         *   FILE 409
//*     o  Added the WLMA command to show WLM Application           *   FILE 409
//*        Environments.                                            *   FILE 409
//*     o  Added the WLMS command to show WLM Scheduling            *   FILE 409
//*        Environments.                                            *   FILE 409
//*     o  Added the ZAP command to alter common storage            *   FILE 409
//*        contents.                                                *   FILE 409
//*     o  Added the JOB() and ASID() keywords to the PID           *   FILE 409
//*        command.                                                 *   FILE 409
//*     o  Added the VIEW() keyword to the HFS command so that      *   FILE 409
//*        the user can toggle between path and dataset views       *   FILE 409
//*        of the file systems.                                     *   FILE 409
//*     o  The WTOR command now accepts a pattern mask for the      *   FILE 409
//*        system name so that the results can be filtered.         *   FILE 409
//*     o  Added the OMVS segment on the RL display for USER        *   FILE 409
//*        profiles.                                                *   FILE 409
//*     o  Added the Sysplex information to the IPL display.        *   FILE 409
//*     o  All IDs listed in the RACF access lists are now          *   FILE 409
//*        point-and-shoot.                                         *   FILE 409
//*     o  The HSMQ command now reports on HSM command requests.    *   FILE 409
//*     o  The CAT command now displays certain catalog cache       *   FILE 409
//*        information.                                             *   FILE 409
//*     o  Add support for UIC values greater than 255 for          *   FILE 409
//*        z/OS in ESAME mode.                                      *   FILE 409
//*     o  The E-MCS wait time limits for the / command are now     *   FILE 409
//*        placed in the MXIOPTN CSECT rather than RDSEMCS. New     *   FILE 409
//*        ZAP instructions included in the INSTLIB dataset.        *   FILE 409
//*                                                                 *   FILE 409
//*    3.3                                                          *   FILE 409
//*     o  Added the DAE command to list Dump Elimination           *   FILE 409
//*        information.                                             *   FILE 409
//*     o  Added the HFS command to show OpenEdition file           *   FILE 409
//*        systems.                                                 *   FILE 409
//*     o  Added the LX command to list linkage indexes and PC      *   FILE 409
//*        routines.                                                *   FILE 409
//*     o  Added the OMVS command to show OpenEdition               *   FILE 409
//*        configuration.                                           *   FILE 409
//*     o  Added the PID command to show OpenEdition processes.     *   FILE 409
//*     o  Added the WLMC command to list WLM classification        *   FILE 409
//*        rules.                                                   *   FILE 409
//*     o  Added the WLMG command to list WLM classification        *   FILE 409
//*        groups.                                                  *   FILE 409
//*     o  Added the SET CONSOLE command to specify the E-MCS       *   FILE 409
//*        console name used by MXI in the '/' command.             *   FILE 409
//*     o  Added the ONLY() and NOT() keywords to the RCLS          *   FILE 409
//*        command.                                                 *   FILE 409
//*     o  Added the ONLY() and NOT() keywords to the UCB           *   FILE 409
//*        command.                                                 *   FILE 409
//*     o  Added the CPU(MAX) and CPU(MIN) keywords to the MAKE     *   FILE 409
//*        command.                                                 *   FILE 409
//*     o  The RL command now prompts in ISPF mode if no            *   FILE 409
//*        keywords specified.                                      *   FILE 409
//*     o  The HSMQ command now uses cross-memory techniques to     *   FILE 409
//*        gather the required information rather than parsing      *   FILE 409
//*        operator command responses.                              *   FILE 409
//*     o  Added AFC information to the CPU UIC and RS command      *   FILE 409
//*        displays.                                                *   FILE 409
//*     o  Added the UCB address on the DASD display for a          *   FILE 409
//*        single volume.                                           *   FILE 409
//*     o  Added the UCB address on the TAPE display for a          *   FILE 409
//*        single unit.                                             *   FILE 409
//*     o  Added the Installation Data to the RL command            *   FILE 409
//*        output.                                                  *   FILE 409
//*     o  Added the SVT control block to the MEM and MAP           *   FILE 409
//*        commands.                                                *   FILE 409
//*     o  Commands that the user is not authorised to use are      *   FILE 409
//*        no longer shown on their MXI Primary Option Menu.        *   FILE 409
//*     o  Removed the PC command.                                  *   FILE 409
//*                                                                 *   FILE 409
//*    3.2                                                          *   FILE 409
//*     o  Authorised commands can now be protected by the          *   FILE 409
//*        RACF FACILITY class.                                     *   FILE 409
//*     o  Added the AUTO command to automatically refresh the      *   FILE 409
//*        screen.                                                  *   FILE 409
//*     o  Added the EMCS command to show E-MCS consoles.           *   FILE 409
//*     o  Added the INIT command to show JES2 initiators.          *   FILE 409
//*     o  Added the MCS command to show MCS consoles.              *   FILE 409
//*     o  Added the MDQ command to show the memory delete          *   FILE 409
//*        queue.                                                   *   FILE 409
//*     o  Added the RACF command to show RACF information.         *   FILE 409
//*     o  Added the RL command to show specific RACF profile       *   FILE 409
//*        information.                                             *   FILE 409
//*     o  Added the RCLS command to show RACF class                *   FILE 409
//*        information.                                             *   FILE 409
//*     o  Added the SRVC command to show the WLM service           *   FILE 409
//*        classes.                                                 *   FILE 409
//*     o  Added the WLM command to show the WLM policy             *   FILE 409
//*        information.                                             *   FILE 409
//*     o  Added the XM command to show the cross-memory            *   FILE 409
//*        connections                                              *   FILE 409
//*     o  Changed the VMAP command to show user region info.       *   FILE 409
//*     o  Changed the DA command to include cross-memory           *   FILE 409
//*        connection info.                                         *   FILE 409
//*     o  Changed the DA command to replace performance group      *   FILE 409
//*        number with WLM service class for goal mode              *   FILE 409
//*        systems.                                                 *   FILE 409
//*     o  Changed the IPL command to include WLM mode setting.     *   FILE 409
//*     o  The DASD command now shows if volume is in CAXWA         *   FILE 409
//*        chain.                                                   *   FILE 409
//*     o  The EXC command now sorts the address space              *   FILE 409
//*        exceptions by severity.                                  *   FILE 409
//*     o  Added the SMFDUMP (TYPE=SYS) exception to examine        *   FILE 409
//*        the number of SMF datasets in DUMP REQUIRED status.      *   FILE 409
//*     o  The pull down menus have been re-arranged.               *   FILE 409
//*     o  Added the following command aliases to the MXICMDS       *   FILE 409
//*        ISPF table :                                             *   FILE 409
//*                                                                 *   FILE 409
//*            OJOB     DA * ONLY(JOB)                              *   FILE 409
//*            OSTC     DA * ONLY(STC)                              *   FILE 409
//*            OTSU     DA * ONLY(TSU)                              *   FILE 409
//*            JOBS     DA * ONLY(JOB)                              *   FILE 409
//*            SYSTEM   DA * ONLY(STC)                              *   FILE 409
//*            USERS    DA * ONLY(TSU)                              *   FILE 409
//*                                                                 *   FILE 409
//*    3.1a                                                         *   FILE 409
//*     o  Implemented pull down menus.                             *   FILE 409
//*     o  The  SORT command now accepts a column name and          *   FILE 409
//*        direction rather than using point-and-shoot methods.     *   FILE 409
//*     o  All tabular displays now have just ONE line of column    *   FILE 409
//*        heading rather than TWO lines. All column names are      *   FILE 409
//*        now ONE word.                                            *   FILE 409
//*     o  Added the DSP command to show dataspace information.     *   FILE 409
//*     o  Added the PEEK command to show all ISPF screen images    *   FILE 409
//*        for a TSO user.                                          *   FILE 409
//*     o  Added the WTOR command to show all outstanding           *   FILE 409
//*        operator replies.                                        *   FILE 409
//*     o  Added the CPF command to show the command prefix table.  *   FILE 409
//*     o  Added the JOB() and ASID() keywords to the MEM           *   FILE 409
//*        command to allow listing of the storage within any       *   FILE 409
//*        address space.                                           *   FILE 409
//*     o  Added the WTOR exception (TYPE=SYS) to examine number    *   FILE 409
//*        of outstanding operator replies.                         *   FILE 409
//*     o  Add support for dynamic LPA modules.                     *   FILE 409
//*     o  Add new fields to the SSI display to indicate dynamic    *   FILE 409
//*        subsystem attributes.                                    *   FILE 409
//*     o  Cater for multi-volume datasets in the EXCP count for    *   FILE 409
//*        the DDNS command.                                        *   FILE 409
//*     o  Cater for DASD volumes whose serial number is less       *   FILE 409
//*        than 6 characters.                                       *   FILE 409
//*     o  Removed the NET command.                                 *   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         *   FILE 410
//*           MXI package from Rob Scott, of Rocket Software.       *   FILE 410
//*           The MXI package is a type of system monitor that      *   FILE 410
//*           can run under ISPF, in batch, or it can be invoked    *   FILE 410
//*           under REXX.  MXI is an extremely powerful program     *   FILE 410
//*           that can tell you very much about your MVS operating  *   FILE 410
//*           system, how it is set up, and what is running on      *   FILE 410
//*           it.  Card-image members (panels, and more) which      *   FILE 410
//*           are necessary to run this package, are on File 409.   *   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
//*           Important note:  If you are running z/OS 2.3 or       *   FILE 410
//*                            higher, please use the TXI load      *   FILE 410
//*                            module, and not the MXI load         *   FILE 410
//*                            module.                              *   FILE 410
//*                                                                 *   FILE 410
//*           Below is the current MXI load module version:         *   FILE 410
//*                                                                 *   FILE 410
//*             Information                                         *   FILE 410
//*             Version          MXI Version 4.3 GenLevel 050126    *   FILE 410
//*                              (c) Rocket Software                *   FILE 410
//*                              http://www.rocketsoftware.com      *   FILE 410
//*                                                                 *   FILE 410
//*             Author           Rob Scott                          *   FILE 410
//*             Generation Date  2005/01/26                         *   FILE 410
//*                        Time  08.40                              *   FILE 410
//*             Assembler        HLASM 1.5.0                        *   FILE 410
//*             System           z/OS 01.06.00                      *   FILE 410
//*                                                                 *   FILE 410
//*                For up to date information please see the        *   FILE 410
//*                SEC website : www.rocketsoftware.com             *   FILE 410
//*                                                                 *   FILE 410
//*                Any problems, comments or suggestions            *   FILE 410
//*                please e-mail : rob.scott@rocketsoftware.com     *   FILE 410
//*                                                                 *   FILE 410
//***FILE 411 is from Rob Scott in England                          *   FILE 411
//*           and contains source code for some of                  *   FILE 411
//*           his utilities.                                        *   FILE 411
//*                                                                 *   FILE 411
//*               Any problems, comments or suggestions             *   FILE 411
//*               please e-mail : rscott@rs.com                     *   FILE 411
//*                                                                 *   FILE 411
//*      Rob Scott's 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
//*      DDDEFCH$       Installation and usage documentation for    *   FILE 411
//*                     DDDEFCHK.                                   *   FILE 411
//*      DDDEFPT$       Installation and usage documentation for    *   FILE 411
//*                     DDDEFPTK.                                   *   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 in England                          *   FILE 412
//*           and contains load modules for his                     *   FILE 412
//*           utilities whose source code is on File 411, and       *   FILE 412
//*           also for the VTOCUTIL and DDDEFCHK programs.          *   FILE 412
//*                                                                 *   FILE 412
//*               Any problems, comments or suggestions             *   FILE 412
//*               please e-mail : rscott@rs.com                     *   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.ashleys.btinternet.co.uk/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:   sbgolob@cbttape.org                          *   FILE 414
//*                                                                 *   FILE 414
//*           The REWRITE program has been updated by Joe Garcia,   *   FILE 414
//*           to take care of some problems that Rick didn't        *   FILE 414
//*           encounter.                                            *   FILE 414
//*                                                                 *   FILE 414
//*                     Joe Garcia Jr.                              *   FILE 414
//*                     Technical support                           *   FILE 414
//*                     American National Ins. Co.                  *   FILE 414
//*                                                                 *   FILE 414
//*           phone:    (409) 766-6463                              *   FILE 414
//*           email:    Joe.Garcia@ANICO.com                        *   FILE 414
//*                                                                 *   FILE 414
//***FILE 415 is from Rob Prins, and is his magnificent TSO full    *   FILE 415
//*           screen Editor and multi-utility programmer facility   *   FILE 415
//*           called RPF.  RPF runs under native TSO (or as a TSO   *   FILE 415
//*           command processor, even if ISPF is running too, and   *   FILE 415
//*           RPF has an ISPF-like editor, browser, and quite a     *   FILE 415
//*           few other utilities.                                  *   FILE 415
//*                                                                 *   FILE 415
//*           email:  robprins2@kpnmail.nl                          *   FILE 415
//*                                                                 *   FILE 415
//*    --------------------------------------------                 *   FILE 415
//*       READ MEMBER @INSTALL to install RPF.                      *   FILE 415
//*    --------------------------------------------                 *   FILE 415
//*                                                                 *   FILE 415
//*       RPF is an excellent recovery tool for TSO allocation      *   FILE 415
//*       errors, and for other situations where ISPF will not      *   FILE 415
//*       come up, especially under OS/390 and z/OS.                *   FILE 415
//*                                                                 *   FILE 415
//*       Under free MVS 3.8, where ISPF is not available, the      *   FILE 415
//*       RPF editor is often used by many people, because          *   FILE 415
//*       it provides quite a few ISPF-like capabilities, and       *   FILE 415
//*       the RPF editor feels a lot like the ISPF editor.          *   FILE 415
//*                                                                 *   FILE 415
//*       RPF is a Hercules-tested tool. See member $$NOTE03.       *   FILE 415
//*                                                                 *   FILE 415
//*       This version of RPF (1.9.6) can be assembled either       *   FILE 415
//*       for use on z/OS, MVS/XA or for use on MVS 3.8J.           *   FILE 415
//*       Before you assemble RPF, check member SYSVARS in the ASM  *   FILE 415
//*       library and set the variables to the correct value.       *   FILE 415
//*       Assemble is not really needed, you can install the load   *   FILE 415
//*       modules. See below:                                       *   FILE 415
//*                                                                 *   FILE 415
//*       For OS/390 and z/OS:                                      *   FILE 415
//*       If you do a TSO RECEIVE of member LOADXMI, the            *   FILE 415
//*       LOADLIB has been created. Actually you don't need         *   FILE 415
//*       to assemble and link RPF, the load modules will           *   FILE 415
//*       run on an OS/390 or z/OS system.                          *   FILE 415
//*                                                                 *   FILE 415
//*       For MVS 3.8J and MVS380 systems:                          *   FILE 415
//*       If you do a TSO RECEIVE of member LOADXMIM, the           *   FILE 415
//*       LOADLIB has been created. Actually you don't need         *   FILE 415
//*       to assemble and link RPF, the loadmodules will            *   FILE 415
//*       run on a MVS 3.8 or MVS380 system.                        *   FILE 415
//*                                                                 *   FILE 415
//*       RPF contains a PANVALET, a LIBRARIAN and an ARCHIVER      *   FILE 415
//*       interface in addition to its plain EDIT capability.       *   FILE 415
//*                                                                 *   FILE 415
//*       Please see member $$INTRO, by Volker Bandke/Rob Prins     *   FILE 415
//*       Please see member $$INTRO2, by Rob Prins.                 *   FILE 415
//*                                                                 *   FILE 415
//*       The RPF editor comes with a full manual.                  *   FILE 415
//*       Three formats of the manual have been provided:           *   FILE 415
//*                                                                 *   FILE 415
//*          RPFUGUID -  In ASM library     - script format         *   FILE 415
//*          $MANUAL@ -  MS Word .doc format- download to a PC      *   FILE 415
//*          $MANUAL# -  PDF format         - download to a PC      *   FILE 415
//*                                                                 *   FILE 415
//*          email:  prin0096@gmail.com or robprins2@kpnmail.nl     *   FILE 415
//*          NOTE: this email is changed, please update your        *   FILE 415
//*                address book.                                    *   FILE 415
//*                                                                 *   FILE 415
//*       Current version of RPF:  V1R9M6                           *   FILE 415
//*                                                                 *   FILE 415
//*      - - - - - - - - - - - - - - - - - - - - - - - - - - - -    *   FILE 415
//*                                                                 *   FILE 415
//*      RPF - Rob's Programming Facility.                          *   FILE 415
//*                                                                 *   FILE 415
//*      RPF is a command processor under TSO, developed by Rob     *   FILE 415
//*      Prins, member of the systems programming department of     *   FILE 415
//*      the ING Bank in Amsterdam.  For program development the    *   FILE 415
//*      ING Bank used ROSCOE, but when the systems programming     *   FILE 415
//*      group started using TSO for maintenance, the need arose    *   FILE 415
//*      for a full-screen editor under TSO.  At this point Rob     *   FILE 415
//*      decided to develop his own editor, not only because        *   FILE 415
//*      they needed an editor, but also for learning the           *   FILE 415
//*      internals of TSO.  This resulted in the 'RPF' package.     *   FILE 415
//*                                                                 *   FILE 415
//*      It is not only an editor, but it also includes             *   FILE 415
//*      functions like PDS maintenance (SCRATCH, RENAME EDIT,      *   FILE 415
//*      PRINT, BROWSE and assigning ALIAS), foreground assembly    *   FILE 415
//*      and binding, VTOC listing, dataset allocation and          *   FILE 415
//*      deletion and even a LIBRARIAN, PANVALET and ARCHIVE        *   FILE 415
//*      interface to read and write modules or items to a          *   FILE 415
//*      LIBRARIAN disk master, a PANVALET library or an ARCHIVER   *   FILE 415
//*      archive VSAM cluster and a TSO command processor           *   FILE 415
//*      to execute TSO commands in RPF.                            *   FILE 415
//*      ARCHIVER is written by Rick Fochtman and is available      *   FILE 415
//*      in file 147 on www.cbttape.org                             *   FILE 415
//*                                                                 *   FILE 415
//*      The main advantage of an inhouse developed package is,     *   FILE 415
//*      that the source is available, so that it can be tailored   *   FILE 415
//*      to the demands of the user.  As the package became         *   FILE 415
//*      available to the users (the systems programmers) they      *   FILE 415
//*      very soon stopped using ROSCOE for program development,    *   FILE 415
//*      which indicated that it is a very useful product.  RPF     *   FILE 415
//*      is using the MVS operating system.  Afterwards the RPF     *   FILE 415
//*      product became available for the members of the Hercules   *   FILE 415
//*      group.                                                     *   FILE 415
//*                                                                 *   FILE 415
//*      (C)-1979-2024 Skybird Systems                              *   FILE 415
//*                                                                 *   FILE 415
//*      1.2  How to start RPF.                                     *   FILE 415
//*                                                                 *   FILE 415
//*      RPF is a TSO command processor for full screen data        *   FILE 415
//*      editing and utility functions.  RPF can be activated       *   FILE 415
//*      by entering the command 'RPF' on your TSO terminal.        *   FILE 415
//*                                                                 *   FILE 415
//*      1.2.1 How to work with RPF.                                *   FILE 415
//*                                                                 *   FILE 415
//*      If you start RPF a database record with defaults for       *   FILE 415
//*      your userid will be read.  If the record is not present,   *   FILE 415
//*      that record will be created by RPF.                        *   FILE 415
//*                                                                 *   FILE 415
//*      After RPF has started, the main menu appears on the        *   FILE 415
//*      screen. you can select the following:                      *   FILE 415
//*                                                                 *   FILE 415
//*    ----------------------- RPF main menu --------------------   *   FILE 415
//*    Option  ===>                                                 *   FILE 415
//*                                                                 *   FILE 415
//*      0  DEFAULTS     Alter / Display session defaults           *   FILE 415
//*      1  BROWSE       View or browse data sets or members        *   FILE 415
//*      2  EDIT         Update or create data sets or members      *   FILE 415
//*      3  UTILITY      Enter UTILITY                              *   FILE 415
//*      4  ASSEMBLER    Foreground ASSEMBLER and LINK edit         *   FILE 415
//*      5  USER         Execute RPF user routine                   *   FILE 415
//*      6  TSO          Execute TSO commands                       *   FILE 415
//*      7  TUTOTIAL     Display HELP information                   *   FILE 415
//*      8  TEST         Enter TEST mode (Authorized)               *   FILE 415
//*      9  OPERATOR     Enter OPERATOR mode                        *   FILE 415
//*      X  EXIT         Terminate RPF                              *   FILE 415
//*                                                                 *   FILE 415
//*    Hit PF03/15 to terminate RPF                                 *   FILE 415
//*                                                                 *   FILE 415
//*    RPF V1R9M6                  Property of Skybird              *   FILE 415
//*                                                                 *   FILE 415
//*    Use of RPF is free, modifications in consultation with me    *   FILE 415
//*    Information: email prin0096@gmail.com                        *   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 from a team working to make RACF Administration    *   FILE 417
//*           easy for the z/OS Security Administrator.             *   FILE 417
//*                                                                 *   FILE 417
//*  Version 36.7 - Updated 11/24/2023                              *   FILE 417
//*                                                                 *   FILE 417
//*  RACFADM is an open source ISPF Application that makes RACF     *   FILE 417
//*  Administration easy.                                           *   FILE 417
//*                                                                 *   FILE 417
//*  *-----------------------------------------------------*        *   FILE 417
//*  *                   Introduction                      *        *   FILE 417
//*  *-----------------------------------------------------*        *   FILE 417
//*  RACF Administration (RACFADM) makes many security tasks        *   FILE 417
//*  simple.  It lists user, group, data set, and general           *   FILE 417
//*  resource profiles by means of a user-friendly,                 *   FILE 417
//*  menu-driven interface; it provides interactive                 *   FILE 417
//*  modification of most fields.                                   *   FILE 417
//*                                                                 *   FILE 417
//*  Among its features are: connecting groups to a user,           *   FILE 417
//*  adding permissions, user authorization searching across        *   FILE 417
//*  classes, and displaying the group from which an                *   FILE 417
//*  authorization is granted.                                      *   FILE 417
//*                                                                 *   FILE 417
//*  Written in customizable Rexx, RACFADM includes an exec         *   FILE 417
//*  to automate creation of aliases or data sets when              *   FILE 417
//*  creating a new TSO user and can browse all RACF system         *   FILE 417
//*  options from a single, scrollable display.                     *   FILE 417
//*                                                                 *   FILE 417
//*  To begin using execute the RACFADM member found in the         *   FILE 417
//*  EXEC library.                                                  *   FILE 417
//*                                                                 *   FILE 417
//*  *-----------------------------------------------------*        *   FILE 417
//*  *                   Contributors                      *        *   FILE 417
//*  *-----------------------------------------------------*        *   FILE 417
//*                                                                 *   FILE 417
//*            Name                     Website                     *   FILE 417
//*    ----------------------    ---------------------------        *   FILE 417
//*    Nico Rizzuto (Creator)    http://www.rizzuto.it              *   FILE 417
//*    Bruce Koss                                                   *   FILE 417
//*    Bill Smith                                                   *   FILE 417
//*    John Kalinich             http://www.cbttape.org/            *   FILE 417
//*    Lionel B. Dyck            http://www.lbdsoftware.com/        *   FILE 417
//*                              http://github.com/lbdyck           *   FILE 417
//*                              http://www.cbttape.org/            *   FILE 417
//*                                                                 *   FILE 417
//*       NAME       VER.MOD   LAST MODIFIED     SIZE   ID          *   FILE 417
//*       $$$#DATE    05.06   2023/11/27 11:51     12 CBT-506       *   FILE 417
//*       $$README    01.18   2020/06/25 08:54     44 README        *   FILE 417
//*       $DOC        01.02   2020/02/06 09:42     17 INTRO         *   FILE 417
//*       $INSTALL    01.16   2020/06/30 11:45    116 RUNME         *   FILE 417
//*       $MACSTUB    01.00   2020/06/29 10:56      4 ELEMENT       *   FILE 417
//*       $STUB       01.02   2020/06/12 16:30     29 SAMPLE        *   FILE 417
//*       @FILE417    05.33   2023/11/07 06:18     57 CBT-505       *   FILE 417
//*       EXEC        01.00   2023/11/24 10:01  21155 XMIT          *   FILE 417
//*       INTRO       01.01   2021/01/04 06:17     31 README        *   FILE 417
//*       MSGS        01.00   2023/11/24 10:01     27 XMIT          *   FILE 417
//*       PANELS      01.00   2023/11/24 10:01  10253 XMIT          *   FILE 417
//*       README      01.00   2020/03/12 06:33     31 README        *   FILE 417
//*       SKELS       01.00   2023/11/24 10:01   2977 XMIT          *   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 Berkeley                    *   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
//*           THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS    *   FILE 423
//*           THE FOLLOWING MEMBERS :                               *   FILE 423
//*                                                                 *   FILE 423
//*           This is all Jeff Broido's stuff, but I made a few     *   FILE 423
//*           changes here and there, like PUTLINE-ing LAA and      *   FILE 423
//*           other programs which were coded with TPUT, etc.       *   FILE 423
//*           (Sam Golob), adding LISTHEAD, etc. which I found      *   FILE 423
//*           among Jeff's later programs, and modifying it some.   *   FILE 423
//*                                                                 *   FILE 423
//*        email:   broidoj@gmail.com                               *   FILE 423
//*         or  :   sbgolob@cbttape.org                             *   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
//*        CKC.........SOURCE CODE FOR PGM TO CHECK AVAILABLE       *   FILE 423
//*                    CORE STORAGE FOR YOUR TSO SESSION            *   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
//*        DIGCLK......SOURCE CODE FOR CMD TO DISPLAY TIME          *   FILE 423
//*                    ON 3270 TERMINALS                            *   FILE 423
//*        DUMPV.......DUMP VARIABLES AND THEIR EVALUATIONS         *   FILE 423
//*                    IN CLISTS AND REXX EXECS                     *   FILE 423
//*        FINDEM......GDG VOLSER DISPLAY PROGRAM (TSO COMMAND)     *   FILE 423
//*        FIXSMPLG....FIX AN SMP/E LOG FILE THAT WAS CORRUPTED     *   FILE 423
//*        HEXPGM......TYPE IN HEX CHARACTERS AND DISPLAY ON THE    *   FILE 423
//*                    TERMINAL IN ANY TPUT MODE.                   *   FILE 423
//*        K...........ASSEMBLER MACRO                              *   FILE 423
//*        LAA.........SOURCE CODE FOR PGM TO PRODUCE AN EXPANDED   *   FILE 423
//*                    ALLOCATION LISTER - Now a PUTLINE version    *   FILE 423
//*        LAAN - - -  (fix for LAA if DSAB is above the line)      *   FILE 423
//*        LISTATTR....LIST ATTRIBUTE LISTS. (PARM OF A, LIST ALL)  *   FILE 423
//*        (LAT)            (alias)  -  PUTLINE output.             *   FILE 423
//*        LISTHEAD....LOAD a module into storage and list the      *   FILE 423
//*                    "header" information at the beginning.       *   FILE 423
//*                    (Modified to show more headers, and          *   FILE 423
//*                    to display the first 300 bytes of the        *   FILE 423
//*                    load module.)                                *   FILE 423
//*        LISTMOD.....LIST an entire module, either from the       *   FILE 423
//*        LISTMODD....beginning, or from the entry point if the    *   FILE 423
//*                    ENTRY keyword is used. Not written by Jeff   *   FILE 423
//*                    Broido, but the idea came from his LISTHEAD  *   FILE 423
//*                    program. Kept here because it is closely     *   FILE 423
//*                    related to LISTHEAD.                         *   FILE 423
//*                    LISTMOD shows displacements in HEX           *   FILE 423
//*                    LISTMODD shows displacements in DECIMAL      *   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 (tested to z/OS 2.1)             *   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
//*                    (Fixed for XA thry z/OS by Sam Golob.)       *   FILE 423
//*        TERMSZ......Same as TERMSIZE, but it is a TSO command,   *   FILE 423
//*                    which gets the info directly from the TSB,   *   FILE 423
//*                    and therefore it has to be APF-authorized.   *   FILE 423
//*        TERMSIZE....Same as TERMTYPE, but it is a TSO command,   *   FILE 423
//*                    which PUTLINE's the terminal size info       *   FILE 423
//*                    to the terminal.  Output of GTSIZE macro.    *   FILE 423
//*        TERMTYPE....SOURCE PGM THAT TELLS YOU HOW MANY LINES     *   FILE 423
//*                    YOUR TERMINAL CAN DISPLAY (GTSIZE TOOL)      *   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@kp.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
//*   IPCSDIST 01.00  1997/09/30  1997/09/30 21:35 14365 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 OFFERS THEM FOR FREE ON     *   FILE 432
//*       THEIR WEBSITE (WWW.XEPHON.COM), I CONSIDER THEM AS        *   FILE 432
//*       PUBLIC.                                                   *   FILE 432
//*                                                                 *   FILE 432
//*       Note:  Xephon programs are now supported here, at         *   FILE 432
//*              www.cbttape.org, ever since Xephon, transferred    *   FILE 432
//*              to Thomas Publishing, stopped publishing their     *   FILE 432
//*              journals.  So Thierry's stuff certainly belongs    *   FILE 432
//*              here.  (S.Golob - 12/2009)                         *   FILE 432
//*                                                                 *   FILE 432
//*              The CBT Tape website is now the support location   *   FILE 432
//*              for almost all Xephon materials.                   *   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
//*     December 2000 Update                                        *   FILE 432
//*                                                                 *   FILE 432
//*     New members :                                               *   FILE 432
//*                                                                 *   FILE 432
//*     ANALJCL  : JCL TO ANALYZE JCL LIBRARIES                     *   FILE 432
//*     ANALJCLR : REXX TO ANALYZE JCL LIBRARIES                    *   FILE 432
//*     LISTVT   : REXX exec to analyze a DCOLLECT output           *   FILE 432
//*     LISTVTOC : JCL to list VTOCs from a DCOLLECT output         *   FILE 432
//*     MINIFRAN : rename of MINISYST                               *   FILE 432
//*     PADS     : REXX exec to initialize RACF PADS mode           *   FILE 432
//*     RACFCHCK : assembler subroutine to RACHECK a resource       *   FILE 432
//*     RACFMOVE : JCL to move the RACF database from a disk to     *   FILE 432
//*                another.                                         *   FILE 432
//*                                                                 *   FILE 432
//*     Updated members :                                           *   FILE 432
//*                                                                 *   FILE 432
//*     ALLSTOP    Added 3 new members from Gilbert Saint-flour     *   FILE 432
//*                to help run this utility better.                 *   FILE 432
//*     ASCBS    - REXX TO LIST ALL ADDRESS-SPACES (FRENCH          *   FILE 432
//*     MINISYST : new JCL to create a mini-system. Comments in     *   FILE 432
//*                English.                                         *   FILE 432
//*     SUSEC                                                       *   FILE 432
//*                                                                 *   FILE 432
//*                                                                 *   FILE 432
//*       CONTENTS                                                  *   FILE 432
//*       ========                                                  *   FILE 432
//*                                                                 *   FILE 432
//*     ALLSTOP  - A TOOL TO STOP ALL RUNNING ADDRESS-SPACES        *   FILE 432
//*                Added 3 new members from Gilbert Saint-flour     *   FILE 432
//*                to help run this utility better.                 *   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 by Frank Clarke and contains a collection of his   *   FILE 433
//*           REXX execs.                                           *   FILE 433
//*                                                                 *   FILE 433
//*           email:  Frank Clarke <rexxhead@yahoo.com>             *   FILE 433
//*                                                                 *   FILE 433
//*         A few obsolete routines have been dropped from the      *   FILE 433
//*         prior package.  A few are not my work, but are needed   *   FILE 433
//*         as external routines by members here.                   *   FILE 433
//*                                                                 *   FILE 433
//*               'FCLARKE.FILE433.PDS' - Directory                 *   FILE 433
//*                                                                 *   FILE 433
//*                 Usage or                                        *   FILE 433
//*       Member    Caller      Description                         *   FILE 433
//*       ========  =========   =================================   *   FILE 433
//*                                                                 *   FILE 433
//*       #EXAMPLE  fragment    New paragraph template for          *   FILE 433
//*                             MAKEPARA                            *   FILE 433
//*                                                                 *   FILE 433
//*       #INDEX    data        This member                         *   FILE 433
//*                                                                 *   FILE 433
//*       @@README  text        About the material in this          *   FILE 433
//*                             library                             *   FILE 433
//*                                                                 *   FILE 433
//*       @FILE433  text        Inventory                           *   FILE 433
//*                                                                 *   FILE 433
//*       ACQ       exec        Copy a member to the 1st dataset    *   FILE 433
//*                             of a file                           *   FILE 433
//*                                                                 *   FILE 433
//*       ADDCMDS   exec        Apply TMPCMDS to ISPCMDS            *   FILE 433
//*                                                                 *   FILE 433
//*       ALIST     exec        Display current allocations         *   FILE 433
//*                                                                 *   FILE 433
//*       ATTACH    exec        Logon customization                 *   FILE 433
//*                                                                 *   FILE 433
//*       BLOX      exec        Block letter write modeled after    *   FILE 433
//*                             IEFSD095                            *   FILE 433
//*                                                                 *   FILE 433
//*       CMDUPD    exec        Update local command table          *   FILE 433
//*                                                                 *   FILE 433
//*       COMBINE   exec        Combine 2 or more datasets with     *   FILE 433
//*                             incompat DCBs                       *   FILE 433
//*                                                                 *   FILE 433
//*       COMMANDS  exec        Display current command table       *   FILE 433
//*                             contents                            *   FILE 433
//*                                                                 *   FILE 433
//*       DEIMBED   fragment    Extract ISPF elements from REXX     *   FILE 433
//*                                                                 *   FILE 433
//*       DFLTTLIB  fragment    How to set up a default ISPTLIB     *   FILE 433
//*                                                                 *   FILE 433
//*       DIRSTATS  exec        LISTD with statistics               *   FILE 433
//*                                                                 *   FILE 433
//*       DSPROF    exec        Display via LISTDSI dataset         *   FILE 433
//*                             characteristics                     *   FILE 433
//*                                                                 *   FILE 433
//*       DSVCSI    exec        Catalog Search Interface            *   FILE 433
//*                                                                 *   FILE 433
//*       DUP       exec        Allocate or copy-to a new dataset   *   FILE 433
//*                                                                 *   FILE 433
//*       EDBR      macro       Edit-from-Browse                    *   FILE 433
//*                                                                 *   FILE 433
//*       FCCMDUPD  exec        Insert a new command onto TMPCMDS   *   FILE 433
//*                                                                 *   FILE 433
//*       FCXREF    exec        Cross-reference 2 or more PDSs      *   FILE 433
//*                                                                 *   FILE 433
//*       FIRSTIME  exec        Control re-runs                     *   FILE 433
//*                                                                 *   FILE 433
//*       FIXSTATS  exec        Manipulate ISPF member stats        *   FILE 433
//*                                                                 *   FILE 433
//*       FIXTBL    exec        Jump to ISPF 3.9                    *   FILE 433
//*                                                                 *   FILE 433
//*       FLTTBL    exec        Flatten any table (see RSTTBL)      *   FILE 433
//*                                                                 *   FILE 433
//*       FSMSG     exec        Send a multi-line message           *   FILE 433
//*                                                                 *   FILE 433
//*       GENCARD   exec        Produce control card from parms     *   FILE 433
//*                                                                 *   FILE 433
//*       GETIA     macro       Extract Impact Analysis from        *   FILE 433
//*                             REXXSKEL-based code                 *   FILE 433
//*                                                                 *   FILE 433
//*       IDENT     macro       Insert membername to REXX code      *   FILE 433
//*                                                                 *   FILE 433
//*       ISOLATE   macro       ONLY this word                      *   FILE 433
//*                                                                 *   FILE 433
//*       JFORM     macro       Reformat JCL                        *   FILE 433
//*                                                                 *   FILE 433
//*       JOBCARDS  exec        Build/update default jobcards       *   FILE 433
//*                             for JCL                             *   FILE 433
//*                                                                 *   FILE 433
//*       KED       macro       Edit DDN(mbr); aliased as KBR       *   FILE 433
//*                             and KVW                             *   FILE 433
//*                                                                 *   FILE 433
//*       LA        exec        LISTA ST to a scrollable display    *   FILE 433
//*                                                                 *   FILE 433
//*       LDOW      exec        Calc nth-day-of-the-week for any    *   FILE 433
//*                             month                               *   FILE 433
//*                                                                 *   FILE 433
//*       LISTCSUM  exec        LISTCAT subroutine for VCX          *   FILE 433
//*                                                                 *   FILE 433
//*       LOADKEYS  exec        Key definitions                     *   FILE 433
//*                                                                 *   FILE 433
//*       MAKEPARA  macro       Generate new paragraph for          *   FILE 433
//*                             REXXSKEL-based code                 *   FILE 433
//*                                                                 *   FILE 433
//*       MDEL      exec        Delete a member from anywhere       *   FILE 433
//*                                                                 *   FILE 433
//*       MEMBERS   exec        Return memberlist to the stack      *   FILE 433
//*                                                                 *   FILE 433
//*       MEMIDX    exec        Create/Update #INDEX (this          *   FILE 433
//*                             member)                             *   FILE 433
//*                                                                 *   FILE 433
//*       MIGRATE   exec        Migrate code from work to final     *   FILE 433
//*                                                                 *   FILE 433
//*       MREN      exec        Rename a member from anywhere       *   FILE 433
//*                                                                 *   FILE 433
//*       MTHLIM    SCHED       Determine Start-DOW and length      *   FILE 433
//*                             of a month                          *   FILE 433
//*                                                                 *   FILE 433
//*       NOOP      exec        IEFBR14                             *   FILE 433
//*                                                                 *   FILE 433
//*       OUTDENTS  macro       Show only do-end etc.               *   FILE 433
//*                                                                 *   FILE 433
//*       PACKING   fragment    How to convert to/from FIXED        *   FILE 433
//*                             DECIMAL                             *   FILE 433
//*                                                                 *   FILE 433
//*       PDSCOPYD  exec        Copy a member with stats            *   FILE 433
//*                                                                 *   FILE 433
//*       PDS2SEQ   exec        Convert PDS to IEBGENER input       *   FILE 433
//*                                                                 *   FILE 433
//*       PERMCLAS  fragment    Supply STGCLASS and MGMTCLASS       *   FILE 433
//*                                                                 *   FILE 433
//*       POPINDX   exec        Populate one #INDEX member from     *   FILE 433
//*                             another                             *   FILE 433
//*                                                                 *   FILE 433
//*       POSIT     macro       Position an Edit/View session       *   FILE 433
//*                                                                 *   FILE 433
//*       PROFILES  exec        Manipulate Edit profiles            *   FILE 433
//*                                                                 *   FILE 433
//*       PROFVARS  exec        Display variables in profiles       *   FILE 433
//*                                                                 *   FILE 433
//*       QPWEXP    exec        When does my password expire?       *   FILE 433
//*                                                                 *   FILE 433
//*       REALIAS   exec        Re-establish aliases from the       *   FILE 433
//*                             Impact Analysis                     *   FILE 433
//*                                                                 *   FILE 433
//*       REXXIA    exec        Do an Impact Analysis for an        *   FILE 433
//*                             entire dataset                      *   FILE 433
//*                                                                 *   FILE 433
//*       REXXSKEL  example     Basis for most code here            *   FILE 433
//*                                                                 *   FILE 433
//*       RSTTBL    exec        Restore a table flattened by        *   FILE 433
//*                             FLTTBL                              *   FILE 433
//*                                                                 *   FILE 433
//*       RUNDATA   exec        Maintain application-specific       *   FILE 433
//*                             information                         *   FILE 433
//*                                                                 *   FILE 433
//*       SAYVAR    exec        Display/Update variables from       *   FILE 433
//*                             ISPF pools                          *   FILE 433
//*                                                                 *   FILE 433
//*       SCHED     exec        Create a calendar page for one      *   FILE 433
//*                             month                               *   FILE 433
//*                                                                 *   FILE 433
//*       SCRAM     exec        Produce FTP files for               *   FILE 433
//*                             transferring libraries              *   FILE 433
//*                                                                 *   FILE 433
//*       SEIZE     exec        Copy a member to a distant          *   FILE 433
//*                             dataset with stats                  *   FILE 433
//*                                                                 *   FILE 433
//*       SELMATCH  macro       Match )SEL and )ENDSEL in           *   FILE 433
//*                             skeleton                            *   FILE 433
//*                                                                 *   FILE 433
//*       SEQ2PDS   exec        Anti-process of PDS2SEQ             *   FILE 433
//*                                                                 *   FILE 433
//*       SETALIAS  exec        Establish dataset aliases           *   FILE 433
//*                                                                 *   FILE 433
//*       SETEPROF  macro       Set ZDEFAULT profile                *   FILE 433
//*                                                                 *   FILE 433
//*       SETREFS   macro       Change JCL DSNs to                  *   FILE 433
//*                             backward-references                 *   FILE 433
//*                                                                 *   FILE 433
//*       SHORTRX   fragment    No-frills REXX-base                 *   FILE 433
//*                                                                 *   FILE 433
//*       SHOWFLOW  macro       Display CALLs and targets in REXX   *   FILE 433
//*                                                                 *   FILE 433
//*       SHOWME    exec        Display first-found by DDName       *   FILE 433
//*                                                                 *   FILE 433
//*       SORTCMDS  exec        Sort a Command Table                *   FILE 433
//*                                                                 *   FILE 433
//*       SQRT      exec        Square root (claimed by Robin       *   FILE 433
//*                             Ryerse)                             *   FILE 433
//*                                                                 *   FILE 433
//*       STAKEDIT  exec        Recursive Edit/Browse/View          *   FILE 433
//*                             (ED/BR/VW)                          *   FILE 433
//*                                                                 *   FILE 433
//*       STEPS     macro       Bring out all JCL EXEC rows         *   FILE 433
//*                                                                 *   FILE 433
//*       STRLEN    macro       Display a length-line over a        *   FILE 433
//*                             quoted string                       *   FILE 433
//*                                                                 *   FILE 433
//*       STRSORT   exec        Sort a string of words              *   FILE 433
//*                                                                 *   FILE 433
//*       SUPBR     exec        SuperBrowse                         *   FILE 433
//*                                                                 *   FILE 433
//*       SUPED     exec        SuperEdit                           *   FILE 433
//*                                                                 *   FILE 433
//*       SYSAMON   exec        Groom/Report activity in SYSUMON    *   FILE 433
//*                                                                 *   FILE 433
//*       SYSUMON   exec        Count tool usage                    *   FILE 433
//*                                                                 *   FILE 433
//*       SYSVARS   exec        Show SYSVARs and MVSVARs            *   FILE 433
//*                                                                 *   FILE 433
//*       TBCOPY    exec        Copy a table using AAMSTR           *   FILE 433
//*                                                                 *   FILE 433
//*       TBLGEN    exec        Build a table from AAMSTR specs     *   FILE 433
//*                                                                 *   FILE 433
//*       TBLMSTR   exec        Maintain AAMSTR table               *   FILE 433
//*                                                                 *   FILE 433
//*       TBLOOK    exec        Examine and update any table        *   FILE 433
//*                                                                 *   FILE 433
//*       TEXAMU    exec        TBLOOK from the memberlist          *   FILE 433
//*                                                                 *   FILE 433
//*       TRAPOUT   exec        Trap trace output to DASD           *   FILE 433
//*                                                                 *   FILE 433
//*       UPDSTAT   exec        Update ISPF statistics              *   FILE 433
//*                                                                 *   FILE 433
//*       VCX       exec        Show IDCAMS for any file            *   FILE 433
//*                                                                 *   FILE 433
//*       VWBR      exec        View from Browse                    *   FILE 433
//*                                                                 *   FILE 433
//*       WB        exec        Insert "Written by" data            *   FILE 433
//*                                                                 *   FILE 433
//*       WBNAME    fragment    Data for WB                         *   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 -  mark@mzelden.com       *   FILE 434
//*                                                                 *   FILE 434
//*   Last Updated:  May 1, 2023                                    *   FILE 434
//*                                                                 *   FILE 434
//*   Mark's MVS Utilities is also available on the web:            *   FILE 434
//*      http://www.mzelden.com/mvsutil.html                        *   FILE 434
//*                                                                 *   FILE 434
//* Sample JOBs / Documentation                                     *   FILE 434
//* --------------------------------------------------------------- *   FILE 434
//* $$$$READ  - Disclaimer                                          *   FILE 434
//* $$$INDEX  - Index of all members                                *   FILE 434
//* $$CHANGE  - CBT File 434 change log                             *   FILE 434
//* $$INSTAL  - General installation documentation for this file    *   FILE 434
//* $ONEPAK   - Doc for using DFSMSdss instead of FDRCOPY for       *   FILE 434
//*             ONEPAK / TWOPAK jobs.                               *   FILE 434
//* $ROOTSHR  - Doc for setting up a shared UNIX root file          *   FILE 434
//* $RXINTRO  - Doc to download and use RXINTRO member              *   FILE 434
//* $SNGLTSO  - Doc for using the same TSO USERID in a shared       *   FILE 434
//*             environment.                                        *   FILE 434
//* $WLMMONO  - Doc for setting up WLM in a MONOPLEX                *   FILE 434
//* CLONERES  - Sample jobstream to clone a two volume sysres set   *   FILE 434
//*             and SMP/E target zones.                             *   FILE 434
//* CLONERSO  - Old version of CLONERES                             *   FILE 434
//* ISPDFLTS  - ISPF defaults source update needed for single TSO   *   FILE 434
//*             USERID (described in $SNGLTSO).                     *   FILE 434
//* ISPEX16   - ISPXDT and ISPF exit 16 source needed for single    *   FILE 434
//*             TSO USERID (described in $SNGLTSO).                 *   FILE 434
//* ONEPAKZ3  - Sample jobstream to build a one pack "rescue"       *   FILE 434
//*             system from a z/OS 1.3 driving system.              *   FILE 434
//* ONEPAKZ6  - Sample jobstream to build a one pack "rescue"       *   FILE 434
//*             system from a z/OS 1.6 driving system.              *   FILE 434
//* ONEPAKZ8  - Sample jobstream to build a one pack "rescue"       *   FILE 434
//*             system from a z/OS 1.7 - z/OS 1.11 driving system.  *   FILE 434
//* ONEPAKZD  - Sample jobstream to build a one pack "rescue"       *   FILE 434
//*             system from a z/OS 1.12 - z/OS 1.13 driving system. *   FILE 434
//* ONEPAK21  - Sample jobstream to build a one pack "rescue"       *   FILE 434
//*             system from a z/OS 2.1 driving system.              *   FILE 434
//* ONEPAK22  - Sample jobstream to build a one pack "rescue"       *   FILE 434
//*             system from a z/OS 2.2 or 2.3 driving system.       *   FILE 434
//* ONEPAK43  - Sample jobstream to build a one pack "rescue"       *   FILE 434
//*             system (created for ESA 4.3, but is still a good    *   FILE 434
//*             sample of the required steps).                      *   FILE 434
//* RXINTRO   - "Introduction to TSO/E REXX" Word document          *   FILE 434
//* SMPBLD1   - Job to build an SMP/E environment from scratch.     *   FILE 434
//*             All VSAM SMP/E zones are created within the same    *   FILE 434
//*             physical VSAM data set.                             *   FILE 434
//* SMPBLD2   - Job to build an SMP/E environment from scratch.     *   FILE 434
//*             The VSAM SMP/E zones are created as separate        *   FILE 434
//*             physical VSAM data sets.                            *   FILE 434
//* SMPBLD3   - Job to build a new SMP/E target zone, dlib zone,    *   FILE 434
//*             and other required SMP/E data sets into an          *   FILE 434
//*             existing global zone.                               *   FILE 434
//* SMPDELF   - Sample job to delete a FMID from a set of SMP/E     *   FILE 434
//*             zones and libraries.                                *   FILE 434
//* TWOPAKZ3  - Sample jobstream to build a two pack "rescue"       *   FILE 434
//*             system from a z/OS 1.3 driving system. Same as      *   FILE 434
//*             ONEPAKZ3 but also includes Unix System Services,    *   FILE 434
//*             TCP/IP, and ISHELL.                                 *   FILE 434
//* TWOPAKZ6  - Sample jobstream to build a two pack "rescue"       *   FILE 434
//*             system from a z/OS 1.6 driving system. Same as      *   FILE 434
//*             ONEPAKZ6 but also includes Unix System Services,    *   FILE 434
//*             TCP/IP, and ISHELL.                                 *   FILE 434
//* TWOPAKZ8  - Sample jobstream to build a two pack "rescue"       *   FILE 434
//*             system from a z/OS 1.7 - z/OS 1.11 driving system.  *   FILE 434
//*             Same as ONEPAKZ8 but also includes Unix System      *   FILE 434
//*             Services, TCP/IP, and ISHELL.                       *   FILE 434
//* TWOPAKZD  - Sample jobstream to build a two pack "rescue"       *   FILE 434
//*             system from a z/OS 1.12 - z/OS 1.13 driving system. *   FILE 434
//*             Same as ONEPAKZD but also includes Unix System      *   FILE 434
//*             Services, TCP/IP, and ISHELL.                       *   FILE 434
//* TWOPAK21  - Sample jobstream to build a two pack "rescue"       *   FILE 434
//*             system from a z/OS 2.1 driving system.              *   FILE 434
//*             Same as ONEPAK21 but also includes Unix System      *   FILE 434
//*             Services, TCP/IP, and ISHELL.                       *   FILE 434
//* TWOPAK22  - Sample jobstream to build a two pack "rescue"       *   FILE 434
//*             system from a z/OS 2.2 or 2.3 driving system.       *   FILE 434
//*             Same as ONEPAK22 but also includes Unix System      *   FILE 434
//*             Services, TCP/IP, and ISHELL.                       *   FILE 434
//* UMJES01   - JES2 source update needed for single TSO USERID     *   FILE 434
//*             (OS/390 R10 & z/OS R1 - described in $SNGLTSO).     *   FILE 434
//* UMJES012  - JES2 source update needed for single TSO USERID     *   FILE 434
//*             (z/OS R2 and above - described in $SNGLTSO).        *   FILE 434
//* UMJES01O  - JES2 source update needed for single TSO USERID     *   FILE 434
//*             (prior to OS/390 R10 - described in $SNGLTSO).      *   FILE 434
//* UMJES06   - JES3 source update needed for single TSO USERID     *   FILE 434
//*             (described in $SNGLTSO).                            *   FILE 434
//*                                                                 *   FILE 434
//*                                                                 *   FILE 434
//* CLISTS / Edit Macros / Programs                                 *   FILE 434
//* --------------------------------------------------------------- *   FILE 434
//* ACBCHECK  - ASM PGM to check if a VTAM APPLID is available      *   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
//* ASIDLRX   - REXX PGM to list ASIDs & MAXUSER/RSVSTRT/RSVNONR    *   FILE 434
//* BLKCLIST  - CLIST to invoke BLKDISK command with panel input    *   FILE 434
//* CAT       - REXX exec to invoke CATSRCH via CATSRCHP panel      *   FILE 434
//* CATSRCH   - REXX exec to invoke Catalog Search Interface (CSI)  *   FILE 434
//* CMD34     - REXX exec to process commands against a DSLIST      *   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
//* DSLISTSV  - Quick ISPF save of data set names similar to        *   FILE 434
//*             ISPF 3.4                                            *   FILE 434
//* DT        - Edit macro to delete lines from the cursor line     *   FILE 434
//*             to the top line                                     *   FILE 434
//* EDMACALL  - REXX exec to run an edit macro against every        *   FILE 434
//*             member of a PDS.                                    *   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
//* FVE       - REXX exec (command) - Fast View/Edit of DSNs        *   FILE 434
//* HLISTB    - REXX exec to browse o/p of HLIST DA BCDS (BACKUP)   *   FILE 434
//* HLISTBL   - REXX exec to browse o/p of HLIST DA LEVEL BCDS      *   FILE 434
//* HLISTM    - REXX exec to browse o/p of HLIST DA MCDS (MIGRATE)  *   FILE 434
//* HLISTML   - REXX exec to browse o/p of HLIST DA LEVEL MCDS      *   FILE 434
//* INCL      - Edit macro to include all of a certain string       *   FILE 434
//* INDIRECR  - REXX exec to create IDCAMS control cards for        *   FILE 434
//*             indirectly catalogging a list of data set names     *   FILE 434
//* INSLINE   - Edit macro to insert a string after or before lines *   FILE 434
//* IPLHIST   - REXX exec to create a history of IPLs. This exec    *   FILE 434
//*             calls IPLINFO as a function.                        *   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
//* JOBCHKRX  - REXX 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
//* LASTIPL   - REXX exec to display last (latest) IPLHIST info     *   FILE 434
//* LINEMAC   - REXX exec - used with Doug Nadel's / IBM's LMAC PGM *   FILE 434
//* LINETBL   - Sample ISPF table to use with ISPF line edit macros *   FILE 434
//* LMPREXX   - REXX exec to help manage CA LMP KEYS                *   FILE 434
//* LOGRREXX  - REXX program to build logstream DELETE/DEFINE cards *   FILE 434
//*             using the output from IXCMIAPU LIST LOGSTREAM.      *   FILE 434
//* LNKVER    - REXX exec to verify LNKLST syntax and libs          *   FILE 434
//* LPROG     - REXX exec - displays LNKLST, LPA list, & APF list   *   FILE 434
//* MEMLSTSV  - Quick ISPF save of member stats. Similar to "SAVE"  *   FILE 434
//*             command from a data set member 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 program to remove obsolete RACF users          *   FILE 434
//* RDATE     - REXX date conversion routine                        *   FILE 434
//* RDATEF    - REXX function version of RDATE                      *   FILE 434
//* REXXMEM   - REXX program to browse memory in "dump" format      *   FILE 434
//* REXXSCAN  - REXX program to scan an input file for string(s)    *   FILE 434
//* REXXSTOR  - REXX exec to show virtual storage usage of invoker  *   FILE 434
//* REXXSTOJ  - Sample JCL to run REXXSTOR in batch                 *   FILE 434
//* RXSMF30   - REXX program to read SMF 30 records and produce     *   FILE 434
//*             produce a job accounting report.                    *   FILE 434
//* RXSTOR64  - REXX exec to show 64-bit MEMLIMIT and storage use   *   FILE 434
//* SDSF@DR   - REXX program to that uses the SDSF REXX environment *   FILE 434
//*             to copy output from the spool into data sets.       *   FILE 434
//* SDSFPRT   - REXX program to that uses the SDSF REXX environment *   FILE 434
//*             to take all or selected output from the spool and   *   FILE 434
//*             copy it to a PDS via SDSF "PRINT" commands.         *   FILE 434
//* SUFFIX    - Edit macro to add a suffix to the end of a line     *   FILE 434
//* SW        - Edit macro to switch from VIEW to EDIT or visa versa*   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
//* TSOR      - REXX exec (command) to REVIEW o/p of any TSO cmd    *   FILE 434
//* TSOV      - REXX exec (command) to VIEW o/p of any TSO cmd      *   FILE 434
//* VTOCTOT   - REXX program to summarize VTOC cmd output by HLQ    *   FILE 434
//* XBROWSE   - REXX (command) to browse any dataset                *   FILE 434
//* XDSLIST   - REXX (command) to display a data set list (ISPF 3.4)*   FILE 434
//* XEDIT     - REXX (command) to edit any dataset                  *   FILE 434
//* XEF       - REXX exec to start eXtended Editor Facility dialog  *   FILE 434
//* XEFLIBD   - 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     - REXX (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
//* CATSRCHP  - Optional panel for invoking CATSRCH REXX exec       *   FILE 434
//* XEFMENU   - eXtended Editor Facility Main Menu                  *   FILE 434
//* XEFMENUB  - eXtended Editor Facility Main Menu (optional)       *   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
//*                                                                 *   FILE 434
//* ISPF MESSAGEs                                                   *   FILE 434
//* --------------------------------------------------------------- *   FILE 434
//* XEF00     - eXtended Editor Facility Messages                   *   FILE 434
//*                                                                 *   FILE 434
//*                                                                 *   FILE 434
//* Miscellaneous                                                   *   FILE 434
//* --------------------------------------------------------------- *   FILE 434
//* XEF62     - XEF V6.2 in TSO XMIT format                         *   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:   jan.jaeger@westnet.com.au    *   FILE 437
//*                                                                 *   FILE 437
//*     ZZSA     - Standalone utilities for MVS, including          *   FILE 437
//*                editor, VTOC list, device list, DASD ZAP etc.    *   FILE 437
//*                Member ZZSAPACK added.  This is a zip of a       *   FILE 437
//*                one-cylinder 3390 minidisk containing ZZSA       *   FILE 437
//*                as IPL text.                                     *   FILE 437
//*                                                                 *   FILE 437
//*     NODSI    - A 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
//*                   Dan_Snyder@stercomm.com                       *   FILE 438
//*                                                                 *   FILE 438
//*  -------------------------------------------------------------  *   FILE 438
//*                                                                 *   FILE 438
//*                       STRUCTURED MACROS                         *   FILE 438
//*                                                                 *   FILE 438
//*  >>> - - - - - - - - - - - - - - - - - - - - - - - - - - <<<    *   FILE 438
//*  >>>  For structured macros alone, see member $$$STRUC.  <<<    *   FILE 438
//*  >>> - - - - - - - - - - - - - - - - - - - - - - - - - - <<<    *   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://www.angelfire.com/ks2/kimu/index.html          *   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://www.angelfire.com/ks2/kimu/index.html  *   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
//*           Unfortunately no longer supported. Site downsized...  *   FILE 445
//*                                                                 *   FILE 445
//*           email:  Chris.Kendon@powergen.co.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" <john.archie.mckown@GMAIL.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:   sbgolob@cbttape.org                        *   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, which he has been distribu-   *   FILE 452
//*           ting over the Internet.  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
//*    Licensed material-program, Property of zOS.JES2@Gmail.com    *   FILE 452
//*    All Rights Reserved by zOS.JES2@Gmail.com                    *   FILE 452
//*                                                                 *   FILE 452
//*    As with the CBT source rules, this code may be freely        *   FILE 452
//*    distributed.  However I retain ownership of this code.       *   FILE 452
//*    Thus it 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 August 11, 2004                                     *   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 ...ongoing...                                       *   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 452
//*                                                                 *   FILE 452
//*     IEFUJV System Exit Routine.                                 *   FILE 452
//*                                                                 *   FILE 452
//*     This routine will translate a variety of variables on       *   FILE 452
//*     JCL SET statements.  This allows the use of date and        *   FILE 452
//*     system symbols within batch JCL.                            *   FILE 452
//*                                                                 *   FILE 452
//***FILE 453 IS FROM PAUL A MOINIL FORMERLY AT J.R.C. COMPUTING    *   FILE 453
//*           CENTRE 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
//*                             F.T.S.I. ITALIA S.p.A.              *   FILE 453
//*                             VIA NAZARIO SAURO, 38               *   FILE 453
//*                             I-20099 SESTO SAN GIOVANNI          *   FILE 453
//*                             ITALY                               *   FILE 453
//*                             +39(0332)786032                     *   FILE 453
//*                       EMAIL ANTONIO.COLOMBO@JRC.IT              *   FILE 453
//*                       EMAIL AZC10@IT.FTSI.FUJITSU.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 FORMERLY AT J.R.C. COMPUTING    *   FILE 454
//*           CENTRE IN ISPRA, ITALY.  THIS FILE IS THE             *   FILE 454
//*           BASIC MATERIAL TO HIS LARGE COLLECTION                *   FILE 454
//*           OF SOFTWARE WHICH IS ON FILES 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
//*                             F.T.S.I. ITALIA S.p.A.              *   FILE 454
//*                             VIA NAZARIO SAURO, 38               *   FILE 454
//*                             I-20099 SESTO SAN GIOVANNI          *   FILE 454
//*                             ITALY                               *   FILE 454
//*                             +39(0332)786032                     *   FILE 454
//*                       EMAIL ANTONIO.COLOMBO@JRC.IT              *   FILE 454
//*                       EMAIL AZC10@IT.FTSI.FUJITSU.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.             *   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 FORMERLY AT J.R.C. COMPUTING    *   FILE 455
//*           CENTRE IN ISPRA, ITALY.  THIS FILE IS THE             *   FILE 455
//*           COMPLEMENTARY MATERIAL TO HIS LARGE COLLECTION        *   FILE 455
//*           OF SOFTWARE WHICH 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
//*                             F.T.S.I. ITALIA S.p.A.              *   FILE 455
//*                             VIA NAZARIO SAURO, 38               *   FILE 455
//*                             I-20099 SESTO SAN GIOVANNI          *   FILE 455
//*                             ITALY                               *   FILE 455
//*                             +39(0332)786032                     *   FILE 455
//*                       EMAIL ANTONIO.COLOMBO@JRC.IT              *   FILE 455
//*                       EMAIL AZC10@IT.FTSI.FUJITSU.COM           *   FILE 455
//*                                                                 *   FILE 455
//*    FILE NAME : ->.SOURCE.FILE1 (COMPLEMENTARY MATERIAL).        *   FILE 455
//*    FOLLOWS A SUMMARY OF CONTENTS :                              *   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 FORMERLY AT J.R.C. COMPUTING    *   FILE 456
//*           CENTRE IN ISPRA, ITALY.  THIS FILE IS THE             *   FILE 456
//*           ADDITIONAL MATERIAL TO HIS LARGE COLLECTION           *   FILE 456
//*           OF SOFTWARE 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
//*                             F.T.S.I. ITALIA S.p.A.              *   FILE 456
//*                             VIA NAZARIO SAURO, 38               *   FILE 456
//*                             I-20099 SESTO SAN GIOVANNI          *   FILE 456
//*                             ITALY                               *   FILE 456
//*                             +39(0332)786032                     *   FILE 456
//*                       EMAIL ANTONIO.COLOMBO@JRC.IT              *   FILE 456
//*                       EMAIL AZC10@IT.FTSI.FUJITSU.COM           *   FILE 456
//*                                                                 *   FILE 456
//*   FILE NAME : ->.SOURCE.FILE2 (ADDITIONAL MATERIAL).            *   FILE 456
//*   FOLLOWS A SUMMARY OF CONTENTS :                               *   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 FORMERLY AT J.R.C. COMPUTING    *   FILE 457
//*           CENTRE IN ISPRA, ITALY.  THIS FILE IS THE             *   FILE 457
//*           DEMO/GAMES MATERIAL TO HIS LARGE COLLECTION           *   FILE 457
//*           OF SOFTWARE WHICH 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
//*                             F.T.S.I. ITALIA S.p.A.              *   FILE 457
//*                             VIA NAZARIO SAURO, 38               *   FILE 457
//*                             I-20099 SESTO SAN GIOVANNI          *   FILE 457
//*                             ITALY                               *   FILE 457
//*                             +39(0332)786032                     *   FILE 457
//*                       EMAIL ANTONIO.COLOMBO@JRC.IT              *   FILE 457
//*                       EMAIL AZC10@IT.FTSI.FUJITSU.COM           *   FILE 457
//*                                                                 *   FILE 457
//*   FILE NAME : ->.SOURCE.FILE3 (DEMO/GAMES MATERIAL).            *   FILE 457
//*   FOLLOWS A SUMMARY OF CONTENTS :                               *   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 FORMERLY AT J.R.C. COMPUTING    *   FILE 458
//*           CENTRE IN ISPRA, ITALY.  THIS FILE IS THE             *   FILE 458
//*           CBT EXTRACTED MATERIAL TO HIS LARGE COLLECTION        *   FILE 458
//*           OF SOFTWARE WHICH 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
//*                             F.T.S.I. ITALIA S.p.A.              *   FILE 458
//*                             VIA NAZARIO SAURO, 38               *   FILE 458
//*                             I-20099 SESTO SAN GIOVANNI          *   FILE 458
//*                             ITALY                               *   FILE 458
//*                             +39(0332)786032                     *   FILE 458
//*                       EMAIL ANTONIO.COLOMBO@JRC.IT              *   FILE 458
//*                       EMAIL AZC10@IT.FTSI.FUJITSU.COM           *   FILE 458
//*                                                                 *   FILE 458
//*   FILE NAME : ->.SOURCE.FILE4 (CBT EXTRACTED MATERIAL).         *   FILE 458
//*   FOLLOWS A SUMMARY OF CONTENTS :                               *   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 FORMERLY AT J.R.C. COMPUTING    *   FILE 459
//*           CENTRE IN ISPRA, ITALY.  THIS FILE IS THE             *   FILE 459
//*           SUPPLEMENTARY MATERIAL TO HIS LARGE COLLECTION        *   FILE 459
//*           OF SOFTWARE WHICH 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
//*                             F.T.S.I. ITALIA S.p.A.              *   FILE 459
//*                             VIA NAZARIO SAURO, 38               *   FILE 459
//*                             I-20099 SESTO SAN GIOVANNI          *   FILE 459
//*                             ITALY                               *   FILE 459
//*                             +39(0332)786032                     *   FILE 459
//*                       EMAIL ANTONIO.COLOMBO@JRC.IT              *   FILE 459
//*                       EMAIL AZC10@IT.FTSI.FUJITSU.COM           *   FILE 459
//*                                                                 *   FILE 459
//*   FILE NAME : ->.SOURCE.FILE5 (SUPPLEMENTARY MATERIAL).         *   FILE 459
//*   FOLLOWS A SUMMARY OF CONTENTS :                               *   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
//*                    sfowjs@sbcglobal.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
//*           Submitted by Ron Robinson.                            *   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
//*           Please note that the ASID numbers displayed by        *   FILE 473
//*           this report are in decimal, and not in hex.  That     *   FILE 473
//*           display should be adeauate for our purposes,          *   FILE 473
//*           because we care, most of the time, about how MANY     *   FILE 473
//*           non-reusables we have, and not their actual numbers.  *   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@cbttape.org                                   *   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
//*     email:   Kjeld "Sandy" Hvatum                               *   FILE 476
//*              <kh@i1.net> (letter i,number 1)                    *   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
//*    Second shipment:  CBT Version 430   (rebuild 09/26/00)       *   FILE 476
//*                                                                 *   FILE 476
//*       Full screen ISPF interface to the interpreter has         *   FILE 476
//*       been added, among other changes.                          *   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
//*           Note:  This program produces an AWS-format tape       *   FILE 477
//*           on MVS, with RECFM=VB.  The VTT2CNVU program on       *   FILE 477
//*           File 533, will create an FB-80 format AWS tape        *   FILE 477
//*           file from this VB file, so that file can be run       *   FILE 477
//*           as input to the VTT2TAPE program (File 533) to        *   FILE 477
//*           be used to cut a real 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
//*           Note:  Also see the VTT2TAPE program on File 533,     *   FILE 478
//*                  to cut a real tape from an AWS-format tape     *   FILE 478
//*                  on any MVS system.  (SG)                       *   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
//*      BCEDIT has been fixed by Lionel Dyck (10/2023).            *   FILE 479
//*                                                                 *   FILE 479
//*      Important note:  In order for the BCEDIT package to        *   FILE 479
//*      be able to issue the proper OPERATOR SEND commands on      *   FILE 479
//*      behalf of the TSO user, TSO CONSOLE authority has to       *   FILE 479
//*      have been turned on.  To make that job easier, an          *   FILE 479
//*      updated version of the authorized TSO command CPSCB        *   FILE 479
//*      has been included in this file.  Since CPSCB does not      *   FILE 479
//*      produce any TSO output when it has executed success-       *   FILE 479
//*      fully, its companion TSO command LPSCB (List the PSCB)     *   FILE 479
//*      has also been included in this file.  These two TSO        *   FILE 479
//*      commands are designed to be used together, with CPSCB      *   FILE 479
//*      doing the changing, and LPSCB doing the reporting.         *   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@cbttape.org>       *   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
//*      Member   LOADLIB  (includes the executables, some of       *   FILE 480
//*                         which need APF authorization.)          *   FILE 480
//*                        This member is in TSO XMIT format,       *   FILE 480
//*                        and it replaces the former File 481.     *   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 for program exit       *   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
//*                 (Improved enormously by Sam Golob and           *   FILE 480
//*                  Warren Whitford, to report record counts,      *   FILE 480
//*                  and to select some records to copy.)           *   FILE 480
//*                 Original CKIEBGEN program is called member      *   FILE 480
//*                 CKIEBGEO here.  Use the new one.                *   FILE 480
//*                                                                 *   FILE 480
//*        CKINICIO (MACRO)                                         *   FILE 480
//*           Description => Assembler macro for program entry      *   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@cbttape.org        *   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 <eric-ibmmain@WI.RR.COM>               *   FILE 482
//*                                                                 *   FILE 482
//*           Fixed by John Fisher to allow concatenation of        *   FILE 482
//*           more than 100 GDGs.  (Now, up to 999 are allowed.)    *   FILE 482
//*                                                                 *   FILE 482
//*           "John Fisher" <FISHERJ@ccf.org>                       *   FILE 482
//*                                                                 *   FILE 482
//***FILE 483 is from Thomas Ramseier and contains a nice           *   FILE 483
//*           collection of system utilities.  A description of     *   FILE 483
//*           the programs follows below.                           *   FILE 483
//*                                                                 *   FILE 483
//*      $$$$$DOC  THIS MEMBER                                      *   FILE 483
//*                                                                 *   FILE 483
//*      $QSMS     SHORT DESCRIPTION OF QSMS                        *   FILE 483
//*      QSMS      REXX FUNCTION THAT OBTAINS THE SMS STATUS        *   FILE 483
//*                OF ALL DEFINED VOLUMES. RUNS AS TSO COMMAND      *   FILE 483
//*                OR REXX                                          *   FILE 483
//*                (FIXED NOT TO GO INTO AN INFINITE LOOP)          *   FILE 483
//*                (SG-12/18)                                       *   FILE 483
//*      PRINTREG  ASM MACRO USED IN QSMS                           *   FILE 483
//*      IGDBCD    SMS CONFIG MAPPING MACRO BY GILBERT SAINT        *   FILE 483
//*                FLOUR USED IN QSMS                               *   FILE 483
//*                                                                 *   FILE 483
//*      QSMSREXX  SAMPLE REXX THAT INVOKES QSMS.                   *   FILE 483
//*                                                                 *   FILE 483
//*      $QVTOC    SHORT DESCRIPTION OF QVTOC                       *   FILE 483
//*      QVTOC     A CMD PROCESSOR THAT SCANS ALL ONLINE DASDS      *   FILE 483
//*                AND BUILDS A LIST OF ALL LOAD MODULES.           *   FILE 483
//*                $$NOTE$$: NEEDS READ ACCESS TO ALL LOADLIBS      *   FILE 483
//*                                                                 *   FILE 483
//*      ADDMSG    ASM MACRO USED IN QVTOC                          *   FILE 483
//*      AIACCTAB  FILTER PGM USED WITH QVTOC                       *   FILE 483
//*                                                                 *   FILE 483
//*      $QLPAR    SHORT DESCRIPTION OF QLPAR                       *   FILE 483
//*      QLPAR     A TSO CP SHOWING LPAR INFORMATION FOR ALL        *   FILE 483
//*                CURRENTLY DEFINED PARTITIONS.                    *   FILE 483
//*                                                                 *   FILE 483
//*      ADDMSG    ASM MACRO USED IN QLPAR                          *   FILE 483
//*      PRINTREG  ASM MACRO USED IN QLPAR                          *   FILE 483
//*                                                                 *   FILE 483
//*      $QCMD     SHORT DESCRIPTION OF QCMD                        *   FILE 483
//*      QCMD      A TSO COMMANDPROCESSOR THAT ISSUES MVS           *   FILE 483
//*                COMMANDS AND TRAPS THE RESPONSE. THE             *   FILE 483
//*                OUTPUT CAN BE WRITTEN INTO A STEM OF             *   FILE 483
//*                REXX VARIABLES.                                  *   FILE 483
//*                                                                 *   FILE 483
//*      QCMC      SAMPLE REXX THAT USES THE QCMD FUNCTION          *   FILE 483
//*      QCMSCRL   SCROLL ROUTINE FOR THE QCMC FUNCTION             *   FILE 483
//*      QCMP010   PANEL FOR THE QCMC FUNCTION                      *   FILE 483
//*      QCMDREPL  SAMPLE JOB TO RUN QCMD IN BATCH                  *   FILE 483
//*                                                                 *   FILE 483
//*      QTOD      A TSO COMMAND PROCESSOR SHOWING DATE/TIME        *   FILE 483
//*                IN A MORE CONVENIENT WAY THAN THE "TIME"         *   FILE 483
//*                COMMAND.                                         *   FILE 483
//*                                                                 *   FILE 483
//*      DTOD      AN ADAPTATION OF QTOD WHICH ALLOWS YOU TO        *   FILE 483
//*                INTERPRET A TIME ENTERED IN DISPLAY STCK         *   FILE 483
//*                FORMAT:   DTOD D565353F6689C002                  *   FILE 483
//*                                                                 *   FILE 483
//*      TODPRINT  A ASM MACRO THAT "PRINTS" A TOD STAMP.           *   FILE 483
//*                                                                 *   FILE 483
//*      Q522      A TSO COMMANDPROCESSOR PREVENTING YOU            *   FILE 483
//*                FROM BEING LOGGED OFF AFTER JWT                  *   FILE 483
//*                EXCEEDED.  AUTHORIZED.                           *   FILE 483
//*                                                                 *   FILE 483
//*      OMTREE    REXX DISPLAYING ALL CURRENTLY MOUNTED            *   FILE 483
//*                HFSES AND THEIR HIERARCHICAL RELATIONSHIP        *   FILE 483
//*      OMTREE1   PANEL DISPLAYED IN OMTREE                        *   FILE 483
//*      OMTREEH   HELP PANEL FOR THE OMTREE FUNCTION               *   FILE 483
//*                                                                 *   FILE 483
//*      $INSLINE  SHORT DESCRIPTION OF INSLINE                     *   FILE 483
//*      INSLINE   EDIT MACRO THAT INSERTS LINES INTO               *   FILE 483
//*                DATASETS                                         *   FILE 483
//*                (fixed by Peter Glanzmann)                       *   FILE 483
//*                                                                 *   FILE 483
//*      CATCVTM   EDIT MACRO FOR POSTPROCESSING MCNVTCAT           *   FILE 483
//*                OUTPUT                                           *   FILE 483
//*                                                                 *   FILE 483
//*      WORM      REXX GAME                                        *   FILE 483
//*      WORMP     PLAYGROUND FOR WORM                              *   FILE 483
//*      WORMH     HELP PANEL FOR THE WORM GAME                     *   FILE 483
//*                                                                 *   FILE 483
//*      MM        MASTERMIND GAME, WRITTEN IN REXX                 *   FILE 483
//*      MMP       PLAYGROUND FOR MASTERMIND                        *   FILE 483
//*      MMPH      HELP PANEL FOR THE MASTERMIND GAME               *   FILE 483
//*                                                                 *   FILE 483
//*      QUICKIE   XMITTED LOADLIB WITH THE ASM PGMS.               *   FILE 483
//*                                                                 *   FILE 483
//*      $$NOTE$$  THE MM, WORM AND OMTREE FUNCTIONS SHOULD         *   FILE 483
//*                BE USED WITH A GRAPHIC TERMINAL OR AN            *   FILE 483
//*                EMULATOR SUPPORTING BOTH APL AND GRAPH.          *   FILE 483
//*                                                                 *   FILE 483
//*        For further information, please contact me under         *   FILE 483
//*        following address:                                       *   FILE 483
//*                                                                 *   FILE 483
//*                         Thomas Ramseier                         *   FILE 483
//*      FOITT   Swiss Federal Office of Information Technology,    *   FILE 483
//*                  Systems and Telecommunication                  *   FILE 483
//*                        Monbijoustrasse 74                       *   FILE 483
//*                          CH 3003 Berne                          *   FILE 483
//*                           Switzerland                           *   FILE 483
//*                                                                 *   FILE 483
//*        phone:     ++41 (0)31 323-01-00                          *   FILE 483
//*        facsimile: ++41 (0)31 325-93-75                          *   FILE 483
//*                                                                 *   FILE 483
//*        e-mail (preferred): thomas.ramseier@bit.admin.ch         *   FILE 483
//*                                                                 *   FILE 483
//*                       cheers.                                   *   FILE 483
//*                                                                 *   FILE 483
//***FILE 484 is from Chuck Baumann and contains a utility he       *   FILE 484
//*           developed to display cache information and to         *   FILE 484
//*           manage cache.  A description of the utility follows:  *   FILE 484
//*                                                                 *   FILE 484
//*    ---------------------------------------------------------    *   FILE 484
//*                                                                 *   FILE 484
//*       Since Amdahl is no longer in the S390 market  I           *   FILE 484
//*       thought I would get around to contributing a utility      *   FILE 484
//*       program I developed for Amdahl customers at no charge.    *   FILE 484
//*                                                                 *   FILE 484
//*       I call this program Cacheman.  It is an ISPF dialog       *   FILE 484
//*       that displays and modifies 3990 (and 3880) cache          *   FILE 484
//*       statuses at both the controller and device level.  It     *   FILE 484
//*       has been in use since 1994 at over 200 sites              *   FILE 484
//*       worldwide.   I am including a small portion of the        *   FILE 484
//*       documentation file here to give you a better idea what    *   FILE 484
//*       this utility does.                                        *   FILE 484
//*                                                                 *   FILE 484
//*                Cacheman (Amdahl Cache Utility)                  *   FILE 484
//*                                                                 *   FILE 484
//*       This document contains a description of the tool          *   FILE 484
//*       Cacheman, a brief history of the product,  a sample of    *   FILE 484
//*       the ISPF panels and output from an actual session, and    *   FILE 484
//*       the instructions for installing on a host MVS system.     *   FILE 484
//*                                                                 *   FILE 484
//*       Description:  Cacheman is a software tool that allows     *   FILE 484
//*       the user to display the cacheing status of DASD           *   FILE 484
//*       controllers and devices connected to cached               *   FILE 484
//*       controllers.  This dialog is much easier to use than      *   FILE 484
//*       the ISMF panels but is NOT a replacement for ISMF.        *   FILE 484
//*       The dialog features a user customizable options panel,    *   FILE 484
//*       logging, and field level help.                            *   FILE 484
//*                                                                 *   FILE 484
//*       Cacheman is an ISPF dialog that formats the output from   *   FILE 484
//*       the LISTDATA and SETCACHE commands and displays the       *   FILE 484
//*       results in a tabular format.  The status of devices and   *   FILE 484
//*       controllers can be easily monitored and modified from     *   FILE 484
//*       these panels.  An options panel allows the user to        *   FILE 484
//*       easily 'tailor' certain aspects of this dialog.  Help     *   FILE 484
//*       panels and field level help are both available in this    *   FILE 484
//*       dialog. It will work for 3990, 3880-11,13,21,23, and      *   FILE 484
//*       3rd party 3990 compatible controllers (Amdahl, Hitachi,   *   FILE 484
//*       EMC, etc)                                                 *   FILE 484
//*                                                                 *   FILE 484
//*       Cacheman is coded in TSO/E REXX.  There are three small   *   FILE 484
//*       assembler routines which scan the UCB chains and return   *   FILE 484
//*       information. No modules require APF authorization. RACF   *   FILE 484
//*       or ACF/2 authorizations will be required to allow users   *   FILE 484
//*       to issue the LISTDATA and SETCACHE commands.              *   FILE 484
//*                                                                 *   FILE 484
//*       I am currently still at Amdahl and my phone number at     *   FILE 484
//*       work is (408) 746-4784.                                   *   FILE 484
//*       email:  chuck_baumann@amdahl.com                          *   FILE 484
//*                                                                 *   FILE 484
//***FILE 485 is from Binyamin Dissen and contains a VTAM           *   FILE 485
//*           application that he wrote some years ago, but         *   FILE 485
//*           which may be useful to the public, both as a          *   FILE 485
//*           coding example, and to actually run.                  *   FILE 485
//*                                                                 *   FILE 485
//*           email:  bdissen@netvision.net.il                      *   FILE 485
//*                   bdissen@dissensoftware.com                    *   FILE 485
//*                                                                 *   FILE 485
//*           Some setup instructions have been added to this       *   FILE 485
//*           file from Judah Jacobs.                               *   FILE 485
//*                                                                 *   FILE 485
//*           email:  Judah Jacobs <evalues@pacbell.net>            *   FILE 485
//*                   candojj@hotmail.com                           *   FILE 485
//*                                                                 *   FILE 485
//*       Added to this file is a version (member name TESTVT38)    *   FILE 485
//*       of TESTVTM2 from Juergen Winkelmann that is fixed to      *   FILE 485
//*       work on MVS 3.8.  All members with ISPF userid JUERGEN    *   FILE 485
//*       refer to this implementation of the TESTVTM2 program.     *   FILE 485
//*                                                                 *   FILE 485
//*           email:  winkelmann@id.ethz.ch                         *   FILE 485
//*                                                                 *   FILE 485
//***FILE 486 is from J.O. "Skip" Robinson, and contains a          *   FILE 486
//*           program to issue a SET CLOCK command to properly      *   FILE 486
//*           calculate local time.                                 *   FILE 486
//*                                                                 *   FILE 486
//*           email:   Skip Robinson <jo.skip.robinson@sce.com>     *   FILE 486
//*                                                                 *   FILE 486
//***FILE 487 is a TSO REXX exec from Robert Bridges, which can     *   FILE 487
//*           be used to ISPF VIEW the TSO terminal output of       *   FILE 487
//*           commands.  This way, the output would not roll off    *   FILE 487
//*           the screen.                                           *   FILE 487
//*                                                                 *   FILE 487
//*           For example, instead of typing:                       *   FILE 487
//*                                                                 *   FILE 487
//*             TSO HELP XMIT        under ISPF, getting the        *   FILE 487
//*                                  raw TSO output, you type       *   FILE 487
//*                                                                 *   FILE 487
//*             TSO DISP HELP XMIT   and you get to VIEW all        *   FILE 487
//*                                  the output under ISPF.         *   FILE 487
//*                                                                 *   FILE 487
//*           This exec is therefore very convenient to have.       *   FILE 487
//*                                                                 *   FILE 487
//*              Robert_Bridges@vanguard.com                        *   FILE 487
//*                                                                 *   FILE 487
//***FILE 488 is from Jim Iannone and contains utilities, mostly    *   FILE 488
//*           written in COBOL, that help control the daily         *   FILE 488
//*           production at his site.  There are many utilities     *   FILE 488
//*           included here.  Please see members $DOC, $INDEX,      *   FILE 488
//*           and $INDEX2 to see some of the details of what        *   FILE 488
//*           these utilities do, and how they work.                *   FILE 488
//*                                                                 *   FILE 488
//*           It is well worth investigating these utilities        *   FILE 488
//*           for production control purposes, and as a help        *   FILE 488
//*           for Operations.                                       *   FILE 488
//*                                                                 *   FILE 488
//*           These are utilities developed over 30 years at        *   FILE 488
//*           St. Vincent Medical Center in Toledo, Ohio.           *   FILE 488
//*                                                                 *   FILE 488
//*           St. Vincents is now part of Mercy Health Partners,    *   FILE 488
//*           which is controlled by Catholic Health Partners       *   FILE 488
//*           of Cincinnati.  This all recently merged into         *   FILE 488
//*           "Bon Secours Mercy Health".                           *   FILE 488
//*                                                                 *   FILE 488
//*           They were submitted by, and primarily authored by:    *   FILE 488
//*                                                                 *   FILE 488
//*           Jim Iannone                                           *   FILE 488
//*           Systems / Applications Programmer                     *   FILE 488
//*           Mercy Health Partners                                 *   FILE 488
//*           Toledo, Ohio                                          *   FILE 488
//*           jiannon@me.com                                        *   FILE 488
//*                                                                 *   FILE 488
//*        --------                                                 *   FILE 488
//*        Overview                                                 *   FILE 488
//*        --------                                                 *   FILE 488
//*                                                                 *   FILE 488
//*        See file $DOC                                            *   FILE 488
//*                                                                 *   FILE 488
//***FILE 489 is from Jim Iannone and contains software to help     *   FILE 489
//*           in the installation of SUT update tapes from Shared   *   FILE 489
//*           Medical Systems of Malvern, PA  (which was bought     *   FILE 489
//*           by Siemens).  This package could help hospital        *   FILE 489
//*           installations which run INVISION install their        *   FILE 489
//*           update tapes.                                         *   FILE 489
//*                                                                 *   FILE 489
//*           The contents of this file pertain to:                 *   FILE 489
//*                                                                 *   FILE 489
//*           SHARED MEDICAL SYSTEMS (SMS) Software Update Tape     *   FILE 489
//*           (SUT) delivery/install procedures.  INVISION runs     *   FILE 489
//*           on an S/390 platform.  These processes were           *   FILE 489
//*           developed to help document and streamline the         *   FILE 489
//*           installation of their SUT tapes.                      *   FILE 489
//*                                                                 *   FILE 489
//*           These are utilities developed over 28 years at        *   FILE 489
//*           St. Vincent Medical Center in Toledo, Ohio.           *   FILE 489
//*                                                                 *   FILE 489
//*           They were submitted by, and primarily authored by:    *   FILE 489
//*                                                                 *   FILE 489
//*           Jim Iannone                                           *   FILE 489
//*           Systems / Applications Programmer                     *   FILE 489
//*           Toledo, Ohio                                          *   FILE 489
//*           jiannon@me.com                                        *   FILE 489
//*                                                                 *   FILE 489
//***FILE 490 is from Andy Robertson and contains a useful set      *   FILE 490
//*           of Assembler Macros.  These macros make it easier     *   FILE 490
//*           to write re-entrant programs.                         *   FILE 490
//*                                                                 *   FILE 490
//*     INSTASM   -  library of macros useful for reentrant         *   FILE 490
//*                  assembler programming, including a             *   FILE 490
//*                  reentrant date conversion routine.             *   FILE 490
//*                                                                 *   FILE 490
//*     Andy Robertson <pinlighter@btconnect.com>                   *   FILE 490
//*                                                                 *   FILE 490
//*     home site:                                                  *   FILE 490
//*         http://www.thenightland.co.uk/MYWEB/mvsindex.html       *   FILE 490
//*                                                                 *   FILE 490
//*     modified:   November 20, 2010                               *   FILE 490
//*                                                                 *   FILE 490
//***FILE 491 is from Andy Robertson and contains a "lite" version  *   FILE 491
//*           of XMITIP which is written in COBOL.  Lionel Dyck's   *   FILE 491
//*           "original" version of XMITIP is on File 314 of this   *   FILE 491
//*           tape.  Lionel's (File 314) version is written in      *   FILE 491
//*           REXX.  These programs allow the sending of email      *   FILE 491
//*           messages from your MVS machine if you have an SMTP    *   FILE 491
//*           server running.                                       *   FILE 491
//*                                                                 *   FILE 491
//*           This file has been modified to include Andy's         *   FILE 491
//*           BATCHART package too.  See below for explanation.     *   FILE 491
//*                                                                 *   FILE 491
//*     Andy Robertson <andywrobertson@clara.co.uk>                 *   FILE 491
//*                                                                 *   FILE 491
//*     home site:                                                  *   FILE 491
//*         http://home.clara.net/andywrobertson/mvsindex.html      *   FILE 491
//*                                                                 *   FILE 491
//*   Note:  The following packages are in PDSLOAD format, which    *   FILE 491
//*          is a modified IEBUPDTE format that preserves ISPF      *   FILE 491
//*          statistics.  The PDSLOAD program load module is        *   FILE 491
//*          included in this pds, and a sample job to create the   *   FILE 491
//*          installation pds'es for the packages is in member      *   FILE 491
//*          $PDSLOAD.  Modify that member and run the job....      *   FILE 491
//*                                                                 *   FILE 491
//*     LECH     - A sample LE condition handler.  Code two COPY    *   FILE 491
//*                statements in your cobol mainline.  Interrupts   *   FILE 491
//*                will be intercepted with a dump and a message    *   FILE 491
//*                and your program will continue to run.           *   FILE 491
//*                                                                 *   FILE 491
//*     XMITMAIL - a "lite, fast" version of XMITIP, written in     *   FILE 491
//*                COBOL, callable from any HLL in batch or         *   FILE 491
//*                CICS.  Attachments only supported if you         *   FILE 491
//*                format them yourself.                            *   FILE 491
//*                                                                 *   FILE 491
//*     XMITCICS - an interface to run XMITMAIL from CICS.          *   FILE 491
//*                                                                 *   FILE 491
//*     BATCHART - a member in PDSLOAD format which contains COBOL  *   FILE 491
//*                source to produce 3270-displayable pictures.     *   FILE 491
//*                                                                 *   FILE 491
//*        BATCHART can be used to create GDFs in batch,            *   FILE 491
//*        using an input file of commands.                         *   FILE 491
//*                                                                 *   FILE 491
//*        The GDFs can be displayed on a 3720-type terminal,       *   FILE 491
//*        printed on an AFP printer, plotted, or saved as          *   FILE 491
//*        members of a PDS.  Saved PDS members can later be        *   FILE 491
//*        converted to .gif files by the IBM-provided              *   FILE 491
//*        ADMUGIF utility                                          *   FILE 491
//*                                                                 *   FILE 491
//*        BATCHART needs LE, GDDM and GDDM-PGF.                    *   FILE 491
//*                                                                 *   FILE 491
//*        To generate the BATCHART installation pds, just run the  *   FILE 491
//*        job $PDSLOAD.  This will generate the other pds'es also. *   FILE 491
//*                                                                 *   FILE 491
//***FILE 492 is from Roland Schiradin and contains SHOWzOS         *   FILE 492
//*           Release 8.01, and Release 7.25, as well as many       *   FILE 492
//*           previous releases.                                    *   FILE 492
//*                                                                 *   FILE 492
//*           SHOWMVS old boundary releases are:  6.30 and 7.10.    *   FILE 492
//*           Release 7.01 had dropped support for pre-OS/390       *   FILE 492
//*           systems, so if you have an older system, you should   *   FILE 492
//*           use SHOWMVS 6.30.  For current levels of z/OS, you    *   FILE 492
//*           should use SHOWzOS 8.01 or 7.25 which are the current *   FILE 492
//*           versions.  You should re-assemble SHOWzOS with your   *   FILE 492
//*           current system levels that you plan to run it on.     *   FILE 492
//*                                                                 *   FILE 492
//*     >>>>  ---------------------------------------------- <<<<   *   FILE 492
//*     >>>>                                                 <<<<   *   FILE 492
//*     >>>>  This is the permanent home of SHOWMVS/SHOWzOS. <<<<   *   FILE 492
//*     >>>>                                                 <<<<   *   FILE 492
//*     >>>>  ---------------------------------------------- <<<<   *   FILE 492
//*     >>>>       IF YOU ARE RUNNING z/OS 2.1 OR 2.2,       <<<<   *   FILE 492
//*     >>>>      YOU HAVE TO USE SHOWzOS 7.22 OR 7.23.      <<<<   *   FILE 492
//*     >>>>       IF YOU ARE RUNNING z/OS 2.4 OR 2.3,       <<<<   *   FILE 492
//*     >>>>      YOU HAVE TO USE SHOWzOS 8.01 OR 7.25.      <<<<   *   FILE 492
//*     >>>>       IF YOU ARE RUNNING ON A Z14, OR LATER.    <<<<   *   FILE 492
//*     >>>>      YOU SHOULD USE SHOWzOS 8.01.               <<<<   *   FILE 492
//*     >>>>  ---------------------------------------------- <<<<   *   FILE 492
//*                                                                 *   FILE 492
//*           SHOWMVS and SHOWzOS belonged to Gilbert Saint-flour.  *   FILE 492
//*           We owe Gilbert a big "thank you" for having invented  *   FILE 492
//*           this utility, and having maintained it for a long     *   FILE 492
//*           time.  Gilbert turned the maintenance of SHOWzOS      *   FILE 492
//*           over to Roland Schiradin a number of years before     *   FILE 492
//*           his passing.                                          *   FILE 492
//*                                                                 *   FILE 492
//*           SHOWzOS is currently being maintained by Roland       *   FILE 492
//*           Schiradin.                                            *   FILE 492
//*                                                                 *   FILE 492
//*           SHOWzOS 8.01 has been included here as members:       *   FILE 492
//*             SHOWZOS   -  source code                            *   FILE 492
//*             SHOWMACS  -  7.25 and 8.01 macro library            *   FILE 492
//*             SHOWJ725  -  JCL to assemble release 7.25           *   FILE 492
//*             SHOWJCL8  -  JCL to assemble release 8.01           *   FILE 492
//*                                                                 *   FILE 492
//*           ISPF statistics for these members reflect their       *   FILE 492
//*           release number.                                       *   FILE 492
//*                                                                 *   FILE 492
//*           Some shops might have trouble assembling SHOWzOS      *   FILE 492
//*           because it requires certain PTF levels of the HLASM   *   FILE 492
//*           Assembler program ASMA90.  If you can't assemble      *   FILE 492
//*           SHOWzOS yourself, we have supplied CBT File 614       *   FILE 492
//*           with many assembled load modules for different z/OS   *   FILE 492
//*           levels and SHOWzOS levels.  You can try these load    *   FILE 492
//*           modules and figure out which works best on your       *   FILE 492
//*           own system.                                           *   FILE 492
//*                                                                 *   FILE 492
//*           If you REALLY NEED to assemble some of the previous   *   FILE 492
//*           versions of SHOWzOS, source is included here back to  *   FILE 492
//*           version 7.18, with the appropriate macro libraries    *   FILE 492
//*           and jobstreams.  These are clearly marked in their    *   FILE 492
//*           member names and ISPF statistics.  These are RECENT   *   FILE 492
//*           SHOWzOS releases.  Old releases are SHOWMVS, and      *   FILE 492
//*           SHOWM630, which can take you back all the way to      *   FILE 492
//*           ESA, if that is what you are running.  If you need    *   FILE 492
//*           source for any other SHOWzOS releases, please write   *   FILE 492
//*           to Sam Golob <sbgolob@cbttape.org>.  Just about all   *   FILE 492
//*           you'll ever need is also probably covered by the      *   FILE 492
//*           load module libraries in File 614.                    *   FILE 492
//*                                                                 *   FILE 492
//*       SOME OF THE FOLLOWING REMARKS APPLY TO RUNNING SHOWzOS    *   FILE 492
//*       ON OLDER z/OS SYSTEMS (using previous SHOWzOS versions):  *   FILE 492
//*                                                                 *   FILE 492
//*           The system macro levels you are assembling with, are  *   FILE 492
//*           crucial if you are migrating from z/OS 1.8 to z/OS    *   FILE 492
//*           1.9 or higher.  So in File 614, the separately        *   FILE 492
//*           assembled load modules are marked accordingly, and    *   FILE 492
//*           you can tell which load modules were assembled on     *   FILE 492
//*           a z/OS 1.9 system or higher.                          *   FILE 492
//*                                                                 *   FILE 492
//*           SHOWzOS starting from version 7.16, and higher        *   FILE 492
//*           versions, including the current version which is      *   FILE 492
//*           7.25, requires having z/Architecture, and, at least,  *   FILE 492
//*           z/OS 1.3. (I also think SHOWzOS 7.17 had been tested  *   FILE 492
//*           to run with z/OS releases back to 1.4 or 1.5 - SBG.)  *   FILE 492
//*                                                                 *   FILE 492
//*           The most current version of SHOWzOS, version 8.01,    *   FILE 492
//*           uses many new machine instructions for the z-series   *   FILE 492
//*           machines.  You may (at this point) prefer to run      *   FILE 492
//*           version 7.25 if 8.01 doesn't run on your machine.     *   FILE 492
//*           The level of SHOWzOS that you run, should be consis-  *   FILE 492
//*           tent with the level of z/OS that you are running.     *   FILE 492
//*                                                                 *   FILE 492
//*           SHOWzOS may be invoked as an ISPF command, or from an *   FILE 492
//*           entry in the ISPF command table.  However, it should  *   FILE 492
//*           be invoked as a CMD instead of as a PGM.              *   FILE 492
//*           Like this -                                           *   FILE 492
//*                                                                 *   FILE 492
//*              SELECT CMD(SHOWZOS &ZPARM) MODE(FSCR)              *   FILE 492
//*                                                                 *   FILE 492
//*           If you don't invoke it this way from the ISPF         *   FILE 492
//*           command table, SHOWzOS may abend.                     *   FILE 492
//*                                                                 *   FILE 492
//*           For pre-assembled load modules at different z/OS      *   FILE 492
//*           levels, please see File 614.  Also see File 614       *   FILE 492
//*           for load modules of previous releases of SHOWzOS.     *   FILE 492
//*           You should use whatever load modules work best on     *   FILE 492
//*           your system, should you not be able to assemble       *   FILE 492
//*           SHOWzOS for yourself.  (Assembly requires certain     *   FILE 492
//*           release and PTF levels of the HLASM assembler         *   FILE 492
//*           ASMA90.)  Try to use the highest version of SHOWzOS   *   FILE 492
//*           that works on your system.                            *   FILE 492
//*                                                                 *   FILE 492
//*           On this file, the following members contain source:   *   FILE 492
//*                                                                 *   FILE 492
//*               SHOWZOS    -  Source code for SHOWzOS 8.01        *   FILE 492
//*               SHOWMVS    -  Source code for SHOWMVS 7.10        *   FILE 492
//*               SHOW630    -  Source code for SHOWMVS 6.30        *   FILE 492
//*                                                                 *   FILE 492
//*    ASSEMBLY:                                                    *   FILE 492
//*    --------                                                     *   FILE 492
//*           You need a customized macro library to assemble       *   FILE 492
//*           SHOWMVS and SHOWzOS.  Member SHOWMACS contains the    *   FILE 492
//*           macro members to assemble the current version of      *   FILE 492
//*           SHOWzOS.  SHOWM630 contains the macros to assemble    *   FILE 492
//*           the SHOW630 source.  SHOWM717 and SHOWM718 (same      *   FILE 492
//*           as for 7.19) are the macro libraries for SHOWzOS      *   FILE 492
//*           7.17 and 7.18 respectively).                          *   FILE 492
//*                                                                 *   FILE 492
//*           These macro libraries are in IEBUPDTE SYSIN format    *   FILE 492
//*           (really PDSLOAD format - File 093 and File 035).      *   FILE 492
//*                                                                 *   FILE 492
//*           Other macros needed are IBM macros:  They are in      *   FILE 492
//*           SYS1.MACLIB, SYS1.MODGEN, TCP/IP and CEE (LE) maclib. *   FILE 492
//*           These macro libraries should be at the system level   *   FILE 492
//*           where you intend to run SHOWzOS.                      *   FILE 492
//*                                                                 *   FILE 492
//*    Please note that at the z/OS 1.4 level, macro CSFDACC in     *   FILE 492
//*    SYS1.MODGEN has a duplicate field name DACC_LEN .  The       *   FILE 492
//*    second instance of this field name should be replaced by     *   FILE 492
//*    DACC_LEN_TOT .  This problem is addressed by APAR OA01618    *   FILE 492
//*    which is fixed by PTF UA00902 in 704 and UA00903 in 706.     *   FILE 492
//*                                                                 *   FILE 492
//*    By now (January 2016) with z/OS at at least 1.13, 2.1, 2.2   *   FILE 492
//*    for most people, the comments in the above paragraph are     *   FILE 492
//*    old.  (Now - December 2020, it's even later.)                *   FILE 492
//*                                                                 *   FILE 492
//*           Please address any comments or questions to:          *   FILE 492
//*                                                                 *   FILE 492
//*         Sam Golob          sbgolob@cbttape.org                  *   FILE 492
//*                                                                 *   FILE 492
//*    or   Roland Schiradin   roland@schiradin.de                  *   FILE 492
//*                                                                 *   FILE 492
//***FILE 493 is from Jim Connelley and contains some handy         *   FILE 493
//*           routines.  There is also a paper all about CRC        *   FILE 493
//*           checksum creation, from Ross N. Williams, that        *   FILE 493
//*           Jim has included here.                                *   FILE 493
//*                                                                 *   FILE 493
//*           Jim's "reverse IDCAMS" program called VC is worthy    *   FILE 493
//*           of note.                                              *   FILE 493
//*                                                                 *   FILE 493
//*           email:   jim@connelley.org                            *   FILE 493
//*                                                                 *   FILE 493
//*    Programs included are:                                       *   FILE 493
//*                                                                 *   FILE 493
//*    CRC32      -  An Assembler routine to provide a CRC          *   FILE 493
//*                  checksum                                       *   FILE 493
//*                                                                 *   FILE 493
//*    VC         -  A REXX routine to look at a VSAM cluster       *   FILE 493
//*                  and generate IDCAMS statements which           *   FILE 493
//*                  DEFINE it                                      *   FILE 493
//*                                                                 *   FILE 493
//*    C2F        -  A REXX routine to convert a number to          *   FILE 493
//*                  internal float format, display the result,     *   FILE 493
//*                  and convert the result back to decimal         *   FILE 493
//*                                                                 *   FILE 493
//***FILE 494 is from David Sumner and is a TSO Exit to the         *   FILE 494
//*           LISTBC command, to prevent the creation of            *   FILE 494
//*           an individual TSO userlog, if one hasn't been         *   FILE 494
//*           created yet, and to use SYS1.BRODCAST instead.        *   FILE 494
//*           The name of this exit is IKJEESX9.                    *   FILE 494
//*                                                                 *   FILE 494
//*           David Sumner                                          *   FILE 494
//*           email:  dsumner@dehavilland.ca                        *   FILE 494
//*                                                                 *   FILE 494
//***FILE 495 is Tom Conley's Dynamic ISPF Starter Set (DISS), a    *   FILE 495
//*           set of REXX execs to dynamically allocate datasets    *   FILE 495
//*           necessary to run the ISPF interfaces of many common   *   FILE 495
//*           software packages.  This collection of sample execs   *   FILE 495
//*           was designed to make it easier to install these       *   FILE 495
//*           ISPF interfaces, without adding DD names to your      *   FILE 495
//*           installation's LOGON PROCs.  Lots of samples here!    *   FILE 495
//*           Email:  pinncons@rochester.rr.com                     *   FILE 495
//*                                                                 *   FILE 495
//* Dynamic ISPF is a methodology to eliminate ISPF datasets from   *   FILE 495
//* TSO logon procs by using the dynamic allocation functions of    *   FILE 495
//* ISPF and TSO to allocate ISPF application datasets instead.     *   FILE 495
//* For more information about Dynamic ISPF, please visit           *   FILE 495
//* http://home.rochester.rr.com/pinncons and download Tom Conley's *   FILE 495
//* Dynamic ISPF SHARE presentation.                                *   FILE 495
//*                                                                 *   FILE 495
//* This starter set includes REXX execs to invoke many standard    *   FILE 495
//* ISPF applications.  If you have any problems, suggestions, or   *   FILE 495
//* to contribute an exec of your own, please Email Tom Conley at   *   FILE 495
//* pinncons@rochester.rr.com.  This exec library will be updated   *   FILE 495
//* periodically and posted at http://www.cbttape.org and           *   FILE 495
//* http://home.roadrunner.com/~pinncons                            *   FILE 495
//*                                                                 *   FILE 495
//* In order to understand and install the varied components of     *   FILE 495
//* the Dynamic ISPF Starter Set, refer to the following members:   *   FILE 495
//*                                                                 *   FILE 495
//*  $CHANGES - Change log of all changes to DISS                   *   FILE 495
//*  $INSTALL - Installation instructions for each release          *   FILE 495
//*  $README  - Starting point for DISS                             *   FILE 495
//*  $READWAC - Documentation and installation instructions for     *   FILE 495
//*             World According to Conley (WAC) ISPF method         *   FILE 495
//*                                                                 *   FILE 495
//* The following list of members is followed by a short            *   FILE 495
//* description to show you the ISPF applications supported by the  *   FILE 495
//* Dynamic ISPF Starter Set:                                       *   FILE 495
//*                                                                 *   FILE 495
//*  $BOOKINS - Installation instructions for BookManager support   *   FILE 495
//*  $CHANGES - Change log of all changes to DISS                   *   FILE 495
//*  $DYNDTL  - Example showing how to invoke DISS apps from DTL    *   FILE 495
//*  $DYNDT12 - DTL example for z/OS V1R2 and higher                *   FILE 495
//*  $DYNMENU - Menu to invoke Dynamic ISPF REXX execs              *   FILE 495
//*  $FILE495 - This member                                         *   FILE 495
//*  $INSTALL - Installation instructions for each release          *   FILE 495
//*  $README  - Starting point for DISS                             *   FILE 495
//*  $READWAC - Documentation for WAC ISPF method                   *   FILE 495
//*  @$AVRS   - SEA's $AVRS                                         *   FILE 495
//*  @ABNDAID - Compuware's AbendAid                                *   FILE 495
//*  @ACF2    - CA's ACF2                                           *   FILE 495
//*  @AMDSADD - IBM's StandAlone Dump Dataset Initialization EXEC   *   FILE 495
//*  @APA     - IBM's Application Performance Analyzer              *   FILE 495
//*  @APPC    - IBM's APPC administration                           *   FILE 495
//*  @ASM2    - CA's ASM2                                           *   FILE 495
//*  @ASTEX   - CA's ASTEX                                          *   FILE 495
//*  @ASU     - IBM's DCE Application Support                       *   FILE 495
//*  @AXCIS   - Kodak's AXCIS                                       *   FILE 495
//*  @BDT     - IBM's Bulk Data Transfer                            *   FILE 495
//*  @BOOKBLD - IBM's BookManager BUILD                             *   FILE 495
//*  @BOOKDBC - IBM's BookManager DBCS Print                        *   FILE 495
//*  @BOOKIND - IBM's BookManager INDEX                             *   FILE 495
//*  @BOOKRED - IBM's BookManager READ                              *   FILE 495
//*  @CADISK  - CA's DISK                                           *   FILE 495
//*  @CALIBR  - CA's LIBRARIAN                                      *   FILE 495
//*  @CAOPERA - CA's OPERA                                          *   FILE 495
//*  @CAOPT   - CA's Optimizer                                      *   FILE 495
//*  @CASPOOL - CA's SPOOL                                          *   FILE 495
//*  @CATLMS  - CA's TLMS                                           *   FILE 495
//*  @CATSS   - CA's Top Secret                                     *   FILE 495
//*  @CAVTAPE - CA's VTAPE                                          *   FILE 495
//*  @CAXCOM  - CA's XCOM                                           *   FILE 495
//*  @CA1     - CA's CA-1 Tape Management System                    *   FILE 495
//*  @CA11    - CA's CA-11 Job Restart System                       *   FILE 495
//*  @CA7     - CA's CA-7 Job Control System                        *   FILE 495
//*  @CICMEU1 - IBM's CICS Message Editing Utility                  *   FILE 495
//*  @CICMEU2 - IBM's CICS Message Editing Utility                  *   FILE 495
//*  @COMMAND - MACRO4's COMMAND                                    *   FILE 495
//*  @COMPARX - Serena's COMPAREX                                   *   FILE 495
//*  @CPSM    - IBM's CICSPlex System Manager                       *   FILE 495
//*  @CTLGSOL - Softworks's Catalog Solution                        *   FILE 495
//*  @CWLMA   - Compuware License Management                        *   FILE 495
//*  @CWUTILS - Compuware Utilities                                 *   FILE 495
//*  @DB2ADM  - IBM's DB2 Administrator                             *   FILE 495
//*  @DB2I    - IBM's DB2 Interactive                               *   FILE 495
//*  @DCECONF - IBM's DCE Configuration                             *   FILE 495
//*  @DELIVER - CA's DELIVER                                        *   FILE 495
//*  @DFSCONF - IBM's Distributed File Service Configuration        *   FILE 495
//*  @DFSORT  - IBM's DF/SORT                                       *   FILE 495
//*  @DITTO   - IBM's DITTO                                         *   FILE 495
//*  @DMPMSTI - MACRO4's DUMPMASTER Installation                    *   FILE 495
//*  @DMPMSTR - MACRO4's DUMPMASTER                                 *   FILE 495
//*  @EJES    - Phoenix Software International's (E)JES             *   FILE 495
//*  @ENDEVOR - CA's ENDEVOR Change Control                         *   FILE 495
//*  @EPILOG  - Candle's EPILOG/MVS                                 *   FILE 495
//*  @ESP     - Cybermation's @ESP                                  *   FILE 495
//*  @ETFACF2 - Eberhard Klemens ETF ACF2                           *   FILE 495
//*  @ETFRACF - Eberhard Klemens ETF RACF                           *   FILE 495
//*  @EXAMINE - CA's EXAMINE                                        *   FILE 495
//*  @FAT     - Innovation's FATS/FATAR                             *   FILE 495
//*  @FAULTAN - IBM's FaultAnalyzer                                 *   FILE 495
//*  @FDRABR  - Innovation's FDR/ABR                                *   FILE 495
//*  @FFST    - IBM's First Failure Support Technology              *   FILE 495
//*  @FILEAID - Compuware's FILEAID                                 *   FILE 495
//*  @FILEIMS - Compuware's FILEAID/IMS                             *   FILE 495
//*  @FIMGRV1 - IBM's FileManager Version 1                         *   FILE 495
//*  @FIMGRV2 - IBM's FileManager Version 2                         *   FILE 495
//*  @GDDMPQM - IBM's GDDM Print Queue Manager                      *   FILE 495
//*  @GRSMON  - IBM's GRS Monitor                                   *   FILE 495
//*  @GRSMON1 - IBM's GRS Monitor Stub                              *   FILE 495
//*  @HCD     - IBM's Hardware Configuration                        *   FILE 495
//*  @IAM     - Innovation's Innovation Access Method               *   FILE 495
//*  @ICSF    - IBM's Integrated Cryptographic Services Facility    *   FILE 495
//*  @IEF     - CA's IEF                                            *   FILE 495
//*  @IMOD    - CA's IMOD editor for GSS                            *   FILE 495
//*  @INFOCTR - IBM's TSO/E Informtion Center                       *   FILE 495
//*  @INFOPRT - IBM's InfoPrint                                     *   FILE 495
//*  @IOF     - Triangle Systems' Interactive Output Facility       *   FILE 495
//*  @IPCS    - IBM's Interactive Problem Control System            *   FILE 495
//*  @IPCSIM1 - IBM's IPCS with IMS support                         *   FILE 495
//*  @IPCSIM2 - IBM's IPCS with IMS support                         *   FILE 495
//*  @IPCSJ2  - IBM's IPCS with JES2 support                        *   FILE 495
//*  @IPCSJ3  - IBM's IPCS with JES3 support                        *   FILE 495
//*  @IPCSMNU - IBM's IPCS main menu exec enables submenu options   *   FILE 495
//*  @IPCSTC1 - IBM's IPCS with TCP/IP support                      *   FILE 495
//*  @IPCSTC2 - IBM's IPCS with TCP/IP support                      *   FILE 495
//*  @ISHELL  - IBM's ISPF Shell for Unix System Services           *   FILE 495
//*  @ISM     - CA's Integrated Storage Mangement                   *   FILE 495
//*  @ISMF    - IBM's Interactive Storage Mangement Facility        *   FILE 495
//*  @ISPCONF - IBM's ISPF Configuration                            *   FILE 495
//*  @ISRV    - CA's ISERVE for GSS                                 *   FILE 495
//*  @IXFP    - IBM's (Storage Tek's) Extended Facilities Product   *   FILE 495
//*  @JCLCHEK - CA's JCLCHECK                                       *   FILE 495
//*  @JESMSTR - Xenos' JES-Master Spool Viewer                      *   FILE 495
//*  @JOBTRAC - CA's JOBTRAC Job Tracking System                    *   FILE 495
//*  @LANRES  - IBM's LANRES                                        *   FILE 495
//*  @LOGRECV - IBM's LOGREC Viewer                                 *   FILE 495
//*  @MQSRIES - IBM's MQSeries Administration Stub                  *   FILE 495
//*  @MQSRS52 - IBM's MQSeries Administration V5R2 and earlier      *   FILE 495
//*  @MQSRS53 - IBM's MQSeries Administration V5R3 and later        *   FILE 495
//*  @MXI     - Rob Scott's MXI                                     *   FILE 495
//*  @NDM     - Sterling's Connect:Direct (NDM)                     *   FILE 495
//*  @NETVFTP - IBM's NetView FTP                                   *   FILE 495
//*  @NPF     - IBM's Network Print Facility                        *   FILE 495
//*  @OBROWSE - IBM's OpenMVS Browse                                *   FILE 495
//*  @OEDIT   - IBM's OpenMVS Edit                                  *   FILE 495
//*  @OMEGCIC - Candle's OMEGAMON/CICS                              *   FILE 495
//*  @OMEGMVS - Candle's OMEGAMON/MVS                               *   FILE 495
//*  @OMVS    - IBM's OpenMVS Command Processor                     *   FILE 495
//*  @OPC     - IBM's Operations Planning and Control               *   FILE 495
//*  @OPCINST - IBM's Operations Planning and Control Installation  *   FILE 495
//*  @OPSBRW  - CA's OPS/MVS OPSLOG Browse                          *   FILE 495
//*  @OPSMVS  - CA's OPS/MVS                                        *   FILE 495
//*  @OSA     - IBM's Open Systems Adapter Configuration            *   FILE 495
//*  @PANAPT  - CA's PANAPT                                         *   FILE 495
//*  @PANVLET - CA's PANVALET                                       *   FILE 495
//*  @PDS     - PDS Freeware from CBT Tape File 182                 *   FILE 495
//*  @PDSMAN  - CA's PDSMAN                                         *   FILE 495
//*  @PERFSOL - Softworks's Performance Solution                    *   FILE 495
//*  @PLATDBT - Platinum's DBTools                                  *   FILE 495
//*  @PLP     - Lionel Dyck's Product Launch Point                  *   FILE 495
//*  @PRMTOOL - IBM's PARMLIB Tool                                  *   FILE 495
//*  @PROSMS  - BMC's ProSMS                                        *   FILE 495
//*  @QABATCH - Compuware's QABatch                                 *   FILE 495
//*  @QMF     - IBM's Query Management Facility for DB2             *   FILE 495
//*  @QMFOLD  - IBM's Query Management Facility for DB2 V6+         *   FILE 495
//*  @QWIKREF - ChicagoSoft's QuickRef                              *   FILE 495
//*  @RACF    - IBM's Resource Access Control Facility              *   FILE 495
//*  @RA2     - SEA's RA2 RACF Management                           *   FILE 495
//*  @RESOLVE - BMC's RESOLVE                                       *   FILE 495
//*  @RMDS    - IBM's Report Management Distribution System         *   FILE 495
//*  @RMDSOLM - IBM's RMDS Online Management                        *   FILE 495
//*  @RMF     - IBM's Resource Management Facility                  *   FILE 495
//*  @RMM     - IBM's Removable Media Manager                       *   FILE 495
//*  @RRS     - IBM's RRS                                           *   FILE 495
//*  @SAADMIN - IBM's System Automation ADMIN                       *   FILE 495
//*  @SAIOCON - IBM's System Automation IOCONNECT                   *   FILE 495
//*  @SASC    - SAS/C Compiler                                      *   FILE 495
//*  @SCLM    - IBM's Software Configuration Library Manager        *   FILE 495
//*  @SDSF    - IBM's Spool Display & Search Facility               *   FILE 495
//*  @SDSF1   - IBM's Spool Display & Search Facility               *   FILE 495
//*  @SERVPAC - IBM's ServerPac Installation                        *   FILE 495
//*  @SMPE    - IBM's System Modification Program / Extended        *   FILE 495
//*  @SOMOBJS - IBM's SOMObjects Compiler                           *   FILE 495
//*  @STROBE  - Compuware's STROBE                                  *   FILE 495
//*  @SUNRISE - Amdahl's SUNRISE                                    *   FILE 495
//*  @SVAA    - Sun's Shared Virtual Array Administrator            *   FILE 495
//*  @SYNCINT - SyncSort Installation                               *   FILE 495
//*  @SYNCMSG - SyncSort Messages                                   *   FILE 495
//*  @SYSVIEW - CA's SYSVIEW/E                                      *   FILE 495
//*  @TABLBAS - DataKinetics tableBase                              *   FILE 495
//*  @TAPRCLM - OpenTech's Tape Reclaim                             *   FILE 495
//*  @TASID   - Doug Nadel's TASID (separate load and panel libs)   *   FILE 495
//*  @TASID0  - Doug Nadel's TASID (single load module)             *   FILE 495
//*  @TDMF    - SofTek's Transparent Data Migrtion Facility         *   FILE 495
//*  @TSOMON  - CA's TSOMON                                         *   FILE 495
//*  @UPSTREM - Innovation's Upstream                               *   FILE 495
//*  @VANGARD - Vanguard RACF Administration                        *   FILE 495
//*  @VIACENT - VIASOFT's VIA/CENTER                                *   FILE 495
//*  @VIEW    - CA's View (SAR)                                     *   FILE 495
//*  @VIEWDIR - Mobius's ViewDirect                                 *   FILE 495
//*  @VMCF    - LRS's VPS Monitor and Control Facility              *   FILE 495
//*  @VPSPRNT - LRS's VPSPRINT                                      *   FILE 495
//*  @VSAMMEC - Catalog Solutions VSAM MECHANIC                     *   FILE 495
//*  @VTAMDMP - IBM's VTAM Dump Analysis IPCS                       *   FILE 495
//*  @VTAMDM1 - IBM's VTAM Dump Analysis IPCS Stub                  *   FILE 495
//*  @VTAMTRC - IBM's VTAM Trace Analysis IPCS                      *   FILE 495
//*  @VTAMTR1 - IBM's VTAM Trace Analysis IPCS Stub                 *   FILE 495
//*  @WLM     - IBM's Workload Manager                              *   FILE 495
//*  @XDC     - Cole Software's XDC                                 *   FILE 495
//*  @XMITIP  - Lionel Dyck's XMITIP Email                          *   FILE 495
//*  @XPATH   - Xerox's XPATH                                       *   FILE 495
//*  @ZEKE    - Allen Systems's ZEKE/ZEBB                           *   FILE 495
//*  ABRALLOC - Innovation's FDR/ABR                                *   FILE 495
//*  ALLUSER  - WAC sample of company-wide menu for all users       *   FILE 495
//*  BOOKMGR  - Alias for EOXBKMGR                                  *   FILE 495
//*  C11IEXEC - CA's CA-11                                          *   FILE 495
//*  DSNECPRI - IBM DB2I CLIST (modified for DISS)                  *   FILE 495
//*  EOXBKMGR - IBM BookManager exec (modified for DISS)            *   FILE 495
//*  EOXREDIT - IBM BookManager exec (modified for DISS)            *   FILE 495
//*  EOXVHELP - IBM BookManager exec (modified for DISS)            *   FILE 495
//*  ERBRMFX  - IBM RMF CLIST (modified for DISS)                   *   FILE 495
//*  ERB0PRM  - IBM RMF Primary Option Menu (modified for DISS)     *   FILE 495
//*  EZBDCMDS - Command table member for TCP/IP IPCS                *   FILE 495
//*  IKJTSO00 - WAC sample of TSO PARMLIB member for HELP datasets  *   FILE 495
//*  ISMPANL  - CA's ISM option menu modified with PASSLIB, SCRNAME *   FILE 495
//*  ISR@PRIM - WAC sample of Primary Option Menu with A&Z options  *   FILE 495
//*  ISR@PUL2 - DTL include with ZSEL code for $DYNDTL to compile   *   FILE 495
//*  JCKSPF   - CA's JCLCHECK                                       *   FILE 495
//*  OY59638  - IBM APAR showing why LOGON should always be CLIST   *   FILE 495
//*  PERSISPF - WAC sample of EXEC for a personal ISPF environment  *   FILE 495
//*  SHAREDOC - Dynamic ISPF SHARE presentation MSWord binary image *   FILE 495
//*  TBPRIM   - DataKinetics' tablesONLINE menu (modified for DISS) *   FILE 495
//*  TSOAPPL  - WAC sample of TSO LOGON PROC for Applications       *   FILE 495
//*  TSOAPPL# - WAC sample of ISPF selection menu for Applications  *   FILE 495
//*  TSOLOGON - WAC sample of LOGON CLIST                           *   FILE 495
//*  TSOSYSP  - WAC sample of TSO LOGON PROC for SysProgs           *   FILE 495
//*  TSOSYSP# - WAC sample of ISPF selection menu for SysProgs      *   FILE 495
//*  UMISPFP  - WAC sample of ISPF usermod for ISR@PRIM             *   FILE 495
//*                                                                 *   FILE 495
//***FILE 496 is from Ken MacKenzie and contains a REXX exec to     *   FILE 496
//*           display your TSO session's dataset allocations.       *   FILE 496
//*           Better than LISTA.  There are others like it, but     *   FILE 496
//*           this one's good, too.                                 *   FILE 496
//*                                                                 *   FILE 496
//*           This exec works well with the DISP exec from File     *   FILE 496
//*           487.  TSO DISP TIOT  is the command, and you can      *   FILE 496
//*           then ISPF VIEW your allocations.                      *   FILE 496
//*                                                                 *   FILE 496
//*           Ken's exec has been modified by Marty Kuntz.  We      *   FILE 496
//*           have kept the old exec as member TIOT01.  The new     *   FILE 496
//*           one is member TIOT.                                   *   FILE 496
//*                                                                 *   FILE 496
//*           Ken MacKenzie                                         *   FILE 496
//*           Ken.MacKenzie@prudential.com                          *   FILE 496
//*                                                                 *   FILE 496
//*           Home Email: ken.mackenzie@tesco.net                   *   FILE 496
//*                     : ken.mackenzie@talk21.com                  *   FILE 496
//*                                                                 *   FILE 496
//***FILE 497 is from Antonio Colombo who works for Amdahl in       *   FILE 497
//*           Italy.  This file contains a working example of       *   FILE 497
//*           the LLA Fetch exit CSVLLIX1.                          *   FILE 497
//*                                                                 *   FILE 497
//*                       ANTONIO COLOMBO                           *   FILE 497
//*                       F.T.S.I. ITALIA S.p.A.                    *   FILE 497
//*                       VIA NAZARIO SAURO, 38                     *   FILE 497
//*                       I-20099 SESTO SAN GIOVANNI                *   FILE 497
//*                       ITALY                                     *   FILE 497
//*                       +39(0332)786032                           *   FILE 497
//*                       EMAIL ANTONIO.COLOMBO@JRC.IT              *   FILE 497
//*                       EMAIL AZC10@IT.FTSI.FUJITSU.COM           *   FILE 497
//*                                                                 *   FILE 497
//*      This library contains a sample CSVLLIX1 LLA EXIT, which    *   FILE 497
//*      is used to build a table in memory to reflect usage of     *   FILE 497
//*      selected LLA modules (list contained in CSVLPGMS) by       *   FILE 497
//*      selected MVS JOBs (list contained in CSVLJOBS)             *   FILE 497
//*                                                                 *   FILE 497
//*      As seen from LLA, the EXIT always returns the same 0/0     *   FILE 497
//*      return code, so it is "transparent" to it.                 *   FILE 497
//*                                                                 *   FILE 497
//*      In case of errors in the EXIT, LLA just disables it and    *   FILE 497
//*      goes on (no harm done to anybody).                         *   FILE 497
//*                                                                 *   FILE 497
//*      The table resides in ECSA                                  *   FILE 497
//*      (no problems with virtual storage constraint)              *   FILE 497
//*      and the address of the used table is given to the user     *   FILE 497
//*      in a message to the log when the table is created.         *   FILE 497
//*                                                                 *   FILE 497
//*      A couple of programs (CSVLLLST and CSVLL1X1) can be used   *   FILE 497
//*      to list the table in memory, having its address as a       *   FILE 497
//*      PARM.  While the activation of the EXIT depends on usual   *   FILE 497
//*      LLA processing, the creation/deletion of the table is      *   FILE 497
//*      triggered by a user program, so that monitoring can be     *   FILE 497
//*      done in different periods of time, as decided by the       *   FILE 497
//*      end-users.  CSVLLACT / CSVLLDEA  do this.                  *   FILE 497
//*                                                                 *   FILE 497
//*      Member list                                                *   FILE 497
//*                                                                 *   FILE 497
//*        $$$$$DOC  the module you are reading now,                *   FILE 497
//*                  documentation                                  *   FILE 497
//*        CSVLJOBS  example of a list of jobnames to be            *   FILE 497
//*                  monitored by the EXIT                          *   FILE 497
//*        CSVLLACC  compilation   of CSVLLACT                      *   FILE 497
//*        CSVLLACJ  execution JCL of CSVLLACT                      *   FILE 497
//*        CSVLLACT  source of the USER module for activation of    *   FILE 497
//*                  the EXIT                                       *   FILE 497
//*        CSVLLAL1  sys1.parmlib member to refresh    the EXIT     *   FILE 497
//*        CSVLLAOF  sys1.parmlib member to deactiveta the EXIT     *   FILE 497
//*        CSVLLAON  sys1.parmlib member to activate   the EXIT     *   FILE 497
//*        CSVLLDEA  source of the USER module for deactivation     *   FILE 497
//*                  of the EXIT                                    *   FILE 497
//*        CSVLLDEC  compilation   of CSVLLDEA                      *   FILE 497
//*        CSVLLDEJ  execution JCL of CSVLLDEA                      *   FILE 497
//*        CSVLLIXC  compilation   of CSVLLIX1                      *   FILE 497
//*        CSVLLIX1  source of the user EXIT                        *   FILE 497
//*                  it does not need any macro (except the         *   FILE 497
//*                  system ones), and it includes (via COPY)       *   FILE 497
//*                  CSVLJOBS and CSVLPGMS                          *   FILE 497
//*        CSVLLLSC  compilation   of CSVLLLST                      *   FILE 497
//*        CSVLLLSJ  execution JCL of CSVLLLST                      *   FILE 497
//*        CSVLLLST  sample program to list usage table, in         *   FILE 497
//*                  printable form                                 *   FILE 497
//*        CSVLL1XC  compilation   of CSVLL1X1                      *   FILE 497
//*        CSVLL1XJ  execution JCL of CSVLL1X1                      *   FILE 497
//*        CSVLL1X1  sample program to list usage table, output     *   FILE 497
//*                  length 80, one result per line (useful for     *   FILE 497
//*                  later sorting via ISPF or for putting into     *   FILE 497
//*                  some EXCEL file)                               *   FILE 497
//*        CSVLPGMS  example of a list of pgms (routines) to        *   FILE 497
//*                  monitor                                        *   FILE 497
//*        CSVOUT    example of OUTPUT from CSVLL1X1                *   FILE 497
//*        J         a JOB card, used just to avoid retyping it     *   FILE 497
//*        _other_   macros needed for compilation of CSVLLLST,     *   FILE 497
//*                  CSVLL1X1                                       *   FILE 497
//*                                                                 *   FILE 497
//***FILE 498 is from Craig Schneiderwent and contains a match      *   FILE 498
//*           merge program in Assembler, to combine two sequential *   FILE 498
//*           files.                                                *   FILE 498
//*                                                                 *   FILE 498
//*           email:  cschneidpublic@yahoo.com                      *   FILE 498
//*                   include MTCHMRG in Subject: line              *   FILE 498
//*                                                                 *   FILE 498
//*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  *   FILE 498
//*                                                                 *   FILE 498
//*        $DOC     Documentation for MTCHMRG utility               *   FILE 498
//*        $README  This member                                     *   FILE 498
//*        JRETURND Standard exit logic macro                       *   FILE 498
//*        JSAVED   Standard entry logic macro                      *   FILE 498
//*        MTCHMRG  Source code to the MTCHMRG utility              *   FILE 498
//*        REGISTER Standard register equates macro                 *   FILE 498
//*        TESTDATA Test materials pds in TSO XMIT format           *   FILE 498
//*                                                                 *   FILE 498
//*  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  *   FILE 498
//*                                                                 *   FILE 498
//*           PROGRAM NAME: MTCHMRG                                 *   FILE 498
//*           AUTHOR: CRAIG SCHNEIDERWENT                           *   FILE 498
//*           Date:      16-DEC-1999                                *   FILE 498
//*           Updated:   06-Jan-2009                                *   FILE 498
//*           PURPOSE: MATCH MERGE TWO FILES                        *   FILE 498
//*                                                                 *   FILE 498
//*           KEY COMPARISON IS A CLC INSTRUCTION                   *   FILE 498
//*                                                                 *   FILE 498
//*           EXEC PGM=MTCHMRG,PARM='000120002300042'               *   FILE 498
//*                                  LLLLL1111122222                *   FILE 498
//*                                                                 *   FILE 498
//*           LLLLL = LENGTH OF KEY                                 *   FILE 498
//*           11111 = OFFSET OF KEY IN SYSUT1                       *   FILE 498
//*           22222 = OFFSET OF KEY IN SYSUT2                       *   FILE 498
//*                                                                 *   FILE 498
//*           ABOVE PARAMETER CAN ALSO BE SPECIFIED ON SYSIN        *   FILE 498
//*                                                                 *   FILE 498
//*           SYSUT3 WILL CONTAIN CONCATENATED MATCHING             *   FILE 498
//*                  SYSUT1 AND SYSUT2 RECORDS                      *   FILE 498
//*           SYSUT4 WILL CONTAIN UNMATCHED SYSUT1 RECORDS          *   FILE 498
//*           SYSUT5 WILL CONTAIN UNMATCHED SYSUT2 RECORDS          *   FILE 498
//*           SYSUT6 WILL CONTAIN MATCHED SYSUT1 RECORDS            *   FILE 498
//*           SYSUT7 WILL CONTAIN MATCHED SYSUT2 RECORDS            *   FILE 498
//*                                                                 *   FILE 498
//***FILE 499 is from Edward Ross and contains a collection of      *   FILE 499
//*           utilities, as well as ISPF panels and CLISTs for      *   FILE 499
//*           doing RACF manipulations.                             *   FILE 499
//*                                                                 *   FILE 499
//*           If you have questions, please feel free to            *   FILE 499
//*           contact:                                              *   FILE 499
//*                                                                 *   FILE 499
//*           Ed Ross     email:  edwardr@cch.co.za                 *   FILE 499
//*                                                                 *   FILE 499
//*           I will also accept snail mail if there are            *   FILE 499
//*           any problems with the files I contributed and         *   FILE 499
//*           as such my address is:                                *   FILE 499
//*                                                                 *   FILE 499
//*           Mr EJ Ross                                            *   FILE 499
//*           P.O Box 32335                                         *   FILE 499
//*           Totiusdal                                             *   FILE 499
//*           Pretoria                                              *   FILE 499
//*           South Africa                                          *   FILE 499
//*           0134                                                  *   FILE 499
//*                                                                 *   FILE 499
//*           Mobile : +27 82 979 4317                              *   FILE 499
//*                                                                 *   FILE 499
//*   Note:   The former FILE 500, which contains object decks      *   FILE 499
//*           connected with this material on File 499, are now     *   FILE 499
//*           packaged in this file, in IEBUPDTE SYSIN format, as   *   FILE 499
//*           member OBJECT.                                        *   FILE 499
//*                                                                 *   FILE 499
//*           You may use the JCL in member $PDSLOAD, to generate   *   FILE 499
//*           the necessary pds of object decks.  Customize this    *   FILE 499
//*           JCL for your own installation naming conventions.     *   FILE 499
//*                                                                 *   FILE 499
//***FILE 500 is Ben Marino, and contains his automation package    *   FILE 500
//*           for z/OS and MVS 3.8j called ECF, or Event            *   FILE 500
//*           Capture Facility.                                     *   FILE 500
//*                                                                 *   FILE 500
//*           This is a very, very sophisticated package. (SG)      *   FILE 500
//*                                                                 *   FILE 500
//*           The current version of ECF is V2R3M0.                 *   FILE 500
//*                                                                 *   FILE 500
//*           You can also profit from looking at the macro         *   FILE 500
//*           library.  It's worth looking at those macros for      *   FILE 500
//*           their own sake.  (SG)                                 *   FILE 500
//*                                                                 *   FILE 500
//*           Execute the member called $PDSLOAD in order to        *   FILE 500
//*           create all the partitioned datasets to run the        *   FILE 500
//*           package.                                              *   FILE 500
//*                                                                 *   FILE 500
//*           email:  Ben Marino <b2marino@outlook.com>             *   FILE 500
//*                                                                 *   FILE 500
//*     Product Description:                                        *   FILE 500
//*                                                                 *   FILE 500
//*     This product was adapted for z/OS as well as MVS 3.8j.      *   FILE 500
//*     It detects which environment it is operating in, and        *   FILE 500
//*     it acts accordingly.  See the members called $$NOTExx.      *   FILE 500
//*                                                                 *   FILE 500
//*     Original Product Description:                               *   FILE 500
//*                                                                 *   FILE 500
//*     For fun, I developed an automation product on my MVS        *   FILE 500
//*     3.8j (HERCULES) system that triggers CLIST/REXX scripts     *   FILE 500
//*     to execute automation events. The started tasks recovery    *   FILE 500
//*     component (ECFSTC) allows you to browse and update          *   FILE 500
//*     procedures that are preventing a system from IPLing. It     *   FILE 500
//*     also allows you to issue most TSO commands from the         *   FILE 500
//*     console.                                                    *   FILE 500
//*                                                                 *   FILE 500
//***FILE 501 is from Ken Clapp and contains an SNTP time server.   *   FILE 501
//*           This is for synchronizing your OS/390 system clock.   *   FILE 501
//*           This pds contains a short documentation file called   *   FILE 501
//*           $$README, and it also contains a Word 97 document     *   FILE 501
//*           as member RFC2030, which can be downloaded to a pc.   *   FILE 501
//*                                                                 *   FILE 501
//*           There are also two other members which cannot be      *   FILE 501
//*           executed on an MVS (OS/390) system, but which must    *   FILE 501
//*           be downloaded to a pc.  These are:                    *   FILE 501
//*                                                                 *   FILE 501
//*           S2968KCA - a Power Point executable which is a        *   FILE 501
//*                      demo of this package                       *   FILE 501
//*                                                                 *   FILE 501
//*           ETS1     - a WIN/NT executable                        *   FILE 501
//*                                                                 *   FILE 501
//*           Instructions for using these members are outlined     *   FILE 501
//*           in the $$README member.                               *   FILE 501
//*                                                                 *   FILE 501
//*           Copyright                                             *   FILE 501
//*           Kenneth W. Clapp                                      *   FILE 501
//*           7 October 1999                                        *   FILE 501
//*                                                                 *   FILE 501
//*           Phoenix Home Life Mutual Insurance Company            *   FILE 501
//*           100 Bright Meadow Boulevard                           *   FILE 501
//*           Enfield, CT 06083                                     *   FILE 501
//*           USA                                                   *   FILE 501
//*                                                                 *   FILE 501
//*           Ken_Clapp@phl.com                                     *   FILE 501
//*                                                                 *   FILE 501
//*           KenClapp@aol.com                                      *   FILE 501
//*                                                                 *   FILE 501
//***FILE 502 contains code from Charles MacNiven, to zap a copy    *   FILE 502
//*           of the AMASPZAP program, so as to eliminate its       *   FILE 502
//*                                                                 *   FILE 502
//*           AMA117D REPLY Y OR N TO UPDATE VTOC                   *   FILE 502
//*                                                                 *   FILE 502
//*           message.  The member $$NOTE explains why it was       *   FILE 502
//*           necessary to make this modification.  I am including  *   FILE 502
//*           this mod here, in the hope that it might be useful    *   FILE 502
//*           to somebody.  It also illustrates something about     *   FILE 502
//*           how to zap a system module when you need to change    *   FILE 502
//*           it.  MVS 3.8 source code was used to help get our     *   FILE 502
//*           bearings, while attempting to read the appropriate    *   FILE 502
//*           parts of the load module of the newer code.           *   FILE 502
//*                                                                 *   FILE 502
//***FILE 503 is from Adrian Stern and contains two REXX execs      *   FILE 503
//*           that run under Native TSO, to produce a partitioned   *   FILE 503
//*           dataset member list, very quickly.                    *   FILE 503
//*                                                                 *   FILE 503
//*           With this file, the result is important, but the      *   FILE 503
//*           method of obtaining the result is as important.       *   FILE 503
//*                                                                 *   FILE 503
//*           email:  DGA.ZADST001@MEMO.POSTEN.SE                   *   FILE 503
//*                                                                 *   FILE 503
//***FILE 504 is a Software Inventory system to attempt to keep     *   FILE 504
//*           track of source modules and load modules in an        *   FILE 504
//*           environment where the "execution setup" is not        *   FILE 504
//*           similar to IBM's design.  This system might be        *   FILE 504
//*           helpful for data centers which combine execution      *   FILE 504
//*           libraries, keeping them separate from the SMP/E-fed   *   FILE 504
//*           IBM and program product libraries.  You want to       *   FILE 504
//*           know if the modules you're executing, are different   *   FILE 504
//*           from the ones which are IBM, or ISV supplied.         *   FILE 504
//*                                                                 *   FILE 504
//*           You might also want to keep careful track of          *   FILE 504
//*           multiple occurrences of the same module in            *   FILE 504
//*           different libraries.                                  *   FILE 504
//*                                                                 *   FILE 504
//*           This system consists of 2 distinct parts:             *   FILE 504
//*                                                                 *   FILE 504
//*           1.  A data gathering part written in Assembler,       *   FILE 504
//*               which goes against disk volumes that contain      *   FILE 504
//*               system software libraries (source and load).      *   FILE 504
//*                                                                 *   FILE 504
//*           2.  An analysis part written in SAS, which you        *   FILE 504
//*               must customize.  We have something that works     *   FILE 504
//*               for us.                                           *   FILE 504
//*                                                                 *   FILE 504
//*           The data gathering part of this system does a         *   FILE 504
//*           direct read and capture of the FORMAT 1 VTOC          *   FILE 504
//*           entries of the disk packs containing the software.    *   FILE 504
//*           This is Stage 1.                                      *   FILE 504
//*                                                                 *   FILE 504
//*           Then a member-level gathering is done, on every       *   FILE 504
//*           dataset from these packs, which is eligible to        *   FILE 504
//*           contain software.  After that is done, the SAS        *   FILE 504
//*           reporting mechanisms can be put into effect.          *   FILE 504
//*           This is Stage 2.                                      *   FILE 504
//*                                                                 *   FILE 504
//*           The data gathering part of this system is self-       *   FILE 504
//*           contained, and you might consider adapting it for     *   FILE 504
//*           other purposes, but the reporting part of this        *   FILE 504
//*           system requires SAS.  It is recommended that this     *   FILE 504
//*           system be administered by an experienced SAS          *   FILE 504
//*           programmer, if one is available.  The administrator   *   FILE 504
//*           should know Assembler coding, too.                    *   FILE 504
//*                                                                 *   FILE 504
//*           Contributors' Note:                                   *   FILE 504
//*                                                                 *   FILE 504
//*           The contributor cannot vouch for the absolute         *   FILE 504
//*           accuracy of the reports, as they currently stand.     *   FILE 504
//*           At the site where this is running, this system        *   FILE 504
//*           can detect all occurrences of modules on system       *   FILE 504
//*           libraries, and it can tell whether one version of     *   FILE 504
//*           a module is different from another.  However, you     *   FILE 504
//*           need a good SAS programmer to go over the code        *   FILE 504
//*           "with a fine-toothed comb" to make sure that it       *   FILE 504
//*           runs correctly and reports information correctly.     *   FILE 504
//*                                                                 *   FILE 504
//*           The reporting part of this system was developed,      *   FILE 504
//*           and runs, under SAS Release 6.09.  We can't tell      *   FILE 504
//*           how it will run under other SAS releases, or how      *   FILE 504
//*           it might run if different SAS options are in          *   FILE 504
//*           effect.  See member SASOPTS, which shows global       *   FILE 504
//*           SAS options in effect where this system is running.   *   FILE 504
//*                                                                 *   FILE 504
//*     Questions, please email Sam Golob: sbgolob@cbttape.org      *   FILE 504
//*                                                                 *   FILE 504
//***FILE 505 contains a pointer to the materials of the ASSIST     *   FILE 505
//*           Assembler.  The ASSIST Assembler is used for teaching *   FILE 505
//*           Assembler Language.  This program dates from the      *   FILE 505
//*           OS/360 days.  The full ASSIST Assembler now can be    *   FILE 505
//*           obtained on File 085 of the CBT Overflow Tape.        *   FILE 505
//*                                                                 *   FILE 505
//*   >>>>>   The Assist Assembler (everything that used to be on   *   FILE 505
//*   >>>>>   this file) has been moved to the CBT Overflow Tape,   *   FILE 505
//*   >>>>>   File 085.  This is to make some room on the regular   *   FILE 505
//*   >>>>>   CBT Tape.  This file remains on the CBT Tape, as a    *   FILE 505
//*   >>>>>   pointer, so you can find all of the Assist Assembler  *   FILE 505
//*   >>>>>   materials easily, in their new place.                 *   FILE 505
//*                                                                 *   FILE 505
//*    To get all of these materials:                               *   FILE 505
//*                                                                 *   FILE 505
//*      Go to www.cbttape.org , and click on Overflow.  Then       *   FILE 505
//*      download File 085.                                         *   FILE 505
//*                                                                 *   FILE 505
//*           Source was submitted by Sam Knutson:                  *   FILE 505
//*                                                                 *   FILE 505
//*           email:   sam@knutson.org                              *   FILE 505
//*                                                                 *   FILE 505
//***FILE 506 is from Jim Blalock of Clemson University, and        *   FILE 506
//*           contains several REXX execs that are very useful      *   FILE 506
//*           in dealing with SMP/E APPLY and ACCEPT processing--   *   FILE 506
//*           especially in dealing with HOLDDATA.                  *   FILE 506
//*                                                                 *   FILE 506
//*           email:   Jim Blalock <carey@CLEMSON.EDU>              *   FILE 506
//*                                                                 *   FILE 506
//*      CONTENTS:                                                  *   FILE 506
//*                                                                 *   FILE 506
//*           ESOGTHLD --  Find and print HOLDDATA for PTFs         *   FILE 506
//*                        held for a reason                        *   FILE 506
//*                                                                 *   FILE 506
//*           ESOREALC --  Realloc/copy datasets as required        *   FILE 506
//*                        by HOLD(ACTION) PTFs                     *   FILE 506
//*                                                                 *   FILE 506
//*           GETPTF   --  Download/unterse a PTF from IBM's        *   FILE 506
//*                        FTP server                               *   FILE 506
//*                                                                 *   FILE 506
//*           Details about using individual execs are in           *   FILE 506
//*           comment blocks in the code.                           *   FILE 506
//*                                                                 *   FILE 506
//***FILE 507 is from Dennis Opfermann and contains TPL V6.0 for    *   FILE 507
//*           MVS which was developed at the Bureau of Labor        *   FILE 507
//*           Statistics (BLS) and which is now in the public       *   FILE 507
//*           domain.  There is a TPL vendor product for other      *   FILE 507
//*           platforms, but the original TPL for MVS is public.    *   FILE 507
//*                                                                 *   FILE 507
//*           TPL or Table Producing Language, was one of the       *   FILE 507
//*           first facilities for tabulating statistical data,     *   FILE 507
//*           and was in wide use at a considerable number of       *   FILE 507
//*           Federal government agencies until recently.           *   FILE 507
//*                                                                 *   FILE 507
//*           Rumor has it, that TPL was used as the basis for      *   FILE 507
//*           the code in SAS "PROC TABULATE".  (Unsubstantiated    *   FILE 507
//*           until substantiated.)                                 *   FILE 507
//*                                                                 *   FILE 507
//*           TPL is currently being shipped without the manual,    *   FILE 507
//*           until we find a copy.                                 *   FILE 507
//*                                                                 *   FILE 507
//***FILE 508 is from A.L. Richards and contains 2 commands         *   FILE 508
//*           written in Assembler, to call a CLIST or REXX exec    *   FILE 508
//*           under TSO.  The reason these commands were written,   *   FILE 508
//*           was to execute CLISTs or REXX execs related to LOGON  *   FILE 508
//*           processing, when a program is the only thing that     *   FILE 508
//*           can be used for the purpose.                          *   FILE 508
//*                                                                 *   FILE 508
//*           email:   alrichards@ra.rockwell.com                   *   FILE 508
//*                                                                 *   FILE 508
//*           EXCMD     -  Program which invokes a TSO command      *   FILE 508
//*                        and destroys the ISPF environment,       *   FILE 508
//*                        so if you are under ISPF and can't       *   FILE 508
//*                        get out of it, and you need to execute   *   FILE 508
//*                        a program which can't run under ISPF,    *   FILE 508
//*                        this is the tool to use.                 *   FILE 508
//*                                                                 *   FILE 508
//*           EXCMDI    -  Program which invokes a TSO command      *   FILE 508
//*                        and preserves the ISPF environment.      *   FILE 508
//*                        See member $$NOTE1 in this pds, for      *   FILE 508
//*                        some more details, or you can compare    *   FILE 508
//*                        the two source programs to see the       *   FILE 508
//*                        differences.                             *   FILE 508
//*                                                                 *   FILE 508
//***FILE 509 is from Tim-Kent Larsen and contains a REXX exec      *   FILE 509
//*           which web-enables the SHOWMVS program, from File      *   FILE 509
//*           183.                                                  *   FILE 509
//*                                                                 *   FILE 509
//*           email:  tim_kent.larsen@swissonline.ch                *   FILE 509
//*                                                                 *   FILE 509
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 509
//*                                                                 *   FILE 509
//*           Enclosed is my little contribution, a "SHOWMVS        *   FILE 509
//*           web enabler"                                          *   FILE 509
//*                                                                 *   FILE 509
//*           The Unix guys have such cool stuff(!) to display      *   FILE 509
//*           their little machines on the web an' all...  I        *   FILE 509
//*           thought it was about time we dino's strike back       *   FILE 509
//*           :-)                                                   *   FILE 509
//*                                                                 *   FILE 509
//*           This is a wrap'er program written in rexx that        *   FILE 509
//*           allows SHOWMVS to be called via a webserver.  It      *   FILE 509
//*           doesn't really do much other that reformat the        *   FILE 509
//*           output into HTML, but the result is quite nice.       *   FILE 509
//*                                                                 *   FILE 509
//*           It could also serve as an example of how easy it      *   FILE 509
//*           actually is to "web enable" existing stuff.           *   FILE 509
//*                                                                 *   FILE 509
//*                                                                 *   FILE 509
//*           FILES:                                                *   FILE 509
//*           - SHOWMVS rexx wrap'er program                        *   FILE 509
//*                                                                 *   FILE 509
//*           INSTALLATION:                                         *   FILE 509
//*           - copy the rexx into your webserver cgi library       *   FILE 509
//*             (something like /WWW/cgi-bin/showmvs)               *   FILE 509
//*           - set appropriate file attributes (777)               *   FILE 509
//*                                                                 *   FILE 509
//*           REQUIREMENTS:                                         *   FILE 509
//*           - SHOWMVS in LINKLIST                                 *   FILE 509
//*           - BPXWDYN installed (part of the package so it        *   FILE 509
//*             usually is!)                                        *   FILE 509
//*                                                                 *   FILE 509
//*           TESTED UNDER:                                         *   FILE 509
//*           - OS/390 V2R7 and V2R10                               *   FILE 509
//*           - IBM HTTP Server V5R1M0 and V5R3M0                   *   FILE 509
//*           - Netscape Communicator 4.7                           *   FILE 509
//*                                                                 *   FILE 509
//***FILE 510 is from Ricardo Paranhos and contains the IEBLIST     *   FILE 510
//*           program the SPACE program, and the VARYDASD program.  *   FILE 510
//*                                                                 *   FILE 510
//*           The IEBLIST program has much flexibility in listing   *   FILE 510
//*           datasets by DSN (maskable), VOL(partial or complete)  *   FILE 510
//*           SG (storage group name), ADD(unit address range),     *   FILE 510
//*           and CATALOG (search by dataset on catalog).  You can  *   FILE 510
//*           also list datasets last referenced on or before       *   FILE 510
//*           a certain date:  REF(yyyyddd) .                       *   FILE 510
//*                                                                 *   FILE 510
//*           Using IEBLIST, you can get allocated space and used   *   FILE 510
//*           space, and totals of these, even for VSAM datasets,   *   FILE 510
//*           because this program reads the VVDS.                  *   FILE 510
//*                                                                 *   FILE 510
//*           IEBLIST was updated by Alexander I. Vasilenko, to     *   FILE 510
//*           filter on dataset Create Date, and Block Size.        *   FILE 510
//*                                                                 *   FILE 510
//*           Fixed by Sam Golob to get the ADD(mmmm-nnnn)          *   FILE 510
//*           command to work.                                      *   FILE 510
//*                                                                 *   FILE 510
//*              email:  Ali_vas@mail.ru                            *   FILE 510
//*                                                                 *   FILE 510
//*           The SPACE program is another utility that Ricardo     *   FILE 510
//*           developed and which is helpful to search volumes by   *   FILE 510
//*           volume names, storage group names, unit address and   *   FILE 510
//*           mount status.  The list that the SPACE program shows  *   FILE 510
//*           is a search result, and a specific volume can be      *   FILE 510
//*           selected to view a list of data sets inside, and      *   FILE 510
//*           space used in VSAM data sets too.                     *   FILE 510
//*                                                                 *   FILE 510
//*           The VARYDASD program will vary DASD volumes OFFLINE   *   FILE 510
//*           by checking to see if the volser matches a list       *   FILE 510
//*           supplied by the SYSIN DD card. If no match, the       *   FILE 510
//*           program uses IEEVARYD to vary the devices offline.    *   FILE 510
//*                                                                 *   FILE 510
//*     "Ricardo J Paranhos" <ricardoparanhos@easi.com.br>          *   FILE 510
//*                                                                 *   FILE 510
//***FILE 511 is from Geoffrey McIntyre, and contains an ISPF       *   FILE 511
//*           based VSAM Space Manager application, written in      *   FILE 511
//*           COBOL.                                                *   FILE 511
//*                                                                 *   FILE 511
//*           email:  geoffrey.mcintyre@firstunion.com              *   FILE 511
//*                                                                 *   FILE 511
//*      Function/Features of VSAMPGM                               *   FILE 511
//*                                                                 *   FILE 511
//*      1) VSAMPGM can be used in foreground for individual        *   FILE 511
//*         files to:                                               *   FILE 511
//*                                                                 *   FILE 511
//*         a)  examine how efficiently the file is allocated,      *   FILE 511
//*             and how much each component costs (used space       *   FILE 511
//*             cost, free space cost, unused space cost, etc.)     *   FILE 511
//*         b)  Run an index analysis to see if the index CI is     *   FILE 511
//*             adequate to store all of the keys of a data CI.     *   FILE 511
//*         c)  Run a job to calculate a file's true average        *   FILE 511
//*             LRECL                                               *   FILE 511
//*         d)  Run a job to reorganize the file with 18K data      *   FILE 511
//*             cisize and 2K index cisize                          *   FILE 511
//*                                                                 *   FILE 511
//*      2) VSAMPGM can be used in a production batch step to:      *   FILE 511
//*                                                                 *   FILE 511
//*         a)  monitor a list of given VSAM datasets and print     *   FILE 511
//*             out exception reports                               *   FILE 511
//*         b)  automatically generate fresh delete/define cards,   *   FILE 511
//*             based on the exception report, as well as reorg     *   FILE 511
//*             JCL.                                                *   FILE 511
//*         c)  save the delete/define cards in a PDS (specified    *   FILE 511
//*             in the control cards; the PDS and member name is    *   FILE 511
//*             specified on each control card)                     *   FILE 511
//*         d)  step can run in simulation mode (produces the       *   FILE 511
//*             exception change reports, but not the reorg JCL)    *   FILE 511
//*         e)  supports comment cards in the control card deck     *   FILE 511
//*         f)  automatically submits (internal reader) the         *   FILE 511
//*             reorg JCL if not in simulation mode                 *   FILE 511
//*         g)  Simulation mode can be turned on or off at the      *   FILE 511
//*             file level                                          *   FILE 511
//*                                                                 *   FILE 511
//*      3) Datapacker (Data Accelerator) Support                   *   FILE 511
//*                                                                 *   FILE 511
//***FILE 512 is from Luc Van Rompaey of Belgium, and contains an   *   FILE 512
//*           ISPF cut-paste application.  You might say there are  *   FILE 512
//*           many of these, but here's another one.  It's quite    *   FILE 512
//*           sophisticated.                                        *   FILE 512
//*                                                                 *   FILE 512
//*      email:   Luc Van Rompaey <luvr@vt4.net>                    *   FILE 512
//*               luc.vanrompaey@telepolis.antwerpen.be             *   FILE 512
//*                                                                 *   FILE 512
//***FILE 513 is from Jose Maria Martinez Besteiro (Cap Gemini      *   FILE 513
//*           Spain and Angel Luis Dominguez Martin (BBVA Spain)    *   FILE 513
//*           It is about using OPERLOG in a Sysplex, for archiving *   FILE 513
//*           data. This package includes a useful tool for system  *   FILE 513
//*           programmers and others, to search and select OPERLOG  *   FILE 513
//*           data, as though it were SYSLOG data, interactively    *   FILE 513
//*           from ISPF.                                            *   FILE 513
//*                                                                 *   FILE 513
//*      - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 513
//*      March, 2001 (updated November 2006)                        *   FILE 513
//*                                                                 *   FILE 513
//*        This library contains several modules, clist, proc,      *   FILE 513
//*        and panels to set up our way to take advantage on        *   FILE 513
//*        OPERLOG.                                                 *   FILE 513
//*                                                                 *   FILE 513
//*        We appreciate comments or suggestions bout this tool.    *   FILE 513
//*        Some modules were taken from old share tapes. You'll     *   FILE 513
//*        fing their author's credits on top of them.  Please,     *   FILE 513
//*        do not remove this data.                                 *   FILE 513
//*                                                                 *   FILE 513
//*        If you want anybody to blame, here we are:               *   FILE 513
//*                                                                 *   FILE 513
//*         Angel Luis DOMINGUEZ MARTIN                             *   FILE 513
//*         BBVA Banco Bilbao Vizcaya Argentaria - Spain            *   FILE 513
//*         email: u0z72b6@gmail.com                                *   FILE 513
//*                                                                 *   FILE 513
//*         Jose Maria MARTINEZ BESTEIRO                            *   FILE 513
//*         Capgemini - Spain                                       *   FILE 513
//*         email: josemmar@capgemini.es                            *   FILE 513
//*                                                                 *   FILE 513
//*      Antecedents: SYSLOG vs OPERLOG                             *   FILE 513
//*      -----------------------------------                        *   FILE 513
//*                                                                 *   FILE 513
//*        We use in the past IBM's "powerfull program VPW,         *   FILE 513
//*        Virtual Paper Writter, to archive data from SYSLOG,      *   FILE 513
//*        so we could be able to search and exploit data from      *   FILE 513
//*        SYSLOG, using clist, rexx or any other program, as       *   FILE 513
//*        well as doing searchs directly from ISPF.                *   FILE 513
//*                                                                 *   FILE 513
//*        Once we left being the Y2K transition, we scheduled      *   FILE 513
//*        the move to the new OPERLOG format, known as MDB         *   FILE 513
//*        records, in order to achieve as much knowledge as we     *   FILE 513
//*        could, over the whole sysplex, and every system          *   FILE 513
//*        within it.                                               *   FILE 513
//*                                                                 *   FILE 513
//*        VPW was "killed" and a new set of programs and           *   FILE 513
//*        utilities took place instead.                            *   FILE 513
//*                                                                 *   FILE 513
//*        Nostalgics can download in Binary without CR/LF the      *   FILE 513
//*        member VPWDOC to PC and print it. It is a WORD           *   FILE 513
//*        document but unfortunatley in Spanish.                   *   FILE 513
//*                                                                 *   FILE 513
//*        With all our systems using OPERLOG, we start using       *   FILE 513
//*        IBM's sample program, named IEAMDBLG, that you can       *   FILE 513
//*        find in SYS1.SAMPLIB. This facility lets you write to    *   FILE 513
//*        SYSOUT, using SYSLOG format, the contents of the         *   FILE 513
//*        OPERLOG log stream, as well as mark MDBs for             *   FILE 513
//*        deletion.                                                *   FILE 513
//*                                                                 *   FILE 513
//*        We found this program missed some options, that could    *   FILE 513
//*        be very ussefull, but decided, for compatibility         *   FILE 513
//*        reasons, not to write a new program, but to upgrade      *   FILE 513
//*        IEAMDBLG. Our version of the module, is fully            *   FILE 513
//*        compatible, with no JCL change, with the original        *   FILE 513
//*        one.                                                     *   FILE 513
//*                                                                 *   FILE 513
//*        We introduced four new options: COPY(ALL), COPY(MDB),    *   FILE 513
//*        DELETE(ALL) and ENQ. You can find a description of       *   FILE 513
//*        each in the program itself.                              *   FILE 513
//*                                                                 *   FILE 513
//*        This new version of the program is SMPE installable.     *   FILE 513
//*        You can find a SYSMOD sample in member @MVSX08. This     *   FILE 513
//*        usermod does mark the sample member IEAMDBLG, to get     *   FILE 513
//*        a warning message when another PTF updates it.           *   FILE 513
//*                                                                 *   FILE 513
//*        We scheduled the program to run every 60 minutes at      *   FILE 513
//*        xx:05 time.  We put MDBs on DASD dataset, under SMS      *   FILE 513
//*        control, with a management class criteria of keeping     *   FILE 513
//*        then on DASD for 10 days, making one backup copy, for    *   FILE 513
//*        recovery reasons, and deleting them.                     *   FILE 513
//*                                                                 *   FILE 513
//*        You will find a JCL sample for the STC in member         *   FILE 513
//*        OPERLOG.                                                 *   FILE 513
//*                                                                 *   FILE 513
//*        We manage a set of dataset with the following data       *   FILE 513
//*        set name pattern:                                        *   FILE 513
//*                  OPERLOG.PLEX$A.B0010328.T020500                *   FILE 513
//*                  OPERLOG.PLEX$A.B0010328.T030500                *   FILE 513
//*                  OPERLOG.PLEX$A.B0010328.T040500                *   FILE 513
//*                                                                 *   FILE 513
//*        Where PLEX$A is the SYSPLEX name, B0010328 is the        *   FILE 513
//*        same as 20010328 (AAAAMMDD form) and T020500 means       *   FILE 513
//*        the GMT time for first register inside this file.        *   FILE 513
//*        Depending on your GMT time zone, you can have a          *   FILE 513
//*        difference from local times inside and the dataset       *   FILE 513
//*        name outside.  This is in order to make this             *   FILE 513
//*        application DST compliant, avoiding problems when        *   FILE 513
//*        local time changes back and forward daylight saving.     *   FILE 513
//*                                                                 *   FILE 513
//*        If you start IEAMDBLG at IPL time and, after that, at    *   FILE 513
//*        an hourly basis, you will get about 24 files per day     *   FILE 513
//*        in normal operations.  Instruct your SMS routines to     *   FILE 513
//*        migrate, delete or BKUP this files.                      *   FILE 513
//*                                                                 *   FILE 513
//*        We maintain 10 days on disk to access data               *   FILE 513
//*        interactively from ISPF, but this number can be          *   FILE 513
//*        easily changed, and this notation is useful to           *   FILE 513
//*        dyanamically allocate the data we need.                  *   FILE 513
//*                                                                 *   FILE 513
//*        As referred to in APAR PQ07414, SDSF gets slow           *   FILE 513
//*        response time using the OPERLOG component. So it is      *   FILE 513
//*        much better to search MDBs within the unloaded data      *   FILE 513
//*        on DASD, using the accompanying VERLOG facility from     *   FILE 513
//*        ISPF.                                                    *   FILE 513
//*                                                                 *   FILE 513
//*      USING VERLOG                                               *   FILE 513
//*      --------------------                                       *   FILE 513
//*                                                                 *   FILE 513
//*        New MDB records can be accessed by browsing directly     *   FILE 513
//*        the data set, but MDB format is not really a friendly    *   FILE 513
//*        one. So we designed an ISPF application to get then      *   FILE 513
//*        as usual, with the aid of search arguments: sysids,      *   FILE 513
//*        start-date-time to end-date-time, and so on, making      *   FILE 513
//*        it ieasier accessing to LOG data. Search results can     *   FILE 513
//*        be put into a file, if you want, and you can save        *   FILE 513
//*        this selected log data for later use: i.e. reporting     *   FILE 513
//*        software and hardware problems to IBM or other ISVs.     *   FILE 513
//*                                                                 *   FILE 513
//*        For compatibility purposes, data obtained are in         *   FILE 513
//*        SYSLOG format, so you can look at it as you did in       *   FILE 513
//*        the past.                                                *   FILE 513
//*                                                                 *   FILE 513
//*        You can use clist VERLOG to start the search. Two        *   FILE 513
//*        panels, (members VLOGP00 and VLOGH00) and a program      *   FILE 513
//*        (member SYVERLOG) to do the search. You must tailor      *   FILE 513
//*        the clist to match your data set naming conventions,     *   FILE 513
//*        but we think it will not be a complex task for           *   FILE 513
//*        experienced system programmers that have started         *   FILE 513
//*        operlog and so on .... Of course this ISPF aplication    *   FILE 513
//*        will take into account differences between LOCAL and     *   FILE 513
//*        GMT time, so all your searchs will be performed using    *   FILE 513
//*        your local time.                                         *   FILE 513
//*                                                                 *   FILE 513
//*        To obtain the real and executable SYVERLOG program       *   FILE 513
//*        you MUST run the JCL in $$ASM member. Tailor it to       *   FILE 513
//*        suit your standards and provide an intermediate LOAD     *   FILE 513
//*        to do the assembly. It will produce several routines     *   FILE 513
//*        and the facility load module itself.                     *   FILE 513
//*                                                                 *   FILE 513
//*        Of course, put CLIST and ISPPLIB in your SYSPROC and     *   FILE 513
//*        ISPPLIB concatenation. We suggest to put SYVERLOG in     *   FILE 513
//*        a linklisted library, but this is optional.              *   FILE 513
//*                                                                 *   FILE 513
//*        Now, you are ready to enjoy this tool.                   *   FILE 513
//*                                                                 *   FILE 513
//*                                  - - - o o o O o o o - - -      *   FILE 513
//*                                                                 *   FILE 513
//***FILE 514 is from Larry Williams and contains an ICHRTX00 SAF   *   FILE 514
//*           router to allow a volume or volumes to be treated     *   FILE 514
//*           as special read only volume(s).  Not even RACF        *   FILE 514
//*           "Special" users can update files there.               *   FILE 514
//*                                                                 *   FILE 514
//*           This was designed to solve a problem with code that   *   FILE 514
//*           had been shipped to our customers (which should       *   FILE 514
//*           have then  been "frozen" forever) being updated at    *   FILE 514
//*           our site (a software vendor) by mistake, disrupting   *   FILE 514
//*           the "audit trail" of what had actually been shipped   *   FILE 514
//*           to our customers.                                     *   FILE 514
//*                                                                 *   FILE 514
//*           This made it very difficult to debug programs at      *   FILE 514
//*           the customer site, since the code no longer           *   FILE 514
//*           matched.                                              *   FILE 514
//*                                                                 *   FILE 514
//*           The code contains a table of the allowed users who    *   FILE 514
//*           can do the updates.  All other users will ABEND       *   FILE 514
//*           913-0C (or DASDM alloc fail) trying to update.        *   FILE 514
//*                                                                 *   FILE 514
//*           You'll probably find this code interesting to look    *   FILE 514
//*           at, if you need protect some volume(s) from           *   FILE 514
//*           alteration by (almost) all users regardless of RACF   *   FILE 514
//*           authority.  I haven't tested the idea yet, but        *   FILE 514
//*           perhaps this might be an interesting way to lock up   *   FILE 514
//*           a "SYS1.PARMLIB" perhaps...                           *   FILE 514
//*                                                                 *   FILE 514
//*           The usual disclaimer applies: You use this at your    *   FILE 514
//*           own risk.  It has worked well at my site, your        *   FILE 514
//*           mileage may vary.                                     *   FILE 514
//*                                                                 *   FILE 514
//*           email:   larryw@ix.netcom.com                         *   FILE 514
//*                                                                 *   FILE 514
//***FILE 515 is from Alex Brodsky, and contains a sizable          *   FILE 515
//*           collection of REXX execs and ISPF stuff.  You         *   FILE 515
//*           should find these interesting and useful.             *   FILE 515
//*                                                                 *   FILE 515
//*           email:   abrodsky@sse.com                             *   FILE 515
//*                                                                 *   FILE 515
//*     This is a bunch of REXX functions and some ISPF stuff.      *   FILE 515
//*                                                                 *   FILE 515
//*     @CSR            - get data from ISPF screen under           *   FILE 515
//*                       cursor                                    *   FILE 515
//*     ASM@CSR         - build @csr                                *   FILE 515
//*     ASMDEQ          - build rxdeq                               *   FILE 515
//*     ASMENQ          - build rxenq                               *   FILE 515
//*     ASMSLEEP        - build sleep                               *   FILE 515
//*     ASMSPFP         - build lgnspf                              *   FILE 515
//*     ASMWTOR         - build rxwtor                              *   FILE 515
//*     ASMXL           - build xl                                  *   FILE 515
//*     AXBASML         - proc for assemblies                       *   FILE 515
//*     LGN@ENT         - entry macro                               *   FILE 515
//*     LGN@RET         - exit  macro                               *   FILE 515
//*     LGNASML         - proc for assemblies                       *   FILE 515
//*     LGNSPF          - REXX function to return ISPF parms        *   FILE 515
//*                       for LOGON proc exec                       *   FILE 515
//*     LGNSRCH         - binary search macro                       *   FILE 515
//*     LGNUDEFD        - part of lgnspf                            *   FILE 515
//*     LGNUDEFE        - part of lgnspf                            *   FILE 515
//*     LGNUDEFN        - part of lgnspf                            *   FILE 515
//*     LGNUDEFP        - part of lgnspf                            *   FILE 515
//*     RLTPLST         - plist to call rltsub                      *   FILE 515
//*     RLTSUB          - s/routine to return REXX result           *   FILE 515
//*     RXDEQ           - issue DEQ macro from REXX exec            *   FILE 515
//*     RXENQ           - issue ENQ macro from REXX exec            *   FILE 515
//*     RXWTOR          - issue WTO/WTOR from REXX exec             *   FILE 515
//*     SLEEP           - wait for specified number of seconds;     *   FILE 515
//*                       ATTN terminates                           *   FILE 515
//*     SPFDOC          - doc for lgnspf                            *   FILE 515
//*     XL              - get the data from the screen and          *   FILE 515
//*                       display a list of datasets if data is     *   FILE 515
//*                       a dataset name; works in edit, browse     *   FILE 515
//*                       and sdsf.                                 *   FILE 515
//*                                                                 *   FILE 515
//***FILE 516 is from Sam Golob and contains a program that is      *   FILE 516
//*           useful if you have CA-1 Tape Management System (TMS). *   FILE 516
//*           This program will call the CA-1 inquiry program       *   FILE 516
//*           called CTSQSTS for a given VOLSER and will return     *   FILE 516
//*           a code as follows (the way CTSQSTS is coded now):     *   FILE 516
//*                                                                 *   FILE 516
//*           Return Code      Interpretation                       *   FILE 516
//*                                                                 *   FILE 516
//*            0               Scratch Tape                         *   FILE 516
//*            4               Tape is not full - can be mod'ed to  *   FILE 516
//*            8               Tape is full - you can't mod to it   *   FILE 516
//*           12               Tape is Out of Service, bad or DEL   *   FILE 516
//*           16               Foreign Tape                         *   FILE 516
//*           20               CA-1 is not active                   *   FILE 516
//*                                                                 *   FILE 516
//*           You run this program (called CBRTST) against a list   *   FILE 516
//*           of VOLSERs in SYSIN, and the report tells you each    *   FILE 516
//*           volume's status, as reported by CA's program CTSQSTS. *   FILE 516
//*                                                                 *   FILE 516
//*    >>>    This program provides a quick way of testing the      *   FILE 516
//*    >>>    TMC status of a list of tape volumes.  Admittedly     *   FILE 516
//*    >>>    TMSBINQ is more thorough, but this program provides   *   FILE 516
//*    >>>    a really quick summary.  Under some circumstances,    *   FILE 516
//*    >>>    it's more useful than TMSBINQ.                        *   FILE 516
//*                                                                 *   FILE 516
//*           You can even run this program against every volume    *   FILE 516
//*           defined in your TMC.  Just copy the TMC to an FB-340  *   FILE 516
//*           dataset, copy it again to an FB-80 dataset,           *   FILE 516
//*           truncating the tails, and edit out the DSNB records   *   FILE 516
//*           at the end.  The resulting file will contain volsers  *   FILE 516
//*           in columns 1-6, and is suitable input for the CBRTST  *   FILE 516
//*           program.                                              *   FILE 516
//*                                                                 *   FILE 516
//*    The following is sample program output (squeezed together):  *   FILE 516
//*                                                                 *   FILE 516
//*    CTSQSTS - RETURN CODE TEST PROGRAM          PAGE      1      *   FILE 516
//*                                                                 *   FILE 516
//*     INPUT VOLSER = M00000   RETCODE WAS  =  12  OUT OF SERVICE  *   FILE 516
//*     INPUT VOLSER = M10000   RETCODE WAS  =   4  TAPE NOT FULL   *   FILE 516
//*     INPUT VOLSER = M10001   RETCODE WAS  =   4  TAPE NOT FULL   *   FILE 516
//*     INPUT VOLSER = M10002   RETCODE WAS  =   4  TAPE NOT FULL   *   FILE 516
//*     INPUT VOLSER = M10003   RETCODE WAS  =   8  FULL TAPE       *   FILE 516
//*     INPUT VOLSER = M10004   RETCODE WAS  =   4  TAPE NOT FULL   *   FILE 516
//*     INPUT VOLSER = M10005   RETCODE WAS  =   4  TAPE NOT FULL   *   FILE 516
//*     INPUT VOLSER = M10006   RETCODE WAS  =   0  SCRATCH TAPE    *   FILE 516
//*     INPUT VOLSER = M10007   RETCODE WAS  =   8  FULL TAPE       *   FILE 516
//*     INPUT VOLSER = M10008   RETCODE WAS  =   4  TAPE NOT FULL   *   FILE 516
//*     INPUT VOLSER = M10009   RETCODE WAS  =   4  TAPE NOT FULL   *   FILE 516
//*     INPUT VOLSER = M10010   RETCODE WAS  =   4  TAPE NOT FULL   *   FILE 516
//*     INPUT VOLSER = M10011   RETCODE WAS  =   8  FULL TAPE       *   FILE 516
//*     INPUT VOLSER = M10012   RETCODE WAS  =   8  FULL TAPE       *   FILE 516
//*     INPUT VOLSER = M10013   RETCODE WAS  =   4  TAPE NOT FULL   *   FILE 516
//*     INPUT VOLSER = M10014   RETCODE WAS  =   8  FULL TAPE       *   FILE 516
//*     INPUT VOLSER = M10015   RETCODE WAS  =   8  FULL TAPE       *   FILE 516
//*     INPUT VOLSER = CBT434   RETCODE WAS  =  16  FOREIGN TAPE    *   FILE 516
//*     INPUT VOLSER = V00000   RETCODE WAS  =  16  FOREIGN TAPE    *   FILE 516
//*     INPUT VOLSER = V00011   RETCODE WAS  =  16  FOREIGN TAPE    *   FILE 516
//*     INPUT VOLSER = V00033   RETCODE WAS  =  16  FOREIGN TAPE    *   FILE 516
//*                                                                 *   FILE 516
//* --------------------------------------------------------------- *   FILE 516
//*                                                                 *   FILE 516
//*   The TMCVLIST program will read your TMC and produce a         *   FILE 516
//*   volume list of all volumes defined in it.  The output of      *   FILE 516
//*   this TMCVLIST program is suitable input to the CBRTST         *   FILE 516
//*   program.  Member TMCVL001 is sample JCL to run TMCVLIST.      *   FILE 516
//*                                                                 *   FILE 516
//* --------------------------------------------------------------- *   FILE 516
//*                                                                 *   FILE 516
//*   Questions, contact Sam Golob:     sbgolob@cbttape.org         *   FILE 516
//*                                                                 *   FILE 516
//***FILE 517 is from Peter Flass and contains XPL, which is a      *   FILE 517
//*           compiler generator system that was developed in the   *   FILE 517
//*           late 60s.  Most of the source is in its own language, *   FILE 517
//*           which looks like PL/I.  There is an assembler driver  *   FILE 517
//*           system, that allows installation of the rest of the   *   FILE 517
//*           code.                                                 *   FILE 517
//*                                                                 *   FILE 517
//*          This file contains the XPL Compiler Generator          *   FILE 517
//*      System developed at the Stanford Computation Center,       *   FILE 517
//*      campus facility, and the University of California          *   FILE 517
//*      Computation Center, Santa Cruz.                            *   FILE 517
//*                                                                 *   FILE 517
//*          email:  peter_flass@yahoo.com                          *   FILE 517
//*                                                                 *   FILE 517
//*      Peter runs an XPL web site.  Its address is:               *   FILE 517
//*                                                                 *   FILE 517
//*          http://www.geocities.com/xpl_lang                      *   FILE 517
//*                                                                 *   FILE 517
//*   Some further remarks from Peter:                              *   FILE 517
//*                                                                 *   FILE 517
//*      XPL is a standalone system - a self-compiling compiler.    *   FILE 517
//*      It doesn't need PL/I, and that's why the source uses       *   FILE 517
//*      all 80 columns of the cards.                               *   FILE 517
//*                                                                 *   FILE 517
//*      My packaging assumed that the file would be downloaded     *   FILE 517
//*      by a browser, unpacked on a PC, and then uploaded to a     *   FILE 517
//*      mainframe.  The EBCDIC files should be uploaded as FB      *   FILE 517
//*      80 (any blksize).  The binary files should be uploaded     *   FILE 517
//*      as F 3600.  The user has to assemble the "submonitor",     *   FILE 517
//*      and then use it to load and run the binaries.  All the     *   FILE 517
//*      JCL is in PROSE.  Naturally it needed to be modified,      *   FILE 517
//*      but I don't think the modifications I had to make for      *   FILE 517
//*      my system would improve any on what's there.               *   FILE 517
//*                                                                 *   FILE 517
//***FILE 518 contains Sam Knutson's Utility collection.            *   FILE 518
//*                                                                 *   FILE 518
//*           email:   sam@knutson.org                              *   FILE 518
//*                                                                 *   FILE 518
//*      Sam Knutson's utilities:                                   *   FILE 518
//*                                                                 *   FILE 518
//*      Here are some odds and ends that I wrote or got from       *   FILE 518
//*      someone else that have yet to find a better home on        *   FILE 518
//*      the CBT Tape.                                              *   FILE 518
//*                                                                 *   FILE 518
//*      Contact me at sam@knutson.org if you have                  *   FILE 518
//*      suggestions or a modification to one of these              *   FILE 518
//*      programs to share.                                         *   FILE 518
//*                                                                 *   FILE 518
//*      The contents of this collection are to be used at          *   FILE 518
//*      your own risk and are not supported by me or my            *   FILE 518
//*      employers past or present.  All are public domain          *   FILE 518
//*      with no rights reserved.                                   *   FILE 518
//*                                                                 *   FILE 518
//*    Sam Knutson's utilities                                      *   FILE 518
//*                                                                 *   FILE 518
//*      Here are some odds and ends that I wrote or got from       *   FILE 518
//*      someone else that have yet to find a better home on        *   FILE 518
//*      the CBT Tape.                                              *   FILE 518
//*                                                                 *   FILE 518
//*      Contact me at sam@knutson.org if you have suggestions      *   FILE 518
//*      or a modification to one of these programs to share.       *   FILE 518
//*                                                                 *   FILE 518
//*      The contents of this collection are to be used at          *   FILE 518
//*      your own risk and are not supported by me or my            *   FILE 518
//*      employer's past or present.  All are public domain         *   FILE 518
//*      with no rights reserved.                                   *   FILE 518
//*                                                                 *   FILE 518
//*      AUXBOOST                                                   *   FILE 518
//*      This program will modify the in storage defaults used      *   FILE 518
//*      by ASM to determine when an AUX STORAGE SHORTAGE           *   FILE 518
//*      exists.  It is based on IRA200E RESOLVE zap job by         *   FILE 518
//*      Thierry Falissard in CBT Tape file 432.  This memory       *   FILE 518
//*      zap allows you to change the 70% and 85 % thresholds       *   FILE 518
//*      to more aggressive values : 90% and 95 %.                  *   FILE 518
//*                                                                 *   FILE 518
//*      PUTPARM                                                    *   FILE 518
//*      Simple utility posted by Perry Winter in 1993 on           *   FILE 518
//*      IBM-MAIN which provides very nice generation of            *   FILE 518
//*      control cards on the fly from a PARM.  This program        *   FILE 518
//*      writes 80 character records based on user supplied         *   FILE 518
//*      parm.  All symbolics used in parm are expanded before      *   FILE 518
//*      execution of program.  The semicolon is used as a          *   FILE 518
//*      record separator in the parm therefore several 80          *   FILE 518
//*      character records can be generated from one 100 char       *   FILE 518
//*      parm field. The output records are written on ddname       *   FILE 518
//*      parm where the lrecl is always 80 characters.  The         *   FILE 518
//*      user can select any blocking factor on the parm dd         *   FILE 518
//*      card.  The output file can be concatenated before or       *   FILE 518
//*      after any 80 char LRECL data file in the job stream.       *   FILE 518
//*                                                                 *   FILE 518
//*      SC                                                         *   FILE 518
//*      Simple edit macro to SUBMIT a job then CANCEL out of       *   FILE 518
//*      the EDIT or VIEW of the current member.                    *   FILE 518
//*                                                                 *   FILE 518
//*      SUBX                                                       *   FILE 518
//*      REXX edit macro to submit the current job to a             *   FILE 518
//*      dynamically allocated internal reader.  This avoids        *   FILE 518
//*      space abends using the IBM SUBMIT command and can be       *   FILE 518
//*      used to bypass IKJEFF10 the TSO/E SUBMIT exit.             *   FILE 518
//*                                                                 *   FILE 518
//*      MAKEXMI & MAKEXMIU                                         *   FILE 518
//*      XMIT a data set to a data set suffixed .XMI or to a        *   FILE 518
//*      file prefixed with your TSO userid and suffixed .XMI       *   FILE 518
//*                                                                 *   FILE 518
//*      ME                                                         *   FILE 518
//*      Set your TSO profile the same as your userid               *   FILE 518
//*                                                                 *   FILE 518
//*      NOTME                                                      *   FILE 518
//*      Set your TSO profile to null                               *   FILE 518
//*                                                                 *   FILE 518
//***FILE 519 is from Sam Golob, and contains a system to compare   *   FILE 519
//*           the status of tapes in CA-1 (TMS - Tape Management    *   FILE 519
//*           System) with the status of the corresponding volume   *   FILE 519
//*           names (numbers) in VTS (IBM's Virtual Tape System),   *   FILE 519
//*           which looks, to MVS, like a 3494 Tape Library.        *   FILE 519
//*                                                                 *   FILE 519
//*           This, essentially, is an audit system between TMS     *   FILE 519
//*           (CA-1) and the VTS.                                   *   FILE 519
//*                                                                 *   FILE 519
//*           There is some installation-dependent code in the      *   FILE 519
//*           last program, which is the actual audit program       *   FILE 519
//*           that compares the TMS data with the VTS data.  All    *   FILE 519
//*           the other programs (I think) can run anywhere.  I     *   FILE 519
//*           have included our alphanumeric volser information,    *   FILE 519
//*           our TMSUX2E and TMSUX2U exits, as well as a TMSBLDUE  *   FILE 519
//*           report to show our actual tape ranges.  Installation  *   FILE 519
//*           dependencies are roughly marked in the TMLIBAUD code. *   FILE 519
//*                                                                 *   FILE 519
//*           If you have questions, please feel free to contact    *   FILE 519
//*           Sam Golob:   sbgolob@cbttape.org                      *   FILE 519
//*                                                                 *   FILE 519
//*     PROGRAMS:                                                   *   FILE 519
//*                                                                 *   FILE 519
//*       TMLIBA01 - Reads your TMC (from TMS) and produces a       *   FILE 519
//*                  complete volume list, representing all         *   FILE 519
//*                  volumes (even the ones in DELETE status)       *   FILE 519
//*                  defined to TMS.                                *   FILE 519
//*                                                                 *   FILE 519
//*       TMLIBA02 - Reads a LISTCAT of your VOLCAT (either the     *   FILE 519
//*                  short version or the long version) and         *   FILE 519
//*                  produces a list of all volumes defined to      *   FILE 519
//*                  the VTS.                                       *   FILE 519
//*                                                                 *   FILE 519
//*       TMLIBA03 - Match-merge program to compare the TMC         *   FILE 519
//*                  volume list, to the VTS volume list.           *   FILE 519
//*                  Three outputs are produced:                    *   FILE 519
//*                                                                 *   FILE 519
//*                  TNOV  -  Tape volumes in TMS and not in VTS    *   FILE 519
//*                  VNOT  -  Tape volumes in VTS and not in TMS    *   FILE 519
//*                  BOTH  -  Tape volumes in both places           *   FILE 519
//*                                                                 *   FILE 519
//*       TMLIBA04 - Programs to find information about the         *   FILE 519
//*       TMLIBA05   status of volumes in the VTS.  We run them     *   FILE 519
//*                  against the BOTH and VNOT lists concatenated   *   FILE 519
//*                  together, and sorted by volser (colums 1-6).   *   FILE 519
//*                                                                 *   FILE 519
//*                  TMLIBA04, which does an inquiry to the Library *   FILE 519
//*                  Management System for each volser, is too      *   FILE 519
//*                  slow, therefore TMLIBA05 was written to run    *   FILE 519
//*                  against the LISTCAT for the library catalog,   *   FILE 519
//*                  to pull equivalent information.                *   FILE 519
//*                                                                 *   FILE 519
//*                  Input (INDD) is FB-80 and consists of the      *   FILE 519
//*                  volume lists.                                  *   FILE 519
//*                                                                 *   FILE 519
//*                  Output (OUTDD) is FB-385, and is a file we     *   FILE 519
//*                  create, containing output from the IBM macro   *   FILE 519
//*                  CBRXLCS, as below, and other relevant VTS      *   FILE 519
//*                  volume information that is available to the    *   FILE 519
//*                  program.  This file is input to the TMLIBAUD   *   FILE 519
//*                  audit program.  Macro call is as follows:      *   FILE 519
//*                                                                 *   FILE 519
//*                  CBRXLCS  TYPE=TAPE,                            *   FILE 519
//*                        FUNC=QVR,                                *   FILE 519
//*                        VOLUME=TRANVOL,                          *   FILE 519
//*                        VOLINFO=YES,                             *   FILE 519
//*                        MF=(E,LCSLIST),                          *   FILE 519
//*                        SUBPOOL=0                                *   FILE 519
//*                                                                 *   FILE 519
//*                  It is essential to code VOLINFO=YES, and       *   FILE 519
//*                  (the book informs me), that also allows the    *   FILE 519
//*                  program to obtain information from the         *   FILE 519
//*                  Library Manager Inventory, as well as from     *   FILE 519
//*                  the TCDB (the VOLCAT).                         *   FILE 519
//*                                                                 *   FILE 519
//*       TMLIBTM  - This is an EARL program, that produces a       *   FILE 519
//*                  report containing essential data about active  *   FILE 519
//*                  TMS volumes.  Input to the TMLIBAUD program    *   FILE 519
//*                  from the TMS side, comes from here.  JCL to    *   FILE 519
//*                  run this program, and all the programs in      *   FILE 519
//*                  the entire collection, is in member TMLIBRUN.  *   FILE 519
//*                                                                 *   FILE 519
//*       TMLIBAUD - This is the actual compare program which we    *   FILE 519
//*                  use, to identify "inconsistencies" (as we      *   FILE 519
//*                  define them) between TMS and the VTS.  In our  *   FILE 519
//*                  implementation, four error types are found.    *   FILE 519
//*                  Reports on these are sent, both to separate    *   FILE 519
//*                  outputs, and to one (total and summary)        *   FILE 519
//*                  summation output.                              *   FILE 519
//*                                                                 *   FILE 519
//*                  You can re-code this program to detect any     *   FILE 519
//*                  other conditions between the TMS and the VTS   *   FILE 519
//*                  which you feel you need to know about.  This   *   FILE 519
//*                  program is really the only one in the set,     *   FILE 519
//*                  that contains installation dependencies.       *   FILE 519
//*                                                                 *   FILE 519
//*       TMLIBRUN - The job stream to run the entire package.      *   FILE 519
//*                                                                 *   FILE 519
//*       CBRTST   - Program (also found on File 516) to query      *   FILE 519
//*                  the status of volumes in TMS.  This program    *   FILE 519
//*                  uses a call to the TMS CTSQSTS facility, and   *   FILE 519
//*                  may be run against the output of TMLIBA01,     *   FILE 519
//*                  which is why I am also including it here.      *   FILE 519
//*                  This program should be run from a non-APF      *   FILE 519
//*                  library (non-authorized library).              *   FILE 519
//*                                                                 *   FILE 519
//***FILE 520 is from Robin Ryerse and contains some REXX           *   FILE 520
//*           functions, written in Assembler.                      *   FILE 520
//*                                                                 *   FILE 520
//*           Their names are:  SCCPDSD, SCCPDSR, and WILDCARD.     *   FILE 520
//*           And a new one is called:   VARLIST                    *   FILE 520
//*                                                                 *   FILE 520
//*     Note: A modification of VARLIST, called VARLISTS, was       *   FILE 520
//*           submitted by Wilfried Eike, which returns the output  *   FILE 520
//*           on the REXX stack so it could be used within a REXX   *   FILE 520
//*           script.                                               *   FILE 520
//*                                                                 *   FILE 520
//*           email:  Wilfried.Eike@t-online.de                     *   FILE 520
//*                                                                 *   FILE 520
//*           Another function has been added to this package,      *   FILE 520
//*           called SCXSORT.  Notes for SCXSORT are found below.   *   FILE 520
//*                                                                 *   FILE 520
//*           Another new function:  SCC@DSN - to determine if      *   FILE 520
//*           a dataset exists.                                     *   FILE 520
//*                                                                 *   FILE 520
//*           A new function package has also been added, called    *   FILE 520
//*           SCCALLOC.  SCCALLOC provides, in native REXX, the     *   FILE 520
//*           functionality of the TSO ALLOCATE and FREE commands,  *   FILE 520
//*           which will now be available to "Address TSO".         *   FILE 520
//*                                                                 *   FILE 520
//*           An additional package, called DSN4DD, tells you,      *   FILE 520
//*           for a dataset in a concatenation, which number of     *   FILE 520
//*           the concatenation that dataset is.                    *   FILE 520
//*                                                                 *   FILE 520
//*           The purpose of these REXX functions is to select      *   FILE 520
//*           certain members of a partitioned dataset, according   *   FILE 520
//*           to some rule, and to allow you to perform, in REXX,   *   FILE 520
//*           some operation on all the members that were           *   FILE 520
//*           selected.                                             *   FILE 520
//*                                                                 *   FILE 520
//*           email:   Robin.Ryerse@stelco.ca                       *   FILE 520
//*                                                                 *   FILE 520
//*           Each package has a $README member with a $ preceding  *   FILE 520
//*           its name.  Each package is actually an unloaded pds   *   FILE 520
//*           in IEBUPDTE SYSIN format (really in PDSLOAD format).  *   FILE 520
//*           The $PDSLOAD member is a job to create a pds out of   *   FILE 520
//*           each member that is really a package.                 *   FILE 520
//*                                                                 *   FILE 520
//*           The member of this file which is called PDSLOAD,      *   FILE 520
//*           is an XMIT-format load library, containing the        *   FILE 520
//*           PDSLOAD load module.  To create the load library,     *   FILE 520
//*           issue the command (under TSO):                        *   FILE 520
//*                                                                 *   FILE 520
//*           RECEIVE INDS(userid.FILE520.PDS(PDSLOAD)),            *   FILE 520
//*                                                                 *   FILE 520
//*           and press ENTER at the prompts.                       *   FILE 520
//*                                                                 *   FILE 520
//*        -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -        *   FILE 520
//*                                                                 *   FILE 520
//*    Special notes for the SCXSORT package:                       *   FILE 520
//*                                                                 *   FILE 520
//*       Name:        SCXSORT                                      *   FILE 520
//*                                                                 *   FILE 520
//*       Purpose:     Sort from and/or into REXX stem              *   FILE 520
//*                    variables.                                   *   FILE 520
//*                                                                 *   FILE 520
//*       Environment: REXX subroutine/function for all MVS/ESA     *   FILE 520
//*                    environments.  SCXSORT resides in the        *   FILE 520
//*                    IRXFLOC "function package".                  *   FILE 520
//*                                                                 *   FILE 520
//*       Features:    All the capabilities of the system sort      *   FILE 520
//*                    program are available.                       *   FILE 520
//*                                                                 *   FILE 520
//*        -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -        *   FILE 520
//*                                                                 *   FILE 520
//*      Installation / readme for SCXSORT                          *   FILE 520
//*                                                                 *   FILE 520
//*      There are 3 components for this package                    *   FILE 520
//*                                                                 *   FILE 520
//*      MACRO    Is the Assembler macro named ID requitred to      *   FILE 520
//*               assemble the assembler routine. Put it into a     *   FILE 520
//*               library included in your SYSLIB concatenation     *   FILE 520
//*               for the assembly.                                 *   FILE 520
//*                                                                 *   FILE 520
//*      SOURCE   Is the single Assembler source deck of the        *   FILE 520
//*               function.                                         *   FILE 520
//*                                                                 *   FILE 520
//*      HELP     Is the documentation on how to use SCXSORT in     *   FILE 520
//*               REXX programs.                                    *   FILE 520
//*                                                                 *   FILE 520
//*      Making SCXSORT available to your REXX program can be as    *   FILE 520
//*      simple as link editing it to a load library that is        *   FILE 520
//*      within the JOBLIB/STEPLIB concatenation when the REXX      *   FILE 520
//*      program runs.  I myself have built a REXX function         *   FILE 520
//*      package under the name IRXFLOC which contains all the      *   FILE 520
//*      assembler written REXX functions for the platform.         *   FILE 520
//*                                                                 *   FILE 520
//*      The HELP documentation should provide all the usage        *   FILE 520
//*      notes required.                                            *   FILE 520
//*                                                                 *   FILE 520
//*        -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -        *   FILE 520
//*                                                                 *   FILE 520
//*    Special notes for the DSN4DD package:                        *   FILE 520
//*                                                                 *   FILE 520
//*    Name:        DSN4DD                                          *   FILE 520
//*                                                                 *   FILE 520
//*    Purpose:     Return the name of (a concatenation level       *   FILE 520
//*                 of) a dataset for a specified DDname.           *   FILE 520
//*                                                                 *   FILE 520
//*    Environment: REXX subroutine/function for all MVS/ESA        *   FILE 520
//*                 environments.  DSN4DD resides in the            *   FILE 520
//*                 IRXFLOC "function package".                     *   FILE 520
//*                                                                 *   FILE 520
//*    Features:    The value of the DSN is returned as per         *   FILE 520
//*                 the invocation construct.                       *   FILE 520
//*                                                                 *   FILE 520
//*                 The REXX variable RC is set to the number       *   FILE 520
//*                 of concatenation levels for the DD.             *   FILE 520
//*                                                                 *   FILE 520
//*    Argument:    The DDname for which the dataset name is        *   FILE 520
//*                 required.                                       *   FILE 520
//*                                                                 *   FILE 520
//*                 The DDname can be further qualified with        *   FILE 520
//*                 a suffix in format  +n  where "n" is a          *   FILE 520
//*                 number relative to 1 of the concatenation       *   FILE 520
//*                 within the DDname.                              *   FILE 520
//*                                                                 *   FILE 520
//*    Results:     DSN4DD operates as a REXX subroutine/function.  *   FILE 520
//*                 When used as a subroutine, the caller           *   FILE 520
//*                 retrieves the value from the REXX variable      *   FILE 520
//*                 RESULT. When used as a function, REXX makes     *   FILE 520
//*                 the requested assignment from the context of    *   FILE 520
//*                 REXX statement which invoked it.                *   FILE 520
//*                                                                 *   FILE 520
//*                 DSN4DD always sets the REXX variable RC.        *   FILE 520
//*                 For a request which is matched without          *   FILE 520
//*                 error, RC is asigned the number of              *   FILE 520
//*                 datasets which are concatenated together.       *   FILE 520
//*                 If there is no concatenation, RC will be        *   FILE 520
//*                 assigned the value one.                         *   FILE 520
//*                                                                 *   FILE 520
//*    Errors/Warnings:                                             *   FILE 520
//*                 If the DDNAME is not allocated or the           *   FILE 520
//*                 argument is missing, RC will be assigned        *   FILE 520
//*                 the value of minus one and the result will      *   FILE 520
//*                 be null.                                        *   FILE 520
//*                                                                 *   FILE 520
//*                 If the DDNAME is allocated but the requested    *   FILE 520
//*                 concatenation level is invalid or beyond the    *   FILE 520
//*                 allocated concatenation level, the 'result'     *   FILE 520
//*                 will be null and RC is assigned the number      *   FILE 520
//*                 of datasets allocated within the                *   FILE 520
//*                 concatenation level.                            *   FILE 520
//*                                                                 *   FILE 520
//*    Notes:       If the DDname is allocated to a member of       *   FILE 520
//*                 a partitioned dataset, the member name is       *   FILE 520
//*                 included in the result. This makes DSN4DD       *   FILE 520
//*                 distinct from the TSO LISTF command.            *   FILE 520
//*                                                                 *   FILE 520
//*        -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -        *   FILE 520
//*                                                                 *   FILE 520
//***FILE 521 is from Tom Bryant and contains some useful job       *   FILE 521
//*           streams to run EREP.                                  *   FILE 521
//*                                                                 *   FILE 521
//*           email: Thomas Bryant <Thomas.Bryant@mail.bcop.com>    *   FILE 521
//*                  Thomas Bryant <bryatomg@yahoo.com>             *   FILE 521
//*                                                                 *   FILE 521
//***FILE 522 is from Michael Oujesky, and contains an Assembler    *   FILE 522
//*           routine to take any user data, and put an SMF Header  *   FILE 522
//*           on it, so you can write a User SMF Record.            *   FILE 522
//*                                                                 *   FILE 522
//*   email:  Michael Oujesky <oujesky@ticnet.com>                  *   FILE 522
//*                                                                 *   FILE 522
//*     This is a stand-alone utility that can take an              *   FILE 522
//*     external record and put an SMF header on it, and            *   FILE 522
//*     then it issues the call to write it to SMF.                 *   FILE 522
//*                                                                 *   FILE 522
//***FILE 523 is from Paul Dion and contains an SMF record          *   FILE 523
//*           selection program of great generality.  Records can   *   FILE 523
//*           be pulled from the currently active SMF dataset, as   *   FILE 523
//*           well as from SMF archive datasets.                    *   FILE 523
//*                                                                 *   FILE 523
//*           email:  pdion@canada.com                              *   FILE 523
//*                                                                 *   FILE 523
//*           Fixed by  R.W. Suhr          (see members $$NOTEx)    *   FILE 523
//*           email:  RSuhr@iot.IN.gov                              *   FILE 523
//*                                                                 *   FILE 523
//*      SMFSLCT Index                                              *   FILE 523
//*                                                                 *   FILE 523
//*      The following is a one-line description of the             *   FILE 523
//*      contents of this library:                                  *   FILE 523
//*                                                                 *   FILE 523
//*      $$$$$$IX - Index: this is it                               *   FILE 523
//*      $$$$$DOC - A brief overview of the SMFSLCT program         *   FILE 523
//*      $$$$INST - Sample Assemble and Link JCL                    *   FILE 523
//*      $$$$SAMP - Sample execution JCL                            *   FILE 523
//*      $$$CHANG - Changes with this version                       *   FILE 523
//*      SMFSLCT  - Assembler source                                *   FILE 523
//*                                                                 *   FILE 523
//*                     S  M  F  S  L  C  T                         *   FILE 523
//*                                                                 *   FILE 523
//*       This program will read SMF data (from the MAN             *   FILE 523
//*      datasets or output from IFASMFDP), and will select         *   FILE 523
//*      records according to user specified criteria.              *   FILE 523
//*      Records can be selected by date and time, by record        *   FILE 523
//*      type (and /or subtype), by Jobname, or by data at an       *   FILE 523
//*      offset within the record. Records must meet date/time      *   FILE 523
//*      and record type criteria before being eligible for         *   FILE 523
//*      selection, as determined by Jobname and/or data            *   FILE 523
//*      specifications.                                            *   FILE 523
//*                                                                 *   FILE 523
//*       By default, any records selected from the input           *   FILE 523
//*      will be printed to SYSPRINT, unless 'PRINT=NO' is          *   FILE 523
//*      specified in the SYSIN control cards. If SYSUT2 is         *   FILE 523
//*      present, the selected input records will also be           *   FILE 523
//*      written to it.                                             *   FILE 523
//*                                                                 *   FILE 523
//*       Multiple output files with different selection            *   FILE 523
//*      criteria can be produced in one run of SMFSLCT. The        *   FILE 523
//*      output DDNames and selection criteria are specified        *   FILE 523
//*      in the control cards in SYSIN.                             *   FILE 523
//*                                                                 *   FILE 523
//*       Two user-written exits can be used with SMFSLCT -         *   FILE 523
//*      the first is given control after an SMF record is          *   FILE 523
//*      read, and the second after an SMF record has been          *   FILE 523
//*      selected.                                                  *   FILE 523
//*                                                                 *   FILE 523
//*      Input:                                                     *   FILE 523
//*          SYSUT1   - SMF dataset - either the output from        *   FILE 523
//*                     IFASMFDP or one of the SYS1.MAN             *   FILE 523
//*                     datasets. If this DDName is not             *   FILE 523
//*                     allocated, it will be dynamically           *   FILE 523
//*                     allocated to the active SMF dataset.        *   FILE 523
//*                                                                 *   FILE 523
//*          SYSIN    - Control cards (see below).                  *   FILE 523
//*                                                                 *   FILE 523
//*      Output:                                                    *   FILE 523
//*          SYSPRINT - Error messages, selected SMF records.       *   FILE 523
//*          SYSUT2   - optional, selected SMF records.             *   FILE 523
//*                                                                 *   FILE 523
//*      Attributes:                                                *   FILE 523
//*          Re-entrant, Reuseable, Refreshable, Not Authorized,    *   FILE 523
//*          AMODE(31), RMODE(ANY)                                  *   FILE 523
//*                                                                 *   FILE 523
//***FILE 524 is from Ron Tatum and contains a subroutine to read   *   FILE 524
//*           a tape, and write from a tape, and do other functions *   FILE 524
//*           using EXCP.                                           *   FILE 524
//*                                                                 *   FILE 524
//*           email:  Ronald Tatum <rhtatum@door.net>               *   FILE 524
//*                                                                 *   FILE 524
//*   Short description of the routines:                            *   FILE 524
//*                                                                 *   FILE 524
//*   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 524
//*                                                                 *   FILE 524
//*      EXCP-LEVEL MAGNETIC TAPE READ/WRITE/CONTROL ROUTINES       *   FILE 524
//*                                                                 *   FILE 524
//*      SUBROUTINE ENTRY POINTS AND INPUT/OUTPUT PARAMETERS        *   FILE 524
//*                                                                 *   FILE 524
//*      CPRDOPEN - TO OPEN THE TAPE DATA SET                       *   FILE 524
//*       CPROPN IS AN ALTERNATE ENTRY POINT NAME FOR THIS          *   FILE 524
//*       OPERATION                                                 *   FILE 524
//*                                                                 *   FILE 524
//*        ANSWER (,DDNAME) INPUT TO ROUTINE. DDNAME DEFAULTS       *   FILE 524
//*         TO 'READIN  ' IF (,DDNAME) IS OMITTED.  IF              *   FILE 524
//*         SUPPLIED, IT MUST BE A CHAR STRING OF EIGHT BYTES,      *   FILE 524
//*         THE FIRST ALPHABETIC; MUST MATCH THE DDNAME FOR         *   FILE 524
//*         THE JCL STATEMENT FOR THE INPUT TAPE.                   *   FILE 524
//*                                                                 *   FILE 524
//*      CPRDCLS -  TO CLOSE THE DATA SET. NO PARMS.                *   FILE 524
//*       CPRCLS IS AN ALTERNATE ENTRY POINT NAME FOR CPRDCLS.      *   FILE 524
//*                                                                 *   FILE 524
//*      CPRD -     READ ONE PHYSICAL BLOCK. ANSWER, DATA, COUNT.   *   FILE 524
//*                                                                 *   FILE 524
//*      CPRDB -    READ BACKWARDS. ANSWER, DATA, COUNT.            *   FILE 524
//*                                                                 *   FILE 524
//*      CPSKRD -   READ A BLOCK, SKIPPING SOME BYTES AT FIRST.     *   FILE 524
//*                  ANSWER,DATA,COUNT.                             *   FILE 524
//*                                                                 *   FILE 524
//*      CPSKBR -   BACKWARD READ AFTER SKIP FROM END OF RECORD.    *   FILE 524
//*                  ANSWER, DATA, COUNT.                           *   FILE 524
//*                                                                 *   FILE 524
//*      CPFSF -    FORWARD SPACE ONE FILE. ANSWER.                 *   FILE 524
//*                                                                 *   FILE 524
//*      CPBSF -    BACKSPACE ONE FILE MARK. ANSWER.                *   FILE 524
//*                                                                 *   FILE 524
//*      CPFSB -    SKIP FORWARD ONE PHYSICAL BLOCK. ANSWER.        *   FILE 524
//*                                                                 *   FILE 524
//*      CPBSB -    BACKWARD SPACE ONE PHYSICAL BLOCK. ANSWER.      *   FILE 524
//*                                                                 *   FILE 524
//*      CPREW -    REWIND THE TAPE TO BOT. ANSWER.                 *   FILE 524
//*                                                                 *   FILE 524
//*      CPWTOPEN - OPEN THE OUTPUT TAPE DATA SET.                  *   FILE 524
//*       CPWOPN IS AN ALTERNATE ENTRY POINT NAME.                  *   FILE 524
//*                ANSWER (,DDNAME).                                *   FILE 524
//*                DDNAME DEFAULTS TO 'SYSTAPE ' IF OMITTED.        *   FILE 524
//*                                                                 *   FILE 524
//*      CPWT -    WRITE ONE PHYSICAL BLOCK. ANSWER, DATA, COUNT.   *   FILE 524
//*                                                                 *   FILE 524
//*      CPWTM -   WRITE A TAPE MARK. ANSWER.                       *   FILE 524
//*                                                                 *   FILE 524
//*      CPWERG -  ERASE GAP (NOMINALLY 3.5 INCHES). ANSWER.        *   FILE 524
//*                                                                 *   FILE 524
//*      CPERAS -  DATA SECURITY ERASE TO EOT MARKER. ANSWER.       *   FILE 524
//*                                                                 *   FILE 524
//*      CPWREW -  REWIND OUTPUT MAG TAPE VOLUME. ANSWER.           *   FILE 524
//*                                                                 *   FILE 524
//*      CPWRED -  READ ONE BLOCK FROM OUTPUT TAPE VOLUME.          *   FILE 524
//*                ANSWER, DATA,COUNT.                              *   FILE 524
//*                                                                 *   FILE 524
//*      CPWTCLS - CLOSE THE OUTPUT TAPE DATA SET.                  *   FILE 524
//*       CPWCLS IS AN ALTERNATE ENTRY POINT NAME. NO PARMS.        *   FILE 524
//*                                                                 *   FILE 524
//***FILE 525 is from Stephen Bell and contains a zap to IBM's      *   FILE 525
//*           free and unsupported CFMON program, so it will work   *   FILE 525
//*           for RMF levels higher than OS/390 Release 2.6.        *   FILE 525
//*           The utility will actually work, and has been          *   FILE 525
//*           tested on OS/390 R2.10 running in 64-bit mode.        *   FILE 525
//*           Also, it will now work under z/OS 1.4.                *   FILE 525
//*                                                                 *   FILE 525
//*           A fix has been supplied, to correct a S0C9 abend.     *   FILE 525
//*                                                                 *   FILE 525
//*       Members:                                                  *   FILE 525
//*                                                                 *   FILE 525
//*           CFMONFIX - Initial fix, so CFMON will run on higher   *   FILE 525
//*                      levels of the Operating system.            *   FILE 525
//*           CFMONFX1 - Corrects a S0C9 abend.                     *   FILE 525
//*           CFMONFX2 - Additional correction for accumulators     *   FILE 525
//*                      filling up.  See member $$NOTE1 for an     *   FILE 525
//*                      explanation.                               *   FILE 525
//*                                                                 *   FILE 525
//*           email:  Stephen_J_Bell@Vanguard.com                   *   FILE 525
//*                                                                 *   FILE 525
//***FILE 526 is from David I. Russell, and contains a security     *   FILE 526
//*           administration interface product for CA-Top Secret.   *   FILE 526
//*                                                                 *   FILE 526
//*           This is a highly sophisticated package, intended      *   FILE 526
//*           to assist Top Secret security administrators.         *   FILE 526
//*                                                                 *   FILE 526
//*         email:   "David I. Russell" <DIRussell@bcbsms.com>      *   FILE 526
//*                                                                 *   FILE 526
//*       The SPI panel system is a full-screen ISPF-based          *   FILE 526
//*       system that greatly automates the standard security       *   FILE 526
//*       administrator functions normally performed through        *   FILE 526
//*       tedious, TSO-based syntax commands.  The system allows    *   FILE 526
//*       you to:                                                   *   FILE 526
//*                                                                 *   FILE 526
//*       Edit a profile in a full screen mode,                     *   FILE 526
//*       'disassemble' a TSS ID (or all of a resource's            *   FILE 526
//*       permissions) to show you the commands that created it,    *   FILE 526
//*       or create a JCL stream to duplicate a permission rule     *   FILE 526
//*       database wide.  There are over 100 commands to quicken    *   FILE 526
//*       TSS administration.                                       *   FILE 526
//*                                                                 *   FILE 526
//*       The panel, help, rexx and parmlib members are transmit    *   FILE 526
//*       format datasets, to expand, issue the commands:           *   FILE 526
//*                                                                 *   FILE 526
//*       RECEIVE INDS('xxxx.xxxx.xxxx(PANEL)')                     *   FILE 526
//*       RECEIVE INDS('xxxx.xxxx.xxxx(HELP)')                      *   FILE 526
//*       RECEIVE INDS('xxxx.xxxx.xxxx(REXX)')                      *   FILE 526
//*       RECEIVE INDS('xxxx.xxxx.xxxx(PARMLIB)')                   *   FILE 526
//*                                                                 *   FILE 526
//*          * * * *  ---------------------------  * * * *          *   FILE 526
//*          * * * *  PLEASE READ MEMBER $$NOTE02  * * * *          *   FILE 526
//*          * * * *  ---------------------------  * * * *          *   FILE 526
//*                                                                 *   FILE 526
//*       Text doc members are from the first edition of this       *   FILE 526
//*       product.  For the most up-to-date documentation,          *   FILE 526
//*       see members $INSTDO1 and $INSTDO2.                        *   FILE 526
//*                                                                 *   FILE 526
//*       System requirements for this package:                     *   FILE 526
//*                                                                 *   FILE 526
//*       Top Secret 5.0 or later (4.4 will probably work           *   FILE 526
//*       but no testing has been done).                            *   FILE 526
//*                                                                 *   FILE 526
//*       Any user of this system must have all requisite           *   FILE 526
//*       TOP SECRET authorities, as the package uses only          *   FILE 526
//*       standard TOP SECRET commands.                             *   FILE 526
//*                                                                 *   FILE 526
//*       An ISPF/PDF  environment and the authority to             *   FILE 526
//*       issue the LIBDEF command to change ones                   *   FILE 526
//*       environment.  The oldest system this package has          *   FILE 526
//*       worked on is ESA 5.2.2 .                                  *   FILE 526
//*                                                                 *   FILE 526
//***FILE 527 is from Matthew Stitt, and contains some programs     *   FILE 527
//*           of great usefulness.                                  *   FILE 527
//*                                                                 *   FILE 527
//*           email:  Matthew Stitt <mstitt@bellsouth.net>          *   FILE 527
//*           email:  Matthew Stitt <mattstit@us.ibm.com> - emer    *   FILE 527
//*                                                                 *   FILE 527
//*   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 527
//*                                                                 *   FILE 527
//*     ADRUENQ    --     DFDSS user exit to turn off VTOC          *   FILE 527
//*                       enqueue for full volume dumps.            *   FILE 527
//*                       Useful for DFHSM dumps of SYSRES, etc.    *   FILE 527
//*                                                                 *   FILE 527
//*     ANFUXBDA   --     InfoPrint Server begin dataset exit       *   FILE 527
//*                       to generate separator pages like JES2.    *   FILE 527
//*                                                                 *   FILE 527
//*     ANFUXEDA   --     InfoPrint Server end dataset exit         *   FILE 527
//*                       to generate separator pages like JES2.    *   FILE 527
//*                                                                 *   FILE 527
//*     COBALLOC   --     Assembler subroutine to use dynamic       *   FILE 527
//*                       allocation for sysout files.  Allows      *   FILE 527
//*                       COBOL modifications to report files, etc. *   FILE 527
//*                                                                 *   FILE 527
//*     COBALASM   --     Assembler jcl for COBALLOC.               *   FILE 527
//*                                                                 *   FILE 527
//*     DADSM      --     Program to list every volume, dataset     *   FILE 527
//*                       give hlq counts.  Old CBT mods program    *   FILE 527
//*                       updated for full 31-bit capability.       *   FILE 527
//*                                                                 *   FILE 527
//*     DADSMASM   --     Assembler jcl for DADSM.                  *   FILE 527
//*                       Note -- full 31-bit code.                 *   FILE 527
//*                                                                 *   FILE 527
//*     G207DCAN   --     Date converter program.                   *   FILE 527
//*                       Has 38+ functions, date calculator        *   FILE 527
//*                       functions for between two dates,          *   FILE 527
//*                       forward/backward dating, can be used      *   FILE 527
//*                       to skip weekends.                         *   FILE 527
//*                       Also works in MVS, VM, and VSE -- any     *   FILE 527
//*                       language.                                 *   FILE 527
//*                                                                 *   FILE 527
//*     G207DOCS   --     Copy of top of assembler code.            *   FILE 527
//*                       Provides basic documentation on how       *   FILE 527
//*                       to use it.                                *   FILE 527
//*                                                                 *   FILE 527
//*     G207ASM    --     Assembler jcl for G207DCAN.               *   FILE 527
//*                       Note -- not re-entrant code.              *   FILE 527
//*                                                                 *   FILE 527
//*     HSMMCA     --     HSM copy book                             *   FILE 527
//*                                                                 *   FILE 527
//*     HSMMCB     --     HSM copy book                             *   FILE 527
//*                                                                 *   FILE 527
//*     HSMMCD     --     HSM copy book                             *   FILE 527
//*                                                                 *   FILE 527
//*     HSMMCK     --     HSM copy book                             *   FILE 527
//*                                                                 *   FILE 527
//*     IEAVMXIT   --     An implementation of some of our          *   FILE 527
//*                       message processing.                       *   FILE 527
//*                                                                 *   FILE 527
//*     LISTICAT   --     An upgrade to the LISTICAT program        *   FILE 527
//*                       originally found on File 047.             *   FILE 527
//*                       This one has major changes to the         *   FILE 527
//*                       report layout among other things.         *   FILE 527
//*                                                                 *   FILE 527
//*     LISTIASM   --     Assembler jcl for LISTICAT                *   FILE 527
//*                                                                 *   FILE 527
//*     LISTIJCL   --     Sample jcl for running LISTICAT           *   FILE 527
//*                                                                 *   FILE 527
//*     UCBTYPES   --     Old UCB type code macro                   *   FILE 527
//*                                                                 *   FILE 527
//***FILE 528 is from John McKown and contains a REXX exec to       *   FILE 528
//*           parse a LISTCAT listing and produce source statements *   FILE 528
//*           to IDCAMS to recatalog the items.                     *   FILE 528
//*                                                                 *   FILE 528
//*       email:   "McKown, John" <john.archie.mckown@GMAIL.com>    *   FILE 528
//*                                                                 *   FILE 528
//***FILE 529 is from Matthew Stitt, and contains some programs     *   FILE 529
//*           to report CICS statistics, and some other programs.   *   FILE 529
//*           Most of these programs are written in COBOL, but      *   FILE 529
//*           they are very useful, for people who need this        *   FILE 529
//*           information.                                          *   FILE 529
//*                                                                 *   FILE 529
//*           There is also a program, CATLIST, to report on        *   FILE 529
//*           the contents of old-style VSAM catalogs, without      *   FILE 529
//*           using IBM's LISTCAT.                                  *   FILE 529
//*                                                                 *   FILE 529
//*           email:  Matthew Stitt <mathwstitt@bellsouth.net>      *   FILE 529
//*                                                                 *   FILE 529
//*   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 529
//*                                                                 *   FILE 529
//*   NOTE --  programs in this file reference programs in          *   FILE 529
//*            file 527 on the same CBT mods tape                   *   FILE 529
//*                                                                 *   FILE 529
//*   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 529
//*                                                                 *   FILE 529
//*   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 529
//*                                                                 *   FILE 529
//*      CATLIST    --     VSAM CATALOG REPORT.  DIRECT ACCESS      *   FILE 529
//*                        TO THE VSAM CATALOG WITHOUT USING        *   FILE 529
//*                        LISTCAT OUTPUT.                          *   FILE 529
//*      CICSMTH    --     CICS STATISTICS REPORTING PROGRAM.       *   FILE 529
//*                        REPORTS ON TRANSACTIONS, TERMINALS,      *   FILE 529
//*                        PROGRAMS, AND FILES ON A MONTHLY         *   FILE 529
//*                        ACCUMULATING BASIS.  FOR CICS/ESA        *   FILE 529
//*                        4.1.                                     *   FILE 529
//*      CICSMTH5   --     CICS STATISTICS REPORTING PROGRAM.       *   FILE 529
//*                        REPORTS ON TRANSACTIONS, TERMINALS,      *   FILE 529
//*                        PROGRAMS, AND FILES ON A MONTHLY         *   FILE 529
//*                        ACCUMULATING BASIS.  FOR CICS/ESA        *   FILE 529
//*                        5.3.                                     *   FILE 529
//*      CICSSMF4   --     PROGRAM TO EXTRACT CICS STATISTICS       *   FILE 529
//*                        RECORDS FROM SMF DATA.  UNLOADS ALL      *   FILE 529
//*                        RECORD TYPES KNOWN.  FOR CICS/ESA        *   FILE 529
//*                        4.1.                                     *   FILE 529
//*      CICSSMF5   --     PROGRAM TO EXTRACT CICS STATISTICS       *   FILE 529
//*                        RECORDS FROM SMF DATA.  UNLOADS ALL      *   FILE 529
//*                        RECORD TYPES KNOWN.  FOR CICS/ESA        *   FILE 529
//*                        5.3.                                     *   FILE 529
//*      CICSYRLY   --     CICS STATISTICS REPORTING PROGRAM.       *   FILE 529
//*                        REPORTS ON TRANSACTIONS, TERMINALS,      *   FILE 529
//*                        PROGRAMS, AND FILES ON A YEARLY          *   FILE 529
//*                        ACCUMULATING BASIS.                      *   FILE 529
//*      CICSMTHJ   --     SAMPLE JCL TO RUN CICSMTH PROGRAM.       *   FILE 529
//*      CICSSMFJ   --     SAMPLE JCL TO RUN CICSSMF PROGRAM.       *   FILE 529
//*      CISIZE     --     VSAM CI SIZE REPORT.  GIVES INDICATION   *   FILE 529
//*                        OF OPTIMUM CI SIZES FOR VSAM DATASETS.   *   FILE 529
//*      DFHCFS6D   --     COPY BOOK.                               *   FILE 529
//*      DFHCFS7D   --     COPY BOOK.                               *   FILE 529
//*      DFHCFS8D   --     COPY BOOK.                               *   FILE 529
//*      DFHCFS9D   --     COPY BOOK.                               *   FILE 529
//*      DFHNCS4D   --     COPY BOOK.                               *   FILE 529
//*      DFHNCS5D   --     COPY BOOK.                               *   FILE 529
//*      DFHSMFDS   --     COPY BOOK.                               *   FILE 529
//*      DFHXQS1D   --     COPY BOOK.                               *   FILE 529
//*      DFHXQS2D   --     COPY BOOK.                               *   FILE 529
//*      DFHXQS3D   --     COPY BOOK.                               *   FILE 529
//*      SMFLST04   --     PROGRAM TO REPORT ON SMF TYPE 04         *   FILE 529
//*                        RECORDS.                                 *   FILE 529
//*      SMFLST06   --     PROGRAM TO REPORT ON SMF TYPE 06         *   FILE 529
//*                        RECORDS.                                 *   FILE 529
//*      SMFLST14   --     PROGRAM TO REPORT ON SMF TYPE 14         *   FILE 529
//*                        RECORDS.                                 *   FILE 529
//*      SMFLST17   --     PROGRAM TO REPORT ON SMF TYPE 17         *   FILE 529
//*                        RECORDS.                                 *   FILE 529
//*      SMFLST18   --     PROGRAM TO REPORT ON SMF TYPE 18         *   FILE 529
//*                        RECORDS.                                 *   FILE 529
//*      SMFLST30   --     PROGRAM TO REPORT ON SMF TYPE 30         *   FILE 529
//*                        RECORDS.                                 *   FILE 529
//*      SMFLST60   --     PROGRAM TO REPORT ON SMF TYPE 60         *   FILE 529
//*                        RECORDS.                                 *   FILE 529
//*      SMFLST64   --     PROGRAM TO REPORT ON SMF TYPE 64         *   FILE 529
//*                        RECORDS.                                 *   FILE 529
//*      SMFLST65   --     PROGRAM TO REPORT ON SMF TYPE 65         *   FILE 529
//*                        RECORDS.                                 *   FILE 529
//*                                                                 *   FILE 529
//***FILE 530 is from Roy Gardiner and is a program written in      *   FILE 530
//*           PL/I to format PL/I programs, so they conform to a    *   FILE 530
//*           site standard.                                        *   FILE 530
//*                                                                 *   FILE 530
//*           Code can be:  indented to a selectable number of      *   FILE 530
//*           columns for DO/END SELECT/END; converted to lower     *   FILE 530
//*           case; comments moved to be more vertically aligned.   *   FILE 530
//*                                                                 *   FILE 530
//*           The code is written in legal PL/I without the use of  *   FILE 530
//*           pointers; it should thus be platform independent.     *   FILE 530
//*                                                                 *   FILE 530
//*           There are two members; some JCL to run the formatter  *   FILE 530
//*           and the formatter source code.  Instructions for      *   FILE 530
//*           parameters to the formatter are in the JCL.           *   FILE 530
//*                                                                 *   FILE 530
//*      Questions:   email   roy@roygardiner.com                   *   FILE 530
//*                                                                 *   FILE 530
//***FILE 531 is from David Stern and contains routines that will   *   FILE 531
//*           detect various OS/390 details.                        *   FILE 531
//*                                                                 *   FILE 531
//*           The exec uses :                                       *   FILE 531
//*                                                                 *   FILE 531
//*           EZASOKET to retrieve details of TCP/IP stack(s).      *   FILE 531
//*            The TCP/IP VRM(s) and operational status(es) are     *   FILE 531
//*            displayed                                            *   FILE 531
//*           TSO LINK against imbedded OBJ text that retrieves     *   FILE 531
//*            the level of Language Environment and output of      *   FILE 531
//*            the CSRSI service (CUOD information). The BAL        *   FILE 531
//*            source is also in this file (OBJSRC)                 *   FILE 531
//*           ISPF/PDF LMDxxxx services to find DSN info based      *   FILE 531
//*            upon a LLQ match (SMP/E 'style')                     *   FILE 531
//*           Rexx STORAGE functions to search the SVC table        *   FILE 531
//*                                                                 *   FILE 531
//*           Some of the internal routines have been used to       *   FILE 531
//*           create separate execs in this file.                   *   FILE 531
//*                                                                 *   FILE 531
//*           Member IGGCSIRX uses the DFSMSdfp Catalog Search      *   FILE 531
//*           Interface to retrieve ICF catalog entries.  The       *   FILE 531
//*           exec is from the IBM sample and catalog diagnostic    *   FILE 531
//*           information is displayed along with the BCS type.     *   FILE 531
//*                                                                 *   FILE 531
//*           The main REXX exec called OSANALZ is in TSO XMIT      *   FILE 531
//*           format, because its actual DCB requirements are       *   FILE 531
//*           LRECL=132,RECFM=FB .  You have to issue a TSO         *   FILE 531
//*           RECEIVE command on this member to get it into its     *   FILE 531
//*           proper format:                                        *   FILE 531
//*                                                                 *   FILE 531
//*             RECEIVE INDS(yourid.FILE531.PDS(OSANALZ))           *   FILE 531
//*                                                                 *   FILE 531
//*           I have also taken the liberty of disassembling        *   FILE 531
//*           David's object deck, which is imbedded in the         *   FILE 531
//*           OSANALZ exec.  David has provided the source, too.    *   FILE 531
//*           So member OBJSRC is David's source, and OBJSRCD is    *   FILE 531
//*           my disassembly of the (supplied) object deck.         *   FILE 531
//*           (S.Golob)                                             *   FILE 531
//*                                                                 *   FILE 531
//*       David Stern                                               *   FILE 531
//*       IONA Technologies plc                                     *   FILE 531
//*       Shelbourne Road                                           *   FILE 531
//*       Dublin 4, Ireland                                         *   FILE 531
//*                                                                 *   FILE 531
//*         mailto:David.Stern@iona.com                             *   FILE 531
//*       Tel (IE): +353 1 6625255 X2519                            *   FILE 531
//*           (US): +1 800 orbix4u                                  *   FILE 531
//*            WWW: http://www.iona.com                             *   FILE 531
//*                                                                 *   FILE 531
//***FILE 532 is from Charles Hottel and contains an extensive      *   FILE 532
//*           collection of Roscoe RPFs.                            *   FILE 532
//*                                                                 *   FILE 532
//*           A detailed description of the use of these RPFs       *   FILE 532
//*           may be found in member $$CBTDOC in this file.         *   FILE 532
//*                                                                 *   FILE 532
//*       email:   chottel@cpcug.org                                *   FILE 532
//*                                                                 *   FILE 532
//***FILE 533 is from Sam Golob, and contains the VTT2TAPE and      *   FILE 533
//*           VTT2DISK programs, in their "free versions".          *   FILE 533
//*                                                                 *   FILE 533
//*           The programs in this package are part of the          *   FILE 533
//*           Virtual Tape Transportation System (VTTS), which      *   FILE 533
//*           is copyrighted (c) 2001 - 2005 by Sam Golob.          *   FILE 533
//*                                                                 *   FILE 533
//*           Copyright notices are present in the source and       *   FILE 533
//*           load modules, but the versions of these programs      *   FILE 533
//*           that are on the CBT Tape, ARE ALLOWED TO BE RUN       *   FILE 533
//*           BY ANYONE, because the copyright holder has given     *   FILE 533
//*           full permission.  The copyright holder retains all    *   FILE 533
//*           ownership rights to the software.                     *   FILE 533
//*                                                                 *   FILE 533
//*           Member M370VTT2 has been added, which contains        *   FILE 533
//*           a version of VTT2TAPE and VTT2DISK which can be       *   FILE 533
//*           assembled using the XF assembler (IFOX00).            *   FILE 533
//*           (This is courtesy of Gerhard Postpischil.)            *   FILE 533
//*                                                                 *   FILE 533
//*           Unless otherwise mentioned, AWS-format "virtual tape" *   FILE 533
//*           files on an MVS system, have been folded over into    *   FILE 533
//*           Fixed Blocked 80-byte record format.  AWS-format      *   FILE 533
//*           files on other systems are just long strings of data. *   FILE 533
//*           This can't happen on MVS--all data has to be blocked  *   FILE 533
//*           on MVS.  So I chose FB-80 blocking for the AWS-format *   FILE 533
//*           and FAKETAPE (TM) format "virtual tape" files on MVS. *   FILE 533
//*                                                                 *   FILE 533
//*           The FAKETAPE file format is a published interface     *   FILE 533
//*           of Fundamental Software Inc. and they say in their    *   FILE 533
//*           documentation that anyone has permission to use the   *   FILE 533
//*           format, although Fundamental Software reserves the    *   FILE 533
//*           right to change the format at any time.               *   FILE 533
//*                                                                 *   FILE 533
//*           FAKETAPE (TM) and FLEX-ES (TM) are registered         *   FILE 533
//*           trademarks of Fundamental Software Inc.               *   FILE 533
//*                                                                 *   FILE 533
//*       Program Names:                                            *   FILE 533
//*                                                                 *   FILE 533
//*           VTT2TAPE - Program to convert AWS-format tape files   *   FILE 533
//*                      to real tapes.  Any CHUNKSIZE is           *   FILE 533
//*                      supported, up to the 65535-byte limit.     *   FILE 533
//*           VTT2DISK - Program to create an AWS-format virtual    *   FILE 533
//*                      tape file from a real tape.  Any           *   FILE 533
//*                      CHUNKSIZE tape can be created.  Default    *   FILE 533
//*                      chunksize is 65535 but that can be either  *   FILE 533
//*                      changed at assembly time, or with a SYSIN  *   FILE 533
//*                      CHUNKSIZE=nnnnn parameter.                 *   FILE 533
//*           VTT2CNVU - Program to convert a VB-format AWS-format  *   FILE 533
//*                      tape (such as the one produced by Brandon  *   FILE 533
//*                      Hill's AWSUTIL program on CBT File 467)    *   FILE 533
//*                      to FB-80 format on MVS, so that VTT2TAPE   *   FILE 533
//*                      can be used subsequently to convert the    *   FILE 533
//*                      data to a real tape.                       *   FILE 533
//*           VTT2T2FK - Like VTT2DISK, except a real tape is       *   FILE 533
//*                      converted to a FAKETAPE (TM) format tape.  *   FILE 533
//*           VTT2FK2T - Like VTT2TAPE, except a FAKETAPE (TM)      *   FILE 533
//*                      tape image, folded over on MVS into FB-80  *   FILE 533
//*                      format, is converted into a real tape.     *   FILE 533
//*                                                                 *   FILE 533
//*           These programs run on an MVS system, and allow        *   FILE 533
//*           real tapes to be converted to disk files, and         *   FILE 533
//*           these disk files, back to real tapes.  These          *   FILE 533
//*           programs do not require a P/390 or a FLEX-ES (TM)     *   FILE 533
//*           system.  ANY MVS system will run these programs!      *   FILE 533
//*                                                                 *   FILE 533
//*           The VTT2DISK program reads a real tape, and           *   FILE 533
//*           converts it to an AWS-format "virtual tape" file      *   FILE 533
//*           on an MVS system, folded over into FB-80 format.      *   FILE 533
//*           VTT2DISK now takes SYSIN input in column 1.           *   FILE 533
//*           Allowed keywords are:                                 *   FILE 533
//*                                                                 *   FILE 533
//*           CHUNKSIZE=nnnn     Default is 65535 if not coded.     *   FILE 533
//*                              This can be changed with an        *   FILE 533
//*                              assembler global variable.         *   FILE 533
//*           NEWVOL=volser   -  Changes the VOLSER on VOL1 label   *   FILE 533
//*           READ            -  Produces READ only run, no AWSOUT  *   FILE 533
//*           IDRCOFF         -  Turns off "data is compressed"     *   FILE 533
//*                              "P" indicators in the tape labels  *   FILE 533
//*                                                                 *   FILE 533
//*           The VTT2TAPE program takes this "folded over" FB-80   *   FILE 533
//*           AWS-format file on an MVS system, and cuts a real     *   FILE 533
//*           tape from it, on a real tape drive.                   *   FILE 533
//*                                                                 *   FILE 533
//*           The VTT2FK2T program does a job similar to the        *   FILE 533
//*           VTT2TAPE program, except that it takes an FB-80       *   FILE 533
//*           folded image of a FLEX-ES FAKETAPE, and cuts a        *   FILE 533
//*           real tape from it, on a real tape drive.  Therefore   *   FILE 533
//*           a FAKETAPE image produced on a FLEX-ES system can     *   FILE 533
//*           be uploaded in BINARY to an FB-80 format disk file    *   FILE 533
//*           ON ANY MVS SYSTEM, and a real tape can be cut from    *   FILE 533
//*           it.                                                   *   FILE 533
//*                                                                 *   FILE 533
//*           And VTT2T2FK creates a FAKETAPE file (folded into     *   FILE 533
//*           FB-80 format) from a real tape.  If this file is      *   FILE 533
//*           downloaded to the server machine on which FLEX-ES     *   FILE 533
//*           is running, FLEX-ES can read this image as though     *   FILE 533
//*           it were a tape.                                       *   FILE 533
//*                                                                 *   FILE 533
//*           The disk files which are in FB-80 folded AWS or       *   FILE 533
//*           FAKETAPE format, can be FTP'ed back to the PC, OS/2   *   FILE 533
//*           or LINUX server, and read by a P/390 or FLEX-ES or    *   FILE 533
//*           HERCULES system as a tape.                            *   FILE 533
//*                                                                 *   FILE 533
//*           See member $VTT2DOC for details.                      *   FILE 533
//*                                                                 *   FILE 533
//*           VTT2TAPE has now been updated to be able to read      *   FILE 533
//*           a folded AWS tape file that has its chunk size        *   FILE 533
//*           smaller than the block size, and to produce a         *   FILE 533
//*           real output tape from it.  Such AWS-format tapes      *   FILE 533
//*           are created by FLEX-ES systems and the old (very      *   FILE 533
//*           very very old) P/390 systems.                         *   FILE 533
//*                                                                 *   FILE 533
//*           And VTT2DISK can now produced a "chunked" AWS tape    *   FILE 533
//*           file from a real tape.  FAKETAPE (TM) architecture    *   FILE 533
//*           does not have provision to produced chunked output    *   FILE 533
//*           (i.e. the tape blocks being divided into smaller      *   FILE 533
//*           pieces, and the blocks being pieced together later).  *   FILE 533
//*                                                                 *   FILE 533
//*           These programs can now be run with PARM=READ in       *   FILE 533
//*           the EXEC card, which is a "READ ONLY" execution       *   FILE 533
//*           that produces reports about the input tape, or        *   FILE 533
//*           disk file.                                            *   FILE 533
//*                                                                 *   FILE 533
//*           PARM=READ will read the AWS or tape inputs, and       *   FILE 533
//*           produce these programs' abundant stats.  If you       *   FILE 533
//*           want to "measure a tape" or an AWS-format tape file   *   FILE 533
//*           on disk, you can use the PARM=READ facility, which    *   FILE 533
//*           doesn't open the output file.  VTT2CNVU does not      *   FILE 533
//*           (yet) support PARM=READ.                              *   FILE 533
//*                                                                 *   FILE 533
//*           PARM=IDRCOFF in VTT2DISK, will turn off the IDRC      *   FILE 533
//*           indicators in VOL1, HDR2, EOF2, and EOV2 labels.      *   FILE 533
//*                                                                 *   FILE 533
//*           The contents of this file, are part of VTTS           *   FILE 533
//*           (Virtual Tape Transportation System), which           *   FILE 533
//*           is copyrighted by Sam Golob, but the versions         *   FILE 533
//*           of the VTTS programs which are in the CBT Tape        *   FILE 533
//*           collection, may be used without charge by anyone,     *   FILE 533
//*           and the copyright owner grants permission.  Same      *   FILE 533
//*           for the VTT2FK2T and VTT2T2FK programs.               *   FILE 533
//*                                                                 *   FILE 533
//*              Sam Golob  -  email:   sbgolob@cbttape.org         *   FILE 533
//*                                                                 *   FILE 533
//*           I've included a free C program from Leland Lucius,    *   FILE 533
//*           called strippad.c (member STRIPPAD), which strips     *   FILE 533
//*           off the padding bytes that VTT2DISK adds to the       *   FILE 533
//*           last FB-80 record on MVS, if it is short.  It seems   *   FILE 533
//*           that when you copy the FB-80 AWS-format disk file     *   FILE 533
//*           back to the PC, Hercules has some problems handling   *   FILE 533
//*           the padding bytes.  The P/390 doesn't.                *   FILE 533
//*                                                                 *   FILE 533
//*              Leland Lucius     email:  llucius@moneygram.com    *   FILE 533
//*                                        llucius@homerow.net      *   FILE 533
//*                                        hackules@digicron.com    *   FILE 533
//*                                                                 *   FILE 533
//***FILE 534 contains the SPACE TSO command from Paul Dion.  This  *   FILE 534
//*           is a very full-featured LSPACE type command which     *   FILE 534
//*           tells you how much free space is on your disk packs.  *   FILE 534
//*                                                                 *   FILE 534
//*      Paul Dion    pdion@canada.com                              *   FILE 534
//*                                                                 *   FILE 534
//*      Fixed for EAV volumes by Ralf Mahler.                      *   FILE 534
//*                   Ralf.Mahler@rewe-group.com                    *   FILE 534
//*                                                                 *   FILE 534
//*      Fixed for large TSO screens and SMS by EWP.                *   FILE 534
//*                                                                 *   FILE 534
//*       This is (yet) another version of the ubiquitous SPACE     *   FILE 534
//*       command that displays DASD volume usage statistics.       *   FILE 534
//*       It can:                                                   *   FILE 534
//*                                                                 *   FILE 534
//*       - cope with DASD devices RESERVEd on other systems        *   FILE 534
//*         without hanging                                         *   FILE 534
//*       - run as a TSO command or batch program                   *   FILE 534
//*       - use EDIF or BRIF to display results                     *   FILE 534
//*       - create machine-readable output (UCB, DCE, LSPACE        *   FILE 534
//*         data, F4DSCB)                                           *   FILE 534
//*       - select devices based on UCB address, Volser,            *   FILE 534
//*         Esoteric or Mount Attribute                             *   FILE 534
//*       - sort results by any of the displayed fields             *   FILE 534
//*                                                                 *   FILE 534
//*       The data presented by the command are:                    *   FILE 534
//*       - UCB address                                             *   FILE 534
//*       - Volser                                                  *   FILE 534
//*       - Device Type                                             *   FILE 534
//*       - Use Attribute                                           *   FILE 534
//*       - Free Trks, Cyls, %                                      *   FILE 534
//*       - Largest Trks, Cyls                                      *   FILE 534
//*       - VTOC Trks, free DSCBs, % free                           *   FILE 534
//*       - VTOC Index status                                       *   FILE 534
//*       - Fragmentation Index                                     *   FILE 534
//*       - SMS Storage Class                                       *   FILE 534
//*       - SMS Volume Status                                       *   FILE 534
//*       - CHPIDs                                                  *   FILE 534
//*                                                                 *   FILE 534
//*         This version of the SPACE command seems to be able      *   FILE 534
//*      to cope with DASD RESERVEd on another system.  This is a   *   FILE 534
//*      non-issue for those installations that have IBM APAR       *   FILE 534
//*      OW48527 installed, which allows the invoker of LSPACE      *   FILE 534
//*      to specify a time-out value (in seconds).  For those       *   FILE 534
//*      installations that do not have the APAR installed, the     *   FILE 534
//*      matter becomes somewhat complicated.                       *   FILE 534
//*                                                                 *   FILE 534
//***FILE 535 is from Deru Sudibyo and contains CCAT, which is a    *   FILE 535
//*           TSO command for dynamic dataset allocation,           *   FILE 535
//*           dataset concatenation, and deconcatenation.           *   FILE 535
//*                                                                 *   FILE 535
//*           CCAT is more flexible, and can do more things,        *   FILE 535
//*           than most programs of this type.                      *   FILE 535
//*                                                                 *   FILE 535
//*           email:   deru.sudibyo@gmail.com                       *   FILE 535
//*                                                                 *   FILE 535
//*           As an alternative, try:                               *   FILE 535
//*                                                                 *   FILE 535
//*           email:  sbgolob@cbttape.org                           *   FILE 535
//*                                                                 *   FILE 535
//*           See new member $$NOTE01 from Sam Golob.               *   FILE 535
//*                                                                 *   FILE 535
//*   SYNTAX:                                                       *   FILE 535
//*                                                                 *   FILE 535
//*   (1)   Perform allocation/deallocation:                        *   FILE 535
//*                                          +-   -+ +-     -+      *   FILE 535
//*         CCAT  F(ddname) DS(datasetname)  | ON  | | MSG   |      *   FILE 535
//*                                          |     | |       |      *   FILE 535
//*                                          | top | | nomsg |      *   FILE 535
//*                                          |     | |       |      *   FILE 535
//*                                          | bot | | emsg  |      *   FILE 535
//*                                          |     | |       |      *   FILE 535
//*                                          | off | | lmsg  |      *   FILE 535
//*                                          +-   -+ +-     -+      *   FILE 535
//*                                                                 *   FILE 535
//*        Option 1.    ON    -   Allocate/concatenate the          *   FILE 535
//*                               specified DSname/DDname.  If      *   FILE 535
//*                               the DDname is already exist,      *   FILE 535
//*                               dataset will be concatenated      *   FILE 535
//*                               on the top of concatenation.      *   FILE 535
//*                                                                 *   FILE 535
//*                     TOP   -   Force to concatenate a dataset    *   FILE 535
//*                               to the top order of existing      *   FILE 535
//*                               concatenation.  If specified      *   FILE 535
//*                               dataset is newly added, this      *   FILE 535
//*                               option is default.                *   FILE 535
//*                                                                 *   FILE 535
//*                     BOT   -   Force to concatenate a dataset    *   FILE 535
//*                               to the bottom order of existing   *   FILE 535
//*                               concatenation.                    *   FILE 535
//*                                                                 *   FILE 535
//*                     OFF   -   Deallocate/deconcatenate the      *   FILE 535
//*                               specified DSname/DDname.          *   FILE 535
//*                                                                 *   FILE 535
//*        Option 2.    MSG   -   Display simple message (default)  *   FILE 535
//*                                                                 *   FILE 535
//*                     NOMSG -   No messages will be displayed     *   FILE 535
//*                               upon completion.                  *   FILE 535
//*                                                                 *   FILE 535
//*                     EMSG  -   Display error messages only.      *   FILE 535
//*                                                                 *   FILE 535
//*                     LMSG  -   Display complete messages         *   FILE 535
//*                               (completion message and the       *   FILE 535
//*                               new concatenation list).          *   FILE 535
//*                                                                 *   FILE 535
//*                                                                 *   FILE 535
//*   (2)   Display current specified DDname concatenation list:    *   FILE 535
//*                                                                 *   FILE 535
//*         CCAT  F(ddname)                                         *   FILE 535
//*                                                                 *   FILE 535
//***FILE 536 is from Deru Sudibyo and contains XDI, which is a     *   FILE 536
//*           combined CA-Xcom and CA-DIspatch solution for Report  *   FILE 536
//*           Distribution Management.                              *   FILE 536
//*                                                                 *   FILE 536
//*           A complete user manual has been included in its       *   FILE 536
//*           original Word 97 format (you download it to a PC      *   FILE 536
//*           in BINARY and then you can read it with Word.)        *   FILE 536
//*           This manual has been virus checked as of the date     *   FILE 536
//*           of distribution, by the current Norton Anti-Virus     *   FILE 536
//*           definitions.  See member $XDIDOC.  I have attempted   *   FILE 536
//*           to convert this documentation to EBCDIC FB-80 text.   *   FILE 536
//*           See member $MANUAL, for the result.    (S.Golob)      *   FILE 536
//*                                                                 *   FILE 536
//*           email:  "Deru Sudibyo" <deru.sudibyo@gmail.com>       *   FILE 536
//*                                                                 *   FILE 536
//***FILE 537 is from Rick Fochtman and contains some macros.       *   FILE 537
//*           Right now, there is an entry and an exit assembler    *   FILE 537
//*           macro, but this collection may expand.                *   FILE 537
//*                                                                 *   FILE 537
//*           email:  sbgolob@cbttape.org                           *   FILE 537
//*                                                                 *   FILE 537
//***FILE 538 is from Jan Jaeger and contains IPL text to IPL ZZSA, *   FILE 538
//*           which is his standalone editor.  This file is         *   FILE 538
//*           oriented to Hercules users, but can be adapted to     *   FILE 538
//*           conventional MVS as well.                             *   FILE 538
//*                                                                 *   FILE 538
//*             email:    jan.jaeger@westnet.com.au                 *   FILE 538
//*                                                                 *   FILE 538
//*       When run under Hercules on a PC, ZZSA is a tool to SEE    *   FILE 538
//*       MVS DASD and its contents, WITHOUT USING AN MVS SYSTEM!   *   FILE 538
//*                                                                 *   FILE 538
//*       - - - - - - - - N  O  T  E - - - - - - - - - - - - - -    *   FILE 538
//*                                                                 *   FILE 538
//*       If you are running Hercules already, you can use ZZSA     *   FILE 538
//*       immediately using a new member of this pds called         *   FILE 538
//*       ZZSAPACK.  ZZSAPACK is a zipped PC file which really      *   FILE 538
//*       is a Hercules, or PC/370 DASD minidisk.  You attach the   *   FILE 538
//*       ZZSA01 file to a Hercules configuration.  Then IPL it.    *   FILE 538
//*       You don't use MVS or z/OS, and you can see the contents   *   FILE 538
//*       of all the DASD in the configuration !!!  The ZZSA01      *   FILE 538
//*       pack is a mini-disk of ONLY ONE CYLINDER.  ZZSA is its    *   FILE 538
//*       IPL text.                                                 *   FILE 538
//*                                                                 *   FILE 538
//*       - - - - - - - - N  O  T  E  - - - - - - - - - - - - - -   *   FILE 538
//*                                                                 *   FILE 538
//*       This new member of this pds called ZZSAPACK was added     *   FILE 538
//*       by Sam Golob.  Download member ZZSAPACK, unzip it, and    *   FILE 538
//*       use it as a one-cylinder 3390 minidisk in a Hercules      *   FILE 538
//*       configuration.  IPL it, to run ZZSA and access all        *   FILE 538
//*       the MVS DASD in the configuration without IPL-ing         *   FILE 538
//*       another operating system.  Or you can attach the pack     *   FILE 538
//*       to a running Hercules configuration and IPL it.           *   FILE 538
//*                                                                 *   FILE 538
//*       Added members ZZSA80Z and ZZSA90Z which are newer         *   FILE 538
//*       versions of IPL-able ONE CYLINDER 3380 and 3390 packs,    *   FILE 538
//*       respectively, that will IPL ZZSA.  These contain this     *   FILE 538
//*       "help" information as dataset SYS1.ZZSA.HELP.  These      *   FILE 538
//*       two members are in zip format, but when you unzip them,   *   FILE 538
//*       they are usable in a Hercules configuration, and you      *   FILE 538
//*       can IPL ZZSA from them.  Remember that ZZSA80Z is a       *   FILE 538
//*       3380, and ZZSA90Z is a 3390.                              *   FILE 538
//*                                                                 *   FILE 538
//*       - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 538
//*                                                                 *   FILE 538
//*       Scenario to look at MVS DASD without MVS.  (Hercules      *   FILE 538
//*       has to be installed on the PC.)                           *   FILE 538
//*                                                                 *   FILE 538
//*       c:\hercules>         (Point to the Hercules executables)  *   FILE 538
//*                                                                 *   FILE 538
//*       Then start Hercules:                                      *   FILE 538
//*                                                                 *   FILE 538
//*       c:\hercules>hercules -f c:\hercconf\config.con            *   FILE 538
//*                                                                 *   FILE 538
//*       Now, in the Hercules window, add pack zzsa01 to the       *   FILE 538
//*       configuration using the attach command.                   *   FILE 538
//*                                                                 *   FILE 538
//*   Command ==> attach 0ab4 3390 c:\dasdtest\zzsa01               *   FILE 538
//*                                                                 *   FILE 538
//*   HHCDA020I c:\dasdtest\zzsa01 cyls=1 heads=15 tracks=15        *   FILE 538
//*                                                   trklen=56832  *   FILE 538
//*                                                                 *   FILE 538
//*       Then, in the Hercules window.....                         *   FILE 538
//*                                                                 *   FILE 538
//*       ipl ab4                                                   *   FILE 538
//*                                                                 *   FILE 538
//*       In your emulator window, where Hercules has started...    *   FILE 538
//*                                                                 *   FILE 538
//*       Type ESC to issue an interrupt, and ZZSA will prompt      *   FILE 538
//*       for a password.  The password is ZZSECRET.  Then you get  *   FILE 538
//*       the following introductory screen:                        *   FILE 538
//*                                                                 *   FILE 538
//*  ZZSAPRIM             Stand Alone Utilities                     *   FILE 538
//*                                                                 *   FILE 538
//*  Option ===>                                                    *   FILE 538
//*                                                                 *   FILE 538
//*      0 ListDev  - List all devices                              *   FILE 538
//*                                                                 *   FILE 538
//*      1 Browse   - Browse dataset or member                      *   FILE 538
//*                                                                 *   FILE 538
//*      2 Edit     - Edit dataset or member                        *   FILE 538
//*                                                                 *   FILE 538
//*      3 ListVTOC - List Volume Table of Contents                 *   FILE 538
//*                                                                 *   FILE 538
//*      4 ListPDS  - List PDS directory                            *   FILE 538
//*                                                                 *   FILE 538
//*      5 DispVol  - Display DASD volume label                     *   FILE 538
//*                                                                 *   FILE 538
//*      6 Dump     - Dump DASD record by CCHHR                     *   FILE 538
//*                                                                 *   FILE 538
//*      7 Zap      - Alter DASD record by CCHHR                    *   FILE 538
//*                                                                 *   FILE 538
//*      X Exit     - Terminate program                             *   FILE 538
//*                                                                 *   FILE 538
//*                                                                 *   FILE 538
//*      You should execute a "0" first, to list all the volumes    *   FILE 538
//*      in the configuration.  Afterward execute whatever other    *   FILE 538
//*      options you want to run.                                   *   FILE 538
//*                                                                 *   FILE 538
//*      From here, you can see what a versatile and useful DASD    *   FILE 538
//*      "look and change" program that ZZSA is.  It is entirely    *   FILE 538
//*      legal, as far as I know, to look at MVS or z/OS DASD       *   FILE 538
//*      using ZZSA, because ZZSA does not belong to IBM, and you   *   FILE 538
//*      have not IPL-ed an IBM operating system.                   *   FILE 538
//*                                                                 *   FILE 538
//***FILE 539 is from Hersch White and contains a REXX exec and     *   FILE 539
//*           a SAS procedure to directly read your SMF data, and   *   FILE 539
//*           determine the recent history of datasets.             *   FILE 539
//*                                                                 *   FILE 539
//*           Hersch White                                          *   FILE 539
//*           whiteh@citifinancial.com                              *   FILE 539
//*           972-652-5071                                          *   FILE 539
//*                                                                 *   FILE 539
//*      This is a mini-app for data center folk which I call       *   FILE 539
//*      "DSNUSAGE:  or Who Did What to This Data Set?"  It         *   FILE 539
//*      reads raw SMF with SAS and looks for all uses of a         *   FILE 539
//*      fully or partially qualified dsname.  Then it lists all    *   FILE 539
//*      jobs/userids/system tasks that opened, renamed,            *   FILE 539
//*      deleted, altered, cataloged or uncataloged that data       *   FILE 539
//*      set or sets.                                               *   FILE 539
//*                                                                 *   FILE 539
//*      That's just the program part.  The mini-app is to roll     *   FILE 539
//*      it out to colleagues so they can do their own searches.    *   FILE 539
//*      Two additional files accomplish this, a REXX exec and a    *   FILE 539
//*      Word document.                                             *   FILE 539
//*                                                                 *   FILE 539
//*      DSNUSAGE  -  REXX exec to invoke SAS program               *   FILE 539
//*                                                                 *   FILE 539
//*      DSNUSAGS  -  SAS program to read the SMF data              *   FILE 539
//*                                                                 *   FILE 539
//*      $WHODUN@  -  Word Document which is a manual               *   FILE 539
//*                                                                 *   FILE 539
//*      $WHODUN   -  Text (FB-80) equivalent of the Word           *   FILE 539
//*                   document                                      *   FILE 539
//*                                                                 *   FILE 539
//*      $WHODUN1  -  Sample output, in XMIT format                 *   FILE 539
//*                                                                 *   FILE 539
//***FILE 540 is from Sam Golob and contains his PARM and SYSIN     *   FILE 540
//*           scanner, adapted from the COPYMODS program in File    *   FILE 540
//*           229 of this tape.  The COPYMODS parm scanner is now   *   FILE 540
//*           a callable service.  So is the program which          *   FILE 540
//*           displays all the option bits, which the parm          *   FILE 540
//*           scanner has set, just so you can check that they've   *   FILE 540
//*           been set correctly.                                   *   FILE 540
//*                                                                 *   FILE 540
//*           Note:  This is a non-reentrant version of PARMCHEK    *   FILE 540
//*                  and a re-entrant program must LINK to it,      *   FILE 540
//*                  to preserve re-entrancy.  (Soon to be fixed,   *   FILE 540
//*                  I hope.)                                       *   FILE 540
//*                                                                 *   FILE 540
//*           This program, called PARMCHEK, will convert keywords  *   FILE 540
//*           in the PARM field of the EXEC card, and in the SYSIN  *   FILE 540
//*           ddname if present, into 5 bytes of bit settings,      *   FILE 540
//*           based on entries in a table.  It is possible to add   *   FILE 540
//*           user code, to handle keywords with values, and an     *   FILE 540
//*           example of such user code is included in the PARMCHEK *   FILE 540
//*           program.                                              *   FILE 540
//*                                                                 *   FILE 540
//*           PARMCHEK can be invoked as a separate CSECT that is   *   FILE 540
//*           linkedited into the calling program, or it may be     *   FILE 540
//*           invoked using a LOAD and BALR 14,15 as a separate     *   FILE 540
//*           program.  A sample program which invokes PARMCHEK     *   FILE 540
//*           with this logic, has been included, and it is called  *   FILE 540
//*           PARMDRVR.                                             *   FILE 540
//*                                                                 *   FILE 540
//*           A sample program to be linkedited with PARMCHEK       *   FILE 540
//*           as a sample driver is included as member PARMLINK.    *   FILE 540
//*                                                                 *   FILE 540
//*           There is also included, a program called SAMPOPTS     *   FILE 540
//*           which can display in the SYSPRINT file, all the       *   FILE 540
//*           options which have been set in the PARM flags,        *   FILE 540
//*           once PARMCHEK has "done its thing", and set its bits. *   FILE 540
//*                                                                 *   FILE 540
//*       Note:  Currently, PARMCHEK is not re-entrant, but         *   FILE 540
//*              it is hoped that this will be fixed shortly.       *   FILE 540
//*                                                                 *   FILE 540
//*     PARMCHEK program description:                               *   FILE 540
//*                                                                 *   FILE 540
//*     PURPOSE: This program converts keywords in a PARM           *   FILE 540
//*              field or in SYSIN, into bit settings that          *   FILE 540
//*              a program can use, to control options in           *   FILE 540
//*              its execution.                                     *   FILE 540
//*                                                                 *   FILE 540
//*              This program can be run as a subroutine            *   FILE 540
//*              which is called, to set up to 5 bytes of           *   FILE 540
//*              bits, up to 40 bits in all, based on the           *   FILE 540
//*              settings of keywords in a table.                   *   FILE 540
//*                                                                 *   FILE 540
//*              This routine makes it easy to put a lot of         *   FILE 540
//*              options into a program.  If you want to            *   FILE 540
//*              add options, or use other words in PARM or         *   FILE 540
//*              SYSIN to call the same options, all you            *   FILE 540
//*              have to do, is to change or add entries in         *   FILE 540
//*              a table.  There is no extra coding to be           *   FILE 540
//*              done.                                              *   FILE 540
//*                                                                 *   FILE 540
//*              Keywords in the PARM or SYSIN areas do not         *   FILE 540
//*              have to be delimited by commas or spaces or        *   FILE 540
//*              anything else.  Although for clarity, I'd          *   FILE 540
//*              certainly recommend that you put commas or         *   FILE 540
//*              spaces between the PARM field keywords.            *   FILE 540
//*              Therefore, I'd also advise that when you           *   FILE 540
//*              design keywords to put into the table to           *   FILE 540
//*              designate options, that you make them              *   FILE 540
//*              significantly different from each other.           *   FILE 540
//*              There is a length field in the table,              *   FILE 540
//*              however, which gives you some more control         *   FILE 540
//*              in this area.                                      *   FILE 540
//*                                                                 *   FILE 540
//*   Note:  In Version 1.3, I added code (if you comment out one   *   FILE 540
//*          line) to optionally require spaces or commas as        *   FILE 540
//*          delimiters between parms.  My intent was not to have   *   FILE 540
//*          the code require delimiters, but if you want them,     *   FILE 540
//*          you can now require them. (SG 05/29/02)                *   FILE 540
//*                                                                 *   FILE 540
//*          In this release, you can now easily code other         *   FILE 540
//*          characters, such as periods or dashes, to be used      *   FILE 540
//*          as delimiting characters for parms.  Just look at      *   FILE 540
//*          the new code, and you'll see that it's easy to do.     *   FILE 540
//*          That code is soon after label PRMNFND in PARMCHEK.     *   FILE 540
//*                                                                 *   FILE 540
//*              From a calling program, it would be possible       *   FILE 540
//*              to call PARMCHEK twice, against two different      *   FILE 540
//*              tables, to set 10 bytes of options, instead        *   FILE 540
//*              of 5 bytes of options, and so forth...             *   FILE 540
//*                                                                 *   FILE 540
//*              This gives you the opportunity of having           *   FILE 540
//*              a tremendous number of options, set by             *   FILE 540
//*              keywords, in your program, without using           *   FILE 540
//*              up valuable "base register space" for such         *   FILE 540
//*              coding.                                            *   FILE 540
//*                                                                 *   FILE 540
//*                                                                 *   FILE 540
//*     METHOD:  Bits, in the 5 bytes of PARMFLGS, are set,         *   FILE 540
//*              from a table, based on assembled defaults.         *   FILE 540
//*              These default settings are then overridden         *   FILE 540
//*              from a scan of words in the PARM field of          *   FILE 540
//*              the EXEC card.                                     *   FILE 540
//*                                                                 *   FILE 540
//*              If a SYSIN DD card is present, its cards           *   FILE 540
//*              are scanned against the table entries, to          *   FILE 540
//*              further override the bit settings which            *   FILE 540
//*              have already been done by the defaults and         *   FILE 540
//*              the PARM field.                                    *   FILE 540
//*                                                                 *   FILE 540
//*              The main purpose of this routine is to set         *   FILE 540
//*              bits from words.  However, if you need some        *   FILE 540
//*              keywords with values, such as (for example)        *   FILE 540
//*              FILELIMIT=69  in your program, you may use         *   FILE 540
//*              the "user code" section of this program            *   FILE 540
//*              to code that stuff in, so that these special       *   FILE 540
//*              keywords can be coded in SYSIN.                    *   FILE 540
//*                                                                 *   FILE 540
//*              Two sample keywords expecting number values:       *   FILE 540
//*              FILELIMIT=nnn  or                                  *   FILE 540
//*              LABELIMIT=mmm                                      *   FILE 540
//*              have been coded here, just to illustrate           *   FILE 540
//*              how the user coding might work.                    *   FILE 540
//*                                                                 *   FILE 540
//*              Search order is:  Defaults, then PARM in           *   FILE 540
//*              the EXEC card, then SYSIN.                         *   FILE 540
//*                                                                 *   FILE 540
//*              As coded here, the FILELIMIT= and                  *   FILE 540
//*              LABELIMIT= keywords in SYSIN have to be in         *   FILE 540
//*              column 1 of the SYSIN cards, and if these          *   FILE 540
//*              "special keywords" are present in a card,          *   FILE 540
//*              the rest of that card is not scanned for           *   FILE 540
//*              the table keywords.                                *   FILE 540
//*                                                                 *   FILE 540
//*              As coded here, the PARMTABL is a separate          *   FILE 540
//*              CSECT, addressable by V-CONs from the              *   FILE 540
//*              PARMCHEK CSECT.                                    *   FILE 540
//*                                                                 *   FILE 540
//*              It would probably be best to invoke the            *   FILE 540
//*              PARMCHEK program as a separate CSECT which         *   FILE 540
//*              is linkedited with the calling program,            *   FILE 540
//*              but it may be LOADed and BALR 14,15 'ed to,        *   FILE 540
//*              and run as a separate program.  (See the           *   FILE 540
//*              PARMDRVR program that is included in this          *   FILE 540
//*              package, as a sample.)                             *   FILE 540
//*                                                                 *   FILE 540
//*      Input:  A fullword containing the address of the           *   FILE 540
//*              saved Register 1 from the calling program,         *   FILE 540
//*              which points to its parms.                         *   FILE 540
//*                                                                 *   FILE 540
//*              A table containing parms, which is coded           *   FILE 540
//*              according to the following rules, and which        *   FILE 540
//*              has entries of 15 bytes apiece.                    *   FILE 540
//*                                                                 *   FILE 540
//*        FORMAT OF THE PARM TABLE                                 *   FILE 540
//*                                                                 *   FILE 540
//*          ONE ENTRY IS 15 BYTES                                  *   FILE 540
//*                                                                 *   FILE 540
//*            1ST BYTE:      LENGTH OF THIS PARM KEYWORD IN HEX    *   FILE 540
//*                           (This is the word which               *   FILE 540
//*                            controls the bit settings.)          *   FILE 540
//*                           (up to and including 8 bytes)         *   FILE 540
//*                                                                 *   FILE 540
//*            2ND BYTE:      X'01' says turn bit flag(s) OFF       *   FILE 540
//*                           X'00' says turn bit flag(s) ON        *   FILE 540
//*                           X'10' set entry as a DEFAULT          *   FILE 540
//*                                                                 *   FILE 540
//*            NEXT 8 BYTES:  PARM NAME - LEFT JUSTIFIED            *   FILE 540
//*                           (This is the word searched on,        *   FILE 540
//*                            in the EXEC PARM and SYSIN           *   FILE 540
//*                            areas.)                              *   FILE 540
//*                                                                 *   FILE 540
//*            NEXT 5 BYTES:  FLAG BIT settings controlled by       *   FILE 540
//*                            this keyword.                        *   FILE 540
//*                                                                 *   FILE 540
//*                           These are the bits which the          *   FILE 540
//*                            keyword will flip on (or off).       *   FILE 540
//*                                                                 *   FILE 540
//*                           You may control multiple bits         *   FILE 540
//*                            using one keyword.  All bits         *   FILE 540
//*                            controlled by this keyword           *   FILE 540
//*                            are coded in this entry field.       *   FILE 540
//*                                                                 *   FILE 540
//*            The table is ended by an entry of X'FF's.            *   FILE 540
//*                                                                 *   FILE 540
//*                                                                 *   FILE 540
//*      Output:  R1 points to a 5-byte area containing the         *   FILE 540
//*               40 switch settings.                               *   FILE 540
//*                                                                 *   FILE 540
//*               Sample code to use PARMCHEK output:               *   FILE 540
//*                                                                 *   FILE 540
//*                        ST    R1,PARMADDR                        *   FILE 540
//*                        USING PARMFLGS,R1                        *   FILE 540
//*               *                                                 *   FILE 540
//*               PARMFLGS DSECT                                    *   FILE 540
//*               PARMFLG1 DS    X                                  *   FILE 540
//*               PARMFLG2 DS    X                                  *   FILE 540
//*               PARMFLG3 DS    X                                  *   FILE 540
//*               PARMFLG4 DS    X                                  *   FILE 540
//*               PARMFLG5 DS    X                                  *   FILE 540
//*                                                                 *   FILE 540
//*                 then ....                                       *   FILE 540
//*                                                                 *   FILE 540
//*                        TM    PARMFLG2,X'04'                     *   FILE 540
//*                        BZ    some location                      *   FILE 540
//*                          ....                                   *   FILE 540
//*                                                                 *   FILE 540
//*               R2 points to the address of a data area           *   FILE 540
//*               containing values generated by this               *   FILE 540
//*               program.  It's address is at label STRTVALU       *   FILE 540
//*               and its length is in the first fullword           *   FILE 540
//*               at STRTVALU.                                      *   FILE 540
//*                                                                 *   FILE 540
//*               R2 is accessed in a similar manner to R1.         *   FILE 540
//*               See the PARMDRVR program for an example           *   FILE 540
//*               illustrating one way in which PARMCHEK            *   FILE 540
//*               may be called.                                    *   FILE 540
//*                                                                 *   FILE 540
//***FILE 541 is from Greg Smith, via the Hercules-390 File List    *   FILE 541
//*           and contains an MVS version of the routines to        *   FILE 541
//*           create CCKD-compressed DASD, and uncompressed DASD.   *   FILE 541
//*                                                                 *   FILE 541
//*    Note:  This file was updated by Christophe Varlet,           *   FILE 541
//*    ----   March 2014, to accommodate larger volumes, with       *   FILE 541
//*           a larger blocksize for the dump files (16384          *   FILE 541
//*           instead of 4096).  I have preserved the original      *   FILE 541
//*           material as members X$CCKDA0, X$CCKDO0, and           *   FILE 541
//*           X$CCKDL0.  Please also see member $$NOTE01 for        *   FILE 541
//*           further details.                                      *   FILE 541
//*                                                                 *   FILE 541
//*    Note:  Christophe Varlet's updated sources can only be       *   FILE 541
//*    ----   ASSEMBLED on z/OS 1.7 and later, but the resulting    *   FILE 541
//*           load modules will RUN on earlier z/OS versions,       *   FILE 541
//*           at least back to 1.4.  The earlier versions of the    *   FILE 541
//*           sources are (of course) still included in this file.  *   FILE 541
//*                                                                 *   FILE 541
//*    Original doc from Greg Smith:                                *   FILE 541
//*                                                                 *   FILE 541
//*           A word about CCKD-compressed DASD:                    *   FILE 541
//*                                                                 *   FILE 541
//*           Under Hercules (the PC-based S/390 hardware           *   FILE 541
//*           emulator which runs under Linux or Windows, and       *   FILE 541
//*           which is FREE....                                     *   FILE 541
//*                                                                 *   FILE 541
//*           DASD is defined to be a PC file, similar to the       *   FILE 541
//*           DASD created for a P/390 to run under OS/2...         *   FILE 541
//*                                                                 *   FILE 541
//*           However, this DASD takes up a lot of disk space.      *   FILE 541
//*           For example, a 3390-3 will take up over 2 gigabytes.  *   FILE 541
//*                                                                 *   FILE 541
//*           But Hercules developers have developed a solution     *   FILE 541
//*           (as of now, this does not work for the P/390)...      *   FILE 541
//*           That is, compressed DASD.  A CCKD-compressed DASD     *   FILE 541
//*           device will run transparently under Hercules, as      *   FILE 541
//*           if it were the full volume, but it usually takes      *   FILE 541
//*           up around a fifth of the original space.  CCKD        *   FILE 541
//*           compression is just a tad less than ZIP, but the      *   FILE 541
//*           disk is still usable AS IS, under Hercules.           *   FILE 541
//*                                                                 *   FILE 541
//*           Here, we have the famous CCKD compression routines    *   FILE 541
//*           which work so well on the PC, and they can be run     *   FILE 541
//*           on a mainframe MVS system.  You can compress a disk   *   FILE 541
//*           pack, port the file to a PC, and run it under         *   FILE 541
//*           Hercules, AS IS, just as if it were on the mainframe. *   FILE 541
//*           This gets a big WOW.....                              *   FILE 541
//*                                                                 *   FILE 541
//*                Greg Smith                                       *   FILE 541
//*                gsmith@nc.rr.com                                 *   FILE 541
//*                                                                 *   FILE 541
//*           This file may be distributed free, but it contains    *   FILE 541
//*           some copyrighted routines, which are subject to       *   FILE 541
//*           whatever conditions are stated in that respective     *   FILE 541
//*           pds member.                                           *   FILE 541
//*                                                                 *   FILE 541
//*           A rexx exec called $$RECV has been submitted by       *   FILE 541
//*           Lionel Dyck, to aid in the TSO RECEIVE of the         *   FILE 541
//*           appropriate members of this pds.                      *   FILE 541
//*                                                                 *   FILE 541
//*                lionel.b.dyck@kp.org                             *   FILE 541
//*                                                                 *   FILE 541
//*                varlet.christophe@orange.fr                      *   FILE 541
//*                                                                 *   FILE 541
//***FILE 542 is from Alastair Gray and contains some handy tools   *   FILE 542
//*           (so far), which are described below.  One is a REXX   *   FILE 542
//*           which is an MCNVTCAT replacement, and the other is    *   FILE 542
//*           a tool to find all the catalog alias names in the     *   FILE 542
//*           system.  There's some more too...                     *   FILE 542
//*                                                                 *   FILE 542
//*           emails:  Alastair.Gray@pmi.com                        *   FILE 542
//*                    famille_gray@freesurf.ch                     *   FILE 542
//*                                                                 *   FILE 542
//*           email :  Robert.Richards@opm.gov                      *   FILE 542
//*                                                                 *   FILE 542
//*      The overview for this PDS                                  *   FILE 542
//*                                                                 *   FILE 542
//*      Here are a number of bits of handy REXX code, the list     *   FILE 542
//*      may well grow as I tidy up some of my REXX library.        *   FILE 542
//*                                                                 *   FILE 542
//*      There are some of samples of using the DFSMS/MVS           *   FILE 542
//*      Catalog Search Interface (CSI). More detail can be         *   FILE 542
//*      found in :                                                 *   FILE 542
//*                                                                 *   FILE 542
//*      DFSMS/MVS - Managing Catalogs - Document Number            *   FILE 542
//*      SC26-4914 Appendix D "Catalog Search Interface User's      *   FILE 542
//*      Guide"                                                     *   FILE 542
//*                                                                 *   FILE 542
//*      The original code was derived from the IBM provided        *   FILE 542
//*      sample in 'SYS1.SAMPLIB(IGGCSIRX)' but has been heavily    *   FILE 542
//*      modified (including correcting the bugs in that code).     *   FILE 542
//*                                                                 *   FILE 542
//*      Hopefully it is now correct and should work as             *   FILE 542
//*      intended.  However as usual, no guarantee is implied.      *   FILE 542
//*                                                                 *   FILE 542
//*      All code is designed for either foreground or background   *   FILE 542
//*      execution.                                                 *   FILE 542
//*                                                                 *   FILE 542
//*      The pieces are as follows :                                *   FILE 542
//*                                                                 *   FILE 542
//*      #DELDUP  - Edit macro to delete duplicate lines            *   FILE 542
//*                                                                 *   FILE 542
//*      #DELNDUP - Edit macro to delete non-duplicate lines        *   FILE 542
//*                                                                 *   FILE 542
//*      ALICOUNT - This simply finds all of the aliases in the     *   FILE 542
//*                 system and gives a count of datasets that       *   FILE 542
//*                 are using them.  Handy for finding all those    *   FILE 542
//*                 redundant aliases cluttering up your            *   FILE 542
//*                 mastercat.                                      *   FILE 542
//*                                                                 *   FILE 542
//*      ALIMAKE  - So you have just disconnected a usercat and     *   FILE 542
//*                 lost all the alises ... Reconnect the catalog   *   FILE 542
//*                 and then run this to get a DEF ALIAS for all    *   FILE 542
//*                 the 'suitable' HLQs in the catalog.             *   FILE 542
//*                                                                 *   FILE 542
//*      BODGECAT - A sample workaround for a LISTDS on an          *   FILE 542
//*                 uncataloged dsn.                                *   FILE 542
//*                                                                 *   FILE 542
//*      CSICODE  - Base CSI code, setup to be modified for other   *   FILE 542
//*                 functions. As provided, it simply lists ALL     *   FILE 542
//*                 entries.                                        *   FILE 542
//*                                                                 *   FILE 542
//*      CSICODEO - Pre-munge version taken before the fullword     *   FILE 542
//*                 code was added for anyone who is running old.   *   FILE 542
//*                                                                 *   FILE 542
//*      CSICODEV - Generates a LISTCAT like output for a VSAM file.*   FILE 542
//*                 Contains most of the CSI VSAM fields.           *   FILE 542
//*                                                                 *   FILE 542
//*      CSITAPES - Stripped down version of above code to simply   *   FILE 542
//*                 list all tape based datasets in the catalogs.   *   FILE 542
//*                                                                 *   FILE 542
//*      DDSCAN   - Search a selected DD in JCL for a particular    *   FILE 542
//*                 member.                                         *   FILE 542
//*                                                                 *   FILE 542
//*      HFSSTAT  - Provide statistics for HFS files prior to the   *   FILE 542
//*                 DSNINFO ISPF service provided at OS/390 V2R10.  *   FILE 542
//*                                                                 *   FILE 542
//*      SCNVTCAT - A replacement for MCNVTCAT, converted and       *   FILE 542
//*                 adapted for use under UNIX by John McKown.      *   FILE 542
//*                 Works exactly like RCNVTCAT under TSO.          *   FILE 542
//*                                                                 *   FILE 542
//*                 See member $$NOTE04 for much detail on John's   *   FILE 542
//*                 changes and adaptations for UNIX.               *   FILE 542
//*                                                                 *   FILE 542
//*                 ALIAS entries fixed by Bob Richards.            *   FILE 542
//*                                                                 *   FILE 542
//*      RCNVTCAT - A replacement for MCNVTCAT.                     *   FILE 542
//*                                                                 *   FILE 542
//*                 This should allow those who are unhappy with    *   FILE 542
//*                 IBMs removal of MCNVTCAT support to feel        *   FILE 542
//*                 'safe'.  It is faster than MCNVTCAT and         *   FILE 542
//*                 (hopefully) provides directly compatible        *   FILE 542
//*                 output.  (Just in case 'anyone' has rolled      *   FILE 542
//*                 their own code to use the MCNVTCAT output).     *   FILE 542
//*                                                                 *   FILE 542
//*                 Also generates RECATALOG statements for PAGE    *   FILE 542
//*                 and SYS1.** clusters.                           *   FILE 542
//*                                                                 *   FILE 542
//*                 Also can be used to compare two catalogs.       *   FILE 542
//*                                                                 *   FILE 542
//*                 Fixed to run under TSO when SWA=ABOVE for       *   FILE 542
//*                 TSUCLASS or JOBCLASS(TSU) in JES2 parms.        *   FILE 542
//*                 See member $SWABOVE in this pds for details.    *   FILE 542
//*                                                                 *   FILE 542
//*                 ALIAS entries fixed by Bob Richards.            *   FILE 542
//*                                                                 *   FILE 542
//*                 Bug fixed at z/OS 1.13 level - Sept 2012.       *   FILE 542
//*                                                                 *   FILE 542
//*      RDA      - An SDSF DA 'replacement' displays various       *   FILE 542
//*                 fields that you would normally see in the SDSF  *   FILE 542
//*                 DA display.                                     *   FILE 542
//*                                                                 *   FILE 542
//*      RINIT    - An SDSF INIT 'replacement' displays various     *   FILE 542
//*                 fields that you would normally see in the SDSF  *   FILE 542
//*                 INIT display.                                   *   FILE 542
//*                                                                 *   FILE 542
//*      SPACE    - Displays SMS pools and allow drill down to      *   FILE 542
//*                 volume/dataset level. Has various extras        *   FILE 542
//*                 including displaying the catalog status of all  *   FILE 542
//*                 datasets on a volume.                           *   FILE 542
//*                                                                 *   FILE 542
//*      SPACENEW - SPACE command enhanced for EAV.                 *   FILE 542
//*                                                                 *   FILE 542
//*      SPACEZ23 - SPACE command enhanced for EAV and z/OS 2.3     *   FILE 542
//*                 and higher.                                     *   FILE 542
//*                                                                 *   FILE 542
//*      SYSINF   - Another system information REXX.                *   FILE 542
//*                 There are others, some are worse and some are   *   FILE 542
//*                 better - this is mine :-)                       *   FILE 542
//*                                                                 *   FILE 542
//*      TABLSTAT - Want to know when all those tables/profile      *   FILE 542
//*                 members in a PDS were created/updated? Well     *   FILE 542
//*                 this will add normal PDS stats to all of the    *   FILE 542
//*                 members matching the detail inside the table/s. *   FILE 542
//*                                                                 *   FILE 542
//*      I have also added MAKEINDX in case anyone is wondering     *   FILE 542
//*      what the point of the strange comments in everything       *   FILE 542
//*      are (and where the $$$INDEX came from).                    *   FILE 542
//*                                                                 *   FILE 542
//*      Have fun and I hope these help someone.                    *   FILE 542
//*                                                                 *   FILE 542
//*      Cheers - Alastair Gray (Consultant Systems Type)           *   FILE 542
//*               Lausanne, Switzerland 22nd November,2002          *   FILE 542
//*                                                                 *   FILE 542
//***FILE 543 is from David Barnard-Brown, and contains REXX        *   FILE 543
//*           execs and an Assembler program, to display system     *   FILE 543
//*           information.                                          *   FILE 543
//*                                                                 *   FILE 543
//*      email:    ext.b_m.barnard-brown@sncf.fr                    *   FILE 543
//*                                                                 *   FILE 543
//*      phone:    03 28 55 62 19    (SNCF : 22 52 19)              *   FILE 543
//*                03 28 55 63 09    (SNCF : 22 53 09)              *   FILE 543
//*                                                                 *   FILE 543
//*      SNCF - DSIV - GL-XL                                        *   FILE 543
//*      Centre Informatique de Lille                               *   FILE 543
//*      Pont de Tournai - 59041 LILLE CEDEX                        *   FILE 543
//*                                                                 *   FILE 543
//*   Short Description:                                            *   FILE 543
//*                                                                 *   FILE 543
//*      I have written some REXX code to display System            *   FILE 543
//*      Information.                                               *   FILE 543
//*                                                                 *   FILE 543
//*      I wrote it initially to verify a system after an IPL,      *   FILE 543
//*      and it grew from there.                                    *   FILE 543
//*                                                                 *   FILE 543
//*      The utility is called 'CHECKSYS'.                          *   FILE 543
//*                                                                 *   FILE 543
//*      It now uses pop-up ISPF panels, an assembler program       *   FILE 543
//*      ('cause I could not do it in REXX) and REXX.               *   FILE 543
//*                                                                 *   FILE 543
//*      I also continued to develop it as a means of               *   FILE 543
//*      understanding how OS/390 holds together and to utilize     *   FILE 543
//*      some of the 'fancier' statements of REXX.                  *   FILE 543
//*                                                                 *   FILE 543
//*      'CHECKSYS' has been verified on OS/390 2.6 and OS/390      *   FILE 543
//*      2.8.  Because I am contracting here in France, some of     *   FILE 543
//*      the characters used to define screen attributes, and       *   FILE 543
//*      used by REXX (! instead of |), may not operate             *   FILE 543
//*      correctly when used elsewhere.                             *   FILE 543
//*                                                                 *   FILE 543
//*      There is one part of this package written in Assembler.    *   FILE 543
//*      It is the member called GETUADDR, to return a UCB          *   FILE 543
//*      address, given a volume name.                              *   FILE 543
//*                                                                 *   FILE 543
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 543
//*                                                                 *   FILE 543
//*      I have broken CHECKSYS up into it's individual             *   FILE 543
//*      compmnents.                                                *   FILE 543
//*                                                                 *   FILE 543
//*      This way, you can call the component directly, or you      *   FILE 543
//*      can still use CHECKSYS.                                    *   FILE 543
//*                                                                 *   FILE 543
//*      The components are:                                        *   FILE 543
//*                                                                 *   FILE 543
//*      APF - list out the current APF.                            *   FILE 543
//*      ASL - simple Address Space monitoring utility.             *   FILE 543
//*      LNK - list out the current Linklist.                       *   FILE 543
//*      LPA - list out the current LPA list                        *   FILE 543
//*      MAP - display Storage Map.                                 *   FILE 543
//*      STR - Display the Storage Usage.                           *   FILE 543
//*      SYS - display the System paramaters.                       *   FILE 543
//*      VER - display the Software Versions.                       *   FILE 543
//*                                                                 *   FILE 543
//*      For example:                                               *   FILE 543
//*                                                                 *   FILE 543
//*      You can call 'TSO LPA' directly, or still use the          *   FILE 543
//*      original CHECKSYS,                                         *   FILE 543
//*                                                                 *   FILE 543
//*      'TSO CHECKSYS LPA' or 'TSO CHECKSYS 5' or just 'TSO        *   FILE 543
//*      CHECKSYS' and select option 5.                             *   FILE 543
//*                                                                 *   FILE 543
//***FILE 544 is material for setting up and running the Stanford   *   FILE 544
//*           University PL360 compiler, prepared by Phil Roberts.  *   FILE 544
//*                                                                 *   FILE 544
//*           We would also like to ackowledge Mark Waterbury, for  *   FILE 544
//*           his good work.  But this stuff was prepared by        *   FILE 544
//*           Phil Roberts.                                         *   FILE 544
//*                                                                 *   FILE 544
//*      email:   opplr@hotmail.com                                 *   FILE 544
//*                                                                 *   FILE 544
//*      Included are:  PL360 procs, to compile and run PL360.      *   FILE 544
//*                     PL360 source code.                          *   FILE 544
//*                     PL360 load library, in TSO XMIT format.     *   FILE 544
//*                                                                 *   FILE 544
//*      See also, the Stanford PL360 EBCDIC compiler distribution  *   FILE 544
//*      which is on File 545.                                      *   FILE 544
//*                                                                 *   FILE 544
//***FILE 545 is the Stanford University EBCDIC distribution file   *   FILE 545
//*           for PL360, and is unchanged from their file, except   *   FILE 545
//*           for the following:                                    *   FILE 545
//*                                                                 *   FILE 545
//*           1- I have disassembled the two object decks to        *   FILE 545
//*              create source, as two extra members.               *   FILE 545
//*                                                                 *   FILE 545
//*           2- The EBCDIC version of the manual was FBA-133,      *   FILE 545
//*              and to fit it on this pds, I have loaded it into   *   FILE 545
//*              an FB-133 pds and put it into TSO XMIT format,     *   FILE 545
//*              as member MANUAL.                                  *   FILE 545
//*                                                                 *   FILE 545
//*           Otherwise, this pds contains the Stanford University  *   FILE 545
//*           EBCDIC distribution of PL360, unchanged.              *   FILE 545
//*                                                                 *   FILE 545
//*           Please refer to File 544 from Phil Roberts, for       *   FILE 545
//*           more information about setting up and implementing    *   FILE 545
//*           PL360.                                                *   FILE 545
//*                                                                 *   FILE 545
//*           Questions:  email Sam Golob - sbgolob@cbttape.org     *   FILE 545
//*                                                                 *   FILE 545
//*                       or Phil Roberts - opplr@hotmail.com       *   FILE 545
//*                                                                 *   FILE 545
//***FILE 546 is from the Stanford University FTP files, and        *   FILE 546
//*           contains the first of five books about the PL360      *   FILE 546
//*           language, in PDF format.  To read this file, you      *   FILE 546
//*           have to download (in binary) member PL360B01 to a     *   FILE 546
//*           PC, and use the Adobe Acrobat reader to read it.      *   FILE 546
//*                                                                 *   FILE 546
//*           I think the books are too large, in PDF format,       *   FILE 546
//*           to be kept here.  In printable EBCDIC, they will      *   FILE 546
//*           not be too large.                                     *   FILE 546
//*                                                                 *   FILE 546
//*           This file is just a place holder, so if and when      *   FILE 546
//*           I am able to convert these manuals into printable     *   FILE 546
//*           EBCDIC format for the MVS machine, they will be       *   FILE 546
//*           placed here.  To find out the current location of     *   FILE 546
//*           these manuals in PDF format, available for download,  *   FILE 546
//*           see File 544, member $$$NOTE1.    (SG-1/02)           *   FILE 546
//*                                                                 *   FILE 546
//*     Questions:  Please email Sam Golob, sbgolob@cbttape.org     *   FILE 546
//*                                                                 *   FILE 546
//***FILE 547 is from Volker Bandke, who has pioneered the easy     *   FILE 547
//*           setup of a Hercules Turnkey MVS system that runs      *   FILE 547
//*           free MVS 3.8J on your PC at home or at work.          *   FILE 547
//*                                                                 *   FILE 547
//*           This file of software has tools and JCL, and other    *   FILE 547
//*           stuff (such as the CMD Subsystem utilities) which     *   FILE 547
//*           run on MVS 3.8J, under Hercules, or a later MVS,      *   FILE 547
//*           to supplement Volker's Turnkey System.                *   FILE 547
//*                                                                 *   FILE 547
//*           -------------------------------------------------     *   FILE 547
//*                                                                 *   FILE 547
//*            MVS on your PC - Turnkey MVS System Utilities        *   FILE 547
//*                                                                 *   FILE 547
//*              Fortune Cookies, R2D2, and other goodies           *   FILE 547
//*                                                                 *   FILE 547
//*           -------------------------------------------------     *   FILE 547
//*                                                                 *   FILE 547
//*           In case you don't know yet, Hercules is a freeware    *   FILE 547
//*           hardware emulator which allows you to run any flavor  *   FILE 547
//*           of MVS, VM, VSE, LINUX/390, or anything else which    *   FILE 547
//*           runs on S/390 hardware, ON YOUR PC AT HOME....        *   FILE 547
//*                                                                 *   FILE 547
//*           Of course, if you can't run an operating system       *   FILE 547
//*           because of licensing restrictions, at least, you      *   FILE 547
//*           can run free old versions of MVS, VM, or DOS/VS.      *   FILE 547
//*                                                                 *   FILE 547
//*           That's what Volker's Turnkey MVS system makes it      *   FILE 547
//*           easy to do.  Volker already did a Full SYSGEN, and    *   FILE 547
//*           has set up a completely configured MVS system, which  *   FILE 547
//*           you can load up and run on your PC, just by answering *   FILE 547
//*           a few questions.  Setup time is a few minutes, and    *   FILE 547
//*           certainly less than half an hour.  Volker's Turnkey   *   FILE 547
//*           MVS 3.8J system cd-rom is available for ordering,     *   FILE 547
//*           at:                                                   *   FILE 547
//*                                                                 *   FILE 547
//*               http://www.cbttape.org                            *   FILE 547
//*                                                                 *   FILE 547
//*           Volker Bandke's email:                                *   FILE 547
//*               "Volker Bandke" <vbandke@bsp-gmbh.com>            *   FILE 547
//*                                                                 *   FILE 547
//*           - - - - - - - - - - - - - - - - - - - - - - - - -     *   FILE 547
//*                                                                 *   FILE 547
//*           This file contains five main members:                 *   FILE 547
//*                                                                 *   FILE 547
//*           ASM       -  IEBUPDTE (PDSLOAD) sequentialized PDS    *   FILE 547
//*                        This member contains some wonderful      *   FILE 547
//*                        programs, such as Volker's "Wisdom from  *   FILE 547
//*                        the Fortune Cookie Jar".  Also, it has a *   FILE 547
//*                        program to syntax check the APF Parmlib  *   FILE 547
//*                        members and a bunch of other useful      *   FILE 547
//*                        programs.                                *   FILE 547
//*                                                                 *   FILE 547
//*   Contents of ASM member:                                       *   FILE 547
//*                                                                 *   FILE 547
//*   I think 1973 translates to 2001, and 1974 to 2002.  (SG)      *   FILE 547
//*                                                                 *   FILE 547
//*   BRODSCAN           80.01  1974/03/23  1974/03/23 16:56   439  *   FILE 547
//*   BSPAPFCK           80.10  1974/01/08  1974/02/06 19:48   551  *   FILE 547
//*   BSPAPFLS           80.29  1974/03/23  1974/03/24 10:17   624  *   FILE 547
//*   BSPFCOOK           80.37  1974/01/23  2002/03/24 11:14   369  *   FILE 547
//*   BSPFCOO1                                                      *   FILE 547
//*   BSPFCOO2                                                      *   FILE 547
//*   BSPFCOO3                                                      *   FILE 547
//*   BSPFCOO4                                                      *   FILE 547
//*   BSPOSCMD           80.00  1974/03/23  1974/03/23 16:07   586  *   FILE 547
//*   BSPPA2SI           80.00  1974/03/23  1974/03/23 16:07   557  *   FILE 547
//*   BSPPILOT           80.29  1974/02/06  1974/03/24 10:05   530  *   FILE 547
//*   BSPRUNSC           80.69  1974/01/31  1974/03/24  6:25  1295  *   FILE 547
//*   BSPSETPF           80.93  1974/01/08  1974/03/24  6:28  1514  *   FILE 547
//*   BSPVTMWT           80.01  1974/02/07  1974/02/07 13:39    98  *   FILE 547
//*   DELAY              80.01  1974/03/23  1974/03/23 16:56   110  *   FILE 547
//*   IEECVXIT           80.22  1974/01/20  1974/02/07  9:44   648  *   FILE 547
//*   IEFACTRT                                                      *   FILE 547
//*   IKJEFTE2           80.00  1974/01/01  1974/01/01 16:24    18  *   FILE 547
//*   MOVELOAD           80.01  1974/03/23  1974/03/23 16:58   235  *   FILE 547
//*   REQUEUE            80.01  1974/03/23  1974/03/23 16:59   144  *   FILE 547
//*   TAPEHDR            80.04  1974/03/23  1974/03/23 18:08   460  *   FILE 547
//*                                                                 *   FILE 547
//*           CNTL      -  IEBUPDTE (PDSLOAD) sequentialized PDS    *   FILE 547
//*                        This PDS contains members needed to      *   FILE 547
//*                        set up the software packages and         *   FILE 547
//*                        programs that are in the other PDS'es    *   FILE 547
//*                        (which are members in this file).        *   FILE 547
//*                                                                 *   FILE 547
//*           MACLIB    -  IEBUPDTE (PDSLOAD) sequentialized PDS    *   FILE 547
//*                        Volker's Maclib - needed for ASM         *   FILE 547
//*                                                                 *   FILE 547
//*   Contents of MACLIB member:                                    *   FILE 547
//*                                                                 *   FILE 547
//*   $TITLE                                                        *   FILE 547
//*   @                                                             *   FILE 547
//*   BLANK                                                         *   FILE 547
//*   BOX                                                           *   FILE 547
//*   BSPAUTH            80.02  1974/01/23  1974/01/23 14:04    21  *   FILE 547
//*   BSPBEG                                                        *   FILE 547
//*   BSPEND                                                        *   FILE 547
//*   BSPENTER           80.00  1974/01/07  1974/01/07 22:57   138  *   FILE 547
//*   BSPGLBLS           80.00  1974/01/23  1974/01/23 14:02     7  *   FILE 547
//*   BSPPATCH                                                      *   FILE 547
//*   BSPRET             80.00  1974/01/08  1974/01/08 17:09    40  *   FILE 547
//*   BSPSGLBL           80.00  1974/01/23  1974/01/23 14:03     6  *   FILE 547
//*   DBGMSG             80.01  1974/01/29  1974/01/29 12:57    14  *   FILE 547
//*   DO                 80.03  1974/01/21  1974/01/24 15:11   157  *   FILE 547
//*   ELSE               80.00  1974/01/24  1974/01/24 15:11    53  *   FILE 547
//*   ELSEIF             80.00  1974/01/24  1974/01/24 15:12    89  *   FILE 547
//*   ENDDO              80.00  1974/01/24  1974/01/24 15:12    66  *   FILE 547
//*   ENDIF              80.00  1974/01/24  1974/01/24 15:12    53  *   FILE 547
//*   EXIT               80.00  1974/01/24  1974/01/24 15:13    68  *   FILE 547
//*   FC                 80.00  1974/01/23  1974/01/23 21:43    18  *   FILE 547
//*   FILL                                                          *   FILE 547
//*   IEECODES           80.01  1974/01/16  1974/01/16 21:11    40  *   FILE 547
//*   IF                 80.00  1974/01/24  1974/01/24 15:13    83  *   FILE 547
//*   IFERR                                                         *   FILE 547
//*   IFGLO                                                         *   FILE 547
//*   IFPRO                                                         *   FILE 547
//*   IHAIQE             80.01  1974/01/18  1974/01/18 13:08    24  *   FILE 547
//*                                                                 *   FILE 547
//*           LOAD      -  Load Library in TSO XMIT format          *   FILE 547
//*                                                                 *   FILE 547
//*   Contents of LOAD member:                                      *   FILE 547
//*                                                                 *   FILE 547
//*   BRODSCAN                   1974/03/24                         *   FILE 547
//*   BSPAPFCK                   1974/03/24                         *   FILE 547
//*   BSPAPFLS                   1974/03/24                         *   FILE 547
//*   BSPFCOOK                   1974/03/24 REFR RENT               *   FILE 547
//*   BSPOSCMD                   1974/03/24 REFR RENT               *   FILE 547
//*   BSPPA2SI                   1974/03/24 REFR RENT               *   FILE 547
//*   BSPPILOT                   1974/03/24                         *   FILE 547
//*   BSPRUNSC                   1974/03/24 REFR RENT               *   FILE 547
//*   BSPSETPF                   1974/03/24                         *   FILE 547
//*   BSPVTMWT                   1974/03/23                     AC  *   FILE 547
//*   CBT973                     1974/03/17                         *   FILE 547
//*   COOKIE            *ALIAS   1974/03/24 REFR RENT  BSPFCOOK     *   FILE 547
//*   DELAY                      1974/03/24                         *   FILE 547
//*   DISKMAP                    1974/02/07                     AC  *   FILE 547
//*   DISKMAPA                   1974/02/07                     AC  *   FILE 547
//*   FCOOKIE           *ALIAS   1974/03/24 REFR RENT  BSPFCOOK     *   FILE 547
//*   FORTUNE           *ALIAS   1974/03/24 REFR RENT  BSPFCOOK     *   FILE 547
//*   MOVELOAD                   1974/03/24                     AC  *   FILE 547
//*   MOVELOD           *ALIAS   1974/03/24            MOVELOAD AC  *   FILE 547
//*   MURPHY            *ALIAS   1974/03/24 REFR RENT  BSPFCOOK     *   FILE 547
//*   REQUEUE                    1974/03/24                     AC  *   FILE 547
//*   SMPTFSEL                   1974/03/24                         *   FILE 547
//*   TAPEHDR                    1974/03/24                         *   FILE 547
//*                                                                 *   FILE 547
//*           CMDSBSYS  -  CMD Subsystem Load Modules in TSO XMIT   *   FILE 547
//*                        format                                   *   FILE 547
//*                                                                 *   FILE 547
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - - -     *   FILE 547
//*                                                                 *   FILE 547
//*      I have fixed a few bugs in the collection, and provided    *   FILE 547
//*      a few more utilities.  The new utilities included are:     *   FILE 547
//*                                                                 *   FILE 547
//*      BSPAPFLS - List the APF datasets.  This is also            *   FILE 547
//*                 integrated into BSPILOT                         *   FILE 547
//*      BSPOSCMD - Run OS commands from batch or STC               *   FILE 547
//*      BSPPA2SI - JCL PARM to SysIn processor, takes JCL parm     *   FILE 547
//*                 and makes it available in dataset for next      *   FILE 547
//*                 step                                            *   FILE 547
//*      MOVELOAD - Preload IEHMOVE modules for improved            *   FILE 547
//*                 performance                                     *   FILE 547
//*      REQUEUE  - requeue current job for later re-execution      *   FILE 547
//*      BRODSCAN - Analyse SYS1.BRODCAST                           *   FILE 547
//*      DELAY    - Lets job wait for a specified time              *   FILE 547
//*      TAPEHDR  - display tape label info                         *   FILE 547
//*                                                                 *   FILE 547
//*      The modules beginning with BSP.. have been written by      *   FILE 547
//*      me, whereas the others were sent to me by        .         *   FILE 547
//*      somitcw@yahoo.com for inclusion in the Turnkey System.     *   FILE 547
//*                                                                 *   FILE 547
//***FILE 548 is from Alfred Nikolyn and contains some REXX         *   FILE 548
//*           functions, which are especially useful in disk        *   FILE 548
//*           shadowing environments, but which are useful in       *   FILE 548
//*           general.                                              *   FILE 548
//*                                                                 *   FILE 548
//*      These REXX functions were written as supplements for       *   FILE 548
//*      managing PPRC volume pairs.  They will be useful for HDS   *   FILE 548
//*      ShadowImage environments.                                  *   FILE 548
//*                                                                 *   FILE 548
//*      Contact Alfred Nykolyn   apn@istar.ca for any problems     *   FILE 548
//*                                                                 *   FILE 548
//*      RXSIQRY  Returns the state of a PPRC pair                  *   FILE 548
//*               status = RXSIQRY(devN)                            *   FILE 548
//*               States are SIMPLEX, PENDING, DUPLEX, SUSPEND      *   FILE 548
//*                                                                 *   FILE 548
//*      RXV2DEV  Returns the device number of a specified volume   *   FILE 548
//*               devN   = RXV2DEV(VolSer)                          *   FILE 548
//*                                                                 *   FILE 548
//*      RXSLEEP  Sleeps for a specified time                       *   FILE 548
//*                  y   = RXSLEEP(wait)                            *   FILE 548
//*               Another sleep routine using STIMERM.              *   FILE 548
//*               Contrary to popular belief, it is impossible to   *   FILE 548
//*               escape from the wait by trapping the attention    *   FILE 548
//*               with a STAX. The attention exit gains control     *   FILE 548
//*               after the wait time has expired.  This could be   *   FILE 548
//*               done by using multiple TCB's and some tricky      *   FILE 548
//*               logic.  But this is just too complicated.         *   FILE 548
//*                                                                 *   FILE 548
//*      RXWTO    Issue a message to the operator                   *   FILE 548
//*                  y   = RXWTO('Your message')                    *   FILE 548
//*                                                                 *   FILE 548
//*      $ASMCL   JCL to build these functions                      *   FILE 548
//*                                                                 *   FILE 548
//***FILE 549 is from Mark Baron, and contains a program and an     *   FILE 549
//*           ISPF dialog to display Unit Names.                    *   FILE 549
//*                                                                 *   FILE 549
//*        Contents of this file -                                  *   FILE 549
//*                                                                 *   FILE 549
//*         1-UNITNAM$ - JCL to assemble and link the UNITNAME      *   FILE 549
//*                      program                                    *   FILE 549
//*         2-UNITNAME - Source Code for UNITNAME                   *   FILE 549
//*         3-UNITS    - REXX EXEC to drive the ISPF dialog         *   FILE 549
//*         4-XUNITS   - Main panel for the dialog                  *   FILE 549
//*                                                                 *   FILE 549
//*        email: MSBaron@optonline.net                             *   FILE 549
//*                                                                 *   FILE 549
//*   The program has been tested on OS/390 V2R10 and z/OS V1R3.    *   FILE 549
//*   But, as the unit verification service has been around since   *   FILE 549
//*   ESA days and the EDTINFO since OS/390 V2R6 (or earlier) there *   FILE 549
//*   is no reason why the program won't work on version 2.6 and    *   FILE 549
//*   above.                                                        *   FILE 549
//*                                                                 *   FILE 549
//*   (It said I needed Windows 98 or better so I got z/OS)         *   FILE 549
//*                                                                 *   FILE 549
//***FILE 550 is the Structured Assembler Macros collection from    *   FILE 550
//*           Dan Snyder.  If you have been tempted to use the      *   FILE 550
//*           IBM HLASM Toolkit set of structured macros, but you   *   FILE 550
//*           were afraid that you'd have to assemble your code     *   FILE 550
//*           in a place that wasn't licensed for the Toolkit,      *   FILE 550
//*           then you might try these macros as an alternative.    *   FILE 550
//*                                                                 *   FILE 550
//*           These macros (IF, DO, etc) are not interchangeable    *   FILE 550
//*           with the IBM macros from the HLASM toolkit.  You      *   FILE 550
//*           either use ALL THESE, or ALL THEIRS, but don't mix    *   FILE 550
//*           them....                                              *   FILE 550
//*                                                                 *   FILE 550
//*           The advantage of using this set of structured macros  *   FILE 550
//*           is that they are FREE and that they offer a powerful  *   FILE 550
//*           method of nesting conditions. You can assemble with   *   FILE 550
//*           them at any site....                                  *   FILE 550
//*                                                                 *   FILE 550
//*           For support, you may contact the author, Dan Snyder,  *   FILE 550
//*           at:                                                   *   FILE 550
//*                                                                 *   FILE 550
//*           email:   dsnyder@elektro.cmhnet.org                   *   FILE 550
//*                    Dan_Snyder@stercomm.com                      *   FILE 550
//*                                                                 *   FILE 550
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - -       *   FILE 550
//*                                                                 *   FILE 550
//*     Names of the macros in the Structured Macro Set:            *   FILE 550
//*                                                                 *   FILE 550
//*         AFTER    BEGTEST  DO       DOCUMENT DOEXIT              *   FILE 550
//*         ELSE     ELSEDO   ELSEIF   ENDAFTER ENDELSE             *   FILE 550
//*         ENDEVERY ENDFIRST ENDIF    ENDO     ENDTEST             *   FILE 550
//*         EVERY    EXECUTE  FIRST    IF       THENDO              *   FILE 550
//*                                                                 *   FILE 550
//*      and the auxiliary copy member to assist these:             *   FILE 550
//*                                                                 *   FILE 550
//*         $GBLDEF                                                 *   FILE 550
//*                                                                 *   FILE 550
//***FILE 551 is from Martin Leist and contains two exits which     *   FILE 551
//*           control which TSO users are allowed to use the        *   FILE 551
//*           CONSOLE TSO command.                                  *   FILE 551
//*                                                                 *   FILE 551
//*           Martin.leist.itex@norfolk.gov.uk                      *   FILE 551
//*                                                                 *   FILE 551
//*    Description of the Exits:                                    *   FILE 551
//*                                                                 *   FILE 551
//*      IKJCNXCI - CONSPROF command initialization exit.           *   FILE 551
//*                                                                 *   FILE 551
//*        Allow selected TSO users to use the CONSOLE              *   FILE 551
//*        command.                                                 *   FILE 551
//*                                                                 *   FILE 551
//*        This routine sets required fields in the TSO             *   FILE 551
//*        parameter list to allow selected users to use the        *   FILE 551
//*        CONSOLE command while TOP SECRET support for this        *   FILE 551
//*        feature is not available.                                *   FILE 551
//*                                                                 *   FILE 551
//*        This routine allows the use of the CONSOLE command       *   FILE 551
//*        for selected users. If the user has the OPERATOR         *   FILE 551
//*        command authority, then it is assummed that the          *   FILE 551
//*        user can have CONSOLE authority and the relevant         *   FILE 551
//*        bytes passed in the parameter list are set so that       *   FILE 551
//*        the user is allowed to use the CONSOLE command.          *   FILE 551
//*        The TSO exit IKJCNXAC for the CONSOLE  command           *   FILE 551
//*        must also be implemented in a similar manner.            *   FILE 551
//*                                                                 *   FILE 551
//*      IKJCNXAC - CONSOLE command activation exit.                *   FILE 551
//*                                                                 *   FILE 551
//*        Allow selected TSO users to use the CONSOLE              *   FILE 551
//*        command.                                                 *   FILE 551
//*                                                                 *   FILE 551
//*        This routine sets required fields in the TSO             *   FILE 551
//*        parameter list to allow selected users to use the        *   FILE 551
//*        CONSOLE command while TOP SECRET support for this        *   FILE 551
//*        feature is not available.                                *   FILE 551
//*                                                                 *   FILE 551
//*        This routine allows the use of the CONSOLE command       *   FILE 551
//*        for selected users. If the user has the OPERATOR         *   FILE 551
//*        command authority, then it is assummed that the          *   FILE 551
//*        user can have CONSOLE authority and the relevant         *   FILE 551
//*        bytes passed in the parameter list are set so that       *   FILE 551
//*        the user is allowed to use the CONSOLE command.          *   FILE 551
//*        The TSO exit IKJCNXCI for the CONSPROF command           *   FILE 551
//*        must also be implemented in a similar manner.            *   FILE 551
//*                                                                 *   FILE 551
//*                                                                 *   FILE 551
//*                                                                 *   FILE 551
//*                                                                 *   FILE 551
//*                                                                 *   FILE 551
//*                                                                 *   FILE 551
//*                                                                 *   FILE 551
//*                                                                 *   FILE 551
//*                                                                 *   FILE 551
//*                                                                 *   FILE 551
//*                                                                 *   FILE 551
//*                                                                 *   FILE 551
//*                                                                 *   FILE 551
//*                                                                 *   FILE 551
//*                                                                 *   FILE 551
//***FILE 552 is from Marc Manuel, and contains a COBOL 2 and       *   FILE 552
//*           COBOL/MVS analysis program.  This program will list   *   FILE 552
//*           the compile options of COBOL load modules.            *   FILE 552
//*                                                                 *   FILE 552
//*           email:  "MANUMAN" <manuman@club-internet.fr>          *   FILE 552
//*                                                                 *   FILE 552
//***FILE 553 is from David Alcock and contains a sophisticated     *   FILE 553
//*           edit macro, written in Assembler, for submitting      *   FILE 553
//*           jobs from TSO.  There are many bells and whistles     *   FILE 553
//*           in this program, and especially if you need to enter  *   FILE 553
//*           passwords from within a jobstream, this program is    *   FILE 553
//*           worth looking into.                                   *   FILE 553
//*                                                                 *   FILE 553
//*           email:   dave@planetmvs.com                           *   FILE 553
//*                                                                 *   FILE 553
//*     Edit macro that submits the member (or selected lines).     *   FILE 553
//*     and does inserts of passwords and translates of system      *   FILE 553
//*     symbolics.                                                  *   FILE 553
//*                                                                 *   FILE 553
//*     SUBMITC is NOT robust.  It was designed for specific        *   FILE 553
//*     types of jobstreams, not every possibility is supported.    *   FILE 553
//*     Your mileage may vary.                                      *   FILE 553
//*                                                                 *   FILE 553
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - - -     *   FILE 553
//*                                                                 *   FILE 553
//*     Information on the SUBMITC ISPF edit macro - 2002-02-15     *   FILE 553
//*     -------------------------------------------------------     *   FILE 553
//*                                                                 *   FILE 553
//*     SUBMITC is an ISPF edit macro that submits the file (or     *   FILE 553
//*     selected lines) to the JES2/JES3 internal reader.           *   FILE 553
//*                                                                 *   FILE 553
//*     Oh big deal you say, but wait there's more:                 *   FILE 553
//*                                                                 *   FILE 553
//*     Passwords:                                                  *   FILE 553
//*     ---------                                                   *   FILE 553
//*     When reading the input, it looks for certain password       *   FILE 553
//*     locations in the jobsteam and prompts you for them so       *   FILE 553
//*     you don't have keep passwords in datasets (bad) and         *   FILE 553
//*     don't have to remember to cancel out or change the          *   FILE 553
//*     password before saving.                                     *   FILE 553
//*                                                                 *   FILE 553
//*     Passwords are specifed as "?" and are only looked for in    *   FILE 553
//*     specific locations. See Process_Line for more details.      *   FILE 553
//*                                                                 *   FILE 553
//*     Passwords are put into the jobstream asis (mixed case)      *   FILE 553
//*     except for jobcard passwords which are folded to            *   FILE 553
//*     uppercase.                                                  *   FILE 553
//*                                                                 *   FILE 553
//*     For passwords on the jobcard, USER= and PASSWORD= must      *   FILE 553
//*     be on the same line and in that order.  In this case, I     *   FILE 553
//*     will append a comma after the password if found in the      *   FILE 553
//*     input stream otherwise I just overlay password beginning    *   FILE 553
//*     at the question mark.                                       *   FILE 553
//*                                                                 *   FILE 553
//*     You must leave enough room after the "?" where the          *   FILE 553
//*     password is to go because it is *assumed* the jobstream     *   FILE 553
//*     was prepped for SUBMITC usage.                              *   FILE 553
//*                                                                 *   FILE 553
//*     Usually you will need to put an exclamation point before    *   FILE 553
//*     SUBMITC so ISPF will find it.  For example:                 *   FILE 553
//*                                                                 *   FILE 553
//*     EDIT       IBMUSER.IN.CNTL(TCPFTP)                          *   FILE 553
//*     Command ===> !SUBMITC                                       *   FILE 553
//*     ****** ********************************                     *   FILE 553
//*     000001 //IBMUSERF  JOB  (ACCT#),'MY NAM                     *   FILE 553
//*                                                                 *   FILE 553
//*     An allocation to the JES INTRDR is dynamically allocated    *   FILE 553
//*     and SUBMITC writes directly from the ISPF line variables    *   FILE 553
//*     to the JES input queue.  We do NOT write any data to a      *   FILE 553
//*     DASD dataset (unlike IBM's ISPF submit). WHO HA!            *   FILE 553
//*                                                                 *   FILE 553
//*     Sample jobstream showing the passwords we try to detect     *   FILE 553
//*     and change:                                                 *   FILE 553
//*                                                                 *   FILE 553
//*       //IBMUSERF  JOB  (ACCT#),'MY NAME HERE',                  *   FILE 553
//*       //          USER=IBMUSER,PASSWORD=?,                 (1)  *   FILE 553
//*       //          MSGCLASS=X,CLASS=U                            *   FILE 553
//*       //*                                                       *   FILE 553
//*       //PS0130  EXEC PGM=FTP,PARM='FIREWALL (EXIT TI 720'       *   FILE 553
//*       //NETRC     DD *                                          *   FILE 553
//*       MACHINE FIREWALL LOGIN ibmuser PASSWORD ?            (2)  *   FILE 553
//*       //SYSPRINT  DD SYSOUT=*                                   *   FILE 553
//*       //OUTPUT    DD SYSOUT=*                                   *   FILE 553
//*       //INPUT     DD *                                          *   FILE 553
//*       user bozo@clown.net                                  (3)  *   FILE 553
//*       ?                                                    (3)  *   FILE 553
//*       dir                                                       *   FILE 553
//*       quit                                                      *   FILE 553
//*                                                                 *   FILE 553
//*       (1) USER=user,PASSWORD=?  on the jobcard                  *   FILE 553
//*       (2) Instream machine statements in //NETRC file           *   FILE 553
//*       (3) Instream user statements followed by ? in //INPUT     *   FILE 553
//*           file                                                  *   FILE 553
//*                                                                 *   FILE 553
//*     Symbols                                                     *   FILE 553
//*     -------                                                     *   FILE 553
//*     IBM currently does support system symbolics in batch        *   FILE 553
//*     jobs.  You can optionally use SUBMITC to translate          *   FILE 553
//*     system symbolics in your instream jobstream using two       *   FILE 553
//*     methods:                                                    *   FILE 553
//*                                                                 *   FILE 553
//*        1) Use the parm SYM when invoke SUBMITC to translate     *   FILE 553
//*           all lines (or until a SUBMITC::NOSYM control card     *   FILE 553
//*           is reached).                                          *   FILE 553
//*                                                                 *   FILE 553
//*        2) Use the special control cards in the jobstream to     *   FILE 553
//*           turn on and off translation.  Use the SYM or NOSYM    *   FILE 553
//*           on one of the 3 types of control card formats:        *   FILE 553
//*                                                                 *   FILE 553
//*           //*SUBMITC::SYM                                       *   FILE 553
//*           /* SUBMITC::SYM                                       *   FILE 553
//*           *SUBMITC::SYM                                         *   FILE 553
//*                                                                 *   FILE 553
//*           Line(s) to translate with symbolics here              *   FILE 553
//*                                                                 *   FILE 553
//*           *SUBMITC::SYM                                         *   FILE 553
//*           /* SUBMITC::SYM                                       *   FILE 553
//*           //*SUBMITC::SYM                                       *   FILE 553
//*                                                                 *   FILE 553
//*     See member $SAMPSYM for a job that has symbolics.           *   FILE 553
//*                                                                 *   FILE 553
//*     BTW: SUBMITC calls the IBM system symbolic routine          *   FILE 553
//*     ASASYMBM to do the translation.                             *   FILE 553
//*                                                                 *   FILE 553
//***FILE 554 is from Mitchell Marx and Penelope Davis.  This       *   FILE 554
//*           file contains the coding examples from their book     *   FILE 554
//*           entitled:  "MVS Power Programming" that was part of   *   FILE 554
//*           the Jay Ranade series from McGraw Hill.  This book    *   FILE 554
//*           is an excellent text for teaching ESA Assembler       *   FILE 554
//*           programming for the MVS Operating System, and some    *   FILE 554
//*           very interesting ESA code is contained in this        *   FILE 554
//*           file.                                                 *   FILE 554
//*                                                                 *   FILE 554
//*      Copyright (c) 1992, 1993, 2002 by Mitchell Marx            *   FILE 554
//*      & Penelope Davis                                           *   FILE 554
//*                                                                 *   FILE 554
//*      Some corrections were added by a diligent reader, Ed       *   FILE 554
//*      Tobias.  Nothing was deleted from this file, but Ed's      *   FILE 554
//*      corrections and additions were included as extra members.  *   FILE 554
//*      Ed's ISPF userid is ESSEDT1, and the members he added      *   FILE 554
//*      or corrected are marked with his userid.  (SBG - 12/2011)  *   FILE 554
//*                                                                 *   FILE 554
//*      Original modules that were corrected by Ed Tobias, were    *   FILE 554
//*      renamed with a suffix .......O and placed next to the      *   FILE 554
//*      corrected modules.                                         *   FILE 554
//*                                                                 *   FILE 554
//*      Please refer to Ed's new member, $$README.                 *   FILE 554
//*                                                                 *   FILE 554
//*      Address questions to: mmarx@mdpaladin.com                  *   FILE 554
//*                                                                 *   FILE 554
//*      Ed Tobias' email:     ed_tobias@hotmail.com                *   FILE 554
//*                                                                 *   FILE 554
//*      Permission is hereby granted, free of charge, to any       *   FILE 554
//*      person obtaining a copy of this software and associated    *   FILE 554
//*      documentation files (the "Software"), to deal in the       *   FILE 554
//*      Software without restriction, including without            *   FILE 554
//*      limitation the rights to use, copy, modify, merge,         *   FILE 554
//*      publish, distribute, sublicense,and/or sell copies of      *   FILE 554
//*      the Software, and to permit persons to whom the Software   *   FILE 554
//*      is furnished to do so, subject to the following            *   FILE 554
//*      conditions:                                                *   FILE 554
//*                                                                 *   FILE 554
//*      The above copyright notice and this permission notice      *   FILE 554
//*      shall be included in all copies or substantial portions    *   FILE 554
//*      of the Software.                                           *   FILE 554
//*                                                                 *   FILE 554
//*      THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF      *   FILE 554
//*      ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED    *   FILE 554
//*      TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A        *   FILE 554
//*      PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT        *   FILE 554
//*      SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY   *   FILE 554
//*      CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION    *   FILE 554
//*      OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR    *   FILE 554
//*      IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER        *   FILE 554
//*      DEALINGS IN THE SOFTWARE.                                  *   FILE 554
//*                                                                 *   FILE 554
//***FILE 555 is from Solomon Santos and contains a very            *   FILE 555
//*           interesting set of his utilities and subroutines.     *   FILE 555
//*                                                                 *   FILE 555
//*           email:  "Mon R. Santos" <bugsie@tig.com.au>           *   FILE 555
//*                   bugsie88@yahoo.com                            *   FILE 555
//*                                                                 *   FILE 555
//*      - - - - - - - - - - - - - - - - - - - - - - - - - - -      *   FILE 555
//*                                                                 *   FILE 555
//*      A new utility, an ISPF-ized front end to the TSO XMIT      *   FILE 555
//*      commmand, is called ISPFXMI, and it consists of one        *   FILE 555
//*      REXX exec and two panels.  It's an easy way to prepare     *   FILE 555
//*      XMIT-format datasets, to send anywhere.  Try it!           *   FILE 555
//*                                                                 *   FILE 555
//*      - - - - - - - - - - - - - - - - - - - - - - - - - - -      *   FILE 555
//*                                                                 *   FILE 555
//*      The rest of the members of this dataset are all written    *   FILE 555
//*      in BAL.  Originally, they were intended for use as         *   FILE 555
//*      utilities for COBOL programs.  They all use the attached   *   FILE 555
//*      MACLIB, here included as member MACLIB.  Since most of     *   FILE 555
//*      the programs here are subroutines, they are used by main   *   FILE 555
//*      programs such as "LIST".                                   *   FILE 555
//*                                                                 *   FILE 555
//*      Almost all of the programs here have some documentation    *   FILE 555
//*      before the start of the code that describes the            *   FILE 555
//*      parameter list, but all of them are described by the       *   FILE 555
//*      'EPA' (entry point address) macro.                         *   FILE 555
//*                                                                 *   FILE 555
//*      For the routines (like SCAN (in GUS015) and PARSE (in      *   FILE 555
//*      GUS014)) that don't have a documentation header, you       *   FILE 555
//*      could easily figure out how to use it because the          *   FILE 555
//*      linkage section is descriptive enough, I would think.      *   FILE 555
//*                                                                 *   FILE 555
//*      The calendar program has a bug for the month of February.  *   FILE 555
//*      I think it displays 28 days even if it's a leap year.      *   FILE 555
//*      But the month of March is OK.  I guess I'm just too lazy   *   FILE 555
//*      to fix it.  If you invoke calendar w/o parms, it will      *   FILE 555
//*      display the current date.  If you want a specific date,    *   FILE 555
//*      invoke it like "CALENDAR yyyymmdd"                         *   FILE 555
//*                                                                 *   FILE 555
//*      Most of the subroutines here are Y2K compliant, I          *   FILE 555
//*      believe.  But some, like GUS002 (convert yymmdd to         *   FILE 555
//*      yyddd) may not need to be...  I haven't checked.           *   FILE 555
//*                                                                 *   FILE 555
//*      The program FLPRT just prints the dataset defined in       *   FILE 555
//*      SYSUT1.  Only FLPRT and CALENDAR are non-reentrant; all    *   FILE 555
//*      the rest are re-entrant programs.                          *   FILE 555
//*                                                                 *   FILE 555
//*      "LIST" just displays the contents of the data passed on    *   FILE 555
//*      the command line.  It is included here as an example of    *   FILE 555
//*      a program that uses the PARSE, PUTLINE and DYNALLOC        *   FILE 555
//*      subroutines (GUS014,GUS016 and GUS012).  TST9 is           *   FILE 555
//*      another test program that demonstrates how the SCAN,       *   FILE 555
//*      GETLINE and PUTLINE routines help make writing command     *   FILE 555
//*      processors easy.                                           *   FILE 555
//*                                                                 *   FILE 555
//*      BTW, GUS stands for General Utility Subroutines.           *   FILE 555
//*                                                                 *   FILE 555
//*      The MACLIB member SF is to create 3270 attributes; but     *   FILE 555
//*      I haven't gotten around to support the X'29' order for     *   FILE 555
//*      extended attributes.  It does support Fujitsu's X'1B'      *   FILE 555
//*      order for F9526 extended attributes.                       *   FILE 555
//*                                                                 *   FILE 555
//*      I hope you find these useful.    Mon                       *   FILE 555
//*                                                                 *   FILE 555
//***FILE 556 is from Jeff Kaplan, and contains a generalized       *   FILE 556
//*           HTTP requestor socket interface written in REXX.      *   FILE 556
//*                                                                 *   FILE 556
//*           email:  jdkaplan@optonline.net                        *   FILE 556
//*                                                                 *   FILE 556
//*      SCKTINTF - REXX generalized HTTP socket interface.         *   FILE 556
//*                                                                 *   FILE 556
//*      This REXX program is passed an external WEB site URL       *   FILE 556
//*      address of a text file, and downloads that file into a     *   FILE 556
//*      new OS/390 file.  Similar code could be used to acquire    *   FILE 556
//*      any web site element.                                      *   FILE 556
//*                                                                 *   FILE 556
//*      Three (3) parameters are passed - proxyname proxyport url  *   FILE 556
//*                                                                 *   FILE 556
//*    Notes:                                                       *   FILE 556
//*                                                                 *   FILE 556
//*      proxyname is the name of your corporate proxy server       *   FILE 556
//*      8080 proxy port.                                           *   FILE 556
//*                                                                 *   FILE 556
//*      url is the target text file that you want to acquire.      *   FILE 556
//*                                                                 *   FILE 556
//*      SEZALINK required for IBM REXX sockets interface - see     *   FILE 556
//*      SC31-8516.                                                 *   FILE 556
//*                                                                 *   FILE 556
//*      SYSTCPD DD statement may be required based upon your       *   FILE 556
//*      TCP/IP config.                                             *   FILE 556
//*                                                                 *   FILE 556
//*      HTTPRESP is the output DD statement.                       *   FILE 556
//*                                                                 *   FILE 556
//***FILE 557 is from Jim Moore of Concentrated Logic Corp. and     *   FILE 557
//*           contains some interesting code to calculate the       *   FILE 557
//*           Soundex Code using a COBOL program (for the guts)     *   FILE 557
//*           an Assembler program, a REXX, and an ISPF panel.      *   FILE 557
//*                                                                 *   FILE 557
//*           email:  "JB Moore" <conlogco@attbi.com>               *   FILE 557
//*                                                                 *   FILE 557
//*      Here's something you can do to illustrate the use of       *   FILE 557
//*      this program.  Try it out and notice the code that it      *   FILE 557
//*      returns for your last name.  Most U.S. states use the      *   FILE 557
//*      ANNN Soundex code to begin their driver's license          *   FILE 557
//*      number.                                                    *   FILE 557
//*                                                                 *   FILE 557
//*      A brief description of the package follows:                *   FILE 557
//*                                                                 *   FILE 557
//*      This program will create a Soundex code from a name.       *   FILE 557
//*      The "Knuth Rules" Soundex algorithm is used.  Refer to     *   FILE 557
//*      pages 394 - 395 of Volume 3 - "The Art of Computer         *   FILE 557
//*      Programming" By Don Knuth.  This is the "Sorting and       *   FILE 557
//*      Searching" volume, 2nd edition.                            *   FILE 557
//*                                                                 *   FILE 557
//*      I have added some feature to the algorithm which, IMHO,    *   FILE 557
//*      make it more useful across a wider variety of names.       *   FILE 557
//*      These features are:                                        *   FILE 557
//*                                                                 *   FILE 557
//*      1) The capability of having a longer code generated.       *   FILE 557
//*         The standard code is in the format ANNN (alpha, nbr,    *   FILE 557
//*         nbr, nbr).  By using a passed parameter, a code as      *   FILE 557
//*         long as 10 can be created.                              *   FILE 557
//*                                                                 *   FILE 557
//*      2) The capability of having an "all alpha" code            *   FILE 557
//*         created.  The standard code is in the format ANNN       *   FILE 557
//*         (alpha, nbr, nbr, nbr).  By using a passed              *   FILE 557
//*         parameter, a code can be generated that is all          *   FILE 557
//*         alphabetic.                                             *   FILE 557
//*                                                                 *   FILE 557
//*      3) The capability of varying the pad character.  The       *   FILE 557
//*         normal pad character is a zero ("0").                   *   FILE 557
//*                                                                 *   FILE 557
//***FILE 558 is from Dick Thornton, who is the author of the       *   FILE 558
//*           DISASSEMBLER program on File 217, and his new         *   FILE 558
//*           DISASSEMBLER program on File 234.  This is a large    *   FILE 558
//*           collection of his Assembler code.  There are some     *   FILE 558
//*           interesting and unique programs to be found here.     *   FILE 558
//*           Please see member $$NOTE1 for details about some      *   FILE 558
//*           of them.  See member $MACLIB for some macros needed.  *   FILE 558
//*                                                                 *   FILE 558
//*           emails:  (check to see which are relevant):           *   FILE 558
//*               dickthor@hotmail.com                              *   FILE 558
//*               cthornton@swva.net                                *   FILE 558
//*               rthornton@trigon.com                              *   FILE 558
//*                                                                 *   FILE 558
//*        Dick Thornton's total submission consisted of 15 pds'es  *   FILE 558
//*        which he refers to by name.  These pds'es may all be     *   FILE 558
//*        found within his 8 files on this tape:  Files 558 thru   *   FILE 558
//*        565.  Below is a map which tells you on which CBT Tape   *   FILE 558
//*        file, each of Dick's "named pds'es" may be found:        *   FILE 558
//*                                                                 *   FILE 558
//*        Named PDS         CBT Tape File containing it            *   FILE 558
//*        ---------         ---------------------------            *   FILE 558
//*        ASM               File 558                               *   FILE 558
//*        C (Language)      File 559                               *   FILE 558
//*        SAMPSRC           File 559    (as member $SAMPSRC)       *   FILE 558
//*        JCL               File 560                               *   FILE 558
//*        CLIST             File 561                               *   FILE 558
//*        EXEC              File 562                               *   FILE 558
//*        MSGS              File 562    (as member $MSGS)          *   FILE 558
//*        PLIB              File 562    (as member $PLIB)          *   FILE 558
//*        COBOL             File 563                               *   FILE 558
//*        DATA              File 564    (as member DATA)           *   FILE 558
//*        INSTRUCT          File 564    (as member INSTRUCT)       *   FILE 558
//*        MEMORY            File 564    (as member MEMORY)         *   FILE 558
//*        CLASS             File 565    (as member COBCLASS)       *   FILE 558
//*        CCLASS            File 565    (as member CCLASS)         *   FILE 558
//*        DUMPCLS2          File 565    (as member DUMPREAD)       *   FILE 558
//*                                                                 *   FILE 558
//*        Each file in this collection is being equipped with a    *   FILE 558
//*        $$README member, to help you see what the contents       *   FILE 558
//*        of that file are about.                                  *   FILE 558
//*                                                                 *   FILE 558
//*        Please see member $$NOTE1 on this file, which describes  *   FILE 558
//*        some especially useful and unique programs which may     *   FILE 558
//*        be found in this collection.  See member $$NOTE2 also.   *   FILE 558
//*                                                                 *   FILE 558
//*        Extra macros were added, because they seemed to be       *   FILE 558
//*        missing in the originally submitted file.  See member    *   FILE 558
//*        $MACLIB2, as well as member $MACLIB.   (SG 11/22/02)     *   FILE 558
//*                                                                 *   FILE 558
//*        The following is a list of members of this file:         *   FILE 558
//*                                                                 *   FILE 558
//*        $COMMAND   01.01  1999/05/20  8:35     36  BC0THOR       *   FILE 558
//*        ABAL       01.04  2002/04/02 16:10    498  BC0THOR       *   FILE 558
//*        ABDUMP     01.01  1999/08/17 14:04      9  BC0THOR       *   FILE 558
//*        ABENDJOB   01.04  2001/10/03 17:17     74  BC0THOR       *   FILE 558
//*        ABEND878   01.11  1996/03/29 15:51    670  BC0THOR       *   FILE 558
//*        ALIAS      01.32  1992/04/20  9:56    790  USER02        *   FILE 558
//*        ALIASES    01.07  2000/03/07 16:16    119  BC0THOR       *   FILE 558
//*        ALIAS2     01.00  2000/03/07 14:46     69  BC0THOR       *   FILE 558
//*        ALLDSNS    01.52  2002/01/23 16:40    692  BC0THOR       *   FILE 558
//*        ALLOCDYN   01.34  2000/10/10  9:55   1690  BC0THOR       *   FILE 558
//*        ARCHVDMP   01.17  1992/06/15 14:47    519  USER02        *   FILE 558
//*        ASCBLIST   01.02  1990/11/27 10:25    100  USER02        *   FILE 558
//*        ASC2EBCD   01.11  2001/02/12  9:14    331  BC0THOR       *   FILE 558
//*        ASMMAIN    01.03  2001/08/17 15:57    161  BC0THOR       *   FILE 558
//*        ASMSUBD1   01.04  2001/08/17 15:56    129  BC0THOR       *   FILE 558
//*        ASMSUBS1   01.04  2001/08/17 15:54    130  BC0THOR       *   FILE 558
//*        ASM31SUB   01.02  1993/08/19 11:03     65  USER02        *   FILE 558
//*        A31BIT     01.02  1991/11/07  9:29     79  USER02        *   FILE 558
//*        BAGETE     01.09  2002/01/31 13:39    428  BC0THOR       *   FILE 558
//*        BLDCNTL    01.01  2001/05/23 13:46     98  BC0THOR       *   FILE 558
//*        BUILDTBL   01.03  2001/04/12 12:39    309  BC0THOR       *   FILE 558
//*        CALLGND2   01.00  2002/01/30 14:33    188  BC0THOR       *   FILE 558
//*        CALLGND3   01.09  2001/01/05 15:09    291  BC0THOR       *   FILE 558
//*        CALLPDSR   01.02  2000/02/25  9:58    174  BC0THOR       *   FILE 558
//*        CALLQIO1   01.13  2001/03/29 11:02    260  BC0THOR       *   FILE 558
//*        CALLQIO2   01.17  2001/07/24 16:49    260  BC0THOR       *   FILE 558
//*        CALLRDLM   01.13  2002/02/18 14:49   1334  BC0THOR       *   FILE 558
//*        CALL095    01.01  2001/11/29 14:05     97  BC0THOR       *   FILE 558
//*        CAMLST     01.04  1999/03/19 16:34     78  BC0THOR       *   FILE 558
//*        CATALOGD   01.03  1999/03/19 16:24     94  BC0THOR       *   FILE 558
//*        CATLGLST   01.12  2002/01/30 10:17    471  BC0THOR       *   FILE 558
//*        CBRAKETS   01.05  2000/10/09 16:10     68  BC0THOR       *   FILE 558
//*        CHECKVBS   01.02  2002/01/19 22:41    174  BC0THOR       *   FILE 558
//*        CHGDDNM0   01.00  2001/12/04 10:26    158  BC0THOR       *   FILE 558
//*        CHGJOBCD   01.06  1998/07/06 15:06    177  BC0THOR       *   FILE 558
//*        CHGJOBNM   01.01  1990/04/11  7:44    113  USER02        *   FILE 558
//*        CHGUNIT    01.09  1990/10/16 15:25    109  USER02        *   FILE 558
//*        CHKVOLS    01.02  1992/07/31 12:39    772  USER02        *   FILE 558
//*        CHRCOPY    01.01  1989/09/26  8:23   2722  USER02        *   FILE 558
//*        CHRDUMP    01.52  2001/03/30 12:57   3209  BC0THOR       *   FILE 558
//*        CICSSCAN   01.07  2000/08/07 15:37    174  BC0THOR       *   FILE 558
//*        CLISTMON   01.07  2000/05/10 14:25    151  BC0THOR       *   FILE 558
//*        CLONETAP   01.00  1992/04/02  9:35    176  USER02        *   FILE 558
//*        CLRSCN     01.00  1989/09/26  8:24     28  USER02        *   FILE 558
//*        CMPRDIR    01.04  2001/05/18 16:56    162  BC0THOR       *   FILE 558
//*        COBABEND   01.01  2001/07/11  8:45     49  BC0THOR       *   FILE 558
//*        COBLSETY   01.03  2000/01/28 12:16    148  BC0THOR       *   FILE 558
//*        COBLSUBR   01.04  2000/01/28 12:18    138  BC0THOR       *   FILE 558
//*        COBLTYPE   01.22  2002/02/25 11:20    568  BC0THOR       *   FILE 558
//*        COBLTYP2   01.04  2000/01/28 12:11     97  BC0THOR       *   FILE 558
//*        COBRDLST   01.11  2000/01/28 13:47    240  BC0THOR       *   FILE 558
//*        COBREAD    01.06  2000/08/14 11:49   1248  BC0THOR       *   FILE 558
//*        COBSUBEM   01.09  2000/01/28 12:28    280  BC0THOR       *   FILE 558
//*        COB2ASM    01.57  1989/09/26  8:24    983  USER02        *   FILE 558
//*        COB2EP     01.00  2001/12/13  7:50     34  BC0THOR       *   FILE 558
//*        COB2MAIN   01.00  2001/12/17 13:55   1152  BC0THOR       *   FILE 558
//*        COB2TGT    01.00  2001/12/13  9:58    167  BC0THOR       *   FILE 558
//*        COMPARE    01.02  2000/04/25 10:32     78  BC0THOR       *   FILE 558
//*        COMPASM    01.01  2001/11/09 13:34    106  BC0THOR       *   FILE 558
//*        COMPCBL    01.00  1989/09/26  8:25     98  USER02        *   FILE 558
//*        COMPRMEM   01.02  2000/02/22  9:05    229  BC0THOR       *   FILE 558
//*        CONCAT     01.00  1989/09/26  8:25     16  USER02        *   FILE 558
//*        COPY       01.24  2000/07/31 16:24    150  BC0THOR       *   FILE 558
//*        COPYDUMP   01.20  2001/01/15 10:26    218  BC0THOR       *   FILE 558
//*        COPYMULT   01.01  1991/01/25  8:21    184  USER02        *   FILE 558
//*        COPYNUM    01.02  2001/01/25 12:28    105  BC0THOR       *   FILE 558
//*        COPYV      01.06  2002/01/19 17:37     86  BC0THOR       *   FILE 558
//*        COUNTREC   01.08  1999/08/17 10:02    355  BC0THOR       *   FILE 558
//*        CPUID      01.02  1993/07/19 16:26     61  USER02        *   FILE 558
//*        CSECTLST   01.06  2001/11/26  9:33    574  BC0THOR       *   FILE 558
//*        CSECTMCH   01.09  2000/11/15  9:12    231  BC0THOR       *   FILE 558
//*        CSECTMRG   01.04  2000/11/15 13:55    139  BC0THOR       *   FILE 558
//*        CTLGLIST   01.05  1993/06/08  9:04    134  USER02        *   FILE 558
//*        CURRDATE   01.01  2002/01/23 11:14    195  BC0THOR       *   FILE 558
//*        CURRVOL    01.02  1993/11/30 10:50     73  USER02        *   FILE 558
//*        CVTCLIST   01.01  2001/04/05 19:11   1236  BC0THOR       *   FILE 558
//*        DDLIST     01.02  1989/08/10 15:16    162  USER02        *   FILE 558
//*        DELEJSPC   01.03  1999/05/14 16:29     88  BC0THOR       *   FILE 558
//*        DESERV     01.07  2002/02/07 18:46    186  BC0THOR       *   FILE 558
//*        DISASM0    01.03  2002/02/07 18:32   1590  BC0THOR       *   FILE 558
//*        DISASM1    01.03  2002/02/07 18:32   2051  BC0THOR       *   FILE 558
//*        DISASM2    01.02  2002/02/07 18:33   2553  BC0THOR       *   FILE 558
//*        DISASM99   01.25  2001/12/20 10:14    646  BC0THOR       *   FILE 558
//*        DISKCTLG   01.00  1992/04/06 15:34    389  USER02        *   FILE 558
//*        DISTEST    01.04  2002/03/25  9:06    442  BC0THOR       *   FILE 558
//*        DLITCBL    01.06  2001/04/08 12:35    225  BC0THOR       *   FILE 558
//*        DSNUPDAT   01.00  1998/07/06 16:23    411  BC0THOR       *   FILE 558
//*        DSNVOLS    01.03  1998/12/28 15:38    203  BC0THOR       *   FILE 558
//*        DUMP       01.08  1990/12/10 15:18    130  USER02        *   FILE 558
//*        DUMPFIL    01.00  1998/07/06 16:24   1582  BC0THOR       *   FILE 558
//*        DUMPSTOR   01.06  2001/11/29 15:54    441  BC0THOR       *   FILE 558
//*        DUPLMEMB   01.02  2002/04/03 13:51    156  BC0THOR       *   FILE 558
//*        DYNERRS    01.01  1993/09/16 14:09    171  USER02        *   FILE 558
//*        EASTER     01.04  1990/11/28 11:59    267  USER02        *   FILE 558
//*        EBCD2ASC   01.04  2001/02/12 11:12    330  BC0THOR       *   FILE 558
//*        ENDVDATA   01.17  2002/01/16 17:12    525  BC0THOR       *   FILE 558
//*        ENDVFILE   01.04  2000/10/17 17:24    220  BC0THOR       *   FILE 558
//*        ENDVFLCK   01.08  2001/09/10 15:01    489  BC0THOR       *   FILE 558
//*        ENDVMTCH   01.04  1999/05/05 10:39     92  BC0THOR       *   FILE 558
//*        ENDVREFM   01.20  1999/05/05 10:40    188  BC0THOR       *   FILE 558
//*        ENDVSTRP   01.04  2000/06/12 17:30    304  BC0THOR       *   FILE 558
//*        ENQLIST    01.02  1999/08/31 15:14    682  BC0THOR       *   FILE 558
//*        EXCHANGE   01.16  2001/02/05 10:15    527  BC0THOR       *   FILE 558
//*        EXCPIO     01.71  2001/02/05 10:14   1143  BC0THOR       *   FILE 558
//*        EXCPSEQF   01.00  1989/09/26  9:54    546  USER02        *   FILE 558
//*        EXCPTAPE   01.06  1999/10/07 12:24    179  BC0THOR       *   FILE 558
//*        EXTSYMS    01.06  2002/02/22 11:26    193  BC0THOR       *   FILE 558
//*        FILES      01.17  1999/07/14 10:58    240  BC0THOR       *   FILE 558
//*        FINDCALL   01.04  2002/02/22 11:28    156  BC0THOR       *   FILE 558
//*        FINDCONT   01.03  2002/02/22 11:30    120  BC0THOR       *   FILE 558
//*        FINDDSN    01.01  1989/09/26  9:56    145  USER02        *   FILE 558
//*        FINDLDM    01.02  2002/02/22 11:33    438  BC0THOR       *   FILE 558
//*        FINDMAC    01.02  2002/03/26 13:38   2946  BC0THOR       *   FILE 558
//*        FINDPGM    01.00  2002/04/05 10:30    270  BC0THOR       *   FILE 558
//*        FINDSTRG   01.00  2002/02/22 11:36    452  BC0THOR       *   FILE 558
//*        FINDSUBR   01.02  2002/02/22 11:44    135  BC0THOR       *   FILE 558
//*        FNDALLMC   01.01  2000/08/02 14:45    655  BC0THOR       *   FILE 558
//*        FNDMACRO   01.10  2002/02/22 11:46    828  BC0THOR       *   FILE 558
//*        FREEPOOL   01.01  1995/09/26 16:24    135  BC0THOR       *   FILE 558
//*        GENDATES   01.00  2000/08/28 16:17    140  BC0THOR       *   FILE 558
//*        GENLDAT2   01.00  2001/12/07  9:09    421  BC0THOR       *   FILE 558
//*        GETDCB     01.01  1994/08/18 10:42    146  USER02        *   FILE 558
//*        GETDSNVL   01.05  1993/01/07  9:00    116  USER02        *   FILE 558
//*        GETGDG     01.03  1990/09/28  8:32     64  USER02        *   FILE 558
//*        GETOWNER   01.11  1993/12/08  9:04    289  USER02        *   FILE 558
//*        GETOWNR2   01.00  1993/12/08 10:36    182  USER02        *   FILE 558
//*        GETSMF     01.00  1989/09/26  9:57    241  USER02        *   FILE 558
//*        GETSYSID   01.01  2001/11/27  7:41     17  BC0THOR       *   FILE 558
//*        GETVOLS    01.04  1993/12/28  8:07     98  USER02        *   FILE 558
//*        GETVOLUM   01.04  1999/04/26 16:58     82  BC0THOR       *   FILE 558
//*        GETVSAM    01.00  1990/09/13 16:57    537  USER02        *   FILE 558
//*        GMABOVE    01.01  1996/01/04 15:59     66  BC0THOR       *   FILE 558
//*        GTRANDOM   01.04  1989/09/26  9:58    247  USER02        *   FILE 558
//*        HEX2ASKY   01.03  1999/08/31 15:28     66  BC0THOR       *   FILE 558
//*        HEX2PDEC   01.03  1989/09/26  9:58     54  USER02        *   FILE 558
//*        IEFSD095   01.00  2001/12/17  7:25    406  BC0THOR       *   FILE 558
//*        IEWBTEST   01.12  2002/01/31 17:54    584  BC0THOR       *   FILE 558
//*        IEWBUFF    01.03  2002/02/08 10:59      7  BC0THOR       *   FILE 558
//*        IEWBUFFE   01.04  2002/02/12  9:40     99  BC0THOR       *   FILE 558
//*        IEWBUFFM   01.01  2002/02/08 14:21     33  BC0THOR       *   FILE 558
//*        IEWBUFFN   01.02  2002/02/15 14:07     32  BC0THOR       *   FILE 558
//*        IEWBUFFP   01.01  2002/02/08 14:22     27  BC0THOR       *   FILE 558
//*        IEWBUFFR   01.02  2002/02/08 14:23     46  BC0THOR       *   FILE 558
//*        IEWBUFFS   01.01  2002/02/08 14:24     25  BC0THOR       *   FILE 558
//*        IEWBUFFT   01.01  2002/02/14  9:29     17  BC0THOR       *   FILE 558
//*        IEWBUFFX   01.01  2002/02/08 14:28     21  BC0THOR       *   FILE 558
//*        IEWBUFIB   01.01  2002/02/08 14:29     29  BC0THOR       *   FILE 558
//*        IEWBUFIL   01.01  2002/02/08 14:30     26  BC0THOR       *   FILE 558
//*        IEWBUFIU   01.02  2002/02/14  9:30     25  BC0THOR       *   FILE 558
//*        IEWBUFIZ   01.01  2002/02/08 14:32     24  BC0THOR       *   FILE 558
//*        IGGCSILC   01.01  2002/01/24 11:07    450  BC0THOR       *   FILE 558
//*        IGGCSI00   01.01  2002/01/24 11:04    362  BC0THOR       *   FILE 558
//*        ILBCHECK   01.15  1999/09/02 10:23    514  BC0THOR       *   FILE 558
//*        IL10STRP   01.00  2002/01/22 17:57    138  BC0THOR       *   FILE 558
//*        INQ500FE   01.00  2002/02/05 14:40     24  BC0THOR       *   FILE 558
//*        INVKSORT   01.00  1989/09/26  9:58    188  USER02        *   FILE 558
//*        IXVTOC     01.06  1993/06/02 11:31   1185  USER02        *   FILE 558
//*        JCLMODS    01.19  2001/04/27 10:23    724  BC0THOR       *   FILE 558
//*        JCLSCAN    01.05  2002/02/25  9:09    759  BC0THOR       *   FILE 558
//*        JCLSCAN2   01.13  2002/02/25  9:21    279  BC0THOR       *   FILE 558
//*        JOBINFO    01.03  1996/01/10 11:31     70  BC0THOR       *   FILE 558
//*        LDMDVER    01.03  2001/06/12 10:17    571  BC0THOR       *   FILE 558
//*        LIBPRNT    01.00  1989/09/26  9:59    129  USER02        *   FILE 558
//*        LISTPSWD   01.00  1989/09/26  9:59     70  USER02        *   FILE 558
//*        LISTVOLS   01.01  1998/12/18 15:33    193  BC0THOR       *   FILE 558
//*        LKEDANAL   01.06  2001/04/30 18:01    270  BC0THOR       *   FILE 558
//*        LKEDCTL2   01.04  1999/07/02 16:24    707  BC0THOR       *   FILE 558
//*        LKEDMODS   01.10  2001/05/31 17:39    795  BC0THOR       *   FILE 558
//*        LMODCHEK   01.09  2000/09/29 15:27    624  BC0THOR       *   FILE 558
//*        LMODHIST   01.03  2007/07/04 21:19    111  SBGOLOB       *   FILE 558
//*        LMODREAD   01.26  2002/02/12 15:17   1190  BC0THOR       *   FILE 558
//*        LOADDIR    01.00  1999/05/05 10:32    100  BC0THOR       *   FILE 558
//*        LOCDSNS    01.01  1989/09/26 10:00    259  USER02        *   FILE 558
//*        LOGREC     01.06  1999/01/15 17:09    298  BC0THOR       *   FILE 558
//*        LSTVTOC1   01.00  1989/09/26 10:00    246  USER02        *   FILE 558
//*        LSTVTOC2   01.00  1989/09/26 10:00    999  USER02        *   FILE 558
//*        LSTVTOC3   01.02  1993/07/29  9:51    410  USER02        *   FILE 558
//*        MACROEXP   01.02  2000/08/04 12:50     33  BC0THOR       *   FILE 558
//*        MERGE      01.01  1999/05/05 10:18    112  BC0THOR       *   FILE 558
//*        MERGE1A    01.06  1999/05/05 10:19    169  BC0THOR       *   FILE 558
//*        MERGE1B    01.01  1999/05/05 10:19    116  BC0THOR       *   FILE 558
//*        MERGE2     01.07  1999/05/05 10:19    166  BC0THOR       *   FILE 558
//*        MFCSIGNS   01.04  2000/05/12 16:25    244  BC0THOR       *   FILE 558
//*        MODINFO    01.02  2007/07/04 21:45    228  SBGOLOB       *   FILE 558
//*        MODPSWD    01.00  1989/09/26 10:01    126  USER02        *   FILE 558
//*        MODSCB     01.13  1989/09/26 10:01    253  USER02        *   FILE 558
//*        MODSCB2    01.06  1989/09/26 10:01    342  USER02        *   FILE 558
//*        MODSCNDY   01.01  2001/04/10 12:38    214  BC0THOR       *   FILE 558
//*        MODULENG   01.01  1999/05/05 10:32    117  BC0THOR       *   FILE 558
//*        MODXREF    01.02  2001/12/04 10:44   1061  BC0THOR       *   FILE 558
//*        MSASMRPT   01.00  2001/07/26 10:23    444  BC0THOR       *   FILE 558
//*        MSMCHMST   01.02  2001/07/24 10:33    151  BC0THOR       *   FILE 558
//*        MSMCHRPT   01.15  2001/07/25  7:34    459  BC0THOR       *   FILE 558
//*        MTCHMERG   01.09  1999/05/05 10:15     79  BC0THOR       *   FILE 558
//*        NOLIMIT    01.07  1993/03/01 13:33     21  USER02        *   FILE 558
//*        NUMERCHK   01.00  1998/07/06 16:27     41  BC0THOR       *   FILE 558
//*        OPCODE     01.14  2002/03/25 15:01    595  BC0THOR       *   FILE 558
//*        PARSEASM   01.04  2000/07/19 11:44    508  BC0THOR       *   FILE 558
//*        PDSCHECK   01.01  2001/04/24  9:19     96  BC0THOR       *   FILE 558
//*        PDSCLEAN   01.02  2001/06/16  1:45    467  BC0THOR       *   FILE 558
//*        PDSCPYMB   01.07  2002/02/25  9:28    100  BC0THOR       *   FILE 558
//*        PDSDIR     01.02  2001/09/05 17:07     50  BC0THOR       *   FILE 558
//*        PDSDIRB    01.16  1999/09/09 10:24    337  BC0THOR       *   FILE 558
//*        PDSDIRC    01.08  2001/05/31 12:34    261  BC0THOR       *   FILE 558
//*        PDSDIRLN   01.12  1998/09/23 15:50    210  BC0THOR       *   FILE 558
//*        PDSDSN     01.00  2001/05/16 11:42     87  BC0THOR       *   FILE 558
//*        PDSHIST    01.20  2007/07/04 14:15    154  SBGOLOB       *   FILE 558
//*        PDSINFO    01.06  2001/04/24  9:19    146  BC0THOR       *   FILE 558
//*        PDSREAD    01.18  2000/02/25  9:58    455  BC0THOR       *   FILE 558
//*        PDSVREPL   01.17  1998/08/11 13:52    298  BC0THOR       *   FILE 558
//*        PDSVUPDT   01.21  1998/09/04 11:06    679  BC0THOR       *   FILE 558
//*        PGMTYPE    01.00  1989/09/26 10:02    441  USER02        *   FILE 558
//*        PRINTDAE   01.03  2001/12/17 15:25    102  BC0THOR       *   FILE 558
//*        PRINTSUB   01.00  1989/09/26 10:02    120  USER02        *   FILE 558
//*        PRNTMULT   01.01  1989/09/20 10:06    209  USER02        *   FILE 558
//*        PROCSCAN   01.05  2002/02/25  9:50    312  BC0THOR       *   FILE 558
//*        PRTDSNH    01.00  1998/07/06 16:29    426  BC0THOR       *   FILE 558
//*        PRTPCH     01.01  2001/11/26 11:37    231  BC0THOR       *   FILE 558
//*        PULLDUPS   01.16  2001/11/26 10:53    254  BC0THOR       *   FILE 558
//*        PULLGRPS   01.08  2002/02/25 10:07    799  BC0THOR       *   FILE 558
//*        QSAMIO     01.18  2001/07/24 16:49    313  BC0THOR       *   FILE 558
//*        QWIKVTOC   01.01  1995/02/21 10:40    402  BC0THOR       *   FILE 558
//*        RANDOM     01.03  1989/09/26 10:03     22  USER02        *   FILE 558
//*        RCVRPDS    01.01  2002/04/02 14:33    464  BC0THOR       *   FILE 558
//*        RCVRVPDS   01.06  1990/08/17  9:44    464  USER02        *   FILE 558
//*        READDIR    01.04  2002/02/25 11:20    163  BC0THOR       *   FILE 558
//*        READFMEM   01.02  1989/09/26 10:04    137  USER02        *   FILE 558
//*        READLMOD   01.07  2002/04/02 16:25    413  BC0THOR       *   FILE 558
//*        READMEM    01.02  2002/02/25 11:20    167  BC0THOR       *   FILE 558
//*        READMEMX   01.00  1998/07/06 16:32    278  BC0THOR       *   FILE 558
//*        READVMEM   01.05  2002/02/25  9:51    139  BC0THOR       *   FILE 558
//*        REBUILD    01.48  2002/04/03  7:45   2686  BC0THOR       *   FILE 558
//*        RENSCR     01.00  1999/02/11 13:02    286  BC0THOR       *   FILE 558
//*        REQU       01.03  2002/01/21 14:40     22  BC0THOR       *   FILE 558
//*        RESCHECK   01.01  2002/03/18 13:58    206  BC0THOR       *   FILE 558
//*        RESOURCE   01.45  2002/04/02 16:44   1847  BC0THOR       *   FILE 558
//*        RMODE31    01.05  2000/08/03  8:44    127  BC0THOR       *   FILE 558
//*        SCANIMS    01.25  2000/07/25 12:59    201  BC0THOR       *   FILE 558
//*        SCANLDM2   01.06  1999/09/27 13:37    212  BC0THOR       *   FILE 558
//*        SCANLMOD   01.10  2002/02/11  7:13    165  BC0THOR       *   FILE 558
//*        SCANPSVB   01.09  1989/09/26 10:05    236  USER02        *   FILE 558
//*        SCANTEXT   01.02  2002/02/20 14:00    636  BC0THOR       *   FILE 558
//*        SCANTXT2   01.00  2001/04/17 11:34    639  BC0THOR       *   FILE 558
//*        SCANVBL2   01.11  1998/08/25 11:14    246  BC0THOR       *   FILE 558
//*        SCANVRBL   01.12  2002/02/25 10:33    304  BC0THOR       *   FILE 558
//*        SCANXREF   01.00  1998/07/06 16:34    476  BC0THOR       *   FILE 558
//*        SHUFFLE    01.01  1993/05/26 17:10     78  USER02        *   FILE 558
//*        SKELETON   01.02  2000/10/17 14:10    194  BC0THOR       *   FILE 558
//*        SMFABNDS   01.04  1998/10/30 13:18    341  BC0THOR       *   FILE 558
//*        SMFCOUNT   01.02  2002/01/19  9:47    434  BC0THOR       *   FILE 558
//*        SMFDSNAM   01.00  1999/09/20  8:30    768  BC0THOR       *   FILE 558
//*        SMFDSNM1   01.12  1999/09/20 14:33    305  BC0THOR       *   FILE 558
//*        SMFDSNM2   01.10  1999/04/12 13:10    463  BC0THOR       *   FILE 558
//*        SMFDSNV1   01.02  1999/11/17 13:52    349  BC0THOR       *   FILE 558
//*        SMFPRINT   01.00  1989/09/26 10:07    191  USER02        *   FILE 558
//*        SMFPRT30   01.00  1989/09/26 10:07    362  USER02        *   FILE 558
//*        SMFREAD    01.01  2002/01/19 14:25    466  BC0THOR       *   FILE 558
//*        SMFSTEPT   01.01  1998/10/31  9:18    332  BC0THOR       *   FILE 558
//*        SMFSTEP2   01.05  1994/04/15 14:49    153  USER02        *   FILE 558
//*        SMFSTEP3   01.02  1994/04/15 16:32    161  USER02        *   FILE 558
//*        SMFSTEP4   01.04  1994/04/18  8:58    200  USER02        *   FILE 558
//*        SMFSTRIP   01.08  1989/09/29 13:51    127  USER02        *   FILE 558
//*        SMFSTR14   01.25  1990/07/25 13:40    279  USER02        *   FILE 558
//*        SMFSTR30   01.26  1990/08/03 14:31    566  USER02        *   FILE 558
//*        SMFSTR64   01.02  1989/09/26 10:07    187  USER02        *   FILE 558
//*        SMFTSO     01.06  1989/09/26 10:08    348  USER02        *   FILE 558
//*        SQUEZE80   01.01  1989/09/26 10:08    178  USER02        *   FILE 558
//*        STAGE1IO   01.03  2002/01/16 17:12    220  BC0THOR       *   FILE 558
//*        STAGE2IO   01.03  2002/01/16 17:12    220  BC0THOR       *   FILE 558
//*        STIMER     01.00  1999/08/02 15:55     37  BC0THOR       *   FILE 558
//*        STORCREG   01.00  1989/09/26 10:09     46  USER02        *   FILE 558
//*        STRIP      01.11  2002/01/14 13:25    118  BC0THOR       *   FILE 558
//*        STRIPEDG   01.08  2002/01/14 12:25    457  BC0THOR       *   FILE 558
//*        STRIPLID   01.14  1990/09/27 12:07    203  USER02        *   FILE 558
//*        SVCDEXTR   01.00  1991/09/10 16:56    151  USER02        *   FILE 558
//*        SVCDMERG   01.08  1991/09/13 10:44    195  USER02        *   FILE 558
//*        SVCDREFM   01.00  1991/09/10 15:27    132  USER02        *   FILE 558
//*        SVCDREF1   01.13  1991/09/13 14:00    144  USER02        *   FILE 558
//*        SVCDREF2   01.09  1991/09/13 15:15    175  USER02        *   FILE 558
//*        SVLNK      01.00  1999/04/23 16:57     96  BC0THOR       *   FILE 558
//*        TAPEHEAD   01.07  1999/10/08 14:32    675  BC0THOR       *   FILE 558
//*        TAPESCAN   01.00  2001/01/05 11:40   1843  BC0THOR       *   FILE 558
//*        TCREPRT    01.04  2002/01/09  8:10    312  BC0THOR       *   FILE 558
//*        TGET       01.00  1999/05/21 16:16     65  BC0THOR       *   FILE 558
//*        TIME       01.00  1999/02/22 12:06    103  BC0THOR       *   FILE 558
//*        TIMECOMP   01.29  1999/01/14  9:13    285  BC0THOR       *   FILE 558
//*        TIMECONV   01.04  1999/01/15 13:47    116  BC0THOR       *   FILE 558
//*        TPUT       01.00  1999/05/21 16:16     62  BC0THOR       *   FILE 558
//*        TRACEDT    01.04  1993/08/06 12:16    269  USER02        *   FILE 558
//*        TRACEOFF   01.04  2001/07/25 14:06     38  BC0THOR       *   FILE 558
//*        TRACEON    01.06  2001/07/25 14:07    306  BC0THOR       *   FILE 558
//*        TSODUMP    01.00  1989/09/26 10:10    793  USER02        *   FILE 558
//*        UCB        01.00  1989/09/26 10:10     31  USER02        *   FILE 558
//*        UCBLKUP    01.01  1989/09/26 10:10    312  USER02        *   FILE 558
//*        UCBLOOK    01.00  2001/02/05  9:44     27  BC0THOR       *   FILE 558
//*        UCBREPRT   01.00  1989/09/26 10:10    197  USER02        *   FILE 558
//*        UCBSCAN    01.01  1999/04/28 16:37    167  BC0THOR       *   FILE 558
//*        UCBSRCH    01.01  1989/09/26 10:10     46  USER02        *   FILE 558
//*        UNIQUE     01.04  2001/09/12 15:30    292  BC0THOR       *   FILE 558
//*        UNSQUZ80   01.01  1989/09/26 10:10    188  USER02        *   FILE 558
//*        UPDMEM     01.09  2000/10/10  9:55    188  BC0THOR       *   FILE 558
//*        UPDTLMOD   01.02  1992/07/09 13:33    177  USER02        *   FILE 558
//*        USECPU     01.13  1990/08/27 10:24    116  USER02        *   FILE 558
//*        USERABND   01.03  2000/06/04 10:34    100  BC0THOR       *   FILE 558
//*        VBSCHECK   01.02  1992/05/19 10:36    143  USER02        *   FILE 558
//*        VERCSECT   01.01  1990/03/06 17:08    518  USER02        *   FILE 558
//*        VERLDMOD   01.08  1990/03/06 10:11    739  USER02        *   FILE 558
//*        VOLFILE    01.09  1998/12/28 19:16    219  BC0THOR       *   FILE 558
//*        VOLLIST2   01.19  1994/03/30 15:47    339  USER02        *   FILE 558
//*        VOLSPACE   01.00  1999/04/01 16:24    344  BC0THOR       *   FILE 558
//*        VOLSPOLD   01.00  1993/11/18 10:33    353  USER02        *   FILE 558
//*        VRNDUPDT   01.01  1990/02/16 11:04    399  USER02        *   FILE 558
//*        VSAMFILE   01.04  2000/10/17 17:09    265  BC0THOR       *   FILE 558
//*        VSAMHIST   01.01  1993/11/17 12:00    533  USER02        *   FILE 558
//*        VTOCDATA   01.03  1991/10/31 15:53    368  USER02        *   FILE 558
//*        VTOCDSVL   01.00  1999/10/01 11:39    132  BC0THOR       *   FILE 558
//*        VTOCLISG   01.06  1991/07/02 13:33    658  T7895         *   FILE 558
//*        VTOCLIST   01.00  1989/09/26 10:12    353  USER02        *   FILE 558
//*        VTOCPRNT   01.03  1991/11/01 10:46    133  USER02        *   FILE 558
//*        VTOCSTRP   01.05  1989/09/26 10:12    220  USER02        *   FILE 558
//*        WAITASEC   01.00  2002/02/11 11:33     65  BC0THOR       *   FILE 558
//*        WAIT5MIN   01.01  1990/06/18 11:06     35  USER02        *   FILE 558
//*        WHERE      01.16  2001/07/13 13:26    825  BC0THOR       *   FILE 558
//*        WHEREAMI   01.02  2001/11/08 13:04     31  BC0THOR       *   FILE 558
//*        WRITEKL    01.02  2000/10/25 10:46    100  BC0THOR       *   FILE 558
//*        WTOEXP     01.06  1989/09/26 10:12     26  USER02        *   FILE 558
//*        WTOEXP1    01.01  1999/11/11 11:33     28  BC0THOR       *   FILE 558
//*        WTOHI      01.01  2001/04/23 15:11     68  BC0THOR       *   FILE 558
//*        WTOLO      01.02  2001/04/23 13:45     79  BC0THOR       *   FILE 558
//*        WTOPGMR    01.02  2001/04/24  8:17     79  BC0THOR       *   FILE 558
//*        WTOREGS    01.06  1996/04/04 15:44     75  BC0THOR       *   FILE 558
//*        WTORTEST   01.02  1999/11/08 14:23     28  BC0THOR       *   FILE 558
//*        XMEM       01.17  1990/11/28 10:11    209  USER02        *   FILE 558
//*        XMEMGET    01.00  1989/09/26 10:13    358  USER02        *   FILE 558
//*        XMEMTEST   01.00  1989/09/26 10:13    281  USER02        *   FILE 558
//*        XPRNT      01.01  1995/02/03 15:45     21  BC0THOR       *   FILE 558
//*        XREAD      01.00  1995/02/03 15:31     28  BC0THOR       *   FILE 558
//*        XWHERE     01.03  1990/11/20 14:38    306  USER02        *   FILE 558
//*                                                                 *   FILE 558
//***FILE 559 is from Dick Thornton, who is the author of the       *   FILE 559
//*           DISASSEMBLER program on File 217, and his new         *   FILE 559
//*           DISASSEMBLER program on File 234.  This is a large    *   FILE 559
//*           collection of his C-Language Code.                    *   FILE 559
//*                                                                 *   FILE 559
//*           emails:  (check to see which are relevant):           *   FILE 559
//*               dickthor@hotmail.com                              *   FILE 559
//*               cthornton@swva.net                                *   FILE 559
//*               rthornton@trigon.com                              *   FILE 559
//*                                                                 *   FILE 559
//*           Many extra C-Language programs are also included      *   FILE 559
//*           in the IEBUPDTE-unloaded pds, which is member         *   FILE 559
//*           $SAMPSRC.                                             *   FILE 559
//*                                                                 *   FILE 559
//*           JCL to run the C-Language programs are also included  *   FILE 559
//*           in the IEBUPDTE-unloaded pds, which is member         *   FILE 559
//*           $SAMPJCL.                                             *   FILE 559
//*                                                                 *   FILE 559
//***FILE 560 is from Dick Thornton, who is the author of the       *   FILE 560
//*           DISASSEMBLER program on File 217, and his new         *   FILE 560
//*           DISASSEMBLER program on File 234.  This is his JCL    *   FILE 560
//*           collection which (among other things) contains        *   FILE 560
//*           sample JCL to run his other utilities in batch.       *   FILE 560
//*                                                                 *   FILE 560
//*           emails:  (check to see which are relevant):           *   FILE 560
//*               dickthor@hotmail.com                              *   FILE 560
//*               cthornton@swva.net                                *   FILE 560
//*               rthornton@trigon.com                              *   FILE 560
//*                                                                 *   FILE 560
//***FILE 561 is from Dick Thornton, who is the author of the       *   FILE 561
//*           DISASSEMBLER program on File 217, and his new         *   FILE 561
//*           DISASSEMBLER program on File 234.  This is his        *   FILE 561
//*           CLIST collection.  This collection has been           *   FILE 561
//*           converted from the original VB-255 to the FB-80       *   FILE 561
//*           format, but there were very few "long lines" that     *   FILE 561
//*           had to be folded.                                     *   FILE 561
//*                                                                 *   FILE 561
//*           emails:  (check to see which are relevant):           *   FILE 561
//*               dickthor@hotmail.com                              *   FILE 561
//*               cthornton@swva.net                                *   FILE 561
//*               rthornton@trigon.com                              *   FILE 561
//*                                                                 *   FILE 561
//***FILE 562 is from Dick Thornton, who is the author of the       *   FILE 562
//*           DISASSEMBLER program on File 217, and his new         *   FILE 562
//*           DISASSEMBLER program on File 234.  This is his EXEC   *   FILE 562
//*           library which also contains an ISPF panel library     *   FILE 562
//*           (as member $PNLS) and an ISPF message library (as     *   FILE 562
//*           member $MSGS).  Member $$PDSLOD is a job to create    *   FILE 562
//*           pds'es from the $MSGS and $PNLS members of this file. *   FILE 562
//*                                                                 *   FILE 562
//*           emails:  (check to see which are relevant):           *   FILE 562
//*               dickthor@hotmail.com                              *   FILE 562
//*               cthornton@swva.net                                *   FILE 562
//*               rthornton@trigon.com                              *   FILE 562
//*                                                                 *   FILE 562
//*      I am including three XMIT files in this package.           *   FILE 562
//*                                                                 *   FILE 562
//*      They are EXEC, MSGS, and PLIB which together contain an    *   FILE 562
//*      ISPF dialog I wrote in an attempt to give our              *   FILE 562
//*      programmers an online guide to reading Abend-Aid dumps.    *   FILE 562
//*      It is intended to provide instructions a programmer can    *   FILE 562
//*      use to analyze a SYSUDUMP produced by Abend-Aid in order   *   FILE 562
//*      to locate the abending instruction and the corresponding   *   FILE 562
//*      instruction in their COBOL source program.  In addition,   *   FILE 562
//*      it aids in location of selected data fields in the dump.   *   FILE 562
//*      It isn't used extensively here, as I didn't follow up      *   FILE 562
//*      and issue training and advertising about it.               *   FILE 562
//*                                                                 *   FILE 562
//***FILE 563 is from Dick Thornton, who is the author of the       *   FILE 563
//*           DISASSEMBLER program on File 217, and his new         *   FILE 563
//*           DISASSEMBLER program on File 234.  This is a large    *   FILE 563
//*           collection of his COBOL code.                         *   FILE 563
//*                                                                 *   FILE 563
//*           emails:  (check to see which are relevant):           *   FILE 563
//*               dickthor@hotmail.com                              *   FILE 563
//*               cthornton@swva.net                                *   FILE 563
//*               rthornton@trigon.com                              *   FILE 563
//*                                                                 *   FILE 563
//***FILE 564 is from Dick Thornton, who is the author of the       *   FILE 564
//*           DISASSEMBLER program on File 217, and his new         *   FILE 564
//*           DISASSEMBLER program on File 234.  This is his        *   FILE 564
//*           personal documentation collection.                    *   FILE 564
//*                                                                 *   FILE 564
//*           There are 3 members in this file, which are           *   FILE 564
//*           IEBUPDTE-unloaded pds'es, and if you use the          *   FILE 564
//*           PDSLOAD command instead of IEBUPDTE, you will         *   FILE 564
//*           also get ISPF statistics in each pds.  See member     *   FILE 564
//*           $PDSLOAD for a job to produce the 3 pds'es.           *   FILE 564
//*                                                                 *   FILE 564
//*           The members are:                                      *   FILE 564
//*                                                                 *   FILE 564
//*           INSTRUCT - This is general information about how      *   FILE 564
//*                      to run Dick's programs, plus other         *   FILE 564
//*                      information.                               *   FILE 564
//*                                                                 *   FILE 564
//*           MEMORY   - This consists of one-page note pages,      *   FILE 564
//*                      which tell you how to accomplish certain   *   FILE 564
//*                      tasks.  While some of this is particular   *   FILE 564
//*                      to Dick's site, a lot of it is general     *   FILE 564
//*                      information about how to do the particular *   FILE 564
//*                      job, and that is why we are including it   *   FILE 564
//*                      here.                                      *   FILE 564
//*                                                                 *   FILE 564
//*           DATA     - This is Dick's personal DATA file pds,     *   FILE 564
//*                      but he does a lot of interesting stuff,    *   FILE 564
//*                      and a lot of useful info is to be found    *   FILE 564
//*                      here, if you'll look.....                  *   FILE 564
//*                                                                 *   FILE 564
//*           emails:  (check to see which are relevant):           *   FILE 564
//*               dickthor@hotmail.com                              *   FILE 564
//*               cthornton@swva.net                                *   FILE 564
//*               rthornton@trigon.com                              *   FILE 564
//*                                                                 *   FILE 564
//***FILE 565 is from Dick Thornton, who is the author of the       *   FILE 565
//*           DISASSEMBLER program on File 217, and his new         *   FILE 565
//*           DISASSEMBLER program on File 234.  This is his        *   FILE 565
//*           collection of classes he has either given, or was     *   FILE 565
//*           planning to give.                                     *   FILE 565
//*                                                                 *   FILE 565
//*           There are 3 members in this file, which are           *   FILE 565
//*           IEBUPDTE-unloaded pds'es, and if you use the          *   FILE 565
//*           PDSLOAD command instead of IEBUPDTE, you will         *   FILE 565
//*           also get ISPF statistics in each pds.  See member     *   FILE 565
//*           $PDSLOAD for a job to produce the 3 pds'es.           *   FILE 565
//*                                                                 *   FILE 565
//*           You will have to re-sort the members of these         *   FILE 565
//*           pds'es for yourself, because the members get          *   FILE 565
//*           listed in EBCDIC collating sequence, of course,       *   FILE 565
//*           and they may not have been presented to the           *   FILE 565
//*           students in this order.  Please examine the doc       *   FILE 565
//*           which accompanies each course, carefully.             *   FILE 565
//*                                                                 *   FILE 565
//*           The members are:                                      *   FILE 565
//*                                                                 *   FILE 565
//*           CCLASS   - This is a 5-week class in C Language       *   FILE 565
//*                      which Dick has given.                      *   FILE 565
//*                                                                 *   FILE 565
//*           COBCLASS - This is a COBOL class.                     *   FILE 565
//*                                                                 *   FILE 565
//*           DUMPREAD - This is Dick's dump reading class.         *   FILE 565
//*                                                                 *   FILE 565
//*           emails:  (check to see which are relevant):           *   FILE 565
//*               dickthor@hotmail.com                              *   FILE 565
//*               cthornton@swva.net                                *   FILE 565
//*               rthornton@trigon.com                              *   FILE 565
//*                                                                 *   FILE 565
//***FILE 566 is from Sam Bass and contains a collection of his     *   FILE 566
//*           utilities.                                            *   FILE 566
//*                                                                 *   FILE 566
//*      (Remark from Sam Golob:  They are very good...!!!)         *   FILE 566
//*                                                                 *   FILE 566
//*           email   :  vendors@kmbass.com                         *   FILE 566
//*                                                                 *   FILE 566
//*           web site:  http://www.kmbass.com                      *   FILE 566
//*                                                                 *   FILE 566
//*   Added member DUMPLIB which is an XMIT-format load library     *   FILE 566
//*   containing the DUMP**** load modules, most of which were      *   FILE 566
//*   enabled for PUTLINE output.  This will make it easier to      *   FILE 566
//*   deploy the DUMP**** programs, by just copying the load        *   FILE 566
//*   to a library accessible to your TSO session.                  *   FILE 566
//*                                                                 *   FILE 566
//*   See member $$NOTE03 for further information about these       *   FILE 566
//*   programs.                                                     *   FILE 566
//*                                                                 *   FILE 566
//*   CLISTS member added.                                          *   FILE 566
//*                                                                 *   FILE 566
//*   A short description of the utilities follows:                 *   FILE 566
//*                                                                 *   FILE 566
//*      #ASMALL  JCL to assemble all source members                *   FILE 566
//*                                                                 *   FILE 566
//*      APFLIST  TSO command to list datasets in APF List          *   FILE 566
//*               (Converted to PUTLINE outpup - old version is     *   FILE 566
//*                kept here as member APFLIST0)                    *   FILE 566
//*                                                                 *   FILE 566
//*      CONSOLE  TSO console display program                       *   FILE 566
//*        (SPY)  Name for the new version of the CONSOLE program   *   FILE 566
//*                                                                 *   FILE 566
//*      COPYTPX, which is assembled with RTAPE2, is a tape copy    *   FILE 566
//*               utility that can copy tapes with blocksize up     *   FILE 566
//*               to 256K.  Use it with a parm of J, to force the   *   FILE 566
//*               output tape's volser to match the SYSUT2 volser   *   FILE 566
//*               in the JCL.  Otherwise, the program just makes    *   FILE 566
//*               a 'xerox copy' of the input tape, with the same   *   FILE 566
//*               volser.  RTAPE2 is a called routine that does     *   FILE 566
//*               the actual tape I/O.                              *   FILE 566
//*                                                                 *   FILE 566
//*      LNKLIST  TSO command to list datasets in the Link List     *   FILE 566
//*                                                                 *   FILE 566
//*      DSCATNAM Subroutine to return catalog name for an          *   FILE 566
//*               catalog alias                                     *   FILE 566
//*                                                                 *   FILE 566
//*      DSCPPL   Subroutine to build a CPPL if called as           *   FILE 566
//*               non-TSO command                                   *   FILE 566
//*                                                                 *   FILE 566
//*      DSDSM08  Scan catalog looking for dsns cataloged on        *   FILE 566
//*               wrong volume                                      *   FILE 566
//*                                                                 *   FILE 566
//*      DSUNARC  RECALL all migrated datasets for job when used    *   FILE 566
//*               as 1st step                                       *   FILE 566
//*                                                                 *   FILE 566
//*      DSWTO    Subroutine to issue WTO (COBOL callable)          *   FILE 566
//*                                                                 *   FILE 566
//*      DSWTOMSG Subroutine to issue WTOR (COBOL callable)         *   FILE 566
//*                                                                 *   FILE 566
//*      --------------------------------------------------------   *   FILE 566
//*                                                                 *   FILE 566
//*      Most of the DUMP**** commands were fixed to give PUTLINE   *   FILE 566
//*      output, so their output can be trapped and Browsed or      *   FILE 566
//*      Edited or Viewed or REVIEWed.  The execs TSOB, TSOE,       *   FILE 566
//*      TSOV and TSOR from Mark Zelden have been included here     *   FILE 566
//*      for this purpose, or you may use the SYSOUTTRAP-ing tool   *   FILE 566
//*      of your choice.                                            *   FILE 566
//*                                                                 *   FILE 566
//*      To assemble the modules fixed for PUTLINE, you must        *   FILE 566
//*      include in SYSLIB, a library containing the EPUTL member,  *   FILE 566
//*      the APUT member, and the modified PRTDUMP member.  To      *   FILE 566
//*      assemble the old modules, you should rename the PRTDUMPT   *   FILE 566
//*      member to PRTDUMP and assemble the old versions of the     *   FILE 566
//*      source.                                                    *   FILE 566
//*                                                                 *   FILE 566
//*      Sample assembly and linkedit jobs for the fixed modules    *   FILE 566
//*      have been included with $ in their names (obvious).        *   FILE 566
//*                                                                 *   FILE 566
//*      DUMPACEE TSO command to dump ACEE, UTOKEN, and ACEX.       *   FILE 566
//*                                                                 *   FILE 566
//*      DUMPASCB TSO command to dump ASCB                          *   FILE 566
//*                                                                 *   FILE 566
//*      DUMPASSB TSO command to dump ASSB                          *   FILE 566
//*                                                                 *   FILE 566
//*      DUMPASVT TSO command to dump ASVT with all its ASCB's.     *   FILE 566
//*                                                                 *   FILE 566
//*      DUMPCSCB TSO command to dump CSCB                          *   FILE 566
//*                                                                 *   FILE 566
//*      DUMPINMX TSO command to dump XPRMD (XMIT-RECEIVE c-block)  *   FILE 566
//*                           (IKJXPRM macro needed to assemble)    *   FILE 566
//*                                                                 *   FILE 566
//*      DUMPJCT  TSO command to dump JCT (os)                      *   FILE 566
//*                                                                 *   FILE 566
//*      DUMPLWA  TSO command to dump LWA                           *   FILE 566
//*                                                                 *   FILE 566
//*      DUMPPCCB TSO command to dump PCCB                          *   FILE 566
//*                                                                 *   FILE 566
//*      DUMPPPT  TSO command to dump PPT entries to the console.   *   FILE 566
//*                                       (not fixed for PUTLINE)   *   FILE 566
//*                                                                 *   FILE 566
//*      DUMPPRB  TSO command to dump PRB (not fixed for PUTLINE)   *   FILE 566
//*                                                                 *   FILE 566
//*      DUMPPSCB TSO command to dump PSCB, UPT, ECT for this user  *   FILE 566
//*                                                                 *   FILE 566
//*      DUMPSCT  TSO command to dump SCT                           *   FILE 566
//*                                                                 *   FILE 566
//*      DUMPTCT  TSO command to dump TCT                           *   FILE 566
//*                                                                 *   FILE 566
//*      DUMPTIOT TSO command to dump TIOT                          *   FILE 566
//*                                                                 *   FILE 566
//*      DUMPTSB  TSO command to dump TSB (includes TSBX)           *   FILE 566
//*                                                                 *   FILE 566
//*      DUMPTSVT TSO command to dump TSVT and TPVT (IKJTPVT macro  *   FILE 566
//*                                        needed to assemble)      *   FILE 566
//*                                                                 *   FILE 566
//*      --------------------------------------------------------   *   FILE 566
//*                                                                 *   FILE 566
//*      DYNAM    Subroutine for SVC 99, COBOL callable, now is     *   FILE 566
//*               AMODE=31                                          *   FILE 566
//*                                                                 *   FILE 566
//*      DYNAMDOC DYNAM doc                                         *   FILE 566
//*                                                                 *   FILE 566
//*      FIXDSCB  Modifies, renames, scratch datasets that are      *   FILE 566
//*               allocated (authorized SVC required).              *   FILE 566
//*                                                                 *   FILE 566
//*      FIXDSCB2 Modifies, renames, scratch datasets that are      *   FILE 566
//*               allocated mvs 3.8 (must be APF authorized).       *   FILE 566
//*                                                                 *   FILE 566
//*      GENPARM  Takes PARM fields and writes to //PARM ddname     *   FILE 566
//*               RECMF=FB,80                                       *   FILE 566
//*                                                                 *   FILE 566
//*      KMBAPFLB Adds dataset to APFlist (authorized SVC           *   FILE 566
//*               required).                                        *   FILE 566
//*                                                                 *   FILE 566
//*      LNKLIST  TSO command to list lnklist datasets              *   FILE 566
//*                                                                 *   FILE 566
//*      LPALIST  TSO command to list lpalst  datasets              *   FILE 566
//*               (Fixed to display LPA-defined copy of dataset     *   FILE 566
//*               and compare to cataloged copy of the dataset.)    *   FILE 566
//*                                                                 *   FILE 566
//*      MVSAREAS MACRO for dump... members                         *   FILE 566
//*                                                                 *   FILE 566
//*      PRTDUMP  MACRO for dump... members                         *   FILE 566
//*                                                                 *   FILE 566
//*      SQAMON   Monitors CSA and SQA changes (req APF             *   FILE 566
//*               authorized).                                      *   FILE 566
//*                                                                 *   FILE 566
//*      STPCOND  Sends wto to job submittor about step cond        *   FILE 566
//*               codes, use as last step in job                    *   FILE 566
//*                                                                 *   FILE 566
//*      SWAREQ   Subroutine to convert SWA address to real         *   FILE 566
//*               addresses                                         *   FILE 566
//*                                                                 *   FILE 566
//*      WAITTIME Waits PARM='nnn' seconds                          *   FILE 566
//*                                                                 *   FILE 566
//*      WLMREXX  Reads WLM PDS and build SAS code that will load   *   FILE 566
//*               each ISPF table into a SAS database.  Now we need *   FILE 566
//*               someone to write some SAS reports for it.         *   FILE 566
//*                                                                 *   FILE 566
//*  >>>   The WLMREXX now needs someone to write some              *   FILE 566
//*  >>>   SAS reports to make WLM settings to easily be            *   FILE 566
//*  >>>   understood.                                              *   FILE 566
//*                                                                 *   FILE 566
//*  >>>   (We're soliciting volunteers - if you write reports      *   FILE 566
//*  >>>   for yourself, which use this material, please send       *   FILE 566
//*  >>>   the source code to Sam Golob  sbgolob@cbttape.org ,      *   FILE 566
//*  >>>   so I can add them to the contents of this file.          *   FILE 566
//*  >>>   Thanks in advance for your help.....)                    *   FILE 566
//*                                                                 *   FILE 566
//*      ZAPDSCB  TSO full screen dataset attribute zapper          *   FILE 566
//*               (authorized SVC eliminated. needs AUTHCMD         *   FILE 566
//*               entry in IKJTSOxx parmlib table instead)          *   FILE 566
//*                                                                 *   FILE 566
//*      ZAPDSCB# TSO HELP member for ZAPDSCB. IT IS IMPORTANT      *   FILE 566
//*               TO READ THIS....!!! (explanation of prefix)       *   FILE 566
//*                                                                 *   FILE 566
//*      ZAPDSCB2 TSO full screen dataset attribute zapper          *   FILE 566
//*               ESA 4.3 and below (authorized SVC required).      *   FILE 566
//*                                                                 *   FILE 566
//***FILE 567 is from Clark Jennings, and contains some tools to    *   FILE 567
//*           monitor LLA performance and to report on SMF Type 41  *   FILE 567
//*           records.  This file also has a CSVLLIX2 exit to       *   FILE 567
//*           capture module fetch information.                     *   FILE 567
//*                                                                 *   FILE 567
//*           email:  clarkjennings@yahoo.com                       *   FILE 567
//*                                                                 *   FILE 567
//*   LLA Module Fetch Analysis Tools                               *   FILE 567
//*                                                                 *   FILE 567
//*   **DISCLAIMER**                                                *   FILE 567
//*   NO WARRANTY IS MADE TO THE ACCURACY OF THE PROGRAMS OR        *   FILE 567
//*   RELATED MATERIAL AND NO RESPONSIBILITY IS ASSUMED FOR         *   FILE 567
//*   ANY MODIFICATION DIRECTLY OR INDIRECTLY CAUSED BY THE         *   FILE 567
//*   USE OF THIS SOFTWARE.  IT IS THE USER'S RESPONSIBILITY        *   FILE 567
//*   TO EVALUATE THE USEFULNESS OF THE MATERIAL SUPPLIED.          *   FILE 567
//*                                                                 *   FILE 567
//*   This library contains the following members:                  *   FILE 567
//*                                                                 *   FILE 567
//*   $$DOC    - This member                                        *   FILE 567
//*                                                                 *   FILE 567
//*   CSVLLIX2 - LLA exit that collects module fetch information    *   FILE 567
//*              for LLA managed libraries.  The exit obtains       *   FILE 567
//*              storage in the LLA address space.  A WTO is        *   FILE 567
//*              issued with the address of this storage area.      *   FILE 567
//*              The usage information contained in the storage     *   FILE 567
//*              area can be viewed with any MVS monitor or tool    *   FILE 567
//*              that displays another task's storage.  The exit    *   FILE 567
//*              has been tested with OS/390 2.10.                  *   FILE 567
//*                                                                 *   FILE 567
//*   SMFLLA     SAS program that reports I/O activity in LLA.      *   FILE 567
//*              The program has been tested with OS/390 2.10.      *   FILE 567
//*                                                                 *   FILE 567
//*   SMF41S     SAS program that summarizes SMF type 41 records.   *   FILE 567
//*              The program has been tested with OS/390 2.10.      *   FILE 567
//*                                                                 *   FILE 567
//***FILE 568 is a load module library which is a set of old TSO    *   FILE 568
//*           computer games.  This library was sent in by Dick     *   FILE 568
//*           Thornton.  The games are circa 1980 or so, and if     *   FILE 568
//*           you include the run-time PL/1-F library from File     *   FILE 568
//*           092 in ISPLLIB or the link list, or get to it some    *   FILE 568
//*           other way, all these games should work fine on        *   FILE 568
//*           current MVS systems.                                  *   FILE 568
//*                                                                 *   FILE 568
//*           emails:  (check to see which are relevant):           *   FILE 568
//*               dickthor@hotmail.com                              *   FILE 568
//*               cthornton@swva.net                                *   FILE 568
//*               rthornton@trigon.com                              *   FILE 568
//*                                                                 *   FILE 568
//*           Please see member $$$NOTES and member GAMERULE in     *   FILE 568
//*           File 569 for further information.  Some of the        *   FILE 568
//*           games have built-in rules instructions.               *   FILE 568
//*                                                                 *   FILE 568
//*      Additional Notes....                                       *   FILE 568
//*                                                                 *   FILE 568
//*      These games were outlawed by management here years ago,    *   FILE 568
//*      but I learned that a co-worker had captured them and       *   FILE 568
//*      renamed them to appear to be production programs based     *   FILE 568
//*      on our corporate naming standards.  I have left the        *   FILE 568
//*      names as-is, but you might want to rename them.  The       *   FILE 568
//*      games are:                                                 *   FILE 568
//*                                                                 *   FILE 568
//*           ZNC1010P is BLACKJACK                                 *   FILE 568
//*           ZNC1020P is TTT (Three-dimensional Tic-Tac-Toe)       *   FILE 568
//*                    (needs PL/1-F library)                       *   FILE 568
//*           ZNC1030P is TARGET                                    *   FILE 568
//*           ZNC1040P is EMPEROR                                   *   FILE 568
//*           ZNC1050P is MASTERMIND (needs PL/1-F library)         *   FILE 568
//*           ZNC1060P is COFFEE                                    *   FILE 568
//*           ZNC1070P is FOOTBALL                                  *   FILE 568
//*           ZNC1080P is STARTREK                                  *   FILE 568
//*           ZNC1110P is a game with numbers in an oval shaped     *   FILE 568
//*                    display (KALAH)                              *   FILE 568
//*                                                                 *   FILE 568
//*      I also found a set of rules that include BLACKJACK,        *   FILE 568
//*      TTT, TARGET, COFFEE, FOOTBALL, and STARTREK.  It is in     *   FILE 568
//*      one of the PDS's I sent earlier, but I will send a copy    *   FILE 568
//*      with this email, as well.  It is member GAMERULE of        *   FILE 568
//*      File 569.                                                  *   FILE 568
//*                                                                 *   FILE 568
//*      To execute the games, I found they work by issuing a       *   FILE 568
//*      CALL for them at the TSO READY prompt.  In ISPF you'd      *   FILE 568
//*      have to go to the command screen or else precede the       *   FILE 568
//*      CALL with "TSO".  Anyway, except for STARTREK, the         *   FILE 568
//*      execute command is:                                        *   FILE 568
//*                                                                 *   FILE 568
//*           "CALL "userid.FILE568.PDS(ZNC1020)"                   *   FILE 568
//*                                                                 *   FILE 568
//*      Which works for all the games except STARTREK              *   FILE 568
//*      (ZNC1080P), which requires that you first allocate two     *   FILE 568
//*      files:                                                     *   FILE 568
//*                                                                 *   FILE 568
//*           "ALLOC F(FT05F001) DA(*)"                             *   FILE 568
//*           "ALLOC F(FT06F001) DA(*)"                             *   FILE 568
//*           "CALL 'userid.FILE568.PDS(ZNC1080P)'"                 *   FILE 568
//*                                                                 *   FILE 568
//***FILE 569 is an FB-80 library which contains rules for the      *   FILE 569
//*           TSO computer games in the load library in File 568.   *   FILE 569
//*           This library was sent in by Dick Thornton.            *   FILE 569
//*                                                                 *   FILE 569
//*           The games are circa 1980 or so, and if you include    *   FILE 569
//*           the run-time PL/1-F library from File 092 in          *   FILE 569
//*           ISPLLIB or the link list, or get to it some other     *   FILE 569
//*           way, all these games should work fine on current      *   FILE 569
//*           MVS systems (04/02).                                  *   FILE 569
//*                                                                 *   FILE 569
//*           emails:  (check to see which are relevant):           *   FILE 569
//*               dickthor@hotmail.com                              *   FILE 569
//*               cthornton@swva.net                                *   FILE 569
//*               rthornton@trigon.com                              *   FILE 569
//*                                                                 *   FILE 569
//*           Please see member $$$NOTES and member GAMERULE in     *   FILE 569
//*           File 569 for further information.  Some of the        *   FILE 569
//*           games have built-in rules instructions.               *   FILE 569
//*                                                                 *   FILE 569
//***FILE 570 is dedicated to MVS TIPS and TRICKS which people      *   FILE 570
//*           have sent in.  We need a place to hold miscellaneous  *   FILE 570
//*           MVS advice, and here it is....                        *   FILE 570
//*                                                                 *   FILE 570
//*           This is meant to be an ongoing, expanding file,       *   FILE 570
//*           with contributions coming in from a lot of people     *   FILE 570
//*           (hopefully).                                          *   FILE 570
//*                                                                 *   FILE 570
//*           PLEASE SEND YOUR OWN CONTRIBUTIONS TO THIS FILE,      *   FILE 570
//*                                                                 *   FILE 570
//*              to email:   sbgolob@cbttape.org                    *   FILE 570
//*                                                                 *   FILE 570
//*           Queries about this file should be sent to Sam Golob,  *   FILE 570
//*           at this email address.                                *   FILE 570
//*                                                                 *   FILE 570
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 570
//*                                                                 *   FILE 570
//*               M V S   T I P S   A N D   T R I C K S             *   FILE 570
//*                                                                 *   FILE 570
//*    List of tips and tricks available so far (by member name):   *   FILE 570
//*                                                                 *   FILE 570
//*    BATISPF  - from Roy Gardiner - hints as to how to run ISPF   *   FILE 570
//*               in batch.                                         *   FILE 570
//*                                                                 *   FILE 570
//*    CLEARSPL - from Dan Schwarz - sometimes "dead jobs" can      *   FILE 570
//*               accumulate and fill up JES2 spool space.  Here's  *   FILE 570
//*               how to look for these jobs, and get rid of them.  *   FILE 570
//*                                                                 *   FILE 570
//*               If your JES2 spool is short on track groups,      *   FILE 570
//*               you should definitely look at this suggestion.    *   FILE 570
//*                                                                 *   FILE 570
//*    DUMPCONC - Here's a way to get concurrent dumps from all     *   FILE 570
//*               or several LPARs in a SYSPLEX.                    *   FILE 570
//*                                                                 *   FILE 570
//*    HOWTO    - A very comprehensive collection of jobs which     *   FILE 570
//*               create most of a z/OS 1.4 system.  Use as a       *   FILE 570
//*               reference to look at, when you need to do         *   FILE 570
//*               something (like, for example, enlarging a RACF    *   FILE 570
//*               database, or allocating a new version of one      *   FILE 570
//*               of the system datasets) which you want to do      *   FILE 570
//*               properly.                                         *   FILE 570
//*                                                                 *   FILE 570
//*    JESJOBNO - Code to get the JES job number.                   *   FILE 570
//*                                                                 *   FILE 570
//*    LOGONREX - How to use a REXX exec (instead of a CLIST) for   *   FILE 570
//*               a 'Logon CLIST".                                  *   FILE 570
//*                                                                 *   FILE 570
//*    PERSAUTH - How to authorize certain TSO commands, only for   *   FILE 570
//*               your own TSO sessions, and not for the other      *   FILE 570
//*               folks at your installation.  It is built on a     *   FILE 570
//*               secret, undocumented TSO principle, which is      *   FILE 570
//*               described here.                                   *   FILE 570
//*                                                                 *   FILE 570
//*    SHOWMACS - Get this from File 492.  There are lots of        *   FILE 570
//*               undocumented control block mappings here.         *   FILE 570
//*                                                                 *   FILE 570
//*    SSH      - Some hints as to how to get sshd to work under    *   FILE 570
//*               UNIX services.                                    *   FILE 570
//*                                                                 *   FILE 570
//*    SYSDOCB  - Miscellaneous facts about MVS, received from      *   FILE 570
//*               Bruce Bordonaro, representing things he had to    *   FILE 570
//*               do in the past, and he has written down how to    *   FILE 570
//*               do them.  There are some undocumented ways of     *   FILE 570
//*               finding MVS control block information here and    *   FILE 570
//*               there are many other useful tidbits.              *   FILE 570
//*                  ** --  Interesting Reading  -- **              *   FILE 570
//*                                                                 *   FILE 570
//*    THORNTON - A very large collection of "how to do stuff"      *   FILE 570
//*               from Dick Thornton.  This is basically his        *   FILE 570
//*               MEMORY member from CBT Tape File 564.  It has     *   FILE 570
//*               been included here, because that's what this      *   FILE 570
//*               file is basically about:  a collection of         *   FILE 570
//*               miscellaneous "how to do stuff" things.           *   FILE 570
//*               Some of this material refers to Dick's other      *   FILE 570
//*               files:  CBT Tape Files 558 thru 565.              *   FILE 570
//*                                                                 *   FILE 570
//*    TRACING -  An excellent piece of advice from an expert       *   FILE 570
//*               REXX programmer, on how to set yp your REXX       *   FILE 570
//*               execs to easily enable tracing.  From Frank       *   FILE 570
//*               Clarke.                                           *   FILE 570
//*                                                                 *   FILE 570
//*    UPARMLIB - How to set up an MVS operating system that        *   FILE 570
//*               uses your own "user PARMLIB".  From Dave          *   FILE 570
//*               Kulas.                                            *   FILE 570
//*                                                                 *   FILE 570
//***FILE 571 is from Jim Morrison, and contains XMIT370 and        *   FILE 571
//*           RECV370.  These are tools to create and handle        *   FILE 571
//*           XMIT-format pds files (which are FB-80 sequential     *   FILE 571
//*           files) on MVS systems (such as MVS 3.8) which do      *   FILE 571
//*           not contain the TSO XMIT and RECEIVE commands.        *   FILE 571
//*                                                                 *   FILE 571
//*           XMIT and RECEIVE were first shipped with TSO/E,       *   FILE 571
//*           so any pre-TSO/E TSO releases probably do not have    *   FILE 571
//*           the XMIT and RECEIVE capabilities.                    *   FILE 571
//*                                                                 *   FILE 571
//*           These tools are batch programs, and are not TSO       *   FILE 571
//*           commands, as are the TSO/E XMIT and RECEIVE programs. *   FILE 571
//*                                                                 *   FILE 571
//*           These programs were created so that Hercules MVS 3.8  *   FILE 571
//*           users can handle XMIT-format sequentialized pds'es.   *   FILE 571
//*                                                                 *   FILE 571
//*           A load module library has been included, as member    *   FILE 571
//*           XMIT370L, in normal TSO XMIT format.                  *   FILE 571
//*                                                                 *   FILE 571
//*           An object module library has been included, as        *   FILE 571
//*           XMIT370O, in IEBUPDTE (PDSLOAD) format.               *   FILE 571
//*                                                                 *   FILE 571
//*           The previous version of this file has been included   *   FILE 571
//*           in IEBUPDTE (PDSLOAD) format, as member $OLDF571.     *   FILE 571
//*                                                                 *   FILE 571
//*         email:  Jim Morrison <n9gtm@comcast.net>                *   FILE 571
//*                                                                 *   FILE 571
//*    Updates to members JXMITPDS and U370DATE from Phil Roberts.  *   FILE 571
//*                                                                 *   FILE 571
//*         email:  Phil Roberts <opplr@hotmail.com>                *   FILE 571
//*                                                                 *   FILE 571
//***FILE 572 is from Jeff Kaplan and contains zip programs that    *   FILE 572
//*           run on MVS.  As written, these programs are quite     *   FILE 572
//*           specialized in what they do, but they are a beginning *   FILE 572
//*           to show us the way.                                   *   FILE 572
//*                                                                 *   FILE 572
//*           There are two packages here.  One is a zip program    *   FILE 572
//*           written in Assembler, which puts its output to an     *   FILE 572
//*           HFS file, and which is designed to zip big reports    *   FILE 572
//*           relatively quickly.                                   *   FILE 572
//*                                                                 *   FILE 572
//*           The second program is written in JAVA, and is a very  *   FILE 572
//*           high-compression program compatible with the common   *   FILE 572
//*           zipping programs from other platforms.                *   FILE 572
//*                                                                 *   FILE 572
//*             email:  jdkaplan@optonline.net                      *   FILE 572
//*                                                                 *   FILE 572
//*           ZIPPER   - An assembler program designed to zip       *   FILE 572
//*                      large reports with ANSI control            *   FILE 572
//*                      characters.  If the report exceeds a       *   FILE 572
//*                      certain size, then the program breaks      *   FILE 572
//*                      the resulting zipped files into chunks.    *   FILE 572
//*                                                                 *   FILE 572
//*           ZIPJAVA  - JAVA language zip program for MVS.         *   FILE 572
//*                      This is an IEBUPDTE-format pds, with       *   FILE 572
//*                      several members.                           *   FILE 572
//*                                                                 *   FILE 572
//***FILE 573 is from Shane Ginnane, and contains an IEFUJV exit    *   FILE 573
//*           which allows for substitution of system symbols into  *   FILE 573
//*           execution JCL.  There's a bit more, too.              *   FILE 573
//*                                                                 *   FILE 573
//*           email:  Shane.Ginnane@qr.com.au                       *   FILE 573
//*                                                                 *   FILE 573
//*       - - - - - - - - - - - - - - - - - - - - - - - - - - -     *   FILE 573
//*                                                                 *   FILE 573
//*        IEFUJV    SMF JOB VALIDATION - ALLOW JCL VARIABLES       *   FILE 573
//*                                                                 *   FILE 573
//*        MODULE NAME = IEFUJV                                     *   FILE 573
//*                                                                 *   FILE 573
//*        FUNCTION =                                               *   FILE 573
//*                                                                 *   FILE 573
//*           Provide access to system symbols in JCL               *   FILE 573
//*           use a "// SET " statement to assign system symbols    *   FILE 573
//*           to variables local to the job;                        *   FILE 573
//*                                                                 *   FILE 573
//*           e.g. "// SET LPAR=&SYSNAME  " resolves to             *   FILE 573
//*                "// SET LPAR=PROD      "                         *   FILE 573
//*                                                                 *   FILE 573
//*           This may then be used in a DSNAME, such as ...        *   FILE 573
//*                                                                 *   FILE 573
//*           //DD1   DD  DSN=SYS1.&LPAR..MYLIB                     *   FILE 573
//*                                                                 *   FILE 573
//*         Warning:  Symbols are resolved at pre-conversion.       *   FILE 573
//*                                                                 *   FILE 573
//*            This is particularly relevant for date and time      *   FILE 573
//*            where a job is placed on hold or crosses a day       *   FILE 573
//*            boundary.                                            *   FILE 573
//*                                                                 *   FILE 573
//*            Likewise there are JES, MAS, and NJE issues.         *   FILE 573
//*                                                                 *   FILE 573
//*            Caveat emptor....                                    *   FILE 573
//*                                                                 *   FILE 573
//*         Notes =                                                 *   FILE 573
//*                                                                 *   FILE 573
//*            Trailing period on symbol may or may not be          *   FILE 573
//*            included - has no effect on functionality.           *   FILE 573
//*                                                                 *   FILE 573
//*            Multiple symbols per card image is supported.        *   FILE 573
//*                                                                 *   FILE 573
//*            Continuation of "SET" card image is *not*            *   FILE 573
//*            supported.  (Use multiple "SET" cards.)              *   FILE 573
//*                                                                 *   FILE 573
//*            Be aware of symbol substitution extending the        *   FILE 573
//*            card beyond column 72 - this will be returned,       *   FILE 573
//*            and will generally cause a JCL error.                *   FILE 573
//*                                                                 *   FILE 573
//*            Exit will clear the input area to accommodate the    *   FILE 573
//*            situation where the resolved text is shorter.        *   FILE 573
//*                                                                 *   FILE 573
//*            Exit will copy an extra byte from the target to      *   FILE 573
//*            ensure a blank at end.  This handles the scenario    *   FILE 573
//*            where the resolved is longer, and comments           *   FILE 573
//*            follow.                                              *   FILE 573
//*                                                                 *   FILE 573
//***FILE 574 is from Wolfgang Schaefer, and contains a few items   *   FILE 574
//*           that may also be useful in the OS/390 arena, but      *   FILE 574
//*           which are fine add-ons for the MVS 3.8 Hercules       *   FILE 574
//*           environment.  Please see Wolfgang's web site for      *   FILE 574
//*           even more items of interest:                          *   FILE 574
//*                                                                 *   FILE 574
//*           http://www.schaefernet.de/hercules                    *   FILE 574
//*                                                                 *   FILE 574
//*           email:  wolfgang@schaefernet.de                       *   FILE 574
//*                                                                 *   FILE 574
//***FILE 575 is from Thomas Hutchins, and contains a JES2 spool    *   FILE 575
//*           offload utility which allows you to read the data     *   FILE 575
//*           directly off the JES2 SPOOL OFFLOAD datasets, so      *   FILE 575
//*           you don't have to restore it on a JES2 system first,  *   FILE 575
//*           to retrieve the data.  The program is called          *   FILE 575
//*           SPOOLSEL, and it has some other utility capabilities  *   FILE 575
//*           having to do with JES2 SPOOL OFFLOAD files, on tape   *   FILE 575
//*           or on disk.                                           *   FILE 575
//*                                                                 *   FILE 575
//*           Also included are 3 edit macros which allow quick     *   FILE 575
//*           translation and viewing of data from ASCII to EBCDIC, *   FILE 575
//*           EBCDIC to ASCII, and EXAMHTM, which creates a         *   FILE 575
//*           temporary file for safety, when you use ASCEBC.       *   FILE 575
//*                                                                 *   FILE 575
//*           Descriptions of these macros are written below the    *   FILE 575
//*           following descriptions for SPOOLSEL.                  *   FILE 575
//*                                                                 *   FILE 575
//*    Quick Description of SPOOLSEL:                               *   FILE 575
//*                                                                 *   FILE 575
//*      I am sending you 2 files which contain an updated          *   FILE 575
//*      "SHARE" utility which allows you to list what is on a      *   FILE 575
//*      JES2 offloaded data set, print any or all the contents     *   FILE 575
//*      of a JES2 offloaded data set or create a JES2 offloaded    *   FILE 575
//*      data set from multiple JES2 offloaded data sets.           *   FILE 575
//*                                                                 *   FILE 575
//*      We use this to store our product installation printouts    *   FILE 575
//*      to offloaded tapes.  This spares us from keeping paper     *   FILE 575
//*      copies and does not use space in the system report         *   FILE 575
//*      archiver.  The utility is known as "SPOOLSEL" on the       *   FILE 575
//*      SHARE site.  I modified their code to work in an OS/390    *   FILE 575
//*      environment.                                               *   FILE 575
//*                                                                 *   FILE 575
//*      Thomas Hutchins                                            *   FILE 575
//*      Sr. OS/390 Systems Programmer                              *   FILE 575
//*                                                                 *   FILE 575
//*      email:  thutchns@earthlink.net                             *   FILE 575
//*                                                                 *   FILE 575
//*   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *   FILE 575
//*                                                                 *   FILE 575
//*    Detailed Description:                                        *   FILE 575
//*                                                                 *   FILE 575
//*    NAME:                SPOOLSEL                                *   FILE 575
//*                                                                 *   FILE 575
//*    RELATED SYSTEM:      JES2/NJE Spool Offloader                *   FILE 575
//*                                                                 *   FILE 575
//*    PURPOSE:             Multi-purpose offload utility.          *   FILE 575
//*                         1. List conents of offloaded dataset    *   FILE 575
//*                         2. Print selected members of dataset    *   FILE 575
//*                         3. Create subset of offloaded dataset   *   FILE 575
//*                                                                 *   FILE 575
//*    TYPE OF LANGUAGE:    ASSEMBLER                               *   FILE 575
//*    SOURCE NAME:         SPOOLSEL                                *   FILE 575
//*                                                                 *   FILE 575
//*    SOURCE LOCATION:     userid.FILE575.PDS                      *   FILE 575
//*    MACRO LOCATION:      userid.FILE575.PDS(MACLIB)              *   FILE 575
//*    OBJECT NAME:         n/a                                     *   FILE 575
//*    OBJECT LOCATION:     n/a                                     *   FILE 575
//*    LOAD NAME:           SPOOLSEL                                *   FILE 575
//*    LOAD LOCATION:       SYS2.LINKLIB                            *   FILE 575
//*    PROC MEMBERS:        n/a                                     *   FILE 575
//*    PROC LOCATION:       n/a                                     *   FILE 575
//*    COMPILE/ASSEMBLE:    member SPOOLASM                         *   FILE 575
//*                                                                 *   FILE 575
//*    COMP/ASSMBL OPTS:                                            *   FILE 575
//*             SYSPARM((NOGEN,NOGEN,NODATA,NOGEN,NOGEN,240))       *   FILE 575
//*                                                                 *   FILE 575
//*    LINKAGE EDITOR OPTS: AMODE(24), RMODE(24)                    *   FILE 575
//*                                                                 *   FILE 575
//*    FILES INVOLVED:      SYSUT1   - defining input data set,     *   FILE 575
//*                                    (offloaded spool data        *   FILE 575
//*                                    set) mandatory in all        *   FILE 575
//*                                    modes.                       *   FILE 575
//*                         SYSPRINT - defining printout data       *   FILE 575
//*                                    set (messages and list       *   FILE 575
//*                                    info) mandatory in all       *   FILE 575
//*                                    modes.                       *   FILE 575
//*                         PRNT???? - dynamically allocated        *   FILE 575
//*                                    printout data sets which     *   FILE 575
//*                                    will receive selected        *   FILE 575
//*                                    jobs outputs in print        *   FILE 575
//*                                    mode.                        *   FILE 575
//*                         SYSIN    - defining input data set      *   FILE 575
//*                                    (select control cards)       *   FILE 575
//*                                    mandatory in select and      *   FILE 575
//*                                    print                        *   FILE 575
//*                         SYSUT2   - defining output data set     *   FILE 575
//*                                    (offloaded spool sub-set)    *   FILE 575
//*                                    mandatory in select mode.    *   FILE 575
//*                                                                 *   FILE 575
//*    PARM CHANGES:        HEX    - hex print of blocks headers    *   FILE 575
//*                         LIST   - list the contents of the       *   FILE 575
//*                                  spool offload data set         *   FILE 575
//*                         MERGE  - merge the contents of spool    *   FILE 575
//*                                  offload data sets              *   FILE 575
//*                         PRINT  - print the selected jobs        *   FILE 575
//*                                  outputs onto printout data     *   FILE 575
//*                                  set                            *   FILE 575
//*                         SELECT - select the requested jobs      *   FILE 575
//*                                  creating selective copy        *   FILE 575
//*                                                                 *   FILE 575
//*                         Absence of the parm field implies       *   FILE 575
//*                         list option only.                       *   FILE 575
//*                                                                 *   FILE 575
//*    EXECUTION JCL:       member   SPOOLXHE                       *   FILE 575
//*                         member   SPOOLXLS                       *   FILE 575
//*                         member   SPOOLXMG                       *   FILE 575
//*                         member   SPOOLXPR                       *   FILE 575
//*                         member   SPOOLXSL                       *   FILE 575
//*                                                                 *   FILE 575
//*    SPECIAL CONDITIONS:  May require re-assembly when            *   FILE 575
//*                         changing versions of JES2.              *   FILE 575
//*                                                                 *   FILE 575
//*    IN-DEPTH INFO:       Program reads an NJE formatted spool    *   FILE 575
//*                         offload data set and processes it       *   FILE 575
//*                         according to the JCL parameter and      *   FILE 575
//*                         control cards.  A listing of the        *   FILE 575
//*                         contents of the dataset provide job     *   FILE 575
//*                         name and number of every member.        *   FILE 575
//*                         Print provides a printout of            *   FILE 575
//*                         selective or all members on the         *   FILE 575
//*                         offload dataset.  All printouts are     *   FILE 575
//*                         divided such that each printout         *   FILE 575
//*                         occupies a separate SYSOUT.  Select     *   FILE 575
//*                         allows a subset of the offload          *   FILE 575
//*                         dataset to be built.                    *   FILE 575
//*                                                                 *   FILE 575
//*    PRODUCTION DATE:     June 28,1999                            *   FILE 575
//*                                                                 *   FILE 575
//*   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *   FILE 575
//*                                                                 *   FILE 575
//*      From the original note I sent the other System             *   FILE 575
//*      Programmers:  This is one recommendation for how           *   FILE 575
//*      SPOOLSEL can be set up and used profitably.                *   FILE 575
//*                                                                 *   FILE 575
//*      I would like you to consider the following as a standard   *   FILE 575
//*      when installing a new product or applying maintenance to   *   FILE 575
//*      an existing one.  We get overwhelmed by the amount of      *   FILE 575
//*      printout that an install uses.  Some of the printouts      *   FILE 575
//*      will get printed and filed, but the rest?  I have tested   *   FILE 575
//*      the following on many installs.                            *   FILE 575
//*                                                                 *   FILE 575
//*      1. Provide all of your install jobs with a JOBPARM         *   FILE 575
//*         "forms" statement.  If you forget, don't worry. You     *   FILE 575
//*         can use IOF to change the forms name.  Use a relevant   *   FILE 575
//*         form for your product: i.e. ( PANV, Panvalet / SYNC,    *   FILE 575
//*         Syncsort / SMPE, Operating System ).  LINES=9999        *   FILE 575
//*         will stop annoying "ESTIMATED LINES EXCEEDED"           *   FILE 575
//*         messages.                                               *   FILE 575
//*                                                                 *   FILE 575
//*            /*JOBPARM LINES=9999,FORMS=????                      *   FILE 575
//*                                                                 *   FILE 575
//*      2. Send all of the installation printout to RMT2.  You     *   FILE 575
//*         need it to hang around.  And don't use class Q, it      *   FILE 575
//*         disappears in 3 days.  Class T will stay.               *   FILE 575
//*                                                                 *   FILE 575
//*            //jobname JOB (6948),MSGCLASS=T                      *   FILE 575
//*            /*ROUTE PRINT RMT2                                   *   FILE 575
//*                                                                 *   FILE 575
//*      3. When the install or maintenance is finished, use        *   FILE 575
//*         JES2 commands or IOF to off load the listings based     *   FILE 575
//*         on the JES2 "form" id to tape (3490) and using this     *   FILE 575
//*         data set naming convention:                             *   FILE 575
//*                                                                 *   FILE 575
//*         SFT1.JES2OFFL.prod.vers.Dyyddd                          *   FILE 575
//*                                                                 *   FILE 575
//*          prod    -  short form for product generally 4 chars    *   FILE 575
//*          vers    -  version reference                           *   FILE 575
//*          yyddd   -  julian year and date                        *   FILE 575
//*                                                                 *   FILE 575
//*      4. After off loading the tape, go to CA-1 and update       *   FILE 575
//*         the tape volser or data set name to an expiration       *   FILE 575
//*         period of CATALOG.  JES2 will not allow retpd of        *   FILE 575
//*         99000 for CA-1.                                         *   FILE 575
//*                                                                 *   FILE 575
//*      The first 2 qualifiers will allow anyone immediate         *   FILE 575
//*      access to off loaded listings for any product via DSN      *   FILE 575
//*      or ISPF 3.4 wild carding without doing extensive           *   FILE 575
//*      catalog searches.                                          *   FILE 575
//*                                                                 *   FILE 575
//*      You can IEBGENER the tape to another name to provide a     *   FILE 575
//*      backup copy.  Still cheaper than paper or filling the      *   FILE 575
//*      $AVRS file.                                                *   FILE 575
//*                                                                 *   FILE 575
//*      The listings can be "received" back into the JES2 spool    *   FILE 575
//*      at any time you need to check something. You always        *   FILE 575
//*      have access to the listings without keeping mounds of      *   FILE 575
//*      paper.                                                     *   FILE 575
//*                                                                 *   FILE 575
//*      I have found and updated a program, SPOOLSEL, that can     *   FILE 575
//*      read the tape and list or print its contents.  See the     *   FILE 575
//*      documentation in:  userid.FILE575.PDS($$DOC).              *   FILE 575
//*                                                                 *   FILE 575
//*      - - - - - - - - - - - - - - - - - - - - - - - - - - - -    *   FILE 575
//*                                                                 *   FILE 575
//*    Description of ASCII <-> EBCDIC edit macros:                 *   FILE 575
//*                                                                 *   FILE 575
//*      I am sending you several REXX edit macros that I have      *   FILE 575
//*      found useful in dealing with the Unix System Services      *   FILE 575
//*      file system.  We have several USS Datasets from which      *   FILE 575
//*      our Dealers download HTML code to be displayed on their    *   FILE 575
//*      connected PCs.  These files are kept in ASCII format       *   FILE 575
//*      and some times I have been called upon to view these       *   FILE 575
//*      files through TSO/ISPF OEDIT or ISH utilities.  These      *   FILE 575
//*      macros have made it unnecessary to FTP to a PC and look    *   FILE 575
//*      at it there.  The following REXX Edit macros make it       *   FILE 575
//*      easy to translate from ASCII to EBCDIC and back.           *   FILE 575
//*                                                                 *   FILE 575
//*      1: EXAMHTM - creates a temporary file that is translated   *   FILE 575
//*                   to EBCDIC.  It depends on ASCEBC macro.       *   FILE 575
//*                   Builds a temporary file for safety.           *   FILE 575
//*                                                                 *   FILE 575
//*      2: ASCEBC  - translates the edited file to EBCDIC.         *   FILE 575
//*                                                                 *   FILE 575
//*      3: EBCASC  - translates the edited file to ASCII.          *   FILE 575
//*                                                                 *   FILE 575
//*      Note that these macros do not check the actual file        *   FILE 575
//*      type.  If the file is already ASCII and you use EBCASC     *   FILE 575
//*      against it, you have just encrypted and possibly           *   FILE 575
//*      corrupted it.                                              *   FILE 575
//*                                                                 *   FILE 575
//*      Thomas Hutchins                                            *   FILE 575
//*      AGCO Corp                                                  *   FILE 575
//*      1500 N Raddant RD                                          *   FILE 575
//*      Batavia, IL                                                *   FILE 575
//*      (630) 406-3312                                             *   FILE 575
//*      thutchns@earthlink.net                                     *   FILE 575
//*                                                                 *   FILE 575
//***FILE 576 is from Mick Sheehy, and contains a REXX exec which   *   FILE 576
//*           makes it very easy to copy sequential and pds files   *   FILE 576
//*           on MVS.  The package consists of one REXX exec and    *   FILE 576
//*           one ISPF panel.  When you decide to copy a dataset    *   FILE 576
//*           and execute the REXX, the panel appears and allows    *   FILE 576
//*           you to change all kinds of information about the      *   FILE 576
//*           target dataset, including its name, target volser,    *   FILE 576
//*           and space allocation.  If the target dataset space    *   FILE 576
//*           allocation is too small, then the program informs     *   FILE 576
//*           you, and requests that you allocate more space, even  *   FILE 576
//*           before any actual action is taken.                    *   FILE 576
//*                                                                 *   FILE 576
//*           You'll enjoy the wholesome Aussie flavour of the      *   FILE 576
//*           dialog messages.                                      *   FILE 576
//*                                                                 *   FILE 576
//*           email: Michael Sheehy <Michael.Sheehy@fal.com.au>     *   FILE 576
//*                                                                 *   FILE 576
//*           Note:  Please see the $XCPYDOC member for a few       *   FILE 576
//*                  helpful notes.                                 *   FILE 576
//*                                                                 *   FILE 576
//***FILE 577 is from Pergentino Arias, and contains REXX execs,    *   FILE 577
//*           panels, and Assembler programs that may be of use.    *   FILE 577
//*           Some programs are commented in Spanish.               *   FILE 577
//*                                                                 *   FILE 577
//*           I find these programs to be very interesting, and     *   FILE 577
//*           nicely done (SG - 05/02)                              *   FILE 577
//*                                                                 *   FILE 577
//*           email:  pergen@mixmail.com                            *   FILE 577
//*                                                                 *   FILE 577
//*   To make installation easier, I have included a load library   *   FILE 577
//*   in TSO XMIT format, as member $LOADLIB in this pds (SG-05/02) *   FILE 577
//*                                                                 *   FILE 577
//*   Short description of this file's contents:                    *   FILE 577
//*                                                                 *   FILE 577
//*     CASIO :    THIS IS A CALCULATOR                             *   FILE 577
//*                                                                 *   FILE 577
//*     CASIO :    THIS IS THE REXX WE MUST INVOKE                  *   FILE 577
//*     PCASIO:    IS THE PRINCIPAL PANEL                           *   FILE 577
//*     PCASIOH:   IS A HELP PANEL                                  *   FILE 577
//*     CASI01:    ARE THE ISPF MESSAGES                            *   FILE 577
//*     =======================================================     *   FILE 577
//*     SPACE :    WITH THE LRECL AND THE NUMBERS OF REGISTERS,     *   FILE 577
//*                IT GIVES THE TRKS                                *   FILE 577
//*                                                                 *   FILE 577
//*     SPACE  :  THIS IS THE REXX WE MUST INVOKE                   *   FILE 577
//*     PSPACE1:  PANEL                                             *   FILE 577
//*     PSPACE2:  PANEL                                             *   FILE 577
//*     INF10:    ARE THE ISPF MESSAGES                             *   FILE 577
//*     =======================================================     *   FILE 577
//*     EUCLIDES : THIS IS A REXX THAT USE THE EUCLID'S             *   FILE 577
//*                ALGORITHM - Calculate Greatest Common            *   FILE 577
//*                Denominator and Least Common Multiple of         *   FILE 577
//*                two given integers.                              *   FILE 577
//*     =======================================================     *   FILE 577
//*     LISTA :    THIS IS A REXX THAT GIVES A FORMATTED "TSO       *   FILE 577
//*                LISTA"                                           *   FILE 577
//*     =======================================================     *   FILE 577
//*     EASTER :   THIS IS A REXX THAT BY THE GAUSS FORMULA,        *   FILE 577
//*                GIVES US THE EASTER                              *   FILE 577
//*     =======================================================     *   FILE 577
//*     EXPCLEAN:                                                   *   FILE 577
//*                                                                 *   FILE 577
//*     EXPCLEAN:  IS AN ASSEMBLER PROGRAM THAT ALLOCATE FILES      *   FILE 577
//*                WHOSE DDNAME IN THE JCL BEGIN BY @@ AT           *   FILE 577
//*                DIFFERENCE THAN THE IEFBR14, IT OPENS AND        *   FILE 577
//*                CLOSE THE FILE (USEFUL IF AFTER THAT IT WILL     *   FILE 577
//*                BE USE BY A COBOL PROGRAM) IF THE FILE EXIST,    *   FILE 577
//*                IT CLEANS THE CONTENT.                           *   FILE 577
//*     JEXPCL :   JCL IN WHICH WE USE THE EXPCLEAN                 *   FILE 577
//*     =======================================================     *   FILE 577
//*     WAITING :  PROGRAM THAT WAITS THE TIME WE GIVE BY           *   FILE 577
//*                PARAMETER                                        *   FILE 577
//*                                                                 *   FILE 577
//*     WAITING :  IS AN ASSEMBLER PROGRAM THAT WAITS               *   FILE 577
//*     JWAIT  :   JCL THAT CALL WAITING PROGRAM                    *   FILE 577
//*     RWAIT  :   REXX THAT CALL WAITING PROGRAM                   *   FILE 577
//*     =======================================================     *   FILE 577
//*     EMPTY :                                                     *   FILE 577
//*                                                                 *   FILE 577
//*     EMPTY :    IS AN ASSEMBLER PROGRAM THAT GIVES US A RC=00    *   FILE 577
//*                IF THE SEQUENTIAL FILE ALLOCATED AS DDINPUT      *   FILE 577
//*                IS EMPTY; OTHERWISE, IT GIVES RC=12 OR THE       *   FILE 577
//*                RETURN CODE WE PASS IN HEX. BY PARM WE CAN       *   FILE 577
//*                CONCATENATE FILES                                *   FILE 577
//*     JEMPTY :   JCL TO INVOKE THE EMPTY PROGRAM                  *   FILE 577
//*     =======================================================     *   FILE 577
//*     MNF:                                                        *   FILE 577
//*                                                                 *   FILE 577
//*     MNF  :     IS AN EDIT MACRO THAT GIVES US THE NUMBER OF     *   FILE 577
//*                RECORDS IN A FILE.  IT COULD BE INVOKED IN       *   FILE 577
//*                EDIT, AS AN EDIT MACRO, OR IN THE 3.4 OPTION,    *   FILE 577
//*                BEING RUN AGAINST A SEQUENTIAL FILE-NOT A PDS.   *   FILE 577
//*                IF MNF IS INVOKED AS AN EDIT MACRO, WE MUST      *   FILE 577
//*                PUT THE CURSOR ON THE FIRST LETTER OF THE        *   FILE 577
//*                FILE NAME.                                       *   FILE 577
//*                                                                 *   FILE 577
//*     MN   :     AN ENGLISH-LANGUAGE VERSION OF MNF.              *   FILE 577
//*                                                                 *   FILE 577
//*     FFF  :     SUBROUTINE REXX                                  *   FILE 577
//*     FGF  :     SUBROUTINE REXX                                  *   FILE 577
//*     IRXNREG:   PROGRAM IN ASSEMBLER THAT IS THE ONE THAT        *   FILE 577
//*                COUNTS THE RECORDS                               *   FILE 577
//*                                                                 *   FILE 577
//*                YOU MUST CHANGE THE LINE IN THE MNF PROGRAM :    *   FILE 577
//*                "CALL LOAD.LIBRARIE(IRXNREG) "                   *   FILE 577
//*                PUTTING YOUR LIBRARIE                            *   FILE 577
//*                                                                 *   FILE 577
//*     EXAMPLE IN EDIT:                                            *   FILE 577
//*     ---------------                                             *   FILE 577
//*      EDIT       SISSHR.SIST19.JCL(LIBSEDIT) - 01.17             *   FILE 577
//*      COMMAND ===>MN                                             *   FILE 577
//*      ******  ***************************** TOP OF DATA ******** *   FILE 577
//*      000001  //SIST19A   JOB MSGCLASS=C,CLASS=C,NOTIFY=&SYSUID  *   FILE 577
//*      000002  //*----------------------------------------------- *   FILE 577
//*      000003  //PASO01   EXEC PGM=IDCAMS,COND=(0,NE)             *   FILE 577
//*      000004  //SYSPRINT DD SYSOUT=*                             *   FILE 577
//*      000005//SYSIN    DD *                                      *   FILE 577
//*      000006  DELETE   SISTSO.SIST19.PRUEBA                      *   FILE 577
//*      ==MSG> SISTSO.SIST19.PRUEBA                                *   FILE 577
//*      ==MSG> NUMBER OF RECORDS:                 52               *   FILE 577
//*      000007  SET MAXCC  = 0                                     *   FILE 577
//*                                                                 *   FILE 577
//*     EXAMPLE IN 3.4:                                             *   FILE 577
//*     --------------                                              *   FILE 577
//*                                                                 *   FILE 577
//*      DSLIST - DATA SETS MATCHING SIS*.SIST19                    *   FILE 577
//*      COMMAND ===>                                               *   FILE 577
//*                                                                 *   FILE 577
//*      COMMAND - ENTER "/" TO SELECT ACTION           VOLUME      *   FILE 577
//*      ------------------------------------------ ... ------      *   FILE 577
//*               SISTSO.SIST19.MORRAYA                 TST71B      *   FILE 577
//*      MN       SISTSO.SIST19.PRUEBA                  EXP104      *   FILE 577
//*               SISTSO.SIST19.RF                      SIST17      *   FILE 577
//*               SISTSO.SIST19.SHA1.L64                238928      *   FILE 577
//*      ******************* END OF DATA **********************     *   FILE 577
//*                                                                 *   FILE 577
//*     'SISTSO.SIST19.PRUEBA'                                      *   FILE 577
//*     NUMBER OF RECORDS:                 52                       *   FILE 577
//*                                                                 *   FILE 577
//*         ***                                                     *   FILE 577
//*                                                                 *   FILE 577
//***FILE 578 is from Roy Gardiner, and contains a general ISPF     *   FILE 578
//*           table handling facility, which allows you to drive    *   FILE 578
//*           your own ISPF panels with an easily creatable table   *   FILE 578
//*           update utility of your own making.                    *   FILE 578
//*                                                                 *   FILE 578
//*     ISPF general table handler                                  *   FILE 578
//*     --------------------------                                  *   FILE 578
//*                                                                 *   FILE 578
//*     Provided by Roy Gardiner    version 1.0 May 2002            *   FILE 578
//*                                                                 *   FILE 578
//*     Please e-mail comments and questions to:                    *   FILE 578
//*     roy@roygardiner.com                                         *   FILE 578
//*                                                                 *   FILE 578
//*     Summary                                                     *   FILE 578
//*     -------                                                     *   FILE 578
//*                                                                 *   FILE 578
//*     This package will enable you to maintain any ISPF table     *   FILE 578
//*     which has one or two key fields. You only need to code,     *   FILE 578
//*     by copying the examples given here, (1) a scrollable        *   FILE 578
//*     display for the whole table (2) a display panel for         *   FILE 578
//*     full details of a single row.  The benefit of the           *   FILE 578
//*     package is that it enables you to create in a few           *   FILE 578
//*     minutes a table update utility using your own panels.       *   FILE 578
//*                                                                 *   FILE 578
//*     Basic features provided                                     *   FILE 578
//*     -----------------------                                     *   FILE 578
//*                                                                 *   FILE 578
//*     Just by cloning the sample panels you will be able to:      *   FILE 578
//*                                                                 *   FILE 578
//*       - see a scrollable display of your table                  *   FILE 578
//*       - use the Locate command to find rows                     *   FILE 578
//*       - sort the table display                                  *   FILE 578
//*       - display extra information which will not fit on a       *   FILE 578
//*           single display line                                   *   FILE 578
//*       - update the table (multiple users)                       *   FILE 578
//*       - protect against concurrent update                       *   FILE 578
//*       - edit any number of extension variables to any row,      *   FILE 578
//*           without knowing the names of the variables            *   FILE 578
//*       - provide simple data dictionary (along the lines of:     *   FILE 578
//*           this is a variable name, this is what it means)       *   FILE 578
//*                                                                 *   FILE 578
//*     (Note that this package does NOT handle non-keyed tables)   *   FILE 578
//*                                                                 *   FILE 578
//*     The benefit of using the package is development speed;      *   FILE 578
//*     all you need to do is to modify the example panels to       *   FILE 578
//*     match your table layout - a few minutes work.               *   FILE 578
//*                                                                 *   FILE 578
//*     The package is not designed to handle large volumes of      *   FILE 578
//*     data; for tables larger than 1000 rows which need to be     *   FILE 578
//*     updated by more than about a dozen people, consider DB2     *   FILE 578
//*     or another proper database.  Large tables combined with     *   FILE 578
//*     many users create unacceptable performance and              *   FILE 578
//*     especially update contention issues.                        *   FILE 578
//*                                                                 *   FILE 578
//***FILE 579 is from Tim Patriquin and contains a set of macros    *   FILE 579
//*           which adds BREAK and CONTINUE functionality to the    *   FILE 579
//*           macros in the HLASM toolkit.                          *   FILE 579
//*                                                                 *   FILE 579
//*           You must already be licensed for the IBM HLASM        *   FILE 579
//*           Toolkit, in order to use this material practically.   *   FILE 579
//*           This file is an add-on to the HLASM Toolkit.          *   FILE 579
//*                                                                 *   FILE 579
//*           emails:  tim_patriquin@bmc.com (work)                 *   FILE 579
//*                    tpatriqu@onr.com      (home)                 *   FILE 579
//*                                                                 *   FILE 579
//***FILE 580 is from Mike R. Smith, and contains a "modernized"    *   FILE 580
//*           REXXed version of Steve Smith's CUT and PASTE edit    *   FILE 580
//*           macros from File 182.                                 *   FILE 580
//*                                                                 *   FILE 580
//*           Office: (847) 573-8718                                *   FILE 580
//*           Cell:   (847) 736-6733                                *   FILE 580
//*           Email:  MRSmith1@earthlink.net                        *   FILE 580
//*                                                                 *   FILE 580
//*      OS/390 V2.10 introduced a CUT/PASTE command in edit.       *   FILE 580
//*      It is a trivial implementation of the CUT/PASTE macros     *   FILE 580
//*      from the PDS product from File 182 of the CBT Tape.        *   FILE 580
//*                                                                 *   FILE 580
//*      I used the PDS (File 182) CUT/PASTE macros as a base;      *   FILE 580
//*      converted them to REXX and enhanced them a "little".       *   FILE 580
//*                                                                 *   FILE 580
//*      The SHOWCUT macro will display a table of all cut          *   FILE 580
//*      tables and will display the contents of the table.         *   FILE 580
//*                                                                 *   FILE 580
//*      The ZPASTE function has been enhanced to provide a         *   FILE 580
//*      multiple-paste operation when invoked with ZPASTE AFTER    *   FILE 580
//*      NX/X or ZPASTE BEFORE NX/X.                                *   FILE 580
//*                                                                 *   FILE 580
//***FILE 581 is from Thomas Hutchins, and contains a complete      *   FILE 581
//*           Disaster Recovery system, automated under ISPF.       *   FILE 581
//*                                                                 *   FILE 581
//*           Documentation for this system is currently in Word    *   FILE 581
//*           format, so unfortunately, you have to do a TSO        *   FILE 581
//*           RECEIVE command against the $ALLDOCS member, and      *   FILE 581
//*           download each member of the resulting PDS, to the     *   FILE 581
//*           PC in BINARY, and look at it using Microsoft Word,    *   FILE 581
//*           at at least the Word 97 level.                        *   FILE 581
//*                                                                 *   FILE 581
//*           As an alternative, I have included the original       *   FILE 581
//*           ZIP-format file as well - member $DRSTUFF.  You       *   FILE 581
//*           can download this member in BINARY to the PC, and     *   FILE 581
//*           unzip it there, obtaining the DOC members directly,   *   FILE 581
//*           together with everything else, in its originally      *   FILE 581
//*           submitted format.                                     *   FILE 581
//*                                                                 *   FILE 581
//*           email:  thutchns@earthlink.net                        *   FILE 581
//*                                                                 *   FILE 581
//*      - - - - - - - - - - - - - - - - - - - - - - - - - - - -    *   FILE 581
//*                                                                 *   FILE 581
//*       Subject:  Disaster Recovery ISPF tool                     *   FILE 581
//*         From:   "Thomas Hutchins" <thutchns@earthlink.net>      *   FILE 581
//*                                                                 *   FILE 581
//*        By the time you receive this I will have uploaded a      *   FILE 581
//*      file, DRStuff.zip for inclusion on the CBT.  This file     *   FILE 581
//*      has an ISPF tool that made for many successful system      *   FILE 581
//*      recoveries of the system during D/R testing.  We           *   FILE 581
//*      generally recovered 100 volumes with FDR in about 4        *   FILE 581
//*      hours' time including the time spent configuring the       *   FILE 581
//*      restores with the ISPF tool.                               *   FILE 581
//*                                                                 *   FILE 581
//*      I have packaged every bit of JCL that drives the tool,     *   FILE 581
//*      the MS-Word procedures and the ISPF tool itself.  I        *   FILE 581
//*      appreciate your time and effort in preserving the work     *   FILE 581
//*      put into this.                                             *   FILE 581
//*                                                                 *   FILE 581
//***FILE 582 is from Solomon Santos, and contains a version of     *   FILE 582
//*           the TAPEMAP program from File 299, which can be       *   FILE 582
//*           assembled and run on an MVS 3.8 system, running       *   FILE 582
//*           under Hercules.                                       *   FILE 582
//*                                                                 *   FILE 582
//*           Modified by Gerhard Postpischil, who is now the       *   FILE 582
//*           "co-owner" of this file.  Fix to TAPEMAP was so       *   FILE 582
//*           that the date coding would work correctly for day     *   FILE 582
//*           of the week.                                          *   FILE 582
//*                                                                 *   FILE 582
//*           Besides fixing the date code in TAPEMAP, Gerhard      *   FILE 582
//*           has added an extended version of PDSLOAD to this      *   FILE 582
//*           file.  See member $$NOTE1 for Gerhard's comments.     *   FILE 582
//*                                                                 *   FILE 582
//*           Gerhard added an MVS 3.8 version of Gilbert           *   FILE 582
//*           Saint-flour's BUILDCDE program.                       *   FILE 582
//*                                                                 *   FILE 582
//*           This file is a permanent home for the Hercules        *   FILE 582
//*           version of TAPEMAP.                                   *   FILE 582
//*                                                                 *   FILE 582
//*           email:  gerhardp@charter.net    Gerhard Postpischil   *   FILE 582
//*                                                                 *   FILE 582
//*           email:  bugsie88@yahoo.com      Solomon Santos        *   FILE 582
//*                                                                 *   FILE 582
//***FILE 583 is from Jim Moore, and contains a program called      *   FILE 583
//*           PROFSET, which is an initial Edit Macro, written      *   FILE 583
//*           in COBOL, that sets up your ISPF EDIT profile for     *   FILE 583
//*           your ISPF session.                                    *   FILE 583
//*                                                                 *   FILE 583
//*           This program was written to illustrate principles     *   FILE 583
//*           of initial Edit Macros, and ISPF EDIT profiles,       *   FILE 583
//*           which is the basis for a series of articles in        *   FILE 583
//*           "Technical Support" magazine.                         *   FILE 583
//*                                                                 *   FILE 583
//*           There is a second program package in this file, that  *   FILE 583
//*           is called EPROF.  With this package, you can set      *   FILE 583
//*           edit profile values globally, and do a lot of nice    *   FILE 583
//*           things with edit profiles, as follows:                *   FILE 583
//*                                                                 *   FILE 583
//*           This utility allows for edit profile tables to be     *   FILE 583
//*           manipulated.  That is, settings can be changed        *   FILE 583
//*           (STATS, RECOVERY, NULLS, etc), individual rows        *   FILE 583
//*           (profiles) can be deleted and settings can be         *   FILE 583
//*           globally propagated into ALL profiles---kind of       *   FILE 583
//*           like STATS ON ALL.                                    *   FILE 583
//*                                                                 *   FILE 583
//*           email:  "JB Moore" <conlogco@attbi.com>               *   FILE 583
//*                                                                 *   FILE 583
//***FILE 584 is from Ugur Cilesiz, and contains a job with REXX    *   FILE 584
//*           execs and other nice things, which automates the      *   FILE 584
//*           initialization of DASD.  This job is useful in a      *   FILE 584
//*           disaster recovery situation, and is also good for     *   FILE 584
//*           "everyday" use, too.  The job is called AUTOINIT.     *   FILE 584
//*                                                                 *   FILE 584
//*           Phone extern   : +49-2181-285-218                     *   FILE 584
//*           Phone Fax      : +49-2181-285-203                     *   FILE 584
//*           MailTo:Ugur.Cilesiz@Rwesystems.com                    *   FILE 584
//*                                                                 *   FILE 584
//*      DESCRIPTION:  DASD MANAGEMENT IN BATCH                     *   FILE 584
//*                                                                 *   FILE 584
//*                   *  VARY OFFLINE THE UNITS                     *   FILE 584
//*                   *  ICKDSF INIT DASD                           *   FILE 584
//*                   *  VARY ONLINE THE UNITS                      *   FILE 584
//*                   *  IDCAMS DEFINE VVDS                         *   FILE 584
//*                   *  IDCAMS DEFINE GDG'S FOR DISASTER REC.      *   FILE 584
//*                                                                 *   FILE 584
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 584
//*                                                                 *   FILE 584
//*      HOW TO USE :  1. FIND //INITIAL                            *   FILE 584
//*                    2. FILL IN THE SYSUT1 CARD THE FIELDS        *   FILE 584
//*                       NEWVOLUME  OLDVOLUME UNITADR SMS-BIT      *   FILE 584
//*                       AND STYPE                                 *   FILE 584
//*                                                                 *   FILE 584
//*                       SMS-BIT :  1 = SMS MANAGED                *   FILE 584
//*                                  0 = NOT SMS MANAGED            *   FILE 584
//*                                                                 *   FILE 584
//*                       STYPE   :  0 = NO BACKUP                  *   FILE 584
//*                                  T = DAILY BACKUP               *   FILE 584
//*                                  N = WEEKLY BACKUP              *   FILE 584
//*                                  B = BOTH ( T + N )             *   FILE 584
//*                                                                 *   FILE 584
//*                       OLDVOLUME: + = NOVERIFY                   *   FILE 584
//*                                                                 *   FILE 584
//*                    3. SUBMIT THE JOB                            *   FILE 584
//*                                                                 *   FILE 584
//***FILE 585 is from Reed Petty, and contains a program called     *   FILE 585
//*           AWSSL, which takes disk datasets as input, and        *   FILE 585
//*           creates an SL virtual tape, in AWS format, as output. *   FILE 585
//*           Standard Labels are created for the "tape" files, by  *   FILE 585
//*           the AWSSL program.                                    *   FILE 585
//*                                                                 *   FILE 585
//*           This program creates AWS structures which contain     *   FILE 585
//*           one or more OS datasets of any record format          *   FILE 585
//*           (except spanned blocks), with or without standard     *   FILE 585
//*           labels, where the output AWS structure can also be    *   FILE 585
//*           of any record format (including spanned blocks).      *   FILE 585
//*                                                                 *   FILE 585
//*           This program will also retrieve datasets from an      *   FILE 585
//*           AWS structure of any record format (except spanned    *   FILE 585
//*           blocks).  The retrieved datasets may be reblocked     *   FILE 585
//*           if necessary.  If DCB attributes are omitted on the   *   FILE 585
//*           receiving dataset, and if standard labels are         *   FILE 585
//*           present within the AWS structure, then the DCB        *   FILE 585
//*           attributes of the receiving dataset will be           *   FILE 585
//*           defaulted to those within the HDR1 label.             *   FILE 585
//*                                                                 *   FILE 585
//*           AWS (acronym is unknown to me, someone please tell    *   FILE 585
//*           me!)  was widely used by the IBM P/390 product        *   FILE 585
//*           family to implement an entire tape volume as a byte   *   FILE 585
//*           stream contained within an OS/2 file.  As             *   FILE 585
//*           implementations of the System/360/370/zArch           *   FILE 585
//*           architecture families in software expanded (such as   *   FILE 585
//*           Hercules, Flex/ES, and others) the AWS presence       *   FILE 585
//*           expanded as well.                                     *   FILE 585
//*                                                                 *   FILE 585
//*           If you want to cut a real tape from the output of     *   FILE 585
//*           AWSSL, either you can create the output in FB-80      *   FILE 585
//*           format, and run the VTT2TAPE program from File 533.   *   FILE 585
//*                                                                 *   FILE 585
//*           If the output of AWSSL is VB, you can convert that    *   FILE 585
//*           file to AWS-format FB-80 using the VTT2CNVU program   *   FILE 585
//*           from File 533 of this tape.  That FB-80 AWS-format    *   FILE 585
//*           file can then be input into the VTT2TAPE program      *   FILE 585
//*           from File 533, and a real tape will be created.       *   FILE 585
//*                                                                 *   FILE 585
//*           email:  rhp@draper.net                                *   FILE 585
//*                                                                 *   FILE 585
//***FILE 586 is from Robin Murray, and contains several REXX execs *   FILE 586
//*           and a panel, which allow invocation of any ISPF       *   FILE 586
//*           application that you can invoke with a START command, *   FILE 586
//*           The ISPF command which this service creates, is       *   FILE 586
//*           called SS.                                            *   FILE 586
//*                                                                 *   FILE 586
//*     A fairly detailed description of the use of this service    *   FILE 586
//*     follows here:                                               *   FILE 586
//*                                                                 *   FILE 586
//*     To use this service, simply enter 'SS appname' where        *   FILE 586
//*     appname is anything you can enter on the ISPF 'START'       *   FILE 586
//*     command service:                                            *   FILE 586
//*                                                                 *   FILE 586
//*       > an option off the main menu (1.3.4)                     *   FILE 586
//*       > a TSO command (TSO %TLMS)                               *   FILE 586
//*       > an ISPF command from a command table                    *   FILE 586
//*       > an ISPF dialog service (CMD(%SDSF))                     *   FILE 586
//*       > etc. etc.                                               *   FILE 586
//*                                                                 *   FILE 586
//*     The SS command will start the new service in a new          *   FILE 586
//*     session, and create a default screen name to match it       *   FILE 586
//*     (using the SCRNAME ISPF command). The screen name it        *   FILE 586
//*     creates depends on what command you pass to it. It must     *   FILE 586
//*     parse out of the parms a valid screen name that it can      *   FILE 586
//*     pass to the SCRNAME command.                                *   FILE 586
//*                                                                 *   FILE 586
//*       > for an option such as 1.3.4, the screen name will       *   FILE 586
//*         be Q134                                                 *   FILE 586
//*       > for a tso command such as TSO %TLMS, it will be         *   FILE 586
//*         TLMS                                                    *   FILE 586
//*       > for an command table command, it will be the            *   FILE 586
//*         command name                                            *   FILE 586
//*       > for a dialog service such as CMD(%SDSF), it will be     *   FILE 586
//*         SDSF                                                    *   FILE 586
//*       > etc. etc.                                               *   FILE 586
//*                                                                 *   FILE 586
//*     There is no attempt to make the screen name unique. If      *   FILE 586
//*     there are duplicate names, you can override the name        *   FILE 586
//*     manually on the newly created screen.                       *   FILE 586
//*                                                                 *   FILE 586
//*     You can switch to the session you created by                *   FILE 586
//*     issuing the same command again, or issuing the SS           *   FILE 586
//*     command with the screen name:                               *   FILE 586
//*                                                                 *   FILE 586
//*       > SS 1.3.4 will take you back to the 1.3.4 screen         *   FILE 586
//*       > SS Q134 will also take you there                        *   FILE 586
//*       > SS TSO %TLMS will take you back to the tlms screen      *   FILE 586
//*       > SS TLMS will also take you there                        *   FILE 586
//*       > etc. etc.                                               *   FILE 586
//*                                                                 *   FILE 586
//*     Obviously, it's much easier to use the short screen         *   FILE 586
//*     name. The command will substitute a "SWAP xxx"              *   FILE 586
//*     command if it finds an active session with the same         *   FILE 586
//*     name.                                                       *   FILE 586
//*                                                                 *   FILE 586
//*     Entering 'SS' with no parameters is the same as             *   FILE 586
//*     entering the ISPF 'SWAP LIST' command. You can then         *   FILE 586
//*     see the screen names that this command created (as          *   FILE 586
//*     well as any others you created).                            *   FILE 586
//*                                                                 *   FILE 586
//*     So this one 'SS' command will combine the                   *   FILE 586
//*     functionality of the ISPF START, SCRNAME, SWAP              *   FILE 586
//*     LIST, and SWAP XXX commands, all in one easy to             *   FILE 586
//*     remember command.                                           *   FILE 586
//*                                                                 *   FILE 586
//*     But that's not all. This command will also support          *   FILE 586
//*     it's own variation of the ISPF commands table.              *   FILE 586
//*     Entering 'SS /' will bring up a table on which you          *   FILE 586
//*     can enter a screen name followed by any valid START         *   FILE 586
//*     command parameters. The 'SS' command will search            *   FILE 586
//*     this table for a match and if found, start the              *   FILE 586
//*     service using the specified screen name. Therefore,         *   FILE 586
//*     you could create entries such as:                           *   FILE 586
//*                                                                 *   FILE 586
//*       > TLMS     TSO %TLMS                                      *   FILE 586
//*       > SDSF     CMD(%SDSF)                                     *   FILE 586
//*       > DSL      1.3.4                                          *   FILE 586
//*       > PARM1    CMD(%EVBCMD 'SYS1.PARMLIB' E) NEWAPPL(ISR)     *   FILE 586
//*                                                                 *   FILE 586
//*     Then, entering 'SS TLMS' will start the TLMS                *   FILE 586
//*     command, or entering 'SS PARM1' will pop you into           *   FILE 586
//*     edit of sys1.parmlib with the correct applid, so            *   FILE 586
//*     that pfkeys will be properly set.  Entering 'SS             *   FILE 586
//*     DSL' will bring you to option 1.3.4 of the main             *   FILE 586
//*     menu (i'm assuming that this will be the dataset            *   FILE 586
//*     list panel).                                                *   FILE 586
//*                                                                 *   FILE 586
//*     At install time, the sysprog can create a default           *   FILE 586
//*     set of commands. the table is always saved in the           *   FILE 586
//*     ISPF profile dataset.  He can then move this table          *   FILE 586
//*     to a common ISPTLIB dataset so that everyone will           *   FILE 586
//*     have access to the default. After that, if anyone           *   FILE 586
//*     enters 'SS /', the default table will be copied to          *   FILE 586
//*     that user's ISPF profile dataset, and end up having         *   FILE 586
//*     their own personal copy of the table which they can         *   FILE 586
//*     customize to their heart's content.                         *   FILE 586
//*                                                                 *   FILE 586
//*     tip: The EVBCMD exec is shipped with this to use as         *   FILE 586
//*     a way to start the Edit/View/Browse ISPF service            *   FILE 586
//*     with a NEWAPPL(ISR) so that pfkeys will be set              *   FILE 586
//*     properly. To use this in the cmd table, put                 *   FILE 586
//*     "CMD(%EVBCMD 'my.dataset.name' x) NEWAPPL(ISR)"             *   FILE 586
//*     where x is either E V or B for Edit View or Browse.         *   FILE 586
//*                                                                 *   FILE 586
//*     tip: It's better to put a dialog service in the             *   FILE 586
//*     table such as CMD(), PGM() or PANEL() rather than           *   FILE 586
//*     an option or command off the main menu such as              *   FILE 586
//*     1.3.4, TSO TLMS etc. Since in the first case when           *   FILE 586
//*     you exit from the application you end the entire            *   FILE 586
//*     session, but in the second case you'll end up on            *   FILE 586
//*     the primary menu, so you'll have to hit end again           *   FILE 586
//*     to exit the session.                                        *   FILE 586
//*                                                                 *   FILE 586
//*     tip: By default, this exec will rename any temp             *   FILE 586
//*     screen names it finds whenever it's run. This will          *   FILE 586
//*     rename the initial session and any session started          *   FILE 586
//*     with the SPLIT or manual START command.  This               *   FILE 586
//*     behaviour can be turned off by setting InitPrefix           *   FILE 586
//*     to null in the StartApp routine above.                      *   FILE 586
//*                                                                 *   FILE 586
//*     tip: Go into ISPF general options and turn off              *   FILE 586
//*     "Always show split line" in order to put each               *   FILE 586
//*     session in a full screen.                                   *   FILE 586
//*                                                                 *   FILE 586
//*     tip: Replace any pfkey settings to use 'SWAP NEXT'          *   FILE 586
//*     instead of 'SWAP' so you can roll thru your                 *   FILE 586
//*     sessions.                                                   *   FILE 586
//*                                                                 *   FILE 586
//*     There's lots of room for performance improvments,           *   FILE 586
//*     one being to open the table when ISPF is started.           *   FILE 586
//*     That way the table won't have to be reopened every          *   FILE 586
//*     time, the use count will just be bounced. If the            *   FILE 586
//*     table isn't desired, you can comment out the call           *   FILE 586
//*     to TableLookaside at around line 60 above.                  *   FILE 586
//*                                                                 *   FILE 586
//*     For questions/comments contact Robin Murray at:             *   FILE 586
//*                                                                 *   FILE 586
//*     robin_murray@maritimelife.ca                                *   FILE 586
//*                 (semi-permanent contract pos) or                *   FILE 586
//*                                                                 *   FILE 586
//*     robinmurray@cyberdude.com (permanent email address)         *   FILE 586
//*                                                                 *   FILE 586
//*     tel: 902-453-7300 x4177                                     *   FILE 586
//*                                                                 *   FILE 586
//***FILE 587 is from Matt Gates and contains his modified copy     *   FILE 587
//*           of an old version of the VTOC command, which is now   *   FILE 587
//*           on File 112 of this tape.  This version of the VTOC   *   FILE 587
//*           command is circa 1990, and contains desirable         *   FILE 587
//*           improvements (as described below).  However the MVS   *   FILE 587
//*           operating system has passed this version by, and the  *   FILE 587
//*           source code is being presented here, awaiting the     *   FILE 587
//*           work of somebody to modernize it to the current       *   FILE 587
//*           version of the operating system, or to merge its      *   FILE 587
//*           very nice features into the File 112 version of the   *   FILE 587
//*           VTOC command.                                         *   FILE 587
//*                                                                 *   FILE 587
//*           Dave Cartwright has made this version of VTOC usable  *   FILE 587
//*           for MVS 3.8 (OS/VS2) running under Hercules.  See     *   FILE 587
//*           the Improvements Log below.                           *   FILE 587
//*                                                                 *   FILE 587
//*           email:  Please contact Sam Golob at                   *   FILE 587
//*                   sbgolob@cbttape.org                           *   FILE 587
//*                                                                 *   FILE 587
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 587
//*                                                                 *   FILE 587
//*  Improvements Log:                                              *   FILE 587
//*                                                                 *   FILE 587
//*   09/02 - Dave Cartwright has gotten this version of VTOC       *   FILE 587
//*           to work for MVS 3.8 (OS/VS2) under Hercules.          *   FILE 587
//*           See member ASM370, which assembles member VTOC370.    *   FILE 587
//*                                                                 *   FILE 587
//*   09/02 - HELP member for this version was added by Matt Gates. *   FILE 587
//*                                                                 *   FILE 587
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 587
//*                                                                 *   FILE 587
//*   A description of the current state of this program, and of    *   FILE 587
//*   the improvements contained therein, follows (in the words     *   FILE 587
//*   of the author):   (Please see the Improvements Log above.)    *   FILE 587
//*                                                                 *   FILE 587
//*      This is an older version of the VTOC command looking       *   FILE 587
//*      for some talented and worthy person who is willing to      *   FILE 587
//*      merge it with the current VTOC command.  I'm sorry I       *   FILE 587
//*      did not feed this back to the world when I did the         *   FILE 587
//*      work, but now I would like to make amends.                 *   FILE 587
//*                                                                 *   FILE 587
//*      Well here's the idea I had. Even though my version         *   FILE 587
//*      left off around 1990 there are still many improvements     *   FILE 587
//*      that could be incorporated into the existing VTOC          *   FILE 587
//*      command. I warn you it won't be easy; I had to scare       *   FILE 587
//*      up additional base registers in my time.                   *   FILE 587
//*                                                                 *   FILE 587
//*      Why would you want this stuff?                             *   FILE 587
//*                                                                 *   FILE 587
//*      1) I coded a VTOCMAP module which generates a mapping      *   FILE 587
//*      of the VTOC that can optionally be outputted to the        *   FILE 587
//*      VTOCOUT DD if you use the MAP operand, but the beauty      *   FILE 587
//*      was I always did a VTOC integrity check to show gaps       *   FILE 587
//*      or overlapping extents in the VTOCs I was reading and      *   FILE 587
//*      put out a message if there were errors even if you did     *   FILE 587
//*      not have the MAP operand.                                  *   FILE 587
//*                                                                 *   FILE 587
//*      2) I coded the "NOT" of many operands like NLEV            *   FILE 587
//*      (things of NOT this high level qualifier would show in     *   FILE 587
//*      the output), NCON (NOT containing), NEND (NOT ending).     *   FILE 587
//*                                                                 *   FILE 587
//*      3) Added  BEG and NBEG (beginning with and not             *   FILE 587
//*      beginning with like BEG(SYS) which shows SYSxxxxx as       *   FILE 587
//*      opposed to coding LE(SYS1 SYS2 SYS3 etc).                  *   FILE 587
//*                                                                 *   FILE 587
//*      4) Minor allowed > < = ͺ= etc instead of GT, LT, EQ,       *   FILE 587
//*      and NE on LIM and ANDx operands.                           *   FILE 587
//*                                                                 *   FILE 587
//*      5) Increased ANDx and ORx to allow many more               *   FILE 587
//*      conditionals than the original VTOC command had.           *   FILE 587
//*                                                                 *   FILE 587
//*      6) Allowed * on checking for dates, where * means          *   FILE 587
//*      current date.  I.E. LIM(CDATE LT *) meaning I want         *   FILE 587
//*      things created prior to today.                             *   FILE 587
//*                                                                 *   FILE 587
//*      7) Did something to allow KEYLE (key length) for ISAM      *   FILE 587
//*      I think.                                                   *   FILE 587
//*                                                                 *   FILE 587
//*      8) Added LOWLEVEL and NLOWLEVEL to allow check of          *   FILE 587
//*      entire low level qualifier as opposed to END which         *   FILE 587
//*      only checks that the last few characters match.            *   FILE 587
//*                                                                 *   FILE 587
//*      9) Put volume ID in error messages for better              *   FILE 587
//*      knowledge of which pack had a problem.                     *   FILE 587
//*                                                                 *   FILE 587
//*      10) Turn off catalog search when extents are zero.         *   FILE 587
//*                                                                 *   FILE 587
//*      11) Provide ability to show whether last open of a         *   FILE 587
//*      dataset was for update or not.                             *   FILE 587
//*                                                                 *   FILE 587
//*      12) Allow OPTCD as a LIM value, was originally done to     *   FILE 587
//*      spot use of OPTCD EQ W which I didn't want people          *   FILE 587
//*      using.                                                     *   FILE 587
//*                                                                 *   FILE 587
//*      All modifications are well documented within the code,     *   FILE 587
//*      line by line and in a modifications list up front in       *   FILE 587
//*      the modules.                                               *   FILE 587
//*                                                                 *   FILE 587
//*      Definitely as this code currently stands it only knew      *   FILE 587
//*      about UCB addresses that were 000-FFF; it knew not of      *   FILE 587
//*      0000-FFFF UCB addresses.                                   *   FILE 587
//*                                                                 *   FILE 587
//***FILE 588 is a system for Automated System Shutdown and         *   FILE 588
//*           system control, from Sergey Makogonov.                *   FILE 588
//*                                                                 *   FILE 588
//*       Sergey Makogonov                                          *   FILE 588
//*                                                                 *   FILE 588
//*       501-569-2489                                              *   FILE 588
//*       Sergey.Makogonov@ahtd.state.ar.us                         *   FILE 588
//*                                                                 *   FILE 588
//*      RECEIVE exec in this pds should be able to create the      *   FILE 588
//*        source and execution libraries automatically.            *   FILE 588
//*                                                                 *   FILE 588
//***FILE 589 is from Philippe Leite and contains a REXX function   *   FILE 589
//*           package to handle STK silo commands.  The package is  *   FILE 589
//*           called HSCTOOL.  Also added to this file is a TSO     *   FILE 589
//*           command to issue Hercules commands if MVS is running  *   FILE 589
//*           under Hercules.  The command is called HERCMD.        *   FILE 589
//*                                                                 *   FILE 589
//*    email:  Philippe Leite <pbleite@br.ibm.com>                  *   FILE 589
//*                                                                 *   FILE 589
//*    Program:       HSCTOOL                                       *   FILE 589
//*    Author:        PHILIPPE LEITE                                *   FILE 589
//*    Objective:     HSC (STORAGETEK) - REXX EXTERNAL FUNCTION     *   FILE 589
//*    Creation Date: 26/05/2004                                    *   FILE 589
//*                                                                 *   FILE 589
//*                   H S C T O O L   Version 1.1.5                 *   FILE 589
//*                                                                 *   FILE 589
//*       HSCTOOL is an REXX external function that works as        *   FILE 589
//*       an interface between a REXX Exec and HSC (StorageTek      *   FILE 589
//*       Robots). The following features are implemented in        *   FILE 589
//*       the HSCTOOL:                                              *   FILE 589
//*                                                                 *   FILE 589
//*       EJECT    - Eject volume from an ACS.                      *   FILE 589
//*       MOUNT    - Mount volume.                                  *   FILE 589
//*       DISMOUNT - Dismount volume.                               *   FILE 589
//*       MOVE     - Move a Volume to another LSM.                  *   FILE 589
//*       QCAP     - Query capacity and status of a CAP.            *   FILE 589
//*       QCONFIG  - Get configuration data.                        *   FILE 589
//*       QHSC     - Determine HSC status.                          *   FILE 589
//*       QDSN     - Get Data set information.                      *   FILE 589
//*       QDRIVES  - Get Drive information.                         *   FILE 589
//*       QSCRATCH - Get LSM scratch counts.                        *   FILE 589
//*       QVOLUME  - Get volume status.                             *   FILE 589
//*       SCRATCH  - Return a volume to scratch status.             *   FILE 589
//*       UNSCRATCH - Remove a volume from scratch status.          *   FILE 589
//*                                                                 *   FILE 589
//*      Illustration of one function:  see member $$$$DOC for      *   FILE 589
//*      complete details for all functions:                        *   FILE 589
//*                                                                 *   FILE 589
//*      EJECT function:                                            *   FILE 589
//*      ==============                                             *   FILE 589
//*                                                                 *   FILE 589
//*      SYNTAX:   HSCTOOL('EJECT','Volume')                        *   FILE 589
//*                                                                 *   FILE 589
//*      Variables returned:                                        *   FILE 589
//*                                                                 *   FILE 589
//*         RESULT    - Return Code                                 *   FILE 589
//*         @SLXCMDRC - Return Code (in hex)                        *   FILE 589
//*         @SLXSRC   - Reason Code (HSC Message Code in hex)       *   FILE 589
//*                                                                 *   FILE 589
//*      Possible Return Codes:                                     *   FILE 589
//*                                                                 *   FILE 589
//*         00  -  Successful operation.                            *   FILE 589
//*         08  -  Invalid Parm specified.                          *   FILE 589
//*         16  -  Operation failed. Look at @SLXSRC for the        *   FILE 589
//*                reason rode                                      *   FILE 589
//*         20  -  HSC is not available.                            *   FILE 589
//*         24  -  User not Authorized. The request was failed      *   FILE 589
//*                by Exit SLSUX05 or the HSC Default               *   FILE 589
//*                authorization.                                   *   FILE 589
//*         50  -  Invalid Return Code by SLSXCAL.                  *   FILE 589
//*         60  -  Error in SET Varibles CSECT.                     *   FILE 589
//*                                                                 *   FILE 589
//*      Example:                                                   *   FILE 589
//*                                                                 *   FILE 589
//*      /* rexx */                                                 *   FILE 589
//*                                                                 *   FILE 589
//*      result = HSCTOOL('EJECT','011000')                         *   FILE 589
//*      if result = 0 then say "Eject successful"                  *   FILE 589
//*                                                                 *   FILE 589
//*      -------------------------------------------------------    *   FILE 589
//*                                                                 *   FILE 589
//*      Description of HERCMD.                                     *   FILE 589
//*                                                                 *   FILE 589
//*         TSO command processor to issue Hercules commands        *   FILE 589
//*         through Diagnose instruction (function code x'008')     *   FILE 589
//*         and display response from Hercules virtual machine.     *   FILE 589
//*         The Hercules parameter diag8cmd must be enabled.        *   FILE 589
//*                                                                 *   FILE 589
//*      Example:  TSO HERCMD ATTACH 0A90 3390 disk.0a90            *   FILE 589
//*                                                                 *   FILE 589
//***FILE 590 is from Charles Hottel and contains some interesting  *   FILE 590
//*           programs in Assembler Language that were created in   *   FILE 590
//*           order to do some of the programming exercises in      *   FILE 590
//*           Donald Knuth's first and third books:  Fundamental    *   FILE 590
//*           Algorithms, and Sorting and Searching.  As any reader *   FILE 590
//*           of Knuth's books knows, Knuth's programming examples  *   FILE 590
//*           are in a special language he made up, called MIX.     *   FILE 590
//*           These programming illustrations have been done in     *   FILE 590
//*           BAL Assembler Language, so they will run on S/390     *   FILE 590
//*           computers under MVS.                                  *   FILE 590
//*                                                                 *   FILE 590
//*           These programs, besides being useful in their own     *   FILE 590
//*           right, will make it easier for an Assembler Language  *   FILE 590
//*           oriented person to understand and make practical,     *   FILE 590
//*           the principles that Knuth is trying to teach us.      *   FILE 590
//*                                                                 *   FILE 590
//*           email:  chottel@cpcug.org                             *   FILE 590
//*                                                                 *   FILE 590
//***FILE 591 is from Bob Fowles of Pennsylvania State University   *   FILE 591
//*           and from Philip H. Smith III, and is a VM REXX exec   *   FILE 591
//*           whose purpose is to clean up and syntax check other   *   FILE 591
//*           REXX execs.  This is a VM exec, and it is being       *   FILE 591
//*           included here, in the hope that someone who knows     *   FILE 591
//*           both VM and MVS, will get this exec to work under     *   FILE 591
//*           TSO REXX.  Lionel Dyck has now converted this exec    *   FILE 591
//*           to an ISPF Edit Macro, included here as member        *   FILE 591
//*           REXXFORM.                                             *   FILE 591
//*                                                                 *   FILE 591
//*           Author:   BOB FOWLES     (obsolete phone number)      *   FILE 591
//*                     RBF@PSU.EDU    (this info is from 2002)     *   FILE 591
//*                     814-865-4774                                *   FILE 591
//*                                                                 *   FILE 591
//*           email:  lbdyck@gmail.com    (z/OS support)            *   FILE 591
//*                                                                 *   FILE 591
//*       Lionel Dyck has acceded to the request of Bob Fowles      *   FILE 591
//*       and has converted the VM REXXFORM into an ISPF edit       *   FILE 591
//*       macro.                                                    *   FILE 591
//*                                                                 *   FILE 591
//*       The original VM REXX exec called REXXFORM has now been    *   FILE 591
//*       renamed to member REXXFOR1, to make room for a TSO REXX   *   FILE 591
//*       exec (which is an ISPF edit macro) called REXXFORM, from  *   FILE 591
//*       Lionel Dyck.  Member REXXFORM is in TSO XMIT format,      *   FILE 591
//*       which expands to its own pds, for installing the z/OS     *   FILE 591
//*       version of REXXFORM, as an ISPF edit macro.               *   FILE 591
//*                                                                 *   FILE 591
//*       Expand the member which is now called REXXFORM, and       *   FILE 591
//*       which is in TSO XMIT format, by using the commend:        *   FILE 591
//*                                                                 *   FILE 591
//*        (TSO) RECEIVE INDS('this.pds(REXXFORM)')                 *   FILE 591
//*                                                                 *   FILE 591
//*       and answering the prompts.  Since RECEIVE is a TSO        *   FILE 591
//*       command that comes from IBM, there is a help member       *   FILE 591
//*       for it in SYS1.HELP on any MVS system that is more        *   FILE 591
//*       recent than MVS SP 1.3.5 (from the mid 1980's).           *   FILE 591
//*       The result of this RECEIVE command is the install         *   FILE 591
//*       pds for the REXXFORM z/OS product.                        *   FILE 591
//*                                                                 *   FILE 591
//*       If you are executing the RECEIVE command from the         *   FILE 591
//*       ISPF command line, you have to prefix it with the         *   FILE 591
//*       word, TSO.                                                *   FILE 591
//*                                                                 *   FILE 591
//***FILE 592 is from Richard Rice, and contains an assembler       *   FILE 592
//*           program and a macro (both called DISPLAY), which      *   FILE 592
//*           allows the programmer to display registers, fullwords *   FILE 592
//*           and halfwords, etc. so that it is easier to debug     *   FILE 592
//*           your assembler program.                               *   FILE 592
//*                                                                 *   FILE 592
//*           You linkedit the DISPLAY assembler module with the    *   FILE 592
//*           assembler program that you're coding, and to display  *   FILE 592
//*           values from the program, you code instances of the    *   FILE 592
//*           DISPLAY macro in your program.  The result is a       *   FILE 592
//*           display of the quantity, in readable format, so you   *   FILE 592
//*           can debug your program.  When your program is clean,  *   FILE 592
//*           you simply remove the DISPLAY macros.                 *   FILE 592
//*                                                                 *   FILE 592
//*           This is very old code, from the 70s or so.  See       *   FILE 592
//*           member $$NOTE1, and the comments in the code, for     *   FILE 592
//*           more details.                                         *   FILE 592
//*                                                                 *   FILE 592
//*           email:  Richard.L.Rice@conocophillips.com             *   FILE 592
//*                                                                 *   FILE 592
//***FILE 593 is Waterloo Assembler G, which is an old assembler    *   FILE 593
//*           that is from the OS/360 days.                         *   FILE 593
//*                                                                 *   FILE 593
//***FILE 594 is the Dataset Display Facility (DDF) from Roy        *   FILE 594
//*           Gardiner.  This is an ISPF-based workbench tool,      *   FILE 594
//*           to make it easier to work on your own collection      *   FILE 594
//*           of datasets.                                          *   FILE 594
//*                                                                 *   FILE 594
//*           email:  roy@roygardiner.com                           *   FILE 594
//*                                                                 *   FILE 594
//*      Introduction to DDF                                        *   FILE 594
//*                                                                 *   FILE 594
//*           Dataset Display Facility (DDF)                        *   FILE 594
//*                                                                 *   FILE 594
//*           DDF maintains a user-controlled list of dataset       *   FILE 594
//*           names against which many standard operations may      *   FILE 594
//*           be done.  It eliminates the constant typing and       *   FILE 594
//*           re-typing of dataset names that ISPF users must       *   FILE 594
//*           normally do and significantly reduces the number      *   FILE 594
//*           of 'enter' keys needed for some common operations.    *   FILE 594
//*                                                                 *   FILE 594
//*           DDF is designed to save you time.  Almost all the     *   FILE 594
//*           ISPF functions you need to perform against            *   FILE 594
//*           datasets can be done faster from a DDF screen than    *   FILE 594
//*           from a standard ISPF menu; habitual users keep the    *   FILE 594
//*           DDF screen in use instead of an ISPF main menu.       *   FILE 594
//*                                                                 *   FILE 594
//*           functions provided include:                           *   FILE 594
//*                                                                 *   FILE 594
//*           -edit a dataset (or member)                           *   FILE 594
//*           -browse a dataset (or member)                         *   FILE 594
//*           -display and edit member stats                        *   FILE 594
//*           -compare members                                      *   FILE 594
//*           -copy a member from one dataset to another            *   FILE 594
//*             (optionally changing name)                          *   FILE 594
//*           -compare and merge members                            *   FILE 594
//*           -find versions of members across many datasets        *   FILE 594
//*           -submit jobs                                          *   FILE 594
//*           -access ISPF functions including 3.1, 3.2, 3.3,       *   FILE 594
//*                                            3.4, 3.14            *   FILE 594
//*           -produce member list and then within member list:     *   FILE 594
//*                submit batch job                                 *   FILE 594
//*                browse member                                    *   FILE 594
//*                edit member                                      *   FILE 594
//*                rename member                                    *   FILE 594
//*                delete member                                    *   FILE 594
//*                execute member                                   *   FILE 594
//*                                                                 *   FILE 594
//*        What is DDF?                                             *   FILE 594
//*                                                                 *   FILE 594
//*        DDF is a Rexx exec and some ISPF panels, skeletons       *   FILE 594
//*        and messages. There is no Assembler and no need to       *   FILE 594
//*        complile anything. There are no tricks or dodges; all    *   FILE 594
//*        DDF functions are standard ISPF which you can see        *   FILE 594
//*        (and modify if you need to) in the code.                 *   FILE 594
//*                                                                 *   FILE 594
//*             You do not need to be a systems programmer to       *   FILE 594
//*        install DDF; anyone with modest knowledge of ISPF can    *   FILE 594
//*        set it up for personal use, or for use by more than      *   FILE 594
//*        one person. DDF does not interfere with your ISPF        *   FILE 594
//*        environment beyond requiring one exec to be copied to    *   FILE 594
//*        a suitable command library. All other DDF libraries      *   FILE 594
//*        remain separate from and therefore independent of        *   FILE 594
//*        your standard session, and indeed are only available     *   FILE 594
//*        whilst DDF is running - DDF uses LIBDEF to gain          *   FILE 594
//*        access to them.                                          *   FILE 594
//*                                                                 *   FILE 594
//*        Who uses DDF?                                            *   FILE 594
//*                                                                 *   FILE 594
//*        When DDF is made widely available, experience shows      *   FILE 594
//*        that that up to 10% of a typical TSO/ISPF user           *   FILE 594
//*        population will use it every day; some of these will     *   FILE 594
//*        use DDF as their standard front screen, rather than      *   FILE 594
//*        having an ISPF main menu. The main users seem            *   FILE 594
//*        generally to be to be development people rather than     *   FILE 594
//*        systems programmers; the latter have often written       *   FILE 594
//*        any number of shortcuts and tools for themselves and     *   FILE 594
//*        have their working environments tailored perfectly to    *   FILE 594
//*        suit them.                                               *   FILE 594
//*                                                                 *   FILE 594
//***FILE 595 is from Richard L. Rice and contains a macro which    *   FILE 595
//*           is used to trace the execution of a program.          *   FILE 595
//*                                                                 *   FILE 595
//*           email:  Richard.L.Rice@conocophillips.com             *   FILE 595
//*                                                                 *   FILE 595
//*    Description of the LABEL macro:                              *   FILE 595
//*                                                                 *   FILE 595
//*      This macro provides a method to trace program execution    *   FILE 595
//*      in assembler language programs.  The macro replaces the    *   FILE 595
//*      'EQU *' or 'DS 0H' commonly used to define labels.  The    *   FILE 595
//*      names used in the "label" field are stored in an in        *   FILE 595
//*      core "wrap-around" table.                                  *   FILE 595
//*                                                                 *   FILE 595
//*      The 'TRACE' keyword allows you to turn tracing on and      *   FILE 595
//*      off at various points.  This parameter sets a global       *   FILE 595
//*      switch so if trace is turned off at some point, the        *   FILE 595
//*      following LABEL macros will not cause tracing until you    *   FILE 595
//*      turn TRACE back on.  This may prevent the trace table      *   FILE 595
//*      from becoming flooded with trace entries you do not        *   FILE 595
//*      need for problem determination.  Also, after the           *   FILE 595
//*      program is debugged, code 'TRACE=OFF' or 'TRACE=NO' on     *   FILE 595
//*      the first LABEL macro and there will be zero overhead      *   FILE 595
//*      in storage use or execution time (all the macro will       *   FILE 595
//*      generate will be the actual assembler label).              *   FILE 595
//*                                                                 *   FILE 595
//*      Overhead is 12 bytes per LABEL, plus the size of the       *   FILE 595
//*      trace routine (generated via "LABEL TRACE=ROUTINE"),       *   FILE 595
//*      plus the size of the trace table (dynamically acquired,    *   FILE 595
//*      but not freed).  You probably don't want to just leave     *   FILE 595
//*      the trace stuff on once you get the program working        *   FILE 595
//*      because the trace table is not freed.  There is some       *   FILE 595
//*      execution time overhead also, of course.                   *   FILE 595
//*                                                                 *   FILE 595
//*      The macro uses and changes register 15.  On the first      *   FILE 595
//*      call, the code will issue a GETMAIN.  GETMAIN uses         *   FILE 595
//*      registers 0, 1, 14, and 15.                                *   FILE 595
//*                                                                 *   FILE 595
//*      The trace routine uses in-line work areas, so programs     *   FILE 595
//*      using the LABEL macro are not re-entrant.                  *   FILE 595
//*                                                                 *   FILE 595
//*      There are three eyecatchers in the trace routine to        *   FILE 595
//*      help you find the trace table.  These are "TRACE1ST",      *   FILE 595
//*      "TRACECUR", and "TRACELST".  TRACECUR will be the last     *   FILE 595
//*      entry added.  Good news is if your program abends, all     *   FILE 595
//*      you have to do is find the eyecatchers and get the         *   FILE 595
//*      addresses.  Bad news is if your program runs, but just     *   FILE 595
//*      doesn't work correctly, you will have to cause an abend    *   FILE 595
//*      in order to get a dump.                                    *   FILE 595
//*                                                                 *   FILE 595
//***FILE 596 is from David Chambers and contains an ISPF EDIT      *   FILE 596
//*           macro called SWP, which swaps variables around an     *   FILE 596
//*           equal sign while you are editing.                     *   FILE 596
//*                                                                 *   FILE 596
//*           Example:                                              *   FILE 596
//*                                                                 *   FILE 596
//*           screen_var = database_var                             *   FILE 596
//*           becomes                                               *   FILE 596
//*           database_var = screen_var                             *   FILE 596
//*                                                                 *   FILE 596
//*       email:  dchambers@hotpop.com                              *   FILE 596
//*                                                                 *   FILE 596
//***FILE 597 is from Hans Westheim and contains an MPF program     *   FILE 597
//*           to reply to messages.  Hans had been using the        *   FILE 597
//*           general MPF exit on File 345, and when he went to     *   FILE 597
//*           OS/390 2.10, he had a problem of A37-008 abends,      *   FILE 597
//*           which he overcame with this new solution.             *   FILE 597
//*                                                                 *   FILE 597
//*           This is an MPF exit which issues a START command,     *   FILE 597
//*           based on the message id.                              *   FILE 597
//*                                                                 *   FILE 597
//*           email:  Hans.Westheim@essent.nl                       *   FILE 597
//*                                                                 *   FILE 597
//*           Hans Westheim, Netherlands                            *   FILE 597
//*           Essent/ICT/Services/S390-engineer                     *   FILE 597
//*           +31 (0)73-8557928 (phone)                             *   FILE 597
//*           +31 (0)6-29503136 (mobile)                            *   FILE 597
//*                                                                 *   FILE 597
//*           The new MPF exit was written by:                      *   FILE 597
//*                                                                 *   FILE 597
//*           Paul Naidoo <paulcn@xs4all.nl>                        *   FILE 597
//*                                                                 *   FILE 597
//***FILE 598 is from Richard L. Rice and contains some utilities   *   FILE 598
//*           that are very interesting, even though they are       *   FILE 598
//*           old (i.e. they were written a long time ago).         *   FILE 598
//*                                                                 *   FILE 598
//*           email:  Richard.L.Rice@conocophillips.com             *   FILE 598
//*                                                                 *   FILE 598
//*     Short description of contents:                              *   FILE 598
//*                                                                 *   FILE 598
//*       AIXUTIL  - utility to create VSAM alternate indexes       *   FILE 598
//*       FILEUTIL - print records from sequential files            *   FILE 598
//*       PDSUTIL  - search pds members to find strings             *   FILE 598
//*       VSAMUTIL - print records from VSAM files                  *   FILE 598
//*       XLOC     - string search optimizable, based on            *   FILE 598
//*                  frequency of occurrence                        *   FILE 598
//*       XSORT    - a very fast in-core table sorter               *   FILE 598
//*                                                                 *   FILE 598
//***FILE 599 is from Ken MacKenzie and Bill George, and contains   *   FILE 599
//*           two versions of a REXX exec to display your current   *   FILE 599
//*           ISPF environment summary, whenever you want to see    *   FILE 599
//*           it.                                                   *   FILE 599
//*                                                                 *   FILE 599
//*           Included is an ISPF-L (ISPF news group) thread on     *   FILE 599
//*           this subject, so you understand the issues regarding  *   FILE 599
//*           the display of such information.                      *   FILE 599
//*                                                                 *   FILE 599
//*           emails:                                               *   FILE 599
//*                                                                 *   FILE 599
//*             Kenneth.MacKenzie@PRUDENTIAL.COM                    *   FILE 599
//*             WGeorge@DHS.CA.GOV                                  *   FILE 599
//*                                                                 *   FILE 599
//*    Sample display:  (pops up in a window)                       *   FILE 599
//*                                                                 *   FILE 599
//*           APPLID        : ISR                                   *   FILE 599
//*           SYSTEM ID     : P390                                  *   FILE 599
//*           NODE          : N1                                    *   FILE 599
//*           ISPF VERSION  : ISPF FOR OS/390 02.10.00              *   FILE 599
//*           OS/390 VERSION: OS/390 02.10.00                       *   FILE 599
//*                                                                 *   FILE 599
//***FILE 600 is from Paul Wells, and contains C Language programs  *   FILE 600
//*           which format SMF TCP/IP records (types 118 and 119).  *   FILE 600
//*                                                                 *   FILE 600
//*           Name      : Paul Wells                                *   FILE 600
//*                                                                 *   FILE 600
//*           Address   : Saudi Aramco Box 12959                    *   FILE 600
//*                       Dhahran 31311                             *   FILE 600
//*                       Saudi Arabia                              *   FILE 600
//*                                                                 *   FILE 600
//*           Telephone : +966 3 873 3155 (Work - direct line)      *   FILE 600
//*                                                                 *   FILE 600
//*           Fax       : +966 3 873 8958 (Work)                    *   FILE 600
//*                                                                 *   FILE 600
//*           Email     : Paul.Wells@aramco.com                     *   FILE 600
//*                                                                 *   FILE 600
//*           Yahoo     : paulwells_technogold                      *   FILE 600
//*                                                                 *   FILE 600
//*      Contained herein are two programs (FTPC118 and FTPC119)    *   FILE 600
//*      written in the C language to process SMF type 118/119      *   FILE 600
//*      records from the FTP component of TCPIP on IBM's OS/390    *   FILE 600
//*      and z/OS operating systems.  A minimum operating system    *   FILE 600
//*      level of OS/390 2.5 is required.                           *   FILE 600
//*                                                                 *   FILE 600
//*      The programs operate in two modes: SMF exit mode and       *   FILE 600
//*      TEST mode.                                                 *   FILE 600
//*                                                                 *   FILE 600
//*      In SMF exit mode the programs are installed as             *   FILE 600
//*      operating system SMF exits and invoked by the system       *   FILE 600
//*      each time an SMF record is written. In this mode the       *   FILE 600
//*      programs select FTP SMF records and issue formatted WTO    *   FILE 600
//*      (Write to Operator) messages for each FTP related          *   FILE 600
//*      record.                                                    *   FILE 600
//*                                                                 *   FILE 600
//*      In TEST mode the programs run in batch against an input    *   FILE 600
//*      file of SMF data and print FTP related records to a        *   FILE 600
//*      file.                                                      *   FILE 600
//*                                                                 *   FILE 600
//*      The primary motivation for the creation of these           *   FILE 600
//*      programs was to enable an installation to log FTP          *   FILE 600
//*      activity in real-time for tracking, audit and              *   FILE 600
//*      automation purposes and also to report on historical       *   FILE 600
//*      FTP activity. The secondary motivation was to show that    *   FILE 600
//*      the C language could be used for operating system exits    *   FILE 600
//*      on OS/390.                                                 *   FILE 600
//*                                                                 *   FILE 600
//*      There are a few other programs in this file as follows.    *   FILE 600
//*                                                                 *   FILE 600
//*      RXMAILER (REXX) - A REXX bulk emailer which opens a        *   FILE 600
//*                        socket connection to an SMTP server      *   FILE 600
//*                        and transmits SMTP format input data.    *   FILE 600
//*                        It is similar in function to UDSMTP,     *   FILE 600
//*                        but RXMAILER has many additional         *   FILE 600
//*                        features.                                *   FILE 600
//*      HPNSTST (ASM)   - A program to exercise to TCP/IP HPNS     *   FILE 600
//*                        API.                                     *   FILE 600
//*         NOTE:  Fixed by Mike Tomkins (2006/Feb)                 *   FILE 600
//*         ----   email: mjt6@daimlerchrysler.com                  *   FILE 600
//*                                                                 *   FILE 600
//*      ANFUXMSG (ASM)  - A message exit for IBM's Infoprint       *   FILE 600
//*                        Server which generates formatted single  *   FILE 600
//*                        or multi-line WTOs.                      *   FILE 600
//*      NICKNC (C)      - A fun program which generates combines   *   FILE 600
//*                        common English language phonetic sounds  *   FILE 600
//*                        to generate random nicknames.            *   FILE 600
//*                                                                 *   FILE 600
//***FILE 601 is from Greg Price, and contains a version of QUEUE   *   FILE 601
//*           for MVS 3.8 (which is normally run under Hercules).   *   FILE 601
//*                                                                 *   FILE 601
//*           As is well known, the QUEUE program is for browsing   *   FILE 601
//*           JES2 SPOOL files, especially program print output.    *   FILE 601
//*                                                                 *   FILE 601
//*           This version of QUEUE was adapted from an early       *   FILE 601
//*           version distributed by Jack Schudel, and innovated    *   FILE 601
//*           by several early JES2 geniuses.  Greg (in his usual   *   FILE 601
//*           fashion) has spiced this version up quite a bit.      *   FILE 601
//*           Please look at member $GPDOC to see some detail       *   FILE 601
//*           about the very nice improvements to QUEUE that Greg   *   FILE 601
//*           has made.                                             *   FILE 601
//*                                                                 *   FILE 601
//*           emails:  "Greg Price" <greg.price@optushome.com.au>   *   FILE 601
//*                    gregp@prycroft6.com.au                       *   FILE 601
//*                                                                 *   FILE 601
//***FILE 602 is from Mike Newell and contains two REXX execs and   *   FILE 602
//*           accompanying panels for one of them.  The two         *   FILE 602
//*           applications are called LSPCR and PUT.                *   FILE 602
//*                                                                 *   FILE 602
//*           email:  sbgolob.cbttape.org    (for questions)        *   FILE 602
//*                                                                 *   FILE 602
//*      This file consists of a pds which contains a couple of     *   FILE 602
//*      REXX execs and their associated ISPF panels and            *   FILE 602
//*      documentation.                                             *   FILE 602
//*                                                                 *   FILE 602
//*      The two REXX execs are called PUT and LSPCR.               *   FILE 602
//*                                                                 *   FILE 602
//*      PUT is an edit macro which lets you PUT lines from a       *   FILE 602
//*      dataset or pds member that you are editing into another    *   FILE 602
//*      dataset or PDS member. I used to do a lot of work on       *   FILE 602
//*      VM/CMS, and made good use of the CMS PUT command, so I     *   FILE 602
//*      decided to create a version for ISPF.                      *   FILE 602
//*                                                                 *   FILE 602
//*      LSPCR is a REXX exec that executes the TSO LSPACE          *   FILE 602
//*      command and displays the output in a scrollable panel.     *   FILE 602
//*      You can sort the panel display on one of several           *   FILE 602
//*      fields. The scrollable panel is a lot easier to read       *   FILE 602
//*      than the output from the TSO command.                      *   FILE 602
//*                                                                 *   FILE 602
//*      An XMIT for a load library containing the LSPACE and       *   FILE 602
//*      LSPC TSO commands has been included in this pds, as        *   FILE 602
//*      member LSPC.  You need only execute a TSO RECEIVE          *   FILE 602
//*      command against this member (see member $$NOTE1 for        *   FILE 602
//*      instructions), to get a load library containing the        *   FILE 602
//*      LSPACE TSO command (source from File 136) and its          *   FILE 602
//*      alias LSPC.  These may then be copied to the               *   FILE 602
//*      TSO-accessible load library of your choice.                *   FILE 602
//*                                                                 *   FILE 602
//***FILE 603 is from Sebastian Welton, and contains a powerful     *   FILE 603
//*           pds scanning tool called QWIKSCAN, which is meant     *   FILE 603
//*           to run under TSO/ISPF.                                *   FILE 603
//*                                                                 *   FILE 603
//*           email:    sebastian@welton.de                         *   FILE 603
//*           website:  www.welton.de                               *   FILE 603
//*                                                                 *   FILE 603
//*     Short description:                                          *   FILE 603
//*                                                                 *   FILE 603
//*     Basically QWIKSCAN is a low level, high performance PDS     *   FILE 603
//*     scanning utility that will perform character-by-character   *   FILE 603
//*     comparisons of PDS members for up to 234 bytes of user      *   FILE 603
//*     data. User data is defined as:                              *   FILE 603
//*                                                                 *   FILE 603
//*     * Up to 78 bytes of 'if' data                               *   FILE 603
//*     * Up to 78 bytes of 'and' data                              *   FILE 603
//*     * Up to 78 bytes of 'or' data                               *   FILE 603
//*                                                                 *   FILE 603
//*     In addition to this the user may enhance the performance    *   FILE 603
//*     of QWIKSCAN by means of giving it delimiting 'stop after'   *   FILE 603
//*     instructions in either its regular mode of operation or     *   FILE 603
//*     it's super-locate mode.                                     *   FILE 603
//*                                                                 *   FILE 603
//*     While QWIKSCAN is running, the user's terminal is           *   FILE 603
//*     updated after the first 50 and every subsequent 50 PDS      *   FILE 603
//*     members are processed.  The updated panel will tell the     *   FILE 603
//*     user how many members have been processed so far, and       *   FILE 603
//*     how many successful matches have been located.              *   FILE 603
//*                                                                 *   FILE 603
//*     Assuming that at least one successful match has been        *   FILE 603
//*     made, a temporary ISPF table is updated with the member     *   FILE 603
//*     name, ISPF statistics, etc. and when the search completes   *   FILE 603
//*     this table will be presented to the user.  They may then    *   FILE 603
//*     select any or all displayed members (multiple row selects   *   FILE 603
//*     are honoured.)                                              *   FILE 603
//*                                                                 *   FILE 603
//*     If a member is selected for processing, QWIKSCAN will       *   FILE 603
//*     initiate an ISPF BROWSE session with the nominated          *   FILE 603
//*     member(s).  Prior to displaying the member, QWIKSCAN will   *   FILE 603
//*     pre-format the control line of the BROWSE panel with the    *   FILE 603
//*     command required to find the user 'if' character string.    *   FILE 603
//*     So, all the user has to do to locate the data they are      *   FILE 603
//*     interested in, is to press ENTER and use the RFIND key      *   FILE 603
//*     to display further occurrences, if any.                     *   FILE 603
//*                                                                 *   FILE 603
//*     As a rough guide to performance, QWIKSCAN requires about    *   FILE 603
//*     0.9 seconds, elapsed time, to search a PDS member fixed     *   FILE 603
//*     at 80 bytes, containing approximately 80 lines of data      *   FILE 603
//*     for a 4 byte search string (and not finding it.)  Having    *   FILE 603
//*     said this the processing time is ultimately dependent       *   FILE 603
//*     upon machine type, IPS settings, allocated SU's, etc.  It   *   FILE 603
//*     is possible, as explained later, to instruct QWIKSCAN to    *   FILE 603
//*     operate far quicker than this.                              *   FILE 603
//***FILE 604 is the Bell Labs SNOBOL4 load module which has        *   FILE 604
//*           been reassembled and relinkedited with the OS/390     *   FILE 604
//*           DFSMS binder, from a complete disassembly, using      *   FILE 604
//*           the Startool disassembler, under the MVS/370          *   FILE 604
//*           (pre-XA) instruction set.  The disassembled source    *   FILE 604
//*           has also been included as member SNOBOL4S, but it     *   FILE 604
//*           is in zipped format, and has to be unzipped (you      *   FILE 604
//*           can FTP it in BINARY to a PC) in order to see and     *   FILE 604
//*           use it.  The load module is in TSO XMIT format,       *   FILE 604
//*           and it is called member SNOBOL4X.                     *   FILE 604
//*                                                                 *   FILE 604
//*           The original load module was found on the files       *   FILE 604
//*           section of the Hercules-390@yahoogroups.com news      *   FILE 604
//*           group.                                                *   FILE 604
//*                                                                 *   FILE 604
//*           I am trying to make the old load module more          *   FILE 604
//*           accessible to users with a recent MVS system, but     *   FILE 604
//*           since I didn't have the original source, I have       *   FILE 604
//*           included a disassembly, which you can assemble and    *   FILE 604
//*           linkedit on your own system.                          *   FILE 604
//*                                                                 *   FILE 604
//*           An object deck (as member SNOBOL4O) has also been     *   FILE 604
//*           included.  This has been prepared with the Startool   *   FILE 604
//*           delinker.                                             *   FILE 604
//*                                                                 *   FILE 604
//*           This file is in IEBCOPY format, because the CBT973    *   FILE 604
//*           compress program has no advantage if there aren't     *   FILE 604
//*           many blanks in the FB-80 source file.                 *   FILE 604
//*                                                                 *   FILE 604
//*           email:  sbgolob@cbttape.org                           *   FILE 604
//*                                                                 *   FILE 604
//***FILE 605 is a group of programs designed to help with a        *   FILE 605
//*           conversion from ACF2 to RACF.  This package will      *   FILE 605
//*           assist in capturing all the ACF2 passwords.           *   FILE 605
//*                                                                 *   FILE 605
//*      This PDS contains old sloppy code written for one use.     *   FILE 605
//*      The purpose was to save ACF2 log on id passwords to        *   FILE 605
//*      allow us to switch to RACF without us having to change     *   FILE 605
//*      the passwords for any users.                               *   FILE 605
//*                                                                 *   FILE 605
//*      These programs were able to obtain the needed data, but    *   FILE 605
//*      the data had to be manually edited before it could be      *   FILE 605
//*      used.                                                      *   FILE 605
//*                                                                 *   FILE 605
//*      It's been a few years since I used it, but seem to         *   FILE 605
//*      remember that I started with exit LGNIXIT which didn't     *   FILE 605
//*      give what I wanted.  At the last minute, I had to          *   FILE 605
//*      switch to exit SEVPRE ?  That could be backwards.          *   FILE 605
//*                                                                 *   FILE 605
//*      Use at your own risk.  Buyer beware.                       *   FILE 605
//*                                                                 *   FILE 605
//***FILE 606 is from Reed Petty and contains a version of his      *   FILE 606
//*           AWSSL program which can produce HET (Hercules         *   FILE 606
//*           Emulated Tape) format tapes on an MVS system, as      *   FILE 606
//*           well as AWS format tape files.  Since this version    *   FILE 606
//*           of AWSSL produces tapes that are only readable on     *   FILE 606
//*           Hercules-based systems and not on P/390 systems,      *   FILE 606
//*           I am placing this version on a separate file from     *   FILE 606
//*           the previous versions of AWSSL, which do not produce  *   FILE 606
//*           HET format tapes.  HET format is a superset of AWS    *   FILE 606
//*           format, where the tape blocks might be compressed.    *   FILE 606
//*           If the tape blocks are not compressed, the format     *   FILE 606
//*           of the tape file is compatible with AWS.              *   FILE 606
//*                                                                 *   FILE 606
//*   A few fixes from David Cartwright (marked *agco*).  I think   *   FILE 606
//*   this allows the creation of 64K blocked tapes (SBG).  See     *   FILE 606
//*   member $$NOTE1.                                               *   FILE 606
//*                                                                 *   FILE 606
//*           email:  dcartwright@ymail.com                         *   FILE 606
//*                                                                 *   FILE 606
//*   Explanation of HET and AWS tape formats.                      *   FILE 606
//*                                                                 *   FILE 606
//*      AWS tapes contain six-byte headers, which tell you when    *   FILE 606
//*      a tape block begins, and where a tape mark is.  AWS tapes  *   FILE 606
//*      contain the tape blocks as uncompressed bytes, whereas     *   FILE 606
//*      HET tapes contain the tape blocks as compressed data,      *   FILE 606
//*      using either the ZLIB compression program or the BZLIB     *   FILE 606
//*      compression program.                                       *   FILE 606
//*                                                                 *   FILE 606
//*      HET format was invented by Leland Lucius.                  *   FILE 606
//*                                                                 *   FILE 606
//*           email:  rhp@draper.net                                *   FILE 606
//*                                                                 *   FILE 606
//***FILE 607 is from Mike Rayborn and contains a version of        *   FILE 607
//*           IND$FILE which can legally be run on Hercules or      *   FILE 607
//*           on any other MVS system.  This version does not       *   FILE 607
//*           belong to IBM or to a vendor.                         *   FILE 607
//*                                                                 *   FILE 607
//*           Load modules for the IND$FILE module and the code     *   FILE 607
//*           page modules are supplied, as well as source code     *   FILE 607
//*           for the code page modules.                            *   FILE 607
//*                                                                 *   FILE 607
//*           Particulars and restrictions for this version of      *   FILE 607
//*           IND$FILE may be seen in the $$README member.          *   FILE 607
//*                                                                 *   FILE 607
//*           email:  mrayborn@bellsouth.net                        *   FILE 607
//*                                                                 *   FILE 607
//*      This release of IND$FILE uses external code page load      *   FILE 607
//*      modules.                                                   *   FILE 607
//*                                                                 *   FILE 607
//*      The default code page module is CDPG1047 and is            *   FILE 607
//*      included as a load module with the IND$FILE loadlib.  In   *   FILE 607
//*      this archive you will find the assembler source CDPG1047   *   FILE 607
//*      which is a job with the source suppied.                    *   FILE 607
//*                                                                 *   FILE 607
//*      Other code pages can be developed by cloning the           *   FILE 607
//*      CDPG1047 source to create other code page load modules.    *   FILE 607
//*      These can then be loaded by IND$FILE by supplying          *   FILE 607
//*      additional parms for the file transfer.                    *   FILE 607
//*                                                                 *   FILE 607
//*      IND$FILE GET host.file.name ASCII CRLF CODEPAGE CDPG1047   *   FILE 607
//*         or                                                      *   FILE 607
//*      IND$FILE GET host.file.name ASCII CRLF CDPG CDPG1047       *   FILE 607
//*                                                                 *   FILE 607
//*      If the transfer request does not include the ASCII         *   FILE 607
//*      parameter, then no external code page module will be       *   FILE 607
//*      loaded as binary transfers don't use translation           *   FILE 607
//*      tables.                                                    *   FILE 607
//*                                                                 *   FILE 607
//*      If you have questions just drop me a line at               *   FILE 607
//*      mrayborn@bellsouth.net                                     *   FILE 607
//*                                                                 *   FILE 607
//*      -- Mike                                                    *   FILE 607
//*                                                                 *   FILE 607
//***FILE 608 is from Bob Glover, and contains a TSO command to     *   FILE 608
//*           list space available on DASD.                         *   FILE 608
//*                                                                 *   FILE 608
//*       Syntax:                                                   *   FILE 608
//*                                                                 *   FILE 608
//*           SPA  xxxxxx  (partial volume name)          or        *   FILE 608
//*           SPA  *       (lists all mounted volumes)              *   FILE 608
//*           SPA  U=uuuu  (partial 4-digit unit name)              *   FILE 608
//*                                                                 *   FILE 608
//*           email:  Bob.Glover@fnf.com                            *   FILE 608
//*                                                                 *   FILE 608
//***FILE 609 is a set of packages from John Miller.  Two of them   *   FILE 609
//*           allow you to set up a RESCUE system (i.e. a miniature *   FILE 609
//*           IPLable system which allows you to fix another MVS    *   FILE 609
//*           system).  One is older, and is in member RESCUE.  The *   FILE 609
//*           other is for OS/390 2.10, and is in member RESCUE20.  *   FILE 609
//*                                                                 *   FILE 609
//*           A new, fixed version of RESCUE20 has been supplied    *   FILE 609
//*           by Chris Buckley.  This version has various           *   FILE 609
//*           improvements, as described in member $$DOC of the     *   FILE 609
//*           (PDSLOAD-) unloaded pds which is member RESCUNEW in   *   FILE 609
//*    >>>>>  this file.  RESCUNEW is to be regarded as the most    *   FILE 609
//*    >>>>>  up-to-date version here, as per John Miller's         *   FILE 609
//*           endorsement.  I have included all the versions,       *   FILE 609
//*           because someone may need one, rather than another.    *   FILE 609
//*                                                                 *   FILE 609
//*           Chris Buckley's email:  chris_buckley@mandg.co.uk     *   FILE 609
//*                                                                 *   FILE 609
//*           Member ZCLONE30 was added for later systems (circa    *   FILE 609
//*           z/OS 1.11 or thereabouts).  This member is a pds      *   FILE 609
//*           in IEBUPDTE SYSIN format or PDSLOAD format.           *   FILE 609
//*                                                                 *   FILE 609
//*           These members are unloaded PDSes, in PDSLOAD format,  *   FILE 609
//*           which preserves the ISPF statistics.  A job is        *   FILE 609
//*           provided, called $PDSLOAD, to create the individual   *   FILE 609
//*           unloaded PDSes.                                       *   FILE 609
//*                                                                 *   FILE 609
//*           A third package called RFLD, has now been moved to    *   FILE 609
//*           CBT Tape File 827.  This is to help maintain the      *   FILE 609
//*           RACF dataset.                                         *   FILE 609
//*                                                                 *   FILE 609
//*           A fourth package is called ACTIVE, and it is a REXX   *   FILE 609
//*           function to return whether a certain JOB is running   *   FILE 609
//*           currently on your MVS system.                         *   FILE 609
//*                                                                 *   FILE 609
//*           email:  john@jmit.com                                 *   FILE 609
//*           phone:  714-563-1513                                  *   FILE 609
//*                                                                 *   FILE 609
//***FILE 610 is a program to copy a file and substitute strings.   *   FILE 610
//*           As many as 25 string pairs may be substituted.        *   FILE 610
//*           And there is another program to send control messages *   FILE 610
//*           to the operator, telling when to open and close CICS  *   FILE 610
//*           files.                                                *   FILE 610
//*                                                                 *   FILE 610
//*           The materials on this file were originally submitted  *   FILE 610
//*           to the files section of H390-MVS@yahoogroups.com .    *   FILE 610
//*                                                                 *   FILE 610
//*           email:  somitcw@yahoo.com                             *   FILE 610
//*                                                                 *   FILE 610
//***FILE 611 is from Hari Ramaswamy Saraswathy of Madras, India    *   FILE 611
//*           (Chennai) and contains an Automatic Job Scheduler.    *   FILE 611
//*           This package makes it possible to delay the           *   FILE 611
//*           submission of a job until a prerequisite job has      *   FILE 611
//*           completed first, and entire sequences of jobs can     *   FILE 611
//*           be scheduled to execute properly.                     *   FILE 611
//*                                                                 *   FILE 611
//*           Please see member README in this pds, to see how to   *   FILE 611
//*           install and run the Job Scheduler.  The member HELP   *   FILE 611
//*           also gives a lot of insight into how this package     *   FILE 611
//*           works.                                                *   FILE 611
//*                                                                 *   FILE 611
//*           email:   RamaHari@Chn.Cognizant.com                   *   FILE 611
//*                    harirs@yahoo.com                             *   FILE 611
//*                                                                 *   FILE 611
//***FILE 612 is from Albert Cheng and contains handy TSO utilities *   FILE 612
//*           that run on MVS.  DSPACE, DUASD and LOCATE are        *   FILE 612
//*           originally from the CBT Tape.  They have been         *   FILE 612
//*           enhanced to support the new functions of MVS such as  *   FILE 612
//*           4-digit unit numbers, dynamic link libraries, and     *   FILE 612
//*           so forth.  The utilities are described below.         *   FILE 612
//*                                                                 *   FILE 612
//*              email:   albertcpcheng@hotmail.com                 *   FILE 612
//*                                                                 *   FILE 612
//*           AVAILAS  - A REXX utility to display the current      *   FILE 612
//*                      available address spaces.  As some task    *   FILE 612
//*                      terminates, its address space is no longer *   FILE 612
//*                      available for re-use and the number of     *   FILE 612
//*                      available address space is decreased by    *   FILE 612
//*                      one.  If it is dropped to zero, no new     *   FILE 612
//*                      address space can be created.              *   FILE 612
//*                                                                 *   FILE 612
//*           BLOCATE  - Locate can find a module at LPA and it     *   FILE 612
//*                      cannot find out which LPA libraries.       *   FILE 612
//*                      BLOCATE is a batch program which scans     *   FILE 612
//*                      the load module in DDNAME SYSLIB and then  *   FILE 612
//*                      dynamic linklist libraries.                *   FILE 612
//*                                                                 *   FILE 612
//*           CATNEWDS - Generates IDCAMS DEFINE NONVSAM control    *   FILE 612
//*                      statements to define only the new datasets *   FILE 612
//*                      at the new IPL pack. It also generates     *   FILE 612
//*                      IDCAMS CONTROL statements to re-catalog    *   FILE 612
//*                      the datasets that are not catalog with     *   FILE 612
//*                      DEVT(0000) and VOLUME(******).             *   FILE 612
//*                                                                 *   FILE 612
//*           DSPACE   - An assembler program to display the free   *   FILE 612
//*                      space of a dasd.  This program is          *   FILE 612
//*                      enhanced to used to PUTLINE and supports   *   FILE 612
//*                      4 digits unit number. It is enhanced to    *   FILE 612
//*                      display the 3390 model type. It is also    *   FILE 612
//*                      enhanced to display the freespace by 3390  *   FILE 612
//*                      model type.  (ie M09/M27/M54 which         *   FILE 612
//*                      display the freespace the 3390 model       *   FILE 612
//*                      type). EMPTYDSK is the new enhancement to  *   FILE 612
//*                      display volume list with used utilization  *   FILE 612
//*                      is zero. This utility is similar to CBT    *   FILE 612
//*                      utility FREESPC.                           *   FILE 612
//*                                                                 *   FILE 612
//*           DUDASD   - An assembler prgram to display status of   *   FILE 612
//*                      all the disk (ie ONLINE and OFFLINE).      *   FILE 612
//*                      This has been enhanced to support wild     *   FILE 612
//*                      card volume serial or by unit address      *   FILE 612
//*                      range (ie DUO 1A20:1CFF or DUA 1B20:2FFF)  *   FILE 612
//*                      for disaster recovery preparation.         *   FILE 612
//*                      Download the output of DUA from            *   FILE 612
//*                      production LPAR.  Load it into your smart  *   FILE 612
//*                      phone and you can refer the the            *   FILE 612
//*                      production dasd list in DR site without    *   FILE 612
//*                      access the production LPAR.                *   FILE 612
//*                                                                 *   FILE 612
//*                      Tips: Copy TRAP macro into your SYSPROC    *   FILE 612
//*                      Edit a new member and issue 'TRAP DUDASD'  *   FILE 612
//*                      and save the file.                         *   FILE 612
//*                                                                 *   FILE 612
//*           ISPFST   - REXX to list all splits in your ISPF       *   FILE 612
//*                      session, and what is in each split.        *   FILE 612
//*                                                                 *   FILE 612
//*           LISTPDS  - Enhance LISTPDS (CBT FILE 316). Add new    *   FILE 612
//*                      option to unload a PDS to sequential file  *   FILE 612
//*                      with exactly the same attribute as the     *   FILE 612
//*                      source PDS.                                *   FILE 612
//*                                                                 *   FILE 612
//*           LOAD     - Programs load library in TSO XMIT format.  *   FILE 612
//*                                                                 *   FILE 612
//*           LOAD$    - JCL to restore load library.               *   FILE 612
//*                                                                 *   FILE 612
//*           LOCATE   - An assembler program to locate named       *   FILE 612
//*                      command in either Nucleus, F/MLPA, LIBDEF  *   FILE 612
//*                      ISPLLIB, ISPLLIB, TASKLIB, STEPLIB, LPA    *   FILE 612
//*                      and Linklist libraries, SYSEXEC and        *   FILE 612
//*                      SYSPROC.  Define RACF Facility profile     *   FILE 612
//*                      CSVDYNL.*.TEST and grant yourself with     *   FILE 612
//*                      READ access to this profile. The LOCATE    *   FILE 612
//*                      command is no longer required to register  *   FILE 612
//*                      as authorised program in IKJTSO00.         *   FILE 612
//*                                                                 *   FILE 612
//*                      The program is enhanced to use PUTLINE API *   FILE 612
//*                      to display the output and you can run      *   FILE 612
//*                      LOCATE as a batch job.                     *   FILE 612
//*                                                                 *   FILE 612
//*                      LOCATE HAS TWO ALIASes                     *   FILE 612
//*                      ALIAS  FINDCMD - Search CLIST and EXEC     *   FILE 612
//*                      ALIAS  FINDPRG - Search TASKLIB/LPA/       *   FILE 612
//*                      LINKLST                                    *   FILE 612
//*                                                                 *   FILE 612
//*           QIODF    - A REXX utility display the currnet IODF    *   FILE 612
//*                      name                                       *   FILE 612
//*                                                                 *   FILE 612
//*           REGSIZE  - A REXX utility display the in used region  *   FILE 612
//*                      size                                       *   FILE 612
//*                                                                 *   FILE 612
//*           SHOWPPT  - An assembler batch program to display PPT  *   FILE 612
//*                      and the orginal source is from CBT 835.    *   FILE 612
//*                                                                 *   FILE 612
//*           SRCHLOG  - MVS SYSLOG message can have more than one  *   FILE 612
//*                      line. This utility can display multiple    *   FILE 612
//*                      lines if the string is found from SYSLOG   *   FILE 612
//*                      with RECFM VB or VBA                       *   FILE 612
//*                                                                 *   FILE 612
//*           SRCHLOGF - MVS SYSLOG message can have more than one  *   FILE 612
//*                      line. This utility can display multiple    *   FILE 612
//*                      lines if the string is found from SYSLOG   *   FILE 612
//*                      with RECFM FB or FBA                       *   FILE 612
//*                                                                 *   FILE 612
//*           SVCNO    - A REXX utility to display SVC description  *   FILE 612
//*                                                                 *   FILE 612
//*           SVCUPDTE - A REXX utility to display SVC recording    *   FILE 612
//*                      table to find out which SVC EPA are        *   FILE 612
//*                      modified by third party software after     *   FILE 612
//*                      IPL.                                       *   FILE 612
//*                                                                 *   FILE 612
//*           SYSINCRD - STC does not support in-stream data (ie    *   FILE 612
//*                      SYIN DD *).  This program generates SYSIN  *   FILE 612
//*                      control statement from PARM for STC.       *   FILE 612
//*                                                                 *   FILE 612
//*           HDSPACE  - HELP member of DSPACE                      *   FILE 612
//*                                                                 *   FILE 612
//*           HDUDASD  - HELP member of DUDASD                      *   FILE 612
//*                                                                 *   FILE 612
//*           HLOCATE  - HELP member of LOCATE                      *   FILE 612
//*                                                                 *   FILE 612
//*           TRAP     - ISPF EDIT MACRO to trap the output of      *   FILE 612
//*                      DUDASD and DSPACE. Note LOCATE use TPUT    *   FILE 612
//*                      so the output cannot be trap.              *   FILE 612
//*                                                                 *   FILE 612
//*           VIEWPARM - REXX to allow you to look at (VIEW)        *   FILE 612
//*                      any valid PARMLIB member, directly         *   FILE 612
//*                      from the IPA.                              *   FILE 612
//*                                                                 *   FILE 612
//*     MACRO - $EPILOG, $PROLOG, @ENT, @RET, JVDENTER, JVDEQU and  *   FILE 612
//*             JVDLEAVE are obsolete.                              *   FILE 612
//*                                                                 *   FILE 612
//***FILE 613 is from Mark Crabtree and contains JCL to create a    *   FILE 613
//*           one-pack MVS "Rescue System" from your currently      *   FILE 613
//*           installed z/OS 1.2 production system.  In Mark's      *   FILE 613
//*           case, the newly created system fits on one 3390-3     *   FILE 613
//*           disk pack.                                            *   FILE 613
//*                                                                 *   FILE 613
//*           The idea here is to be able to rebuild (or rather     *   FILE 613
//*           "refresh") your own rescue system, as your production *   FILE 613
//*           MVS system changes over time.                         *   FILE 613
//*                                                                 *   FILE 613
//*           Please see member $$NOTE2 which describes the         *   FILE 613
//*           limitations of what is presented here, and also       *   FILE 613
//*           indicates (a bit) the place of the installation-      *   FILE 613
//*           specific parts of what Mark has done.                 *   FILE 613
//*                                                                 *   FILE 613
//*           email:  mcrabtree@anpac.com                           *   FILE 613
//*                                                                 *   FILE 613
//***FILE 614 is from Sam Golob and contains load module libraries  *   FILE 614
//*           for various versions of the SHOWMVS and SHOWZOS       *   FILE 614
//*           programs from File 492.  Roland Schiradin requested   *   FILE 614
//*           that I not include load module libraries in File      *   FILE 614
//*           492 itself, because of the various versions of z/OS   *   FILE 614
//*           products such as ISPF and LE and TCP/IP which may     *   FILE 614
//*           be included in the final load module and which may    *   FILE 614
//*           cause some problem in some systems, if they are the   *   FILE 614
//*           wrong version for that system.  So it is best for     *   FILE 614
//*           each installation to assemble and linkedit SHOWMVS    *   FILE 614
//*           or SHOWZOS for itself.                                *   FILE 614
//*                                                                 *   FILE 614
//*           However, it is difficult for some shops to assemble   *   FILE 614
//*           SHOWMVS and SHOWZOS, because they don't have the      *   FILE 614
//*           proper version of the High Level Assembler (ASMA90)   *   FILE 614
//*           or they are missing some of the other requirements    *   FILE 614
//*           for properly creating a SHOWMVS or SHOWZOS load       *   FILE 614
//*           module.  Therefore, I have created this file so       *   FILE 614
//*           that such shops can have a quick install of SHOWMVS   *   FILE 614
//*           or SHOWZOS, to suit (at least) most of their needs.   *   FILE 614
//*                                                                 *   FILE 614
//*       email:  sbgolob@cbttape.org                               *   FILE 614
//*                                                                 *   FILE 614
//*       To create a load library from one of these members,       *   FILE 614
//*       use the RECEIVE command under TSO:                        *   FILE 614
//*                                                                 *   FILE 614
//*       RECEIVE INDS(hlq.FILE614.pds(memname))                    *   FILE 614
//*                                                                 *   FILE 614
//*       and answer the prompts for DSN( ), VOL( ), UNIT( ) etc.   *   FILE 614
//*       or just press ENTER.                                      *   FILE 614
//*                                                                 *   FILE 614
//*  Note:  SHOWzOS 7.17 and 7.18 assemble differently on z/OS 1.8  *   FILE 614
//*         systems and on z/OS 1.9 systems.  The z/OS 1.9 assembly *   FILE 614
//*         load module will work on 1.8, but the z/OS 1.8 load     *   FILE 614
//*         module will get an abend when run on z/OS 1.9 or 1.10.  *   FILE 614
//*         Similar results occur for SHOWzOS 7.19, and I suppose,  *   FILE 614
//*         for 7.20.                                               *   FILE 614
//*                                                                 *   FILE 614
//*         Therefore if you have multiple systems, it is           *   FILE 614
//*         recommended that you assemble SHOWzOS on z/OS 1.9 or    *   FILE 614
//*         higher.  Members marked SHO9xxxx were assembled at      *   FILE 614
//*         the z/OS 1.9 level.  Members marked SHOAxxxx were       *   FILE 614
//*         assembled on a z/OS 1.10 system.  Members marked        *   FILE 614
//*         SHOBxxxx were assembled on a z/OS 1.11 system.          *   FILE 614
//*         Similarly, SHOCxxxx on 1.12, and SHODxxxx on 1.13,      *   FILE 614
//*         and SHOExxxx on 2.1, and SHOGxxxx on 2.2.               *   FILE 614
//*                                                                 *   FILE 614
//*         Reassembled 2013/12/12 for z/OS 1.13, PUT LEVEL 1311.   *   FILE 614
//*         Members:  ASMLD721, SHOD721M.                           *   FILE 614
//*                                                                 *   FILE 614
//*         Reassembled 2014/05/15 for z/OS 2.1, PUT LEVEL 1403.    *   FILE 614
//*         Members:  ASMLE722, SHOE722L.                           *   FILE 614
//*                                                                 *   FILE 614
//*         Reassembled 2015/01/20 for z/OS 2.1, PUT LEVEL 1412.    *   FILE 614
//*         PTF Levels:  UA90741, UA90742, UA90740 and z/OS 2.2.    *   FILE 614
//*         Members:  ASMLF722, SHOF722L.  Old versions of          *   FILE 614
//*         SHOWzOS will not work if ULUT is Type 3 (now 64-bit)    *   FILE 614
//*         after PUT 1412 maintenance is applied.                  *   FILE 614
//*                                                                 *   FILE 614
//*         Reassembled 2015/06/09 for z/OS 2.1 PUT LEVEL 1503.     *   FILE 614
//*         This is SHOWzOS 7.23.  ASMLF723, SHOF723L.              *   FILE 614
//*                                                                 *   FILE 614
//*         There is a newer SHOWzOS 7.23 version, as below.        *   FILE 614
//*                                                                 *   FILE 614
//*         Reassembled the newer SHOWzOS 7.23 version using        *   FILE 614
//*         z/OS 2.1 at PUT Level 1505.  Dated 2015/08/02.          *   FILE 614
//*         This is SHOWzOS 7.23.  ASMLF723, SHOF723M.              *   FILE 614
//*                                                                 *   FILE 614
//*         The "final" version of SHOWzOS 7.23 was assembled       *   FILE 614
//*         on z/OS 2.2 at PUT Level 1611.  Members SHOG723M        *   FILE 614
//*         and ASMLH723.  Solved LOGGER problem.                   *   FILE 614
//*                                                                 *   FILE 614
//*         The initial version of SHOWzOS 7.25 was assembled       *   FILE 614
//*         on z/OS 2.4 at PUT Level 2004.  Members SHOH725L        *   FILE 614
//*         and ASMLH725.                                           *   FILE 614
//*                                                                 *   FILE 614
//*         SHOWzOS 8.01 was assembled on z/OS 2.4 at PUT level     *   FILE 614
//*         2008.  Members SHOH801L and ASMLH801.                   *   FILE 614
//*                                                                 *   FILE 614
//*         SHOWzOS 8.01 was assembled on z/OS 2.5 at PUT level     *   FILE 614
//*         2112.  Members SHOI801L and ASMLI801.                   *   FILE 614
//*                                                                 *   FILE 614
//*         (Some machines cannot run SHOWzOS 8.01.  It is          *   FILE 614
//*         suggested to run SHOWzOS 7.25 in these cases.  It       *   FILE 614
//*         should run fine.)                                       *   FILE 614
//*                                                                 *   FILE 614
//***FILE 615 was sent in by Lionel Dyck (see member $$NOTE01)      *   FILE 615
//*           and contains two macro libraries, to help Assembler   *   FILE 615
//*           programmers in different areas.                       *   FILE 615
//*                                                                 *   FILE 615
//*           The DYNALLOC member expands to a pds which contains   *   FILE 615
//*           macros that are helpful in coding dynamic allocation  *   FILE 615
//*           within Assembler programs.  The ISPFDYN member is     *   FILE 615
//*           a macro library containing ISPF dialog manipulation   *   FILE 615
//*           macros for Assembler programs.                        *   FILE 615
//*                                                                 *   FILE 615
//*           Lionel wishes to acknowledge the creator(s) of this   *   FILE 615
//*           material, whomever they may be.                       *   FILE 615
//*                                                                 *   FILE 615
//*           Some or all of this material may possibly be          *   FILE 615
//*           included in Lionel's large collection of files        *   FILE 615
//*           on the CBT Overflow Tape (Files 016 thru 037).        *   FILE 615
//*           But they have been included here because of their     *   FILE 615
//*           potential usefulness to Assembler programmers.        *   FILE 615
//*                                                                 *   FILE 615
//*           email:   lbdyck@gmail.com                             *   FILE 615
//*                                                                 *   FILE 615
//*           email:   sbgolob@cbttape.org                          *   FILE 615
//*                                                                 *   FILE 615
//***FILE 616 is from Nigel Thomas, and contains S/390 software     *   FILE 616
//*           and documentation gotten from his web site:           *   FILE 616
//*                                                                 *   FILE 616
//*           http://www.ngthomas.co.uk/s390.htm                    *   FILE 616
//*                                                                 *   FILE 616
//*           Documentation of the programs and techniques          *   FILE 616
//*           found in this file is in member $$$DOC.               *   FILE 616
//*                                                                 *   FILE 616
//*           email:  nigelt@bigfoot.com                            *   FILE 616
//*                                                                 *   FILE 616
//*     S/390 Corner                                                *   FILE 616
//*                                                                 *   FILE 616
//*     I currently make my living supporting, among other          *   FILE 616
//*     things, IBM S/390 computer systems. This file contains      *   FILE 616
//*     some items that might be of use to others in this           *   FILE 616
//*     field, if only of historic interest.                        *   FILE 616
//*                                                                 *   FILE 616
//*     DHCP on the Mainframe                                       *   FILE 616
//*                                                                 *   FILE 616
//*     I have recently moved our DHCP server from Windows NT       *   FILE 616
//*     to the mainframe. My experiences, good and bad can be       *   FILE 616
//*     found here.                                                 *   FILE 616
//*                (member $DHCP)                                   *   FILE 616
//*                                                                 *   FILE 616
//*     IBM/Cisco Router Interoperability - An Example              *   FILE 616
//*                                                                 *   FILE 616
//*     I have recently had to integrate Cisco routers into an      *   FILE 616
//*     all IBM network including IBM 2212 routers. This            *   FILE 616
//*     document describes the Cisco configuration file used to     *   FILE 616
//*     provide IP and SNA connectivity between a Cisco 2610        *   FILE 616
//*     and an IBM 2212.                                            *   FILE 616
//*                (member $IBCISCO)                                *   FILE 616
//*                                                                 *   FILE 616
//*     Software                                                    *   FILE 616
//*                                                                 *   FILE 616
//*     OS/390     IEFUSI is an SMF exit used to override the       *   FILE 616
//*                region size for a job step. This version         *   FILE 616
//*                while specific to a particular sites needs,      *   FILE 616
//*                may be useful as a starting point for            *   FILE 616
//*                writing your own.                                *   FILE 616
//*                                                                 *   FILE 616
//*                RACFXREF is a program to produce a cross         *   FILE 616
//*                reference of rules used by userids and           *   FILE 616
//*                groups. A list of rules for which there is       *   FILE 616
//*                no matching group or user is also                *   FILE 616
//*                displayed. This program was knocked up in a      *   FILE 616
//*                hurry, and it shows ! My current shop uses       *   FILE 616
//*                ACF2 so I have not tested it recently. If        *   FILE 616
//*                nothing else, it is an example of how to         *   FILE 616
//*                use the ICHEINTY macro.                          *   FILE 616
//*                                                                 *   FILE 616
//*                ROPMONT                                          *   FILE 616
//*                                                                 *   FILE 616
//*                This program alerts the system operator          *   FILE 616
//*                when one or more address spaces are not          *   FILE 616
//*                running. While it may not be useful in your      *   FILE 616
//*                environment, it serves as a good example of      *   FILE 616
//*                how a program can respond to Modify and          *   FILE 616
//*                Stop commands using the QEDIT macro.             *   FILE 616
//*                                                                 *   FILE 616
//*                GENOAT                                           *   FILE 616
//*                                                                 *   FILE 616
//*                Genoat is a Rexx program that is used to         *   FILE 616
//*                generate an OAT (OSA Address Table)              *   FILE 616
//*                required to configure an Open Systems            *   FILE 616
//*                Adapter. Along with the Rexx source is           *   FILE 616
//*                sample input and output.                         *   FILE 616
//*                                                                 *   FILE 616
//*     CICS Stuff                                                  *   FILE 616
//*                ISSIGN is a CICS signon program. This            *   FILE 616
//*                program was originally written to replace        *   FILE 616
//*                the then, very limited IBM supplied              *   FILE 616
//*                program. It was last tested under CICS           *   FILE 616
//*                Version 4.1                                      *   FILE 616
//*                                                                 *   FILE 616
//***FILE 617 is from Pedro Berrios and contains a REXX exec to     *   FILE 617
//*           produce a report from SMF Type 30 records.            *   FILE 617
//*                                                                 *   FILE 617
//*           Pedro O. Berrios                                      *   FILE 617
//*           MRS Consulting, Inc.                                  *   FILE 617
//*           San Juan, Puerto Rico                                 *   FILE 617
//*                                                                 *   FILE 617
//*           e-mail: pberrios@mrscipr.com                          *   FILE 617
//*                   Pedro Berrios Aguirre                         *   FILE 617
//*                                                                 *   FILE 617
//*       "This program needs the program "SMFSLCT" (File 523)"     *   FILE 617
//*                                                                 *   FILE 617
//***FILE 618 is from Pergentino Arias and contains a package of    *   FILE 618
//*           programs to encrypt and decrypt your data using       *   FILE 618
//*           IBM's ICSF Cryptographic Services Facility.           *   FILE 618
//*                                                                 *   FILE 618
//*           email:  "Pergentino Arias" <pergen@mixmail.com>       *   FILE 618
//*                                                                 *   FILE 618
//*        -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -        *   FILE 618
//*                                                                 *   FILE 618
//*     Package Description:                                        *   FILE 618
//*                                                                 *   FILE 618
//*     Here is a little application that calls the                 *   FILE 618
//*     CRYPTOGRAPHIC ICSF API'S.                                   *   FILE 618
//*                                                                 *   FILE 618
//*     All the programs are in REXX.                               *   FILE 618
//*                                                                 *   FILE 618
//*     You need access to keys and to the ICSF.                    *   FILE 618
//*                                                                 *   FILE 618
//*     The programs are in xmit format in member XEXEC.            *   FILE 618
//*     The panels are in xmit format in member XPLIB.              *   FILE 618
//*     The messages are in xmit format in member XMLIB.            *   FILE 618
//*                                                                 *   FILE 618
//*     You only have to start with the REXX PCSF and follow        *   FILE 618
//*     the panels.                                                 *   FILE 618
//*                                                                 *   FILE 618
//*     Note: You have to put your CKDS and your PKDS in            *   FILE 618
//*           program PCSF and all the application works with       *   FILE 618
//*           your files.                                           *   FILE 618
//*                                                                 *   FILE 618
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - - -     *   FILE 618
//*                                                                 *   FILE 618
//*     In addition to this, there are other programs too.          *   FILE 618
//*                                                                 *   FILE 618
//*        In order to create asymetric keys, I put several         *   FILE 618
//*        keys RSA in the members:                                 *   FILE 618
//*                   RSA11024                                      *   FILE 618
//*                   RSA1512  ---> see this first                  *   FILE 618
//*                   RSA21024                                      *   FILE 618
//*                   RSA31024                                      *   FILE 618
//*                   RSA41024                                      *   FILE 618
//*                   RSA51024                                      *   FILE 618
//*                   RSA61024                                      *   FILE 618
//*                   RSA71024                                      *   FILE 618
//*                   RSA81024                                      *   FILE 618
//*                   RSA91024                                      *   FILE 618
//*        This keys are in assembler format for use with a         *   FILE 618
//*        program that put them in the PKDS.  You can use          *   FILE 618
//*        program RSACREA changing the member that use to put      *   FILE 618
//*        the key in the PKDS, and the key label, which is         *   FILE 618
//*        RSAPRU.                                                  *   FILE 618
//*                                                                 *   FILE 618
//*        Other programs                                           *   FILE 618
//*                                                                 *   FILE 618
//*        1   Generate random numbers                              *   FILE 618
//*            COBOL example: randomc                               *   FILE 618
//*            ASML example:  randoma                               *   FILE 618
//*                                                                 *   FILE 618
//*        2   Create symmetric keys using API   KEY GENERATE       *   FILE 618
//*            The program in COBOL:   DESCRECB                     *   FILE 618
//*            The program in ASM:     DESCREAS                     *   FILE 618
//*            With the JCL:           CREASIM                      *   FILE 618
//*                                                                 *   FILE 618
//*        3   Create symetric keys using RANDOM GENERATOR and      *   FILE 618
//*            IMPORT                                               *   FILE 618
//*            The program in COBOL:   DESRANCB                     *   FILE 618
//*            The program in ASM:     DESRANAS                     *   FILE 618
//*                                                                 *   FILE 618
//*        4   Signatures                                           *   FILE 618
//*            5.1    RSADSS1 creates the key RSADSS for            *   FILE 618
//*                   signatures.                                   *   FILE 618
//*                   RSADSS2 makes a signature from a text and     *   FILE 618
//*                   verifies it.                                  *   FILE 618
//*                                                                 *   FILE 618
//*     You can compile all the Assembler programs using the        *   FILE 618
//*     proc ASMCOMP.                                               *   FILE 618
//*     You can compile all the COBOL programs using the proc       *   FILE 618
//*     COBCOMP.                                                    *   FILE 618
//*                                                                 *   FILE 618
//***FILE 619 is from Brian Westerman and contains the Dynamic      *   FILE 619
//*           Proclib modification, fitted to the Hercules MVS 3.8J *   FILE 619
//*           Turnkey #3 system.                                    *   FILE 619
//*                                                                 *   FILE 619
//*       Some of the members of this pds are in TSO XMIT format,   *   FILE 619
//*       which may cause a small amount of difficulty with an      *   FILE 619
//*       MVS 3.8J system, unless you know how to use Jim           *   FILE 619
//*       Morrison's XMIT370 and RECV370 programs (see File 571).   *   FILE 619
//*       Or you might want to download these members to a pc,      *   FILE 619
//*       and use the XMIT-manager program (available from a link   *   FILE 619
//*       at www.cbttape.org) to look at the $SMPLIST at least.     *   FILE 619
//*                                                                 *   FILE 619
//*       The modification allows execution of JCL which looks      *   FILE 619
//*       like this:                                                *   FILE 619
//*                                                                 *   FILE 619
//*  //BRIAN    JOB (ASSEMBLY),'SYSTEMS*BRIAN',CLASS=A,MSGCLASS=A,  *   FILE 619
//*  //         NOTIFY=BRIAN                                        *   FILE 619
//*  //JOBPROC  DD DISP=SHR,DSN=MY.PROC.LIBRARY,SYSPROC=YES         *   FILE 619
//*  //STEP1    EXEC  MYPROC                                        *   FILE 619
//*  /*                                                             *   FILE 619
//*                                                                 *   FILE 619
//*     This will cause the converter to first look in              *   FILE 619
//*     "MY.PROC.LIBRARY" for the procedure "MYPROC" and if not     *   FILE 619
//*     found there, it will then search the normal JES2            *   FILE 619
//*     concatenation.  If you had changed the 'SYSPROC=YES' to     *   FILE 619
//*     'SYSPROC=NO', then the search for the procedure "MYPROC"    *   FILE 619
//*     would have ended with the search of 'MY.PROC.LIBRARY',      *   FILE 619
//*     and if not found, a JCL error would have resulted.          *   FILE 619
//*                                                                 *   FILE 619
//*     Brian Westerman                                             *   FILE 619
//*     email: brian_westerman@syzygyinc.com                        *   FILE 619
//*     (800) 767-2244                                              *   FILE 619
//*     (800) 366-4082  - FAX                                       *   FILE 619
//*                                                                 *   FILE 619
//***FILE 620 is from Hiroyuki Konishi and is an Assembler          *   FILE 620
//*           program which is a precompiler for COBOL programs,    *   FILE 620
//*           so you can copy pieces of code from members of a      *   FILE 620
//*           pds, to make a single source program to feed into     *   FILE 620
//*           the COBOL compiler.  See the member $SAMPJCL for      *   FILE 620
//*           sample JCL to run this program.                       *   FILE 620
//*                                                                 *   FILE 620
//*           The idea is to extend the concept of COPY members     *   FILE 620
//*           into any part of a COBOL program, not just the        *   FILE 620
//*           PROCEDURE DIVISION segments of code.                  *   FILE 620
//*                                                                 *   FILE 620
//*           Hiroyuki Konishi                                      *   FILE 620
//*           mailto:milkyw@gamma.ocn.ne.jp                         *   FILE 620
//*           http://www.milkyware.com/                             *   FILE 620
//*                                                                 *   FILE 620
//*    Purpose of the MWCBLCPY program:                             *   FILE 620
//*                                                                 *   FILE 620
//*     Normally in COBOL programs, COPY statements can only        *   FILE 620
//*     occur in the PROCEDURE DIVISION.  Using my program,         *   FILE 620
//*     you can put COPY statements anywhere in the COBOL           *   FILE 620
//*     program, and before compiling, you run the modified         *   FILE 620
//*     source (with the included COPY statements) through my       *   FILE 620
//*     program, and THEN into the COBOL compiler.  Please see      *   FILE 620
//*     member $SAMPJCL for more complete sample JCL.  My           *   FILE 620
//*     program will expand the COPY statements by copying the      *   FILE 620
//*     named pds member inline into the program source code.       *   FILE 620
//*                                                                 *   FILE 620
//*     As stated above, the COPY statement must begin in           *   FILE 620
//*     column 12, and the pds member name to be copied, must       *   FILE 620
//*     begin in column 17.  The member to be copied, must          *   FILE 620
//*     exist in the //SYSLIB library.                              *   FILE 620
//*                                                                 *   FILE 620
//*     Sample COBOL coding with COPY statements in the FILE        *   FILE 620
//*     SECTION.                                                    *   FILE 620
//*                                                                 *   FILE 620
//*    002700*                                                      *   FILE 620
//*    002800 FD  SAMPLE-FILE         BLOCK  0  RECORDS             *   FILE 620
//*    002900                         LABEL  RECORD  STANDARD       *   FILE 620
//*    003000                         RECORDING  MODE  IS  F.       *   FILE 620
//*    003100 01  SAMPLE-REC.                                       *   FILE 620
//*    003200     COPY SAMPREC.                                     *   FILE 620
//*    003300*                                                      *   FILE 620
//*                                                                 *   FILE 620
//*    I show a sample JCL in the following.  See also member       *   FILE 620
//*    $SAMPJCL for a more complete JCL example.                    *   FILE 620
//*                                                                 *   FILE 620
//*    //        EXEC PGM=MWCBLCPY,REGION=1024K                     *   FILE 620
//*    //STEPLIB   DD DSN=xxxx.xxxx.xxxx,DISP=SHR                   *   FILE 620
//*    //SYSLIB    DD DSN=xxxx.xxxx.xxxx,DISP=SHR  <= Copy lib      *   FILE 620
//*    //SYSIN     DD DSN=xxxx.xxxx.xxxx(xxxx),    <= Your COBOL    *   FILE 620
//*    //             DISP=SHR                     <= source code.  *   FILE 620
//*    //SYSLIN    DD DSN=&xxxx,DISP=(MOD,PASS),   <= Expanded      *   FILE 620
//*    //             UNIT=SYSDA,                  <= source, into  *   FILE 620
//*    //             SPACE=(80,(500,100))         <= compiler.     *   FILE 620
//*                                                                 *   FILE 620
//***FILE 621 is from Hunter Zhou, and contains some TCP/IP NPF     *   FILE 621
//*           Exit Programs to print mainframe datasets directly    *   FILE 621
//*           to any network printer with PCL language support.     *   FILE 621
//*           Most laser printers support PCL, such as HP,          *   FILE 621
//*           Xerox, Canon, Lexmark.  The program will also         *   FILE 621
//*           generate a banner page to identify the sender.        *   FILE 621
//*                                                                 *   FILE 621
//*     Package Name: NPF Input Record Exit Programs for            *   FILE 621
//*                   network printers                              *   FILE 621
//*     Design      : Hunter Guanghui Zhou                          *   FILE 621
//*                   Phone: 1-(416)-602-9567                       *   FILE 621
//*                   E-mail: zhough2000@yahoo.com                  *   FILE 621
//*     Date        : September 2003                                *   FILE 621
//*                                                                 *   FILE 621
//*     Package Description                                         *   FILE 621
//*     -------------------                                         *   FILE 621
//*      TCP/IP NPF(Network Print Facility) is a free feature       *   FILE 621
//*      of OS/390 and z/OS. It can print JES and VTAM data to      *   FILE 621
//*      network printers via TCP/IP printer servers(LPD            *   FILE 621
//*      servers).                                                  *   FILE 621
//*                                                                 *   FILE 621
//*      NPF provides three different exit interfaces. Here I       *   FILE 621
//*      created one of them: Input Record Exit. The Input          *   FILE 621
//*      Record Exit is used to insert a banner page, update        *   FILE 621
//*      the input record.                                          *   FILE 621
//*                                                                 *   FILE 621
//*      Normallly, NPF uses LPR program to send data to remote     *   FILE 621
//*      printer servers. However, for those printer without        *   FILE 621
//*      Postscript support features, you cannot print your         *   FILE 621
//*      data sets in landscape via LPR.                            *   FILE 621
//*                                                                 *   FILE 621
//*      This package extends the capability of NPF with            *   FILE 621
//*      following features:                                        *   FILE 621
//*                                                                 *   FILE 621
//*        .Pure TCP/IP, not require SNA gateway                    *   FILE 621
//*        .Send data directly from Mainframe to network            *   FILE 621
//*         printers                                                *   FILE 621
//*        .Insert PCL commands to control the printer              *   FILE 621
//*         settings.                                               *   FILE 621
//*        .Support duplex print out (if the printers support).     *   FILE 621
//*        .Support following Carriage Control data:                *   FILE 621
//*           .ASA Carriage Control Commands                        *   FILE 621
//*           .Printer Channel Commands (Machine Code)              *   FILE 621
//*        .Provide banner page to identify the printer out.        *   FILE 621
//*                                                                 *   FILE 621
//*      Here I included 8 exit programs generated by single        *   FILE 621
//*      assembler source in single JCL. The options are given      *   FILE 621
//*      via Compiler EXEC SYSPARM.                                 *   FILE 621
//*                                                                 *   FILE 621
//*  EXIT     Printer Type        Orientation PAPER   CC  Duplex    *   FILE 621
//*  ======== =================== =========== ======= === ======    *   FILE 621
//*  EXPCLLG0 IP Printer w/ PCL 5  LANDSCAPE  Legal   Yes Yes       *   FILE 621
//*  EXPCLLG1 IP Printer w/ PCL 5  PORTRAIT   Legal   No  Yes       *   FILE 621
//*  EXPCLLS0 IP Printer w/ PCL 5  LANDSCAPE  Default Yes Yes       *   FILE 621
//*  EXPCLLS1 IP Printer w/ PCL 5  LANDSCAPE  Default No  Yes       *   FILE 621
//*  EXPCLPT0 IP Printer w/ PCL 5  PORTRAIT   Default Yes Yes       *   FILE 621
//*  EXPCLPT1 IP Printer w/ PCL 5  PORTRAIT   Default No  Yes       *   FILE 621
//*  EXTEXT00 IP Printer w/ TEXT   DEFAULT    Default No  No        *   FILE 621
//*  EXTEXT01 IP Printer w/ TEXT   DEFAULT    Default Yes No        *   FILE 621
//*                                                                 *   FILE 621
//*      EXTEXT01 sends text file (translated any CC to ASCII       *   FILE 621
//*      control codes) to network text printers. You can use       *   FILE 621
//*      it to send print data to network impact printers, such     *   FILE 621
//*      as Printronix P5000.                                       *   FILE 621
//*                                                                 *   FILE 621
//***FILE 622 is from Simon Spanchak and contains his MATRIX        *   FILE 622
//*           software package.  This package is copyrighted, but   *   FILE 622
//*           the author allows its use for free for educational    *   FILE 622
//*           and non-commercial usage under conditions of the      *   FILE 622
//*           copyright notice.                                     *   FILE 622
//*                                                                 *   FILE 622
//*           MATRIX allows non-system-oriented application         *   FILE 622
//*           programmers to easily create large data spaces,       *   FILE 622
//*           place data in them, and access the data.              *   FILE 622
//*           MATRIX enables cross systems (sysplex) communications *   FILE 622
//*           and cross systems events and large scale tabling.     *   FILE 622
//*           This package contains Application Programming         *   FILE 622
//*           Interfaces (API's) for C, COBOL, and Assembler.       *   FILE 622
//*                                                                 *   FILE 622
//*           email:  Simon Spanchak <spancha@exspans.com>          *   FILE 622
//*           site :  www.exspans.com                               *   FILE 622
//*                                                                 *   FILE 622
//*    Matrix V2.2                                                  *   FILE 622
//*                                                                 *   FILE 622
//*    Matrix provides an applications programming interface        *   FILE 622
//*    (API) to enable programmers to take advantage of the         *   FILE 622
//*    power of OS/390 and z/OS without the in-depth knowledge      *   FILE 622
//*    of systems internals, normally required.  Matrix             *   FILE 622
//*    provides large scale data sharing, communications and        *   FILE 622
//*    synchronization within the sysplex.  Also provides           *   FILE 622
//*    large scale table management and Parallel program            *   FILE 622
//*    execution.                                                   *   FILE 622
//*                                                                 *   FILE 622
//*    Documentation                                                *   FILE 622
//*                                                                 *   FILE 622
//*    Several manuals have been provided.  These are member        *   FILE 622
//*    names beginning with MXM*****.  Current manuals provided     *   FILE 622
//*    are:                                                         *   FILE 622
//*                                                                 *   FILE 622
//*       MXMCONCP  -  Concepts                                     *   FILE 622
//*       MXMINSTL  -  Installation and Running                     *   FILE 622
//*       MXMBAT01  -  Batch utility guide                          *   FILE 622
//*       MXMTSO01  -  TSO access to MATRIX                         *   FILE 622
//*       MXMASM01  -  Assembler programmer's access to MATRIX      *   FILE 622
//*       MXMCOB01  -  COBOL programmer's access to MATRIX          *   FILE 622
//*       MXMTBLAS  -  Assembler programmers access to MX-Tables    *   FILE 622
//*       MXMTBLCB  -  COBOL programmer's access to MX-Tables       *   FILE 622
//*                                                                 *   FILE 622
//*    A C Language manual is currently under construction.         *   FILE 622
//*                                                                 *   FILE 622
//*    For further information, go to www.exspans.com               *   FILE 622
//*                                                                 *   FILE 622
//*    Disclaimer and Conditions:                                   *   FILE 622
//*                                                                 *   FILE 622
//*     Copyright (c) Exspans System and Software Development       *   FILE 622
//*     Inc. 1997-2003                                              *   FILE 622
//*                                                                 *   FILE 622
//*     MATRIX is the property of Exspans System and Software       *   FILE 622
//*     Development Inc.  It may not be disassembled or reverse     *   FILE 622
//*     engineered. It may not be used in any other product or      *   FILE 622
//*     service except as specified by a commercial use licence.    *   FILE 622
//*                                                                 *   FILE 622
//*     MATRIX is free for educational and non-commercial use.      *   FILE 622
//*     Commercial users must obtain a commercial use licence       *   FILE 622
//*     after 60 days free usage. Users must send a statement       *   FILE 622
//*     of usage to the owners after 60 days usage, quoting the     *   FILE 622
//*     product licence serial number.                              *   FILE 622
//*                                                                 *   FILE 622
//*     The owners and author accept no responsibility for the      *   FILE 622
//*     way in which any user chooses to use it.  The owners and    *   FILE 622
//*     author are not responsible for any damage or loss that      *   FILE 622
//*     may result from the use of this product.                    *   FILE 622
//*                                                                 *   FILE 622
//***FILE 623 is from Hunter Guanghui Zhou, and contains a package  *   FILE 623
//*           to accomplish Automated System Shutdown, and          *   FILE 623
//*           Automated IPL.  This system has many good features.   *   FILE 623
//*                                                                 *   FILE 623
//*     This package also supplies 3 generic utilities:             *   FILE 623
//*     Issue Console Command, Send WTO message, and WAIT.          *   FILE 623
//*                                                                 *   FILE 623
//*           Hunter Guanghui Zhou                                  *   FILE 623
//*           Phone: 1-(416)-602-9567                               *   FILE 623
//*           E-mail: zhough2000@yahoo.com                          *   FILE 623
//*                                                                 *   FILE 623
//*     Here are the features of this package:                      *   FILE 623
//*                                                                 *   FILE 623
//*     1. Support automatic shutdown procedure.                    *   FILE 623
//*         . Single command (S SHUTDOWN) will bring the system     *   FILE 623
//*           down and ready to re-IPL or power off.                *   FILE 623
//*         . The shutdown can be in proper sequence to ensure      *   FILE 623
//*           the integrity.                                        *   FILE 623
//*         . Validate the running tasks to avoid shutting down     *   FILE 623
//*           system by mistake.                                    *   FILE 623
//*     2. Support automatic IPL procedure.                         *   FILE 623
//*         . No system command is required to IPL system.          *   FILE 623
//*     3. Support some system tasks automation. Such as            *   FILE 623
//*        restart tasks, update system parameters.                 *   FILE 623
//*     4. Reply system messages by keywords, not by id.            *   FILE 623
//*     5. Support WTO messages and highlighted WTO messages.       *   FILE 623
//*     6. Provide option file to control shutdown and IPL          *   FILE 623
//*        sequence.                                                *   FILE 623
//*                                                                 *   FILE 623
//***FILE 624 is from Bob Glover and contains a very useful TSO     *   FILE 624
//*           REXX command to FIND datasets by name, whether they   *   FILE 624
//*           are cataloged or not, on a given set of disk packs.   *   FILE 624
//*           There is also a standalone command included, called   *   FILE 624
//*           TSOUCB, which will display all the disk packs in      *   FILE 624
//*           your system by their names.  TSOUCB is sometimes      *   FILE 624
//*           used in conjunction with the FIND REXX, but it will   *   FILE 624
//*           also function by itself.                              *   FILE 624
//*                                                                 *   FILE 624
//*           An important note in running this FIND REXX, is that  *   FILE 624
//*           your TSO session has to be able to issue              *   FILE 624
//*                                                                 *   FILE 624
//*              CALL IDCAMS                                        *   FILE 624
//*                                                                 *   FILE 624
//*           in APF authorized mode.  For this to happen, you      *   FILE 624
//*           have to include the name IDCAMS in your AUTHPGM       *   FILE 624
//*           NAMES( ) section of IKJTSOxx in PARMLIB, or the       *   FILE 624
//*           equivalent.  See member $README for mention of some   *   FILE 624
//*           other ways to accomplish the same thing.              *   FILE 624
//*                                                                 *   FILE 624
//*           email:  Bob.Glover@fnf.com                            *   FILE 624
//*                                                                 *   FILE 624
//***FILE 625 is contributed semi-anonymously and contains a REXX   *   FILE 625
//*           exec that will recatalog datasets, based on a LISTCAT *   FILE 625
//*           from their old catalog.  This REXX was developed      *   FILE 625
//*           when moving from one datacenter to the other, where   *   FILE 625
//*           the packs in the old datacenter were 3380's, and the  *   FILE 625
//*           packs in the new datacenter were 3390's having the    *   FILE 625
//*           same names as the old packs.                          *   FILE 625
//*                                                                 *   FILE 625
//*           email for questions:  sbgolob@cbttape.org             *   FILE 625
//*                                                                 *   FILE 625
//*   More detailed description:                                    *   FILE 625
//*                                                                 *   FILE 625
//*         This REXX will attempt to read the output file from     *   FILE 625
//*    a LISTCAT command and then uncatalog and recatalog all       *   FILE 625
//*    the files listed.  The files will be recataloged to the      *   FILE 625
//*    same pack name as they were originally cataloged on.         *   FILE 625
//*    The purpose of this was to change the cataloging of all      *   FILE 625
//*    files on a list of 3380 packs to 3390 packs when moving      *   FILE 625
//*    to a new data center.  The LISTCAT was for just the 3380     *   FILE 625
//*    packs and it did what was expected of it.  The program       *   FILE 625
//*    may not handle all possible file types, but it should be     *   FILE 625
//*    fairly easy to make the changes needed for them.             *   FILE 625
//*                                                                 *   FILE 625
//*         Under ISPF the input and output file names may          *   FILE 625
//*    either be requested by the program or entered as             *   FILE 625
//*    arguments on the command line.  Otherwise, it expects the    *   FILE 625
//*    input to be in the DDNAME INPUT and the output will go to    *   FILE 625
//*    the DDNAME OUTPUT so that it can easily be run in batch      *   FILE 625
//*    mode.                                                        *   FILE 625
//*                                                                 *   FILE 625
//***FILE 626 is from Bob Glover and contains several handy REXX    *   FILE 626
//*           execs with an assembler program that one of them      *   FILE 626
//*           drives.                                               *   FILE 626
//*                                                                 *   FILE 626
//*           The EXECs are:                                        *   FILE 626
//*                                                                 *   FILE 626
//*       EN     - Display enqueues on a dataset                    *   FILE 626
//*       JI     - Display non-drained initiators and their         *   FILE 626
//*                classes.  Runs SDSF in batch in the foreground.  *   FILE 626
//*       CSA    - Display common storage usage                     *   FILE 626
//*                                                                 *   FILE 626
//*           Assembler program:                                    *   FILE 626
//*                                                                 *   FILE 626
//*       TSOENQ - Assembler program which gets the data for the    *   FILE 626
//*                EN exec to display.                              *   FILE 626
//*                                                                 *   FILE 626
//*       email:  Bob.Glover@fnf.com                                *   FILE 626
//*                                                                 *   FILE 626
//***FILE 627 is the AutoMan package from Simon Spanchak.           *   FILE 627
//*           AutoMan is an automated operations tool for MVS       *   FILE 627
//*           based systems (MVS, OS/390, z/OS).  It is used to     *   FILE 627
//*           control console operations, responding to messages    *   FILE 627
//*           and issuing commands and submitting jobs.             *   FILE 627
//*                                                                 *   FILE 627
//*           This package is load modules only.  Documentation     *   FILE 627
//*           is provided in Text and MSWORD formats.               *   FILE 627
//*                                                                 *   FILE 627
//*     (c) Copyright 2003,2004 - Exspans System and Software       *   FILE 627
//*                               Development Inc.                  *   FILE 627
//*                                                                 *   FILE 627
//*     Copyright and License information                           *   FILE 627
//*                                                                 *   FILE 627
//*     AutoMan is the property of Exspans System and Software      *   FILE 627
//*     Development Inc.  It is provided free of charge to the      *   FILE 627
//*     MVS community.  You may make as many copies as you wish     *   FILE 627
//*     and use it on as many systems as required.  You may not     *   FILE 627
//*     make any charge for the use of this product.  You may       *   FILE 627
//*     not disassemble or reverse engineer it, nor may you         *   FILE 627
//*     include it in any other product, for which a charge is      *   FILE 627
//*     made, without first obtaining a commercial use license.     *   FILE 627
//*                                                                 *   FILE 627
//*     For more information, or to make suggestions for            *   FILE 627
//*     upgrades and enhancements contact Simon Spanchak at         *   FILE 627
//*     info@exspans.com.                                           *   FILE 627
//*                                                                 *   FILE 627
//***FILE 628 is from Andrew Armstrong and contains a REXX exec     *   FILE 628
//*           to analyze an OS390 TCP/IP packet trace file.         *   FILE 628
//*                                                                 *   FILE 628
//*   Program Description:                                          *   FILE 628
//*                                                                 *   FILE 628
//*     Converts an OS390 TCP/IP packet trace file into tcpdump     *   FILE 628
//*     format.  You can download the output file to a PC (in       *   FILE 628
//*     binary mode) and analyze it using Ethereal (a freebie       *   FILE 628
//*     from www.ethereal.com) or any other network analyzer        *   FILE 628
//*     software that supports tcpdump file format.                 *   FILE 628
//*                                                                 *   FILE 628
//*   email: andrew_armstrong@unwired.com.au                        *   FILE 628
//*          aarmstrong@mail.fairfax.com.au                         *   FILE 628
//*                                                                 *   FILE 628
//***FILE 629 contains an SNTP server from Andrew Armstrong.        *   FILE 629
//*                                                                 *   FILE 629
//*           Andrew Armstrong                                      *   FILE 629
//*           Systems Programmer                                    *   FILE 629
//*           email: andrew_armstrong@unwired.com.au                *   FILE 629
//*           or: aarmstrong@mail.fairfax.com.au                    *   FILE 629
//*           or: arms1and@police.nsw.gov.au                        *   FILE 629
//*                                                                 *   FILE 629
//*     NAME     - SNTPD                                            *   FILE 629
//*                                                                 *   FILE 629
//*     TITLE    - SIMPLE NETWORK TIME DAEMON (SNTPD)               *   FILE 629
//*                                                                 *   FILE 629
//*     VERSION  - 1.0                                              *   FILE 629
//*                                                                 *   FILE 629
//*     FUNCTION - This is a Simple Network Time Protocol           *   FILE 629
//*                (SNTPv3) server as defined by RFC2030 (which     *   FILE 629
//*                defines SNTPv4, but this server does not         *   FILE 629
//*                implement any of the SNTPv4 optional             *   FILE 629
//*                extensions).                                     *   FILE 629
//*                                                                 *   FILE 629
//*                This SNTP server listens for UDP packets on      *   FILE 629
//*                port 123 and responds the current TOD clock      *   FILE 629
//*                time to any NTP v1, v2, v3, or v4 client to      *   FILE 629
//*                a precision of 2 microseconds.                   *   FILE 629
//*                                                                 *   FILE 629
//*     MEMBERS  - The list of members in the distribution PDS      *   FILE 629
//*                are:                                             *   FILE 629
//*                                                                 *   FILE 629
//*                $$$DOC   - This file.                            *   FILE 629
//*                ASM      - JCL to assemble/link the SNTP         *   FILE 629
//*                           server.                               *   FILE 629
//*                C2X      - Macro to convert binary to            *   FILE 629
//*                           displayable hex.                      *   FILE 629
//*                DEBUG    - Macro to assemble debug code.         *   FILE 629
//*                EYECATCH - Macro to assemble an eye-catcher.     *   FILE 629
//*                GETCMD   - Source code to obtain the next        *   FILE 629
//*                           operator command.                     *   FILE 629
//*                GPL      - The GNU General Public License.       *   FILE 629
//*                LOG      - Macro to conditionally print a        *   FILE 629
//*                           log message.                          *   FILE 629
//*                RFC2030  - The SNTPv4 Request For Comments.      *   FILE 629
//*                RUNJOB   - JCL to run the SNTP server as a       *   FILE 629
//*                           job.                                  *   FILE 629
//*                RUNPROC  - JCL to run the SNTP server as a       *   FILE 629
//*                           proc (TCPSNTP).                       *   FILE 629
//*                SAY      - Macro to print a formatted log        *   FILE 629
//*                           message.                              *   FILE 629
//*                SNTPD    - Source code for the SNTP server.      *   FILE 629
//*                TCPSNTP  - JCL for the SNTP server proc.         *   FILE 629
//*                                                                 *   FILE 629
//***FILE 630 is from Bob Glover, and contains a REXX exec which    *   FILE 630
//*           uses DFDSS in the foreground to COPY or MOVE          *   FILE 630
//*           datasets from one disk pack to another.  All that     *   FILE 630
//*           is required is the REXX (called MC - "move copy")     *   FILE 630
//*           and one panel, which formats the input and controls   *   FILE 630
//*           the operation of the EXEC.                            *   FILE 630
//*                                                                 *   FILE 630
//*           There is one caveat, to get this thing to work.       *   FILE 630
//*           You have to APF authorize a TSO CALL to the           *   FILE 630
//*           ADRDSSU program.  That is accomplished either by      *   FILE 630
//*           adding the name ADRDSSU to the AUTHPGM list in the    *   FILE 630
//*           IKJTSOxx member of PARMLIB, or you can do it          *   FILE 630
//*           "personally" for yourself, if you have permission     *   FILE 630
//*           to make your own LOGON PROC with an authorized        *   FILE 630
//*           STEPLIB library.  See Files 185 and 186 of the CBT    *   FILE 630
//*           Tape collection about how to implement that.  You     *   FILE 630
//*           have to add the name ADRDSSU to the IKJEFTE8          *   FILE 630
//*           module of the IKJTABLS load module, and copy          *   FILE 630
//*           module IKJTABLS into your authorized STEPLIB          *   FILE 630
//*           library.  Then, the IKJTABLS entries will             *   FILE 630
//*           completely override the IKJTSOxx PARMLIB entries      *   FILE 630
//*           for your TSO session.  BUT the conditions for that    *   FILE 630
//*           are, that the library containing IKJTABLS must be     *   FILE 630
//*           running under your TSO session as an authorized       *   FILE 630
//*           library and a STEPLIB.  And the override of the       *   FILE 630
//*           IKJTSOxx PARMLIB member is complete.  That is, you    *   FILE 630
//*           lose authorization of all the IKJTSOxx names, not     *   FILE 630
//*           copied into your IKJTABLS module.  So be careful      *   FILE 630
//*           implementing this for yourself or your group.         *   FILE 630
//*                                                                 *   FILE 630
//*           email:  Bob.Glover@fnf.com                            *   FILE 630
//*                                                                 *   FILE 630
//***FILE 631 is from Lee Hayden and Bob Glover, and contains a     *   FILE 631
//*           package to do string searches from an ISPF 3.4 list   *   FILE 631
//*           of datasets.  The package consists of one REXX and    *   FILE 631
//*           two panels.                                           *   FILE 631
//*                                                                 *   FILE 631
//*    Instructions:                                                *   FILE 631
//*                                                                 *   FILE 631
//*     You do a 3.4 on any high level qualifier.  Then "SRCH"      *   FILE 631
//*     line command.  Then enter whatever variable or arg you      *   FILE 631
//*     want to search (up to 3 max).  It comes back with 0 to      *   FILE 631
//*     N lines, one line per hit in each member.                   *   FILE 631
//*                                                                 *   FILE 631
//*     You can then either browse or edit any member by simply     *   FILE 631
//*     placing an 'S' or 'B' to browse, or an 'E' to edit.         *   FILE 631
//*                                                                 *   FILE 631
//*       email:  Bob.Glover@fnf.com                                *   FILE 631
//*                                                                 *   FILE 631
//***FILE 632 is from Gary Cherlet and contains an Assembler        *   FILE 632
//*           program to convert EBCDIC files into BASE64 format.   *   FILE 632
//*           See member $$DOCO for further information.            *   FILE 632
//*                                                                 *   FILE 632
//*           There are two other programs that convert EBCDIC      *   FILE 632
//*           files to ASCII, to make it easier to send emails.     *   FILE 632
//*           Please see $$$NOTE2.                                  *   FILE 632
//*                                                                 *   FILE 632
//*           Gary Cherlet                                          *   FILE 632
//*           Currently at                                          *   FILE 632
//*           Justice Technology Services                           *   FILE 632
//*           Telephone (+61-8)  8226 5199                          *   FILE 632
//*           Facsimile  (+61-8)  8226 5355                         *   FILE 632
//*           Mobile      (+61)     041 333 1613                    *   FILE 632
//*           Mailto:cherlet.gary@saugov.sa.gov.au                  *   FILE 632
//*           Mailto:gary@cherlet.com                               *   FILE 632
//*                                                                 *   FILE 632
//***FILE 633 is from William J. Smith and contains both an updated *   FILE 633
//*           version of the DSPACE (display DASD space) TSO        *   FILE 633
//*           command processor, and also an ISPF front-end         *   FILE 633
//*           driven by the CLIST called FDSPACE.                   *   FILE 633
//*                                                                 *   FILE 633
//*       For your convenience, a load module library in TSO XMIT   *   FILE 633
//*       format has been included, as member $LOADLIB.             *   FILE 633
//*                                                                 *   FILE 633
//*       Besides the ability to list free space of the DASD        *   FILE 633
//*       volumes that are online, the FDSPACE ISPF dialog allows   *   FILE 633
//*       you do display the datasets on each volume.               *   FILE 633
//*                                                                 *   FILE 633
//*       Updated by Sam Golob to include total cylinders on each   *   FILE 633
//*       volume.                                                   *   FILE 633
//*                                                                 *   FILE 633
//*       Version of DSPACE added (member DSPACEAV) fixed for EAV   *   FILE 633
//*       volumes, but it does not work with the existing dialogs   *   FILE 633
//*       and panels yet.  (Done by Bill Smith)                     *   FILE 633
//*                                                                 *   FILE 633
//*           email:  sfowjs@sbcglobal.net                          *   FILE 633
//*                                                                 *   FILE 633
//*           email:  sbgolob@cbttape.org                           *   FILE 633
//*                                                                 *   FILE 633
//***FILE 634 is a REXX with an Assembler subroutine, that enables  *   FILE 634
//*           you to list the UCBs defined to your system.  It can  *   FILE 634
//*           be used to see the UCBs that are both online and      *   FILE 634
//*           offline.  This file has been contributed semi-        *   FILE 634
//*           anonymously.  Questions should be referred to         *   FILE 634
//*           Sam Golob.  By executing the LISTUCB exec without     *   FILE 634
//*           operands, you get the HELP explanation.               *   FILE 634
//*                                                                 *   FILE 634
//*           The LISTUCB command can be run in batch.  See member  *   FILE 634
//*           $BATJCL for an example.                               *   FILE 634
//*                                                                 *   FILE 634
//*           email:  sbgolob@cbttape.org                           *   FILE 634
//*                                                                 *   FILE 634
//*       UCBSUBR fixed by Alan Buschmann.                          *   FILE 634
//*                                                                 *   FILE 634
//*           email:  Alan.Buschmann@kohls.com                      *   FILE 634
//*                                                                 *   FILE 634
//*       A selection of possible execution parameters:             *   FILE 634
//*                                                                 *   FILE 634
//*           Some possible command lines are:                      *   FILE 634
//*           LISTUCB MVSR                                          *   FILE 634
//*           LISTUCB *                                             *   FILE 634
//*           LISTUCB P TAPE                                        *   FILE 634
//*           LISTUCB * UREC                                        *   FILE 634
//*           LISTUCB * ALL OFF                                     *   FILE 634
//*                                                                 *   FILE 634
//***FILE 635 is from a REXX which is a mass renaming tool for      *   FILE 635
//*           multiple datasets at once.  Give this REXX two        *   FILE 635
//*           arguments, old dataset prefix and new dataset prefix. *   FILE 635
//*           The REXX will generate a list of TSO RENAME state-    *   FILE 635
//*           ments to rename all the datasets with the old name    *   FILE 635
//*           prefix to the new name prefix.  Add a third argument  *   FILE 635
//*           ( EXEC ), and the REXX will actually attempt to carry *   FILE 635
//*           out the renames, unless of course the old dataset     *   FILE 635
//*           names are allocated, or the new dataset names already *   FILE 635
//*           exist.                                                *   FILE 635
//*                                                                 *   FILE 635
//*           Cool tool.  Potentially very powerful and very useful *   FILE 635
//*           when you need it.  But don't give it to the public.   *   FILE 635
//*           For system doctors only!                              *   FILE 635
//*                                                                 *   FILE 635
//*       Questions:  email  sbgolob@cbttape.org                    *   FILE 635
//*                                                                 *   FILE 635
//***FILE 636 is a REXX to execute TSO commands in a very general   *   FILE 636
//*           manner, against a list of datasets.  A description    *   FILE 636
//*           of how the WCOMMAND exec works, follows below.        *   FILE 636
//*                                                                 *   FILE 636
//*      Description of the WCOMMAND REXX EXEC.                     *   FILE 636
//*                                                                 *   FILE 636
//*         This REXX attempts to execute any TSO command           *   FILE 636
//*      against any (LISTCAT LEV( )) level of files.  It can       *   FILE 636
//*      also select certain files from the designated level        *   FILE 636
//*      with another string required to be a part of the file      *   FILE 636
//*      name in its lower levels.                                  *   FILE 636
//*                                                                 *   FILE 636
//*         The inputs are:  First, the level of the files to be    *   FILE 636
//*      operated on by the command.  The second argument is the    *   FILE 636
//*      TSO command with a single '*' in it which will be          *   FILE 636
//*      replaced with the designated file names.  The command      *   FILE 636
//*      entered should be enclosed in quotes, and either single    *   FILE 636
//*      or double quotes may be used depending on the user's       *   FILE 636
//*      whim or the existing quotes within the command.            *   FILE 636
//*                                                                 *   FILE 636
//*         The third argument is the other string to               *   FILE 636
//*      be looked for in the file names for them to be used        *   FILE 636
//*      in the command.  If there is no selection desired          *   FILE 636
//*      among files within the level, an * may be used for         *   FILE 636
//*      this argument.  The final and optional argument may        *   FILE 636
//*      be EXEC in order to execute the commands.  If this is      *   FILE 636
//*      not used, the commands will only be listed.  The           *   FILE 636
//*      program tries to avoid executing commands without the      *   FILE 636
//*      user taking due caution because it can create havoc        *   FILE 636
//*      with a system, so please be careful trying to use it.      *   FILE 636
//*                                                                 *   FILE 636
//*   Below are sample command lines:                               *   FILE 636
//*                                                                 *   FILE 636
//*      WCOMMAND IBMUSER "LISTC ENT(*) ALL" *                      *   FILE 636
//*       (does LISTC ENT('IBMUSER.*') ALL in all cases - dry run)  *   FILE 636
//*                                                                 *   FILE 636
//*      WCOMMAND IBMUSER "LISTC ENT(*) ALL" string                 *   FILE 636
//*       (does LISTC ENT('IBMUSER.*') ALL only w/string in         *   FILE 636
//*        low level qualifiers - dry run)                          *   FILE 636
//*                                                                 *   FILE 636
//*      WCOMMAND IBMUSER "LISTC ENT(*) ALL" * EXEC                 *   FILE 636
//*       (same as above - actually executes the commands)          *   FILE 636
//*                                                                 *   FILE 636
//*      WCOMMAND IBMUSER "LISTC ENT(*) ALL" string EXEC            *   FILE 636
//*       (same as above - actually executes the commands)          *   FILE 636
//*                                                                 *   FILE 636
//*      WCOMMAND SYSTEMS.DUMP 'DEL *' DMP00                        *   FILE 636
//*       (does DEL 'SYSTEMS.DUMP.*' where the string DMP00 is      *   FILE 636
//*        in the low level qualifiers - dry run)                   *   FILE 636
//*                                                                 *   FILE 636
//*      WCOMMAND SYSTEMS.DUMP 'DEL *' DMP00 EXEC                   *   FILE 636
//*       (does DEL 'SYSTEMS.DUMP.*' where the string DMP00 is      *   FILE 636
//*        in the low level qualifiers - executes the commands)     *   FILE 636
//*                                                                 *   FILE 636
//***FILE 637 is from Nolan Young, and contains a load module       *   FILE 637
//*           compare program.  It is probably most useful for      *   FILE 637
//*           finding zaps, between original versions and zapped    *   FILE 637
//*           versions of a load module.                            *   FILE 637
//*                                                                 *   FILE 637
//*           email:  nyoung@awginc.com                             *   FILE 637
//*                                                                 *   FILE 637
//***FILE 638 is a package to Send Email With Attachments, from     *   FILE 638
//*           Hunter Zhou.                                          *   FILE 638
//*                                                                 *   FILE 638
//*           Hunter Guanghui Zhou                                  *   FILE 638
//*           Phone: 1-(416)-602-9567                               *   FILE 638
//*           E-mail: zhough2000@yahoo.com                          *   FILE 638
//*                                                                 *   FILE 638
//*           The package SENDMAIL is from Hunter Zhou.             *   FILE 638
//*           The package SENDMAIL can send emails with             *   FILE 638
//*           attachments in Mainframe OS/390 and z/OS systems.     *   FILE 638
//*                                                                 *   FILE 638
//*       Program: SENDMAIL (REXX)                                  *   FILE 638
//*       Purpose: Interpret the SYSIN DD and ATTACH DD and send    *   FILE 638
//*                email messages for TCP/IP SMTP service with      *   FILE 638
//*                following features:                              *   FILE 638
//*           1. Support Email Header                               *   FILE 638
//*              . The header supports To: Cc: Bcc: and Subject:    *   FILE 638
//*              . Multiple email addresses are supported.          *   FILE 638
//*              . Supprt comments                                  *   FILE 638
//*           2. Support HTML tags                                  *   FILE 638
//*              . Read SYSIN column 1-72.                          *   FILE 638
//*              . Support HTML tags.                               *   FILE 638
//*           3. Attachements support:                              *   FILE 638
//*              . Text and Binary files                            *   FILE 638
//*              . Multiple attachements                            *   FILE 638
//*              . Descriptions for each attachements               *   FILE 638
//*              . Better performance as calling EMAILENC program.  *   FILE 638
//*                                                                 *   FILE 638
//*       Calling JCL:                                              *   FILE 638
//*           // job card here                                      *   FILE 638
//*           //SENDMAIL EXEC PGM=IKJEFT01,PARM=SENDMAIL            *   FILE 638
//*           //SYSEXEC  DD  DISP=SHR,DSN=SYS1.USER.REXXLIB         *   FILE 638
//*           //SYSTSPRT DD  SYSOUT=*                               *   FILE 638
//*           //SYSTSIN  DD  DUMMY                                  *   FILE 638
//*           //ATTACH   DD  *                                      *   FILE 638
//*             attachment statements                               *   FILE 638
//*           /*                                                    *   FILE 638
//*           //SYSIN    DD  *                                      *   FILE 638
//*             email statements                                    *   FILE 638
//*           /*                                                    *   FILE 638
//*                                                                 *   FILE 638
//*      Program: EMAILENC (HLASM)                                  *   FILE 638
//*      Purpose: Encode squential file for email attachement.      *   FILE 638
//*               The supported encoding algorithms are:            *   FILE 638
//*                                                                 *   FILE 638
//*      Format Encoding Algorithm       Sample data                *   FILE 638
//*      ====== ================== =============================    *   FILE 638
//*      TEXT   Quoted Printable   Any plain text, source code      *   FILE 638
//*      BINARY Base64             Images, program readable data    *   FILE 638
//*                                                                 *   FILE 638
//*      The statistics information is also provided in SYSPRINT    *   FILE 638
//*      DD. The program is designed for better performance.        *   FILE 638
//*                                                                 *   FILE 638
//***FILE 639 Set System Clock for Time Saving - Hunter Zhou        *   FILE 639
//*                                                                 *   FILE 639
//*           The package SETHOUR is from Hunter Zhou.              *   FILE 639
//*                                                                 *   FILE 639
//*           Hunter Guanghui Zhou                                  *   FILE 639
//*           Phone: 1-(416)-602-9567                               *   FILE 639
//*           E-mail: zhough2000@yahoo.com                          *   FILE 639
//*                                                                 *   FILE 639
//*           The package SETHOUR is used to change the system      *   FILE 639
//*           TOD clock for time saving automatically. The software *   FILE 639
//*           will also update the TIMEZONE statement in current    *   FILE 639
//*           active CLOCKxx member to reflect the new timezone.    *   FILE 639
//*                                                                 *   FILE 639
//*       Program: SETHOUR (HLASM)                                  *   FILE 639
//*       Purpose: Update System Clock and TIMEZONE in CLOCKxx.     *   FILE 639
//*       Parameter:                                                *   FILE 639
//*         1. +1|-1                                                *   FILE 639
//*            Tell program to set clock one hour ahead or back.    *   FILE 639
//*                                                                 *   FILE 639
//*         2. FALL|AUTUMN|WINTER                                   *   FILE 639
//*            Tell program to change clock in fall.                *   FILE 639
//*                                                                 *   FILE 639
//*         3. SPRING|SUMMER                                        *   FILE 639
//*            Tell program to change clock in spring.              *   FILE 639
//*                                                                 *   FILE 639
//*         3. AUTO                                                 *   FILE 639
//*            Tell program to change the TOD clock according to    *   FILE 639
//*            the current month when the program is run:           *   FILE 639
//*            . If current month is between Janurary to June       *   FILE 639
//*              this parm is the same as SPRING.                   *   FILE 639
//*            . Otherwise it is the same as FALL.                  *   FILE 639
//*                                                                 *   FILE 639
//*        The program will issue MVS SET CLOCK command to set the  *   FILE 639
//*        system clock, the date may be also changed according to  *   FILE 639
//*        the time it is run.                                      *   FILE 639
//*                                                                 *   FILE 639
//*        The program will locate the active CLOCKxx member,       *   FILE 639
//*        and update the TIMEZONE statement to reflect the updated *   FILE 639
//*        clock, so that the clock change will be kept after next  *   FILE 639
//*        IPL.                                                     *   FILE 639
//*                                                                 *   FILE 639
//*        Some permissions from the security system may have to    *   FILE 639
//*        be set, for the SETHOUR proc to run.  For notes about    *   FILE 639
//*        RACF, please see member $$RACF from Sam Golob.  Sample   *   FILE 639
//*        procs SETHOUR, SETFALL, SETSPRNG are in member $$PROCS.  *   FILE 639
//*                                                                 *   FILE 639
//*        There are some software are time sensitive, especially   *   FILE 639
//*        set the clock back. In order to make the TOD clock       *   FILE 639
//*        change automatically, you may use the operation          *   FILE 639
//*        package to restart the software and update the clock,    *   FILE 639
//*        such as File #623. Here is example to use this           *   FILE 639
//*        package:                                                 *   FILE 639
//*                                                                 *   FILE 639
//*        //********************************************           *   FILE 639
//*        //* Stop CLOCK sensitive software                        *   FILE 639
//*        //STOPSW   EXEC PGM=IKJEFT01,PARM=AUTOIPL                *   FILE 639
//*        //STEPLIB  DD   DISP=SHR,DSN=SYS1.USER.LINKLIB           *   FILE 639
//*        //SYSEXEC  DD   DISP=SHR,DSN=SYS1.USER.REXXLIB           *   FILE 639
//*        //SYSTSPRT DD   SYSOUT=*                                 *   FILE 639
//*        //SYSTSIN  DD   DUMMY                                    *   FILE 639
//*        //SYSIN    DD   *                                        *   FILE 639
//*          WTOH('STOP SOFTWARE FOR TIME CHANGE')                  *   FILE 639
//*          P RMF                                                  *   FILE 639
//*          P TMONMVS                                              *   FILE 639
//*          P TMVSLFS                                              *   FILE 639
//*          WAIT                                                   *   FILE 639
//*          P TMVSMSTR                                             *   FILE 639
//*          P TMVSHUB                                              *   FILE 639
//*        /*                                                       *   FILE 639
//*        //********************************************           *   FILE 639
//*        //* Change TOD clock and CLOCKxx member                  *   FILE 639
//*        //SETCLK   EXEC PGM=SETHOUR,PARM=AUTO                    *   FILE 639
//*        //SYSPRINT DD   SYSOUT=*                                 *   FILE 639
//*        //* Wait 1 hour in case of set clock back.               *   FILE 639
//*        //WAIT     EXEC PGM=WAIT,PARM=3600     3600 seconds      *   FILE 639
//*        //*********************************************          *   FILE 639
//*        //* Start CLOCK sensitive software                       *   FILE 639
//*        //STARTALL EXEC PGM=IKJEFT01,PARM=AUTOIPL                *   FILE 639
//*        //STEPLIB  DD   DISP=SHR,DSN=SYS1.USER.LINKLIB           *   FILE 639
//*        //SYSEXEC  DD   DISP=SHR,DSN=SYS1.USER.REXXLIB           *   FILE 639
//*        //SYSTSPRT DD   SYSOUT=*                                 *   FILE 639
//*        //SYSTSIN  DD   DUMMY                                    *   FILE 639
//*        //SYSIN    DD   *                                        *   FILE 639
//*          WTOH('START SOFTWARE FOR TIME CHANGE')                 *   FILE 639
//*          S TMVSHUB                                              *   FILE 639
//*          S TMVSMSTR                                             *   FILE 639
//*          S RMF                                                  *   FILE 639
//*          WTOH('TIME SAVING CHANGE IS COMPLETED')                *   FILE 639
//*        //*                                                      *   FILE 639
//*                                                                 *   FILE 639
//***FILE 640 is from Andrew Armstrong and contains his VPSSEP      *   FILE 640
//*           package to help users of Levi Ray and Shoup's VPS     *   FILE 640
//*           software to print better pages, as described below.   *   FILE 640
//*           Of course, you have to be licensed for VPS first,     *   FILE 640
//*           to use this package as an add-on.                     *   FILE 640
//*                                                                 *   FILE 640
//*      Short description:                                         *   FILE 640
//*                                                                 *   FILE 640
//*      This is a template-based separator page exit that          *   FILE 640
//*      allows VPS users to:                                       *   FILE 640
//*                                                                 *   FILE 640
//*       - print spectacular full-color separator pages,           *   FILE 640
//*       - initialise printers,                                    *   FILE 640
//*       - display information on a printer's LCD about the        *   FILE 640
//*         currently printing job etc.                             *   FILE 640
//*                                                                 *   FILE 640
//*      Cheers,                                                    *   FILE 640
//*      Andrew Armstrong                                           *   FILE 640
//*      andrew_armstrong@unwired.com.au                            *   FILE 640
//*      aarmstrong@mail.fairfax.com.au                             *   FILE 640
//*                                                                 *   FILE 640
//***FILE 641 is from Brian Westerman and contains two SYSMODs to   *   FILE 641
//*           MVS 3.8 (usually run under Hercules).  These mods     *   FILE 641
//*           are:                                                  *   FILE 641
//*                                                                 *   FILE 641
//*       JESMAXCC - Display the maximum condition code in the      *   FILE 641
//*                  job completion notification messages.          *   FILE 641
//*                                                                 *   FILE 641
//*       MVSREMOV - Remove the CN(00) from the job completion      *   FILE 641
//*                  notification messages.                         *   FILE 641
//*                                                                 *   FILE 641
//*       email:  Brian Westerman <Brian_Westerman@SyzygyInc.com>   *   FILE 641
//*                                                                 *   FILE 641
//*           Please also see the notes that are in this file -     *   FILE 641
//*           members $$NOTEn. (n=1)  (There used to be more.)      *   FILE 641
//*           The "known problems" reported by Volker Bandke        *   FILE 641
//*           in JESMAXCC have been found and corrected by Brian.   *   FILE 641
//*                                                                 *   FILE 641
//***FILE 642 is from Rich Hobt and contains two program packages.  *   FILE 642
//*           AFCLOGR1 is a program to find any strings you want,   *   FILE 642
//*           in a SYSPLEX OPERLOG.  AFCSMP1 provides an interface  *   FILE 642
//*           to the API provided by SMP/E and can be used to       *   FILE 642
//*           produce customized SMP/E reports that can be fed      *   FILE 642
//*           into REXX or (especially) SAS for further processing. *   FILE 642
//*                                                                 *   FILE 642
//*     AFCSMP1 is presented as an IEBUPDTE unloaded pds            *   FILE 642
//*     (actually in PDSLOAD format, to preserve the ISPF           *   FILE 642
//*     statistics.  The PDSLOAD program is provided here           *   FILE 642
//*     in this pds, and a job (member $PDSLOAD) is also            *   FILE 642
//*     provided to create a separate pds for AFCSMP1,              *   FILE 642
//*     with the install information and $README instructions.      *   FILE 642
//*                                                                 *   FILE 642
//*     A description of AFCLOGR1 follows, and is followed by a     *   FILE 642
//*           description of AFCSMP1.                               *   FILE 642
//*                                                                 *   FILE 642
//*                  --->  AFCLOGR1  <---                           *   FILE 642
//*                                                                 *   FILE 642
//*     AFCLOGR1 is a program I developed to scan through an        *   FILE 642
//*     OPERLOG datastream, printing out selected records in        *   FILE 642
//*     hardcopy SYSLOG format.  I find it convenient to use for    *   FILE 642
//*     a number of purposes:                                       *   FILE 642
//*                                                                 *   FILE 642
//*       Finding something in the log when I don't have the        *   FILE 642
//*       time or patience to keep hitting PF5 in SDSF to look      *   FILE 642
//*       for it.                                                   *   FILE 642
//*                                                                 *   FILE 642
//*       Filtering out all the garbage messages in a given time    *   FILE 642
//*       span, when the thing I am looking for may be "hidden"     *   FILE 642
//*       amongst many other messages.                              *   FILE 642
//*                                                                 *   FILE 642
//*       Finding more than one keyword or message ID.              *   FILE 642
//*                                                                 *   FILE 642
//*       Filtering based on jobname, jobid, or system name.        *   FILE 642
//*                                                                 *   FILE 642
//*       Running a daily job to scan for "interesting" messages    *   FILE 642
//*       since the last time I ran the job.  I have an             *   FILE 642
//*       automated process for building and submitting this job    *   FILE 642
//*       when I log on in the morning.                             *   FILE 642
//*                                                                 *   FILE 642
//*     I'm sure you can find other uses for it as well.            *   FILE 642
//*                                                                 *   FILE 642
//*     One note about the program design - I could have added      *   FILE 642
//*     SYSIN parameters to specify the date and time, then         *   FILE 642
//*     dynamically allocate and read the logstream, but I          *   FILE 642
//*     decided against it.  Too much like reinventing the          *   FILE 642
//*     wheel.  The subsystem JCL already has that capability,      *   FILE 642
//*     and it just didn't seem worth the effort.                   *   FILE 642
//*                                                                 *   FILE 642
//*     Our logstream name is SYSPLEX.OPERLOG - if yours is         *   FILE 642
//*     different, you'll have to change the name in the            *   FILE 642
//*     AFCLOGSC proc, or whatever JCL you use to run the           *   FILE 642
//*     program.                                                    *   FILE 642
//*                                                                 *   FILE 642
//*     This program has been run on z/OS 1.3 - 1.9, but I see      *   FILE 642
//*     no reason it can't run on later levels.  HOWEVER, due to    *   FILE 642
//*     the heavy use of relative addressing, it will only run      *   FILE 642
//*     on a box with the relative addressing instructions          *   FILE 642
//*     available.  I'm not sure at which architectural level       *   FILE 642
//*     they were introduced, but I'm pretty sure they've been      *   FILE 642
//*     around for a while.                                         *   FILE 642
//*                                                                 *   FILE 642
//*     UPDATES:                                                    *   FILE 642
//*                                                                 *   FILE 642
//*     2008/12/31                                                  *   FILE 642
//*     Fixed a bug where the program would get into a tight        *   FILE 642
//*     loop.  This was due to me assuming that the OPERLOG         *   FILE 642
//*     LRECL was somehow fixed at 4100.  When I tried running      *   FILE 642
//*     it at my new job, I discovered that this wasn't so.  Now    *   FILE 642
//*     the program will check the LRECL against the MDB length,    *   FILE 642
//*     and ABEND with a U200 if it isn't big enough.  If this      *   FILE 642
//*     happens, just increase the LRECL in the LOGIN JCL.          *   FILE 642
//*                                                                 *   FILE 642
//*     2006/09/25                                                  *   FILE 642
//*     This version has a couple of small enhancements -           *   FILE 642
//*     multiple SYSID statements honored, and FIND=QUIT.  It       *   FILE 642
//*     was also "adjusted" so as not to use a base register for    *   FILE 642
//*     the code - it's all relative now.  I haven't seen a         *   FILE 642
//*     program written this way before, and I couldn't resist      *   FILE 642
//*     experimenting with it.  There are undoubtedly better        *   FILE 642
//*     ways to do it, but this at least has the small virtue of    *   FILE 642
//*     actually working.                                           *   FILE 642
//*                                                                 *   FILE 642
//*     ----------------------------------------------------------  *   FILE 642
//*                                                                 *   FILE 642
//*     SYSIN statements:                                           *   FILE 642
//*                                                                 *   FILE 642
//*     JOBNAME=XXXXXXXX                                            *   FILE 642
//*       Limit the search to records produced by this jobname.     *   FILE 642
//*                                                                 *   FILE 642
//*     JOBID=JOBXXXXX                                              *   FILE 642
//*       Limit the search to records produced by this jobid.       *   FILE 642
//*                                                                 *   FILE 642
//*     JOBNAME and JOBID are not guaranteed to find every          *   FILE 642
//*     message related to the specified jobname and/or jobid.      *   FILE 642
//*     Not sure why this is so, but sometimes the messages just    *   FILE 642
//*     don't seem to have this data in the right fields.           *   FILE 642
//*                                                                 *   FILE 642
//*     SYSID=XXXXXXXX                                              *   FILE 642
//*       Limit the search to records produced from this system     *   FILE 642
//*       (or systems - up to 16, each specified on a separate      *   FILE 642
//*       SYSID= card).                                             *   FILE 642
//*                                                                 *   FILE 642
//*     Note that the following text and msgid keywords refer to    *   FILE 642
//*     "selected" records.  These are records "selected" by any    *   FILE 642
//*     of the preceeding keywords.  If none of these are           *   FILE 642
//*     specified, "selected" becomes all operlog records in the    *   FILE 642
//*     JCL-controlled timespan.                                    *   FILE 642
//*                                                                 *   FILE 642
//*     TEXT='TEXT YOU ARE LOOKING FOR'                             *   FILE 642
//*                                                                 *   FILE 642
//*       The first character after the "=" is the string           *   FILE 642
//*       delimiter and is required.  This can be any character,    *   FILE 642
//*       but must be matched at the end.  Maximum string length    *   FILE 642
//*       is 127.  The text of all selected messages (including     *   FILE 642
//*       multi record) will be scanned for this text.              *   FILE 642
//*                                                                 *   FILE 642
//*     MSGID='MSGID YOU ARE LOOKING FOR'                           *   FILE 642
//*                                                                 *   FILE 642
//*       The first character after the "=" is the string           *   FILE 642
//*       delimiter and is required.  This can be any character,    *   FILE 642
//*       but must be matched at the end.  Maximum string length    *   FILE 642
//*       is 127.  Only the first 3 columns of the 1st line of      *   FILE 642
//*       each selected message will be scanned for the             *   FILE 642
//*       beginning of this text, so it is faster than the TEXT=    *   FILE 642
//*       keyword.                                                  *   FILE 642
//*                                                                 *   FILE 642
//*     FIND=EXCLUDE                                                *   FILE 642
//*                                                                 *   FILE 642
//*       Entered as shown.  The result of this keyword is that     *   FILE 642
//*       if any of the text or msgids are found, the record        *   FILE 642
//*       will not be printed.  Use this to print everything        *   FILE 642
//*       except the matches.                                       *   FILE 642
//*                                                                 *   FILE 642
//*     FIND=QUIT                                                   *   FILE 642
//*                                                                 *   FILE 642
//*       Entered as shown.  Use this if you are scanning           *   FILE 642
//*       through a long time span for the 1st occurrance of        *   FILE 642
//*       something, and dont want to waste the time searching      *   FILE 642
//*       through the rest of the log after you found it.           *   FILE 642
//*       Causes execution to end after the 1st hit.                *   FILE 642
//*                                                                 *   FILE 642
//*     The order of the keywords does not matter.  A record is     *   FILE 642
//*     printed if it matches any of the text strings and the       *   FILE 642
//*     jobname, jobid, and/or sysid criteria (or not printed,      *   FILE 642
//*     if "FIND=EXCLUDE").                                         *   FILE 642
//*                                                                 *   FILE 642
//*     If you just want to print out all the log records in a      *   FILE 642
//*     given timespan, leave out the sysin parameters (or only     *   FILE 642
//*     include comments).                                          *   FILE 642
//*                                                                 *   FILE 642
//*     A "*" in column 1 indicates a comment record.               *   FILE 642
//*                                                                 *   FILE 642
//*     ----------------------------------------------------------  *   FILE 642
//*                                                                 *   FILE 642
//*     The members in this dataset are:                            *   FILE 642
//*                                                                 *   FILE 642
//*     $README  - I guess you already know about this one.         *   FILE 642
//*     AFCLOGR1 - The assembler source for the log scanner.  AFC   *   FILE 642
//*                stands for 'Airborne Freight Corporation', by    *   FILE 642
//*                the way - my employer when I wrote the           *   FILE 642
//*                original version.                                *   FILE 642
//*     AFCLOGSC - JCL proc to run the program.                     *   FILE 642
//*     ASMINFO  - A macro, used by INR to build a                  *   FILE 642
//*                human-readable program header.                   *   FILE 642
//*     ASMJCL   - JCL to assemble and link the program.            *   FILE 642
//*     CLEAR    - A macro, used by AFCLOGR1 to clear a storage     *   FILE 642
//*                field to blanks.                                 *   FILE 642
//*     INR      - A macro, used by AFCLOGR1 for entry              *   FILE 642
//*                housekeeping.  No base reg.                      *   FILE 642
//*     EXECJCL  - JCL to run the program (uses proc AFCLOGSC)      *   FILE 642
//*     OUTR     - A macro, used by AFCLOGR1 for exit housekeeping. *   FILE 642
//*                                                                 *   FILE 642
//*     This program may be used, modified, and/or shared by        *   FILE 642
//*     anyone.  Just don't sell it, and please give me some        *   FILE 642
//*     credit.                                                     *   FILE 642
//*                                                                 *   FILE 642
//*                                                                 *   FILE 642
//*                  --->  AFCSMP1  <---                            *   FILE 642
//*                                                                 *   FILE 642
//*     AFCSMP1 is a program I developed to access the API          *   FILE 642
//*     provided by SMP/E.  It uses control cards to build the      *   FILE 642
//*     SMP/E request (DD GIMIN), then formats and outputs the      *   FILE 642
//*     results (DD GIMOUT).  Status and error messages are         *   FILE 642
//*     reported via DD GIMPRINT.  It is mainly useful for          *   FILE 642
//*     extracting data to be further processed by REXX, SAS, or    *   FILE 642
//*     whatever.  It is especially useful in SAS, as it can be     *   FILE 642
//*     invoked directly from within the code.                      *   FILE 642
//*                                                                 *   FILE 642
//*     This program has been run on z/OS 1.3, 1.4, 1.7. and 1.8.   *   FILE 642
//*                                                                 *   FILE 642
//*     This program may be used, modified, and/or shared by        *   FILE 642
//*     anyone.  Just don't sell it, and please give me some        *   FILE 642
//*     credit.                                                     *   FILE 642
//*                                                                 *   FILE 642
//*     Richard Hobt                                                *   FILE 642
//*     Arizona Department of Public Safety                         *   FILE 642
//*     2310 N. 20th                                                *   FILE 642
//*     Phoenix, AZ.  85009                                         *   FILE 642
//*     (602) 223-2519                                              *   FILE 642
//*     RHobt@azdps.gov                                             *   FILE 642
//*                                                                 *   FILE 642
//*     Dec. 31, 2008                                               *   FILE 642
//*                                                                 *   FILE 642
//***FILE 643 is from Paul A. Scott and contains some programs      *   FILE 643
//*           and macros he has written.  Documentation for these   *   FILE 643
//*           is included below.  Additionally, see members $$DOC,  *   FILE 643
//*           $$MACDOC, and $ALTINST in this pds.                   *   FILE 643
//*                                                                 *   FILE 643
//*           email:      "Paul A. Scott" <pscott@skycoast.us>      *   FILE 643
//*           web site:   http://skycoast.us/pscott/software/mvs/   *   FILE 643
//*                                                                 *   FILE 643
//*                         MVS Software                            *   FILE 643
//*                                                                 *   FILE 643
//*     Source Code                                                 *   FILE 643
//*                                                                 *   FILE 643
//*     Here you'll find a collection of useful programs I've       *   FILE 643
//*     written on IBM's MVS operating system.                      *   FILE 643
//*                                                                 *   FILE 643
//*     Macro Library  -  members are part of SRCLIB                *   FILE 643
//*                                                                 *   FILE 643
//*     My experience with the stack architecture of 8-bit          *   FILE 643
//*     microprocessors---as well as the Concept 14                 *   FILE 643
//*     macros---inspired me to write a macro library that          *   FILE 643
//*     simulates a stack architecture for S/390. The macro         *   FILE 643
//*     library is assigned the acronym PSM, which stands for       *   FILE 643
//*     Pseudo Stack Machine or Paul Scott's Macros depending       *   FILE 643
//*     on my mood. The PSM macros used in the code exhibits        *   FILE 643
//*     are:                                                        *   FILE 643
//*                                                                 *   FILE 643
//*     PENTER    --- Module entry linkage with optional stack      *   FILE 643
//*                   construction                                  *   FILE 643
//*     PEXIT     --- Module exit linkage with auto stack           *   FILE 643
//*                   destruction                                   *   FILE 643
//*     PCALL     --- Call external entry point reentrantly         *   FILE 643
//*     PUSHREG   --- Push one or more registers onto stack         *   FILE 643
//*     POPREG    --- Pop one or more registers from stack          *   FILE 643
//*                                                                 *   FILE 643
//*     JCL String Compare                                          *   FILE 643
//*                                                                 *   FILE 643
//*     PSU001 --- Sets the step condition code to the boolean      *   FILE 643
//*     result of the string comparison specified in the PARM       *   FILE 643
//*     field. This allows conditional execution of subsequent      *   FILE 643
//*     steps based on the comparison                               *   FILE 643
//*                                                                 *   FILE 643
//*     Example:                                                    *   FILE 643
//*     //STEP0001 EXEC PGM=PSU001,PARM=('&DAY,EQ,FRI')             *   FILE 643
//*     //*                                                         *   FILE 643
//*                                                                 *   FILE 643
//*                                                                 *   FILE 643
//*     JCL Instream Data                                           *   FILE 643
//*                                                                 *   FILE 643
//*     PSU002 --- Writes one or more lines of text in the PARM     *   FILE 643
//*     field to SYSOUT. The first character of the PARM field      *   FILE 643
//*     is the line separator and is not included in the            *   FILE 643
//*     output.                                                     *   FILE 643
//*                                                                 *   FILE 643
//*     Example:                                                    *   FILE 643
//*     //STEP0001 EXEC PGM=PSU002,                                 *   FILE 643
//*     //            PARM=('\',                       SEPARATOR    *   FILE 643
//*     //            ' C INDD=SYSUT1,OUTDD=SYSUT2\',  CARD #1      *   FILE 643
//*     //            ' S M=(MEMBERA,MEMBERB) ')       CARD #2      *   FILE 643
//*     //SYSOUT  DD  DSN=&&IEBCOPY,UNIT=VIO, ...                   *   FILE 643
//*     //*                                                         *   FILE 643
//*                                                                 *   FILE 643
//*     JCL Dataset Editor                                          *   FILE 643
//*                                                                 *   FILE 643
//*     PSU003 --- Copy SYSUT1 to SYSUT2 while replacing one        *   FILE 643
//*     string with another. Specify one or more "old=new"          *   FILE 643
//*     strings in the PARM field, delimited by a comma.  All       *   FILE 643
//*     occurences of old in SYSUT1 will be replaced with new       *   FILE 643
//*     in SYSUT2 during the copy operation.                        *   FILE 643
//*                                                                 *   FILE 643
//*     Example:                                                    *   FILE 643
//*     //STEP0001 EXEC PGM=PSU003,                                 *   FILE 643
//*     //            PARM=('&&PREFIX=PROD.LOAN.SL',                *   FILE 643
//*     //            '&&UNIT=SYSDA')                               *   FILE 643
//*     //SYSIN    DD  DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)     *   FILE 643
//*     //SYSUT1   DD  DSN=PROD.CONTROL.JCL(LOAN001),DISP=SHR       *   FILE 643
//*     //SYSUT2   DD  DSN=PROD.CONTROL.JCL(LOAN001),DISP=SHR       *   FILE 643
//*     //*                                                         *   FILE 643
//*                                                                 *   FILE 643
//*     Calendar Generator                                          *   FILE 643
//*                                                                 *   FILE 643
//*     PSU004 --- Generate a calendar for the current (or          *   FILE 643
//*                specified) year.                                 *   FILE 643
//*                                                                 *   FILE 643
//*     Example:                                                    *   FILE 643
//*     //STEP0001 EXEC PGM=PSU004,PARM=('1989')                    *   FILE 643
//*     //SYSOUT    DD  SYSOUT=*                                    *   FILE 643
//*     //*                                                         *   FILE 643
//*                                                                 *   FILE 643
//*     Alternately, use a CLIST to generate a calendar in ISPF     *   FILE 643
//*     edit.  CLIST called CALENDAR is supplied here.              *   FILE 643
//*                                                                 *   FILE 643
//*                                                                 *   FILE 643
//*     Once you've had a chance to review the code above, you      *   FILE 643
//*     may want to grab the Installation Job Stream that will      *   FILE 643
//*     install all of the programs, plus an IVP and                *   FILE 643
//*     documentation. Change only the JOB statement and the        *   FILE 643
//*     parameters on the first PROC statement. The Job Stream      *   FILE 643
//*     is set up to take care of the rest.                         *   FILE 643
//*                                                                 *   FILE 643
//*     Important: The installation requires MVS/ESA or above       *   FILE 643
//*     and Assembler H.                                            *   FILE 643
//*                                                                 *   FILE 643
//***FILE 644 is from Joseph Caughman and contains his FUSION       *   FILE 644
//*           package to aid in change management for application   *   FILE 644
//*           and systems source code in both Assembler and COBOL.  *   FILE 644
//*           FUSION harnesses the power of SUPERC to mark the      *   FILE 644
//*           differences between several versions of source code.  *   FILE 644
//*           For more information, see member $$NOTE1 in this pds, *   FILE 644
//*           and also member $$DEFDOC and member $ART.             *   FILE 644
//*                                                                 *   FILE 644
//*           email:  "Caughman, Joe" <JCaughman@WBMI.com>          *   FILE 644
//*                                                                 *   FILE 644
//***FILE 645 is from Michael Knorr and contains updates to the     *   FILE 645
//*           SHOWMVS program from File 492, to add a line at the   *   FILE 645
//*           top of the display, which shows if SHOWMVS is         *   FILE 645
//*           currently running as an authorized program, or not.   *   FILE 645
//*                                                                 *   FILE 645
//*           SHOWMVS is ** NOT ** running authorized               *   FILE 645
//*               or                                                *   FILE 645
//*           SHOWMVS is running authorized                         *   FILE 645
//*                                                                 *   FILE 645
//*           Since Roland Schiradin has now incorporated this fix  *   FILE 645
//*           into SHOWMVS 7.07 and 6.30 (an updated version of     *   FILE 645
//*           the pre-z/OS SHOWMVS), I am just including the        *   FILE 645
//*           instructions as to how to fit this fix into other     *   FILE 645
//*           SHOWMVS versions.    (SBG - 09/03)                    *   FILE 645
//*                                                                 *   FILE 645
//*           email:  "Michael Knorr" <mknorr@utah.gov>             *   FILE 645
//*                                                                 *   FILE 645
//***FILE 646 is an automation tool from IBM, to convert a CLIST    *   FILE 646
//*           to a REXX exec.  This code has been released to a     *   FILE 646
//*           public LISTSERV, so I assume it is in the public      *   FILE 646
//*           domain already.  I am including, as members $$NOTE1   *   FILE 646
//*           and $$NOTE2, the pieces of LISTSERV transcripts,      *   FILE 646
//*           with their respective dates, as an indication that    *   FILE 646
//*           it is probably OK to distribute this code.  Also      *   FILE 646
//*           see member $$INTRO for hints how to install and       *   FILE 646
//*           run this tool.                                        *   FILE 646
//*                                                                 *   FILE 646
//*           I've included a "before" and "after" example of a     *   FILE 646
//*           CLIST which was converted to a REXX.  The conversion  *   FILE 646
//*           was not completely automatic, but with a few minor    *   FILE 646
//*           adjustments, is was made to work OK.  The CLIST       *   FILE 646
//*           member is called DOCFIL, and the converted REXX is    *   FILE 646
//*           called DOCFILX.                                       *   FILE 646
//*                                                                 *   FILE 646
//*           email:  sbgolob@cbttape.org                           *   FILE 646
//*                                                                 *   FILE 646
//***FILE 647 is an XML parser written in REXX, from Andrew J.      *   FILE 647
//*           Armstrong.                                            *   FILE 647
//*                                                                 *   FILE 647
//*           email:  andrew_armstrong@unwired.com.au               *   FILE 647
//*                                                                 *   FILE 647
//*     NAME     - PARSEXML                                         *   FILE 647
//*                                                                 *   FILE 647
//*     TITLE    - A REXX XML PARSER                                *   FILE 647
//*                                                                 *   FILE 647
//*     VERSION  - 2.0.0                                            *   FILE 647
//*                                                                 *   FILE 647
//*     FUNCTION - This is a Rexx XML parser that you can           *   FILE 647
//*                append to your own Rexx source. You can then     *   FILE 647
//*                parse xml files into an in-memory model and      *   FILE 647
//*                access the model via a DOM-like API.             *   FILE 647
//*                                                                 *   FILE 647
//*                This version has been tested on TSO (using       *   FILE 647
//*                TSO/REXX) and on Win32 and Ubuntu Linux 6.06     *   FILE 647
//*                LTS (using Regina Rexx 3.3).                     *   FILE 647
//*                                                                 *   FILE 647
//*     MEMBERS  - The list of members in the distribution PDS      *   FILE 647
//*                are:                                             *   FILE 647
//*                                                                 *   FILE 647
//*                README    - This file.                           *   FILE 647
//*                ASSERT    - Unit test assertion plumbing.        *   FILE 647
//*                DEVISIO   - An example of removing unwanted      *   FILE 647
//*                            XML tags.                            *   FILE 647
//*                IDLFILE   - An example IDL input for for         *   FILE 647
//*                            IDL2WSDL rexx.                       *   FILE 647
//*                IDL2WSDL  - EntireX IDL to WSDL file converter.  *   FILE 647
//*                IO        - Basic Rexx I/O routines.             *   FILE 647
//*                JCL2XML   - JCL to XML and GraphML file converter*   FILE 647
//*                PARSEXML  - The Rexx parser source.              *   FILE 647
//*                PRETTY    - A pretty printer showing how to      *   FILE 647
//*                            use the parser.                      *   FILE 647
//*                REXXPP    - A Rexx INCLUDE pre-processor.        *   FILE 647
//*                SOAP      - A Rexx SOAP client.                  *   FILE 647
//*                TESTMOD   - Unit tests for XML modification API  *   FILE 647
//*                TESTNEW   - Unit tests for XML creation API      *   FILE 647
//*                TESTXML   - A sample xml file                    *   FILE 647
//*                                                                 *   FILE 647
//*     NOTES    - 1. The image files will have to be downloaded    *   FILE 647
//*                   to your PC in BINARY mode and renamed to:     *   FILE 647
//*                                                                 *   FILE 647
//*                     CARDPNG -> card.png                         *   FILE 647
//*                    PAPERPNG -> paper.png                        *   FILE 647
//*                   ...or, you can source your own images.        *   FILE 647
//*                                                                 *   FILE 647
//*     USAGE      - See the PARSEXML rexx procedure for more       *   FILE 647
//*                  information                                    *   FILE 647
//*                                                                 *   FILE 647
//*     AUTHOR     - Andrew J. Armstrong                            *   FILE 647
//*                  email:  <andrew_armstrong@unwired.com.au>      *   FILE 647
//*                                                                 *   FILE 647
//*     HISTORY                                                     *   FILE 647
//*     Date     By       Reason (most recent at the top pls)       *   FILE 647
//*     -------- -------- ------------------------------------      *   FILE 647
//*                                                                 *   FILE 647
//*     20051014 AJA      Version 1.7                               *   FILE 647
//*     20050610 AJA      Version 1.6                               *   FILE 647
//*     20040706 AJA      Added creation/modification support.      *   FILE 647
//*     20031216 AJA      Bugfix: _parseElement with no attrs       *   FILE 647
//*                       causes crash.                             *   FILE 647
//*     20031031 AJA      Correctly parse '/' in attributes.        *   FILE 647
//*                       Fixed entity resolution.                  *   FILE 647
//*     20030912 AJA      Bugfix: Initialize sXmlData first.        *   FILE 647
//*                       Bugfix: Correctly parse a naked '>'       *   FILE 647
//*                       present in an attribute value.            *   FILE 647
//*                       Enhancement: DUMP option now displays     *   FILE 647
//*                       first part of each text node.             *   FILE 647
//*     20030901 AJA      Initial version.                          *   FILE 647
//*                                                                 *   FILE 647
//***FILE 648 is from Ben Marino and contains ZRMS, his Resource    *   FILE 648
//*           Monitor Subsystem.  This is a sophisticated and       *   FILE 648
//*           valuable software tool.                               *   FILE 648
//*                                                                 *   FILE 648
//*           email:  Ben Marino <b2marino@outlook.com>             *   FILE 648
//*                                                                 *   FILE 648
//*           Please see the examples at the bottom of member       *   FILE 648
//*           $$DOC.                                                *   FILE 648
//*                                                                 *   FILE 648
//*                            ZRMS                                 *   FILE 648
//*                      RESOURCE MONITOR                           *   FILE 648
//*                          SUBSYSTEM                              *   FILE 648
//*                                                                 *   FILE 648
//*   Resource Monitoring:                                          *   FILE 648
//*     The Resource Monitor Subsystem (ZRMS) allows you to         *   FILE 648
//*     monitor system resource usage. For example, you can use     *   FILE 648
//*     it to monitor common virtual storage usage by specific      *   FILE 648
//*     jobs, started task, and TSO users with minimal overhead.    *   FILE 648
//*     ZRMS gives you the choice of logging monitored data to      *   FILE 648
//*     sequential datasets, PDS members, and/or SMF records.       *   FILE 648
//*     You can use the monitored data to predict problems or       *   FILE 648
//*     constraints before they become critical.                    *   FILE 648
//*                                                                 *   FILE 648
//*   The ZRMS subsystem supports the following monitor facilities: *   FILE 648
//*                                                                 *   FILE 648
//*    - Virtual Storage Monitor Facility                           *   FILE 648
//*    - Authorized Service Monitor Facility                        *   FILE 648
//*    - General Resource Monitor Facility                          *   FILE 648
//*                                                                 *   FILE 648
//*  Virtual Storage Monitor Facility:                              *   FILE 648
//*   The virtual storage monitor facility allows you to monitor    *   FILE 648
//*   the following virtual storage areas:                          *   FILE 648
//*                                                                 *   FILE 648
//*   - E/SQA and E/CSA common virtual storage                      *   FILE 648
//*   - E/LSQA address space virtual storage                        *   FILE 648
//*   - Jobstep task address space virtual storage                  *   FILE 648
//*   - E/PRIVATE address space virtual storage                     *   FILE 648
//*                                                                 *   FILE 648
//*  Authorized Service Monitor Facility:                           *   FILE 648
//*   The authorized service monitor facility allows you to monitor *   FILE 648
//*   authorized system resources. You can use it as follows:       *   FILE 648
//*                                                                 *   FILE 648
//*   - Monitor MODESET authorization service requests              *   FILE 648
//*   - Restrict MODESET authorization service requests             *   FILE 648
//*   - Monitor user-defined service requests                       *   FILE 648
//*   - Restrict user-defined service requests                      *   FILE 648
//*   - Monitor authorized system and subsystem commands            *   FILE 648
//*   - Restrict authorized system and subsystem commands           *   FILE 648
//*                                                                 *   FILE 648
//*  General Resource Monitor Facility:                             *   FILE 648
//*   The general resource monitor facility allows to monitor       *   FILE 648
//*   the following system resources:                               *   FILE 648
//*                                                                 *   FILE 648
//*   - Security server (RACHECK, RACINIT, RACLIST, RACDEF)         *   FILE 648
//*   - Job management (ATTACH, DETACH)                             *   FILE 648
//*   - Program management (LINK, LOAD, DELETE, IDENTIFY, XCTL)     *   FILE 648
//*   - Resource serialization (ENQ, DEQ, RESERVE)                  *   FILE 648
//*   - Real storage management (PGSER, PGFIX, PGFREE, PGOUT)       *   FILE 648
//*   - System resource management (SYSEVENT)                       *   FILE 648
//*   - Dynamic allocation/deallocation (DYNALLOC)                  *   FILE 648
//*   - Data management (OPEN, CLOSE, BLDL, FIND, STOW)             *   FILE 648
//*   - Timer supervision (STIMER, STIMERM)                         *   FILE 648
//*   - I/O management (EXCP, EXCPVR)                               *   FILE 648
//*   - Wait and post management (WAIT, POST, EVENTS)               *   FILE 648
//*                                                                 *   FILE 648
//*  Logging Monitored Resource Data:                               *   FILE 648
//*   You have the option of logging monitored resource data        *   FILE 648
//*   as follows:                                                   *   FILE 648
//*                                                                 *   FILE 648
//*   - Sequential datasets                                         *   FILE 648
//*   - PDS members                                                 *   FILE 648
//*   - SMF                                                         *   FILE 648
//*                                                                 *   FILE 648
//*  ZRMS Subsystem Implementation:                                 *   FILE 648
//*   ZRMS exploits the SUBSYS DD facility of the MVS/SSI to        *   FILE 648
//*   allow you to define system resource monitoring.               *   FILE 648
//*                                                                 *   FILE 648
//*   When you code SUBSYS=ZRMS on DD statements, MVS components,   *   FILE 648
//*   route control, via the SSI, to the ZRMS subsystem. ZRMS       *   FILE 648
//*   takes advantage of the following DD processing phases to      *   FILE 648
//*   create the resource monitoring environment:                   *   FILE 648
//*                                                                 *   FILE 648
//*   - Allocation                                                  *   FILE 648
//*   - Open                                                        *   FILE 648
//*   - Deallocation                                                *   FILE 648
//*   - Close                                                       *   FILE 648
//*                                                                 *   FILE 648
//*  SUBSYS=ZRMS DD Parameters:                                     *   FILE 648
//*   The ZRMS subsystem defines the following resource monitor     *   FILE 648
//*   parameters:                                                   *   FILE 648
//*                                                                 *   FILE 648
//*   SUBSYS=(ZRMS,'DDname,                                         *   FILE 648
//*                 RPT={S|D}                                       *   FILE 648
//*                 SMF={Y|N}                                       *   FILE 648
//*                 SVC={nnn,...|name,...}                          *   FILE 648
//*                 RES={nnn,...|name,...}                          *   FILE 648
//*                 SP={SQA|CSA|LSQA|JST|PVT|ALL|nnn')              *   FILE 648
//*                                                                 *   FILE 648
//*   ZRMS                                                          *   FILE 648
//*    Specifies the ZRMS subsystem name.                           *   FILE 648
//*                                                                 *   FILE 648
//*   DDname                                                        *   FILE 648
//*    Specifies the monitor log DD name. The DD name can point     *   FILE 648
//*    to SYSOUT, sequential, or partitioned dataset member.        *   FILE 648
//*                                                                 *   FILE 648
//*   RPT={D|S}                                                     *   FILE 648
//*    Specifies the monitor report type. "D" logs a detailed       *   FILE 648
//*    report. "S" logs a summary report. If not specified, the     *   FILE 648
//*    default "S".                                                 *   FILE 648
//*                                                                 *   FILE 648
//*   SMF={N|Y}                                                     *   FILE 648
//*    Specifies SMF recording option. "Y" logs monitor report to   *   FILE 648
//*    SMF. If not specified, the default is "N". When "Y" is       *   FILE 648
//*    specified, initialization option SMF=nnn must specify a      *   FILE 648
//*    user-defined SMF record number in the range of 200 to 255.   *   FILE 648
//*    Refer to SRCLIB($OPTIONS) member for implementation          *   FILE 648
//*    details.                                                     *   FILE 648
//*                                                                 *   FILE 648
//*   SVC={nnn|name}                                                *   FILE 648
//*    Specifies which SVCs you wish to monitor. "nnn" allows you   *   FILE 648
//*    to monitor SVCs by number. "name" allows you to monitor      *   FILE 648
//*    SVCs by name. You can combine both SVC numbers and SVC       *   FILE 648
//*    names.                                                       *   FILE 648
//*                                                                 *   FILE 648
//*   DIS={nnn|name}                                                *   FILE 648
//*    Specifies which SVCs you wish to restrict. "nnn" allows      *   FILE 648
//*    you to restrict SVCs by number. "name" allows you to         *   FILE 648
//*    restrict SVCs by name. You can combine both SVC numbers      *   FILE 648
//*    and SVC names.                                               *   FILE 648
//*                                                                 *   FILE 648
//*   SP={nnn,...|nnn:nnn|SQA|CSA|LSQA|PVT|JST|ALL}                 *   FILE 648
//*    Specifies which storage subpools you wish to monitor.        *   FILE 648
//*    Note that the SP= parameter is only valid when specified     *   FILE 648
//*    in conjunction with GETMAIN/FREEMAIN SVCs.                   *   FILE 648
//*                                                                 *   FILE 648
//*    {nnn,...}                                                    *   FILE 648
//*    Allows you to specify the storage subpool by number. If      *   FILE 648
//*    you specify multiple subpools, separate them with commas.    *   FILE 648
//*                                                                 *   FILE 648
//*   SP=SQA                                                        *   FILE 648
//*    Monitors E/SQA subppols 226,239,245,247,248.                 *   FILE 648
//*                                                                 *   FILE 648
//*   SP=CSA                                                        *   FILE 648
//*    Monitors E/CSA subpools 227,228,231,241.                     *   FILE 648
//*                                                                 *   FILE 648
//*   SP=SQA,CSA                                                    *   FILE 648
//*    Monitors E/SQA and E/CSA subpools.                           *   FILE 648
//*                                                                 *   FILE 648
//*   SP=LSQA                                                       *   FILE 648
//*    Monitors E/LSQA subpools 203-205,213-215,223-225,233-235,    *   FILE 648
//*    253-255.                                                     *   FILE 648
//*                                                                 *   FILE 648
//*   SP=JST                                                        *   FILE 648
//*    Monitors jobstep task subpools 129-132,226,244,249.          *   FILE 648
//*                                                                 *   FILE 648
//*   SP=PVT                                                        *   FILE 648
//*    Monitors E/PRIVATE subpools 0-134,229,230,236,237,240-244,   *   FILE 648
//*    249-253.                                                     *   FILE 648
//*                                                                 *   FILE 648
//*   SP=ALL                                                        *   FILE 648
//*    Monitors subpools 0-255.                                     *   FILE 648
//*                                                                 *   FILE 648
//***FILE 649 is from Mike Newell and contains his PDS to PDS       *   FILE 649
//*           comparison utility.                                   *   FILE 649
//*                                                                 *   FILE 649
//***FILE 650 is from Mike Reeves and contains a CSA reporting      *   FILE 650
//*           tool.  The data gathering portion is written in       *   FILE 650
//*           Assembler, and the reporting program is written in    *   FILE 650
//*           SAS.  A text version of Mike's SHARE presentation     *   FILE 650
//*           on the subject is presented here, because the PDF     *   FILE 650
//*           version was too big to include on the tape.           *   FILE 650
//*                                                                 *   FILE 650
//*           Responsibilities for errors in the doc:  Sam Golob    *   FILE 650
//*                                                                 *   FILE 650
//*           email:  mike.reeves@fmr.com                           *   FILE 650
//*                                                                 *   FILE 650
//***FILE 651 is from Chip Grantham and contains MVS batch programs *   FILE 651
//*           which are designed to reset BWO flags.  Sample output *   FILE 651
//*           from this package, which really is in FBA, LRECL=133  *   FILE 651
//*           format, but which has been reformatted for packaging  *   FILE 651
//*           by the TSO XMIT command, is included here as member   *   FILE 651
//*           $OUTPUT.                                              *   FILE 651
//*                                                                 *   FILE 651
//*           email:  cgrantha@notes.state.ne.us                    *   FILE 651
//*                                                                 *   FILE 651
//*     Here is some text about the BWO flags, who cares, and       *   FILE 651
//*     what the program does:                                      *   FILE 651
//*                                                                 *   FILE 651
//*     DFSMSdss supports backup-while-open serialization, which    *   FILE 651
//*     can perform backup of data sets that are open for update    *   FILE 651
//*     for long periods of time.  It can also perform a logical    *   FILE 651
//*     data set dump of these data sets even if another            *   FILE 651
//*     application has them serialized.  Backup-while-open is a    *   FILE 651
//*     better method than using SHARE or TOLERATE(ENQFAILURE)      *   FILE 651
//*     for dumping CICS VSAM file-control data sets that are       *   FILE 651
//*     in-use and open for update.  When you dump data sets that   *   FILE 651
//*     are designated by CICS as eligible for backup-while-open    *   FILE 651
//*     processing, data integrity is maintained through            *   FILE 651
//*     serialization interactions between CICS (data base          *   FILE 651
//*     control program), CICSVR (forward-recovery program),        *   FILE 651
//*     VSAM record management, DFSMSdfp, and DFSMSdss.             *   FILE 651
//*                                                                 *   FILE 651
//*     Keywords from the IDCAMS Define, Current Catalog time       *   FILE 651
//*     and date stamps, and Backup-While-Open flags may need       *   FILE 651
//*     to be reviewed when performing a recovery or backup.        *   FILE 651
//*                                                                 *   FILE 651
//*     The program GDERLSBT will report on current status of       *   FILE 651
//*     these indicators from all sources.  The input may be a      *   FILE 651
//*     specific dataset or may be a catalog filter.                *   FILE 651
//*                                                                 *   FILE 651
//*     The input control statement                                 *   FILE 651
//*       SHOW=<dsname>                                             *   FILE 651
//*     will report on RLS indicators for the requested dsname.     *   FILE 651
//*     The input control statement                                 *   FILE 651
//*       LEVEL=<catalog filter>                                    *   FILE 651
//*     will search the master catalog and usercatalogs using       *   FILE 651
//*     IGGCSI00 for VSAM clusters reporting on every dataset       *   FILE 651
//*     which meet the filter qualifications.                       *   FILE 651
//*                                                                 *   FILE 651
//*     The program GDEBWOBT will facilitate the setting of the     *   FILE 651
//*     BWO control flags.  The setting of the flags may be         *   FILE 651
//*     required to accommodate backup-while-open processing,       *   FILE 651
//*     build testing scenarios, or allow processing by CICSVR      *   FILE 651
//*     and/or CICS.                                                *   FILE 651
//*                                                                 *   FILE 651
//***FILE 652 is from Richard Rice and contains a system to find    *   FILE 652
//*           members in the correct libraries, when you have       *   FILE 652
//*           multiple MVS systems accessible to TSO.  You want     *   FILE 652
//*           to be able to customize the search libraries for      *   FILE 652
//*           each MVS system, so you find whichever member is      *   FILE 652
//*           appropriate for the system you are on (and not for    *   FILE 652
//*           some other MVS system that is in your shop).          *   FILE 652
//*                                                                 *   FILE 652
//*           email:  Richard.L.Rice@conocophillips.com             *   FILE 652
//*                                                                 *   FILE 652
//***FILE 653 is from Jim Harrison and contains a collection of     *   FILE 653
//*           very useful programs concerning dynamic allocation,   *   FILE 653
//*           concatenation and deconcatenation.                    *   FILE 653
//*                                                                 *   FILE 653
//*           email:  jimh@qis.net                                  *   FILE 653
//*                                                                 *   FILE 653
//*     Contents:                                                   *   FILE 653
//*                                                                 *   FILE 653
//*     ALLOC          OS/390 assembler code for dynamic            *   FILE 653
//*                    allocation                                   *   FILE 653
//*     ALLODEMO       COBOL module showing how to call             *   FILE 653
//*                    ALLOC - find COBOL copy area in it           *   FILE 653
//*     ASM            JCL to run the assembler                     *   FILE 653
//*     CONCAT         Dynamic concatenation module                 *   FILE 653
//*     DDCHCK         DDName checker (see if it's allocated        *   FILE 653
//*                    and to whom)                                 *   FILE 653
//*     UNALLOC        Dynamic unallocation routine (Free)          *   FILE 653
//*                                                                 *   FILE 653
//***FILE 654 is from Tommy Sprinkle and contains his FSI (Full     *   FILE 654
//*           Screen Interface) for MVS TSO.  This package was      *   FILE 654
//*           inspired by running MVS 3.8 under Hercules.           *   FILE 654
//*                                                                 *   FILE 654
//*       Two installation jobs are included here:  $RECEIVE        *   FILE 654
//*       will create the FSI execution libraries using the TSO     *   FILE 654
//*       RECEIVE command.  If you are not running TSO/E and        *   FILE 654
//*       you don't have TSO RECEIVE, you can run the $PDSLOAD      *   FILE 654
//*       job to create all the libraries except the load library   *   FILE 654
//*       and you can get the load library from the LOADT member    *   FILE 654
//*       in REVLMOD format (CBT Tape Files 134, 135).              *   FILE 654
//*                                                                 *   FILE 654
//*       Description of the Package:                               *   FILE 654
//*                                                                 *   FILE 654
//*       Full Screen Interface (FSI) is a programming library      *   FILE 654
//*       modeled after SPF that supports full screen 3270          *   FILE 654
//*       programming.  To use FSI, one more more application       *   FILE 654
//*       panels are coded and stored in the Panel Library or       *   FILE 654
//*       PLIB data set.  The application program uses a            *   FILE 654
//*       Display function call to display the panel.  Input /      *   FILE 654
//*       output variables are used to allow the application to     *   FILE 654
//*       display dynamic content to the screen and allow the       *   FILE 654
//*       application program to retrieve input data from the       *   FILE 654
//*       terminal.                                                 *   FILE 654
//*                                                                 *   FILE 654
//*       FSI uses an execution environment that the application    *   FILE 654
//*       program must run underneath.  To run a FSI application,   *   FILE 654
//*       the FSI environment must first be created using the       *   FILE 654
//*       FSISTART command specifying the application name as a     *   FILE 654
//*       parameter.  The FSISTART command will load the FSI        *   FILE 654
//*       environment and then attach the application program.      *   FILE 654
//*                                                                 *   FILE 654
//*           email:  tommy@tommysprinkle.com                       *   FILE 654
//*                                                                 *   FILE 654
//***FILE 655 is from David Kopischke and contains REXX execs to    *   FILE 655
//*           help you clean up your MVS catalogs.                  *   FILE 655
//*                                                                 *   FILE 655
//*         As of this writing, we could not locate the author,     *   FILE 655
//*         David G. Kopischke.  (March 2021)                       *   FILE 655
//*                                                                 *   FILE 655
//*  Note:  There was a small fix to CATCLR3 from Xiayang.          *   FILE 655
//*         See member $$NOTE02 for details.                        *   FILE 655
//*                                                                 *   FILE 655
//*           email:  xiayang <13916076262@139.com>                 *   FILE 655
//*                                                                 *   FILE 655
//*  Description of the CATCLR3 exec:                               *   FILE 655
//*                                                                 *   FILE 655
//*      This exec can function very similarly to the               *   FILE 655
//*      RCNVTCAT program from CBT File 542 or File 970,            *   FILE 655
//*      but it has additional functionality.  The command:         *   FILE 655
//*                                                                 *   FILE 655
//*      TSO CATCLR3 T catalog.name                                 *   FILE 655
//*                                                                 *   FILE 655
//*      will produce output similar to RCNVTCAT, but               *   FILE 655
//*                                                                 *   FILE 655
//*      TSO CATCLR3 D catalog.name                                 *   FILE 655
//*                                                                 *   FILE 655
//*      will produce a list of all datasets cataloged in the       *   FILE 655
//*      catalog, but which either don't exist, or which are        *   FILE 655
//*      cataloged to a volume that is unavailable.  This list      *   FILE 655
//*      of dataset names is surrounded by:                         *   FILE 655
//*                                                                 *   FILE 655
//*           DELETE  dsname  NOSCRATCH                             *   FILE 655
//*                                                                 *   FILE 655
//*      statements for easy uncataloging, in batch or in           *   FILE 655
//*      the foreground.                                            *   FILE 655
//*                                                                 *   FILE 655
//***FILE 656 is from Kannan AK in Madras, India, and contains a    *   FILE 656
//*           large collection of very handy REXX utilities, for    *   FILE 656
//*           the most part.                                        *   FILE 656
//*                                                                 *   FILE 656
//*           Kannan AK                                             *   FILE 656
//*           Patni Computer Systems Ltd,                           *   FILE 656
//*           Guna Bldg, 304-305, Anna Salai,                       *   FILE 656
//*           Teynampet, Chennai 60018,                             *   FILE 656
//*           India.                                                *   FILE 656
//*                                                                 *   FILE 656
//*           email:  hanna_a_k@hotmail.com                         *   FILE 656
//*                   a.kannan@patni.com                            *   FILE 656
//*                                                                 *   FILE 656
//*     Description of file contents:                               *   FILE 656
//*                                                                 *   FILE 656
//*     $        - GIVES AN ESTIMATE OF THE SESSION COST.           *   FILE 656
//*                SHOP-DEPENDENT.                                  *   FILE 656
//*     ALT      - SIMPLE ALTER OF IDCAMS TO USE IN 3.4             *   FILE 656
//*     AMBCLIST - MARK ZELDEN'S INTERACTIVE AMBLIST                *   FILE 656
//*     AMBPNL   - PANEL FOR THE ABOVE                              *   FILE 656
//*     APLBOX   - AN EXPERIMENTAL GRAPHIC ECSCAPE FORMALATOR.      *   FILE 656
//*     BATCHPDF - DOUG NADEL'S ISPF BATCH RUN MODULE               *   FILE 656
//*     BATCHSMS - FORCE CHANGE MGMTCLASSES. CAN BE USED AS A       *   FILE 656
//*                TEMPLATE.                                        *   FILE 656
//*     BTSO     - ANOTHER FLOATING VERSION OF TSO OUTTRAP          *   FILE 656
//*     CDATE    - CREATION DATE EXPLORER                           *   FILE 656
//*     CDATEPNL - CREATION DATE EXPLORER PANEL                     *   FILE 656
//*     CE       - A FUNNY-WRITTEN FUNCTION-RICH CUSTOM EDITOR.     *   FILE 656
//*                OPTIMIZABLE.                                     *   FILE 656
//*     CHANGE   - REXX BASED CHANGE STRING WITH EXAMPLES.          *   FILE 656
//*                WROTE FOR SOMEONE.                               *   FILE 656
//*     CHECKVOL - FIND IF THE VOLUME IS PRESENT OR NOT.            *   FILE 656
//*     COLADD   - MARK ZELDEN'S MACRO TO ADD NUMERIC DATA IN       *   FILE 656
//*                MEDLEY FORMATS.                                  *   FILE 656
//*     COM      - COMMENT JCL OR COBOL SOURCE.                     *   FILE 656
//*     COMPACT  - I DO NOT USE THIS :-). DEFRAGMENT THE FILES.     *   FILE 656
//*                COMPRESS.                                        *   FILE 656
//*     COMREX   - COMMENT REXX SOURCE.                             *   FILE 656
//*     COMSQL   - COMMENT SQL SOURCE. SPUFI.                       *   FILE 656
//*     COPYPEND - SHOW COPY PEND IN DB2.                           *   FILE 656
//*     COUNT    - ANOTHER FLOATING VERSION TO COUNT DATASET        *   FILE 656
//*                RECORDS, BYTES...                                *   FILE 656
//*     CURPOS   - EXAMPLE TO READ CURSOR ROW, COLUMN.              *   FILE 656
//*     CURRGEN  - A VARIANT USING LM TO GET ABS NAME FOR GDG.      *   FILE 656
//*     CX       - CURSOR SENSITIVE DATA EXTRACTION. DOUG           *   FILE 656
//*                NADEL, I THINK.                                  *   FILE 656
//*     DB2PEND  - CALLABLE ROUTINE FOR DB2 COMMAND (DISPLAY        *   FILE 656
//*                DATABASE).                                       *   FILE 656
//*     DB2SPNL  - PANEL USED IN IMAGEJCL AND DISPPEND.             *   FILE 656
//*     DB2TPNL  - PANEL USED IN IMAGEJCL AND DISPPEND.             *   FILE 656
//*     DB2UTIL  - CALLABLE ROUTINE FOR DB2 COMMAND (DISPLAY        *   FILE 656
//*                UTILITY).                                        *   FILE 656
//*     DEAL     - DEAL CARDS. FROM WWW.                            *   FILE 656
//*     DEBUGCMD - AS NAME SUGGESTS.                                *   FILE 656
//*     DEFVSAM  - DEFINE THE VSAM BY GETTING ATTRIBUTES. GETS      *   FILE 656
//*                A JCL TO RUN.                                    *   FILE 656
//*     DELAY    - JUST A SIMPLE AND CRUDE VERSION OF DELAY         *   FILE 656
//*                USING TIME(R).                                   *   FILE 656
//*     DELDUPE  - MARK ZELDEN'S DELETING DUPES. EDIT MACRO.        *   FILE 656
//*     DELMEM   - DELETE THE MEMBER IN EDIT.                       *   FILE 656
//*     DESC     - A TRY LIKE UNIX DESC COMMAND FOR DB2. FROM       *   FILE 656
//*                SYSCOLUMNS.                                      *   FILE 656
//*     DIR      - DSLIST.                                          *   FILE 656
//*     DIRPNL   - A PANEL USED IN CE. TO COLLECT A DSLIST          *   FILE 656
//*                INITIAL VIEW.                                    *   FILE 656
//*     DISPPEND - DISPLAY PENDING UTILITES ON DB2 SUBSYSTEM.       *   FILE 656
//*     DISPUTIL - DISPLAY RUNNING UTILITIES ON DB2 SUBSYSTEM.      *   FILE 656
//*     DSN      - DB2 DISPLAY UTIL SNIPPET IN REXX                 *   FILE 656
//*     DSNREXX  - DSNREXX HOST COMMAND ENV SNIPPET.                *   FILE 656
//*     DSNTIAUL - RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAUL).            *   FILE 656
//*     DYN      - EXAMPLE FROM WWW FOR DYNAMIC AREAS.              *   FILE 656
//*     DYNAREA  - EXAMPLE FROM WWW FOR DYNAMIC AREAS, PANEL IS     *   FILE 656
//*                HERE.                                            *   FILE 656
//*     EDITALL  - FAMOUS EDITALL. APPLY MACRO TO A WHOLE PDS.      *   FILE 656
//*     EMPTYPDS - WROTE FOR SOMEONE. CLEAN A PDS.                  *   FILE 656
//*     EOF      - CHECK WHETHER A FILE IS EMPTY.                   *   FILE 656
//*     EOL      - CLEAN COLUMNS 73-80.                             *   FILE 656
//*     FINDMOD  - FIND THE MODULE WHERE. MARK ZELDEN'S FINE        *   FILE 656
//*                PIECE.                                           *   FILE 656
//*     FOCERR   - MY TRYST WITH FOCUS TO GET ERROR                 *   FILE 656
//*                DESCRIPTION.                                     *   FILE 656
//*     FRAGPNL  - FOR COMPACT, A PANEL.                            *   FILE 656
//*     GDGL     - LIST GDG.                                        *   FILE 656
//*     GE       - GRAPHIC ESCAPE CHARACTERS ILLUSTRATION.          *   FILE 656
//*     GEBAR    - GRAPHIC ESCAPE.                                  *   FILE 656
//*     GEBARPNL - GRAPHIC ESCAPE.                                  *   FILE 656
//*     GEBARR   - GRAPHIC ESCAPE.                                  *   FILE 656
//*     GEPNL    - GRAPHIC ESCAPE CHARACTERS ILLUSTRATION           *   FILE 656
//*                PANEL.                                           *   FILE 656
//*     GMT      - GMT CALC.                                        *   FILE 656
//*     GOTCHAS  - SOME TIPS GATHERED ON TSO/ISPF.                  *   FILE 656
//*     GREP     - FIND MEMBERS. SCANPDS IS THE NAME OUTSIDE.       *   FILE 656
//*     HIST     - WROTE TO GET HISTORY OF DATASETS EDITED.         *   FILE 656
//*                REFLIST IS THERE NOW.                            *   FILE 656
//*     HISTPNL  - PANEL FOR HIST.                                  *   FILE 656
//*     HOLD     - CONTENTION FINDER.                               *   FILE 656
//*     HOLD2    - CONTENTION FINDER.                               *   FILE 656
//*     HR       - HRECALL ENCAPSULATED IN REXX.                    *   FILE 656
//*     HREC     - HRECALL FOR SOME DATASETS IN A PARTICULAR        *   FILE 656
//*                DAY.                                             *   FILE 656
//*     ICSF     - FIND IF ICSF IS INSTALLED. THIERRY               *   FILE 656
//*                FALISSARD'S.                                     *   FILE 656
//*     IEHL     - CALL TO GET CONTENTS OF VTOC. IEHLIST.           *   FILE 656
//*     IMAGEJCL - CREATES A JCL FOR TAKING IMAGECOPY.              *   FILE 656
//*     IMBED    - IMBEDDED PANELS. EXAMPLE.                        *   FILE 656
//*     IMBEDPNL - PANEL FOR IMBED.                                 *   FILE 656
//*     INIT     - GET ALL INITIATORS IN THE SYSTEM. DOUG           *   FILE 656
//*                NADEL'S.                                         *   FILE 656
//*     INS      - INSERT DATA IN COLUMNAR FASHION IN EDIT.         *   FILE 656
//*     INSTREAM - FRAGMENT TO INSTREAM THE DATA FROM               *   FILE 656
//*                SOURCELINES.                                     *   FILE 656
//*     ISPCMDU  - ADD COMMANDS ON-THE-FLY.                         *   FILE 656
//*     ISUB     - INTERACTIVE SUBMIT.                              *   FILE 656
//*     JC       - JOBCARD CREATOR.                                 *   FILE 656
//*     JC2      - JOBCARD CREATOR. BASED ON ZLLGJOBX. CUT AND      *   FILE 656
//*                PASTE.                                           *   FILE 656
//*     JOBNAME  - GET THE CURRENT JOB NAME. CAN BE USED IN         *   FILE 656
//*                BATCH.                                           *   FILE 656
//*     JSEND    - WRAPPED TSO SENDS FOR MUTIPLE TIME.              *   FILE 656
//*     J2S      - JULIAN TO STANDARD DATE CONVERION.               *   FILE 656
//*     KILL     - KILL THE SESSION.                                *   FILE 656
//*     LASTJCL  - OPENS IN EDIT MODE THE LAST KNOWN JCL            *   FILE 656
//*                SUBMITTED.                                       *   FILE 656
//*     LASTMM   - GETS LAST MONTH MM.                              *   FILE 656
//*     LEN      - LENGTH OF THE STRING. JIM MOORE'S.               *   FILE 656
//*     LIBRARN  - INITIATE CA-ELIPS. YMMV.                         *   FILE 656
//*     LISTALL  - LISTCAT ALL FOR USING WITH 3.4 PREFERABLY.       *   FILE 656
//*     LOCDD    - LOCATE DD. PARSE LISTA ST.                       *   FILE 656
//*     LOGONCMD - FINDS IF YOU HAVE ANY LOGON COMMAND.             *   FILE 656
//*     LOOKE    - MACRO TO GO TO ELIPS EDIT.                       *   FILE 656
//*     LRECL    - LRECL/BLKSIZE FINDER AS EDIT MACRO.              *   FILE 656
//*     LS       - DSLIST CUSTOM-MADE.                              *   FILE 656
//*     LSPNL    - PANEL OF LS.                                     *   FILE 656
//*     MAIN     - MAIN PANEL FOR THE CE UTILITY. CONCOCTED         *   FILE 656
//*                WITH ISR@PRIM.                                   *   FILE 656
//*     MAKEJCL  - CREATES JCL OUT OF SAVED JOBLOGS.                *   FILE 656
//*     MASSCOPY - AS THE NAME SUGGESTS. BUILDS HUGE JCLS.          *   FILE 656
//*     MASSDEL  - AS THE NAME SUGGESTS. BUILDS HUGE JCLS.          *   FILE 656
//*     MASSDELP - AS THE NAME SUGGESTS. BUILDS HUGE JCLS.          *   FILE 656
//*     MASSSTAT - GETS ISPF STATISTICS. AGAIN FOR MULTIPLE         *   FILE 656
//*                DATASETS.                                        *   FILE 656
//*     MEMBER   - FIND WHICH DATA SETS IN A DSLIST CONTAIN A       *   FILE 656
//*                MEMBER. DOUG NADEL.                              *   FILE 656
//*     MQRC     - I LEFT A SNIPPET FOR MQSERIES RETURN CODE.       *   FILE 656
//*     MSGPNL   - JUST A MESSAGE PANEL TO BE (RE)USED.             *   FILE 656
//*     NAB      - GRAB A 8 CHAR STRING. MEMBER NAME PROBABLY.      *   FILE 656
//*                CHOPS TO 8 CHARS.                                *   FILE 656
//*     NOTMACRO - DECIDE WHETHER A EDIT MACRO OR TSO COMMAND       *   FILE 656
//*                IS RUNNING.                                      *   FILE 656
//*     ONLY     - X ALL;F ALL COMBO.                               *   FILE 656
//*     OPENTAB  - ALL OPEN TABLES DISPLAYED. DOUG NADEL'S.         *   FILE 656
//*     PAD      - CLIPBOARD IN THE MAINFRAME.                      *   FILE 656
//*     PATTERN  - PATTERN MATCHING. FROM WWW.                      *   FILE 656
//*     PROFDUMP - DUMP PROFILE VARIABLES.                          *   FILE 656
//*     PROFILE  - SYSUEXEC ASSIGNMENT.                             *   FILE 656
//*     PROGBAR  - PROGRESS BAR. WINDOWS-LIKE. BASED IN GRAPHIC     *   FILE 656
//*                ESCAPE.                                          *   FILE 656
//*     PROGPNL  - PANEL FOR PROGRESS BAR.                          *   FILE 656
//*     PROGRESS - VARIANT OF PROGRESS BAR.                         *   FILE 656
//*     PT       - PANEL TEST. 7.2.                                 *   FILE 656
//*     QB       - QUICK BROWSE. CURSOR-SENSTITIVE.                 *   FILE 656
//*     QBASE    - QBASE SERVICE EXAMPLE.                           *   FILE 656
//*     QC       - QUICK COPY JCL CREATOR. NO PDSE.                 *   FILE 656
//*     QCC      - QUICK COPY AS EDIT MACRO. CURSOR-SENSTITIVE.     *   FILE 656
//*     QD       - QUICK DELETE. CURSOR-SENSTITIVE.                 *   FILE 656
//*     QE       - QUICK EDIT. CURSOR-SENSTITIVE.                   *   FILE 656
//*     QH       - QUICK HRECALL. CURSOR-SENSTITIVE.                *   FILE 656
//*     QI       - QUICK INFO. CURSOR-SENSTITIVE. USES GRAPHIC      *   FILE 656
//*                PANEL.                                           *   FILE 656
//*     QIPNL    - PANEL FOR QI. GOOD EXAMPLE FOR GRAPHIC           *   FILE 656
//*                ESCAPES.                                         *   FILE 656
//*     QL       - QUICK LOCATE. CURSOR-SENSTITIVE.                 *   FILE 656
//*     QM       - QUICK MENU. CURSOR-SENSTITIVE.                   *   FILE 656
//*     QMPNL    - QUICK MENU PANEL.                                *   FILE 656
//*     QN       - QUICK NUMBER OF LINES. CURSOR-SENSTITIVE.        *   FILE 656
//*     QR       - QUICK RENAME. CURSOR-SENSTITIVE.                 *   FILE 656
//*     QS       - QUICK SDSF.                                      *   FILE 656
//*     QV       - QUICK VIEW. CURSOR-SENSTITIVE.                   *   FILE 656
//*     REFDD    - USED IN CE.                                      *   FILE 656
//*     REX      - RECURSIVE EDIT.                                  *   FILE 656
//*     REXE     - REXX SYNTAX CHECK.                               *   FILE 656
//*     REXI     - REXX SYNTAX CHECK.                               *   FILE 656
//*     REXXTRY  - REXX SYNTAX CHECK.                               *   FILE 656
//*     RUNSQL   - RUN SQL IN THE EDIT. AS EDIT MACRO. DEPLOYS      *   FILE 656
//*                DSNTEP2.                                         *   FILE 656
//*     SAMPLECL - ALTER MANAGEMENT CLASS.                          *   FILE 656
//*     SDSFREXX - GRAB SDSF STATUS SCREEN. WROTE FOR SOMEONE       *   FILE 656
//*                AS AN EXAMPLE.                                   *   FILE 656
//*     SDSFST   - WHAT IS IN OUTPUT QUEUE? CAPTURE INA FILE.       *   FILE 656
//*     SHADOW   - SHADOW AREAS EXAMPLE.                            *   FILE 656
//*     SHOWBAR  - VARIANT ON PROGRESS BAR.                         *   FILE 656
//*     SITECMDS - ADD COMMANDS ON-THE-FLY. MY VERSION.             *   FILE 656
//*                INSTREAMED AND SIMPLE.                           *   FILE 656
//*     SJ       - CUSTOM SUBMIT. WRITES JOBNAME TO THE             *   FILE 656
//*                MEMBER/DSN.                                      *   FILE 656
//*     SL       - SET LABEL FOR COBOL SOURCE.                      *   FILE 656
//*     SLEEP    - SLEEP FOR N SECS.                                *   FILE 656
//*     SMS      - SHOW SMS CLASSES FOR A DATASET.                  *   FILE 656
//*     SMSPNL   - PANEL FOR SMS.                                   *   FILE 656
//*     SQLC     - RETURNS SQL CODE DESCRIPTION FOR A VALID         *   FILE 656
//*                SQLCODE.                                         *   FILE 656
//*     SRCHLIST - JIM NARRAMORE'S 3.14.                            *   FILE 656
//*     STEMVAR  - STEM VAR OR SIMPLE VAR. AN EXERCISE.             *   FILE 656
//*     SUBSYS   - FIND ALL SUBSYSTEMS KNOWN TO MVS. FROM WWW.      *   FILE 656
//*     SUICIDE  - KILL THE SESSION. ANOTHER VARIANT.               *   FILE 656
//*     SWID     - CHANGE JOB CHAR AND NOTIFY.                      *   FILE 656
//*     TBV      - CREATE ISPF TABLE VIEW DYNAMICALLY. FROM         *   FILE 656
//*                WWW.                                             *   FILE 656
//*     TBVIEW   - CREATE ISPF TABLE VIEW DYNAMICALLY. FROM         *   FILE 656
//*                WWW.                                             *   FILE 656
//*     TBVWPNL  - CREATE ISPF TABLE VIEW DYNAMICALLY. FROM         *   FILE 656
//*                WWW.                                             *   FILE 656
//*     TESTBAR  - PROGRESS METER.                                  *   FILE 656
//*     THINK    - HOW MUCH TIME AN EXEC HAS TAKEN?                 *   FILE 656
//*     TIDYUP   - CLEAN SUPERC OUTPUT AND GET ONLY MEMBERS.        *   FILE 656
//*     TOVIEW   - SWITCH TO VIEW OR BROWSE MODE.                   *   FILE 656
//*     UCOM     - UNCOMMENT JCL OR COBOL SOURCE.                   *   FILE 656
//*     UCOMSQL  - UNCOMMENT SQL.                                   *   FILE 656
//*     UNAME    - USER NAME FROM DATA AREA.                        *   FILE 656
//*     USERNAME - USER NAME FROM DATA AREA.                        *   FILE 656
//*     UTILPNL  - PANEL FOR UTILSTAT.                              *   FILE 656
//*     UTILSTAT - SHOW RUNNING DB2 UTILITIES.                      *   FILE 656
//*     VB       - VSAM BROWSE.                                     *   FILE 656
//*     VBKEY    - VSAM BROWSE WITH KEY.                            *   FILE 656
//*     WAIT     - WAIT VIA SYSCALL. A VARIANT.                     *   FILE 656
//*     WHOPDS   - EXAMPLE TO GET PDS NAME AND MEMBER DDNAME        *   FILE 656
//*                UNDER EDIT.                                      *   FILE 656
//*     WILDEL   - WILD DELETE.                                     *   FILE 656
//*     XCOPY    - JCL CREATOR FOR MASSCOPY. CLONE OF MASSCOPY.     *   FILE 656
//*     YESNOPNL - USED IN QD. CONFIRMATION PANEL. REUSABLE IF      *   FILE 656
//*                ZWINTTL PASSED.                                  *   FILE 656
//*     ZAPPDS   - DELETE ALL MEMBERS OF A PDS.                     *   FILE 656
//*     ZAPSHELL - CLEARS TSO COMMANDS IN OPTION 6.                 *   FILE 656
//*                                                                 *   FILE 656
//***FILE 657 is from Kevin Mitts and contains the setup to build   *   FILE 657
//*           an MVS RESCUE pack system at the z/OS 1.4 level.      *   FILE 657
//*                                                                 *   FILE 657
//*           email:  kevin.mitts@mindspring.com                    *   FILE 657
//*                                                                 *   FILE 657
//***FILE 658 is an Assembler program and a REXX to call it, which  *   FILE 658
//*           calculates a CRC value for any string or file that    *   FILE 658
//*           is passed to it.                                      *   FILE 658
//*                                                                 *   FILE 658
//*           contact email:  sbgolob@cbttape.org                   *   FILE 658
//*                                                                 *   FILE 658
//***FILE 659 is from Glenn Siegel and contains a recipe for        *   FILE 659
//*           creating a pc-based DASD volume from a mainframe      *   FILE 659
//*           DASD volume.                                          *   FILE 659
//*                                                                 *   FILE 659
//*           It is recommended to use HERC306 and WINPCAP          *   FILE 659
//*             members, and to NOT USE member HERC216.             *   FILE 659
//*                                                                 *   FILE 659
//*           Members H312W** (32 or 64) contain a later            *   FILE 659
//*             version of Hercules, but do not include             *   FILE 659
//*             the CTC-WIN component, which should be              *   FILE 659
//*             either purchased from David Trout at                *   FILE 659
//*                     www.softdevlabs.com                         *   FILE 659
//*             or extracted, as separate files, from the           *   FILE 659
//*             directory resulting from unzipping member           *   FILE 659
//*             HERC306.                                            *   FILE 659
//*                                                                 *   FILE 659
//*     The purpose of this file is to enable the user to create    *   FILE 659
//*      a CKD_P370 PC DASD emulated file from a mainframe DASD     *   FILE 659
//*      volume, for use on the following mainframe emulators       *   FILE 659
//*      P/390, Flex-ES and Hercules.  It is your responsibility    *   FILE 659
//*      to be licensed for any products discussed in these         *   FILE 659
//*      documents.                                                 *   FILE 659
//*                                                                 *   FILE 659
//*     Included in this file are the following freeware            *   FILE 659
//*      software programs GZIP for the PC Version 1.2.4, GZIP      *   FILE 659
//*      for the Mainframe Version 1.2.3, AWSTAPE source code,      *   FILE 659
//*      XmitManager Version 3, Hercules Version 2.16.5 and all     *   FILE 659
//*      the necessary CYGWIN dll's.                                *   FILE 659
//*                                                                 *   FILE 659
//*     Hercules 3.06 with Fish's DLLs are included, zipped, in     *   FILE 659
//*      the HERC306 member.  WINPCAP 4.0.2 is included as an       *   FILE 659
//*      *.exe file, in member WINPCAP.  Use these, rather than     *   FILE 659
//*      member HERC216, which is old.                              *   FILE 659
//*                                                                 *   FILE 659
//*     Again, if you want to install Hercules 3.12, it will        *   FILE 659
//*      not include Fish's DLLs.  These should be copied from      *   FILE 659
//*      an unzip of member HERC306.  (You'll have to figure        *   FILE 659
//*      out which are the extra files which belong to Fish's       *   FILE 659
//*      DLLs.  Or buy CTC-WIN from www.softdevlabs to make         *   FILE 659
//*      the process easier and more straightforward.               *   FILE 659
//*                                                                 *   FILE 659
//*     --------------------------------------------------------    *   FILE 659
//*                                                                 *   FILE 659
//*     Hercules 3.08 64-bit without Fish's DLL's are included,     *   FILE 659
//*      zipped, in the HERC308W member.  Fish's new DLL's were     *   FILE 659
//*      very large, and are only needed if you want to set up      *   FILE 659
//*      FTP from your PC to your Hercules system.  So I was        *   FILE 659
//*      forced to omit them for lack of space.  This is a zip      *   FILE 659
//*      of the binary Hercules directory that you can run on       *   FILE 659
//*      the PC.  Just download this member in BINARY to a          *   FILE 659
//*      directory on the PC, and type (in a DOS shell, pointing    *   FILE 659
//*      to that directory (cd \directory)                          *   FILE 659
//*                                                                 *   FILE 659
//*      hercules -f <fully.pathed.config.file>                     *   FILE 659
//*                                                                 *   FILE 659
//*     To see the full version of Hercules 3.08, with Fish's       *   FILE 659
//*      (David Trout's) DLL's installed, see CBT File 889.         *   FILE 659
//*                                                                 *   FILE 659
//*     --------------------------------------------------------    *   FILE 659
//*                                                                 *   FILE 659
//*     I've packaged this so that you can use GZIP or not.         *   FILE 659
//*                                                                 *   FILE 659
//*     GZIP    - Depending upon the size of the volume your        *   FILE 659
//*               going to create and your CPU size you may want    *   FILE 659
//*               to use GZIP.  The mainframe version of GZIP is    *   FILE 659
//*               very CPU intensive.  The PC version is very       *   FILE 659
//*               fast.                                             *   FILE 659
//*                                                                 *   FILE 659
//*     No GZIP - The file can be rather large depending upon       *   FILE 659
//*               the file type and density of the DASD volume      *   FILE 659
//*               being backed up.  The file size you can expect    *   FILE 659
//*               for a 3390-3 can be up to and over 2 Gig, the     *   FILE 659
//*               ratio is about 1.25 cylinders per meg.            *   FILE 659
//*                                                                 *   FILE 659
//*     Members included                                            *   FILE 659
//*                                                                 *   FILE 659
//*      $$README     This document.                                *   FILE 659
//*      $INSTRUC     Instructions for creating a CKD_P370 PC       *   FILE 659
//*                   file.                                         *   FILE 659
//*      ALLOC        JCL to allocate a large dataset.  Needed to   *   FILE 659
//*                   FTP XMITs of large volume backups from the    *   FILE 659
//*                   PC to the mainframe, etc. etc.                *   FILE 659
//*      AWSTAPE      Program AWSTAPE and JCL to create a           *   FILE 659
//*                   AWSTAPE DASD file.                            *   FILE 659
//*      DASDINIT     Help instructions for using the Hercules      *   FILE 659
//*                   dasdinit program on the PC to create new      *   FILE 659
//*                   DASD volumes there.                           *   FILE 659
//*      DFDSSBK      JCL to create a DFDSS backup DASD file.       *   FILE 659
//*      DFDSSSAR     JCL to create a DFDSS stand alone restore     *   FILE 659
//*                   card DASD file.                               *   FILE 659
//*      DFDSSRS      JCL to restore DFDSS backup DASD file         *   FILE 659
//*                   onto an initialized target disk pack.         *   FILE 659
//*      DISCLAIM     Legal stuff.                                  *   FILE 659
//*      DISKMAP      Handy mapping program that tells you the      *   FILE 659
//*                   original size of DASD, so you can make an     *   FILE 659
//*                   appropriately small or large PC DASD (using   *   FILE 659
//*                   the Hercules dasdinit program to restore)     *   FILE 659
//*                   to restore the pack onto.  This is JCL.       *   FILE 659
//*                   The program is in LOADLIB.                    *   FILE 659
//*      FDRBACKV     FDR full volume DASD backup if you don't      *   FILE 659
//*                   want to use DFDSS.                            *   FILE 659
//*      FDRRESTV     FDR full volume restore JCL for the FDR       *   FILE 659
//*                   full volume DASD backup.                      *   FILE 659
//*      GZIP         GZIP Version 1.2.4 PC exe file.               *   FILE 659
//*      GZIPFILE     JCL to create a GZIP DASD file.               *   FILE 659
//*      GZIPXMIT     XMIT format mainframe GZIP Version 1.2.3      *   FILE 659
//*                   loadlib.                                      *   FILE 659
//*      HERC216      Hercules Version 2.16.5 PC zipped file.       *   FILE 659
//*      HERC306      Hercules Version 3.06 MSVC - zipped file.     *   FILE 659
//*      HERC308W     Hercules Version 3.08 MSVC - zipped file.     *   FILE 659
//*                    (Fish's DLL's are not included in this       *   FILE 659
//*                    member.)                                     *   FILE 659
//*      INITPACK     INIT a target DASD pack (offline) to          *   FILE 659
//*                   restore the old pack onto, using the          *   FILE 659
//*                   DFDSSRS job (after the pack is online)        *   FILE 659
//*      LOADLIB      XMIT-format file containing ZAP and DISKMAP.  *   FILE 659
//*      QUICKINS     Quick instructions for the brave.             *   FILE 659
//*      WINPCAP      Win-Pcap 4_0_2 installation file. *.exe       *   FILE 659
//*      XMITFILE     JCL to create a XMIT DASD file.               *   FILE 659
//*      XMITMAN      XmitManager Version 3 PC install zipped       *   FILE 659
//*                   file.                                         *   FILE 659
//*                                                                 *   FILE 659
//*   Sometimes when you FTP a large XMIT file, its DCB attributes  *   FILE 659
//*   get messed up.  The ZAP program is provided to fix these,     *   FILE 659
//*   if there is no other way to do it.  You can also use the      *   FILE 659
//*   CDSCB TSO command from CBT Tape File 300 for that purpose.    *   FILE 659
//*                                                                 *   FILE 659
//*     Author: Glenn Siegel           Updated April 2009           *   FILE 659
//*             S.S.C. Corp.           by SBG                       *   FILE 659
//*             Glenn54@aol.com                                     *   FILE 659
//*             631-444-5339                                        *   FILE 659
//*             516-607-4005 Cell                                   *   FILE 659
//*                                                                 *   FILE 659
//***FILE 660 is from Gerhard Postpischil and contains a REXX exec  *   FILE 660
//*           which runs other REXX execs through the REXX compiler *   FILE 660
//*           (in a dry run) and checks them for errors.  This exec *   FILE 660
//*           is called REXXER, and you run it as an edit macro,    *   FILE 660
//*           while you're editing a REXX exec that you want to     *   FILE 660
//*           check.  REXXER will run the compiler, and flag the    *   FILE 660
//*           errors that are on each line, as message note lines.  *   FILE 660
//*                                                                 *   FILE 660
//*           You may have to change the dataset name of your       *   FILE 660
//*           REXX compiler loadlib.                                *   FILE 660
//*                                                                 *   FILE 660
//*           email:  gerhard@postpischil.com                       *   FILE 660
//*                                                                 *   FILE 660
//***FILE 661 is from Peter McFarland and contains his HOTRDR       *   FILE 661
//*           package to submit jobs to the internal reader from    *   FILE 661
//*           pds libraries.  More detailed documentation of the    *   FILE 661
//*           package follows:                                      *   FILE 661
//*                                                                 *   FILE 661
//*             Author:                                             *   FILE 661
//*             Peter McFarland                                     *   FILE 661
//*             ADP Tax & Financial Services                        *   FILE 661
//*             San Diego, CA. 92127                                *   FILE 661
//*             (858) 385-2718                                      *   FILE 661
//*             peter_mcfarland@adp.com                             *   FILE 661
//*                                                                 *   FILE 661
//*     HOTRDR documentation:                                       *   FILE 661
//*                                                                 *   FILE 661
//*     The HOTRDR routine was written to submit JCL members        *   FILE 661
//*     for batch processing to the internal reader from            *   FILE 661
//*     multiple PDS libaraies.  We use it as a started task        *   FILE 661
//*     to submit batch jobs during IPL time and through the        *   FILE 661
//*     daily workload processing by the operations staff.          *   FILE 661
//*                                                                 *   FILE 661
//*     Mulitple symbolic PDS libaraies (LRECL=80) may be           *   FILE 661
//*     concatenated on the PDS DD statement.  PDS libraries        *   FILE 661
//*     with a large block sizes work best and reduce the I/O       *   FILE 661
//*     activity (BLKSIZE=27920).  I have 6 large PDS               *   FILE 661
//*     libraries concatenated in our HOTRDR procedure              *   FILE 661
//*     currently and have no idea what the limit would be (we      *   FILE 661
//*     are currently at z/OS 1.2).                                 *   FILE 661
//*                                                                 *   FILE 661
//*     The JCL member name to be submitted is passed to the        *   FILE 661
//*     HOTRDR routine through the PARM field.  The first           *   FILE 661
//*     occurance of the JCL member name found in the PDS           *   FILE 661
//*     concatenation is the member submitted.  To avoid            *   FILE 661
//*     multiple JCL member names in the concatenation list we      *   FILE 661
//*     use a member naming convention based on the task to be      *   FILE 661
//*     performed, the first 3 characters of the member name,       *   FILE 661
//*     i.e. SYS for a systems task, BKU for a backup job, ADP      *   FILE 661
//*     for an application job, etc.                                *   FILE 661
//*                                                                 *   FILE 661
//*     The HOTRDR routine is written in IBM assembler              *   FILE 661
//*     (ASMA90) and uses the BSAM access method and macros         *   FILE 661
//*     FIND, READ, and CHECK.  See the source code comments        *   FILE 661
//*     for additional information on macro usage.                  *   FILE 661
//*                                                                 *   FILE 661
//*     The source library contains the following:                  *   FILE 661
//*                                                                 *   FILE 661
//*     $$README - this member.                                     *   FILE 661
//*     $CLEAR   - a macro to clear fields to a specified fill      *   FILE 661
//*                character. If LONG is specified a MVCL           *   FILE 661
//*                instruction is generated.                        *   FILE 661
//*     $EX      - a macro used to generate EX instructions on      *   FILE 661
//*                the fly.                                         *   FILE 661
//*     ASMARDR  - the JCL procedure to assemble and link the       *   FILE 661
//*                HOTDRDR source.                                  *   FILE 661
//*     CONVERT  - a macro to convert HEX fields to printable       *   FILE 661
//*                characters. I use this macro to print            *   FILE 661
//*                return and reason codes.                         *   FILE 661
//*     ESAENTRY - a macro for conventional assembly routine        *   FILE 661
//*                entry and obtaining a save/work area.            *   FILE 661
//*                Handy for rentrant code.                         *   FILE 661
//*     ESAEXIT  - a macro used in conjunction with the             *   FILE 661
//*                ESAENTRY macro to do save/work area              *   FILE 661
//*                clean-up and assembly routine exiting.           *   FILE 661
//*     HOTRDR   - the assembly source code for the HOTRDR          *   FILE 661
//*                routine.                                         *   FILE 661
//*     PARMS    - a macro to handle the passing of parm            *   FILE 661
//*                fields.                                          *   FILE 661
//*     WTOL     - a macro to issue WTO messages with variable      *   FILE 661
//*                fields within the message.                       *   FILE 661
//*                                                                 *   FILE 661
//*     Note:  Some of these macros are old and have not been       *   FILE 661
//*            revised over the years I've used them.  Most of      *   FILE 661
//*            them are downward compatable with earlier            *   FILE 661
//*            version of OS/390 (MVS).                             *   FILE 661
//*                                                                 *   FILE 661
//***FILE 662 is from Dave Cartwright and contains a system to      *   FILE 662
//*           provide an automated bridge between CA-1 and FLEX-ES  *   FILE 662
//*           Faketape.  A detailed description of this system      *   FILE 662
//*           follows below.                                        *   FILE 662
//*                                                                 *   FILE 662
//*     Comments and ideas for improvement are welcomed,            *   FILE 662
//*     email to:                                                   *   FILE 662
//*                                                                 *   FILE 662
//*           email address:   dcartwright@ymail.com                *   FILE 662
//*                                                                 *   FILE 662
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 662
//*                                                                 *   FILE 662
//*     This file contains code used to provide an automated        *   FILE 662
//*     bridge between the CA-1 tape management system and the      *   FILE 662
//*     FakeTape(tm) facility of FLEX-ES.  This contribution        *   FILE 662
//*     will require a lot of tailoring to your environment.        *   FILE 662
//*                                                                 *   FILE 662
//*     It is based upon the TSSO Automated Operator Facility       *   FILE 662
//*     (AOF), for which see File 404 of the CBT tape.  It uses     *   FILE 662
//*     a network connection between the MVS system and Unixware    *   FILE 662
//*     (or Linux) to issue remote commands which create the        *   FILE 662
//*     FakeTape(tm) file and MOUNT it on the desired unit          *   FILE 662
//*     address. This may require a network bridge to route         *   FILE 662
//*     traffic between the networks and may need TCP/IP routing    *   FILE 662
//*     changes in MVS and in Unixware (or Linux).  The members     *   FILE 662
//*     are;                                                        *   FILE 662
//*                                                                 *   FILE 662
//*     $DOC     -  You are reading it.                             *   FILE 662
//*                                                                 *   FILE 662
//*     FAKEAOF  -  TSSO AOF TABENTRY statements for CA-1           *   FILE 662
//*                 messages.  Include these with a COPY            *   FILE 662
//*                 FAKEAOF statement in AOF source.                *   FILE 662
//*                                                                 *   FILE 662
//*     FSF      -  Assembler source for a program which reads      *   FILE 662
//*                 the CA-1 TMC to find the first available        *   FILE 662
//*                 SCRATCH tape. The characteristics of the TMC    *   FILE 662
//*                 have to be specified as Assembler variables     *   FILE 662
//*                 at the start of the program. You will need      *   FILE 662
//*                 macros from File 172 of the CBT tape and        *   FILE 662
//*                 from CA-1 to be able to assemble this           *   FILE 662
//*                 program. This program invokes the program       *   FILE 662
//*                 "SETVAR" from File 270 of the CBT tape to       *   FILE 662
//*                 return the volume serial in the TSO variable    *   FILE 662
//*                 "FAKETAPE".                                     *   FILE 662
//*                                                                 *   FILE 662
//*     FTAPE     - A clist which is invoked under TSSO to          *   FILE 662
//*                 process requests for SCRATCH tapes. It tests    *   FILE 662
//*                 whether the tape unit is on a string of         *   FILE 662
//*                 tapes defined for FakeTape(tm) use and if so    *   FILE 662
//*                 it invokes FSF to find a SCRATCH tape. Then     *   FILE 662
//*                 it issues a REXEC to the Unixware (or Linux)    *   FILE 662
//*                 Userid "flexes" with the appropriate            *   FILE 662
//*                 password to create a file with a VOL1 label     *   FILE 662
//*                 for that tape.  That VOL1 is then converted     *   FILE 662
//*                 into a FakeTape(tm) file in the appropriate     *   FILE 662
//*                 directory, which is then MOUNTed by FLEX-ES     *   FILE 662
//*                 on the right unit address. MVS opens the        *   FILE 662
//*                 file, checks the volume serial in the label     *   FILE 662
//*                 VOL1, CA-1 checks that it is a SCRATCH tape,    *   FILE 662
//*                 updates the TMC and the tape file is then       *   FILE 662
//*                 written. Code is included to cater for          *   FILE 662
//*                 multiple simultaneous SCRATCH mounts with       *   FILE 662
//*                 some crude placemat allocation. These files     *   FILE 662
//*                 should be regularly monitored lest they         *   FILE 662
//*                 proliferate.  Note that Unixware (and Linux)    *   FILE 662
//*                 commands are case sensitive.                    *   FILE 662
//*                                                                 *   FILE 662
//*     STAPE     - A clist which is invoked under TSSO to          *   FILE 662
//*                 process requests for specific tapes. It         *   FILE 662
//*                 tests whether the tape unit is one defined      *   FILE 662
//*                 for FakeTape(tm) use and if so issues a         *   FILE 662
//*                 REXEC to the Unixware (or Linux) Userid         *   FILE 662
//*                 "flexes" with the appropriate password to       *   FILE 662
//*                 MOUNT the appropriate file by FLEX-ES on the    *   FILE 662
//*                 right unit address. MVS opens the file,         *   FILE 662
//*                 checks the volume serial in the label and       *   FILE 662
//*                 processes the "tape".  Note that Unixware       *   FILE 662
//*                 (and Linux) commands are case sensitive.        *   FILE 662
//*                                                                 *   FILE 662
//*     FDONE     - A clist which is invoked under TSSO to          *   FILE 662
//*                 process requests to demount tapes. It           *   FILE 662
//*                 attempts to delete the placemat file for        *   FILE 662
//*                 that volume. It does not care whether the       *   FILE 662
//*                 placemat exists or not - it will cease to       *   FILE 662
//*                 do so anyway.                                   *   FILE 662
//*                                                                 *   FILE 662
//*     $ZDOC     - Documentation on archiving experiments          *   FILE 662
//*     VTAPE1    - See $ZDOC                                       *   FILE 662
//*     VTAPE2    - See $ZDOC                                       *   FILE 662
//*     ZTAPE     - See $ZDOC                                       *   FILE 662
//*     ZDONE     - See $ZDOC                                       *   FILE 662
//*     ZSTAPE    - See $ZDOC                                       *   FILE 662
//*                                                                 *   FILE 662
//*     AGCO UK Ltd. replaced an IBM Multiprise 2003 mainframe      *   FILE 662
//*     running OS390 R2.10 in February 2004 with an IBM            *   FILE 662
//*     X-series server running FLEX-ES under SCO Unixware. The     *   FILE 662
//*     same OS390 R2.10 system was copied across. We run a         *   FILE 662
//*     mixed workload with a few TSO Users, about 60 IMS Users     *   FILE 662
//*     and overnight batch. We have a worldwide network which      *   FILE 662
//*     was SNA but is now mostly IP.  We have successfully         *   FILE 662
//*     tested Enterprise Extender over the FLEX-ES emulated OSA    *   FILE 662
//*     card.  We ordered a three channel adaptor card supplied     *   FILE 662
//*     by Fundamental Software Inc., the vendors of FLEX-ES to     *   FILE 662
//*     drive a 3745, local printers and tapes.                     *   FILE 662
//*                                                                 *   FILE 662
//*     We installed four daisy chained SCSI tape decks as well     *   FILE 662
//*     as having eight IBM 3490-E drives connected via one         *   FILE 662
//*     channel of the PCA.  As may be expected tape performance    *   FILE 662
//*     is poor, but it has always been our intention to replace    *   FILE 662
//*     tapes with FakeTape(tm) anyway. To that end we defined      *   FILE 662
//*     in the IODF a string of 3480 tape drives for use with       *   FILE 662
//*     this facility.  We also defined an additional EDT with      *   FILE 662
//*     the MIS standard name CART pointing to these drives.        *   FILE 662
//*     Thus we can switch FakeTape(tm) on and off by activating    *   FILE 662
//*     the appropriate EDT, either at IPL or by a dynamic          *   FILE 662
//*     software-only change using HCD. Because they have           *   FILE 662
//*     different device types in their catalog entries there is    *   FILE 662
//*     no confusion of fake or real tapes. To be sure we use a     *   FILE 662
//*     separate range of tape numbers in the TMC for               *   FILE 662
//*     FakeTape(tm).                                               *   FILE 662
//*                                                                 *   FILE 662
//***FILE 663 is from Paul Edwards, and contains a public domain    *   FILE 663
//*           runtime C Library.                                    *   FILE 663
//*                                                                 *   FILE 663
//*                  Public Domain C runtime library                *   FILE 663
//*                  -------------------------------                *   FILE 663
//*                                                                 *   FILE 663
//*      Version : 0.73                                             *   FILE 663
//*      Released: 1998-04-07                                       *   FILE 663
//*                                                                 *   FILE 663
//*      Written by Paul Edwards.                                   *   FILE 663
//*      Released to the public domain.                             *   FILE 663
//*      You may use this entire package for any purpose            *   FILE 663
//*      whatsoever without restriction.                            *   FILE 663
//*                                                                 *   FILE 663
//*                                                                 *   FILE 663
//*                                                                 *   FILE 663
//*      INTRODUCTION                                               *   FILE 663
//*      ------------                                               *   FILE 663
//*                                                                 *   FILE 663
//*      This project is to create a public domain runtime          *   FILE 663
//*      library which conforms to ISO/IEC 9899:1990.  It is        *   FILE 663
//*      expected to be highly OS-specific, but hopefully not too   *   FILE 663
//*      compiler-specific.  It is the job of C library             *   FILE 663
//*      developers to make unportable but fast code, not that of   *   FILE 663
//*      the application developers.  Anyone wishing to             *   FILE 663
//*      contribute to this project, please contact Paul Edwards    *   FILE 663
//*      at avon@matra.com.au.                                      *   FILE 663
//*                                                                 *   FILE 663
//*                                                                 *   FILE 663
//*      MAIN DESIGN GOALS                                          *   FILE 663
//*      -----------------                                          *   FILE 663
//*                                                                 *   FILE 663
//*      1. Application developers should not have to resort to     *   FILE 663
//*         DosOpen, open et al in order to get better              *   FILE 663
//*         performance for binary files.                           *   FILE 663
//*                                                                 *   FILE 663
//*      2. Application developers should not have to resort to     *   FILE 663
//*         using binary mode to get better performance for fgets   *   FILE 663
//*         in text mode.                                           *   FILE 663
//*                                                                 *   FILE 663
//*      CURRENT STATUS                                             *   FILE 663
//*      --------------                                             *   FILE 663
//*                                                                 *   FILE 663
//*      A substantial, but still incomplete version under          *   FILE 663
//*                                                                 *   FILE 663
//*      OS/2 for:                                                  *   FILE 663
//*      EMX 0.9b                                                   *   FILE 663
//*      Watcom C++ 10.0b                                           *   FILE 663
//*      IBM CSET++ 2.0                                             *   FILE 663
//*      Borland C++ 1.5                                            *   FILE 663
//*                                                                 *   FILE 663
//*      DOS for:                                                   *   FILE 663
//*      Borland C++ 3.1                                            *   FILE 663
//*      Watcom C++ 10.0b                                           *   FILE 663
//*                                                                 *   FILE 663
//*      MVS for:                                                   *   FILE 663
//*      IBM C/370 v2r1m0                                           *   FILE 663
//*                                                                 *   FILE 663
//*      PDOS for:                                                  *   FILE 663
//*      EMX 0.9b                                                   *   FILE 663
//*                                                                 *   FILE 663
//*                                                                 *   FILE 663
//*      WHO WANTS IT?                                              *   FILE 663
//*      -------------                                              *   FILE 663
//*                                                                 *   FILE 663
//*      It is expected that this archive will interest the         *   FILE 663
//*      following groups of people:                                *   FILE 663
//*                                                                 *   FILE 663
//*      1. People who have a commercial compiler, such as CSET,    *   FILE 663
//*      but would like to have the source code to the C runtime    *   FILE 663
//*      library, so that they can have control over it.            *   FILE 663
//*                                                                 *   FILE 663
//*      2. People who have a commercial compiler, such as          *   FILE 663
//*      Borland, where although they have the runtime source,      *   FILE 663
//*      Borland have some restrictions on the use of their         *   FILE 663
//*      object code, saying that the resultant executable must     *   FILE 663
//*      have either their copyright notice on it, or yours, or     *   FILE 663
//*      some such rubbish.                                         *   FILE 663
//*                                                                 *   FILE 663
//*      3. People who have EMX 0.9b, but would like to be able     *   FILE 663
//*      to modify the runtime library code without being bound     *   FILE 663
//*      by any of EMX's licensing restrictions on doing that.      *   FILE 663
//*                                                                 *   FILE 663
//*      4. People who are interested in the internal workings of   *   FILE 663
//*      a runtime library, and would like unrestricted use of      *   FILE 663
//*      any useful code they may find whilst investigating that.   *   FILE 663
//*                                                                 *   FILE 663
//*      5. Someone who wants to write their own commercial C       *   FILE 663
//*      compiler and library, and wants something to use as a      *   FILE 663
//*      base.  This at least gives you the library, there are no   *   FILE 663
//*      public domain C compilers available to the best of my      *   FILE 663
//*      knowledge, on any platform.                                *   FILE 663
//*                                                                 *   FILE 663
//*      6. People who have ISO text-processing programs that       *   FILE 663
//*      want a significant speed improvement.                      *   FILE 663
//*                                                                 *   FILE 663
//*      USAGE                                                      *   FILE 663
//*      -----                                                      *   FILE 663
//*                                                                 *   FILE 663
//*      There are makefiles for all the different compilers        *   FILE 663
//*      supported.  Choose the one you want, and compile it,       *   FILE 663
//*      creating a library if you want, and then compiling your    *   FILE 663
//*      programs in the same way that the "pdptest" program is     *   FILE 663
//*      compiled.                                                  *   FILE 663
//*                                                                 *   FILE 663
//***FILE 664 is from Jay Moseley and contains date conversion      *   FILE 664
//*           subroutines written in Assembler.                     *   FILE 664
//*                                                                 *   FILE 664
//*           email:     jay@jaymoseley.com                         *   FILE 664
//*           web site:  www.jaymoseley.com                         *   FILE 664
//*                                                                 *   FILE 664
//*     In 1998 I, along with most of the rest of the world, was    *   FILE 664
//*     thinking about the approach of the year 2000 and the        *   FILE 664
//*     implications that held for incompatible two digit years.    *   FILE 664
//*     I brought together some routines I had written earlier      *   FILE 664
//*     in several languages (COBOL, BASIC, and Assembler) and      *   FILE 664
//*     the result was this group of Assembler subroutines that     *   FILE 664
//*     can be used to perform any required date format             *   FILE 664
//*     conversion:                                                 *   FILE 664
//*                                                                 *   FILE 664
//*     This is the source/jobstream dataset for the Y2K routines.  *   FILE 664
//*                                                                 *   FILE 664
//*     $INDEX   - this text                                        *   FILE 664
//*     EYEC     - ALC macro                                        *   FILE 664
//*     YREGS    - ALC macro                                        *   FILE 664
//*     Y2K$ASM  - jobstream to assemble/link the routines          *   FILE 664
//*     Y2K$INST - jobstream to allocate load library & submit      *   FILE 664
//*                Y2K$ASM                                          *   FILE 664
//*     Y2K$IVP  - jobstream to run the installation                *   FILE 664
//*                verification program                             *   FILE 664
//*     Y2KATOG  - Astronomical number to Gregorian date            *   FILE 664
//*     Y2KCONV  - Convert dates between formats                    *   FILE 664
//*     Y2KDFMT  - Edit Gregorian date using predefined formats     *   FILE 664
//*     Y2KDOWN  - Compute Day of Week number for date              *   FILE 664
//*     Y2KESTR  - Calculate date Easter falls on for given year    *   FILE 664
//*     Y2KGETD  - Return System date                               *   FILE 664
//*     Y2KGTOA  - Gregorian date to Astronomical number            *   FILE 664
//*     Y2KGTOJ  - Gregorian date to Julian date                    *   FILE 664
//*     Y2KIVP   - COBOL Installation Verification program          *   FILE 664
//*     Y2KIVPD  - SYSIN data for Y2KIVP program                    *   FILE 664
//*     Y2KJTOG  - Julian date to Gregorian date                    *   FILE 664
//*     Y2KLAGE  - Long term difference between dates               *   FILE 664
//*     Y2KLEAP  - Test year for Leap year status                   *   FILE 664
//*     Y2KPROJ  - Return date using given offset from given        *   FILE 664
//*                date                                             *   FILE 664
//*     Y2KSAGE  - Short term difference between dates              *   FILE 664
//*     Y2KTDOW  - Return date for given day of week and given      *   FILE 664
//*                date                                             *   FILE 664
//*                                                                 *   FILE 664
//*     For several financial applications I had written in the     *   FILE 664
//*     past, I required a date record to be provided from which    *   FILE 664
//*     interest would be calculated either from the prior run      *   FILE 664
//*     date to the current run date or from the current run        *   FILE 664
//*     date forward to the next run date.  I wrote a program       *   FILE 664
//*     that utilized the date routines above to derive such a      *   FILE 664
//*     date record using the current system date and a file of     *   FILE 664
//*     rules to specify the observed holidays:                     *   FILE 664
//*                                                                 *   FILE 664
//*         RUNDATES   Program to build run dates record            *   FILE 664
//*         RUNDCOPY   Copy book for run dates record               *   FILE 664
//*                                                                 *   FILE 664
//*     In addition to the date routines, I wrote a COBOL           *   FILE 664
//*     program to scan source code for likely date references.     *   FILE 664
//*     The program is based upon the design of a BASIC program     *   FILE 664
//*     that was placed in the public domain by the National        *   FILE 664
//*     Institute of Standards.  The program is driven by a         *   FILE 664
//*     glossary table read in at run time.                         *   FILE 664
//*                                                                 *   FILE 664
//*         Y2KSCAN                                                 *   FILE 664
//*                                                                 *   FILE 664
//*     On this file, there is also an MS/DOS executable, which     *   FILE 664
//*     will calculate the elapsed time between two dates.  This    *   FILE 664
//*     is member ELAPSEXE.  Just download the member to a PC       *   FILE 664
//*     in binary, give it an .exe suffix, and execute it.          *   FILE 664
//*     Equivalent COBOL source to run on the mainframe is          *   FILE 664
//*     included as member ELAPSED.  These programs use the         *   FILE 664
//*     subroutines (or PC equivalents) from the rest of this       *   FILE 664
//*     file.                                                       *   FILE 664
//*                                                                 *   FILE 664
//***FILE 665 is from Jay Moseley and contains a collection of      *   FILE 665
//*           routines written in Assembler to properly format      *   FILE 665
//*           fields that were entered into CICS programs.  Of      *   FILE 665
//*           course these routines can be used for other related   *   FILE 665
//*           types of field fixing.                                *   FILE 665
//*                                                                 *   FILE 665
//*           email:     jay@jaymoseley.com                         *   FILE 665
//*           web site:  www.jaymoseley.com                         *   FILE 665
//*                                                                 *   FILE 665
//*     Input/Output Field Editing Routines                         *   FILE 665
//*                                                                 *   FILE 665
//*         (Assembler)  I first started putting together this      *   FILE 665
//*         collection when I discovered BIF DEDIT didn't do        *   FILE 665
//*         much for fields entered into my CICS programs.  But     *   FILE 665
//*         the collection first became a set, and also became      *   FILE 665
//*         re-entrant, back in 1993 when I had some spare          *   FILE 665
//*         time.  The logic for the numbers to words routine       *   FILE 665
//*         (OFMTMONY) was originally in written in COBOL back      *   FILE 665
//*         in 1976 when another programmer told me I couldn't      *   FILE 665
//*         write the routine in COBOL efficiently enough to        *   FILE 665
//*         run in production.                                      *   FILE 665
//*                                                                 *   FILE 665
//*         I updated the installation procedure on September       *   FILE 665
//*         3, 2003.  So if you have an earlier version, and        *   FILE 665
//*         have checked back here and are worried that the         *   FILE 665
//*         version you got on an earlier date needs updating,      *   FILE 665
//*         relax.  There have been no significant changes to       *   FILE 665
//*         the routines themselves, just an update to the          *   FILE 665
//*         jobstreams that load them onto your system.  And I      *   FILE 665
//*         made a minor change to the Installation                 *   FILE 665
//*         Verification COBOL program's report (the output for     *   FILE 665
//*         IFMTLJST was not printing the field returned from       *   FILE 665
//*         the assembler routine).                                 *   FILE 665
//*                                                                 *   FILE 665
//*         The installation/verification jobstream is in           *   FILE 665
//*         fmt$load.tgz that was originally distributed from       *   FILE 665
//*         my web site.  That jobstream produced most of the       *   FILE 665
//*         members in this pds.  When the installation jobs        *   FILE 665
//*         run, they will create a PDS load library.  Again,       *   FILE 665
//*         on my system it is configured to reside on the same     *   FILE 665
//*         3330 as the source library and is named                 *   FILE 665
//*         JAY01.FORMAT.LOADLIB.  These two datasets are           *   FILE 665
//*         referenced in a number of DD cards in the               *   FILE 665
//*         jobstreams, so it would probably be easiest for you     *   FILE 665
//*         to use a text editor on your host OS                    *   FILE 665
//*         (Linux/Windows/???) or ISPF, and make all the           *   FILE 665
//*         changes in the "reload" jobstream before you submit     *   FILE 665
//*         it to MVS.                                              *   FILE 665
//*                                                                 *   FILE 665
//***FILE 666 is from Jay Moseley and contains his random number    *   FILE 666
//*           generator for generating test data, and his           *   FILE 666
//*           implementation of the COMBSORT extended bubble sort   *   FILE 666
//*           algorithm.                                            *   FILE 666
//*                                                                 *   FILE 666
//*           email:     jay@jaymoseley.com                         *   FILE 666
//*           web site:  www.jaymoseley.com                         *   FILE 666
//*                                                                 *   FILE 666
//*     Pseudo-Random Number Generator                              *   FILE 666
//*                                                                 *   FILE 666
//*         (Assembler)  I recently decided to try                  *   FILE 666
//*         consolidating some programs I use to generate test      *   FILE 666
//*         data into a single run unit.  The first hurdle was      *   FILE 666
//*         finding a suitable random number generator that I       *   FILE 666
//*         could implement under MVS 3.8.  Unfortunately, the      *   FILE 666
//*         COBOL compiler we have available to us lacks those      *   FILE 666
//*         handy intrinsic functions, including RANDOM.  I         *   FILE 666
//*         also found that there are not many solutions            *   FILE 666
//*         available in Assembler or COBOL.  And those few I       *   FILE 666
//*         found (well, actually only a couple and they were       *   FILE 666
//*         very old) failed to built very random sets of           *   FILE 666
//*         numbers.  I came up with a subroutine, written in       *   FILE 666
//*         Assembler, based on the Linear Congruential method      *   FILE 666
//*         (described in Knuth, Sedgewick, and in many places      *   FILE 666
//*         on the 'net).  It isn't cryptographic quality, but      *   FILE 666
//*         will do for simulation and ad hoc sets of test          *   FILE 666
//*         numbers.  I also wrote a COBOL program to do some       *   FILE 666
//*         analysis on the generated number sets.  The             *   FILE 666
//*         jobstream contained in member RANDOM will run the       *   FILE 666
//*         analysis program and illustrates how to link the        *   FILE 666
//*         Assembler routine to your own programs.                 *   FILE 666
//*                                                                 *   FILE 666
//*     Comb Sort                                                   *   FILE 666
//*                                                                 *   FILE 666
//*         (COBOL)  The comb sort algorithm is an extended         *   FILE 666
//*         bubble sort that outperforms the basic bubble sort      *   FILE 666
//*         and is very simple to implement.  This program          *   FILE 666
//*         reads in 10,000 records from SYSIN, sorts them, and     *   FILE 666
//*         prints the sort time and sorted records on SYSOUT.      *   FILE 666
//*         Under Hercules the times I saw were around 5/100ths     *   FILE 666
//*         of a second to sort the 10,000 randomly generated       *   FILE 666
//*         test records.  The COBOL source is in member            *   FILE 666
//*         COMBSORT.  (A slightly cleaner implementation with      *   FILE 666
//*         inline perform statements is also included as           *   FILE 666
//*         member COMBSRTC, but of course it will not compile      *   FILE 666
//*         with the MVT compiler).                                 *   FILE 666
//*                                                                 *   FILE 666
//***FILE 667 is from Jay Moseley and contains a tutorial about     *   FILE 667
//*           how to use the RPG/F compiler which is on File 327.   *   FILE 667
//*           This tutorial is especially complete and valuable,    *   FILE 667
//*           since it is difficult to find RPG/F manuals from      *   FILE 667
//*           IBM which date back to the 1960s and 1970s.  With     *   FILE 667
//*           this tutorial, you should be able to use the free     *   FILE 667
//*           RPG/F compiler and library from File 327 profitably   *   FILE 667
//*           and productively.                                     *   FILE 667
//*                                                                 *   FILE 667
//*           The tutorial was extracted from Jay Moseley's web     *   FILE 667
//*           site:  www.jaymoseley.com .                           *   FILE 667
//*                                                                 *   FILE 667
//*              email:     jay@jaymoseley.com                      *   FILE 667
//*              web site:  www.jaymoseley.com                      *   FILE 667
//*                                                                 *   FILE 667
//*           Members of this pds are prefixed with one alphabetic  *   FILE 667
//*           character, so they remain in the order in which they  *   FILE 667
//*           should be read.  A member list follows:               *   FILE 667
//*                                                                 *   FILE 667
//*      AWHATIS   - What is RPG                                    *   FILE 667
//*      BBASIC    - Basic statement types                          *   FILE 667
//*                  (Header/File/Input/Output)                     *   FILE 667
//*      CRPGFLGC  - The RPG Logic Cycle                            *   FILE 667
//*      CRPGFLOW  - PDF format illustration of logic flow          *   FILE 667
//*      DRPGCALC  - Calculation Specifications                     *   FILE 667
//*      EDISCUSS  - Expanded discussion of selected                *   FILE 667
//*                  calculation operations                         *   FILE 667
//*      FADVANCD  - Advanced statement types                       *   FILE 667
//*                  (Extension/Line Counter)                       *   FILE 667
//*      GRPGINDC  - RPG Indicators                                 *   FILE 667
//*      HOUTEDIT  - Output edit words                              *   FILE 667
//*      ICALLASM  - External Subroutines                           *   FILE 667
//*                  (calling Assembler from RPG)                   *   FILE 667
//*      JUSETABL  - Using Tables                                   *   FILE 667
//*      KISAM     - Indexed-Sequential File processing             *   FILE 667
//*      LMATCH    - Matching Records processing                    *   FILE 667
//*      LMATCHPI  - Match Records Flow Chart - PDF format          *   FILE 667
//*      MDMPREAD  - Resolving RPG Programming Problems -           *   FILE 667
//*                  dump reading for RPG                           *   FILE 667
//*      ZEXAMPLS  - Machine readable coding examples in PDSLOAD    *   FILE 667
//*                  format.  Use the $PDSLOAD job to create the    *   FILE 667
//*                  target partitioned dataset with the examples.  *   FILE 667
//*                                                                 *   FILE 667
//***FILE 668 is from Hunter Guanghui Zhou, and contains a program  *   FILE 668
//*           to offload JES2 spool to separate datasets on your    *   FILE 668
//*           system.                                               *   FILE 668
//*                                                                 *   FILE 668
//*      Program    : OFFLOAD                                       *   FILE 668
//*      Description: JES Spool Offload Program.                    *   FILE 668
//*      Purpose    : Offload JES Spool Data to cataloged           *   FILE 668
//*                   dataset.                                      *   FILE 668
//*      Design     : Hunter Guanghui Zhou                          *   FILE 668
//*      Support    : Phone: 1-(416)-602-9567                       *   FILE 668
//*                   E-mail: zhough2000@yahoo.com                  *   FILE 668
//*                                                                 *   FILE 668
//*      Last Update: February, 2004                                *   FILE 668
//*                                                                 *   FILE 668
//*      I have created a package OFFLOAD to offload JES spool      *   FILE 668
//*      job output to dataset level using SAPI.  It is used to     *   FILE 668
//*      offload the joblog in our environment.                     *   FILE 668
//*                                                                 *   FILE 668
//*      The features are:                                          *   FILE 668
//*      1. The program can offload the spool data in JES OUTPUT    *   FILE 668
//*          queue into system catalogued datasets as following     *   FILE 668
//*          format:  hlq.jobname.Ddate.jobid.TtimeIid              *   FILE 668
//*                                                                 *   FILE 668
//*      2. The spool data selection criteria can be given in       *   FILE 668
//*         EXEC PARM, which includes:                              *   FILE 668
//*                                                                 *   FILE 668
//*          * one or more output classes, maximum 36 classes       *   FILE 668
//*          * Submit USERID, support wildcards (* and ?)           *   FILE 668
//*          * Jobname, support wildcards (* and ?)                 *   FILE 668
//*          * Output destination, support wildcards (* and ?)      *   FILE 668
//*          * Output form, support wildcards (* and ?)             *   FILE 668
//*                                                                 *   FILE 668
//*      3. Output dataset features:                                *   FILE 668
//*                                                                 *   FILE 668
//*          * Use VBA to remove trailing spaces, in order to       *   FILE 668
//*            save disk space.                                     *   FILE 668
//*          * Add message JOF700I at the beginning of each         *   FILE 668
//*            offloaded DD, in order to separate the DDs in job    *   FILE 668
//*            log.                                                 *   FILE 668
//*          * Use higher level qualifier at the execution time,    *   FILE 668
//*            more flexible for different usage.                   *   FILE 668
//*          * Spool data is offloaded when it's ready to           *   FILE 668
//*            offload in JES spool.                                *   FILE 668
//*                                                                 *   FILE 668
//*      4. Operation features:                                     *   FILE 668
//*                                                                 *   FILE 668
//*          * Provide logs in SYSPRINT DD with more meaningful     *   FILE 668
//*            information.                                         *   FILE 668
//*          * Support MVS system command STOP to stop the task.    *   FILE 668
//*            When the program is started in JCL batch, it must    *   FILE 668
//*            be stopped by MVS STOP command.                      *   FILE 668
//*                                                                 *   FILE 668
//*      For example, PARM='H=LG.JOBLOG,C=8,J=@*' means offload     *   FILE 668
//*      all spool data with output class 8 and job name started    *   FILE 668
//*      with @, the output dataset HLQ is 'LG.JOBLOG'              *   FILE 668
//*                                                                 *   FILE 668
//* >>>> Note:  In z/OS 2.1, the macro IAZSSS2 has changed, in that *   FILE 668
//*             its "version number default" is now "3" instead     *   FILE 668
//*             of "2".  This is field SSS2CVER, which now defaults *   FILE 668
//*             to "3".  The local fix is to change SSS2CVER in     *   FILE 668
//*             the OFFLOAD source to SSS2VCTP, which is always     *   FILE 668
//*             equal to "2", and we no longer use the default      *   FILE 668
//*             version number.  Problem symptom was error message: *   FILE 668
//*                                                                 *   FILE 668
//*      IGD17101I DATA SET ????????.????????.DATASET               *   FILE 668
//*      NOT DEFINED BECAUSE DUPLICATE NAME EXISTS IN CATALOG       *   FILE 668
//*      RETURN CODE IS 8 REASON CODE IS 38 IGG0CLEH                *   FILE 668
//*                                                                 *   FILE 668
//*      (Courtesy of Ed Tobias:  tobiaet@dshs.wa.gov  )            *   FILE 668
//*                                                                 *   FILE 668
//***FILE 669 is from Willy Jensen.  Programs covered concerning    *   FILE 669
//*           REXX Global Variables, VSAM bulk access, OpComm etc   *   FILE 669
//*                                                                 *   FILE 669
//*       Contact email: willy@harders-jensen.com                   *   FILE 669
//*       Web:           http://harders-jensen.com                  *   FILE 669
//*                                                                 *   FILE 669
//*       Package date: 2023-june-08                                *   FILE 669
//*                                                                 *   FILE 669
//*       Changes in this package:                                  *   FILE 669
//*        RXPIPE   - New in package.                               *   FILE 669
//*        RXPATTRN - Major rewrite changing the output stem        *   FILE 669
//*                   names.                                        *   FILE 669
//*        RXREALDS - Handle quoted name.                           *   FILE 669
//*        RXVSAMBA - Add STRIP subcommand.                         *   FILE 669
//*                                                                 *   FILE 669
//*        See the xxxxHIST members for history of products.        *   FILE 669
//*                                                                 *   FILE 669
//*       Programs in package:                                      *   FILE 669
//*                                                                 *   FILE 669
//*        ISPDPX01 - ISPF panel exit, supply panel lines in        *   FILE 669
//*                   REXX stem(s)                                  *   FILE 669
//*                   Build: 004 2022-09-04                         *   FILE 669
//*        REXXGBLV - REXX function to implement global             *   FILE 669
//*                   variables.                                    *   FILE 669
//*                   Build: 074 2022-04-14                         *   FILE 669
//*        REXXSTOR - REXX function to save and retrieve a          *   FILE 669
//*                   string in command storage.                    *   FILE 669
//*                   Build: 005 2019-12-04                         *   FILE 669
//*        REXXVARS - REXX general utility to browse, copy,         *   FILE 669
//*                   delete, edit, index, list, rename, sort       *   FILE 669
//*                   and view variables.                           *   FILE 669
//*                   Build: 005.02 2022-02-18                      *   FILE 669
//*        RXOPCOMM - REXX function allowing a REXX program         *   FILE 669
//*                   to support operator MODIFY and STOP           *   FILE 669
//*                   commands.                                     *   FILE 669
//*                   Build: 008 2021-05-25                         *   FILE 669
//*        RXPATTRN - REXX function to test a string against        *   FILE 669
//*                   a pattern.                                    *   FILE 669
//*                   Build: 009 2023-07-03                         *   FILE 669
//*        RXPIPE   - Free REXX based alternative to the IBM        *   FILE 669
//*                   PIPE command (part of Batch Pipes).           *   FILE 669
//*                   Build: 006 2023-07-06                         *   FILE 669
//*        RXRDPRML - REXX function to copy a parmlib               *   FILE 669
//*                   member to a stem.                             *   FILE 669
//*                   Build: 005 2019-12-04                         *   FILE 669
//*        RXREALDS   REXX function returns real name for           *   FILE 669
//*                   relative gds or alias.                        *   FILE 669
//*                   Build: 002 2023-06-14 07:44:05                *   FILE 669
//*        RXVSAMBA - REXX function to read and update a            *   FILE 669
//*                   VSAM KSDS and RRDS database through           *   FILE 669
//*                   stem or stack.                                *   FILE 669
//*                   Build: 028 2023-07-03                         *   FILE 669
//*        RXWAIT   - REXX function to wait whole or                *   FILE 669
//*                   fractions of seconds.                         *   FILE 669
//*                   May also be used as a TSO command and         *   FILE 669
//*                   a batch pgm                                   *   FILE 669
//*                   Build: 002 2019-12-04                         *   FILE 669
//*                                                                 *   FILE 669
//*       Install a program                                         *   FILE 669
//*                                                                 *   FILE 669
//*        RECEIVE the transport dataset, this will generate        *   FILE 669
//*        a pds with all neccessary members.                       *   FILE 669
//*        Edit and excute the $$$$EDIT member to update            *   FILE 669
//*        library names throughout the CBT library.                *   FILE 669
//*        Review and run the program member. This will             *   FILE 669
//*        install and verify the program.                          *   FILE 669
//*        You may edit and execute member Z669UPDT to update       *   FILE 669
//*        librarynames etc in the install lib.                     *   FILE 669
//*                                                                 *   FILE 669
//*       ISPDPX01 description                                      *   FILE 669
//*                                                                 *   FILE 669
//*        This  ISPF panel  exit is  used to  insert records       *   FILE 669
//*        into  an ISPF  panel.  It can  replace the  entire       *   FILE 669
//*        panel, or one  or more sections with  data in REXX       *   FILE 669
//*        stem variable(s).                                        *   FILE 669
//*        See member ISX1DOC for full  documentation.              *   FILE 669
//*        Members ISX1* are part of the ISPDPX01 package.          *   FILE 669
//*                                                                 *   FILE 669
//*       REXXVARS description                                      *   FILE 669
//*                                                                 *   FILE 669
//*        REXXVARS is a general function to perform various        *   FILE 669
//*        actions for REXX variables - browse, copy, drop,         *   FILE 669
//*        edit, index, list, rename, sort and view. Some of        *   FILE 669
//*        those functions can be done using standard REXX          *   FILE 669
//*        features, though with some difficulties, others          *   FILE 669
//*        like index cannot. It can sort long variables (gt        *   FILE 669
//*        32756 bytes), which to the best of my knowledge no       *   FILE 669
//*        other sort can do.                                       *   FILE 669
//*        Multiple variable specifications can be entered          *   FILE 669
//*        as input, they can be a mixture of descrete names,       *   FILE 669
//*        masks or stems.                                          *   FILE 669
//*        See member RXRVDOC for full  documentation.              *   FILE 669
//*        Members RXRV* are part of the REXXVARS package.          *   FILE 669
//*                                                                 *   FILE 669
//*       REXXGBLV description                                      *   FILE 669
//*                                                                 *   FILE 669
//*        Provides   a  variable   store  external   to  the       *   FILE 669
//*        currently running REXX program. REXX variables can       *   FILE 669
//*        be  copied to  the  external  store and  retrieved       *   FILE 669
//*        again at  some later time  by the same  or another       *   FILE 669
//*        REXX  process. The  saved  variables  can even  be       *   FILE 669
//*        written to and retrieved from  a disk file, so can       *   FILE 669
//*        be  used across  logons and  even be  shared among       *   FILE 669
//*        users.                                                   *   FILE 669
//*        Plus numerous REXX variable handling functions.          *   FILE 669
//*        Build: 071                                               *   FILE 669
//*        See member RXGVDOC for full  documentation.              *   FILE 669
//*        See member RXGVRDME for a member list.                   *   FILE 669
//*        Members RXGV* are part of the REXXGBLV package.          *   FILE 669
//*                                                                 *   FILE 669
//*       REXXSTOR description                                      *   FILE 669
//*                                                                 *   FILE 669
//*        Allow a REXX program to  store a string of data in       *   FILE 669
//*        common storage and retrieve  it later, either from       *   FILE 669
//*        the  same program  or from  another REXX  program.       *   FILE 669
//*        Build: 005                                               *   FILE 669
//*        See member RXSTDOC for full  documentation.              *   FILE 669
//*        Members RXST* are part of the REXXSTOR package.          *   FILE 669
//*                                                                 *   FILE 669
//*       RXOPCOMM description                                      *   FILE 669
//*                                                                 *   FILE 669
//*        Allow MODIFY and STOP operator command for REXX          *   FILE 669
//*        programs (F jobname,some text, or P jobname).            *   FILE 669
//*        Issue WTO, optionally to be retained forever or          *   FILE 669
//*        till job end.                                            *   FILE 669
//*        Build: 008                                               *   FILE 669
//*        See member RXOPDOC for full  documentation.              *   FILE 669
//*        Members RXOP* are part of the RXOPCOMM package.          *   FILE 669
//*                                                                 *   FILE 669
//*       RXPATTRN description                                      *   FILE 669
//*                                                                 *   FILE 669
//*        Test a string by a mask, return 0 if match.              *   FILE 669
//*        See member RXPNDOC for full  documentation.              *   FILE 669
//*        Members RXPN* are part of the RXPATTRN package.          *   FILE 669
//*                                                                 *   FILE 669
//*       RXPIPE description                                        *   FILE 669
//*                                                                 *   FILE 669
//*        RXPIPE executes a series of commands, called             *   FILE 669
//*        stages, passing the output of each stage as input        *   FILE 669
//*        to the next, through the TSO stack. In this it           *   FILE 669
//*        works similar to a MSDOS pipe. RXPIPE has a              *   FILE 669
//*        number of built-in transformers that manipulates         *   FILE 669
//*        the contents of the stack.                               *   FILE 669
//*                                                                 *   FILE 669
//*       RXRDPRML description                                      *   FILE 669
//*                                                                 *   FILE 669
//*        Read parmlib member, return data in stem.                *   FILE 669
//*        Some comments may be ignored.                            *   FILE 669
//*        Build: 005                                               *   FILE 669
//*        See member RXRPDOC for full  documentation.              *   FILE 669
//*        Members RXRP* are part of the RXRDPRML package.          *   FILE 669
//*                                                                 *   FILE 669
//*       RXVSAMBA description                                      *   FILE 669
//*                                                                 *   FILE 669
//*        The program  can add, replace, retrieve  or delete       *   FILE 669
//*        records from a VSAM database. Acess is normally by       *   FILE 669
//*        key/keyprefix,  but  some functions  allow  access       *   FILE 669
//*        based on text anywhere in the record.                    *   FILE 669
//*        Data is either read from  a REXX stem or stored in       *   FILE 669
//*        a REXX stem.                                             *   FILE 669
//*        See member RXVBDOC for full  documentation.              *   FILE 669
//*        Members RXVB* are part of the RXVSAMBA package.          *   FILE 669
//*                                                                 *   FILE 669
//*       RXWAIT description                                        *   FILE 669
//*                                                                 *   FILE 669
//*        Wait whole seconds or fractions of a second.             *   FILE 669
//*        See member RXWTDOC for full  documentation.              *   FILE 669
//*        Members RXWT* are part of the RXWAIT package.            *   FILE 669
//*                                                                 *   FILE 669
//*       Other members of possible interest                        *   FILE 669
//*                                                                 *   FILE 669
//*        ISPXMACS  ASM copy book containing my macros for         *   FILE 669
//*                  interfacing with ISPF.                         *   FILE 669
//*        REXXMACS  ASM copy book containing my macros for         *   FILE 669
//*                  interfacing with REXX.                         *   FILE 669
//*        WSAMMACS  ASM copy book containing my structured         *   FILE 669
//*                  assembler macro set. WSAM is similar,          *   FILE 669
//*                  but not identical, to IBM's Structured         *   FILE 669
//*                  Programming Macros.                            *   FILE 669
//*                                                                 *   FILE 669
//*       Some notes                                                *   FILE 669
//*         Common macros devloped by me are combined in            *   FILE 669
//*         member SYSMACS. This member is included by the          *   FILE 669
//*         various products.                                       *   FILE 669
//*         Use member Z669UPDT to update JCL - if you have         *   FILE 669
//*         STARTOOL or PDS86 installed.                            *   FILE 669
//*                                                                 *   FILE 669
//***FILE 670 is from Deru Sudibyo, and contains a REXX math        *   FILE 670
//*           function package, similar to math functions for       *   FILE 670
//*           PL/I.                                                 *   FILE 670
//*                                                                 *   FILE 670
//*           email:  "Deru Sudibyo" <deru.sudibyo@gmail.com>       *   FILE 670
//*                                                                 *   FILE 670
//*     Includes a fix to the FRAC function in the DRXMATH member.  *   FILE 670
//*                                                                 *   FILE 670
//*   A short description of this function package:                 *   FILE 670
//*                                                                 *   FILE 670
//*     This function package was originally DRXMATFN which is      *   FILE 670
//*     for VM/CMS.  No enhancement yet, except just to make it     *   FILE 670
//*     run on OS/390 or z/OS.  Hence, legacy HFP is still used     *   FILE 670
//*     which is low precision and accuracy, since the last         *   FILE 670
//*     touch was in 1993 on VM/ESA on ESA/370 machine.   Next      *   FILE 670
//*     plan is to convert it to BFP once I have enough time.       *   FILE 670
//*                                                                 *   FILE 670
//*     This package can be used as a supplement to your REXX       *   FILE 670
//*     to provide several math functions such as sin(), cos(),     *   FILE 670
//*     tan() etc.   Hence, your REXX will look like PL/1.          *   FILE 670
//*     Without such a package, REXX doesn't support any math       *   FILE 670
//*     functions.   However, it just for availability.   There     *   FILE 670
//*     is no guarantee for the performance, since all REXX         *   FILE 670
//*     variables are internally presented as text strings.         *   FILE 670
//*                                                                 *   FILE 670
//*     Member Names                                                *   FILE 670
//*     ============                                                *   FILE 670
//*       $LOADLIB : Load library in TSO XMIT format                *   FILE 670
//*       DRXFLOC  : Source code of package & package directory     *   FILE 670
//*       DRXMATH  : Source code of package only module             *   FILE 670
//*       @RXCSECT : Local macro                                    *   FILE 670
//*       @RXENTRY : Local macro                                    *   FILE 670
//*       @RXEXIT  : Local macro                                    *   FILE 670
//*       @RXFDIR  : Local macro                                    *   FILE 670
//*       DRXFUNC  : Local macro                                    *   FILE 670
//*       ASSEMBLE : Assembling & linkage editor procedure          *   FILE 670
//*       JDRXFLOC : Job to generate the package                    *   FILE 670
//*       JDRXTEST : Job for batch testing                          *   FILE 670
//*       TTEST0   : Rexx program for testing                       *   FILE 670
//*       TTEST1   : Rexx program for testing                       *   FILE 670
//*       TTEST2   : Rexx program for testing                       *   FILE 670
//*       TTEST3   : Rexx program for testing                       *   FILE 670
//*       TTEST5   : Rexx program for testing                       *   FILE 670
//*       TTEST6   : Rexx program for testing                       *   FILE 670
//*                                                                 *   FILE 670
//***FILE 671 is from Ed Pancoast and contains a useful edit macro  *   FILE 671
//*           called ZOOM which allows you to retrieve a dataset    *   FILE 671
//*           by placing a cursor on its name.  ZOOM originally     *   FILE 671
//*           came from the TSO TIMES magazine from the Fall 1994   *   FILE 671
//*           issue.                                                *   FILE 671
//*                                                                 *   FILE 671
//*           email:  edward.pancoast@mail.va.gov                   *   FILE 671
//*                                                                 *   FILE 671
//*    DESCRIPTION:                                                 *   FILE 671
//*                                                                 *   FILE 671
//*             Contains one edit macro "ZOOM" and associated       *   FILE 671
//*             HELP file.  This edit macro was hand copied         *   FILE 671
//*             from an article in the Fall 1994 TSO Times.         *   FILE 671
//*                                                                 *   FILE 671
//*    PURPOSE: provide cursor sensitive DSN and DSNAME             *   FILE 671
//*             recognition allowing users to ZOOM into             *   FILE 671
//*             another dataset without leaving their current       *   FILE 671
//*             edit session.                                       *   FILE 671
//*                                                                 *   FILE 671
//*    USAGE:   place cursor anywhere within a valid DSN or         *   FILE 671
//*             DSNAME character and start ZOOM from the            *   FILE 671
//*             command line or a pre-defined PFKey.  PFKey         *   FILE 671
//*             use is recommended to minimize cursor               *   FILE 671
//*             repositioning.  If the cursor is left on the        *   FILE 671
//*             line, the first data line displayed will be         *   FILE 671
//*             searched for a valid dsn.                           *   FILE 671
//*                                                                 *   FILE 671
//*    FEATURES: - DSN syntax checking with SYSDSN                  *   FILE 671
//*              - Symbolic variable substitution                   *   FILE 671
//*              - concatenation recognition with member            *   FILE 671
//*                search option                                    *   FILE 671
//*              - automatic switch to browse mode if edit          *   FILE 671
//*                fails                                            *   FILE 671
//*              - allows edit sessions to be stacked               *   FILE 671
//*              - allows modular addition of new functions         *   FILE 671
//*                                                                 *   FILE 671
//*    INSTALL: Install by copying ZOOM to any concatenated         *   FILE 671
//*             SYSEXEC or SYSPROC library. Copy ZOOMP to a         *   FILE 671
//*             concatenated ISPPLIB library.                       *   FILE 671
//*                                                                 *   FILE 671
//*             For best results assign value "ZOOM" to a PF        *   FILE 671
//*             Key.                                                *   FILE 671
//*                                                                 *   FILE 671
//***FILE 672 is from Joel Ewing and contains a version of the      *   FILE 672
//*           NETINIT program which works under OS/390 and z/OS.    *   FILE 672
//*           NETINIT was originally part of the NETSOL package.    *   FILE 672
//*           (See an updated version of NETSOL on File 356.)       *   FILE 672
//*                                                                 *   FILE 672
//*           NETINIT will intelligently start VTAM applications    *   FILE 672
//*           and issue arbitrary MVS commands after VTAM is up.    *   FILE 672
//*           NETINIT can probably completely replace IBM's         *   FILE 672
//*           VTAMAPPL program in functionality.  In addition,      *   FILE 672
//*           in its NETSTOP incarnation, NETINIT can take down     *   FILE 672
//*           most of your system, intelligently, too.  Once you    *   FILE 672
//*           have set up your NETINIT and NETSTOP procs and        *   FILE 672
//*           their VTAM applications, you can get them to do       *   FILE 672
//*           very good work.                                       *   FILE 672
//*                                                                 *   FILE 672
//*           NETINIT will work on older MVS systems, where IBM's   *   FILE 672
//*           VTAMAPPL program was not yet available.               *   FILE 672
//*                                                                 *   FILE 672
//*           email:  jcewing@data-tronics.com                      *   FILE 672
//*                                                                 *   FILE 672
//***FILE 673 is from Tom Sipusic and contains a program called     *   FILE 673
//*           CCFDELET which will delete datasets using JCL.  In    *   FILE 673
//*           addition, CCFDELET will delete HSM archived datasets  *   FILE 673
//*           without having to recall them.  Detailed description  *   FILE 673
//*           follows below.                                        *   FILE 673
//*                                                                 *   FILE 673
//*           email: sipusic@georgetown.edu                         *   FILE 673
//*           phone: 202-687-3934                                   *   FILE 673
//*           address: Thomas Sipusic                               *   FILE 673
//*                    Georgetown University Information Services   *   FILE 673
//*                    Box 571138                                   *   FILE 673
//*                    St. Mary's Hall 304D                         *   FILE 673
//*                    Washingtion, DC 20057                        *   FILE 673
//*                                                                 *   FILE 673
//*                    Notes and Commentary                         *   FILE 673
//*                                                                 *   FILE 673
//*     Georgetown University uses the homegrown utility            *   FILE 673
//*     CCFDELET for ensuring that a data set is deleted prior      *   FILE 673
//*     to running a step that will reallocate it. It has some      *   FILE 673
//*     advantages over the following alternatives:                 *   FILE 673
//*                                                                 *   FILE 673
//*     1) IEFBR14 with a "MOD,DELETE" DD card. Unfortunately,      *   FILE 673
//*        if the data set is in migrated status, DFHSM will        *   FILE 673
//*        first restore it before deleting it. There is no         *   FILE 673
//*        restore with CCFDELET.                                   *   FILE 673
//*                                                                 *   FILE 673
//*     2) IDCAMS. The need to use control cards is the             *   FILE 673
//*        disadvantage here. With CCFDELET, you (can) specify      *   FILE 673
//*        the data set to delete in the PARM field of the EXEC     *   FILE 673
//*        card.                                                    *   FILE 673
//*                                                                 *   FILE 673
//*     CCFDELET has the good points of IEFBR14 without the         *   FILE 673
//*     disadvantage of recalling migrated data sets. The data      *   FILE 673
//*     set to delete is visible in the JCL. It works with JCL      *   FILE 673
//*     procedures and JCL symbols.                                 *   FILE 673
//*                                                                 *   FILE 673
//*     CCFDELET deletes data sets by invoking IDCAMS and           *   FILE 673
//*     supplying control cards to it. The appendix "Invoking       *   FILE 673
//*     Access Method Services from Your Program" in the Access     *   FILE 673
//*     Method Services manual taught me how to do this.  The       *   FILE 673
//*     program has not changed since 1994. What was assembled      *   FILE 673
//*     and linked then has continued to work up through OS/390     *   FILE 673
//*     2.10, which is the release that Georgetown currently        *   FILE 673
//*     runs.                                                       *   FILE 673
//*                                                                 *   FILE 673
//*     You are getting the source Georgetown uses with one         *   FILE 673
//*     exception noted below.  You should probably review it       *   FILE 673
//*     before you put it into production.  It works at             *   FILE 673
//*     Georgetown but no guarantee is made that it will work       *   FILE 673
//*     anywhere else. Use it at your own risk.  The one change     *   FILE 673
//*     to the source is a commented out entry of the text unit     *   FILE 673
//*     pointer list that starts at the label TUPTRLST.             *   FILE 673
//*     Comments there indicate why.                                *   FILE 673
//*                                                                 *   FILE 673
//*     JOBSTREAM Example:                                          *   FILE 673
//*                                                                 *   FILE 673
//*     //STEP1 EXEC PGM=CCFDELET                                   *   FILE 673
//*     //SYSPRINT DD SYSOUT=*                                      *   FILE 673
//*     //SYSIN DD *                                                *   FILE 673
//*     CCF.DELETE.DSN1                                             *   FILE 673
//*     CCF.DELETE.DSN2                                             *   FILE 673
//*     CCF.DELETE.DSN3                                             *   FILE 673
//*     /*                                                          *   FILE 673
//*                                                                 *   FILE 673
//*     PROC Example:                                               *   FILE 673
//*                                                                 *   FILE 673
//*     //STEP1 EXEC PGM=CCFDELET,PARM='CCF.DELETE.DSN1'            *   FILE 673
//*     //STEP2 EXEC PGM=CCFDELET,PARM='CCF.DELETE.DSN2'            *   FILE 673
//*     //STEP3 EXEC PGM=CCFDELET,PARM='CCF.DELETE.DSN3'            *   FILE 673
//*                                                                 *   FILE 673
//***FILE 674 is from Robin Murray and contains a nice collection   *   FILE 674
//*           of REXX-based utilities to help enhance your TSO      *   FILE 674
//*           session toolbox.  Below is a description of the       *   FILE 674
//*           tools in detail.                                      *   FILE 674
//*                                                                 *   FILE 674
//*           email   :  mvs@robinandmariette.com                   *   FILE 674
//*           web site:  http://www.robinandmariette.com            *   FILE 674
//*                                                                 *   FILE 674
//*     These utilities have been tested using OS/390 2.10 as       *   FILE 674
//*     of March 2004.  They will be tested on z/OS 1.4 as soon     *   FILE 674
//*     as possible.                                                *   FILE 674
//*                                                                 *   FILE 674
//*     These utilities are provided as is with no warranties       *   FILE 674
//*     or guarantees of any kind whatsoever.  Use at your own      *   FILE 674
//*     risk!                                                       *   FILE 674
//*                                                                 *   FILE 674
//*     ---------------------------------------------------------   *   FILE 674
//*                                                                 *   FILE 674
//*     Copied from                                                 *   FILE 674
//*     www.robinandmariette.com/Mvs/Rexx/RexxUtils.asp             *   FILE 674
//*                                                                 *   FILE 674
//*     Robin Murray's Rexx Tools/Utilities                         *   FILE 674
//*                                                                 *   FILE 674
//*     The libraries are in xmit format.  To install:              *   FILE 674
//*                                                                 *   FILE 674
//*         * Follow the instructions in the $RUNME member to       *   FILE 674
//*           recieve the rest of the libs.                         *   FILE 674
//*         * In the SAMPLIB dataset, follow the directions in      *   FILE 674
//*           members $INSTALL, $IVP, and $INSTAL2, in that         *   FILE 674
//*           order.                                                *   FILE 674
//*         * If installing SVCDUMPS, follow the directions in      *   FILE 674
//*           members $INSTALL, and $IVP of                         *   FILE 674
//*           MA133.TSO.SVCDUMPS.SYSEXEC.                           *   FILE 674
//*                                                                 *   FILE 674
//*     Last updated:  8-May-2004                                   *   FILE 674
//*                                                                 *   FILE 674
//*     Utility  Description                                        *   FILE 674
//*                                                                 *   FILE 674
//*     $START   A model for starting most reasonably complex       *   FILE 674
//*              programs.  Just copy this into your new member     *   FILE 674
//*              and begin customizing it.  For details on why      *   FILE 674
//*              I start rexx programs this way, see my hints       *   FILE 674
//*              and tips section.                                  *   FILE 674
//*                                                                 *   FILE 674
//*     $TBDISPL A model to display an ISPF table.  Copy this       *   FILE 674
//*              code into your program and make a few              *   FILE 674
//*              adjustments to display your table.  Contains       *   FILE 674
//*              boiler plate code for handling both primary        *   FILE 674
//*              and line commands.                                 *   FILE 674
//*                                                                 *   FILE 674
//*     APARSTRP A program to strip off the comments from CA        *   FILE 674
//*              supplied PTFs.  Used in conjunction with           *   FILE 674
//*              EACHMEM and possibly FTPPDS.                       *   FILE 674
//*                                                                 *   FILE 674
//*     COMPRESS A program to compress a PDS.  Can be run either    *   FILE 674
//*              as an edit macro or as a TSO exec.  Useful when    *   FILE 674
//*              you get out of space errors while in edit:         *   FILE 674
//*              simply enter COMPRESS on the command line and      *   FILE 674
//*              save again.                                        *   FILE 674
//*                                                                 *   FILE 674
//*     DELALL   Deletes all datasets beginning with the passed     *   FILE 674
//*              high level qualifier(s).  Uses ISPF 3.4            *   FILE 674
//*              masking if ISPF is active for greater              *   FILE 674
//*              flexibility.                                       *   FILE 674
//*                                                                 *   FILE 674
//*     DUPMEM   Checks for duplicate members of a concatenation.   *   FILE 674
//*              Pass the DDName of the concatanation and a card    *   FILE 674
//*              deck will be generated that can be fed to the      *   FILE 674
//*              PDS program to delete them.  LINKLIST and          *   FILE 674
//*              LPALIST can also be passed as the DDName, and      *   FILE 674
//*              the current, in-storage concatenation will be      *   FILE 674
//*              checked.                                           *   FILE 674
//*                                                                 *   FILE 674
//*     EACHMEM  To process a PDS by calling the passed rexx        *   FILE 674
//*              program for each member.  It's meant as a          *   FILE 674
//*              generalized service to process all members of      *   FILE 674
//*              a PDS.                                             *   FILE 674
//*                                                                 *   FILE 674
//*     FTPPDS   A utility to ftp a remote directory to a PDS       *   FILE 674
//*              or a PDS to a remote directory.  Uses a            *   FILE 674
//*              profile dataset to store the commands to be        *   FILE 674
//*              executed.  Can be run in batch or online.          *   FILE 674
//*                                                                 *   FILE 674
//*     GO       A simple edit macro to execute the member you      *   FILE 674
//*              are editing.  Simply enter GO on the command       *   FILE 674
//*              line along with any parms to execute your          *   FILE 674
//*              program.  Pending changes are automatically        *   FILE 674
//*              saved before the exec is run.  If the save         *   FILE 674
//*              fails, a compress is run and the save is           *   FILE 674
//*              attempted again.                                   *   FILE 674
//*                                                                 *   FILE 674
//*     NJ       To navigate through lengthy and complex JCL.       *   FILE 674
//*              Front-ends CA's JCLCHECK product with several      *   FILE 674
//*              ISPF tables.  Presents several different views     *   FILE 674
//*              of the JCL including datasets, programs,           *   FILE 674
//*              procedures, reports, and JCL errors.  Allows you   *   FILE 674
//*              to select any line to take you to the exact JCL    *   FILE 674
//*              source line to which it corresponds, no matter     *   FILE 674
//*              if it's in stream or in a procedure.  Allows you   *   FILE 674
//*              to zoom in to datasets on the dataset view.  See   *   FILE 674
//*              the job navigator section for more details on      *   FILE 674
//*              this powerful utility.                             *   FILE 674
//*                                                                 *   FILE 674
//*     QUOTES   A simple edit macro to flag lines that have        *   FILE 674
//*              uneven or missing quotes.                          *   FILE 674
//*                                                                 *   FILE 674
//*     RESTART  An IOF rexx to process the joblog and create a     *   FILE 674
//*              series of IDCAMS delete statements so that you     *   FILE 674
//*              can restart the job.                               *   FILE 674
//*                                                                 *   FILE 674
//*     SAVELIB  A quick way to make a backup copy of a PDS.        *   FILE 674
//*                                                                 *   FILE 674
//*     SORTTB   To sort any ISPF table passed to it.  Pops up      *   FILE 674
//*              a small panel where you can select Ascending       *   FILE 674
//*              or Decsending sort sequences on any field in       *   FILE 674
//*              the table.  A good utility to call from            *   FILE 674
//*              another program to allow complex sorting on a      *   FILE 674
//*              table.                                             *   FILE 674
//*                                                                 *   FILE 674
//*     SRCHGO   Used in the Search-For IBM utility to allow        *   FILE 674
//*              you to zoom in from the lines in the search        *   FILE 674
//*              results list to edit the target dataset where      *   FILE 674
//*              the line was found.                                *   FILE 674
//*                                                                 *   FILE 674
//*     STARTUP  An ISPF session manager to allow you to create     *   FILE 674
//*              and easily navigate thru many concurrent ISPF      *   FILE 674
//*              sessions.  Combines the functionality of the       *   FILE 674
//*              ISPF START, SCRNAME, SWAP LIST, and SWAP XXX       *   FILE 674
//*              command into one easy to remember command.         *   FILE 674
//*              Allows dynamic command tables to be built for      *   FILE 674
//*              each individual user.  See the startup command     *   FILE 674
//*              section for more details.                          *   FILE 674
//*                                                                 *   FILE 674
//*     SWIMACRO A sample site-wide initial edit macro showing      *   FILE 674
//*              how to create special protection for certain       *   FILE 674
//*              key system datasets like SYS1.PARMLIB and          *   FILE 674
//*              others.  Ensures that AUTOSAVE is OFF for          *   FILE 674
//*              these particular datasets so that any changes      *   FILE 674
//*              will require a manual SAVE command before          *   FILE 674
//*              leaving your edit session.                         *   FILE 674
//*                                                                 *   FILE 674
//*     CATLIBS  A new and unique way to concatenate the required   *   FILE 674
//*              TSO and ISPF libraries at logon time.  Separates   *   FILE 674
//*              products into convenient parmlib members that      *   FILE 674
//*              are assigned as needed to each user group.  It's   *   FILE 674
//*              so flexible it can hardly stand up.                *   FILE 674
//*              Automatically recovers from missing / enqueued /   *   FILE 674
//*              misspelled datasets.  See the CatLibs section      *   FILE 674
//*              for more details.                                  *   FILE 674
//*                                                                 *   FILE 674
//*     Finders  A group of find commands to quickly and easily     *   FILE 674
//*              find source library members of various sorts       *   FILE 674
//*              and by various methods.  See the find utilities    *   FILE 674
//*              section for more details on this group of very     *   FILE 674
//*              useful programs.  They are indispensible in our    *   FILE 674
//*              shop.                                              *   FILE 674
//*                                                                 *   FILE 674
//*     SVCDUMPS A modern SVC dump manager. Creates a log of        *   FILE 674
//*              your SVC dumps.  Allows ISPF table interaction     *   FILE 674
//*              with the log of dumps. Allows interactive          *   FILE 674
//*              archiving, recalling, tersing, ftping, deletion    *   FILE 674
//*              etc.  All dump management can be automated         *   FILE 674
//*              using one multi-purpose started task.              *   FILE 674
//*                                                                 *   FILE 674
//***FILE 675 is from Isaac Yassin, and contains REXX execs         *   FILE 675
//*           pertaining to DB2 reporting.  Details are below:      *   FILE 675
//*                                                                 *   FILE 675
//*     email:   yassini@bezeqint.net                               *   FILE 675
//*                                                                 *   FILE 675
//*     Attached are the following REXXes:                          *   FILE 675
//*                                                                 *   FILE 675
//*     1. READLOGP -                                               *   FILE 675
//*        Input is DSN of file with SYSSUMRY data from DB2         *   FILE 675
//*           utility DSN1LOGP                                      *   FILE 675
//*        Output are 5 reports pertaining to the work done         *   FILE 675
//*           by DB2.                                               *   FILE 675
//*                                                                 *   FILE 675
//*     2. SMF42 -                                                  *   FILE 675
//*        Analyzes SMF 42.6 records                                *   FILE 675
//*                                                                 *   FILE 675
//*     3. RIFCID63 -                                               *   FILE 675
//*        Analyzes IFCID 63 from SMF 102 records - DB2 dynamic     *   FILE 675
//*           SQL text.                                             *   FILE 675
//*                                                                 *   FILE 675
//***FILE 676 contains updated batch utilities, VPS EXITS, and      *   FILE 676
//*           code, updated to work in z/OS.  This file is from     *   FILE 676
//*           Jim Marshall.                                         *   FILE 676
//*                                                                 *   FILE 676
//*           Jim's current address is:                             *   FILE 676
//*                                                                 *   FILE 676
//*                 Jim Marshall                                    *   FILE 676
//*                 Office of Personnel Management                  *   FILE 676
//*                 CIO/WTC - Room BH04                             *   FILE 676
//*                 1900 E Street NW                                *   FILE 676
//*                 Washington DC   20415-0001                      *   FILE 676
//*                 w - 202-606-1261                                *   FILE 676
//*                 f - 202-606-2092                                *   FILE 676
//*                 Jim.Marshall@opm.gov                            *   FILE 676
//*                                                                 *   FILE 676
//*   Member $$ZDOC now replaced by member @FILEnnn.  (SBG - 08/03) *   FILE 676
//*                                                                 *   FILE 676
//*       RELEASE 01  -  May 2004                                   *   FILE 676
//*                                                                 *   FILE 676
//*       SUMMARY OF THE MODULES CONTAINED.                         *   FILE 676
//*                                                                 *   FILE 676
//*       Code     REL          DESCRIPTION                         *   FILE 676
//*                                                                 *   FILE 676
//*       GDGCPY   1.0  GDGCOPY utility found in File 482.          *   FILE 676
//*                     Changed code from copying all GDG's found   *   FILE 676
//*                     to only copy the oldest one.  Customers     *   FILE 676
//*                     wanted to process only the file as          *   FILE 676
//*                     "FIFO".  Thanks to Eric Bielefeld for the   *   FILE 676
//*                     code he got.  Cleaned up the code, added    *   FILE 676
//*                     documentation for the future.               *   FILE 676
//*                                                                 *   FILE 676
//*       OPMIUE01 1.0  VPS EXIT01 which will simulate              *   FILE 676
//*                     overstriking when an application codes a    *   FILE 676
//*                     "+" carriage control character on Laser     *   FILE 676
//*                     printers. This EXIT  used only for those    *   FILE 676
//*                     printers needing it. The EXIT is            *   FILE 676
//*                     scheduled for every print line. Thanks to   *   FILE 676
//*                     LRS for having it in their closet.          *   FILE 676
//*                                                                 *   FILE 676
//*       OPMSUE08 1.0  VPS EXIT08 for ERROR Retry of SNA and IP    *   FILE 676
//*                     printers. I expanded the number of IP       *   FILE 676
//*                     error codes handled and adjusted the        *   FILE 676
//*                     times. It will retry for many times as      *   FILE 676
//*                     it's the nature of the beast.               *   FILE 676
//*                                                                 *   FILE 676
//*       OPMSUX14 1.0  VPS EXIT14 expanded by me to perform many   *   FILE 676
//*                     needed functions to be able to convert      *   FILE 676
//*                     absolutely tranparent:                      *   FILE 676
//*                                                                 *   FILE 676
//*                     1) Convert from IBM's InfoPrint where       *   FILE 676
//*                        the module name is specified in the      *   FILE 676
//*                        "PRTOPTNS" field of an OUTPUT statement. *   FILE 676
//*                                                                 *   FILE 676
//*                     2) Convert from another implemenation of    *   FILE 676
//*                        VPS where WRITER name was used.          *   FILE 676
//*                                                                 *   FILE 676
//*                     3) Implement FORM name as the preferred     *   FILE 676
//*                        way of specifing how the HP printers     *   FILE 676
//*                        will print.                              *   FILE 676
//*                                                                 *   FILE 676
//*                     4) "Wire in" a check (BLDL) for the name    *   FILE 676
//*                        used to get the FORMAT module of         *   FILE 676
//*                        Postscript or PCL commands.  If the      *   FILE 676
//*                        module is not found substitute SSTD as   *   FILE 676
//*                        the one.                                 *   FILE 676
//*                                                                 *   FILE 676
//***FILE 677 is from Marco Willemse and contains his Parallel      *   FILE 677
//*           Sysplex Manager ISPF application.                     *   FILE 677
//*                                                                 *   FILE 677
//*     Sysplex Manager Version 1.0.0 (Beta)                        *   FILE 677
//*     ===============                                             *   FILE 677
//*                                                                 *   FILE 677
//*     >>>  WARNING: This is a Beta version !!!     <<<            *   FILE 677
//*     >>>  Do NOT use in a Production Sysplex !!!  <<<            *   FILE 677
//*                                                                 *   FILE 677
//*     Send comments, critics, suggestions, modifications to:      *   FILE 677
//*                                                                 *   FILE 677
//*       marco.willemse@corner.ch                                  *   FILE 677
//*                                                                 *   FILE 677
//*     REXX:                                                       *   FILE 677
//*     -----                                                       *   FILE 677
//*     KSMMAIN - The main procedure                                *   FILE 677
//*     KSMCONS - To use the TSO REXX CONSOLE interface             *   FILE 677
//*                                                                 *   FILE 677
//*     Panels:                                                     *   FILE 677
//*     -------                                                     *   FILE 677
//*     KSMPRIM - The primary panel for Sysplex Manager             *   FILE 677
//*     KSMTYPE - Couple dataset type input panel                   *   FILE 677
//*     KSMCDSN - Couple dataset name input panel                   *   FILE 677
//*     KSMPNAM - Policy name input panel                           *   FILE 677
//*     KSMPTYP - Policy type input panel                           *   FILE 677
//*     KSMSDKP - Structure duplexing keep input panel              *   FILE 677
//*     KSMSSIZ - Structure size input panel                        *   FILE 677
//*                                                                 *   FILE 677
//*     Skeletons:                                                  *   FILE 677
//*     ----------                                                  *   FILE 677
//*     KSMDPOL - Policy Report Job                                 *   FILE 677
//*     KSMNCDS - New Couple Dataset Job                            *   FILE 677
//*     KSMNPOL - New Policy Job                                    *   FILE 677
//*                                                                 *   FILE 677
//*     Tables:                                                     *   FILE 677
//*     -------                                                     *   FILE 677
//*     KSMKEYS - Keylist for the panels                            *   FILE 677
//*                                                                 *   FILE 677
//*     RACF (SAF) accesses needed:                                 *   FILE 677
//*     ---------------------------                                 *   FILE 677
//*     TSOAUTH    CONSOLE           READ                           *   FILE 677
//*     OPERCMDS   MVS.SETXCF.** (G) CONTROL                        *   FILE 677
//*     Other accesses may be needed !                              *   FILE 677
//*                                                                 *   FILE 677
//*     Reference:                                                  *   FILE 677
//*     ----------                                                  *   FILE 677
//*     Actions:                                                    *   FILE 677
//*                                                                 *   FILE 677
//*     A - Alter    = Alter the size of a structure                *   FILE 677
//*     C - aCouple  = Add an Alternate CDS                         *   FILE 677
//*     D - Display  = Show the object details (D XCF)              *   FILE 677
//*     F - Force    = Force a structure or a connection            *   FILE 677
//*     I - Rebuild  = Rebuild a structure or a CF with             *   FILE 677
//*                    LOCATION=OTHER                               *   FILE 677
//*     L - List     = List the objects                             *   FILE 677
//*     N - New      = Create a new object (CDS or Pol)             *   FILE 677
//*     O - stOp     = Stop a policy                                *   FILE 677
//*     P - Populate = Perform a Rebuild with POPULATECF keyword    *   FILE 677
//*     Q - Quit     = Quit the KSMMAIN Rexx Exec                   *   FILE 677
//*     R - Report   = Create a policy report                       *   FILE 677
//*     S - Start    = Start a policy                               *   FILE 677
//*     U - Unduplex = Stop Rebuild DUPLEX                          *   FILE 677
//*     W - PsWitch  = Use the Alternate CDS as Primary             *   FILE 677
//*     X - DupleX   = Rebuild a structure with the DUPLEX keyword  *   FILE 677
//*                                                                 *   FILE 677
//*     Future plans:                                               *   FILE 677
//*     -------------                                               *   FILE 677
//*     - add support for xcf (PI,PO,TG,Cl)                         *   FILE 677
//*     - add support for system logger                             *   FILE 677
//*     - add pfkey for up and down                                 *   FILE 677
//*     - provide an edit macro to cleanup policy reports           *   FILE 677
//*     ... and a lot of other ideas                                *   FILE 677
//*                                                                 *   FILE 677
//***FILE 678 is a series of programs and DFDSS exits, so that      *   FILE 678
//*           a DFDSS dump will write its output to an AWS-format   *   FILE 678
//*           disk file, instead of to a tape.                      *   FILE 678
//*                                                                 *   FILE 678
//*       PDS members:                                              *   FILE 678
//*                                                                 *   FILE 678
//*     ADRUIXIT    ADRDSSU exit to authorize AWSADR                *   FILE 678
//*     AWSADR      ADRDSSU Front-end that writes and reads AWS     *   FILE 678
//*                 tape images                                     *   FILE 678
//*     AWSADRJ     Sample DUMP JCL for AWSADR                      *   FILE 678
//*     AWSADRJ2    Sample RESTORE JCL for AWSADR                   *   FILE 678
//*     AWSDSSU     JCL to link ADRDSSU as AWSDSSU with exit        *   FILE 678
//*                 ADRUIXIT in it                                  *   FILE 678
//*     AWSADROL    ADRDSSU Front-end that writes and reads AWS     *   FILE 678
//*                 tape images - old version                       *   FILE 678
//*                                                                 *   FILE 678
//***FILE 679 is from Carlos Aguilera, and contains a REXX exec     *   FILE 679
//*           to construct a flowchart directly from JCL, via the   *   FILE 679
//*           VISIO product.                                        *   FILE 679
//*                                                                 *   FILE 679
//*           email:  Carlos Aguilera <vn0006@heb.com>              *   FILE 679
//*                                                                 *   FILE 679
//*           Carlos Aguilera Sr.                                   *   FILE 679
//*           106 Monticello Avenue                                 *   FILE 679
//*           Jefferson, LA 70121-4027                              *   FILE 679
//*           (504) 828-4953 Home                                   *   FILE 679
//*           (210) 938-3863 Office                                 *   FILE 679
//*           (210) 553-0439 Pager                                  *   FILE 679
//*                                                                 *   FILE 679
//*      Instructions for use:                                      *   FILE 679
//*                                                                 *   FILE 679
//*      Create a temporary member and copy your JCL into it.       *   FILE 679
//*      invoke this exec VISIO and save the result as a *.CSV      *   FILE 679
//*      file.  Open this file using VISIO and it will flowchart    *   FILE 679
//*      it for you.                                                *   FILE 679
//*                                                                 *   FILE 679
//*      Works in SPF/PC and TSO.                                   *   FILE 679
//*                                                                 *   FILE 679
//***FILE 680 is a collection of course outlines from Bruce Koss.   *   FILE 680
//*           The original Microsoft Word versions are included     *   FILE 680
//*           here (you have to download them in BINARY to a PC     *   FILE 680
//*           in order to read them).  And also included in this    *   FILE 680
//*           file, are EBCDIC text versions.  Some of the screen   *   FILE 680
//*           illustrations that were in the Microsoft Word         *   FILE 680
//*           originals, could not be captured in the text          *   FILE 680
//*           versions.                                             *   FILE 680
//*                                                                 *   FILE 680
//*           Included are courses on REXX, ISPF, TSO, how to use   *   FILE 680
//*           Edit Macros, and PDSMAN/EZYEDIT.                      *   FILE 680
//*                                                                 *   FILE 680
//*           Much valuable information can be gleaned from         *   FILE 680
//*           these course outlines.  There is so much detail in    *   FILE 680
//*           the Edit Macro, ISPF, REXX, and PDSMAN courses,       *   FILE 680
//*           that you can probably learn a great deal, even if     *   FILE 680
//*           you are quite expert in those subjects already.       *   FILE 680
//*           Bruce is very systematic in what he presents.         *   FILE 680
//*           (S.Golob)                                             *   FILE 680
//*                                                                 *   FILE 680
//*        Member Names:                                            *   FILE 680
//*                                                                 *   FILE 680
//*        @EDITMAC - Edit Macro course - Microsoft Word            *   FILE 680
//*        @ISPF    - ISPF course - Microsoft Word                  *   FILE 680
//*        @PARSE   - PARSE examples for REXX - Microsoft Word      *   FILE 680
//*        @PDSMAN  - PDSMAN and EZYEDIT course - Microsoft Word    *   FILE 680
//*        @REXX    - REXX course - Microsoft Word                  *   FILE 680
//*        @REXXEX  - REXX examples - Microsoft Word                *   FILE 680
//*        @REXXVAR - REXX variable illustrations - Microsoft Word  *   FILE 680
//*        @TSO     - TSO course - Microsoft Word                   *   FILE 680
//*        EDITMAC  - Edit Macro course - text                      *   FILE 680
//*        ISPF     - ISPF course - text                            *   FILE 680
//*        PARSE    - PARSE examples for REXX - text                *   FILE 680
//*        PDSMAN   - PDSMAN and EZYEDIT course - text              *   FILE 680
//*        REXX     - REXX course - text                            *   FILE 680
//*        REXXEX   - REXX examples - text                          *   FILE 680
//*        REXXVAR  - REXX variable illustrations - text            *   FILE 680
//*        TSO      - TSO course - text                             *   FILE 680
//*                                                                 *   FILE 680
//*           email:  bruce.koss@wachovia.com                       *   FILE 680
//*                                                                 *   FILE 680
//***FILE 681 is from Robert Styma and contains an updated          *   FILE 681
//*           version of the powerful PL/I Execution Analyzer       *   FILE 681
//*           program called PLEA.                                  *   FILE 681
//*                                                                 *   FILE 681
//*           Sample output of PLEA is found in members $SAMPOUT    *   FILE 681
//*           and $SAMPOUX.                                         *   FILE 681
//*                                                                 *   FILE 681
//*           email:  stymar@lucent.com                             *   FILE 681
//*                                                                 *   FILE 681
//***FILE 682 is from Bob Glover and contains his TSOESO ISPF-based *   FILE 682
//*           command processor to display all the ESOTERICS on     *   FILE 682
//*           your system.                                          *   FILE 682
//*                                                                 *   FILE 682
//*           email:  Bob.Glover@fnf.com                            *   FILE 682
//*                                                                 *   FILE 682
//*       TSOESO = DISPLAY System ESOTERICS                         *   FILE 682
//*                                                                 *   FILE 682
//*       > Members are :                                           *   FILE 682
//*        TSOESO     = Assembler program                           *   FILE 682
//*        ESOPAN2    = ISPF panel                                  *   FILE 682
//*        ESO        = REXX                                        *   FILE 682
//*        ASMESO     = JCL to ASMLK TSOESO                         *   FILE 682
//*                                                                 *   FILE 682
//*       Note:  The assembler program has the ability to           *   FILE 682
//*              incorporate STK silo macros if you have            *   FILE 682
//*              them, and to exclude them if you don't.            *   FILE 682
//*              There is a conditional assembly statement          *   FILE 682
//*              in the code which takes care of the two            *   FILE 682
//*              cases:                                             *   FILE 682
//*                                                                 *   FILE 682
//*              " &STK     SETC  'YES' <=== 'YES' OR 'NO' "        *   FILE 682
//*                                                                 *   FILE 682
//*       Note:  A load library in TSO XMIT format has been         *   FILE 682
//*              included.  This load module was assembled with     *   FILE 682
//*              the STK option on, but it appears to work fine,    *   FILE 682
//*              even if you don't have STK silos in your           *   FILE 682
//*              system.                                            *   FILE 682
//*                                                                 *   FILE 682
//***FILE 683 contains a link to an IBM website, and contains an    *   FILE 683
//*           application to shut down all open UNIX services       *   FILE 683
//*           remaining after TCPIP and other normal UNIX           *   FILE 683
//*           services have been shut down.  The application is     *   FILE 683
//*           called BPXSTOP.                                       *   FILE 683
//*                                                                 *   FILE 683
//*  *  - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *  *   FILE 683
//*  *            ----------------------------------             *  *   FILE 683
//*  *            BUT SEE THE NOTES IN THE BOX BELOW             *  *   FILE 683
//*  *            ----------------------------------             *  *   FILE 683
//*  *  - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *  *   FILE 683
//*  *  However, this file now contains a lot more information.  *  *   FILE 683
//*  *                                                           *  *   FILE 683
//*  *  This file now contains a lot more information than it    *  *   FILE 683
//*  *  used to contain.  IBM maintains a large public website   *  *   FILE 683
//*  *  at URL:   ftp://public.dhe.ibm.com                       *  *   FILE 683
//*  *                                                           *  *   FILE 683
//*  *  The index for the highest level subdirectory is shown    *  *   FILE 683
//*  *  in member $IXTOOL3 in this pds.                          *  *   FILE 683
//*  *                                                           *  *   FILE 683
//*  *  The index for the next lower level subdirectory is shown *  *   FILE 683
//*  *  in member $IXTOOL2 in this pds.                          *  *   FILE 683
//*  *                                                           *  *   FILE 683
//*  *  The index for the next lower level subdirectory is shown *  *   FILE 683
//*  *  in member $IXTOOL1 in this pds.                          *  *   FILE 683
//*  *                                                           *  *   FILE 683
//*  *  Finally,                                                 *  *   FILE 683
//*  *  the index for the lowest level subdirectory is shown     *  *   FILE 683
//*  *  in member $IXTOOL0 in this pds.                          *  *   FILE 683
//*  *                                                           *  *   FILE 683
//*  *  You should look at $IXTOOL0 first, and then go higher,   *  *   FILE 683
//*  *  one level at a time.                                     *  *   FILE 683
//*  *                                                           *  *   FILE 683
//*  *  The lowest level index $IXTOOL0 is where you will find   *  *   FILE 683
//*  *  the materials for BPXSTOP.  (Plus many other tools.)     *  *   FILE 683
//*  *                                                           *  *   FILE 683
//*  *  - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *  *   FILE 683
//*                                                                 *   FILE 683
//*           The URL to obtain this software is:                   *   FILE 683
//*                                                                 *   FILE 683
//*           ftp://public.dhe.ibm.com/s390/zos/tools/bpxstop       *   FILE 683
//*                                                                 *   FILE 683
//*           Going up one level in this URL are many other         *   FILE 683
//*           tools:  (Please look for what you want....)           *   FILE 683
//*                                                                 *   FILE 683
//*           ftp://public.dhe.ibm.com/s390/zos/tools               *   FILE 683
//*                                                                 *   FILE 683
//*           Three members should be downloaded from this link     *   FILE 683
//*           location.  They are:                                  *   FILE 683
//*                                                                 *   FILE 683
//*           File:bpxstop.proc.txt                                 *   FILE 683
//*                           2 KB    3/16/2001       11:00:00 PM   *   FILE 683
//*           File:bpxstop.readme.txt                               *   FILE 683
//*                           2 KB    3/16/2001       11:00:00 PM   *   FILE 683
//*           File:bpxstop.rexx.txt                                 *   FILE 683
//*                           6 KB    3/16/2001       11:00:00 PM   *   FILE 683
//*                                                                 *   FILE 683
//*           Appropriate RACF permissions have to be obtained.     *   FILE 683
//*           See member readme.txt for further instructions, and   *   FILE 683
//*           for installation information.                         *   FILE 683
//*                                                                 *   FILE 683
//***FILE 684 is from Rick Fochtman, and contains a collection of   *   FILE 684
//*           programs and exits which are very useful.             *   FILE 684
//*                                                                 *   FILE 684
//*       Collected or developed by Rich Fochtman.                  *   FILE 684
//*                                                                 *   FILE 684
//*       Support:  Sam Golob                                       *   FILE 684
//*                                                                 *   FILE 684
//*         email:  sbgolob@cbttape.org                             *   FILE 684
//*                                                                 *   FILE 684
//*  A description of the various programs and exits follows:       *   FILE 684
//*                                                                 *   FILE 684
//*     CHKSWAP  A gem of a program. A batch program to ATTACH      *   FILE 684
//*              another batch program and run it non-swappable.    *   FILE 684
//*                                                                 *   FILE 684
//*     IEFACTRT Jobs statistics after each step.                   *   FILE 684
//*                                                                 *   FILE 684
//*     IEFUTL   Extends wait time based on job type: batch         *   FILE 684
//*              and stc, forever and TSO for 2 hours only          *   FILE 684
//*                                                                 *   FILE 684
//*     IEFU29   Starts dumpsmf automatically at ds switch          *   FILE 684
//*                                                                 *   FILE 684
//*     IEFU29A  Starts purgsmf like u28; smf data goes to bit      *   FILE 684
//*              bucket                                             *   FILE 684
//*                                                                 *   FILE 684
//*     IEFU83   EXCP stats at ds close time; see also              *   FILE 684
//*              MPFLST83 and MSG.. exits                           *   FILE 684
//*                                                                 *   FILE 684
//*     MPFLST83 Prevent IEFU83 messages to consoles or log         *   FILE 684
//*                                                                 *   FILE 684
//*     MSGFLUSH, MSGJOBLG, MSGNOJLG, MSGNOLOG - useful mpf         *   FILE 684
//*              exits                                              *   FILE 684
//*                                                                 *   FILE 684
//*     PDSSCAN  Just what the name says. very fast.                *   FILE 684
//*                                                                 *   FILE 684
//*     PDSUPDTE Again, just what the name says. very fast;         *   FILE 684
//*              does update in place                               *   FILE 684
//*                                                                 *   FILE 684
//*     SMFDUMP  The elusive DUMPSMF program, last distributed      *   FILE 684
//*              by IBM, long ago                                   *   FILE 684
//*                                                                 *   FILE 684
//*     SVCMAP   Program to display the SVC table and extended      *   FILE 684
//*              SVC's.  A quick dump of the first few bytes        *   FILE 684
//*              of each SVC is included in the display.            *   FILE 684
//*                                                                 *   FILE 684
//*     SVCMAB   REXX to BROWSE the output of the SVCMAP program    *   FILE 684
//*     SVCMAE   REXX to EDIT   the output of the SVCMAP program    *   FILE 684
//*     SVCMAR   REXX to REVIEW the output of the SVCMAP program    *   FILE 684
//*     SVCMAV   REXX to VIEW   the output of the SVCMAP program    *   FILE 684
//*                                                                 *   FILE 684
//*     TCPU83, TCBU84 U83 and U84 exits for ftp statistics.        *   FILE 684
//*              Crude but they work                                *   FILE 684
//*                                                                 *   FILE 684
//*     Remainder contains necessary macros, related procs,         *   FILE 684
//*     etc.                                                        *   FILE 684
//*                                                                 *   FILE 684
//***FILE 685 is from Pierre Delaunoy and contains a package        *   FILE 685
//*           called TXT2XML, to go from plain text to XML, and     *   FILE 685
//*           also from XML to plain text.                          *   FILE 685
//*                                                                 *   FILE 685
//*          Support email address:                                 *   FILE 685
//*             sunuraxi@users.sourceforge.net                      *   FILE 685
//*                                                                 *   FILE 685
//*          Please submit fix requests                             *   FILE 685
//*          with as much info as possible :-))))                   *   FILE 685
//*                                                                 *   FILE 685
//*          Web site:                                              *   FILE 685
//*          http://sourceforge.net/projects/txt2xml-rexx/          *   FILE 685
//*                                                                 *   FILE 685
//*     Current version:  1.25                                      *   FILE 685
//*                                                                 *   FILE 685
//*     See the change log below:                                   *   FILE 685
//*                                                                 *   FILE 685
//*     TXT2XML                                                     *   FILE 685
//*     =======                                                     *   FILE 685
//*                                                                 *   FILE 685
//*        From TXT (flat files) to XML and vice-versa.             *   FILE 685
//*                                                                 *   FILE 685
//*     1) Introduction                                             *   FILE 685
//*     ---------------                                             *   FILE 685
//*                                                                 *   FILE 685
//*        In 2002, after a XML internet course, I was              *   FILE 685
//*        thoughful. Strange, I thought : XML and COBOL, there     *   FILE 685
//*        are concepts in common. Hierarchy of data, identation    *   FILE 685
//*        for a better visualization, complex entities (in         *   FILE 685
//*        COBOL : group items), ... Wouldn't it be interesting     *   FILE 685
//*        if it was possible to convert data from a flat file      *   FILE 685
//*        to XML one using a COBOL copybook ?                      *   FILE 685
//*                                                                 *   FILE 685
//*        Nobody will stop XML (r)evolution and in my              *   FILE 685
//*        administration, there are plenty of COBOL copybooks      *   FILE 685
//*        and ... flat files So why not ? And in September         *   FILE 685
//*        2002, the first release of TXT2XML was released.         *   FILE 685
//*                                                                 *   FILE 685
//*        "Interesting" say my collegues. But after the            *   FILE 685
//*        migration of all of our programs to the EURO             *   FILE 685
//*        currency, nobody was ready to investigate this           *   FILE 685
//*        technology. There were too much projects that have       *   FILE 685
//*        been delayed ...                                         *   FILE 685
//*                                                                 *   FILE 685
//*        So, TXT2XML was frozen until 2004 when somebody          *   FILE 685
//*        asked me to make conversion in both senses (to and       *   FILE 685
//*        from XML).                                               *   FILE 685
//*                                                                 *   FILE 685
//*     2) Installation                                             *   FILE 685
//*     ---------------                                             *   FILE 685
//*                                                                 *   FILE 685
//*        Very simple :                                            *   FILE 685
//*                                                                 *   FILE 685
//*        a) copy the TXT2XML.PANEL(TXT2XML) to your ISPF          *   FILE 685
//*           panel dataset.                                        *   FILE 685
//*        b) copy the TXT2XML.EXEC(TXT2XML) to your ISPF EXEC      *   FILE 685
//*           or REXX dataset.                                      *   FILE 685
//*        c) copy the TXT2XML.CNTL(TXT2XML) to your JCL            *   FILE 685
//*           DATASET and submit the job. The JCL step names        *   FILE 685
//*           ending with KO should end with a RC = 12 and the      *   FILE 685
//*           JCL step names ending with OK should end with a       *   FILE 685
//*           RC = 0 or 4.                                          *   FILE 685
//*                                                                 *   FILE 685
//*     3) Function / History                                       *   FILE 685
//*     ---------------------                                       *   FILE 685
//*                                                                 *   FILE 685
//*        Function:  Convert a text dataset to of from a XML       *   FILE 685
//*                   one using a COBOL copybook as reference.      *   FILE 685
//*                                                                 *   FILE 685
//*        Invoked from: The ISPF command line (TSO TXT2XML),       *   FILE 685
//*                      another REXX, a batch job.                 *   FILE 685
//*                                                                 *   FILE 685
//*        30/09/02 - Version 0.1                                   *   FILE 685
//*          + start                                                *   FILE 685
//*          + indent XML according to the item level.              *   FILE 685
//*        04/11/02 - Version 0.2                                   *   FILE 685
//*          + handle multi-line cobol item declaration.            *   FILE 685
//*          + ignore line numbers in columns 1-6 & 73-80           *   FILE 685
//*          + ignore level 66, 77, 88 items.                       *   FILE 685
//*          + stop if level is greater than 50.                    *   FILE 685
//*          + stop if level is not numeric.                        *   FILE 685
//*          + stop if some COBOL reserved words are found.         *   FILE 685
//*          + replace 9(4) by 9999 and X(3) by XXX.                *   FILE 685
//*        06/11/02 - Version 0.3                                   *   FILE 685
//*          + handle OCCURS clause for group                       *   FILE 685
//*            and elementary items.                                *   FILE 685
//*        21/11/02 - Version 1.0                                   *   FILE 685
//*          + read line by line instead of reading all  lines.     *   FILE 685
//*          + write line by line instead of writing all lines.     *   FILE 685
//*          + accept any case for COBOL item names.                *   FILE 685
//*        28/06/04 - Version 1.1 RC1                               *   FILE 685
//*          + Bug corrected : VALUES COBOL clauses are now         *   FILE 685
//*            ignored.                                             *   FILE 685
//*          + Make conversion in both senses from XML to           *   FILE 685
//*            TXT and from TXT to XML.                             *   FILE 685
//*          + Renumber cobol levels from 1 by 1 so that            *   FILE 685
//*            identation of XML is independent of absolute         *   FILE 685
//*            COBOL levels.                                        *   FILE 685
//*          + Change input file parameter name to txt and          *   FILE 685
//*            output file parameter name to xml.                   *   FILE 685
//*          + Added a x000 "Records processed" message.            *   FILE 685
//*          + Added a error message if the file transfer           *   FILE 685
//*            of TXT2XML has changed verticals bars                *   FILE 685
//*            (concatenation and OR operator) to |.                *   FILE 685
//*          + Added a report of cobol items: level, name           *   FILE 685
//*            type, start and length .                             *   FILE 685
//*          + During conversion from XML to TXT, check             *   FILE 685
//*            that XML numeric values are really numeric.          *   FILE 685
//*          + Error force termination of the program               *   FILE 685
//*            with return code set to 12.                          *   FILE 685
//*                                                                 *   FILE 685
//*     4) Warnings                                                 *   FILE 685
//*     -----------                                                 *   FILE 685
//*                                                                 *   FILE 685
//*          - You have to parse the XML file with the              *   FILE 685
//*            corresponding DTD, XML schemas.  This REXX will      *   FILE 685
//*            not do any parsing.                                  *   FILE 685
//*          - Attributes of XML elements are ignored.              *   FILE 685
//*          - XML with mixed contents is not supported.            *   FILE 685
//*          - Element content is supposed to be on only one        *   FILE 685
//*            line                                                 *   FILE 685
//*          - Before the conversion from XML to TXT,               *   FILE 685
//*            THE XML INPUT FILE MUST BE "XML WELL-FORMED".        *   FILE 685
//*          - Two ( or more ) dimmension arrays are not            *   FILE 685
//*            supported.                                           *   FILE 685
//*          - level 66, 77, 88 are ignored.                        *   FILE 685
//*          - binary and packed-decimal data are not supported.    *   FILE 685
//*          - Escaping of special characters (< instead of      *   FILE 685
//*            <) is not supported.                                 *   FILE 685
//*          - CDATA is not supported.                              *   FILE 685
//*                                                                 *   FILE 685
//*     5) Todo                                                     *   FILE 685
//*     -------                                                     *   FILE 685
//*                                                                 *   FILE 685
//*          - Support of COBOL binary and packed data ?            *   FILE 685
//*          - Support of attributes of XML elements ?              *   FILE 685
//*          - Support of CDATA                                     *   FILE 685
//*          - Support of escape chars like < for "<"            *   FILE 685
//*          - Support of element content on more than one line     *   FILE 685
//*                                                                 *   FILE 685
//***FILE 686 is an SMFDUMP program which is very useful.  It was   *   FILE 686
//*           distantly derived from an IBM SAMPLIB example which   *   FILE 686
//*           has not been distributed by IBM for a long time.      *   FILE 686
//*                                                                 *   FILE 686
//*           Updated by Warren Whitford to fix the multi-line      *   FILE 686
//*           WTO.                                                  *   FILE 686
//*                                                                 *   FILE 686
//***FILE 687 is from Jose Maria (Chema) Alvarez and contains       *   FILE 687
//*           a package to compare catalogs mentioned in VVDS'es    *   FILE 687
//*           on DASD volumes, and see if they are actually         *   FILE 687
//*           connected to the real catalog in the system.          *   FILE 687
//*                                                                 *   FILE 687
//*           A CLIST and and ISPF skeleton are provided.  The      *   FILE 687
//*           output of the CLIST is a job, which is presented      *   FILE 687
//*           to you in ISPF edit.  Running this job enables you    *   FILE 687
//*           to compare your referenced catalogs in a VVDS to      *   FILE 687
//*           those that are actually connected to the system.      *   FILE 687
//*           Then you can decide if any adjustments are necessary. *   FILE 687
//*                                                                 *   FILE 687
//*           Chema Alvarez / z/OS Sysprog                          *   FILE 687
//*           Caja Cantabria/Santander/Spain                        *   FILE 687
//*           e-mail:  jalvarez@casyc.es                            *   FILE 687
//*                                                                 *   FILE 687
//*  Sample generated job (partial):                                *   FILE 687
//*                                                                 *   FILE 687
//*   //useridD  JOB (P,EXP),MSGCLASS=X,CLASS=A  etc.               *   FILE 687
//*   //PASO1    EXEC PGM=IDCAMS,REGION=3M                          *   FILE 687
//*   //SYSPRINT DD SYSOUT=*                                        *   FILE 687
//*   //C1 DD DSN=CATALOG.OS390.MASTER,DISP=SHR                     *   FILE 687
//*    * * * *                                                      *   FILE 687
//*   //C4 DD DSN=MVSUSER.USERCAT,DISP=SHR                          *   FILE 687
//*    * * * *                                                      *   FILE 687
//*   //V1 DD DSN=SYS1.VVDS.VOS39M1, IN CATALOG.OS390.MASTER        *   FILE 687
//*   //        DISP=SHR,UNIT=SYSDA,VOL=SER=OS39M1                  *   FILE 687
//*    * * * *                                                      *   FILE 687
//*   //V7 DD DSN=SYS1.VVDS.VDATA04, IN MVSUSER.USERCAT             *   FILE 687
//*   //        DISP=SHR,UNIT=SYSDA,VOL=SER=DATA04                  *   FILE 687
//*    * * * *                                                      *   FILE 687
//*   //SYSIN    DD *                                               *   FILE 687
//*    DIAGNOSE ICFCATALOG INFILE(C1) COMPAREDD(V1)                 *   FILE 687
//*    * * * *                                                      *   FILE 687
//*    DIAGNOSE VVDS INFILE(V1) COMPAREDD(C1)                       *   FILE 687
//*    * * * *                                                      *   FILE 687
//*   /*                                                            *   FILE 687
//*                                                                 *   FILE 687
//*  Sample error message:                                          *   FILE 687
//*                                                                 *   FILE 687
//*     DIAGNOSE VVDS INFILE(V7) COMPAREDD(C4)                      *   FILE 687
//*    IDC11367I THE FOLLOWING VVDS REFERENCED CATALOGS             *   FILE 687
//*    WERE NOT ENCOUNTERED:                                        *   FILE 687
//*      MVSRES.MASTER.CATALOG                                      *   FILE 687
//*    IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 4    *   FILE 687
//*                                                                 *   FILE 687
//***FILE 688 is from Larry Altman and contains a slightly          *   FILE 688
//*           modified REXX program from Larry Prestosa, called     *   FILE 688
//*           RCNGNINT.  This program can be used to generate DBRC  *   FILE 688
//*           INIT commands in order to transfer database           *   FILE 688
//*           registration information from one recon to another    *   FILE 688
//*           or to create database registration commands which     *   FILE 688
//*           may have been lost.  It has been used with IMS V6     *   FILE 688
//*           and V7 RECONs.                                        *   FILE 688
//*                                                                 *   FILE 688
//*           A second product has been included here, called       *   FILE 688
//*           ACBLIST, which was authored by Dougie Lawson, and     *   FILE 688
//*           which was included with his permission.               *   FILE 688
//*           (Updated 2009 Apr 22 for IMS v10 and v11 by Dougie    *   FILE 688
//*           Lawson.  And IMS V12.  See members ACBLIST (newest)   *   FILE 688
//*           and ACBLISTO (older) and ACBLISTP (still older).)     *   FILE 688
//*             (Last update:  Jun 14, 2011)                        *   FILE 688
//*                                                                 *   FILE 688
//*     Larry Altman                                                *   FILE 688
//*     email:  larrytheotter@highstream.net                        *   FILE 688
//*                                                                 *   FILE 688
//*   Description of contents of this file:                         *   FILE 688
//*                                                                 *   FILE 688
//*     There are 2 sets of product included here.                  *   FILE 688
//*                                                                 *   FILE 688
//*     1. Rexx exec 'RCNGNINT' and associated members.- no         *   FILE 688
//*        changes at this time.                                    *   FILE 688
//*                                                                 *   FILE 688
//*     2. Assembler program 'ACBLIST' and associated members.      *   FILE 688
//*                                                                 *   FILE 688
//*     The 'DBRCINIT' rexx program, since rename to RCNGNINT,      *   FILE 688
//*     was obtained from an old XEPHON article dated 1996, by      *   FILE 688
//*     Larry Prestosa.  As far as I know, he is the original       *   FILE 688
//*     author of this program.  I have made some small             *   FILE 688
//*     additions to the program, which are in my usual             *   FILE 688
//*     lowercase characters.  I have made no changes to the        *   FILE 688
//*     input record processing, except for:                        *   FILE 688
//*                                                                 *   FILE 688
//*     line 52: /* PARSE VAR INRECORD 3 INRECORD.TYPE 11 */        *   FILE 688
//*     line 53:    inrecord.type=word(inrecord,1)                  *   FILE 688
//*                                                                 *   FILE 688
//*     I have made some additions to the output processing of      *   FILE 688
//*     the program as indicated at the end of the comments         *   FILE 688
//*     section in the program.                                     *   FILE 688
//*                                                                 *   FILE 688
//*     I have included the me() function as an additional          *   FILE 688
//*     member for those who wish to have it as part of the         *   FILE 688
//*     program (line 35).                                          *   FILE 688
//*                                                                 *   FILE 688
//*     By following the instructions provided in the program       *   FILE 688
//*     documentation, I created an IMS DBRC List output            *   FILE 688
//*     dataset from the commands indicated, running against V6     *   FILE 688
//*     recons.                                                     *   FILE 688
//*                                                                 *   FILE 688
//*     I then ran the Rexx program against that file.  It          *   FILE 688
//*     generated an output dataset of INIT.xx statments which      *   FILE 688
//*     I have successfully run into a set of V7 RECONS, which      *   FILE 688
//*     Recons we use in production.                                *   FILE 688
//*                                                                 *   FILE 688
//*     The members provided include:                               *   FILE 688
//*     1. $$DOC             this file                              *   FILE 688
//*     2. INITNOIC          sample output of the exec              *   FILE 688
//*     3. DBRCINIT          the rexx program                       *   FILE 688
//*     4. RCNLSTNG          sample input to the exec, produced     *   FILE 688
//*                          with list.xx                           *   FILE 688
//*     5. ME                the 'me' exec                          *   FILE 688
//*     6. REGSTRDB          sample jcl to register the db          *   FILE 688
//*                          using '.INITNOIC'                      *   FILE 688
//*     7. RUNBATCH          sample jcl to run program in batch     *   FILE 688
//*     8. INITTODO          general readme; instructions for       *   FILE 688
//*                          implementation.                        *   FILE 688
//*                                                                 *   FILE 688
//*     Note: Notify.ic statements are not generated, so image      *   FILE 688
//*           copy information will be lost. (This may or may       *   FILE 688
//*           not be dealt with in the future.)                     *   FILE 688
//*                                                                 *   FILE 688
//*     The assembler program ACBLIST is the work of Dougie         *   FILE 688
//*     Lawson of IBM who has been kind enough to allow me to       *   FILE 688
//*     place this program on the CBT tape.                         *   FILE 688
//*                                                                 *   FILE 688
//*     The members provided include:                               *   FILE 688
//*     1. ACBLIST           the assembler program                  *   FILE 688
//*     2. ACBSYSPR          sample sysprint output from the        *   FILE 688
//*                          program                                *   FILE 688
//*                          (Since this output is FB-133 and       *   FILE 688
//*                          is wider than 80 bytes, it is          *   FILE 688
//*                          presented here in TSO XMIT format.     *   FILE 688
//*                          Two members, ACBSYSP$ and ACBSYSP@,    *   FILE 688
//*                          have been supplied, either of which    *   FILE 688
//*                          will convert this member into its      *   FILE 688
//*                          original format. SBG)                  *   FILE 688
//*     3. ACB               rexx exec to get data for 1 member     *   FILE 688
//*                          w/o the JCL                            *   FILE 688
//*     4. ACBLINK           sample JCL to assemble and link        *   FILE 688
//*                          the program                            *   FILE 688
//*     5. ACBLSTRU          sample JCL to run the program          *   FILE 688
//*     6. PUBDOMAI          permission to be in the public         *   FILE 688
//*                          domain                                 *   FILE 688
//*     7. ACBLTODO          what to do for the ACBLIST utility     *   FILE 688
//*                                                                 *   FILE 688
//*     Larry Altman                                                *   FILE 688
//*     larrytheotter@highstream.net                                *   FILE 688
//*                                                                 *   FILE 688
//***FILE 689 is from Peter Sawyer and contains his (now famous)    *   FILE 689
//*           paper from SHARE in 1989, which documents how SVC 26  *   FILE 689
//*           is used in programming.  SVC 26, which generally      *   FILE 689
//*           includes catalog lookups, LOCATE, SUPERLOCATE, and    *   FILE 689
//*           other things, is VERY SPARSELY documented by IBM.     *   FILE 689
//*           It is very difficult to find real help in programming *   FILE 689
//*           when you want to write a user program which calls     *   FILE 689
//*           SVC 26 directly.  So therefore Peter Sawyer's paper   *   FILE 689
//*           on this subject is very much needed.                  *   FILE 689
//*                                                                 *   FILE 689
//*           Peter has retrieved this document, and has very       *   FILE 689
//*           kindly donated it to the CBT Tape, so now, it can     *   FILE 689
//*           be very accessible to everybody.                      *   FILE 689
//*                                                                 *   FILE 689
//*           email:  Peter_Sawyer@mail.share.org                   *   FILE 689
//*                                                                 *   FILE 689
//*           Please note that the coding examples of the catalog   *   FILE 689
//*           macros have been included in a member of this pds     *   FILE 689
//*           called PRINT, which is in TSO XMIT format.  When      *   FILE 689
//*           you do a RECEIVE of the PRINT member, you will get    *   FILE 689
//*           an FB-133 sequential dataset which has the catalog    *   FILE 689
//*           macros expanded, and the field displacements shown.   *   FILE 689
//*           Alternatively, you can assemble the pds member        *   FILE 689
//*           called CATMAP, using the macro sources which appear   *   FILE 689
//*           in this file's pds.                                   *   FILE 689
//*                                                                 *   FILE 689
//*           The following is an example execution of the TSO      *   FILE 689
//*           RECEIVE command for the PRINT member:                 *   FILE 689
//*                                                                 *   FILE 689
//*             RECEIVE INDS(xxxx.FILE689.PDS(PRINT))               *   FILE 689
//*                                                                 *   FILE 689
//*           When you execute this, you'll get the FB-133          *   FILE 689
//*           sequential file which shows the field displacements   *   FILE 689
//*           in the catalog macros.                                *   FILE 689
//*                                                                 *   FILE 689
//***FILE 690 is from Martin Kline, and contains a cross memory     *   FILE 690
//*           storage browser called XMDSMAIN or MINDRDR.           *   FILE 690
//*                                                                 *   FILE 690
//*           email:  martin_kline@americancentury.com              *   FILE 690
//*                                                                 *   FILE 690
//*     This is the documentation for the cross-memory browser      *   FILE 690
//*     (originally called MINDRDR) from Martin Kline.              *   FILE 690
//*                                                                 *   FILE 690
//*     The source originated in the mid 1980's, so it could        *   FILE 690
//*     possibly use some updates. It was written as a tool to      *   FILE 690
//*     help in the design and implementation of several major      *   FILE 690
//*     applications, including a replacement for TCAM TSO          *   FILE 690
//*     (without VTAM), and a complete report management            *   FILE 690
//*     subsystem.                                                  *   FILE 690
//*                                                                 *   FILE 690
//*     The tool allows a user to browse through any address        *   FILE 690
//*     space from the convenience of their own TSO session.        *   FILE 690
//*     Obviously, this has some security risks, and should         *   FILE 690
//*     only be used by responsible persons. When it was first      *   FILE 690
//*     written, several major security holes were found,           *   FILE 690
//*     including the availability of passwords in various          *   FILE 690
//*     control blocks.  Most of those security holes have          *   FILE 690
//*     since been fixed.                                           *   FILE 690
//*                                                                 *   FILE 690
//*     The XMDSMAIN program checks the logon proc name to see      *   FILE 690
//*     if the user should be allowed to run the program. If        *   FILE 690
//*     not, it simply exits.                                       *   FILE 690
//*                                                                 *   FILE 690
//*     Installation:                                               *   FILE 690
//*                                                                 *   FILE 690
//*     All of the source, JCL and macro members are contained      *   FILE 690
//*     in this PDS.  Determine which load library is to receive    *   FILE 690
//*     the XMDSMAIN module.  Member $$ASM is the JCL to            *   FILE 690
//*     assemble the source members and to build an authorized      *   FILE 690
//*     load module. Add a job card. Change the input and output    *   FILE 690
//*     datasets, and run it.                                       *   FILE 690
//*                                                                 *   FILE 690
//*     Move the resulting load module to an authorized linklist    *   FILE 690
//*     library.  (You really didn't think you could do this        *   FILE 690
//*     without some sort of authorization, did you?)  If you       *   FILE 690
//*     prefer to use a user SVC to change the APF authorization    *   FILE 690
//*     dynamically, then find all of the @AUTH macro references    *   FILE 690
//*     in the source, and change them to call your SVC.            *   FILE 690
//*                                                                 *   FILE 690
//*     Add the XMDSMAIN program to the IKJTSOxx member of          *   FILE 690
//*     SYS1.PARMLIB as an authorized command.                      *   FILE 690
//*                                                                 *   FILE 690
//*     Usage:                                                      *   FILE 690
//*                                                                 *   FILE 690
//*     Invoke the program from anywhere in TSO/ISPF. ISPF is       *   FILE 690
//*     not required.                                               *   FILE 690
//*                                                                 *   FILE 690
//*     Assigned keys are:                                          *   FILE 690
//*                                                                 *   FILE 690
//*       PF1  - Help                                               *   FILE 690
//*       PF3  - End                                                *   FILE 690
//*       PF5  - Repeat find                                        *   FILE 690
//*       PF7  - Scroll backward                                    *   FILE 690
//*       PF8  - Scroll foreward                                    *   FILE 690
//*       PF11 - Pick up address from cursor and show that          *   FILE 690
//*              storage                                            *   FILE 690
//*                                                                 *   FILE 690
//*       FIND command - FIND or F  'string' or x'string'           *   FILE 690
//*                      Searches up to 16 meg of storage           *   FILE 690
//*                      Can take a long time if storage not        *   FILE 690
//*                      allocated.                                 *   FILE 690
//*                                                                 *   FILE 690
//*       LOCATE command - LOCATE or L   block-name                 *   FILE 690
//*                        Locates and displays various control     *   FILE 690
//*                        blocks.                                  *   FILE 690
//*                        Use PF1 to see a list of supported       *   FILE 690
//*                        blocks.                                  *   FILE 690
//*                                                                 *   FILE 690
//*     Fields:                                                     *   FILE 690
//*                                                                 *   FILE 690
//*       ADDRESS   - Current address. Overtype to show a           *   FILE 690
//*                   specific location                             *   FILE 690
//*       MODE      - Addressing mode. D = 24-bit mode,             *   FILE 690
//*                   X = 31-bit mode                               *   FILE 690
//*       ASID      - Decimal ASID of displayed address space.      *   FILE 690
//*                   Overtype to change ASIDs                      *   FILE 690
//*       JOBNAME   - Job name of displayed address space.          *   FILE 690
//*                   Overtype to change.                           *   FILE 690
//*                                                                 *   FILE 690
//*     Displayed storage cannot be altered. Use TAB key to         *   FILE 690
//*     move to a field before pressing PF11 to link to that        *   FILE 690
//*     address.                                                    *   FILE 690
//*                                                                 *   FILE 690
//***FILE 691 is from Martin Kline and contains a program to        *   FILE 691
//*           optimize reads of a few records from a large sorted   *   FILE 691
//*           sequential file.  There are a few other tools here    *   FILE 691
//*           too, relating to SYS1.BRODCAST.                       *   FILE 691
//*                                                                 *   FILE 691
//*           email:  martin_kline@americancentury.com              *   FILE 691
//*                                                                 *   FILE 691
//*     Description of RANDSEQ program:                             *   FILE 691
//*                                                                 *   FILE 691
//*     This subroutine can be called to perform random reads       *   FILE 691
//*     against any sorted sequential disk file. Records can be     *   FILE 691
//*     read by key, in sequence, or in skip-sequential order.      *   FILE 691
//*                                                                 *   FILE 691
//*     The best use of this routine is for improving the run       *   FILE 691
//*     times of jobs which need to access only a few records       *   FILE 691
//*     out of very large files. Since the program logically        *   FILE 691
//*     finds records in the file, it is not as efficient at        *   FILE 691
//*     reading lots of records in sequence as standard QSAM.       *   FILE 691
//*                                                                 *   FILE 691
//*     The program determines all of the multi-volume extents      *   FILE 691
//*     for the file, then determines the key ranges for each       *   FILE 691
//*     extent. It performs a binary search for the requested       *   FILE 691
//*     key. It also keeps a tree structure of keys it has          *   FILE 691
//*     already found, to improve the response as additional        *   FILE 691
//*     records are read.                                           *   FILE 691
//*                                                                 *   FILE 691
//***FILE 692 is from David Merrifield and contains his UATAPE      *   FILE 692
//*           tape mapping, printing, and dumping utility.  This    *   FILE 692
//*           is an extremely useful tool for finding out what is   *   FILE 692
//*           on a tape, and it also copies tapes.                  *   FILE 692
//*                                                                 *   FILE 692
//*              DAVID L. MERRIFIELD                                *   FILE 692
//*              UNIVERSITY OF ARKANSAS                             *   FILE 692
//*              COMPUTING SERVICES                                 *   FILE 692
//*              155 RAZORBACK ROAD                                 *   FILE 692
//*              FAYETTEVILLE, AR 72701                             *   FILE 692
//*              PHONE:  479-575-5829                               *   FILE 692
//*              FAX  :  479-575-4753                               *   FILE 692
//*              email:  dlm@uark.edu                               *   FILE 692
//*                                                                 *   FILE 692
//*       Fixed to handle 64K blocks on a tape.  Old version        *   FILE 692
//*       has also been included as a fallback.  Load library       *   FILE 692
//*       has been included in XMIT format, for convenience. (SBG)  *   FILE 692
//*                                                                 *   FILE 692
//*       Updated by Johan Derr-Haverlach to allow UATAPE to        *   FILE 692
//*       recognize 3490's and 3590's.  Please see member $$NOTE1.  *   FILE 692
//*                                                                 *   FILE 692
//*       email:  Johan.DerrHaverlach@combined.com                  *   FILE 692
//*                                                                 *   FILE 692
//*   PARM FIELD OPTIONS:                                           *   FILE 692
//*                                                                 *   FILE 692
//*       OPTIONS ARE SPECIFIED IN THE PARM= PARAMETER ON THE       *   FILE 692
//*       EXEC STATEMENT.  EACH OPTION SHOULD BE SEPARATED BY A     *   FILE 692
//*       SINGLE COMMA, WITH NO SPACES ALLOWED.  THE LIST OF        *   FILE 692
//*       VALID OPTIONS FOLLOWS:                                    *   FILE 692
//*                                                                 *   FILE 692
//*       LIST     - PRINT LABEL RECORD INFORMATION (DEFAULT)       *   FILE 692
//*       COPY     - COPY SYSUT1 TAPE TO SYSUT2 TAPE                *   FILE 692
//*       DUMP     - PRINT ALL DATA RECORDS IN HEX FORMAT           *   FILE 692
//*       DUMPLAB  - PRINT ALL LABEL RECORDS IN HEX FORMAT          *   FILE 692
//*       DUMPALL  - PRINT ALL LABEL RECORDS AND DATA RECORDS       *   FILE 692
//*                  IN HEXADECIMAL FORMAT                          *   FILE 692
//*       BLOCKS   - PRINT SIZE OF DATA RECORDS                     *   FILE 692
//*       PRINT    - PRINT ALL DATA RECORDS (EBCDIC FORMAT)         *   FILE 692
//*       CRT      - OUTPUT IS FORMATTED FOR 80-COLUMN CRT          *   FILE 692
//*                  SCREEN                                         *   FILE 692
//*       ATOE     - ALL LABELS AND DATA ON SYSUT1 TRANSLATED       *   FILE 692
//*                  FROM ASCII TO EBCDIC                           *   FILE 692
//*       ETOA     - ALL LABELS AND DATA ON SYSUT1 TRANSLATED       *   FILE 692
//*                  FROM EBCDIC TO ASCII                           *   FILE 692
//*       BYPASS   - BYPASSES LABEL CHECKING FOR SYSUT2 TAPE IF     *   FILE 692
//*                  COPY ALSO SPECIFIED                            *   FILE 692
//*       VERBATIM - DOES NOT CHANGE CONTENT OF DATA RECORDS        *   FILE 692
//*                  (E.G., WON'T CHANGE LABEL INFORMATION LIKE     *   FILE 692
//*                  VOLUME SERIAL, DENSITY FIELD, ETC.)            *   FILE 692
//*       DUMPMAX=NNN  - SPECIFY MAXIMUM NUMBER OF BLOCKS TO        *   FILE 692
//*                      DUMP IF DUMP, DUMPLAB, OR DUMPALL IS       *   FILE 692
//*                      ALSO SPECIFIED                             *   FILE 692
//*       PRINTMAX=NNN - SPECIFY MAXIMUM NUMBER OF RECORDS TO       *   FILE 692
//*                      PRINT IF PRINT SPECIFIED                   *   FILE 692
//*       MAXFILES=NNN - SPECIFY MAXIMUM NUMBER OF FILES ON         *   FILE 692
//*                      TAPE TO TO PROCESS                         *   FILE 692
//*       LTM      - IGNORE ANY LEADING TAPE MARKS ON THE           *   FILE 692
//*                  SYSUT1 TAPE                                    *   FILE 692
//*       SKIPLAB  - SKIP WRITING ANY LABELS ON THE SYSUT2 TAPE     *   FILE 692
//*                  WHILE COPYING IF COPY IS ALSO SPECIFIED.       *   FILE 692
//*                  IN EFFECT, SYSUT2 TAPE WILL BE A               *   FILE 692
//*                  NON-LABELED TAPE AFTERWARDS                    *   FILE 692
//*       SKIPBAD  - SKIP OVER ANY BLOCKS OF DATA ON INPUT TAPE     *   FILE 692
//*                  THAT CAUSE PERMANENT I/O ERRORS IN AN          *   FILE 692
//*                  EFFORT TO RECOVER ANY DATA THAT FOLLOWS THE    *   FILE 692
//*                  BAD BLOCK(S).  (RECOMMEND USE WITH SKIPLAB     *   FILE 692
//*                  AND COPY OPTIONS TO BUILD A NON-LABELED        *   FILE 692
//*                  TAPE CONTAINING ONLY THE READABLE BLOCKS OF    *   FILE 692
//*                  THE BAD TAPE.)                                 *   FILE 692
//*                                                                 *   FILE 692
//***FILE 693 is from Terry K. Miller and Richard L. Rice, and      *   FILE 693
//*           contains a modernized version of the PDSCLEAN program *   FILE 693
//*           from CBT Tape File 040.  This version of PDSCLEAN     *   FILE 693
//*           can be used to empty either a PDS or a PDS/E of all   *   FILE 693
//*           its members, and it can also be used to expand the    *   FILE 693
//*           number of directory blocks in a PDS, and it can be    *   FILE 693
//*           used to compress a PDS dataset.                       *   FILE 693
//*                                                                 *   FILE 693
//*           Various help members and three REXX execs to invoke   *   FILE 693
//*           the PDSCLEAN program in the foreground, are included, *   FILE 693
//*           as well as sample JCL to run PDSCLEAN in the          *   FILE 693
//*           background.                                           *   FILE 693
//*                                                                 *   FILE 693
//*           email:  tkmille@conocophillips.com                    *   FILE 693
//*                                                                 *   FILE 693
//*           Last Revision: 06/09/2010 V01.01.09                   *   FILE 693
//*                                                                 *   FILE 693
//*> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * <*   FILE 693
//*                                                                 *   FILE 693
//*                     Important note  !!!!                        *   FILE 693
//*                     --------- ----  ----                        *   FILE 693
//*                                                                 *   FILE 693
//*  ==> Program PDSCLEAN must be linked with AC=1 and must reside  *   FILE 693
//*  ==> in an APF-Authorized Library or program PDSCLEAN will      *   FILE 693
//*  ==> terminate with a Condition Code 016.                       *   FILE 693
//*  ==>                                                            *   FILE 693
//*  ==> Program PDSCLEAN should also reside in the IKJTSO00 member *   FILE 693
//*  ==> in the AUTHPGM Section to Authorize its being called in    *   FILE 693
//*  ==> Rexx Execs ALTERDIR, COMPRESS, and ZERODIR. Otherwise,     *   FILE 693
//*  ==> Program PDSCLEAN will terminate with a Condition Code 016. *   FILE 693
//*                                                                 *   FILE 693
//*> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * <*   FILE 693
//*                                                                 *   FILE 693
//*     This PDS contains source and documentation for the          *   FILE 693
//*     'PDSCLEAN' program.                                         *   FILE 693
//*                                                                 *   FILE 693
//*     This 'PDSCLEAN' program was picked up and improved from     *   FILE 693
//*     CBT FILE 040 (PEOPLES NATIONAL BANK of WASHINGTON) and      *   FILE 693
//*     improved (I hope) by TERRY MILLER and RICHARD RICE at       *   FILE 693
//*     ConocoPhillips.  The WTOS were changed to a SYSPRINT        *   FILE 693
//*     report and code was added to empty PDS/E'S and to use       *   FILE 693
//*     IEBCOPY to UNLOAD and RELOAD members of a PDS when          *   FILE 693
//*     altering the number of directory blocks (ALTERDIR Function).*   FILE 693
//*                                                                 *   FILE 693
//*     The 'PDSCLEAN' module should reside in an APF-Authorized    *   FILE 693
//*     library, and it should be linkedited with SETCODE AC(1).    *   FILE 693
//*     This is so that IEBCOPY can be called in an APF authorized  *   FILE 693
//*     state, which is very critical, as indicated above.          *   FILE 693
//*                                                                 *   FILE 693
//*     For more documentation on program 'PDSCLEAN', see           *   FILE 693
//*     member 'HELPPDS' included in this pds.                      *   FILE 693
//*                                                                 *   FILE 693
//*     For a Change Log, review member 'CHANGES' included in this  *   FILE 693
//*     pds.                                                        *   FILE 693
//*                                                                 *   FILE 693
//*     Please report any bugs to Terry Miller at                   *   FILE 693
//*     tkmille@conocophillips.com                                  *   FILE 693
//*                                                                 *   FILE 693
//*          PDSCLEAN - SOURCE MEMBER FOR PROGRAM 'PDSCLEAN'.       *   FILE 693
//*                     CLEANS OUT A PDS WITHOUT REQUIRING A        *   FILE 693
//*                     DELETE/DEFINE.  WORKS WITH BOTH PDS         *   FILE 693
//*                     FILES AND PDS/E FILES.  ALSO, THE NUMBER    *   FILE 693
//*                     OF DIRECTORY BLOCKS CAN BE CHANGED FOR      *   FILE 693
//*                     PDS FILES. CAN BE EXECUTED IN TSO           *   FILE 693
//*                     FOREGROUND AS WELL (SEE ALTERDIR AND        *   FILE 693
//*                     ZERODIR BELOW).  THIS PROGRAM MUST BE       *   FILE 693
//*                     ASSEMBLED WITH THE HIGH-LEVEL ASSEMBLER     *   FILE 693
//*                     DUE TO THE LENGTH OF THE DATA FIELDS.       *   FILE 693
//*                                                                 *   FILE 693
//*                     THIS PROGRAM SHOULD BE LINKLISTED AND       *   FILE 693
//*                     APF-AUTHORIZED AND LINKEDITED USING         *   FILE 693
//*                     SETCODE AC(1).                              *   FILE 693
//*                                                                 *   FILE 693
//*          ALTERDIR - REXX EXEC TO ALTER THE NUMBER OF PDS        *   FILE 693
//*                     DIRECTORIES FOR A PDS FILE. CALLS           *   FILE 693
//*                     PROGRAM 'PDSCLEAN' TO PERFORM THE TASK.     *   FILE 693
//*                     THIS EXEC ASSUMES THAT PROGRAM 'PDSCLEAN'   *   FILE 693
//*                     RESIDES IN THE LINKLIST.                    *   FILE 693
//*                                                                 *   FILE 693
//*          CHANGES  - CHANGE LOG SHOWING THE CHANGES APPLIED ON   *   FILE 693
//*                     EACH VERSION LEVEL.                         *   FILE 693
//*                                                                 *   FILE 693
//*          COMPRESS - REXX EXEC TO COMPRESS A PDS OR A PDS/E.     *   FILE 693
//*                     CALLS PROGRAM 'PDSCLEAN' TO PERFORM THE     *   FILE 693
//*                     COMPRESS TASK.  THIS EXEC ASSUMES THAT      *   FILE 693
//*                     PROGRAM 'PDSCLEAN' RESIDES IN THE LINKLIST. *   FILE 693
//*                                                                 *   FILE 693
//*          ZERODIR  - REXX EXEC TO EMPTY THE DIRECTORY FOR PDS    *   FILE 693
//*                     FILES AND PDS/E FILES.  CALLS PROGRAM       *   FILE 693
//*                     'PDSCLEAN' TO PERFORM THE TASK.  THIS       *   FILE 693
//*                     EXEC ASSUMES THAT PROGRAM 'PDSCLEAN'        *   FILE 693
//*                     RESIDES IN THE LINKLIST.                    *   FILE 693
//*                                                                 *   FILE 693
//*          PROC     - PDSCLEAN BATCH PROCEDURE (PROC).            *   FILE 693
//*                                                                 *   FILE 693
//*          HELPALT  - HELP SCREEN FOR THE 'ALTERDIR' EXEC         *   FILE 693
//*                                                                 *   FILE 693
//*          HELPCOM  - HELP SCREEN FOR THE 'COMPRES'  EXEC         *   FILE 693
//*                                                                 *   FILE 693
//*          HELPPDS  - HELP DOCUMENTATION FOR PROGRAM 'PDSCLEAN'.  *   FILE 693
//*                                                                 *   FILE 693
//*          HELPZER  - HELP SCREEN FOR THE 'ZERODIR'  EXEC         *   FILE 693
//*                                                                 *   FILE 693
//*                                                                 *   FILE 693
//*                                                                 *   FILE 693
//*  CERTIFICATION                                                  *   FILE 693
//*  -------------                                                  *   FILE 693
//*                                                                 *   FILE 693
//*  BATCH:                                                         *   FILE 693
//*                                                                 *   FILE 693
//*    THESE UTILITIES HAVE BEEN RUN IN A Z/OS ENVIRONMENT.         *   FILE 693
//*    THE SOURCE CODE FOR "PDSCLEAN" MUST BE ASSEMBLED WITH THE    *   FILE 693
//*    HIGH-LEVEL ASSEMBLER.                                        *   FILE 693
//*                                                                 *   FILE 693
//*    THE 'PDSCLEAN' MODULE MUST RESIDE IN AN APF-AUTHORIZED       *   FILE 693
//*    LIBRARY.                                                     *   FILE 693
//*                                                                 *   FILE 693
//*  TSO REXX EXECS (ALTERDIR, COMPRESS, ZERODIR):                  *   FILE 693
//*                                                                 *   FILE 693
//*    THE REXX EXECS INCLUDED ASSUME THE THE 'PDSCLEAN' MODULE     *   FILE 693
//*    RESIDES IN A LINKLISTED LIBRARY.                             *   FILE 693
//*                                                                 *   FILE 693
//*    AN IKJTSO00 ENTRY FOR 'PDSCLEAN' SHOULD ALSO RESIDE IN THE   *   FILE 693
//*    MVS PARMLIB MEMBER UNDER THE 'AUTHPGM' SECTION OR EQUIVALENT *   FILE 693
//*    AUTHORIZATION) TO AUTHORIZE IT (PROGRAM PDSCLEAN) TO BE      *   FILE 693
//*    CALLED FROM THE TSO/E ENVIRONMENT.                           *   FILE 693
//*                                                                 *   FILE 693
//*    THE 'PDSCLEAN' MODULE MUST RESIDE IN AN APF-AUTHORIZED       *   FILE 693
//*    LIBRARY.                                                     *   FILE 693
//*                                                                 *   FILE 693
//***FILE 694 is from Mark Yuhas and contains a macro called        *   FILE 694
//*           MACTREE that will help you do a binary search         *   FILE 694
//*           through a table of values.  A two-part article        *   FILE 694
//*           that explains the thinking behind this macro, has     *   FILE 694
//*           been included, through the courtesy of Technical      *   FILE 694
//*           Support magazine.                                     *   FILE 694
//*                                                                 *   FILE 694
//*           email:  Mark.Yuhas@PACCAR.com                         *   FILE 694
//*                                                                 *   FILE 694
//***FILE 695 is from J.D. Acevedo and contains some very useful    *   FILE 695
//*           REXX execs, together with associated panels.          *   FILE 695
//*                                                                 *   FILE 695
//*           email:  j_d_a@eresmas.com                             *   FILE 695
//*                                                                 *   FILE 695
//*       Description of contents:                                  *   FILE 695
//*                                                                 *   FILE 695
//*       $$README  License and author information                  *   FILE 695
//*       $INDEX    What you are reading right now                  *   FILE 695
//*       $CHANGES  Changes History                                 *   FILE 695
//*       $INSTALL  Install Information                             *   FILE 695
//*       ACEEBMS   View BMS in TSO                                 *   FILE 695
//*       ACEEFRC   ForeGround Rexx Compilation                     *   FILE 695
//*       ACEEFRC   ForeGround Rexx Testing                         *   FILE 695
//*       ACEEMON   Monitor Utility                                 *   FILE 695
//*       ACEEUSR   User Data from RACF Data Areas                  *   FILE 695
//*       ACEESCD   SqlCode Description (DSNTIAR)                   *   FILE 695
//*       ACEEVAR   Just display System Variables:                  *   FILE 695
//*                 SYSVAR MVSVAR ISPF CUA                          *   FILE 695
//*       ACEPBMS   Dynamic Panel of 80x24                          *   FILE 695
//*       ACEPMON   Monitor Panel of  1x40                          *   FILE 695
//*                                                                 *   FILE 695
//***FILE 696 is from John McKown and contains a system to          *   FILE 696
//*           implement the z/OS tape robot for FLEX-ES.            *   FILE 696
//*                                                                 *   FILE 696
//*           This system runs partially on MVS and partially       *   FILE 696
//*           on Linux.  The Linux part is in TSO XMIT format       *   FILE 696
//*           as member TARFILE, and it has to be RECEIVEd on       *   FILE 696
//*           MVS and FTP'ed to the Linux system and un-TARed       *   FILE 696
//*           there.                                                *   FILE 696
//*                                                                 *   FILE 696
//*           See member $DOC for detailed installation             *   FILE 696
//*           instructions and information.                         *   FILE 696
//*                                                                 *   FILE 696
//*       email:  "McKown, John" <john.archie.mckown@GMAIL.com>     *   FILE 696
//*                                                                 *   FILE 696
//***FILE 697 is from John McKown and contains a system which       *   FILE 697
//*           does reporting for CICS Transaction Server 1.3        *   FILE 697
//*           on Linux, using Perl and PostgreSQL.                  *   FILE 697
//*                                                                 *   FILE 697
//*           This system runs partially on MVS and partially       *   FILE 697
//*           on Linux.  The Linux part is in TSO XMIT format       *   FILE 697
//*           as member TARFILE, and it has to be RECEIVEd on       *   FILE 697
//*           MVS and FTP'ed to the Linux system and un-TARed       *   FILE 697
//*           there.                                                *   FILE 697
//*                                                                 *   FILE 697
//*           See member $DOC for detailed installation             *   FILE 697
//*           instructions and information.                         *   FILE 697
//*                                                                 *   FILE 697
//*       email:  "McKown, John" <john.archie.mckown@GMAIL.com>     *   FILE 697
//*                                                                 *   FILE 697
//*     This PDS contains documentation and JCL to install code     *   FILE 697
//*     on a system running Perl and PostgreSQL. This code          *   FILE 697
//*     emulates the DB2 code supplied by IBM with                  *   FILE 697
//*     CICS/Transaction server 1.3.                                *   FILE 697
//*                                                                 *   FILE 697
//*     This documentation assumes that you or your are familar     *   FILE 697
//*     with:                                                       *   FILE 697
//*                                                                 *   FILE 697
//*         z/OS                                                    *   FILE 697
//*         CICS/Transaction Server 1.3.                            *   FILE 697
//*         Linux                                                   *   FILE 697
//*         Perl on Linux                                           *   FILE 697
//*         PostgreSQL on Linux                                     *   FILE 697
//*         How to do SQL queries (at the psql prompt               *   FILE 697
//*           and/or in Perl)                                       *   FILE 697
//*                                                                 *   FILE 697
//***FILE 698 is from John McKown and contains a system to do       *   FILE 698
//*           RACF reporting for a z/OS system, on Linux, using     *   FILE 698
//*           Perl and PostgreSQL.  This package emulates DB2       *   FILE 698
//*           code which is supplied by IBM, but it does the        *   FILE 698
//*           reporting on the underlying Linux system if you       *   FILE 698
//*           are running z/OS on a FLEX-ES box.                    *   FILE 698
//*                                                                 *   FILE 698
//*           This system runs partially on MVS and partially       *   FILE 698
//*           on Linux.  The Linux part is in TSO XMIT format       *   FILE 698
//*           as member TARFILE, and it has to be RECEIVEd on       *   FILE 698
//*           MVS and FTP'ed to the Linux system and un-TARed       *   FILE 698
//*           there.                                                *   FILE 698
//*                                                                 *   FILE 698
//*           See member $DOC for detailed installation             *   FILE 698
//*           instructions and information.                         *   FILE 698
//*                                                                 *   FILE 698
//*       email:  "McKown, John" <john.archie.mckown@GMAIL.com>     *   FILE 698
//*                                                                 *   FILE 698
//*     This PDS contains documentation and JCL to install code     *   FILE 698
//*     on a Linux system running Perl and PostgreSQL.  This code   *   FILE 698
//*     emulates the DB2 code supplied by IBM with z/OS.            *   FILE 698
//*                                                                 *   FILE 698
//*     This documentation assumes that you are familar with:       *   FILE 698
//*                                                                 *   FILE 698
//*         z/OS                                                    *   FILE 698
//*         RACF on z/OS                                            *   FILE 698
//*         Linux                                                   *   FILE 698
//*         Perl on Linux                                           *   FILE 698
//*         PostgreSQL on Linux                                     *   FILE 698
//*         How to do SQL queries (at the psql prompt               *   FILE 698
//*           and/or in Perl)                                       *   FILE 698
//*                                                                 *   FILE 698
//*     This documentation does not attempt to teach you about      *   FILE 698
//*     these.                                                      *   FILE 698
//*                                                                 *   FILE 698
//*     In particular, this PDS contains the following members:     *   FILE 698
//*                                                                 *   FILE 698
//*     1. $DOC     - This member, which contains the basic         *   FILE 698
//*                   documentation                                 *   FILE 698
//*     2. HASX20B  - This member is a JES2 exit which puts a       *   FILE 698
//*                   value in the JCTUSEID field of the $JCT.      *   FILE 698
//*                   This is then placed in all of the SMF         *   FILE 698
//*                   records generated by this job, in the         *   FILE 698
//*                   SMFnUIF field.                                *   FILE 698
//*     3. IRRADU00 - This member is example JCL to create the      *   FILE 698
//*                   RACF activity records to be sent to your      *   FILE 698
//*                   Linux system.                                 *   FILE 698
//*     4. IRRDBU00 - This member is example JCL to create the      *   FILE 698
//*                   RACF database unload dataset to be sent       *   FILE 698
//*                   to your Linux system.                         *   FILE 698
//*     5. RECEIVE  - The basic JCL to create the file which is     *   FILE 698
//*                   to be ftp'ed to the Linux system and then     *   FILE 698
//*                   ftp that file to the Linux system.            *   FILE 698
//*                   This member must be customized as             *   FILE 698
//*                   described therein.                            *   FILE 698
//*     6. TARFILE  - This member contains the output of an XMIT    *   FILE 698
//*                   command.  This member must be RECEIVE'd       *   FILE 698
//*                   (see RECEIVE member) in order to create a     *   FILE 698
//*                   sequential file. This sequential file must    *   FILE 698
//*                   then be binary ftp'ed to the Linux system     *   FILE 698
//*                   upon which the system will run. This          *   FILE 698
//*                   sequential file is the output from a tar      *   FILE 698
//*                   command, run on Linux, which was binary       *   FILE 698
//*                   ftp'ed to a z/OS system. Don't bother         *   FILE 698
//*                   trying to read it, it looks like binary       *   FILE 698
//*                   junk.                                         *   FILE 698
//*                                                                 *   FILE 698
//***FILE 699 is from Alex Brodsky and contains an edit macro       *   FILE 699
//*           written in Assembler to submit the jobstream being    *   FILE 699
//*           edited under ISPF, into the Internal Reader.          *   FILE 699
//*                                                                 *   FILE 699
//*     This is the XS macro which will submit the member being     *   FILE 699
//*      edited to JES2 internal reader for processing.             *   FILE 699
//*                                                                 *   FILE 699
//*     The "NX" operand on the command line will cause the XS      *   FILE 699
//*      to honor the excluded lines status and only submit         *   FILE 699
//*      non-excluded lines.                                        *   FILE 699
//*                                                                 *   FILE 699
//*           email:  lbaaxb@verizon.net                            *   FILE 699
//*                                                                 *   FILE 699
//***FILE 700 is from Jim Haire and contains some very useful       *   FILE 700
//*           REXX execs.                                           *   FILE 700
//*                                                                 *   FILE 700
//*           email:  James.Haire@target.com                        *   FILE 700
//*                                                                 *   FILE 700
//*     Documentation of the execs:                                 *   FILE 700
//*                                                                 *   FILE 700
//*     The components I sent are easily installed.  Just put       *   FILE 700
//*     them in a dataset allocated to SYSEXEC and they should      *   FILE 700
//*     work.                                                       *   FILE 700
//*                                                                 *   FILE 700
//*     3 of the components are subroutines used by the main        *   FILE 700
//*     commands:                                                   *   FILE 700
//*                                                                 *   FILE 700
//*          @CURSOR  - Subroutine which returns information        *   FILE 700
//*                     about the location of the cursor.           *   FILE 700
//*          @DATA    - Returns the data on the line the cursor     *   FILE 700
//*                     is on.                                      *   FILE 700
//*          @CONVERT - Performs numeric conversion within the      *   FILE 700
//*                     SUM command.                                *   FILE 700
//*                                                                 *   FILE 700
//*     The commands are as follows:                                *   FILE 700
//*                                                                 *   FILE 700
//*     SNIP -     Use this command to cut a piece of code          *   FILE 700
//*                without cutting the whole line.  Goes over       *   FILE 700
//*                multiple screens.  Best used when the            *   FILE 700
//*                command is put behind a PF KEY.                  *   FILE 700
//*                                                                 *   FILE 700
//*                In EDIT or VIEW mode, place your cursor at       *   FILE 700
//*                the upper leftmost part of the code you want     *   FILE 700
//*                to cut out within your dataset.   Press your     *   FILE 700
//*                "SNIP" key.  Next place your cursor at the       *   FILE 700
//*                lower rightmost corner of the data you want      *   FILE 700
//*                to cut.  Press the "SNIP" key again.  You        *   FILE 700
//*                have just cut that section of code to your       *   FILE 700
//*                profile.                                         *   FILE 700
//*                                                                 *   FILE 700
//*                If you continue to use the SNIP command, the     *   FILE 700
//*                data will be appended to the end of your         *   FILE 700
//*                profile.                                         *   FILE 700
//*                                                                 *   FILE 700
//*     SNIPSHOT - This gives you a "snapshot" of the data you      *   FILE 700
//*                have just snipped.                               *   FILE 700
//*                                                                 *   FILE 700
//*                Type "SNIPSHOT" on the command line to see       *   FILE 700
//*                what you snipped.  You also have the ability     *   FILE 700
//*                to clear your profile at this time if you        *   FILE 700
//*                like.                                            *   FILE 700
//*                                                                 *   FILE 700
//*     GLUE     - This will paste the contents of the profile      *   FILE 700
//*                to wherever you have placed your cursor.         *   FILE 700
//*                                                                 *   FILE 700
//*                Type "GLUE" and place your cursor where you      *   FILE 700
//*                want the data in the profile to appear.          *   FILE 700
//*                This could overlay the data which is already     *   FILE 700
//*                there.  You can use the (B)efore and (A)fter     *   FILE 700
//*                commands to insert lines before or after the     *   FILE 700
//*                line the cursor is on.                           *   FILE 700
//*                                                                 *   FILE 700
//*                The GLUE command will remove the data from       *   FILE 700
//*                the profile.  You can type "GLUE KEEP" to        *   FILE 700
//*                keep the data in the profile after the GLUE      *   FILE 700
//*                command has been completed.                      *   FILE 700
//*                                                                 *   FILE 700
//*     PICK     - Like the SNIP command, except it cuts out the    *   FILE 700
//*                data the cursor is on, delimited by spaces.      *   FILE 700
//*                Only need to execute the PICK command once to    *   FILE 700
//*                cut out the data.                                *   FILE 700
//*                                                                 *   FILE 700
//*     STAG     - Short for STAGGER.  Lets you GLUE one line       *   FILE 700
//*                at a time out of the profile.                    *   FILE 700
//*                                                                 *   FILE 700
//*                The line is removed after it is GLUEd.           *   FILE 700
//*                                                                 *   FILE 700
//*     SUM      - If you have placed numbers in your profile       *   FILE 700
//*                through the SNIP or PICK commands, you can       *   FILE 700
//*                sum these numbers without having to use a        *   FILE 700
//*                calculator.                                      *   FILE 700
//*                                                                 *   FILE 700
//*     ERASPROF - Erases the contents of the profile.              *   FILE 700
//*                                                                 *   FILE 700
//*     There are explanations in the comments of the programs      *   FILE 700
//*     themselves which give options for using the commands        *   FILE 700
//*                                                                 *   FILE 700
//***FILE 701 is from Marino Drazeta and contains materials which   *   FILE 701
//*           are useful for a DB2 system administrator.            *   FILE 701
//*                                                                 *   FILE 701
//*           Marino Drazeta                                        *   FILE 701
//*           FINA Company                                          *   FILE 701
//*           Put Republike 24A                                     *   FILE 701
//*           Dubrovnik, 20000                                      *   FILE 701
//*           CROATIA                                               *   FILE 701
//*                                                                 *   FILE 701
//*           email:  marino.drazeta@fina.hr                        *   FILE 701
//*                                                                 *   FILE 701
//*     The dataset contributed contains 3 applications which       *   FILE 701
//*     could be useful for a DB2/system admin.  The concept is     *   FILE 701
//*     the same for all of them.  A batch job calls some REXX      *   FILE 701
//*     execs in order to fulfill a task desired.  The jobs and     *   FILE 701
//*     execs are commented inside the code.  There is also a       *   FILE 701
//*     README member included.                                     *   FILE 701
//*                                                                 *   FILE 701
//*     Applications:                                               *   FILE 701
//*                                                                 *   FILE 701
//*     1.  - DROP/CREATE FOREIGN KEYS DDL STATEMENTS CREATION      *   FILE 701
//*                                                                 *   FILE 701
//*     2.  - USING BATCH JOB FOR A SYSTEM COMMANDS EXECUTION       *   FILE 701
//*                                                                 *   FILE 701
//*     3.  - USING BATCH JOB FOR DB2 DRDA THREADS TERMINATION      *   FILE 701
//*                                                                 *   FILE 701
//***FILE 702 is from Stephen McColley and contains JES2 usermods   *   FILE 702
//*           at both the z/OS 1.6 and z/OS 1.4 levels, These       *   FILE 702
//*           usermods may be considered replacements for the old   *   FILE 702
//*           Mellon Bank mods to JES2.                             *   FILE 702
//*                                                                 *   FILE 702
//*           The principal maintainer of the Mellon Mods           *   FILE 702
//*           is Stephen McColley.                                  *   FILE 702
//*                                                                 *   FILE 702
//*           McColley Systems Group Inc.                           *   FILE 702
//*           sgmccolley@windstream.net                             *   FILE 702
//*           SGMcColley@MVSProgrammer.com                          *   FILE 702
//*           http://WWW.MVSProgrammer.com                          *   FILE 702
//*           770-335-0478                                          *   FILE 702
//*                                                                 *   FILE 702
//*   For compatibility issues, please see the member $$NOTE0       *   FILE 702
//*   which was written by Stephen McColley.                        *   FILE 702
//*                                                                 *   FILE 702
//*   Please see member $$$$PKG describing the packaging of this    *   FILE 702
//*   pds first, before attempting to install either the z/OS 1.6   *   FILE 702
//*   or z/OS 1.4 versions of the SunTrust JES2 mods.               *   FILE 702
//*                                                                 *   FILE 702
//*   The z/OS 1.6 installation pds can be created by customizing   *   FILE 702
//*   and running job $PDSLO16 which is included in this pds.       *   FILE 702
//*                                                                 *   FILE 702
//*   The z/OS 1.4 installation pds can be created by customizing   *   FILE 702
//*   and running job $PDSLO14 which is included in this pds.       *   FILE 702
//*                                                                 *   FILE 702
//*   Description of the JES2 Usermods (from the z/OS 1.6 version)  *   FILE 702
//*                                                                 *   FILE 702
//*       ALL OF OUR USERMODS ARE IN MVS.OSMAINT.USERMODS ON        *   FILE 702
//*       THE TECPLEX.                                              *   FILE 702
//*                                                                 *   FILE 702
//*       Each usermod(LSES5**) member has a corresponding          *   FILE 702
//*       member suffixed with a "J".  The members with the "J"     *   FILE 702
//*       suffixes are sample jcl install members.                  *   FILE 702
//*                                                                 *   FILE 702
//*       FOR JES2 WE HAVE THE FOLLOWING usermods - These are       *   FILE 702
//*       ALL of our JES2 mods.  Most folks who are interested      *   FILE 702
//*       in only using the Mellon Mods should refer to the         *   FILE 702
//*       next section, entitled -                                  *   FILE 702
//*                                                                 *   FILE 702
//*       " THE FOLLOWING CAN BE CONSIDERED MELLON MOD              *   FILE 702
//*       REPLACEMENTS "                                            *   FILE 702
//*                                                                 *   FILE 702
//*     All of our JES2 usermods:                                   *   FILE 702
//*                                                                 *   FILE 702
//*   MOD NAME   IMPLEMENTED     LMOD NAME   DESCRIPTION            *   FILE 702
//*   LSES500   ZOS6-09/01/2005  STJTABS  - CREATES OUR EXTENSIONS  *   FILE 702
//*                                         TO JQE AND JCT          *   FILE 702
//*   LSES502   ZOS6-09/01/2005  STSCX01A - JES2 EXIT1 - BANNER     *   FILE 702
//*                                         PAGE EXIT (NON 3800)    *   FILE 702
//*   LSES503   ZOS6-09/01/2005  STSCX04A - parses /*ROUTE cards    *   FILE 702
//*   LSES504   ZOS6-09/01/2005  STSCX04B - PARSES                  *   FILE 702
//*                                         /*BEFORE/*AFTER/*WITH   *   FILE 702
//*                                         AND /*CNTL              *   FILE 702
//*   LSES505   ZOS6-09/01/2005  STSCX05A - PROCESS $REPEXIT AND    *   FILE 702
//*                                         $ADDEXIT COMMANDS       *   FILE 702
//*   LSES506   ZOS6-09/01/2005  STSCX05B - prevents purging jobs   *   FILE 702
//*                                         by range                *   FILE 702
//*   LSES507   ZOS6-09/01/2005  STSCX06A - MOVES VALID XEQ VALUES  *   FILE 702
//*                                         TO SCHENV VALUES        *   FILE 702
//*   LSES509   ZOS6-09/01/2005  STSCX15A - FORCES FCB LOAD UNLESS  *   FILE 702
//*                                         CHANGING STD FORMS      *   FILE 702
//*   LSES510   ZOS6-09/01/2005  STSCX20A - END OF INPUT - MOVE     *   FILE 702
//*                                         JCT INFO TO JQE         *   FILE 702
//*   LSES511   ZOS6-09/01/2005  STSCX36A - SAF process of RJE      *   FILE 702
//*                                         submitted jobs          *   FILE 702
//*   LSES512   ZOS6-09/01/2005  STSCX49A - IMPLEMENT               *   FILE 702
//*                                         BEFORE|AFTER|WITH|CNTL  *   FILE 702
//*                                         USAGE                   *   FILE 702
//*   LSES513   ZOS6-09/01/2005  STSCX100 - FCB SETUP /             *   FILE 702
//*                                         TRANSLATION USER        *   FILE 702
//*                                         EXIT100                 *   FILE 702
//*   LSES514   ZOS6-09/01/2005  HASPPRPU - INSERT USER EXIT100     *   FILE 702
//*                                         INTO HASPPRPU CODE      *   FILE 702
//*   -------- ---------------   -------------------------------    *   FILE 702
//*                                                                 *   FILE 702
//*      ***********                                                *   FILE 702
//*                                                                 *   FILE 702
//*     OF THESE MODS, THE FOLLOWING CAN BE                         *   FILE 702
//*     CONSIDERED MELLON MOD REPLACEMENTS                          *   FILE 702
//*                                                                 *   FILE 702
//*      ***********                                                *   FILE 702
//*                                                                 *   FILE 702
//*   MOD NAME   IMPLEMENTED     LMOD NAME   DESCRIPTION            *   FILE 702
//*   LSES500   ZOS6-09/01/2005  STJTABS  - CREATES OUR EXTENSIONS  *   FILE 702
//*                                         TO JQE AND JCT          *   FILE 702
//*   LSES503   zOS6-09/01/2005  STSCX04A - parses /*ROUTE cards    *   FILE 702
//*   LSES504   ZOS6-09/01/2005  STSCX04B - PARSES                  *   FILE 702
//*                                         /*BEFORE/*AFTER/*WITH   *   FILE 702
//*                                         AND /*CNTL              *   FILE 702
//*   LSES507   ZOS6-09/01/2005  STSCX06A - MOVES VALID XEQ VALUES  *   FILE 702
//*                                         TO SCHENV VALUES        *   FILE 702
//*   LSES510   ZOS6-09/01/2005  STSCX20A - END OF INPUT - MOVE     *   FILE 702
//*                                         JCT INFO TO JQE         *   FILE 702
//*   LSES512   ZOS6-09/01/2005  STSCX49A - IMPLEMENT               *   FILE 702
//*                                         BEFORE|AFTER|WITH|CNTL  *   FILE 702
//*                                         USAGE                   *   FILE 702
//*                                                                 *   FILE 702
//*      ***********                                                *   FILE 702
//*                                                                 *   FILE 702
//*      The installation instructions for the Mellon MODs          *   FILE 702
//*      only, can be found in member DOCINS.                       *   FILE 702
//*                                                                 *   FILE 702
//*      The overview documentation for the mellon mods is in       *   FILE 702
//*      member DOCOVW.                                             *   FILE 702
//*                                                                 *   FILE 702
//*      The user documentation for the mellon mods is in           *   FILE 702
//*      member DOCUSR.                                             *   FILE 702
//*                                                                 *   FILE 702
//*      ***********                                                *   FILE 702
//*                                                                 *   FILE 702
//*         * * * PLEASE NOTE ! * * *                               *   FILE 702
//*                                                                 *   FILE 702
//*        SPECIAL THANKS GO TO BOB BREAK OF ST. LOUIS FOR          *   FILE 702
//*      THE ORIGINAL CODE TO PARSE THE "/*ROUTE XEQ RESNAME"       *   FILE 702
//*      CARDS AND SET THE APPROPRIATE EXECUTION ENVIRONMENT.       *   FILE 702
//*                                                                 *   FILE 702
//*        SPECIAL THANKS TO JUDY RUNT OF WISCONSIN ELECTRIC        *   FILE 702
//*      FOR THE ORIGINAL CODE TO HANDLE THE "/*CNTL                *   FILE 702
//*      BEFORE|AFTER|WITH,RESNAME" AND "/*CNTL                     *   FILE 702
//*      RESNAME,EXC|SHR" ROUTINES.  THE USE OF THE BLOCK           *   FILE 702
//*      EXTENSION REUSABLE TABLES, and BERT'S, TO EXTEND THE       *   FILE 702
//*      JCT AND JQE.                                               *   FILE 702
//*                                                                 *   FILE 702
//*      Although some changes have been made to all of the         *   FILE 702
//*      code, their combined help was invaluable.                  *   FILE 702
//*                                                                 *   FILE 702
//***FILE 703 is from Clem Clarke and contains a program to         *   FILE 703
//*           convert the member statistics for pds members         *   FILE 703
//*           created on a Fujitsu system, into ISPF statistics.    *   FILE 703
//*           Besides its utility value as created, this program    *   FILE 703
//*           can be used as a learning tool for manipulating       *   FILE 703
//*           pds directory entries.                                *   FILE 703
//*                                                                 *   FILE 703
//*           email:  oscarptyltd@ozemail.com.au                    *   FILE 703
//*                                                                 *   FILE 703
//*     Author's short "description of purpose" -                   *   FILE 703
//*                                                                 *   FILE 703
//*     Recently, I had to get a large amount of source code        *   FILE 703
//*     from a Fujitsu MSP system to MVS.                           *   FILE 703
//*                                                                 *   FILE 703
//*     I discovered that the Statistics did not show in the        *   FILE 703
//*     RPF editor, nor ISPF.                                       *   FILE 703
//*                                                                 *   FILE 703
//*     Google didn't show much, but there was mention of a         *   FILE 703
//*     LISTPDS and REVIEW programs that apparently used the        *   FILE 703
//*     Fujitsu statistics.                                         *   FILE 703
//*                                                                 *   FILE 703
//*     However, none of the utilities seemed to work, and so I     *   FILE 703
//*     decided the best way out was to write a utility that        *   FILE 703
//*     would convert the PDS Member Entries to the correct         *   FILE 703
//*     format.                                                     *   FILE 703
//*                                                                 *   FILE 703
//***FILE 704 is from Rob Johns and contains a program called       *   FILE 704
//*           DRDASD which can help you to keep track of the        *   FILE 704
//*           status of all the disk packs that are attached to     *   FILE 704
//*           each LPAR.  Member $README will tell you how to       *   FILE 704
//*           interpret the data from the DRDASD program.           *   FILE 704
//*                                                                 *   FILE 704
//*           email:  rob.johns@anpac.com                           *   FILE 704
//*                                                                 *   FILE 704
//***FILE 705 is from David Cartwright and contains some tools      *   FILE 705
//*           to do performance tuning on a Flex-ES machine which   *   FILE 705
//*           is running z/OS.  These tools use TSSO console        *   FILE 705
//*           automation from File 404 of the CBT Tape.             *   FILE 705
//*                                                                 *   FILE 705
//*           email:  dcartwright@ymail.com                         *   FILE 705
//*                                                                 *   FILE 705
//*    A description of the content of this file follows:           *   FILE 705
//*                                                                 *   FILE 705
//*     This file illustrates some of the work done at AGCO UK      *   FILE 705
//*     Coventry to use TSSO from file 404 for the CBT tape to      *   FILE 705
//*     control an MVS system running under Flex-ES.  The           *   FILE 705
//*     members start with;                                         *   FILE 705
//*                                                                 *   FILE 705
//*     TIMER - this is the main clist which drives the other       *   FILE 705
//*     members. This is invoked by AOF processing by some          *   FILE 705
//*     message which appears at fixed intervals.  I have two       *   FILE 705
//*     main threads driven by this clist;                          *   FILE 705
//*                                                                 *   FILE 705
//*     PERFORMANCE MEASUREMENT                                     *   FILE 705
//*     =======================                                     *   FILE 705
//*     We were moving production off an IBM Multiprise 2003        *   FILE 705
//*     which had an excess of MIPS and which had a good disk       *   FILE 705
//*     subsystem of an EMC Symmetrix on four ESCON channels.       *   FILE 705
//*     Our IMS response times were variable and our overnight      *   FILE 705
//*     BMP jobs had very elongated run times.  These               *   FILE 705
//*     applications are very cache unfriendly, but the EMC box     *   FILE 705
//*     had so much cache it didn't matter.  We started to          *   FILE 705
//*     monitor the Flex-ES cachestatistics for our disk            *   FILE 705
//*     controllers.  Our best bet would be to scrap the            *   FILE 705
//*     individual track caches and assign cache at the Control     *   FILE 705
//*     Unit level.  This is then shared out by Flex-ES as          *   FILE 705
//*     demand requires.  I continue to collect Flex-ES cache       *   FILE 705
//*     statistics, although I now rarely bother to look at         *   FILE 705
//*     them.  The TSSO members used for this activity are;         *   FILE 705
//*                                                                 *   FILE 705
//*     CONFIG - Our Flex-ES configuration file which can be        *   FILE 705
//*     tied to the other stuff.  It illustrates our cache          *   FILE 705
//*     definitions.                                                *   FILE 705
//*                                                                 *   FILE 705
//*     CACHE - Every hour this TSSO clist runs commands on the     *   FILE 705
//*     Flex-ES system to collect Flex-ES cachestatistics for       *   FILE 705
//*     every disk controller defined in the config file and        *   FILE 705
//*     appends them to a Unixware file.                            *   FILE 705
//*                                                                 *   FILE 705
//*     FLEXJ01 - is a batch job that TIMER submits just before     *   FILE 705
//*     midnight each day.  It takes a snapshot of Unixware         *   FILE 705
//*     memory usage over the last 24 hours which is appended       *   FILE 705
//*     to the cachestatistics file.  This file is then FTP'd       *   FILE 705
//*     over to a mainframe GDG so I have a history that I can      *   FILE 705
//*     browse from ISPF.                                           *   FILE 705
//*                                                                 *   FILE 705
//*     REPORT - is a sample output from FLEXJ01.                   *   FILE 705
//*                                                                 *   FILE 705
//*     RESET - a clist which is called at the end of FLEJ01 to     *   FILE 705
//*     write an end-of-file at the start of the cachestastics      *   FILE 705
//*     file ready to collect another day's worth of data.          *   FILE 705
//*                                                                 *   FILE 705
//*     STORAGE MANAGEMENT                                          *   FILE 705
//*     ==================                                          *   FILE 705
//*     Another function of TIMER is to automate various HSM        *   FILE 705
//*     housekeeping commands such as DELVOL.                       *   FILE 705
//*     The Storage Management members are;                         *   FILE 705
//*                                                                 *   FILE 705
//*     STORAGE - This clist monitors the non-SMS disks and         *   FILE 705
//*     switches them from STORAGE to PRIVATE if they get too       *   FILE 705
//*     full and vice-versa as they empty.                          *   FILE 705
//*                                                                 *   FILE 705
//*     SYSDA - this REXX uses the VTOC command off the CBT         *   FILE 705
//*     tape to monitor allocations on a few disks that I           *   FILE 705
//*     called SYSDA.                                               *   FILE 705
//*                                                                 *   FILE 705
//***FILE 706 is from Andrew Armstrong and contains a marvelous     *   FILE 706
//*           system to convert your mainframe performance data     *   FILE 706
//*           to SVG (Scalable Vector Graphics) format and display  *   FILE 706
//*           it anywhere in your network, on other platforms.      *   FILE 706
//*                                                                 *   FILE 706
//*           email:  andrew_armstrong@unwired.com.au               *   FILE 706
//*                                                                 *   FILE 706
//*   A description of this contribution follows:                   *   FILE 706
//*                                                                 *   FILE 706
//*     I have a new CBT tape contribution to make...               *   FILE 706
//*                                                                 *   FILE 706
//*     Some time ago (maybe a year or so) someone on IBM-MAIN      *   FILE 706
//*     asked about how to publish mainframe performance graphs     *   FILE 706
//*     on their intranet.  I suggested somehow creating a          *   FILE 706
//*     Scalable Vector Graphics (SVG) file and serving it out      *   FILE 706
//*     directly from your mainframe web server - that way an       *   FILE 706
//*     intranet web server could have a page that just linked      *   FILE 706
//*     to the mainframe web server's SVG file.  The 'somehow'      *   FILE 706
//*     was the bit I didn't have available at the time...          *   FILE 706
//*                                                                 *   FILE 706
//*     Well, I've finally put something together that may be       *   FILE 706
//*     of use to other people (and not just mainframers either     *   FILE 706
//*     because you can run it on a PC or even Linux).              *   FILE 706
//*                                                                 *   FILE 706
//*     Basically the idea is to pull your performance data         *   FILE 706
//*     from wherever (SMF say), using whatever (Rexx,              *   FILE 706
//*     Assembler, it doesn't matter) and create an XML file        *   FILE 706
//*     (which is just text) containing the line chart data.        *   FILE 706
//*     Then you run my contribution (an XSL stylesheet) to         *   FILE 706
//*     transform the XML file into an SVG file which describes     *   FILE 706
//*     the line chart in terms of lines, colors and text.  The     *   FILE 706
//*     SVG file can be served out directly by your mainframe       *   FILE 706
//*     web server so that all the user needs is a browser to       *   FILE 706
//*     view the graphics.  SVG is good for this because            *   FILE 706
//*     complicated graphs don't take up much space - so            *   FILE 706
//*     transmission to the end-user is quick - and the actual      *   FILE 706
//*     rendering of the graphic is done on the user's PC.          *   FILE 706
//*     Also, the images are scalable (at the PC), so no image      *   FILE 706
//*     quality is lost.  Modern software like Microsoft Visio      *   FILE 706
//*     understands the SVG format.                                 *   FILE 706
//*                                                                 *   FILE 706
//*     Alternatively, the SVG file can be converted to an          *   FILE 706
//*     image file (PNG, JPEG or TIFF) and published in the         *   FILE 706
//*     usual way.  The user may have to put up with longer         *   FILE 706
//*     download times and poor print quality though.               *   FILE 706
//*                                                                 *   FILE 706
//*     I have included in the xmit file all the Java JAR files     *   FILE 706
//*     necessary to do the processing, but as a result the         *   FILE 706
//*     xmit file is quite large (8.5 MB) and does not compress     *   FILE 706
//*     well (7.5 MB zipped).                                       *   FILE 706
//*                                                                 *   FILE 706
//*     Oh...and the xmit file is of a RECFM=VB PDS, so the         *   FILE 706
//*     xmitmanager won't be able to be used to extract the         *   FILE 706
//*     files (I've tried but I get garbage).  The only way is      *   FILE 706
//*     to upload the xmit file and let TSO RECEIVE extract the     *   FILE 706
//*     files.                                                      *   FILE 706
//*                                                                 *   FILE 706
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - - -     *   FILE 706
//*                                                                 *   FILE 706
//*     I've uploaded version 1.1 of file706.                       *   FILE 706
//*                                                                 *   FILE 706
//*     This version:                                               *   FILE 706
//*     1. Adds support for rotated labels on line charts           *   FILE 706
//*     2. Upgrades the included Batik jar file to version 1.5.1    *   FILE 706
//*        (was using 1.5.1rc2)                                     *   FILE 706
//*     3. Renames the ZIPFILE member to ZIPDOCS                    *   FILE 706
//*     4. Has Improved html documentation and tutorial stored      *   FILE 706
//*        in ZIPDOCS.                                              *   FILE 706
//*                                                                 *   FILE 706
//*     Cheers,                                                     *   FILE 706
//*     Andrew Armstrong.                                           *   FILE 706
//*                                                                 *   FILE 706
//***FILE 707 is from J.D. Acevedo and contains a package called    *   FILE 707
//*           ACEEDSL to create easily customizable dataset lists   *   FILE 707
//*           for each user, with some checking against shop        *   FILE 707
//*           standards.                                            *   FILE 707
//*                                                                 *   FILE 707
//*           email:  j_d_a@eresmas.com                             *   FILE 707
//*                                                                 *   FILE 707
//*           This package also uses the message display facility   *   FILE 707
//*           called ACEEMON, which is included in this file.       *   FILE 707
//*                                                                 *   FILE 707
//***FILE 708 is from Glenn Siegel and contains an extremely        *   FILE 708
//*           versatile master MPF exit of great generality and     *   FILE 708
//*           capability.  This program lets you issue just about   *   FILE 708
//*           any set of commands, differently (or the same), on    *   FILE 708
//*           any connected MVS system or LPAR.  Please see below   *   FILE 708
//*           for some of the details.                              *   FILE 708
//*                                                                 *   FILE 708
//*   Added:  In PDSLOAD format:  Member MPFXDSPL package, using    *   FILE 708
//*           this software, to display the MPF tables in storage.  *   FILE 708
//*           (This is from Thomas Hutchins.) - See $$NOTE04        *   FILE 708
//*           Members PDSLOAD and $PDSLOAD included in this pds.    *   FILE 708
//*                                                                 *   FILE 708
//*   General Description of the package:                           *   FILE 708
//*                                                                 *   FILE 708
//*     >>> --------------------------------------------- <<<       *   FILE 708
//*     >>> Please look at members $EXPLAIN and $CHANGES. <<<       *   FILE 708
//*     >>> --------------------------------------------- <<<       *   FILE 708
//*                                                                 *   FILE 708
//*     This isn't your mother's MPF exit!  It's the do all MPF     *   FILE 708
//*       exit.  It should replace most, if not all of your         *   FILE 708
//*       existing MPF exits.  If you are not using any MPF         *   FILE 708
//*       exits, you should check this one out.  Version 5.9.       *   FILE 708
//*                                                                 *   FILE 708
//*     The purpose of this product is to assist in automation      *   FILE 708
//*       of your MVS operating system.  This product will only     *   FILE 708
//*       work on system levels at or ABOVE ESA 4.1 because it      *   FILE 708
//*       uses the Name/Token Services.  More on this later.        *   FILE 708
//*       Sorry Turnkey guys/gals.                                  *   FILE 708
//*                                                                 *   FILE 708
//*     Manage up to 1000 different messages and 102 commands/logic *   FILE 708
//*      per message.                                               *   FILE 708
//*                                                                 *   FILE 708
//*     This exit can do the following:                             *   FILE 708
//*                                                                 *   FILE 708
//*     Reply to outstanding messages (WTOR's).  It can reply       *   FILE 708
//*                *                                                *   FILE 708
//*                R 00,WARM,NOREQ                                  *   FILE 708
//*                    to WTOR                                      *   FILE 708
//*                01 $HASP426 SPECIFY OPTIONS - JES2               *   FILE 708
//*                *                                                *   FILE 708
//*       The $HASP426 commands member would look like this:        *   FILE 708
//*                *                                                *   FILE 708
//*                REPLY NN,WARM,NOREQ                              *   FILE 708
//*                *                                                *   FILE 708
//*       With an update from Dean Tesar WTOR's with an RMAX of     *   FILE 708
//*          up to four digits is possible, if your RMAX is set to  *   FILE 708
//*          RMAX(999) or RMAX(9999) using three or four digit      *   FILE 708
//*          replies your commands member would look like:          *   FILE 708
//*                *                                                *   FILE 708
//*                REPLY NNNN,WARM,NOREQ                            *   FILE 708
//*                *                                                *   FILE 708
//*                                                                 *   FILE 708
//*     Issue; START commands, VARY commands, DISPLAY commands,     *   FILE 708
//*       SE commands, ROUTE commands, JES commands... in other     *   FILE 708
//*       words, any commands for any messages, i.e.                *   FILE 708
//*                *                                                *   FILE 708
//*                S TSO                                            *   FILE 708
//*                    for message                                  *   FILE 708
//*                IST020I VTAM INITIALIZATION COMPLETE             *   FILE 708
//*                                                                 *   FILE 708
//*     It also has IF SYSID logic built into it; so you can        *   FILE 708
//*       issue different commands to different systems.  For       *   FILE 708
//*       example, say you want to issue START commands for         *   FILE 708
//*       VPS, TND and OMEGVTM on your production LPAR SSC and      *   FILE 708
//*       only wanted to issue a START for TND on your systems      *   FILE 708
//*       programming LPAR SYSPGM and START of TSO on both.  The    *   FILE 708
//*       IF SYSID can also be used as an outer or inner IF, more   *   FILE 708
//*       on that later.                                            *   FILE 708
//*                *                                                *   FILE 708
//*       The IST020I commands member would look like this:         *   FILE 708
//*                *                                                *   FILE 708
//*                IF SYSID EQ SSC                                  *   FILE 708
//*                S VPS                                            *   FILE 708
//*                S TND                                            *   FILE 708
//*                S OMEGAVTM                                       *   FILE 708
//*                ENDIF                                            *   FILE 708
//*                *                                                *   FILE 708
//*                IF SYSID EQ SYSPGM                               *   FILE 708
//*                S TND                                            *   FILE 708
//*                ENDIF                                            *   FILE 708
//*                *                                                *   FILE 708
//*                S TSO                                            *   FILE 708
//*                                                                 *   FILE 708
//*     It can also find up to 4 separate words in a message up to  *   FILE 708
//*       25 characters per word.  All words must appear in that    *   FILE 708
//*       message, in any order.                                    *   FILE 708
//*                *                                                *   FILE 708
//*                IF ALL EQ word1 word2 word3 word4                *   FILE 708
//*                Do Something                                     *   FILE 708
//*                ENDIF                                            *   FILE 708
//*                *                                                *   FILE 708
//*     If you wanted to start NETSPOOL after a PrintServer         *   FILE 708
//*       Daemon has started; the MPFXTALL program is also case     *   FILE 708
//*       sensitive, so for the following message:                  *   FILE 708
//*                *                                                *   FILE 708
//*    AOP075I Daemon aopd was started successfully. (program:aopd) *   FILE 708
//*                *                                                *   FILE 708
//*       The AOP075I commands member would look like this:         *   FILE 708
//*                *                                                *   FILE 708
//*                IF ALL EQ Daemon aopd was started                *   FILE 708
//*                S NETSPOOL                                       *   FILE 708
//*                ENDIF                                            *   FILE 708
//*                                                                 *   FILE 708
//*     Oh, it also highlights messages.  To highlight abends;      *   FILE 708
//*       The IEF450I commands member would look like this:         *   FILE 708
//*                *                                                *   FILE 708
//*                HIGHLIGHT                                        *   FILE 708
//*                *                                                *   FILE 708
//*      Or use the AUTO/TOKEN feature AUTO(HIGHLITE).              *   FILE 708
//*       No commands member is necessary for this.                 *   FILE 708
//*         IEF450I,USEREXIT(MPFXTALL),AUTO(HIGHLITE),SUP(NO)       *   FILE 708
//*                                                                 *   FILE 708
//*     Then there's IF WORD logic check for one word up to 25      *   FILE 708
//*       characters in one specific location from 01 to 99.  This  *   FILE 708
//*       fuction can also be used with a wild card.  Also, here's  *   FILE 708
//*       the usage of the IF SYSID used as an outer if.  So, if    *   FILE 708
//*       the system is SSC and the job that abended starts with    *   FILE 708
//*       PROD then the IEF450I commands member would look like     *   FILE 708
//*       this:                                                     *   FILE 708
//*                *                                                *   FILE 708
//*                IF SYSID EQ SSC                                  *   FILE 708
//*                IF WORD 01 PROD*                                 *   FILE 708
//*                HIGHLIGHT                                        *   FILE 708
//*                ENDIF                                            *   FILE 708
//*                ENDIF                                            *   FILE 708
//*                *                                                *   FILE 708
//*                                                                 *   FILE 708
//*     And now here's the GET and replace part of the program,     *   FILE 708
//*       very slick if I may say so myself.  It retrieves a word   *   FILE 708
//*       from whatever position you specify; then it replaces      *   FILE 708
//*       any % in the commands with that word.  So, to have        *   FILE 708
//*       MPFXTALL submit a job to dump an SMF dataset for the      *   FILE 708
//*       following message:                                        *   FILE 708
//*       *IEE362A SMF ENTER DUMP FOR SYS1.MAN2 ON SSCCAT           *   FILE 708
//*       The commands member IEE362A would look like this:         *   FILE 708
//*                *                                                *   FILE 708
//*                GET WORD 05                                      *   FILE 708
//*                S SMFAUTO,SMFDSN='%'                             *   FILE 708
//*                ENDGET                                           *   FILE 708
//*       The resulting command issued would be:                    *   FILE 708
//*        S SMFAUTO,SMFDSN='SYS1.MAN2'                             *   FILE 708
//*                *                                                *   FILE 708
//*       The GET can also be used as an inner GET with all IF's.   *   FILE 708
//*        So, you can do something fancy like this:                *   FILE 708
//*                *                                                *   FILE 708
//*                IF SYSID EQ SSC                                  *   FILE 708
//*                IF WORD 06 SSCCAT                                *   FILE 708
//*                GET WORD 05                                      *   FILE 708
//*                S SMFAUTO,SMFDSN='%'                             *   FILE 708
//*                ENDGET                                           *   FILE 708
//*                ENDIF                                            *   FILE 708
//*                ENDIF                                            *   FILE 708
//*                *                                                *   FILE 708
//*       Now, thanks to Peter Johnson this automation tool can     *   FILE 708
//*        handle multi-line messages.  So, for this multi-line     *   FILE 708
//*        SMF message:                                             *   FILE 708
//*   IEE391A SMF ENTER DUMP FOR DATA SET ON VOLSER SSCCAT,         *   FILE 708
//*                   DSN=SYS1.MAN1                                 *   FILE 708
//*                *                                                *   FILE 708
//*       The IEE391A commands member would look like this:         *   FILE 708
//*                *                                                *   FILE 708
//*                GET WORD 10                                      *   FILE 708
//*                S SMFAUTO,%                                      *   FILE 708
//*                ENDGET                                           *   FILE 708
//*                *                                                *   FILE 708
//*       The resulting issued command would be:                    *   FILE 708
//*                *                                                *   FILE 708
//*                S SMFAUTO,DSN=SYS1.MAN1                          *   FILE 708
//*                                                                 *   FILE 708
//*     A new addition to the GET is the GET REPLYID this will      *   FILE 708
//*       get the reply id number and replace any & with that       *   FILE 708
//*       number in that commands member, see PUTSWITCH for usage.  *   FILE 708
//*                                                                 *   FILE 708
//*     And of course, it does write to operator, highlighted       *   FILE 708
//*       or not.  So, if you wanted to send a WTO message for      *   FILE 708
//*       message ID $HASP612;                                      *   FILE 708
//*       The $HASP612 commands member would look like this:        *   FILE 708
//*                *                                                *   FILE 708
//*                WTO No jobs running on this system               *   FILE 708
//*                *                                                *   FILE 708
//*       And if you wanted it highlighted:                         *   FILE 708
//*                *                                                *   FILE 708
//*                WTOH No jobs running on this system              *   FILE 708
//*                                                                 *   FILE 708
//*     And it does suppression also.  To suppress a message like   *   FILE 708
//*       $HASP100 from the syslog and joblog the $HASP100 member   *   FILE 708
//*       would look like this:                                     *   FILE 708
//*                *                                                *   FILE 708
//*                SUPPRESS                                         *   FILE 708
//*                *                                                *   FILE 708
//*       Be cautious using SUPPRESS, once it's deletes thats it,   *   FILE 708
//*       it's gone.                                                *   FILE 708
//*                *                                                *   FILE 708
//*     Now thanks to Dean Tesar we have the joblog only and syslog *   FILE 708
//*       only suppression these modification will suppress only    *   FILE 708
//*       the joblog or only the syslog messages:                   *   FILE 708
//*                *                                                *   FILE 708
//*                NOJOBLOG                                         *   FILE 708
//*                *                                                *   FILE 708
//*                NOSYSLOG                                         *   FILE 708
//*                *                                                *   FILE 708
//*     Or use the AUTO/TOKEN feature AUTO(SUPPRESS)                *   FILE 708
//*       AUTO(NOJOBLOG) AUTO(NOSYSLOG).                            *   FILE 708
//*       No commands member is necessary for these.                *   FILE 708
//*         messageID,USEREXIT(MPFXTALL),AUTO(SUPPRESS)             *   FILE 708
//*         messageID,USEREXIT(MPFXTALL),AUTO(NOJOBLOG)             *   FILE 708
//*         messageID,USEREXIT(MPFXTALL),AUTO(NOSYSLOG)             *   FILE 708
//*                *                                                *   FILE 708
//*     If you need to only suppress from the console an MPFLSTxx   *   FILE 708
//*       entry like this will do the trick.                        *   FILE 708
//*                xxxxxxxx,SUP(YES)                                *   FILE 708
//*                                                                 *   FILE 708
//*     You want colors I'll give you colors, this ones for Jason.  *   FILE 708
//*       Change the color make it blink, underline and/or reverse  *   FILE 708
//*       video.  The options for the DISPLAY command are BLUE,     *   FILE 708
//*       PINK, RED, GREEN, TURQUOISE, YELLOW, WHITE, BLINK,        *   FILE 708
//*       REVERSE and UNDERLINE.                                    *   FILE 708
//*       The commands member to make it blink red would be:        *   FILE 708
//*                 DISPLAY RED                                     *   FILE 708
//*                 DISPLAY BLINK                                   *   FILE 708
//*                                                                 *   FILE 708
//*     The AUTO/TOKEN feature allows you to SUPPRESS, NOJOBLOG,    *   FILE 708
//*       NOSYSLOG and HIGHLITE multiple messages with one entry.   *   FILE 708
//*       No commands member is necessary for this.                 *   FILE 708
//*         BA*,USEREXIT(MPFXTALL),AUTO(SUPPRESS)                   *   FILE 708
//*                *                                                *   FILE 708
//*     Also, the AUTO/TOKEN feature has member selection, this     *   FILE 708
//*       allows you to select a different commands member then     *   FILE 708
//*       the messageID states.  This allows multiple messages to   *   FILE 708
//*       point to one commands member.                             *   FILE 708
//*         ABC1001E,USEREXIT(MPFXTALL),AUTO(ABCMSGS)               *   FILE 708
//*         ABC1002E,USEREXIT(MPFXTALL),AUTO(ABCMSGS)               *   FILE 708
//*                or                                               *   FILE 708
//*         ABC*,USEREXIT(MPFXTALL),AUTO(ABCMSGS)                   *   FILE 708
//*                *                                                *   FILE 708
//*     Special character handling for message id's is now          *   FILE 708
//*       available with the use of the AUTO/TOKEN feature.  For a  *   FILE 708
//*       message that start with a special character like a dash - *   FILE 708
//*       the MPFLSTxx member would contain the following:          *   FILE 708
//*       -SSCCORP0*,SUP(NO),USEREXIT(MPFXTALL),AUTO(SSCCORP1)      *   FILE 708
//*       And the commands member SSCCORP1 would contain whatever.  *   FILE 708
//*                *                                                *   FILE 708
//*     It also has a AUTO(SINGLE) which treats a multi-line as a   *   FILE 708
//*       single line.                                              *   FILE 708
//*                *                                                *   FILE 708
//*     MPFXTALL normally displays the following message for any    *   FILE 708
//*       managed message                                           *   FILE 708
//*       /* Issued by MPFXTALL for messageID      */               *   FILE 708
//*     If you wish not to display this use the following           *   FILE 708
//*       AUTO/TOKEN feature NODISPLY                               *   FILE 708
//*       SSCCORP9,USEREXIT(MPFXTALL),AUTO(NODISPLY)                *   FILE 708
//*       or set the default for all like this:                     *   FILE 708
//*       .DEFAULT,AUTO(NODISPLY)                                   *   FILE 708
//*                                                                 *   FILE 708
//*     Long message ID handling is also included, for long         *   FILE 708
//*       message ID's such as:                                     *   FILE 708
//*       SVT1P0001I SubTask 01 Completion - Group=22 Subgroup=L    *   FILE 708
//*       Use the first 8 characters of the message ID for the      *   FILE 708
//*       commands member name, so the commands member name for     *   FILE 708
//*       the above message would be SVT1P000 and the MPFLSTxx      *   FILE 708
//*       entry would look like this:                               *   FILE 708
//*                *                                                *   FILE 708
//*       SVT1P0001I,SUP(NO),RETAIN(NO),USEREXIT(MPFXTALL)          *   FILE 708
//*                *                                                *   FILE 708
//*      In addition to the long message id handling I've added     *   FILE 708
//*       logic testing for the message id.  So, here it is Dean    *   FILE 708
//*       and Diana you asked for it, yes, I do requests.           *   FILE 708
//*                *                                                *   FILE 708
//*       The IF MSGID EQ and IF MSGID NE for up to 25 character    *   FILE 708
//*        message id's.                                            *   FILE 708
//*       Say you need to handle several long messages with the     *   FILE 708
//*       same first 8 characters like:                             *   FILE 708
//*       SVT1P0011A Some message text                              *   FILE 708
//*       SVT1P0011B Some other message text                        *   FILE 708
//*       SVT1P0011C And another message text                       *   FILE 708
//*       SVT1P0012A And the just one more                          *   FILE 708
//*                *                                                *   FILE 708
//*      The MPFLSTxx member would contain the following:           *   FILE 708
//*       SVT1P0011A,SUP(NO),RETAIN(NO),USEREXIT(MPFXTALL)          *   FILE 708
//*       SVT1P0011B,SUP(NO),RETAIN(NO),USEREXIT(MPFXTALL)          *   FILE 708
//*       SVT1P0011C,SUP(NO),RETAIN(NO),USEREXIT(MPFXTALL)          *   FILE 708
//*       SVT1P0012A,SUP(NO),RETAIN(NO),USEREXIT(MPFXTALL)          *   FILE 708
//*                *                                                *   FILE 708
//*      The commands member SVT1P001 in SYS1.MPF.COMMANDS would    *   FILE 708
//*       contain the following:                                    *   FILE 708
//*                *                                                *   FILE 708
//*                IF MSGID EQ SVT1P0011A                           *   FILE 708
//*                Do something for this message                    *   FILE 708
//*                ENDIF                                            *   FILE 708
//*                *                                                *   FILE 708
//*                IF MSGID EQ SVT1P0011B                           *   FILE 708
//*                Do something else for this message               *   FILE 708
//*                ENDIF                                            *   FILE 708
//*                *                                                *   FILE 708
//*                IF MSGID EQ SVT1P0011C                           *   FILE 708
//*                And something different for this message         *   FILE 708
//*                ENDIF                                            *   FILE 708
//*                *                                                *   FILE 708
//*                IF MSGID EQ SVT1P0012A                           *   FILE 708
//*                And something totally diferent for this message  *   FILE 708
//*                ENDIF                                            *   FILE 708
//*                *                                                *   FILE 708
//*      Or you can use the AUTO/TOKEN feature for long message     *   FILE 708
//*       handling to point to a separate commands member.          *   FILE 708
//*      The MPFLSTxx member would contain the following:           *   FILE 708
//*       SVT1P0011A,SUP(NO),USEREXIT(MPFXTALL),AUTO(SVT1P11A)      *   FILE 708
//*       SVT1P0011B,SUP(NO),USEREXIT(MPFXTALL),AUTO(SVT1P11B)      *   FILE 708
//*      And the two commands member you would have:                *   FILE 708
//*       Do something                                              *   FILE 708
//*         and                                                     *   FILE 708
//*       Do something else                                         *   FILE 708
//*                *                                                *   FILE 708
//*      IBM's MPF has a limitation of a max of 10 characters per   *   FILE 708
//*       message, but MPFXTALL to the rescue, you can specify up   *   FILE 708
//*       to 25 characters in the IF MSGID EQ section of the        *   FILE 708
//*       product.  See the creme de la creme for details.          *   FILE 708
//*                                                                 *   FILE 708
//*     The IF MSGID+xx FOR xx this can be used when you have       *   FILE 708
//*       dozens of similar messages like CSQ1234I, CSQ1234E,       *   FILE 708
//*       CSQ1235I, CSQ1235E etc and you only want to only suppress *   FILE 708
//*       the I level messages.                                     *   FILE 708
//*       The MPFLSTxx member would contain:                        *   FILE 708
//*       CSQ*,USEREXIT(MPFXTALL),AUTO(CSQMSGS)                     *   FILE 708
//*                *                                                *   FILE 708
//*       And the commands member CSQMSGS would look like this:     *   FILE 708
//*                IF MSGID+07 FOR 01 I                             *   FILE 708
//*                SUPPRESS                                         *   FILE 708
//*                ENDIF                                            *   FILE 708
//*                *                                                *   FILE 708
//*      Also the if message id not equal can be used for checking  *   FILE 708
//*       if part of the message not equal, coded like this.        *   FILE 708
//*       message dosn't equal coded like this.                     *   FILE 708
//*               IF MSGNE+07 FOR 01 I                              *   FILE 708
//*                SUPPRESS                                         *   FILE 708
//*                ENDIF                                            *   FILE 708
//*                                                                 *   FILE 708
//*     And now thanks to Dean here is the MPFSUPNO, for those who  *   FILE 708
//*       have their MPFLSTxx DEFAULT set to SUP(YES) and wish to   *   FILE 708
//*       not suppress a specific message can do the following:     *   FILE 708
//*                *                                                *   FILE 708
//*                MPFLSTxx member:                                 *   FILE 708
//*                CSQ*,USEREXIT(MPFXTALL),AUTO(CSQMSGS)            *   FILE 708
//*                *                                                *   FILE 708
//*                Commands member CSQMSGS:                         *   FILE 708
//*                *DO NOT MPF SUPPRESS CSQ????E                    *   FILE 708
//*                IF MSGID+07 FOR 01 E                             *   FILE 708
//*                MPFSUPNO                                         *   FILE 708
//*                ENDIF                                            *   FILE 708
//*                *                                                *   FILE 708
//*        The end result would be all messages that start with     *   FILE 708
//*        CSQ would be suppressed except for those message that    *   FILE 708
//*        have an E in column 8.                                   *   FILE 708
//*                                                                 *   FILE 708
//*     And now for the creme de la creme.  I now present the       *   FILE 708
//*       SWITCH/VARIABLE section of my product, consisting of the  *   FILE 708
//*       set switch, delete switch, alter switch, if switch on,    *   FILE 708
//*       if switch off, if switch equal and if switch not equal.   *   FILE 708
//*       This is my way of thanking Don, Todd and Emma for         *   FILE 708
//*       intrusting me with their OS upgrade project after only a  *   FILE 708
//*       few conference calls.  I believe this should complete     *   FILE 708
//*       your free automation solution.  I also believe everybody  *   FILE 708
//*       else should thank them for inspiring me to write this     *   FILE 708
//*       code.  With this addition to my product all of you should *   FILE 708
//*       be armed sufficiently to totally eliminate any other      *   FILE 708
//*       automation products at your shop.                         *   FILE 708
//*      Now for the meat and taters:                               *   FILE 708
//*      The SETSWITCH command will set a persistent switch with    *   FILE 708
//*       a user defined name field up to 8 characters and a user   *   FILE 708
//*       defined status/information field up to 16 characters.     *   FILE 708
//*       Both fields have no other limitations; you can use any    *   FILE 708
//*       characters, spaces, special characters and numbers.       *   FILE 708
//*      The DELSWITCH command that's what it does, it deletes      *   FILE 708
//*       the switch.                                               *   FILE 708
//*      The ALTSWITCH is used to alter the status/information      *   FILE 708
//*       part of the switch from anything to anything.             *   FILE 708
//*      The PUTSWITCH places whatever is stored in the             *   FILE 708
//*       status/information part of the switch to the console.     *   FILE 708
//*      The IF SWITCH logic has four separate checks.              *   FILE 708
//*      The IF SWITCH ON checks only to see if the switch is       *   FILE 708
//*       on/exists, it doesn't check the status/information        *   FILE 708
//*       section.                                                  *   FILE 708
//*      The IF SWITCH OFF checks only to see if the switch is      *   FILE 708
//*       off/doesn't exists.                                       *   FILE 708
//*      The IF SWITCH EQ checks the named switch                   *   FILE 708
//*       status/information field is equal to that of the if       *   FILE 708
//*       statement.                                                *   FILE 708
//*      The IF SWITCH NE checks the named switch                   *   FILE 708
//*       status/information field to not be equal to the if        *   FILE 708
//*       statement.  Here's all the different syntax:              *   FILE 708
//*                *                                                *   FILE 708
//*                * Correct positioning                            *   FILE 708
//*          =COLS>123456789012345678901234567890123456789          *   FILE 708
//*                *         |        |                             *   FILE 708
//*                SETSWITCH xxxxxxxx xxxxxxxxxxxxxxxx              *   FILE 708
//*                *         |                                      *   FILE 708
//*                DELSWITCH xxxxxxxx                               *   FILE 708
//*                *         |        |                             *   FILE 708
//*                ALTSWITCH xxxxxxxx xxxxxxxxxxxxxxxx              *   FILE 708
//*                *         |                                      *   FILE 708
//*                PUTSWITCH xxxxxxxx                               *   FILE 708
//*                *            |                                   *   FILE 708
//*                IF SWITCH ON xxxxxxxx                            *   FILE 708
//*                do something                                     *   FILE 708
//*                ENDIF SWITCH ON                                  *   FILE 708
//*                *             |                                  *   FILE 708
//*                IF SWITCH OFF xxxxxxxx                           *   FILE 708
//*                do something                                     *   FILE 708
//*                ENDIF SWITCH OFF                                 *   FILE 708
//*                *            |        |                          *   FILE 708
//*                IF SWITCH EQ xxxxxxxx xxxxxxxxxxxxxxxx           *   FILE 708
//*                do something                                     *   FILE 708
//*                ENDIF SWITCH EQ                                  *   FILE 708
//*                *            |        |                          *   FILE 708
//*                IF SWITCH NE xxxxxxxx xxxxxxxxxxxxxxxx           *   FILE 708
//*                do something                                     *   FILE 708
//*                ENDIF SWITCH NE                                  *   FILE 708
//*                *                                                *   FILE 708
//*      Here's a sample of usage for messages:                     *   FILE 708
//*       DCOMMMP1:246:0:DB00308I - LOG AREA IS  50% FULL,          *   FILE 708
//*       DCOMMMP1:246:0:DB00308I - LOG AREA IS  70% FULL,          *   FILE 708
//*       DCOMMMT3:246:0:DB00308I - LOG AREA IS  50% FULL,          *   FILE 708
//*       DCOMMMT3:246:0:DB00308I - LOG AREA IS  70% FULL,          *   FILE 708
//*                *                                                *   FILE 708
//*      The MPFLSTxx entries would look like this:                 *   FILE 708
//*       DCOMMMP1:*,USEREXIT(MPFXTALL),SUP(NO),AUTO(SPILL)         *   FILE 708
//*       DCOMMMT3:*,USEREXIT(MPFXTALL),SUP(NO),AUTO(SPILL)         *   FILE 708
//*       $HASP395,SUP(NO),RETAIN(NO),USEREXIT(MPFXTALL)            *   FILE 708
//*                *                                                *   FILE 708
//*      The commands member SPILL would look like this:            *   FILE 708
//*       IF MSGID EQ DCOMMMP1:246:0:DB00308I                       *   FILE 708
//*       IF SWITCH OFF DCOMMMP1                                    *   FILE 708
//*       SETSWITCH DCOMMMP1 Submitted DCOMSPLP                     *   FILE 708
//*       S DCOMSPLP                                                *   FILE 708
//*       WTO MPFXTALL submitted offload DCOMSPLP for DCOMMMP1      *   FILE 708
//*       ENDIF SWITCH OFF                                          *   FILE 708
//*       IF SWITCH ON DCOMMMP1                                     *   FILE 708
//*       WTO DCOMSPLP active for DCOMMMP1 no offload submitted     *   FILE 708
//*       ENDIF SWITCH ON                                           *   FILE 708
//*       ENDIF                                                     *   FILE 708
//*       *                                                         *   FILE 708
//*       IF MSGID EQ DCOMMMT3:246:0:DB00308I                       *   FILE 708
//*       IF SWITCH OFF DCOMMMT3                                    *   FILE 708
//*       SETSWITCH DCOMMMT3 Submitted DCOMSPL3                     *   FILE 708
//*       S DCOMSPL3                                                *   FILE 708
//*       WTO MPFXTALL submitted offload DCOMSPL3 for DCOMMMT3      *   FILE 708
//*       ENDIF SWITCH OFF                                          *   FILE 708
//*       IF SWITCH ON DCOMMMT3                                     *   FILE 708
//*       WTO DCOMSPL3 active for DCOMMMT3 no offload submitted     *   FILE 708
//*       ENDIF SWITCH ON                                           *   FILE 708
//*       ENDIF                                                     *   FILE 708
//*       *                                                         *   FILE 708
//*      The commands member $HASP395 would look like this:         *   FILE 708
//*       IF WORD 01 DCOMSPLP                                       *   FILE 708
//*       DELSWITCH DCOMMMP1                                        *   FILE 708
//*       WTO DCOMSPLP has ended DCOMMMP1 switch has been reset     *   FILE 708
//*       ENDIF                                                     *   FILE 708
//*       *                                                         *   FILE 708
//*       IF WORD 01 DCOMSPL3                                       *   FILE 708
//*       DELSWITCH DCOMMMT3                                        *   FILE 708
//*       WTO DCOMSPL3 has ended DCOMMMT3 switch has been reset     *   FILE 708
//*       ENDIF                                                     *   FILE 708
//*       *                                                         *   FILE 708
//*      Here's one usage for the PUTSWITCH and GET REPLYID this    *   FILE 708
//*       one's for Jimmy from Alaska.                              *   FILE 708
//*       *                                                         *   FILE 708
//*      Theses are the messages:                                   *   FILE 708
//*       @32 REPLY WITH REQUEST TO IDMS V8                         *   FILE 708
//*       @31 REPLY WITH REQUEST TO IDMS V9                         *   FILE 708
//*       *                                                         *   FILE 708
//*      The MPFLSTxx entries would look like this:                 *   FILE 708
//*       REPLY,SUP(NO),RETAIN(NO),USEREXIT(MPFXTALL),AUTO(NO)      *   FILE 708
//*       SHUTIDMS,SUP(NO),RETAIN(NO),USEREXIT(MPFXTALL),AUTO(NO)   *   FILE 708
//*       *                                                         *   FILE 708
//*      The commands member REPLY would look like this:            *   FILE 708
//*       IF WORD 05 V8                                             *   FILE 708
//*       GET REPLYID                                               *   FILE 708
//*       DELSWITCH IDMSV8                                          *   FILE 708
//*       SETSWITCH IDMSV8   &,/CHE DUMPQ                           *   FILE 708
//*       ENDGET ID                                                 *   FILE 708
//*       ENDIF                                                     *   FILE 708
//*       *                                                         *   FILE 708
//*       IF WORD 05 V9                                             *   FILE 708
//*       GET REPLYID                                               *   FILE 708
//*       DELSWITCH IDMSV9                                          *   FILE 708
//*       SETSWITCH IDMSV9   &,/CHE DUMPQ                           *   FILE 708
//*       ENDGET ID                                                 *   FILE 708
//*       ENDIF                                                     *   FILE 708
//*       *                                                         *   FILE 708
//*      The commands member SHUTIDMS would look like this:         *   FILE 708
//*       IF SWITCH ON IDMSV8                                       *   FILE 708
//*       PUTSWITCH IDMSV8                                          *   FILE 708
//*       DELSWITCH IDMSV8                                          *   FILE 708
//*       ENDIF SWITCH ON                                           *   FILE 708
//*       *                                                         *   FILE 708
//*       IF SWITCH ON IDMSV9                                       *   FILE 708
//*       PUTSWITCH IDMSV9                                          *   FILE 708
//*       DELSWITCH IDMSV9                                          *   FILE 708
//*       ENDIF SWITCH ON                                           *   FILE 708
//*       *                                                         *   FILE 708
//*      Then have your automation shutdown procedure issue a       *   FILE 708
//*       SHUTIDMS                                                  *   FILE 708
//*                                                                 *   FILE 708
//*     A few very slick additions from Garry Green.  First is the  *   FILE 708
//*       ASTYPE this allows you too check if the task is a TSO,    *   FILE 708
//*       Batch or STC, T for TSO, J for BATCH and S for STC.       *   FILE 708
//*        IF ASTYPE EQ T                                           *   FILE 708
//*        IF ASTYPE EQ J                                           *   FILE 708
//*        IF ASTYPE EQ S                                           *   FILE 708
//*       So if you needed to reply cancel to the following message *   FILE 708
//*       only for TSO Userid's                                     *   FILE 708
//*        *61 IEF238D GSI - REPLY DEVICE NAME OR 'CANCEL'.         *   FILE 708
//*       The Commands IEF238D member would look like this          *   FILE 708
//*        IF ASTYPE EQ T                                           *   FILE 708
//*        REPLY NN,CANCEL                                          *   FILE 708
//*        ENDIF ASTYPE                                             *   FILE 708
//*       *                                                         *   FILE 708
//*     Now for the TSOROUTE command this allows a TSO user to      *   FILE 708
//*       reply to there own outstanding requests WTOR's from there *   FILE 708
//*       own TSO userid for WTOR's issued for there TSO userid.    *   FILE 708
//*       So if you want all user's to be able to reply to message  *   FILE 708
//*       *61 IEF238D GSI - REPLY DEVICE NAME OR 'CANCEL'.          *   FILE 708
//*       The Commands IEF238D member would look like this          *   FILE 708
//*        IF ASTYPE EQ T                                           *   FILE 708
//*        TSOROUTE REPLY                                           *   FILE 708
//*        ENDIF ASTYPE                                             *   FILE 708
//*       This will allow only the TSO userid to reply to the       *   FILE 708
//*       outstanding reply, the TSO userid will receive the        *   FILE 708
//*       following message, there will be no outstanding request   *   FILE 708
//*       on the master console:                                    *   FILE 708
//*        MPF201I ONLY THIS TSO TERMINAL CAN REPLY TO FOLLOWING    *   FILE 708
//*         WTOR-CONSOLES CAN'T REPLY                               *   FILE 708
//*        IEF238D GGG - REPLY DEVICE NAME OR 'CANCEL'.             *   FILE 708
//*       *                                                         *   FILE 708
//*       The other options for TSOROUTE are TSOROUTE which only    *   FILE 708
//*       sends a message to to the TSO userid as follows:          *   FILE 708
//*        MPF203I FOLLOWING WTOR FOR DISPLAY ONLY - REPLY MUST BE  *   FILE 708
//*         ENTERED FROM CONSOLE                                    *   FILE 708
//*        IEF238D GSI - REPLY DEVICE NAME OR 'CANCEL'.             *   FILE 708
//*       *                                                         *   FILE 708
//*       And the TSOROUTE SUPPRESS this will suppress the reply    *   FILE 708
//*       to the outstanding request, good for password replies.    *   FILE 708
//*       The message sent to the TSO userid is as follows:         *   FILE 708
//*        MPF201I ONLY THIS TSO TERMINAL CAN REPLY TO FOLLOWING    *   FILE 708
//*         WTOR-CONSOLES CAN'T REPLY                               *   FILE 708
//*        MPF202I REPLY VALUE YOU ENTER WILL BE SUPPRESSED FROM    *   FILE 708
//*         CONSOLE, JOBLOG & SYSLOG                                *   FILE 708
//*        IEF238D GSI - REPLY DEVICE NAME OR 'CANCEL'.             *   FILE 708
//*                                                                 *   FILE 708
//*     ESTAE recovery routine added by Garry GREAT addition        *   FILE 708
//*       now no matter what happens MPFTXALL will stay alive.      *   FILE 708
//*       If an MPF exit routine such as MPFXTALL abends, it is     *   FILE 708
//*       disabled for ALL the message id's that it is associated   *   FILE 708
//*       This can have several undesirable side effects:           *   FILE 708
//*       1) Perhaps the exit is abending due to a bug triggered by *   FILE 708
//*          only one message id that rarely occurs.                *   FILE 708
//*       2) Until the disablement is noticed, many automation      *   FILE 708
//*          events can be lost.                                    *   FILE 708
//*       ESTAEX protection around the entire MPFXTALL code;        *   FILE 708
//*       in the event that there is an abend in MPFXTALL, a WTO    *   FILE 708
//*       MPF038E MPFXTALL ABENDED; ABEND WAS SUPPRESSED message    *   FILE 708
//*       will be issued, no further processing will occur for the  *   FILE 708
//*       message that caused the abend, but since the abend was    *   FILE 708
//*       suppressed, MPFXTALL remains active.                      *   FILE 708
//*                                                                 *   FILE 708
//*     Inner and outer IF's for all, IF's any combination up to 16 *   FILE 708
//*       deep any order, keep track of your ENDIF's and ENDGET's.  *   FILE 708
//*                                                                 *   FILE 708
//*     Added error handling for Sysprog's that don't RTFM.         *   FILE 708
//*                                                                 *   FILE 708
//*     The SETAUTO command will set the Automation flag on, this   *   FILE 708
//*       will pass the message to any other automation packages,   *   FILE 708
//*       why I don't know, why would one need anything else.       *   FILE 708
//*                                                                 *   FILE 708
//*     The SETAMRF command will set the Automatic Retain on for    *   FILE 708
//*       that message, AMRF needs to be on for this to work.       *   FILE 708
//*                                                                 *   FILE 708
//*     This exit has been tested on OS/390 2.10, z/OS 1.4 z/OS 1.5 *   FILE 708
//*       z/OS 1.6 and z/OS 1.7                                     *   FILE 708
//*                                                                 *   FILE 708
//*     For existing users, if you're using a version previous to   *   FILE 708
//*       Version 5 please see $EXISTNG for proper replacment steps.*   FILE 708
//*                                                                 *   FILE 708
//*     Your next stop should be $INSTALL and $USAGE                *   FILE 708
//*                                                                 *   FILE 708
//*     This exit was originally started from CBT FILE345           *   FILE 708
//*       MPFXTALL courtesy of Murray Nicholas.  Thank you          *   FILE 708
//*       Murray for a great idea.                                  *   FILE 708
//*                                                                 *   FILE 708
//*     Also included are the DYNAMIC ALLOCATION Macros from        *   FILE 708
//*       CBT FILE615 courtesy of Lionel B Dyck.  Thank you         *   FILE 708
//*       Lionel for an easy and seamless way to implement          *   FILE 708
//*       Dynamic Allocation.                                       *   FILE 708
//*                                                                 *   FILE 708
//*     And also the read directory part of the MPFLOAD program     *   FILE 708
//*       was copied from CBT FILE558 courtesy of Dick              *   FILE 708
//*       Thornton.  Thanks Dick for the code you provided.         *   FILE 708
//*       Lots of good code there.  You should all have a look.     *   FILE 708
//*                                                                 *   FILE 708
//*     I'd also like to thank Marc Reibstein for his neet parsing  *   FILE 708
//*       routine @ http://www.marcsweb.com/mnweb_370trtparse.shtml *   FILE 708
//*       I no longer use this thanks to Garry's SRST command       *   FILE 708
//*       addition.                                                 *   FILE 708
//*                                                                 *   FILE 708
//*     And I'd like to thank Dave Mesiano and Mike Wojtukiewicz    *   FILE 708
//*       for their help with questions I've had.                   *   FILE 708
//*                                                                 *   FILE 708
//*     And last but not least to Sam Golob for pointing me to      *   FILE 708
//*       some neat HEX conversion macro and code.  Thanks Sam      *   FILE 708
//*       for enabling me to display the address and length of      *   FILE 708
//*       the Name/Token created and for all of your great work     *   FILE 708
//*       with CBT.                                                 *   FILE 708
//*                                                                 *   FILE 708
//*     I've included programs ASKOPER by Bill Godfrey and PAUSE    *   FILE 708
//*       since I use them and made reference to them in an example *   FILE 708
//*       of my automated shutdown see member SHUTDOWN.             *   FILE 708
//*                                                                 *   FILE 708
//*     And now I'd like to thank all the new contributors.         *   FILE 708
//*                                                                 *   FILE 708
//*  Contributed modifications:                                     *   FILE 708
//*                                                                 *   FILE 708
//*   Tom Lewis:                                                    *   FILE 708
//*       TL01 - Displays the message id causing the command/reply  *   FILE 708
//*              to be issued ie.  Ata'boy Tom.                     *   FILE 708
//*        /* Issued by MPFXTALL for messageID      */              *   FILE 708
//*                                                                 *   FILE 708
//*   Peter Johnson:                                                *   FILE 708
//*       PJ01 - Multi-line message handling, great addition.       *   FILE 708
//*       PJ02 - Multiple blanks allowed between words.             *   FILE 708
//*       PJ03 - Get Word length increased to 40 chars              *   FILE 708
//*       PJGS1 - Joint effort of AUTO/TOKEN by Peter and Glenn     *   FILE 708
//*                                                                 *   FILE 708
//*   Garry G. Green:                                               *   FILE 708
//*       GG01 - Code to enable MPFLOAD to act as a subsystem,      *   FILE 708
//*              this allows MPFLOAD to execute very early in the   *   FILE 708
//*              IPL, another great addition.                       *   FILE 708
//*       GG58 - IF ASTYPE and TSOROUTE                             *   FILE 708
//*       GG59 - ESATE protection for MPFXTALL ******* Thanks Garry *   FILE 708
//*                                                                 *   FILE 708
//*   Dean Tesar                                                    *   FILE 708
//*       DT01 - Code for suppressing joblog only messages NOJOBLOG *   FILE 708
//*              and syslog only messages NOSYSLOG.                 *   FILE 708
//*       DT02 - MPFSUPNO setting                                   *   FILE 708
//*       DT03 - Three and four digit replies                       *   FILE 708
//*                                                                 *   FILE 708
//*                                                                 *   FILE 708
//*     If you want to be on the mailing list send me an email.     *   FILE 708
//*                                                                 *   FILE 708
//*     All comments, suggestions or requests please send email.    *   FILE 708
//*                                                                 *   FILE 708
//*     Author: Glenn Siegel                                        *   FILE 708
//*             S.S.C. Corp.                                        *   FILE 708
//*             GlennSiegel@optonline.net                           *   FILE 708
//*             631-444-5339                                        *   FILE 708
//*             516-607-4005 Cell                                   *   FILE 708
//*             We do systems right!                                *   FILE 708
//*                                                                 *   FILE 708
//***FILE 709 is from Bob Shannon and contains an MPFCMD program.   *   FILE 709
//*                                                                 *   FILE 709
//*           email:  bob.shannon@rocketsoftware.com                *   FILE 709
//*                                                                 *   FILE 709
//***FILE 710 is two TSO commands to display disk dataset records   *   FILE 710
//*           or disk volume records.  These commands were meant    *   FILE 710
//*           to work both on MVS 3.8 under Hercules, or under      *   FILE 710
//*           OS/390 and z/OS.  All necessary ingredients to get    *   FILE 710
//*           these commands to work, are hopefully included here.  *   FILE 710
//*                                                                 *   FILE 710
//*           email:  somitcw@yahoo.com                             *   FILE 710
//*                                                                 *   FILE 710
//***FILE 711 is a very useful LIBRARIAN program package, and which *   FILE 711
//*           is completely new at this time (Mar/06). The package  *   FILE 711
//*           is being contributed semi-anonymously.  Problems and  *   FILE 711
//*           fixes will be fielded by Sam Golob.                   *   FILE 711
//*                                                                 *   FILE 711
//*   >>> --------------------------------------------------------  *   FILE 711
//*   >>> This LIBRARIAN is a free package, unrelated to any other  *   FILE 711
//*   >>> package having the same or a similar name......           *   FILE 711
//*   >>> --------------------------------------------------------  *   FILE 711
//*                                                                 *   FILE 711
//*           email:  sbgolob@cbttape.org                           *   FILE 711
//*                                                                 *   FILE 711
//*   People who are using this utility are encouraged to send in   *   FILE 711
//*   their suggestions for improvement to Sam Golob, who will      *   FILE 711
//*   forward them to the package's author.                         *   FILE 711
//*                                                                 *   FILE 711
//*   Some documentation for this utility follows:                  *   FILE 711
//*                                                                 *   FILE 711
//*     The LIBRARIAN is a VTAM LU 6.2 client-server type           *   FILE 711
//*     application.                                                *   FILE 711
//*                                                                 *   FILE 711
//*     My idea for using an LU 6.2 interface was to allow          *   FILE 711
//*     users to access a library without having to log-in to       *   FILE 711
//*     the system where the library actually lives.  You could     *   FILE 711
//*     have a system at a central location serving remote          *   FILE 711
//*     offices.  If you have multiple LPARs, users can access      *   FILE 711
//*     libraries on any of the LPARs while logged in to only       *   FILE 711
//*     one of the LPARs.                                           *   FILE 711
//*                                                                 *   FILE 711
//*     Since you have PDSs (libraries) on MVS already, what do     *   FILE 711
//*     I need a librarian for?  The LIBRARIAN prevents             *   FILE 711
//*     multiple users from updating a member at the same time.     *   FILE 711
//*     When a user wants to update a member of a library, they     *   FILE 711
//*     "CHECK OUT" the member.  The LIBRARIAN updates the          *   FILE 711
//*     status to reflect the status is "CHECKED OUT" and           *   FILE 711
//*     records the time, date, and user id of who CHECKED OUT      *   FILE 711
//*     the member.  While the member is in CHECKED OUT state,      *   FILE 711
//*     others will not be allowed to CHECK OUT the same            *   FILE 711
//*     member.  Only the user that CHECKED out the member may      *   FILE 711
//*     CHECK IN that member.  When the member is CHECKED IN,       *   FILE 711
//*     the LIBRARIAN will change the status to CHECKED IN and      *   FILE 711
//*     record the time, date, and user id of the user that         *   FILE 711
//*     performed the CHECK IN.  A member may be VIEWed at any      *   FILE 711
//*     time.  VIEWing a member does not change the STATUS or       *   FILE 711
//*     the CHECK IN or CHECK OUT time stamps.                      *   FILE 711
//*                                                                 *   FILE 711
//*     Access to members is controlled via a user exit             *   FILE 711
//*     (LIBUX02).  You may over-ride standard access controls.     *   FILE 711
//*     For example, it may be that a user that has a member        *   FILE 711
//*     CHECKED OUT is on vacation or no long working for your      *   FILE 711
//*     company.  You may want to allow a manager to CHECK IN       *   FILE 711
//*     the member.                                                 *   FILE 711
//*                                                                 *   FILE 711
//*     The server or back-end can be run as a JOB or started       *   FILE 711
//*     task (STC).  Users may interface with the LIBRARIAN         *   FILE 711
//*     either though batch or an SPF dialog.                       *   FILE 711
//*                                                                 *   FILE 711
//*     The LIBRARIAN can manage multiple libraries.  This          *   FILE 711
//*     allows one LIBRARIAN to manage SOURCE, MACRO, JCL, etc      *   FILE 711
//*     libraries.                                                  *   FILE 711
//*                                                                 *   FILE 711
//*     Libraries are KSDS VSAM clusters.                           *   FILE 711
//*                                                                 *   FILE 711
//*     Members in the library may be stored in a compressed        *   FILE 711
//*     form.  User exit LIBUX01 allows you to use the              *   FILE 711
//*     LIBRARIAN supplied compression, use a compression           *   FILE 711
//*     method of your own, or turn compression off.  The           *   FILE 711
//*     librarian compression mechanism averages about a 4-to-1     *   FILE 711
//*     compression ratio.                                          *   FILE 711
//*                                                                 *   FILE 711
//*     This version of the LIBRARIAN allows you to add up to 5     *   FILE 711
//*     lines of comments about a member for documentation.         *   FILE 711
//*     These comments are not considered a part of the member      *   FILE 711
//*     itself.                                                     *   FILE 711
//*                                                                 *   FILE 711
//*     The LIBRARIAN allows for up to 32,767 versions of a         *   FILE 711
//*     given member.                                               *   FILE 711
//*                                                                 *   FILE 711
//*     The VSAM key used in the KSDSs allow approximately 2        *   FILE 711
//*     billion (a 4 byte binary field) blocks of source data.      *   FILE 711
//*     Each block is up to 8K in size.  If data compression is     *   FILE 711
//*     used, the blocks contain compressed data.  The amount       *   FILE 711
//*     of data that can be stored in a library is usually          *   FILE 711
//*     limited only by the amount of disk space available.         *   FILE 711
//*                                                                 *   FILE 711
//*     Several supporting utilities are also supplied.             *   FILE 711
//*       .  LIBINIT     Initializes a new library.                 *   FILE 711
//*       .  UTIL0001    Loads members to a library "offline"       *   FILE 711
//*       .  UTIL0002    Unloads a library to a sequential file     *   FILE 711
//*       .  UTIL0003    Converts a source file to compressed form  *   FILE 711
//*       .  UTIL0004    Detail library status report.              *   FILE 711
//*       .  UTIL0005    Unloads members to a sequential file in    *   FILE 711
//*                      LIBRARIAN "export" format                  *   FILE 711
//*       .  UTIL0006    Imports members from a sequential file     *   FILE 711
//*                      in LIBRARIAN "export" format               *   FILE 711
//*                                                                 *   FILE 711
//***FILE 712 is from Paul Gorlinsky and contains two COBOL         *   FILE 712
//*           programs which use the TCP/IP socket interface        *   FILE 712
//*           from CICS.                                            *   FILE 712
//*                                                                 *   FILE 712
//*       SFTPXXCX - Program to send a file from CICS using         *   FILE 712
//*                  the TCP/IP socket interface.                   *   FILE 712
//*                                                                 *   FILE 712
//*       SFTPXXIX - Copy member to lay out the format of the       *   FILE 712
//*                  parameter list for SFTPXXCX.                   *   FILE 712
//*                                                                 *   FILE 712
//*       SMTPXXCX - Program to send mail from CICS using the       *   FILE 712
//*                  TCP/IP socket interface.                       *   FILE 712
//*                                                                 *   FILE 712
//*       SMTPXXIX - Copy member for the send mail program.         *   FILE 712
//*                                                                 *   FILE 712
//*       email:  pfg@hds.bz                                        *   FILE 712
//*                                                                 *   FILE 712
//***FILE 713 is from Steve Myers and contains a version of the     *   FILE 713
//*           EMPTYPDS program from File 172, with the APF          *   FILE 713
//*           requirement removed, and a few other changes.         *   FILE 713
//*                                                                 *   FILE 713
//*           Fixed by Sam Golob to produce proper return codes     *   FILE 713
//*           and to display a title message, plus a few other      *   FILE 713
//*           fixes.  See member $$NOTE3.  Issue proper messages    *   FILE 713
//*           to the JES log, even if SYSPRINT DD is missing.       *   FILE 713
//*           This will always ensure that the user is properly     *   FILE 713
//*           informed of what the program did, or didn't do.       *   FILE 713
//*                                                                 *   FILE 713
//*           This program runs in batch and empties a pds of       *   FILE 713
//*           its members by writing a first key with X'FF's        *   FILE 713
//*           in the pds directory.                                 *   FILE 713
//*                                                                 *   FILE 713
//*           Tested on z/OS 1.7 and 1.8 by Steve Myers.            *   FILE 713
//*           Tested on z/OS 1.9 and 1.10 by Sam Golob.             *   FILE 713
//*                                                                 *   FILE 713
//*  email:  "Steve Myers" <stephen-myers@comcast.net>              *   FILE 713
//*          "David Cartwright" <dcartwright@ymail.com>             *   FILE 713
//*          sbgolob@cbttape.org                                    *   FILE 713
//*                                                                 *   FILE 713
//***FILE 714 is from Bob Styma and contains a set of programs      *   FILE 714
//*           to enable an MVS system that is running under         *   FILE 714
//*           FLEX-ES to issue flexes commands to the Linux         *   FILE 714
//*           system it is running on.                              *   FILE 714
//*                                                                 *   FILE 714
//*        If you have any questions, feel free to contact me:      *   FILE 714
//*                                                                 *   FILE 714
//*        Robert Styma    stymar@lucent.com,   styma@swlink.net    *   FILE 714
//*                                                                 *   FILE 714
//*     Normal disclaimer, this program is provided free of         *   FILE 714
//*     charge and no warranty is made as to its fitness for        *   FILE 714
//*     any particular purpose.  The author assumes no              *   FILE 714
//*     liability resulting from the use or misuse of these         *   FILE 714
//*     programs.                                                   *   FILE 714
//*                                                                 *   FILE 714
//*     This distribution contains 3 parts.                         *   FILE 714
//*                                                                 *   FILE 714
//*     1.  $$NOTE1 - general description of the package            *   FILE 714
//*                                                                 *   FILE 714
//*     2.  The MVS side of the program -                           *   FILE 714
//*                                                                 *   FILE 714
//*          Note:  This consists of members:                       *   FILE 714
//*           $COMPILE $SAMPOUT $SAMPRUN ASMSRC COS001A             *   FILE 714
//*           COS001B  DSSDUMP  LINKDATE PLISRC                     *   FILE 714
//*                                                                 *   FILE 714
//*     3.  TAR     - (download this to the Linux side of the       *   FILE 714
//*                    FLEX-ES system and un-tar it there.)         *   FILE 714
//*                                                                 *   FILE 714
//*        flexescli_inetd.tar  - The unix (linux) side of the      *   FILE 714
//*                     program designed to run under xinetd.       *   FILE 714
//*                     The comments at the beginning of            *   FILE 714
//*                     flexescli_inetd.c describe how to set       *   FILE 714
//*                     the program up for use with xinetd.         *   FILE 714
//*                                                                 *   FILE 714
//*     General program description:                                *   FILE 714
//*                                                                 *   FILE 714
//*        Note:  The flexescli_inetd program, by way of xinetd     *   FILE 714
//*        is listening on a port.  The MVS side of the program     *   FILE 714
//*        will contact the flexescli_inetd program using the       *   FILE 714
//*        IP address of the UNIX side of the system and the        *   FILE 714
//*        port.  The MVS side has the port 19999 coded into it     *   FILE 714
//*        as a default although it can be overridden with the      *   FILE 714
//*        port= parameter to the main parm string.                 *   FILE 714
//*                                                                 *   FILE 714
//*        The port on the Unix side is specified in                *   FILE 714
//*        /etc/services.  The update to /etc/services is shown     *   FILE 714
//*        in flexescli_inetd.c using the port 19999.  You may      *   FILE 714
//*        wish to use a different port.  If you use a              *   FILE 714
//*        different port, update the MVS program (member           *   FILE 714
//*        PLISRC) to reflect the new port.  You will probably      *   FILE 714
//*        update it to change the default IP address to the        *   FILE 714
//*        correct value on your system.                            *   FILE 714
//*                                                                 *   FILE 714
//***FILE 715 is a revival of the Tape Erase program that used to   *   FILE 715
//*           be on File 370 of the CBT Tape Version 249 from July  *   FILE 715
//*           1985.  This is an old program from the Federal Bank   *   FILE 715
//*           of (West) Germany from the very early 1980s.          *   FILE 715
//*                                                                 *   FILE 715
//*       Questions or problems about this program should be        *   FILE 715
//*       directed to Sam Golob:   sbgolob@cbttape.org              *   FILE 715
//*                                                                 *   FILE 715
//*       Two versions of this program are presented.  The first    *   FILE 715
//*       is called DSE, and the second, for MVS systems that are   *   FILE 715
//*       too primitive to have the OPEN with EXTEND option, is     *   FILE 715
//*       called DSEALT.  The original two programs and instruc-    *   FILE 715
//*       tions are presented unchanged, as member DSEORIG.         *   FILE 715
//*                                                                 *   FILE 715
//*       Modern assembly-linkedit JCL is member DSE$, and some     *   FILE 715
//*       sample run JCL is presented as member DSE@.  Below is     *   FILE 715
//*       the original description of the program from CBT Tape     *   FILE 715
//*       File 001, with only the German spelling of the word       *   FILE 715
//*       "programm" changed to the spelling "program".             *   FILE 715
//*                                                                 *   FILE 715
//*  Original description of this program...                        *   FILE 715
//*                                                                 *   FILE 715
//*          FILE 370 IS A TAPE ERASE PROGRAM FROM THE              *   FILE 715
//*          FEDERAL BANK OF WEST GERMANY.  THE FOLLOWING           *   FILE 715
//*          IS A DETAILED DESCRIPTION.                             *   FILE 715
//*                                                                 *   FILE 715
//*          PROGRAM TO ERASE A TAPE STARTING AFTER A               *   FILE 715
//*          GIVEN DATASET UNTIL IT REACHES THE REFLECTIVE          *   FILE 715
//*          SPOT, THEREAFTER IT WRITES SOME ERASE GAPS TO          *   FILE 715
//*          BE 200 PERCENT SURE.                                   *   FILE 715
//*                                                                 *   FILE 715
//*          THIS PROGRAM HANDLES SL AND NL TAPES, AND              *   FILE 715
//*          USES THE DATA-SECURITY-ERASE HARDWARE                  *   FILE 715
//*          COMMAND TO DO THE JOB. NO CHANNEL BUSY, NO             *   FILE 715
//*          CPU-BUSY. MERELY THE CONTROL UNIT IS BUSY.             *   FILE 715
//*                                                                 *   FILE 715
//*          WITH THIS PROGRAM YOU CAN ERASE BOTH SL AND            *   FILE 715
//*          NL TAPES.  ALL YOU HAVE TO DO IS SUPPLY THE            *   FILE 715
//*          LAST DATASET NAME THAT SHOULD REMAIN ON THE            *   FILE 715
//*          VOLUME.                                                *   FILE 715
//*                                                                 *   FILE 715
//*          THE PROGRAM HANDLES ALL POSSIBLE CONDITIONS            *   FILE 715
//*                                                                 *   FILE 715
//*             IT CHECKS THAT THERE IS A FILE-PROTECT              *   FILE 715
//*             RING ON THE TAPE.                                   *   FILE 715
//*                                                                 *   FILE 715
//*             IT CHECKS THE CONDITION THAT THE FILE               *   FILE 715
//*             ALREADY REACHED THE REFLECTIVE SPOT.                *   FILE 715
//*                                                                 *   FILE 715
//*          NORMAL OPERATION FOR A MULTI-VOLUME DATASET            *   FILE 715
//*          IS THAT THE PROGRAM TAKES THE LAST VOLUME              *   FILE 715
//*          AND ERASES IT, YOU CAN SUPPLY A PARM VALUE OF          *   FILE 715
//*          'H', IN THAT CASE THE PROGRAM TAKES EVERY              *   FILE 715
//*          VOLUME OF A MULTI-VOLUME DATASET AND ERASES            *   FILE 715
//*          IT, THIS WAS TO HANDLE A SITUATION IN OUR              *   FILE 715
//*          INSTALLATION WHERE A PROGRAM HAD TO WRITE A            *   FILE 715
//*          GIVEN AMOUNT OF BLOCKS ON EVERY SINGLE REEL            *   FILE 715
//*          OF A MULTI-VOLUME DATASET AND THEN SWITCHED            *   FILE 715
//*          THE VOLUME USING FORCED-END-OF-VOLUME.                 *   FILE 715
//*                                                                 *   FILE 715
//***FILE 716 is from Jim Moore and contains an ISPF application    *   FILE 716
//*           to display MVS enqueues using the new ISPF interface  *   FILE 716
//*           called QUERYENQ.                                      *   FILE 716
//*                                                                 *   FILE 716
//*           A detailed article explaining this interface was      *   FILE 716
//*           published in the March 2005 issue of "Technical       *   FILE 716
//*           Support" magazine from NaSPA.  A version of this      *   FILE 716
//*           article is in this file, as member $ARTICLE.          *   FILE 716
//*                                                                 *   FILE 716
//*           email for Jim Moore:     conlogco@comcast.net         *   FILE 716
//*                                                                 *   FILE 716
//*           email for Mike Tomkins:  mjt6@daimlerchrysler.com     *   FILE 716
//*                                                                 *   FILE 716
//*           email for Lionel Dyck:   lbdyck@gmail.com             *   FILE 716
//*                                                                 *   FILE 716
//*       Newly updated by Lionel Dyck, who incorporated the        *   FILE 716
//*       panels into the REXX.  Please see his notes at the        *   FILE 716
//*       beginning of the program.                                 *   FILE 716
//*                                                                 *   FILE 716
//*       Notes below pertain to Mike Tomkins' updates, and         *   FILE 716
//*       are carried over into Lionel's update.                    *   FILE 716
//*                                                                 *   FILE 716
//*       Mike Tomkins' version is member ENQ00.  Lionel's is       *   FILE 716
//*       member ENQ.                                               *   FILE 716
//*                                                                 *   FILE 716
//*       Once Jim created this package and wrote his article,      *   FILE 716
//*       Mike Tomkins has found a few ways to improve it.  Mike's  *   FILE 716
//*       version may be found in the two members called ENQ00 and  *   FILE 716
//*       ENQ@.  To make it easier to create the pds that installs  *   FILE 716
//*       Mike's ENQ package, I've included two members here, the   *   FILE 716
//*       PDSLOAD program, in TSO XMIT format, and the $PDSLOAD     *   FILE 716
//*       member, which is one-stop JCL to create the install pds   *   FILE 716
//*       for ENQ.  (Maybe overkill--it could have been done by     *   FILE 716
//*       hand.  SBG)  Mike's notes are in member ENQ@.  An         *   FILE 716
//*       excerpt is copied below:                                  *   FILE 716
//*                                                                 *   FILE 716
//*       I thought you might like to get my updates to the ISPF    *   FILE 716
//*       ENQ facility in file 716 originally provided by Jim       *   FILE 716
//*       Moore which accompanied his article in Technical          *   FILE 716
//*       Support.                                                  *   FILE 716
//*                                                                 *   FILE 716
//*       I've loosened the restictions, so to speak, to allow      *   FILE 716
//*       its use as a more general ENQ display facility.  The      *   FILE 716
//*       following are the changes:                                *   FILE 716
//*                                                                 *   FILE 716
//*       1. Removed the restriction that the input must be a       *   FILE 716
//*          DSN; i.e. any pattern or no input can be supplied as   *   FILE 716
//*          an "*" is automatically appended to the input.  If     *   FILE 716
//*          there is no RNAME input, ALL ENQ's for ALL QNAMES      *   FILE 716
//*          are displayed.                                         *   FILE 716
//*                                                                 *   FILE 716
//*       2. Updated to allow a larger popup window width of 77     *   FILE 716
//*          vs. 46.                                                *   FILE 716
//*                                                                 *   FILE 716
//*       3. Updated to allow a larger popup window depth of 39     *   FILE 716
//*          for mod4's and 20 for all other devices vs. the        *   FILE 716
//*          original 8.                                            *   FILE 716
//*                                                                 *   FILE 716
//*       4. Added LIMIT(0) to the QUERYENQ invocation to           *   FILE 716
//*          override the default limit of 5,000 returned table     *   FILE 716
//*          rows.                                                  *   FILE 716
//*                                                                 *   FILE 716
//***FILE 717 is from Joseph Caughman and contains his JumpList     *   FILE 717
//*           package which is a way of organizing datasets that    *   FILE 717
//*           a programmer needs, into user-defined groups of       *   FILE 717
//*           datasets, called profiles.                            *   FILE 717
//*                                                                 *   FILE 717
//*           JumpList also allows file tailoring, when submitting  *   FILE 717
//*           JCL for execution.  This means the dynamic substitu-  *   FILE 717
//*           tion of variable values into the JCL, so that one     *   FILE 717
//*           sample of JCL may be used to submit a variety of      *   FILE 717
//*           different actual jobs.                                *   FILE 717
//*                                                                 *   FILE 717
//*           A user guide in Word format is included in this pds,  *   FILE 717
//*           as member $DOCFILE.  Download this member in BINARY   *   FILE 717
//*           to a PC and use it from there.                        *   FILE 717
//*                                                                 *   FILE 717
//*           email:  JFCAUGHMAN@sc.rr.com                          *   FILE 717
//*                   JOE.CAUGHMAN@GMAIL.COM                        *   FILE 717
//*                                                                 *   FILE 717
//*        Introduction                                             *   FILE 717
//*                                                                 *   FILE 717
//*        JumpList provides an all-in-one convenient environment   *   FILE 717
//*        for programmers, to make it much easier for one person   *   FILE 717
//*        or a member of a group, to easily organize his or her    *   FILE 717
//*        work.                                                    *   FILE 717
//*                                                                 *   FILE 717
//*        JumpList allows the organization of data set groups      *   FILE 717
//*        by user-defined profile names.  A profile name could     *   FILE 717
//*        relate to the latest ongoing project or could relate     *   FILE 717
//*        to a set of JCL utilities or compile and link JCL.       *   FILE 717
//*        JumpList allows you to Edit, View, or Browse PDS,        *   FILE 717
//*        Sequential data sets, and Generational data sets.        *   FILE 717
//*                                                                 *   FILE 717
//*        It also supports File Tailoring through its Initial      *   FILE 717
//*        Script function.  This provides one way to compile       *   FILE 717
//*        programs or provide other advanced functionality.        *   FILE 717
//*                                                                 *   FILE 717
//*        Delete, copy, and rename functions are left to the       *   FILE 717
//*        DSLIST function of Edit.  DSLIST is equivalent to        *   FILE 717
//*        option 3.4 of ISPF and provides the means to perform     *   FILE 717
//*        data set maintenance.  This function is invoked by       *   FILE 717
//*        using the ESCR, for Edit Screen, command in CMD for      *   FILE 717
//*        a partitioned data set.                                  *   FILE 717
//*                                                                 *   FILE 717
//*        JumpList also simplifies the execution of complicated    *   FILE 717
//*        commands by allowing them to be invoked simply by        *   FILE 717
//*        typing one word.                                         *   FILE 717
//*                                                                 *   FILE 717
//***FILE 718 contains two TSO LOGON exits from Gary Green.         *   FILE 718
//*           A detailed description of the file follows:           *   FILE 718
//*                                                                 *   FILE 718
//*     Garry G. Green                                              *   FILE 718
//*     Futurity Software International Inc.                        *   FILE 718
//*     garry@futuritysoftware.com                                  *   FILE 718
//*                                                                 *   FILE 718
//*     <=====================================================>     *   FILE 718
//*                                                                 *   FILE 718
//*     File Description:                                           *   FILE 718
//*                                                                 *   FILE 718
//*     This file contains a TSO Logon Pre-Prompt exit              *   FILE 718
//*     (IKJEFLD1) and a corresponding TSO Logoff exit              *   FILE 718
//*     (IKJEFLD2).                                                 *   FILE 718
//*                                                                 *   FILE 718
//*     The TSO Logon exit permits logging on to TSO using any      *   FILE 718
//*     JES subsystem, including the Master subsystem (MSTR),       *   FILE 718
//*     since it too is a JES subsystem.                            *   FILE 718
//*                                                                 *   FILE 718
//*     This provides the capability of logging onto secondary      *   FILE 718
//*     JES2's, for example.  Unfortunately, to my knowledge,       *   FILE 718
//*     such a capability is beyond JES3 - as the commercial        *   FILE 718
//*     goes, "if JES3 could do it, we'd support it.                *   FILE 718
//*                                                                 *   FILE 718
//*     As well, it provides the ability to logon under the         *   FILE 718
//*     MSTR Subsystem, which is a life saver if JES2/JES3 will     *   FILE 718
//*     not start (e.g. JCL Error).                                 *   FILE 718
//*                                                                 *   FILE 718
//*     There have been various flavors of this modification in     *   FILE 718
//*     distribution.  Some did not support specifying the          *   FILE 718
//*     target subsystem; some required adding special TSO          *   FILE 718
//*     userids to the IEFSSN member of parmlib; some required      *   FILE 718
//*     zapping a module of MVS (MVS's STC component).              *   FILE 718
//*                                                                 *   FILE 718
//*     But I always prefer that if there is going to be any        *   FILE 718
//*     "zapping" going on, that it be done in memory rather        *   FILE 718
//*     than on dasd.  The elimination of SMPE maintenance          *   FILE 718
//*     issues, and ease of installation and backout should         *   FILE 718
//*     make this obvious.                                          *   FILE 718
//*                                                                 *   FILE 718
//*     <=====================================================>     *   FILE 718
//*                                                                 *   FILE 718
//*                     CHANGES YOU SHOULD MAKE                     *   FILE 718
//*                                                                 *   FILE 718
//*                                                                 *   FILE 718
//*     These exits support logging on to TSO, but the              *   FILE 718
//*     requirement still remains that VTAM and TCAS can start.     *   FILE 718
//*     These too can start under the MSTR subsystem, by:           *   FILE 718
//*                                                                 *   FILE 718
//*       1) Eliminating SYSOUT datasets in their JCL Procs         *   FILE 718
//*          (the MSTR subsystem does not support the SYSOUT        *   FILE 718
//*          SSI interface)                                         *   FILE 718
//*                                                                 *   FILE 718
//*       2) Putting their JCL procs in a proclib @ by the          *   FILE 718
//*          IEFPDSI DD statement in your Master JCL (Parmlib       *   FILE 718
//*          member MSTJCLnn); note that it is NOT sufficient       *   FILE 718
//*          to put their JCL in a proclib specified to your        *   FILE 718
//*          Primary JES (i.e. in its JCL Proc, or                  *   FILE 718
//*          dynamically); remember, we want these tasks to         *   FILE 718
//*          start EVEN if the primary JES does not.                *   FILE 718
//*                                                                 *   FILE 718
//*          e.g.                                                   *   FILE 718
//*                                                                 *   FILE 718
//*          //MSTJCL00 JOB MSGLEVEL=(1,1),TIME=1440                *   FILE 718
//*          //         EXEC PGM=IEEMB860,DPRTY=(15,15)             *   FILE 718
//*          //STCINRDR DD SYSOUT=(A,INTRDR)                        *   FILE 718
//*          //TSOINRDR DD SYSOUT=(A,INTRDR)                        *   FILE 718
//*          //IEFPDSI  DD DSN=SYS2.PROCLIB,DISP=SHR                *   FILE 718
//*          //         DD DSN=SYS1.PROCLIB,DISP=SHR                *   FILE 718
//*          //         DD DSN=SYS1.IBM.PROCLIB,DISP=SHR            *   FILE 718
//*          //SYSUADS  DD DSN=SYS1.UADS,DISP=SHR                   *   FILE 718
//*          //SYSLBC   DD DSN=SYS1.BRODCAST,DISP=SHR               *   FILE 718
//*          //SYSRACF  DD DSN=SYS1.RACF,DISP=SHR                   *   FILE 718
//*          //VARYOFF  DD DSN=SYS2.VARYOFF,DISP=SHR                *   FILE 718
//*                                                                 *   FILE 718
//*       3) Changing the command used to start them                *   FILE 718
//*                                                                 *   FILE 718
//*          From:  S  NET                                          *   FILE 718
//*                 S  TSO                                          *   FILE 718
//*                                                                 *   FILE 718
//*          To  :  S  NET,SUB=MSTR,TIME=1440                       *   FILE 718
//*                 S  TSO,SUB=MSTR,TIME=1440                       *   FILE 718
//*                                                                 *   FILE 718
//*          Adding the TIME=1440 is a good idea, since the         *   FILE 718
//*          default time limit for jobs executing under the        *   FILE 718
//*          MSTR Subsystem is 0!!!                                 *   FILE 718
//*                                                                 *   FILE 718
//*     You can choose to have the capability of running VTAM       *   FILE 718
//*     and TCAS and TCP under the Primary JES, for normal          *   FILE 718
//*     circumstances, with the ability to run them under the       *   FILE 718
//*     MSTR subsystem in emergencies; this can be accomplished     *   FILE 718
//*     by removing the SYSOUT datasets, then either placing        *   FILE 718
//*     their JCL Procs in a single Proclib that is on both the     *   FILE 718
//*     MSTJCL's IEFPDSI DD statement AND on your regular JES       *   FILE 718
//*     Proclib concatenation, or placing a copy of their procs     *   FILE 718
//*     in two proclibs - one defined to the Master Subsystem,      *   FILE 718
//*     and one to your Primary JES Subsystem.                      *   FILE 718
//*                                                                 *   FILE 718
//*     If you do this, then your regular IPL Start commands        *   FILE 718
//*     would remain unchanged.  If your Primary JES fails to       *   FILE 718
//*     start, you can manually issue the MSTR versions of the      *   FILE 718
//*     START command for them, as shown above.                     *   FILE 718
//*                                                                 *   FILE 718
//*     I can remember the response when I asked a staff member     *   FILE 718
//*     of mine who handled VTAM if he had any issues with          *   FILE 718
//*     running VTAM under the MSTR Subsystem.  His comment was     *   FILE 718
//*     that if VTAM all of a sudden had a great urge to start      *   FILE 718
//*     submitting jobs via the internal reader (something that     *   FILE 718
//*     since it uses a SYSOUT interface, cannot be done from a     *   FILE 718
//*     job executing under MSTR), he'd want to know about          *   FILE 718
//*     it!!!                                                       *   FILE 718
//*                                                                 *   FILE 718
//*     My point is that it really should be no issue               *   FILE 718
//*     eliminating SYSOUT datasets from VTAM and TCAS (and         *   FILE 718
//*     TCP/Telnet) JCL Procs.                                      *   FILE 718
//*                                                                 *   FILE 718
//*     <=====================================================>     *   FILE 718
//*                                                                 *   FILE 718
//*                AUDITORS and the MASTER SUBSYSTEM                *   FILE 718
//*                                                                 *   FILE 718
//*                                                                 *   FILE 718
//*     For your auditors, there are no security issues created     *   FILE 718
//*     by running critical STC's under the Master Subsystem;       *   FILE 718
//*     in fact, it adds to your system's reliability, so they      *   FILE 718
//*     should fully endorse it.                                    *   FILE 718
//*                                                                 *   FILE 718
//*     <=====================================================>     *   FILE 718
//*                                                                 *   FILE 718
//*                         MISCELLANEOUS                           *   FILE 718
//*                                                                 *   FILE 718
//*     I don't believe in adding unnecesary code that really       *   FILE 718
//*     doesn't add anything, other than maintenance and            *   FILE 718
//*     debugging, therefore the LOGON exit does not check to       *   FILE 718
//*     see if the subsystem entered is a valid and active          *   FILE 718
//*     subsystem that supports running jobs (i.e. the Job          *   FILE 718
//*     Select SSI function).                                       *   FILE 718
//*                                                                 *   FILE 718
//*     <=====================================================>     *   FILE 718
//*                                                                 *   FILE 718
//*                     TSO LOGON EXIT IKJEFLD1                     *   FILE 718
//*                                                                 *   FILE 718
//*                                                                 *   FILE 718
//*     If a TSO LOGON is perfomed, this exit gets control and      *   FILE 718
//*     if its special format is not present, passes thru to        *   FILE 718
//*     regular logon (with one small transparent exception).       *   FILE 718
//*                                                                 *   FILE 718
//*     If the logon exit encounters a LOGON command, followed      *   FILE 718
//*     by exactly one blank, then a question mark, it invokes      *   FILE 718
//*     its extended logic.                                         *   FILE 718
//*                                                                 *   FILE 718
//*     1) Blank out the ?                                          *   FILE 718
//*     2) Prompt the user to enter the subsystem they want to      *   FILE 718
//*     logon under; if the user just presses enter, or enters      *   FILE 718
//*     the name of the Primary JES, then the exit just passes      *   FILE 718
//*     thru.                                                       *   FILE 718
//*                                                                 *   FILE 718
//*     Use something similar to the following command:             *   FILE 718
//*                                                                 *   FILE 718
//*       LOGON ? [any data usual at your installation]             *   FILE 718
//*                                                                 *   FILE 718
//*     Note the following changes:                                 *   FILE 718
//*                                                                 *   FILE 718
//*     1) Any SYSOUT requests from your TSO job will be            *   FILE 718
//*     directed to the subsystem that your TSO job is              *   FILE 718
//*     executing under.  SDSF, the TSO Status, Output and          *   FILE 718
//*     Submit commands, to name a few.                             *   FILE 718
//*                                                                 *   FILE 718
//*     For example, if you submit a job while logged on under      *   FILE 718
//*     a secondary JES2, the job will be submitted to the same     *   FILE 718
//*     secondary JES2.  Since MSTR does not support SYSOUT,        *   FILE 718
//*     you cannot submit jobs from it - they would be sent to      *   FILE 718
//*     the MSTR subsystem, which would tell you in no              *   FILE 718
//*     uncertain terms that it is not the least bit interested     *   FILE 718
//*     (no system damage - just some error messages).              *   FILE 718
//*                                                                 *   FILE 718
//*     2) If you are executing under a subsystem other than        *   FILE 718
//*     the Primary JES, due to a technical limitation, you         *   FILE 718
//*     must LOGOFF when finished - you cannot use the TSO          *   FILE 718
//*     LOGON command to re-logon.  The TSO LOGOFF exit catches     *   FILE 718
//*     this and informs you of this limitation, should you be      *   FILE 718
//*     devious and try.                                            *   FILE 718
//*                                                                 *   FILE 718
//*     <=====================================================>     *   FILE 718
//*                                                                 *   FILE 718
//*                    TSO LOGOFF EXIT IKJEFLD2                     *   FILE 718
//*                                                                 *   FILE 718
//*                                                                 *   FILE 718
//*     The 2nd exit is a TSO Logoff exit.  It handles 2            *   FILE 718
//*     conditions:                                                 *   FILE 718
//*                                                                 *   FILE 718
//*     1) If an attempt is made to (re)LOGON using the TSO         *   FILE 718
//*     LOGON command, while logged on to other than the            *   FILE 718
//*     Primary JES, you will receive a message indicating that     *   FILE 718
//*     this is not possible - it will then force a LOGOFF.         *   FILE 718
//*     The logoff exit does not have access to the name of the     *   FILE 718
//*     subsystem used by the TSO job that is logging off, so       *   FILE 718
//*     the LOGON exit passes its name in the TSO Exit to Exit      *   FILE 718
//*     Communications Word.  If a vanilla (i.e. no "?") logon      *   FILE 718
//*     is being performed, this is the only change that is         *   FILE 718
//*     performed - the Primary JES' name will be passed from       *   FILE 718
//*     the logon exit to the logoff exit.                          *   FILE 718
//*                                                                 *   FILE 718
//*     2) If you are logging off of the MSTR subsystem, the        *   FILE 718
//*     Master Subsystem sets a non-zero return code, which is      *   FILE 718
//*     expected and normal, however, the TSO logon/logoff          *   FILE 718
//*     routines interpret any non-zero return code as an error     *   FILE 718
//*     and issue an error message; the logoff exit resets the      *   FILE 718
//*     error code to 0 so that everyone is happy.  This is         *   FILE 718
//*     purely cosmetic.                                            *   FILE 718
//*                                                                 *   FILE 718
//*     <=====================================================>     *   FILE 718
//*                                                                 *   FILE 718
//*                        INSTALLATION                             *   FILE 718
//*                                                                 *   FILE 718
//*                                                                 *   FILE 718
//*     This XMI file contains the following members:               *   FILE 718
//*                                                                 *   FILE 718
//*       $README   - The member that you are reading               *   FILE 718
//*       IKJEFLD1  - The source code for the TSO Logon Exit        *   FILE 718
//*       IKJEFLD2  - The source code for the TSO Logoff Exit       *   FILE 718
//*       LOADLIB   - The already assembled source code in load     *   FILE 718
//*                   module format                                 *   FILE 718
//*       ENTER     - A macro required to assemble the exits        *   FILE 718
//*                                                                 *   FILE 718
//*     If you want to use the already compiled binaries, issue     *   FILE 718
//*     the following command:                                      *   FILE 718
//*                                                                 *   FILE 718
//*       RECEIVE INDSN(this.pds(LOADLIB)) - enter                  *   FILE 718
//*                                                                 *   FILE 718
//*       At the prompt, specify the chosen LPA or Linklist         *   FILE 718
//*       library                                                   *   FILE 718
//*                                                                 *   FILE 718
//*     Whether you choose to use the precompiled binaries, or      *   FILE 718
//*     to assemble from source, the exits must reside in one       *   FILE 718
//*     of two locations:                                           *   FILE 718
//*                                                                 *   FILE 718
//*     LPA (recommended):                                          *   FILE 718
//*                                                                 *   FILE 718
//*     Copy these exits to a library that is on your LPA           *   FILE 718
//*     concatenation, then do:                                     *   FILE 718
//*       SETPROG LPA,ADD,MOD=IKJEFLD1,DSN=lpalib-copied-to         *   FILE 718
//*       SETPROG LPA,ADD,MOD=IKJEFLD2,DSN=lpalib-copied-to         *   FILE 718
//*                                                                 *   FILE 718
//*     Note that if you IPL, you must do a CLPA; if not, then      *   FILE 718
//*     you will need to re-issue the two SETPROG commands to       *   FILE 718
//*     again load the exits.                                       *   FILE 718
//*                                                                 *   FILE 718
//*     LINKLIST:                                                   *   FILE 718
//*                                                                 *   FILE 718
//*     Copy these exits to an APF authorized, Linklist library     *   FILE 718
//*     (don't forget to do an LLA Refesh (F LLA,REFRESH)           *   FILE 718
//*                                                                 *   FILE 718
//*     If you choose to recompile the source, the Link Edit        *   FILE 718
//*     attributes for both modules are:                            *   FILE 718
//*                                                                 *   FILE 718
//*         AC(0), REFR, AMODE(24), RMODE(24)                       *   FILE 718
//*                                                                 *   FILE 718
//*     They are entered in Key 8, Supervisor State (per IBM        *   FILE 718
//*     Documentation).                                             *   FILE 718
//*                                                                 *   FILE 718
//*     <=====================================================>     *   FILE 718
//*                                                                 *   FILE 718
//*                      LEGAL INFORMATION                          *   FILE 718
//*                                                                 *   FILE 718
//*                                                                 *   FILE 718
//*     These programs are copyright 2005 Futurity Software         *   FILE 718
//*     International Inc.                                          *   FILE 718
//*                                                                 *   FILE 718
//*     They are hereby released to the public on the sole          *   FILE 718
//*     condition that the program commentary header remain         *   FILE 718
//*     intact, displaying the copyright information and the        *   FILE 718
//*     author's name, including any derivative works.              *   FILE 718
//*                                                                 *   FILE 718
//*     Futurity Software does not accept responsibility for        *   FILE 718
//*     any damage resulting from the use of the supplied           *   FILE 718
//*     software.                                                   *   FILE 718
//*                                                                 *   FILE 718
//*     The software is supplied "As Is".                           *   FILE 718
//*                                                                 *   FILE 718
//*     Any use of this software implies acceptance of these        *   FILE 718
//*     conditions.                                                 *   FILE 718
//*                                                                 *   FILE 718
//***FILE 719 is from Greg Smith and contains a program to do       *   FILE 719
//*           dump/restore for data on an offline disk pack.        *   FILE 719
//*                                                                 *   FILE 719
//*           email:  gsmith@nc.rr.com                              *   FILE 719
//*                                                                 *   FILE 719
//***FILE 720 is from Bill Sweeney and contains a large collection  *   FILE 720
//*           of utilities.  Please see the member called $DIR      *   FILE 720
//*           for an explanation of the contents of each program.   *   FILE 720
//*                                                                 *   FILE 720
//*           email:  whsweeney@sscmainframe.com                    *   FILE 720
//*                                                                 *   FILE 720
//*     $DIR     - This directory member. Contact me if you         *   FILE 720
//*                require further documentation for some of        *   FILE 720
//*                this code: whsweeney@sscmainframe.com            *   FILE 720
//*                                                                 *   FILE 720
//*     ALEXCMDS - APF authorized program that uses SVC 34 to       *   FILE 720
//*                issue commands, STIMER to issue WAITs, WTOs      *   FILE 720
//*                (rollable and highlighted), search Address       *   FILE 720
//*                Space Control Block (ASCB), invoke a REXX        *   FILE 720
//*                EXEC using the IRXJCL program, and perform       *   FILE 720
//*                simple scheduling using the JES2 $TA command     *   FILE 720
//*                                                                 *   FILE 720
//*     ALEXTDAT - Program used by ALEXCMDS to resolve Date and     *   FILE 720
//*                Day information Assemble and link it first,      *   FILE 720
//*                and then include it when linking ALEXCMDS.       *   FILE 720
//*                                                                 *   FILE 720
//*     ALEXT00  - ISPF Message table used by the AutoOps           *   FILE 720
//*                application. Copy member to an ISPMLIB           *   FILE 720
//*                concatenated data set, or LIBDEF to this PDS     *   FILE 720
//*                                                                 *   FILE 720
//*     ALXEXCOM - All purpose REXX utility program that uses       *   FILE 720
//*                the IRXEXCOM feature of REXX to STORE and        *   FILE 720
//*                FETCH variables. Program is invoked by any       *   FILE 720
//*                of the ALEX REXX functions that require          *   FILE 720
//*                access to variables from/to REXX                 *   FILE 720
//*                                                                 *   FILE 720
//*     ALXPEXH1 - ISPF Help Panel used by the AutoOps              *   FILE 720
//*                application. Copy member to an ISPPLIB           *   FILE 720
//*                concatenated data set, or LIBDEF to this PDS     *   FILE 720
//*                                                                 *   FILE 720
//*     ALXPEXH2 - ISPF Help Panel used by the AutoOps              *   FILE 720
//*                application. Copy member to an ISPPLIB           *   FILE 720
//*                concatenated data set, or LIBDEF to this PDS     *   FILE 720
//*                                                                 *   FILE 720
//*     ALXPEXT  - ISPF Panel used by the AutoOps application.      *   FILE 720
//*                Copy member to an ISPPLIB concatenated data      *   FILE 720
//*                set, or LIBDEF to this PDS                       *   FILE 720
//*                                                                 *   FILE 720
//*     ALXRCONC - REXX function to ALLOCATE and CONCATENATE        *   FILE 720
//*                datasets in a TSO session                        *   FILE 720
//*                                                                 *   FILE 720
//*     ALXRDASD - REXX function that performs a UCBSCAN of all     *   FILE 720
//*                DASD or Tape, and returns the information        *   FILE 720
//*                into compound REXX variables                     *   FILE 720
//*                                                                 *   FILE 720
//*     ALXRDDIR - REXX function to return the directory            *   FILE 720
//*                contents of a PDS as compound REXX variables     *   FILE 720
//*                                                                 *   FILE 720
//*     ALXRDOZE - REXX function to SLEEP/WAIT for a period of      *   FILE 720
//*                time                                             *   FILE 720
//*                                                                 *   FILE 720
//*     ALXRFNDM - REXX function to find a member in a PDS          *   FILE 720
//*                                                                 *   FILE 720
//*     ALXREXT  - ISPF REXX EXEC used by the AutoOps               *   FILE 720
//*                application. Copy member to a SYSPROC or         *   FILE 720
//*                SYSEXEC data set                                 *   FILE 720
//*                                                                 *   FILE 720
//*     ALXRFNDS - REXX function to find a load module in the       *   FILE 720
//*                system LPALST or LNKLST concatenation of         *   FILE 720
//*                datasets                                         *   FILE 720
//*                                                                 *   FILE 720
//*     ALXRGETM - REXX function to read a member of a PDS          *   FILE 720
//*                dataset into REXX compound variables             *   FILE 720
//*                                                                 *   FILE 720
//*     ALXRPDSC - REXX function to SCRATCH, RENAME or assign       *   FILE 720
//*                an ALIAS to a member of a PDS. ALIAS does        *   FILE 720
//*                not work with PDS-E files                        *   FILE 720
//*                                                                 *   FILE 720
//*     ALXRQSCN - REXX function that uses GQSCAN to determine      *   FILE 720
//*                if any enqueues exist for data sets, and         *   FILE 720
//*                return the data set, owner and the waiter as     *   FILE 720
//*                compound REXX variables                          *   FILE 720
//*                                                                 *   FILE 720
//*     ALXRWRTM - REXX function to write a member of a PDS         *   FILE 720
//*                dataset from REXX compound variables             *   FILE 720
//*                                                                 *   FILE 720
//*     ALXRWTO  - REXX function to issue a WTO                     *   FILE 720
//*                                                                 *   FILE 720
//*     ALXRWTOR - REXX function to issue a WTOR and return the     *   FILE 720
//*                reply                                            *   FILE 720
//*                                                                 *   FILE 720
//*     ASMLAOPS - JCL to Assemble and Link MSGTABLE to IEAVMXIT    *   FILE 720
//*                                                                 *   FILE 720
//*     ASMLTABL - JCL to Assemble and Link MSGTABLE to             *   FILE 720
//*                IEAVMXIT, and then refresh IEAVMXIT with new     *   FILE 720
//*                messages                                         *   FILE 720
//*                                                                 *   FILE 720
//*     ASMLVMXT - JCL to Assemble and Link changes to IEAVMXIT     *   FILE 720
//*                                                                 *   FILE 720
//*     CATCLEAN - Old Assembler program that is provided as an     *   FILE 720
//*                example. It was written in MVS/SP, and it        *   FILE 720
//*                does the following: EXCP read of the VTOC,       *   FILE 720
//*                use of SVC 26 for Catalog function, read an      *   FILE 720
//*                ICF Catalog as a VSAM KSDS, and use SVC 99       *   FILE 720
//*                dynamic allocation                               *   FILE 720
//*                                                                 *   FILE 720
//*     CBR3750I - REXX EXEC sample that is placed in the           *   FILE 720
//*                SYSEXEC file defined in the OPSAUTO Started      *   FILE 720
//*                Task JCL. Entry must be defined in the           *   FILE 720
//*                MSGTABLE AutoOps member to be used by the        *   FILE 720
//*                IEAVMXIT exit                                    *   FILE 720
//*                                                                 *   FILE 720
//*     CLEANPDS - Assembler program to compare two PDS files,      *   FILE 720
//*                and delete members that are duplicate. Good      *   FILE 720
//*                for cleaning up old Linklist libraries, when     *   FILE 720
//*                vendor put all products in one library           *   FILE 720
//*                                                                 *   FILE 720
//*     COPYISPF - REXX EXEC that uses supplied Assembler REXX      *   FILE 720
//*                functions to copy PDS members and change the     *   FILE 720
//*                ISPF statistics. It is what was used to          *   FILE 720
//*                create this PDS with the squirrely CREATED       *   FILE 720
//*                and CHANGED dates (day I was born, and end       *   FILE 720
//*                of day if and when I turn 75)                    *   FILE 720
//*                                                                 *   FILE 720
//*     COUTCPCM - Assembler program to issue VM CP commands        *   FILE 720
//*                (DIAGNOSE command) Good when running as a        *   FILE 720
//*                guest under VM, and you want to issue CP         *   FILE 720
//*                commands                                         *   FILE 720
//*                                                                 *   FILE 720
//*     COUTLOGC - Assembler program to create the next file on     *   FILE 720
//*                a multi-file tape. As an example, used when      *   FILE 720
//*                wanting to stack monthly SMF data on the         *   FILE 720
//*                same tape.                                       *   FILE 720
//*                                                                 *   FILE 720
//*     DASDBOX  - REXX EXEC that used the ALXRDASD REXX            *   FILE 720
//*                function to provide output of all defined        *   FILE 720
//*                DASD volumes in a BOX format. Uses a call to     *   FILE 720
//*                IDCAMS, and the DCOLLECT command to get the      *   FILE 720
//*                free space information. You must add IDCAMS      *   FILE 720
//*                to the IKJTSOxx member in PARMLIB, under         *   FILE 720
//*                AUTHPGM, in order to issue the CALL.             *   FILE 720
//*                                                                 *   FILE 720
//*     EZACICSE - Assembler CICS security exit for the TCP/IP      *   FILE 720
//*                Listener. I included it because I remember       *   FILE 720
//*                trying to find a sample when I had to write      *   FILE 720
//*                it                                               *   FILE 720
//*                                                                 *   FILE 720
//*     E0016    - REXX EXEC sample that is placed in the           *   FILE 720
//*                SYSEXEC file defined in the OPSAUTO Started      *   FILE 720
//*                Task JCL. This EXEC was used to track OAM        *   FILE 720
//*                messages issued by the VTS, and if a problem     *   FILE 720
//*                is identified, then the Operator's are told      *   FILE 720
//*                to use the 'Phone Home' feature of the VTS.      *   FILE 720
//*                EXEC is invoked because of the CBR3750I          *   FILE 720
//*                message, and is invoked from the CBR3750I        *   FILE 720
//*                EXEC                                             *   FILE 720
//*                                                                 *   FILE 720
//*     E0017    - REXX EXEC sample that is placed in the           *   FILE 720
//*                SYSEXEC file defined in the OPSAUTO Started      *   FILE 720
//*                Task JCL. This EXEC was used to track OAM        *   FILE 720
//*                messages issued by the VTS. EXEC is invoked      *   FILE 720
//*                because of CBR3750I message, and is invoked      *   FILE 720
//*                from the CBR3750I EXEC                           *   FILE 720
//*                                                                 *   FILE 720
//*     IEAVMXIT - WTO/WTOR exit that will process all MVS          *   FILE 720
//*                messages that are defined for automation in      *   FILE 720
//*                the MSGTABLE entry                               *   FILE 720
//*                                                                 *   FILE 720
//*     INRECXIT - Assembler Network Print Facility (NPF) input     *   FILE 720
//*                record exit for inserting HP PCL in the print    *   FILE 720
//*                stream. NPF was free from IBM, so if you are     *   FILE 720
//*                using it, the exit might help                    *   FILE 720
//*                                                                 *   FILE 720
//*     LCB      - REXX EXEC that can be executed from ISPF 3.4     *   FILE 720
//*                data set list, to issue an IDCAMS LISTCAT        *   FILE 720
//*                and return the information in an ISPF Browse     *   FILE 720
//*                session. EXEC includes the code to display       *   FILE 720
//*                the last modified TIMESTAMP as something you     *   FILE 720
//*                can read                                         *   FILE 720
//*                                                                 *   FILE 720
//*     MESSAGE  - Assembler MACRO used to build MSGTABLE used      *   FILE 720
//*                by IEAVMXIT.  Macro is located in                *   FILE 720
//*                SYS2.ISPF.LOCAL.MACLIB                           *   FILE 720
//*                                                                 *   FILE 720
//*     MSGTABLE - Assembler table created by the ISPF/REXX         *   FILE 720
//*                AutoOps interface, and contains all of the       *   FILE 720
//*                messages to be processed by IEAVMXIT             *   FILE 720
//*                                                                 *   FILE 720
//*     MSGTABLE - Assembler Table used by AutoOps application.     *   FILE 720
//*                It is built using the supplied ISPF/REXX         *   FILE 720
//*                panels and EXECs included in this PDS. It        *   FILE 720
//*                currently contains sample entries that           *   FILE 720
//*                should be removed when you are ready to use      *   FILE 720
//*                it.                                              *   FILE 720
//*                                                                 *   FILE 720
//*     OPSAUTO  - JCL PROC used by the AutoOps application and     *   FILE 720
//*                invoked as an MVS START command from the         *   FILE 720
//*                IEAVMXIT                                         *   FILE 720
//*                                                                 *   FILE 720
//*     PDSPCLOD - PC REXX EXEC to take the output from PDSUNLDV    *   FILE 720
//*                program and place the members in a directory     *   FILE 720
//*                on your PC                                       *   FILE 720
//*                                                                 *   FILE 720
//*     PDSRELDV - Assembler program to rebuild a PDS from the      *   FILE 720
//*                PDSUNLDV program.                                *   FILE 720
//*                                                                 *   FILE 720
//*     PDSUNLDV - Assembler program to create a sequential         *   FILE 720
//*                file from an FB or VB PDS, for unloading         *   FILE 720
//*                from the mainframe. Use PDSPCLOD REXX EXEC       *   FILE 720
//*                on your Personal Computer to unload the          *   FILE 720
//*                members into a directory (you can download       *   FILE 720
//*                REGINA if you want to run REXX on your PC).      *   FILE 720
//*                Does not retain the ISPF STATs info.             *   FILE 720
//*                                                                 *   FILE 720
//*     SSCLKPDS - Assembler program that allows the SSCUCPDS       *   FILE 720
//*                program to issue Multiple change commands.       *   FILE 720
//*                The name of the SSCUCPDS program is              *   FILE 720
//*                contained in this program, so if you change      *   FILE 720
//*                it, you must change it in this program as        *   FILE 720
//*                well.                                            *   FILE 720
//*                                                                 *   FILE 720
//*     SSCUCPDS - Assembler program written in 1984 to perform     *   FILE 720
//*                mass edits of multiple PDS or sequential         *   FILE 720
//*                files. Originally used as a migration tool       *   FILE 720
//*                for doing massive changes to libraries with      *   FILE 720
//*                JCL. Program only works on RECFM FB, LRECL 80    *   FILE 720
//*                files, because it maintains the integrity of     *   FILE 720
//*                column 72 within the code.  The default is to    *   FILE 720
//*                show you what the changes would look like        *   FILE 720
//*                before actually changing the files. Once         *   FILE 720
//*                satisfied, specify PARM=CHGE to perform the      *   FILE 720
//*                change. Program also has a parameter function    *   FILE 720
//*                to SCAN PDS files, without doing any changes.    *   FILE 720
//*                SSCLKPDS program was written later, so that      *   FILE 720
//*                multiple change input control cards could be     *   FILE 720
//*                supplied.                                        *   FILE 720
//*                                                                 *   FILE 720
//*     SYSURDR  - Assembler program that will allow you to         *   FILE 720
//*                build and submit a job from the Operator         *   FILE 720
//*                Console. Program issues WTORs, and when          *   FILE 720
//*                complete, submits the job for execution. I       *   FILE 720
//*                saw this done on DOS/VSE and thought it was      *   FILE 720
//*                a good idea if the network was done. REXX        *   FILE 720
//*                using the ALXRWTOR assembler function would      *   FILE 720
//*                be easier to maintain, but I figured I'd         *   FILE 720
//*                include this program.                            *   FILE 720
//*                                                                 *   FILE 720
//*     SUBTTIME - REXX EXEC that will take two date/time           *   FILE 720
//*                fields as input arguments, and calculate the     *   FILE 720
//*                time difference. Found it useful in AutoOps      *   FILE 720
//*                when making a decision on the frequency of       *   FILE 720
//*                an occurrence                                    *   FILE 720
//*                                                                 *   FILE 720
//*     TAPESTCK - Assembler program that was originally written    *   FILE 720
//*                to convert from 3480 tape to 3590 tape.          *   FILE 720
//*                Program will stack the input files on to the     *   FILE 720
//*                output tape, and build the necessary IDCAMS      *   FILE 720
//*                DELETE/DEFINE control cards to recatalog the     *   FILE 720
//*                input files to the new media.  Also builds       *   FILE 720
//*                CA1 SCRATCH control cards, if you need them.     *   FILE 720
//*                Will support 64k blocks.                         *   FILE 720
//*                                                                 *   FILE 720
//*     VARYOFF  - REXX EXEC that uses ALXRDASD REXX function       *   FILE 720
//*                and input control cards to vary selected         *   FILE 720
//*                DASD offline at IPL time. Allows you to          *   FILE 720
//*                specify selection criteria                       *   FILE 720
//*                                                                 *   FILE 720
//*     VARYOFFJ - Started Task JCL for invoking VARYOFF EXEC       *   FILE 720
//*                                                                 *   FILE 720
//*     VARYOFFP - Control card input to VARYOFF EXEC               *   FILE 720
//*                                                                 *   FILE 720
//***FILE 721 is from Shirley Huhtanen and contains an extremely    *   FILE 721
//*           interesting and potentially useful system to capture  *   FILE 721
//*           change history for members of libraries.  Details of  *   FILE 721
//*           this package follow, below:                           *   FILE 721
//*                                                                 *   FILE 721
//*  ChangeWiz  (c) 2005                                            *   FILE 721
//*                                                                 *   FILE 721
//*  Renaissance Data Systems Inc.                                  *   FILE 721
//*  Shirley Huhtanen                                               *   FILE 721
//*  3325 Lorna Rd 2-325                                            *   FILE 721
//*  Birmingham, AL  35216                                          *   FILE 721
//*  (205) 999-9012                                                 *   FILE 721
//*  email: shirleywho@aol.com                                      *   FILE 721
//*                                                                 *   FILE 721
//*  This library is a self-contained unit and should contain all   *   FILE 721
//*  of the elements needed to create any or all of 3 different     *   FILE 721
//*  Change History capture systems.                                *   FILE 721
//*                                                                 *   FILE 721
//*  Why this system was created.                                   *   FILE 721
//*                                                                 *   FILE 721
//*  Some source management applications only have information      *   FILE 721
//*  about the last change made to a member.  Some can show         *   FILE 721
//*  historical information about all changes to a member, but      *   FILE 721
//*  only for one member at a time.  For members in PDS libraries   *   FILE 721
//*  that are not managed by a source management system, only       *   FILE 721
//*  information about the current version of a member is           *   FILE 721
//*  available.  Also, these systems may not identify the date a    *   FILE 721
//*  member was moved to production.  A member may be edited on     *   FILE 721
//*  one day and moved to production weeks or months later.         *   FILE 721
//*                                                                 *   FILE 721
//*  Here are 3 different systems for Change History depending on   *   FILE 721
//*  the type of source being tracked. A system for Endevor could   *   FILE 721
//*  be created easily using the same kind of methodology.  All of  *   FILE 721
//*  these systems create and maintain a history file that has one  *   FILE 721
//*  record for each time a member is changed, added or deleted.    *   FILE 721
//*                                                                 *   FILE 721
//*  The following information is captured:  element name,          *   FILE 721
//*  library, edit date/time, promote date/time, User id, change    *   FILE 721
//*  code/move request, level, number of lines.                     *   FILE 721
//*                                                                 *   FILE 721
//*  Here are some ways this information can be used.               *   FILE 721
//*                                                                 *   FILE 721
//*     1.  Create a summary report of changes made to all          *   FILE 721
//*           production members within a particular time period.   *   FILE 721
//*     2.  A daily report can be created that shows all members    *   FILE 721
//*           moved to production on that day.                      *   FILE 721
//*     3.  Identify all members changed during any time period.    *   FILE 721
//*     4.  For Sorbanes-Oxley reporting, this system provides an   *   FILE 721
//*           audit trail of changes to all production members      *   FILE 721
//*     5.  Identify members changed frequently.  Systems           *   FILE 721
//*           using these should probably be rewritten or           *   FILE 721
//*           redesigned.                                           *   FILE 721
//*     6.  Create summary reports of the number of                 *   FILE 721
//*           changes made by each programmer during a time         *   FILE 721
//*           period.                                               *   FILE 721
//*                                                                 *   FILE 721
//*   1.  PDS change history                                        *   FILE 721
//*       This system is fully documented in members $$PDS*.        *   FILE 721
//*       Create a change history file for PDS libraries that are   *   FILE 721
//*       not managed by a change management system.                *   FILE 721
//*                                                                 *   FILE 721
//*   2.  SCLM change history                                       *   FILE 721
//*       This system is fully documented in members $$SCLM*.       *   FILE 721
//*       Create a change history file for libraries that are       *   FILE 721
//*       managed by the SCLM change mgmt system.                   *   FILE 721
//*                                                                 *   FILE 721
//*   3.  Panvalet change history                                   *   FILE 721
//*       This system is fully documented in member $$PAN.  Create  *   FILE 721
//*       a change history file for libraries that are managed by   *   FILE 721
//*       the Panvalet source mgmt system.                          *   FILE 721
//*                                                                 *   FILE 721
//*    Naming standards for members in this library.                *   FILE 721
//*                                                                 *   FILE 721
//*    $*****   documentation for these members.                    *   FILE 721
//*    JXCPP*   Cobol copybooks. Procedure div                      *   FILE 721
//*    JXCPR*   Cobol copybooks. Record layouts                     *   FILE 721
//*    JXCPW*   Cobol copybooks. Working storage.                   *   FILE 721
//*    JXC###** where # is numeric.  These are Cobol programs.      *   FILE 721
//*    JXCU###  where # is numeric.  These are Cobol programs.      *   FILE 721
//*    JXD*     JCL for production daily jobs                       *   FILE 721
//*    JXE*     Easytrieve programs                                 *   FILE 721
//*    JXI*     JCL include members (except JXIN*)                  *   FILE 721
//*    JXIN*    Cobol copybooks. Custom changes for each client.    *   FILE 721
//*    JXM*     JCL for production monthly jobs                     *   FILE 721
//*    JXP*     Procs                                               *   FILE 721
//*    JXR*     JCL for production request jobs                     *   FILE 721
//*    JXSD*    Card members. Data cards. May need changes.         *   FILE 721
//*    JXSR*    Card members. Sort cards. No custom changes.        *   FILE 721
//*    JXW*     JCL for production weekly jobs                      *   FILE 721
//*    JZ*      Easytrieve record layouts                           *   FILE 721
//*                                                                 *   FILE 721
//*    All other members are test JCL or request JCL for special    *   FILE 721
//*    reports.                                                     *   FILE 721
//*                                                                 *   FILE 721
//*   This material is provided as-is.  It works on the z/OS        *   FILE 721
//*   system it was developed on, but may not work on all systems.  *   FILE 721
//*   No warranty is made to the accuracy of the programs or        *   FILE 721
//*   related material and no responsibility is assumed for any     *   FILE 721
//*   modifications made to these applications by a third party.    *   FILE 721
//*   The documentation included is intended to aid in setting up   *   FILE 721
//*   the systems.  Validating the results is the responsibility    *   FILE 721
//*   of the party using this material.                             *   FILE 721
//*                                                                 *   FILE 721
//*   These programs are distributed on the CBT Tape with the       *   FILE 721
//*   proviso that they may be freely distributed to any other      *   FILE 721
//*   party on condition that no inducement beyond reasonable       *   FILE 721
//*   handling costs is offered or accepted by either side for      *   FILE 721
//*   such distribution or your normal consulting costs for         *   FILE 721
//*   installation and support.                                     *   FILE 721
//*                                                                 *   FILE 721
//*   The use of any part of these programs or copybooks in         *   FILE 721
//*   another program or application does not make that program or  *   FILE 721
//*   application fall under this license.                          *   FILE 721
//*                                                                 *   FILE 721
//*   Modified versions of these programs and systems should *NOT*  *   FILE 721
//*   be distributed by a third party.  It will be chaos if         *   FILE 721
//*   multiple versions of these programs start floating around.    *   FILE 721
//*                                                                 *   FILE 721
//*   Because these systems interface with other vendor's           *   FILE 721
//*   products, changes to their products could cause these         *   FILE 721
//*   programs and systems to not work any more.  All of the        *   FILE 721
//*   programs have built-in debugging to aid in analysis.  Let me  *   FILE 721
//*   know if you've had to make changes for a specific version of  *   FILE 721
//*   a vendor's software and it can be incorporated here.          *   FILE 721
//*                                                                 *   FILE 721
//*   This documentation has not had a work-out by being used to    *   FILE 721
//*   install the system on another machine.  Please contact me if  *   FILE 721
//*   you have any questions regarding any part of these systems.   *   FILE 721
//*                                                                 *   FILE 721
//*   SCLM and IEHLIST are products of                              *   FILE 721
//*        International Business Machines (IBM)                    *   FILE 721
//*   Panvalet, Endevor and Easytrieve are products of              *   FILE 721
//*        Computer Associates                                      *   FILE 721
//*                                                                 *   FILE 721
//***FILE 722 is from Shirley Huhtanen and contains the FileWiz     *   FILE 722
//*           package which is a sophisticated program that         *   FILE 722
//*           compares 2 files.  More detailed description of       *   FILE 722
//*           the FileWiz package may be found below.               *   FILE 722
//*                                                                 *   FILE 722
//*  FileWiz    (c) 2005                                            *   FILE 722
//*                                                                 *   FILE 722
//*  Renaissance Data Systems Inc.                                  *   FILE 722
//*  Shirley Huhtanen                                               *   FILE 722
//*  3325 Lorna Rd 2-325                                            *   FILE 722
//*  Birmingham, AL  35216                                          *   FILE 722
//*  (205) 999-9012                                                 *   FILE 722
//*  email: shirleywho@aol.com                                      *   FILE 722
//*                                                                 *   FILE 722
//*  This library is a self-contained unit and should contain all   *   FILE 722
//*  of the elements needed to set up the File Compare program.     *   FILE 722
//*                                                                 *   FILE 722
//*  Description                                                    *   FILE 722
//*                                                                 *   FILE 722
//*   FileWiz is a program (JXCU001) that compares 2 files.         *   FILE 722
//*                                                                 *   FILE 722
//*   What's special about it?                                      *   FILE 722
//*     1.  It's free.                                              *   FILE 722
//*     2.  The source is provided.                                 *   FILE 722
//*     3.  It has some unique Masking features.                    *   FILE 722
//*     4.  The positional summary of differences at the end        *   FILE 722
//*         saves a LOT of time.                                    *   FILE 722
//*     5.  All non-matching records are written out for further    *   FILE 722
//*         analysis.                                               *   FILE 722
//*                                                                 *   FILE 722
//*   A key must be identified that will match up the records       *   FILE 722
//*   in both files.  The key does not have to be contiguous        *   FILE 722
//*   but it does have to be ascending.                             *   FILE 722
//*                                                                 *   FILE 722
//*   Differences are shown in a difference report.                 *   FILE 722
//*   Differences are also written to output files that can be      *   FILE 722
//*   used for further analysis.                                    *   FILE 722
//*                                                                 *   FILE 722
//*   This file compare can't compare text files like program       *   FILE 722
//*   source, so it is better to use Superc (IBM) or another        *   FILE 722
//*   compare utility to compare text files.                        *   FILE 722
//*                                                                 *   FILE 722
//*   This file compare is written in Cobol.  It isn't as fast      *   FILE 722
//*   as file compares written in assembler, but the Cobol          *   FILE 722
//*   optimizer does a pretty good job of creating a fast product.  *   FILE 722
//*                                                                 *   FILE 722
//*   There are 3 kinds of masks that can be used.                  *   FILE 722
//*                                                                 *   FILE 722
//*     MASK      Completely masks the data for the offset          *   FILE 722
//*               and length specified                              *   FILE 722
//*     Signmask  Allows unsigned numeric data to                   *   FILE 722
//*               match positive signed data for packed decimal     *   FILE 722
//*               and zoned decimal fields                          *   FILE 722
//*     Nullmask  Allows spaces to match to low-values              *   FILE 722
//*               for filler areas                                  *   FILE 722
//*                                                                 *   FILE 722
//*   A really nice feature is the compare summary at the end of    *   FILE 722
//*   the difference report.  You can tell at a glance which fields *   FILE 722
//*   did not match.  This saves you from having to browse through  *   FILE 722
//*   every difference in the report to see if the same field was   *   FILE 722
//*   responsible for all the differences.                          *   FILE 722
//*                                                                 *   FILE 722
//* History of this Compare Program.                                *   FILE 722
//*                                                                 *   FILE 722
//*   During my consulting years, I worked at several companies     *   FILE 722
//*   that had not purchased a compare product.  After writing a    *   FILE 722
//*   different compare at each company for my own projects, I      *   FILE 722
//*   realized that I couldn't count on having a compare product    *   FILE 722
//*   available, so I wrote this FileWiz program and have used it   *   FILE 722
//*   and modified it to fit my needs.                              *   FILE 722
//*                                                                 *   FILE 722
//*   Since this is not intended to be a "commercial" product,      *   FILE 722
//*   (make money) there are a few cosmetic glitches here and       *   FILE 722
//*   there, where page breaking isn't completely clean.  The       *   FILE 722
//*   compares themselves are completely accurate.  My coding       *   FILE 722
//*   standards have changed over the years and I don't consider    *   FILE 722
//*   this program up to my current standards.  If I ever get       *   FILE 722
//*   the time (yeah right), I'll clean it up.                      *   FILE 722
//*                                                                 *   FILE 722
//*   Disclaimers                                                   *   FILE 722
//*                                                                 *   FILE 722
//*   This material is provided as-is.  It works on the z/OS        *   FILE 722
//*   system it was developed on, but may not work on all systems.  *   FILE 722
//*   No warranty is made to the accuracy of the programs or        *   FILE 722
//*   related material and no responsibility is assumed for any     *   FILE 722
//*   modifications made to these applications by a third party.    *   FILE 722
//*   The documentation included is intended to aid in setting up   *   FILE 722
//*   the systems.  Validating the results is the responsibility    *   FILE 722
//*   of the party using this material.                             *   FILE 722
//*                                                                 *   FILE 722
//*   These programs are distributed on the CBT Tape with the       *   FILE 722
//*   proviso that they may be freely distributed to any other      *   FILE 722
//*   party on condition that no inducement beyond reasonable       *   FILE 722
//*   handling costs is offered or accepted by either side for      *   FILE 722
//*   such distribution or your normal consulting costs for         *   FILE 722
//*   installation and support.                                     *   FILE 722
//*                                                                 *   FILE 722
//*   The use of any part of these programs or copybooks in         *   FILE 722
//*   another program or application does not make that program     *   FILE 722
//*   or application fall under this license.                       *   FILE 722
//*                                                                 *   FILE 722
//*   Modified versions of these programs and systems should *NOT*  *   FILE 722
//*   be distributed by a third party.  It will be chaos if         *   FILE 722
//*   multiple versions of this program starts floating around.     *   FILE 722
//*   If you have ideas for revision, please communicate them       *   FILE 722
//*   to the author.                                                *   FILE 722
//*                                                                 *   FILE 722
//*   This documentation has not had a work-out by being used to    *   FILE 722
//*   install the system on another machine.  Please contact me if  *   FILE 722
//*   you have any questions regarding any part of this product.    *   FILE 722
//*                                                                 *   FILE 722
//***FILE 723 is from Jim Moore, and contains some application      *   FILE 723
//*           code to show how much storage is available to your    *   FILE 723
//*           session.  CLCCSTOR and SHOWMEM provide this service   *   FILE 723
//*           from an ISPF environment.  SHOWSTOR provides a        *   FILE 723
//*           similar service for an IDMS/DC environment.           *   FILE 723
//*                                                                 *   FILE 723
//*           email:  JB Moore<conlogco@comcast.net>                *   FILE 723
//*                                                                 *   FILE 723
//*     This is a small bit of ISPF code to show 24/31 bit          *   FILE 723
//*     memory limits, usage, and how much is still available.      *   FILE 723
//*     It consists of two small COBOL programs and one panel.      *   FILE 723
//*     Compile and link the COBOL into some load library           *   FILE 723
//*     accessible to ISPF (ISPLLIB, STEPLIB or TSOLIB tasklib)     *   FILE 723
//*     and slap the panel into some ISPPLIB as member name         *   FILE 723
//*     SHOWMEMP.                                                   *   FILE 723
//*                                                                 *   FILE 723
//*     You can get the same thing (an TONS of other stuff) by      *   FILE 723
//*     using ISPVCALL STATUS from Option 6 (TSO) of ISPF.  I       *   FILE 723
//*     wrote it more to demonstrate how to put an ISPF             *   FILE 723
//*     "wrapper" around generic code (callable from anywhere).     *   FILE 723
//*     This is why one of the programs is named CLCCSTOR (the      *   FILE 723
//*     "generic" subroutine) and the other one has as its          *   FILE 723
//*     name, the command name:  SHOWMEM.                           *   FILE 723
//*                                                                 *   FILE 723
//*     Invoke as: Command ===> TSO SHOWMEM                         *   FILE 723
//*                                                                 *   FILE 723
//*     The panel contents is renewable when you press ENTER.       *   FILE 723
//*                                                                 *   FILE 723
//***FILE 724 is from Ed Jaffe and contains his improvements to     *   FILE 724
//*           IBM's HLASM Toolkit.  Some other HLASM-related tools  *   FILE 724
//*           are also included, such as the ASMFLOW program that   *   FILE 724
//*           cleans and prettifies Assembler source code.          *   FILE 724
//*                                                                 *   FILE 724
//*           email:  edjaffe@phoenixsoftware.com                   *   FILE 724
//*                                                                 *   FILE 724
//*       These modifications were dramatically simplified after    *   FILE 724
//*       APAR PK01283, since IBM adopted most of my suggestions.   *   FILE 724
//*                                                                 *   FILE 724
//*       The only modification remaining is the NEXTWHEN macro.    *   FILE 724
//*       This macro allows you to pass control from one WHEN       *   FILE 724
//*       clause to the next WHEN clause or the OTHRWISE clause.    *   FILE 724
//*                                                                 *   FILE 724
//***FILE 725 is from Andrew Armstrong and contains his CICS        *   FILE 725
//*           Auxiliary Trace Visualizer, written in REXX.  The     *   FILE 725
//*           following is some documentation about this product.   *   FILE 725
//*                                                                 *   FILE 725
//*     NAME     - AUX2SVG                                          *   FILE 725
//*                                                                 *   FILE 725
//*     TITLE    - CICS AUXILIARY TRACE VISUALIZER                  *   FILE 725
//*                                                                 *   FILE 725
//*     VERSION  - 1.2                                              *   FILE 725
//*                                                                 *   FILE 725
//*     FUNCTION - Creates a graphical representation of a CICS     *   FILE 725
//*                auxilliary trace printout by using Scalable      *   FILE 725
//*                Vector Graphics (SVG).  The SVG markup           *   FILE 725
//*                represents the trace data in the form of a       *   FILE 725
//*                Unified Modelling Language (UML) Sequence        *   FILE 725
//*                Diagram (or at least something quite like        *   FILE 725
//*                it).                                             *   FILE 725
//*                                                                 *   FILE 725
//*                The 'actors' (for example, programs) are         *   FILE 725
//*                listed side- by-side at the top of the           *   FILE 725
//*                diagram. A life line is drawn vertically         *   FILE 725
//*                below each actor. Interactions between actors    *   FILE 725
//*                (for example, calls and returns) are             *   FILE 725
//*                represented as arrows drawn between the life     *   FILE 725
//*                lines.  The vertical axis is time. Each          *   FILE 725
//*                interaction is labeled on the left of the        *   FILE 725
//*                diagram with the relative time in seconds        *   FILE 725
//*                since the start of the trace and the task id.    *   FILE 725
//*                All the interactions for a task are assigned     *   FILE 725
//*                the same unique color. Each interaction is       *   FILE 725
//*                annotated with the trace sequence number, to     *   FILE 725
//*                enable you to refer back to the original         *   FILE 725
//*                trace record for more detail, and a summary      *   FILE 725
//*                of the call and return values. Exception         *   FILE 725
//*                responses are shown in red.                      *   FILE 725
//*                                                                 *   FILE 725
//*                You choose which actors you are interested       *   FILE 725
//*                in by specifying one or more domain names.       *   FILE 725
//*                For example, if you want to visualize TCP/IP     *   FILE 725
//*                socket activity, you might specify the PG        *   FILE 725
//*                (program) and SO (socket) domains:               *   FILE 725
//*                                                                 *   FILE 725
//*                  aux2svg mytrace.txt (PG SO                     *   FILE 725
//*                                                                 *   FILE 725
//*                If you want to examine a storage allocation      *   FILE 725
//*                problem you might specify the SM (storage        *   FILE 725
//*                manager) domain:                                 *   FILE 725
//*                                                                 *   FILE 725
//*                  aux2svg mytrace.txt (SM                        *   FILE 725
//*                                                                 *   FILE 725
//*                By default, ALL domains are selected but this    *   FILE 725
//*                can take a long time to process. It is best      *   FILE 725
//*                to restrict the actors to a few domains that     *   FILE 725
//*                you are interested in.                           *   FILE 725
//*                                                                 *   FILE 725
//*     USAGE    - You can run this Rexx on an IBM mainframe, or    *   FILE 725
//*                on a PC by using Regina Rexx from:               *   FILE 725
//*                                                                 *   FILE 725
//*                   http://regina-rexx.sourceforge.net            *   FILE 725
//*                                                                 *   FILE 725
//*                You can view the resulting SVG file using        *   FILE 725
//*                either:                                          *   FILE 725
//*                                                                 *   FILE 725
//*                1. Microsoft Internet Explorer 6 with the        *   FILE 725
//*                   Adobe SVG Viewer plugin installed. The        *   FILE 725
//*                   plugin is free from www.adobe.com. Open       *   FILE 725
//*                   the html file created by this Rexx if you     *   FILE 725
//*                   want to scroll the output in the browser.     *   FILE 725
//*                   Alternatively, you could publish the html     *   FILE 725
//*                   file on a web server and point your           *   FILE 725
//*                   browser at that web server. Adobe SVG         *   FILE 725
//*                   Viewer supports the following mouse/key       *   FILE 725
//*                   actions:                                      *   FILE 725
//*                                                                 *   FILE 725
//*                   LeftButton+Ctrl           Zoom in             *   FILE 725
//*                   LeftButton+Ctrl+Shift     Zoom out            *   FILE 725
//*                   LeftButton+Alt            Move                *   FILE 725
//*                   LeftButton+Alt+Shift      Move constrained    *   FILE 725
//*                   Tool tips are not supported by this viewer    *   FILE 725
//*                   yet.                                          *   FILE 725
//*                                                                 *   FILE 725
//*                2. Apache Batik Squiggle program with Sun        *   FILE 725
//*                   Java 1.3 or later installed. Batik is free    *   FILE 725
//*                   from www.apache.org  To run Squiggle:         *   FILE 725
//*                   java -jar batik-squiggle.jar                  *   FILE 725
//*                   Squiggle supports the following               *   FILE 725
//*                   mouse/key actions:                            *   FILE 725
//*                                                                 *   FILE 725
//*                   LeftButton+Ctrl (+drag)   Zoom in to rectangle*   FILE 725
//*                   LeftButton+Shift (+drag)  Move                *   FILE 725
//*                   RightButton+Ctrl (+drag)  Rotate              *   FILE 725
//*                   RightButton+Shift (+drag) Zoom (in or out)    *   FILE 725
//*                   Squiggle shows tool tips when you hover       *   FILE 725
//*                   the mouse over items that have a tool tip     *   FILE 725
//*                   defined.                                      *   FILE 725
//*                                                                 *   FILE 725
//*                3. Microsoft Visio 2003 or later.                *   FILE 725
//*                                                                 *   FILE 725
//*                                                                 *   FILE 725
//*     MORE INFO  - See the AUX2SVG rexx procedure for more        *   FILE 725
//*                  information                                    *   FILE 725
//*                                                                 *   FILE 725
//*     NOTES      - 1. The AUX2SVG rexx procedure uses the Rexx    *   FILE 725
//*                     XML parser in CBTTAPE FILE647               *   FILE 725
//*                     (www.cbttape.org).                          *   FILE 725
//*                                                                 *   FILE 725
//*     AUTHOR     - Andrew J. Armstrong                            *   FILE 725
//*                  <andrew_armstrong@unwired.com.au>              *   FILE 725
//*                                                                 *   FILE 725
//***FILE 726 is from Ted MacNeil, and contains a REXX exec to      *   FILE 726
//*           generate DEFINE statements for VSAM files, directly   *   FILE 726
//*           from the file itself.  Details are explained below.   *   FILE 726
//*                                                                 *   FILE 726
//*     This code either displays a VSAM entry or writes the        *   FILE 726
//*     IDCAMS control statement needed to define a VSAM file.      *   FILE 726
//*     (MUST run under ISPF.)                                      *   FILE 726
//*                                                                 *   FILE 726
//*     From ISPF 3.4, type VC3 next to a VSAM data set             *   FILE 726
//*                                                                 *   FILE 726
//*     Further modified by Philippe Simon.  Please see members     *   FILE 726
//*     VCP and VCP$$ for his version and explanation thereof.      *   FILE 726
//*                                                                 *   FILE 726
//*     email for Philippe Simon:  philippe_simon_55@yahoo.fr       *   FILE 726
//*                                                                 *   FILE 726
//*     Originally Written by Jim Connelley.  Jim's version is      *   FILE 726
//*     included here as member VC.                                 *   FILE 726
//*                                                                 *   FILE 726
//*     No copyright.                                               *   FILE 726
//*     If you want to, send your enhancements to                   *   FILE 726
//*                                                                 *   FILE 726
//*             email:  tedmacneil@bell.blackberry.net              *   FILE 726
//*                     Ted MacNEIL <eamacneil@YAHOO.CA>            *   FILE 726
//*                                                                 *   FILE 726
//*     Reason for this REXX:                                       *   FILE 726
//*             I needed a method to clean up our old               *   FILE 726
//*             VSAM with the keywords: REPLICATE, IMBED            *   FILE 726
//*             and KEYRANGE. This was the fastest way.             *   FILE 726
//*             Those parameters are caught but not                 *   FILE 726
//*             written to control cards.                           *   FILE 726
//*             I also added a few lines to do a:                   *   FILE 726
//*             DELETE ------ PURGE at the front                    *   FILE 726
//*             (Optional)                                          *   FILE 726
//*                                                                 *   FILE 726
//*     There are bugs, such as handling multi-volume files, but    *   FILE 726
//*     that's where YOU come in.                                   *   FILE 726
//*     (-- Ted MacNEIL -- I believe I fixed this bug, but I did    *   FILE 726
//*                        not have any multi-volumes to test       *   FILE 726
//*                        with.)                                   *   FILE 726
//*                                                                 *   FILE 726
//*     (-- The dependency on STEMVIEW was removed to either write  *   FILE 726
//*      -- out to a file or stay inside a loop)                    *   FILE 726
//*                                                                 *   FILE 726
//*   Syntax:                                                       *   FILE 726
//*                                                                 *   FILE 726
//*     %VC3 VSAMDSN pds member DELETE                              *   FILE 726
//*                                                                 *   FILE 726
//*       VSAMDSN -- the VSAM FILE you wish to CLONE                *   FILE 726
//*                  (if you specify quotes, they are removed)      *   FILE 726
//*                                                                 *   FILE 726
//*       pds     -- where to output the control cards (Optional)   *   FILE 726
//*                - default: <userid>.VSAM.CONTROL.CARDS           *   FILE 726
//*                                                                 *   FILE 726
//*       member  -- the member name used to output the statements  *   FILE 726
//*                  (Optional)                                     *   FILE 726
//*                                                                 *   FILE 726
//*       DELETE  -- Insert DELETE <entry> PURGE                    *   FILE 726
//*               -- (Optional)                                     *   FILE 726
//*                                                                 *   FILE 726
//*     NOTE: 1. if PDS does not exist, this outputs to the screen  *   FILE 726
//*                                                                 *   FILE 726
//*           2. The only entry types supported are:                *   FILE 726
//*              ignored and only the DEFINE ALIAS ... RELATE       *   FILE 726
//*              will be output. There is not enough information    *   FILE 726
//*              in the LISTCAT output to rebuild the catalogue.    *   FILE 726
//*                                                                 *   FILE 726
//***FILE 727 is from Martin Kline and contains a program to copy   *   FILE 727
//*           VB or VBS disk files, up to a full track in length,   *   FILE 727
//*           to a VBS output file.  EXCP is used to read the       *   FILE 727
//*           input file.                                           *   FILE 727
//*                                                                 *   FILE 727
//*           email:  martin_kline@americancentury.com              *   FILE 727
//*                                                                 *   FILE 727
//***FILE 728 is from Dave Jousma and contains a RACF Password      *   FILE 728
//*           Quality Exit, ICHPWX01.                               *   FILE 728
//*                                                                 *   FILE 728
//*           email:  David.Jousma@53.com                           *   FILE 728
//*                                                                 *   FILE 728
//***FILE 729 is from Rob Wunderlich and contains his MAXITRAN      *   FILE 729
//*           REXX that helps to run batch FTP between an MVS       *   FILE 729
//*           client and another FTP server.                        *   FILE 729
//*                                                                 *   FILE 729
//*           email:  RobWunderlich@ussposco.com                    *   FILE 729
//*                                                                 *   FILE 729
//*     Description:                                                *   FILE 729
//*                                                                 *   FILE 729
//*     The MAXITRAN exec is used to script batch FTP between       *   FILE 729
//*     an MVS client and another FTP server.  It provides          *   FILE 729
//*     functions such as delete of source files after GET          *   FILE 729
//*     (delete is the default!).  Read the doc "maxitran.doc"      *   FILE 729
//*     for complete documentation.  (MSWORD format member          *   FILE 729
//*     MAXITRA@).                                                  *   FILE 729
//*                                                                 *   FILE 729
//*     This software is distributed into the public domain         *   FILE 729
//*     "as-is" by Rob Wunderlich.                                  *   FILE 729
//*                                                                 *   FILE 729
//*     To execute maxitran, copy the member "PROC" to a            *   FILE 729
//*     proclib (or JCLLIB) as member "MAXITRAN".  Update the       *   FILE 729
//*     SYSPROC DD stmt to point to this PDS.                       *   FILE 729
//*                                                                 *   FILE 729
//*     Customizations required before you use this at your         *   FILE 729
//*     site:                                                       *   FILE 729
//*                                                                 *   FILE 729
//*     -- Member MAXITRAN --                                       *   FILE 729
//*     1)The shipped default is "GETDELETE YES" which means        *   FILE 729
//*     files will be deleted from the server after a               *   FILE 729
//*     sucessfull GET.  If you want to change the default for      *   FILE 729
//*     your shop, change the line                                  *   FILE 729
//*       flagGetDelete=1                                           *   FILE 729
//*     to                                                          *   FILE 729
//*       flagGetDelete=0                                           *   FILE 729
//*                                                                 *   FILE 729
//*     2)If you use the email feature, you might want to           *   FILE 729
//*     update subroutine "sendmail" to use "HELO" and "FROM"       *   FILE 729
//*     values that are meaningful for your site.                   *   FILE 729
//*                                                                 *   FILE 729
//*     The email routine expects that you have an MVS              *   FILE 729
//*     SMTP server set up named "SMTP" that services output        *   FILE 729
//*     class B.                                                    *   FILE 729
//*                                                                 *   FILE 729
//***FILE 730 is from Hal Merritt, and contains a generalized       *   FILE 730
//*           version of a sample IBM program which allows you to   *   FILE 730
//*           run COBOL programs in batch under a z/OS.e LPAR.      *   FILE 730
//*           A description of the program follows:                 *   FILE 730
//*                                                                 *   FILE 730
//*           email:  hal.merritt@att.net                           *   FILE 730
//*                                                                 *   FILE 730
//*      This routine or front end is the documented way to         *   FILE 730
//*       run most any COBOL program in batch under z/OS.e.         *   FILE 730
//*       There is no documented restriction as to version of       *   FILE 730
//*       complier, but the COBOL program must be linked with       *   FILE 730
//*       LE runtimes.                                              *   FILE 730
//*                                                                 *   FILE 730
//*      Orginal program from topic 6.3.5 of SC26-4818-05 IBM       *   FILE 730
//*      Language Environment for MVS & VM Programming Guide        *   FILE 730
//*      Release 5.                                                 *   FILE 730
//*                                                                 *   FILE 730
//*      There are two main modifications.  One, the return         *   FILE 730
//*      code from the called program is percolated instead         *   FILE 730
//*      of dropped.  Look for L R15,SUBRETC  near the label        *   FILE 730
//*      DONE.                                                      *   FILE 730
//*                                                                 *   FILE 730
//*      The second is to call a program named in the               *   FILE 730
//*      parm rather than from a hard coded entry. This             *   FILE 730
//*      code starts near label PARM2.                              *   FILE 730
//*                                                                 *   FILE 730
//*      What happens is the program name is extracted from         *   FILE 730
//*      the parm, then the parm pointers are adjusted so           *   FILE 730
//*      that the called program is unaware anything is             *   FILE 730
//*      unusual.  The program name is expected to be the           *   FILE 730
//*      first one to eight bytes delimited by a comma or           *   FILE 730
//*      blank.  The parm pointers are adjusted to the first        *   FILE 730
//*      position past the delimiter.                               *   FILE 730
//*                                                                 *   FILE 730
//*      Of course, the maximum parm length usable by the           *   FILE 730
//*      called program is reduced by the length of the             *   FILE 730
//*      module name plus one.  Other than that, the called         *   FILE 730
//*      program should not need any modifications.                 *   FILE 730
//*                                                                 *   FILE 730
//*      We call this routine PIPICALL, and stow it in a            *   FILE 730
//*      linklist library.  The JCL modifications are:              *   FILE 730
//*                                                                 *   FILE 730
//*         Before =>                                               *   FILE 730
//*      //MYSTEP   EXEC PGM=MYPROG,PARM=MYPARM                     *   FILE 730
//*                                                                 *   FILE 730
//*         After  =>                                               *   FILE 730
//*      //MYSTEP  EXEC PGM=PIPICALL,PARM='MYPROG,MYPARM'           *   FILE 730
//*                                                                 *   FILE 730
//*       Function :  CEEPIPI - Initialize the PIPI                 *   FILE 730
//*                             environment, call a PIPI HLL        *   FILE 730
//*                             program, and terminate the          *   FILE 730
//*                             environment.                        *   FILE 730
//*                                                                 *   FILE 730
//*     1.  Call CEEPIPI to initialize a subroutine environment     *   FILE 730
//*         under LE.                                               *   FILE 730
//*     2.  Call CEEPIPI to load and call a reentrant HLL           *   FILE 730
//*         subroutine.                                             *   FILE 730
//*     3.  Call CEEPIPI to terminate the LE PIPI environment.      *   FILE 730
//*                                                                 *   FILE 730
//*     Note:  PIPICALL is not reentrant.                           *   FILE 730
//*                                                                 *   FILE 730
//***FILE 731 is from Sam Golob, and contains TSO commands and      *   FILE 731
//*           programs, related to most TSO/E PARMLIB UPDATE        *   FILE 731
//*           functions, TEST command auxiliary programs, also      *   FILE 731
//*           Broadcast Dataset switching, and commands related to  *   FILE 731
//*           the XMIT command (change OUTLIM and WARNING values    *   FILE 731
//*           on the fly, or to display all INMXPARM values).       *   FILE 731
//*                                                                 *   FILE 731
//*           There is a lot of unique stuff here, relating to TSO. *   FILE 731
//*                                                                 *   FILE 731
//*           Among other areas, many commands relating to the TPVT *   FILE 731
//*           and TCAS control blocks can be found here.            *   FILE 731
//*                                                                 *   FILE 731
//*           Programs relating to several other areas of TSO are   *   FILE 731
//*           also included in this file.                           *   FILE 731
//*                                                                 *   FILE 731
//*           email:  sbgolob@cbttape.org                           *   FILE 731
//*                                                                 *   FILE 731
//*           Recently added, was a command to display the          *   FILE 731
//*           non-default TEST settings from IKJTSOxx (called       *   FILE 731
//*           DTEST).  Added as well, was a program to replace      *   FILE 731
//*           new TEST settings using control cards.  This batch    *   FILE 731
//*           program is called LOADTEST.                           *   FILE 731
//*                                                                 *   FILE 731
//*           This file also contains TSO commands to show and      *   FILE 731
//*           change quantities having to do with the TSOKEYxx      *   FILE 731
//*           PARMLIB member.  (See also CBT File 797)              *   FILE 731
//*                                                                 *   FILE 731
//*           Many programs may be found here, which relate         *   FILE 731
//*           to control blocks that are chained off the TPVT       *   FILE 731
//*           (TSO Parmlib Vector Table), a control block that      *   FILE 731
//*           is not publicly documented by IBM.  See also,         *   FILE 731
//*           commands SHOWTPVT and SHOWTCAS, SHOWTSVT, and         *   FILE 731
//*           SHOWTSB (which has to be run APF-authorized).         *   FILE 731
//*                                                                 *   FILE 731
//*           (Look carefully through this file, because it         *   FILE 731
//*           contains programs that do a lot of stuff in TSO,      *   FILE 731
//*           and you probably can't find other programs like       *   FILE 731
//*           these, anywhere else.)                                *   FILE 731
//*                                                                 *   FILE 731
//*       - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 731
//*                                                                 *   FILE 731
//*  **NEW**  We have added several commands designed to change     *   FILE 731
//*  *     *  TCAS parameters on the fly.  They have been named     *   FILE 731
//*  *     *  to match the parameters in the TSOKEYxx PARMLIB       *   FILE 731
//*  *     *  member.  They must be APF-authorized, because the     *   FILE 731
//*  **NEW**  TCAS control block is in fetch-protected storage.     *   FILE 731
//*                                                                 *   FILE 731
//*  **NEW**  These are called (same as TSOKEYxx keywords):         *   FILE 731
//*  *     *  BUFRSIZE, CHNLEN, LOBFREXT, HIBFREXT, RECONLIM,       *   FILE 731
//*  *     *  SCRSIZE, USERMAX, and ENGTRANS.                       *   FILE 731
//*  *     *    ---   These commands are a set.  ---                *   FILE 731
//*  *     *  The command SHOWTCAS summarizes the values in all     *   FILE 731
//*  *     *  of these fields. "SHOWTCAS ALL" formats the entire    *   FILE 731
//*  **NEW**  TCAS control block (macro IKTTCAST).                  *   FILE 731
//*                                                                 *   FILE 731
//*  **NEW**  Since the TCAS parameters are reflected by macro      *   FILE 731
//*  *     *  IKTTCAST in SYS1.MACLIB, which describes the TCAS     *   FILE 731
//*  *     *  control block, which is in Subpool 231 and is         *   FILE 731
//*  *     *  fetch-protected, these programs all must be run       *   FILE 731
//*  *     *  APF-authorized as TSO commands.  You can't even       *   FILE 731
//*  *     *  look at the data without being APF-authorized.        *   FILE 731
//*  *     *  To use these commands, they must be named in the      *   FILE 731
//*  *     *  TSO table IKJEFTE2, or they must be authorized by     *   FILE 731
//*  *     *  some other means.  Without any other operands,        *   FILE 731
//*  *     *  each of these commands tells you the current state    *   FILE 731
//*  *     *  of the setting.  If you enter a number afterward,     *   FILE 731
//*  *     *  then the command changes the setting to that number,  *   FILE 731
//*  *     *  provided that it is in the correct range.             *   FILE 731
//*  **NEW**                                                        *   FILE 731
//*                       ***  SHOWTCAS  ***.                       *   FILE 731
//*                                                                 *   FILE 731
//*           See member $$NOTE01 for some information about        *   FILE 731
//*           the programs, classified by type of use and           *   FILE 731
//*           type of information shown.                            *   FILE 731
//*                                                                 *   FILE 731
//*  **NEW**  More programs in this file mainly pertain to control  *   FILE 731
//*  *     *  blocks chained off the TPVT ("TSO PARMLIB Vector      *   FILE 731
//*  *     *  Table") so we have added a program to display the     *   FILE 731
//*  *     *  general contents and layout of the TPVT, which is     *   FILE 731
//*  *     *  not documented for external use by IBM.  Our program  *   FILE 731
//*  *     *  to display the entire layout of the TPVT is called    *   FILE 731
//*  **NEW**                                                        *   FILE 731
//*                       ***  SHOWTPVT  ***.                       *   FILE 731
//*                                                                 *   FILE 731
//*           *****  FURTHER DESCRIPTION OF MORE PROGRAMS  *****    *   FILE 731
//*                                                                 *   FILE 731
//*           With the recent introduction of the IKJTSOxx LOGON    *   FILE 731
//*           parameters, the authorized LOGOPTS command was        *   FILE 731
//*           written to display and control those options,         *   FILE 731
//*           without having to change IKJTSOxx in PARMLIB and      *   FILE 731
//*           doing a PARMLIB UPDATE(xx) or a SET IKJTSOxx          *   FILE 731
//*           command.                                              *   FILE 731
//*                                                                 *   FILE 731
//*           This class of programs derives from control blocks    *   FILE 731
//*           that are chained off the TPVT control block, which    *   FILE 731
//*           stands for "TSO Parmlib Vector Table".  Its           *   FILE 731
//*           descriptive macro, IKJTPVT, is not in an IBM macro    *   FILE 731
//*           library, but we have provided our own version of      *   FILE 731
//*           IKJTPVT.  IBM's internal version of macro IKJTPVT is  *   FILE 731
//*           only PL/X.  Our version is Assembler.                 *   FILE 731
//*                                                                 *   FILE 731
//*           See member MODGEN in this file, which contains our    *   FILE 731
//*           versions of macros that were not publicly provided    *   FILE 731
//*           by IBM.  Actually, the TPVT is pointed to by a        *   FILE 731
//*           public IBM macro, IKJTSVT, which describes the "TSO   *   FILE 731
//*           Vector Table", and which is in SYS1.MACLIB.  But      *   FILE 731
//*           the details of the TPVT have not been publicly        *   FILE 731
//*           provided by IBM, and that is the kind of work that    *   FILE 731
//*           we are doing here.  (See also, CBT Files 185 and      *   FILE 731
//*           797 for related information.)                         *   FILE 731
//*                                                                 *   FILE 731
//*           Our new program SHOWTPVT displays all your current    *   FILE 731
//*           fields and addresses in the TPVT, showing the         *   FILE 731
//*           layout of the entire TPVT, together with each         *   FILE 731
//*           field's values, on your system.                       *   FILE 731
//*                                                                 *   FILE 731
//*           Added more programs, have to do with another two      *   FILE 731
//*           categories:                                           *   FILE 731
//*                                                                 *   FILE 731
//*           1-  Programs controlling or showing the contents      *   FILE 731
//*               of the TSO Relogon Buffer.  This is an important  *   FILE 731
//*               control block, but its study is often neglected.  *   FILE 731
//*                                                                 *   FILE 731
//*           2-  Programs having to do with 8-character TSO userid *   FILE 731
//*               support, which was introduced with z/OS 2.3.      *   FILE 731
//*                                                                 *   FILE 731
//*        Additional programs:  (even more stuff)                  *   FILE 731
//*                                                                 *   FILE 731
//*        These programs make use of the actual UCB Lookup Table,  *   FILE 731
//*        whose format is hidden by IBM, because if you do a       *   FILE 731
//*        dynamic I/O reconfiguration, this table gets completely  *   FILE 731
//*        reconstructed.  We do not figure that this occurrence    *   FILE 731
//*        will happen often, or in everyday processing.  We        *   FILE 731
//*        figure that most shops will do this during off hours.    *   FILE 731
//*        So during other times, these programs will run fine.     *   FILE 731
//*                                                                 *   FILE 731
//*        1. UCBDASD is a TSO command to display online DASD.      *   FILE 731
//*           This program uses an unusual and undocumented         *   FILE 731
//*           technique to obtain the REAL online DASD UCBs.        *   FILE 731
//*           The main idea of this technique is that you can       *   FILE 731
//*           do a UCB scan of all real UCB's, NOT copies,          *   FILE 731
//*           without being APF-authorized.                         *   FILE 731
//*                                                                 *   FILE 731
//*           (Tested and valid:  ESA 5.2.2 thru z/OS 1.13.)        *   FILE 731
//*           (New version of all 3 programs, tested thru           *   FILE 731
//*           z/OS 2.5.)                                            *   FILE 731
//*                                                                 *   FILE 731
//*           The UCBDASD program can be used as a model to         *   FILE 731
//*           create your own similar programs, and to find         *   FILE 731
//*           real-time UCB's and DCE's without the need of         *   FILE 731
//*           APF-authorization.                                    *   FILE 731
//*                                                                 *   FILE 731
//*           Caveat - If you are not doing a one-time display      *   FILE 731
//*           of the ULUT (UCB Lookup Table), but are changing      *   FILE 731
//*           something or need it for a long time, then you        *   FILE 731
//*           need to serialize the ULUT, and that takes APF        *   FILE 731
//*           authorization.  But for just looking, you should      *   FILE 731
//*           be OK. (SBG)                                          *   FILE 731
//*                                                                 *   FILE 731
//*        2. UCBTAPE is a TSO command to display online tape       *   FILE 731
//*           drives and pending tape mounts.  UCBTAPE# is a        *   FILE 731
//*           help member for UCBTAPE and shows you how to use      *   FILE 731
//*           it.                                                   *   FILE 731
//*                                                                 *   FILE 731
//*           (Tested and valid:  ESA 5.2.2 thru z/OS 1.13.)        *   FILE 731
//*           (New version of all 3 programs, tested thru           *   FILE 731
//*           z/OS 2.5.)                                            *   FILE 731
//*                                                                 *   FILE 731
//*        3. UCBTYPE is a TSO command to display device class      *   FILE 731
//*           totals, based on the ULUT header fields, and on       *   FILE 731
//*           an actual scan of all the UCB's on the system.        *   FILE 731
//*                                                                 *   FILE 731
//*           (Tested and valid:  ESA 5.2.2 thru z/OS 1.13.)        *   FILE 731
//*           (New version of all 3 programs, tested thru           *   FILE 731
//*           z/OS 2.5.)                                            *   FILE 731
//*                                                                 *   FILE 731
//*        Commands are: (see the pds member list for all of them)  *   FILE 731
//*                                                                 *   FILE 731
//*           SHOWTPVT - Non-authorized program to display and      *   FILE 731
//*                      format the ENTIRE TPVT, which is an        *   FILE 731
//*                      undocumented control block (outside of     *   FILE 731
//*                      IBM).  So you won't get this information   *   FILE 731
//*                      pretty much anywhere else.  It's very      *   FILE 731
//*                      useful stuff too, and pretty essential     *   FILE 731
//*                      to know about, if you're dealing with      *   FILE 731
//*                      TSO.                                       *   FILE 731
//*                                                                 *   FILE 731
//*           SHOWTCAS - APF-authorized TSO command to display all  *   FILE 731
//*                      the fields of the TCAS control block,      *   FILE 731
//*                      mapped by macro IKTTCAST, with parameter   *   FILE 731
//*                      ALL.                                       *   FILE 731
//*                                                                 *   FILE 731
//*           SHOWTSB  - Of course this has to run APF authorized.  *   FILE 731
//*                      Displays (in detail) the fields of the     *   FILE 731
//*                      Terminal Status Block (TSB).  Does not     *   FILE 731
//*                      include the TSBX.  (Use DUMPTSB from CBT   *   FILE 731
//*                      File 566 to get an idea about the TSBX.)   *   FILE 731
//*                                                                 *   FILE 731
//*           ALPL     - Authorized TSO/E command to change the     *   FILE 731
//*                      default disposition (system wide) of the   *   FILE 731
//*                      TSO/E ALLOCate command, from OLD to SHR,   *   FILE 731
//*                      or SHR to OLD, without a PARMLIB switch.   *   FILE 731
//*                                                                 *   FILE 731
//*           ADIS     - Non-authorized TSO/E command to display    *   FILE 731
//*                      the incore values of all the TSO/E "auth"  *   FILE 731
//*                      tables generated from the IKJTSOxx PARMLIB *   FILE 731
//*                      member, if these tables exist.  These      *   FILE 731
//*                      tables are lists of program names in       *   FILE 731
//*                      IKJEFTE2 (AUTHCMD), IKJEFTE8 (AUTHPGM),    *   FILE 731
//*                      IKJEFTNS (NOTBKGND), IKJEFTAP (AUTHTSF),   *   FILE 731
//*                      and even PCVE (PLATCMD) and PPVE (PLATPGM) *   FILE 731
//*                      if they exist.                             *   FILE 731
//*                                                                 *   FILE 731
//*           ALLIDS   - Shows your TSO userid in many different    *   FILE 731
//*                      places.  There are situations where your   *   FILE 731
//*                      userid can be one thing in one place, and  *   FILE 731
//*                      something else in another place.  This     *   FILE 731
//*                      command detects a lot of that.  Also it is *   FILE 731
//*                      fully compatible with 8-character userids. *   FILE 731
//*                  >>  THIS IS A VERY IMPORTANT PROGRAM FOR       *   FILE 731
//*                  >>  DOING 8-CHARACTER USERID CONVERSIONS.      *   FILE 731
//*                      Running ALLIDS non-authorized will give    *   FILE 731
//*                      a message saying the TSBX userid cannot    *   FILE 731
//*                      be displayed. (The id is in SP 231, and    *   FILE 731
//*                      needs authorization.)                      *   FILE 731
//*                                                                 *   FILE 731
//*           BYE      - Allows you to put arbitrary data into      *   FILE 731
//*                      the TSO Relogon Buffer, and setup a        *   FILE 731
//*                      logoff as soon as the session reaches      *   FILE 731
//*                      READY mode.  The data in the Relogon       *   FILE 731
//*                      Buffer will then be executed by the        *   FILE 731
//*                      TSO LOGON processor.                       *   FILE 731
//*                                                                 *   FILE 731
//*                      BYE with no operations, initializes the    *   FILE 731
//*                      Relogon Buffer, and reverses the effects   *   FILE 731
//*                      of BYE with operands.  BYE works together  *   FILE 731
//*                      with the SHOWRLGB command.                 *   FILE 731
//*                                                                 *   FILE 731
//*           CPFX     - 8-character userid support to change the   *   FILE 731
//*                      prefix of your TSO session.  Like          *   FILE 731
//*                      PROFILE PREFIX(prefix) IBM command, but    *   FILE 731
//*                      fully supports 8-character prefixes.       *   FILE 731
//*                      Compatible with z/OS 2.3 8-character id    *   FILE 731
//*                      support.                                   *   FILE 731
//*                                                                 *   FILE 731
//*           DACEE    - Non-authorized TSO command to display      *   FILE 731
//*                      the entire contents of this userid's       *   FILE 731
//*                      ACEE, interpreting the flag fields and     *   FILE 731
//*                      dumping the entire control block in HEX    *   FILE 731
//*                      and EBCDIC.  Optionally format the UTOKEN  *   FILE 731
//*                      and dump it.  Dump the ACEX as well.       *   FILE 731
//*                                                                 *   FILE 731
//*           DTEST    - Non-authorized TSO command to display      *   FILE 731
//*                      the IKJTSOxx values in the TEST listing.   *   FILE 731
//*                      Defaults to blank entries if TEST is       *   FILE 731
//*                      not coded.                                 *   FILE 731
//*                                                                 *   FILE 731
//*           LOADTEST - This is a batch program to reload the      *   FILE 731
//*                      IKJTSOxx values in the TEST listing,       *   FILE 731
//*                      using control cards.  APF-authorized       *   FILE 731
//*                      if reloading the TEST parameters from      *   FILE 731
//*                      control cards.  Not APF if reporting       *   FILE 731
//*                      only.                                      *   FILE 731
//*                      If you want to run LOADTEST under TSO,     *   FILE 731
//*                      then allocate DD SYSPRINT to the terminal  *   FILE 731
//*                      and then execute the program LOADTEST.     *   FILE 731
//*                                                                 *   FILE 731
//*           LOADT*** - Members providing support for the          *   FILE 731
//*                      LOADTEST program.                          *   FILE 731
//*                                                                 *   FILE 731
//*           DVAT     - Display original VATLSTxx settings after   *   FILE 731
//*                      IPL time.  Caveats mentioned in the        *   FILE 731
//*                      program.  A useful display.                *   FILE 731
//*                                                                 *   FILE 731
//*           EESCB    - Display all fields relating to the         *   FILE 731
//*                      status of TSO/E Broadcast Dataset          *   FILE 731
//*                      switching.                                 *   FILE 731
//*                                                                 *   FILE 731
//*           INMXD    - Display all fields relating to the         *   FILE 731
//*                      INMXPARM control block containing all      *   FILE 731
//*                      the parameters affecting the TSO XMIT      *   FILE 731
//*                      command.  (Use INMXD to test the           *   FILE 731
//*                      results of the CINMX command.)             *   FILE 731
//*                                                                 *   FILE 731
//*           CINMX    - Change the XMIT OUTLIM, Wait Threshold,    *   FILE 731
//*                      and Wait Interval quantities in storage.   *   FILE 731
//*                      Changes are effective immediately, and     *   FILE 731
//*                      do not depend on any PARMLIB settings.     *   FILE 731
//*                      (This command has to be APF authorized.)   *   FILE 731
//*                                                                 *   FILE 731
//*           HIBFREXT - A special-purpose command to change the    *   FILE 731
//*                      numeric value of the HIBFREXT field in     *   FILE 731
//*                      the IKJTCAST (VTAM/TSO) control block.     *   FILE 731
//*                      This program can be adapted to change      *   FILE 731
//*                      any fullword numeric value in a different  *   FILE 731
//*                      numeric field.  Must be APF-authorized.    *   FILE 731
//*                      (Change it in two places. 1- where the     *   FILE 731
//*                      old value is recorded, and 2- where the    *   FILE 731
//*                      new value gets substituted in.  All the    *   FILE 731
//*                      numeric checks are already in place.)      *   FILE 731
//*                                                                 *   FILE 731
//*           LOBFREXT - Works the same as HIBFREXT except that     *   FILE 731
//*                      it changes the LOBFREXT value instead      *   FILE 731
//*                      of the HIBFREXT value.  Now you can        *   FILE 731
//*                      adjust both of them.                       *   FILE 731
//*                                                                 *   FILE 731
//*           LOGOPTS  - Allows complete control of settings        *   FILE 731
//*                      in the IKJTSOxx LOGON parameters, on       *   FILE 731
//*                      the fly.  Without operands, LOGOPTS        *   FILE 731
//*                      tells you the current state of the         *   FILE 731
//*                      flags.  With operands (APF-authorized)     *   FILE 731
//*                      LOGOPTS can switch off or on, any of       *   FILE 731
//*                      the IKJTSOxx LOGON settings.               *   FILE 731
//*                                                                 *   FILE 731
//*                      The effect is global, for the whole LPAR,  *   FILE 731
//*                      so be careful.                             *   FILE 731
//*                                                                 *   FILE 731
//*                      Bits are set as follows for the            *   FILE 731
//*                      following options:                         *   FILE 731
//*                                                                 *   FILE 731
//*                      X'08' -  Password Phrase Support           *   FILE 731
//*                      X'04' -  Applid Verification               *   FILE 731
//*                      X'02' -  LOGONHERE Support                 *   FILE 731
//*                      X'01' -  Password Preprompt Support        *   FILE 731
//*                                                                 *   FILE 731
//*                      LOGOPTS PARMS (to set the bit on/off)      *   FILE 731
//*                      ------- -----                              *   FILE 731
//*                       S -  Password Phrase Support    SF - off  *   FILE 731
//*                       A -  Applid Verification        AF - off  *   FILE 731
//*                       H -  LOGONHERE Support          HF - off  *   FILE 731
//*                       P -  Password Preprompt Support PF - off  *   FILE 731
//*                                                                 *   FILE 731
//*           LOKSES   - Lock your terminal session.                *   FILE 731
//*                      Based on an ancient program.               *   FILE 731
//*                                                                 *   FILE 731
//*           MEMBER   - Program from Bill Godfrey to list          *   FILE 731
//*                      attributes of a pds member.                *   FILE 731
//*                                                                 *   FILE 731
//*           RELOGON  - Generates a LOGON command for your         *   FILE 731
//*                      current session, puts it into the TSO      *   FILE 731
//*                      Relogon Buffer, and sets the switch to     *   FILE 731
//*                      LOGOFF when you reach READY mode.  If      *   FILE 731
//*                      the session has a TSB password, then it    *   FILE 731
//*                      is included, as: LOGON userid/password.    *   FILE 731
//*                                                                 *   FILE 731
//*           SYSLV    - Quick and dirty display of z/OS (MVS)      *   FILE 731
//*                      System Level and CPU model.  Might be      *   FILE 731
//*                      quick and dirty, but it uses PUTLINE.      *   FILE 731
//*                                                                 *   FILE 731
//*           SHOWRLGB - A complete display of information about    *   FILE 731
//*                      the TSO Relogon Buffer, including whether  *   FILE 731
//*                      the ECTLOGF switch is set, to force        *   FILE 731
//*                      LOGOFF at READY mode.                      *   FILE 731
//*                                                                 *   FILE 731
//*           TRMSZRPT - TSO command to report the terminal size    *   FILE 731
//*                      for all logged-on TSO users.  APF-auth.    *   FILE 731
//*                                                                 *   FILE 731
//*           TSUINFO  - TSO command to display some unusual        *   FILE 731
//*                      information about all logged-on TSO        *   FILE 731
//*                      users.  APF-authorized.                    *   FILE 731
//*                                                                 *   FILE 731
//*           TSVT8    - Turns 8-character userid support on/off    *   FILE 731
//*                      for testing purposes.  Works with z/OS     *   FILE 731
//*                      2.3 or higher.                             *   FILE 731
//*                                                                 *   FILE 731
//*           TSVTTMO  - For z/OS 2.4 and higher:                   *   FILE 731
//*                      TSO LOGON screen timeout is now           .*   FILE 731
//*                      adjustable.  It used to be fixed at        *   FILE 731
//*                      5 minutes, but IBM was told of the need    *   FILE 731
//*                      to make it adjustable for some shops.      *   FILE 731
//*                      The TSVTTMO TSO command can display or     *   FILE 731
//*                      change the LOGON screen's timeout value.   *   FILE 731
//*                      (i.e. If you type LOGON userid without     *   FILE 731
//*                      typing a password, the system gets a       *   FILE 731
//*                      TSO "STARTING" session going, but it does  *   FILE 731
//*                      not stay there--it times out.  So how      *   FILE 731
//*                      long does the screen stay there before     *   FILE 731
//*                      timing out?  This is what we are adjus-    *   FILE 731
//*                      ting.  The default value is 5 minutes.)    *   FILE 731
//*                                                                 *   FILE 731
//*           UCBDASD  - Display all online DASD volumes, in        *   FILE 731
//*                      real-time, without being APF-authorized.   *   FILE 731
//*                                                                 *   FILE 731
//*           UCBTAPE  - Display all online tape drives and         *   FILE 731
//*                      pending tape mounts.  See help member      *   FILE 731
//*                      UCBTAPE#.                                  *   FILE 731
//*                                                                 *   FILE 731
//*           USERMAX  - Another way of doing F TSO,USERMAX=nnnn    *   FILE 731
//*                      Good if you can't get to a console.        *   FILE 731
//*                      This TSO command must be APF-authorized.   *   FILE 731
//*                                                                 *   FILE 731
//*           XOR      - A simple program to display the XOR of     *   FILE 731
//*                      up to 8 characters that have been input.   *   FILE 731
//*                                                                 *   FILE 731
//*           ZAPLWA   - Use this program for experimental          *   FILE 731
//*                      purposes to alter your own TSO session's   *   FILE 731
//*                      logon characteristics.  (Probably should   *   FILE 731
//*                      not be used for "production use")          *   FILE 731
//*                                                                 *   FILE 731
//*           A load library containing all of these load modules   *   FILE 731
//*           is contained in this pds, in XMIT format, as member   *   FILE 731
//*           LOADLIB.  If you want to assemble all these           *   FILE 731
//*           commands, you will need the EESCB.MODGEN macro        *   FILE 731
//*           library, which can be generated from the MODGEN       *   FILE 731
//*           member of this pds, using the $PDSLOAD member.        *   FILE 731
//*           The PDSLOAD program is also included in the load      *   FILE 731
//*           library containing the programs from this file,       *   FILE 731
//*           so if you TSO RECEIVE the member called LOADLIB,      *   FILE 731
//*           you'll have the PDSLOAD program too.                  *   FILE 731
//*                                                                 *   FILE 731
//*     These commands have been tested and found to work on MVS    *   FILE 731
//*     systems back to MVS/ESA 5.2.2 and all the OS/390 releases.  *   FILE 731
//*     Also tested on z/OS thru 2.5. These commands contain dual   *   FILE 731
//*     coding paths to accommodate the older TSO/E releases.       *   FILE 731
//*                                                                 *   FILE 731
//*           email:  sbgolob@cbttape.org                           *   FILE 731
//*                                                                 *   FILE 731
//*     Control Block Notes:                                        *   FILE 731
//*     ------- ----- -----                                         *   FILE 731
//*                                                                 *   FILE 731
//*     1.  The IKJTPVT control block is chained off the TSO Vector *   FILE 731
//*         Table (mapped by IKJTSVT in SYS1.MACLIB), and is OCO    *   FILE 731
//*         officially.  But if you look in the IKJTSVT macro,      *   FILE 731
//*         the pointer to the TPVT control block is officially     *   FILE 731
//*         documented.  And if you look at the TPVT in storage,    *   FILE 731
//*         it is pretty obvious that X'20' off the beginning,      *   FILE 731
//*         points to the IKJEESCB control block, which contains    *   FILE 731
//*         the BROADCAST and USERLOG dataset status, and (in       *   FILE 731
//*         TSO/E Release 3 and higher, where BROADCAST dataset     *   FILE 731
//*         switching is supported,) the BROADCAST switching        *   FILE 731
//*         status too.  Macro IKJEESCB is in SYS1.MODGEN.          *   FILE 731
//*                                                                 *   FILE 731
//*     2.  The TPVT control block was mapped, by guesswork, in     *   FILE 731
//*         the SHOWzOS work (on CBT Tape File 492).  I have        *   FILE 731
//*         therefore included the necessary macros from the        *   FILE 731
//*         SHOWzOS maclib, called IKJTPVT and IKJCTLT, for         *   FILE 731
//*         assembling the EESCB command.                           *   FILE 731
//*                                                                 *   FILE 731
//*     3.  Older versions of the IKJEESCB control block are        *   FILE 731
//*         supported here, too.  These are TSO/E Release 2 and     *   FILE 731
//*         lower, going up to z/OS 1.2.  At those levels,          *   FILE 731
//*         BROADCAST dataset switching was not yet supported,      *   FILE 731
//*         so the extension to the IKJEESCB control block that     *   FILE 731
//*         supports an alternate BROADCAST dataset is not yet      *   FILE 731
//*         there.  But in IKJEESCB level 2, all of the PARMLIB     *   FILE 731
//*         UPDATE stuff IS there, except for the dataset switch-   *   FILE 731
//*         ing stuff.  In IKJEESCB level 1, less detail about      *   FILE 731
//*         the TSO Userlogs is retained in the control block.      *   FILE 731
//*                                                                 *   FILE 731
//*     4.  It seems that the purpose of the IKJTPVT control        *   FILE 731
//*         block is to point to all the information that is        *   FILE 731
//*         involved in either a PARMLIB UPDATE(xx) TSO command     *   FILE 731
//*         execution, or (in TSO/E Release 3) a SET IKJTSO=xx      *   FILE 731
//*         operator command, which does the same thing.  So any    *   FILE 731
//*         new control blocks that are involved with the           *   FILE 731
//*         IKJTSOxx parameters, are pointed to by the TPVT.  It    *   FILE 731
//*         seems to me, that IBM wants to keep some flexibility    *   FILE 731
//*         with regard to new development of TSO-based system      *   FILE 731
//*         controls, so that is why they are keeping the IKJTPVT   *   FILE 731
//*         control block OCO.  (Also, the pointers to the "auth"   *   FILE 731
//*         tables are there.)  Nevertheless, we are using it,      *   FILE 731
//*         because we have to.                                     *   FILE 731
//*                                                                 *   FILE 731
//*     5.  Details from both the IKJEESCB control block and the    *   FILE 731
//*         TPVT control block which are relevant to the BROADCAST  *   FILE 731
//*         dataset, are shown by the EESCB TSO command.  For       *   FILE 731
//*         TSO/E Release 3, I have pulled the stops out, and I     *   FILE 731
//*         have tried to show just about everything related to     *   FILE 731
//*         the BROADCAST dataset that there is.  (With the         *   FILE 731
//*         exception of the second set of timings.)                *   FILE 731
//*                                                                 *   FILE 731
//*     6.  A TSO command to show the contents of all the fields    *   FILE 731
//*         in your TPVT control block, together with their         *   FILE 731
//*         explanations, is called SHOWTPVT.  Most of the          *   FILE 731
//*         addresses shown by SHOWTPVT point to the different      *   FILE 731
//*         control blocks that govern each IKJTSOxx parameter.     *   FILE 731
//*         The complete control block, with every field specified, *   FILE 731
//*         is shown and explained.                                 *   FILE 731
//*                                                                 *   FILE 731
//*     TPUT and PUTLINE Notes:                                     *   FILE 731
//*     ---- --- ------- -----                                      *   FILE 731
//*                                                                 *   FILE 731
//*     The output of the EESCB command, especially for TSO/E       *   FILE 731
//*     Release 3, is quite long, so rather than having it          *   FILE 731
//*     overflow several screens, I have tried to use the PUTLINE   *   FILE 731
//*     interface to the TSO screen, which is "capturable" by the   *   FILE 731
//*     SYSOUTTRAP service, rather than using the TPUT interface    *   FILE 731
//*     to the screen, which is not capturable.                     *   FILE 731
//*                                                                 *   FILE 731
//*     However, in coding the EESCB command, I used the TPUT       *   FILE 731
//*     interface first, which is much simpler to code and set      *   FILE 731
//*     up.  This made for easier development.                      *   FILE 731
//*                                                                 *   FILE 731
//*     After having coded EESCB using TPUT, I then converted it    *   FILE 731
//*     to PUTLINE using Howard Dean and Jim Elsworth's interface   *   FILE 731
//*     to set up PUTLINE, which is included here, too, for your    *   FILE 731
//*     edification and easy access (originally from CBT File 136). *   FILE 731
//*                                                                 *   FILE 731
//*     This PUTLINE interface works as follows:                    *   FILE 731
//*                                                                 *   FILE 731
//*     A program called EPUTL, which can be separately assembled   *   FILE 731
//*     and linkedited, sets up the PUTLINE interface externally    *   FILE 731
//*     from the TSO command which calls it.  The call to EPUTL     *   FILE 731
//*     is then set up by a macro called APUT, which has the same   *   FILE 731
//*     coding rules as a single line TPUT.  Therefore, if you      *   FILE 731
//*     linkedit the EPUTL routine into your TSO command load       *   FILE 731
//*     module, and you convert all coded TPUTs in the source code  *   FILE 731
//*     to APUTs, then the TSO screen interface is automagically    *   FILE 731
//*     transformed from TPUT to PUTLINE.                           *   FILE 731
//*                                                                 *   FILE 731
//*     The EPUTL program assumes that the calling TSO command      *   FILE 731
//*     had been set up properly, using standard IBM linkage        *   FILE 731
//*     conventions.  Once that has been assumed, and if it is      *   FILE 731
//*     indeed true, EPUTL can nose around in the caller's saved    *   FILE 731
//*     registers and pull out the caller's CPPL, so that it can    *   FILE 731
//*     set up the PUTLINE environment and issue the PUTLINE        *   FILE 731
//*     macro, independently linkedited from the calling program.   *   FILE 731
//*     It is a nice idea.  Most TSO commands are properly coded,   *   FILE 731
//*     and therefore it is possible to set up PUTLINE service in   *   FILE 731
//*     this easy manner.                                           *   FILE 731
//*                                                                 *   FILE 731
//*     This system makes TSO command coding (that has terminal     *   FILE 731
//*     outputs) much easier too, because you can code the outputs  *   FILE 731
//*     using TPUT and convert them to PUTLINE later.               *   FILE 731
//*                                                                 *   FILE 731
//*     The EESCB source code already includes the APUT and the     *   FILE 731
//*     EPUTL source, together with it inline.  But I have          *   FILE 731
//*     nevertheless put separate copies of them into this pds,     *   FILE 731
//*     so you don't have to go to the trouble of extracting        *   FILE 731
//*     them, if you want to use them for other applications.       *   FILE 731
//*                                                                 *   FILE 731
//*     SYSOUTTRAP Notes:                                           *   FILE 731
//*     ---------- -----                                            *   FILE 731
//*                                                                 *   FILE 731
//*     To make it easier to view the entire EESCB output on the    *   FILE 731
//*     screen, I have made it possible (using Mark Zelden's TSOE,  *   FILE 731
//*     TSOB, TSOV, and TSOR execs) to make the output scrollable.  *   FILE 731
//*                                                                 *   FILE 731
//*     These are Mark's EXECs:                                     *   FILE 731
//*                                                                 *   FILE 731
//*     TSOE SYSOUTTRAPs the TSO command output, and allocates a    *   FILE 731
//*     temporary file, which it EDITs.                             *   FILE 731
//*                                                                 *   FILE 731
//*     TSOB SYSOUTTRAPs the TSO command output, and allocates a    *   FILE 731
//*     temporary file, which it BROWSEs.                           *   FILE 731
//*                                                                 *   FILE 731
//*     TSOV SYSOUTTRAPs the TSO command output, and allocates a    *   FILE 731
//*     temporary file, which it VIEWs.                   ..        *   FILE 731
//*                                                                 *   FILE 731
//*     TSOR SYSOUTTRAPs the TSO command output, and allocates a    *   FILE 731
//*     temporary file, which it displays using the REVIEW command  *   FILE 731
//*     from CBT File 134 (load modules on File 135).  REVIEW       *   FILE 731
//*     works either from within ISPF, or from TSO READY mode.      *   FILE 731
//*     So TSOR EESCB works from TSO READY mode as well as from     *   FILE 731
//*     an ISPF command line, as TSO TSOR EESCB.                    *   FILE 731
//*                                                                 *   FILE 731
//*     To use the TSOE, TSOB, TSOV, and TSOR execs, just copy      *   FILE 731
//*     them to a SYSPROC or SYSEXEC library, and issue:            *   FILE 731
//*                                                                 *   FILE 731
//*        TSO TSOE EESCB         or                                *   FILE 731
//*        TSO TSOB EESCB         or                                *   FILE 731
//*        TSO TSOV EESCB         or                                *   FILE 731
//*        TSO TSOR EESCB         from an ISPF command line,        *   FILE 731
//*     or     TSOR EESCB from TSO READY mode, all of which         *   FILE 731
//*     will produce scrollable output.                             *   FILE 731
//*                                                                 *   FILE 731
//* --------------------------------------------------------------- *   FILE 731
//*                                                                 *   FILE 731
//*   I added another command called CINMX, which will reset        *   FILE 731
//*   the TRANSREC OUTLIM number as a TSO command.  (It will be     *   FILE 731
//*   helpful to remember the old number before running this        *   FILE 731
//*   command.)  You just run the TSO command:                      *   FILE 731
//*                                                                 *   FILE 731
//*   CINMX nnnnnn     where nnnnnn has to be numeric, up to 10     *   FILE 731
//*                    digits, and the OUTLIM is reset in core,     *   FILE 731
//*                    to this value.                               *   FILE 731
//*                                                                 *   FILE 731
//*   CINMX W nnnnnn   adjusts the TRANSREC Warn Threshold          *   FILE 731
//*                                                                 *   FILE 731
//*   CINMX I nnnnnn   adjusts the TRANSREC Warn Interval           *   FILE 731
//*                                                                 *   FILE 731
//*   Of necessity this command has to be APF authorized.           *   FILE 731
//*                                                                 *   FILE 731
//*   Reason for this command:                                      *   FILE 731
//*                                                                 *   FILE 731
//*   If you want to transmit a large file, and your installation   *   FILE 731
//*   won't allow it because the TRANSREC OUTLIM value in PARMLIB   *   FILE 731
//*   was too low, you can just adjust it up, transmit your file,   *   FILE 731
//*   and adjust it back.  Now, with the W and I parameters, you    *   FILE 731
//*   can use CINMX to adjust the Warn Threshold and Warn Interval  *   FILE 731
//*   values, too.  You can test the results of the CINMX command   *   FILE 731
//*   by running the INMXD command, which displays the INMXPARM     *   FILE 731
//*   control block values currently in storage.                    *   FILE 731
//*                                                                 *   FILE 731
//*   Note: -                                                       *   FILE 731
//*   The CINMX program will also work at the OS/390 1.3 level and  *   FILE 731
//*   before, even though the displacements into the INMXPARM       *   FILE 731
//*   control block were 4 bytes earlier.  (CINMX Ver 1.2)          *   FILE 731
//*   All of these commands were tested on MVS systems back to      *   FILE 731
//*   ESA 5.2.2 and up through z/OS 2.5.                            *   FILE 731
//*                                                                 *   FILE 731
//***FILE 732 is Chuck Hoffman's version of the TSO WHOHAS command  *   FILE 732
//*           which is familiar to many of us.  It seems to have    *   FILE 732
//*           disappeared from the regular CBT Tape, or at least    *   FILE 732
//*           I have not been able to find it there, yet.  Anyway,  *   FILE 732
//*           I'm making sure it is available again by putting it   *   FILE 732
//*           here.                                                 *   FILE 732
//*                                                                 *   FILE 732
//*           I did find that this command might be similar to the  *   FILE 732
//*           SYSDSN command on Chuck Hoffman's file, File 160.     *   FILE 732
//*                                                                 *   FILE 732
//*           email:  sbgolob@cbttape.org                           *   FILE 732
//*                                                                 *   FILE 732
//***FILE 733 is the full ALGOL68C tape distribution of the ALGOL   *   FILE 733
//*           68C language, from Cambridge University, dated the    *   FILE 733
//*           Spring of 1976.  It may not be what you expect, but   *   FILE 733
//*           it is the full distribution tape, consisting of 25    *   FILE 733
//*           tape files.  The members in this pds are numbered     *   FILE 733
//*           in order, according to the tape file numbers:         *   FILE 733
//*                                                                 *   FILE 733
//*           I believe this is called a "prerelease version".      *   FILE 733
//*                                                                 *   FILE 733
//*           Member A68C01 corresponds to tape file 1, and so      *   FILE 733
//*           forth, so you can navigate through this pds, just     *   FILE 733
//*           like you would navigate through the tape documenta-   *   FILE 733
//*           tion on file 4, which is reproduced here as member    *   FILE 733
//*           $INSTALL.                                             *   FILE 733
//*                                                                 *   FILE 733
//*           There are many interesting things to look at here,    *   FILE 733
//*           even if you don't want to implement the language,     *   FILE 733
//*           such as the character set description in member       *   FILE 733
//*           A68C01 (file 1), and the pack/unpack program that     *   FILE 733
//*           is included in the package.                           *   FILE 733
//*                                                                 *   FILE 733
//*           Object deck disassemblies of the PACK and PACKCEBC    *   FILE 733
//*           programs on file 8 have been provided.                *   FILE 733
//*                                                                 *   FILE 733
//*           Do with it as you like, and as you can.  At least it  *   FILE 733
//*           is all here.  What you see is what you get, and what  *   FILE 733
//*           you get is what you can make of it.                   *   FILE 733
//*                                                                 *   FILE 733
//*   Questions:  sbgolob@cbttape.org                               *   FILE 733
//*                                                                 *   FILE 733
//*       Differences between ALGOL68C and ALGOL 68                 *   FILE 733
//*       ----------- ------- -------- --- ----- --                 *   FILE 733
//*                                                                 *   FILE 733
//*     Restrictions                                                *   FILE 733
//*                                                                 *   FILE 733
//*     .   No parallel clauses.                                    *   FILE 733
//*                                                                 *   FILE 733
//*     .   No flexible names.                                      *   FILE 733
//*                                                                 *   FILE 733
//*     .   No formatted transput.                                  *   FILE 733
//*                                                                 *   FILE 733
//*     .   No vacuums.                                             *   FILE 733
//*                                                                 *   FILE 733
//*     .   An indicant may not be used as both an operator and     *   FILE 733
//*         a mode-indication.                                      *   FILE 733
//*                                                                 *   FILE 733
//*     .   Round brackets are not available in row-declarers.      *   FILE 733
//*         (But see 'row-symbol' below.)                           *   FILE 733
//*                                                                 *   FILE 733
//*     .   Colon-symbol must not be present in virtual rowers.     *   FILE 733
//*                                                                 *   FILE 733
//*     .   Both bounds must be specified in an actual rower.       *   FILE 733
//*                                                                 *   FILE 733
//*     .   := and =: are not available in operators.               *   FILE 733
//*         (But see 'assign-formulas' below.)                      *   FILE 733
//*                                                                 *   FILE 733
//*     .   Widening of BITS and BYTES is not provided.             *   FILE 733
//*                                                                 *   FILE 733
//*     Extensions                                                  *   FILE 733
//*                                                                 *   FILE 733
//*     .   Labels in enquiry-clauses.                              *   FILE 733
//*                                                                 *   FILE 733
//*     .   UPTO and DOWNTO in loop-clauses.                        *   FILE 733
//*                                                                 *   FILE 733
//*     .   Until-part in loop-clauses.                             *   FILE 733
//*                                                                 *   FILE 733
//*     .   Operator priorities.                                    *   FILE 733
//*                                                                 *   FILE 733
//*     .   Row-symbol in row-declarers.                            *   FILE 733
//*         (e.g. ROW()AMODE as an alternative to ƒ„AMODE.)         *   FILE 733
//*                                                                 *   FILE 733
//*     .   Monadic-formula is a secondary.                         *   FILE 733
//*                                                                 *   FILE 733
//*     .   Displacements (yielding the previous value).            *   FILE 733
//*                                                                 *   FILE 733
//*     .   Assign-formulas (op:= and op:=:= are automatically      *   FILE 733
//*         available for all op).                                  *   FILE 733
//*                                                                 *   FILE 733
//*     .   Predicates (ANDF and ORF have defined sequence of       *   FILE 733
//*         elaboration).                                           *   FILE 733
//*                                                                 *   FILE 733
//*     .   Handles.                                                *   FILE 733
//*                                                                 *   FILE 733
//*     .   Escaped-characters in string-denotations (e.g. *"       *   FILE 733
//*         yields ").                                              *   FILE 733
//*                                                                 *   FILE 733
//*     .   Use of square brackets in calls.                        *   FILE 733
//*                                                                 *   FILE 733
//*     .   Thef-symbol in conditional-clauses.                     *   FILE 733
//*         (e.g. IF a THEF b THEN c ELSE d FI)                     *   FILE 733
//*                                                                 *   FILE 733
//*     .   :^=: as a representation of the is-not-symbol.          *   FILE 733
//*                                                                 *   FILE 733
//***FILE 734 is the original version of the PDS command, which     *   FILE 734
//*           still works, but which is being included here for     *   FILE 734
//*           nostalgia only.  The version of PDS on File 182,      *   FILE 734
//*           having been improved for so many years by Bruce       *   FILE 734
//*           Leland, Steve Smith, and John Kalinich, is so much    *   FILE 734
//*           better (and it now has PDSE support from Greg Price)  *   FILE 734
//*           that you shouldn't even THINK of using this version.  *   FILE 734
//*                                                                 *   FILE 734
//*           However, this is the version that I used to use on    *   FILE 734
//*           MVT, and it brings back very pleasant memories of     *   FILE 734
//*           a time gone by.  Try it and dream of the old days,    *   FILE 734
//*           way, way before any programmers ever got laid off     *   FILE 734
//*           (and way before any IBM'ers got laid off either).     *   FILE 734
//*                                                                 *   FILE 734
//*           Think 1975 !!!                                        *   FILE 734
//*                                                                 *   FILE 734
//*           But in a pinch, this program, renamed PDSORIG to      *   FILE 734
//*           avoid conflicts with any later and better versions,   *   FILE 734
//*           still works, and can still bail you out.  It is a     *   FILE 734
//*           tribute to the longevity of the old OS/360 design.    *   FILE 734
//*                                                                 *   FILE 734
//*           All the best to all of you ...... (SG - 01/03/2006)   *   FILE 734
//*                                                                 *   FILE 734
//*           Please note that ISPF statistics did not exist then,  *   FILE 734
//*           so that SSI information for source modules does not   *   FILE 734
//*           report correctly when ISPF statistics exist instead,  *   FILE 734
//*           while using the ATTR subcommand.                      *   FILE 734
//*                                                                 *   FILE 734
//*           Just for laughs......                                 *   FILE 734
//*                                                                 *   FILE 734
//*           Let me paraphrase a SYS1.BRODCAST message that I      *   FILE 734
//*           saw when I was working on MVT (long ago):             *   FILE 734
//*           "We're sorry, but we felt it necessary to put a       *   FILE 734
//*           password on SYS1.UADS last November."  This gives     *   FILE 734
//*           you an idea about security, during the time we're     *   FILE 734
//*           talking about.  (I was working at the Federal         *   FILE 734
//*           Reserve Bank of New York at the time, no less!)       *   FILE 734
//*           The PDS program was a life-saver, even then.          *   FILE 734
//*           (SG - 09/15/2022)                                     *   FILE 734
//*                                                                 *   FILE 734
//***FILE 735 is from Tom Barthold and contains some very handy     *   FILE 735
//*           ISPF edit macros.                                     *   FILE 735
//*                                                                 *   FILE 735
//*           email:  Thomas_Barthold@ml.com                        *   FILE 735
//*                   TBarthold@comcast.net                         *   FILE 735
//*                                                                 *   FILE 735
//***FILE 736 is from Mark Naughton of British Airways and contains *   FILE 736
//*           a Perl script to run under MVS Unix Services, which   *   FILE 736
//*           displays details about your IODF configuration.       *   FILE 736
//*                                                                 *   FILE 736
//*           The Perl script has DCB attributes of LRECL=420, so   *   FILE 736
//*           it has been sent here as an XMIT-format file, and it  *   FILE 736
//*           therefore must be RECEIVEd under TSO, as follows:     *   FILE 736
//*                                                                 *   FILE 736
//*             TSO RECEIVE INDS(this.dataset(IODF))                *   FILE 736
//*                                                                 *   FILE 736
//*           For further detail, see member $$NOTE1.               *   FILE 736
//*                                                                 *   FILE 736
//*           email:  mark.naughton@ba.com                          *   FILE 736
//*                                                                 *   FILE 736
//*     -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -     *   FILE 736
//*                                                                 *   FILE 736
//*     IODF.CGI Documentation                                      *   FILE 736
//*                                                                 *   FILE 736
//*     Introduction                                                *   FILE 736
//*                                                                 *   FILE 736
//*     This PERL script runs on the MVS Webserver and produces     *   FILE 736
//*     a table, in HTML, of channels, associated control units     *   FILE 736
//*     and devices. It also displays switch information.           *   FILE 736
//*                                                                 *   FILE 736
//*     It has been tested with IOCPs created for Amdahl and        *   FILE 736
//*     IBM z/Series machines running z/OS 1.4.                     *   FILE 736
//*                                                                 *   FILE 736
//*     Configuration                                               *   FILE 736
//*                                                                 *   FILE 736
//*     1.  Update the 1st line of the script to point to your      *   FILE 736
//*         PERL interpreter.                                       *   FILE 736
//*                                                                 *   FILE 736
//*     2.  Copy the script into a directory - making sure you      *   FILE 736
//*         update the cgi_directory variable above. Make sure      *   FILE 736
//*         the script is named iodf.cgi.                           *   FILE 736
//*                                                                 *   FILE 736
//*     3.  Copy the IOCPs/IODFs (as text files) into the           *   FILE 736
//*         directory you have specified in data_directory. We      *   FILE 736
//*         use the naming convention of IODFxx.PROC where xx       *   FILE 736
//*         is the two digit ID of the IODF.                        *   FILE 736
//*                                                                 *   FILE 736
//*     3.1 There is a sample JCL step at the bottom of this        *   FILE 736
//*         file which we use to copy the production IODF/IOCPs     *   FILE 736
//*         into our USS directories.                               *   FILE 736
//*                                                                 *   FILE 736
//*     4.  Update the title variable in the script.                *   FILE 736
//*                                                                 *   FILE 736
//*     5.  Update the device_sw_list to display CU types for       *   FILE 736
//*         certain IODEVICE unit types in the Switch display.      *   FILE 736
//*                                                                 *   FILE 736
//*     6.  Then try it through your browser! Currently the         *   FILE 736
//*         Cascading Style Sheet uses IE-specific options.         *   FILE 736
//*                                                                 *   FILE 736
//***FILE 737 is from Bob Glover and contains a package to be able  *   FILE 737
//*           to clear DASD, in bulk, to low-values after a D/R     *   FILE 737
//*           test.                                                 *   FILE 737
//*                                                                 *   FILE 737
//*           email:  Bob.Glover@fnf.com                            *   FILE 737
//*                                                                 *   FILE 737
//*                       BACKGROUND                                *   FILE 737
//*                                                                 *   FILE 737
//*     This package supports the following DASD types at           *   FILE 737
//*     SUNGARD:                                                    *   FILE 737
//*                                                                 *   FILE 737
//*       3390 Mod-3                                                *   FILE 737
//*       3390 Mod-9                                                *   FILE 737
//*       3390 Mod-L                                                *   FILE 737
//*                                                                 *   FILE 737
//*     A seldom used RACF feature is the "ERASE on SCRATCH".       *   FILE 737
//*     When RACF is set up correctly, it will write lo-vals on     *   FILE 737
//*     every track of its target data set when its scratched.      *   FILE 737
//*     DRCLEAR is a REXX that creates two sets of jobs that        *   FILE 737
//*     affect every UCB in the D/R exercise. These jobs are        *   FILE 737
//*     submitted by the technician after he has cleared off        *   FILE 737
//*     the VTOCS. The first set of jobs create dummy datasets      *   FILE 737
//*     on all the UCBs and the second set does the scratching.     *   FILE 737
//*                                                                 *   FILE 737
//*     In a typical D/R this procedure cleared to lo-vals in       *   FILE 737
//*     approximately 1 hour the following:  121 MOD-3, 121         *   FILE 737
//*     MOD-9, 126 MOD-L                                            *   FILE 737
//*                                                                 *   FILE 737
//***FILE 738 is from Terry Miller and contains a facility to       *   FILE 738
//*           reorganize VSAM clusters without having to code any   *   FILE 738
//*           of the IDCAMS DEFINE statements.  The facility        *   FILE 738
//*           parses out the Re-allocation information from IDCAMS  *   FILE 738
//*           reports and reallocates and EXPORTS/IMPORTS the data  *   FILE 738
//*           to reorg the file.  The facility also reallocates and *   FILE 738
//*           re-populates any alternate indexes associated to the  *   FILE 738
//*           base cluster and rebuilds any Racf Discrete profiles  *   FILE 738
//*           which existed before the reorganization.              *   FILE 738
//*                                                                 *   FILE 738
//*                                                                 *   FILE 738
//*           email:  tkmille@conocophillips.com                    *   FILE 738
//*                                                                 *   FILE 738
//*           Last Revision: 06/02/2009 V01.02.02                   *   FILE 738
//*                                                                 *   FILE 738
//*> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * <*   FILE 738
//*                                                                 *   FILE 738
//*                     Important note  !!!!                        *   FILE 738
//*                     --------- ----  ----                        *   FILE 738
//*                                                                 *   FILE 738
//*  This facility assumes the use of IBM'S RACF product as a       *   FILE 738
//*  security product.                                              *   FILE 738
//*  If your installation uses another security product, this       *   FILE 738
//*  facility will need to be modified to work.  The RACF security  *   FILE 738
//*  is used only to re-create RACF DISCRETE DATASET CLASS profiles.*   FILE 738
//*  If discrete (DISCRET TO A VOLSER) profiles are not being used, *   FILE 738
//*  then the following nine steps can be omitted frm the REORG jcl *   FILE 738
//*  stream in skeleton member "REORGVSS":                          *   FILE 738
//*                                                                 *   FILE 738
//*    GETRACF, CHK500, ABEND500, BLDRACF, CHK700, ABEND700,        *   FILE 738
//*    GENPROF, CHK750, ABEND750.                                   *   FILE 738
//*                                                                 *   FILE 738
//*  Also, the following REXX exec can be discarded:  REORGVS4      *   FILE 738
//*                                                                 *   FILE 738
//***FILE 739 is from Ron Brown, and contains a package to update   *   FILE 739
//*           your TSO session's ISPF command tables dynamically.   *   FILE 739
//*           This is a heavy-duty package with lots of options     *   FILE 739
//*           and tutorial.  It is a very good idea (and instruc-   *   FILE 739
//*           tive too) to read the tutorials associated with the   *   FILE 739
//*           ISPFCMDS package.                                     *   FILE 739
//*                                                                 *   FILE 739
//*           email:  Ron_Brown@hotmail.com                         *   FILE 739
//*                                                                 *   FILE 739
//*                ISPF Commands Tool (version 7.0)                 *   FILE 739
//*               ----------------------------------                *   FILE 739
//*    This tool enables the user to dynamically display and        *   FILE 739
//*    modify all their ISPF commands, from (almost) any ISPF       *   FILE 739
//*    panel.  It provides easy search facilities and shows         *   FILE 739
//*    command relationships to simplify the management of          *   FILE 739
//*    very large numbers of commands.  That empowers the           *   FILE 739
//*    user to fully exploit the flexibility of commands for        *   FILE 739
//*    invoking all their ISPF activities.  This tool is            *   FILE 739
//*    packaged with an "Enhanced ISPF Configuration Utility"       *   FILE 739
//*    included to make it easier for users to configure            *   FILE 739
//*    their ISPF.                                                  *   FILE 739
//*                                                                 *   FILE 739
//*   Why do you need this tool?                                    *   FILE 739
//*   --------------------------                                    *   FILE 739
//*   It is possible for TSO users to have up to 8 active           *   FILE 739
//*   ISPF command tables, but IBM still provide only the old       *   FILE 739
//*   option 3.9 "Command Table Utility" to display or update       *   FILE 739
//*   them.  Particularly if you are going to use many              *   FILE 739
//*   command tables with a large number of commands you will       *   FILE 739
//*   benefit from a much more sophisticated tool to manage         *   FILE 739
//*   them.  This tool provides all the same functionality          *   FILE 739
//*   (as 3.9) plus much more, including:                           *   FILE 739
//*                                                                 *   FILE 739
//*   1) While in any ISPF application, it can display the          *   FILE 739
//*      full list of available commands from all the command       *   FILE 739
//*      tables active in that application, or you can select       *   FILE 739
//*      just particular tables.  It can also open inactive         *   FILE 739
//*      command tables for display and update.                     *   FILE 739
//*                                                                 *   FILE 739
//*   2) The list of commands is in the standard ISPF order,        *   FILE 739
//*      or you can sort the list into different orders (eg.        *   FILE 739
//*      command name order).                                       *   FILE 739
//*                                                                 *   FILE 739
//*   3) You can list only the commands with names matching a       *   FILE 739
//*      particular mask (eg. listing only commands beginning       *   FILE 739
//*      with "REF").  You can list only the commands with a        *   FILE 739
//*      particular string in their description or action           *   FILE 739
//*      (eg. listing only commands with "KEY").                    *   FILE 739
//*                                                                 *   FILE 739
//*   4) It shows the relationships between commands in all         *   FILE 739
//*      the tables.  It indicates commands which OVERRIDE          *   FILE 739
//*      others (and which are overridden).  It shows the valid     *   FILE 739
//*      TRUNCATIONS allowed for commands.  It tracks command       *   FILE 739
//*      ALIAS chains to show the effective action of such          *   FILE 739
//*      commands.                                                  *   FILE 739
//*                                                                 *   FILE 739
//*   5) It can display which libraries the active command          *   FILE 739
//*      tables are in, plus some table statistics.                 *   FILE 739
//*                                                                 *   FILE 739
//*   6) You can ADD, UPDATE or DELETE the commands in any          *   FILE 739
//*      active command table.  You can also COPY or MOVE           *   FILE 739
//*      commands within or between tables.  All the changes        *   FILE 739
//*      are immediately active, without restarting ISPF.           *   FILE 739
//*      Thus you can temporarily change the commands in any        *   FILE 739
//*      ISPF application while you are actually using it.          *   FILE 739
//*                                                                 *   FILE 739
//*   7) You can permanently SAVE any command changes to            *   FILE 739
//*      disk, except for the ISPCMDS table.                        *   FILE 739
//*                                                                 *   FILE 739
//*   8) It can create new Application-, User- or Site-             *   FILE 739
//*      command tables.                                            *   FILE 739
//*                                                                 *   FILE 739
//*   There are extensive HELP panels detailing the                 *   FILE 739
//*   functionality, plus much information about ISPF command       *   FILE 739
//*   tables and how to configure them.                             *   FILE 739
//*                                                                 *   FILE 739
//*                                                                 *   FILE 739
//*   Installation                                                  *   FILE 739
//*   ------------                                                  *   FILE 739
//*    This version is compatible with all ISPF releases from       *   FILE 739
//*    version 3.4 to version 5.8 (z/OS 1.8).  The included         *   FILE 739
//*    Configuration Utility can get your current ISPF              *   FILE 739
//*    configuration parameters only up to version 5.7, but         *   FILE 739
//*    it will create a usable keyword file which can be used       *   FILE 739
//*    with later versions of ISPF.                                 *   FILE 739
//*                                                                 *   FILE 739
//*    a) Assemble/Link members ISPFCMDL & ISPFCMDO                 *   FILE 739
//*                                                                 *   FILE 739
//*    b) Copy ISPFCMDS member to a library in the SYSEXEC          *   FILE 739
//*       (or SYSPROC) concatenation                                *   FILE 739
//*                                                                 *   FILE 739
//*    c) Copy all other ISPFCMxx members into the ISPPLIB          *   FILE 739
//*       concatenation                                             *   FILE 739
//*                                                                 *   FILE 739
//*    d) Copy all JSPCxxxx members to a library in the             *   FILE 739
//*       SYSEXEC (or SYSPROC) concatenation                        *   FILE 739
//*                                                                 *   FILE 739
//*    e) Copy all JSPPCxxx members into the ISPPLIB                *   FILE 739
//*       concatenation                                             *   FILE 739
//*                                                                 *   FILE 739
//*    Notes:                                                       *   FILE 739
//*    - It is worthwhile to compile the Rexx module                *   FILE 739
//*      ISPFCMDS, to get better performance (mainly because        *   FILE 739
//*      of its size).                                              *   FILE 739
//*                                                                 *   FILE 739
//*    - It is designed to be used from within every other          *   FILE 739
//*      ISPF application, hence it should be in base               *   FILE 739
//*      libraries and not LIBDEF'd.                                *   FILE 739
//*                                                                 *   FILE 739
//*    - This tool is most useful when User & Site command          *   FILE 739
//*      tables have been defined in the ISPF configuration         *   FILE 739
//*      module, hence it is recommended that some are              *   FILE 739
//*      defined.                                                   *   FILE 739
//*                                                                 *   FILE 739
//*    - Control of the updating of the disk copy of any            *   FILE 739
//*      command tables is left to an external security             *   FILE 739
//*      product (eg. RACF).                                        *   FILE 739
//*                                                                 *   FILE 739
//*    - After installation, the product can be quickly             *   FILE 739
//*      checked by following the instructions in the $IVP          *   FILE 739
//*      member of this library.                                    *   FILE 739
//*                                                                 *   FILE 739
//*   Use                                                           *   FILE 739
//*   ---                                                           *   FILE 739
//*    It is invoked by 'TSO %ISPFCMDS' or better yet -             *   FILE 739
//*    create a command like the following:                         *   FILE 739
//*                                                                 *   FILE 739
//*      Verb  . . . : CMDS                                         *   FILE 739
//*      Trunc . . . : 0                                            *   FILE 739
//*      Action  . . : SELECT CMD(%ISPFCMDS &ZPARM) SCRNAME(CMDS)   *   FILE 739
//*      Description : 'ISPF Commands' tool                         *   FILE 739
//*                                                                 *   FILE 739
//*    If ISPFCMDS is compiled use:                                 *   FILE 739
//*  Action : SELECT CMD(ISPFCMDS &ZPARM) SCRNAME(CMDS) LANG(CREX)  *   FILE 739
//*                                                                 *   FILE 739
//*    - It will work with future versions of ISPF by               *   FILE 739
//*      assuming that the names of any tables which are            *   FILE 739
//*      defined but not active, can be found in an ISPF            *   FILE 739
//*      configuration module with the same name and field          *   FILE 739
//*      offsets as for ISPF for z/OS 1.7 (version 5.7).            *   FILE 739
//*      That assumption will probably be true for at least         *   FILE 739
//*      the next few ISPF releases.                                *   FILE 739
//*                                                                 *   FILE 739
//*   Support                                                       *   FILE 739
//*   -------                                                       *   FILE 739
//*    The author, Ron Brown, can be contacted at:                  *   FILE 739
//*    Ron_Brown@hotmail.com                                        *   FILE 739
//*                                                                 *   FILE 739
//***FILE 740 is from Alan Wynne and contains a package of REXX     *   FILE 740
//*           execs which run SQL statements.                       *   FILE 740
//*                                                                 *   FILE 740
//*       RSQL is a Rexx application to Execute SQL statements.     *   FILE 740
//*       I have tested it extensively on "Select", "Insert" and    *   FILE 740
//*       "Update" Statements.  Output can be requested in          *   FILE 740
//*       Columnar, CSV, Flat or HTML format.                       *   FILE 740
//*                                                                 *   FILE 740
//*       email:  "Wynne, Alan A" <Alan.Wynne@standardbank.co.za>   *   FILE 740
//*                                                                 *   FILE 740
//***FILE 741 is from Bill Godfrey and contains an Assembler        *   FILE 741
//*           program to create BASE64 encoding for a file, and     *   FILE 741
//*           also to decode it from BASE64 encoding.               *   FILE 741
//*                                                                 *   FILE 741
//*           Two versions are here, the new version is AMODE 31,   *   FILE 741
//*           while the old one is AMODE 24.                        *   FILE 741
//*                                                                 *   FILE 741
//*           email:  bill.godfrey@noaa.gov                         *   FILE 741
//*                                                                 *   FILE 741
//***FILE 742 is from Bob Birdsall and contains a source code       *   FILE 742
//*           versioning system that works for PARMLIB and other    *   FILE 742
//*           system level datasets such as TCPPARMS.               *   FILE 742
//*                                                                 *   FILE 742
//*           email:  "Bob Birdsall" <bsquare@med.umich.edu>        *   FILE 742
//*                                                                 *   FILE 742
//*     Hi.  'Archive' is a source versioning system for ISPF       *   FILE 742
//*     Edit/View.                                                  *   FILE 742
//*                                                                 *   FILE 742
//*     It is in the early stages of development (it works,         *   FILE 742
//*     but...  :)                                                  *   FILE 742
//*     The documentation members all begin with #.                 *   FILE 742
//*     Everything else begins with A#.                             *   FILE 742
//*                                                                 *   FILE 742
//*     Documentation members are:                                  *   FILE 742
//*        #CONFIG  - ISPF configuration data                       *   FILE 742
//*        #CPARC   - Job to copy archive members                   *   FILE 742
//*        #DESC    - Overview of the system                        *   FILE 742
//*        #DETAIL  - Detailed information                          *   FILE 742
//*        #FORMAT  - Data format used for the archives             *   FILE 742
//*        #HISTORY - Revision history                              *   FILE 742
//*        #INSTALL - Installation instructions                     *   FILE 742
//*        #TOUCHJB - update Last Known Working Member's time       *   FILE 742
//*                                                                 *   FILE 742
//*     We do use this for SYS1.PARMLIB, SYS1.TCPPARMS and          *   FILE 742
//*     other datasets, but there are only 3 z/OS system            *   FILE 742
//*     programmers in my shop.                                     *   FILE 742
//*                                                                 *   FILE 742
//*     We do not use this for application source code, yet.        *   FILE 742
//*     It needs some more work (and management acceptance).        *   FILE 742
//*                                                                 *   FILE 742
//*     The only warning I would like to give those to whom         *   FILE 742
//*     this is distributed follows:                                *   FILE 742
//*                                                                 *   FILE 742
//*     NOTE: all these rexx execs, etc. are SAMPLES ONLY.  Any     *   FILE 742
//*     experimentation with them is at your own risk.  Do not      *   FILE 742
//*     trust your data/processes to them without personally        *   FILE 742
//*     verifying all logic and operation.  All supplied execs      *   FILE 742
//*     are works in progress and DO contain bugs and               *   FILE 742
//*     significant undocumented limitations.                       *   FILE 742
//*                                                                 *   FILE 742
//*     I hope you enjoy this.                                      *   FILE 742
//*                                                                 *   FILE 742
//***FILE 743 is from Terry Miller and contains a facility to       *   FILE 743
//*           List the LINK-EDIT (Binder) information for a given   *   FILE 743
//*           Load Module in this format:                           *   FILE 743
//*                                                                 *   FILE 743
//*           Last Revision: 01/26/2010 V01.01.12                   *   FILE 743
//*                                                                 *   FILE 743
//*       MODLIST mmmmmmmm                                          *   FILE 743
//*                                                                 *   FILE 743
//*       mmmmmmmm Linked on 05/31/2006 (2006.151) at 14:35:52      *   FILE 743
//*                LENGTH: 000001FA                                 *   FILE 743
//*       mmmmmmmm AM:  24 RM:  24 AC: 01 RN RU RF TTR:XXXXXX       *   FILE 743
//*                EPADDR: 00000000                                 *   FILE 743
//*       mmmmmmmm VOL/DSN: IPL001 DSN=SYS1.LINKLIB                 *   FILE 743
//*                ORG: PO                                          *   FILE 743
//*       mmmmmmmm SSI: XXX  *** ALIAS NAME FOR MEMBER TTTTTTTT *** *   FILE 743
//*                                                                 *   FILE 743
//*       The load module can reside in the LinkList, LPA, or in    *   FILE 743
//*       a specified load library (input to the MODLIST exec).     *   FILE 743
//*                                                                 *   FILE 743
//*       The report will be displayed in ISPF Browse.              *   FILE 743
//*                                                                 *   FILE 743
//*           email:  tkmille@conocophillips.com                    *   FILE 743
//*                                                                 *   FILE 743
//***FILE 744 is from Eugene Vogt and Alain Steffen and contains    *   FILE 744
//*           a very impressive set of RACF management tools.       *   FILE 744
//*           More detailed information about this package is       *   FILE 744
//*           described below.                                      *   FILE 744
//*                                                                 *   FILE 744
//*               RACF 'RULES' ENFORCER  -  RRE 3.40                *   FILE 744
//*                                                                 *   FILE 744
//*     This dataset contains RACF tools                            *   FILE 744
//*     that RACF installations may find useful.                    *   FILE 744
//*                                                                 *   FILE 744
//*     Note:                                                       *   FILE 744
//*                                                                 *   FILE 744
//*     .. The IBM API IRRSEQ00 processing has multiple errors.     *   FILE 744
//*        Make sure to obtain the latest IBM APARS.                *   FILE 744
//*                                                                 *   FILE 744
//*     .. None of the supplied RRE programs makes any changes      *   FILE 744
//*        to your RACF DB.                                         *   FILE 744
//*                                                                 *   FILE 744
//*     PURPOSE:                                                    *   FILE 744
//*                                                                 *   FILE 744
//*     - To verify all RACF profiles against a hr/cd/id system     *   FILE 744
//*       and vice versa.                                           *   FILE 744
//*     - To verify all RACF profiles against a set of user         *   FILE 744
//*       defined 'rules'.                                          *   FILE 744
//*     - To enforce naming conventions in a RACF environment       *   FILE 744
//*       without having to simplify future audits.                 *   FILE 744
//*     - To reduce the immense costs of any future RACF audits.    *   FILE 744
//*     - To keep hr/cd and RACF information in sync based on       *   FILE 744
//*       installation standards                                    *   FILE 744
//*     - To have a better control over all RACF profiles.          *   FILE 744
//*     - To be able to manage multiple clients.                    *   FILE 744
//*     - To verify SETROPTS settings.                              *   FILE 744
//*                                                                 *   FILE 744
//*     Most RACF installations do no longer know why certain       *   FILE 744
//*     user-ids are connected to various RACF group-ids.  Even     *   FILE 744
//*     when installations utilize a corporate directory (id or     *   FILE 744
//*     cd or hr) it never matches the RACF environment 100%.       *   FILE 744
//*     Ownership of profiles is not up-to-date.                    *   FILE 744
//*                                                                 *   FILE 744
//*     Especially, large corporations with many decentralized      *   FILE 744
//*     RACF administrators, face the immense problem to enforce    *   FILE 744
//*     standards.  Manually controlling such RACF environments     *   FILE 744
//*     is almost impossible.  Home-grown tools are in many         *   FILE 744
//*     cases no solution either to the well known problems.        *   FILE 744
//*                                                                 *   FILE 744
//*     RRE CONSISTS OF TWO PARTS:                                  *   FILE 744
//*     - CD/ID/HR VERIFICATION AGAINST RACF AND VICE VERSA         *   FILE 744
//*     - RULES CHECKING FOR RACF GROUP-, USER- (INCL.              *   FILE 744
//*       CONNECTS), DATASET- AND GENERAL RESOURCE PROFILES         *   FILE 744
//*                                                                 *   FILE 744
//*     Copyrights:                                                 *   FILE 744
//*     - Copyrights remain with Alain Steffen (ALS                 *   FILE 744
//*       Switzerland) and Eugene Vogt.                             *   FILE 744
//*                                                                 *   FILE 744
//*     Code:                                                       *   FILE 744
//*     - Only load modules are supplied plus the SAMPLIB and a     *   FILE 744
//*       COMMANDS lib.                                             *   FILE 744
//*                                                                 *   FILE 744
//*     Documentation:                                              *   FILE 744
//*     - Refer to the PDF document supplied with this pds as       *   FILE 744
//*       member $RREPDS.                                           *   FILE 744
//*                                                                 *   FILE 744
//*     Usage:                                                      *   FILE 744
//*     - The supplied programs can be freely utilized on an        *   FILE 744
//*       'asis' basis.                                             *   FILE 744
//*                                                                 *   FILE 744
//*     Bugs:                                                       *   FILE 744
//*     - Report them to racfra2@bluewin.ch - www.racf.ch           *   FILE 744
//*                                                                 *   FILE 744
//*     Disclaimer :                                                *   FILE 744
//*     ----------                                                  *   FILE 744
//*     There are no warranties, either expressed, or implied       *   FILE 744
//*     on any the programs contained within. The authors try       *   FILE 744
//*     to test as much as is reasonable, but it is ultimately      *   FILE 744
//*     the responsibility of the user to ensure that the           *   FILE 744
//*     programs will not compromise the integrity of their         *   FILE 744
//*     environment. In other words, these programs are 'Use at     *   FILE 744
//*     your own Risk'.                                             *   FILE 744
//*                                                                 *   FILE 744
//***FILE 745 is contributed semi-anonymously and contains a very   *   FILE 745
//*           comprehensive file browser package called FM.  This   *   FILE 745
//*           is still a work in progress, but it is probably       *   FILE 745
//*           quite a useful tool already, as it now is.            *   FILE 745
//*                                                                 *   FILE 745
//*           Questions:  email:  sbgolob@cbttape.org               *   FILE 745
//*                                                                 *   FILE 745
//*           To install, run the $TSORECV member after             *   FILE 745
//*           customizing it to your installation's standards,      *   FILE 745
//*           and then look at the FM.DOC pds which results.        *   FILE 745
//*                                                                 *   FILE 745
//*           Besides for the functioning of the entire package,    *   FILE 745
//*           there is some great assembler code in here which      *   FILE 745
//*           can be used to learn from.   (SG - Feb 2021)          *   FILE 745
//*                                                                 *   FILE 745
//*   Description of the FM product.                                *   FILE 745
//*                                                                 *   FILE 745
//*     FM  (File Formatter)                                        *   FILE 745
//*                                                                 *   FILE 745
//*     FM allows users to view sequential files, PDSs, PDSEs,      *   FILE 745
//*     and VSAM files of most types and VTOCs.                     *   FILE 745
//*                                                                 *   FILE 745
//*     The purpose of FM is to allow data to not only be           *   FILE 745
//*     viewed in plain text, but also to be 'formatted'.  The      *   FILE 745
//*     design of FM allows new formats to be added easily.         *   FILE 745
//*     Some types of data common to most all MVS (OS/390, z/OS     *   FILE 745
//*     or whatever it is called now) systems like SMF are          *   FILE 745
//*     already known (at least some SMF record types).             *   FILE 745
//*                                                                 *   FILE 745
//*     The utility determines the data set's DSORG                 *   FILE 745
//*     dynamically.  That is it determines if the data set is      *   FILE 745
//*     sequential, a PDS, VSAM, etc and uses the appropriate       *   FILE 745
//*     access method.                                              *   FILE 745
//*                                                                 *   FILE 745
//*     If a PDS or PDSE is referenced without a member name, a     *   FILE 745
//*     list of the members is displayed.  PDS(/E)s with RECFM      *   FILE 745
//*     U are assumed to be "loadlibs", all other RECFMs are        *   FILE 745
//*     "non loadlibs".                                             *   FILE 745
//*                                                                 *   FILE 745
//*     Data from the data set or directory is read into a data     *   FILE 745
//*     space before being displayed.  This has its advantages      *   FILE 745
//*     and disadvantages.  On the plus side, file I/O is only      *   FILE 745
//*     required once.  You can scroll forward, backward,           *   FILE 745
//*     reference anything read into the data space with the        *   FILE 745
//*     system doing any required I/O via system paging which       *   FILE 745
//*     has less overhead and is faster than file I/O.  On the      *   FILE 745
//*     negative side, if the data is too large to be loaded        *   FILE 745
//*     into the data space, only a portion can be FM'd at a        *   FILE 745
//*     time.  There are options on invocation that allow you       *   FILE 745
//*     to specify records to skip, number of records to read,      *   FILE 745
//*     and for VSAM files you can use FROMKEY and TOKEY or RBA     *   FILE 745
//*     for positioning.  (I intend to add the FROMKEY and          *   FILE 745
//*     TOKEY someday!)  The system defualt for the dataspace's     *   FILE 745
//*     size is 239 pages.  I intend to add a keyword to allow      *   FILE 745
//*     users to request a larger dataspace.                        *   FILE 745
//*                                                                 *   FILE 745
//*     I tried to keep the hard-coded message text to a            *   FILE 745
//*     minimum.  Since I am only (somewhat) literate in            *   FILE 745
//*     English (United States variety), the only messages          *   FILE 745
//*     provided now are English.  If anyone wants to take on       *   FILE 745
//*     translating the messages, the source for US English is      *   FILE 745
//*     in source FMMSGUS.  The language you use can be             *   FILE 745
//*     customized on a user by user basis.  The options are        *   FILE 745
//*     kept in member FM of the ISPPROF data set.  If you do       *   FILE 745
//*     create a new messages module, don't forget to add it to     *   FILE 745
//*     the assemble and link-edit JCL.  I suppose you could        *   FILE 745
//*     even translate the text in the SPF panels.                  *   FILE 745
//*                                                                 *   FILE 745
//*     Other odds/ends                                             *   FILE 745
//*     As of now, FM depends on SPF.  I have been looking at       *   FILE 745
//*     'faking out' the SPF functions.                             *   FILE 745
//*                                                                 *   FILE 745
//*     There is no provision for HFS stuff as of yet.              *   FILE 745
//*                                                                 *   FILE 745
//*     I plan on allowing you to enter "FM" as a primary           *   FILE 745
//*     command so you can start a new "session" on a new data      *   FILE 745
//*     set.                                                        *   FILE 745
//*                                                                 *   FILE 745
//*     I work at a JES3 shop.  We don't have any JES2 SMF data     *   FILE 745
//*     so I don't have much motivation for worrying about          *   FILE 745
//*     formatting any SMF records that would be created by         *   FILE 745
//*     JES2.                                                       *   FILE 745
//*                                                                 *   FILE 745
//*     I have been thinking about FMing storage.  This would       *   FILE 745
//*     allow formatting of in storage control blocks.  Anyone      *   FILE 745
//*     know much about cross memory stuff?  Anyone know how to     *   FILE 745
//*     get the ALET for another address space?  Is using ALETs     *   FILE 745
//*     and the access registers even possible for accessing        *   FILE 745
//*     data in another address space?                              *   FILE 745
//*                                                                 *   FILE 745
//*     FM really doesn't 'know' much about tapes.  In the last     *   FILE 745
//*     several years the use of tape has declined drastically      *   FILE 745
//*     here.  The older round-reels were notorious for causing     *   FILE 745
//*     problems.  The main purpose for developing DITTO was        *   FILE 745
//*     for messing around with tapes.  By the way DO NOT USE       *   FILE 745
//*     DITTO on any system later than about MVS 3 (ESA).  On       *   FILE 745
//*     anything later, DITTO CLOBBERS something and the system     *   FILE 745
//*     becomes unusable requiring an IPL.                          *   FILE 745
//*                                                                 *   FILE 745
//*     Commands can be recalled via a question mark (?).           *   FILE 745
//*     Up to the last 20 commands can be recalled.                 *   FILE 745
//*                                                                 *   FILE 745
//*     You can see the contents of various fields in the           *   FILE 745
//*     common area by entering DEBUG as a primary command.         *   FILE 745
//*                                                                 *   FILE 745
//*     FORMATs                                                     *   FILE 745
//*                                                                 *   FILE 745
//*     When a sequential file is first displayed, it is shown      *   FILE 745
//*     using the default format which is BROWSE.  PDS(/E)          *   FILE 745
//*     directories are displayed as member lists.  You can         *   FILE 745
//*     change which format is being used by entering "FORMAT       *   FILE 745
//*     nnnnnnnn" as a primary command.                             *   FILE 745
//*                                                                 *   FILE 745
//*                                                                 *   FILE 745
//*     Formats are defined by members in the FMFORMAT library.     *   FILE 745
//*                                                                 *   FILE 745
//*     As supplied the formats available are:                      *   FILE 745
//*                                                                 *   FILE 745
//*      BROWSE        Displays data 'a-line-at-a-time' that        *   FILE 745
//*                    allows up, down, left, and right             *   FILE 745
//*                    scrolling.                                   *   FILE 745
//*                                                                 *   FILE 745
//*      DIR           Used to display non-loadlib PDS(/E)          *   FILE 745
//*                    directories.                                 *   FILE 745
//*                                                                 *   FILE 745
//*      HEX           Displays data as two hex characters per      *   FILE 745
//*                    byte.  The display allows scrolling up,      *   FILE 745
//*                    down, left, and right.                       *   FILE 745
//*                                                                 *   FILE 745
//*      LDIR          Used to display loadlib PDS(/E)              *   FILE 745
//*                    directories.                                 *   FILE 745
//*                                                                 *   FILE 745
//*      RVTOC         Displays VTOC info in "raw" form.            *   FILE 745
//*                                                                 *   FILE 745
//*      SMF           Assumes the data is SMF data.  Most SMF      *   FILE 745
//*                    record types have customized displays.       *   FILE 745
//*                    Some records have multiple "screens".        *   FILE 745
//*                    "up" and "down" scrolls records, "left"      *   FILE 745
//*                    and "right" change "screens" for a given     *   FILE 745
//*                    record.                                      *   FILE 745
//*                                                                 *   FILE 745
//*      VHEX          Displays data in 'vertical' hex.  Each       *   FILE 745
//*                    record is displayed the way ISPF displays    *   FILE 745
//*                    hex values.                                  *   FILE 745
//*                                                                 *   FILE 745
//*      VTOC          Displays data sets on a volume.              *   FILE 745
//*                                                                 *   FILE 745
//*     FM does not require APF authorization and does not          *   FILE 745
//*     update data sets.                                           *   FILE 745
//*                                                                 *   FILE 745
//*     It does not do much to verify data is valid (like           *   FILE 745
//*     packed decimal) before using it.  If dates in PDS(/E)       *   FILE 745
//*     directores are not valid, SMF data is not valid, etc,       *   FILE 745
//*     etc, FM will ABEND.  Intercepting ABENDs is another one     *   FILE 745
//*     of those 'round tuit's.                                     *   FILE 745
//*                                                                 *   FILE 745
//*     FM does not update anything, so the best way to learn       *   FILE 745
//*     how to use it is to just "play around" with it.             *   FILE 745
//*                                                                 *   FILE 745
//***FILE 746 is from Richard Tsujimoto and contains the MVS        *   FILE 746
//*           version of his Parser, that was featured in a         *   FILE 746
//*           three-part article in "Technical Support" magazine    *   FILE 746
//*           from NaSPA, (April, May, June 2006).  The materials   *   FILE 746
//*           for other platforms supported by this parser, are     *   FILE 746
//*           included in a zipped file, which is member $PLATFMS   *   FILE 746
//*           in this pds.                                          *   FILE 746
//*                                                                 *   FILE 746
//*         CBT: Parsing, Syntax Checking and Interpreting          *   FILE 746
//*                                                                 *   FILE 746
//*         email:  rtsujimoto@nyc.rr.com                           *   FILE 746
//*                                                                 *   FILE 746
//*     Other platforms for which this parser is supported, are     *   FILE 746
//*     supported by C language code.  MVS is supported in this     *   FILE 746
//*     pds, by Assembler code.  The C language code needed for     *   FILE 746
//*     "other platform support" is included in a zip file, that    *   FILE 746
//*     is member $PLATFMS in this pds.  To use this zip file,      *   FILE 746
//*     just download it in BINARY to a PC, and unzip it.           *   FILE 746
//*     Instructions for each of the other platforms supported,     *   FILE 746
//*     are included there, and you can see how to proceed          *   FILE 746
//*     further for each platform.                                  *   FILE 746
//*                                                                 *   FILE 746
//*     The other platforms supported by C code are:                *   FILE 746
//*        Windows, AIX, HPUX, and OS-400.                          *   FILE 746
//*                                                                 *   FILE 746
//*     Description                                                 *   FILE 746
//*     -----------                                                 *   FILE 746
//*     The $README member describes how to install the             *   FILE 746
//*     executables, object modules, and other files required       *   FILE 746
//*     to build and execute the tools, and sample programs.        *   FILE 746
//*                                                                 *   FILE 746
//*     NOTE: No compilations of the tools or sample programs       *   FILE 746
//*           are required to run the sample executables, or to     *   FILE 746
//*           incorporate the tools into your applications          *   FILE 746
//*                                                                 *   FILE 746
//*      Detailed documentation is found in the $$DOC member,       *   FILE 746
//*      which is in Microsoft WORD format.  To read this           *   FILE 746
//*      document, you must FTP it, or otherwise "file              *   FILE 746
//*      transfer" it in BINARY to a PC or other machine that       *   FILE 746
//*      can read Microsoft WORD.  Then you must read the           *   FILE 746
//*      document on that machine.                                  *   FILE 746
//*                                                                 *   FILE 746
//*     Installation                                                *   FILE 746
//*     ------------                                                *   FILE 746
//*     01. The four TSO XMIT-format datasets are already           *   FILE 746
//*          loaded onto an MVS system, if you are reading this.    *   FILE 746
//*                                                                 *   FILE 746
//*         These are the JCL, LOADLIB, MACLIB, and SOURCE          *   FILE 746
//*          members of the CBT File 746.                           *   FILE 746
//*                                                                 *   FILE 746
//*     02. Use TSO RECEIVE to restore the data sets:               *   FILE 746
//*                                                                 *   FILE 746
//*         (See sample job $TSORECV to do all of this at           *   FILE 746
//*         once.)                                                  *   FILE 746
//*                                                                 *   FILE 746
//*         RECEIVE USERID(your.userid) INDS(RTI.JCL.XMI)           *   FILE 746
//*                                                                 *   FILE 746
//*         When prompted for the restore parameters, enter:        *   FILE 746
//*                                                                 *   FILE 746
//*         DSN('whatever you want to call it')                     *   FILE 746
//*                                                                 *   FILE 746
//*     03. Repeat Step 02 for the remaining data sets              *   FILE 746
//*          (or use the $TSORECV sample job).                      *   FILE 746
//*                                                                 *   FILE 746
//*     Running the sample programs                                 *   FILE 746
//*     ---------------------------                                 *   FILE 746
//*     01. Edit the JCL library using ISPF                         *   FILE 746
//*     02. Select a member and modify the JCL accordingly          *   FILE 746
//*     03. Submit the job                                          *   FILE 746
//*                                                                 *   FILE 746
//*     Build Instructions                                          *   FILE 746
//*     ------------------                                          *   FILE 746
//*     01. Edit the JCL library using ISPF                         *   FILE 746
//*                                                                 *   FILE 746
//*     02. To build the tools:                                     *   FILE 746
//*                                                                 *   FILE 746
//*         a. Select member BLDTOOLS and modify the JCL            *   FILE 746
//*            accordingly                                          *   FILE 746
//*         b. Submit the job                                       *   FILE 746
//*                                                                 *   FILE 746
//*     03. To build the sample programs:                           *   FILE 746
//*                                                                 *   FILE 746
//*         a. Select member BLDSAMPL and modify the JCL            *   FILE 746
//*            accordingly                                          *   FILE 746
//*         b. Submit the job                                       *   FILE 746
//*                                                                 *   FILE 746
//*         NOTE:                                                   *   FILE 746
//*                                                                 *   FILE 746
//*         1. T@SYNTBL and T@UEXITS MUST BE BUILT BEFORE           *   FILE 746
//*            T@SYNTXC                                             *   FILE 746
//*                                                                 *   FILE 746
//*         2. T@SYNTBL MUST BE LINKED WITH NCAL 3. The sample      *   FILE 746
//*            code shows how the syntax table and user exits       *   FILE 746
//*            can be built separate from each other, and the       *   FILE 746
//*            main program.  In the simplest case, the syntax      *   FILE 746
//*            table and user exits can be coded in the main        *   FILE 746
//*            program.                                             *   FILE 746
//*                                                                 *   FILE 746
//***FILE 747 is from Mark Naughton of British Airways and contains *   FILE 747
//*           a program to read the OPERLOG.                        *   FILE 747
//*                                                                 *   FILE 747
//*           email:  mark.naughton@ba.com                          *   FILE 747
//*                   mark@blue-shantung.co.uk                      *   FILE 747
//*                                                                 *   FILE 747
//*     L O G R 64 - SYSTEM LOGGER READER         |                 *   FILE 747
//*     Mark Naughton 2001-2006                                     *   FILE 747
//*                                                                 *   FILE 747
//*     History                                                     *   FILE 747
//*     -------                                                     *   FILE 747
//*     25/09/2001 - 1.0.0 - LOGREAD is working correctly now.      *   FILE 747
//*                           (History to end of Version 1.0.9      *   FILE 747
//*                           deleted)                              *   FILE 747
//*     11/08/2003 - 1.0.9 - Support for multiple jobnames added.   *   FILE 747
//*     17/07/2006 - 2.0.0 - Started 64-bit version.                *   FILE 747
//*     14/08/2006 -        - Finished 64-bit version - runs        *   FILE 747
//*                           faster, more features than            *   FILE 747
//*                           before! Testing complete.             *   FILE 747
//*                                                                 *   FILE 747
//*     Parameters                                                  *   FILE 747
//*     ----------                                                  *   FILE 747
//*                                                                 *   FILE 747
//*     All parameters are specified in the SYSIN DD.               *   FILE 747
//*                                                                 *   FILE 747
//*     START(yyyjjj.hhmm)   -> Start date and time                 *   FILE 747
//*     END(yyyyjjj.hhmm)    -> End date and time                   *   FILE 747
//*     SYS(ssss)            -> System name                         *   FILE 747
//*     MSG(mmmmmmmmmmmm)    -> Message ID                          *   FILE 747
//*     JOB(jjjjjjjjjjjj)    -> Jobname                             *   FILE 747
//*     SYSLOG               -> Display output like SYSLOG          *   FILE 747
//*     NOHEADER             -> Do not display the header in        *   FILE 747
//*                             the display                         *   FILE 747
//*     TODAY                -> Use todays date from 00:00 to       *   FILE 747
//*                             current time                        *   FILE 747
//*     YESTERDAY            -> Use yesterday's date from           *   FILE 747
//*                             00:00 to 23:59                      *   FILE 747
//*                                                                 *   FILE 747
//*     If the date/time parameters are not specified, the          *   FILE 747
//*     program abends with U0001 or U0002.                         *   FILE 747
//*                                                                 *   FILE 747
//*     You can specify multiple systems, messages and              *   FILE 747
//*     jobnames separated by a space, for the length of the        *   FILE 747
//*     line).                                                      *   FILE 747
//*                                                                 *   FILE 747
//*     ERROR CODES                                                 *   FILE 747
//*     -----------                                                 *   FILE 747
//*                                                                 *   FILE 747
//*     ABEND U0001 - Invalid Start Date parameter                  *   FILE 747
//*     ABEND U0002 - Invalid End Date parameter                    *   FILE 747
//*     ABEND U0003 - No SYSIN DD specified                         *   FILE 747
//*     ABEND U0004 - Incorrect specification for parameter         *   FILE 747
//*     ABEND U0005 - Cannot connect to logstream                   *   FILE 747
//*     ABEND U0006 - Cannot start a browse function in             *   FILE 747
//*                   logstream                                     *   FILE 747
//*     ABEND U0007 - Cannot read from the logstream                *   FILE 747
//*                                                                 *   FILE 747
//*     R6 and R7 contain RETCODE and RSNCODE for diagnosis.        *   FILE 747
//*                                                                 *   FILE 747
//***FILE 748 is from Jose Neto and contains a REXX program, and    *   FILE 748
//*           also an equivalent Assembler program, to convert      *   FILE 748
//*           BASE64 encoding back to message text.                 *   FILE 748
//*                                                                 *   FILE 748
//*           Also included here is an email sending system which   *   FILE 748
//*           allows an administrator to approve system changes,    *   FILE 748
//*           using emails.  See member $$MAIL in this pds, for     *   FILE 748
//*           details.  See also, member $$README.                  *   FILE 748
//*                                                                 *   FILE 748
//*           Please see member $$NOTE2 in the pds, which           *   FILE 748
//*           (sort of) supersedes member $$NOTE1.                  *   FILE 748
//*                                                                 *   FILE 748
//*           email:  joserfneto@yahoo.co.uk                        *   FILE 748
//*                                                                 *   FILE 748
//*     Here is a summary of the members in this library:           *   FILE 748
//*                                                                 *   FILE 748
//*    1. CALLDECA   REXX sample program used to call DECODE64      *   FILE 748
//*                  (the call is external to the routine)          *   FILE 748
//*                  Note: DECODE64 may reside on LLA or LPA        *   FILE 748
//*                                                                 *   FILE 748
//*    2. CALLDECR   REXX sample program used to call DECODREX      *   FILE 748
//*                  (the call is internal to the routine; both     *   FILE 748
//*                  routines must be part of the same REXX         *   FILE 748
//*                  program)                                       *   FILE 748
//*                                                                 *   FILE 748
//*    3. CALLSEND   REXX sample program used to call MAILSEND      *   FILE 748
//*                                                                 *   FILE 748
//*    4. DECODE64   Assembler program for decoding the BASE64      *   FILE 748
//*                                                                 *   FILE 748
//*    5. DECODREX   REXX program for decoding the BASE64           *   FILE 748
//*                                                                 *   FILE 748
//*    6. MAILPARM   Parameter file pointed by SYSTSIN on the       *   FILE 748
//*                  PROCMAIL                                       *   FILE 748
//*                                                                 *   FILE 748
//*    7. MAILRECV   REXX program which is called to receive        *   FILE 748
//*                  the email at the Mainframe. At the end of      *   FILE 748
//*                  the routine we will have:                      *   FILE 748
//*                                                                 *   FILE 748
//*      Variables y.1  y.2 and y.3 have the time the email         *   FILE 748
//*      was received the sender and the plain text from the        *   FILE 748
//*      DECODE64.                                                  *   FILE 748
//*                                                                 *   FILE 748
//*      Example:                                                   *   FILE 748
//*      y.1 = Email Received at:  Sat  4 Nov 2006 21:08:27 +0300   *   FILE 748
//*      y.2 = From: "Jose Neto" <joserfneto@yahoo.co.uk>           *   FILE 748
//*      y.3 = Message Content is: group1=Approve+Order+12345       *   FILE 748
//*                                                                 *   FILE 748
//*      In our system we address a table where the key is the      *   FILE 748
//*      order number and set the approval status.                  *   FILE 748
//*                                                                 *   FILE 748
//*      Also  MAILRECV saves the log from the email in a file      *   FILE 748
//*      with a DSNAME in the format:                               *   FILE 748
//*      MAILCH.LOG.MISC.D041106.T210648 meaning it was             *   FILE 748
//*      received at 4/11/2006 at 21:06:48.                         *   FILE 748
//*                                                                 *   FILE 748
//*      Note: the base64 text will come in a file which is         *   FILE 748
//*      attached to the email with a filename="POSTDATA.ATT"       *   FILE 748
//*                                                                 *   FILE 748
//*    8. MAILSEND  REXX program which is called to send the        *   FILE 748
//*       email to the Microsoft Exchange Server The email is       *   FILE 748
//*       formatted using HTML tags.                                *   FILE 748
//*                                                                 *   FILE 748
//*       You do not need to be a expert on HTML language to        *   FILE 748
//*       code it.  The following sites were my guideline to        *   FILE 748
//*       build it:                                                 *   FILE 748
//*                                                                 *   FILE 748
//*  http://www.tizag.com/htmlT/forms.php                           *   FILE 748
//*  http://www.w3.org/TR/REC-html40/cover.html#minitoc             *   FILE 748
//*  http://www.htmlgoodies.com/tutorials/forms/article.php/3479121 *   FILE 748
//*  http://www.w3.org/TR/REC-CSS1                                  *   FILE 748
//*                                                                 *   FILE 748
//*    9. PROCMAIL   The procedure used to call MAILRECV REXX       *   FILE 748
//*                  Program                                        *   FILE 748
//*                                                                 *   FILE 748
//*       Note: the RACF User associated with the Procedure         *   FILE 748
//*       has to be the same as the one used in the MAILSEND        *   FILE 748
//*       program. In our case it was named MAILCH (check           *   FILE 748
//*       strings  MAIL FROM:  and  FROM: on the MAILSEND           *   FILE 748
//*       program)                                                  *   FILE 748
//*                                                                 *   FILE 748
//*    10. SENDMAIL   A sample JCL which you might use to           *   FILE 748
//*       build up and test your own HTML form before               *   FILE 748
//*       inserting it into the MAILLSEND program.                  *   FILE 748
//*                                                                 *   FILE 748
//*       Note: The SMTP configuration is not very difficult.       *   FILE 748
//*       You will find all the information you need in the         *   FILE 748
//*       manuals:  IP Configuration Guide at section               *   FILE 748
//*       Configuring the SMTP server, and IP Configuration         *   FILE 748
//*       Reference at chapter  SMTP Server.                        *   FILE 748
//*                                                                 *   FILE 748
//***FILE 749 is from Gilbert Saint-flour and contains programs     *   FILE 749
//*           from his large collection of utilities on File 183,   *   FILE 749
//*           which were reworked to be assembled with IFOX00 and   *   FILE 749
//*           run under MVS 3.8 under Hercules.                     *   FILE 749
//*                                                                 *   FILE 749
//*           Unfortunately, Gilbert has passed on.  His software   *   FILE 749
//*           support is being continued by Carlos Aguilera and     *   FILE 749
//*           Sam Golob.                                            *   FILE 749
//*                                                                 *   FILE 749
//*           email:  carlos@gsf-soft.com                           *   FILE 749
//*           email:  sbgolob@cbttape.org                           *   FILE 749
//*                                                                 *   FILE 749
//*                .----------------------------.                   *   FILE 749
//*                |      CBT Tape File 183     |                   *   FILE 749
//*                |  Index of OSVS238J Member  |                   *   FILE 749
//*                '----------------------------'                   *   FILE 749
//*                                                                 *   FILE 749
//*           Gilbert's web site is being supported by Carlos       *   FILE 749
//*           Aguilera:                                             *   FILE 749
//*                                                                 *   FILE 749
//*                 http://gsf-soft.com/Freeware                    *   FILE 749
//*                                                                 *   FILE 749
//*                         COPYRIGHT                               *   FILE 749
//*                                                                 *   FILE 749
//*     These programs are Freeware and may be freely copied.       *   FILE 749
//*     They may be freely distributed to any other party on        *   FILE 749
//*     condition that no inducement beyond reasonable handling     *   FILE 749
//*     costs is offered or accepted by either side for such        *   FILE 749
//*     distribution.                                               *   FILE 749
//*                                                                 *   FILE 749
//*                         DISCLAIMER                              *   FILE 749
//*                                                                 *   FILE 749
//*     Gilbert Saint-Flour neither expresses nor implies any       *   FILE 749
//*     warranty as to the fitness of these computer programs for   *   FILE 749
//*     any function.  The use of these programs or the results     *   FILE 749
//*     therefrom is entirely at the risk of the user.              *   FILE 749
//*     Consequently, the user may modify these programs in any     *   FILE 749
//*     way he/she thinks fit.                                      *   FILE 749
//*                                                                 *   FILE 749
//*                     CONTACT INFORMATION                         *   FILE 749
//*                                                                 *   FILE 749
//*     We would be interested to hear of comments                  *   FILE 749
//*     and/or proposed enhancements.  Please e-Mail to:            *   FILE 749
//*                                                                 *   FILE 749
//*              Carlos Aguilera <carlos@gsf-soft.com>              *   FILE 749
//*                                                                 *   FILE 749
//*     or visit the web site at http://gsf-soft.com/Freeware       *   FILE 749
//*                                                                 *   FILE 749
//*                                                                 *   FILE 749
//*  ----------------- TSO and ISPF commands -------------------    *   FILE 749
//*                                                                 *   FILE 749
//*  CLS       A 5-line "clear screen" command for TSO              *   FILE 749
//*                                                                 *   FILE 749
//*  EXECPGM   TSO command - invoke a utility program or compiler   *   FILE 749
//*            with an alternate ddname list, as follows:           *   FILE 749
//*               EXECPGM IEV90           +                         *   FILE 749
//*                 PARM(NOOBJECT,NODECK,NOXREF,NORLD) +            *   FILE 749
//*                 SYSIN(TEMPWK2)        +                         *   FILE 749
//*                 SYSUT1(TEMPWK1)       +                         *   FILE 749
//*                 SYSLIB(ASMLIB)        +                         *   FILE 749
//*                 SYSPRINT(ASMH$PRT)    +                         *   FILE 749
//*                 STEPLIB(LINKLIST)                               *   FILE 749
//*                                                                 *   FILE 749
//*  INITKSDS  Initialize a KSDS after it's been DEFINE'd           *   FILE 749
//*                                                                 *   FILE 749
//*            This program prevents OPEN from failing when         *   FILE 749
//*            opening with MACRF=(IN,OUT) or STRNO=2 a KSDS        *   FILE 749
//*            that has just been defined.  Can be invoked as       *   FILE 749
//*            a batch program, a TSO command, or a sub-routine.    *   FILE 749
//*                                                                 *   FILE 749
//*  ------------------ Batch Programs --------------------------   *   FILE 749
//*                                                                 *   FILE 749
//*  BLKSIZE2  Scan a PDS and print the size of each block and      *   FILE 749
//*            the track balance                                    *   FILE 749
//*                                                                 *   FILE 749
//*            This is a batch program, for people interested       *   FILE 749
//*            in what a PDS looks like, from the inside.           *   FILE 749
//*                                                                 *   FILE 749
//*  BYPASSNQ  Assembler program.  Scratch or Rename a Data Set     *   FILE 749
//*            without SYSDSN ENQ                                   *   FILE 749
//*                                                                 *   FILE 749
//*            BYPASSNQ is a driver that allows you to run any      *   FILE 749
//*            utility program (such as IEHPROGM or IDCAMS) and     *   FILE 749
//*            bypass dsname ENQ that is normally performed by      *   FILE 749
//*            the DYNALLOC, SCRATCH and RENAME SVCs.               *   FILE 749
//*                                                                 *   FILE 749
//*  CANMSGCL  Purge current job's held output after a few hours.   *   FILE 749
//*            Useful for those jobs that work OK 99% of the time   *   FILE 749
//*            (must be authorized)                                 *   FILE 749
//*                                                                 *   FILE 749
//*            Example:                                             *   FILE 749
//*                                                                 *   FILE 749
//*              //MYJOB    JOB ACCT#,CLASS=A,MSGCLASS=X            *   FILE 749
//*              //COPY1   EXEC PGM=IEBCOPY                         *   FILE 749
//*              //...      DD   ...                                *   FILE 749
//*              //CONDPURG EXEC PGM=CANMSGCL,PARM=2,               *   FILE 749
//*              //              COND=(0,NE,COPY1)                  *   FILE 749
//*                                                                 *   FILE 749
//*              The number in the parm is a number of hours.       *   FILE 749
//*              If the 'COPY1' step ends at 10:28 with a           *   FILE 749
//*              return code equal to zero, the 'CONDPURG' step     *   FILE 749
//*              executes and issues the following command:         *   FILE 749
//*                                                                 *   FILE 749
//*                $TA,T=12.28,'$OJ01234,Q=X,CANCEL'                *   FILE 749
//*                                                                 *   FILE 749
//*  CLEANUP   Assembler program.  Automatically searches the MVS   *   FILE 749
//*            catalog for non-GDG data sets that will be created   *   FILE 749
//*            in subsequent steps of your job and deletes them.    *   FILE 749
//*                                                                 *   FILE 749
//*                  //MYJOB   JOB  acct#                           *   FILE 749
//*                  //*                                            *   FILE 749
//*                  //CLEANUP EXEC PGM=CLEANUP                     *   FILE 749
//*                  //*                                            *   FILE 749
//*                  //STEP1   EXEC PGM=MYPROG1                     *   FILE 749
//*                  //OUTDD    DD  DSN=MY.FILE1,DISP=(,CATLG)      *   FILE 749
//*                  //STEP2   EXEC PGM=MYPROG2                     *   FILE 749
//*                  //OUTDD    DD  DSN=MY.FILE2,DISP=(,CATLG)      *   FILE 749
//*                                                                 *   FILE 749
//*            Can also be executed as the LAST step of a job to    *   FILE 749
//*            delete non-GDG data sets that were created during    *   FILE 749
//*            job execution.                                       *   FILE 749
//*                                                                 *   FILE 749
//*  CMDJ      Send a JES2 command with the current job's number    *   FILE 749
//*            (must be authorized)                                 *   FILE 749
//*                                                                 *   FILE 749
//*            Example:                                             *   FILE 749
//*                                                                 *   FILE 749
//*               //PURGEJOB EXEC PGM=CMDJES2,PARM=P                *   FILE 749
//*                                                                 *   FILE 749
//*            If the current job's number is JOB01234,             *   FILE 749
//*            then the following command is issued:                *   FILE 749
//*                                                                 *   FILE 749
//*                  $PJ  01234                                     *   FILE 749
//*                                                                 *   FILE 749
//*  GSFLKED   Front-end to the linkage editor to recover           *   FILE 749
//*            from SD37 on SYSLMOD (must be authorized)            *   FILE 749
//*                                                                 *   FILE 749
//*            This program may be invoked instead of the DFP       *   FILE 749
//*            linkage editor. It calls the linkage editor and,     *   FILE 749
//*            if an SD37 abend occurs, calls IEBCOPY to compress   *   FILE 749
//*            the SYSLMOD PDS, then calls the linkage editor       *   FILE 749
//*            again.                                               *   FILE 749
//*                                                                 *   FILE 749
//*            Another feature of this program is to                *   FILE 749
//*            conditionally append a PDS member to SYSLIN,         *   FILE 749
//*            if that member exists.                               *   FILE 749
//*                                                                 *   FILE 749
//*  JOBRLSE   Release a job by number (must be authorized)         *   FILE 749
//*                                                                 *   FILE 749
//*            This program issues a $A command to release a job    *   FILE 749
//*            previously submitted to JES2 with "TYPRUN=HOLD".     *   FILE 749
//*                                                                 *   FILE 749
//*            To prevent "multiple jobs found" conditions,         *   FILE 749
//*            this program uses the sub-system interface           *   FILE 749
//*            to inquire about the status of homonym jobs.         *   FILE 749
//*            Then, it issues a $A command with the job            *   FILE 749
//*            number of the first job found in the input           *   FILE 749
//*            queue in held status (for example: $A J1234).        *   FILE 749
//*                                                                 *   FILE 749
//*            Sample execution JCL:                                *   FILE 749
//*                                                                 *   FILE 749
//*              //RLSENEXT EXEC PGM=JOBRLSE,PARM=PAYROL22          *   FILE 749
//*                                                                 *   FILE 749
//*  NOTCTLG3  Prolog step to prevent "NOT CATLG 2" and verify      *   FILE 749
//*            VSAM data sets                                       *   FILE 749
//*                                                                 *   FILE 749
//*            This program may be executed at the beginning        *   FILE 749
//*            of a batch job.  It scans the job's SWA to           *   FILE 749
//*            locate JFCBs and does two things:                    *   FILE 749
//*                                                                 *   FILE 749
//*            1. checks if any non-gdg data set with               *   FILE 749
//*               DISP=(NEW,CATLG) is already cataloged.            *   FILE 749
//*               If it finds at least one (i.e. a "NOT             *   FILE 749
//*               CATLG 2" is about to occur), it issues a          *   FILE 749
//*               message and abends the job                        *   FILE 749
//*                                                                 *   FILE 749
//*            2. Checks if any VSAM data set has been left         *   FILE 749
//*               in OPEN status by an abending job.  Every         *   FILE 749
//*               data set in this case is opened and closed.       *   FILE 749
//*               The way this condition is detected is quite       *   FILE 749
//*               interesting, look at the code.                    *   FILE 749
//*                                                                 *   FILE 749
//*  DONTFAIL  Prevent job failure caused by uncataloged data       *   FILE 749
//*            sets (ESA only, must be authorized)                  *   FILE 749
//*                                                                 *   FILE 749
//*            This program has been designed to prevent jobs       *   FILE 749
//*            that accept multiple inputs from failing in the      *   FILE 749
//*            middle of the night because of a "typo" in a data    *   FILE 749
//*            set name.  When DONTFAIL detects that an input       *   FILE 749
//*            data set is not cataloged, it converts it to a       *   FILE 749
//*            null data set and allows the job to run with         *   FILE 749
//*            partial input.                                       *   FILE 749
//*                                                                 *   FILE 749
//*  SYSMOVE   Unload a PDS to a sequential data set in             *   FILE 749
//*            IEHMOVE format.                                      *   FILE 749
//*                                                                 *   FILE 749
//*  UNITAFF   Dynamically sets UNIT=AFF for input tape files       *   FILE 749
//*            (must be authorized)                                 *   FILE 749
//*                                                                 *   FILE 749
//*            This program was originally designed to reduce       *   FILE 749
//*            the number of tape drives used by user-submitted     *   FILE 749
//*            SAS steps.  It scans the SWA for the next step       *   FILE 749
//*            and changes some of the SIOT's fields to force       *   FILE 749
//*            all input tape data sets to the same drive.          *   FILE 749
//*                                                                 *   FILE 749
//*            It must be executed immediately before the           *   FILE 749
//*            step to process (SAS, SORT, or any other             *   FILE 749
//*            program that reads a variable number of tape         *   FILE 749
//*            files, one at a time).                               *   FILE 749
//*                                                                 *   FILE 749
//*            Sample jcl:                                          *   FILE 749
//*                                                                 *   FILE 749
//*              //UNITAFF EXEC PGM=UNITAFF                         *   FILE 749
//*              //STEPLIB  DD  DSN=SYS2.AUTHLIB,DISP=SHR           *   FILE 749
//*              //*                                                *   FILE 749
//*              //STEP53  EXEC PGM=SAS                             *   FILE 749
//*              //OSIN     DD DSN=USER1.X,DISP=SHR                 *   FILE 749
//*              //         DD DSN=UPQE.DQE40530(-1),DISP=SHR       *   FILE 749
//*              //OSIN2    DD DSN=UPQR.DQR02150(0),DISP=SHR        *   FILE 749
//*              //OSIN3    DD DSN=USER1.X,DISP=SHR                 *   FILE 749
//*              //         DD DSN=UPBG.DBGA0240(-1),DISP=SHR       *   FILE 749
//*              //OSIN4    DD DSN=USER1.X,DISP=SHR                 *   FILE 749
//*              //         DD DSN=USER1.YY,DISP=SHR                *   FILE 749
//*              //         DD DSN=UPQR.DQR02140(-1),DISP=SHR       *   FILE 749
//*                                                                 *   FILE 749
//*            The program only supports cataloged data sets;       *   FILE 749
//*            relative generation numbers are handled              *   FILE 749
//*            correctly via the GDGNT.                             *   FILE 749
//*                                                                 *   FILE 749
//*            Restriction: No distinction is made between 3420,    *   FILE 749
//*            3480 or 3490 device types; this will cause           *   FILE 749
//*            problems if the input to a step is mixed.            *   FILE 749
//*                                                                 *   FILE 749
//*                                                                 *   FILE 749
//*  ------------------ Assembler Macros ------------------------   *   FILE 749
//*                                                                 *   FILE 749
//*  BUILDCDE  Make storage allocated with GETMAIN appear as a      *   FILE 749
//*            load-module in a dump.                               *   FILE 749
//*                                                                 *   FILE 749
//*            BUILDCDE uses the "loader" form of IDENTIFY to       *   FILE 749
//*            create a major CDE and corresponding XL, then        *   FILE 749
//*            issues a LOAD SVC to create an LLE and associate     *   FILE 749
//*            the CDE with the current TCB.  Don't worry, you      *   FILE 749
//*            don't have to understand how it works to use it.     *   FILE 749
//*                                                                 *   FILE 749
//*            EXAMPLE:                                             *   FILE 749
//*                                                                 *   FILE 749
//*                  GETMAIN RU,LV=20000                            *   FILE 749
//*                  BUILDCDE LENGTH=(0),ADDR=(1),EP=DYNAM20        *   FILE 749
//*                                                                 *   FILE 749
//*            The 20K storage area will appear in a dump           *   FILE 749
//*            as a load-module called "DYNAM20".                   *   FILE 749
//*                                                                 *   FILE 749
//*  EASYSORT  Invoke an internal SORT with OPEN/PUT/GET logic      *   FILE 749
//*                                                                 *   FILE 749
//*            Allows you to do internal sorts without any          *   FILE 749
//*            knowledge of parameter lists or exit routine         *   FILE 749
//*            linkage conventions.                                 *   FILE 749
//*                                                                 *   FILE 749
//*            Example:                                             *   FILE 749
//*                                                                 *   FILE 749
//*                      EASYSORT OPEN,                             *   FILE 749
//*                            FIELDS=(1,22,CH,A),                  *   FILE 749
//*                            TYPE=F,LENGTH=64,                    *   FILE 749
//*                            OPTION='EQUALS,RESINV=500K'          *   FILE 749
//*                      .     .                                    *   FILE 749
//*              READ    GET   FILEIN                               *   FILE 749
//*                      EASYSORT PUT,(1)   pass record to SORT     *   FILE 749
//*                      B     READ                                 *   FILE 749
//*                      .     .                                    *   FILE 749
//*              REWRITE EASYSORT GET,      get sorted record       *   FILE 749
//*                            SET=(R3),                            *   FILE 749
//*                            EODAD=ENDSORT                        *   FILE 749
//*                      PUT   FILEOUT,(R3)                         *   FILE 749
//*                      B     REWRITE                              *   FILE 749
//*                      .     .                                    *   FILE 749
//*              ENDSORT EASYSORT CLOSE                             *   FILE 749
//*                                                                 *   FILE 749
//*  GETDIR    Read a directory sequentially with a BPAM DCB        *   FILE 749
//*                                                                 *   FILE 749
//*            This macro offers a simple way to read directory     *   FILE 749
//*            entries and members with a single BPAM DCB.          *   FILE 749
//*                                                                 *   FILE 749
//*  STRING    Provides functions similar to PL/I's                 *   FILE 749
//*            PUT EDIT or COBOL's STRING.                          *   FILE 749
//*                                                                 *   FILE 749
//*            This is the only non-IBM macro you need to           *   FILE 749
//*            assemble the programs in this file.                  *   FILE 749
//*                                                                 *   FILE 749
//*            This member contains the macro, a test job,          *   FILE 749
//*            and the documentation.                               *   FILE 749
//*                                                                 *   FILE 749
//*                                                                 *   FILE 749
//*  ---------------------- Miscellaneous -----------------------   *   FILE 749
//*                                                                 *   FILE 749
//*  DEFGDGSR  Sub-routine - invokes SVC 26 to define a GDG base    *   FILE 749
//*                                                                 *   FILE 749
//*            May be invoked from a COBOL program, like this:      *   FILE 749
//*                                                                 *   FILE 749
//*                  05  DSNAME   PIC X(44) VALUE 'MY.DSNAME'.      *   FILE 749
//*                  05  GDGLIMIT PIC   999 VALUE 027.              *   FILE 749
//*                                                                 *   FILE 749
//*                      CALL 'DEFGDGSR' USING DSNAME,              *   FILE 749
//*                                            GDGLIMIT.            *   FILE 749
//*                                                                 *   FILE 749
//*  FILLDASD  Asm pgm to fill free DASD space with binary zeroes   *   FILE 749
//*                                                                 *   FILE 749
//*  HANDBOOK  Job - Creates an on-line copy of the DATA AREAS      *   FILE 749
//*            (aka Debugging Handbook) manuals                     *   FILE 749
//*                                                                 *   FILE 749
//*            This job assembles macros from SYS1.MACLIB and       *   FILE 749
//*            SYS1.AMODGEN and stores the assembly listings        *   FILE 749
//*            into PDS members.  It is set up for over 60          *   FILE 749
//*            commonly used MVS control blocks (such as CVT,       *   FILE 749
//*            TCB, JFCB, etc) and may be easily modified to        *   FILE 749
//*            support other ones.                                  *   FILE 749
//*                                                                 *   FILE 749
//*            The assembly listing for each macro is stored        *   FILE 749
//*            into the output PDS under the control block          *   FILE 749
//*            name.  For example, the assembly listing for         *   FILE 749
//*            "IKJTCB" is stored into the "TCB" member.            *   FILE 749
//*                                                                 *   FILE 749
//*            To conserve dasd space, the LMCOPY service of        *   FILE 749
//*            ISPF/PDF is used to pack the output of the           *   FILE 749
//*            assembler.                                           *   FILE 749
//*                                                                 *   FILE 749
//*  TCTDCTR   Sub-routine - Prints the EXCP count for each DD      *   FILE 749
//*            in the job step                                      *   FILE 749
//*                                                                 *   FILE 749
//*            May be invoked at the end of a program for           *   FILE 749
//*            debugging or tuning purposes.                        *   FILE 749
//*                                                                 *   FILE 749
//*  TRIMMAC   Job - Creates a reduced-size MACLIB that may be      *   FILE 749
//*            used instead of the SYS1.MACLIB/SYS1.AMODGEN         *   FILE 749
//*            concatenation to improve the performance of the      *   FILE 749
//*            assembler.                                           *   FILE 749
//*                                                                 *   FILE 749
//*            The "TRIMMAC" library is built as follows:           *   FILE 749
//*                                                                 *   FILE 749
//*            1. selected macros are read from ddname "SYSLIB",    *   FILE 749
//*               trimmed from PL/AS code and other comment         *   FILE 749
//*               lines, then written to a temporary data set.      *   FILE 749
//*                                                                 *   FILE 749
//*            2. the SORT utility is invoked to sort the macros    *   FILE 749
//*               in ascending sequence of their size.              *   FILE 749
//*                                                                 *   FILE 749
//*            3. the sorted macros are written to SYSPUNCH         *   FILE 749
//*               as an IEBUPDTE sysin stream.                      *   FILE 749
//*                                                                 *   FILE 749
//*            4. IEBUPDTE is executed in the last step to          *   FILE 749
//*               load the macros into the "TRIMMAC" library,       *   FILE 749
//*               the smallest macros being loaded first.           *   FILE 749
//*                                                                 *   FILE 749
//*            You may customize the member list and the input      *   FILE 749
//*            concatenation to add other macros and/or macro       *   FILE 749
//*            libraries, as needed.                                *   FILE 749
//*                                                                 *   FILE 749
//*            Use the "TRIMMAC" library instead of the             *   FILE 749
//*            MACLIB/AMODGEN concatenation to assemble a           *   FILE 749
//*            program and compare the before/after values for      *   FILE 749
//*            the elapsed time, excp count and I/O connect         *   FILE 749
//*            time.  Expect savings of 30 to 60 percent when       *   FILE 749
//*            "TRIMMAC" is used.                                   *   FILE 749
//*                                                                 *   FILE 749
//*            My "TRIMMAC" PDS is currently allocated as           *   FILE 749
//*            follows:                                             *   FILE 749
//*                                                                 *   FILE 749
//*                UNIT=3390,SPACE=(CYL,(9,,18)),                   *   FILE 749
//*                DCB=(RECFM=FB,LRECL=80,BLKSIZE=29720)            *   FILE 749
//*                                                                 *   FILE 749
//***FILE 750 is from Ted MacNeil and contains some ISPF REXX       *   FILE 750
//*           EXECs to make your life easier.  These EXECs were     *   FILE 750
//*           written by Ted MacNeil for an IBM Systems Magazine    *   FILE 750
//*           article, and were submitted after the expiration      *   FILE 750
//*           of the 60 day intellectual property deadline.         *   FILE 750
//*                                                                 *   FILE 750
//*           email:  Ted MacNEIL <eamacneil@yahoo.ca>              *   FILE 750
//*                                                                 *   FILE 750
//*    Contents:                                                    *   FILE 750
//*      Sample REXX EXECs for/from IBM Systems Magazine Article    *   FILE 750
//*        "Digging Into the Bag of ISPF Tricks"                    *   FILE 750
//*         http://tinyurl.com/yyghzr                               *   FILE 750
//*                                                                 *   FILE 750
//*    ISPFINI -- ISPF Start Up REXX EXEC (Multiple Screens)        *   FILE 750
//*               NOTE:  For this REXX EXEC to work properly        *   FILE 750
//*               (seamlessly) you should change your ISPF          *   FILE 750
//*               SWAP key to SWAP NEXT. You should set it up       *   FILE 750
//*               that way for any time you are using more          *   FILE 750
//*               than two screens inside ISPF                      *   FILE 750
//*                                                                 *   FILE 750
//*    MULTISPF -- To allocate an ISPF Profile for which every      *   FILE 750
//*                system you are on in a multiple TSO              *   FILE 750
//*                environment.  Add to your default logon          *   FILE 750
//*                processing, before entering ISPF.                *   FILE 750
//*                                                                 *   FILE 750
//*                NOTE:  Contrary to what my article said,         *   FILE 750
//*                you can only logon once on any single z/OS       *   FILE 750
//*                image with the same USERID.  Also, the           *   FILE 750
//*                profiles will DRIFT over time, so that the       *   FILE 750
//*                contents will differ from each system you        *   FILE 750
//*                sign on to.  That never bothered me.             *   FILE 750
//*                                                                 *   FILE 750
//*    PROFSAVE -- Save your ISPF profile without exiting ISPF.     *   FILE 750
//*                                                                 *   FILE 750
//*    SPFLOGOF -- Set up a single key logoff.                      *   FILE 750
//*                You can use this REXX EXEC, or you can           *   FILE 750
//*                insert the following in the TRANS portion        *   FILE 750
//*                of the )BODY of ISR@PRIM (or whatever your       *   FILE 750
//*                Primary Panel is):                               *   FILE 750
//*                                                                 *   FILE 750
//*                     L,'CMD(TSOEXEC LOGOFF)'                     *   FILE 750
//*                                                                 *   FILE 750
//***FILE 751 contains some valuable tape handling facility code.   *   FILE 751
//*           Much of this code was developed on (or for) P/390,    *   FILE 751
//*           FLEX-ES systems, and Hercules systems but it is up    *   FILE 751
//*           to the user to decide what is useful for him or her.  *   FILE 751
//*           See member $DOC.                                      *   FILE 751
//*                                                                 *   FILE 751
//*           E-Mail:  somitcw@yahoo.com                            *   FILE 751
//*                                                                 *   FILE 751
//*  Note:  Member IGC0023{ which is SVC 230 has been renamed       *   FILE 751
//*         in this pds, to member name IGC00230.  If necessary,    *   FILE 751
//*         when it is installed, the load module should be         *   FILE 751
//*         renamed back to IGC0023{.                               *   FILE 751
//*                                                                 *   FILE 751
//***FILE 752 is from Robin Ryerse and contains an ISPF Profile     *   FILE 752
//*           dumping tool, written in REXX, requiring one          *   FILE 752
//*           Assembler subroutine (included).                      *   FILE 752
//*                                                                 *   FILE 752
//*     Please note information about the fix from Bill Earle.      *   FILE 752
//*                                                                 *   FILE 752
//*     Dump the specified/current profile(s) and related           *   FILE 752
//*     ISPPROF tables to a (series of) sequential file(s) named    *   FILE 752
//*     userid.applid.APPLDUMP.  The specified applid can           *   FILE 752
//*     contain wildcard values "*" and/or "%";  e.g. TSO           *   FILE 752
//*     %APPLDUMP IS*                                               *   FILE 752
//*                                                                 *   FILE 752
//*     This exec must be named APPLDUMP for recursive execution.   *   FILE 752
//*                                                                 *   FILE 752
//*     Requires function/subroutine SCCPDSD                        *   FILE 752
//*                                                                 *   FILE 752
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - - -     *   FILE 752
//*                                                                 *   FILE 752
//*     A fix was provided for this application by Bill Earle.      *   FILE 752
//*     His version of APPLDUMP was named in this pds, APPLDUM1,    *   FILE 752
//*     and it should be renamed back to APPLDUMP, if you use       *   FILE 752
//*     his version.  In Bill's version, SCCPDSD was rewritten      *   FILE 752
//*     in REXX.                                                    *   FILE 752
//*                                                                 *   FILE 752
//*     For details from Bill Earle, see member $$NOTE02.           *   FILE 752
//*                                                                 *   FILE 752
//*     email:  robin.ryerse@eds.com                                *   FILE 752
//*                                                                 *   FILE 752
//*     email:  "Earle, William, H (Bill)" <WEarle@azdes.gov>       *   FILE 752
//*                                                                 *   FILE 752
//***FILE 753 is from Robin Ryerse and contains his REXX function   *   FILE 753
//*           package.  See member $$NOTE1 for more info.           *   FILE 753
//*                                                                 *   FILE 753
//*       email:  robin.ryerse@eds.com                              *   FILE 753
//*                                                                 *   FILE 753
//*     List of REXX functions subroutines                          *   FILE 753
//*                                                                 *   FILE 753
//*     @CURSOR    Obtain data at the cursor position of a          *   FILE 753
//*                ISPF session                                     *   FILE 753
//*     DELIMSTR   Extract a delimited string                       *   FILE 753
//*     DSN4DD     Obtain the dataset name of a specified           *   FILE 753
//*                DDname                                           *   FILE 753
//*     DYNALLOC   Issue svc 99                                     *   FILE 753
//*     JFCB       Obtain the JFCB of a specified DDname            *   FILE 753
//*     MIN1POS    Determine the position of the first              *   FILE 753
//*                occurence of a (list of) single                  *   FILE 753
//*                character(s).                                    *   FILE 753
//*     SCC@DSN    Determine a datasets existence                   *   FILE 753
//*     SCCALLOC   Allocate a DDname to an existing                 *   FILE 753
//*                dataset. Free a DDname.                          *   FILE 753
//*     SCCD2O     Decimal to Octal conversion.                     *   FILE 753
//*     SCCO2D     Octal to decimal conversion.                     *   FILE 753
//*     SCCPDSD    Collect the directory entries of a               *   FILE 753
//*                DDname.                                          *   FILE 753
//*     SCCPDSR    Read a specified member from a DDname.           *   FILE 753
//*     SCCPWR2    Calculate the next higher power of 2.            *   FILE 753
//*     SCCQWVAR   Extract a specified QwikRef item.                *   FILE 753
//*     SCXAMS     Issue IDCAMS command(s) and 'stem' the           *   FILE 753
//*                results.                                         *   FILE 753
//*     SCXSORT    Sort files and/or stem values.                   *   FILE 753
//*     VARLIST    List all defined variables and their             *   FILE 753
//*                values.                                          *   FILE 753
//*     VOL4DD     Obtain the volume serial of a specified          *   FILE 753
//*                DDname.                                          *   FILE 753
//*     WILDCARD   Does a specified value match a specified         *   FILE 753
//*                pattern?                                         *   FILE 753
//*     XDATE      Date conversions.                                *   FILE 753
//*                                                                 *   FILE 753
//***FILE 754 is from Henrik Salminen and contains a tool to        *   FILE 754
//*           search the contents of ISPF profiles.  It is          *   FILE 754
//*           mostly written in REXX, and it has supporting         *   FILE 754
//*           ISPF panels.  This is a VERY useful tool, once        *   FILE 754
//*           you get used to using it.  See member $INSTALL.       *   FILE 754
//*                                                                 *   FILE 754
//*           email:  henrik.salminen@swedbank.se                   *   FILE 754
//*                                                                 *   FILE 754
//***FILE 755 is JRP from Scott Vetter and is a version which runs  *   FILE 755
//*           on MVS 3.8 under Hercules.                            *   FILE 755
//*                                                                 *   FILE 755
//*           email:  svetter@ameritech.net                         *   FILE 755
//*                                                                 *   FILE 755
//*           JRP IS A DSPRINT REPLACEMENT                          *   FILE 755
//*                                                                 *   FILE 755
//*                J R P         (JES2 REMOTE PRINTERS)             *   FILE 755
//*                                                                 *   FILE 755
//*           THIS PRODUCT WAS DESIGNED AND WRITTEN WITH THE        *   FILE 755
//*           INTENT OF INCREASING USER AS WELL AS PROGRAMMER       *   FILE 755
//*           PRODUCTIVITY.  IT("JRP") MAKES USE OF 3270 PRINTER    *   FILE 755
//*           DEVICES TO PRINT SPOOLED JES2 OUTPUT.  OUTPUT         *   FILE 755
//*           DEVICES ARE DEFINED TO "JRP" VIA A SEQUENTIAL DATA    *   FILE 755
//*           SET.  EACH CONTROL CARD IN THIS DATA SET DESCRIBES    *   FILE 755
//*           THE ATTRIBUTES OF ONE PRINTER.                        *   FILE 755
//*                                                                 *   FILE 755
//*               AFTER "JRP" INITIALIZATION,A SUBSYSTEM REQUEST    *   FILE 755
//*           IS ISSUED TO JES2 BASED ON EACH PRINTER'S             *   FILE 755
//*           DESCRIPTION.  IF JES2 CONFIRMS THAT OUTPUT IS         *   FILE 755
//*           AVAILABLE FOR THE PRINTER DESCRIBED, A SUBTASK IS     *   FILE 755
//*           CREATED, USING THE ATTRIBUTES DEFINED FOR THAT        *   FILE 755
//*           PARTICULAR DEVICE.  THE SPOOL DATASET IS READ,        *   FILE 755
//*           BUFFERED, THEN WRITTEN TO THE PRINTER VIA "VTAM".     *   FILE 755
//*                                                                 *   FILE 755
//*               "JRP" SUPPORTS VTAM SNA AND NONSNA TERMINALS AS   *   FILE 755
//*           "JRP" CONTROL TERMINALS.  A MAXIMUM OF 25(TWENTY      *   FILE 755
//*           FIVE) TERMINALS ARE SUPPORT SIMULTANEOUSLY.  ALL      *   FILE 755
//*           FUNCTIONS REQUIRED TO SUPPORT "JRPS" PRINTER          *   FILE 755
//*           DEVICES ARE AVAILIBLE FROM A "JRP" CONTROL            *   FILE 755
//*           TERMINAL.                                             *   FILE 755
//*                                                                 *   FILE 755
//*    ---------------------------------------------------------    *   FILE 755
//*                                                                 *   FILE 755
//*    Enhancements by Scott Vetter:                                *   FILE 755
//*                                                                 *   FILE 755
//*      ADD HELP DISPLAY FOR JRP CONSOLE USERS                     *   FILE 755
//*                                                                 *   FILE 755
//*      ALLOW A "P JRP" TO BE ENTERED FROM SYSTEM CONSOLE AS       *   FILE 755
//*      OPPOSED TO HAVING A WTOR.  PLUS, ADD WTOR/NOWTOR OPTION    *   FILE 755
//*      IN CONTROL CARD STREAM                                     *   FILE 755
//*                                                                 *   FILE 755
//*      CREATE A LOGGING FACILITY - ALLOW EITHER TO CONSOLE,       *   FILE 755
//*      SYSLOG, OR TO "JRPLOG DD  SYSOUT=*".                       *   FILE 755
//*                                                                 *   FILE 755
//*      ENHANCE SECURITY EXIT ROUTINE.                             *   FILE 755
//*                                                                 *   FILE 755
//*      CREATE A COMMAND FOR PRINTER(S) WHICH WILL SEND A          *   FILE 755
//*      COMMAND STREAM TO A PRINTER TO FLUSH THE OUTPUT.  THIS     *   FILE 755
//*      APPEARS TO BE NEEDED FOR SOFTWARE PRINTER EMULATORS.       *   FILE 755
//*                                                                 *   FILE 755
//***FILE 756 is from Daniel Gaeta and contains a REXX which is a   *   FILE 756
//*           powerful JCL preprocessor.  This tool has rather      *   FILE 756
//*           immense capabilities.  Please see member $$DOC for    *   FILE 756
//*           a complete user guide and description.                *   FILE 756
//*                                                                 *   FILE 756
//*           email:  dfgaeta@br.ibm.com                            *   FILE 756
//*                                                                 *   FILE 756
//***FILE 757 is from Kenneth Fitzgerald and contains source and    *   FILE 757
//*           doc for a system to teach Assembler Language to       *   FILE 757
//*           college students and other beginners.  This system    *   FILE 757
//*           is called LOGGRASM.  From the looks of it, it might   *   FILE 757
//*           be helpful for the rest of us, too.                   *   FILE 757
//*                                                                 *   FILE 757
//*           email:  khf00@sbcglobal.net                           *   FILE 757
//*                                                                 *   FILE 757
//*    (1)Description:                                              *   FILE 757
//*       ------------                                              *   FILE 757
//*                                                                 *   FILE 757
//*       LOGGRASM is a utility to perform basic source setup       *   FILE 757
//*       of an Assembler program, and to log basic information     *   FILE 757
//*       about an Assembler program during execution.  This        *   FILE 757
//*       utility provides a method to show program execution       *   FILE 757
//*       in Assembler language programs.  The log information      *   FILE 757
//*       is written to a data set using QSAM.  LOGGRASM is for     *   FILE 757
//*       use in an Assembler batch program.  It can run as         *   FILE 757
//*       authorized or as non-authorized, though it uses no        *   FILE 757
//*       authorized services.  LOGGRASM is a basic tool to         *   FILE 757
//*       assist students and new programmers learning              *   FILE 757
//*       Assembler on the mainframe.                               *   FILE 757
//*                                                                 *   FILE 757
//*    (2)Prerequisites:                                            *   FILE 757
//*       -------------                                             *   FILE 757
//*                                                                 *   FILE 757
//*       Students need a basic working knowledge of a z/OS         *   FILE 757
//*       environment, and a basic knowledge of TSO/ISPF            *   FILE 757
//*       Editor commands, and know some JCL (e.g., Job             *   FILE 757
//*       Control Language).  You should have some introductory     *   FILE 757
//*       programming skills in Assembler.  You need access to      *   FILE 757
//*       a z/OS system, and be able to logon under TSO.            *   FILE 757
//*                                                                 *   FILE 757
//*    (3)Input:                                                    *   FILE 757
//*       ------                                                    *   FILE 757
//*                                                                 *   FILE 757
//*       LOGGRASM uses input control cards from the //LGRSYSIN     *   FILE 757
//*       DD for directing the processing of Logger Services        *   FILE 757
//*       during execution of a user program.                       *   FILE 757
//*                                                                 *   FILE 757
//*    (4)Output:                                                   *   FILE 757
//*       -------                                                   *   FILE 757
//*                                                                 *   FILE 757
//*       LOGGRASM writes its output to a QSAM DCB with             *   FILE 757
//*       RECFM=FBA and LRECL=133 when a //LGRECOUT DD is           *   FILE 757
//*       present in the JCL.  LOGGRASM output is in mixed          *   FILE 757
//*       case.                                                     *   FILE 757
//*                                                                 *   FILE 757
//***FILE 758 is from Craig Schneiderwent and contains a package    *   FILE 758
//*           to search loadable modules for a specified string.    *   FILE 758
//*           The package is called LOADWORD.                       *   FILE 758
//*                                                                 *   FILE 758
//*       email:  cschneid_loadword@yahoo.com                       *   FILE 758
//*                                                                 *   FILE 758
//*       To create the macro library, please run the self-         *   FILE 758
//*       contained job in member $PDSLOAD on this pds.             *   FILE 758
//*                                                                 *   FILE 758
//***FILE 759 is from Kevin Wailes, and contains an implementation  *   FILE 759
//*           of the CICS MQ api crossing exit which traces all MQ  *   FILE 759
//*           api calls for all or selected transactions.           *   FILE 759
//*                                                                 *   FILE 759
//*       email:  "Kevin Wailes" <kevin.wailes@gmail.com>           *   FILE 759
//*                                                                 *   FILE 759
//***FILE 760 is from Ken Tomiak and is collection of PC and z/OS   *   FILE 760
//*           based tools geared for both novices and gurus         *   FILE 760
//*           alike. A good portion of the collection is geared     *   FILE 760
//*           towards transporting data from one platform to the    *   FILE 760
//*           other using FTP at some point.  The bulk of this      *   FILE 760
//*           work was compiled or written by:                      *   FILE 760
//*                                                                 *   FILE 760
//*     email:  "Kenneth E Tomiak"<CBT_Ken@KTomiak.biz>             *   FILE 760
//*     AOL IM: KenTomiak                                           *   FILE 760
//*                                                                 *   FILE 760
//*     Never, never, never run anything you have not examined!     *   FILE 760
//*     -------------------------------------------------------     *   FILE 760
//*                                                                 *   FILE 760
//*     Note from Sam Golob:  Since it is very soon before SHARE,   *   FILE 760
//*        and since some of these items are PC-based, whereas      *   FILE 760
//*        others are z/OS based, I have packaged this file,        *   FILE 760
//*        temporarily, as a zip file.  In order to use this        *   FILE 760
//*        package, the best way is probably to FTP the member      *   FILE 760
//*        $$$ZIP back to a PC, unzip it there, and follow Ken's    *   FILE 760
//*        directions on the PC.                                    *   FILE 760
//*                                                                 *   FILE 760
//*        Without promising, I'll try to repackage this file       *   FILE 760
//*        later, so that at least the z/OS parts will not have     *   FILE 760
//*        to be reloaded to a PC.                                  *   FILE 760
//*                                                                 *   FILE 760
//*        ----------------------------------------------------     *   FILE 760
//*        THE AUTHORITATIVE VERSION OF THIS FILE IS ALWAYS THE     *   FILE 760
//*        $$$ZIP MEMBER!!!!!                                       *   FILE 760
//*        ----------------------------------------------------     *   FILE 760
//*                                                                 *   FILE 760
//*     STANDARD GLOBAL DISCLAIMER                                  *   FILE 760
//*     ==========================                                  *   FILE 760
//*     The author explicitly disavows any claim whatsoever about   *   FILE 760
//*     the correctness or functionality of these files, and        *   FILE 760
//*     disclaims liability for anything and everything bad that    *   FILE 760
//*     might happen in connection with, before, during, or after   *   FILE 760
//*     using it. I have tried to make it work right, and I am      *   FILE 760
//*     personally pretty confident that it does, but everybody     *   FILE 760
//*     makes mistakes, so if you use it, you do so at your own     *   FILE 760
//*     risk.                                                       *   FILE 760
//*                                                                 *   FILE 760
//*     Note: Member/file lists are not in ascending sequence. I    *   FILE 760
//*           tried to list objects in the sequence you ought to    *   FILE 760
//*           review them and then near related entities. So, if    *   FILE 760
//*           B calls A, then B is listed first and then A. And     *   FILE 760
//*           then in ascending EBCDIC sequence. My sympathy if     *   FILE 760
//*           that is too hard for you to follow.                   *   FILE 760
//*                                                                 *   FILE 760
//* =============================================================== *   FILE 760
//* =============================================================== *   FILE 760
//*                                                                 *   FILE 760
//* PC-based                                                        *   FILE 760
//*                                                                 *   FILE 760
//*     ..\     - The directory you unzipped this to.               *   FILE 760
//*     =============================================               *   FILE 760
//*                                                                 *   FILE 760
//*     Never, never, never run anything you have not examined!     *   FILE 760
//*     -------------------------------------------------------     *   FILE 760
//*                                                                 *   FILE 760
//*       add2path - Add %USERPROFILE%\DOSBAT to the front of       *   FILE 760
//*                  PATH.  That is where I expect you will         *   FILE 760
//*                  place the bat files, but you can add them      *   FILE 760
//*                  anywhere your PATH will find them.             *   FILE 760
//*                                                                 *   FILE 760
//*       Each z/OS oriented collection is both a sub-directory     *   FILE 760
//*       and:                                                      *   FILE 760
//*                                                                 *   FILE 760
//*       *.BAT - A DOS bat file to upload an IEBUPDTE stream.      *   FILE 760
//*       *.JCL - JCL to process an IEBUPDTE stream.                *   FILE 760
//*       *.SEQ - The IEBUPDTE stream.                              *   FILE 760
//*                                                                 *   FILE 760
//*     BACKUPS - A sub-directory for FTP to download to.           *   FILE 760
//*     =================================================           *   FILE 760
//*                                                                 *   FILE 760
//*       $$$INDEX - One liner about the files in the               *   FILE 760
//*       sub-directory.                                            *   FILE 760
//*                                                                 *   FILE 760
//*     DOSBAT  - A collection of BAT files for using FTP.          *   FILE 760
//*     ==================================================          *   FILE 760
//*                                                                 *   FILE 760
//*     Never, never, never run anything you have not examined!     *   FILE 760
//*     -------------------------------------------------------     *   FILE 760
//*                                                                 *   FILE 760
//*       $$README - Explains more about the contents in this       *   FILE 760
//*                  sub-dir.                                       *   FILE 760
//*                                                                 *   FILE 760
//*       $$$INDEX - One liner about the files in the               *   FILE 760
//*                  sub-directory.                                 *   FILE 760
//*                                                                 *   FILE 760
//*       BAT - To help search fro BAT files, pass it a             *   FILE 760
//*             drive:\path argument and it will dir *.BAT files    *   FILE 760
//*             for you.  Handy when you know where your BAT        *   FILE 760
//*             files are but can not remember the exact name of    *   FILE 760
//*             one to use.                                         *   FILE 760
//*                                                                 *   FILE 760
//*       DIR2UPDT - DOS bat file to call MBR2UPDT to build and     *   FILE 760
//*                  IEBUPDTE stream, sans ISPF like statistics.    *   FILE 760
//*                                                                 *   FILE 760
//*       MBR2UPDT - DOS bat file to append a single file into      *   FILE 760
//*                  the IEBUPDTE stream, sans ISPF like            *   FILE 760
//*                  statistics.                                    *   FILE 760
//*                                                                 *   FILE 760
//*       OOREXX - My BAT file (JCL like) method to let the bat     *   FILE 760
//*                file take care of knowing where Open Object      *   FILE 760
//*                REXX is located and where my REXX source is.     *   FILE 760
//*                                                                 *   FILE 760
//*       PARMS* - Some BAT files that convert arguments to         *   FILE 760
//*                upper and lowercase. Plus an IVP to see if it    *   FILE 760
//*                works. Non-MVS systems may be case sensitive.    *   FILE 760
//*                I forced my sub-directories on one to be         *   FILE 760
//*                upper case and called PARMSUP to make sure my    *   FILE 760
//*                CD command was upper case.                       *   FILE 760
//*                                                                 *   FILE 760
//*       HOSTDEFAULT - Copy this starter to as many                *   FILE 760
//*                     HOSThostname.bat files as you have hosts    *   FILE 760
//*                     to connect to. Each one will contain the    *   FILE 760
//*                     userid and password for that host. Other    *   FILE 760
//*                     FTP settings can be configured as well.     *   FILE 760
//*                                                                 *   FILE 760
//*       HOSTIBM - Update with your email address and II13288      *   FILE 760
//*                 will be ready to download some tools from       *   FILE 760
//*                 IBM. Have your HOST* file set and it will       *   FILE 760
//*                 also upload them.                               *   FILE 760
//*                                                                 *   FILE 760
//*       FTPSETCONFIG - Sets which HOST* bat file will be          *   FILE 760
//*                      called by other FTP*.bat files. You can    *   FILE 760
//*                      switch HOST information, USERID and        *   FILE 760
//*                      PASSWORD, in this manner.                  *   FILE 760
//*                                                                 *   FILE 760
//*       FTPSETATTRIBUTES - Called by the FTP* bat files to add    *   FILE 760
//*                          quote site sub-commands that           *   FILE 760
//*                          influence new dataset allocations      *   FILE 760
//*                          and some translation specific          *   FILE 760
//*                          features. All of the options are set   *   FILE 760
//*                          in your HOST* file and activated       *   FILE 760
//*                          using the FTPSETCONFIG file.           *   FILE 760
//*                                                                 *   FILE 760
//*       FTPIVP - Tests if you set everything up. It will create   *   FILE 760
//*                a PDSE, load some members, submit a JOB to       *   FILE 760
//*                IEBCOPY backup the PDS to a sequential           *   FILE 760
//*                dataset, download the backup, upload it as a     *   FILE 760
//*                new name, then submit a job to restore into a    *   FILE 760
//*                new PDS.                                         *   FILE 760
//*                                                                 *   FILE 760
//*       II13288 - Logs on to ftp.software.ibm.com and downloads   *   FILE 760
//*                 some tools using both the HOSTIBM file and      *   FILE 760
//*                 one that you configured for your host and set   *   FILE 760
//*                 using FTPSETCONFIG.                             *   FILE 760
//*                                                                 *   FILE 760
//*       FTP*GET* - Assorted flavors for getting one or more       *   FILE 760
//*                  files.                                         *   FILE 760
//*                                                                 *   FILE 760
//*       FTP*PUT* - Assorted flavors for putting one or more       *   FILE 760
//*                  files.                                         *   FILE 760
//*                                                                 *   FILE 760
//*       FTPLOGIN - Login to an FTO server and turn the reigns     *   FILE 760
//*                  over.                                          *   FILE 760
//*                                                                 *   FILE 760
//*       FTPCD*   - Login, change to the sub-directory.            *   FILE 760
//*                                                                 *   FILE 760
//*       FTPBACKUP - Submit a special backup job that creates      *   FILE 760
//*                   IEBUPDTE streams and/or TRANSMIT files, try   *   FILE 760
//*                   to wait for the job to complete, and then     *   FILE 760
//*                   downlaod the files.                           *   FILE 760
//*                                                                 *   FILE 760
//*       FTPBKUP  - Sample job to create IEBUPDTE streams or XMIT  *   FILE 760
//*                  files.                                         *   FILE 760
//*                                                                 *   FILE 760
//*       IEBBKUP  - Sample job to backup a PDS if you run FTPIVP.  *   FILE 760
//*                                                                 *   FILE 760
//*       IEBREST  - Sample job to restore a PDS if you run FTPIVP. *   FILE 760
//*                                                                 *   FILE 760
//*       FTPDOWNLOAD - Picks up when FTPBACKUP can not wait.       *   FILE 760
//*                                                                 *   FILE 760
//*       FTPCANCEL - Various ways to submit a cancel tso user if   *   FILE 760
//*                   your tn3270 session failed and RECONNECT      *   FILE 760
//*                   fails.                                        *   FILE 760
//*                                                                 *   FILE 760
//*       FTPMKDIR - Create a new dataset using attributes from     *   FILE 760
//*                  your HOST[hostname) bat file.                  *   FILE 760
//*                                                                 *   FILE 760
//*       FTPSCRIPT - Blindly execute your prepared script of FTP   *   FILE 760
//*                   sub-commands. And a sample script. II13288    *   FILE 760
//*                   may also give you ideas.                      *   FILE 760
//*                                                                 *   FILE 760
//*       FTPSUBMIT - Submits a job from your PDS and waits for     *   FILE 760
//*                   it to complete. Downloads a copy of the       *   FILE 760
//*                   output to your PC.                            *   FILE 760
//*                                                                 *   FILE 760
//*     DOSDATA - A sub-directory used for data.                    *   FILE 760
//*     ========================================                    *   FILE 760
//*                                                                 *   FILE 760
//*       $$$INDEX - One liner about the files in the               *   FILE 760
//*                  sub-directory.                                 *   FILE 760
//*                                                                 *   FILE 760
//*       FTPCHRBN - 256 Character set in PC binary format.         *   FILE 760
//*                                                                 *   FILE 760
//*       FTPCHRMF - 256 Character set in z/OS EBCDIC format.       *   FILE 760
//*                                                                 *   FILE 760
//*       FTPCHRPC - 256 Character set in PC 8 bit ASCII format.    *   FILE 760
//*                                                                 *   FILE 760
//*       URLCHECK - List of urls checked for changed by REXX       *   FILE 760
//*                  program by the same name.                      *   FILE 760
//*                                                                 *   FILE 760
//*     DOSPERL - Activestate perl programs.                        *   FILE 760
//*     ====================================                        *   FILE 760
//*                                                                 *   FILE 760
//*       $$$INDEX - One liner about the files in the               *   FILE 760
//*                  sub-directory.                                 *   FILE 760
//*                                                                 *   FILE 760
//*       UPDT2HTML - Convert an IEBUPDTE stream into web pages.    *   FILE 760
//*                                                                 *   FILE 760
//*     DOSREXX - Open Object REXX programs.                        *   FILE 760
//*     ====================================                        *   FILE 760
//*                                                                 *   FILE 760
//*       $$$INDEX - One liner about the files in the               *   FILE 760
//*                  sub-directory.                                 *   FILE 760
//*                                                                 *   FILE 760
//*       ASC2EBC  - Convert an 8-bit ASCII file to EBCDIC.         *   FILE 760
//*                                                                 *   FILE 760
//*       EBC2ASC  - Convert an EBCDIC file to 8-bit ASCII.         *   FILE 760
//*                                                                 *   FILE 760
//*       CHARGRID - Create a 16x16 grid of 256 characters.         *   FILE 760
//*                                                                 *   FILE 760
//*       DIR2UPDT - Convert a directory into an IEBUPDTE stream    *   FILE 760
//*                  with ISPF like statistics.                     *   FILE 760
//*                                                                 *   FILE 760
//*       IVS2DIR  - Read an IEBCOPY unload dataset and extract     *   FILE 760
//*                  members int individual files.                  *   FILE 760
//*                                                                 *   FILE 760
//*       KETRECV  - RECEIVE like process to read the output of a   *   FILE 760
//*                  TRANSMIT command. PDS members are extracted in *   FILE 760
//*                  8-bit ASCII and EBCDIC format. Just in case    *   FILE 760
//*                  somebody embdedded a TRANSMIT file as a        *   FILE 760
//*                  member.                                        *   FILE 760
//*                                                                 *   FILE 760
//*       KETUPDTE - Ken's REXX way to read an IEBUPDTE stream and  *   FILE 760
//*                  populate a sub-directory. ISPF statistics are  *   FILE 760
//*                  written to a report file.                      *   FILE 760
//*                                                                 *   FILE 760
//*       XMI2INM  - The first half of KETRECV, read the transmit   *   FILE 760
//*                  file and store the internal format as a PC     *   FILE 760
//*                  file. The second half might be IVS2DIR.        *   FILE 760
//*                                                                 *   FILE 760
//*       XMITINFO - David Alcock code to show TRANSMIT file        *   FILE 760
//*                  headers.                                       *   FILE 760
//*                                                                 *   FILE 760
//*     HTML    - IEBUPDTE stream converted to web pages.           *   FILE 760
//*     =================================================           *   FILE 760
//*                                                                 *   FILE 760
//*       ZOSJCL.SEQ.html - Main page of JCL snippets.              *   FILE 760
//*                                                                 *   FILE 760
//*       ZOSUTIL.SEQ.html - Main page of Utility samples.          *   FILE 760
//*                                                                 *   FILE 760
//*     IEBUPDTE - Each directory bundled and ready for IEBUPDTE.   *   FILE 760
//*     =========================================================   *   FILE 760
//*                                                                 *   FILE 760
//*     Batch Oriented                                              *   FILE 760
//*     --------------                                              *   FILE 760
//*                                                                 *   FILE 760
//*       CNTL.*     - JCL to prepare and run programs.             *   FILE 760
//*                                                                 *   FILE 760
//*       PROCLIB.*  - Sample PROCedures for preparing and          *   FILE 760
//*                    running code.                                *   FILE 760
//*                                                                 *   FILE 760
//*       SRCLIB.*   - Sample programs that need to be prepared.    *   FILE 760
//*                                                                 *   FILE 760
//*       OBJLIB.*   - Sample programs in object format.            *   FILE 760
//*                                                                 *   FILE 760
//*       EXELIB.*   - Sample programs in executable load module    *   FILE 760
//*                    format.                                      *   FILE 760
//*                                                                 *   FILE 760
//*       PARMLIB.*  - Examples of extending the use of PARMLIB.    *   FILE 760
//*                                                                 *   FILE 760
//*       DATA.*     - Data used or produced by programs.           *   FILE 760
//*                                                                 *   FILE 760
//*       ZOSJCL.*   - Snippets of JCL.                             *   FILE 760
//*                                                                 *   FILE 760
//*       ZOSUTIL.*  - Examples of many Utilities to get started    *   FILE 760
//*                    with.                                        *   FILE 760
//*                                                                 *   FILE 760
//*     TSO/ISPF Oriented                                           *   FILE 760
//*     -----------------                                           *   FILE 760
//*                                                                 *   FILE 760
//*       CONFIG.*   - The output from ISRCONFG.                    *   FILE 760
//*                                                                 *   FILE 760
//*       CLIST.*    - TSO Command Procedures.                      *   FILE 760
//*                                                                 *   FILE 760
//*       MSGS.*     - ISPF messages.                               *   FILE 760
//*                                                                 *   FILE 760
//*       PANELS.*   - ISPF panels.                                 *   FILE 760
//*                                                                 *   FILE 760
//*       SKELS.*    - ISPF skeletons.                              *   FILE 760
//*                                                                 *   FILE 760
//*       REXX.*     - Sample REXX code.                            *   FILE 760
//*                                                                 *   FILE 760
//*       SHELL.*    - Sample z/OS UNIX shell scripts.              *   FILE 760
//*                                                                 *   FILE 760
//* =============================================================== *   FILE 760
//* =============================================================== *   FILE 760
//*                                                                 *   FILE 760
//* z/OS-based                                                      *   FILE 760
//* ==========                                                      *   FILE 760
//*                                                                 *   FILE 760
//*     CLIST   - Just a place holder for now.                      *   FILE 760
//*     ======================================                      *   FILE 760
//*                                                                 *   FILE 760
//*     CNTL    - JCL to run the code in this collection.           *   FILE 760
//*     =================================================           *   FILE 760
//*                                                                 *   FILE 760
//*       CONDCODE - IVP to check %CONDCODE which shows each        *   FILE 760
//*                  steps maximum condition code. Follows          *   FILE 760
//*                  control blocks.                                *   FILE 760
//*                                                                 *   FILE 760
//*       II13288  - Blind FTP script to download some IBM tools.   *   FILE 760
//*                                                                 *   FILE 760
//*       IPCSIVP  - Run IPCS in batch and demonstrate how to use   *   FILE 760
//*                  certain features.                              *   FILE 760
//*                                                                 *   FILE 760
//*       HX2PR    Convert input to two hexadecimal print lines.    *   FILE 760
//*       HX2PR$A  Assemble and link source.                        *   FILE 760
//*       HX2PR4   Convert input to four hexadecimal print lines.   *   FILE 760
//*       HX2PR4$A Assemble and link source.                        *   FILE 760
//*       PR2HX    Convert two print lines back to EBCDIC format.   *   FILE 760
//*       PR2HX$A  Assemble and link source.                        *   FILE 760
//*       PR42HX   Convert four print lines back to EBCDIC format.  *   FILE 760
//*       PR42HX$A Assemble and link source.                        *   FILE 760
//*                                                                 *   FILE 760
//*       PDSLOAD  IEBUPDTE alternative, preserves ISPF statistics. *   FILE 760
//*       PDSLOAD$ Link object deck.                                *   FILE 760
//*                                                                 *   FILE 760
//*       OBJ2HEX  - Sample JCL that shows multiple ways to run     *   FILE 760
//*                  OBJ2HEX to read a PDS member, in this example  *   FILE 760
//*                  an object deck for PDSLOAD. Then two ways to   *   FILE 760
//*                  run the self extracting REXX program.          *   FILE 760
//*                                                                 *   FILE 760
//*       URLCHECK - Run REXX program %URLCHECK to check if url     *   FILE 760
//*                  has been updated since last run. Build a web   *   FILE 760
//*                  page of those that have and update last        *   FILE 760
//*                  modified date.                                 *   FILE 760
//*                                                                 *   FILE 760
//*     CONFIG  - Sample ISRCONFG output.                           *   FILE 760
//*     =================================                           *   FILE 760
//*               Ought to be LRECL=80 but IBM blew it.             *   FILE 760
//*               Forced to be 255 for 80 byte data!                *   FILE 760
//*                                                                 *   FILE 760
//*               Just a place holder for now.                      *   FILE 760
//*                                                                 *   FILE 760
//*     DATA    - Data files used by the code in this collection.   *   FILE 760
//*     =========================================================   *   FILE 760
//*                                                                 *   FILE 760
//*       URLCHECK - List of urls program %URLCHECK will check if   *   FILE 760
//*                  they have been updated since the last run.     *   FILE 760
//*                                                                 *   FILE 760
//*     EXELIB  - Executable load modules.                          *   FILE 760
//*     ==================================                          *   FILE 760
//*                                                                 *   FILE 760
//*     MSGS    - Just a place holder for now.                      *   FILE 760
//*     ======================================                      *   FILE 760
//*                                                                 *   FILE 760
//*     OBJLIB  - Object decks.                                     *   FILE 760
//*     =======================                                     *   FILE 760
//*                                                                 *   FILE 760
//*       PDSLOAD  -   ORIGINAL PROGRAM FROM FILE 093               *   FILE 760
//*                                                                 *   FILE 760
//*         A sample object deck, (for the very useful              *   FILE 760
//*         IEBUPDTE-like program called PDSLOAD - CBT Tape File    *   FILE 760
//*         093), has been included here to test the system.        *   FILE 760
//*         Sample output from the SAMPJCL job is also included     *   FILE 760
//*         here. These are members PDSLOAD@, PDSLOAD#, and         *   FILE 760
//*         PDSLOAD$.                                               *   FILE 760
//*                                                                 *   FILE 760
//*         More about the PDSLOAD program itself ---               *   FILE 760
//*                                                                 *   FILE 760
//*         PDSLOAD will load a pds with members, starting from an  *   FILE 760
//*         IEBUPDTE-like sequential dataset, but it is possible to *   FILE 760
//*         preserve ISPF statistics too. See the layout below.     *   FILE 760
//*                                                                 *   FILE 760
//*         If you want to linkedit the PDSLOAD object deck to use  *   FILE 760
//*         the program for yourself, the LINK job is also          *   FILE 760
//*         included.                                               *   FILE 760
//*                                                                 *   FILE 760
//*         If you want to run the PDSLOAD program, the PDSLOJCL    *   FILE 760
//*         sample JCL, which makes a pds out of an IEBUPDTE-like   *   FILE 760
//*         ./ ADD NAME=memname                                     *   FILE 760
//*         input deck, provides a sample job. Input to the PDSLOAD *   FILE 760
//*         sample job is the SHOWMACS member.                      *   FILE 760
//*                                                                 *   FILE 760
//*       --------------------------------------------------------- *   FILE 760
//*                                                                 *   FILE 760
//*         Illustration of the layout of an ./ ADD NAME= card,     *   FILE 760
//*         input to PDSLOAD, which preserves the stated ISPF       *   FILE 760
//*         statistics:  This layout is produced by the OFFLOAD     *   FILE 760
//*         program in CBT Tape File 093 and PDS2UPDTE in this      *   FILE 760
//*         file.                                                   *   FILE 760
//*                                                                 *   FILE 760
//*    1       10        20        30        40        50        60 *   FILE 760
//*    +---+----+----+----+----+----+----+----+----+----+----+----+ *   FILE 760
//*    ./ ADD NAME=$$$#DATE 0474-07151-07151-0941-00012-00012-00000 *   FILE 760
//*                mbrname  vvmm crtdt moddt time currl initl modln *   FILE 760
//*                                                                 *   FILE 760
//*        50        60                                             *   FILE 760
//*        -+----+----+----+---    (ISPF stats are optional)        *   FILE 760
//*        -00012-00000-CBT-474                                     *   FILE 760
//*         initl modln userid                                      *   FILE 760
//*                                                                 *   FILE 760
//*     ---------------------------------------------------------   *   FILE 760
//*                                                                 *   FILE 760
//*     PANELS  - Just a place holder for now.                      *   FILE 760
//*     ======================================                      *   FILE 760
//*                                                                 *   FILE 760
//*     PARMLIB - A few sample PARMLIB members beyond the basics.   *   FILE 760
//*     =========================================================   *   FILE 760
//*                                                                 *   FILE 760
//*       CUNUNI00 - Shortest UNICODE on DEMAND entry I found       *   FILE 760
//*                  would prevent DB2 from loading much more and   *   FILE 760
//*                  still let z/OS load what is actually used.     *   FILE 760
//*                                                                 *   FILE 760
//*     PROCLIB - Procedures to eliminate duplicate JCL.            *   FILE 760
//*     ================================================            *   FILE 760
//*                                                                 *   FILE 760
//*       ASM2OBJ  - PROC to assemble and save OBJECT deck.         *   FILE 760
//*                                                                 *   FILE 760
//*       ASM2LMOD - PROC to assemble and link source to an LMOD.   *   FILE 760
//*                                                                 *   FILE 760
//*       OBJ2LMOD - PROC to link an OBJECT deck to an LMOD.        *   FILE 760
//*                                                                 *   FILE 760
//*       IEASYM00 - Set statements to simulate SYSTEM Symbolics.   *   FILE 760
//*                  Works best if you have this in a system unique *   FILE 760
//*                  JES accessible PROCLIB. One per system.        *   FILE 760
//*                  NOT SHARED.                                    *   FILE 760
//*                                                                 *   FILE 760
//*       TSOISPF  - PROC to allocate standard TSO and ISPF         *   FILE 760
//*                  datasets.                                      *   FILE 760
//*                                                                 *   FILE 760
//*     REXX    - REXX programs, EDIT macros.                       *   FILE 760
//*     =====================================                       *   FILE 760
//*                                                                 *   FILE 760
//*     Never, never, never run anything you have not examined!     *   FILE 760
//*     -------------------------------------------------------     *   FILE 760
//*                                                                 *   FILE 760
//*       ACEETRID - Follow control blocks to get your VTAM termid. *   FILE 760
//*                                                                 *   FILE 760
//*       AGE      - EDIT macro uses LMMCOPY to save the as-yet     *   FILE 760
//*                  unsaved member as a new name and keep ISPF     *   FILE 760
//*                  stats!                                         *   FILE 760
//*                                                                 *   FILE 760
//*       BATCHISP - Invoke ISPF and your application.              *   FILE 760
//*                                                                 *   FILE 760
//*       BUBLSORT - How to Bubble sort and entry in stem.          *   FILE 760
//*                                                                 *   FILE 760
//*       DDBYCBLK - Access allocated DDNAMEs by following control  *   FILE 760
//*                  blocks.                                        *   FILE 760
//*                                                                 *   FILE 760
//*       DDBYLSTA - Access allocated DDNAMEs by trapping LISTALC.  *   FILE 760
//*                                                                 *   FILE 760
//*       DDBYQLIB - Query if a DDNAME is allocated using ISPF      *   FILE 760
//*                  QBASELIB.                                      *   FILE 760
//*                                                                 *   FILE 760
//*       DDBYTSTR - REXX IVP code to test DDBYCBLK, DDBYLSTA, and  *   FILE 760
//*                  the poorly designed DDTRAP.                    *   FILE 760
//*                                                                 *   FILE 760
//*       DDTRAP   - Access DDNAMEs with a dataset by trapping      *   FILE 760
//*                  LISTALC.                                       *   FILE 760
//*                                                                 *   FILE 760
//*       HEX2OBJ  - Sample output from running OBJ2HEX against     *   FILE 760
//*                  an object deck. PDSLOAD in this instance.      *   FILE 760
//*                  The output from running this is a real         *   FILE 760
//*                  OBJECT deck suitable as input to IEWBLINK      *   FILE 760
//*                  (the linkage editor).                          *   FILE 760
//*                                                                 *   FILE 760
//*       HLQSPACE - Example of using ISPF LMDLIST to retrieve a    *   FILE 760
//*                  list of matching dataset names and summing     *   FILE 760
//*                  their space usage.                             *   FILE 760
//*                                                                 *   FILE 760
//*       IPCSIVP  - Invoke IPCS and demonstrate how to use         *   FILE 760
//*                  features of IPCS to do common activities.      *   FILE 760
//*                                                                 *   FILE 760
//*       JCLDSCB  - Retrieve data set control block information    *   FILE 760
//*                  and insert as comment lines.                   *   FILE 760
//*                                                                 *   FILE 760
//*       JOBCARD  - Insert a JOBCARD using an instream template.   *   FILE 760
//*                                                                 *   FILE 760
//*       OBJ2HEX  - Convert the input file into hexadecimal        *   FILE 760
//*                  format wrapped inside REXX code to be run on   *   FILE 760
//*                  the receiving end.                             *   FILE 760
//*                                                                 *   FILE 760
//*           OBJ2HEX is a REXX program that creates a self         *   FILE 760
//*           extracting REXX program with the input file           *   FILE 760
//*           embedded in comments. Each record of the input file   *   FILE 760
//*           is converted into two lines of printable data, in a   *   FILE 760
//*           format similar to ISPF HEX ON. This data is read by   *   FILE 760
//*           the self extracting program and converted back to     *   FILE 760
//*           the original values.                                  *   FILE 760
//*                                                                 *   FILE 760
//*           The self extracting program is comprised of           *   FILE 760
//*           standard characters, easily translated between        *   FILE 760
//*           EBCDIC and ASCII characters and back again.           *   FILE 760
//*                                                                 *   FILE 760
//*           This method might be used to accurately transport     *   FILE 760
//*           PTFs or object decks thru an ASCII system and back.   *   FILE 760
//*           It is not limited to binary data, you can use it on   *   FILE 760
//*           any type of data that might contain characters that   *   FILE 760
//*           require special conversion during file transfer.      *   FILE 760
//*                                                                 *   FILE 760
//*       PDS2UPDT - ISPF based command to append all members of    *   FILE 760
//*                  a PDS into a sequential IEBUPDTE stream with   *   FILE 760
//*                  ISPF stats on the control card, suitable for   *   FILE 760
//*                  PDSLOAD or REXUPDTE.                           *   FILE 760
//*                                                                 *   FILE 760
//*       PDS2XMIT - ISPF based front-end to the TRANSMIT           *   FILE 760
//*                  command. If run in the foreground it will      *   FILE 760
//*                  pop up a dynamically built panel allowing      *   FILE 760
//*                  overrides to the MESSAGES included in the      *   FILE 760
//*                  TRANSMIT file.                                 *   FILE 760
//*                                                                 *   FILE 760
//*       RACFINFO - Modified version of some Xephon published      *   FILE 760
//*                  code.  The enhancement (my opinion) removes    *   FILE 760
//*                  the GRINDD input file specifying CLASSES to    *   FILE 760
//*                  check. The output of a SETR LIST is trapped    *   FILE 760
//*                  and all ACTIVE classes are checked.            *   FILE 760
//*                                                                 *   FILE 760
//*       REXUPDTE - Read an IEBUPDTE stream and populate a PDS     *   FILE 760
//*                  preserving the ISPF statistics if present on   *   FILE 760
//*                  the control card.                              *   FILE 760
//*                                                                 *   FILE 760
//*       REXXUSS  - A sample IVP program to use several z/OS UNIX  *   FILE 760
//*                  features.                                      *   FILE 760
//*                                                                 *   FILE 760
//*       SDSFDISK - How to call SDSF from REXX to transfer JES2    *   FILE 760
//*                  output to a sequential disk file or pds        *   FILE 760
//*                  member.                                        *   FILE 760
//*                                                                 *   FILE 760
//*       TXT2STEM - Routine to parse a text string into stem       *   FILE 760
//*                  variables.  Real parsing, quoted text is a     *   FILE 760
//*                  single stem value.                             *   FILE 760
//*                                                                 *   FILE 760
//*       UPDREFDT - Use ISPF to touch datasets which causes the    *   FILE 760
//*                  last-reference date to be updated. Helps       *   FILE 760
//*                  prevent migrating datasets you want on DASD.   *   FILE 760
//*                                                                 *   FILE 760
//*       URLCHECK - Use TCP/IP Sockets to check if a url has       *   FILE 760
//*                  been updated since the last run. If so, add    *   FILE 760
//*                  it to a web page. This would be useful if      *   FILE 760
//*                  that web page was accessible to a web          *   FILE 760
//*                  server. This is a port of the PC based IBM     *   FILE 760
//*                  Object REXX code.                              *   FILE 760
//*                                                                 *   FILE 760
//*       VIEWHELP - Trap the output of a HELP command, write it    *   FILE 760
//*                  to disk, and then invoke VIEW so you can       *   FILE 760
//*                  scroll.                                        *   FILE 760
//*                                                                 *   FILE 760
//*       XMIT2PDS - Front end to RECEIVE, supplying an optional    *   FILE 760
//*                  output dataset name at the same time.          *   FILE 760
//*                                                                 *   FILE 760
//*       XYGRID   - Sample of using postive and negative           *   FILE 760
//*                  indexing to create a grid. Yes, you can use    *   FILE 760
//*                  negatives!                                     *   FILE 760
//*                                                                 *   FILE 760
//*     SHELL   - z/OS UNIX scripts.                                *   FILE 760
//*     ============================                                *   FILE 760
//*                                                                 *   FILE 760
//*     Never, never, never run anything you have not examined!     *   FILE 760
//*     -------------------------------------------------------     *   FILE 760
//*                                                                 *   FILE 760
//*       java5    - Sample of pre-pending the java5 sub-directory  *   FILE 760
//*                  names to the z/OS UNIX path.                   *   FILE 760
//*                                                                 *   FILE 760
//*     SKELS   - Just a place holder for now.                      *   FILE 760
//*     ======================================                      *   FILE 760
//*                                                                 *   FILE 760
//*     SRCLIB  - Assembler, COBOL, and other language source code. *   FILE 760
//*     =========================================================== *   FILE 760
//*                                                                 *   FILE 760
//*         HX2PR - Makes FB-80 Hex data printable in two lines     *   FILE 760
//*         PR2HX - Makes FB-80 Two Line printable data, into       *   FILE 760
//*                   one line Hex output                           *   FILE 760
//*                                                                 *   FILE 760
//*         HX2PR4 - Makes FB-80 Hex data printable in four lines   *   FILE 760
//*         PR42HX - Makes FB-80 Four Line printable data, into     *   FILE 760
//*                   one line Hex output                           *   FILE 760
//*                                                                 *   FILE 760
//*       --------------------------------------------------------  *   FILE 760
//*       Another system to do the conversion of the 80-byte card   *   FILE 760
//*       images to (the same) two lines of printable data. This    *   FILE 760
//*       consists of 2 Assembler programs.                         *   FILE 760
//*                                                                 *   FILE 760
//*       email: "Sam Golob"<sbgolob@cbttape.org>                   *   FILE 760
//*                                                                 *   FILE 760
//*       --------------------------------------------------------  *   FILE 760
//*                                                                 *   FILE 760
//*     Option:                                                     *   FILE 760
//*                                                                 *   FILE 760
//*       If you want clearer displayable output, you can have it   *   FILE 760
//*       in 4 lines instead of 2. The following 2 programs add     *   FILE 760
//*       a line of purely printable data, plus a "ruler line" just *   FILE 760
//*       the way the ISPF HEX display does it. To reconstitute     *   FILE 760
//*       the original binary card-image, the PR42HX will do that,  *   FILE 760
//*       by ignoring the first two of the four lines in the        *   FILE 760
//*       display.                                                  *   FILE 760
//*                                                                 *   FILE 760
//*  Example:  4-line output (should be continued to 80 bytes)      *   FILE 760
//*                                                                 *   FILE 760
//*   ESD            PDSLOAD                                        *   FILE 760
//*  ----+----1----+----2----+----3----+----4----+----5----+----6-- *   FILE 760
//*  0CEC444444014400DCEDDCC40000001A444444444444444444444444444444 *   FILE 760
//*  25240000000000017423614000000090000000000000000000000000000000 *   FILE 760
//*   TXT             00  PDSLOAD 20070529  ANY LRECL OUT:  1:F,V-> *   FILE 760
//*  ----+----1----+----2----+----3----+----4----+----5----+----6-- *   FILE 760
//*  0EEE4000440344004FF51DCEDDCC4FFFFFFFF44CDE4DDCCD4DEE744F7C6E66 *   FILE 760
//*  2373000000080001700417423614020070529001580395330643A001A6B50E *   FILE 760
//*                                                                 *   FILE 760
//*  Example:  2-line output (should be continued to 80 bytes)      *   FILE 760
//*                                                                 *   FILE 760
//*  0CEC444444014400DCEDDCC40000001A444444444444444444444444444444 *   FILE 760
//*  25240000000000017423614000000090000000000000000000000000000000 *   FILE 760
//*  0EEE4000440344004FF51DCEDDCC4FFFFFFFF44CDE4DDCCD4DEE744F7C6E66 *   FILE 760
//*  2373000000080001700417423614020070529001580395330643A001A6B50E *   FILE 760
//*                                                                 *   FILE 760
//*                                                                 *   FILE 760
//*     ZOSJCL  - Basic JCL examples.                               *   FILE 760
//*     =============================                               *   FILE 760
//*                                                                 *   FILE 760
//*       $$$INDEX - List of JCL templates included.                *   FILE 760
//*                                                                 *   FILE 760
//*     ZOSUTIL - An ever expanding collection of UTILITY jobs.     *   FILE 760
//*     =======================================================     *   FILE 760
//*                                                                 *   FILE 760
//*     Never, never, never run anything you have not examined!     *   FILE 760
//*                                                                 *   FILE 760
//*       $$$INDEX - List of UTILITY samples included.              *   FILE 760
//*                                                                 *   FILE 760
//*     -------------------------------------------------------     *   FILE 760
//*                                                                 *   FILE 760
//* =============================================================== *   FILE 760
//* =============================================================== *   FILE 760
//*                                                                 *   FILE 760
//***FILE 761 is from Mark Baron and contains several REXX execs    *   FILE 761
//*           which help you to find things on an MVS system.       *   FILE 761
//*           The name of the principal REXX exec, and the name     *   FILE 761
//*           of the package itself is FINDALL.                     *   FILE 761
//*                                                                 *   FILE 761
//*       email:  Mark Baron <msb1230@optonline.net>                *   FILE 761
//*                                                                 *   FILE 761
//*     Contents of this file:                                      *   FILE 761
//*                                                                 *   FILE 761
//*      FINDALL  - REXX EXEC to scan the user's ISPLLIB,           *   FILE 761
//*                 STEPLIB, the LPALIST, the LINKLIST, the         *   FILE 761
//*                 user's SYSPROC, and SYSEXEC concatenations      *   FILE 761
//*                 for the specified member.  Calling              *   FILE 761
//*                 sequence:                                       *   FILE 761
//*                                                                 *   FILE 761
//*                     FINDALL member {listtype}                   *   FILE 761
//*                             member is the program command       *   FILE 761
//*                                    CLIST or REXX to be          *   FILE 761
//*                                    located                      *   FILE 761
//*                             listtype is either the word         *   FILE 761
//*                                      SHORT (default) or         *   FILE 761
//*                                      LONG.  SHORT will          *   FILE 761
//*                                      display only the           *   FILE 761
//*                                      library containing an      *   FILE 761
//*                                      instance of member.        *   FILE 761
//*                                      LONG will display the      *   FILE 761
//*                                      entire list with the       *   FILE 761
//*                                      the status from SYSDSN.    *   FILE 761
//*                                                                 *   FILE 761
//*      FINDPAN  - REXX EXEC to scan the user's ISPPLIB            *   FILE 761
//*                 concatenation for the specified ISPF panel.     *   FILE 761
//*                 The calling sequence is the same as for         *   FILE 761
//*                 FINDALL.                                        *   FILE 761
//*                                                                 *   FILE 761
//*      FINDPARM - REXX EXEC to scan the system PARMLIB            *   FILE 761
//*                 concatenation for the specified parm member.    *   FILE 761
//*                 The parmlib concatenation is built from the     *   FILE 761
//*                 information stored in the IPA during IPL.       *   FILE 761
//*                 The calling sequence is the same as for         *   FILE 761
//*                 FINDALL.                                        *   FILE 761
//*                                                                 *   FILE 761
//*      FINDPROC - REXX EXEC to scan the JES2 PROCLIB              *   FILE 761
//*                 concatenation(s) for the specified PROC. The    *   FILE 761
//*                 proclib concatenation must be built manually    *   FILE 761
//*                 from the JES2 JCL since I was too lazy to       *   FILE 761
//*                 write code to go cross memory to JES2 to get    *   FILE 761
//*                 it from the $HCT.  (If anyone has some code     *   FILE 761
//*                 to do this, please feel free to share it        *   FILE 761
//*                 with me and I will incorporate it into the      *   FILE 761
//*                 EXEC.)The calling sequence is the same as       *   FILE 761
//*                 for FINDALL.                                    *   FILE 761
//*                                                                 *   FILE 761
//*      #FINDLPA - REXX EXEC subroutine to extract the LPALST      *   FILE 761
//*                 dataset names from the LPAT.  The LPA           *   FILE 761
//*                 libraries are not allocated except as might     *   FILE 761
//*                 occur for SYSDSN processing.  The EXEC is       *   FILE 761
//*                 written so as to function as either a           *   FILE 761
//*                 subroutine or as a main program.  If invoked    *   FILE 761
//*                 as a main program, it will stop at the first    *   FILE 761
//*                 occurrence of the target member and ask if      *   FILE 761
//*                 the user wants to continue scanning the rest    *   FILE 761
//*                 of the LPALST libraries.  The calling           *   FILE 761
//*                 sequence is the same as for FINDALL.            *   FILE 761
//*                                                                 *   FILE 761
//*      #FINDMOD - REXX EXEC subroutine to extract the LINKLIST    *   FILE 761
//*                 dataset names from the caller's Link List       *   FILE 761
//*                 Set.  The Link List libraries are not           *   FILE 761
//*                 allocated except as might occur for SYSDSN      *   FILE 761
//*                 processing.  The EXEC is written so as to       *   FILE 761
//*                 function as either a subroutine or as a main    *   FILE 761
//*                 program.  If invoked as a main program, it      *   FILE 761
//*                 will stop at the first occurrence of the        *   FILE 761
//*                 target member and ask if the user wants to      *   FILE 761
//*                 continue scanning the rest of the LPALST        *   FILE 761
//*                 libraries.  The calling sequence is the same    *   FILE 761
//*                 as for FINDALL.                                 *   FILE 761
//*                                                                 *   FILE 761
//*      #GENFIND - REXX EXEC subroutine to scan the output of      *   FILE 761
//*                 LISTA STA to find the target DDName             *   FILE 761
//*                 concatenation and then to scan for the          *   FILE 761
//*                 target member.  Calling sequence:               *   FILE 761
//*                    #GENFIND ddname member {listtype}            *   FILE 761
//*                             ddname is the target                *   FILE 761
//*                             concatenation                       *   FILE 761
//*                             member is the element to be         *   FILE 761
//*                             located                             *   FILE 761
//*                             listtype is either the word         *   FILE 761
//*                                      SHORT (default) or         *   FILE 761
//*                                      LONG.  SHORT will          *   FILE 761
//*                                      display only the           *   FILE 761
//*                                      library containing an      *   FILE 761
//*                                      instance of member.        *   FILE 761
//*                                      LONG will display the      *   FILE 761
//*                                      entire list with the       *   FILE 761
//*                                      the status from SYSDSN.    *   FILE 761
//*                                                                 *   FILE 761
//*      #SYSID   - REXX EXEC subroutine extract the System name    *   FILE 761
//*                 from CVTSNAME.  If called as subroutine, it     *   FILE 761
//*                 will simply return the system name.  If         *   FILE 761
//*                 called as a standalone commands is will         *   FILE 761
//*                 display it.  There are no parms in the          *   FILE 761
//*                 calling sequence                                *   FILE 761
//*                                                                 *   FILE 761
//*      $$README - A short note about compatibility.               *   FILE 761
//*                                                                 *   FILE 761
//*      $INSTALL - A note on where to put these things in order    *   FILE 761
//*                 to run them.                                    *   FILE 761
//*                                                                 *   FILE 761
//*      Mark Baron - msb1230@optonline.net                         *   FILE 761
//*                                                                 *   FILE 761
//***FILE 762 is from Ken Tomiak and contains information about     *   FILE 762
//*           special DD names which are connected with either IBM  *   FILE 762
//*           products, or OEM products for z/OS (i.e. MVS).  This  *   FILE 762
//*           is a very useful list to have.  Anybody who wishes    *   FILE 762
//*           to add to this list is welcome to do so.  Please      *   FILE 762
//*           contact:                                              *   FILE 762
//*                                                                 *   FILE 762
//*           email:  Kenneth Tomiak <KET@KTomiak.COM>              *   FILE 762
//*                                                                 *   FILE 762
//*           There is also a general section about JCL, which is   *   FILE 762
//*           in member MVSCPJCL, and which can be converted into   *   FILE 762
//*           a pds using the $PDSLOAD jobstream and the PDSLOAD    *   FILE 762
//*           load module member (in TSO XMIT format).  This JCL    *   FILE 762
//*           information was collected as a part of the SHARE      *   FILE 762
//*           MVS SCP group effort.                                 *   FILE 762
//*                                                                 *   FILE 762
//***FILE 763 is collection of utilities from various authors to    *   FILE 763
//*           convert 80-byte card-image hex data, such as a PTF    *   FILE 763
//*           or an object deck, to two lines of printable code,    *   FILE 763
//*           per line of data.  And of course, there's another     *   FILE 763
//*           conversion program, to convert all the printable      *   FILE 763
//*           data back to hex.  This file has been moved.  It      *   FILE 763
//*           was originally File 760.                              *   FILE 763
//*                                                                 *   FILE 763
//*     OBJ2HEX    -   ORIGINAL REXX CODE BY KENNETH TOMIAK         *   FILE 763
//*                                                                 *   FILE 763
//*       email:   cbt_ken@KTomiak.biz                              *   FILE 763
//*                                                                 *   FILE 763
//*           OBJ2HEX is a REXX program that creates a self         *   FILE 763
//*           extracting rexx program with the input file           *   FILE 763
//*           embedded in comments. Each record of the input file   *   FILE 763
//*           is converted into two lines of printable data, in a   *   FILE 763
//*           format similar to ISPF HEX ON. This data is read by   *   FILE 763
//*           the self extracting program and converted back to     *   FILE 763
//*           the original values.                                  *   FILE 763
//*                                                                 *   FILE 763
//*           The self extracting program is comprised of standard  *   FILE 763
//*           characters, easily translated between EBCDIC and      *   FILE 763
//*           ASCII characters and back again.                      *   FILE 763
//*                                                                 *   FILE 763
//*           This method might be used to accurately transport     *   FILE 763
//*           PTFs or object decks thru an ASCII system and back.   *   FILE 763
//*           It is not limited to binary data, you can use it on   *   FILE 763
//*           any type of data that might contain characters that   *   FILE 763
//*           require special conversion during file transfer.      *   FILE 763
//*                                                                 *   FILE 763
//*       SAMPJCL - Sample JCL that shows multiple ways to run      *   FILE 763
//*                 OBJ2HEX to read a PDS member, in this example   *   FILE 763
//*                 an object deck for PDSLOAD. Then two ways to    *   FILE 763
//*                 run the self extracting REXX program.           *   FILE 763
//*                                                                 *   FILE 763
//*     ---------------------------------------------------------   *   FILE 763
//*                                                                 *   FILE 763
//*     Another system to do the conversion of the 80-byte card     *   FILE 763
//*     images to (the same) two lines of printable data.  This     *   FILE 763
//*     consists of 2 Assembler programs.                           *   FILE 763
//*                                                                 *   FILE 763
//*     HX2PR      -   From Sam Golob (by way of CKIEBGEN program)  *   FILE 763
//*     PR2HX      -   From Sam Golob (by way of CKIEBGEN program)  *   FILE 763
//*                                                                 *   FILE 763
//*   Option:                                                       *   FILE 763
//*                                                                 *   FILE 763
//*     If you want clearer displayable output, you can have it     *   FILE 763
//*     in 4 lines instead of 2.  The following 2 programs add      *   FILE 763
//*     a line of purely printable data, plus a "ruler line" just   *   FILE 763
//*     the way the ISPF HEX display does it.  To reconstitute      *   FILE 763
//*     the original binary card-image, the PR42HX will do that,    *   FILE 763
//*     by ignoring the first two of the four lines in the display. *   FILE 763
//*                                                                 *   FILE 763
//*     HX2PR4     -   From Sam Golob (by way of CKIEBGEN program)  *   FILE 763
//*     PR42HX     -   From Sam Golob (by way of CKIEBGEN program)  *   FILE 763
//*                                                                 *   FILE 763
//*  Example:  4-line output (should be continued to 80 bytes)      *   FILE 763
//*                                                                 *   FILE 763
//*   ESD            PDSLOAD                                        *   FILE 763
//*  ----+----1----+----2----+----3----+----4----+----5----+----6-- *   FILE 763
//*  0CEC444444014400DCEDDCC40000001A444444444444444444444444444444 *   FILE 763
//*  25240000000000017423614000000090000000000000000000000000000000 *   FILE 763
//*   TXT             00  PDSLOAD 20070529  ANY LRECL OUT:  1:F,V-> *   FILE 763
//*  ----+----1----+----2----+----3----+----4----+----5----+----6-- *   FILE 763
//*  0EEE4000440344004FF51DCEDDCC4FFFFFFFF44CDE4DDCCD4DEE744F7C6E66 *   FILE 763
//*  2373000000080001700417423614020070529001580395330643A001A6B50E *   FILE 763
//*                                                                 *   FILE 763
//*  Example:  2-line output (should be continued to 80 bytes)      *   FILE 763
//*                                                                 *   FILE 763
//*  0CEC444444014400DCEDDCC40000001A444444444444444444444444444444 *   FILE 763
//*  25240000000000017423614000000090000000000000000000000000000000 *   FILE 763
//*  0EEE4000440344004FF51DCEDDCC4FFFFFFFF44CDE4DDCCD4DEE744F7C6E66 *   FILE 763
//*  2373000000080001700417423614020070529001580395330643A001A6B50E *   FILE 763
//*                                                                 *   FILE 763
//*       email:  sbgolob@cbttape.org                               *   FILE 763
//*                                                                 *   FILE 763
//*       HX2PR  -  Makes FB-80 Hex data printable in two lines     *   FILE 763
//*       PR2HX  -  Makes FB-80 Two Line printable data, into       *   FILE 763
//*                 one line Hex output                             *   FILE 763
//*                                                                 *   FILE 763
//*       HX2PR4 -  Makes FB-80 Hex data printable in four lines    *   FILE 763
//*       PR42HX -  Makes FB-80 Four Line printable data, into      *   FILE 763
//*                 one line Hex output                             *   FILE 763
//*                                                                 *   FILE 763
//*       HX2PR$1  - Sample JCL to run the Assembler program and    *   FILE 763
//*                  create the 2-line hex printable output.        *   FILE 763
//*       PR2HX$1  - Sample JCL to run the Assembler program and    *   FILE 763
//*                  create the 1 line character data output.       *   FILE 763
//*                                                                 *   FILE 763
//*       HX2PR4$1 - Sample JCL to run the Assembler program and    *   FILE 763
//*                  create the 4-line hex printable output.        *   FILE 763
//*       PR42HX$1 - Sample JCL to run the Assembler program and    *   FILE 763
//*                  create the 1 line character data output.       *   FILE 763
//*                                                                 *   FILE 763
//*     ---------------------------------------------------------   *   FILE 763
//*                                                                 *   FILE 763
//*     PDSLOAD    -   ORIGINAL PROGRAM FROM FILE 093               *   FILE 763
//*                                                                 *   FILE 763
//*       A sample object deck, (for the very useful IEBUPDTE-like  *   FILE 763
//*       program called PDSLOAD - CBT Tape File 093), has been     *   FILE 763
//*       included here to test the system.  Sample output from     *   FILE 763
//*       the SAMPJCL job is also included here.  These are members *   FILE 763
//*       PDSLOAD@, PDSLOAD#, and PDSLOAD$.                         *   FILE 763
//*                                                                 *   FILE 763
//*       More about the PDSLOAD program itself ---                 *   FILE 763
//*                                                                 *   FILE 763
//*       PDSLOAD will load a pds with members, starting from an    *   FILE 763
//*       IEBUPDTE-like sequential dataset, but it is possible to   *   FILE 763
//*       preserve ISPF statistics too.  See the layout below.      *   FILE 763
//*                                                                 *   FILE 763
//*       If you want to linkedit the PDSLOAD object deck to use    *   FILE 763
//*       the program for yourself, the LINK job is also included.  *   FILE 763
//*                                                                 *   FILE 763
//*       If you want to run the PDSLOAD program, the PDSLOJCL      *   FILE 763
//*       sample JCL, which makes a pds out of an IEBUPDTE-like     *   FILE 763
//*       ./ ADD NAME=memname                                       *   FILE 763
//*       input deck, provides a sample job.  Input to the PDSLOAD  *   FILE 763
//*       sample job is the SHOWMACS member.                        *   FILE 763
//*                                                                 *   FILE 763
//*     ---------------------------------------------------------   *   FILE 763
//*                                                                 *   FILE 763
//*   Illustration of the layout of an ./ ADD NAME= card, input     *   FILE 763
//*    to PDSLOAD, which preserves the stated ISPF statistics:      *   FILE 763
//*    (This layout is produced by the OFFLOAD program in CBT       *   FILE 763
//*    Tape File 093.)                                              *   FILE 763
//*                                                                 *   FILE 763
//*  1       10        20        30        40        50        60   *   FILE 763
//*  +---+----+----+----+----+----+----+----+----+----+----+----+   *   FILE 763
//*  ./ ADD NAME=$$$#DATE 0474-07151-07151-0941-00012-00012-00000   *   FILE 763
//*              membname vvmm crdat moddt time size  init  modif   *   FILE 763
//*                                                                 *   FILE 763
//*      50        60                                               *   FILE 763
//*      -+----+----+----+---    (ISPF stats are optional)          *   FILE 763
//*      -00012-00000-CBT-474                                       *   FILE 763
//*                   userid                                        *   FILE 763
//*                                                                 *   FILE 763
//*     ---------------------------------------------------------   *   FILE 763
//*                                                                 *   FILE 763
//*     SHOWMACS - Included to make this file self-contained.       *   FILE 763
//*                                                                 *   FILE 763
//*       This is a macro library that documents the layout of      *   FILE 763
//*       many undocumented IBM control blocks.  Many of these      *   FILE 763
//*       layouts were figured out by guesswork.  This version      *   FILE 763
//*       of SHOWMACS comes from CBT Tape File 492, and it          *   FILE 763
//*       corresponds to Version 7.15 of the SHOWzOS program.       *   FILE 763
//*       (Thanks to Gilbert Saint-flour, Roland Schiradin,         *   FILE 763
//*       and many others, for doing the research necessary.)       *   FILE 763
//*                                                                 *   FILE 763
//***FILE 764 is from Alex Kara and contains a collection of some   *   FILE 764
//*           of his utilities.                                     *   FILE 764
//*                                                                 *   FILE 764
//*           email:  alex@karapens.com                             *   FILE 764
//*                                                                 *   FILE 764
//*       Member XMEMSTOR is a separate pds, packaged in PDSLOAD    *   FILE 764
//*       format.  To create the pds from this member, please run   *   FILE 764
//*       the JCL in member $PDSLOAD, after you've customized it    *   FILE 764
//*       for your installation and your dataset names.             *   FILE 764
//*                                                                 *   FILE 764
//*       Please see member $$NOTE1 for the contributor's intro-    *   FILE 764
//*       duction to this package.                                  *   FILE 764
//*                                                                 *   FILE 764
//*                                                                 *   FILE 764
//***FILE 765 is from Stephen Odo and contains a home-grown forms   *   FILE 765
//*           based authentication system for the IBM HTTP Server   *   FILE 765
//*           for z/OS.  The following information describes this   *   FILE 765
//*           system:                                               *   FILE 765
//*                                                                 *   FILE 765
//*           Forms-based Authentication for the                    *   FILE 765
//*              IBM HTTP Server for z/OS                           *   FILE 765
//*              ------------------------                           *   FILE 765
//*                                                                 *   FILE 765
//*     This is something I wrote to do forms-based                 *   FILE 765
//*     authentication with the HTTP server for z/OS (the           *   FILE 765
//*     one that comes free with z/OS).                             *   FILE 765
//*                                                                 *   FILE 765
//*     It's not very polished. And it's kinda slow.  It's          *   FILE 765
//*     really just a proof-of-concept thing that never went        *   FILE 765
//*     much further.  But I hope it is useful to somebody.         *   FILE 765
//*                                                                 *   FILE 765
//*     This REXX program and some supporting PL/I programs         *   FILE 765
//*     implement forms-based authentication for the IBM HTTP       *   FILE 765
//*     Server for z/OS.                                            *   FILE 765
//*                                                                 *   FILE 765
//*     We're a poor, State-run, academic institution so we         *   FILE 765
//*     can't afford to buy expensive software like the             *   FILE 765
//*     Websphere Application Server where such things as           *   FILE 765
//*     forms-based authentication are built-in (I don't know       *   FILE 765
//*     if it is or not, but was told that was the case).           *   FILE 765
//*                                                                 *   FILE 765
//*     We have the HTTP server that comes as part of the base      *   FILE 765
//*     z/OS system. But, being that we are an academic             *   FILE 765
//*     institution, our network tends to be open to to just        *   FILE 765
//*     about anybody and our customers need to be able to          *   FILE 765
//*     access our systems from around the world. For us, it's      *   FILE 765
//*     important that we have a secure (i.e. encrypted) login      *   FILE 765
//*     process.                                                    *   FILE 765
//*                                                                 *   FILE 765
//*     Also, many of our customers utilize two-factor              *   FILE 765
//*     authentication tokens such as RSA's SecurID tokens or       *   FILE 765
//*     PassGo Technology's DigiPass tokens. We needed an           *   FILE 765
//*     authentication mechanism that took that into account.       *   FILE 765
//*                                                                 *   FILE 765
//*     This program runs as a GWAPI/REXX pre-exit.                 *   FILE 765
//*                                                                 *   FILE 765
//*     To use this program, edit your HTTP server's                *   FILE 765
//*     configuration file.  On my system, it is                    *   FILE 765
//*     /etc/httpd.conf (I think that's the default).  Assuming     *   FILE 765
//*     that you copied the REXX program to directory /myGWAPI,     *   FILE 765
//*     define the program as a pre-exit:                           *   FILE 765
//*                                                                 *   FILE 765
//*       PreExit /usr/lpp/internet                                 *   FILE 765
//*       /bin/IMWX00.so:IMWX00/myGWAPI/RACFauthR.rx                *   FILE 765
//*                                                                 *   FILE 765
//*     I don't know if it's necessary or not, but we defined       *   FILE 765
//*     protection directives for the applications that will be     *   FILE 765
//*     authenticating -- we were originally using BASIC            *   FILE 765
//*     authentication and never took out the directives.  In       *   FILE 765
//*     case this thing needs it, I figured I'd better let you      *   FILE 765
//*     know what we had:                                           *   FILE 765
//*                                                                 *   FILE 765
//*       Protection ITS_User {                                     *   FILE 765
//*               ServerId        ITS_User                          *   FILE 765
//*               AuthType        Basic                             *   FILE 765
//*               PasswdFile      %%SAF%%                           *   FILE 765
//*               Mask            All                               *   FILE 765
//*       }                                                         *   FILE 765
//*     Protect /MVSDS*         ITS_User %%CLIENT%%                 *   FILE 765
//*     Protect /RACFmaint*     ITS_User %%CLIENT%%                 *   FILE 765
//*                                                                 *   FILE 765
//*     Service /MVSDS*     /usr/lpp/internet/bin                   *   FILE 765
//*     /mvsds.so:mvsdsGet*                                         *   FILE 765
//*                                                                 *   FILE 765
//*     Service /RACFmaint* /usr/lpp/internet/bin                   *   FILE 765
//*     /IMWX00.so:IMWX00/myGWAPI/RACFmaint.rx                      *   FILE 765
//*                                                                 *   FILE 765
//*     The PL/I programs are compiled and linked into a load       *   FILE 765
//*     library that is in the HTTP server's STEPLIB. We're         *   FILE 765
//*     using the IBM Enterprise PL/I for z/OS v3r4 compiler.       *   FILE 765
//*     We also had to do                                           *   FILE 765
//*                                                                 *   FILE 765
//*       RDEFINE PROGRAM **                                        *   FILE 765
//*       ADDMEM('MY.IMWLOAD'//NOPADCHK) UACC(READ)                 *   FILE 765
//*     for the load library.                                       *   FILE 765
//*                                                                 *   FILE 765
//*     I didn't include our stylesheets and images because I       *   FILE 765
//*     don't think anybody would be interested in using them.      *   FILE 765
//*     The stylesheets I use were set up as an inside joke --      *   FILE 765
//*     our web applications still look like "green screen"         *   FILE 765
//*     3270 stuff (see the screenshot.jpg).                        *   FILE 765
//*                                                                 *   FILE 765
//*     I hope this is useful to somebody.                          *   FILE 765
//*                                                                 *   FILE 765
//*     -- Stephen                                                  *   FILE 765
//*                                                                 *   FILE 765
//*     Stephen Y Odo                                               *   FILE 765
//*     Sr Systems Programmer                                       *   FILE 765
//*     University of Hawai'i Information Technology Services       *   FILE 765
//*     2565 McCarthy Mall                                          *   FILE 765
//*     Keller Hall, Room 102A                                      *   FILE 765
//*     Honolulu, HI  96822                                         *   FILE 765
//*     (808)956-2383                                               *   FILE 765
//*     Stephen@Hawaii.Edu                                          *   FILE 765
//*                                                                 *   FILE 765
//***FILE 766 is from Stephen McColley and contains the Mellon      *   FILE 766
//*           Mods for z/OS 1.7 and 1.8.  These are not called      *   FILE 766
//*           the Mellon Mods anymore, because Mellon Bank has      *   FILE 766
//*           long since stopped supporting them.  But Stephen      *   FILE 766
//*           McColley and his colleagues at SunTrust Bank do the   *   FILE 766
//*           support now.  See their explanations below.           *   FILE 766
//*                                                                 *   FILE 766
//*           McColley Systems Group Inc.                           *   FILE 766
//*           sgmccolley@windstream.net                             *   FILE 766
//*           SGMcColley@MVSProgrammer.com                          *   FILE 766
//*           http://WWW.MVSProgrammer.com                          *   FILE 766
//*           770-335-0478                                          *   FILE 766
//*                                                                 *   FILE 766
//*     --------------------------------------------------------    *   FILE 766
//*                                                                 *   FILE 766
//*                SSSS H   H  AAA  RRRR  EEEEE DDDD                *   FILE 766
//*               S     H   H A   A R   R E     D   D               *   FILE 766
//*                SSS  HHHHH AAAAA RRRR  EEEE  D   D               *   FILE 766
//*                   S H   H A   A R  R  E     D   D               *   FILE 766
//*               SSSS  H   H A   A R   R EEEEE DDDD                *   FILE 766
//*                                                                 *   FILE 766
//*                   SSSS PPPP   OOO   OOO  L                      *   FILE 766
//*                  S     P   P O   O O   O L                      *   FILE 766
//*                   SSS  PPPP  O   O O   O L                      *   FILE 766
//*                      S P     O   O O   O L                      *   FILE 766
//*                  SSSS  P      OOO   OOO  LLLLL                  *   FILE 766
//*                                                                 *   FILE 766
//*                     M   M  OOO  DDDD   SSSS                     *   FILE 766
//*                     MM MM O   O D   D S                         *   FILE 766
//*                     M M M O   O D   D  SSS                      *   FILE 766
//*                     M   M O   O D   D     S                     *   FILE 766
//*                     M   M  OOO  DDDD  SSSS                      *   FILE 766
//*                                                                 *   FILE 766
//*                    for jes2 1.7 and jes2 1.8                    *   FILE 766
//*                                                                 *   FILE 766
//*     --------------------------------------------------------    *   FILE 766
//*                                                                 *   FILE 766
//*     DISCLAIMER -                                                *   FILE 766
//*                                                                 *   FILE 766
//*         THE MODS ON THIS TAPE HAVE BEEN USED SUCCESSFULLY       *   FILE 766
//*      AND TO THE BEST OF OUR KNOWLEDGE THEY ARE OPERATIONAL,     *   FILE 766
//*      HOWEVER NO WARRANTY IS MADE TO THE ACCURACY OF THE MODS    *   FILE 766
//*      AND NO RESPONSIBILITY IS ASSUMED FOR ANY MODIFICATION      *   FILE 766
//*      DIRECTLY OR INDIRECTLY CAUSED BY THE USE OF THE            *   FILE 766
//*      MODIFICATIONS.  IT IS THE USERS RESPONSIBILITY TO          *   FILE 766
//*      EVALUATE THE USEFULLNESS OF THE MATERIAL.                  *   FILE 766
//*                                                                 *   FILE 766
//*         WE DO NOT GUARANTEE TO KEEP ANY MATERIAL PROVIDED UP    *   FILE 766
//*      TO DATE, NOR DO WE GUARANTEE TO PROVIDE ANY CORRECTIONS    *   FILE 766
//*      OR EXTENSIONS MADE IN THE FUTURE.                          *   FILE 766
//*                                                                 *   FILE 766
//*     --------------------------------------------------------    *   FILE 766
//*                                                                 *   FILE 766
//*      This is the installation PDS for the Shared Spool Mods     *   FILE 766
//*      for jes2 1.7 and jes2 1.8.  The shared spool mods were     *   FILE 766
//*      formerly known as the Mellon shared spool mods.            *   FILE 766
//*                                                                 *   FILE 766
//*      All who use the shared spool mods owe a debt of gratitude  *   FILE 766
//*      to Mellon Bank for the original implementaion of the       *   FILE 766
//*      shared spool mods, but because it has been maintained      *   FILE 766
//*      outside of Mellon for a dozen years, and has been          *   FILE 766
//*      rewritten twice since then, we will refer to the mods as   *   FILE 766
//*      the SHARED SPOOL MODS from now on.  Once again -           *   FILE 766
//*                           THANK YOU MELLON BANK !               *   FILE 766
//*                                                                 *   FILE 766
//*     --------------------------------------------------------    *   FILE 766
//*                                                                 *   FILE 766
//*       In this PDS you should find the following members.        *   FILE 766
//*                                                                 *   FILE 766
//*     @@README -   That is this member, you are reading it.       *   FILE 766
//*                                                                 *   FILE 766
//*     DISCLAIM -   Our standard disclaimer - we guarantee /       *   FILE 766
//*                  warrant nothing!                               *   FILE 766
//*                                                                 *   FILE 766
//*     SSMINSTP -   Shared Spool Mods installation manual -        *   FILE 766
//*                  PDF format                                     *   FILE 766
//*                                                                 *   FILE 766
//*     SSMINSTW -   Shared Spool Mods installation manual -        *   FILE 766
//*                  Word Document                                  *   FILE 766
//*                                                                 *   FILE 766
//*     SSMUSERP -   Shared Spool Mods Users Guide - PDF format     *   FILE 766
//*                                                                 *   FILE 766
//*     SSMUSERW -   Shared Spool Mods Users Buide - Word           *   FILE 766
//*                  Document                                       *   FILE 766
//*                                                                 *   FILE 766
//*     SSMOPSGP -   Shared Spool Mods Operations Guide - PDF       *   FILE 766
//*                  format                                         *   FILE 766
//*                                                                 *   FILE 766
//*     SSMOPSGW -   Shared Spool Mods Operations Guide - Word      *   FILE 766
//*                  Document                                       *   FILE 766
//*                                                                 *   FILE 766
//*     LSES500  -   THE Single usermod needed to install the       *   FILE 766
//*                  entire package.                                *   FILE 766
//*                                                                 *   FILE 766
//*     LSES501 and LSES502  -  Required fixes for LSES500.         *   FILE 766
//*                  Added later by Steve McColley.                 *   FILE 766
//*                                                                 *   FILE 766
//*     LSES500J -   Sample JCL to run the RECEIVE / APPLY          *   FILE 766
//*                  Check / APPLY                                  *   FILE 766
//*                                                                 *   FILE 766
//*     JES2PARM -   Sample JES2 parms needed to implement the      *   FILE 766
//*                  package.                                       *   FILE 766
//*                                                                 *   FILE 766
//*     *** Then we have the following three members - They are     *   FILE 766
//*     *** not really part of the shared spool mods - but we       *   FILE 766
//*     *** have been distributing them, and some folks still       *   FILE 766
//*     *** need them.  If you want to use these, you will have     *   FILE 766
//*     *** to apply them separately from the shared spool mods     *   FILE 766
//*     *** - we just have the source - they are not setup as       *   FILE 766
//*     *** usermods.                                               *   FILE 766
//*                                                                 *   FILE 766
//*     STSCX01A -   our version of the page seperator exit.        *   FILE 766
//*                  (not part of ssm's)                            *   FILE 766
//*                                                                 *   FILE 766
//*     STSCX05B -   Prevent purging by job range. (not part of     *   FILE 766
//*                  ssm's)                                         *   FILE 766
//*                                                                 *   FILE 766
//*     STSCX15A -   Causes FCBs to be reload with each job         *   FILE 766
//*                  unless std forms.                              *   FILE 766
//*                                                                 *   FILE 766
//*     STSCx36A -   SAF processing for jobs coming in from         *   FILE 766
//*                  RJE/NJE sources.                               *   FILE 766
//*                                                                 *   FILE 766
//*       The documentation members suffixed with a 'P' i.e.        *   FILE 766
//*     SSMINSTP are PDF format documents.  To use them you         *   FILE 766
//*     will need to transfer them to a PC using your favorite      *   FILE 766
//*     file transfer program using a BINARY option - ie.  no       *   FILE 766
//*     translation.  You will probably need to make sure they      *   FILE 766
//*     are transferred to a new file name that ends in ".PDF",     *   FILE 766
//*     or you may not be able to read them.                        *   FILE 766
//*                                                                 *   FILE 766
//*       If you can not read PDF docs the original "WORD"          *   FILE 766
//*     formatted docs are included in the members suffixed         *   FILE 766
//*     with a W i.e. SSMINSTW.  You will probably need to          *   FILE 766
//*     offload them to a PC file with a suffix of DOC to read      *   FILE 766
//*     them properly.                                              *   FILE 766
//*                                                                 *   FILE 766
//*       The three basic pieces of documentation are -             *   FILE 766
//*                                                                 *   FILE 766
//*     1 The installation guide - gives background,                *   FILE 766
//*       installation instructions, and other information          *   FILE 766
//*       needed to setup the package.                              *   FILE 766
//*                                                                 *   FILE 766
//*     2 The Users Guide - gives detailed info on JECL             *   FILE 766
//*       statements and is aimed at the end users - whoever        *   FILE 766
//*       codes and uses JCL.                                       *   FILE 766
//*                                                                 *   FILE 766
//*     3 The Operations Guide - gives detailed informatin          *   FILE 766
//*       about all of the   , new JES2 display and modify          *   FILE 766
//*       commands avaialable with the package.                     *   FILE 766
//*                                                                 *   FILE 766
//*       Once you have the package set up - please drop me a       *   FILE 766
//*        line at:                                                 *   FILE 766
//*                                                                 *   FILE 766
//*                SGMCCOLLEY@ALLTEL.NET  or                        *   FILE 766
//*        STEPHEN.MCCOLLEY@SUNTRUST.BANK so that                   *   FILE 766
//*                                                                 *   FILE 766
//*       I can add you to the mailing list.  That way I can        *   FILE 766
//*       let you know about bugs, fixes, and new releases as I     *   FILE 766
//*       make the avaialable.                                      *   FILE 766
//*                                                                 *   FILE 766
//*       If you drop me your real mailing address, I will send     *   FILE 766
//*       you a "Shared Spool Mods" coffee cup.                     *   FILE 766
//*                                                                 *   FILE 766
//***FILE 767 is from Daniel Gaeta and contains frontend REXX       *   FILE 767
//*           execs to invoke TRSMAIN both in terse and unterse     *   FILE 767
//*           mode.  Please see the explanation below.              *   FILE 767
//*                                                                 *   FILE 767
//*     Daniel Gaeta                                                *   FILE 767
//*     email:  dfgaeta@br.ibm.com                                  *   FILE 767
//*                                                                 *   FILE 767
//*     -------------------------------------------------------     *   FILE 767
//*                                                                 *   FILE 767
//*     TPACK and TUNPACK                                           *   FILE 767
//*                                                                 *   FILE 767
//*     Recently I needed to save space in my MVS dasds and I       *   FILE 767
//*     was using TRSMAIN utility. In most of cases I submitted     *   FILE 767
//*     some JCLs.  After a lot of submission I used my know-how    *   FILE 767
//*     in REXX language and developed two small tools.             *   FILE 767
//*     Basically TPACK and TUNPACK, just a front-end for this      *   FILE 767
//*     utility.                                                    *   FILE 767
//*                                                                 *   FILE 767
//*     This utility uses some information included in TERSE        *   FILE 767
//*     dataset header.  Checking header data I can define what     *   FILE 767
//*     will be the DSORG and RECFM for output untersed file.       *   FILE 767
//*                                                                 *   FILE 767
//*     Both tools can be used informing just one parameter and     *   FILE 767
//*     they invoke TRSMAIN utility.  (Please, change the           *   FILE 767
//*     current library if different!)  For TPACK, you can use      *   FILE 767
//*     TPACK 'indataset' 'outdataset' For TUNPACK, you can use     *   FILE 767
//*     TUNPACK 'indataset' 'outdataset'                            *   FILE 767
//*                                                                 *   FILE 767
//*     This tool can be interesting when you use with ISPF         *   FILE 767
//*     option 3.4, in order to don't forget to concat in           *   FILE 767
//*     SYSPROC.                                                    *   FILE 767
//*                                                                 *   FILE 767
//*     Sample :                                                    *   FILE 767
//*                                                                 *   FILE 767
//*        Menu  Options  View  Utilities  Compilers  Help          *   FILE 767
//*      ssssssssssssssssssssssssssssssssssssssssssssssssssss       *   FILE 767
//*      DSLIST - Data Sets Matching SYS1                           *   FILE 767
//*      Command ===>                                               *   FILE 767
//*                                                                 *   FILE 767
//*      Command - Enter "/" to select action                       *   FILE 767
//*      ------------------------------------------------------     *   FILE 767
//*      tpack    SYS1.CIDTABL                                      *   FILE 767
//*        or     SYS1.CLIST                                        *   FILE 767
//*      tunpack  SYS1.CMDLIB                                       *   FILE 767
//*               SYS1.COB2LIB                                      *   FILE 767
//*               SYS1.COMMDS                                       *   FILE 767
//*                                                                 *   FILE 767
//***FILE 768 is from Rick Bourgeois, and contains an adaptation    *   FILE 768
//*           of the "real tape to AWS tape" and vice-versa         *   FILE 768
//*           facilities, from File 533, to run under CMS.  The     *   FILE 768
//*           following is a description of this package.  The      *   FILE 768
//*           package also includes Sam Golob's utilities to        *   FILE 768
//*           convert real tape to FLEX-ES (R) Faketape, and        *   FILE 768
//*           vice-versa.                                           *   FILE 768
//*                                                                 *   FILE 768
//*           email:  rick@vsoftsys.com                             *   FILE 768
//*                                                                 *   FILE 768
//*     VTT2 AWSTAPE and FAKETAPE                                   *   FILE 768
//*     Real tape conversion utilities                              *   FILE 768
//*                                                                 *   FILE 768
//*     This package updates Sam Golob's REAL tape to AWSTAPE       *   FILE 768
//*     or FAKETAPE and AWSTAPE or FAKETAPE to REAL tape MVS        *   FILE 768
//*     package to run under CMS or MVS.                            *   FILE 768
//*                                                                 *   FILE 768
//*     Updated by Rick Bourgeois - rick@vsoftsys.com This file     *   FILE 768
//*     is included in the VTT2EXEC FILES file as VTT2CMS DOC.      *   FILE 768
//*                                                                 *   FILE 768
//*     For additional information on Sam's package see             *   FILE 768
//*     CBT Tape File 533.                                          *   FILE 768
//*                                                                 *   FILE 768
//*     The changes to Sam's code that allow his programs to        *   FILE 768
//*     run under CMS or MVS were done using conditional assembly   *   FILE 768
//*     code.  A VTTEQUAT copy file was created and contains a      *   FILE 768
//*     &RUNSYS variable that is used to identify the target        *   FILE 768
//*     system.  The &RUNSYS variable can be coded as 'O/S' or      *   FILE 768
//*     'CMS' and the copy file must be in the maclib used for      *   FILE 768
//*     the assemblies.  It specifies 'CMS' in this                 *   FILE 768
//*     distribution so must be changed for MVS assemblies.         *   FILE 768
//*     The VTTEQUAT copy file also contains the register           *   FILE 768
//*     equates, version variable and default chunk size used       *   FILE 768
//*     when creating AWSTAPE or FAKETAPE disk files.               *   FILE 768
//*                                                                 *   FILE 768
//*     There are 8 members in this file.                           *   FILE 768
//*                                                                 *   FILE 768
//*     1. IEBUPDAP EXEC  - Create an append file                   *   FILE 768
//*     2. IEBUPDEX EXEC  - Extract files from an append file       *   FILE 768
//*     3. VTT2EXEC FILES - CMS EXEC files                          *   FILE 768
//*     4. VTT2JCL  FILES - MVS JCL files                           *   FILE 768
//*     5. VTT2SRCE FILES - Assembler source and copy files         *   FILE 768
//*     6. VTT2DOC  FILES - Sam's documentation files               *   FILE 768
//*     7. VTT2TEST FILES - Two test files from Sam's download      *   FILE 768
//*     8. VTT2TEXT FILES - CMS executable TEXT files               *   FILE 768
//*                                                                 *   FILE 768
//*     The IEBUPDAP exec was used to create append files for       *   FILE 768
//*     each of the different file types.  There is a './ ADD       *   FILE 768
//*     NAME=filename cmsattrb' where cmsattrb are the CMS          *   FILE 768
//*     attributes of the file.  Ex;( ./ ADD NAME=IEBUPDAP EXEC     *   FILE 768
//*     F 80 9/27/07 8:17:46)                                       *   FILE 768
//*                                                                 *   FILE 768
//*     The IEBUPDEX exec will extract the individual files         *   FILE 768
//*     from the append files and write them to a CMS disk or       *   FILE 768
//*     directory.  IEBUPDTE can be used to add the files to an     *   FILE 768
//*     MVS PDS.                                                    *   FILE 768
//*                                                                 *   FILE 768
//*     IEBUPDEX command format;                                    *   FILE 768
//*     IEBUPDEX infn FILES infm outfm                              *   FILE 768
//*     If outfm is omitted the files will be written to the        *   FILE 768
//*     file mode identified by infm.                               *   FILE 768
//*                                                                 *   FILE 768
//*     These are the execs and files in the VTT2EXEC FILES file    *   FILE 768
//*                                                                 *   FILE 768
//*     VTT2     CNTRL   - Assembly control file                    *   FILE 768
//*     IEBUPDAP EXEC    - Build an IEBUPDTE format append file     *   FILE 768
//*     IEBUPDEX EXEC    - Extract files from an append file        *   FILE 768
//*     VTT2ASM  EXEC    - Assemble a VTT2 source file              *   FILE 768
//*     VTT2CNVU EXEC    - Convert VB AWSTAPE disk file to FB       *   FILE 768
//*     VTT2DISK EXEC    - Real tape to AWSTAPE disk file           *   FILE 768
//*     VTT2FK2T EXEC    - FAKETAPE disk file to real tape          *   FILE 768
//*     VTT2INST EXEC    - Build VTT2MAC maclib and assemble        *   FILE 768
//*                        all source                               *   FILE 768
//*     VTT2TAPE EXEC    - AWSTAPE disk file to real tape           *   FILE 768
//*     VTT2T2FK EXEC    - Real tape to FAKETAPE disk file          *   FILE 768
//*     VTT2DISK INPUT   - SYSIN for VTT2DISK and VTT2T2FK execs    *   FILE 768
//*     VTT2TAPE INPUT   - SYSIN for VTT2TAPE and VTT2FK2T execs    *   FILE 768
//*     VTT2AWS INSTDISK - Dummy file to identify the install       *   FILE 768
//*                        disk                                     *   FILE 768
//*                                                                 *   FILE 768
//*     The VTT2INST exec will rebuild the VTT2MAC MACLIB and       *   FILE 768
//*     assemble all of the assembler source.  The maclib and       *   FILE 768
//*     text files will be written to the disk that contains        *   FILE 768
//*     the VTTAWS INSTDISK file.  You can optionally specify a     *   FILE 768
//*     file mode when you execute the VTT2INST exec.               *   FILE 768
//*                                                                 *   FILE 768
//*     The VTT2INST exec will erase the VTT2MAC MACLIB and         *   FILE 768
//*     regenerate the maclib with the VTTEQUAT COPY file.  If      *   FILE 768
//*     you want to add additional macros or copy files in the      *   FILE 768
//*     VTT2MAC MACLIB you can add MACLIB ADD statements            *   FILE 768
//*     following the MACLIB GEN in the exec.  The VTT2INST         *   FILE 768
//*     exec executes the VTT2ASM exec for each assemble file       *   FILE 768
//*     on the install disk.  The VTT2ASM EXEC uses the             *   FILE 768
//*     VMFHLASM exec for the assemblies.  If you do not have       *   FILE 768
//*     the high level assembler you will need to change the        *   FILE 768
//*     VTT2ASM exec for the assembler you use.  The VTT2 CNTRL     *   FILE 768
//*     file is used to specify the macro libraries for the         *   FILE 768
//*     VMFHLASM exec.                                              *   FILE 768
//*                                                                 *   FILE 768
//***FILE 769 is from Robert Prins and contains a collection of     *   FILE 769
//*           REXX execs that are run as ISPF edit macros, which    *   FILE 769
//*           turn code (from various programming languages)        *   FILE 769
//*           into HTML source, and optionally, invoke a browser    *   FILE 769
//*           to display it.                                        *   FILE 769
//*                                                                 *   FILE 769
//*           emails:  robert@prino.org                             *   FILE 769
//*                    robert.ah.prins@gmail.com                    *   FILE 769
//*                                                                 *   FILE 769
//*    Attached is the "final" version of the ZIPped XMIT file      *   FILE 769
//*    containing the EHIxxxx hilite macros. The dataset            *   FILE 769
//*    contains the following members:                              *   FILE 769
//*                                                                 *   FILE 769
//*    $$$$READ - Disclaimer                                        *   FILE 769
//*    $$$INDEX - This member, the index of File 769                *   FILE 769
//*    EHIASM   - Convert assembler to HTML with ISPF               *   FILE 769
//*               HILITE'ing                                        *   FILE 769
//*    EHICOBOL - Convert COBOL to HTML with ISPF HILITE'ing        *   FILE 769
//*    EHIHELP  - Common 'help' screen for the EHIJCL/PLI/REXX      *   FILE 769
//*               macros                                            *   FILE 769
//*    EHIJCL   - Convert JCL to HTML with ISPF HILITE'ing          *   FILE 769
//*    EHINONE  - Convert any text to HTML as non-HILITE'd          *   FILE 769
//*               ISPF Edit                                         *   FILE 769
//*    EHIPLI   - Convert PL/I to HTML with ISPF HILITE'ing         *   FILE 769
//*    EHIREXX  - Convert REXX to HTML with ISPF HILITE'ing         *   FILE 769
//*    EHISUPC  - Convert SuperC/Search-For output to HTML          *   FILE 769
//*               with ISPF HILITE'ing                              *   FILE 769
//*    EHISUPP  - Factored out support routines for the             *   FILE 769
//*               EHIxxxx execs                                     *   FILE 769
//*    EHIZIP   - Shorten ISPF colors generated by other EHIxxxx    *   FILE 769
//*               execs                                             *   FILE 769
//*    EPANQ    - Convert panel/message/skeleton to queue           *   FILE 769
//*               statements                                        *   FILE 769
//*    GPLV3    - Text of the GPL Version 3                         *   FILE 769
//*    MAKECBT  - Exec to auto-build CBTTAPE.EXEC from my own       *   FILE 769
//*               exec library                                      *   FILE 769
//*    QH       - Exec to invoke Doug Nadel's ISPFHTML utility      *   FILE 769
//*                                                                 *   FILE 769
//*    As you can see, I've added a disclaimer, an index, the       *   FILE 769
//*    text of the GPL V3 and three additional members,             *   FILE 769
//*                                                                 *   FILE 769
//*    EPANQ   - which can be used to convert anything into a       *   FILE 769
//*              set of queue statements,                           *   FILE 769
//*    MAKECBT - the exec I use to automagically build              *   FILE 769
//*              'ROBERT.CBTTAPE.XMIT' from my own EXEC             *   FILE 769
//*              library and                                        *   FILE 769
//*    QH      - I use this exec to invoke Doug Nadel's             *   FILE 769
//*              ISPFHTML tool.  In my own copy I have embedded     *   FILE 769
//*              Doug's code by 'EPANQ'ing his ISPFHTML.XMI         *   FILE 769
//*              file, but as the code is quite likely (C)          *   FILE 769
//*              Copyright Doug Nadel (or more likely IBM),         *   FILE 769
//*              'MAKECBT' replaces it by a note how to get it.     *   FILE 769
//*                                                                 *   FILE 769
//***FILE 770 is from Deru Sudibyo and contains a free z/OS event   *   FILE 770
//*           management system, which can be used for automation.  *   FILE 770
//*           Control of the system is from REXX statements, using  *   FILE 770
//*           a REXX function package which is supplied together    *   FILE 770
//*           with this system.                                     *   FILE 770
//*                                                                 *   FILE 770
//*           email:  Deru Sudibyo <deru.sudibyo@gmail.com>         *   FILE 770
//*                                                                 *   FILE 770
//*     Note:  The member CBTSETUP is not necessary in this         *   FILE 770
//*            pds, but has been included because it is the work    *   FILE 770
//*            of the author, and it may be necessary in a future   *   FILE 770
//*            install process.                                     *   FILE 770
//*                                                                 *   FILE 770
//*     A description of this package follows:                      *   FILE 770
//*                                                                 *   FILE 770
//*     zCBT Automation Tools                                       *   FILE 770
//*     Copyright (c) 2006   Deru Sudibyo                           *   FILE 770
//*                                                                 *   FILE 770
//*     What is zCBT?                                               *   FILE 770
//*                                                                 *   FILE 770
//*     zCBT is a miniature of (my commercial package) zJOS.        *   FILE 770
//*     zCBT is the simplest solution for z/OS system event         *   FILE 770
//*     management at no cost.  You don't need special skill to     *   FILE 770
//*     automate your system using zCBT. Once zCBT is properly      *   FILE 770
//*     setup, you will very able to manage your system events      *   FILE 770
//*     using very simple rexx scripting.  All you need is rexx     *   FILE 770
//*     skill.                                                      *   FILE 770
//*                                                                 *   FILE 770
//*     zCBT is a combination of subsystem functions and resource   *   FILE 770
//*     manager which runs on z/OS as a subsystem, instead of an    *   FILE 770
//*     address space.  zCBT subsystem supports 5 types of          *   FILE 770
//*     events:                                                     *   FILE 770
//*                                                                 *   FILE 770
//*     Messages (MSG) events for both WTO and WTOR. Message is     *   FILE 770
//*     trapped before sent to console, hence you can optionally    *   FILE 770
//*     suppress it. By trapping substring of message text, you     *   FILE 770
//*     can do several actions.  For WTOR message, you can reply    *   FILE 770
//*     it.                                                         *   FILE 770
//*                                                                 *   FILE 770
//*     Command (CMD) events.  Command is trapped before sent       *   FILE 770
//*     console, hence you can optionally suppress it.  This is     *   FILE 770
//*     an opportunity for you to have your own console             *   FILE 770
//*     commands.  By preparing rexx routine to trap certain        *   FILE 770
//*     command verbs (regardless they are valid commands) and      *   FILE 770
//*     their associated actions, you will have your own            *   FILE 770
//*     commands.                                                   *   FILE 770
//*                                                                 *   FILE 770
//*     End-of-jobstep (EOS) events for both jobs and STCs.         *   FILE 770
//*     EOS event is trapped at almost the time of its              *   FILE 770
//*     occurrence and reporting condition codes. If you are a      *   FILE 770
//*     smart programmer, by using zCBT you can develop your        *   FILE 770
//*     own scheduler in rexx language.                             *   FILE 770
//*                                                                 *   FILE 770
//*     End-of-job (EOJ) events for jobs and STCs.  EOJ event       *   FILE 770
//*     is simulated from all related EOS previously occurred.      *   FILE 770
//*     Hence, there is a short time delay (less than 1 sec).       *   FILE 770
//*                                                                 *   FILE 770
//*     Time-of-day (TOD) events.  TOD is very common event         *   FILE 770
//*     people can trap.  Internally it just STIMER or STIMERM      *   FILE 770
//*     macro which doesn't need authorization as privileged        *   FILE 770
//*     routine.  Since rexx able to obtain date and time, zCBT     *   FILE 770
//*     only support TOD time event for both clock and interval     *   FILE 770
//*     time.                                                       *   FILE 770
//*                                                                 *   FILE 770
//*     The way zCBT subsystem supports system automation is by     *   FILE 770
//*     providing some rexx functions.  Request regarding which     *   FILE 770
//*     event you want to trap is sent to zCBT as function          *   FILE 770
//*     arguments.  Trapped event information is then returned      *   FILE 770
//*     to you as result value of the issued function.  Although    *   FILE 770
//*     rexx is executed synchronously, you can however, trap       *   FILE 770
//*     multiple events within a single rexx program.  CBTIVP       *   FILE 770
//*     member of REXXLIB dataset gives you example how to          *   FILE 770
//*     handle multiple events.                                     *   FILE 770
//*                                                                 *   FILE 770
//*     Your rexx program can run on TSO TMP session, TSO batch     *   FILE 770
//*     or non-TSO job.  To run CBTIVP, you can start JCBTEST1      *   FILE 770
//*     member of JCLLIB as either normal STC or under MSTR         *   FILE 770
//*     subsystem.   If you need zCBT to automate your system       *   FILE 770
//*     startup, you must run your rexx program as STC under        *   FILE 770
//*     MSTR subsystem.                                             *   FILE 770
//*                                                                 *   FILE 770
//*     zCBT Supported Rexx Functions                               *   FILE 770
//*                                                                 *   FILE 770
//*     You can easily handle 5 types of events, message,           *   FILE 770
//*     command, end-of-jobstep (EOS), end-of-job (EOJ) and         *   FILE 770
//*     time-of-day (TOD) by using ordinary rexx scripting or       *   FILE 770
//*     programming. To do so, zCBT provides 7 rexx functions,      *   FILE 770
//*     these are:                                                  *   FILE 770
//*                                                                 *   FILE 770
//*     cbcmd()                                                     *   FILE 770
//*     cbevent()                                                   *   FILE 770
//*     cbserver()                                                  *   FILE 770
//*     cbset()                                                     *   FILE 770
//*     cbwait()                                                    *   FILE 770
//*     cbwto()                                                     *   FILE 770
//*     cbwtor()                                                    *   FILE 770
//*                                                                 *   FILE 770
//*     See the internal documentation for explanations for         *   FILE 770
//*     each function:  members $DOCTXT (text) or @DOC (MS word).   *   FILE 770
//*                                                                 *   FILE 770
//***FILE 771 is from Karl-Heinz Doppelfeld and contains an         *   FILE 771
//*           ICSF (cryptographic service facility) monitor that    *   FILE 771
//*           is written in REXX.  A short description is found     *   FILE 771
//*           below.  Necessary panels are imbedded in the REXX     *   FILE 771
//*           code.                                                 *   FILE 771
//*                                                                 *   FILE 771
//*     email:  Karl-Heinz.Doppelfeld@Sparkassen-Informatik.de      *   FILE 771
//*                                                                 *   FILE 771
//*     Utility to display ICSF Statistics.                         *   FILE 771
//*                                                                 *   FILE 771
//*  History:                                                       *   FILE 771
//*  lvl 001 : base version                             01.01.2002  *   FILE 771
//*  lvl 002 : update to new CSFDACC with 10 services   14.05.2008  *   FILE 771
//*            some doc updates and implementation of               *   FILE 771
//*            LUSER to show all users which are using              *   FILE 771
//*            crypto operations.                                   *   FILE 771
//*                                                                 *   FILE 771
//*     More description found in SYS1.MODGEN member CSFCCVT        *   FILE 771
//*     and CSFDACC.                                                *   FILE 771
//*                                                                 *   FILE 771
//*     CCVT:                                                       *   FILE 771
//*     The CCVT is the base control block for ICSF/MVS. The        *   FILE 771
//*     CCVT contains addresses of common areas for use by          *   FILE 771
//*     ICSF/MVS components.  Indicators in the CCVT provide        *   FILE 771
//*     status of ICSF/MVS.                                         *   FILE 771
//*                                                                 *   FILE 771
//*     DACC:                                                       *   FILE 771
//*     The DACC is the base control block for ICSF to collect      *   FILE 771
//*     Performance measurements for RMF to report on. This         *   FILE 771
//*     control block is the programming interface.  The count      *   FILE 771
//*     fields are double-word length.                              *   FILE 771
//*                                                                 *   FILE 771
//*     The following services will have data collected:            *   FILE 771
//*                                                                 *   FILE 771
//*     CSNBENC - Encipher:                                         *   FILE 771
//*     - This will be done for single DES separately.              *   FILE 771
//*       Collect number of service calls, number of bytes of       *   FILE 771
//*       data enciphered, number of CMD instructions used to       *   FILE 771
//*       encipher the data.                                        *   FILE 771
//*     - Double and triple DES will be counted together.           *   FILE 771
//*       collect number of service calls, number of bytes of       *   FILE 771
//*       data enciphered, number of CMD instructions used to       *   FILE 771
//*       encipher the data.                                        *   FILE 771
//*     CSNBDEC - Decipher:                                         *   FILE 771
//*     CSNBDEC - Decipher:                                         *   FILE 771
//*     - This will be done for single DES separately.              *   FILE 771
//*       Collect number of service calls, number of bytes of       *   FILE 771
//*         data deciphered, number of CMD instructions used        *   FILE 771
//*         to decipher the data.                                   *   FILE 771
//*       - Double and triple DES will be counted together.         *   FILE 771
//*         collect number of service calls, number of bytes        *   FILE 771
//*         of data deciphered, number of CMD instructions          *   FILE 771
//*         used to decipher the data.                              *   FILE 771
//*       CSNBMGN - MAC_Generate:                                   *   FILE 771
//*       - Single and varous double key MAC will be                *   FILE 771
//*         gathered together.                                      *   FILE 771
//*         Collect number of service calls, number of              *   FILE 771
//*         bytes of data MACd, number of PCMF instructions.        *   FILE 771
//*       CSNBMVR - MAC_Verify:                                     *   FILE 771
//*       - Single and varous double key MAC will be                *   FILE 771
//*         gathered together.                                      *   FILE 771
//*         Collect number of service calls, number of              *   FILE 771
//*         bytes of data MACd, number of PCMF instructions.        *   FILE 771
//*       CSNBOWH - One_Way_Hash:                                   *   FILE 771
//*       - For SHA-1,                                              *   FILE 771
//*         Collect number of service calls, number of              *   FILE 771
//*         bytes of data hashed, number of PCMF instructions       *   FILE 771
//*         for SHA-1.                                              *   FILE 771
//*         CSNBPTR - PIN_Translate:                                *   FILE 771
//*         - Collect number of service calls only.                 *   FILE 771
//*         CSNBPVR - PIN_Verify:                                   *   FILE 771
//*         - Collect number of service calls only.                 *   FILE 771
//*                                                                 *   FILE 771
//*     Author: Karl-Heinz Doppelfeld                               *   FILE 771
//*        Karl-Heinz.DoppelfeldυSparkassen-Informatik.de           *   FILE 771
//*                                                                 *   FILE 771
//***FILE 772 is from Stephen E. Bacher and contains a large part   *   FILE 772
//*           of his work.  Most members of this pds are pds'es     *   FILE 772
//*           in themselves, in PDSLOAD (like IEBUPDTE) unload      *   FILE 772
//*           format, which (unlike IEBUPDTE format) can retain     *   FILE 772
//*           ISPF stats from each member of the unloaded pds.      *   FILE 772
//*                                                                 *   FILE 772
//*       email:  "Bacher,Stephen E." <seb@draper.com>              *   FILE 772
//*                                                                 *   FILE 772
//*       Members of this file are the following pds'es:            *   FILE 772
//*                                                                 *   FILE 772
//*    ASM     -  Assembler programs                                *   FILE 772
//*    C       -  C programs                                        *   FILE 772
//*    CLIST   -  REXXes and CLISTs                                 *   FILE 772
//*    H       -  For the C programs                                *   FILE 772
//*    HELP    -  TSO HELP members to guide you thru the stuff      *   FILE 772
//*    INCLUDE -  For the PL/I programs                             *   FILE 772
//*    MACLIB  -  For enhancing the TSO TEST command in programs    *   FILE 772
//*    MSG     -  ISPF MSG Library                                  *   FILE 772
//*    PANEL   -  ISPF Panel Library                                *   FILE 772
//*    PLI     -  PL/I programs                                     *   FILE 772
//*                                                                 *   FILE 772
//*       Additional members of this file:                          *   FILE 772
//*                                                                 *   FILE 772
//*    PDSLOAD  - XMIT of load library containing the PDSLOAD pgm.  *   FILE 772
//*    $PDSLOAD - Job to create pds'es out of all the members       *   FILE 772
//*               in PDSLOAD (like IEBUPDTE) unload format.         *   FILE 772
//*                                                                 *   FILE 772
//***FILE 773 is from Arthur Fichtl and contains an interactive     *   FILE 773
//*           disassembler which interprets a chunk of dumped       *   FILE 773
//*           values as though they are machine instructions.       *   FILE 773
//*           This program, which is called ISDA, is written        *   FILE 773
//*           entirely in REXX.                                     *   FILE 773
//*                                                                 *   FILE 773
//*       email:  fichtla@acm.org                                   *   FILE 773
//*                                                                 *   FILE 773
//*       Members of this pds:                                      *   FILE 773
//*                                                                 *   FILE 773
//*       ##README  -  Explains members of this pds                 *   FILE 773
//*       ISDA      -  REXX source for ISDA                         *   FILE 773
//*       ISDADOC   -  MSWORD doc for ISDA - better than ISDAUG     *   FILE 773
//*       ISDAUG    -  EBCDIC text doc for ISDA                     *   FILE 773
//*                                                                 *   FILE 773
//***FILE 774 is from Richard L. Rice and contains a compression-   *   FILE 774
//*           decompression program that is similar in function     *   FILE 774
//*           to the CBT973 compression program which is used to    *   FILE 774
//*           make the (actual) CBT Tape.  This program extends     *   FILE 774
//*           the compression algorithm if all 80 bytes from the    *   FILE 774
//*           input record are the same.                            *   FILE 774
//*                                                                 *   FILE 774
//*           This program is not being used "officially" to        *   FILE 774
//*           produce the CBT Tapes (at this point), because some   *   FILE 774
//*           administrative issues have yet to be resolved.  But   *   FILE 774
//*           it is being presented here for the enjoyment of all.  *   FILE 774
//*           You can use it to decompress files from the existing  *   FILE 774
//*           CBT Tapes.                                            *   FILE 774
//*                                                                 *   FILE 774
//*           Thanks, Richard !!                                    *   FILE 774
//*                                                                 *   FILE 774
//*   email: "Rice, Richard L" <Richard.L.Rice@conocophillips.com>  *   FILE 774
//*                                                                 *   FILE 774
//***FILE 775 is from Craig Schneiderwent and contains a proof of   *   FILE 775
//*           concept application allowiing CICS COBOL to respond   *   FILE 775
//*           to HTTP requests.  This proof-of-concept application  *   FILE 775
//*           is the subject of SHARE presentation 8247, presented  *   FILE 775
//*           in San Diego in August of 2007 and to be presented    *   FILE 775
//*           again in Orlando in February of 2008.                 *   FILE 775
//*                                                                 *   FILE 775
//*       email:  craig.schneiderwent@dot.state.wi.us               *   FILE 775
//*                                                                 *   FILE 775
//*       The two significant members of this pds, called SOURCE    *   FILE 775
//*       and COPYBOOK, are in an IEBUPDTE-like unloaded pds        *   FILE 775
//*       format called PDSLOAD-format.  A job to create the two    *   FILE 775
//*       required pds'es is included here, and it is in the        *   FILE 775
//*       member $PDSLOAD.  The member called PDSLOAD contains      *   FILE 775
//*       the PDSLOAD program, in TSO XMIT format, and it is        *   FILE 775
//*       unloaded into a real load library by the $PDSLOAD job.    *   FILE 775
//*                                                                 *   FILE 775
//*       Enjoy!  (SG-12/07)                                        *   FILE 775
//*                                                                 *   FILE 775
//***FILE 776 is from Edgar Hoffmann and contains a zip file of     *   FILE 776
//*           his version of RECV390 to run on a PC.  Since the     *   FILE 776
//*           sources of his C program are not meant to be run      *   FILE 776
//*           on an MVS machine, unless specially prepared, I have  *   FILE 776
//*           instead left his submission unchanged, as a zip file  *   FILE 776
//*           which was folded into FB, LRECL=80 format for         *   FILE 776
//*           inclusion in this collection.  To use this file,      *   FILE 776
//*           you have to download the RECV390 member, which is     *   FILE 776
//*           a zip file, to a PC, and unzip it there.  Then you    *   FILE 776
//*           can compile the C code, or use the included           *   FILE 776
//*           executable.  Sorry for the non-MVS-ness.  We're in    *   FILE 776
//*           a new age !!  See member $$NOTE1 for further info.    *   FILE 776
//*                                                                 *   FILE 776
//*           email:  "hofmann_e@arcor.de" <hofmann_e@arcor.de>     *   FILE 776
//*                                                                 *   FILE 776
//*       This file has been revised by its author as of January    *   FILE 776
//*       2017.  Please see member $$NOTE3 for more detail.         *   FILE 776
//*                                                                 *   FILE 776
//*       The EPUTL object deck needed to be fixed, so its source   *   FILE 776
//*       and assmebly JCL has been newly included.  (SBG)          *   FILE 776
//*                                                                 *   FILE 776
//***FILE 777 is from Philippe Cochy and contains a REXX exec to    *   FILE 777
//*           check disk space occupancy.  This REXX contains an    *   FILE 777
//*           original algorithm to filter dataset names.  See      *   FILE 777
//*           member $SPDISK to execute the SPDISK REXX exec in     *   FILE 777
//*           batch.                                                *   FILE 777
//*                                                                 *   FILE 777
//*           email:  Philippe Cochy <cochy@free.fr>                *   FILE 777
//*                                                                 *   FILE 777
//***FILE 778 is from Daniel F. Gaeta and contains a set of         *   FILE 778
//*           programs to access the SMP/E API, GIMAPI, through     *   FILE 778
//*           REXX variables, to produce reports from SMP/E zones.  *   FILE 778
//*                                                                 *   FILE 778
//*           email:  dfgaeta@br.ibm.com                            *   FILE 778
//*                                                                 *   FILE 778
//***FILE 779 is from Bill Bass, and contains a very clever COBOL   *   FILE 779
//*           program which looks at a job in SDSF and performs     *   FILE 779
//*           symbolic substitution from reading the symbolic       *   FILE 779
//*           substitutions that are shown in SDSF, which were      *   FILE 779
//*           performed by the JCL converter and interpreter.       *   FILE 779
//*                                                                 *   FILE 779
//*           email:  "Bass, Walter W" <bill_bass@uhc.com>          *   FILE 779
//*                                                                 *   FILE 779
//*     Further explanation:                                        *   FILE 779
//*                                                                 *   FILE 779
//*=================================================================*   FILE 779
//*                                                                 *   FILE 779
//*                     HOW-TO Guide for SYMBSUB                    *   FILE 779
//*                               with                              *   FILE 779
//*                       JCL Symbolic Variable                     *   FILE 779
//*                          Include Modules                        *   FILE 779
//*                                                                 *   FILE 779
//*=================================================================*   FILE 779
//*                         What is SYMBSUB?                        *   FILE 779
//*=================================================================*   FILE 779
//*                                                                 *   FILE 779
//* SYMBSUB is a tool that reads in 80 column card files and        *   FILE 779
//* performs symbolic variable substitution using the values of     *   FILE 779
//* the symbols from the JCL, then writes the cards back out.       *   FILE 779
//* Each input DD can be either instream data, a single sequential  *   FILE 779
//* file, a single PDS member or a concatenated list of PDS         *   FILE 779
//* libraries.  Each output DD can be either a single sequential    *   FILE 779
//* file, a single PDS member, or a PDS library.                    *   FILE 779
//*                                                                 *   FILE 779
//* What makes SYMBSUB unique from other tools of this type that    *   FILE 779
//* have come before it, is that it retrieves the values of the     *   FILE 779
//* symbols from the JCL on its own.  All you have to do is         *   FILE 779
//* provide it with one or more input dd cards and matching output  *   FILE 779
//* dd cards.  It will automatically find your input files, read    *   FILE 779
//* them, substitute the symbols with the values from the JCL and   *   FILE 779
//* write the modified cards out to the appropriate output files.   *   FILE 779
//*                                                                 *   FILE 779
//*=================================================================*   FILE 779
//*                        How do I use SYMBSUB?                    *   FILE 779
//*=================================================================*   FILE 779
//*                                                                 *   FILE 779
//* To use SYMBSUB, you provide it with input and output DD cards   *   FILE 779
//* that it finds and processes.  These can be of two types:        *   FILE 779
//*   1) Single file input/output pairs.                            *   FILE 779
//*   2) Multiple PDS member input/output libraries and a member    *   FILE 779
//*      selection list (wild carded member lists are supported).   *   FILE 779
//*      These are the wild characters permitted:                   *   FILE 779
//*        "*" = match zero or more of any characters.              *   FILE 779
//*        "?" = match any one single character.                    *   FILE 779
//*        "!" = match one upper case alphabet letter ("A" - "Z").  *   FILE 779
//*        "%" = match one numeric digit ("0" - "9").               *   FILE 779
//*        "~" = match one special character ("@", "#" or "$").     *   FILE 779
//*                                                                 *   FILE 779
//* One execution of SYMBSUB can have multiple occurances of type 1 *   FILE 779
//* and/or type 2 input/output sets of DD cards.                    *   FILE 779
//*                                                                 *   FILE 779
//* The easiest way to explain using SYMBSUB is to show examples.   *   FILE 779
//* Please see member $INTRO01 in this pds.....                     *   FILE 779
//*                                                                 *   FILE 779
//*=================================================================*   FILE 779
//*          How does SYMBSUB get the values of the symbols?        *   FILE 779
//*=================================================================*   FILE 779
//*                                                                 *   FILE 779
//* SYMBSUB invokes SDSF to "print" the JESJCL listing to a         *   FILE 779
//* dataset.  This is the same listing you can view in SDSF if you  *   FILE 779
//* view the JESJCL of an executing batch job.  SYMBSUB then reads  *   FILE 779
//* this dataset and parses the JCL to find the values of the       *   FILE 779
//* symbols.                                                        *   FILE 779
//*                                                                 *   FILE 779
//* SYMBSUB also has several "BUILTIN" symbols that are available   *   FILE 779
//* for substitution even when they are not defined within the JCL. *   FILE 779
//*                                                                 *   FILE 779
//*   &SYSUID                                                       *   FILE 779
//*   &JOBNAME                                                      *   FILE 779
//*   Current date and time in several formats                      *   FILE 779
//*   Century, Year, Mon, Day, Hour, Min, Sec, etc. individually    *   FILE 779
//*   Day of Week - number, full name and abbreviated name,         *   FILE 779
//*   Month - full name and abbreviated name                        *   FILE 779
//*                                                                 *   FILE 779
//* Each execution of SYMBSUB displays a complete list of all of    *   FILE 779
//* the symbols that were available for that run, including the     *   FILE 779
//* builtin ones.                                                   *   FILE 779
//*                                                                 *   FILE 779
//* You can also pass values via the parm and they will override    *   FILE 779
//* the values found in the JCL, but this is rarely needed and      *   FILE 779
//* recommended only for special situations.                        *   FILE 779
//*                                                                 *   FILE 779
//*=================================================================*   FILE 779
//*     "Special Situations"?  You sound like a politician ...      *   FILE 779
//*=================================================================*   FILE 779
//*                                                                 *   FILE 779
//* SYMBSUB is aware of which step or procstep it is executing      *   FILE 779
//* within and keeps track of the changes that take place to all of *   FILE 779
//* the symbolic variables in the JCL.  Due to limitations in the   *   FILE 779
//* way the JCL is presented in the JESJCL listing, there is one    *   FILE 779
//* rare situation where SYMBSUB may have a problem because it      *   FILE 779
//* cannot correctly determine the value of a symbol.               *   FILE 779
//*                                                                 *   FILE 779
//* That situation is when all of the following are true:           *   FILE 779
//*   1) The job executes a nested proc (i.e. a proc calls a proc). *   FILE 779
//*   2) Symbol values are changed within the nested proc or within *   FILE 779
//*      the calling proc after the nested proc.                    *   FILE 779
//*   3) SYMBSUB is executed within the nested proc or within the   *   FILE 779
//*      calling proc after the nested proc.                        *   FILE 779
//*   4) SYMBSUB needs to use one of those specific changed symbols *   FILE 779
//*      in a substitution variable assignment.                     *   FILE 779
//*                                                                 *   FILE 779
//* Complicated?  Yep, but you don't need to figure out if that     *   FILE 779
//* happens in your job, SYMBSUB will tell you, and it depends on   *   FILE 779
//* the structure of the JCL, not the current values of the         *   FILE 779
//* symbols.  This means you'll find out about it the first time    *   FILE 779
//* you test the job after making any JCL or PROC changes.          *   FILE 779
//*                                                                 *   FILE 779
//*=================================================================*   FILE 779
//*          What if I encounter this "Special Situation"?          *   FILE 779
//*=================================================================*   FILE 779
//*                                                                 *   FILE 779
//* If this does happen, SYMBSUB will issue a very detailed error   *   FILE 779
//* message and give a return code of 8.  It will tell you exactly  *   FILE 779
//* which symbols it encountered the problem on and what to do to   *   FILE 779
//* work around the problem.  The preferred solution would be to    *   FILE 779
//* change the job structure so that the SYMBSUB is executed        *   FILE 779
//* before the nested proc or to not use nested procs.  Obviously   *   FILE 779
//* this may not always be possible.  A second possible fix would   *   FILE 779
//* be to avoid changing the value of the symbolic variable within  *   FILE 779
//* the nested proc or after the beginning of the nested proc.      *   FILE 779
//* Again this may not always be possible.  The last alternative    *   FILE 779
//* will always work but is not preferred, and that is to pass the  *   FILE 779
//* specific symbols needed to SYMBSUB on the parm.  This           *   FILE 779
//* alternative will be explained in the error message and the      *   FILE 779
//* specific text needed for the parm string will even be provided  *   FILE 779
//* in the message.  It will typically be something similar to the  *   FILE 779
//* following:                                                      *   FILE 779
//*                                                                 *   FILE 779
//*     PARM=('SOMEVAR=&SOMEVAR')                                   *   FILE 779
//*                                                                 *   FILE 779
//* Where SOMEVAR would be the name of the actual symbolic          *   FILE 779
//* variable that the problem was encountered on.  This would       *   FILE 779
//* cause the actual value to be substituted by the JCL             *   FILE 779
//* interpreter and passed in through the PARM, thus overriding     *   FILE 779
//* what SYMBSUB encounters while parsing the JESJCL.               *   FILE 779
//*                                                                 *   FILE 779
//*=================================================================*   FILE 779
//*         How does SYMBSUB find my input and output dd cards?     *   FILE 779
//*=================================================================*   FILE 779
//*                                                                 *   FILE 779
//* SYMBSUB dynamically searches through the MVS TIOT entries to    *   FILE 779
//* find the allocated DD names at the time it is executing.  It    *   FILE 779
//* specifically looks for any DD cards with names beginning with   *   FILE 779
//* "CNTL" or "LIBR" and ending with "I" or "IN" (for input), "O",  *   FILE 779
//* "OT" or "OUT" (for output) and "M" (for member selection        *   FILE 779
//* lists).  Any DD cards it finds that fit this format are         *   FILE 779
//* assumed to be intended as input or output cards for             *   FILE 779
//* processing.  The input and output DD cards are matched to each  *   FILE 779
//* other by the characters found between the prefix ("CNTL") and   *   FILE 779
//* the suffix ("I", "IN", "O", "OT" or "OUT").  SYMBSUB can        *   FILE 779
//* handle up to 100 DD cards.                                      *   FILE 779
//*                                                                 *   FILE 779
//* If an input DD card is found for which no matching output DD    *   FILE 779
//* card can be found, SYMBSUB will issue a error message and       *   FILE 779
//* return code 12, and that input DD card will be ignored.         *   FILE 779
//*                                                                 *   FILE 779
//* If an output DD card is found for which no matching input DD    *   FILE 779
//* card can be found, SYMBSUB will issue a warning message and     *   FILE 779
//* return code 4, and that output DD card will be ignored.         *   FILE 779
//*                                                                 *   FILE 779
//* If more than one input or output DD card is found with the      *   FILE 779
//* same characters between the prefix and the suffix, SYMBSUB      *   FILE 779
//* will issue an error message and return code 12 and only the     *   FILE 779
//* first such DD card found will be used.                          *   FILE 779
//*                                                                 *   FILE 779
//***FILE 780 is from Daniel F. Gaeta and is an interface to use    *   FILE 780
//*           REXX to create panel-like effects without ISPF.       *   FILE 780
//*                                                                 *   FILE 780
//*                Daniel Gaeta                                     *   FILE 780
//*                MVS System Programmer                            *   FILE 780
//*                dfgaeta@br.ibm.com                               *   FILE 780
//*                                                                 *   FILE 780
//*    Recently I needed to use panels in REXX without ISPF         *   FILE 780
//*    interface. I have developed a small driver to use            *   FILE 780
//*    TPUT/TGET macros and Rexx variable service (IKJCT441).       *   FILE 780
//*                                                                 *   FILE 780
//*    This is a small driver to use TPUT/TGET macro under          *   FILE 780
//*    REXX language.  The RX3270 can be used to build a 3270       *   FILE 780
//*    datastream under TSO sessions.                               *   FILE 780
//*                                                                 *   FILE 780
//*    There are some REXX variables to interface with RX3270:      *   FILE 780
//*                                                                 *   FILE 780
//*    RX3270_INMAP  (input buffer, basically a 3270 datastream)    *   FILE 780
//*    RX3270_OUTPUT (output buffer, needs a parse fields)          *   FILE 780
//*    RX3270_AID    (exception key, for example, ENTER, PFxx,      *   FILE 780
//*                  PAx and CLEAR)                                 *   FILE 780
//*                                                                 *   FILE 780
//*    The RXMAPR member from CBT xmit is small sample to use       *   FILE 780
//*    the function.                                                *   FILE 780
//*                                                                 *   FILE 780
//***FILE 781 is from John McKown, and is his modification of an    *   FILE 781
//*           IBM-distributed sample program called RACSEQ.  The    *   FILE 781
//*           disclaimer of the IBM sample program allows that it   *   FILE 781
//*           be reproduced here, so that members #IBMDOC,          *   FILE 781
//*           #IBMCODE and @IBMCODE are transcribed here, pretty    *   FILE 781
//*           much verbatim.                                        *   FILE 781
//*                                                                 *   FILE 781
//*       email:  "McKown, John" <john.archie.mckown@GMAIL.com>     *   FILE 781
//*                                                                 *   FILE 781
//*     This is a modification of the IBM supplied RACSEQ           *   FILE 781
//*     program.  It has been modified to be able to write its      *   FILE 781
//*     output in XML format.  It has also been extended to write   *   FILE 781
//*     to a specified DDName, DSName, Sysout class, or UNIX        *   FILE 781
//*     Path.  When writing to a DSName, it can either be an        *   FILE 781
//*     existing DSName, or a new one.  If it is a new one, the     *   FILE 781
//*     DSName will be allocated with either the system defaults,   *   FILE 781
//*     the SMS defaults as assigned by the ACS routines, or with   *   FILE 781
//*     the characteristics specified via a USING() and/or LIKE()   *   FILE 781
//*     parameter.                                                  *   FILE 781
//*                                                                 *   FILE 781
//***FILE 782 is from David B. Trout (aka "Fish") and contains a    *   FILE 782
//*           program to run on the PC (Personal Computer) under    *   FILE 782
//*           Windows.  The purpose of the program is to be able    *   FILE 782
//*           to browse tapes in AWS-format and other formats       *   FILE 782
//*           on the PC.  The program is called AWSBROWSE, with     *   FILE 782
//*           an "E" on the end.  Please see the doc about this     *   FILE 782
//*           program in the $$INTRO member, and below.             *   FILE 782
//*                                                                 *   FILE 782
//*               email:      fish@infidels.org                     *   FILE 782
//*                                                                 *   FILE 782
//*               web site:   www.softdevlabs.com                   *   FILE 782
//*                                                                 *   FILE 782
//*           The AWSBR152 member is a zip file, folded over into   *   FILE 782
//*           FB-80 format for inclusion in this pds.  It should    *   FILE 782
//*           be downloaded to the PC in BINARY, and unzipped to    *   FILE 782
//*           produce an .exe file that will install itself under   *   FILE 782
//*           Windows.                                              *   FILE 782
//*                                                                 *   FILE 782
//*           The SOURCZIP member is a zip file which contains      *   FILE 782
//*           the current source code for AWSBROWSE.  If you want   *   FILE 782
//*           to access this material, download the member in       *   FILE 782
//*           BINARY to a PC and unzip it there.                    *   FILE 782
//*                                                                 *   FILE 782
//*           The $$INTRO member is the README file for AWSBROWSE.  *   FILE 782
//*                                                                 *   FILE 782
//*     -------------------------------------------------------     *   FILE 782
//*                                                                 *   FILE 782
//*              Software Development Laboratories                  *   FILE 782
//*                                                                 *   FILE 782
//*              Fish's AWS/HET File Browser Utility                *   FILE 782
//*                                                                 *   FILE 782
//*                          AWSBrowse                              *   FILE 782
//*                                                                 *   FILE 782
//*                        Version 1.5.2                            *   FILE 782
//*                                                                 *   FILE 782
//*     -------------------------------------------------------     *   FILE 782
//*                                                                 *   FILE 782
//*     Overview / Description                                      *   FILE 782
//*                                                                 *   FILE 782
//*                                                                 *   FILE 782
//*     This is a much improved and more powerful version of        *   FILE 782
//*     Rob Storey's existing 'awsbrows.exe' utility (note          *   FILE 782
//*     spelling).  Awsbrows.exe (withOUT the 'e') is Rob's         *   FILE 782
//*     program.  AwsbrowsE.exe (WITH the 'e') is my own much       *   FILE 782
//*     more powerful version of the same thing.                    *   FILE 782
//*                                                                 *   FILE 782
//*     Rob's awsbrows is a handy utility (and until my             *   FILE 782
//*     AWSBrowse came along the only utility), but it was too      *   FILE 782
//*     lacking in features to be useful for my own purposes so     *   FILE 782
//*     I decided to write a better one.                            *   FILE 782
//*                                                                 *   FILE 782
//*     Among it's many features are:                               *   FILE 782
//*                                                                 *   FILE 782
//*     " Significantly faster than existing awsbrows.exe           *   FILE 782
//*     " More functional and user-friendly user-interface          *   FILE 782
//*     " Supports both .aws and .het files, including spanned      *   FILE 782
//*       block files                                               *   FILE 782
//*     " Supports both ZLIB and BZIP2 compressed het file          *   FILE 782
//*       formats (DLLs included), as well as Bus-Tech ZLIB         *   FILE 782
//*       compressed files too.                                     *   FILE 782
//*     " User configurable hex display (font and layout)           *   FILE 782
//*     " Hex/text search capability. Find whatever data you're     *   FILE 782
//*       looking for.                                              *   FILE 782
//*     " Displays both EBCDIC or ASCII                             *   FILE 782
//*     " Ditto-like toolbar buttons for quick positioning to       *   FILE 782
//*       next/previous block/file                                  *   FILE 782
//*     " Detection/reporting of all Standard Labels                *   FILE 782
//*     " Detailed tape summary statistics including StdLbl         *   FILE 782
//*       info                                                      *   FILE 782
//*     " GoTo command for direct access to start of any StdLbl     *   FILE 782
//*       file                                                      *   FILE 782
//*     " Clipboard support for hex/text/binary data.  Hex data     *   FILE 782
//*       copied from AWSBrowse can be pasted into Visual           *   FILE 782
//*       Studio's binary file editor.                              *   FILE 782
//*     " Printing and Print Preview support (single selected       *   FILE 782
//*       blocks only)                                              *   FILE 782
//*     " Supports large block sizes (greater than 64K)             *   FILE 782
//*     " Supports extremely large files (greater than 4GB)         *   FILE 782
//*                                                                 *   FILE 782
//*     This is a must-have utility for anyone dealing with         *   FILE 782
//*     many AWS/HET files.                                         *   FILE 782
//*                                                                 *   FILE 782
//***FILE 783 is the PL/I Scientific Subroutine Package for PL/I    *   FILE 783
//*           (OS) which carries a "360" designation, so I think    *   FILE 783
//*           it is public domain.                                  *   FILE 783
//*                                                                 *   FILE 783
//***FILE 784 is from John McKown and contains two implementations  *   FILE 784
//*           of a web page under z/OS Unix System Services which   *   FILE 784
//*           allow the user to obtain ISPF 3.4-like information    *   FILE 784
//*           about datasets.                                       *   FILE 784
//*                                                                 *   FILE 784
//*     Author : John A. McKown                                     *   FILE 784
//*     Email  : "McKown, John" <john.archie.mckown@GMAIL.com>      *   FILE 784
//*     Support: None guaranteed, but I would like "bug"            *   FILE 784
//*              reports.                                           *   FILE 784
//*                                                                 *   FILE 784
//*     This contains two different implementations of a Web        *   FILE 784
//*     page which allows a user to get data set information        *   FILE 784
//*     similar to ISPF option 3.4.                                 *   FILE 784
//*                                                                 *   FILE 784
//*     Both implementations use AJAX to update the Web page        *   FILE 784
//*     "in place".  The first is the simpler because the CGI       *   FILE 784
//*     actually creates the HTML for the Web page and the          *   FILE 784
//*     Javascript on the Web page simply puts that HTML on         *   FILE 784
//*     the page. The second is more complex in that the CGI        *   FILE 784
//*     actually creates the text form of a JSON object.  The       *   FILE 784
//*     Javascript on the Web page then initatiates this            *   FILE 784
//*     object which it uses to dynamically create the HTML to      *   FILE 784
//*     display. The second form is more powerful in that the       *   FILE 784
//*     JSON object can be used in other ways by other AJAX         *   FILE 784
//*     code.                                                       *   FILE 784
//*                                                                 *   FILE 784
//***FILE 785 is from Karl-Heinz Doppelfeld and contatins 2 REXXes  *   FILE 785
//*           and an edit macro to substitute system symbols into   *   FILE 785
//*           JCL.  The package is called JCLSYMB.                  *   FILE 785
//*                                                                 *   FILE 785
//*     email:  Karl-Heinz.Doppelfeld@Sparkassen-Informatik.de      *   FILE 785
//*                                                                 *   FILE 785
//***FILE 786 is from Paul Gilmartin and contains a program to      *   FILE 786
//*           separate (on a PC) the CBTF1.zip file from the        *   FILE 786
//*           www.cbttape.org website into individual HTML          *   FILE 786
//*           datasets.                                             *   FILE 786
//*                                                                 *   FILE 786
//*           email:  Paul.Gilmartin@Sun.COM                        *   FILE 786
//*                                                                 *   FILE 786
//*    Cbtabs is a POSIX shell script, mostly relying on an         *   FILE 786
//*    instream awk program.  Awk is fairly similar to Rexx in      *   FILE 786
//*    its capabilities, enough that when I use either I wish       *   FILE 786
//*    for parts of the other.                                      *   FILE 786
//*                                                                 *   FILE 786
//***FILE 787 is from Karl-Heinz Doppelfeld and contains an         *   FILE 787
//*           online File Transfer Utility for sending data to a    *   FILE 787
//*           generated list of remote hosts.  The list of remote   *   FILE 787
//*           hosts will be generated from ClonePlex System         *   FILE 787
//*           table BWSOSDAT.  The target name can include          *   FILE 787
//*           system symbols like &SYSNAME, &SYSUQ, &SYSCLONE       *   FILE 787
//*           and &SYSRZ.                                           *   FILE 787
//*                                                                 *   FILE 787
//*       External Subroutines: $FTPSMAC - edit macro to change     *   FILE 787
//*                                        system symbols in        *   FILE 787
//*                                        target dataset names     *   FILE 787
//*                                                                 *   FILE 787
//*       email:  Karl-Heinz.Doppelfeld@Sparkassen-Informatik.de    *   FILE 787
//*                                                                 *   FILE 787
//*                    - - - Description: - - -                     *   FILE 787
//*                                                                 *   FILE 787
//*    Online Filetransfer Utility for sending data to a            *   FILE 787
//*    generated list of remote Hosts.  The list of remote Hosts    *   FILE 787
//*    will be generated from System name table.  The target        *   FILE 787
//*    name can include system symbols defined in the system        *   FILE 787
//*    name table.                                                  *   FILE 787
//*                                                                 *   FILE 787
//*    FIRST SOME EXPLANATION WHAT IS THE IDEA FOR THE UTILITY:     *   FILE 787
//*                                                                 *   FILE 787
//*     We have a multi sysplex environment with min. 4 up to 8     *   FILE 787
//*     systems in each sysplex.  One system is our distribution    *   FILE 787
//*     system from which we are doing most of the work for all     *   FILE 787
//*     systems.  For it we have an table driven ISPF dialog.       *   FILE 787
//*     One table has an entry for system in our complete           *   FILE 787
//*     company.  For each system we have defined some - STATIC     *   FILE 787
//*     - system symbols in this table, like SYSNAME SYSPLEX        *   FILE 787
//*     SYSCLONE etc.                                               *   FILE 787
//*                                                                 *   FILE 787
//*     SO, HOW CAN I SEND OR GET A LITTLE PORTION OF DATA FROM     *   FILE 787
//*     OR TO ALL SYSTEMS? - I know the great utility FTPB from     *   FILE 787
//*     Lionel B. Dyck to do this for a great/greater portion       *   FILE 787
//*     but I want transfer a member of a PDS or a little PS        *   FILE 787
//*     interactively to all, some or one system in our             *   FILE 787
//*     company.                                                    *   FILE 787
//*                                                                 *   FILE 787
//*    ENHANCEMENTS FOR USING IT OUTSIDE OF OUR COMPANY:            *   FILE 787
//*                                                                 *   FILE 787
//*     Build and use an extra SYSTEM NAME table outside of         *   FILE 787
//*     our dialog where you must define all systems in YOUR        *   FILE 787
//*     company.  You can use the utility in ADMIN or USER          *   FILE 787
//*     mode. In ADMIN mode only the user specified as admin        *   FILE 787
//*     (aUserid) can modify the system name table. In USER         *   FILE 787
//*     mode everybody can do it. For it you can set the            *   FILE 787
//*     dataset where the system name table resides to a            *   FILE 787
//*     global dataset or to a user dataset like ISPF profile       *   FILE 787
//*     dataset.  To modify the system name table I check           *   FILE 787
//*     whether the calling user is the ADMIN user and will         *   FILE 787
//*     see a modified panel with an extra command available        *   FILE 787
//*     called 'SETSYST'. If anybody knows the command and he       *   FILE 787
//*     is not the ADMIN user he will be informed by a message      *   FILE 787
//*     that he can not use the command.                            *   FILE 787
//*                                                                 *   FILE 787
//*     On some systems you may have different userids, so I        *   FILE 787
//*     have defined an extra table where any user can store        *   FILE 787
//*     his own remote userids.  This extra table resides in        *   FILE 787
//*     your ISPF profile dataset.                                  *   FILE 787
//*                                                                 *   FILE 787
//*     Because we have a special naming convention I have          *   FILE 787
//*     implemented to special switches for including or            *   FILE 787
//*     excluding from sending or getting the data.  You can        *   FILE 787
//*     adjust the names of the switches to own names.  The         *   FILE 787
//*     names will be shown in the primary panel.                   *   FILE 787
//*                                                                 *   FILE 787
//*    HOW DOES THE UTILITY WORK:                                   *   FILE 787
//*                                                                 *   FILE 787
//*     After you have called the utility the first time a          *   FILE 787
//*     SYSTEM NAME table with one dummy entry will be              *   FILE 787
//*     created.  Please customize the table before further         *   FILE 787
//*     usage.                                                      *   FILE 787
//*                                                                 *   FILE 787
//*     For each entry entry you must specify the following:        *   FILE 787
//*                                                                 *   FILE 787
//*       SYSNAME      - the system name                            *   FILE 787
//*       DNS/Ip-add   - the systems DNS or IP-Add.                 *   FILE 787
//*       act          - switch Y/N; only to active systems         *   FILE 787
//*                      data will be send                          *   FILE 787
//*       prod         - is it a production system or not           *   FILE 787
//*       mstr         - (we have in each sysplex one master        *   FILE 787
//*                      system.)  you can use it in conjunction    *   FILE 787
//*                      with the BOUNDARY switch in the primary    *   FILE 787
//*                      panel to send data only to this master     *   FILE 787
//*                      system or to all systems in the sysplex    *   FILE 787
//*       incl         - send data to this system even you have     *   FILE 787
//*                      set the BOUNDARY to 'X' (only to one       *   FILE 787
//*                      system in a plex)                          *   FILE 787
//*       excl         - do not send data to this system            *   FILE 787
//*       SYSPLEX      - the sysplex name where the system runs     *   FILE 787
//*                                                                 *   FILE 787
//*                                                                 *   FILE 787
//*       Please see member $$NOTE1 for further installation        *   FILE 787
//*       details.                                                  *   FILE 787
//*                                                                 *   FILE 787
//***FILE 788 is from Craig Schneiderwent and contains the MA1K     *   FILE 788
//*           application for MQ Series, which was authored by      *   FILE 788
//*           him.  This application used to be distributed on      *   FILE 788
//*           an IBM website, but it is now distributed here.       *   FILE 788
//*                                                                 *   FILE 788
//*           email:  cschneidpublic@yahoo.com                      *   FILE 788
//*                                                                 *   FILE 788
//*   External Information for this package :                       *   FILE 788
//*                                                                 *   FILE 788
//*    This pds contains three files.  The first is source and      *   FILE 788
//*    the second the attendant copybooks for what used to be       *   FILE 788
//*    known as the Category 4 WebSphere MQ SupportPac MA1K.        *   FILE 788
//*                                                                 *   FILE 788
//*    This supportpac used to be hosted by IBM on their            *   FILE 788
//*    website, but changes to IBM's "agreement" document           *   FILE 788
//*    governing such hosting necessitated its removal.  The        *   FILE 788
//*    MA1KSRC and MA1KCPY files are XMITted PDSs that were         *   FILE 788
//*    FTP'd in binary.  The last file is MA1KDOC which has         *   FILE 788
//*    further details about the use of the application and a       *   FILE 788
//*    contact email address.                                       *   FILE 788
//*                                                                 *   FILE 788
//*    I am the original author of the MA1K SupportPac, and         *   FILE 788
//*    would like its availability to continue.                     *   FILE 788
//*                                                                 *   FILE 788
//*   Particulars and Details about this package :                  *   FILE 788
//*                                                                 *   FILE 788
//*    MA1K Application....                                         *   FILE 788
//*                                                                 *   FILE 788
//*    The purpose of this application is to encapsulate            *   FILE 788
//*    triggered message processing for MQSeries applications       *   FILE 788
//*    triggered in CICS TS.                                        *   FILE 788
//*                                                                 *   FILE 788
//*    Applications that are triggered can call this subroutine     *   FILE 788
//*    and receive their triggering message.  If the triggering     *   FILE 788
//*    message's MQMD-BACKOUTCOUNT >= the queue's                   *   FILE 788
//*    MQIA-BACKOUT-THRESHOLD the "poison" message will be          *   FILE 788
//*    moved to the queue's MQCA-BACKOUT-REQ-Q-NAME.  If the        *   FILE 788
//*    queue has no MQCA-BACKOUT-REQ-Q-NAME the poison message      *   FILE 788
//*    will be discarded.                                           *   FILE 788
//*                                                                 *   FILE 788
//*    In any case, a message will be written to the system log     *   FILE 788
//*    indicating what action was taken.                            *   FILE 788
//*                                                                 *   FILE 788
//*    POSSIBLE USES                                                *   FILE 788
//*    This application generically encapsulates triggered          *   FILE 788
//*    message processing, backout processing and error             *   FILE 788
//*    handling for triggered queues in CICS TS.  Adopted as a      *   FILE 788
//*    standard, or used as a base and modified to create a         *   FILE 788
//*    standard, development time can be reduced and uniform        *   FILE 788
//*    error handling assured.                                      *   FILE 788
//*                                                                 *   FILE 788
//*    These source code members presume a minimum CICS TS          *   FILE 788
//*    level of 3.1 and a minimum WebSphere MQ level of 6.0.        *   FILE 788
//*                                                                 *   FILE 788
//***FILE 789 is from Al Ferguson and contains a batch job to       *   FILE 789
//*           automate and run IBM's SCRT (Sub-Capacity             *   FILE 789
//*           Reporting Tool) report every month automatically,     *   FILE 789
//*           and to email the result to IBM.  This will help       *   FILE 789
//*           all of you who have to do this, and use a person      *   FILE 789
//*           to perform all the operations manually.               *   FILE 789
//*                                                                 *   FILE 789
//*           email: Al.Ferguson@sccompanies.com                    *   FILE 789
//*                                                                 *   FILE 789
//*   See member $$NOTE02 for update information.                   *   FILE 789
//*                                                                 *   FILE 789
//*   Description ---                                               *   FILE 789
//*                                                                 *   FILE 789
//*   I have been working on a batch JOB to automate the            *   FILE 789
//*   sending of our Monthly SCRT Report (Sub-Capacity              *   FILE 789
//*   Reporting Tool) to IBM for Sub-Capacity Licensing via         *   FILE 789
//*   eMail. It uses:                                               *   FILE 789
//*                                                                 *   FILE 789
//*   o CBT GDG Copy Utility (File 482)                             *   FILE 789
//*   o A REXX I wrote to Build the IFASMFDP PARMs to               *   FILE 789
//*     get just last months MULC Records (runs under               *   FILE 789
//*     IRXJCL).                                                    *   FILE 789
//*   o IBM's SCRTTOOL (see                                         *   FILE 789
//*     http://www-03.ibm.com/servers/eserver/zseries/swprice/scrt/ *   FILE 789
//*   o A RXSOCKET API based REXX I wrote to submit the             *   FILE 789
//*     report as a MIME attachment to IBM's LMS eMail              *   FILE 789
//*     process (runs under IRXJCL).                                *   FILE 789
//*   o A REXX to do date manipulation, based of a REXX &           *   FILE 789
//*     Algorithms by David A. Cromley (A System Programmer         *   FILE 789
//*     Journal article from early 1990's).                         *   FILE 789
//*                                                                 *   FILE 789
//*   I also have the following JCL for this process:               *   FILE 789
//*                                                                 *   FILE 789
//*   o The entire JOB (6 STEPs + 1 per Image with MULC             *   FILE 789
//*     Records you need to process)                                *   FILE 789
//*   o Sample PARMs for my REXX EXECs.                             *   FILE 789
//*   o Sample PARMs for SCRT Tool (though each shop                *   FILE 789
//*     update these to reflect their environment)                  *   FILE 789
//*   o Sample JOB to LINKEDIT the SCRTTOOL (IBM gives              *   FILE 789
//*     you an inline LinkEdit-Go JOB)                              *   FILE 789
//*                                                                 *   FILE 789
//*   We schedule this JOB to run on the 2nd day of the month,      *   FILE 789
//*   early in the morning.  (This is the earliest IBM is ready     *   FILE 789
//*   to accept these reports).  It automatically sends the         *   FILE 789
//*   SCRT Tool Report to IBM each month.  IBM's suggested way      *   FILE 789
//*   to accomplish this requires a number of manual steps          *   FILE 789
//*   (create the report, download to your PC, create an email,     *   FILE 789
//*   attach the report, and send).  Using our process I do not     *   FILE 789
//*   forget and can go on vacation during the beginning of the     *   FILE 789
//*   month (with IBM's manual process, this could cause fines      *   FILE 789
//*   if we miss getting the report to them on time).               *   FILE 789
//*                                                                 *   FILE 789
//*   Since IBM "improved" its eMail process, it has gotten         *   FILE 789
//*   very picky.  It took 3 months to get this working again       *   FILE 789
//*   (IBM has a number of not so well documented                   *   FILE 789
//*   requirements for this process. They also gave little          *   FILE 789
//*   information to help us figure out why it was not being        *   FILE 789
//*   accepted by the new process). This version works with         *   FILE 789
//*   the new system which assumes your IBM Account Name is         *   FILE 789
//*   also your email address and is 32 or less characters in       *   FILE 789
//*   total. For those using Sub-Capacity Licensing, this may       *   FILE 789
//*   be quite useful (and allow them to keep some more of          *   FILE 789
//*   their hair, vs. trying to figure this out on their            *   FILE 789
//*   own).                                                         *   FILE 789
//*                                                                 *   FILE 789
//*   In the process of creating this I wrote a generic             *   FILE 789
//*   RXSOCKET API base REXX to do eMail with MIME                  *   FILE 789
//*   attachments. I also used this to test the SMTP Server         *   FILE 789
//*   and adjust its configuration (getting it to work,             *   FILE 789
//*   securing it, and tuning logging). This REXX runs under        *   FILE 789
//*   IRXJCL and handles the following MIME Types:                  *   FILE 789
//*                                                                 *   FILE 789
//*   The last Content-Type requires access to the Leland           *   FILE 789
//*   Lucius's ENCODE64 REXX Function from                          *   FILE 789
//*   http://www.homerow.net/asm/index.htm (I believe it is         *   FILE 789
//*   also part of his XMITIP).  I also have a sample JOB to        *   FILE 789
//*   run this REXX adding a couple of attachments. This was        *   FILE 789
//*   an interesting programming exercise in socket                 *   FILE 789
//*   Programming, SMTP socket programming, and SMTP header         *   FILE 789
//*   coding.  I have not seen a RXSOCKET API REXX that             *   FILE 789
//*   covered all of this, so it may be of interest to others       *   FILE 789
//*   for this reason.  This REXX works under:                      *   FILE 789
//*                                                                 *   FILE 789
//*   o IRXJCL with pre-allocated files (TSO is not                 *   FILE 789
//*     required)                                                   *   FILE 789
//*   o TSO with pre-allocated files                                *   FILE 789
//*   o A REXX or CList running under TSO, used to build            *   FILE 789
//*     and pre-allocate the files.                                 *   FILE 789
//*                                                                 *   FILE 789
//***FILE 790 is from Dave Danner (by way of Ken Tomiak) and        *   FILE 790
//*           contains his SRS (Sysout Retrieval Services) package. *   FILE 790
//*                                                                 *   FILE 790
//*           email:  ddanner9@yahoo.com                            *   FILE 790
//*                                                                 *   FILE 790
//*    About SRS (SYSOUT Retrieval Services)                        *   FILE 790
//*    ----- ---  ------ --------- --------                         *   FILE 790
//*                                                                 *   FILE 790
//*    SYSOUT Retrieval Services (SRS) is a product that            *   FILE 790
//*    retrieves data from the JES spool using the SYSOUT           *   FILE 790
//*    Application Program Interface (SAPI).  SRS supports a        *   FILE 790
//*    robust set of SYSOUT selection criteria (documented in       *   FILE 790
//*    the $ABOUT member of this pds) that can be specified         *   FILE 790
//*    by the user on the EXEC PARM= statement.  Using these        *   FILE 790
//*    criteria, SRS builds the necessary data structures and       *   FILE 790
//*    calls SAPI asking for SYSOUT data that matches the           *   FILE 790
//*    selection request.  If JES finds and returns a spool         *   FILE 790
//*    data set, SRS copies the data to a file specified by         *   FILE 790
//*    the user.                                                    *   FILE 790
//*                                                                 *   FILE 790
//*    For more complex applications, SRS supports a                *   FILE 790
//*    user-written "despooler" routine.  In this mode, SRS         *   FILE 790
//*    still processes selection criteria, and makes the SAPI       *   FILE 790
//*    call.  But instead of writing the spool data to a file,      *   FILE 790
//*    SRS calls the despooler routine, one record at a time,       *   FILE 790
//*    to process the data.  The SRSJWRAP program (which is         *   FILE 790
//*    included with SRS) is one example of a special               *   FILE 790
//*    despooler routine.                                           *   FILE 790
//*                                                                 *   FILE 790
//*    SRS can be invoked from a batch job or started task as       *   FILE 790
//*    follows:                                                     *   FILE 790
//*                                                                 *   FILE 790
//*    //DESPOOL EXEC SRS,PARM='<options>'                          *   FILE 790
//*                                                                 *   FILE 790
//*    <options> specify a combination of SRS control options       *   FILE 790
//*    and SYSOUT selection criteria.  An explanation of each       *   FILE 790
//*    option may be found in the $ABOUT member of this pds.        *   FILE 790
//*                                                                 *   FILE 790
//*    Required characters are in uppercase while optional          *   FILE 790
//*    characters are in lowercase.  For example, the DDname        *   FILE 790
//*    keyword can be specified as DD=, DDN=, DDNA=, DDNAM=,        *   FILE 790
//*    or DDNAME=.                                                  *   FILE 790
//*                                                                 *   FILE 790
//***FILE 791 is from Anthony S. Rudd (by way of Ken Tomiak) and    *   FILE 791
//*           contains a REXX function written in Assembler, that   *   FILE 791
//*           accomplishes GETMAIN and FREEMAIN functionality from  *   FILE 791
//*           within REXX.  For further documentation, see comments *   FILE 791
//*           in the GETMAIN code.                                  *   FILE 791
//*                                                                 *   FILE 791
//*           email:  ARudd@t-online.de                             *   FILE 791
//*                                                                 *   FILE 791
//*    Problem addressed:                                           *   FILE 791
//*                                                                 *   FILE 791
//*    The REXX language provides a large library of functions.     *   FILE 791
//*    This library includes a function to access main storage      *   FILE 791
//*    directly (the STORAGE function).  However, there is no       *   FILE 791
//*    direct way of allocating main storage from REXX - the        *   FILE 791
//*    following GETMAIN function addresses this problem.           *   FILE 791
//*                                                                 *   FILE 791
//*                                                                 *   FILE 791
//*    A DESCRIPTION OF THE GETMAIN FUNCTION                        *   FILE 791
//*                                                                 *   FILE 791
//*    The GETMAIN function has two sub-functions:                  *   FILE 791
//*                                                                 *   FILE 791
//*    *      OBTAIN, which allocates a block of main storage.      *   FILE 791
//*                                                                 *   FILE 791
//*    *      RELEASE, which releases (ie frees) a previously       *   FILE 791
//*          allocated main storage block.                          *   FILE 791
//*                                                                 *   FILE 791
//*    The main storage blocks are allocated above the              *   FILE 791
//*    16-megabyte address line in subpool 1.  The MVS STORAGE      *   FILE 791
//*    service is used both to allocate and deallocate main         *   FILE 791
//*    storage.                                                     *   FILE 791
//*                                                                 *   FILE 791
//*    Calling sequence                                             *   FILE 791
//*                                                                 *   FILE 791
//*    To allocate a main storage block, code:                      *   FILE 791
//*                                                                 *   FILE 791
//*          addr = GETMAIN('OBTAIN',length);                       *   FILE 791
//*                                                                 *   FILE 791
//*    where OBTAIN is the function to be performed (as usual       *   FILE 791
//*    for REXX functions, only the first character is used, ie     *   FILE 791
//*    'O' is also valid), length is the number of bytes to be      *   FILE 791
//*    allocated, and addr is returned with the decimal (start)     *   FILE 791
//*    address of the allocated main storage block.                 *   FILE 791
//*                                                                 *   FILE 791
//*    To free a previously allocated main storage block, code:     *   FILE 791
//*                                                                 *   FILE 791
//*          frc = GETMAIN('RELEASE',addr,length);                  *   FILE 791
//*                                                                 *   FILE 791
//*    where RELEASE is the function to be performed (only the      *   FILE 791
//*    first character is used, ie 'R' is also valid), addr is      *   FILE 791
//*    the decimal (start) address of the main-storage block to     *   FILE 791
//*    be released, length is the number of bytes to be             *   FILE 791
//*    released, and frc is the function return code.               *   FILE 791
//*                                                                 *   FILE 791
//*    Note that part of an allocated block can be released.        *   FILE 791
//*                                                                 *   FILE 791
//*    The standard REXX function value -3 indicates that REXX      *   FILE 791
//*    detected an error condition while trying to perform the      *   FILE 791
//*    function (eg the function could not be located).             *   FILE 791
//*                                                                 *   FILE 791
//*                                                                 *   FILE 791
//***FILE 792 is from Keith Cowden and contains an updated copy of  *   FILE 792
//*           the DISKMAP program from File 260.  This version of   *   FILE 792
//*           DISKMAP contains the EAV enhancements from z/OS 1.10  *   FILE 792
//*           but it also runs on lower levels of z/OS and before.  *   FILE 792
//*                                                                 *   FILE 792
//*           Please address inquiries to Sam Golob:                *   FILE 792
//*           sbgolob@cbttape.org                                   *   FILE 792
//*                                                                 *   FILE 792
//*           Source code for DISKMAP is contained in this file,    *   FILE 792
//*           but it can only be assembled with the z/OS 1.10       *   FILE 792
//*           versions of the IECSDSL1 and TRKADDR macros.          *   FILE 792
//*           Therefore we have included an already assembled       *   FILE 792
//*           load library in XMIT format, as member LOADLIB.       *   FILE 792
//*           If you have z/OS 1.10, you can assemble DISKMAP       *   FILE 792
//*           for yourself.                                         *   FILE 792
//*                                                                 *   FILE 792
//*           All z/OS 1.10 macros needed for assembly (I think):   *   FILE 792
//*                                                                 *   FILE 792
//*           CVAFDSM DCBE IECSDSL1 OBTAIN TRKADDR                  *   FILE 792
//*                                                                 *   FILE 792
//*           To get the load module, issue a TSO RECEIVE command   *   FILE 792
//*           as follows:                                           *   FILE 792
//*                                                                 *   FILE 792
//*           RECEIVE INDS('this.pds(LOADLIB)')                     *   FILE 792
//*                                                                 *   FILE 792
//*           and copy the DISKMAP load module to an APF-authorized *   FILE 792
//*           load library.                                         *   FILE 792
//*                                                                 *   FILE 792
//***FILE 793 is from Richard Rice and contains his modifications   *   FILE 793
//*           to SDF (Spool Display Facility) for JES3.  Changes    *   FILE 793
//*           were made to SDF 2.9, whereas SDF 3.4 is the current  *   FILE 793
//*           version.  Further explanations are shown below.       *   FILE 793
//*                                                                 *   FILE 793
//*           The modifications presented here are coded for SDF    *   FILE 793
//*           3.4, but they were not tested--they just assembled    *   FILE 793
//*           cleanly using the SDF 3.4 macros.  So at this time,   *   FILE 793
//*           we have to regard this code as an alpha test.         *   FILE 793
//*                                                                 *   FILE 793
//*           email:  Richard.L.Rice@conocophillips.com             *   FILE 793
//*                                                                 *   FILE 793
//*    What was done:                                               *   FILE 793
//*                                                                 *   FILE 793
//*       Here are the source, ISPPLIB, and ISPMLIB for the new     *   FILE 793
//*       functions I added to our SDF.                             *   FILE 793
//*                                                                 *   FILE 793
//*       Again we use SDF 2.9.  I have no way to test SDF 3.4.     *   FILE 793
//*                                                                 *   FILE 793
//*       Anyone that wants to try this will need to update their   *   FILE 793
//*       assembly and link jobs.  The MAIN line program changes    *   FILE 793
//*       quite a bit from 2.9 to 3.4.  I'm not too sure that       *   FILE 793
//*       update I made to SDFMAIN is all that is required for      *   FILE 793
//*       SDFMAIN or not.                                           *   FILE 793
//*                                                                 *   FILE 793
//*       I added "A" and "E" as primary options, so I updated      *   FILE 793
//*       our primary menu SPF panel.  The new ACT and ENQ          *   FILE 793
//*       functions use new ISPF panels.  I think I have included   *   FILE 793
//*       all the new panels in the "sdfplib".  There were some     *   FILE 793
//*       new messages, so there is one new member in the           *   FILE 793
//*       SDFMLIB.                                                  *   FILE 793
//*                                                                 *   FILE 793
//***FILE 794 is from Daniel F. Gaeta and contains a useful REXX    *   FILE 794
//*           function, called RXMEM.                               *   FILE 794
//*                                                                 *   FILE 794
//*           email:  dfgaeta@br.ibm.com                            *   FILE 794
//*                                                                 *   FILE 794
//*    Description:                                                 *   FILE 794
//*                                                                 *   FILE 794
//*    I am a Rexx lover and the RXMEM is one more function         *   FILE 794
//*    from my personal library that I would like to share          *   FILE 794
//*    with you.                                                    *   FILE 794
//*                                                                 *   FILE 794
//*    As I work with other languages, like Java, VB, Pascal        *   FILE 794
//*    and C++, sometimes I need to use linked list, in Java        *   FILE 794
//*    for example, ArrayList class...                              *   FILE 794
//*                                                                 *   FILE 794
//*    That is an interesting technique to manage items from a      *   FILE 794
//*    list, using to resources like insert, add to end, count      *   FILE 794
//*    items, delete items and other.                               *   FILE 794
//*                                                                 *   FILE 794
//*    Now I am provinding the first version of RXMEM.              *   FILE 794
//*                                                                 *   FILE 794
//*    The RXMEM has the following features :                       *   FILE 794
//*      - to manage token pair service, using IEANTxx modules      *   FILE 794
//*      - to manage getmain and freemain memory                    *   FILE 794
//*      - to manage linked list options                            *   FILE 794
//*                                                                 *   FILE 794
//*    As I am working on improvements, I am not delivering         *   FILE 794
//*    the source code.  Just a rexx samples.                       *   FILE 794
//*                                                                 *   FILE 794
//*    Please, let me know about possible abends and issues.        *   FILE 794
//*                                                                 *   FILE 794
//*    Gaeta, Daniel                                                *   FILE 794
//*    IBM/BR                                                       *   FILE 794
//*                                                                 *   FILE 794
//*    This is a summary of function/actions :                      *   FILE 794
//*                                                                 *   FILE 794
//*                                                                 *   FILE 794
//*      FUNCTION  : RXMEM                                          *   FILE 794
//*      PARAMETER : RXMEM(ACTION,LISTNAME,<..>)                    *   FILE 794
//*                                                                 *   FILE 794
//*      ACTIONS   :                                                *   FILE 794
//*        TKCRT - CREATE A TOKEN PAIR                              *   FILE 794
//*        RET=('TKCRT',PAIR1,PAIR2)                                *   FILE 794
//*        ...                                                      *   FILE 794
//*        TKDEL - DELETE A TOKEN PAIR                              *   FILE 794
//*        RET=('TKDEL',PAIR1)                                      *   FILE 794
//*        ...                                                      *   FILE 794
//*        TKRTV - RETRIEVE A TOKEN PAIR                            *   FILE 794
//*        RET=('TKRTV',PAIR1)                                      *   FILE 794
//*        ...                                                      *   FILE 794
//*        OBTAIN - OBTAIN MEMORY USING BYTES                       *   FILE 794
//*        ADR=('OBTAIN',D2C(<BYTES>,4))                            *   FILE 794
//*        ...                                                      *   FILE 794
//*        RELEASE - RELEASE MEMORY OBTAINED FROM OBTAIN            *   FILE 794
//*        RET=('RELEASE',D2C(<ADDR>,4),D2C(<LEN>,4))               *   FILE 794
//*        ...                                                      *   FILE 794
//*        CREATE - CREATE A NEW LINKED LIST                        *   FILE 794
//*        RET=('CREATE',<LNAME>)                                   *   FILE 794
//*        ...                                                      *   FILE 794
//*        DESTROY - DESTROY PREVIOUS LINKED LIST CREATED           *   FILE 794
//*        RET=('DESTROY',<LNAME>)                                  *   FILE 794
//*        ...                                                      *   FILE 794
//*        ADD - ADD AN ELEMENT INTO END OF LIST                    *   FILE 794
//*        RET=('ADD',<LNAME>,<STR>)                                *   FILE 794
//*        ...                                                      *   FILE 794
//*        DEL - DELETE AN ELEMENT IN ORDINAL POSITION              *   FILE 794
//*        RET=('DEL',<LNAME>,D2C(<POS>,4))                         *   FILE 794
//*        ...                                                      *   FILE 794
//*        GET - GETTING A DATA ITEM FROM ORDINAL POSITION          *   FILE 794
//*        STR=('GET',<LNAME>,D2C(<POS>,4))                         *   FILE 794
//*        ...                                                      *   FILE 794
//*        SET - SETTING A DATA ITEM TO ORDINAL POSITION            *   FILE 794
//*        STR=('SET',<LNAME>,D2C(<POS>,4),<STR>)                   *   FILE 794
//*        ...                                                      *   FILE 794
//*        COUNT - NUMBER ELEMENTS FROM LINKED LIST                 *   FILE 794
//*        CNT=('COUNT',<LNAME>)                                    *   FILE 794
//*        ...                                                      *   FILE 794
//*        SAVESTEM - UPDATE STEM VARIABLE WITH ITEMS FROM LIST     *   FILE 794
//*        RET=('SAVESTEM',<LNAME>)                                 *   FILE 794
//*        ...                                                      *   FILE 794
//*        LOADSTEM - UPDATE ITEMS FROM LIST USING STEM VARIABLE    *   FILE 794
//*        RET=('LOADSTEM',<LNAME>,D2C(<BEGIN>,4),D2C(<END>,4))     *   FILE 794
//*        ...                                                      *   FILE 794
//*        INS - INSERT AN ELEMENTO IN ORDINAL POSITION             *   FILE 794
//*        RET=('INS',<LNAME>,D2C(<POS>,4),<STR>)                   *   FILE 794
//*                                                                 *   FILE 794
//***FILE 795 is an ALPHA TEST version of an HTTP Server written    *   FILE 795
//*           in Assembler by Richard Rice.  This package DOES NOT  *   FILE 795
//*           WORK PROPERLY as is.  See member $$NOTE1.             *   FILE 795
//*                                                                 *   FILE 795
//*           The reason why we are putting this package out,       *   FILE 795
//*           IS TO GET SOMEBODY (who knows what he/she is doing)   *   FILE 795
//*           TO FIX IT!  IF YOU KNOW THIS STUFF, PLEASE TRY TO     *   FILE 795
//*           GET IT TO WORK, and then send it back to me.          *   FILE 795
//*                                                                 *   FILE 795
//*           email:  sbgolob@cbttape.org                           *   FILE 795
//*                                                                 *   FILE 795
//*           email:  Richard.L.Rice@conocophillips.com             *   FILE 795
//*                                                                 *   FILE 795
//***FILE 796 is from Lindy Mayfield, and contains a collection     *   FILE 796
//*           of his utilities.                                     *   FILE 796
//*                                                                 *   FILE 796
//*           email:  Lindy Mayfield <Lindy.Mayfield@sas.com>       *   FILE 796
//*                                                                 *   FILE 796
//*    So far there are two utilities:                              *   FILE 796
//*                                                                 *   FILE 796
//*    1) A Rexx/ISPF exec that shows control blocks and            *   FILE 796
//*       information regarding 522 timeouts.                       *   FILE 796
//*                                                                 *   FILE 796
//*    2) A Rexx assembler function to write SMF records.           *   FILE 796
//*       Uses BPX1SMF.                                             *   FILE 796
//*                                                                 *   FILE 796
//***FILE 797 is the combined work of Dan Dalby and Sam Golob.      *   FILE 797
//*                                                                 *   FILE 797
//*           email:  sbgolob@cbttape.org                           *   FILE 797
//*                                                                 *   FILE 797
//*           email:  zOS.JES2@Gmail.com    (Dan Dalby)             *   FILE 797
//*                                                                 *   FILE 797
//*           These programs manipulate, re-create, or alter        *   FILE 797
//*           the characteristics of your TSO "auth tables"         *   FILE 797
//*           that are pointed to by the LWA (Logon Work Area)      *   FILE 797
//*           for your TSO session.  With these programs, you       *   FILE 797
//*           have an amazing and phenomenal amount of control      *   FILE 797
//*           over those tables (unique to your own TSO session).   *   FILE 797
//*           You just have to authorize one of these programs      *   FILE 797
//*           (TSUB or LLWA or LWATMGR) in your IKJEFTE2 table,     *   FILE 797
//*           and you're on your way.                               *   FILE 797
//*                                                                 *   FILE 797
//*           These tools will help if you're installing some       *   FILE 797
//*           product which requires TSO authorization, and you     *   FILE 797
//*           want the authorization JUST FOR YOU and for NOBODY    *   FILE 797
//*           ELSE.                                                 *   FILE 797
//*                                                                 *   FILE 797
//*           Also added program ASUB which manipulates the         *   FILE 797
//*           PARMLIB-generated TSO "auth tables" that are in       *   FILE 797
//*           common storage, which are valid for the entire LPAR,  *   FILE 797
//*           and which are copied to the LWA-pointed tables that   *   FILE 797
//*           are manipulated by TSUB and the other programs in     *   FILE 797
//*           this pds.  ASUB has a syntax similar to TSUB.         *   FILE 797
//*                                                                 *   FILE 797
//*           Dan Dalby has contributed the LWATMGR program, and    *   FILE 797
//*             also the LWATEDIT program to EDIT the tables and    *   FILE 797
//*             SAVE them, thereby creating updated new tables,     *   FILE 797
//*             that are effective immediately.                     *   FILE 797
//*                                                                 *   FILE 797
//*           These programs must be APF authorized.  However,      *   FILE 797
//*           once these programs have been authorized to your      *   FILE 797
//*           TSO session, you can subsequently authorize any       *   FILE 797
//*           number of other programs, so your initial tables      *   FILE 797
//*           do not have to contain much, just one of these        *   FILE 797
//*           programs, and perhaps the STEPLIB program, from       *   FILE 797
//*           Dan Dalby also (source included in this file).        *   FILE 797
//*           You need the macros from member MACLIB to assemble    *   FILE 797
//*           STEPLIB and Dan's other programs.                     *   FILE 797
//*                                                                 *   FILE 797
//*           These contributions may be used separately, or they   *   FILE 797
//*           may be combined, for even further effectiveness.      *   FILE 797
//*           They all refer to your individual TSO userid's local  *   FILE 797
//*           copies of the four TSO authorization tables:          *   FILE 797
//*                                                                 *   FILE 797
//*               AUTHCMD   - or IKJEFTE2   csect                   *   FILE 797
//*               AUTHPGM   - or IKJEFTE8   csect                   *   FILE 797
//*               AUTHTSF   - or IKJEFTAP   csect                   *   FILE 797
//*               NOTBKGND  - or IKJEFTNS   csect                   *   FILE 797
//*                                                                 *   FILE 797
//*           The copies (of these tables) that your own TSO        *   FILE 797
//*           session uses, are pointed to by the Logon Work Area   *   FILE 797
//*           (control block LWA - described by the IKJEFLWA macro  *   FILE 797
//*           in SYS1.MODGEN), and they are unique to your own      *   FILE 797
//*           TSO session.  Each TSO session has its own copy of    *   FILE 797
//*           the authorization tables, pointed to by the LWA.      *   FILE 797
//*                                                                 *   FILE 797
//*           The programs in this file manipulate or display the   *   FILE 797
//*           authorization tables that are used by your TSO        *   FILE 797
//*           session.  Contrary to popular belief, the actual      *   FILE 797
//*           IKJEFTE2, IKJEFTE8, IKJEFTAP, and IKJEFTNS tables     *   FILE 797
//*           that are used by your session are NOT in common       *   FILE 797
//*           storage.  The common storage tables (or the IKJTABLS  *   FILE 797
//*           load module CSECTs in an APF-authorized STEPLIB in    *   FILE 797
//*           your LOGON PROC) are actually copied into your own    *   FILE 797
//*           TSO address space at LOGON time.  So everybody        *   FILE 797
//*           actually has individual copies of their own tables    *   FILE 797
//*           in their own TSO address space.  That is why, when    *   FILE 797
//*           you change these tables in common storage, you have   *   FILE 797
//*           to LOGON again for them to take effect.  However, a   *   FILE 797
//*           PARMLIB UPDATE(xx) command, at least in the later     *   FILE 797
//*           z/OS releases, will go around to all the active TSO   *   FILE 797
//*           address spaces, and will update their tables.  But    *   FILE 797
//*           this is with the caveat that if the "came from        *   FILE 797
//*           STEPLIB" bits are on in the LWAPRMLB flag in the      *   FILE 797
//*           LWA, then PARMLIB UPDATE will not overlay your LWA    *   FILE 797
//*           tables.  So we make sure to turn those bits on, when  *   FILE 797
//*           we make our new tables.                               *   FILE 797
//*                                                                 *   FILE 797
//*           So when you do a PARMLIB UPDATE, the new tables       *   FILE 797
//*           are in effect right away, at least when the           *   FILE 797
//*           current tables are not marked as coming from a        *   FILE 797
//*           STEPLIB.                                              *   FILE 797
//*                                                                 *   FILE 797
//*           Therefore, when you do a PARMLIB UPDATE, these new    *   FILE 797
//*           settings apply to almost EVERYONE who's logged on     *   FILE 797
//*           to TSO.  If you want your OWN settings, and you       *   FILE 797
//*           want to keep them in force, these programs presented  *   FILE 797
//*           here, are very effective tools.                       *   FILE 797
//*                                                                 *   FILE 797
//*       Short summary of the tools -                              *   FILE 797
//*                                                                 *   FILE 797
//*           SHOWTPVT shows all fields of the IKJTPVT control      *   FILE 797
//*           block, with their values on your system.  This        *   FILE 797
//*           control block is undocumented (for the public)        *   FILE 797
//*           by IBM.  Very useful for the system programmer.       *   FILE 797
//*           Its values are controlled by the IKJTSOxx PARMLIB     *   FILE 797
//*           member.  (See CBT File 731 for more tools.)           *   FILE 797
//*                                                                 *   FILE 797
//*           LWATMGR is a self-contained table management tool,    *   FILE 797
//*           and is described below.                               *   FILE 797
//*                                                                 *   FILE 797
//*           TSUB will manipulate existing LWA-pointed auth        *   FILE 797
//*           tables for a user's TSO session.  So TSUB does        *   FILE 797
//*           not need to allocate external files.                  *   FILE 797
//*                                                                 *   FILE 797
//*           TSUB will DISPLAY, REPLACE, BLANK or "NULLIFY" any    *   FILE 797
//*           existing table entry.  Or TSUB can display any        *   FILE 797
//*           of the entire tables.  If you BLANK OUT an entry      *   FILE 797
//*           which is not the last one in the table, then that     *   FILE 797
//*           invalidates all subsequent entries in that table.     *   FILE 797
//*           A blank table entry is always treated as a delimiter. *   FILE 797
//*           So you have to know what you are doing.  TSUB's       *   FILE 797
//*           DISPLAY functions do not have to be APF-authorized.   *   FILE 797
//*                                                                 *   FILE 797
//*           Nullify will insert C'?       ' (? followed by        *   FILE 797
//*           7 blanks) into a table entry, effectively nullifying  *   FILE 797
//*           it without invalidating the table entries following.  *   FILE 797
//*           Use action "N" instead of "B" unless you know         *   FILE 797
//*           EXACTLY the effect you want using "B".                *   FILE 797
//*                                                                 *   FILE 797
//*           TSUB can now alter the characteristics of an          *   FILE 797
//*           existing auth table.  See the functions of TSUB       *   FILE 797
//*           below:                                                *   FILE 797
//*                                                                 *   FILE 797
//*           The original action codes of TSUB are:                *   FILE 797
//*                                                                 *   FILE 797
//*           D - Display table entries by slot number.             *   FILE 797
//*           R - Replace the entry in a given slot, by another     *   FILE 797
//*               program name.                                     *   FILE 797
//*           B - Blank a given table entry, by slot number.        *   FILE 797
//*           N - Nullify a given table entry, by slot number.      *   FILE 797
//*                                                                 *   FILE 797
//*           All action codes in TSUB, except D, require           *   FILE 797
//*           APF-authorization.                                    *   FILE 797
//*                                                                 *   FILE 797
//*           The new action codes of TSUB are:                     *   FILE 797
//*                                                                 *   FILE 797
//*           H - Add PARMLIB-like table header, in 2nd 8-bytes.    *   FILE 797
//*           L - Supply length of table to first blank, in LWA.    *   FILE 797
//*           Z - Zero the table length marked in the LWA.          *   FILE 797
//*           S - Mark that the table came from STEPLIB, so         *   FILE 797
//*                someone (else's) PARMLIB UPDATE(xx) won't        *   FILE 797
//*                overlay it.  You'll need this if you modified    *   FILE 797
//*                your existing table (if originally copied from   *   FILE 797
//*                PARMLIB) and you don't want a PARMLIB UPDATE(xx) *   FILE 797
//*                to replace your changes.                         *   FILE 797
//*           P - Turn off STEPLIB bit in LWA and mark that it      *   FILE 797
//*                came from PARMLIB.  Now PARMLIB UPDATE(xx)       *   FILE 797
//*                will overlay the table.                          *   FILE 797
//*           X - (undocumented) Gives LPA storage range display.   *   FILE 797
//*                                                                 *   FILE 797
//*           LLWA will replace all, or some, of these tables       *   FILE 797
//*           completely, from various sources.  LLWA can           *   FILE 797
//*           provide the new tables from an assembled load         *   FILE 797
//*           module (similar to IKJTABLS), or from a list of       *   FILE 797
//*           program names in LRECL=8 format, or from a            *   FILE 797
//*           card-image file, that is in PARMLIB's IKJTSOxx        *   FILE 797
//*           format.                                               *   FILE 797
//*                                                                 *   FILE 797
//*           You can control the inputs and outputs to the LLWA    *   FILE 797
//*           program by manually allocating the input datasets     *   FILE 797
//*           and maybe the one possible output dataset, using      *   FILE 797
//*           the TSO ALLOCATE and FREE commands.                   *   FILE 797
//*                                                                 *   FILE 797
//*           You should Linkedit LLWA as NORENT and NOREUS.        *   FILE 797
//*           LLWA will operate more efficiently then, and will     *   FILE 797
//*           not use up so much storage in your address space      *   FILE 797
//*           when you run it.  It is also better (but not really   *   FILE 797
//*           necessary) to run LLWA in TSO READY mode, rather      *   FILE 797
//*           than under ISPF.  Since ISPF takes up the TSO user's  *   FILE 797
//*           "below 16M" storage, and LLWA needs to GETMAIN more   *   FILE 797
//*           storage for the new auth tables, it is best to run    *   FILE 797
//*           LLWA in READY mode, when more storage is available.   *   FILE 797
//*                                                                 *   FILE 797
//*           LWATMGR uses dynamic allocation throughout.           *   FILE 797
//*                                                                 *   FILE 797
//*           The functionality of LWATMGR is pretty much covered   *   FILE 797
//*           by the two programs LLWA and TSUB.  And vice-versa.   *   FILE 797
//*           But each one does a few things that the others will   *   FILE 797
//*           not do.  So it pays to be familiar with all three     *   FILE 797
//*           programs.                                             *   FILE 797
//*                                                                 *   FILE 797
//*       Description of LWATMGR -                                  *   FILE 797
//*                                                                 *   FILE 797
//*           This program represents a breakthrough in systems     *   FILE 797
//*           programmer capability, in that it allows the sysprog  *   FILE 797
//*           with access to an APF-authorized library to replace   *   FILE 797
//*           and manipulate his own TSO session's authorization    *   FILE 797
//*           tables.  It also allows the sysprog to test a new     *   FILE 797
//*           IKJTSOxx PARMLIB member on one TSO userid at a time,  *   FILE 797
//*           before letting it loose on every userid in the LPAR.  *   FILE 797
//*                                                                 *   FILE 797
//*           Let me explain.  Everybody knows that you can change  *   FILE 797
//*           the TSO authorization tables globally in your LPAR,   *   FILE 797
//*           by editing the IKJTSOxx member in PARMLIB and either  *   FILE 797
//*           using a PARMLIB UPDATE(xx) TSO command, or a SET      *   FILE 797
//*           IKJTSO=xx operator console command, to make this      *   FILE 797
//*           member active.  The PARMLIB UPDATE TSO command and    *   FILE 797
//*           the SET IKJTSO=xx operator command do essentially     *   FILE 797
//*           the same thing.  What is not generally known, is why  *   FILE 797
//*           and how these commands will affect every currently    *   FILE 797
//*           active TSO userid on the system immediately.  You     *   FILE 797
//*           don't want to do that, if you are merely testing      *   FILE 797
//*           the effect of a new IKJTSOxx member.  Running a       *   FILE 797
//*           PARMLIB UPDATE(xx) command on it, would be like       *   FILE 797
//*           putting it into production immediately.  You would    *   FILE 797
//*           like to run the new tables in some kind of "test      *   FILE 797
//*           mode" first, on one userid at a time.                 *   FILE 797
//*                                                                 *   FILE 797
//*           Enter LWATMGR.  Let me tell you an unknown fact       *   FILE 797
//*           first.  The PARMLIB-created TSO auth tables are       *   FILE 797
//*           NOT the ones that are used by your TSO session to     *   FILE 797
//*           make decisions about authorized TSO commands.         *   FILE 797
//*           During LOGON time, the public tables are COPIED       *   FILE 797
//*           into SP-252 Key 0 storage in your own TSO address     *   FILE 797
//*           space.  They are then pointed to, by fields in the    *   FILE 797
//*           Logon Work Area (the LWA), and THESE copies of the    *   FILE 797
//*           tables (IKJEFTE2, IKJEFTE8, IKJEFTAP, IKJEFTNS)       *   FILE 797
//*           are the ones your session actually uses.  LWATMGR     *   FILE 797
//*           does something that nothing else (to our              *   FILE 797
//*           knowledge) does.  It can manipulate those             *   FILE 797
//*           "LWA-pointed-to" copies of the TSO authorization      *   FILE 797
//*           tables, and its scope immediately affects ONLY the    *   FILE 797
//*           TSO session which invoked the LWATMGR program.  So    *   FILE 797
//*           when you use LWATMGR to change your TSO session's     *   FILE 797
//*           auth tables, you only affect your own session, and    *   FILE 797
//*           you do not touch the sessions belonging to the        *   FILE 797
//*           rest of your TSO world (the other sessions on your    *   FILE 797
//*           LPAR, or MVS instance).                               *   FILE 797
//*                                                                 *   FILE 797
//*           LWATMGR has several modes of operation.  LWATMGR      *   FILE 797
//*           can replace ALL of the Auth tables from an IKJTSOxx-  *   FILE 797
//*           like source member.  This is called the UPDATE        *   FILE 797
//*           function.  Input to the UPDATE function of LWATMGR    *   FILE 797
//*           is an IKJTSOxx PARMLIB member, or another FB-80       *   FILE 797
//*           file or pds member which looks like it.  You can      *   FILE 797
//*           also choose to replace only one table from the        *   FILE 797
//*           IKJTSOxx-format source member.                        *   FILE 797
//*                                                                 *   FILE 797
//*           Another thing LWATMGR can do, is to either replace    *   FILE 797
//*           one (program name) entry in a particular table, by    *   FILE 797
//*           a different program name.  This is the REPLACE        *   FILE 797
//*           option.                                               *   FILE 797
//*                                                                 *   FILE 797
//*           A third thing LWATMGR can do, is to eliminate one     *   FILE 797
//*           table entry from a particular table.  This is the     *   FILE 797
//*           DELETE option.                                        *   FILE 797
//*                                                                 *   FILE 797
//*           A fourth thing LWATMGR can do, is to add one new      *   FILE 797
//*           program name to any of the tables.  This is the ADD   *   FILE 797
//*           option of LWATMGR.                                    *   FILE 797
//*                                                                 *   FILE 797
//*           A fifth option of LWATMGR is to DISPLAY all the       *   FILE 797
//*           existing "LWA-pointed-to" auth tables, or to DISPLAY  *   FILE 797
//*           any of the tables, one at a time.  The default        *   FILE 797
//*           action of LWATMGR, entered without parameters, is to  *   FILE 797
//*           display all four tables as they actually exist for    *   FILE 797
//*           your TSO session.                                     *   FILE 797
//*                                                                 *   FILE 797
//*           LWATMGR has a sixth and a seventh option too.         *   FILE 797
//*                                                                 *   FILE 797
//*           The sixth option is called RELOAD.  RELOAD replaces   *   FILE 797
//*           the "LWA-pointed-to" tables for your session, from    *   FILE 797
//*           an IKJTABLS-like load module, which contains CSECTs   *   FILE 797
//*           IKJEFTE2, IKJEFTE8, IKJEFTAP, and IKJEFTNS.  You can  *   FILE 797
//*           assemble and linkedit your own tables of this type.   *   FILE 797
//*           (See CBT Tape File 185 to learn how to set this up.)  *   FILE 797
//*           The RELOAD option of LWATMGR is invoked AFTER the     *   FILE 797
//*           LOGON time.  But although it resembles getting your   *   FILE 797
//*           tables (at LOGON time) from an APF-authorized         *   FILE 797
//*           STEPLIB in your LOGON PROC (again see CBT File 185    *   FILE 797
//*           for more details), THIS NEW process is done AFTER     *   FILE 797
//*           the LOGON time.  And furthermore, LWATMGR's process   *   FILE 797
//*           makes the tables look almost as though they came      *   FILE 797
//*           from PARMLIB, and not as if they came from an         *   FILE 797
//*           APF-authorized STEPLIB.  (There are significant       *   FILE 797
//*           internal difference between (LWA) tables that were    *   FILE 797
//*           created from those two separate sources.              *   FILE 797
//*                                                                 *   FILE 797
//*           You can use LWATMGR RELOAD *after* you've used Dan    *   FILE 797
//*           Dalby's STEPLIB program on an APF-authorized load     *   FILE 797
//*           library to create the effect of having an             *   FILE 797
//*           authorized STEPLIB in your LOGON PROC, containing     *   FILE 797
//*           an IKJTABLS load module.  But this can be done to     *   FILE 797
//*           ANY TSO session (to which STEPLIB and LWATMGR are     *   FILE 797
//*           in the AUTHCMD table), without a STEPLIB in the       *   FILE 797
//*           LOGON PROC, and AFTER LOGON time.                     *   FILE 797
//*                                                                 *   FILE 797
//*           A seventh option of LWATMGR is the BUILD option,      *   FILE 797
//*           where you can reload some or all of the tables, not   *   FILE 797
//*           from a load module, or from an IKJTSOxx member,       *   FILE 797
//*           which may be relatively hard to keep and maintain,    *   FILE 797
//*           but from a mere list of program names, kept in a      *   FILE 797
//*           file that has LRECL = 8.  This can be either one      *   FILE 797
//*           flat file, or many members of a pds.  This kind of    *   FILE 797
//*           "authorized program list" is very compact and very    *   FILE 797
//*           easy to store.  You can keep many different "special  *   FILE 797
//*           purpose" authorization lists in a very small space,   *   FILE 797
//*           such as members of a pds.                             *   FILE 797
//*                                                                 *   FILE 797
//*           Input to the BUILD option of LWATMGR is just a list   *   FILE 797
//*           of program names, starting with headers ---E2---,     *   FILE 797
//*           ---E8---, ---NS---, or ---AP---.  These headers tell  *   FILE 797
//*           LWATMGR which tables to construct.  The record length *   FILE 797
//*           of each record is just 8 bytes, making the table      *   FILE 797
//*           extremely compact, and easy to edit.  You can keep    *   FILE 797
//*           a whole bunch of different auth tables available for  *   FILE 797
//*           different purposes, very compactly stored in a pds,   *   FILE 797
//*           and you can shuffle them "into production" in your    *   FILE 797
//*           own TSO session, using the BUILD option of LWATMGR,   *   FILE 797
//*           as needed.  Again, they are not global.  They affect  *   FILE 797
//*           only your own TSO session.                            *   FILE 797
//*                                                                 *   FILE 797
//*           Please see CBT File 452 (for the STEPLIB command),    *   FILE 797
//*           and File 185, for more information and tools to       *   FILE 797
//*           manipulate the TSO authorization tables.              *   FILE 797
//*                                                                 *   FILE 797
//*           Included in this file, is a sample LIST pds of        *   FILE 797
//*           LRECL = 8, to input into the BUILD option, a load     *   FILE 797
//*           module containing IKJTABLS with the requisite         *   FILE 797
//*           CSECTs, to input into the RELOAD option, and a        *   FILE 797
//*           sample IKJTSOxx member, which can be used as input    *   FILE 797
//*           to the UPDATE option.                                 *   FILE 797
//*                                                                 *   FILE 797
//*           The LLWA program can convert input to the tables,     *   FILE 797
//*           from IKJTSOxx "PARMLIB-format" or IKJTABLS load       *   FILE 797
//*           module format, into the more compact LRECL=8 program  *   FILE 797
//*           list format, for easier storage and manipulation.     *   FILE 797
//*                                                                 *   FILE 797
//***FILE 798 is from Kevin Kang Dengsong and contains two job      *   FILE 798
//*           scheduling systems written in COBOL.                  *   FILE 798
//*                                                                 *   FILE 798
//*           email:  es9000@126.com                                *   FILE 798
//*                                                                 *   FILE 798
//***FILE 799 is from Kevin Dengsong and contains a package to      *   FILE 799
//*           process SMF Type 30 records, written in COBOL.        *   FILE 799
//*                                                                 *   FILE 799
//*           email:  es9000@126.com                                *   FILE 799
//*                                                                 *   FILE 799
//***FILE 800 is an extremely valuable contribution from Enrico     *   FILE 800
//*           Sorichetti and contains a RECEIVE/UNXMIT tool that    *   FILE 800
//*           works on a PC.  I am just offering Enrico's zip       *   FILE 800
//*           file here, because the programs are PC REXX programs  *   FILE 800
//*           and they are not for MVS use, directly.               *   FILE 800
//*                                                                 *   FILE 800
//*           You should download the ZIP member of this file to    *   FILE 800
//*           a PC in BINARY (no translation!) and unzip it on the  *   FILE 800
//*           PC.  Since I am not knowledgeable in this area, I'd   *   FILE 800
//*           suggest that you email Enrico if you have any         *   FILE 800
//*           questions.  (SG - 2008/12/19)                         *   FILE 800
//*                                                                 *   FILE 800
//*           email:  Enrico Sorichetti <e.sorichetti@alice.it>     *   FILE 800
//*                                                                 *   FILE 800
//*           NEW version is member ZIP     (see member $$NOTE2)    *   FILE 800
//*           OLD version is member ZIPOLD                          *   FILE 800
//*                                                                 *   FILE 800
//*    - - - - - - - - - - - - - - - - - - - - - - - - - - - - -    *   FILE 800
//*                                                                 *   FILE 800
//*    Short Summary and Description -                              *   FILE 800
//*                                                                 *   FILE 800
//*      As promised, I am sending you the result of my work.       *   FILE 800
//*      This is a zip file with the receive/unxmit REXX.           *   FILE 800
//*                                                                 *   FILE 800
//*      The main program, (it can be renamed in any way you        *   FILE 800
//*      like) and three subroutines... unzip them somewhere in     *   FILE 800
//*      your path.  A quick and dirty EBCDIC display tool and      *   FILE 800
//*      the license info.                                          *   FILE 800
//*                                                                 *   FILE 800
//*      It works only wih object rexx , until they fix Regina      *   FILE 800
//*      REXX...  A long time ago I found a bug in Regina rexx      *   FILE 800
//*      which prevents any useful utilization, ( I need to         *   FILE 800
//*      issue a MKDIR, ..... )                                     *   FILE 800
//*                                                                 *   FILE 800
//*      - after issuing a system command, the input file           *   FILE 800
//*        position is lost                                         *   FILE 800
//*      - it might be a mac/linux only issue, not tested on        *   FILE 800
//*        windows                                                  *   FILE 800
//*                                                                 *   FILE 800
//*      All the tests have been done on a mac and windows.         *   FILE 800
//*      On windows not exhaustive as on the mac (just a few        *   FILE 800
//*      selected files)                                            *   FILE 800
//*                                                                 *   FILE 800
//*      The only issue with windows is the lack of the             *   FILE 800
//*      mac/linux globbing so under windows it can be used only    *   FILE 800
//*      on single files.  For multiple (masked) files, a do        *   FILE 800
//*      works well.                                                *   FILE 800
//*                                                                 *   FILE 800
//*      On unix_like .... &RECEIVE *.XMI                           *   FILE 800
//*      On windows   .... for %i in ( *.xmi ) do; &RECEIVE %i      *   FILE 800
//*                                                                 *   FILE 800
//*     I have successfully received all, repeat ALL, the CBT       *   FILE 800
//*     XMI tapes base,updates,overflow,overflow updates,jes2       *   FILE 800
//*                                                                 *   FILE 800
//*     - more than 1200 xmi files, more than 70000 files/members   *   FILE 800
//*                                                                 *   FILE 800
//*     and checked also that ALL the inner XMI members of all      *   FILE 800
//*     the tapes were &RECEIVABLE, at least those whose names      *   FILE 800
//*     did not contain the $ char.                                 *   FILE 800
//*                                                                 *   FILE 800
//***FILE 801 is from Rick Turnbull and contains an EXEC called     *   FILE 801
//*           XAML01 that can produce browse-able bar charts in     *   FILE 801
//*           Microsoft Silverlight format.  See the included       *   FILE 801
//*           Word Doc file or PDF Doc file.                        *   FILE 801
//*                                                                 *   FILE 801
//*       Note:  Rick Turnbull has passed away.  In order to        *   FILE 801
//*              preserve his good work, for his honor, please      *   FILE 801
//*              (if you fix any problems with this file) send      *   FILE 801
//*              your fixes to:  sbgolob@cbttape.org                *   FILE 801
//*              so that this product will continue to be of        *   FILE 801
//*              service to the public.  If it now works fine,      *   FILE 801
//*              please continue using it.                          *   FILE 801
//*                                                                 *   FILE 801
//*       Additional reference email:                               *   FILE 801
//*                                                                 *   FILE 801
//*              Rich Szabo <rich.szabo@stateauto.com>              *   FILE 801
//*                                                                 *   FILE 801
//*       This file contains the following members:                 *   FILE 801
//*                                                                 *   FILE 801
//*       * XAML01 - A REXX script that produces a bar chart        *   FILE 801
//*         in a Silverlight (http://silverlight.net/) XAML         *   FILE 801
//*         file format.                                            *   FILE 801
//*                                                                 *   FILE 801
//*         Silverlight is Microsoft's answer to Adobe's Flash.     *   FILE 801
//*                                                                 *   FILE 801
//*       * DOCPDF - "How To" documentation in PDF format.          *   FILE 801
//*                                                                 *   FILE 801
//*       * DOCWORD - "How To" documentation in MS-Word format.     *   FILE 801
//*                                                                 *   FILE 801
//*       * HTML - A sample HTML page that will display a           *   FILE 801
//*                XAML file using Silverlight.  Your internet      *   FILE 801
//*                browser must have had the Silverlight plug-in    *   FILE 801
//*                installed before the bar chart can be            *   FILE 801
//*                displayed.                                       *   FILE 801
//*                                                                 *   FILE 801
//*       * JCL1 - A sample batch job that executes the             *   FILE 801
//*                XAML01 script.                                   *   FILE 801
//*                                                                 *   FILE 801
//*       * JCL2 - A sample batch job that executes the             *   FILE 801
//*                XAML01 script.                                   *   FILE 801
//*                                                                 *   FILE 801
//***FILE 802 is from Jason Winter and contains a Delinker program  *   FILE 802
//*           written in C, that is similar to David Noon's         *   FILE 802
//*           DELINKI program from File 090 that was written in     *   FILE 802
//*           PL/I.  Jason Winter is the author of a C compiler     *   FILE 802
//*           which produces MVS-compatible object decks.           *   FILE 802
//*                                                                 *   FILE 802
//*           email:  Jason Winter <jasonwinter@hotmail.com>        *   FILE 802
//*                                                                 *   FILE 802
//***FILE 803 is from Lionel Dyck and contains a collection of      *   FILE 803
//*           ISPF macros that he used to use in the past, and      *   FILE 803
//*           which were very worth while keeping.  Lionel is       *   FILE 803
//*           not the author of these macros--he ran across them    *   FILE 803
//*           in his travels, and used them in programming over     *   FILE 803
//*           the years.  Now, he found them and wants to put       *   FILE 803
//*           them out for everyone to benefit from.                *   FILE 803
//*                                                                 *   FILE 803
//*           Now included is member $MACDOC from the original      *   FILE 803
//*           author of the macros, courtesy of Lionel.             *   FILE 803
//*                                                                 *   FILE 803
//*           Lionel B. Dyck                                        *   FILE 803
//*           email:   lbdyck@gmail.com                             *   FILE 803
//*           AIM:     lbdyck Yahoo IM: lbdyck                      *   FILE 803
//*           Website: http://www.lbdsoftware.com                   *   FILE 803
//*           Blog:    http://randommgmt.blogspot.com/              *   FILE 803
//*                                                                 *   FILE 803
//***FILE 804 is from Rich Hobt and contains a version of the       *   FILE 804
//*           TAPEMAP program from File 299 which was modified      *   FILE 804
//*           to use the modern "relative addressing" assembler     *   FILE 804
//*           instructions.  In other words, JUMP instead of        *   FILE 804
//*           BRANCH was used.  This freed up the need to fill a    *   FILE 804
//*           whole bunch of base registers.                        *   FILE 804
//*                                                                 *   FILE 804
//*           Some of Rich's new macros helped in the conversion:   *   FILE 804
//*              ASMINFO BR2JMP BR2JMPX INR OUTR                    *   FILE 804
//*                                                                 *   FILE 804
//*           Sam Golob added the new device types for FDR dump     *   FILE 804
//*           reporting, that were contributed to File 299 TAPEMAP  *   FILE 804
//*           by John Kalinich, with the help of (the late)         *   FILE 804
//*           Bruce Black of FDR Innovation.                        *   FILE 804
//*                                                                 *   FILE 804
//*           This version currently corresponds to Version 2.5     *   FILE 804
//*           of TAPEMAP on CBT File 299.  The reason why it was    *   FILE 804
//*           put into a separate file, is that MVS 3.8 people      *   FILE 804
//*           can't assemble the Jump instructions using the        *   FILE 804
//*           IFOX00 assembler, so this file was kept separate.     *   FILE 804
//*                                                                 *   FILE 804
//*           Added an XMIT of a load library which contains the    *   FILE 804
//*           following TAPEMAP versions:   (member LOADLIB)        *   FILE 804
//*                                                                 *   FILE 804
//*           member     CBT File    Version                        *   FILE 804
//*           ------     --------    -------                        *   FILE 804
//*           TAPEMAP      299        2.5                           *   FILE 804
//*           TAPEMAPM     299        2.5.1                         *   FILE 804
//*           TAPEMAPX     804        2.5.3                         *   FILE 804
//*                                                                 *   FILE 804
//*           email:  RHobt@azdps.gov                               *   FILE 804
//*                                                                 *   FILE 804
//***FILE 805 is from Michael Schmutzok and contains the source     *   FILE 805
//*       code and JCL needed to establish an SNMP sub-agent, an    *   FILE 805
//*       EMC (Extended MCS) monitoring started task and an         *   FILE 805
//*       externally called storage snap program.  Member MACROS    *   FILE 805
//*       in this file contains the user written macros needed to   *   FILE 805
//*       compile the programs.                                     *   FILE 805
//*                                                                 *   FILE 805
//*       See member $$$INTRO for an explanation of SNMP and an     *   FILE 805
//*       introduction to what this package does.  It basically     *   FILE 805
//*       finds "alerts" in the system operation, so the sysprog    *   FILE 805
//*       or an operator can keep track of them.                    *   FILE 805
//*                                                                 *   FILE 805
//*           email:  schmum@shands.ufl.edu                         *   FILE 805
//*                                                                 *   FILE 805
//*       Many thanks go out to those of you on the MVS and         *   FILE 805
//*       Assembler ListServs who answered the many questions I     *   FILE 805
//*       had while I was creating this beastie.                    *   FILE 805
//*                                                                 *   FILE 805
//*     OVERVIEW                                                    *   FILE 805
//*     --------                                                    *   FILE 805
//*       This dataset contains several programs which may be of    *   FILE 805
//*       general interest to other installations.  They are, of    *   FILE 805
//*       course, available on an as-is condition with the usual    *   FILE 805
//*       disclaimer.                                               *   FILE 805
//*                                                                 *   FILE 805
//*       I am under no illusions about the level of my assembler   *   FILE 805
//*       coding skills.  I'm not an expert by any means.           *   FILE 805
//*       However, having said that, these programs were used in    *   FILE 805
//*       z/OS 1.7 and our current z/OS 1.9 environment.  They      *   FILE 805
//*       should work on any IBM supported system.  Some may not    *   FILE 805
//*       work on earlier systems.                                  *   FILE 805
//*                                                                 *   FILE 805
//*       This dataset contains the source code and JCL needed      *   FILE 805
//*       to establish an SNMP sub-agent, an EMC (Extended MCS)     *   FILE 805
//*       monitoring started task and an externally called          *   FILE 805
//*       storage snap program. Its sister dataset contains the     *   FILE 805
//*       user written macros needed to compile the programs.       *   FILE 805
//*       The IBM macros can be found in SYS1.MACLIB,               *   FILE 805
//*       TCPIP.SEZAMAC and SYS1.AMODGEN. A list of the macros      *   FILE 805
//*       and control block DSECTS used can be found in member      *   FILE 805
//*       $$CTLBLK.                                                 *   FILE 805
//*                                                                 *   FILE 805
//*       For some of the metrics I gather, I couldn't figure       *   FILE 805
//*       out how to get the information through control block      *   FILE 805
//*       chaining (I DID mention I wasn't an expert in this).      *   FILE 805
//*       To compensate for this, I use/call system REXX execs      *   FILE 805
//*       from which I issue JES2 commands, HSM commands, etc.      *   FILE 805
//*       and process the output from these commands. Not the       *   FILE 805
//*       most efficient way to do it, but it works.                *   FILE 805
//*                                                                 *   FILE 805
//*       2/10/09 - As of this writing, I have discovered a bug     *   FILE 805
//*       with system REXX in that AXRCMD does not handle           *   FILE 805
//*       certain types of multi-line command output (e.g.          *   FILE 805
//*       $DSPOOL, F HSM,QUERY CDS, etc.). A PMR has been opened    *   FILE 805
//*       with IBM.                                                 *   FILE 805
//*                                                                 *   FILE 805
//*     NIMAGENT                                                    *   FILE 805
//*     --------                                                    *   FILE 805
//*       This SNMP sub-agent attaches several subtasks which       *   FILE 805
//*       query/check various system metrics and updates            *   FILE 805
//*       established MIB values. These values may then be          *   FILE 805
//*       queried by an external monitor (such as NimBUS in our     *   FILE 805
//*       case) and alerting done. All of the SNMP interfacing      *   FILE 805
//*       is done via the Distributed Program Interface (DPI).      *   FILE 805
//*       See RFC 1228 for more information.                        *   FILE 805
//*                                                                 *   FILE 805
//*       Future enhancements:                                      *   FILE 805
//*       - Eliminate the system REXX execs by going directly to    *   FILE 805
//*         the control blocks                                      *   FILE 805
//*       - Finish the RENT process. Currently the sub-tasks are    *   FILE 805
//*         re-entrant but the overall load module is not.          *   FILE 805
//*       - Add a MODIFY command to dynamically change the timer    *   FILE 805
//*         interval for any of the sub-tasks (currently            *   FILE 805
//*         hardcoded).                                             *   FILE 805
//*                                                                 *   FILE 805
//*     NIMBEMCS                                                    *   FILE 805
//*     --------                                                    *   FILE 805
//*       The EMC monitoring program can be used to monitor         *   FILE 805
//*       console messages and issue SNMP traps to an external      *   FILE 805
//*       monitoring system for alerting purposes. The sample       *   FILE 805
//*       included here was based on a sample IBM program found     *   FILE 805
//*       in SYS1.SAMPLIB(IEAEXMCS).                                *   FILE 805
//*                                                                 *   FILE 805
//*       Note: The EMC monitoring program issues SNMP traps.       *   FILE 805
//*       Ours is coded to use the 'awtrap' program which I         *   FILE 805
//*       found within the base Unicenter code from Computer        *   FILE 805
//*       Associates (CAI) and is found in the HFS/ZFS file:        *   FILE 805
//*          /cai/agent/ro/awtrap                                   *   FILE 805
//*                                                                 *   FILE 805
//*       If you do not have access to this command, you will       *   FILE 805
//*       need to code or find own trap command or issue one via    *   FILE 805
//*       DPI.                                                      *   FILE 805
//*                                                                 *   FILE 805
//*     PCCSSNAP                                                    *   FILE 805
//*     --------                                                    *   FILE 805
//*       PCCSSNAP is a re-entrant program that can be linked to    *   FILE 805
//*       from a program and used to snap storage areas for         *   FILE 805
//*       debugging purposes. The addresses of the storage area     *   FILE 805
//*       to be snapped are passed via a parmlist. The snap         *   FILE 805
//*       output is directed to a JES2 sysout dataset, which a      *   FILE 805
//*       DD (SNAPDD) is dynamically allocated for.                 *   FILE 805
//*                                                                 *   FILE 805
//*     Dataset Contents:                                           *   FILE 805
//*                                                                 *   FILE 805
//*       Member      Description                                   *   FILE 805
//*       ------------------------------------------------------    *   FILE 805
//*       $$DISCL   - Disclaimer                                    *   FILE 805
//*       #README   - This member description list                  *   FILE 805
//*       ASM       - Assemble/link entire sub-agent                *   FILE 805
//*       ASM1      - Assemble/link a single subtask                *   FILE 805
//*       Author    - Contact information                           *   FILE 805
//*       LINK1     - Linkedit sub-agent                            *   FILE 805
//*       NIMAGENT  - Started task JCL for NIMAGNT program          *   FILE 805
//*       NIMAGNT   - Main sub-agent                                *   FILE 805
//*       NIMBEMCS  - Console monitoring program                    *   FILE 805
//*       NIMBCONS  - Started task JCL for NIMBEMCS program         *   FILE 805
//*       NIMDASD   - Subtask: DASD checks                          *   FILE 805
//*       NIMESTA   - Sub-agent/sub-task ESTAI routine              *   FILE 805
//*       NIMEXST   - Subtask: Started task existence checking      *   FILE 805
//*       NIMHSM    - Subtask: HSM checking                         *   FILE 805
//*       NIMJES2   - Subtask: JES2 checking                        *   FILE 805
//*       NIMMIB    - Subagent MIB                                  *   FILE 805
//*       NIMSYS    - Subtask: System information                   *   FILE 805
//*       NMIBDESC  - Sample MIBDESC for TCPIP                      *   FILE 805
//*       NMIBSDAT  - Sample MIBDATA for TCPIP                      *   FILE 805
//*       PCCSSNAP  - Callable program to snap data areas for       *   FILE 805
//*                   debugging                                     *   FILE 805
//*       QUERYJES  - System REXX exec to query JES2 metrics        *   FILE 805
//*                   (used in NIMJES2)                             *   FILE 805
//*                                                                 *   FILE 805
//*       The following were used to develop the code to be         *   FILE 805
//*       included within a sub-task                                *   FILE 805
//*                                                                 *   FILE 805
//*       SYSREXX   - JCL to execute a program that calls a         *   FILE 805
//*                   system REXX exec                              *   FILE 805
//*       SYSREXXJ  - Program to call system REXX exec (code        *   FILE 805
//*                   used in NIMJES2)                              *   FILE 805
//*                                                                 *   FILE 805
//***FILE 806 is from Kevin Dengsong and contains a package to      *   FILE 806
//*           process SMF Type 110 records, written in COBOL.       *   FILE 806
//*           The title of this package is "CICS Preformance        *   FILE 806
//*           Monitor Analysis Tools".                              *   FILE 806
//*                                                                 *   FILE 806
//*           email:  es9000@126.com                                *   FILE 806
//*                                                                 *   FILE 806
//***FILE 807 is from Morris Karlin, Norman Lindner, and Irwin      *   FILE 807
//*           Eisenstein, and contains their programs HFSELECT      *   FILE 807
//*           and SUPRDUMP.  These programs were originally for     *   FILE 807
//*           sale, but Morris Karlin and Norman Lindner have       *   FILE 807
//*           given permission for them to be included on the       *   FILE 807
//*           CBT Tape collection, subject to CBT Tape disclaimers  *   FILE 807
//*           and conditions.                                       *   FILE 807
//*                                                                 *   FILE 807
//*     HFSELECT is a powerful file selection and match-merge       *   FILE 807
//*           program, which has additional capabilities, as        *   FILE 807
//*           described below.                                      *   FILE 807
//*                                                                 *   FILE 807
//*     SUPRDUMP is a program that can read, copy, and print the    *   FILE 807
//*           contents of a large variety of tapes.                 *   FILE 807
//*                                                                 *   FILE 807
//*     These programs were reworked for HLASM and z/OS by Morris   *   FILE 807
//*     Karlin, who is their principal author.                      *   FILE 807
//*                                                                 *   FILE 807
//*           email:  Morris_Karlin@bmc.com                         *   FILE 807
//*                   morris.karlin@gmail.com                       *   FILE 807
//*                                                                 *   FILE 807
//*                    HFSELECT  -  Introduction                    *   FILE 807
//*                                                                 *   FILE 807
//*          HFSELECT is an easy to use parameter-driven high       *   FILE 807
//*     performance utility program that can selectively            *   FILE 807
//*     retrieve, reject, count, print and sequence check           *   FILE 807
//*     records of an input file. The selection, rejection, etc.    *   FILE 807
//*     can be based on record contents, record position within     *   FILE 807
//*     a file, or by comparison with another file.  Extensive      *   FILE 807
//*     statistics of the input and output files are printed by     *   FILE 807
//*     HFSELECT.                                                   *   FILE 807
//*                                                                 *   FILE 807
//*          HFSELECT performs file or record matching of two       *   FILE 807
//*     input files and optionally can merge the matched records    *   FILE 807
//*     onto a separate output file.                                *   FILE 807
//*                                                                 *   FILE 807
//*          HFSELECT performs VTOC, catalog and PDS directory      *   FILE 807
//*     searches and outputs formatted records of the results.      *   FILE 807
//*     It can recursively call itself for each dsn/member in       *   FILE 807
//*     these formatted records.                                    *   FILE 807
//*                                                                 *   FILE 807
//*          The program can replace a character string by          *   FILE 807
//*     another within a given range in a record.  It can           *   FILE 807
//*     encrypt selected fields to create test files from           *   FILE 807
//*     sensitive or confidential data sets, or to convert data     *   FILE 807
//*     from one format to another.                                 *   FILE 807
//*                                                                 *   FILE 807
//*          The input file can be a physical sequential (PS)       *   FILE 807
//*     data set (QSAM), an indexed sequential (IS) data set        *   FILE 807
//*     (QISAM), a VSAM data set (VSAM) or a partitioned            *   FILE 807
//*     organization (PO) data set (BPAM).                          *   FILE 807
//*                                                                 *   FILE 807
//*          The record formats for QSAM, ISAM and BPAM input       *   FILE 807
//*     files can be fixed, variable, undefined, blocked,           *   FILE 807
//*     spanned, standard or any valid combination of these         *   FILE 807
//*     formats.  All VSAM data sets except variable spanned can    *   FILE 807
//*     be processed.  The input files are always read              *   FILE 807
//*     sequentially. VSAM files may be read either sequentially    *   FILE 807
//*     by key or by physical sequential RBA.                       *   FILE 807
//*                                                                 *   FILE 807
//*          Multiple output files may be generated, depending      *   FILE 807
//*     upon the option and suboptions selected, and on the JCL.    *   FILE 807
//*     The output files may be sequential, VSAM or PDS. Thus       *   FILE 807
//*     HFSELECT may be used to copy sequential, PDS or VSAM        *   FILE 807
//*     files, or to convert ISAM, VSAM or PDS files to             *   FILE 807
//*     sequential files or VSAM files.  In addition, variable      *   FILE 807
//*     format files may be converted to fixed format files.        *   FILE 807
//*     Output file LRECLs and BLKSIZEs may differ from their       *   FILE 807
//*     corresponding input files.                                  *   FILE 807
//*                                                                 *   FILE 807
//*          The output files may be directed to any system         *   FILE 807
//*     storage device (tape, disk, etc.), or any or all of the     *   FILE 807
//*     output files may be printed either unformatted, in          *   FILE 807
//*     character, character and HEX format, or character with a    *   FILE 807
//*     ruler line.                                                 *   FILE 807
//*                                                                 *   FILE 807
//*          User exits may be used to modify standard HFSELECT     *   FILE 807
//*     features, and also to modify records before and after       *   FILE 807
//*     processing.                                                 *   FILE 807
//*                                                                 *   FILE 807
//*          Thus, instead of writing and debugging a program       *   FILE 807
//*     each time selection of records from a file is required,     *   FILE 807
//*     HFSELECT steps may be written in a few minutes to obtain    *   FILE 807
//*     the desired results.                                        *   FILE 807
//*                                                                 *   FILE 807
//*                    SUPRDUMP  -  Introduction                    *   FILE 807
//*                                                                 *   FILE 807
//*          SUPRDUMP is an easy-to-use utility print program       *   FILE 807
//*          designed to                                            *   FILE 807
//*                                                                 *   FILE 807
//*           - copy an entire tape volume to one output tape       *   FILE 807
//*             volume                                              *   FILE 807
//*           - print datasets, in whole or in part, from any       *   FILE 807
//*             system storage device.                              *   FILE 807
//*           - show the characteristics of all data sets on a      *   FILE 807
//*             tape volume, including labels, formats (ASCII or    *   FILE 807
//*             EBCDIC) and tapemarks for tapes with blocksizes     *   FILE 807
//*             of up to 65535 bytes.                               *   FILE 807
//*           - show the position and attributes of files, and      *   FILE 807
//*             the position of tapemarks on tape volumes.          *   FILE 807
//*           - print files in hex, with simultaneous               *   FILE 807
//*             interpretation of each character in both ASCII      *   FILE 807
//*             and EBCDIC format.                                  *   FILE 807
//*                                                                 *   FILE 807
//*          SUPRDUMP is parameter-driven, with the parameters      *   FILE 807
//*     coded in the PARM of the EXECute statement. All             *   FILE 807
//*     parameters are keywords and all have defaults so that       *   FILE 807
//*     none need be explicitly specified.                          *   FILE 807
//*                                                                 *   FILE 807
//*          Information messages displayed by the program are      *   FILE 807
//*                                                                 *   FILE 807
//*           - PARM coded on the EXECute statement                 *   FILE 807
//*           - Jobname, Stepname and Procstepname of SUPRDUMP      *   FILE 807
//*             job & step                                          *   FILE 807
//*           - output tape characteristics and a summary of        *   FILE 807
//*             copied files                                        *   FILE 807
//*           - DSN coded on the input file (SYSUT1) DD             *   FILE 807
//*             statement                                           *   FILE 807
//*           - maximum block size in the file                      *   FILE 807
//*           - minimum block size in the file                      *   FILE 807
//*             (excluding the last block)                          *   FILE 807
//*           - size of the last block on the file                  *   FILE 807
//*           - total number of bytes in the file                   *   FILE 807
//*           - total number of blocks in the file                  *   FILE 807
//*           - for tape, the sequence number of the file on the    *   FILE 807
//*               tape, the density, and the recording mode         *   FILE 807
//*               technique                                         *   FILE 807
//*           - serial number of the volume containing the file     *   FILE 807
//*           - change in BLKSIZE messages (with relative block     *   FILE 807
//*             number)                                             *   FILE 807
//*           - RECFM and LRECL of each data set                    *   FILE 807
//*           - Creation and Expiration dates                       *   FILE 807
//*           - Approximate tape length of each tape file, and      *   FILE 807
//*               the approximate total tape length of all          *   FILE 807
//*               processed files                                   *   FILE 807
//*                                                                 *   FILE 807
//*          The SYSUT1 input file record formats may be fixed,     *   FILE 807
//*     variable, undefined, blocked, spanned, standard or any      *   FILE 807
//*     valid combination of these formats, but the file must be    *   FILE 807
//*     physical sequential.  The RECFM, LRECL and BLKSIZE of       *   FILE 807
//*     these files need not be known before- hand.  One file in    *   FILE 807
//*     print format (SYSUT2) is generated and one output tape      *   FILE 807
//*     volume may be created (TAPECOPY). The printout can be in    *   FILE 807
//*     any one of five display formats. Variable-length records    *   FILE 807
//*     can be printed in readable form.  It shows all bytes of     *   FILE 807
//*     the block including the BDW and the RDW if any.             *   FILE 807
//*                                                                 *   FILE 807
//*          An optional output file can be coded to capture        *   FILE 807
//*     status and sense bytes from reads of tape/cartridge data    *   FILE 807
//*     sets.                                                       *   FILE 807
//*                                                                 *   FILE 807
//***FILE 808 is an extremely valuable contribution from Enrico     *   FILE 808
//*           Sorichetti and contains a RECEIVE/UNXMIT tool that    *   FILE 808
//*           works on a PC.  I am just offering Enrico's zip       *   FILE 808
//*           file here, because the programs are PC REXX programs  *   FILE 808
//*           and they are not for MVS use, directly.               *   FILE 808
//*                                                                 *   FILE 808
//*           This file contains the ZIP member of File 800 only.   *   FILE 808
//*           You should download this file in BINARY to a PC and   *   FILE 808
//*           unzip it there.  Please email Enrico Sorichetti (the  *   FILE 808
//*           author) if you have any questions.                    *   FILE 808
//*                                                                 *   FILE 808
//*           email:  Enrico Sorichetti <e.sorichetti@alice.it>     *   FILE 808
//*                                                                 *   FILE 808
//*    - - - - - - - - - - - - - - - - - - - - - - - - - - - - -    *   FILE 808
//*                                                                 *   FILE 808
//*    Short Summary and Description -                              *   FILE 808
//*                                                                 *   FILE 808
//*      As promised, I am sending you the result of my work.       *   FILE 808
//*      This is a zip file with the receive/unxmit REXX.           *   FILE 808
//*                                                                 *   FILE 808
//*      The main program, (it can be renamed in any way you        *   FILE 808
//*      like) and three subroutines... unzip them somewhere in     *   FILE 808
//*      your path.  A quick and dirty EBCDIC display tool and      *   FILE 808
//*      the license info.                                          *   FILE 808
//*                                                                 *   FILE 808
//*      It works only wih object rexx , until they fix Regina      *   FILE 808
//*      REXX...  A long time ago I found a bug in Regina rexx      *   FILE 808
//*      which prevents any useful utilization, ( I need to         *   FILE 808
//*      issue a MKDIR, ..... )                                     *   FILE 808
//*                                                                 *   FILE 808
//*      - after issuing a system command, the input file           *   FILE 808
//*        position is lost                                         *   FILE 808
//*      - it might be a mac/linux only issue, not tested on        *   FILE 808
//*        windows                                                  *   FILE 808
//*                                                                 *   FILE 808
//*      All the tests have been done on a mac and windows.         *   FILE 808
//*      On windows not exhaustive as on the mac (just a few        *   FILE 808
//*      selected files)                                            *   FILE 808
//*                                                                 *   FILE 808
//*      The only issue with windows is the lack of the             *   FILE 808
//*      mac/linux globbing so under windows it can be used only    *   FILE 808
//*      on single files.  For multiple (masked) files, a do        *   FILE 808
//*      works well.                                                *   FILE 808
//*                                                                 *   FILE 808
//*      On unix_like .... &RECEIVE *.XMI                           *   FILE 808
//*      On windows   .... for %i in ( *.xmi ) do; &RECEIVE %i      *   FILE 808
//*                                                                 *   FILE 808
//*     I have successfully received all, repeat ALL, the CBT       *   FILE 808
//*     XMI tapes base,updates,overflow,overflow updates,jes2       *   FILE 808
//*                                                                 *   FILE 808
//*     - more than 1200 xmi files, more than 70000 files/members   *   FILE 808
//*                                                                 *   FILE 808
//*     and checked also that ALL the inner XMI members of all      *   FILE 808
//*     the tapes were &RECEIVABLE, at least those whose names      *   FILE 808
//*     did not contain the $ char.                                 *   FILE 808
//*                                                                 *   FILE 808
//***FILE 809 is from Richard L. Rice and is a fixed copy of his    *   FILE 809
//*           DITTO program that used to be on File 171.  See his   *   FILE 809
//*           explanation in member $$NOTE1, which tells you what   *   FILE 809
//*           the former problem was, and how he fixed it.          *   FILE 809
//*                                                                 *   FILE 809
//*           We should regard this file as a beta version, until   *   FILE 809
//*           it is tested more.  If you are using this file,       *   FILE 809
//*           please write your feedback to Sam Golob,              *   FILE 809
//*           <sbgolob@cbttape.org>                                 *   FILE 809
//*           And also write to Richard Rice at                     *   FILE 809
//*           <Richard.L.Rice@conocophillips.com>.                  *   FILE 809
//*                                                                 *   FILE 809
//*           Hopefully this will be a good alternate DITTO package *   FILE 809
//*           for those shops which block BLP.                      *   FILE 809
//*                                                                 *   FILE 809
//***FILE 810 is from Richard L. Rice and contains his ONSCREEN     *   FILE 810
//*           package, which is his complete reworking of his file  *   FILE 810
//*           browser package called FM (File Manager) that is on   *   FILE 810
//*           CBT File 745.   This package is completely original,  *   FILE 810
//*           although it has features that were suggested by the   *   FILE 810
//*           REVIEW program from File 134.                         *   FILE 810
//*                                                                 *   FILE 810
//*           The idea here is to create a flexible file browser    *   FILE 810
//*           package which is customizable.  The reason for the    *   FILE 810
//*           rename from FM, is that FM sounded too much like a    *   FILE 810
//*           utility for pre-formatting datasets, rather than a    *   FILE 810
//*           data viewer.                                          *   FILE 810
//*                                                                 *   FILE 810
//*           This package now has a built-in code disassembler.    *   FILE 810
//*                                                                 *   FILE 810
//*           email:  <Richard.L.Rice@conocophillips.com>           *   FILE 810
//*                                                                 *   FILE 810
//*           New shipment of files (02/2010) marked as 1.02 in     *   FILE 810
//*           the ISPF stats.                                       *   FILE 810
//*                                                                 *   FILE 810
//***FILE 811 is a very useful LIBRARIAN program package, and       *   FILE 811
//*           which is completely new at this time (Mar/06). The    *   FILE 811
//*           package was written by Richard L. Rice.  This is a    *   FILE 811
//*           fixed version of the LIBRARIAN program that was on    *   FILE 811
//*           File 711.                                             *   FILE 811
//*                                                                 *   FILE 811
//*   >>> --------------------------------------------------------  *   FILE 811
//*   >>> This LIBRARIAN is a free package, unrelated to any other  *   FILE 811
//*   >>> package having the same or a similar name......           *   FILE 811
//*   >>> --------------------------------------------------------  *   FILE 811
//*                                                                 *   FILE 811
//*           email:  Richard.L.Rice@conocophillips.com             *   FILE 811
//*                                                                 *   FILE 811
//*   Some documentation for this utility follows:                  *   FILE 811
//*                                                                 *   FILE 811
//*     The LIBRARIAN is a VTAM LU 6.2 client-server type           *   FILE 811
//*     application, and it can also be accessed using TCP/IP.      *   FILE 811
//*                                                                 *   FILE 811
//*     My idea for using an LU 6.2 interface was to allow          *   FILE 811
//*     users to access a library without having to log-in to       *   FILE 811
//*     the system where the library actually lives.  You could     *   FILE 811
//*     have a system at a central location serving remote          *   FILE 811
//*     offices.  If you have multiple LPARs, users can access      *   FILE 811
//*     libraries on any of the LPARs while logged in to only       *   FILE 811
//*     one of the LPARs.                                           *   FILE 811
//*                                                                 *   FILE 811
//*     Since you have PDSs (libraries) on MVS already, what do     *   FILE 811
//*     I need a librarian for?  The LIBRARIAN prevents             *   FILE 811
//*     multiple users from updating a member at the same time.     *   FILE 811
//*     When a user wants to update a member of a library, they     *   FILE 811
//*     "CHECK OUT" the member.  The LIBRARIAN updates the          *   FILE 811
//*     status to reflect the status is "CHECKED OUT" and           *   FILE 811
//*     records the time, date, and user id of who CHECKED OUT      *   FILE 811
//*     the member.  While the member is in CHECKED OUT state,      *   FILE 811
//*     others will not be allowed to CHECK OUT the same            *   FILE 811
//*     member.  Only the user that CHECKED out the member may      *   FILE 811
//*     CHECK IN that member.  When the member is CHECKED IN,       *   FILE 811
//*     the LIBRARIAN will change the status to CHECKED IN and      *   FILE 811
//*     record the time, date, and user id of the user that         *   FILE 811
//*     performed the CHECK IN.  A member may be VIEWed at any      *   FILE 811
//*     time.  VIEWing a member does not change the STATUS or       *   FILE 811
//*     the CHECK IN or CHECK OUT time stamps.                      *   FILE 811
//*                                                                 *   FILE 811
//*     Access to members is controlled via a user exit             *   FILE 811
//*     (LIBUX02).  You may over-ride standard access controls.     *   FILE 811
//*     For example, it may be that a user that has a member        *   FILE 811
//*     CHECKED OUT is on vacation or no long working for your      *   FILE 811
//*     company.  You may want to allow a manager to CHECK IN       *   FILE 811
//*     the member.                                                 *   FILE 811
//*                                                                 *   FILE 811
//*     The server or back-end can be run as a JOB or started       *   FILE 811
//*     task (STC).  Users may interface with the LIBRARIAN         *   FILE 811
//*     either though batch or an SPF dialog.                       *   FILE 811
//*                                                                 *   FILE 811
//*     The LIBRARIAN can manage multiple libraries.  This          *   FILE 811
//*     allows one LIBRARIAN to manage SOURCE, MACRO, JCL, etc      *   FILE 811
//*     libraries.                                                  *   FILE 811
//*                                                                 *   FILE 811
//*     Libraries are KSDS VSAM clusters.                           *   FILE 811
//*                                                                 *   FILE 811
//*     Members in the library may be stored in a compressed        *   FILE 811
//*     form.  User exit LIBUX01 allows you to use the              *   FILE 811
//*     LIBRARIAN supplied compression, use a compression           *   FILE 811
//*     method of your own, or turn compression off.  The           *   FILE 811
//*     librarian compression mechanism averages about a 4-to-1     *   FILE 811
//*     compression ratio.                                          *   FILE 811
//*                                                                 *   FILE 811
//*     This version of the LIBRARIAN allows you to add up to 5     *   FILE 811
//*     lines of comments about a member for documentation.         *   FILE 811
//*     These comments are not considered a part of the member      *   FILE 811
//*     itself.                                                     *   FILE 811
//*                                                                 *   FILE 811
//*     The LIBRARIAN allows for up to 32,767 versions of a         *   FILE 811
//*     given member.                                               *   FILE 811
//*                                                                 *   FILE 811
//*     The VSAM key used in the KSDSs allow approximately 2        *   FILE 811
//*     billion (a 4 byte binary field) blocks of source data.      *   FILE 811
//*     Each block is up to 8K in size.  If data compression is     *   FILE 811
//*     used, the blocks contain compressed data.  The amount       *   FILE 811
//*     of data that can be stored in a library is usually          *   FILE 811
//*     limited only by the amount of disk space available.         *   FILE 811
//*                                                                 *   FILE 811
//*     Several supporting utilities are also supplied.             *   FILE 811
//*       .  LIBINIT     Initializes a new library.                 *   FILE 811
//*       .  UTIL0001    Loads members to a library "offline"       *   FILE 811
//*       .  UTIL0002    Unloads a library to a sequential file     *   FILE 811
//*       .  UTIL0003    Converts a source file to compressed form  *   FILE 811
//*       .  UTIL0004    Detail library status report.              *   FILE 811
//*       .  UTIL0005    Unloads members to a sequential file in    *   FILE 811
//*                      LIBRARIAN "export" format                  *   FILE 811
//*       .  UTIL0006    Imports members from a sequential file     *   FILE 811
//*                      in LIBRARIAN "export" format               *   FILE 811
//*                                                                 *   FILE 811
//***FILE 812 is a fixed version of a Disassembler from Richard     *   FILE 812
//*           L. Rice, which was on File 171.                       *   FILE 812
//*                                                                 *   FILE 812
//*       DISASM  -  A REDESIGN OF THE DISASSEMBLER ON              *   FILE 812
//*                  FILE 217, BUT BROKEN INTO CSECTS.  THIS        *   FILE 812
//*                  DISASSEMBLER CALLS THE ASSEMBLER AND           *   FILE 812
//*                  ALLOWS YOU TO USE REAL MACROS AND THEIR        *   FILE 812
//*                  DSECTS FOR LABEL MAPPING.                      *   FILE 812
//*                                                                 *   FILE 812
//*           email:  Richard.L.Rice@conocophillips.com             *   FILE 812
//*                                                                 *   FILE 812
//***FILE 813 is from Richard L. Rice and contains a fixed version  *   FILE 813
//*           of his SUTL (System Utility) package that allow you   *   FILE 813
//*           to get system information from an MVS system on your  *   FILE 813
//*           network that you are NOT logged on to.  This utility  *   FILE 813
//*           was previously packaged on File 171.                  *   FILE 813
//*                                                                 *   FILE 813
//*           email:  Richard.L.Rice@conocophillips.com             *   FILE 813
//*                                                                 *   FILE 813
//*       SYSTEM UTILITY (SUTL)  -  A VTAM LU 6.2 application       *   FILE 813
//*                  that allows a TSO user to obtain informa-      *   FILE 813
//*                  tion about executing jobs, the APF list,       *   FILE 813
//*                  IPL date/time/sysres, link list, etc.          *   FILE 813
//*                  Most of this information is usually            *   FILE 813
//*                  available via other utilities already in       *   FILE 813
//*                  use, but this utility allows the TSO user      *   FILE 813
//*                  to get info from a system that he is not       *   FILE 813
//*                  logged on to.                                  *   FILE 813
//*                                                                 *   FILE 813
//*                    SYSTEM UTILITY (SUTL)                        *   FILE 813
//*                                                                 *   FILE 813
//*        SUTL IS A VTAM LU 6.2 APPLICATION THAT ALLOWS A TSO      *   FILE 813
//*        USER TO OBTAIN INFORMATION ABOUT EXECUTING JOBS, THE     *   FILE 813
//*        APF LIST, IPL DATE/TIME/SYSRES, LINK LIST, ETC.  MOST    *   FILE 813
//*        OF THIS INFORMATION IS USUALLY AVAILABLE VIA OTHER       *   FILE 813
//*        UTILITIES ALREADY IN USE, SO WHY BOTHER GOING TO THE     *   FILE 813
//*        TROUBLE OF 'RE-INVENTING' THIS WHEEL AND ADDING VTAM     *   FILE 813
//*        OVER-HEAD IN THE PROCESS?  BEING A VTAM APPLICATION      *   FILE 813
//*        MEANS THAT A TSO USER CAN GET INFO FROM A SYSTEM         *   FILE 813
//*        THAT HE IS NOT LOGGED ON TO.  IF YOU HAVE MULTIPLE       *   FILE 813
//*        PROCESSORS OR LPARS, YOU CAN "WATCH" EXECUTING JOBS ON   *   FILE 813
//*        ANY OF THE SYSTEMS NO MATTER WHICH SYSTEM YOU ARE        *   FILE 813
//*        LOGGED ON TO.  BESIDES IT WAS A GOOD WAY TO LEARN        *   FILE 813
//*        SOMETHING AND HAVE A USEFUL UTILITY WHEN IT WAS          *   FILE 813
//*        WORKING.                                                 *   FILE 813
//*                                                                 *   FILE 813
//*        SUTL CONSISTS OF TWO BASIC COMPONENTS, (1) A DATA        *   FILE 813
//*        COLLECTOR THAT WOULD PROBABLY BE BEST TO RUN AS A        *   FILE 813
//*        STARTED TASK (STC) AND (2) THE TSO/SPF CODE THAT SENDS   *   FILE 813
//*        REQUESTS TO THE DATA COLLECTOR AND DISPLAYS THE DATA.    *   FILE 813
//*                                                                 *   FILE 813
//*        THE DATA COLLECTOR (STC) SHOULD BE RUN ON EACH SYSTEM.   *   FILE 813
//*        THE STC DOES REQUIRE APF AUTHORIZATION FOR THE UCB       *   FILE 813
//*        FUNCTION.  IF YOU REMOVE THE UCB FUNCTION, SUTL WILL     *   FILE 813
//*        NOT REQUIRE ANY SPECIAL PRIVILEGES.                      *   FILE 813
//*                                                                 *   FILE 813
//*        THE TSO/SPF PART REQUIRES ONE VTAM APPL ID PER ACTIVE    *   FILE 813
//*        TSO USER.  THESE APPL IDS ARE ASSEMBLED AND LINK         *   FILE 813
//*        EDITED INTO A LOAD MODULE AS PART OF THE INSTALLATION    *   FILE 813
//*        STEPS.  I FELT THAT IT WOULD BE LESS OVERHEAD PER        *   FILE 813
//*        INVOCATION TO SEARCH A PRE-ASSEMBLED/LINK EDITED LOAD    *   FILE 813
//*        MODULE THAN TO READ A PARAMETER DATA SET (THIS WOULD     *   FILE 813
//*        MEAN ALLOCATING THE DATA SET, OPENING IT, READING AND    *   FILE 813
//*        SCANNING EACH STATEMENT, CLOSING, AND THEN               *   FILE 813
//*        DE-ALLOCATING).                                          *   FILE 813
//*                                                                 *   FILE 813
//*                                                                 *   FILE 813
//***FILE 814 was sent in by Eugene Vogt and contains a huge        *   FILE 814
//*           collection of old XEPHON "MVS Update" articles in     *   FILE 814
//*           text format.  They are not the magazines themselves,  *   FILE 814
//*           but they contain ASCII machine-readable code from     *   FILE 814
//*           the articles, and most, or all, of the explanatory    *   FILE 814
//*           material that is in the articles.                     *   FILE 814
//*                                                                 *   FILE 814
//*           XEPHON has now given permission for www.cbttape.org   *   FILE 814
//*           to maintain and distribute their articles and their   *   FILE 814
//*           magazines.  (This is as of May 2008.)                 *   FILE 814
//*                                                                 *   FILE 814
//*           These articles appear to cover the XEPHON MVS Update  *   FILE 814
//*           materials from the years 1987 thru 1996, so the       *   FILE 814
//*           only gaps still remaining, are the year 1997 alone,   *   FILE 814
//*           and before 1987.  Also, after 2006, the "Update"      *   FILE 814
//*           magazines have not been released to us by Thomas      *   FILE 814
//*           Publications.                                         *   FILE 814
//*                                                                 *   FILE 814
//*           These articles are for "MVS Update" only.  Other      *   FILE 814
//*           Xephon "Update" magazines are not covered in this     *   FILE 814
//*           file.                                                 *   FILE 814
//*                                                                 *   FILE 814
//*           Later articles (1998-2005) can be found at:           *   FILE 814
//*                                                                 *   FILE 814
//*           www.cbttape.org/xephon                                *   FILE 814
//*                                                                 *   FILE 814
//*           This collection is therefore extremely valuable.      *   FILE 814
//*                                                                 *   FILE 814
//*           See member $INDEX for contents information.           *   FILE 814
//*                                                                 *   FILE 814
//*           This entire collection is packaged as one zip file,   *   FILE 814
//*           which also contains its "interpreter" html file,      *   FILE 814
//*           called mvsa.htm.                                      *   FILE 814
//*                                                                 *   FILE 814
//*           ZIP member replaced with original to correct two      *   FILE 814
//*           defective members.  See expansion of this zip file    *   FILE 814
//*           (CBT File 830).                                       *   FILE 814
//*                                                                 *   FILE 814
//*           To use this collection, you do as follows:            *   FILE 814
//*                                                                 *   FILE 814
//*           1.  Download the ZIP member in BINARY to a PC.        *   FILE 814
//*                                                                 *   FILE 814
//*           2.  Unzip the vogt.zip file into a PC directory.      *   FILE 814
//*                                                                 *   FILE 814
//*           3.  Access the PC directory with a browser, and       *   FILE 814
//*               look at the mvsa.htm file in your PC directory.   *   FILE 814
//*               You should now see the list of about 920-odd      *   FILE 814
//*               articles, and you can then pick any one to        *   FILE 814
//*               browse, and do what you want with.                *   FILE 814
//*                                                                 *   FILE 814
//*      email:  Eugene Vogt <racfra2@bluewin.ch>                   *   FILE 814
//*                                                                 *   FILE 814
//*      email:  sbgolob@cbttape.org                                *   FILE 814
//*                                                                 *   FILE 814
//***FILE 815 is from Bob Glover and contains an extended string    *   FILE 815
//*           search facility that runs under ISPF.  We trust that  *   FILE 815
//*           it will be useful to you.                             *   FILE 815
//*                                                                 *   FILE 815
//*           email:  "Glover, Bob" <im4fsu@comcast.net>            *   FILE 815
//*                                                                 *   FILE 815
//*     The following is a description of this facility in          *   FILE 815
//*     more detail.                                                *   FILE 815
//*                                                                 *   FILE 815
//*     SRCHE                                                       *   FILE 815
//*                                                                 *   FILE 815
//*     This is a search facility that supports the searching of    *   FILE 815
//*     a user entered variable across multiple datasets.  It       *   FILE 815
//*     consists of (1) REXX and (3) ISPF panels.  It is an         *   FILE 815
//*     enhancement to the already CBT present SRCH facility        *   FILE 815
//*     which I introduced many years ago.  The core code was       *   FILE 815
//*     created by Lee Hayden. I created the logic that wraps       *   FILE 815
//*     around it.                                                  *   FILE 815
//*                                                                 *   FILE 815
//*     Users interface with SRCHE (SRCH EXTENDED) in two ways,     *   FILE 815
//*     both in TSO/E. ONE: simply issue  TSO SRCHE  and a panel    *   FILE 815
//*     pops up to allow one to enter any dataset name search       *   FILE 815
//*     mask. TWO: on a  3.4  screen showing one or more dataset    *   FILE 815
//*     names, enter  SRCHE  on a dsname line and the same panel    *   FILE 815
//*     pops up with that name in its dsname mask. At this point    *   FILE 815
//*     users can modify the panel dsname to whatever they want.    *   FILE 815
//*                                                                 *   FILE 815
//*     A main issue with doing all this is that one may            *   FILE 815
//*     inadvertently request one (or many) DFHSM MIGRATED          *   FILE 815
//*     datasets to appear as potential search targets. SRCHE       *   FILE 815
//*     presents a list of all MIGRATED datasets so the user can    *   FILE 815
//*     rethink his/her search mask. SRCHE will NOT issue any       *   FILE 815
//*     RECALLS. This must be done by the user. Once a valid        *   FILE 815
//*     list of target datasets has been created, SRCHE will        *   FILE 815
//*     then act like SRCH and ask the user for a valid search      *   FILE 815
//*     argument to go against the list of datasets previously      *   FILE 815
//*     created. A maximum of 5,000 hits is supported but that      *   FILE 815
//*     can easily be changed in the REXX.  The only limitation     *   FILE 815
//*     is the size of a TSO user's region.                         *   FILE 815
//*                                                                 *   FILE 815
//***FILE 816 is from Sam Golob and contains an APF-authorized      *   FILE 816
//*           TSO command to quickly and instantly change the       *   FILE 816
//*           default number of Global Notices that an ACCOUNT      *   FILE 816
//*           and SYNC combination will create, when it formats     *   FILE 816
//*           a SYS1.BRODCAST dataset (or any active Broadcast      *   FILE 816
//*           Dataset).                                             *   FILE 816
//*                                                                 *   FILE 816
//*           The IBM default value is 100 lines of notices. This   *   FILE 816
//*           is adequate for most shops, but if you need to        *   FILE 816
//*           change it, it is a large "pain in the neck" to do     *   FILE 816
//*           it IBM's way.  To do it our way, it is easy, and      *   FILE 816
//*           it takes a small fraction of a minute, with no IPL.   *   FILE 816
//*           Just execute one (APF-authorized) TSO command.        *   FILE 816
//*                                                                 *   FILE 816
//*           email:  sbgolob@cbttape.org                           *   FILE 816
//*                                                                 *   FILE 816
//*           IBM officially makes this number very difficult       *   FILE 816
//*           to change.  You have to zap the hex number into       *   FILE 816
//*           csect IKJEBLMT of module IKJEFXSR and the change      *   FILE 816
//*           will not take effect until the next IPL.  Very        *   FILE 816
//*           silly and unlike IBM....  They must have had a        *   FILE 816
//*           reason when it was designed, but it doesn't seem      *   FILE 816
//*           to make much sense nowadays, with IPLs so few         *   FILE 816
//*           and far between.                                      *   FILE 816
//*                                                                 *   FILE 816
//*           Fortunately, there is a solution.  The actual         *   FILE 816
//*           number that SYNC looks at, is located squarely        *   FILE 816
//*           in the CVT itself.  It isn't even chained off it!     *   FILE 816
//*           The number is a fullword at location CVT + X'5A8'.    *   FILE 816
//*           And loading this up initially, is the reason for      *   FILE 816
//*           the necessity of an IPL.                              *   FILE 816
//*                                                                 *   FILE 816
//*           IBM could have done better (and it still might,       *   FILE 816
//*           if you submit a requirement for a console command     *   FILE 816
//*           to change the default, through SHARE).  However,      *   FILE 816
//*           we are not waiting for IBM.  Here is a TSO command    *   FILE 816
//*           (that of course has to be APF-authorized), which      *   FILE 816
//*           will change the number instantly in the CVT, by       *   FILE 816
//*           simply plugging in a new number.  It works.  Just     *   FILE 816
//*           say BDMNNOTC 500, and an ACCOUNT + SYNC will produce  *   FILE 816
//*           a Broadcast Dataset that has 500 Global Notices       *   FILE 816
//*           messages.  Set a different number, and you get        *   FILE 816
//*           that number of Global Notices produced by the         *   FILE 816
//*           ACCOUNT + SYNC.  In my experience, you can even       *   FILE 816
//*           go over 1000 (IBM's professed limit).  I created      *   FILE 816
//*           a Broadcast Dataset with 4000 Notice slots, and       *   FILE 816
//*           it appears to work just fine.                         *   FILE 816
//*                                                                 *   FILE 816
//*           Again, you have to APF-authorize this TSO command     *   FILE 816
//*           by including its name in table IKJEFTE2 (authcmd)     *   FILE 816
//*           in PARMLIB, or by using one of our tools (TSUB,       *   FILE 816
//*           LWATMGR, or LLWA) that are in CBT Files 185 and       *   FILE 816
//*           797.  Good luck.                                      *   FILE 816
//*                                                                 *   FILE 816
//*           Note:  I have not imposed an upper limit on the       *   FILE 816
//*           number CVTBCLMT within the BDMNNOTC program.  But     *   FILE 816
//*           my advice is that it shouldn't be over 1000 in        *   FILE 816
//*           a production environment.  (SBG - 12/2009)            *   FILE 816
//*           With large numbers, errors caused by ACCOUNT +        *   FILE 816
//*           SYNC might occur.                                     *   FILE 816
//*                                                                 *   FILE 816
//*           I am supplying a load module library in member        *   FILE 816
//*           LOADMODS, which contains my commercial BDMCLEAN       *   FILE 816
//*           program as well as BDMNNOTC.  BDMCLEAN is a TSO       *   FILE 816
//*           command that cleans up deleted junk in Broadcast      *   FILE 816
//*           Datasets that makes them hard to browse or REVIEW.    *   FILE 816
//*           (REVIEW is the preferred browser for Broadcast        *   FILE 816
//*           Datasets - see File 135 for load modules, or CBT      *   FILE 816
//*           File 134 for source code.)  ISPF Browse leaves off    *   FILE 816
//*           the last byte of the Broadcast Dataset, which you     *   FILE 816
//*           often have to look at, to trace message chains.       *   FILE 816
//*           The Broadcast Dataset is a keyed dataset with key     *   FILE 816
//*           length 1, and ISPF BROWSE is confused by that,        *   FILE 816
//*           leaving off the last data byte of the record.         *   FILE 816
//*           REVIEW knows the difference between keys and data.    *   FILE 816
//*           And with REVIEW, you see the entire key and all       *   FILE 816
//*           the data.                                             *   FILE 816
//*                                                                 *   FILE 816
//***FILE 817 is from Mike Wojtukiewicz and contains his program    *   FILE 817
//*           called FIXCATLG to generate JCL that recatalogs       *   FILE 817
//*           (without scratching) all datasets on certain volumes  *   FILE 817
//*           in a new catalog.  This program also contains a       *   FILE 817
//*           second output to create input to SMP/E that makes     *   FILE 817
//*           DDDEF entries for all the mentioned datasets.         *   FILE 817
//*                                                                 *   FILE 817
//*           This program is meant to run as an assembly, link,    *   FILE 817
//*           and go.  But it can be run as a load module.  The     *   FILE 817
//*           requisite source for both methods of operation is     *   FILE 817
//*           included in this file.                                *   FILE 817
//*                                                                 *   FILE 817
//*           Some more programs from Mike Wojtukiewicz are being   *   FILE 817
//*           included here:                                        *   FILE 817
//*                                                                 *   FILE 817
//*       Q390TIOT - Program to determine if a DDname is present    *   FILE 817
//*                  in a job step.                                 *   FILE 817
//*                                                                 *   FILE 817
//*  email:  Michael Wojtukiewicz <mwojtukiewicz@infinite-blue.com> *   FILE 817
//*                                                                 *   FILE 817
//*  Copyright by Mike Wojtukiewicz.                                *   FILE 817
//*                                                                 *   FILE 817
//*  Function of this code:                                         *   FILE 817
//*                                                                 *   FILE 817
//*  You supply 2 items:                                            *   FILE 817
//*                                                                 *   FILE 817
//*  1 - MASTERCatalog you wish to catalog datasets in (it is your) *   FILE 817
//*      responsibility to IMPORT it if it doesn't exist on your    *   FILE 817
//*      present system.                                            *   FILE 817
//*                                                                 *   FILE 817
//*  2 - A list volsers and symbols to use.                         *   FILE 817
//*                                                                 *   FILE 817
//*  What this program then does is list the datasets on all the    *   FILE 817
//*  volumes and then deletes without scratching and defining the   *   FILE 817
//*  datasets on those volumes with their corresponding symbolic    *   FILE 817
//*  value using IDCAMS                                             *   FILE 817
//*                                                                 *   FILE 817
//*      and                                                        *   FILE 817
//*                                                                 *   FILE 817
//*  Creates DDDEF statements for UCLIN processing to connect a     *   FILE 817
//*  Target/DLIB ddname to a dataset on a specific VOLSER.          *   FILE 817
//*                                                                 *   FILE 817
//*  2 datasets will be defined to run in their respective IDCAMS   *   FILE 817
//*  and SMP/E batch jobs. See <<<=== at the bottom of what to      *   FILE 817
//*  modify for your job to run.                                    *   FILE 817
//*                                                                 *   FILE 817
//*  Example of output:                                             *   FILE 817
//*                                                                 *   FILE 817
//*    CATALOG.DATA                                                 *   FILE 817
//*                                                                 *   FILE 817
//*   DELETE ADCD.ISPPLIB                        NVSAM NSCR -       *   FILE 817
//*          CATALOG(CATALOG.ZOS10.MASTER              )            *   FILE 817
//*   DEF    NVSAM(NAME(ADCD.ISPPLIB                     ) -        *   FILE 817
//*          DEVT(0000) VOLUMES(******   )) -                       *   FILE 817
//*          CATALOG(CATALOG.ZOS10.MASTER              )            *   FILE 817
//*      * * * * *                                                  *   FILE 817
//*                                                                 *   FILE 817
//*    DDDEF.DATA                                                   *   FILE 817
//*                                                                 *   FILE 817
//*   REP DDDEF(ISPPLIB ) DATASET(ADCD.ISPPLIB     )                *   FILE 817
//*       UNIT(3390)      VOLUME(ZOSRS1) SHR .                      *   FILE 817
//*      * * * * *                                                  *   FILE 817
//*                                                                 *   FILE 817
//***FILE 818 is from Petr Svoboda and contains an Assembler        *   FILE 818
//*           stub to call AMODE64 modules from AMODE31 modules     *   FILE 818
//*           in COBOL.                                             *   FILE 818
//*                                                                 *   FILE 818
//*           email:  Petr_Svoboda@cz.ibm.com                       *   FILE 818
//*                   psvo@centrum.cz                               *   FILE 818
//*                                                                 *   FILE 818
//*     I searched several free webpages about calling AMODE64      *   FILE 818
//*     modules from AMODE31 modules eg. from COBOL....  I found    *   FILE 818
//*     nothing, so I wrote a small Assembler stub for this.        *   FILE 818
//*     It is used in test phase by one of our customers.  I        *   FILE 818
//*     think it might be good idea to allow others to use it       *   FILE 818
//*     and your page seems to be the best choice!!                 *   FILE 818
//*                                                                 *   FILE 818
//***FILE 819 is from Terry Miller, and contains the REXX code      *   FILE 819
//*         for the "ICH" RACF exit update facility.  The package   *   FILE 819
//*         is used to update a RACF exit without having to         *   FILE 819
//*         perform an IPL.  Authorized functions are performed     *   FILE 819
//*         by the authorized Assembler program called ICHLOADR     *   FILE 819
//*         which has to be in your IKJEFTE8 (authpgm) table.       *   FILE 819
//*                                                                 *   FILE 819
//*         It is, in essence, a RACF exit UPDATE/DELETE/REMOVE/    *   FILE 819
//*         REPOINT Facility.                                       *   FILE 819
//*                                                                 *   FILE 819
//*           email:  tkmille@conocophillips.com                    *   FILE 819
//*                                                                 *   FILE 819
//*  LAST UPDATE: 01/21/2010  Version 01.01.01                      *   FILE 819
//*                           Terry Miller                          *   FILE 819
//*                           ConocoPhillips                        *   FILE 819
//*                           tkmille@ConocoPhillips.com            *   FILE 819
//*                                                                 *   FILE 819
//*  MODIFICATION LEVEL: V01.01.01                                  *   FILE 819
//*                                                                 *   FILE 819
//*  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *   FILE 819
//*                                                                 *   FILE 819
//*  This program was written to provide the capability to          *   FILE 819
//*  dynamically UPDATE, DELETE, REMOVE, and REPOINT RACF Exits     *   FILE 819
//*  without having to IPL.  It also updates the RCVT pointer (RACF *   FILE 819
//*  Communication Vector Table) for the exit to repoint RACF       *   FILE 819
//*  (Security Server) to use the updated exit in dynamic           *   FILE 819
//*  LPA (CSA) storage.                                             *   FILE 819
//*                                                                 *   FILE 819
//*  It has four Functions: UPDATE, DELETE, REMOVE, and REPOINT.    *   FILE 819
//*                                                                 *   FILE 819
//*  Exec 'ICH' calls program ICHLOADR to UPDATE the module in      *   FILE 819
//*  dynamic LPA (CSA) storage and to repoint the RCVT to the new   *   FILE 819
//*  exit entry point.                                              *   FILE 819
//*  (Does the same function as the SETPROG LPA,ADD MVS command     *   FILE 819
//*  except that it also updates the RACF RCVT pointer which        *   FILE 819
//*  points to the updated version of the exit in LPA (CSA)         *   FILE 819
//*  storage.)                                                      *   FILE 819
//*                                                                 *   FILE 819
//*  It can also be used to DELETE a dynamically loaded RACF Exit   *   FILE 819
//*  from dynamic LPA (CSA) storage and to unpoint (zero) the       *   FILE 819
//*  RACF RCVT pointer to it to indicate to RACF that the current   *   FILE 819
//*  exit is no longer in RACF service.                             *   FILE 819
//*  (Does the same function as the SETPROG LPA,DELETE MVS command  *   FILE 819
//*  except that it also unpoints the exit from RACF.)              *   FILE 819
//*  Therefore, since the RCVT pointer is zeroed, it must be        *   FILE 819
//*  repointed by issuing a subsequent UPDATE or REPOINT function   *   FILE 819
//*  to put it back into service.)                                  *   FILE 819
//*                                                                 *   FILE 819
//*  It can also be used to REMOVE (unpoint) a RACF exit to take    *   FILE 819
//*  the exit out of RACF service without affecting the exit in     *   FILE 819
//*  LPA storage.  The exit will remain out of service for RACF     *   FILE 819
//*  until the next IPL or until the next dynamic update or         *   FILE 819
//*  until the next REPOINT function is issued.                     *   FILE 819
//*                                                                 *   FILE 819
//*  It can also be used to REPOINT a RACF exit to put the latest   *   FILE 819
//*  version of a RACF Exit back into RACF service without          *   FILE 819
//*  affecting the exit in LPA storage.                             *   FILE 819
//*  This function is the opposite of the REMOVE function and       *   FILE 819
//*  can be used subsequent to issuing the REMOVE function to       *   FILE 819
//*  put an exit back into service.                                 *   FILE 819
//*                                                                 *   FILE 819
//*                                                                 *   FILE 819
//*  ASSUMPTIONS:                                                   *   FILE 819
//*  ------------                                                   *   FILE 819
//*                                                                 *   FILE 819
//*  This exec only provides the RCVT pointer address for the       *   FILE 819
//*  following RACF exits:                                          *   FILE 819
//*                                                                 *   FILE 819
//*  ICHAUTAB                                                       *   FILE 819
//*  ICHCNX00                                                       *   FILE 819
//*  ICHDEX01                                                       *   FILE 819
//*  ICHDEX11                                                       *   FILE 819
//*  ICHNCV00                                                       *   FILE 819
//*  ICHPWX01                                                       *   FILE 819
//*  ICHPWX11                                                       *   FILE 819
//*  ICHRCX01                                                       *   FILE 819
//*  ICHRCX02                                                       *   FILE 819
//*  ICHRDX01                                                       *   FILE 819
//*  ICHRDX02                                                       *   FILE 819
//*  ICHRFX01                                                       *   FILE 819
//*  ICHRFX02                                                       *   FILE 819
//*  ICHRFX03                                                       *   FILE 819
//*  ICHRFX04                                                       *   FILE 819
//*  ICHRIN03                                                       *   FILE 819
//*  ICHRIX01                                                       *   FILE 819
//*  ICHRIX02                                                       *   FILE 819
//*  ICHRLX01                                                       *   FILE 819
//*  ICHRLX02                                                       *   FILE 819
//*                                                                 *   FILE 819
//*  Please report any bugs to Terry Miller at ConocoPhillips.      *   FILE 819
//*  Email: tkmille@ConocoPhillips.com                              *   FILE 819
//*                                                                 *   FILE 819
//*  DESCRIPTION OF PDS MEMBERS:                                    *   FILE 819
//*  ---------------------------                                    *   FILE 819
//*                                                                 *   FILE 819
//*    $CHANGES - Change Log of the 'ICH' facility                  *   FILE 819
//*    $$DOC    - 'ICH' facility 'README' file                      *   FILE 819
//*    $INSTALL - Installation steps to install the 'ICH' facility  *   FILE 819
//*    ICH      - Rexx exec to invoke the 'ICH' facility            *   FILE 819
//*               (this exec calls program 'ICHLOADR')              *   FILE 819
//*    ICHLOADR - Program to update a RACF module in LPA.           *   FILE 819
//*    ASSEM    - JCL to assemble program 'ICHLOADR'.               *   FILE 819
//*    HELPICH  - Help documentation for exec 'ICH'                 *   FILE 819
//*               (this is the SYSHELP member for the 'ICH' exec)   *   FILE 819
//*    $OBJECT  - Object deck of program 'ICHLOADR'                 *   FILE 819
//*    LINKEDIT - JCL to link-edit program 'ICHLOADR' from the      *   FILE 819
//*               object deck (member $OBJECT).                     *   FILE 819
//*    COPYHELP - Help member install jcl to copy to SYSHELP file.  *   FILE 819
//*    PROGCNTL - JCL to program-control security-protect           *   FILE 819
//*               program 'ICHLOADR'.                               *   FILE 819
//*    HELPICH  - Help documentation member for exec 'ICH'          *   FILE 819
//*    SAMPDISP - Sample displays from the 'ICH' exec.              *   FILE 819
//*                                                                 *   FILE 819
//*                                                                 *   FILE 819
//*  DISCLAIMER OF LIABILITY:                                       *   FILE 819
//*  ------------------------                                       *   FILE 819
//*                                                                 *   FILE 819
//*                      DISCLAIMER                                 *   FILE 819
//*                                                                 *   FILE 819
//*  Terry Miller and ConocoPhillips neither expresses nor implies  *   FILE 819
//*  any warranty as to the fitness of this ICH facility.           *   FILE 819
//*  The use of this facility and the results therefrom is entirely *   FILE 819
//*  at the risk of the user.  Consequently, the user may modify    *   FILE 819
//*  these programs in any way he/she thinks fit.                   *   FILE 819
//*                                                                 *   FILE 819
//*  All disclaimers that apply to CBT programs as described in     *   FILE 819
//*  the "Disclaimer Section" of File 001 of the CBT Tape Doc       *   FILE 819
//*  and on www.cbttape.org also apply to this package.             *   FILE 819
//*  (SBG - 01/2010)                                                *   FILE 819
//*                                                                 *   FILE 819
//*  INSTALLATION TAILORING/CUSTOMIZATION:                          *   FILE 819
//*  -------------------------------------                          *   FILE 819
//*                                                                 *   FILE 819
//*  Installation change to REXX exec 'ICH':                        *   FILE 819
//*                                                                 *   FILE 819
//*  You must change the loadlib name which contains the ICHLOADR   *   FILE 819
//*  program in the CALL command.  Edit exec 'ICH' and then         *   FILE 819
//*  issue a FIND for the eyecatcher text "<= CHANGE LOADLIB".      *   FILE 819
//*                                                                 *   FILE 819
//*  AUTHORIZATION:                                                 *   FILE 819
//*  --------------                                                 *   FILE 819
//*                                                                 *   FILE 819
//*  Program ICHLOADR must reside in an APF-Authorized libary       *   FILE 819
//*  and be linked as an authorized module.                         *   FILE 819
//*                                                                 *   FILE 819
//*  The Load Library containing the RACF Exit to fetch for the     *   FILE 819
//*  LPA Update must also be in the APF List.  Normally, this       *   FILE 819
//*  Loadlib would be SYS1.LPALIB (this is the default load         *   FILE 819
//*  library if not specified when the ICH REXX exec is invoked),   *   FILE 819
//*  but it can be overridden with the DA(dsname) parm when ICH     *   FILE 819
//*  is invoked.                                                    *   FILE 819
//*                                                                 *   FILE 819
//*  Program ICHLOADR must reside in the IKJTSOxx 'Authorized       *   FILE 819
//*  program names' table.                                          *   FILE 819
//*                                                                 *   FILE 819
//*  Program ICHLOADR should only be called by REXX Exec 'ICH'      *   FILE 819
//*  to guarantee that an accurate RCVT offset value is being       *   FILE 819
//*  processed.  Therefore, a token is passed from Exec 'ICH'       *   FILE 819
//*  as a parameter to prevent an unauthorzied call to program      *   FILE 819
//*  ICHLOADR.                                                      *   FILE 819
//*                                                                 *   FILE 819
//*  It is therefore incumbent upon users to carefully maintain     *   FILE 819
//*  and security-protect the RCVT offset table which is            *   FILE 819
//*  hard-coded in Exec 'ICH'.                                      *   FILE 819
//*                                                                 *   FILE 819
//*  It is HIGHLY recommended that program ICHLOADR be              *   FILE 819
//*  program-control protectsd to prevent unauthorized users        *   FILE 819
//*  from executing it.  This might be helpful for auditors         *   FILE 819
//*  checking this program as well.                                 *   FILE 819
//*                                                                 *   FILE 819
//*  Program 'ICHLOADR' was named with the 'ICH' prefix to show     *   FILE 819
//*  that it is related to RACF activity.                           *   FILE 819
//*  The author realizes that someday IBM may release a version     *   FILE 819
//*  of RACF (or SECURITY SERVER product) which contains a          *   FILE 819
//*  program called 'ICHLOADR', but I will cross that               *   FILE 819
//*  maintenance bridge when it happens.                            *   FILE 819
//*                                                                 *   FILE 819
//*  CERTIFICATION                                                  *   FILE 819
//*  -------------                                                  *   FILE 819
//*                                                                 *   FILE 819
//*  Program ICHLOADR is certified for Z/OS 1.1 and higher.         *   FILE 819
//*                                                                 *   FILE 819
//*  PROBLEM REPORTING                                              *   FILE 819
//*  -----------------                                              *   FILE 819
//*                                                                 *   FILE 819
//*  Please report any bugs or suggestions for improvement to:      *   FILE 819
//*         Terry Miller at email: Tkmille@ConocoPhillips.com       *   FILE 819
//*                                                                 *   FILE 819
//* ICH EXEC SYNTAX                                                 *   FILE 819
//* ---------------                                                 *   FILE 819
//*                                                                 *   FILE 819
//* INVOCATION SYNTAX:                                              *   FILE 819
//*                                                                 *   FILE 819
//*    ICH ?                                                        *   FILE 819
//*    ICH membername [ UPDATE | DELETE | REMOVE | REPOINT ]        *   FILE 819
//*                   [ DA(dsname)               ]                  *   FILE 819
//*                   [ TEST | SIMULATE          ]                  *   FILE 819
//*                   [ DEBUG                    ]                  *   FILE 819
//*                                                                 *   FILE 819
//*                                                                 *   FILE 819
//* EXAMPLE INVOCATION DISPLAY FROM EXEC 'ICH'                      *   FILE 819
//* ------------------------------------------                      *   FILE 819
//*                                                                 *   FILE 819
//* %ICH  ICHRCX02 UPDATE                                           *   FILE 819
//*                                                                 *   FILE 819
//* ************************* Top of Data ************************* *   FILE 819
//*                                                                 *   FILE 819
//* 2010.015         III   CCCC H   H     DYNAMIC RACF      Friday  *   FILE 819
//* 14:40:00          I   C     H   H     EXIT UPDATE    January 15 *   FILE 819
//*                   I   C     HHHHH     ASSISTANCE FOR      SYT   *   FILE 819
//* IPL Date:         I   C     H   H      MODULE          AD81/SYT *   FILE 819
//* 01/15/2010.015   III   CCCC H   H     ICHRCX02                  *   FILE 819
//*                                                                 *   FILE 819
//*                                                                 *   FILE 819
//* ICH      - Module      = ICHRCX02                               *   FILE 819
//* ICH      - Dsname      = SYS1.LPALIB                            *   FILE 819
//* ICH      - Function    = UPDATE                                 *   FILE 819
//* ICH      - RCVT Offset = 000000A4                               *   FILE 819
//* ICH      - Test Parm   =                                        *   FILE 819
//*                                                                 *   FILE 819
//* ICHLOADR - V01.01.01 2010.015 14:40:00                          *   FILE 819
//*                                                                 *   FILE 819
//* ICHLOADR - UPDATE   FUNCTION IS BEING PROCESSED.                *   FILE 819
//*                                                                 *   FILE 819
//* ICHLOADR - RACF EXIT MODULE IS ICHRCX02                         *   FILE 819
//*                                                                 *   FILE 819
//* ICHLOADR - LOADLIB DATASET IS SYS1.LPALIB                       *   FILE 819
//*                                                                 *   FILE 819
//* ICHLOADR - LPA UPDATE SUCCESSFUL FOR MODULE ICHRCX02            *   FILE 819
//*                                                                 *   FILE 819
//* ICHLOADR - OLD EP ADDRESS: 8589C8B8  NEW EP ADDRESS: BA4DE000   *   FILE 819
//*                                                                 *   FILE 819
//* ICHLOADR - EXIT ICHRCX02 RCVT POINTER ADDRESS: 00FB779C         *   FILE 819
//*                                                                 *   FILE 819
//* ICHLOADR - EXIT ICHRCX02 RCVT POINTER OFFSET:  000000A4         *   FILE 819
//*                                                                 *   FILE 819
//* ICHLOADR - EXIT ICHRCX02 WAS UPDATED AND REPOINTED SUCCESSFULLY.*   FILE 819
//*                                                                 *   FILE 819
//* ICHLOADR - RETURN CODE = 0                                      *   FILE 819
//*                                                                 *   FILE 819
//*                                                                 *   FILE 819
//* **************************** Bottom of Data ******************* *   FILE 819
//*                                                                 *   FILE 819
//***FILE 820 is from Richard D. Harper and contains his "Private   *   FILE 820
//*           64/20 z/OS Assembly Language Development Platform".   *   FILE 820
//*                                                                 *   FILE 820
//*           email:  mrharper@emailhosting.com                     *   FILE 820
//*                                                                 *   FILE 820
//*     Partial Description of this Package. For a full             *   FILE 820
//*     descripton please see member @@@DOC which is in MSWORD      *   FILE 820
//*     format.  (It must be downloaded in Binary to a PC.)         *   FILE 820
//*                                                                 *   FILE 820
//*     Also included is the same doc as member @@@PDF, which       *   FILE 820
//*     is in PDF format.                                           *   FILE 820
//*                                                                 *   FILE 820
//*     This text comes from the @@@DOC member of this pds.         *   FILE 820
//*                                                                 *   FILE 820
//*     Welcome to my world.                                        *   FILE 820
//*                                                                 *   FILE 820
//*     What I'm about to show you in the pages that follow is      *   FILE 820
//*     my Personal 64/20 z/OS Assembly Language Development        *   FILE 820
//*     Platform.  The 64 in the name refers to having full         *   FILE 820
//*     support for 64-bit z/Architecture.  And the 20              *   FILE 820
//*     represents the 20-Bit displacement instruction set          *   FILE 820
//*     with the 'Y' and 'G' instructions.   Those 20-bit           *   FILE 820
//*     instructions are awesomely powerful in that they allow      *   FILE 820
//*     for direct addressability of one megabyte of storage.       *   FILE 820
//*     So, if we limit our coding to these instructions we         *   FILE 820
//*     can have 256 base registers for the price of one.  To       *   FILE 820
//*     support this reality, this system includes the SSY          *   FILE 820
//*     macros to be used as a replacement for the SS               *   FILE 820
//*     instruction set, which cannot be converted to 20-bit        *   FILE 820
//*     instructions due to the limitations of the hardware.        *   FILE 820
//*     It would require 8-byte instructions and the hardware       *   FILE 820
//*     won't support that, because the PSW cannot represent        *   FILE 820
//*     an 8-byte instruction in the ILC, the Instruction           *   FILE 820
//*     Length Code.                                                *   FILE 820
//*                                                                 *   FILE 820
//*     There are many features to this system, including           *   FILE 820
//*     Stacking DSA for your below-the-line storage, Stacking      *   FILE 820
//*     ATB for your above-the-bar storage, and label level         *   FILE 820
//*     tracing is built into the system, which makes debugging     *   FILE 820
//*     and maintenance a breeze.  These traces support multiple    *   FILE 820
//*     TCBs with a separate SYSOUT dataset being dynamically       *   FILE 820
//*     allocated for each task in the address space.  And full     *   FILE 820
//*     support for programs running in ARMODE is also provided.    *   FILE 820
//*                                                                 *   FILE 820
//*     So, it's a pretty robust system.  And it's the only         *   FILE 820
//*     true 64/20 Development Platform in the world.  I know,      *   FILE 820
//*     because I had to write GETMAIN and FREEMAIN for             *   FILE 820
//*     above-the-bar storage, and you can't have a truly           *   FILE 820
//*     effective 64/20 system without that.  In ten years IBM      *   FILE 820
//*     has failed to produce that result, so I had to do it        *   FILE 820
//*     myself.  It's part of this system.   I hope you will        *   FILE 820
//*     find it as useful as I do.                                  *   FILE 820
//*                                                                 *   FILE 820
//*  What You Can and Cannot Do With This System                    *   FILE 820
//*                                                                 *   FILE 820
//*      You have to understand that this system, as                *   FILE 820
//*      distributed is subject to the GNU-GPL license, which       *   FILE 820
//*      means that it cannot be used to write or develop           *   FILE 820
//*      commercial code, which is to say code intended for         *   FILE 820
//*      sale or production use by any company.  You can't do       *   FILE 820
//*      that, the GNU-GPL precludes that, which is why I           *   FILE 820
//*      distributed it this way.                                   *   FILE 820
//*                                                                 *   FILE 820
//*  What you can do.                                               *   FILE 820
//*                                                                 *   FILE 820
//*      Now that said, there are still a lot of reasons to use     *   FILE 820
//*      this platform.  Any code that is not for sale or for       *   FILE 820
//*      production use is not a problem.  You can do whatever      *   FILE 820
//*      you want as long as you're not intending to sell what      *   FILE 820
//*      you write with this platform.  So, let's talk about        *   FILE 820
//*      what you can do.                                           *   FILE 820
//*                                                                 *   FILE 820
//*      You can write any kind of test program that you like,      *   FILE 820
//*      and we all need to write test programs to test out         *   FILE 820
//*      our production code.  Well, I'm distributing some 30+      *   FILE 820
//*      such programs with this system in the /TST library.        *   FILE 820
//*                                                                 *   FILE 820
//*      When I was working with JES2, that group had two           *   FILE 820
//*      people where there whole job was to write test             *   FILE 820
//*      programs to test out new interfaces placed into the        *   FILE 820
//*      component, such as SAPI, Extended Status, and the          *   FILE 820
//*      like.  Such testers can certainly use this system to       *   FILE 820
//*      develop these kinds of programs, since they were           *   FILE 820
//*      never intended for sale in the first place.  And this      *   FILE 820
//*      is true for any company and any developer anywhere.        *   FILE 820
//*      Yes, it's Free Software, but who gives a damn, it's a      *   FILE 820
//*      bloody test program.                                       *   FILE 820
//*                                                                 *   FILE 820
//*      And this is a sanctioned use for the GNU-GPL version       *   FILE 820
//*      of this system.  You, as the developer will likely         *   FILE 820
//*      find yourself many times more productive than the          *   FILE 820
//*      developer sitting in the cubicle next to you, if you       *   FILE 820
//*      learn this system and use it.  And in today's job          *   FILE 820
//*      market that can only work to your advantage, as it         *   FILE 820
//*      will benefit you and your company.                         *   FILE 820
//*                                                                 *   FILE 820
//*      The other really important use for this system is for      *   FILE 820
//*      your own education or edification.  We all have to         *   FILE 820
//*      remain current in our knowledge and understanding of       *   FILE 820
//*      the z/OS Operating System.  It's our job and               *   FILE 820
//*      continuing education is a part of that job.  Every         *   FILE 820
//*      few years IBM comes out with a new version of POPs         *   FILE 820
//*      (Principles of Operations), and every time a new           *   FILE 820
//*      version comes out you need to read it, and I mean          *   FILE 820
//*      cover to cover.  They're constantly adding new             *   FILE 820
//*      instructions.  I'm still not really clear about the        *   FILE 820
//*      damn PLO instruction.                                      *   FILE 820
//*                                                                 *   FILE 820
//*      But this is a system that allows you to test out new       *   FILE 820
//*      instructions where you can use the #TRACE macro to         *   FILE 820
//*      get a clear and distinct understanding of how these        *   FILE 820
//*      new instructions work.  But it's not just new              *   FILE 820
//*      instructions.  If you haven't done an MGCR, write a        *   FILE 820
//*      test program that uses it.  If you haven't written an      *   FILE 820
//*      SRB, do so.  If you haven't written a PC, write one,       *   FILE 820
//*      and use this system to do it.  You will learn more         *   FILE 820
//*      quickly for it.  Ongoing education is important, and       *   FILE 820
//*      something you need to do committedly if you're             *   FILE 820
//*      working in this field.  So, this is another                *   FILE 820
//*      legitimate and sanctioned use of this system.              *   FILE 820
//*                                                                 *   FILE 820
//*      Another thing you can do is use it to debug your           *   FILE 820
//*      production code.  Then you can cut and paste the           *   FILE 820
//*      debugged code into your production code, as long as        *   FILE 820
//*      you don't include any of my macros in that production      *   FILE 820
//*      code.  This platform can help you to diagnose              *   FILE 820
//*      problems much more quickly, and help you to be much        *   FILE 820
//*      more productive than the other developers in your          *   FILE 820
//*      shop.  And this is also a sanctioned use of the            *   FILE 820
//*      GNU-GPL version of this code.                              *   FILE 820
//*                                                                 *   FILE 820
//*  What you can't do.                                             *   FILE 820
//*                                                                 *   FILE 820
//*      This is a macro based system, and as such anything         *   FILE 820
//*      you write using this platform will inherently include      *   FILE 820
//*      code that I have written which is subject to GNU-GPL       *   FILE 820
//*      and this makes anything that you write using this          *   FILE 820
//*      platform also subject to GNU-GPL.  And what that           *   FILE 820
//*      means is that anything you write using this platform       *   FILE 820
//*      cannot be sold, it must be given away for free, as         *   FILE 820
//*      Free Software.  Understand?                                *   FILE 820
//*                                                                 *   FILE 820
//*      But even more than that, as I understand the GNU-GPL       *   FILE 820
//*      license, nothing that you write using this platform        *   FILE 820
//*      can be linked-in or included into any commercial           *   FILE 820
//*      application, because if it is, the entire application      *   FILE 820
//*      cannot be sold and must be given away for free, as         *   FILE 820
//*      Free Software.                                             *   FILE 820
//*                                                                 *   FILE 820
//*      So, this is something you need to be very careful of,      *   FILE 820
//*      as a developer.  You cannot use the Free Software          *   FILE 820
//*      version of this code to write a subroutine or              *   FILE 820
//*      sub-program and include the object module into ANY         *   FILE 820
//*      commercial code.  So, if you do your boss will very        *   FILE 820
//*      likely be really mad.  So don't do that.                   *   FILE 820
//*                                                                 *   FILE 820
//*      So, in that event your two options are, remove the         *   FILE 820
//*      code from the commercial product and move on, or if        *   FILE 820
//*      it was really good code that you want to keep, you         *   FILE 820
//*      can purchase a commercial license for this                 *   FILE 820
//*      development platform from me or my representative.         *   FILE 820
//*                                                                 *   FILE 820
//*      Another thing that you can't do, well it's not that        *   FILE 820
//*      you can't do, but it would be very unwise to do, is        *   FILE 820
//*      to write any production code with this system.  You        *   FILE 820
//*      see, anything written with the GNU-GPL version of          *   FILE 820
//*      this code is by definition "Free Software."  So, if        *   FILE 820
//*      you're working for a bank and write something cool         *   FILE 820
//*      like an Investment Portfolio System, which I did once      *   FILE 820
//*      long ago, and use this system to do it?  Well, it's        *   FILE 820
//*      free software.  So any employee can take that code and     *   FILE 820
//*      give it away to any competitor for free.  So, you          *   FILE 820
//*      really don't want use this system for production code.     *   FILE 820
//*      In that event the company needs to purchase a              *   FILE 820
//*      Commercial License from me or my representative.           *   FILE 820
//*                                                                 *   FILE 820
//***FILE 821 is from Gil Segal and Giora Bar, and contains a       *   FILE 821
//*           REXX utility called CC, which is an edit macro that   *   FILE 821
//*           plugs values from a data file, into a skeleton, so    *   FILE 821
//*           that real JCL is created automatically from the       *   FILE 821
//*           skeleton.  The CC utility runs as an ISPF edit        *   FILE 821
//*           macro.  Full documentation is provided in a PDF       *   FILE 821
//*           file.                                                 *   FILE 821
//*                                                                 *   FILE 821
//*       email:  "Giora Bar" <giora.b@sapiens.com>                 *   FILE 821
//*               "Gil Segal" <gil.s@sapiens.com>                   *   FILE 821
//*                                                                 *   FILE 821
//***FILE 822 is from Terry Miller, and contains code to capture    *   FILE 822
//*           cpu utilization and limit information for use as a    *   FILE 822
//*           metric in softcapping an Lpar or an Lpar group.       *   FILE 822
//*                                                                 *   FILE 822
//*             email:  tkmille@conocophillips.com                  *   FILE 822
//*                                                                 *   FILE 822
//*       LAST UPDATE: 03/09/2010  Terry Miller                     *   FILE 822
//*                                ConocoPhillips                   *   FILE 822
//*                                tkmille@ConocoPhillips.com       *   FILE 822
//*                                                                 *   FILE 822
//*       MODIFICATION LEVEL: V01.01.01                             *   FILE 822
//*                                                                 *   FILE 822
//*   * * * * * * * * * * * * * * * * * * * * * * * * * * * * *     *   FILE 822
//*                                                                 *   FILE 822
//*   This facility was written to assist in measuring Lpar cpu     *   FILE 822
//*   utilization against capacity for the purpose of Softcapping   *   FILE 822
//*   an Lpar or an Lpar group using a 4 hour rolling average with  *   FILE 822
//*   IBM's subcapacity software pricing for monthly license        *   FILE 822
//*   charges (MLC).  It can be used in conjuction with the         *   FILE 822
//*   SCPTOOL (SubCapacity Pricing Tool) that IBM provides.         *   FILE 822
//*   (http://www-03.ibm.com/systems/z/resources/swprice/subcap/    *   FILE 822
//*    scpt/instruct.html)                                          *   FILE 822
//*                                                                 *   FILE 822
//*   Program SOFTCAPI will capture cpu utilization and capacity    *   FILE 822
//*   information and issue two WTO messages to Syslog and          *   FILE 822
//*   also write the two message to a log file (OUTPUT file).       *   FILE 822
//*                                                                 *   FILE 822
//*   SOFTCAPI WTO Messages:                                        *   FILE 822
//*                                                                 *   FILE 822
//*   1) SOFTCAPI LPAR LPARX CURRENT ROLLING 4-HR AVG UTILIZATION   *   FILE 822
//*      IS 9 MSUS                                                  *   FILE 822
//*   2) SOFTCAPI SY6 CAPACITY IS 27 MSUS, LPAR CAPACITY            *   FILE 822
//*      IS 15 MSUS                                                 *   FILE 822
//*                                                                 *   FILE 822
//*   The program can be issued by automation on a time interval    *   FILE 822
//*   to capture interval metrics to be graphed.                    *   FILE 822
//*                                                                 *   FILE 822
//*   The STCJOB (started job) member is used to execute the        *   FILE 822
//*   program and capture the data into a capture log.              *   FILE 822
//*                                                                 *   FILE 822
//*   The daily capture log can then be used to graph daily         *   FILE 822
//*   cpu utilization.                                              *   FILE 822
//*                                                                 *   FILE 822
//***FILE 823 is from Alexander I. Vasilenko and contains an        *   FILE 823
//*           expansion of the ISPF command shell panel in ISPF     *   FILE 823
//*           Option 6 (ISRTSOA) to support the retention of 20     *   FILE 823
//*           previously entered commands, instead of 10.           *   FILE 823
//*                                                                 *   FILE 823
//*           Two supporting execs, called DOESHL and DOECMP        *   FILE 823
//*           are also included in this package.                    *   FILE 823
//*                                                                 *   FILE 823
//*           A few extra options, explained in member $$NOTE2,     *   FILE 823
//*           round out this modification.                          *   FILE 823
//*                                                                 *   FILE 823
//*           Further explanations of the different ways to run     *   FILE 823
//*           this panel (the MODE settings) are explained better   *   FILE 823
//*           in member $$NOTE3.                                    *   FILE 823
//*                                                                 *   FILE 823
//*           Please look at member $$NOTE2 which provides some     *   FILE 823
//*           further explanations, and also see exec VIEWPOOL,     *   FILE 823
//*           which can perform an ISPF 7.3 operation, to display   *   FILE 823
//*           the ISPF variables that control the "old command"     *   FILE 823
//*           stack.  But VIEWPOOL will work for an arbitrary       *   FILE 823
//*           application, not just for PDF.                        *   FILE 823
//*                                                                 *   FILE 823
//*           email:  Alexander.I.Vasilenko@boeing.com              *   FILE 823
//*                   Ali_vas@mail.ru                               *   FILE 823
//*                                                                 *   FILE 823
//***FILE 824 is a VTOC zapping tool from Richard L. Rice.  It is   *   FILE 824
//*           based on ISPF and it interfaces with RACF.  Please    *   FILE 824
//*           use it wisely and see all the members of the DOC pds  *   FILE 824
//*           which is included in this file.                       *   FILE 824
//*                                                                 *   FILE 824
//*           email:  Richard.L.Rice@conocophillips.com             *   FILE 824
//*                                                                 *   FILE 824
//***FILE 825 is from Raymond Ching and contains his SSL Handshake  *   FILE 825
//*           program.  See member called "README" for details.     *   FILE 825
//*                                                                 *   FILE 825
//*           emails:  "sslhand support" <sslhand@gmail.com>        *   FILE 825
//*                    "Raymond Ching" <rching93@gmail.com>         *   FILE 825
//*                                                                 *   FILE 825
//*     I have written a simple z/OS batch program to perform       *   FILE 825
//*     the first few phases of SSL handshake and print the         *   FILE 825
//*     human readable output into the SYSPRINT DDname. My          *   FILE 825
//*     intention is to write a simple program to diagnose the      *   FILE 825
//*     most common SSL setup issues in z/OS.                       *   FILE 825
//*                                                                 *   FILE 825
//*     Basically, the program is free to execute without any       *   FILE 825
//*     warranty.                                                   *   FILE 825
//*                                                                 *   FILE 825
//*     1. The SSLHAND program in JSSLHAND initiates Secure         *   FILE 825
//*        Socket Layer (SSL) session with the partner SSL          *   FILE 825
//*        server provided in the parameter by sending SSL          *   FILE 825
//*        client hello message.  The server will respond with      *   FILE 825
//*        SSL server hello message containing server               *   FILE 825
//*        certificate and optionally with Certificate request.     *   FILE 825
//*        Following flow diagram is extracted from                 *   FILE 825
//*        http://www.ietf.org/rfc/rfc2246.txt.                     *   FILE 825
//*                                                                 *   FILE 825
//*        ------------------------------------------------------   *   FILE 825
//*           Client                          Server                *   FILE 825
//*                                                                 *   FILE 825
//*           ClientHello       -------->                           *   FILE 825
//*                                           ServerHello           *   FILE 825
//*                                           Certificate*          *   FILE 825
//*                                           ServerKeyExchange*    *   FILE 825
//*                                           CertificateRequest*   *   FILE 825
//*                              <--------    ServerHelloDone       *   FILE 825
//*           ::::::::::                                            *   FILE 825
//*        ------------------------------------------------------   *   FILE 825
//*                                                                 *   FILE 825
//*        The SSLHAND program then formats the content supplied    *   FILE 825
//*        in Certificate and CertificateRequest and prints the     *   FILE 825
//*        output to SYSPRINT DD.  The public certificates found    *   FILE 825
//*        in the Certificate command will print to the SYSPRINT    *   FILE 825
//*        DD in Base64-encoded format for easy transportation.     *   FILE 825
//*        Finally, the SSLHAND program returns and let the         *   FILE 825
//*        TCPIP stack in z/OS to close the TCP/IP socket.          *   FILE 825
//*                                                                 *   FILE 825
//*     2. Program SSLHAND is developed and verified in z/OS        *   FILE 825
//*        v1.6 environment.  Standard z/OS TCPIP API socket        *   FILE 825
//*        call, DFHSMS macros (OPEN, CLOSE, XLATE) are used.       *   FILE 825
//*        Although the program uses AMODE 24 and RMODE 24,         *   FILE 825
//*        ESA/390 machine instructions are used.  This program     *   FILE 825
//*        does not require any external SSL library e.g. IBM       *   FILE 825
//*        z/OS System SSL (GSKSSL).  Only IPv4 is supported.       *   FILE 825
//*                                                                 *   FILE 825
//*     3. To execute the SSLHAND program, you can refer to the     *   FILE 825
//*        JSSLHAND member, amend the JOB and SYSTCPD DD card to    *   FILE 825
//*        suit your executing environment.  For SYSTCPD            *   FILE 825
//*        setting, you can refer to section 'Selecting a Stack     *   FILE 825
//*        When Running Multiple Instances of TCP/IP' in z/OS       *   FILE 825
//*        IBM Communications Server: IP Configuration Guide.       *   FILE 825
//*        The SSL server IP address and TCP port number are        *   FILE 825
//*        supplied as parameter to SSLHAND program in EXEC DD      *   FILE 825
//*        card in the following format:                            *   FILE 825
//*                                                                 *   FILE 825
//*                         PARM='IPv4addr(port_num)'               *   FILE 825
//*           For example,  PARM='123.45.67.89(1414)'               *   FILE 825
//*                                                                 *   FILE 825
//*     4. This program is free to use via JSSLHAND member.         *   FILE 825
//*        Feel free to send email message to                       *   FILE 825
//*        sslhand@gmail.com for any comments.                      *   FILE 825
//*                                                                 *   FILE 825
//*     5. Sample output SYSPRINT DD is attached.                   *   FILE 825
//*                                                                 *   FILE 825
//*     SSLHAND V0.1: 64.233.189.83(443)                            *   FILE 825
//*     Server Hello received                                       *   FILE 825
//*      Version: 3                                                 *   FILE 825
//*      Serial Number:                                             *   FILE 825
//*               1F19F6DE35DD63A142918AD52CC0AB12                  *   FILE 825
//*      Signature Algorithm: sha1RSA                               *   FILE 825
//*      Issuer:                                                    *   FILE 825
//*               C=ZA                                              *   FILE 825
//*               O=Thawte Consulting (Pty) Ltd.                    *   FILE 825
//*               CN=Thawte SGC CA                                  *   FILE 825
//*      Validity:                                                  *   FILE 825
//*               NOT BEFORE=091218000000Z                          *   FILE 825
//*                NOT AFTER=111218235959Z                          *   FILE 825
//*      Subject:                                                   *   FILE 825
//*               C=US                                              *   FILE 825
//*               ST=California                                     *   FILE 825
//*               L=Mountain View                                   *   FILE 825
//*               O=Google Inc                                      *   FILE 825
//*               CN=mail.google.com                                *   FILE 825
//*      Subject Public Key Algorithm: RSA                          *   FILE 825
//*                                                                 *   FILE 825
//*              ----  snip  ----                                   *   FILE 825
//*                                                                 *   FILE 825
//***FILE 826 is from Sam Golob and contains a FREE TSO command to  *   FILE 826
//*           alter the status of an address space, by making it    *   FILE 826
//*           Cancelable or Non-Cancelable, Non-Memtermable (can't  *   FILE 826
//*           be FORCEd), Memtermable, Swappable, Non-Swappable.    *   FILE 826
//*           (Also if FORCE needs a CANCEL).  Joe Reichman put     *   FILE 826
//*           in Swappable and Non-Swappable for any address space. *   FILE 826
//*           This command is one of the very rare FREE commands    *   FILE 826
//*           (APF-authorized) which can make any address space     *   FILE 826
//*           non-swappable or swappable.  Thanks, Joe!             *   FILE 826
//*                                                                 *   FILE 826
//*           The current version of CNCLPG is 1.2.10F .            *   FILE 826
//*           Some previous versions are also included here.        *   FILE 826
//*                                                                 *   FILE 826
//*           The current version can TRANSWAP any address space,   *   FILE 826
//*           (function TSWP) and can display the count of noswap   *   FILE 826
//*           requests (function COUNT--and others).  You have to   *   FILE 826
//*           be very careful to use TRANSWAP only when necessary.  *   FILE 826
//*                                                                 *   FILE 826
//*      ->   Additionally, there is now included a program called  *   FILE 826
//*      ->   WAITT which can alter the job step wait time of your  *   FILE 826
//*      ->   TSO session, or turn on the exemption bit to allow    *   FILE 826
//*      ->   disregard of the wait time altogether.  (Can turn     *   FILE 826
//*      ->   it off, too.)  See members WAITT*                     *   FILE 826
//*                                                                 *   FILE 826
//*      ->   Addition of WAITT to this file, gives you the         *   FILE 826
//*      ->   enhanced ability to control your session's            *   FILE 826
//*      ->   wait time limit, which CNCLPG doesn't currently do.   *   FILE 826
//*                                                                 *   FILE 826
//*  <<****>> Please read the #CNCLPG# member of this pds before    *   FILE 826
//*  <<****>> using the CNCLPG command.  It is an "easy read".      *   FILE 826
//*                                                                 *   FILE 826
//*  <<****>> Also please read member $DESCR, which is important,   *   FILE 826
//*  <<****>> if you want to use this command SAFELY....!!!         *   FILE 826
//*                                                                 *   FILE 826
//*           Non-Forcible here, is:  *NOT* "NON-FORCIBLE" in the   *   FILE 826
//*           absolute sense of "NON-MEMTERMABLE".  Rather, it is   *   FILE 826
//*           the bit in the CSCB which requires that you have to   *   FILE 826
//*           do a CANCEL before you do a FORCE.                    *   FILE 826
//*                                                                 *   FILE 826
//*           If you want to make an address space really           *   FILE 826
//*           "NON-MEMTERMABLE", then use action NMEM in CNCLPG.    *   FILE 826
//*           "MEMTERMABLE" (or really Forcible) is action MEMT.    *   FILE 826
//*                                                                 *   FILE 826
//*           To display how many "DONTSWAP" requests exist         *   FILE 826
//*           against an address space, use the function COUNT.     *   FILE 826
//*                                                                 *   FILE 826
//*           Sometimes there are multiple DONTSWAP actions         *   FILE 826
//*           against an address space.  To turn them all off,      *   FILE 826
//*           and make the address space SWAPPABLE, use FSWP        *   FILE 826
//*           (or Forced SWAP).  Otherwise run the SWAP action      *   FILE 826
//*           multiple times (FSWP eliminates that problem).        *   FILE 826
//*           But use FSWP very carefully, because there might      *   FILE 826
//*           be multiple reasons why the address space is          *   FILE 826
//*           currently nonswappable.  This is only an emergency    *   FILE 826
//*           tool.                                                 *   FILE 826
//*                                                                 *   FILE 826
//*           To use the CNCLPG TSO command, you first find the     *   FILE 826
//*           correct address space, and then you do an operation   *   FILE 826
//*           on it.  (See the use of the DISP action, described    *   FILE 826
//*           below.  THIS IS VERY IMPORTANT....!!!)                *   FILE 826
//*                                                                 *   FILE 826
//*     Syntax:     TSO Command:  APF-authorized.  (v. 1.2.10F)     *   FILE 826
//*                                                                 *   FILE 826
//*  CNCLPG |jobid [ASID(hhhh)] |CNCL|NCNC (cancelable,             *   FILE 826
//*         |                   |           non-cancelable)         *   FILE 826
//*         |ASID(hhhh)         |FORC    (force w/o cancel)         *   FILE 826
//*         |                   |NFRC    (force needs cancel first) *   FILE 826
//*         |                   |NSWP|SWAP (non-swap, swappable)    *   FILE 826
//*         |                   |TSWP (transwap)                    *   FILE 826
//*         |                   |FSWP (force swappable immediately) *   FILE 826
//*         |                   |BURN (memterm the address space)   *   FILE 826
//*         |                   |KILL (do memterm after turning     *   FILE 826
//*         |                   |      off non-memtermable bits)    *   FILE 826
//*         |                   |NMEM|MEMT  (turn on/off            *   FILE 826
//*         |                   |        non-memtermable bits)      *   FILE 826
//*         |                   |CSCB or DISP (display CSCB blks)   *   FILE 826
//*         |                   |COUNT  (display DONTSWAP count)    *   FILE 826
//*         |-  (displays the entire CSCB chain)                    *   FILE 826
//*         |?  (displays help)                                     *   FILE 826
//*                                                                 *   FILE 826
//*           !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!   *   FILE 826
//*                                                                 *   FILE 826
//*           The following also applies to higher releases of      *   FILE 826
//*           the CNCLPG program:  (current V1R210E)                *   FILE 826
//*                                                                 *   FILE 826
//*           V1R2M8 of the CNCLPG program also includes a BURN     *   FILE 826
//*           parameter to remove the address space if necessary.   *   FILE 826
//*           Also NMEM (make Non-MEMTERMABLE) and MEMT (make       *   FILE 826
//*           Memtermable) added in V1R2M8.                         *   FILE 826
//*                                                                 *   FILE 826
//*           As coded, you need PSCB ACCOUNT privilege to run      *   FILE 826
//*           the BURN, KILL, NMEM actions.  You need PSCB OPER     *   FILE 826
//*           privilege to run the program.  You may add code       *   FILE 826
//*           to secure this program better, to your needs.         *   FILE 826
//*                                                                 *   FILE 826
//*              THIS IS FOR EMERGENCY USE ONLY. IF THE BURN        *   FILE 826
//*              FACILITY IS NOT WANTED, INSTALL CNCLPG20.          *   FILE 826
//*                                                                 *   FILE 826
//*    NOTE:  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!   *   FILE 826
//*    -----                                                        *   FILE 826
//*    >>>>>  If you think BURN or KILL are too dangerous, then     *   FILE 826
//*    >>>>>  you can install CNCLPG20 instead, which is a          *   FILE 826
//*    >>>>>  previous version that cannot do BURN or KILL.         *   FILE 826
//*                                                                 *   FILE 826
//*           !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!   *   FILE 826
//*                                                                 *   FILE 826
//*           V1R2M8 of CNCLPG includes the KILL option, which      *   FILE 826
//*           you can think of as "BURN plus".  KILL turns off      *   FILE 826
//*           the no-MEMTERM bits in the ASID before issuing a      *   FILE 826
//*           CALLRTM MEMTERM.  Mitigating factor is that you       *   FILE 826
//*           need PSCB OPER authority to run this version of       *   FILE 826
//*           CNCLPG.  And to do BURN or KILL, you ALSO need        *   FILE 826
//*           PSCB ACCOUNT authority, as well as OPER authority.    *   FILE 826
//*                                                                 *   FILE 826
//*           If you install this command, you are welcome to add   *   FILE 826
//*           additional authorization checks to it, obviously.     *   FILE 826
//*                                                                 *   FILE 826
//*           !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!   *   FILE 826
//*                                                                 *   FILE 826
//*           You can TRANSWAP a swappable address space, using     *   FILE 826
//*           the TSWP function of CNCLPG.                          *   FILE 826
//*                                                                 *   FILE 826
//*           This command also contains fairly detailed messaging  *   FILE 826
//*           and displays, as well as in-context help:  CNCLPG ?   *   FILE 826
//*                                                                 *   FILE 826
//*           You can run and display the entire CSCB chain by      *   FILE 826
//*           typing a dash ( - ) instead of the jobname.           *   FILE 826
//*                                                                 *   FILE 826
//*           You can display ALL eligible CSCB entries that        *   FILE 826
//*           satisfy a jobname equal, or and ASID(hhhh) equal,     *   FILE 826
//*           by using the DISP or CSCB keyword parameter after     *   FILE 826
//*           specifying either jobname, ASID(hhhh), or both.       *   FILE 826
//*                                                                 *   FILE 826
//*           If you issue a command to CHANGE an address space:    *   FILE 826
//*           CNCL, NCNC, FORC, NFRC, NSWP or SWAP - then the       *   FILE 826
//*           FIRST CSCB entry encountered, is the one changed.     *   FILE 826
//*           ----- ---- ----- -----------         --- -------      *   FILE 826
//*                                                                 *   FILE 826
//*           Therefore it pays to issue a DISP or CSCB (display)   *   FILE 826
//*           command first, to find ALL eligible entries for the   *   FILE 826
//*           address space in the CSCB chain.  Then issue the      *   FILE 826
//*           "action" command to change the exact address space    *   FILE 826
//*           that you want to change, specifying BOTH jobname      *   FILE 826
//*           and ASID(hhhh).                                       *   FILE 826
//*                                                                 *   FILE 826
//*           Joe Reichman put in the SWAP and NSWP service for     *   FILE 826
//*           different target address spaces than the one that     *   FILE 826
//*           issued the CNCLPG command.  He did all the cross      *   FILE 826
//*           memory stuff (scheduling the SRB) that was needed     *   FILE 826
//*           to make a different address space non-swappable       *   FILE 826
//*           or swappable.                                         *   FILE 826
//*                                                                 *   FILE 826
//*           CNCLPG is an APF-authorized TSO command.  To learn    *   FILE 826
//*           more about "personal" APF-authorization of TSO        *   FILE 826
//*           commands, see CBT Files 185 and 797.                  *   FILE 826
//*                                                                 *   FILE 826
//*           See pds member $DESCR for more details on how this    *   FILE 826
//*           command works.  It is very important to read this     *   FILE 826
//*           member, and you really shouldn't use the CNCLPG       *   FILE 826
//*           command without doing so.                             *   FILE 826
//*                                                                 *   FILE 826
//*           For more details about the history and structure of   *   FILE 826
//*           the CNCLPG program, please read member #CNCNPG#.      *   FILE 826
//*                                                                 *   FILE 826
//*           This is a FREE command, with functionality that       *   FILE 826
//*           is usually obtainable only in expensive vendor        *   FILE 826
//*           packages.  And it's here for you to enjoy.            *   FILE 826
//*                                                                 *   FILE 826
//*       email:  sbgolob@cbttape.org                               *   FILE 826
//*                                                                 *   FILE 826
//***FILE 827 is from John C. Miller and contains dialogs to help   *   FILE 827
//*           administer RACF.                                      *   FILE 827
//*                                                                 *   FILE 827
//*           email: "John C. Miller" <john@jmit.com>               *   FILE 827
//*                                                                 *   FILE 827
//*     (The older version of this package has been moved here      *   FILE 827
//*     from File 609.  That version is in members RFLDOLD and      *   FILE 827
//*     $RFLDOLD.)                                                  *   FILE 827
//*                                                                 *   FILE 827
//*     RLP is an updated version of my RACF profile utility.       *   FILE 827
//*     I added some requested features, including:                 *   FILE 827
//*                                                                 *   FILE 827
//*     - A simple user options panel;                              *   FILE 827
//*     - The option of confirm/noconfirm for profile deletes;      *   FILE 827
//*     - The option to have the dialog display the RACF            *   FILE 827
//*       commands being issued "under the covers"  for each        *   FILE 827
//*       operation done. This is a good learning tool for those    *   FILE 827
//*       new to RACF;                                              *   FILE 827
//*     - For DATASET class, the ability to enter a fully           *   FILE 827
//*       qualified dataset name in the "Filter" field, in which    *   FILE 827
//*       case the list of profiles is narrowed down to the one     *   FILE 827
//*       profile that covers the dataset entered.  This is         *   FILE 827
//*       useful when one needs to grant permission to a            *   FILE 827
//*       dataset, but is unsure of which profile to tweak.         *   FILE 827
//*     - Fixed assorted bugs and cleaned things up a bit,          *   FILE 827
//*       improving support for some RACF classes.                  *   FILE 827
//*                                                                 *   FILE 827
//*     ----------- RLP - RACF Lisf Profiles V2.1 --------------    *   FILE 827
//*     Thus ISPF dialog can be used to supplement the IBM          *   FILE 827
//*     provided dialogs for RACF administration.  Let me know      *   FILE 827
//*     if you find this facility useful by dropping me an email    *   FILE 827
//*     at software@jmit.com.  Thanks - John Miller                 *   FILE 827
//*                                                                 *   FILE 827
//*     -------------------- Install ---------------------------    *   FILE 827
//*     Installation is simple:                                     *   FILE 827
//*                                                                 *   FILE 827
//*     1) FTP the XMIT format file from your PC to an MVS or       *   FILE 827
//*        z/OS system.  Be sure that the file you FTP into is      *   FILE 827
//*        RECFM=FB, LRECL=80.  The FTP must be done in binary      *   FILE 827
//*        mode.                                                    *   FILE 827
//*                                                                 *   FILE 827
//*     2) From an ISPF command prompt, enter: TSO RECEIVE          *   FILE 827
//*        INDA('xmitfile') The resulting file contains             *   FILE 827
//*        everything (almost) needed for RLP.  Rename this file    *   FILE 827
//*        to whatever meets your system standards.  SYS2.RLP       *   FILE 827
//*        might be a reasonable name.                              *   FILE 827
//*                                                                 *   FILE 827
//*     3) Edit the #RLP member, and enter the name of your         *   FILE 827
//*        dataset from step 2.  (e.g. SYS2.RLP).                   *   FILE 827
//*                                                                 *   FILE 827
//*     4) Copy the modified #RLP member to one of your system      *   FILE 827
//*        clist libraries, and name it something convenient,       *   FILE 827
//*        like 'RLP'.                                              *   FILE 827
//*                                                                 *   FILE 827
//*     Now you should be able to invoke the dialog from within     *   FILE 827
//*     ISPF by typing on any Command ===> TSO RLP                  *   FILE 827
//*                                                                 *   FILE 827
//*     ------------------- Change Log -------------------------    *   FILE 827
//*     Version 2.1                                                 *   FILE 827
//*     - This version mostly has some cleanup done in the execs    *   FILE 827
//*       and panels and some bugs fixed.  Other bugs no doubt      *   FILE 827
//*       remain.                                                   *   FILE 827
//*                                                                 *   FILE 827
//*     - Added an Options panel.  For now this panel lets you      *   FILE 827
//*       turn on/off confirmation of delete operations, and        *   FILE 827
//*       lets you turn on/off an option that lists the actual      *   FILE 827
//*       RACF command being done under the covers.  This           *   FILE 827
//*       feature was requested as an educational aid by a          *   FILE 827
//*       sysprog who was learning RACF.                            *   FILE 827
//*                                                                 *   FILE 827
//*     - See the comments in member RLP for more details on        *   FILE 827
//*       some of the things changed or fixed.                      *   FILE 827
//*                                                                 *   FILE 827
//***FILE 828 contains an updated version of the DELAY program      *   FILE 828
//*           that was originally submitted to the MVS 3.8          *   FILE 828
//*           Turnkey #3 system and which is found on File 547      *   FILE 828
//*           (buried in the ASM member there).                     *   FILE 828
//*                                                                 *   FILE 828
//*           This version of the DELAY program can be run in       *   FILE 828
//*           several ways: in batch, TSO, or REXX, and it can      *   FILE 828
//*           be called as a REXX function.  This version of        *   FILE 828
//*           DELAY can wait in hundredths of a second also.        *   FILE 828
//*                                                                 *   FILE 828
//*           See comments in the program for further detail.       *   FILE 828
//*                                                                 *   FILE 828
//*           email:  somitcw@yahoo.com                             *   FILE 828
//*                                                                 *   FILE 828
//***FILE 829 is from Eugene Vogt and contains a program to fix     *   FILE 829
//*           the comments in Assembler source code, to make it     *   FILE 829
//*           pretty.  The program is called TIDYASM and it was     *   FILE 829
//*           adapted from a program of the same name, that was     *   FILE 829
//*           on CBT File 316, submitted by Jim Marshall.           *   FILE 829
//*                                                                 *   FILE 829
//*           Necessary assembly macros are included in this        *   FILE 829
//*           file.  Be sure to linkedit with NORENT and NOREUS.    *   FILE 829
//*                                                                 *   FILE 829
//*           Please read the notes in member $$README.             *   FILE 829
//*                                                                 *   FILE 829
//*           email:  racfra2@bluewin.ch                            *   FILE 829
//*                                                                 *   FILE 829
//***FILE 830 is from Eugene Vogt and contains Xephon MVS Update    *   FILE 830
//*           articles from July 1987 thru December 1996.  These    *   FILE 830
//*           articles are in EBCDIC format, the zip file having    *   FILE 830
//*           been expanded and converted into EBCDIC.  Now they    *   FILE 830
//*           are searchable and usable directly.                   *   FILE 830
//*                                                                 *   FILE 830
//*           A few of the members were refreshed from the          *   FILE 830
//*           "Wayback Machine"-s Dec 1996 archive of the           *   FILE 830
//*           www.xephon.com web site.  www.archive.org             *   FILE 830
//*                                                                 *   FILE 830
//*           An oddity about the member names forces us to make    *   FILE 830
//*           3 indexes.  One is sorted by name, one is sorted      *   FILE 830
//*           by title, and one is sorted by article date.  This    *   FILE 830
//*           helps us to search for the article we want.           *   FILE 830
//*                                                                 *   FILE 830
//*           These Xephon articles are now supported at            *   FILE 830
//*           www.cbttape.org so that you can use them in good      *   FILE 830
//*           conscience if you need the code for something.        *   FILE 830
//*           Bob Thomas has given us permission to use and         *   FILE 830
//*           support this body of code.                            *   FILE 830
//*                                                                 *   FILE 830
//*           These articles are for "MVS Update" only.  Other      *   FILE 830
//*           Xephon "Update" magazines are not covered in this     *   FILE 830
//*           file.                                                 *   FILE 830
//*                                                                 *   FILE 830
//*     >>>   Members marked FIXDNOT in the ISPF userid were        *   FILE 830
//*           fixed for ^ ("not" sign).  (X'B0' to X'5F')           *   FILE 830
//*                                                                 *   FILE 830
//*     >>>   Members marked FIXED in the ISPF userid were tested   *   FILE 830
//*           and run under z/OS.                                   *   FILE 830
//*                                                                 *   FILE 830
//*     >>>   Other members were edited to remove printing marks    *   FILE 830
//*           X'0D' and were reformatted somewhat, to make them     *   FILE 830
//*           more usable directly.                                 *   FILE 830
//*                                                                 *   FILE 830
//*     >>>   Some members contained X'8B' instead of C'0' or       *   FILE 830
//*           X'F0'.  These were all fixed.                         *   FILE 830
//*                                                                 *   FILE 830
//*       email:  Eugene Vogt <racfra2@bluewin.ch>                  *   FILE 830
//*                                                                 *   FILE 830
//*       email:  sbgolob@cbttape.org                               *   FILE 830
//*                                                                 *   FILE 830
//***FILE 831 was sent in by Jacques Devaux and contains a dynamic  *   FILE 831
//*           concatenation program which works for SWA above the   *   FILE 831
//*           line.  The program was fixed and commented in French  *   FILE 831
//*           (possibly by Serge Jolicoeur), and the comments and   *   FILE 831
//*           messages were translated into English by Sam Golob,   *   FILE 831
//*           with the help of Jacques.  Anyway, it works.          *   FILE 831
//*                                                                 *   FILE 831
//*           A HELP member CONCATP# was added by John Kalinich.    *   FILE 831
//*                                                                 *   FILE 831
//*           email:  jdevaux@ca.ibm.com                            *   FILE 831
//*                                                                 *   FILE 831
//*           email:  sbgolob@cbttape.org                           *   FILE 831
//*                                                                 *   FILE 831
//*           Program was fixed if dataset prefixes are             *   FILE 831
//*           8 characters, which can happen at z/OS 2.3            *   FILE 831
//*           and above.  A description of the fix is in            *   FILE 831
//*           member $$8CHRID.                                      *   FILE 831
//*                                                                 *   FILE 831
//***FILE 832 is from Marco Serafini and contains REXX execs and    *   FILE 832
//*           panels to print MVS files directly on TCPIP printers. *   FILE 832
//*                                                                 *   FILE 832
//*           email:  MARCO.SERAFINI@t-systems.it                   *   FILE 832
//*                                                                 *   FILE 832
//*           See member DOCPRLAN which is documentation in         *   FILE 832
//*           Microsoft WORD format.                                *   FILE 832
//*                                                                 *   FILE 832
//***FILE 833 is from Alexander I. Vasilenko and contains a         *   FILE 833
//*           facility to save labels when you look at COBOL        *   FILE 833
//*           programs under ISPF.  If you analyze COBOL programs   *   FILE 833
//*           a lot, this is a very handy facility.                 *   FILE 833
//*                                                                 *   FILE 833
//*           email: Alexander.I.Vasilenko@boeing.com               *   FILE 833
//*                  Ali_vas@mail.ru                                *   FILE 833
//*                                                                 *   FILE 833
//*           See the screen shot (member SCRSHOT1) by downloading  *   FILE 833
//*           the .png image to a PC in BINARY.                     *   FILE 833
//*                                                                 *   FILE 833
//***FILE 834 is from Alexander I. Vasilenko and contains an edit   *   FILE 834
//*           macro which helps you allocate datasets from one      *   FILE 834
//*           system to another system, and it preserves all the    *   FILE 834
//*           allocation attributes.  You supply a list of datasets *   FILE 834
//*           to the macro and edit them on the sending system.     *   FILE 834
//*           The macro then runs LISTDSI and fills in all the      *   FILE 834
//*           dataset attributes on the right side of the file.     *   FILE 834
//*           (The file has to be at least LRECL=131.)  On the      *   FILE 834
//*           sending system, you invoke the macro as:              *   FILE 834
//*                                                                 *   FILE 834
//*                MIGRATE REQ       (This puts attributes into     *   FILE 834
//*                                   the file list of datasets.)   *   FILE 834
//*                                                                 *   FILE 834
//*           On the receiving system, you edit the same (modified) *   FILE 834
//*           file that was produced by the MIGRATE REQ command     *   FILE 834
//*           on the sending system.  This time, you invoke:        *   FILE 834
//*                                                                 *   FILE 834
//*                MIGRATE ALLOC                                    *   FILE 834
//*                                                                 *   FILE 834
//*           and the macro will allocate all the datasets, with    *   FILE 834
//*           their proper attributes, on the receiving system.     *   FILE 834
//*                                                                 *   FILE 834
//*           Sample "before" and "after" dataset lists are         *   FILE 834
//*           provided in XMIT format as member SAMPLES.  After     *   FILE 834
//*                TSO RECEIVE INDS(this.pds(SAMPLES))              *   FILE 834
//*           you will get a pds with LRECL=133 that shows the      *   FILE 834
//*           "before REQ" and "after REQ" dataset lists.           *   FILE 834
//*                                                                 *   FILE 834
//*           email: Alexander.I.Vasilenko@boeing.com               *   FILE 834
//*                  Ali_vas@mail.ru                                *   FILE 834
//*                                                                 *   FILE 834
//*           --------------------------------------------------    *   FILE 834
//*                                                                 *   FILE 834
//*    >>>    This file now contains some other edit macros from    *   FILE 834
//*    >>>    Alexander Vasilenko.  Alex has made a new shipment    *   FILE 834
//*    >>>    of his MIGRATE macro, but I have preserved the old    *   FILE 834
//*    >>>    version of this file in IEBUPDTE SYSIN format (or     *   FILE 834
//*    >>>    actually PDSLOAD format) as member OLD834, just in    *   FILE 834
//*    >>>    case somebody would like to refer to Alex's older     *   FILE 834
//*    >>>    work.                                                 *   FILE 834
//*                                                                 *   FILE 834
//*    This PDS now contains some more REXX procedures.             *   FILE 834
//*                                                                 *   FILE 834
//*    Needed for MIGRATE:                                          *   FILE 834
//*                                                                 *   FILE 834
//*    1. DELDUP   - macro to delete duplicate lines.               *   FILE 834
//*    2. EXTRDISP - macro to extract DSN and DISP from             *   FILE 834
//*                  SRCHFOR file.                                  *   FILE 834
//*    3. GDGALLOC - requests and defines GDG.                      *   FILE 834
//*    4. MIGRATE  - requests and allocated PDS/PDSE and PS.        *   FILE 834
//*    5. QDS      - determines DS type.                            *   FILE 834
//*    6. LIST#UG  - desribes how to prepare DSN list from          *   FILE 834
//*                  JCL.                                           *   FILE 834
//*    7. MIRG#UG  - describes how to use migrate macros.           *   FILE 834
//*                                                                 *   FILE 834
//*    Some other macros and commands.                              *   FILE 834
//*                                                                 *   FILE 834
//*       COMMENT  - this EDIT macro allows comment and             *   FILE 834
//*                  uncomment.                                     *   FILE 834
//*       MARK     - convenient EDIT macro to mark edited           *   FILE 834
//*                  lines with certain label in 73-80              *   FILE 834
//*                  positions.                                     *   FILE 834
//*       MARKC    - similar as MARK but performs marking           *   FILE 834
//*                  base on COMPARE result.                        *   FILE 834
//*       SETREPL  - CLIST procedure to change ZMCREP ISPF          *   FILE 834
//*                  variable, responsible to replacement of        *   FILE 834
//*                  member in COPY/MOVE operation. You may         *   FILE 834
//*                  perform it from ISRUDSM panel.                 *   FILE 834
//*       VIEWPOOL - simple REXX to view variable pools.            *   FILE 834
//*       WHATCHA  - EDIT macro to see which lines were             *   FILE 834
//*                  changed and how.                               *   FILE 834
//*                                                                 *   FILE 834
//***FILE 835 is from Peter Giles and contains a corrected version  *   FILE 835
//*           of the PPT scan program package that was published    *   FILE 835
//*           in the Xephon MVS Update issue of November 1994.      *   FILE 835
//*           This package displays its output in an ISPF pop-up    *   FILE 835
//*           window, using the REXX exec called PPTSCANR.          *   FILE 835
//*                                                                 *   FILE 835
//*           This program was originally written and submitted     *   FILE 835
//*           to Xephon by R.F. Perretta.  Xephon materials (most   *   FILE 835
//*           of them) are now supported at www.cbttape.org.  The   *   FILE 835
//*           original program was on CBT Tape File 830, member     *   FILE 835
//*           A1E1B892.  Look there.  There are 926 articles        *   FILE 835
//*           there, in CBT File 830, which contain a lot of good   *   FILE 835
//*           stuff.  You can now use these Xephon materials in     *   FILE 835
//*           good conscience.                                      *   FILE 835
//*                                                                 *   FILE 835
//*           Program PPTSCAN has to be run APF authorized and be   *   FILE 835
//*           in the AUTHCMD (IKJEFTE2) table.  See CBT File 185    *   FILE 835
//*           for help.  Parmlib member IKJEFTxx is the affected    *   FILE 835
//*           PARMLIB member (entry AUTHCMD (NAMES(...)).           *   FILE 835
//*                                                                 *   FILE 835
//*     >>>>  Added members:  PPTD, PPTD$, TSOV, TSOE, TSOB,        *   FILE 835
//*                 and TSOR, described as follows:                 *   FILE 835
//*                                                                 *   FILE 835
//*           Sam Golob has written another program, PPTD, to       *   FILE 835
//*           display the PPT entries.  This one is a vanilla TSO   *   FILE 835
//*           command, APF authorized, which does not use ISPF,     *   FILE 835
//*           but which uses the TSO PUTLINE interface, enabling    *   FILE 835
//*           the output to be trapped and displayed                *   FILE 835
//*           (full-screen) using Mark Zelden's TSOV, TSOB, TSOE    *   FILE 835
//*           and TSOR execs, which are included here.  These       *   FILE 835
//*           execs trap the command output, and (respectively)     *   FILE 835
//*           ISPF VIEW, EDIT, BROWSE it.  TSOR calls Greg          *   FILE 835
//*           Price's REVIEW command that doesn't need ISPF (CBT    *   FILE 835
//*           Files 134, 135) and displays ALL the output,          *   FILE 835
//*           full-screen and scrollable, from TSO READY mode.      *   FILE 835
//*                                                                 *   FILE 835
//*           email:  peter.giles@deewr.gov.au                      *   FILE 835
//*                                                                 *   FILE 835
//*           email:  sbgolob@cbttape.org                           *   FILE 835
//*                                                                 *   FILE 835
//***FILE 836 is from Sam Golob and contains programs from CBT      *   FILE 836
//*           File 830 (Xephon MVS Update issues from July 1987     *   FILE 836
//*           thru December 1996) that have been fixed to run on    *   FILE 836
//*           z/OS (currently at 2.3).  Original versions of the    *   FILE 836
//*           programs have been modified so they work at whatever  *   FILE 836
//*           z/OS level is the highest available.                  *   FILE 836
//*                                                                 *   FILE 836
//*           Since the support rights for these Xephon materials   *   FILE 836
//*           were given to www.cbttape.org by Bob Thomas in 2008,  *   FILE 836
//*           we are now taking advantage, by trying to get some    *   FILE 836
//*           of these programs to run in a current environment.    *   FILE 836
//*                                                                 *   FILE 836
//*           We try to give credit to the original author, if      *   FILE 836
//*           that person's name is available in the original file. *   FILE 836
//*                                                                 *   FILE 836
//*           email:  sbgolob@cbttape.org                           *   FILE 836
//*                                                                 *   FILE 836
//*       Description of programs or articles.                      *   FILE 836
//*       In parentheses is the original member name in File 830.   *   FILE 836
//*                                                                 *   FILE 836
//*       ZTDM      - Rexx exec to restore the "Bottom of Data"     *   FILE 836
//*       (S.Golob)   line to your member lists.  This is changed   *   FILE 836
//*                   by some of the ISPF applications here.  But   *   FILE 836
//*                   you can use this little exec to put it back.  *   FILE 836
//*                   Or you can append it to the end of any exec   *   FILE 836
//*                   which alters the "bottom line" marker, and    *   FILE 836
//*                   set it back right.                            *   FILE 836
//*                                                                 *   FILE 836
//*       ASVTSCAN  - Program written by David Welch to summarize   *   FILE 836
//*       (AC7AF2B8)  the information about Address Space totals    *   FILE 836
//*                   that is found in the ASVT.                    *   FILE 836
//*       ASVTSCAT  - TSO command with the same output.             *   FILE 836
//*                                                                 *   FILE 836
//*       CHKASVT   - A companion program to ASVTSCAN, which        *   FILE 836
//*                   enumerates which address space numbers are    *   FILE 836
//*                   not reusable.  From CBT Tape File 473.        *   FILE 836
//*                   (from Scott Finlayson, thru Ron Robinson)     *   FILE 836
//*                                                                 *   FILE 836
//*       CLS       - Clear the screen and preserve terminal        *   FILE 836
//*       (A315B7EF)  type.                                         *   FILE 836
//*                                                                 *   FILE 836
//*       DFRMM     - An introduction to RMM, what it does, and     *   FILE 836
//*       (BEAEA3B9)  how it is set up.  This is not code, but      *   FILE 836
//*                   a how-to narrative from Rem Perretta.         *   FILE 836
//*                                                                 *   FILE 836
//*       EDTDSPLY  - Package to display devices under Esoteric     *   FILE 836
//*       (Q9802A5F)  Unit Names in ISPF.  (from Rem Perretta)      *   FILE 836
//*                   Members:  EDTINF (Assembler program)          *   FILE 836
//*                             EDTDSPLY (Rexx exec)                *   FILE 836
//*                             EDTPAN01, EDTPAN02  (ISPF Panels)   *   FILE 836
//*                                                                 *   FILE 836
//*       ESVCSCAN  - Package from Rem Perretta to display          *   FILE 836
//*       (YE55C023)  extended SVC tables under ISPF.               *   FILE 836
//*                                                                 *   FILE 836
//*       FINDSYSI  - Article by Roger Bowler about how to find     *   FILE 836
//*       (C8B469E7)  Job-related info in MVS control blocks.       *   FILE 836
//*                   (From Roger Bowler)                           *   FILE 836
//*                                                                 *   FILE 836
//*       GETDSN    - Look in TIOT to see if a dsname is allocated  *   FILE 836
//*       (A08A5369)  to a ddname.  Uses QSAM and is callable.      *   FILE 836
//*                   (Enhanced and IVP supplied by Willy Jensen.)  *   FILE 836
//*                   (Original article anonymous)                  *   FILE 836
//*                   GETDSNM - macro library in IEBUPDTE format    *   FILE 836
//*                                                                 *   FILE 836
//*       GETDEVNM  - Get Device Number....                         *   FILE 836
//*       (S254E5EF)  Rexx exec with backup assembler program       *   FILE 836
//*                   and panels.  You give it a disk volser, and   *   FILE 836
//*                   it returns the device unit address and other  *   FILE 836
//*                   nice information about the pack.              *   FILE 836
//*                   (From Rem Perretta)                           *   FILE 836
//*                   Members:  GETDEVNM (Rexx exec)                *   FILE 836
//*                             GETUADDR (Assembler program)        *   FILE 836
//*                             GETDEVP1 thru GETDEVP4 (panels)     *   FILE 836
//*                                                                 *   FILE 836
//*       LLASTATS  - From Mike Pekic via Bill Smith & Lionel Dyck  *   FILE 836
//*                   Xephon MVS Update 186 - March 2002            *   FILE 836
//*                   Produces LLA statistics via a REXX which      *   FILE 836
//*                   scrapes the output of the undocumented        *   FILE 836
//*                   operator command:  D LLA,STATISTICS           *   FILE 836
//*                   Produces beautiful ISPF formatted output.     *   FILE 836
//*                                                                 *   FILE 836
//*       MORESYSI  - Article with more information about how to    *   FILE 836
//*       (FEDEBB0D)  find information in MVS control blocks.       *   FILE 836
//*                   (From Lynn Grant)                             *   FILE 836
//*                                                                 *   FILE 836
//*       PRSMINFO  - Package to display LPAR, processor, and       *   FILE 836
//*       (D2F6A419)  IODF information.  From R.F.Perretta.         *   FILE 836
//*                   Packaged and fixed to run on z/OS 2.3.        *   FILE 836
//*                   (member is in TSO XMIT format)                *   FILE 836
//*                                                                 *   FILE 836
//*       RACFAUTH  - A program to give SPECIAL and/or OPERATIONS   *   FILE 836
//*                   authority to a userid.                        *   FILE 836
//*                                                                 *   FILE 836
//*       RACROUTE  - An assembler program to show how much RACF    *   FILE 836
//*       (David      authority that this userid has, to a dataset. *   FILE 836
//*         Spiegel)  Accompanied by a REXX exec to use the program *   FILE 836
//*                   to do a display.                              *   FILE 836
//*                                                                 *   FILE 836
//*       RGENR     - REXX to decompile RACF profiles and convert   *   FILE 836
//*       (A6B797AC)  them to "source" TSO RACF commands.           *   FILE 836
//*                                                                 *   FILE 836
//*       SEND@     - TSO command to send a non-deletable message   *   FILE 836
//*       (BC5C26EB)  to the operator console. (from Walter         *   FILE 836
//*                   Wiedemann)                                    *   FILE 836
//*                                                                 *   FILE 836
//*       SHOWALOC  - TSO CLIST to display TSO dataset allocations  *   FILE 836
//*       (F64BA4D1)  for a DDname.  (from Andrew Cahillane)        *   FILE 836
//*                                                                 *   FILE 836
//*       SMPEMOVE  - Instructions to move SMP/E zone entries from  *   FILE 836
//*       (A162FCC4)  one VSAM file (zone) to another, and to       *   FILE 836
//*                   combine two zones into one.                   *   FILE 836
//*                   (From John Bradley)                           *   FILE 836
//*                                                                 *   FILE 836
//*       STRPATRN  - An assembler macro to test a string against   *   FILE 836
//*                   a pattern.  (from Willy Jensen)               *   FILE 836
//*                                                                 *   FILE 836
//*       SUBCOMS   - REXX function to list all the names of        *   FILE 836
//*       (ABA7F5DD)  environments available to REXX.               *   FILE 836
//*                   (from Willy Jensen - Xephon contributor       *   FILE 836
//*                    was anonymous)                               *   FILE 836
//*                                                                 *   FILE 836
//*       SUBSYSxx  - REXX and PANELS to display subsystem          *   FILE 836
//*       (WAB4EB8B)  information under ISPF. (from R.F.Perretta)   *   FILE 836
//*                                                                 *   FILE 836
//*       SVCR****  - SVC Update Recording Table display (from      *   FILE 836
//*       (XABB8414)  R.F.Perretta). Displays all SVCs that have    *   FILE 836
//*                   been updated.                                 *   FILE 836
//*                                                                 *   FILE 836
//*       SWRID     - A more advanced version of USEID.  Assembles  *   FILE 836
//*                   differently for z/OS 2.2 and lower, and for   *   FILE 836
//*                   z/OS 2.3 and higher, with the 8-character     *   FILE 836
//*                   TSO userid support.  Also includes a lot of   *   FILE 836
//*                   WTO's to tell everybody what you did.         *   FILE 836
//*                                                                 *   FILE 836
//*       USEID     - (Xephon issue 33 August 2003)                 *   FILE 836
//*                   TSO command to change your userid in two      *   FILE 836
//*                   places, the ASXB and the ACEE (importantly)   *   FILE 836
//*                   so that you can run jobs with someone else's  *   FILE 836
//*                   authority.  You have to know the other id's   *   FILE 836
//*                   password, however, to effect the change.      *   FILE 836
//*                   (Fixed for 8-character TSO userid support.)   *   FILE 836
//*                                                                 *   FILE 836
//*       USEID22   - Pre-z/OS 2.3 version of USEID.                *   FILE 836
//*                   (No 8-character TSO userid support.)          *   FILE 836
//*                                                                 *   FILE 836
//*       WHEREIS   - Program to determine where a module was       *   FILE 836
//*       (AC7C7897)  loaded from.  This program does the job       *   FILE 836
//*                   particularly well. (Fixed by Willy Jensen.)   *   FILE 836
//*                   (Original contributor - Paul Poolsaar)        *   FILE 836
//*                                                                 *   FILE 836
//*       WTOPROG   - A multi-function WTO program.  Can be ysed    *   FILE 836
//*       (BB2BDE14)  to force a job to wait, if other jobs are     *   FILE 836
//*                   (or are not) present.  Or it may be used to   *   FILE 836
//*                   stop a job until the operator answers "Y"     *   FILE 836
//*                   to a WTOR message of your choice.             *   FILE 836
//*                   (from R.F.Perretta)  (Works fine on z/OS 2.3) *   FILE 836
//*                                                                 *   FILE 836
//***FILE 837 is from Bruce Bordonaro and contains 2 exits which    *   FILE 837
//*           are necessary to implement, when you want to inform   *   FILE 837
//*           TSO users that there is a file waiting for them to    *   FILE 837
//*           RECEIVE under TSO/E.  The exits are:                  *   FILE 837
//*                                                                 *   FILE 837
//*       HASX13    - JES2 exit 13 to issue a $HASP549 message      *   FILE 837
//*                   that a dataset is waiting to be RECEIVEd      *   FILE 837
//*                   from another node.                            *   FILE 837
//*                                                                 *   FILE 837
//*       INMXZ02   - XMIT exit 2, to receive control when a        *   FILE 837
//*                   dataset is waiting to be RECEIVEd from a      *   FILE 837
//*                   local node.  In this case, JES2 exit 13       *   FILE 837
//*                   does not receive control.                     *   FILE 837
//*                                                                 *   FILE 837
//*           email:  sbgolob@cbttape.org                           *   FILE 837
//*                                                                 *   FILE 837
//***FILE 838 is an original post by Leslie J. Somos in the C370-L  *   FILE 838
//*           list from March 11, 1994.  This post contains his     *   FILE 838
//*           CECDYN macro and supporting materials to dynamically  *   FILE 838
//*           allocate a file and self-generate the parameters.     *   FILE 838
//*           See member CECDYNRW in this pds for the original      *   FILE 838
//*           post that he made on C370-L.                          *   FILE 838
//*                                                                 *   FILE 838
//*           Unfortunately, Leslie Somos has passed away.  This    *   FILE 838
//*           file will remain as a tribute to him and to his work. *   FILE 838
//*           We will try and add any additional materials we find  *   FILE 838
//*           from him, to this file as well.                       *   FILE 838
//*                                                                 *   FILE 838
//*           An updated version of CECDYN was supplied by Eugene   *   FILE 838
//*           Vogt, which accounts for more newly supported text    *   FILE 838
//*           units.  The original version is renamed:  CECDYNO.    *   FILE 838
//*           Except as marked, all other members were supplied     *   FILE 838
//*           from Leslie Somos' original version.                  *   FILE 838
//*                                                                 *   FILE 838
//*       Subject:        Re: Program to dynamically alloc a file   *   FILE 838
//*       From:   "Leslie J. Somos" <[log in to unmask]>            *   FILE 838
//*       Reply-To:       Leslie J. Somos                           *   FILE 838
//*       Date:   Fri, 11 Mar 1994 22:58:14 GMT                     *   FILE 838
//*       Content-Type:   text/plain                                *   FILE 838
//*                                                                 *   FILE 838
//*           Please address questions to either Sam Golob or       *   FILE 838
//*           Eugene Vogt.                                          *   FILE 838
//*                                                                 *   FILE 838
//*       email:  sbgolob@cbttape.org                               *   FILE 838
//*                                                                 *   FILE 838
//*               Eugene Vogt <racfra2@bluewin.ch>                  *   FILE 838
//*                                                                 *   FILE 838
//***FILE 839 is from Clement Clarke and contains programs to       *   FILE 839
//*           allow for long PARM fields and symbolic parameter     *   FILE 839
//*           substitution in card image format control cards.      *   FILE 839
//*                                                                 *   FILE 839
//*       Description:                                              *   FILE 839
//*                                                                 *   FILE 839
//*          Long Parameters and Symbolic Parameter                 *   FILE 839
//*          replacement in card image control cards.               *   FILE 839
//*                                                                 *   FILE 839
//*       The following programs are now available that will        *   FILE 839
//*       allow the above to happen, using conventional JCL or      *   FILE 839
//*       TSO.                                                      *   FILE 839
//*                                                                 *   FILE 839
//*       1. EXECLONG will execute a program with up to 3,000       *   FILE 839
//*          bytes as a parameter.                                  *   FILE 839
//*                                                                 *   FILE 839
//*       2. PARMCNTL creates either Fixed or Variable blocked      *   FILE 839
//*          control file from a Parameter, or other control        *   FILE 839
//*          file.                                                  *   FILE 839
//*                                                                 *   FILE 839
//*       3. SAVEPARM saves parameters into a VB file which is      *   FILE 839
//*          used by EXECLONG and/or PARMCNTL above.                *   FILE 839
//*                                                                 *   FILE 839
//*       Further Description:                                      *   FILE 839
//*                                                                 *   FILE 839
//*       1. EXECLONG executes the program specified with the       *   FILE 839
//*          PARM='PGM=program-name'.  It first reads a VB file     *   FILE 839
//*          allocated with a DDNAME of $$PARM, and creates a       *   FILE 839
//*          standard parameter of up to 3,000 bytes.               *   FILE 839
//*                                                                 *   FILE 839
//*          Standard APF facilities are used, so Authorised or     *   FILE 839
//*          Non-Authorised programs may be used.                   *   FILE 839
//*                                                                 *   FILE 839
//*       2. PARMCNTL creates either FB or VB control files from    *   FILE 839
//*          either the VB $$PARM file.                             *   FILE 839
//*                                                                 *   FILE 839
//*          PARMCNTL creates a file using the $$CNTL file.  It     *   FILE 839
//*          either takes it's input from the parameter field,      *   FILE 839
//*          or, if that is null, it reads from the $$PARM file.    *   FILE 839
//*                                                                 *   FILE 839
//*          New control cards are created on finding a LF (X'25')  *   FILE 839
//*          character, or <p>.                                     *   FILE 839
//*                                                                 *   FILE 839
//*          After forming up the parameter fields or the records   *   FILE 839
//*          from the $$PARM DD File, the following parameters      *   FILE 839
//*          are allowed:                                           *   FILE 839
//*                                                                 *   FILE 839
//*             PGM=program-name  - Program to be executed.         *   FILE 839
//*             DDN=ddname        - Instead of the $$CNTL,          *   FILE 839
//*                                 use ddsname instead.            *   FILE 839
//*             PARM='parameter'  - Use this parameter.             *   FILE 839
//*                                 Quotes are not allowed.         *   FILE 839
//*                                                                 *   FILE 839
//*       3. SAVEPARM appends it's parameter to the VB $$PARM       *   FILE 839
//*          file.  Symbolic parameters may be used in the PGM      *   FILE 839
//*          PARM field, and hence can be used by the PARMCNTL      *   FILE 839
//*          program to create control files with symbolic          *   FILE 839
//*          parameters replaced.                                   *   FILE 839
//*                                                                 *   FILE 839
//*       This program is provided free of charge, under the        *   FILE 839
//*       Apache Licence, for Hercules and "Hobbyist"               *   FILE 839
//*       licences.                                                 *   FILE 839
//*                                                                 *   FILE 839
//*       However, you are definitely invited to contribute         *   FILE 839
//*       money if you find this software useful. This will         *   FILE 839
//*       assist with the development of new software and           *   FILE 839
//*       similar.                                                  *   FILE 839
//*                                                                 *   FILE 839
//*       There is no warranty - source code is provided so         *   FILE 839
//*       that the program may be maintained.                       *   FILE 839
//*                                                                 *   FILE 839
//*       Note: You may not convert this program into a paid        *   FILE 839
//*             product, and all source code changes must be        *   FILE 839
//*             made available for everyone.                        *   FILE 839
//*                                                                 *   FILE 839
//*       Clement Clarke                                            *   FILE 839
//*                                                                 *   FILE 839
//*       My email is clemclarke@gmail.com                          *   FILE 839
//*                or clementclarke@ozemail.com.au                  *   FILE 839
//*       Tel Australia  Mobile  +61 401 056 155                    *   FILE 839
//*                                                                 *   FILE 839
//***FILE 840 is from Mark Jacobs and contains an ICSF KGUP         *   FILE 840
//*           protection exit which inhibits the changing of ICSF   *   FILE 840
//*           decryption keys, based on RACF permissions.           *   FILE 840
//*           See member called $NOTES.                             *   FILE 840
//*                                                                 *   FILE 840
//*           email:  mark.jacobs@custserv.com                      *   FILE 840
//*                                                                 *   FILE 840
//***FILE 841 contains a way to remove CA-Optimizer from your       *   FILE 841
//*           system, and still be able to run Optimized COBOL      *   FILE 841
//*           programs without recompile.                           *   FILE 841
//*                                                                 *   FILE 841
//***FILE 842 is from Roger Mihay and contains a way to put a       *   FILE 842
//*           large number of pds'es or sequential files into TSO   *   FILE 842
//*           XMIT format and download them to a PC for viewing     *   FILE 842
//*           with XMIT manager or some similar tool on the PC.     *   FILE 842
//*                                                                 *   FILE 842
//*           The bulk processing of the pds'es or sequential       *   FILE 842
//*           files is done via giving them a similar dataset       *   FILE 842
//*           prefix.  Or if the datasets already had the same      *   FILE 842
//*           prefix, you can unload them together.                 *   FILE 842
//*                                                                 *   FILE 842
//*     Update:  03/20/2011                                         *   FILE 842
//*                                                                 *   FILE 842
//*     Attached is an updated version of file 842.  I have         *   FILE 842
//*     added the capacity to edit (in ISPF) the selection list     *   FILE 842
//*     to remove any datasets that one may not want to be          *   FILE 842
//*     processed.                                                  *   FILE 842
//*                                                                 *   FILE 842
//*           email:  rogermihay@comcast.net                        *   FILE 842
//*                   rmihay@gmail.com                              *   FILE 842
//*                                                                 *   FILE 842
//***FILE 843 is from Mike Wickman and contains a REXX exec         *   FILE 843
//*           application to do HSM recovery of datasets from       *   FILE 843
//*           ISPF 3.4 or ISPF 6.                                   *   FILE 843
//*                                                                 *   FILE 843
//*           email:  mwickman@waddell.com                          *   FILE 843
//*                                                                 *   FILE 843
//*              Contains one rexx program   "UREC"                 *   FILE 843
//*              Contains one panel          "URECP"                *   FILE 843
//*              Contains one message member "UREC00"               *   FILE 843
//*                                                                 *   FILE 843
//*     PURPOSE: Provides panel process to do HSM recover           *   FILE 843
//*              processing allowing users to start from ISPF       *   FILE 843
//*              option 6 or from a file list in option 3.4.        *   FILE 843
//*                                                                 *   FILE 843
//*              Original source came from XEPHON JOURNAL,          *   FILE 843
//*              JULY 2002 Edition.  It has been converted          *   FILE 843
//*              from CLIST to REXX.  The panel and REXX            *   FILE 843
//*              routine is set up for a maximum of 14 backup       *   FILE 843
//*              versions for your selection.                       *   FILE 843
//*                                                                 *   FILE 843
//*     INSTALL: Install REXX program UREC into SYSEXEC             *   FILE 843
//*              concatenation, panel member URECP in ISPPLIB       *   FILE 843
//*              concatenation, and message panel member            *   FILE 843
//*              UREC00 in ISPMLIB concatenation.                   *   FILE 843
//*                                                                 *   FILE 843
//***FILE 844 is from Kevin Ferguson, and contains his program      *   FILE 844
//*           called ENQWATCH.  This is a continuously running      *   FILE 844
//*           task that watches for dataset enqueue conflicts       *   FILE 844
//*           and informs the TSO user if he/she is the culprit.    *   FILE 844
//*           There is more there, too.  See the doc.               *   FILE 844
//*                                                                 *   FILE 844
//*           email:  Kevin.Ferguson@ANICO.com                      *   FILE 844
//*                                                                 *   FILE 844
//*     Documentation for this program is provided in PDF format,   *   FILE 844
//*     but an attempt was made to convert it as well as possible,  *   FILE 844
//*     to plain text format, so it could be more usable directly   *   FILE 844
//*     from the mainframe machine.                                 *   FILE 844
//*                                                                 *   FILE 844
//*     Program Overview                                            *   FILE 844
//*                                                                 *   FILE 844
//*     The program, ENQWATCH, is based around the IBM supplied     *   FILE 844
//*     program ISGECMON with the features of the David Alcock's    *   FILE 844
//*     ISGECMOM added and massively re-written and some 'bells     *   FILE 844
//*     and whistles' added.                                        *   FILE 844
//*                                                                 *   FILE 844
//*     ENQWATCH will only work for dataset conflicts between       *   FILE 844
//*     batch jobs and TSO users. Conflicts between two or more     *   FILE 844
//*     batch jobs are not handled by this program.                 *   FILE 844
//*                                                                 *   FILE 844
//*     It is designed to be used as a long running program, in     *   FILE 844
//*     fact it won't end at all until you issue a stop for, or     *   FILE 844
//*     cancel, it.  The purpose of the program is the monitor      *   FILE 844
//*     the system for any dataset contention and if the holder     *   FILE 844
//*     of the resource is a TSO user, it will send them a          *   FILE 844
//*     message requesting that they free the resource.             *   FILE 844
//*                                                                 *   FILE 844
//*     The added features of ENQWATCH include:                     *   FILE 844
//*                                                                 *   FILE 844
//*      *   The ability to force an iteration of the loop          *   FILE 844
//*          thereby allowing automation to be written to           *   FILE 844
//*          immediately send a message to a TSO user if they       *   FILE 844
//*          are holding up an important batch run.                 *   FILE 844
//*                                                                 *   FILE 844
//*      *   More statistics are available including how many       *   FILE 844
//*          times the iteration was forced by the above            *   FILE 844
//*          feature.                                               *   FILE 844
//*                                                                 *   FILE 844
//*      *   The program has been modified to allow commands        *   FILE 844
//*          to take effect immediately rather than wait            *   FILE 844
//*          until the loop time limit is met.                      *   FILE 844
//*                                                                 *   FILE 844
//*      *   Dynamic adjustment of the wait time limit is now       *   FILE 844
//*          supported.                                             *   FILE 844
//*                                                                 *   FILE 844
//***FILE 845 is from Gregory Bliznets and contains three programs. *   FILE 845
//*                                                                 *   FILE 845
//*           email:  Gregory Bliznets gbliznets@iba.by             *   FILE 845
//*                                                                 *   FILE 845
//*     This package contains three programs: RUNAUTH, HOSTCMD      *   FILE 845
//*     and SYSCMD.                                                 *   FILE 845
//*                                                                 *   FILE 845
//*     With the first program, authorized program can be called    *   FILE 845
//*     from un-authorized TSO environment, including CLIST or      *   FILE 845
//*     REXX script, where direct call caused system abend 047.     *   FILE 845
//*     The second program allows execute of host (CP or Hercules)  *   FILE 845
//*     command, passed as a parameter, on z/OS or OS/390.          *   FILE 845
//*     Running both together, CP or Hercules commands can be       *   FILE 845
//*     entered from unauthorized TSO session without any system    *   FILE 845
//*     mods.  Third program SYSCMD allows execute of MVS system    *   FILE 845
//*     commands (MVS console commands) from the program, the       *   FILE 845
//*     same thing as provided by TSO CONSOLE service. This         *   FILE 845
//*     program also can be used together with RUNAUTH to allow     *   FILE 845
//*     to run MVS commands from unauthorized TSO session.          *   FILE 845
//*                                                                 *   FILE 845
//*     Author:                                                     *   FILE 845
//*                                                                 *   FILE 845
//*      Gregory Bliznets gbliznets@iba.by RUNAUTH based on         *   FILE 845
//*      idea and code described in the article "Removing           *   FILE 845
//*      user-written authorization SVC" written by Adrian          *   FILE 845
//*      Cole, see http://www.xephon.com/arcframe/m072a06           *   FILE 845
//*                                                                 *   FILE 845
//*     Note:                                                       *   FILE 845
//*      Xephon articles of this vintage, are now supported         *   FILE 845
//*      here, at www.cbttape.org    (SBG)                          *   FILE 845
//*                                                                 *   FILE 845
//***FILE 846 is from somitcw and contains programs to do EXCP for  *   FILE 846
//*           DASD.  Programs beginning with TRK0*** deal with      *   FILE 846
//*           saving and restoring IPL text on a disk volume.       *   FILE 846
//*                                                                 *   FILE 846
//*           So you can move IPL text from one volume              *   FILE 846
//*           to another.  (Nice technique to have.)                *   FILE 846
//*                                                                 *   FILE 846
//*           Program EOFDISK will clear disk tracks in the         *   FILE 846
//*           extents of a sequential dataset.                      *   FILE 846
//*                                                                 *   FILE 846
//*    Note:  In an SMS environment, remember to put a parameter    *   FILE 846
//*           of STORCLAS=nonsms storage class on the DD card       *   FILE 846
//*           for the disk pack to be looked at.                    *   FILE 846
//*                                                                 *   FILE 846
//*       Addition of program ONLCLIP "Online CLIP" to change       *   FILE 846
//*           the volser of a disk pack while it is online.         *   FILE 846
//*           Needs READ access to RACF FACILITY class profile      *   FILE 846
//*           TBCXTUL (CBT backwards, X, TUL for tools).            *   FILE 846
//*       New program ONLCLEAR which blanks out the user area       *   FILE 846
//*           which is the last 64 bytes (the identification        *   FILE 846
//*           part) of Track 0, Record 3.                           *   FILE 846
//*           Needs READ access to RACF FACILITY class profile      *   FILE 846
//*           TBCXTUL (CBT backwards, X, TUL for tools).            *   FILE 846
//*                                                                 *   FILE 846
//*           ONLCLEAR, and probably ONLCLIP, need JCL in the       *   FILE 846
//*           DD card, to specify STORCLAS=nonsms storage class.    *   FILE 846
//*           See the example JCL.                                  *   FILE 846
//*                                                                 *   FILE 846
//*       Description of TRK0SAVE, TRK0UPD.                         *   FILE 846
//*                                                                 *   FILE 846
//*           TRK0SAVE will copy Records 1, 2, 4, and the           *   FILE 846
//*           rest of the records on Track 0 (Record 3 is the       *   FILE 846
//*           volume id, so it isn't copied) to an external data    *   FILE 846
//*           set.  TRK0UPD will take this output and reload Track  *   FILE 846
//*           0 of a target volume with this unloaded IPL text.     *   FILE 846
//*                                                                 *   FILE 846
//*           For completeness, Sam Golob followed somitcw's lead   *   FILE 846
//*           and wrote a program to REMOVE IPL text, called        *   FILE 846
//*           TRK0INIT.  This program will erase the IPL text       *   FILE 846
//*           from a disk pack.  IT MUST BE USED WITH EXTREME       *   FILE 846
//*           CAUTION !!!  See warning below, how to avoid          *   FILE 846
//*           problems.                                             *   FILE 846
//*                                                                 *   FILE 846
//*       below    - - - - - W A R N I N G - - - - -                *   FILE 846
//*                                                                 *   FILE 846
//*     >>>>  If you are erasing the IPL text off a disk pack,      *   FILE 846
//*     >>>>  you should please make sure that you back it up       *   FILE 846
//*     >>>>  first, using TRK0SAVE.  Then you can restore it       *   FILE 846
//*     >>>>  later with TRK0UPD.                                   *   FILE 846
//*                                                                 *   FILE 846
//*       above    - - - - - W A R N I N G - - - - -                *   FILE 846
//*                                                                 *   FILE 846
//*           Sam Golob has added a program to this collection      *   FILE 846
//*           called TR02ABS, along with JCL to run it.  This       *   FILE 846
//*           program CONVERTS IPLTEXT that is in TRK0SAVE          *   FILE 846
//*           format to IPLTEXT in ICKDSF ABSFORMAT, so that it     *   FILE 846
//*           can be loaded using ICKDSF, without needing to        *   FILE 846
//*           use the TRK0UPD program from this file.               *   FILE 846
//*                                                                 *   FILE 846
//*           Added source code for the AWSTAPIN program, which     *   FILE 846
//*           I plagiarized to create the TR02ABS program. Since    *   FILE 846
//*           AWSTAPIN is nowhere on the CBT Tape, I put it here    *   FILE 846
//*           for safekeeping.  I think it was once on the          *   FILE 846
//*           Hercules-390 Yahoogroups files, but those get         *   FILE 846
//*           purged quite often, when the capacity is exceeded.    *   FILE 846
//*           (Nowadays, Yahoogroups is completely nonexistent.)    *   FILE 846
//*           The author of AWSTAPIN turned out to be David         *   FILE 846
//*           Cartwright.  And I rang him up, to thank him.         *   FILE 846
//*                                                                 *   FILE 846
//*           If you really need a "serious" conversion program     *   FILE 846
//*           to, and from, tape to AWS disk format, please see     *   FILE 846
//*           programs VTT2TAPE, and VTT2DISK, on CBT File 533.     *   FILE 846
//*                                                                 *   FILE 846
//*           email:  somitcw@yahoo.com                             *   FILE 846
//*                                                                 *   FILE 846
//*           email:  sbgolob@cbttape.org                           *   FILE 846
//*                                                                 *   FILE 846
//***FILE 847 is from Sam Golob, who debated with himself whether   *   FILE 847
//*           or not to include this file.  It is up to you to      *   FILE 847
//*           determine whether it is valuable to you or not.       *   FILE 847
//*                                                                 *   FILE 847
//*           THIS FILE IS BEING PLACED HERE, TO LEARN FROM.        *   FILE 847
//*                                                                 *   FILE 847
//*           One thing about the COPYMODS program, is that it      *   FILE 847
//*           effortlessly reads tapes with leading tape marks,     *   FILE 847
//*           showing the data that is afterwards.  See below.      *   FILE 847
//*                                                                 *   FILE 847
//*           A LOADLIB has been added to have executable code.     *   FILE 847
//*           All the programs in the load library were assembled   *   FILE 847
//*           from the source code included here.                   *   FILE 847
//*                                                                 *   FILE 847
//*           The purpose of this file is to show you ONE WAY to    *   FILE 847
//*           add A LOT OF OPTIONS to an existing program, and to   *   FILE 847
//*           keep them all straight.  (No "spaghetti code")        *   FILE 847
//*                                                                 *   FILE 847
//*           This file contains many stages in the development     *   FILE 847
//*           of the COPYMODS program on CBT File 229.  All of      *   FILE 847
//*           these versions are working programs, with the         *   FILE 847
//*           possible exception of versions 54 and 55, which ran   *   FILE 847
//*           out of base registers when I fixed a bug              *   FILE 847
//*           retroactively.  You can assemble them all, and run    *   FILE 847
//*           them all, and use them all.  However, the latest      *   FILE 847
//*           version (member COPYMODS) is (I think) the best one   *   FILE 847
//*           to actually use for your work.                        *   FILE 847
//*                                                                 *   FILE 847
//*           email:   sbgolob@cbttape.org                          *   FILE 847
//*                                                                 *   FILE 847
//*           This file illustrates (in much detail) the process    *   FILE 847
//*           of adding 87 extra versions to the COPYMODS program   *   FILE 847
//*           from CBT File 229.  As of this writing, COPYMODS      *   FILE 847
//*           (which is used to copy and map tapes) is at version   *   FILE 847
//*           level 088, having started as a simple tape copying    *   FILE 847
//*           program to make multiple copies of non-labeled (NL)   *   FILE 847
//*           tapes in one job run.  COPYMODS is now a mighty and   *   FILE 847
//*           powerful tool for dealing with tapes, and since I     *   FILE 847
//*           still have all the version levels (or most of them)   *   FILE 847
//*           that were used as intermediate stages in the process  *   FILE 847
//*           of its development, I didn't want them to get lost.   *   FILE 847
//*           People can see how to put 50 new options into a       *   FILE 847
//*           program, without the code getting lost in a tangle    *   FILE 847
//*           of spaghetti.                                         *   FILE 847
//*                                                                 *   FILE 847
//*           Successive incremental versions of the COPYMODS       *   FILE 847
//*           program are included in this file. It is recommended  *   FILE 847
//*           to use SUPERC or some other comparison program to     *   FILE 847
//*           see the differences between each version and the      *   FILE 847
//*           next.  I did not label each line of code with a       *   FILE 847
//*           version number or indicator.  SUPERC will show the    *   FILE 847
//*           changes between versions in enough detail.            *   FILE 847
//*                                                                 *   FILE 847
//*           An important part of the structure of the COPYMODS    *   FILE 847
//*           program is now its PARM table, which scans either     *   FILE 847
//*           PARM or SYSIN control cards, to set its many options  *   FILE 847
//*           automatically, in one pass.  Options can be           *   FILE 847
//*           displayed at the top of the program, first, the way   *   FILE 847
//*           they were originally set by the defaults, and the     *   FILE 847
//*           PARM and SYSIN cards, and second, after they were     *   FILE 847
//*           changed for consistency with each other, by the       *   FILE 847
//*           program itself.  You can set defaults, and words      *   FILE 847
//*           which stand for multiple bit combinations, both to    *   FILE 847
//*           turn them on and to turn them off, by making entries  *   FILE 847
//*           in the PARM table.                                    *   FILE 847
//*                                                                 *   FILE 847
//*           One nice thing about the COPYMODS program is that     *   FILE 847
//*           it effortlessly reads tapes with leading tape marks,  *   FILE 847
//*           such as VSE tapes, and tells you what data lies on    *   FILE 847
//*           the tape, after the tape marks.  COPYMODS has an      *   FILE 847
//*           option to strip off all leading tapemarks from the    *   FILE 847
//*           beginning of the tape, when making copies.  I didn't  *   FILE 847
//*           get this right, until somewhere in the version 70s    *   FILE 847
//*           (at version 74).  Now, you can follow the process     *   FILE 847
//*           yourself.                                             *   FILE 847
//*                                                                 *   FILE 847
//*           COPYMODS has full support for ASCII tapes.  You can   *   FILE 847
//*           do almost anything with ASCII tapes as you can with   *   FILE 847
//*           IBM (EBCDIC) tapes.  Also, not easy to put in.  You   *   FILE 847
//*           can also watch the development process here.          *   FILE 847
//*                                                                 *   FILE 847
//*           COPYMODS can map a tape without copying it, using     *   FILE 847
//*           its PARM (or SYSIN control) of READ.  If READ is      *   FILE 847
//*           in effect, no output DD names are required.           *   FILE 847
//*                                                                 *   FILE 847
//*           COPYMODS can STRIP labels off a SL tape, saving them  *   FILE 847
//*           in an FB-80 file.  So COPYMODS can make NL tapes      *   FILE 847
//*           from SL tapes while copying them.  In addition,       *   FILE 847
//*           COPYMODS can write back these labels to the NL tape   *   FILE 847
//*           (from the file it previously created) and re-create   *   FILE 847
//*           an SL tape from the NL tape.  (You can edit the       *   FILE 847
//*           labels in the meanwhile.)  I don't know of any        *   FILE 847
//*           other tape tool that can do this.  STRIP support      *   FILE 847
//*           was added in version 50.  One thing that STRIP will   *   FILE 847
//*           do.  It doesn't work by counting (1st, 3rd, 4th,      *   FILE 847
//*           6th files, etc.).  STRIP actually DETECTS whether a   *   FILE 847
//*           tape file is a label, and whatever its file number    *   FILE 847
//*           is, it will eliminate that label file from the        *   FILE 847
//*           output tapes.                                         *   FILE 847
//*                                                                 *   FILE 847
//*           COPYMODS uses a very simple copying mechanism (of     *   FILE 847
//*           course it's EXCP).  COPYMODS reads a block of a       *   FILE 847
//*           tape into a 64K buffer (in the program, so it does    *   FILE 847
//*           not have to be GETMAINed).  COPYMODS then writes      *   FILE 847
//*           the contents of the buffer to as many as 16 output    *   FILE 847
//*           tapes, if DD names OUT1 thru OUT16, or any            *   FILE 847
//*           combination of these, are coded in the JCL.  Once     *   FILE 847
//*           you have the contents of a tape block in a buffer,    *   FILE 847
//*           you can do anything with it while you have it, and    *   FILE 847
//*           with COPYMODS, I have tried to do more and more       *   FILE 847
//*           and more.  There are now 49 options, and you can      *   FILE 847
//*           even INIT up to 16 tapes, too, at one time.           *   FILE 847
//*                                                                 *   FILE 847
//*           I think that by following the development of the      *   FILE 847
//*           COPYMODS program incrementally through its many       *   FILE 847
//*           version levels, you can learn a lot.  If somebody     *   FILE 847
//*           wants to see this, at least it's there for you to     *   FILE 847
//*           look at, and learn from.                              *   FILE 847
//*                                                                 *   FILE 847
//*           Good luck.                                            *   FILE 847
//*                                                                 *   FILE 847
//***FILE 848 is from Sam Bass and is a re-introduction of the      *   FILE 848
//*           LIBSPOOL package (which once was on this tape) to     *   FILE 848
//*           the CBT collection.  LIBSPOOL is an adaptation of     *   FILE 848
//*           PANSPOOL, except it is for CA-Librarian instead of    *   FILE 848
//*           for CA-Panvalet.  Sam Bass did the original work      *   FILE 848
//*           of the adaptation.  So here it is.                    *   FILE 848
//*                                                                 *   FILE 848
//*           email:  Sam.Bass@mclaneco.com                         *   FILE 848
//*                                                                 *   FILE 848
//***FILE 849 is from Scott Vetter and contains a TSO command to    *   FILE 849
//*           display the TSO users currently logged on.  The       *   FILE 849
//*           original command was for MVS 3.8 (still included as   *   FILE 849
//*           member DT38).  Fixed to work on z/OS 1.12 by Sam      *   FILE 849
//*           Golob (you can compare to see the necessary changes). *   FILE 849
//*           The name of the command is DT.                        *   FILE 849
//*                                                                 *   FILE 849
//*           Member DTP (source code) created to convert terminal  *   FILE 849
//*           output of the DT program from TPUT to PUTLINE, so it  *   FILE 849
//*           can be captured and displayed in full screen mode.    *   FILE 849
//*                                                                 *   FILE 849
//*           Additional command from Scott Vetter:                 *   FILE 849
//*           DA - Display Active Address Spaces.                   *   FILE 849
//*                                                                 *   FILE 849
//*           Similar treatment to DT command:  DAP is PUTLINE      *   FILE 849
//*           adaptation of the terminal output.  DA38 is Scott's   *   FILE 849
//*           original version for MVS 3.8.  DA$ is assembly JCL.   *   FILE 849
//*                                                                 *   FILE 849
//*           REXX execs from Mark Zelden:  TSOV, TSOB, TSOE, TSOR  *   FILE 849
//*           were included here so you can have tools to capture   *   FILE 849
//*           the outputs of the DT program which was assembled     *   FILE 849
//*           from the DTP source (JCL member DT$).  Or to capture  *   FILE 849
//*           the outputs from the DAP source prpgram.  To capture  *   FILE 849
//*           output, say:  TSO TSOx DT , where x is V, B, E, R,    *   FILE 849
//*           for VIEW, BROWSE, EDIT, or REVIEW (CBT File 134)      *   FILE 849
//*           of the captured output of DT.  REVIEW will do full    *   FILE 849
//*           screen browsing (or editing) of the output while      *   FILE 849
//*           you are in TSO READY mode, even without ISPF.  (Use   *   FILE 849
//*           the UPDATE subcommand of REVIEW for ISPF-like edit.)  *   FILE 849
//*                                                                 *   FILE 849
//*           email:  svetter@ameritech.net                         *   FILE 849
//*                                                                 *   FILE 849
//*           email:  sbgolob@cbttape.org                           *   FILE 849
//*                                                                 *   FILE 849
//***FILE 850 is from Juergen Winkelmann, based on the pioneering   *   FILE 850
//*           and expert work of Craig Yasuna.  This is Craig's     *   FILE 850
//*           ESG security system adapted for MVS 3.8J that is run  *   FILE 850
//*           under Hercules, and is called RAKF.                   *   FILE 850
//*                                                                 *   FILE 850
//*           Credit for the modifications goes to Phil Dickinson,  *   FILE 850
//*           Phil Roberts, Juergen Winkelmann, and Scott Vetter.   *   FILE 850
//*           See member $CREDITS in this file for details.         *   FILE 850
//*                                                                 *   FILE 850
//*           For the record, to see the modifications from the ESG *   FILE 850
//*           security system thru (some level of) this source code *   FILE 850
//*           please see member ESG2RAKF.                           *   FILE 850
//*                                                                 *   FILE 850
//*           The product is packaged as an SMP install for MVS 3.8 *   FILE 850
//*           as a "tape" file in AWS format.  This "tape" has been *   FILE 850
//*           folded into FB-80 and is included in this file as     *   FILE 850
//*           member AWSTAPE.  A "real tape" can be made from this  *   FILE 850
//*           member, using the VTT2TAPE program from CBT File 533  *   FILE 850
//*           whose source (in RECV370 format) is in member VASM.   *   FILE 850
//*                                                                 *   FILE 850
//*           However, if you already have a Hercules system, you   *   FILE 850
//*           can just FTP the AWSTAPE member to a PC file, or      *   FILE 850
//*           download it to there using the IND$FILE program, and  *   FILE 850
//*           mount it as a tape under Hercules using the devinit   *   FILE 850
//*           command on the Hercules console.                      *   FILE 850
//*                                                                 *   FILE 850
//*           PTFs are listed here under their sysmod name.         *   FILE 850
//*                                                                 *   FILE 850
//*           Example:  RRKF001                                     *   FILE 850
//*                                                                 *   FILE 850
//*           However, for those who do not want to use the "tape"  *   FILE 850
//*           to install RAKF, each relfile has been expanded into  *   FILE 850
//*           a member of this file, that can be made into a pds    *   FILE 850
//*           using the PDSLOAD program (whose source code is also  *   FILE 850
//*           packaged in the VASM member).  To my knowledge, both  *   FILE 850
//*           programs (PDSLOAD and this version of VTT2TAPE) can   *   FILE 850
//*           be run on MVS 3.8.                                    *   FILE 850
//*                                                                 *   FILE 850
//*       PTFs were added to this package, and will be added as     *   FILE 850
//*       needed:                                                   *   FILE 850
//*                                                                 *   FILE 850
//*       RRKF001  Introduce change history                         *   FILE 850
//*                Enable comment lines in UDATA and PDATA          *   FILE 850
//*                                                                 *   FILE 850
//*       RRKF002  Allow users to make permanent changes to         *   FILE 850
//*                their passwords                                  *   FILE 850
//*                                                                 *   FILE 850
//*       RRKF003  Prevent unauthorized user from accessing         *   FILE 850
//*                incore tables                                    *   FILE 850
//*                                                                 *   FILE 850
//*       RRKF004  Fix and unify RAKF documentation                 *   FILE 850
//*                                                                 *   FILE 850
//*       RRKF005  RACIND Utility to control VSAM RACF Indicators   *   FILE 850
//*                                                                 *   FILE 850
//*       RRKF006  + Sample jobs to RACF indicate or unindicate     *   FILE 850
//*                  the whole system                               *   FILE 850
//*                + OCO distribution of RAKF-external utilities    *   FILE 850
//*                + Sample jobs for creation of SYS1.SECURE.CNTL   *   FILE 850
//*                  and SYS1.SECURE.PWUP                           *   FILE 850
//*                + Add missing //RAKFPWUP DD statement to the     *   FILE 850
//*                  RAKF cataloged procedure                       *   FILE 850
//*                + Update the RAKF User's Guide with changes      *   FILE 850
//*                  introduced since RRKF004                       *   FILE 850
//*                                                                 *   FILE 850
//*       Documentation for this system is in text form, in member  *   FILE 850
//*       RAKFDOC.  However, the more up-to-date documentation is   *   FILE 850
//*       in the two other members RAKFDOC# (PDF format) and        *   FILE 850
//*       RAKFDOC@ (MSWORD format).  These latter members were      *   FILE 850
//*       Juergen's original doc, and RAKFDOC was converted from    *   FILE 850
//*       these, at a previous level, by Sam Golob.  The MSWORD     *   FILE 850
//*       and PDF documentation reflect the latest PTF level,       *   FILE 850
//*       RRKF006.                                                  *   FILE 850
//*                                                                 *   FILE 850
//*       email:   winkelmann@id.ethz.ch                            *   FILE 850
//*                                                                 *   FILE 850
//*       email:   svetter@ameritech.net                            *   FILE 850
//*                                                                 *   FILE 850
//*       email:   sbgolob@cbttape.org                              *   FILE 850
//*                                                                 *   FILE 850
//***FILE 851 is from Fred Schmidt and contains his tool to create  *   FILE 851
//*           tape copying JCL that copies one tape to another.     *   FILE 851
//*           His package is called RMMCOPY.                        *   FILE 851
//*                                                                 *   FILE 851
//*       email:  Fred.Schmidt@nt.gov.au                            *   FILE 851
//*                                                                 *   FILE 851
//*             Notes for running the RMMCOPY tool                  *   FILE 851
//*                                                                 *   FILE 851
//*     Introduction.                                               *   FILE 851
//*                                                                 *   FILE 851
//*     The RMMCOPY tool was written to copy all files from one     *   FILE 851
//*     tape to another, for tapes managed by RMM.  Whilst this     *   FILE 851
//*     is a simple process to do manually via a batch job, with    *   FILE 851
//*     modern tapes able to contain many thousands of files, a     *   FILE 851
//*     manual approach soon becomes very cumbersome.  There are    *   FILE 851
//*     commercial products available to copy tapes, however,       *   FILE 851
//*     that costs money. This tool was written to perform such     *   FILE 851
//*     a copy without having to purchase a package. The tool       *   FILE 851
//*     should copy tapes with all valid block sizes at the time    *   FILE 851
//*     of writing, including up to 256K.                           *   FILE 851
//*                                                                 *   FILE 851
//*     The tool copies all DCB attributes and the expiry date      *   FILE 851
//*     from the source tape's datasets. You can override the       *   FILE 851
//*     expiry date to a single fixed value, for all datasets,      *   FILE 851
//*     by modifying the settings in the RMMEXEC (see below for     *   FILE 851
//*     details).                                                   *   FILE 851
//*                                                                 *   FILE 851
//*     One restriction that the tool has, is that where there      *   FILE 851
//*     are more than 255 files on the tape to be copied, the       *   FILE 851
//*     output tape must first have a dummy file written to it,     *   FILE 851
//*     so that its VOLSER is known. This is required because a     *   FILE 851
//*     maximum of 255 steps are permitted in a job. Since there    *   FILE 851
//*     is no DD referback mechanism available between jobs, the    *   FILE 851
//*     VOLSER of the output tape must be known in advance and      *   FILE 851
//*     available to the subsequent jobs. The result of this        *   FILE 851
//*     approach is that all files on such an output tape appear    *   FILE 851
//*     one file sequence number later than they do on the input    *   FILE 851
//*     tape.                                                       *   FILE 851
//*                                                                 *   FILE 851
//***FILE 852 is from Paul Edwards and contains the GCC C-Language  *   FILE 852
//*           compiler and library, ported to MVS, z/OS, etc.       *   FILE 852
//*           This release is GCC 3.2.3 MVS 9.0                     *   FILE 852
//*           The GCC compilers for MVS can be found at:            *   FILE 852
//*                                                                 *   FILE 852
//*           http://gccmvs.sourceforge.net    and see also:        *   FILE 852
//*                                                                 *   FILE 852
//*           http://pdos.sourceforge.net                           *   FILE 852
//*                                                                 *   FILE 852
//*           email:  mutazilah@gmail.com                           *   FILE 852
//*                                                                 *   FILE 852
//*        Please note that I am no longer using GCC 3.4.6          *   FILE 852
//*        because it has too many bugs in it that I can't fix.     *   FILE 852
//*                                                                 *   FILE 852
//*        This latest version is really good technically.          *   FILE 852
//*        I can produce 31/ANY load modules that still             *   FILE 852
//*        work on MVS 3.8J and MVS/380 in 31-bit.                  *   FILE 852
//*        It's also AM32 clean.                                    *   FILE 852
//*                                                                 *   FILE 852
//*        Welcome to GCCMVS (GCC for MVS, CMS and VSE)             *   FILE 852
//*        a freely available 31-bit mainframe compiler             *   FILE 852
//*        for C Language.                                          *   FILE 852
//*                                                                 *   FILE 852
//*     GCCMVS is a standalone compiler designed to run on MVS      *   FILE 852
//*     (from z/OS all the way back to MVS 3.8j, and probably       *   FILE 852
//*     beyond to PCP, but no-one has tested (or at least           *   FILE 852
//*     reported) back that far) or CMS (z/VM and predecessors)     *   FILE 852
//*     and VSE (z/VSE back to DOS/VS R34). It consists of two      *   FILE 852
//*     distinct parts. Firstly, the standard GCC 3.2.3             *   FILE 852
//*     compiler with some required code changes for MVS and        *   FILE 852
//*     CMS. Secondly, PDPCLIB, which is a C runtime library        *   FILE 852
//*     required for GCC to be able to run, and also for your       *   FILE 852
//*     own programs to be able to run. Both things are             *   FILE 852
//*     required, and both things are what is dubbed "GCCMVS".      *   FILE 852
//*     Note that the licence for the GCC part is GPL while         *   FILE 852
//*     PDPCLIB is public domain (explicit PD notice). Because      *   FILE 852
//*     PDPCLIB is pure public domain, it means that there are      *   FILE 852
//*     no licencing restrictions on executables you produce        *   FILE 852
//*     yourself. i.e. commercial use is fine, and you can even     *   FILE 852
//*     sell PDPCLIB (original or modified, including               *   FILE 852
//*     proprietary modifications, with or without source) if       *   FILE 852
//*     you find a market.                                          *   FILE 852
//*                                                                 *   FILE 852
//*     The source code and executables for GCCMVS can be found     *   FILE 852
//*     at sourceforge                                              *   FILE 852
//*     <http://sourceforge.net/projects/gccmvs>, in the            *   FILE 852
//*     "downloads" link.  There is also an old port of GCCMVS      *   FILE 852
//*     to MUSIC/SP which is available here                         *   FILE 852
//*     <http://webpages.mcgill.ca/staff/group3/dedwar1/web>.       *   FILE 852
//*     Unfortunately the author of the MUSIC/SP version (Dave      *   FILE 852
//*     Edwards) passed away, but the mainline source code does     *   FILE 852
//*     MUSIC/SP now too, but it lacks nice packaging.  The MVS     *   FILE 852
//*     version also works under PDOS/390.                          *   FILE 852
//*                                                                 *   FILE 852
//*     Porting the compiler to the mainframe opened up the         *   FILE 852
//*     floodgates to lots of C code being able to be ported.       *   FILE 852
//*     The downloads section contains some such applications.      *   FILE 852
//*     The most impressive one is probably the "diff3"             *   FILE 852
//*     utility. If you have never heard of a three-way diff,       *   FILE 852
//*     you will not regret learning what it can do for you.        *   FILE 852
//*                                                                 *   FILE 852
//***FILE 853 is from Paul Edwards and contains the GCC C-Language  *   FILE 853
//*           compiler and library, ported to MVS, z/OS, etc.       *   FILE 853
//*           This release is GCC 3.4.6 MVS 1.0.  The GCC compilers *   FILE 853
//*           for MVS can be found at:                              *   FILE 853
//*                                                                 *   FILE 853
//*           http://gccmvs.sourceforge.net    and see also:        *   FILE 853
//*                                                                 *   FILE 853
//*           http://pdos.sourceforge.net                           *   FILE 853
//*                                                                 *   FILE 853
//*           email:  mutazilah@gmail.com                           *   FILE 853
//*                                                                 *   FILE 853
//*         Welcome to GCCMVS (GCC for MVS, CMS and VSE)            *   FILE 853
//*         a freely available 31-bit mainframe compiler            *   FILE 853
//*         for C Language.                                         *   FILE 853
//*                                                                 *   FILE 853
//*     GCCMVS is a standalone compiler designed to run on MVS      *   FILE 853
//*     (from z/OS all the way back to MVS 3.8j, and probably       *   FILE 853
//*     beyond to PCP, but no-one has tested (or at least           *   FILE 853
//*     reported) back that far) or CMS (z/VM and predecessors)     *   FILE 853
//*     and VSE (z/VSE back to DOS/VS R34). It consists of two      *   FILE 853
//*     distinct parts. Firstly, the standard GCC 3.4.6             *   FILE 853
//*     compiler with some required code changes for MVS and        *   FILE 853
//*     CMS. Secondly, PDPCLIB, which is a C runtime library        *   FILE 853
//*     required for GCC to be able to run, and also for your       *   FILE 853
//*     own programs to be able to run. Both things are             *   FILE 853
//*     required, and both things are what is dubbed "GCCMVS".      *   FILE 853
//*     Note that the licence for the GCC part is GPL while         *   FILE 853
//*     PDPCLIB is public domain (explicit PD notice). Because      *   FILE 853
//*     PDPCLIB is pure public domain, it means that there are      *   FILE 853
//*     no licencing restrictions on executables you produce        *   FILE 853
//*     yourself. ie commercial use is fine, and you can even       *   FILE 853
//*     sell PDPCLIB (original or modified, including               *   FILE 853
//*     proprietary modifications, with or without source) if       *   FILE 853
//*     you find a market.                                          *   FILE 853
//*                                                                 *   FILE 853
//*     The source code and executables for GCCMVS can be found     *   FILE 853
//*     at sourceforge                                              *   FILE 853
//*     <http://sourceforge.net/projects/gccmvs>, in the            *   FILE 853
//*     "downloads" link. There is also an old port of GCCMVS       *   FILE 853
//*     to MUSIC/SP which is available here                         *   FILE 853
//*     <http://webpages.mcgill.ca/staff/group3/dedwar1/web>.       *   FILE 853
//*     Unfortunately the author of the MUSIC/SP version (Dave      *   FILE 853
//*     Edwards) passed away, but the mainline source code does     *   FILE 853
//*     MUSIC/SP now too, but it lacks nice packaging.  The MVS     *   FILE 853
//*     version also works under PDOS/390.                          *   FILE 853
//*                                                                 *   FILE 853
//*     Porting the compiler to the mainframe opened up the         *   FILE 853
//*     floodgates to lots of C code being able to be ported.       *   FILE 853
//*     The downloads section contains some such applications.      *   FILE 853
//*     The most impressive one is probably the "diff3"             *   FILE 853
//*     utility. If you have never heard of a three-way diff,       *   FILE 853
//*     you will not regret learning what it can do for you.        *   FILE 853
//*                                                                 *   FILE 853
//***FILE 854 is from Steve Comstock of The Trainer's Friend Inc.   *   FILE 854
//*           which is a company that gives training courses in     *   FILE 854
//*           MVS and z/OS related subjects, among other things.    *   FILE 854
//*           See their website.  It is very helpful in many ways.  *   FILE 854
//*                                                                 *   FILE 854
//*           This file contains a collection of papers in PDF      *   FILE 854
//*           format, which Steve's company gives out for free.     *   FILE 854
//*           They are very helpful, and cover many subjects, some  *   FILE 854
//*           of which do not have good coverage elsewhere in the   *   FILE 854
//*           CBT Tape collection.                                  *   FILE 854
//*                                                                 *   FILE 854
//*           email:     steve@trainersfriend.com                   *   FILE 854
//*           website:   www.trainersfriend.com                     *   FILE 854
//*           phone:     800-993-8716                               *   FILE 854
//*                      303-393-8716                               *   FILE 854
//*                                                                 *   FILE 854
//*           These items come from the URL:                        *   FILE 854
//*                                                                 *   FILE 854
//*   http://www.trainersfriend.com/General_content/Book_site.htm   *   FILE 854
//*                                                                 *   FILE 854
//*           In order to fit into MVS naming conventions for       *   FILE 854
//*           pds members, these PDFs and such had to be renamed    *   FILE 854
//*           to fit into 8-character names with the proper         *   FILE 854
//*           naming conventions.  So a key as to what the names    *   FILE 854
//*           used to be, may be found in member $RENAME.           *   FILE 854
//*           Member MFRMFFNP was converted to text from rtf.       *   FILE 854
//*                                                                 *   FILE 854
//*         PDS Name      Original Name on Web Site                 *   FILE 854
//*         --------      -------------------------                 *   FILE 854
//*                                                                 *   FILE 854
//*         $trainfr      TrainersFriendBrochure.pdf                *   FILE 854
//*         amod31io      amode_31_io.pdf                           *   FILE 854
//*         arcofdb2      Arc_of_DB2.pdf                            *   FILE 854
//*         asmcodg1      Assembler.Coding.1.pdf                    *   FILE 854
//*         bc            bc.pdf                                    *   FILE 854
//*         cobol4        COBOL_4.pdf                               *   FILE 854
//*         cdajaxap      CodingAJAX_Applications.pdf               *   FILE 854
//*         futmainf      Future_of_Mainframe.pdf                   *   FILE 854
//*         hoswebzo      Hosting_web_on_zos.pdf                    *   FILE 854
//*         htmlndiv      HTML_and_DIV.pdf                          *   FILE 854
//*         httpstrt      HTTP_Starter.pdf                          *   FILE 854
//*         J510sm        J510sm.pdf                                *   FILE 854
//*         mfrmffnp      MainframesForFunAndProfit.rtf             *   FILE 854
//*         modbusap      ModernBusinessComputerApplica...pdf       *   FILE 854
//*         peektop2      peektop2.txt                              *   FILE 854
//*         portapch      PortingApache.pdf                         *   FILE 854
//*         readjavd      Reading_Java_Docs.pdf                     *   FILE 854
//*         shdcntrb      SHARE-Denver-Control-blocks.pdf           *   FILE 854
//*         shddb2lb      SHARE-Denver-DB2-andLOBs.pdf              *   FILE 854
//*         shdxmldb      SHARE-Denver-XMLandDB2.pdf                *   FILE 854
//*         shpackde      SHARE-Packed-Decimal.pdf                  *   FILE 854
//*         smtpexit      smtpexit.txt                              *   FILE 854
//*         tsort         tsort.pdf                                 *   FILE 854
//*         uncdtalk      uncdtalk.pdf                              *   FILE 854
//*         wrtreent      Writing_reentrant_programs.pdf            *   FILE 854
//*         xslt01        xslt01.pdf                                *   FILE 854
//*         zosunxle      zOS_Unix_and_Language_Environment.pdf     *   FILE 854
//*                                                                 *   FILE 854
//***FILE 855 is from Uri Lifshitz and contains an Excel            *   FILE 855
//*           spreadsheet which can be used to figure out file      *   FILE 855
//*           sizes on DASD.                                        *   FILE 855
//*                                                                 *   FILE 855
//*       email:   uri@optareconsulting.com                         *   FILE 855
//*       URL  :   http://www.optareconsulting.com/WP/utilities/    *   FILE 855
//*                                                                 *   FILE 855
//*           This is the very first Excel spreadsheet (to my       *   FILE 855
//*           knowledge) that we have on the CBT Tape, and to       *   FILE 855
//*           use it, you do the following:                         *   FILE 855
//*                                                                 *   FILE 855
//*           Download member URIDCV10 in BINARY to a PC.           *   FILE 855
//*           Rename the file with a suffix of .xls                 *   FILE 855
//*             so it will be called, for example:                  *   FILE 855
//*                                                                 *   FILE 855
//*             URIDCV10.xls                                        *   FILE 855
//*                                                                 *   FILE 855
//*           At his point, open the file with Microsoft Excel      *   FILE 855
//*           or the equivalent, and it should work.                *   FILE 855
//*                                                                 *   FILE 855
//***FILE 856 is from Steve McColley and contains the Shared Spool  *   FILE 856
//*           Mods (previously known as the "Mellon Mods" for JES2) *   FILE 856
//*           which should be good for z/OS 1.9 thru z/OS 1.12.     *   FILE 856
//*           (They were tested on a z/OS 1.12 and z/OS 1.13        *   FILE 856
//*           system.)                                              *   FILE 856
//*                                                                 *   FILE 856
//*                Stephen McColley                                 *   FILE 856
//*                McColley Systems Group Inc.                      *   FILE 856
//*                SGMcColley@MVSProgrammer.com                     *   FILE 856
//*                http://WWW.MVSProgrammer.com                     *   FILE 856
//*                770-335-0478                                     *   FILE 856
//*                                                                 *   FILE 856
//*  Important                                                      *   FILE 856
//*    Note:    McColley Systems Group now produces a vendor        *   FILE 856
//*    ----     supported product called ESSM which supersedes      *   FILE 856
//*             the Mellon Mods.  For information about ESSM,       *   FILE 856
//*             please see members:  @ESSMDOC (MS Word), and        *   FILE 856
//*             @ESSMTXT (plain text without the table).            *   FILE 856
//*                                                                 *   FILE 856
//*          Please inquire about ESSM from the address above.      *   FILE 856
//*                                                                 *   FILE 856
//*       ------------------------------------------------          *   FILE 856
//*                                                                 *   FILE 856
//*               SSSS H   H  AAA  RRRR  EEEEE DDDD                 *   FILE 856
//*              S     H   H A   A R   R E     D   D                *   FILE 856
//*               SSS  HHHHH AAAAA RRRR  EEEE  D   D                *   FILE 856
//*                  S H   H A   A R  R  E     D   D                *   FILE 856
//*              SSSS  H   H A   A R   R EEEEE DDDD                 *   FILE 856
//*                                                                 *   FILE 856
//*                  SSSS PPPP   OOO   OOO  L                       *   FILE 856
//*                 S     P   P O   O O   O L                       *   FILE 856
//*                  SSS  PPPP  O   O O   O L                       *   FILE 856
//*                     S P     O   O O   O L                       *   FILE 856
//*                 SSSS  P      OOO   OOO  LLLLL                   *   FILE 856
//*                                                                 *   FILE 856
//*                    M   M  OOO  DDDD   SSSS                      *   FILE 856
//*                    MM MM O   O D   D S                          *   FILE 856
//*                    M M M O   O D   D  SSS                       *   FILE 856
//*                    M   M O   O D   D     S                      *   FILE 856
//*                    M   M  OOO  DDDD  SSSS                       *   FILE 856
//*                                                                 *   FILE 856
//*                  for jes2 1.10, 1.11 and 1.12                   *   FILE 856
//*                           and 1.13                              *   FILE 856
//*                                                                 *   FILE 856
//*      DISCLAIMER -                                               *   FILE 856
//*                                                                 *   FILE 856
//*    ***********************************************************  *   FILE 856
//*    *                                                         *  *   FILE 856
//*    *     THE MODS ON THIS TAPE HAVE BEEN USED SUCCESSFULLY   *  *   FILE 856
//*    *  AND TO THE BEST OF OUR KNOWLEDGE THEY ARE OPERATIONAL, *  *   FILE 856
//*    *  HOWEVER NO WARRANTY IS MADE TO THE ACCURACY OF THE     *  *   FILE 856
//*    *  MODS AND NO RESPONSIBILITY IS ASSUMED FOR ANY          *  *   FILE 856
//*    *  MODIFICATION DIRECTLY OR INDIRECTLY CAUSED BY THE USE  *  *   FILE 856
//*    *  OF THE MODIFICATIONS.  IT IS THE USERS RESPONSIBILITY  *  *   FILE 856
//*    *  TO EVALUATE THE USEFULLNESS OF THE MATERIAL.           *  *   FILE 856
//*    *                                                         *  *   FILE 856
//*    *     WE DO NOT GUARANTEE TO KEEP ANY MATERIAL PROVIDED   *  *   FILE 856
//*    *  UP TO DATE, NOR DO WE GUARANTEE TO PROVIDE ANY         *  *   FILE 856
//*    *  CORRECTIONS OR EXTENSIONS MADE IN THE FUTURE.          *  *   FILE 856
//*    *                                                         *  *   FILE 856
//*    ***********************************************************  *   FILE 856
//*                                                                 *   FILE 856
//*      This is the installation PDS for the Shared Spool Mods     *   FILE 856
//*     for JES2 1.10, 1.11, 1.12 and JES2 1.13.  The shared spool  *   FILE 856
//*     mods were formely known as the Mellon shared spool mods.    *   FILE 856
//*                                                                 *   FILE 856
//*      All who use the shared spool mods, owe a debt of           *   FILE 856
//*     gratitude to Mellon Bank for the original implementaion     *   FILE 856
//*     of the shared spool mods, but because it has been           *   FILE 856
//*     maintained outside of Mellon for over 15 years, and has     *   FILE 856
//*     been rewritten twice since then, we will refer to the       *   FILE 856
//*     mods as the SHARED SPOOL MODS from now on.  Once again -    *   FILE 856
//*                          THANK YOU MELLON BANK !                *   FILE 856
//*                                                                 *   FILE 856
//*      In this PDS you should find the following members.         *   FILE 856
//*                                                                 *   FILE 856
//*                    ( ADMINISTRATIVE MEMBERS )                   *   FILE 856
//*                                                                 *   FILE 856
//*    @@README -   That is this member, you are reading it.        *   FILE 856
//*                                                                 *   FILE 856
//*    DISCLAIM -   Our standard disclaimer - we guarentee /        *   FILE 856
//*                 warrant nothing!                                *   FILE 856
//*                                                                 *   FILE 856
//*                ( DOCUMENTATION - PDF AND DOC FORMAT MANUALS )   *   FILE 856
//*    SSMINSTP -   Shared Spool Mods installation manual - PDF     *   FILE 856
//*                 format (simply download to your PC as           *   FILE 856
//*                 ssminst.pdf - binary xfer)                      *   FILE 856
//*                                                                 *   FILE 856
//*    SSMINSTW -   Shared Spool Mods installation manual - Word    *   FILE 856
//*                 Document (simply download to your PC as         *   FILE 856
//*                 ssminst.doc - binary xfer)                      *   FILE 856
//*                                                                 *   FILE 856
//*    SSMUSERP -   Shared Spool Mods Users Guide - PDF format      *   FILE 856
//*                 (simply download to your PC as ssmuser.pdf -    *   FILE 856
//*                 binary xfer)                                    *   FILE 856
//*                                                                 *   FILE 856
//*    SSMUSERW -   Shared Spool Mods Users Buide - Word            *   FILE 856
//*                 Document (simply download to your PC as         *   FILE 856
//*                 ssmuser.doc - binary xfer)                      *   FILE 856
//*                                                                 *   FILE 856
//*    SSMOPSGP -   Shared Spool Mods Operations Guide - PDF        *   FILE 856
//*                 format (simply download to your PC as           *   FILE 856
//*                 ssmopsg.pdf - binary xfer)                      *   FILE 856
//*                                                                 *   FILE 856
//*    SSMOPSGW -   Shared Spool Mods Operations Guide - Word       *   FILE 856
//*                 Document (simply download to your PC as         *   FILE 856
//*                 ssmopsg.doc - binary xfer)                      *   FILE 856
//*                                                                 *   FILE 856
//*                   ( SMP INSTALLATION MEMBERS )                  *   FILE 856
//*                                                                 *   FILE 856
//*    LSES500  -   The SMP/e usermod needed to install the         *   FILE 856
//*                 entire package.                                 *   FILE 856
//*                                                                 *   FILE 856
//*    LSES500J -   Sample JCL to run the RECEIVE / APPLY Check     *   FILE 856
//*                 / APPLY (You must apply lses500 or use the      *   FILE 856
//*                 non-smp install method).                        *   FILE 856
//*                                                                 *   FILE 856
//*                 ( NON-SMP INSTALLATION MEMBERS )                *   FILE 856
//*                                                                 *   FILE 856
//*    ALOCLIBS -   NON-SMP STEP 1 - ALLOCATE NEW LIBRARIES.        *   FILE 856
//*                                                                 *   FILE 856
//*    COPYLIBS -   NON-SMP STEP 3 - POPULATE NEW LIBRARIES.        *   FILE 856
//*                                                                 *   FILE 856
//*                 ( COMMON JES2 PARMS NEEDED FOR PACKAGE )        *   FILE 856
//*                                                                 *   FILE 856
//*    JES2PARM -   SAMPLE JES2 PARMS NEEDED TO IMPLEMENT THE       *   FILE 856
//*                 PACKAGE.                                        *   FILE 856
//*                                                                 *   FILE 856
//*    *** THEN WE HAVE THE FOLLOWING FOUR MEMBERS - THEY ARE       *   FILE 856
//*    *** NOT REALLY PART OF THE SHARED SPOOL MODS - BUT WE        *   FILE 856
//*    *** HAVE BEEN DISTRIBUTING THEM, AND SOME FOLKS STILL        *   FILE 856
//*    *** NEED THEM.  IF YOU WANT TO USE THESE, YOU WILL HAVE      *   FILE 856
//*    *** TO APPLY THEM SEPARATELY FROM THE SHARED SPOOL MODS -    *   FILE 856
//*    *** WE JUST HAVE THE SOURCE - THEY ARE NOT SET UP AS         *   FILE 856
//*    *** USERMODS.                                                *   FILE 856
//*                                                                 *   FILE 856
//*                                                                 *   FILE 856
//*    STSCX01A -   OUR VERSION OF THE PAGE SEPARATOR EXIT.         *   FILE 856
//*                 (NOT PART OF SSM'S)                             *   FILE 856
//*                                                                 *   FILE 856
//*    STSCX05B -   PREVENT PURGING BY JOB RANGE. (NOT PART         *   FILE 856
//*                 OF SSM'S)                                       *   FILE 856
//*                                                                 *   FILE 856
//*    STSCX15A -   CAUSES FCBS TO BE RELOAD WITH EACH JOB          *   FILE 856
//*                 UNLESS STD FORMS.                               *   FILE 856
//*                                                                 *   FILE 856
//*    STSCX36A -   SAF PROCESSING FOR JOBS COMING IN FROM          *   FILE 856
//*                 RJE/NJE SOURCES.                                *   FILE 856
//*                                                                 *   FILE 856
//*                                                                 *   FILE 856
//*      THE DOCUMENTATION MEMBERS SUFFIXED WITH A 'P' I.E.         *   FILE 856
//*    SSMINSTP ARE PDF FORMAT DOCUMENTS.  TO USE THEM YOU WILL     *   FILE 856
//*    NEED TO TRANSFER THEM TO A PC USING YOUR FAVORITE FILE       *   FILE 856
//*    TRANSFER PROGRAM USING A BINARY OPTION - IE.  NO             *   FILE 856
//*    TRANSLATION.  YOU WILL PROBABLY NEED TO MAKE SURE THEY       *   FILE 856
//*    ARE TRANSFERRED TO A NEW FILE NAME THAT ENDS IN ".PDF",      *   FILE 856
//*    OR YOU MAY NOT BE ABLE TO READ THEM.                         *   FILE 856
//*                                                                 *   FILE 856
//*      IF YOU CAN NOT READ PDF DOCS THE ORIGINAL "WORD"           *   FILE 856
//*    FORMATTED DOCS ARE INCLUDED IN THE MEMBERS SUFFIXED WITH     *   FILE 856
//*    A "W" I.E. SSMINSTW.  YOU WILL PROBABLY NEED TO OFFLOAD      *   FILE 856
//*    THEM TO A PC FILE WITH A SUFFIX OF DOC TO READ THEM          *   FILE 856
//*    PROPERLY.                                                    *   FILE 856
//*                                                                 *   FILE 856
//*      THE THREE BASIC PIECES OF DOCUMENTATION ARE -              *   FILE 856
//*                                                                 *   FILE 856
//*    1 THE INSTALLATION GUIDE - GIVES BACKGROUND, INSTALLATION    *   FILE 856
//*      INSTRUCTIONS, AND OTHER INFORMATION NEEDED TO SETUP THE    *   FILE 856
//*      SHARED SPOOL MODS PACKAGE.                                 *   FILE 856
//*                                                                 *   FILE 856
//*    2 THE USERS GUIDE - GIVES DETAILED INFO ON JECL              *   FILE 856
//*      STATEMENTS AND IS AIMED AT THE END USERS - WHOEVER         *   FILE 856
//*      CODES AND USES JCL.                                        *   FILE 856
//*                                                                 *   FILE 856
//*    3 THE OPERATIONS GUIDE - GIVES DETAILED INFORMATIN ABOUT     *   FILE 856
//*      ALL OF THE NEW JES2 DISPLAY AND MODIFY COMMANDS            *   FILE 856
//*      AVAIALABLE WITH THE PACKAGE.                               *   FILE 856
//*                                                                 *   FILE 856
//*      ONCE YOU HAVE THE PACKAGE SET UP - PLEASE DROP ME A        *   FILE 856
//*      LINE AT                                                    *   FILE 856
//*                                                                 *   FILE 856
//*      email:    SGMCCOLLEY@ALLTEL.NET                            *   FILE 856
//*                STEPHEN.MCCOLLEY@MVSPROGRAMMER.COM               *   FILE 856
//*                                                                 *   FILE 856
//*      SO THAT I CAN ADD YOU TO THE MAILING LIST.  THAT WAY I     *   FILE 856
//*      CAN LET YOU KNOW ABOUT BUGS, FIXES, AND NEW RELEASES AS    *   FILE 856
//*      I MAKE THE AVAIALABLE.                                     *   FILE 856
//*                                                                 *   FILE 856
//*      IF YOU DROP ME YOUR REAL MAILING ADDRESS, I WILL SEND      *   FILE 856
//*      YOU A REAL "SHARED SPOOL MODS" COFFEE CUP - I STILL        *   FILE 856
//*      HAVE PLENTY OF THESE.                                      *   FILE 856
//*                                                                 *   FILE 856
//***FILE 857 is from Marco Serafini and contains a REXX EXEC and   *   FILE 857
//*           several panels, to execute an interactive report      *   FILE 857
//*           against the active LOGREC dataset, or against any     *   FILE 857
//*           archived copy of LOGREC.  Tested at z/OS 1.6 thru     *   FILE 857
//*           1.10 by the author, and at z/OS 2.5 by Sam Golob.     *   FILE 857
//*                                                                 *   FILE 857
//*           This system is very nice, to be able to see what is   *   FILE 857
//*           in LOGREC, with almost no effort.                     *   FILE 857
//*                                                                 *   FILE 857
//*           There is also some word doc, but it is in Italian.    *   FILE 857
//*           Still, you can get a ton of use out of this package   *   FILE 857
//*           without reading the words of the doc, but by looking  *   FILE 857
//*           at the illustrations.                                 *   FILE 857
//*                                                                 *   FILE 857
//*           Just copy 6 panels into your panel library and run    *   FILE 857
//*           the EXEC.                                             *   FILE 857
//*                                                                 *   FILE 857
//*           email:  MARCO.SERAFINI@t-systems.it                   *   FILE 857
//*                                                                 *   FILE 857
//*           See member $$NOTE01 for more contact information.     *   FILE 857
//*                                                                 *   FILE 857
//***FILE 858 is from Jim Blalock and contains the Clemson          *   FILE 858
//*           University Structured Macros.  These are extremely    *   FILE 858
//*           useful for many purposes, including the Clemson       *   FILE 858
//*           University Service Processors, which are on           *   FILE 858
//*           File 859.                                             *   FILE 858
//*                                                                 *   FILE 858
//*       email:  Jim Blalock <carey@clemson.edu>                   *   FILE 858
//*                                                                 *   FILE 858
//***FILE 859 is from Jim Blalock and contains the Clemson          *   FILE 859
//*           University Service Processor source modules.          *   FILE 859
//*                                                                 *   FILE 859
//*       email:  Jim Blalock <carey@clemson.edu>                   *   FILE 859
//*                                                                 *   FILE 859
//*             Clemson University Service Processors               *   FILE 859
//*                                                                 *   FILE 859
//*     This library contains the source modules and macros for     *   FILE 859
//*     the Clemson University Service Processors.                  *   FILE 859
//*                                                                 *   FILE 859
//*     These materials are being made available to cbttape.org     *   FILE 859
//*     under the Apache 2.0 license.  See member $LICENSE or       *   FILE 859
//*     refer to Apache's web site at                               *   FILE 859
//*     http://www.apache.org/licenses/LICENSE-2.0                  *   FILE 859
//*                                                                 *   FILE 859
//***FILE 860 is from Gerhard Postpischil and contains quite a      *   FILE 860
//*           bit of source code.  This file is intended to be      *   FILE 860
//*           used together with Gerhard's macro collection on      *   FILE 860
//*           File 861, and with File 862.                          *   FILE 860
//*                                                                 *   FILE 860
//*       My dear friend, and programmer par excellence, Gerhard    *   FILE 860
//*       Postpischil, has passed away.  Please send support        *   FILE 860
//*       requests to:   Sam Golob  email: sbgolob@cbttape.org      *   FILE 860
//*                                                                 *   FILE 860
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - - -     *   FILE 860
//*                                                                 *   FILE 860
//*     Description and Notes for use:                              *   FILE 860
//*                                                                 *   FILE 860
//*     Files 860, 861, and 862 should really be looked at          *   FILE 860
//*     together.                                                   *   FILE 860
//*                                                                 *   FILE 860
//*     This file (860) contains (mostly) assembler programs        *   FILE 860
//*     without JCL.                                                *   FILE 860
//*                                                                 *   FILE 860
//*     File 861 contains most macros required for proper           *   FILE 860
//*     assembly.                                                   *   FILE 860
//*                                                                 *   FILE 860
//*     File 862 contains additional files with procedures,         *   FILE 860
//*     parmlib data, and other supporting material. It also        *   FILE 860
//*     contains auxiliary macros, as PVTMACS, once available       *   FILE 860
//*     from IBM on optional source material tapes. Some            *   FILE 860
//*     macros not available have been concocted from dumps         *   FILE 860
//*     or IBM documentation.                                       *   FILE 860
//*                                                                 *   FILE 860
//*     The programs all ran in production at some point, but       *   FILE 860
//*     some were used under OS/360 only, and some only under       *   FILE 860
//*     MVS/ESA and later. A few members came straight from the     *   FILE 860
//*     CBT for me to look at, but haven't been used yet (e.g.,     *   FILE 860
//*     the HASPX exits, DSAT9).                                    *   FILE 860
//*                                                                 *   FILE 860
//*     Before assembling anything, look at members OPTIONGB and    *   FILE 860
//*     SYSPARM in the macro file. If you have any of the SVCs      *   FILE 860
//*     installed, set their SVC numbers correctly (OS/360,         *   FILE 860
//*     pre-XA only - not used in later systems).  The exception    *   FILE 860
//*     is @SERVICE, described later. Note that the options have    *   FILE 860
//*     provision for ESA and later systems, but only a few         *   FILE 860
//*     members will function correctly. Note that large 3390s      *   FILE 860
//*     were never used nor tested.  If you wish to start from      *   FILE 860
//*     scratch and assemble/link everything, run the SUBnnnnn      *   FILE 860
//*     modules first, then the @nnnnnnn modules (only one of       *   FILE 860
//*     the @SRVJnnn module, matching your JES2 release; this       *   FILE 860
//*     module needs the alias @SRVJES2). Then do individual        *   FILE 860
//*     programs as desired.                                        *   FILE 860
//*                                                                 *   FILE 860
//*     Some modules will not assemble because the macros they      *   FILE 860
//*     reference (USERCVT, USERVOLT, A$GDA, ...) are parts of      *   FILE 860
//*     a proprietary security and accounting system. However,      *   FILE 860
//*     the code may still be useful as groundwork for your own     *   FILE 860
//*     adaptations.                                                *   FILE 860
//*                                                                 *   FILE 860
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - - -     *   FILE 860
//*                                                                 *   FILE 860
//*       At any given MVS system level, the users of the           *   FILE 860
//*       various programs here, may have to do some coding         *   FILE 860
//*       work to fit the programs to their current system.         *   FILE 860
//*       These programs are being presented as-is, for their       *   FILE 860
//*       educational value, and also for their utility value.      *   FILE 860
//*                                                                 *   FILE 860
//*       A bit of Gerhard's history has to be presented and        *   FILE 860
//*       explained, in order to understand this collection.        *   FILE 860
//*       Gerhard has been using MVS from the beginning.  Many      *   FILE 860
//*       programs dated in the 1980's were intended to be          *   FILE 860
//*       run on MVS SP 1.3.x.  XA and ESA followed, into the       *   FILE 860
//*       1990's.  In the 2000's, Gerhard began running MVS         *   FILE 860
//*       3.8J (the free version from circa 1975 which was          *   FILE 860
//*       highly modified in the subsequent years).  So the         *   FILE 860
//*       history of Gerhard's efforts went from MVS/SP, thru       *   FILE 860
//*       XA, thru ESA, and then back to MVS 3.8J, where he         *   FILE 860
//*       started.                                                  *   FILE 860
//*                                                                 *   FILE 860
//*       Gerhard's latest programs are, for the most part,         *   FILE 860
//*       intended to be assembled and run on MVS 3.8J, but         *   FILE 860
//*       they may, or may not, have to be fixed (but they          *   FILE 860
//*       certainly have to be assembled) for other system          *   FILE 860
//*       levels.                                                   *   FILE 860
//*                                                                 *   FILE 860
//*       There is immense value in this collection,                *   FILE 860
//*       because of the great range of topics covered in           *   FILE 860
//*       the programs.  Although many of the programs were         *   FILE 860
//*       originally taken from the CBT Tape, Gerhard has           *   FILE 860
//*       conscientiously fixed many bugs in them, over the         *   FILE 860
//*       years.                                                    *   FILE 860
//*                                                                 *   FILE 860
//*       If you changed something and made it useful, or you       *   FILE 860
//*       made it runnable at a certain system level, please        *   FILE 860
//*       send the changed program(s) back to Sam Golob             *   FILE 860
//*       (sbgolob@cbttape.org), as a courtesy, so that other       *   FILE 860
//*       people won't have to do the same work over again.         *   FILE 860
//*                                                                 *   FILE 860
//*       If you have any question about what was done to any       *   FILE 860
//*       specific program, or why he wrote any specific macro,     *   FILE 860
//*       you should try to email Gerhard or call him, for          *   FILE 860
//*       further information.  You should look at pds member       *   FILE 860
//*       DOC on File 862 to learn more about some of the           *   FILE 860
//*       programs that are here.                                   *   FILE 860
//*                                                                 *   FILE 860
//***FILE 861 is from Gerhard Postpischil and contains his macro    *   FILE 861
//*           library.  This file is intended to be used for        *   FILE 861
//*           assembling Gerhard's source code in File 860 and      *   FILE 861
//*           File 862.                                             *   FILE 861
//*                                                                 *   FILE 861
//*       My dear friend, and programmer par excellence, Gerhard    *   FILE 861
//*       Postpischil, has passed away.  Please send support        *   FILE 861
//*       requests to:   Sam Golob  email: sbgolob@cbttape.org      *   FILE 861
//*                                                                 *   FILE 861
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - - -     *   FILE 861
//*                                                                 *   FILE 861
//*     Description and Notes for use:                              *   FILE 861
//*                                                                 *   FILE 861
//*     Files 860, 861, and 862 should really be looked at          *   FILE 861
//*     together.                                                   *   FILE 861
//*                                                                 *   FILE 861
//*     This file (860) contains (mostly) assembler programs        *   FILE 861
//*     without JCL.                                                *   FILE 861
//*                                                                 *   FILE 861
//*     File 861 contains most macros required for proper           *   FILE 861
//*     assembly.                                                   *   FILE 861
//*                                                                 *   FILE 861
//*     File 862 contains additional files with procedures,         *   FILE 861
//*     parmlib data, and other supporting material. It also        *   FILE 861
//*     contains auxiliary macros, as PVTMACS, once available       *   FILE 861
//*     from IBM on optional source material tapes. Some            *   FILE 861
//*     macros not available have been concocted from dumps         *   FILE 861
//*     or IBM documentation.                                       *   FILE 861
//*                                                                 *   FILE 861
//*     The programs all ran in production at some point, but       *   FILE 861
//*     some were used under OS/360 only, and some only under       *   FILE 861
//*     MVS/ESA and later. A few members came straight from the     *   FILE 861
//*     CBT for me to look at, but haven't been used yet (e.g.,     *   FILE 861
//*     the HASPX exits, DSAT9).                                    *   FILE 861
//*                                                                 *   FILE 861
//*     Before assembling anything, look at members OPTIONGB and    *   FILE 861
//*     SYSPARM in the macro file. If you have any of the SVCs      *   FILE 861
//*     installed, set their SVC numbers correctly (OS/360,         *   FILE 861
//*     pre-XA only - not used in later systems).  The exception    *   FILE 861
//*     is @SERVICE, described later. Note that the options have    *   FILE 861
//*     provision for ESA and later systems, but only a few         *   FILE 861
//*     members will function correctly. Note that large 3390s      *   FILE 861
//*     were never used nor tested.  If you wish to start from      *   FILE 861
//*     scratch and assemble/link everything, run the SUBnnnnn      *   FILE 861
//*     modules first, then the @nnnnnnn modules (only one of       *   FILE 861
//*     the @SRVJnnn module, matching your JES2 release; this       *   FILE 861
//*     module needs the alias @SRVJES2). Then do individual        *   FILE 861
//*     programs as desired.                                        *   FILE 861
//*                                                                 *   FILE 861
//*     Some modules will not assemble because the macros they      *   FILE 861
//*     reference (USERCVT, USERVOLT, A$GDA, ...) are parts of      *   FILE 861
//*     a proprietary security and accounting system. However,      *   FILE 861
//*     the code may still be useful as groundwork for your own     *   FILE 861
//*     adaptations.                                                *   FILE 861
//*                                                                 *   FILE 861
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - - -     *   FILE 861
//*       At any given MVS system level, the users of the           *   FILE 861
//*       various programs here, may have to do some coding         *   FILE 861
//*       work to fit the programs to their current system.         *   FILE 861
//*       These programs are being presented as-is, for their       *   FILE 861
//*       intrinsic utility value.                                  *   FILE 861
//*                                                                 *   FILE 861
//*       Please see our explanation of the source code in          *   FILE 861
//*       File 860 to better understand what this collection        *   FILE 861
//*       is about.                                                 *   FILE 861
//*                                                                 *   FILE 861
//*       If you have any question about any specific macros        *   FILE 861
//*       mentioned here, please email Gerhard or call him,         *   FILE 861
//*       for further information.                                  *   FILE 861
//*                                                                 *   FILE 861
//*       If Gerhard has time in the future, he may write           *   FILE 861
//*       some more doc.  See also, member DOC in File 862.         *   FILE 861
//*                                                                 *   FILE 861
//***FILE 862 is from Gerhard Postpischil and contains members      *   FILE 862
//*           which are each really IEBUPDTE (PDSLOAD) unloaded     *   FILE 862
//*           pds'es.  These are related to Gerhard's contributions *   FILE 862
//*           on Files 860 and 861, but they are in addition to     *   FILE 862
//*           them.  And some of his documentation in the DOC       *   FILE 862
//*           member, may apply to the materials in File 860.       *   FILE 862
//*                                                                 *   FILE 862
//*       My dear friend, and programmer par excellence, Gerhard    *   FILE 862
//*       Postpischil, has passed away.  Please send support        *   FILE 862
//*       requests to:   Sam Golob  email: sbgolob@cbttape.org      *   FILE 862
//*                                                                 *   FILE 862
//*           Member LOADLIB is in TSO XMIT format.                 *   FILE 862
//*                                                                 *   FILE 862
//*           Member REVLMOD is in REVIEW REVLMOD format, to help   *   FILE 862
//*           the MVS 3.8 people recreate the load library.         *   FILE 862
//*                                                                 *   FILE 862
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - - -     *   FILE 862
//*                                                                 *   FILE 862
//*     Description and Notes for use:                              *   FILE 862
//*                                                                 *   FILE 862
//*     Files 860, 861, and 862 should really be looked at          *   FILE 862
//*     together.                                                   *   FILE 862
//*                                                                 *   FILE 862
//*     This file (860) contains (mostly) assembler programs        *   FILE 862
//*     without JCL.                                                *   FILE 862
//*                                                                 *   FILE 862
//*     File 861 contains most macros required for proper           *   FILE 862
//*     assembly.                                                   *   FILE 862
//*                                                                 *   FILE 862
//*     File 862 contains additional files with procedures,         *   FILE 862
//*     parmlib data, and other supporting material. It also        *   FILE 862
//*     contains auxiliary macros, as PVTMACS, once available       *   FILE 862
//*     from IBM on optional source material tapes. Some            *   FILE 862
//*     macros not available have been concocted from dumps         *   FILE 862
//*     or IBM documentation.                                       *   FILE 862
//*                                                                 *   FILE 862
//*     The programs all ran in production at some point, but       *   FILE 862
//*     some were used under OS/360 only, and some only under       *   FILE 862
//*     MVS/ESA and later. A few members came straight from the     *   FILE 862
//*     CBT for me to look at, but haven't been used yet (e.g.,     *   FILE 862
//*     the HASPX exits, DSAT9).                                    *   FILE 862
//*                                                                 *   FILE 862
//*     Before assembling anything, look at members OPTIONGB and    *   FILE 862
//*     SYSPARM in the macro file. If you have any of the SVCs      *   FILE 862
//*     installed, set their SVC numbers correctly (OS/360,         *   FILE 862
//*     pre-XA only - not used in later systems).  The exception    *   FILE 862
//*     is @SERVICE, described later. Note that the options have    *   FILE 862
//*     provision for ESA and later systems, but only a few         *   FILE 862
//*     members will function correctly. Note that large 3390s      *   FILE 862
//*     were never used nor tested.  If you wish to start from      *   FILE 862
//*     scratch and assemble/link everything, run the SUBnnnnn      *   FILE 862
//*     modules first, then the @nnnnnnn modules (only one of       *   FILE 862
//*     the @SRVJnnn module, matching your JES2 release; this       *   FILE 862
//*     module needs the alias @SRVJES2). Then do individual        *   FILE 862
//*     programs as desired.                                        *   FILE 862
//*                                                                 *   FILE 862
//*     Some modules will not assemble because the macros they      *   FILE 862
//*     reference (USERCVT, USERVOLT, A$GDA, ...) are parts of      *   FILE 862
//*     a proprietary security and accounting system. However,      *   FILE 862
//*     the code may still be useful as groundwork for your own     *   FILE 862
//*     adaptations.                                                *   FILE 862
//*                                                                 *   FILE 862
//***FILE 863 is from Jim Callihan and contains an IKJEFF10 TSO     *   FILE 863
//*           SUBMIT exit that originally came from PRC's CBT tape  *   FILE 863
//*           File 369.  It stopped working from z/OS 1.12 to 1.13  *   FILE 863
//*           because of a change in control blocks, and Jim found  *   FILE 863
//*           a different way to obtain the information, which,     *   FILE 863
//*           by the way, also works on old systems back to OS/390  *   FILE 863
//*           1.3 (the first Y2K compliant MVS release).  So (I     *   FILE 863
//*           think) you can use this version of the exit on older  *   FILE 863
//*           systems too.                                          *   FILE 863
//*                                                                 *   FILE 863
//*           The exit inserts a comment line in the JCL source,    *   FILE 863
//*           telling you where the JCL in the job came from.       *   FILE 863
//*                                                                 *   FILE 863
//*           For example:                                          *   FILE 863
//*                                                                 *   FILE 863
//*   //*ISPF EDIT OF SBGOLOB.B.ASM(IKJEFF1$)                       *   FILE 863
//*           or                                                    *   FILE 863
//*   //*JCL: SBGOLOB SUBMIT   'SBGOLOB.CBT484.FILE863(IKJEFF1$)'   *   FILE 863
//*                                                                 *   FILE 863
//*           email:  James.R.Callihan@salliemae.com                *   FILE 863
//*                                                                 *   FILE 863
//*           email:  sbgolob@cbttape.org                           *   FILE 863
//*                                                                 *   FILE 863
//***FILE 864 is from John McKown and contains UNIX shell commands  *   FILE 864
//*           for z/OS which he wrote, to run under z/OS UNIX.      *   FILE 864
//*           The commands are as described below, and are meant    *   FILE 864
//*           to be compiled (using make) under z/OS UNIX only.     *   FILE 864
//*                                                                 *   FILE 864
//*       This package is in alpha status, currently.  Folks        *   FILE 864
//*       are encouraged to try it out and write to the author      *   FILE 864
//*       about fixes and improvement suggestions.                  *   FILE 864
//*                                                                 *   FILE 864
//*       email:  "McKown, John" <john.archie.mckown@GMAIL.com>     *   FILE 864
//*                                                                 *   FILE 864
//*    Below is a description of the contents and idea of this      *   FILE 864
//*    file.  See the pds member called $$README for further        *   FILE 864
//*    detail.                                                      *   FILE 864
//*                                                                 *   FILE 864
//*    This is an alpha version of my UNIX tools. Many of the       *   FILE 864
//*    files are simply skeletons at present. Only a few work       *   FILE 864
//*    completely. The man pages (documentation) are                *   FILE 864
//*    definitely a work in progress.                               *   FILE 864
//*                                                                 *   FILE 864
//*    Note that the assembler source is not formatted properly     *   FILE 864
//*    to be read using only ASMA90.  It requires that you have     *   FILE 864
//*    FLOWASM installed in either a library in the link list,      *   FILE 864
//*    or in a library assigned to the UNIX STEPLIB environment     *   FILE 864
//*    variable.  The system is set up to do compiles in a UNIX     *   FILE 864
//*    shell by using the make command, which references the        *   FILE 864
//*    makefile file.                                               *   FILE 864
//*                                                                 *   FILE 864
//*    FLOWASM is on CBT Tape File 724.                             *   FILE 864
//*                                                                 *   FILE 864
//*    You start by changing the UNPAX job to point to an           *   FILE 864
//*    existent UNIX subdirectory in which a new subdirectory       *   FILE 864
//*    called utilities-1 will be created. The files in the pax     *   FILE 864
//*    archive, member UTILPAXZ, will be extracted into this        *   FILE 864
//*    directory.                                                   *   FILE 864
//*                                                                 *   FILE 864
//*    Once you have extracted the files, you may run the job       *   FILE 864
//*    in the member MAKEALL to compile and link all the            *   FILE 864
//*    programs. You need to change this job to point to the        *   FILE 864
//*    same subdirectory as in the UNPAX job.  The output will      *   FILE 864
//*    be placed in this same subdirectory.  This is not really     *   FILE 864
//*    necessary because the executable programs are already in     *   FILE 864
//*    the subdirectory.                                            *   FILE 864
//*                                                                 *   FILE 864
//*    There are many extraneous files in this subdirectory         *   FILE 864
//*    because I haven't cleaned it up yet. The ones which          *   FILE 864
//*    actually work are:                                           *   FILE 864
//*                                                                 *   FILE 864
//*    ams - Invokes the IDCAMS batch program, redirecting          *   FILE 864
//*          SYSIN from the UNIX "stdin" and the SYSPRINT to        *   FILE 864
//*          "stdout". The source is in ams.s.                      *   FILE 864
//*                                                                 *   FILE 864
//*    isgquery.o - is a subroutine (object code) used by lsenq     *   FILE 864
//*          which does the ISGQUERY macro. The source is in        *   FILE 864
//*          isgquery.s.                                            *   FILE 864
//*                                                                 *   FILE 864
//*    lsdasd - Lists the space on all on-line DASD volumes. I      *   FILE 864
//*             plan, some day, to include the storage group        *   FILE 864
//*             name for SMS managed volumes in the output, and     *   FILE 864
//*             to allow specification of volume series, with       *   FILE 864
//*             "wildcarding" to subset the list. The source is     *   FILE 864
//*             in lsdasd.s.                                        *   FILE 864
//*                                                                 *   FILE 864
//*    lsenq - Lists enqueue information. You can specify a         *   FILE 864
//*            resource name, with wildcarding. You may also        *   FILE 864
//*            specify an queue name. If a queue name is not        *   FILE 864
//*            specified, it defaults to SYSDSN. The queue name     *   FILE 864
//*            can also be wild carded. Also, if (and only if)      *   FILE 864
//*            the queue name is defaulted, the resource name       *   FILE 864
//*            is assumed to be a dataset name and is upper         *   FILE 864
//*            cased.  Syntax: lsenq [[qname] [rname]].             *   FILE 864
//*                                                                 *   FILE 864
//*    mkjcl - is a shell script, not a compiled program. It        *   FILE 864
//*            reads a "template" file, which is specified on       *   FILE 864
//*            the command line, and modifies it by replacing       *   FILE 864
//*            embedded UNIX-style variables with their values.     *   FILE 864
//*            It writes its output to "stdout" so that it may      *   FILE 864
//*            be piped to a subsequent command, such as            *   FILE 864
//*            "submit". The variables are passed to the            *   FILE 864
//*            command as shell environment variables, via the      *   FILE 864
//*            export command, or on the command line itself.       *   FILE 864
//*            This is the normal way that named variables are      *   FILE 864
//*            done in UNIX.  An example of a template jcl is       *   FILE 864
//*            supplied in the "iefbr14.jcl" file.                  *   FILE 864
//*                                                                 *   FILE 864
//*    All files which have file name of SKELETON are just          *   FILE 864
//*    that, my SKELETON files which I use as the basis for the     *   FILE 864
//*    actual program code. The suffix specifies the language.      *   FILE 864
//*    ".1" for man source files. ".cat1" for "compiled" man        *   FILE 864
//*    source files. ".a" for "library archive" files (which        *   FILE 864
//*    contain object code for subroutines which are                *   FILE 864
//*    "statically linked").  ".awk" for awk source files. ".o"     *   FILE 864
//*    for compiled object files. ".pl" for Perl source files.      *   FILE 864
//*    ".rexx" for rexx programs. ".sh" for shell script files.     *   FILE 864
//*    ".s" for HLASM source files.                                 *   FILE 864
//*                                                                 *   FILE 864
//*    Some of the other ".s" files are for things I am still       *   FILE 864
//*    planning for.                                                *   FILE 864
//*                                                                 *   FILE 864
//***FILE 865 is a FREE zip/unzip program for MVS from Jason Winter *   FILE 865
//*           who used his JCC C-language compiler to port it to    *   FILE 865
//*           the MVS platform.  The zip program is called MINIZIP  *   FILE 865
//*           and the unzip program is called MINIUNZ.              *   FILE 865
//*                                                                 *   FILE 865
//*           MINIZIP and MINIUNZ (unzip) were incorporated into    *   FILE 865
//*           Greg Price's load module library (CBT File 135) for   *   FILE 865
//*           the use of unzipping sequential zip files which were  *   FILE 865
//*           to be browsed with the REVIEW program.                *   FILE 865
//*                                                                 *   FILE 865
//*           I have tried to package MINIZIP and MINIUNZ here,     *   FILE 865
//*           to be used independently for zipping and unzipping    *   FILE 865
//*           files under MVS.  They do have some limitations.      *   FILE 865
//*           See the supplied sample JCL in this file.             *   FILE 865
//*                                                                 *   FILE 865
//*           For now, it appears that the usefulness of these      *   FILE 865
//*           programs is for a shop that needs to handle zipped    *   FILE 865
//*           files on an MVS (z/OS) system and can't afford, or    *   FILE 865
//*           doesn't want to have to "trial" one of the expensive  *   FILE 865
//*           zipping/unzipping programs that are sold for MVS.     *   FILE 865
//*                                                                 *   FILE 865
//*           In our limited tests, it appears that MINIUNZ can     *   FILE 865
//*           unzip files that were zipped using other packages,    *   FILE 865
//*           correctly.  You will have to discover this for        *   FILE 865
//*           yourself.  Please report any discoveries back to      *   FILE 865
//*           us, so that we can improve the usefulness of this     *   FILE 865
//*           product for MVS (z/OS) shops.                         *   FILE 865
//*                                                                 *   FILE 865
//*           Belinda Tinsley has tested MINIZIP and MINIUNZ, and   *   FILE 865
//*           has developed JCL to make them work in batch jobs     *   FILE 865
//*           under z/OS.  See members $$NOTE0x.  JCL was tested    *   FILE 865
//*           by S.Golob.  See members ZIPxx and UNZxx.             *   FILE 865
//*                                                                 *   FILE 865
//*           email:  sbgolob@cbttape.org                           *   FILE 865
//*                                                                 *   FILE 865
//*           email:  belinda.tinsley@tnb.com                       *   FILE 865
//*                                                                 *   FILE 865
//*           email:  jasonwinter@hotmail.com                       *   FILE 865
//*                                                                 *   FILE 865
//***FILE 866 is from Vladimir Mestovski and contains a program     *   FILE 866
//*           called BSPUFI (Batch SPUFI or C SQL-DB2-TSO           *   FILE 866
//*           Processor)                                            *   FILE 866
//*                                                                 *   FILE 866
//*   Author      :  Vladimir Mestovski, IBA, Minsk, Belarus        *   FILE 866
//*   ------      :  v2gri033@us.ibm.com  -- preferred for bugs     *   FILE 866
//*               :  mestovsky@iba.by     -- additional email       *   FILE 866
//*               :  This program is for free use, not for sale.    *   FILE 866
//*                                                                 *   FILE 866
//*   Short description:                                            *   FILE 866
//*                                                                 *   FILE 866
//*     The program reads an input file with SQL/DB2/TSO            *   FILE 866
//*     statements/ commands and executes them. After each SQL      *   FILE 866
//*     the program prints out CPU and TOTAL times what helps to    *   FILE 866
//*     create effective SQL.  You can start SQL statements with    *   FILE 866
//*     special internal commands like WRITE for a SELECT to        *   FILE 866
//*     redirect its report in different formats                    *   FILE 866
//*     (CSV,TAB,ASIS,RPT,...) to a flat file or internal data      *   FILE 866
//*     stacks, or READ for an INSERT to load input into a          *   FILE 866
//*     table.  You can program conditional execution of SQL        *   FILE 866
//*     statements using labels, special variables RC[n] and        *   FILE 866
//*     commands IF,GOTO/SKIP...  See other features of "mySQL      *   FILE 866
//*     for zOS" in the program's header.                           *   FILE 866
//*                                                                 *   FILE 866
//*   List of members:                                              *   FILE 866
//*                                                                 *   FILE 866
//*     BSPUFI  -- source C code                                    *   FILE 866
//*     CBSPUFI -- compile/bind job                                 *   FILE 866
//*     DEMOJOB -- demo job                                         *   FILE 866
//*     DEMOSQL -- main input SQL for demo job                      *   FILE 866
//*     DEMOSQL1-- aux input SQL for demo job                       *   FILE 866
//*     SQL     -- ISPF Edit Macro to run the program               *   FILE 866
//*                in interactive mode                              *   FILE 866
//*                                                                 *   FILE 866
//***FILE 867 is from somitcw and contains programs to help in      *   FILE 867
//*           transporting data files from one system to another.   *   FILE 867
//*                                                                 *   FILE 867
//*               email:  somitcw@yahoo.com                         *   FILE 867
//*                                                                 *   FILE 867
//*    Programs:                                                    *   FILE 867
//*                                                                 *   FILE 867
//*    RDW2VB   - Program which supplies Block Descriptor Words     *   FILE 867
//*               (BDW's) to a dataset that was FTP'ed from         *   FILE 867
//*               somewhere else, to properly reconstruct a VB      *   FILE 867
//*               file from a VB file that was FTP'ed to a PC       *   FILE 867
//*               previously.                                       *   FILE 867
//*                                                                 *   FILE 867
//*               The problem is:  When you ftp a RECFM=VB          *   FILE 867
//*               data set to a PC as binary the default is         *   FILE 867
//*               to remove any record indicator.  If               *   FILE 867
//*               locsite rdw or quote site rdw is                  *   FILE 867
//*               specified then the RDW is saved but there         *   FILE 867
//*               is no standard way to return the data to          *   FILE 867
//*               the main frame and reconstruct a RECFM=VB         *   FILE 867
//*               data set.                                         *   FILE 867
//*                                                                 *   FILE 867
//*               This program will copy the binary data            *   FILE 867
//*               with RDWs to a RECFM=VB data set.                 *   FILE 867
//*                                                                 *   FILE 867
//*    RECU2AWS - This program copies the blocks of a               *   FILE 867
//*               sequential data set or member to an AWSTAPE       *   FILE 867
//*               image data set.  It pretends that the input       *   FILE 867
//*               is RECFM=U whether it is or not to use QSAM       *   FILE 867
//*               to read blocks of data instead of logical         *   FILE 867
//*               records.                                          *   FILE 867
//*                                                                 *   FILE 867
//*               Note: RECU2AWS may be replaced with a program     *   FILE 867
//*               DSET2AWS that uses BSAM for input as soon as      *   FILE 867
//*               I have time.                                      *   FILE 867
//*                                                                 *   FILE 867
//*               Override note: I have not written DSET2AWS        *   FILE 867
//*               but changed this program to also handle           *   FILE 867
//*               RECFM=FB and RECFM=VB input.                      *   FILE 867
//*                                                                 *   FILE 867
//*               Warning: this program is for sequential data,     *   FILE 867
//*               not a PDS.  Trying to use it on a PDS would       *   FILE 867
//*               only get the directory.                           *   FILE 867
//*                                                                 *   FILE 867
//***FILE 868 is from Claudio Mauceri, and contains a program to    *   FILE 868
//*           do a track-by-track compare of two offline DASD       *   FILE 868
//*           packs.                                                *   FILE 868
//*                                                                 *   FILE 868
//*           email:  Claudio.Mauceri@hds.com                       *   FILE 868
//*                                                                 *   FILE 868
//*     Note from Sam Golob:  It seems to me that the packs are     *   FILE 868
//*          not REQUIRED to be offline.  I tested with one pack    *   FILE 868
//*          online and one pack offline.  Since they had the       *   FILE 868
//*          same volser, only one could be online at a time.       *   FILE 868
//*                                                                 *   FILE 868
//*     Version 0.2.0 of DISKCOMP has EAV support.                  *   FILE 868
//*                                                                 *   FILE 868
//*     Version 0.1.0 of DISKCOMP is member DSKCMP01 of this pds.   *   FILE 868
//*                                                                 *   FILE 868
//*     DESCRIPTION:                                                *   FILE 868
//*                                                                 *   FILE 868
//*     Recently we have had a specific necessity, so the           *   FILE 868
//*     attached program has been created.                          *   FILE 868
//*                                                                 *   FILE 868
//*     It is a simple (?) assembler program able to perform a      *   FILE 868
//*     track-by-track compare of two offline dasd packs.           *   FILE 868
//*                                                                 *   FILE 868
//*     Because I believe it could of interest for someone          *   FILE 868
//*     else, I've decided to send it to you to see if it could     *   FILE 868
//*     be suitable for cbttape.                                    *   FILE 868
//*                                                                 *   FILE 868
//*     Its invocation is pretty simple and intuitive, so I'm       *   FILE 868
//*     not sure if further explanations and comments are           *   FILE 868
//*     needed:  (See member SAMPJCL for JCL examples.)             *   FILE 868
//*                                                                 *   FILE 868
//*     *   Invocation:                                             *   FILE 868
//*     *      //step   EXEC PGM=DISKCOMP,                          *   FILE 868
//*     *      //       PARM='unit1,unit2,locyl,hicyl,msgddn'       *   FILE 868
//*     *      //STEPLIB  DD DISP=SHR,DSN=apf.authorized.loadlib    *   FILE 868
//*     *      //msgddn   DD SYSOUT=*                               *   FILE 868
//*     *                                                           *   FILE 868
//*     *    locyl, hicyl and msgddn are optional                   *   FILE 868
//*     *                                                           *   FILE 868
//*     *    locyl defaults to 0                                    *   FILE 868
//*     *    hicyl defaults to highest cylinder on smallest unit    *   FILE 868
//*     *    msgddn defaults to SYSPRINT                            *   FILE 868
//*                                                                 *   FILE 868
//***FILE 869 is from Jan Ott and contains a program to do a        *   FILE 869
//*           GETMAIN-FREEMAIN trace to see track the origin of     *   FILE 869
//*           storage requests.                                     *   FILE 869
//*                                                                 *   FILE 869
//*           email:  Jan_Ott@bmc.com                               *   FILE 869
//*                                                                 *   FILE 869
//*     It processes getmain freemain traces, reporting on          *   FILE 869
//*     leftover memory and interrogates one or more reference      *   FILE 869
//*     svcdumps for leftover memory contents and identification    *   FILE 869
//*     of allocation psw's.                                        *   FILE 869
//*                                                                 *   FILE 869
//***FILE 870 is from Rick Turnbull and contains a collection of    *   FILE 870
//*           REXX scripts designed to execute from the z/OS HTTP   *   FILE 870
//*           environment under OMVS.  They aid in retrieving       *   FILE 870
//*           information from and to the user's browser.           *   FILE 870
//*                                                                 *   FILE 870
//*     Note:  Rick Turnbull has passed away.  In order to          *   FILE 870
//*            preserve his good work, for his honor, please        *   FILE 870
//*            (if you fix any problems with this file) send        *   FILE 870
//*            your fixes to:  sbgolob@cbttape.org                  *   FILE 870
//*            so that this product will continue to be of          *   FILE 870
//*            service to the public.  If it now works fine,        *   FILE 870
//*            please continue using it.                            *   FILE 870
//*                                                                 *   FILE 870
//*                                                                 *   FILE 870
//*     Additional reference email:                                 *   FILE 870
//*                                                                 *   FILE 870
//*            Rich Szabo <rich.szabo@stateauto.com>                *   FILE 870
//*                                                                 *   FILE 870
//*                                                                 *   FILE 870
//*     HTTP scripts that aid in WEB page presentation, "Get"       *   FILE 870
//*     and "POST" variable retrieval, and animated bar chart       *   FILE 870
//*     creation.  Provides for "File Tailoring" functionality      *   FILE 870
//*     much like that is found in ISPF.  Easily submit a job,      *   FILE 870
//*     display a web page, or send out an email with ease from     *   FILE 870
//*     a "cgi-bin" script using pre-written templates.  Create     *   FILE 870
//*     a bar chart using Microsoft's Silverlight browser           *   FILE 870
//*     plug-in.                                                    *   FILE 870
//*                                                                 *   FILE 870
//*     Notes:  See member $$NOTE01.                                *   FILE 870
//*                                                                 *   FILE 870
//*     The attached will eventually restore down to the            *   FILE 870
//*     following REXX scripts and Word documents.  These           *   FILE 870
//*     scripts were created to be executed within a Z/OS HTTP      *   FILE 870
//*     (the default HTTP, not Websphere) USS environment.  They    *   FILE 870
//*     aid in retrieving and displaying information from and to    *   FILE 870
//*     the user's browser.  A slightly more detailed               *   FILE 870
//*     description follows.  The PDS for this file, will           *   FILE 870
//*     contain the following members:                              *   FILE 870
//*                                                                 *   FILE 870
//*     $$INDEX  - An explanation of the other members              *   FILE 870
//*     $CONTACT - A Way to contact me for questions                *   FILE 870
//*     $DOC     - The information that follows in this email       *   FILE 870
//*     $INSTALL - How to restore the PAX member                    *   FILE 870
//*     PAX      - A PAX file containing the included files         *   FILE 870
//*                                                                 *   FILE 870
//*     Once you have executed the $INSTALL instructions, you       *   FILE 870
//*     should be able to view several REXX scripts which are       *   FILE 870
//*     briefly discussed in the member $$NOTE01.                   *   FILE 870
//*                                                                 *   FILE 870
//*     These scripts are mainly used within a Z/OS USS (Unix       *   FILE 870
//*     System Services) HTTP "cgi-bin" environment. I've only      *   FILE 870
//*     used these in the standard default HTTP arena. I have       *   FILE 870
//*     never tried them within Websphere.                          *   FILE 870
//*                                                                 *   FILE 870
//***FILE 871 is from Roland Scholz and contains two un-XMIT        *   FILE 871
//*           applications to view XMIT-format files.               *   FILE 871
//*                                                                 *   FILE 871
//*                1-  un-XMIT under Android     (XMIT***)          *   FILE 871
//*                2-  un-XMIT under Windows     (JXMIT***)         *   FILE 871
//*                                                                 *   FILE 871
//*           One application, using members prefixed by XMIT***    *   FILE 871
//*           in this pds, is an Android app, and you can use it    *   FILE 871
//*           to look at XMIT-format files on your Android phone.   *   FILE 871
//*                                                                 *   FILE 871
//*           The other application, using members prefixed by      *   FILE 871
//*           JXMIT***, is an un-XMIT application that runs under   *   FILE 871
//*           Windows on the PC.  (I tested it on a Windows 7 -     *   FILE 871
//*           64-bit system, and it worked fine.  SG)               *   FILE 871
//*                                                                 *   FILE 871
//*           ---------------------------------------------------   *   FILE 871
//*                                                                 *   FILE 871
//*           Both applications run JAVA under Eclipse.             *   FILE 871
//*           Under Windows, you need at least JAVA 1.6 or 1.7.     *   FILE 871
//*                                                                 *   FILE 871
//*           ---------------------------------------------------   *   FILE 871
//*                                                                 *   FILE 871
//*     >>>>  The Windows app:                                      *   FILE 871
//*                                                                 *   FILE 871
//*           See member JXMITJR$ to see how to install and run     *   FILE 871
//*           this application on the PC, to un-XMIT files on       *   FILE 871
//*           the PC.                                               *   FILE 871
//*                                                                 *   FILE 871
//*     >>>>  The Android app:                                      *   FILE 871
//*                                                                 *   FILE 871
//*           This is the ultimate app for receiving Xmit files     *   FILE 871
//*           generated on IBM-mainframes with your Android device. *   FILE 871
//*           You will also need a file-manager and a text-editor.  *   FILE 871
//*                                                                 *   FILE 871
//*           I suggest these two free products that can be gotten  *   FILE 871
//*           from the Android (Play) Market:                       *   FILE 871
//*                                                                 *   FILE 871
//*           - OI File Manager                                     *   FILE 871
//*           - Jota Text Editor                                    *   FILE 871
//*                                                                 *   FILE 871
//*           This file has several members which you can download  *   FILE 871
//*           to a PC in BINARY and use there.  All the materials   *   FILE 871
//*           that you'll need for the installations, should be     *   FILE 871
//*           here.                                                 *   FILE 871
//*                                                                 *   FILE 871
//*           You'll have to unzip (unjar) the materials on the     *   FILE 871
//*           PC to see all the doc.                                *   FILE 871
//*                                                                 *   FILE 871
//*           These members are:                                    *   FILE 871
//*                                                                 *   FILE 871
//*           JXMITJR   - binary upload of a zip of jxmit.jar       *   FILE 871
//*           JXMITJR$  - instructions how to use   jxmit.jar       *   FILE 871
//*           JXMITCMD  - the command that fires up jxmit.jar       *   FILE 871
//*           JXMITZIP  - binary upload of jxmit.zip                *   FILE 871
//*           XMITAPK   - binary upload of xmit.apk (Android app)   *   FILE 871
//*           XMITZIP   - binary upload of xmit.zip                 *   FILE 871
//*                                                                 *   FILE 871
//*           email:  roland_scholz@web.de                          *   FILE 871
//*                                                                 *   FILE 871
//*     JXMIT*** - XMIT application that runs on the PC (Windows).  *   FILE 871
//*                                                                 *   FILE 871
//*     XMIT***  - XMIT application that runs on the Android.       *   FILE 871
//*                                                                 *   FILE 871
//*     ---------------------------------------------------------   *   FILE 871
//*                                                                 *   FILE 871
//*     XMITZIP is source code which fits into Eclipse, and which   *   FILE 871
//*             will enable you to further develop the Android      *   FILE 871
//*             app.                                                *   FILE 871
//*                                                                 *   FILE 871
//*     XMITAPK is the Android app for the Android phone.           *   FILE 871
//*                                                                 *   FILE 871
//*     JXMITCMD is the command which runs jxmit.jar on the PC.     *   FILE 871
//*                                                                 *   FILE 871
//*     JXMITJR is a zip of the JAVA application which runs         *   FILE 871
//*             on Windows on the PC.  (jxmit.jar).  I had to       *   FILE 871
//*             zip it to package it on MVS, to preserve its        *   FILE 871
//*             characteristics and its usability under JAVA 1.6.   *   FILE 871
//*                                                                 *   FILE 871
//*     JXMITZIP is the source code into Eclipse, which will        *   FILE 871
//*             enable you to further enhance or fix the            *   FILE 871
//*             jxmit.jar application.                              *   FILE 871
//*                                                                 *   FILE 871
//***FILE 872 is from Roland Scholz and contains a port of Julian   *   FILE 872
//*           Seward's bzip2 compression library to z/OS.           *   FILE 872
//*                                                                 *   FILE 872
//*           email:  roland_scholzυweb.de                          *   FILE 872
//*                   Roland.Scholz@talanx.com                      *   FILE 872
//*                                                                 *   FILE 872
//*           email:  jseward@bzip.org                              *   FILE 872
//*                                                                 *   FILE 872
//***FILE 873 is from Sam Golob, and contains programs and macros   *   FILE 873
//*           to help you do non-APF-authorized UCB scans of real   *   FILE 873
//*           UCB's, using the ULUT (UCB Lookup Table), an          *   FILE 873
//*           undocumented IBM interface that was researched by     *   FILE 873
//*           Gilbert Saint-flour.                                  *   FILE 873
//*                                                                 *   FILE 873
//*       If the UCB's are not going to be changed, there is        *   FILE 873
//*       negligible harm in obtaining them this way.  I think      *   FILE 873
//*       that you don't have to PIN what you are not going to      *   FILE 873
//*       change.                                                   *   FILE 873
//*                                                                 *   FILE 873
//*       Several macros:  ULUINIT and ULUSCAN, were created        *   FILE 873
//*        to simplify the coding of programs that use this         *   FILE 873
//*        UCB lookup method.  ULUDSECT describes the work          *   FILE 873
//*        area used by ULUINIT and ULUSCAN.                        *   FILE 873
//*                                                                 *   FILE 873
//*       The 31-bit versions of these programs were tested         *   FILE 873
//*       to work on MVS systems ranging from ESA 5.2.2 thru        *   FILE 873
//*       z/OS 2.1 (before the PTFs described below).               *   FILE 873
//*                                                                 *   FILE 873
//*       For ULUT Type 3 (and later), the ULUT is now located      *   FILE 873
//*       in 64-bit storage.  This is for z/OS 2.2 forward, and for *   FILE 873
//*       PTF levels in z/OS 2.1 and 1.13.  (UA90741 - PUT 1412)    *   FILE 873
//*                                                                 *   FILE 873
//*          UA90741 - HBB7790 - z/OS 2.1                           *   FILE 873
//*          UA90740 - HBB7780 - z/OS 1.13                          *   FILE 873
//*          UA90742 - JBB778H - z/OS 1.13 - on top of UA90740      *   FILE 873
//*                                                                 *   FILE 873
//*       The 64-bit ULUT load modules of our programs were         *   FILE 873
//*       tested on systems ranging from z/OS 1.2 thru z/OS 2.5.    *   FILE 873
//*                                                                 *   FILE 873
//*       To assemble these programs, the assembler needs to        *   FILE 873
//*       recognize 64-bit instructions:  SAM64, SAM31, LLGTF,      *   FILE 873
//*       LG, STG, and so forth.  The operating system level        *   FILE 873
//*       needs to recognize the new opcodes.  (X'01' for SAM64     *   FILE 873
//*       and SAM31, and so forth.)                                 *   FILE 873
//*                                                                 *   FILE 873
//*       For a thorough explanation, please see the pds            *   FILE 873
//*       member $ULUNOTE, and look at the new code in the          *   FILE 873
//*       ULUINIT, ULUSCAN, and ULUDSECT macros.                    *   FILE 873
//*                                                                 *   FILE 873
//*       Included also: IOSDULUT (ULUT type 1) and                 *   FILE 873
//*                      IOSDULU2 (ULUT type 2)                     *   FILE 873
//*                      IOSDULU3 (ULUT type 3) macros              *   FILE 873
//*                      IOSDIOVT (IOVT after UA90741 applied)      *   FILE 873
//*                                                                 *   FILE 873
//*       from the SHOWzOS macro library (CBT File 492),            *   FILE 873
//*       which describe the formats of the ULUT, and the           *   FILE 873
//*       new format of the IOVT.                                   *   FILE 873
//*                                                                 *   FILE 873
//*       From Mark Zelden:                                         *   FILE 873
//*                                                                 *   FILE 873
//*       TSOB  -  REXX exec to capture TSO output and BROWSE       *   FILE 873
//*       TSOE  -  REXX exec to capture TSO output and EDIT         *   FILE 873
//*       TSOR  -  REXX exec to capture TSO output and REVIEW       *   FILE 873
//*                 this works in READY mode if you install         *   FILE 873
//*                 the REVIEW TSO command from File 134, 135.      *   FILE 873
//*       TSOV  -  REXX exec to capture TSO output and VIEW         *   FILE 873
//*                                                                 *   FILE 873
//*       To distinguish between a 31-bit ULUT and a 64-bit ULUT:   *   FILE 873
//*                                                                 *   FILE 873
//*       If IOVT + X'8' (a fullword) is zero, then the ULUT        *   FILE 873
//*       will be 64-bit, and pointed to by IOVT + X'1B8', which    *   FILE 873
//*       is a doubleword address of the ULUT in 64-bit storage.    *   FILE 873
//*       If IOVT + X'8' is not zero, then it points to the ULUT    *   FILE 873
//*       in 31-bit storage, and IOVT + X'1B8' will be zeroes.      *   FILE 873
//*                                                                 *   FILE 873
//*       Also included are some sample images of a ULUT            *   FILE 873
//*       control block, both for Type 1 and Type 2, from           *   FILE 873
//*       actual systems, so you can see how they really            *   FILE 873
//*       look.  These were not updated for ULUT Type 3, but        *   FILE 873
//*       their appearance is similar for Type 3.                   *   FILE 873
//*                                                                 *   FILE 873
//*       email:  sbgolob@cbttape.org                               *   FILE 873
//*                                                                 *   FILE 873
//*       Description of new macros and DSECT:                      *   FILE 873
//*                                                                 *   FILE 873
//*       ULUDSECT - This is a macro describing a control block     *   FILE 873
//*                  which contains all necessary information to    *   FILE 873
//*                  extract what has been gotten from a UCB.       *   FILE 873
//*                  The ULUDSECT "pre-digests" each UCB defined    *   FILE 873
//*                  by a ULUT table entry.  You place a work       *   FILE 873
//*                  area in your program (currently 88 bytes)      *   FILE 873
//*                  to contain this information.                   *   FILE 873
//*                                                                 *   FILE 873
//*       ULUINIT  - Macro to get access to the ULUT table and      *   FILE 873
//*                  its entries.  Then it fills some of the        *   FILE 873
//*                  fields in the ULUDSECT--the ones which         *   FILE 873
//*                  have to do with the ULUT in general, and       *   FILE 873
//*                  not the ones having to do with each table      *   FILE 873
//*                  entry (i.e. the ones relevant to each UCB).    *   FILE 873
//*                                                                 *   FILE 873
//*       ULUSCAN  - Macro to fill in all the UCB-specific fields   *   FILE 873
//*                  in the ULUDSECT.  If you want to do a scan     *   FILE 873
//*                  of all UCB's defined, you loop through the     *   FILE 873
//*                  ULUSCAN macro repeatedly, with the work area   *   FILE 873
//*                  data changed for each invocation.              *   FILE 873
//*                                                                 *   FILE 873
//*       Some sample programs have been included, to show the      *   FILE 873
//*       power of the ULUINIT and ULUSCAN macros, which simplify   *   FILE 873
//*       coding of programs when using the ULUT method of UCB      *   FILE 873
//*       scanning.                                                 *   FILE 873
//*                                                                 *   FILE 873
//*       ULUDIAG  - Display the relevant contents of the ULUDSECT  *   FILE 873
//*                  fields for all defined devices.  It is         *   FILE 873
//*                  instructive to run this program on your own    *   FILE 873
//*                  system, while you are coding other programs    *   FILE 873
//*                  using this method.                             *   FILE 873
//*                                                                 *   FILE 873
//*       ULUDASD  - Adaptation of the UCBDASD program from File    *   FILE 873
//*                  731 to use the ULUINIT and ULUSCAN macros.     *   FILE 873
//*                  (Fixed by George Pavlik to indicate SMS.)      *   FILE 873
//*                                                                 *   FILE 873
//*       ULUTAPE  - Adaptation of the UCBTAPE program from File    *   FILE 873
//*                  731 to use the ULUINIT and ULUSCAN macros.     *   FILE 873
//*                                                                 *   FILE 873
//*       ULUTYPE  - TSO command to list defined devices by type.   *   FILE 873
//*                                                                 *   FILE 873
//*       ULUVOLS  - A much simplified version of ULUDASD.          *   FILE 873
//*                                                                 *   FILE 873
//*       When converting these programs to 64-bit ULUTs, as        *   FILE 873
//*       opposed to the 31-bit ones that were previously used,     *   FILE 873
//*       it is the author's experience that once the ULUINIT,      *   FILE 873
//*       ULUSCAN, and ULUDSECT macros were changed to              *   FILE 873
//*       accommodate ULUT Type 3, the ULUDASD and ULUTAPE          *   FILE 873
//*       programs needed almost no modification.  The only         *   FILE 873
//*       problem encountered was that the base register in         *   FILE 873
//*       31-bit mode had the high-order bit set to one, so that    *   FILE 873
//*       before 64-bit mode was entered, that bit had to be        *   FILE 873
//*       zeroed first.  The LLGTF Rx,Rx instruction had to be      *   FILE 873
//*       used against any register which would locate a            *   FILE 873
//*       quantity via base-displacement while running in 64-bit    *   FILE 873
//*       addressing mode.  Therefore you will see in the           *   FILE 873
//*       programs:   LLGTF R10,R10  directly befoe the ULUINIT     *   FILE 873
//*       macro invocaton.                                          *   FILE 873
//*                                                                 *   FILE 873
//*       If anyone out there writes programs using this method     *   FILE 873
//*       of UCB scanning, it would be appreciated if you notify    *   FILE 873
//*       us about them, so that (with your permission) they may    *   FILE 873
//*       be included in this tape.                                 *   FILE 873
//*                                                                 *   FILE 873
//*           email:   sbgolob@cbttape.org                          *   FILE 873
//*                                                                 *   FILE 873
//***FILE 874 is from Sam Golob, and contains HELP members for      *   FILE 874
//*           many utilities on the CBT Tape which he, himself,     *   FILE 874
//*           finds useful.                                         *   FILE 874
//*                                                                 *   FILE 874
//*           Included is a member called $HEL, which is an XMIT    *   FILE 874
//*           of a load library containing the REVIEW TSO command   *   FILE 874
//*           from Greg Price (File 134, 135) whose aliases called  *   FILE 874
//*           HEL and FSH and FSHELP (full screen help) can be      *   FILE 874
//*           used to browse these members in full screen mode.     *   FILE 874
//*           (You can scroll inside them, up and down, even from   *   FILE 874
//*           TSO READY mode.)                                      *   FILE 874
//*                                                                 *   FILE 874
//*           Concatenate this file (the pds for CBT File 874)      *   FILE 874
//*           into the SYSHELP concatenation for your TSO session.  *   FILE 874
//*                                                                 *   FILE 874
//*           You can also use this file to decide which new tools  *   FILE 874
//*           from the CBT Tape that you might like to install and  *   FILE 874
//*           use for yourself.  The HELP members can show you      *   FILE 874
//*           what each tool does, and you might want to have that  *   FILE 874
//*           capability available if needed.                       *   FILE 874
//*                                                                 *   FILE 874
//*           When this pds is concatenated with your SYSHELP       *   FILE 874
//*           DD name, you can simply say HELP member, and you      *   FILE 874
//*           will get the help.  If the load modules for REVIEW,   *   FILE 874
//*           FSH, FSHELP, and HEL are installed, you can say       *   FILE 874
//*           (for example)   HEL member   or   FSH member          *   FILE 874
//*           and you will see the help member in full screen mode, *   FILE 874
//*           scrollable up and down.                               *   FILE 874
//*                                                                 *   FILE 874
//*           The ISPF statistics for each member of this pds       *   FILE 874
//*           will tell you which CBT Tape file, that program       *   FILE 874
//*           (described by the HELP member) came from.             *   FILE 874
//*                                                                 *   FILE 874
//*           email:   sbgolob@cbttape.org                          *   FILE 874
//*                                                                 *   FILE 874
//*        Some members of this PDS:                                *   FILE 874
//*                                                                 *   FILE 874
//*      NAME     VER.MOD     LAST MODIFIED    SIZE   ID            *   FILE 874
//*      ----     -------   -----------------  ----   --            *   FILE 874
//*      $$$#DATE  04.98  2019/06/20 11:16:41    12  CBT-498        *   FILE 874
//*      $$INDEX   01.09  2019/04/30 20:23:37    67  SBGOLOB        *   FILE 874
//*      $HEL      46.01  2016/01/14 17:00:21  5849  LOADLIB        *   FILE 874
//*      @FILE874  04.98  2019/06/20 11:16:34   107  CBT-498        *   FILE 874
//*      ABEND     05.00  1993/02/17 14:30:00  2307  FILE134        *   FILE 874
//*      ADDTO     01.00  2000/02/27 15:37:03    32  FILE452        *   FILE 874
//*      ADIS      01.02  2008/05/15  1:53:00    26  FILE185        *   FILE 874
//*      APFLIST   01.04  2019/06/02 11:46:13    44  FILE566        *   FILE 874
//*      BLKDISK   01.02  2012/07/26 14:31:04   334  FILE296        *   FILE 874
//*      BLKSPTRK  01.00  1999/05/06  8:32:34   195  FILE199        *   FILE 874
//*      BURN      01.02  2012/11/01 12:54:48    96  FILE878        *   FILE 874
//*      CATL      01.00  2000/02/27 15:37:05    36  FILE452        *   FILE 874
//*      CCAT      01.03  2019/01/27 17:41:47   129  FILE535        *   FILE 874
//*      CDSCB     01.01  1999/07/13  0:19:00    58  FILE134        *   FILE 874
//*      CINMX     01.05  2006/01/02 14:00:53    61  FILE731        *   FILE 874
//*      CNCLPG    01.10  2019/05/21  0:00:46   350  FILE826        *   FILE 874
//*      COPYFILE  01.17  2005/11/20 10:39:41   289  FILE229        *   FILE 874
//*      COPYMODS  00.87  2012/06/10 17:06:01   487  FILE229        *   FILE 874
//*      CPSCB     01.03  2005/04/19 10:53:33    49  FILE300        *   FILE 874
//*      DSAT      01.00  2012/07/26 14:25:00   278  FILE296        *   FILE 874
//*      DSMF      01.00  2019/04/23 16:32:30    15  FILE300        *   FILE 874
//*      DSPACE    01.01  2003/05/27 10:49:00    36  FILE633        *   FILE 874
//*      DTEST     01.03  2019/04/24  2:23:43    38  FILE731        *   FILE 874
//*      DVAT      01.04  2019/04/24  2:39:21    35  FILE731        *   FILE 874
//*      DVOL      01.00  2003/06/29 10:24:39    56  FILE296        *   FILE 874
//*      EESCB     01.03  2006/01/02 14:03:11    24  FILE731        *   FILE 874
//*      FSH       ALIAS                                            *   FILE 874
//*      FSHELP    48.03  2018/08/19 17:34:50   920  FILE134        *   FILE 874
//*      HEL       ALIAS                                            *   FILE 874
//*      ICH       01.55  2010/01/16 16:46:10   327  FILE819        *   FILE 874
//*      IEBANTP   01.00  1989/04/12 11:59:00   238  FILE455        *   FILE 874
//*      IKJEEPTR  01.12  2016/01/15  1:51:57    71  FILE731        *   FILE 874
//*      INMXD     01.06  2019/04/24  9:17:48    46  FILE731        *   FILE 874
//*      JCLSET    01.01  2009/07/06 10:33:42    81  FILE452        *   FILE 874
//*      KMBAPFLB  01.00  2019/04/30 20:06:59    23  FILE566        *   FILE 874
//*      KONCAT    01.00  1998/05/22 13:15:00    44  FILE355        *   FILE 874
//*      LDS       01.00  2000/02/27 15:37:35    19  FILE452        *   FILE 874
//*      LOADTEST  01.06  2019/06/20 11:14:50   250  FILE731        *   FILE 874
//*      LOCATE    01.12  2015/01/05 15:27:06    27  FILE612        *   FILE 874
//*      LOGOPTS   01.09  2016/05/02 11:49:35   110  FILE731        *   FILE 874
//*      LPSCB     01.04  2005/04/19 11:00:00    17  FILE300        *   FILE 874
//*      LWATMGR   01.00  2008/11/21 21:10:59    63  FILE797        *   FILE 874
//*      PDS86     86.17  2019/04/05 14:21:09 10078  FILE182        *   FILE 874
//*      PGLITE    01.26  2019/07/22 14:23:56    73  FILE182        *   FILE 874
//*      RELEASE   01.00  2007/04/04 23:20:14    23  FILE296        *   FILE 874
//*      REV       ALIAS                                            *   FILE 874
//*      REVED     ALIAS                                            *   FILE 874
//*      REVEDIT   48.03  2018/08/19 17:33:43  1834  FILE134        *   FILE 874
//*      REVIEW    48.03  2018/08/19 17:35:32  2228  FILE134        *   FILE 874
//*      REVLEV    48.05  2019/01/27 23:32:38   767  FILE134        *   FILE 874
//*      REVOUT    48.03  2018/08/19 17:28:03   454  FILE134        *   FILE 874
//*      REVPDS    48.05  2019/01/27 23:12:38   806  FILE134        *   FILE 874
//*      REVPDSE   48.05  2019/01/27 23:13:40   558  FILE134        *   FILE 874
//*      REVTSO    48.03  2018/08/19 17:26:30   312  FILE134        *   FILE 874
//*      REVUNIX   48.05  2019/01/27 23:15:03   577  FILE134        *   FILE 874
//*      REVVSAM   ALIAS                                            *   FILE 874
//*      RFE       48.03  2018/08/19 17:32:35   436  FILE134        *   FILE 874
//*      RGENR     01.02  2019/04/23 21:02:16    35  FILE836        *   FILE 874
//*      RPFHELP   01.71  2019/04/23 15:14:57   808  FILE415        *   FILE 874
//*      RXJCL     01.00  2007/03/15 15:34:06   348  FILE756        *   FILE 874
//*      STEPLIB   01.03  2016/05/02 11:35:45   118  FILE452        *   FILE 874
//*      TSUB      01.01  2019/04/24  9:40:26   368  FILE797        *   FILE 874
//*      TSUBQUIK  01.38  2019/04/24  9:52:30    27  FILE797        *   FILE 874
//*      UCBDASD   01.03  2019/05/20 21:35:25    43  FILE731        *   FILE 874
//*      UKEYCSA   01.01  2019/04/24  9:54:44    26  FILE264        *   FILE 874
//*      ULUDASD   01.04  2019/05/20 21:33:29    46  FILE797        *   FILE 874
//*      ULUTAPE   01.07  2012/12/16 12:34:27    78  FILE873        *   FILE 874
//*      USERINFO  01.02  2012/08/01 13:44:03    59  FILE452        *   FILE 874
//*      VSAMANAL  00.88  2019/05/21  2:06:37   269  FILE294        *   FILE 874
//*      WHEREIS   01.00  2019/04/23 15:50:51    10  FILE836        *   FILE 874
//*      WHOSGOT   01.00  2000/02/27 15:37:00    17  FILE452        *   FILE 874
//*      XEQ       01.00  2007/04/04 23:26:23    35  FILE296        *   FILE 874
//*                                                                 *   FILE 874
//***FILE 875 is from Chris Cheney and contains the ALGOL 68C       *   FILE 875
//*           compiler and library.                                 *   FILE 875
//*                                                                 *   FILE 875
//*           FILE 875 contains the means to build the Algol68C     *   FILE 875
//*           software that corresponds (approximately) to that     *   FILE 875
//*           in use at Cambridge University's academic             *   FILE 875
//*           computing service on its IBM 3084 in 1995.  This      *   FILE 875
//*           software supersedes the earlier pre-release           *   FILE 875
//*           version, which has been on the CBT tape for           *   FILE 875
//*           a while.                                              *   FILE 875
//*                                                                 *   FILE 875
//*           The 15 files of the AWS-format tape were unloaded     *   FILE 875
//*           as members of this pds, with the ISPF statistics      *   FILE 875
//*           marking which tape file was which.  The material is   *   FILE 875
//*           otherwise presented here, in the format in which it   *   FILE 875
//*           was originally distributed, except for that change.   *   FILE 875
//*                                                                 *   FILE 875
//*           I am hoping to re-package the install procedure       *   FILE 875
//*           soon, so the job directly reads these pds members,    *   FILE 875
//*           instead of reading tape files.  (SBG)                 *   FILE 875
//*                                                                 *   FILE 875
//*       The following copyright notice must be honored.           *   FILE 875
//*                                                                 *   FILE 875
//*     (C) 2012 Copyright C.J. Cheney, S.R. Bourne and others      *   FILE 875
//*                                                                 *   FILE 875
//*     Revised and updated to Release 1.3039.                      *   FILE 875
//*                                                                 *   FILE 875
//*     Copyright is asserted for the software comprising and       *   FILE 875
//*     installed from this tape.  Permission is granted for        *   FILE 875
//*     this software to be downloaded, installed and used,         *   FILE 875
//*     subject to the conditions that:                             *   FILE 875
//*                                                                 *   FILE 875
//*     1) all use of this software is at the user's own risk;      *   FILE 875
//*     2) that no person or organisation involved in the           *   FILE 875
//*        development or distribution of this software has any     *   FILE 875
//*        liability whatsoever arising from its supply or use.     *   FILE 875
//*                                                                 *   FILE 875
//***FILE 876 is from Tom Armstrong, and contains the ALGOL F       *   FILE 876
//*           Version 2.1 compiler.  This is a complete reworking   *   FILE 876
//*           of the ALGOL F version 2 compiler from IBM, for       *   FILE 876
//*           which the materials are contained in CBT Overflow     *   FILE 876
//*           tape, File 089, and CBT Tape files 309 and 310.       *   FILE 876
//*                                                                 *   FILE 876
//*           Included in this file is the ALGOL F 2.1 compiler     *   FILE 876
//*           and library, in source and executable code.  All of   *   FILE 876
//*           it can be assembled and linkedited, directly from     *   FILE 876
//*           the supplied source code.                             *   FILE 876
//*                                                                 *   FILE 876
//*           This is a complete and thorough rework of the IBM     *   FILE 876
//*           ALGOL F Version 2 compiler and library.               *   FILE 876
//*                                                                 *   FILE 876
//*       email:  Thomas Armstrong <tomarmstrong255@gmail.com>      *   FILE 876
//*                                                                 *   FILE 876
//*           Care was taken in this file, to include PDF format    *   FILE 876
//*           documentation, and (hopefully) enough material to     *   FILE 876
//*           enable installation of this compiler and library      *   FILE 876
//*           from both z/OS and MVS 3.8J, as well as OS/360.       *   FILE 876
//*                                                                 *   FILE 876
//*           TO CREATE USABLE LIBRARIES FROM THE MEMBERS OF THIS   *   FILE 876
//*           PDS, YOU MAY RUN THE TWO JOBS:  #PDSLOAD AND          *   FILE 876
//*           $PDSLOAD (IN THAT ORDER).  PLEASE CUSTOMIZE THESE     *   FILE 876
//*           JOBS FOR BOTH YOUR INSTALLATION'S NAMING CONVEN-      *   FILE 876
//*           TIONS AND THE NAMING CONVENTIONS IN THE PDF MANUAL.   *   FILE 876
//*                                                                 *   FILE 876
//*           Image of the AWS-format tape from Tom Armstrong       *   FILE 876
//*           has been included here, as member:                    *   FILE 876
//*                                                                 *   FILE 876
//*           ALGOLAWS - ALGOL F 2.1 compiler and library           *   FILE 876
//*                                                                 *   FILE 876
//*           Please see member $ALGPDF  for background, and        *   FILE 876
//*           for installation instructions.  (PDF format)          *   FILE 876
//*                                                                 *   FILE 876
//*           Additionally:                                         *   FILE 876
//*                                                                 *   FILE 876
//*           email:   sbgolob@cbttape.org    (Sam Golob)           *   FILE 876
//*                                                                 *   FILE 876
//***FILE 877 is from Vladimir Mestovski and contains ISPF edit     *   FILE 877
//*           macros written in REXX that allow you (by pressing    *   FILE 877
//*           a PF key) to BROWSE, VIEW, or EDIT a dataset in       *   FILE 877
//*           ISPF, when the cursor is placed on that dataset name. *   FILE 877
//*           You just need to copy these REXX programs into a      *   FILE 877
//*           library in the SYSPROC concatenation, and set PF keys *   FILE 877
//*           to B, E, or V.                                        *   FILE 877
//*                                                                 *   FILE 877
//*       In addition, this file contains Vladimir's MAKE package,  *   FILE 877
//*       which is a powerful tool to do automate many different    *   FILE 877
//*       types of tasks, in different enviornments under z/OS.     *   FILE 877
//*                                                                 *   FILE 877
//*       Please see member $README for details about the V, B,     *   FILE 877
//*       and E macros.  Please see member $SAMPLE to better        *   FILE 877
//*       describe the use of the powerful MAKE package.            *   FILE 877
//*                                                                 *   FILE 877
//*           email:  v2gri033@us.ibm.com                           *   FILE 877
//*                                                                 *   FILE 877
//***FILE 878 is from Joe Reichman and contains an APF-authorized   *   FILE 878
//*           TSO command to forcibly terminate an address space.   *   FILE 878
//*           This command is newly written, and was inspired by    *   FILE 878
//*           the old TSO BURN command, but it is completely new.   *   FILE 878
//*           It has been tested to z/OS 1.13.  It was also tested  *   FILE 878
//*           to work as far back as ESA 5.2.2.                     *   FILE 878
//*                                                                 *   FILE 878
//*           This command is useful when an address space          *   FILE 878
//*           (system or user) is causing trouble in the system,    *   FILE 878
//*           and it needs to be restarted.  And you can use this   *   FILE 878
//*           command to get rid of that address space when you     *   FILE 878
//*           can't easily do it by conventional means, which are   *   FILE 878
//*           the CANCEL or FORCE operator console commands.        *   FILE 878
//*                                                                 *   FILE 878
//*           This is a handy emergency tool to keep in your        *   FILE 878
//*           tool kit.  A HELP member is included in this file.    *   FILE 878
//*                                                                 *   FILE 878
//*           email:  joereichman@optonline.net                     *   FILE 878
//*                                                                 *   FILE 878
//***FILE 879 is from Tom Hall and contains a TSO command called    *   FILE 879
//*           TSOFIND, which first finds the cataloged instance     *   FILE 879
//*           of a dataset on your system.  And then optionally it  *   FILE 879
//*           can find all instances of that dataset on all online  *   FILE 879
//*           packs, and then it can also optionally display each   *   FILE 879
//*           one's DCB attributes.  Sometimes you will have an     *   FILE 879
//*           uncataloged copy of a dataset on the system with      *   FILE 879
//*           the wrong DCB attributes.  This program will reveal   *   FILE 879
//*           that situation, and will help eliminate confusion.    *   FILE 879
//*                                                                 *   FILE 879
//*           This program was written a long time ago, and still   *   FILE 879
//*           works as is, on MVS 3.8 systems and such.  But it     *   FILE 879
//*           has been fixed for z/OS, and the z/OS version is      *   FILE 879
//*           in this file as member TSOFINDZ.  (Works              *   FILE 879
//*           beautifully!)  Sample assembly jobs are included.     *   FILE 879
//*                                                                 *   FILE 879
//*           See member SAMPRUN for a sample run of the program.   *   FILE 879
//*                                                                 *   FILE 879
//*           See member README2 for a further explanation and      *   FILE 879
//*           history of the program.                               *   FILE 879
//*                                                                 *   FILE 879
//*           email:  tomhall.teepee@ntlworld.com                   *   FILE 879
//*                                                                 *   FILE 879
//*           email:  sbgolob@cbttape.org                           *   FILE 879
//*                                                                 *   FILE 879
//***FILE 880 is from Miklos Szigetvari, and contains a product     *   FILE 880
//*           called MVSDSSN, which is an extension of ADRDSSU,     *   FILE 880
//*           and which is used to manage the dumps in a network.   *   FILE 880
//*                                                                 *   FILE 880
//*           email:   miklos.szigetvari@isis-papyrus.com           *   FILE 880
//*                                                                 *   FILE 880
//*     Full documentation for this product is contained, as a      *   FILE 880
//*     PDF file, in member #DOCPDF.                                *   FILE 880
//*                                                                 *   FILE 880
//*     Introduction                                                *   FILE 880
//*                                                                 *   FILE 880
//*     The MVSDSSN is an extension of the standard ADRDSSU         *   FILE 880
//*     utility, to manage the dumps in the network.  We have       *   FILE 880
//*     here (ISIS Information System) two very old tape units,     *   FILE 880
//*     but "nearly" unlimited storage capacity on the local        *   FILE 880
//*     network.  We extended the ADRDSSU utility via UIM (User     *   FILE 880
//*     Interaction Module) exits to write dumps to HFS             *   FILE 880
//*     (Hierarchical File System) files, and store the dump        *   FILE 880
//*     information in a DB2 database.  This modification is        *   FILE 880
//*     running here for several years, maybe smaller shops can     *   FILE 880
//*     use this.  A large part of the modification was written     *   FILE 880
//*     in C/C++, we provide the complete source code, and the      *   FILE 880
//*     necessary definitions for DB2.  The code uses the open      *   FILE 880
//*     source "zlib" general purpose compress library,             *   FILE 880
//*     Copyright (C) 1995-2002 Jean-loup Gailly and Mark           *   FILE 880
//*     Adler.                                                      *   FILE 880
//*                                                                 *   FILE 880
//*     Miklos Szigetvari  November 2012                            *   FILE 880
//*                                                                 *   FILE 880
//***FILE 881 is from Robert Harrison and contains a revised        *   FILE 881
//*           copy of the Julian Calendar in Microsoft Excel        *   FILE 881
//*           format, that was posted to the CBT Tape website.      *   FILE 881
//*                                                                 *   FILE 881
//*           email:  rharrison@ODOT.ORG                            *   FILE 881
//*                                                                 *   FILE 881
//*           Further contact information is included in the        *   FILE 881
//*            $$NOTEnn members.                                    *   FILE 881
//*                                                                 *   FILE 881
//*       The members of this pds are:                              *   FILE 881
//*                                                                 *   FILE 881
//*       JULIANX  -  .xls format original Julian calendar          *   FILE 881
//*                                                                 *   FILE 881
//*       SYSTEMJX -  .xlsx format revised Julian calendar          *   FILE 881
//*                   from Bob Harrison.                            *   FILE 881
//*                                                                 *   FILE 881
//***FILE 882 is from Tony Thigpen and Dana Mitchell, and contains  *   FILE 882
//*           a few programs to automate the execution of console   *   FILE 882
//*           commands (automated shutdown, etc.).                  *   FILE 882
//*                                                                 *   FILE 882
//*       JOBZDOIT - A console automation program - source code     *   FILE 882
//*                                                                 *   FILE 882
//*       JOBZDOJ1 - Sample control cards to do a complete          *   FILE 882
//*                  system shutdown                                *   FILE 882
//*                                                                 *   FILE 882
//*       MPF2REXX - MPF Installation exit to process WTO           *   FILE 882
//*                  messages using SYSTEM REXX execs               *   FILE 882
//*                                                                 *   FILE 882
//*          email:  Tony Thigpen <tony@vse2pdf.com>                *   FILE 882
//*                                                                 *   FILE 882
//*          email:  Mitchell, Dana <mitchdana@gmail.com>           *   FILE 882
//*                                                                 *   FILE 882
//***FILE 883 is from Miklos Szigetvari, and contains his package   *   FILE 883
//*           of exits and programs to help manage DFHSM.           *   FILE 883
//*                                                                 *   FILE 883
//*  email:  Miklos Szigetvari <miklos.szigetvari@isis-papyrus.com> *   FILE 883
//*                                                                 *   FILE 883
//*     Introduction                                                *   FILE 883
//*                                                                 *   FILE 883
//*     This MVSHSM pachage is an extension of the Hierarchical     *   FILE 883
//*     Storage Manager (HSM), to manage the secondary migration    *   FILE 883
//*     level data (ML2) on the network.                            *   FILE 883
//*                                                                 *   FILE 883
//*     Here, in the ISIS Papyrus Software, we have 2 very old      *   FILE 883
//*     tape drives, no operators, we are 5 kilometers from the     *   FILE 883
//*     machine location, and we have 500 Gigabyte online           *   FILE 883
//*     storage, but practically "unlimited" storage on the         *   FILE 883
//*     network. We extended the HSM, via standard exits, to        *   FILE 883
//*     store the ML2 data on the network. We have been using       *   FILE 883
//*     this modification since 2005; maybe some other small        *   FILE 883
//*     installations can take advantage of this.                   *   FILE 883
//*                                                                 *   FILE 883
//*     We define an ML2 disk volume, and via the HSM migration     *   FILE 883
//*     exits, we move everything from this volume to a Network     *   FILE 883
//*     File System (NFS) directory. Before a recall, the proper    *   FILE 883
//*     HSM exit moves the requested dataset back to our ML2        *   FILE 883
//*     disk volume, and the HSM can finish the restore.            *   FILE 883
//*                                                                 *   FILE 883
//*     The exit routines are called by the HSM before the          *   FILE 883
//*     proper HSM action. It is good for the "recall", but for     *   FILE 883
//*     the "migrate" we can just move everything from the ML2      *   FILE 883
//*     disk drive to the NFS directory, and the last migrated      *   FILE 883
//*     dataset will reside on the ML2 disk volume.                 *   FILE 883
//*                                                                 *   FILE 883
//*     We are using:                                               *   FILE 883
//*      * MM Second Level Migration Dataset exit                   *   FILE 883
//*      * MD Dataset Migration exit                                *   FILE 883
//*      * RD Recall exit.                                          *   FILE 883
//*                                                                 *   FILE 883
//*     The exit routines were written in C++, we provide the       *   FILE 883
//*     complete source code and a load library. As sample, we      *   FILE 883
//*     modified the HSM installation STARTUP, and we provide       *   FILE 883
//*     also our current, running HSM configuration by ISIS, as     *   FILE 883
//*     it is.                                                      *   FILE 883
//*                                                                 *   FILE 883
//*     Warning                                                     *   FILE 883
//*                                                                 *   FILE 883
//*     This is a limited HSM setup, with some simple               *   FILE 883
//*     functionality; it is working here in this way for           *   FILE 883
//*     several years, but has never been tested with a complex     *   FILE 883
//*     HSM configuration. We can handle securely only one ML2      *   FILE 883
//*     recall or one ML2 migration request. It works only with     *   FILE 883
//*     non SMS volumes.                                            *   FILE 883
//*                                                                 *   FILE 883
//***FILE 884 is from Abe Kornelis and contains his very useful     *   FILE 884
//*           macro library, as well as some other useful tools.    *   FILE 884
//*                                                                 *   FILE 884
//*           email:  Abe Kornelis <abe@bixoft.nl>                  *   FILE 884
//*                                                                 *   FILE 884
//*       This pds contains both Abe's maclib and the associated    *   FILE 884
//*       samplib.                                                  *   FILE 884
//*                                                                 *   FILE 884
//*       The product is named "Bixoft eXtended Assembly language"  *   FILE 884
//*       and is made available under GPL V2 or V3.                 *   FILE 884
//*                                                                 *   FILE 884
//*       Members of this pds are in PDSLOAD format (similar to     *   FILE 884
//*       IEBUPDTE, but containing ISPF statistics).  The PDSLOAD   *   FILE 884
//*       program is packaged with this pds, and the $PDSLOAD       *   FILE 884
//*       member of this pds is a job to create all the libraries.  *   FILE 884
//*                                                                 *   FILE 884
//*       The submission was divided into two parts, originally,    *   FILE 884
//*       called MACLIB and SAMPLIB.  MACLIB contains Abe's entire  *   FILE 884
//*       macro library, while SAMPLIB contained all the other      *   FILE 884
//*       members:  ASM, JCL, LKED, MACJCL, PROCLIB.                *   FILE 884
//*                                                                 *   FILE 884
//***FILE 885 is from Albert Cheng and contains an updated          *   FILE 885
//*           Disassembler program which handles the new Jump       *   FILE 885
//*           instructions, and so forth.  The new disassembler     *   FILE 885
//*           is called HDISASM to distinguish it from older        *   FILE 885
//*           programs of this type.                                *   FILE 885
//*                                                                 *   FILE 885
//*           email:  albertcpcheng@hotmail.com                     *   FILE 885
//*                                                                 *   FILE 885
//*     The difference between this version and File 217.           *   FILE 885
//*                                                                 *   FILE 885
//*     1. It supports RI and RIL instructions                      *   FILE 885
//*        AHI, LHI, CLI, Jx, BRAS                                  *   FILE 885
//*        AFI, LFI, CFI                                            *   FILE 885
//*                                                                 *   FILE 885
//*        Thankfully IBM has introduced the new assembler          *   FILE 885
//*        instructions to simplify assembler coding.  For          *   FILE 885
//*        example, if you use relative branch instructions,        *   FILE 885
//*        there is no need to specify the program base             *   FILE 885
//*        registers in the assembler program.                      *   FILE 885
//*                                                                 *   FILE 885
//*     2. It supports most RRE, RXE and RXY instructions.          *   FILE 885
//*                                                                 *   FILE 885
//*     3. Bigger SYMBOL table.                                     *   FILE 885
//*                                                                 *   FILE 885
//*     4. Uses linkage stack for save area, and macro SVLNK is     *   FILE 885
//*        no longer required.  Use RI instructions (i.e.           *   FILE 885
//*        change BE to JE, AH to AHI etc.) to elminate each        *   FILE 885
//*        program base register having a 4K restriction.  Only     *   FILE 885
//*        1 program register is now necessary to keep track        *   FILE 885
//*        the internal variable of HDISASM.  New routines can      *   FILE 885
//*        added into HDISASM without a major change to the         *   FILE 885
//*        logic of HDISASM.                                        *   FILE 885
//*                                                                 *   FILE 885
//*     5. Pre-assembler is also performed even with no USING       *   FILE 885
//*        statement, as relative jump instructions do not          *   FILE 885
//*        required a program base register.                        *   FILE 885
//*                                                                 *   FILE 885
//*     The difference between HDISASM with ASMDASM:                *   FILE 885
//*                                                                 *   FILE 885
//*     1. Conditional branch instructions use the extended         *   FILE 885
//*        mnemonics.                                               *   FILE 885
//*                                                                 *   FILE 885
//*     2. ULABL is extended from 8 charcters to 12 characters      *   FILE 885
//*                                                                 *   FILE 885
//***FILE 886 is from Ed Petka, with thanks to Bill Smith.  This    *   FILE 886
//*           file contains a system to init thousands of DASD      *   FILE 886
//*           volumes in a short time.                              *   FILE 886
//*                                                                 *   FILE 886
//*       email:  Edward.Petka@Fiserv.com                           *   FILE 886
//*                                                                 *   FILE 886
//***FILE 887 is from Scott Vetter and contains a large collection  *   FILE 887
//*           of programs and usermods for MVS 3.8J to make it more *   FILE 887
//*           modern and workable.                                  *   FILE 887
//*                                                                 *   FILE 887
//*       email:  svetter@ameritech.net                             *   FILE 887
//*                                                                 *   FILE 887
//*                 INDEX TO PROGRAMS / USERMODS                    *   FILE 887
//*                                                                 *   FILE 887
//*     LAST CHANGE:  04/26/2012                                    *   FILE 887
//*                                                                 *   FILE 887
//*              -------------   PROGRAMS   -------------           *   FILE 887
//*      NAME   STATUS   MODULE(S)             PURPOSE              *   FILE 887
//*     CMDSHR    O      CMDSHR            A PROGRAM THAT ALLOWS    *   FILE 887
//*                                        A USER ON ONE SYSTEM     *   FILE 887
//*                                        TO ENTER A COMMAND       *   FILE 887
//*                                        AND HAVE IT RUN ON       *   FILE 887
//*                                        ANOTHER.                 *   FILE 887
//*     CMDSHRA   O      CMDSHRA           FOR ABOVE - PARMLIB      *   FILE 887
//*                                        ENTRY                    *   FILE 887
//*     CMDSHRR   O      CMDSHRR           FOR ABOVE - PROCLIB      *   FILE 887
//*                                        ENTRY                    *   FILE 887
//*     DAPF      O      DAPF              USED TO DISPLAY THE      *   FILE 887
//*                                        APF DATASET LIST ON      *   FILE 887
//*                                        THE TSO USER'S           *   FILE 887
//*                                        SCREEN.                  *   FILE 887
//*     DAPFC     O      DAPFC             USED TO DISPLAY THE      *   FILE 887
//*                                        APF DATASET LIST ON      *   FILE 887
//*                                        THE OPERATOR'S           *   FILE 887
//*                                        CONSOLE.                 *   FILE 887
//*                                                                 *   FILE 887
//*              -------------   USERMODS   -------------           *   FILE 887
//*      NAME   STATUS   MODULE(S)             PURPOSE              *   FILE 887
//*     TSM0002   O      IEFUTL (SRC)      MVS SMF TIME LIMIT       *   FILE 887
//*                                        EXIT                     *   FILE 887
//*     TSM0020   O      NETSOL (SRC)      VTAM LOGO SCREEN         *   FILE 887
//*     TSM0021   O      ISTNSC00 (SRC)    VTAM ASSEMBLE THE        *   FILE 887
//*                                        LOGO                     *   FILE 887
//*     TSM0022   T      IKJEFLD (SRC)     TSO FULL SCREEN LOGON    *   FILE 887
//*     TSM0025   O      IEECDCM (MAC)     MVS CONSOLE (K S)        *   FILE 887
//*                                        CHANGES                  *   FILE 887
//*     TSM0026   T      IEECVETC (ZAP)    MVS CONSOLE (K S)        *   FILE 887
//*                                        CHANGES                  *   FILE 887
//*     TSM0027   O      IEERDCM / IEETDCM (MAC)  MVS DCM MACROS    *   FILE 887
//*     TSM0028   O      IEECVETQ (SRC)    MVS CONSOLE ADDS         *   FILE 887
//*                                        ADDRESS AND ID TO        *   FILE 887
//*                                        IEE152I MESSAGE LINE     *   FILE 887
//*     TSM0029   T      IEECVETC (SRC)                             *   FILE 887
//*     TSM0034   T      IHASVC   (MAC)    INSTALLS MACRO IHASVC    *   FILE 887
//*     TSM0035   D      IEFJJOBS (SRC)    IN DEVELOPMENT - USED    *   FILE 887
//*                                        TO READ THE MASTER       *   FILE 887
//*                                        JCL FROM PARMLIB.        *   FILE 887
//*     TSM0036   D      IRBMFINP (ZAP)    CHANGES THE DDNAME       *   FILE 887
//*                                        FOR MF/1 PARM INPUT.     *   FILE 887
//*     TSV0000   O               (MACS)   CREATE A SYS1.MODGEN     *   FILE 887
//*                                        DATASET NOT AN SMP       *   FILE 887
//*                                        JOB (YET).               *   FILE 887
//*     TSV0001   O      RESETPL           COPY MACRO TO MACLIB     *   FILE 887
//*     TSV0002   O      IKJEFTE2          TSO AUTHORIZED COMMAND   *   FILE 887
//*                                        TABLE                    *   FILE 887
//*     TSV0003   O      IKJEFTE8          TSO AUTHORIZED COMMAND   *   FILE 887
//*                                        TABLE                    *   FILE 887
//*     TSV0004   O      IEEVSND6          REMOVE CN(00) FROM       *   FILE 887
//*                                        MESSAGES                 *   FILE 887
//*     TSV0005   T      IKJEFF10          TSO SUBMIT EXIT          *   FILE 887
//*     TSV0006   O      IKJEFT25          TSO CHANGE TIME          *   FILE 887
//*                                        COMMAND TO SHOW THE      *   FILE 887
//*                                        PROPER CENTURY/YEAR      *   FILE 887
//*     TSV0007   O      MSTRJCL           MVS MASTER JCL           *   FILE 887
//*     TSV0008   T      HEWLFINT          LINKAGE EDITOR           *   FILE 887
//*     TSV0009   O      IEFACTRT (SRC)    MVS JCL STEP/JOB END     *   FILE 887
//*                                        EXIT                     *   FILE 887
//*     TSV0010   O      IEE3503D (SRC)    MVS CONSOLE ADD PROPER   *   FILE 887
//*                                        CENTURY/YEAR ON DATE     *   FILE 887
//*                                        (D T) COMMAND ALSO (D    *   FILE 887
//*                                        IPLINFO), (D XCF), (D    *   FILE 887
//*                                        SMF), AND (D SYMBOLS)    *   FILE 887
//*     TSV0011   T      HEWLFFNL          LINKAGE EDITOR           *   FILE 887
//*     TSV0012   O      ISTSDCRC          VTAM REMOVE REQUIREMENT  *   FILE 887
//*                                        FOR VTAMOBJ              *   FILE 887
//*                                        DDNAME/DATASET NAME      *   FILE 887
//*     TSV0013   O      IEFJSSNT          MVS SUBSYSTEM NAME       *   FILE 887
//*                                        TABLE UPDATE             *   FILE 887
//*     TSV0014   O      SGIEF0PT (MAC)    MVS PROGRAM PROPERTIES   *   FILE 887
//*                                        TABLE (PPT)              *   FILE 887
//*     TSV0015   O      IEEPFKEY          MVS CONSOLE SET PF KEYS  *   FILE 887
//*     TSV0016   O      ISTINCLM          VTAM LOGON INTERPRET     *   FILE 887
//*                                        TABLE                    *   FILE 887
//*     TSV0017   O      BSPLMT01          VTAM LOGMODE TABLES      *   FILE 887
//*     TSV0018   O      CLS (SRC)         TSO CLEAR SCREEN COMMAND *   FILE 887
//*     TSV0019   T      IKJEFF53          TSO OUTPUT EXIT          *   FILE 887
//*     TSV0020   O      IEECVXIT (SRC)    MVS CONSOLE MESSAGE      *   FILE 887
//*                                        PROCESSING EXIT          *   FILE 887
//*     TSV0021   O      IEE0403D (SRC)    MVS COMMAND ROUTER -     *   FILE 887
//*                                        ALLOW COMMAND QUIESCE    *   FILE 887
//*                                        TO BE SPECIFIED AS       *   FILE 887
//*                                        "QU"                     *   FILE 887
//*     TSV0022   O      IKJEFLPA (SRC)    TSO LOGON/LOGOFF         *   FILE 887
//*                                        PROCESSOR - CHANGE       *   FILE 887
//*                                        CENTURY FROM '19' TO     *   FILE 887
//*                                        '20'.                    *   FILE 887
//*     TSV0023   O      IKTCAS41 (ZAP)    REMOVES THE MESSAGE      *   FILE 887
//*                                        IKT012D AFTER ISSUES     *   FILE 887
//*                                        THE P TSO COMMAND.       *   FILE 887
//*     TSV0024   O      IEESMCA  (MAC)    SMF CONTROL TABLE AND    *   FILE 887
//*                      IEEMB820 (SRC)    SMF INITIALIZATION       *   FILE 887
//*                                        ROUTER TO ALLOW FOR      *   FILE 887
//*                                        IPL DATE AND TIME.       *   FILE 887
//*                      IEEMB821 (SRC)    SMF INITIALIZATION       *   FILE 887
//*                                        PARM PROCESSOR ALLOWS    *   FILE 887
//*                                        COMMENT LINES IN         *   FILE 887
//*                                        SMFPRMXX!                *   FILE 887
//*     TSV0025   T      IEAVNP03 (SRC)    ADDS PARAMETERS TO       *   FILE 887
//*                                        IEASYS-- OF              *   FILE 887
//*                                        SYS1.PARMLIB -           *   FILE 887
//*                                        DOESN'T DO ANYTHING      *   FILE 887
//*                                        MORE THOUGH.             *   FILE 887
//*     TSV0026   0      DAPF     (SRC)    ADDS A TSO USER          *   FILE 887
//*                                        COMMAND DAPF WHICH       *   FILE 887
//*                                        SHOWS WHAT IS IN THE     *   FILE 887
//*                                        APF LIST.                *   FILE 887
//*     TSV0031   O      $FSSBA   (MAC)    INSTALLS THE FULL        *   FILE 887
//*                                        SCREEN MACRO             *   FILE 887
//*     TSM0032   O      IEDIAE/K (SRC)    VTAM - INSTALLS          *   FILE 887
//*                                        UNUSED EXITS -           *   FILE 887
//*                                        PREVENTS VTAM            *   FILE 887
//*                                        MESSAGES.                *   FILE 887
//*     TSM003T   T      IECSDSL1 (MAC)    FORMAT 1 DSCB            *   FILE 887
//*                                        DESCRIPTION - TO         *   FILE 887
//*                                        SUPPORT HOLDING          *   FILE 887
//*                                        CENTURY ON DATES.        *   FILE 887
//*                                                                 *   FILE 887
//*     RAKF0001  O      IFG0194A/IFG0194C  RAKF OPEN ALWAYS        *   FILE 887
//*                                         CALL SVC UPDATE.        *   FILE 887
//*     RAKF0002  O      RAKFPROF/RAKFUSER  RAKF OPERATING TABLES.  *   FILE 887
//*     RAKF0003  O      IGC0013A/B/        RAKF SVC INSTALL.       *   FILE 887
//*     RAKF0004  O      RAKFINIT/USER/PROF RAKF PROGRAM INSTALL.   *   FILE 887
//*     RAKF0005  O      RAKF               RAKF JCL PROC INSTALL.  *   FILE 887
//*                                                                 *   FILE 887
//*      ----  OUTSIDE DEVELOPED MODS                               *   FILE 887
//*                                                                 *   FILE 887
//*     SLB0002   T      IEFVEA             ALLOWS FOR MB           *   FILE 887
//*                      IEFVJA             SPECIFICATION IN THE    *   FILE 887
//*                                         REGION PARAMETER        *   FILE 887
//*                                         ON BOTH THE JOB         *   FILE 887
//*                                         AND EXEC JCL CARDS.     *   FILE 887
//*     ZP60004   O      IEECVETV           MCS CONSOLE CHANGE TO   *   FILE 887
//*                                         HIGHLITE ACTION         *   FILE 887
//*                                         MESSAGES                *   FILE 887
//*     ZP60014   T      IKJCT431, IKJCT433 ADDS EXTENSIONS         *   FILE 887
//*                      IKJEFT56           TO TSO CLIST            *   FILE 887
//*                                         CAPABILITIES            *   FILE 887
//*     ZP60019   T      IEFSD263           ALLOWS RECORDING OF     *   FILE 887
//*                                         CPU TIME FOR JOBS       *   FILE 887
//*                                         RUNNING WITH            *   FILE 887
//*                                         TIME=1440               *   FILE 887
//*     ZP60021   T      IEAVAD51           CHANGES DUMP OUTPUT     *   FILE 887
//*                                         SHOWING CHARS THAT      *   FILE 887
//*                                         ARE SHOWN ON US         *   FILE 887
//*                                         KEYBOARD.               *   FILE 887
//*                                                                 *   FILE 887
//*       NOTE:                                                     *   FILE 887
//*             MEMBERS ENDING IN A 'B' ARE BACKUPS FOR             *   FILE 887
//*                PREVIOUSLY MODIFIED USERMODS.                    *   FILE 887
//*             MEMBERS ENDING IN A 'I' ARE TEST JOBS, AKA IVPS,    *   FILE 887
//*                FOR THE USERMOD.                                 *   FILE 887
//*                                                                 *   FILE 887
//*       STATUS LEGEND:                                            *   FILE 887
//*         T - TESTING - MAY NOT BE OPERATIONAL                    *   FILE 887
//*         O - OPERATIONAL - IN USE                                *   FILE 887
//*                                                                 *   FILE 887
//***FILE 888 is from Miklos Szigetvari and contains a package to   *   FILE 888
//*           give a very comprehensive display of z/OS system      *   FILE 888
//*           information which you can get via your Internet       *   FILE 888
//*           browser.  This package uses the z/OS system's HTTP    *   FILE 888
//*           server to put the information out on the Internet.    *   FILE 888
//*           It is really a first!  It is an excellent tool for    *   FILE 888
//*           modern-day sysprogs!                                  *   FILE 888
//*                                                                 *   FILE 888
//*           email:  miklos.szigetvari@isis-papyrus.com            *   FILE 888
//*                                                                 *   FILE 888
//*     Introduction                                                *   FILE 888
//*                                                                 *   FILE 888
//*     A very short introduction                                   *   FILE 888
//*                                                                 *   FILE 888
//*     Download from the PDS dataset the #DOCMP4 member and        *   FILE 888
//*     open as an MP4 video.                                       *   FILE 888
//*                                                                 *   FILE 888
//*     A longer introduction                                       *   FILE 888
//*                                                                 *   FILE 888
//*     For experienced and inexperienced host users, there is      *   FILE 888
//*     a demand to access different parts of the z/OS system       *   FILE 888
//*     via an interface:                                           *   FILE 888
//*                                                                 *   FILE 888
//*     - Easy to use, like a WEB browser.                          *   FILE 888
//*                                                                 *   FILE 888
//*     - Can add additional information, not or hardly             *   FILE 888
//*       available in z/OS.                                        *   FILE 888
//*                                                                 *   FILE 888
//*     - Can define simple operations (archive or compare etc.     *   FILE 888
//*       etc.)  Difficult to make on z/OS.                         *   FILE 888
//*                                                                 *   FILE 888
//*     I have tried to make a simple "in house" host explorer      *   FILE 888
//*       via the IBM z/OS HTTP Server and HTML sites.  The IBM     *   FILE 888
//*       HTTP Server (5.3) is part of the z/OS installation        *   FILE 888
//*       and contains a number of useful features (RACF            *   FILE 888
//*       authentication,REXX CGI support etc.).                    *   FILE 888
//*                                                                 *   FILE 888
//*     A collection of REXX CGI programs realize the different     *   FILE 888
//*     functions.                                                  *   FILE 888
//*                                                                 *   FILE 888
//*     I selected REXX because it is                               *   FILE 888
//*                                                                 *   FILE 888
//*     - Available everywhere                                      *   FILE 888
//*     - Contains a number of string manipulation functions        *   FILE 888
//*     - Easy to DEBUG or TRACE                                    *   FILE 888
//*                                                                 *   FILE 888
//*     The REXX CGI programs are calling the z/OS interface        *   FILE 888
//*     components.                                                 *   FILE 888
//*                                                                 *   FILE 888
//*     Some part is free available (as the SDSF REXX               *   FILE 888
//*      interface), some parts are installed from the CBT tape     *   FILE 888
//*      (as the MXI interface) and some parts are free to          *   FILE 888
//*      download from IBM:                                         *   FILE 888
//*     (as the SQL REXX interface or the MQ REXX interface)        *   FILE 888
//*     or from other source (WLM interface from YCOS software).    *   FILE 888
//*                                                                 *   FILE 888
//*     If there was no other interface,                            *   FILE 888
//*                                                                 *   FILE 888
//*     I wrote simple C/C++ programs to access these parts of      *   FILE 888
//*     the system:                                                 *   FILE 888
//*                                                                 *   FILE 888
//*     - Catalog information                                       *   FILE 888
//*     - Log streams                                               *   FILE 888
//*     - ISPF table etc.                                           *   FILE 888
//*                                                                 *   FILE 888
//*     The results are presented as dynamic HTML pages, with       *   FILE 888
//*     the Java scripts, available in the internet open source     *   FILE 888
//*     communities.                                                *   FILE 888
//*                                                                 *   FILE 888
//*     I'm using some browser plug-ins                             *   FILE 888
//*                                                                 *   FILE 888
//*     (Adobe Acrobat for PDF, ISIS AFP viewer for AFP or          *   FILE 888
//*     Notepad++) and links to the IBM "LookAt" or to the IBM      *   FILE 888
//*     Library Server.                                             *   FILE 888
//*                                                                 *   FILE 888
//*     I think the application is extendable in all directions.    *   FILE 888
//*                                                                 *   FILE 888
//*     It is connecting to, some part of the IBM software (RMF     *   FILE 888
//*     Data Portal), excellent to access from the WEB, but         *   FILE 888
//*     avoids example the CICS; as the IBM has the super CICS      *   FILE 888
//*     Explorer.                                                   *   FILE 888
//*                                                                 *   FILE 888
//*     Disclaimer !!                                               *   FILE 888
//*                                                                 *   FILE 888
//*     This is not a replacement for TSO or SDSF ISPF or any       *   FILE 888
//*     other IBM or non-IBM product.  We are using this at         *   FILE 888
//*     ISIS Papyrus Software for a while, with a small number      *   FILE 888
//*     of users.  It has never been intensively tested for         *   FILE 888
//*     performance or security.                                    *   FILE 888
//*                                                                 *   FILE 888
//*     Miklos Szigetvari                                           *   FILE 888
//*     Januar 2013                                                 *   FILE 888
//*     <miklos.szigetvari@isis-papyrus.com>                        *   FILE 888
//*                                                                 *   FILE 888
//***FILE 889 is the Microsoft install version of the Hercules      *   FILE 889
//*           emulator, 64-bit version.  Just download in BINARY    *   FILE 889
//*           to a PC, and unzip into a directory on the PC.        *   FILE 889
//*           The Hercules version 3.08 should run, as is, on       *   FILE 889
//*           Windows 7 (and probably on the other recent Windows   *   FILE 889
//*           versions as well).  This is the 64-bit version.       *   FILE 889
//*                                                                 *   FILE 889
//*           Version 3.12 of the Hercules emulator, for Windows,   *   FILE 889
//*           is now included here, as members H312W32 (32-bit)     *   FILE 889
//*           and H32W64 (64-bit).  Fish's DLLs are not included    *   FILE 889
//*           in these 2 members, but they are included in member   *   FILE 889
//*           HERC308.  If you want them in 3.12 you will have to   *   FILE 889
//*           transplant them from 3.08.                            *   FILE 889
//*                                                                 *   FILE 889
//*           I added member H441ZIP, which is a much later version *   FILE 889
//*           of Hercules (dated first quarter of 2022). - SBG      *   FILE 889
//*           This version is for Windows.                          *   FILE 889
//*           See www.softdevlabs.com/hercules  for more info.      *   FILE 889
//*                                                                 *   FILE 889
//*           An alternative version of Hercules, Version 4.x.x,    *   FILE 889
//*           is available at the following site:                   *   FILE 889
//*                                                                 *   FILE 889
//*           www.softdevlabs.com/hyperion.html                     *   FILE 889
//*                                                                 *   FILE 889
//*           SEE ALSO:  https://hercules-390.github.io/html/       *   FILE 889
//*                                                                 *   FILE 889
//*           If you have the proper version of REVIEW installed    *   FILE 889
//*           (including MINIZIP and MINIUNZ) (CBT Files 134 and    *   FILE 889
//*           865, load modules on File 135), then you can REVIEW   *   FILE 889
//*           member HERC308 in this file, and see the zipped       *   FILE 889
//*           files within it.                                      *   FILE 889
//*                                                                 *   FILE 889
//*           Other compiles of Hercules for different platforms    *   FILE 889
//*           and for 32-bit machines, may be found on the          *   FILE 889
//*           Hercules web site.  See below.                        *   FILE 889
//*                                                                 *   FILE 889
//*           You are responsible for supplying operating system    *   FILE 889
//*           DASD as PC files in AWS format, and you are           *   FILE 889
//*           responsible for creating a valid Hercules config      *   FILE 889
//*           file for the Hercules program to point to.            *   FILE 889
//*                                                                 *   FILE 889
//*           Remember that IBM will not license its proprietary    *   FILE 889
//*           operating systems for use on Hercules under most      *   FILE 889
//*           circumstances.  MVS 3.8J may be run under Hercules    *   FILE 889
//*           without any licensing problems.                       *   FILE 889
//*                                                                 *   FILE 889
//*           A suggestion would be for you to Google search for    *   FILE 889
//*           "Hercules emulator" to get to the current web site    *   FILE 889
//*           where instructions for using this version of          *   FILE 889
//*           Hercules may be obtained.  As of this writing, one    *   FILE 889
//*           of them is:                                           *   FILE 889
//*                                                                 *   FILE 889
//*           www.hercules-390.eu      (You need to say www. )      *   FILE 889
//*                                                                 *   FILE 889
//*           From a DOS shell on a Windows machine, the start      *   FILE 889
//*           command to get Hercules going, is:                    *   FILE 889
//*                                                                 *   FILE 889
//*           C:\directory>hercules -f full.path.of.config.file     *   FILE 889
//*                                                                 *   FILE 889
//*           where c:\directory is the directory that you unzipped *   FILE 889
//*           the HERC308 file into.  Of course, it may be on       *   FILE 889
//*           a disk other than c: and it will probably have a      *   FILE 889
//*           different name.                                       *   FILE 889
//*                                                                 *   FILE 889
//*           If this command is successful, your DOS shell screen  *   FILE 889
//*           will become your Hercules console.  You can then      *   FILE 889
//*           enter IPL nnn to IPL your IPL-able disk pack, as per  *   FILE 889
//*           how your config file was set up.                      *   FILE 889
//*                                                                 *   FILE 889
//*           If your TN3270 emulator was properly set up, you      *   FILE 889
//*           will get a Hercules introductory screen on it, as     *   FILE 889
//*           follows:  This will later become your MVS console,    *   FILE 889
//*           after you issue the ipl nnn instruction. See below.   *   FILE 889
//*                                                                 *   FILE 889
//*   Hercules Version  : 3.08                                      *   FILE 889
//*   Host name         : MY-PC                                     *   FILE 889
//*   Host OS           : Windows_NT-6 1                            *   FILE 889
//*   Host Architecture : AMD64                                     *   FILE 889
//*   Processors        : MP=4                                      *   FILE 889
//*   Chanl Subsys      : 0                                         *   FILE 889
//*   Device number     : 0700                                      *   FILE 889
//*   Subchannel        : 001A                                      *   FILE 889
//*                                                                 *   FILE 889
//*       HHH          HHH   The S/370, ESA/390 and z/Architecture  *   FILE 889
//*       HHH          HHH                 Emulator                 *   FILE 889
//*       HHH          HHH                                          *   FILE 889
//*       HHH          HHH  EEEE RRR   CCC U  U L    EEEE  SSS      *   FILE 889
//*       HHHHHHHHHHHHHHHH  E    R  R C    U  U L    E    S         *   FILE 889
//*       HHHHHHHHHHHHHHHH  EEE  RRR  C    U  U L    EEE   SS       *   FILE 889
//*       HHHHHHHHHHHHHHHH  E    R R  C    U  U L    E       S      *   FILE 889
//*       HHH          HHH  EEEE R  R  CCC  UU  LLLL EEEE SSS       *   FILE 889
//*       HHH          HHH                                          *   FILE 889
//*       HHH          HHH                                          *   FILE 889
//*       HHH          HHH     My PC thinks it's a MAINFRAME        *   FILE 889
//*                                                                 *   FILE 889
//*   Copyright (c) 1999-2009 Roger Bowler, Jan Jaeger, and others  *   FILE 889
//*                                                                 *   FILE 889
//*           If you want to run FTP to/from Hercules, you need     *   FILE 889
//*           to install Win-P-Cap (a binary is on File 659) on     *   FILE 889
//*           your PC.  The "Fish DLL's" are all here on this       *   FILE 889
//*           file, and they should work as packaged, without a     *   FILE 889
//*           separate install procedure.  These have been          *   FILE 889
//*           included here with the kind permission of their       *   FILE 889
//*           author, David Trout (aka "Fish").                     *   FILE 889
//*                                                                 *   FILE 889
//*           You also need a TN3270 emulator (a recommended one    *   FILE 889
//*           is VISTA from www.tombrennansoftware.com).  The       *   FILE 889
//*           TN3270 emulator needs to point to the IP address      *   FILE 889
//*           (in the PC) of the network card (use the              *   FILE 889
//*           ipconfig/all command from a DOS shell and look at     *   FILE 889
//*           the IP4 address on the active card you want to use).  *   FILE 889
//*           You can also see the MAC address of this card, which  *   FILE 889
//*           you will later need on the config file, to run FTP.   *   FILE 889
//*                                                                 *   FILE 889
//*           Alternatively, you can use the IP address 127.0.0.1   *   FILE 889
//*           to point to localhost on the PC.  And in either       *   FILE 889
//*           case, you have to specify port 3270 (NOT PORT 23)     *   FILE 889
//*           in the TN3270 emulator.  Once Hercules starts, it     *   FILE 889
//*           should grab the TN3270 terminal emulator as the       *   FILE 889
//*           operator console if the TN3270 emulator was set up    *   FILE 889
//*           properly.                                             *   FILE 889
//*                                                                 *   FILE 889
//*           Then from the DOS shell, which has now become the     *   FILE 889
//*           Hercules console, you now say:  ipl nnnn    where     *   FILE 889
//*           nnnn is the address of the system residence pack      *   FILE 889
//*           which is specified in the config file.  The further   *   FILE 889
//*           particulars are operating system dependent.           *   FILE 889
//*                                                                 *   FILE 889
//***FILE 890 is from Peter Sylvester and contains the SIMULA       *   FILE 890
//*           360/370 Compiler and Library, and much PDF-format     *   FILE 890
//*           documentation to support it.  SIMULA was              *   FILE 890
//*           originally a commercial product for IBM 360/370       *   FILE 890
//*           that was written in Norway by IBM contractors, and    *   FILE 890
//*           it now has been donated to the CBT Tape with the      *   FILE 890
//*           permission of the last of its implementers.           *   FILE 890
//*           See member $FREENOW.                                  *   FILE 890
//*                                                                 *   FILE 890
//*           SIMULA was written in the 1960's and was probably     *   FILE 890
//*           the first example of "Object Oriented Programming".   *   FILE 890
//*           SIMULA is a highlight of the life-work of two of its  *   FILE 890
//*           developers:  Ole-Johan Dahl and Kristen Nygaard.      *   FILE 890
//*                                                                 *   FILE 890
//*           Please see members:                                   *   FILE 890
//*                                                                 *   FILE 890
//*           $$INTRO1       $GUIDES1                               *   FILE 890
//*           $$NOTE01       $GUIDES2                               *   FILE 890
//*           $DOCKEY        $LINKS                                 *   FILE 890
//*           $FREENOW                                              *   FILE 890
//*                                                                 *   FILE 890
//*           See member ZOSZAP which helps SIMULA to run under     *   FILE 890
//*           z/OS.  This zap was supplied by Roger Bowler          *   FILE 890
//*           (the Father of Hercules).                             *   FILE 890
//*                                                                 *   FILE 890
//*           email:     Peter Sylvester <peter@edelweb.eu>         *   FILE 890
//*                                                                 *   FILE 890
//*           web site:  http://www.edelweb.eu/Simula               *   FILE 890
//*                                                                 *   FILE 890
//***FILE 891 is from Quasar Chunawala and contains a REXX program  *   FILE 891
//*           to flow-chart a COBOL program automatically, given    *   FILE 891
//*           its source code.  This program is called MINE.        *   FILE 891
//*                                                                 *   FILE 891
//*           email:  quasar.chunawalla@gmail.com                   *   FILE 891
//*                                                                 *   FILE 891
//*     MINE is a powerful REXX utility developed to build the      *   FILE 891
//*     structure chart of a COBOL source. Just press <PF1>         *   FILE 891
//*     under any paragraph. A visual diagram that shows all        *   FILE 891
//*     calling paragraphs and called paragraphs is displayed on    *   FILE 891
//*     the screen.                                                 *   FILE 891
//*                                                                 *   FILE 891
//*     Pressing <PF2> on any PERFORM <para> statement, allows      *   FILE 891
//*     you to jump directly to the called paragraph. Press         *   FILE 891
//*     <PF4> within the called paragraph, takes you back the       *   FILE 891
//*     last PERFORM statement. You can traverse upto any number    *   FILE 891
//*     levels and back up.                                         *   FILE 891
//*                                                                 *   FILE 891
//*     This script implements several data-structures in Rexx.     *   FILE 891
//*     MINE was written keeping in mind, a structured top-down     *   FILE 891
//*     programming methodology. It is therefore, divided into      *   FILE 891
//*     several smaller routines. MINE also uses two panels         *   FILE 891
//*     DYNPANE and MINEMESG, which it generates.                   *   FILE 891
//*                                                                 *   FILE 891
//*     You may invoke MINE on the ISPF Editor. The syntax is       *   FILE 891
//*     MINE <function>, where <function> parameter could be IN,    *   FILE 891
//*     OUT or GRAPH.  I have set my PFKeys as <PF1> - MINE         *   FILE 891
//*     GRAPH, <PF2> - MINE IN and <PF4> - MINE OUT.                *   FILE 891
//*                                                                 *   FILE 891
//***FILE 892 is TERSE for platforms other than z/OS, and it        *   FILE 892
//*           should be compatible with TERSE for z/OS that         *   FILE 892
//*           comes from IBM.  Since several different versions     *   FILE 892
//*           are included here, we have packaged them as a zip     *   FILE 892
//*           file with everything combined.  You should unzip      *   FILE 892
//*           the file on whatever platform you plan to use it.     *   FILE 892
//*                                                                 *   FILE 892
//*           This file was posted to the Hercules-390 forum        *   FILE 892
//*           on yahoogroups.com and was taken from the "files"     *   FILE 892
//*           section there.  The zip file was as I found it.       *   FILE 892
//*           It was uploaded to z/OS in BINARY and to use it,      *   FILE 892
//*           it should be downloaded in BINARY as well.            *   FILE 892
//*                                                                 *   FILE 892
//*           I was able to look at the unzipped files on z/OS      *   FILE 892
//*           by using the REVIEW TSO command from CBT Files        *   FILE 892
//*           134-135, which calls MiniUnzip (MINIUNZ) from CBT     *   FILE 892
//*           File 865, to show the unzipped component files.       *   FILE 892
//*                                                                 *   FILE 892
//*           Further documentation can be found in member          *   FILE 892
//*           $TERSDOC in this pds.                                 *   FILE 892
//*                                                                 *   FILE 892
//***FILE 893 is a TSO command to display a recent history of       *   FILE 893
//*           TSO user and job activity on the current z/OS or      *   FILE 893
//*           MVS system, displaying SMF record types 4, 20, and    *   FILE 893
//*           35.  Not all information is displayed.  The command   *   FILE 893
//*           is intended to give a rough indication of recent      *   FILE 893
//*           system activity with regard to LOGONs, LOGOFFs,       *   FILE 893
//*           and jobs initiated.  You want to know:  who logged    *   FILE 893
//*           on, who logged off, and what jobs were initiated,     *   FILE 893
//*           and when.                                             *   FILE 893
//*                                                                 *   FILE 893
//*           Included in this package is the program DSMF from     *   FILE 893
//*           CBT File 300, which is a TSO command to display       *   FILE 893
//*           your SMF datasets, similar to the operator command:   *   FILE 893
//*           D SMF.  You typically will display the SMF datasets   *   FILE 893
//*           using DSMF, and then you can execute the CLIST        *   FILE 893
//*           called SMFX, against the correct dataset number.      *   FILE 893
//*                                                                 *   FILE 893
//*           email:    sbgolob@cbttape.org                         *   FILE 893
//*                                                                 *   FILE 893
//***FILE 894 is from Robert Zenuk by way of Sam Golob.  This       *   FILE 894
//*           collection of members was taken from several years'   *   FILE 894
//*           worth of posts to the MVS-OE listserv group, under    *   FILE 894
//*           Rob's name.  The code he posted, or the piece of      *   FILE 894
//*           thread which he wrote, which covered an issue, with   *   FILE 894
//*           a problem solved, is brought here as a single         *   FILE 894
//*           member, or several.                                   *   FILE 894
//*                                                                 *   FILE 894
//*           It is up to the user to see if he/she can benefit     *   FILE 894
//*           from this code and these posts.  They were brought    *   FILE 894
//*           here to help those who might need it.                 *   FILE 894
//*                                                                 *   FILE 894
//*           email:  Rob Zenuk <Robzenuk@AOL.COM>                  *   FILE 894
//*                                                                 *   FILE 894
//*           email:  Sam Golob <sbgolob@cbttape.org>               *   FILE 894
//*                                                                 *   FILE 894
//*                  Some of Rob Zenuk's stuff                      *   FILE 894
//*                  ---- -- --- ------- -----                      *   FILE 894
//*                                                                 *   FILE 894
//*    UNIXCMDB - TSO command to execute UNIX commands and to       *   FILE 894
//*               display the results.                              *   FILE 894
//*                                                                 *   FILE 894
//*               A version of an exec by John McKown.  Purpose     *   FILE 894
//*               is to execute UNIX commands from TSO, without     *   FILE 894
//*               using a UNIX shell.  I made this name longer      *   FILE 894
//*               because there were several variants posted on     *   FILE 894
//*               the MVS-OE list, but this one (or whichever       *   FILE 894
//*               variant you really use) should be renamed to      *   FILE 894
//*               be called UNIX.                                   *   FILE 894
//*                                                                 *   FILE 894
//*               model:  TSO UNIX unixcmd                          *   FILE 894
//*                                                                 *   FILE 894
//*    USSFILMT - TSO command to list UNIX files and how they       *   FILE 894
//*               are mounted.                                      *   FILE 894
//*                                                                 *   FILE 894
//*    USSGETMT - TSO command to display all file mounts            *   FILE 894
//*               under UNIX.                                       *   FILE 894
//*                                                                 *   FILE 894
//*               FULL LIST OF MEMBERS IN THIS PDS                  *   FILE 894
//*               ---- ---- -- ------- -- ---- ---                  *   FILE 894
//*                                                                 *   FILE 894
//*         $CONTENT  01.02  2013/08/11 17:29     24 SBGOLOB        *   FILE 894
//*         $LSTHZFL  01.00  2013/08/11 19:27     26 SBGOLOB        *   FILE 894
//*         @FILE894  01.03  2013/09/01 21:07      2 SBGOLOB        *   FILE 894
//*         BPXEXIST  01.01  2013/09/01 18:02     77 SBGOLOB        *   FILE 894
//*         BPXJCL    01.11  2013/08/14 23:40    245 SBGOLOB        *   FILE 894
//*         BPXJCL@   01.00  2013/08/14 23:56     27 SBGOLOB        *   FILE 894
//*         BPXJCL01  01.18  2013/08/14 23:42    218 SBGOLOB        *   FILE 894
//*         BPXJCL02  01.01  2013/08/15 14:54     23 SBGOLOB        *   FILE 894
//*         BPXSPOOL  01.01  2013/08/15 14:15    282 SBGOLOB        *   FILE 894
//*         BPXWGDG   01.00  2013/08/14 22:55     54 SBGOLOB        *   FILE 894
//*         BPXWUNIX  01.01  2013/08/13 14:11    297 SBGOLOB        *   FILE 894
//*         EZAZTSAB  01.00  2012/07/08 13:33     12 SHOW721        *   FILE 894
//*         EZAZTSEB  01.00  2012/07/08 13:33     44 SHOW721        *   FILE 894
//*         FINDSTR   01.00  2013/08/15 11:27     82 SBGOLOB        *   FILE 894
//*         GETSTAC@  01.00  2013/08/14 12:01     42 SBGOLOB        *   FILE 894
//*         GETSTACK  01.00  2013/08/14  0:30      8 SBGOLOB        *   FILE 894
//*         MNTCKDOC  01.00  2013/08/16 13:29     69 SBGOLOB        *   FILE 894
//*         MVSREXX   01.00  2013/08/15  0:07     92 SBGOLOB        *   FILE 894
//*         PDSSPLI@  01.02  2013/08/13 15:08   1203 RZENUK         *   FILE 894
//*         PDSSPLIJ  01.02  2013/08/13 15:18     24 JCL            *   FILE 894
//*         PDSSPLIT  01.01  2013/08/13 15:08   1098 EXEC           *   FILE 894
//*         QUICKXMI  01.00  2013/08/14 21:03     61 SBGOLOB        *   FILE 894
//*         RESTJOB   01.00  2013/08/16  9:39     60 SBGOLOB        *   FILE 894
//*         REXECX    01.00  2013/08/14 22:08    131 SBGOLOB        *   FILE 894
//*         SDSF2ZFS  01.00  2013/08/11 17:47    154 RZENUK         *   FILE 894
//*         SYMREP    01.02  2013/08/14 22:10    164 SBGOLOB        *   FILE 894
//*         UNIXCMD$  01.00  2013/08/11 15:29     32 SBGOLOB        *   FILE 894
//*         UNIXCMDB  01.01  2013/08/11 15:13     18 RZENUK         *   FILE 894
//*         USSFILM$  01.00  2013/08/11 19:18      9 SBGOLOB        *   FILE 894
//*         USSFILMT  01.00  2013/08/11 14:39      8 RZENUK         *   FILE 894
//*         USSGETMT  01.04  2013/08/11 14:27     89 RZENUK         *   FILE 894
//*                                                                 *   FILE 894
//***FILE 895 is from Rainer Nowak and contains some modifications  *   FILE 895
//*           to Gilbert Saint-flour's STEMEDIT program as well as  *   FILE 895
//*           some other things that are related.                   *   FILE 895
//*                                                                 *   FILE 895
//*           Please refer to CBT File 183 for Gilbert              *   FILE 895
//*           Saint-flour's materials.                              *   FILE 895
//*                                                                 *   FILE 895
//*           email:  rainer_nowak@gmx.de                           *   FILE 895
//*                                                                 *   FILE 895
//*                   Description of Contents                       *   FILE 895
//*                   ----------- -- --------                       *   FILE 895
//*                                                                 *   FILE 895
//*     For many years the CBT tape has been a great help for       *   FILE 895
//*     me. Usually I used the programs 'as is', but now a          *   FILE 895
//*     colleague wants a way to show him all the stem variables    *   FILE 895
//*     in a REXX exec.  OK, there's STEMEDIT in CBT tape file      *   FILE 895
//*     183, but this can only be used for stem variables like      *   FILE 895
//*     a.1, a.2 and so on.  One big advantage of REXX is, that     *   FILE 895
//*     you can use stem variables in the way like a. =0;do i=1     *   FILE 895
//*     to words(text);j=WORD(text,i);a.j=a.j+1;end . So you can    *   FILE 895
//*     count how many times a word is used in a text.  For such    *   FILE 895
//*     stem variables you can't use STEMEDIT.  So I changed        *   FILE 895
//*     STEMEDIT to VIEW and EDIT all variables in a REXX exec.     *   FILE 895
//*     You'll find the changed source in this file.                *   FILE 895
//*                                                                 *   FILE 895
//*     There are also two edit macros to be used with              *   FILE 895
//*     STEMEDIT.  Call STEMEMCB at the beginning of the edit       *   FILE 895
//*     session to change all '00'x in blanks and shift the '='     *   FILE 895
//*     to the left.  At the end of the edit session STEMEMCE       *   FILE 895
//*     should be called to end up the lines with '00'x.            *   FILE 895
//*                                                                 *   FILE 895
//*     I've also changed TALLY to work under z/OS 1.13.  I know    *   FILE 895
//*     you don't need TALLY anymore, because DSLIST now can do     *   FILE 895
//*     this for you.  But the idea behind TALLY is, to find        *   FILE 895
//*     the ISPF table used by DSLIST and use it for your own       *   FILE 895
//*     needs.  So I wrote DSL as an example, how to use this       *   FILE 895
//*     table.  In DSL you can exclude Datasets from the list,      *   FILE 895
//*     flip between excluded and visible and do HSM RECALL for     *   FILE 895
//*     all visible Datasets.  I hope these programs will be a      *   FILE 895
//*     help for someone.                                           *   FILE 895
//*                                                                 *   FILE 895
//*     CICSSUBS, IMSSUBS and MQSUBS list the active CICS, IMS      *   FILE 895
//*     and MQ systems on the lpar. For DB2 please have a look at   *   FILE 895
//*     DB2 update #124 February 2003, page 22ff.                   *   FILE 895
//*                                                                 *   FILE 895
//*     IS is a little CLIST to be used like this:                  *   FILE 895
//*     //SET1 SET ENV=TEST                                         *   FILE 895
//*     //TEST1 EXEC PGM=IKJEFT1A,                                  *   FILE 895
//*     // PARM='IS &ENV EQ PROD'                                   *   FILE 895
//*     //SYSTSPRT DD SYSOUT=*                                      *   FILE 895
//*     //SYSPROC DD DISP=SHR,DSN=YOUR.CLIST.DSN                    *   FILE 895
//*     //SYSTSIN DD DUMMY                                          *   FILE 895
//*     //* RC = 4                                                  *   FILE 895
//*     //TEST2 EXEC PGM=IKJEFT1A,                                  *   FILE 895
//*     // PARM='IS &ENV EQ TEST'                                   *   FILE 895
//*     //SYSTSPRT DD SYSOUT=*                                      *   FILE 895
//*     //SYSPROC DD DISP=SHR,DSN=YOUR.CLIST.DSN                    *   FILE 895
//*     //SYSTSIN DD DUMMY                                          *   FILE 895
//*     //* RC = 0                                                  *   FILE 895
//*                                                                 *   FILE 895
//*     Lionel B. Dyck send me a TSO help for STEMEDIT. I put       *   FILE 895
//*     this XMIT of a PO SYSHELP dataset to member TSOHELP.        *   FILE 895
//*                                                                 *   FILE 895
//*     To allocate a SYSHELP dataset before the existing           *   FILE 895
//*     allocation I put a REXX to do it in ALOCHELP, the name      *   FILE 895
//*     of the dataset should be given as parm.                     *   FILE 895
//*                                                                 *   FILE 895
//*     ILIBS is a REXX to show the concatination of datasets       *   FILE 895
//*     under the ISPF dd names including the datasets concatinated *   FILE 895
//*     with LIBDEF.                                                *   FILE 895
//*                                                                 *   FILE 895
//*     OLDS is a REXX I hope noone will ever need it. It shows     *   FILE 895
//*     IMS LogSequenceNumber errors in an OLDS. It can be used in  *   FILE 895
//*     3.4 DSLIST.                                                 *   FILE 895
//*                                                                 *   FILE 895
//*     STEMOUT is a shortened STEMEDIT, just to write all vars     *   FILE 895
//*     to a dataset, while you run the REXX in batch.              *   FILE 895
//*                                                                 *   FILE 895
//*     To allocate a SYSPROC dataset before the existing           *   FILE 895
//*     allocation I put a REXX to do it in ALOCPROC, the name      *   FILE 895
//*     of the dataset should be given as parm.                     *   FILE 895
//*                                                                 *   FILE 895
//*     RNREPEAT with panel RNREPEAP is a kind of a serial letter.  *   FILE 895
//*     With this Edit Macro, you can repeat lines and put in       *   FILE 895
//*     values from a PS dataset.                                   *   FILE 895
//*                                                                 *   FILE 895
//*     Rainer Nowak                                                *   FILE 895
//*                                                                 *   FILE 895
//***FILE 896 is from SHARE in 1993 and contains an assortment of   *   FILE 896
//*           miscellaneous TSO tools of various flavors.  I found  *   FILE 896
//*           them on an old archive and prepared them for the      *   FILE 896
//*           CBT collection, because many of them seemed very      *   FILE 896
//*           useful and interesting, even today.  It seems like    *   FILE 896
//*           we still need the same stuff.  So here it is.         *   FILE 896
//*                                                                 *   FILE 896
//*           Some of this stuff may be elsewhere (in some version) *   FILE 896
//*           on the CBT Tape, but some of this may not be there,   *   FILE 896
//*           anywhere.                                             *   FILE 896
//*                                                                 *   FILE 896
//*       email:  sbgolob@cbttape.org                               *   FILE 896
//*                                                                 *   FILE 896
//*       Members in this PDS:                                      *   FILE 896
//*                                                                 *   FILE 896
//*        CALCR      01.00    1993/03/09 12:00    749  REXX        *   FILE 896
//*        COMPRESS   01.00    1990/11/08 12:00    252  REXX        *   FILE 896
//*        CURSRPWR   01.00    1992/08/11 12:00     76  CLIST       *   FILE 896
//*        DDN        01.00    1990/11/08 12:00   2080  PDS         *   FILE 896
//*        DFHSM      01.00    1991/08/08 12:00    583  PDS         *   FILE 896
//*        DISPHOST   01.00    1991/08/20 12:00     53  REXX        *   FILE 896
//*        GETSMFID   01.00    1992/08/06 12:00      6  REXX        *   FILE 896
//*        GOPHER     01.00    1993/03/16 12:00  10951  ASM         *   FILE 896
//*        IPCS       01.00    1992/03/04 12:00    237  REXX        *   FILE 896
//*        LOGSCAN    01.00    1990/05/05 12:00     97  LOADMOD     *   FILE 896
//*        PRINTDS    01.00    1992/08/11 12:00    128  CLIST       *   FILE 896
//*        RXTRY      01.00    1991/08/09 12:00    103  REXX        *   FILE 896
//*        SCHTP21    01.00    1992/08/11 12:00     39  MESSAGE     *   FILE 896
//*        SCHTP210   01.00    1992/08/11 12:00     36  PANEL       *   FILE 896
//*        SCH0P000   01.00    1992/08/11 12:00     68  PANEL       *   FILE 896
//*        SCH0P200   01.00    1992/08/11 12:00    163  PANEL       *   FILE 896
//*        SCRHELP    01.00    1989/02/23 12:00    569  HELP        *   FILE 896
//*        SHOW       01.00    1992/12/08 12:00   3295  ASM         *   FILE 896
//*        SYSLOG     01.00    1992/08/10 12:00   1977  REXXES      *   FILE 896
//*        XMITVM     01.00    1992/08/27 12:00    194  REXX        *   FILE 896
//*        XPROC      01.00    1992/06/02 12:00   2572  ASM         *   FILE 896
//*        XPROC#     01.00    1992/06/02 12:00    254  HELP        *   FILE 896
//*        XWRITEN#   01.00    1993/03/16 12:00     51  HELP        *   FILE 896
//*        XWRITENR   01.00    1993/03/16 12:00    187  ASM         *   FILE 896
//*                                                                 *   FILE 896
//***FILE 897 is from John McKown and is a port of SQLITE 3.8       *   FILE 897
//*           to z/OS.  The current state of this package is        *   FILE 897
//*           described below.  It is hoped that any improved       *   FILE 897
//*           versions of this package will be posted here soon.    *   FILE 897
//*                                                                 *   FILE 897
//*           email:  john.archie.mckown@gmail.com                  *   FILE 897
//*                                                                 *   FILE 897
//*           Please look at the description below:                 *   FILE 897
//*                                                                 *   FILE 897
//*     SQLITE 3.8 for z/OS                                         *   FILE 897
//*     ===================                                         *   FILE 897
//*                                                                 *   FILE 897
//*     Sqlite is a self-contained, server-less,                    *   FILE 897
//*     zero-configuration, transactional SQL database engine.      *   FILE 897
//*     This is the standard sqlite library which is available      *   FILE 897
//*     on many UNIX and Linux systems. The code was compiled       *   FILE 897
//*     with almost no changes. The code is dependent on z/OS       *   FILE 897
//*     UNIX System Services.  The original code supports           *   FILE 897
//*     EBCDIC in addition to the normal ASCII. This                *   FILE 897
//*     distribution has been compiled to support EBCDIC            *   FILE 897
//*     characters and IEEE (BFP) floating point numbers. This      *   FILE 897
//*     latter is important because most other z/OS languages       *   FILE 897
//*     use the historical HFP floating point.                      *   FILE 897
//*                                                                 *   FILE 897
//*     At present, the code only has C language bindings on        *   FILE 897
//*     z/OS. Work is being done on writing bindings for            *   FILE 897
//*     Enterprise COBOL and Enterprise PL/I. The COBOL and PL/I    *   FILE 897
//*     code in this library is not even alpha code. It is just     *   FILE 897
//*     what I currently am working on.                             *   FILE 897
//*                                                                 *   FILE 897
//*     Sqlite 3.17.7 is documented at http://sqlite.org, and       *   FILE 897
//*     this code runs as described there. Therefore, no futher     *   FILE 897
//*     documentation is supplied at present.  When the COBOL       *   FILE 897
//*     and PL/I bindings are done, those will be documented        *   FILE 897
//*     here.                                                       *   FILE 897
//*                                                                 *   FILE 897
//*     What still needs to be done:                                *   FILE 897
//*     ----------------------------                                *   FILE 897
//*     1. Implement an easy to use COBOL callable API.             *   FILE 897
//*        Advanced COBOL programmers may be able to directly       *   FILE 897
//*        use the C language bindings, but these are very          *   FILE 897
//*        difficult in COBOL due to the extremely different        *   FILE 897
//*        calling sequences.                                       *   FILE 897
//*                                                                 *   FILE 897
//*     2. As above, implement a PL/I callable API.                 *   FILE 897
//*                                                                 *   FILE 897
//*     3. At present, the file which contains the sqlite           *   FILE 897
//*        database must reside in a UNIX subdirectory. This        *   FILE 897
//*        means that the user of sqlite must have an z/OS UNIX     *   FILE 897
//*        identity.  I would like to be able to use a VSAM         *   FILE 897
//*        Linear Dataset for storing the sqlite data at some       *   FILE 897
//*        time. Mainly due to the number of shops which have       *   FILE 897
//*        not really embraced z/OS UNIX.                           *   FILE 897
//*                                                                 *   FILE 897
//*     Members in this library:                                    *   FILE 897
//*     ------------------------                                    *   FILE 897
//*     - $README  - This member. The README in markdown format.    *   FILE 897
//*                                                                 *   FILE 897
//*     - LINK     - The JCL to link the SQLITE3 object code        *   FILE 897
//*                  into a LINKLIB.  This composite links in       *   FILE 897
//*                  the C and LE library subroutines.              *   FILE 897
//*                                                                 *   FILE 897
//*     - PAXFULL  - This is a compressed pax archive for the       *   FILE 897
//*                  entire SQLITE3 application, Including all      *   FILE 897
//*                  source code and make information.              *   FILE 897
//*                                                                 *   FILE 897
//*     - PAXRUN   - This is a compressed pax archive containing    *   FILE 897
//*                  only the files needed to use SQLITE. This      *   FILE 897
//*                  is really all you need if you want to          *   FILE 897
//*                  develop C language programs which use          *   FILE 897
//*                  SQLITE.  This is not needed for COBOL or       *   FILE 897
//*                  HLASM programs.                                *   FILE 897
//*                                                                 *   FILE 897
//*     - SQLITE3A - LE enabled HLASM subroutine which presents     *   FILE 897
//*                  an API to the SQLITE3 C subroutines which      *   FILE 897
//*                  is designed for use by COBOL or PL/I code.     *   FILE 897
//*                  It is composite (statically) linked with       *   FILE 897
//*                  the C object code.  This code has not been     *   FILE 897
//*                  fully tested yet and may contain errors.       *   FILE 897
//*                                                                 *   FILE 897
//*     - SQLITE3O - The object code for SQLITE to be linked        *   FILE 897
//*                  into the application.  This was compiled on    *   FILE 897
//*                  z/OS 1.13, but the C compiler options were     *   FILE 897
//*                  for compatibility with z/OS 1.11 or higher.    *   FILE 897
//*                                                                 *   FILE 897
//*     - TESTCOB1 - Example Enterprise COBOL program. It is        *   FILE 897
//*                  very basic.  It uses the SQLITE3A stub to      *   FILE 897
//*                  invoke SQLITE3 operations.  This is not        *   FILE 897
//*                  working at present.                            *   FILE 897
//*                                                                 *   FILE 897
//*     - TESTCOB2 - Example Enterprise COBOL program. It is        *   FILE 897
//*                  very basic.  It directly calls the C           *   FILE 897
//*                  language SQLITE3 subroutines.  This is not     *   FILE 897
//*                  working at present.                            *   FILE 897
//*                                                                 *   FILE 897
//*     - TSTPLI1  - Example Enterprise PL/I program. It is very    *   FILE 897
//*                  basic.  This is not working at present.        *   FILE 897
//*                                                                 *   FILE 897
//*     - UNPAX    - The JCL needed to unwind either the PAXFULL    *   FILE 897
//*                  or PAXRUN member into a z/OS UNIX              *   FILE 897
//*                  subdirectory.                                  *   FILE 897
//*                                                                 *   FILE 897
//*     Note: This member is in "markdown" compatible format.       *   FILE 897
//*     For more information on markdown, go to                     *   FILE 897
//*     http://daringfireball.net/projects/markdown/                *   FILE 897
//*                                                                 *   FILE 897
//***FILE 898 is a good deal of the life work of Alex Kara.  We     *   FILE 898
//*           are very grateful to him that he wants to share his   *   FILE 898
//*           accumulated knowledge.  Thanks, Alex.                 *   FILE 898
//*                                                                 *   FILE 898
//*     THERE ARE A LOT OF VERY HANDY TOOLS HERE, many of them      *   FILE 898
//*     being quite rare in their functionality.  Alex has spent    *   FILE 898
//*     a lot of time inventing them.  Please look especially at    *   FILE 898
//*     dataset $$ (member list $$MEM) for really good REXX execs   *   FILE 898
//*     and supporting materials.                                   *   FILE 898
//*                                                                 *   FILE 898
//*     Because of the large accumulation of material here, the     *   FILE 898
//*     members of this pds are XMIT-ed PDS'es that are large.      *   FILE 898
//*                                                                 *   FILE 898
//*     Please see members $$README and $$$INDEX to get an idea.    *   FILE 898
//*                                                                 *   FILE 898
//*                email:  alex@karapens.com                        *   FILE 898
//*                                                                 *   FILE 898
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 898
//*                                                                 *   FILE 898
//*     Background Discussion of Contents  -  from Alex Kara        *   FILE 898
//*     ---------- ---------- -- --------                           *   FILE 898
//*                                                                 *   FILE 898
//*     Just recently I got a tad nostalgic and thought that it     *   FILE 898
//*     would be a shame to let my 35+ years of experience as       *   FILE 898
//*     an appo and sysprog slide into the bit bucket.              *   FILE 898
//*                                                                 *   FILE 898
//*     My experience covered close to 20 years of contracting      *   FILE 898
//*     where I've had contracts for long and short periods at      *   FILE 898
//*     small and large sites (including IBM and CSC).              *   FILE 898
//*     Consequently I have amassed a swag of both handy (and       *   FILE 898
//*     not so handy) routines that I cannot pass on to an          *   FILE 898
//*     understudy/apprentice.  Because of the multiple site        *   FILE 898
//*     support I often had to update my routines as I aimed        *   FILE 898
//*     for generic or easily customisable solutions. As a          *   FILE 898
//*     result I have developed the nasty habit of placing          *   FILE 898
//*     everything into one dataset for the ease of moving that     *   FILE 898
//*     big one around.  I have kept names unique so the            *   FILE 898
//*     dataset contains all my REXX, CLIST, Panels, Skeleton       *   FILE 898
//*     and Message members and a few occasional doco etc..  I      *   FILE 898
//*     do keep a separate dataset for the load library             *   FILE 898
//*     (however, if only 1 or 2 module have changed  I often       *   FILE 898
//*     XMIT that member(s) into an FB=80 dataset and store         *   FILE 898
//*     that as a member in the above catch all and ship).   I      *   FILE 898
//*     hate typing and as it is a catch all I call it              *   FILE 898
//*     'userid.$$' so it is at the top of the DSlist under 3.4     *   FILE 898
//*     and readily accessible).   I identify each member in        *   FILE 898
//*     the $$$INDEX member with a brief 1 line description and     *   FILE 898
//*     with my LINEMAC commands readily edit members from that     *   FILE 898
//*     $$$INDEX member.   This $$ dataset is allocated at the      *   FILE 898
//*     front of all the respective ISPF/SYSEXEC                    *   FILE 898
//*     concatenations.                                             *   FILE 898
//*                                                                 *   FILE 898
//*     I would like to make my knowledge and toils available       *   FILE 898
//*     to all so I am offering the following in the attached       *   FILE 898
//*     ZIP file.  (Already extracted here and put into pds         *   FILE 898
//*     members in XMIT format.  SG)                                *   FILE 898
//*                                                                 *   FILE 898
//*     The individual datasets are XMITted  and called:            *   FILE 898
//*                                                                 *   FILE 898
//*     $$        - non-load module executable  (good               *   FILE 898
//*                 start is the $$README and the $$$INDEX          *   FILE 898
//*                 as further reference).                          *   FILE 898
//*                                                                 *   FILE 898
//*     $LOAD     - load modules                                    *   FILE 898
//*                                                                 *   FILE 898
//*     DSECT     - DSECT maps used for control block               *   FILE 898
//*                 mapping by my memory navigator routine          *   FILE 898
//*                 and on-line disassembler.                       *   FILE 898
//*                                                                 *   FILE 898
//*     ASM       - All the assembler source for load               *   FILE 898
//*                 module used except for those off the            *   FILE 898
//*                 CBT (and PDSEDIT supplied by Fuji back          *   FILE 898
//*                 in 1981   and still working like a              *   FILE 898
//*                 charm for text scans and global                 *   FILE 898
//*                 changes).                                       *   FILE 898
//*                                                                 *   FILE 898
//*     MACLIB    - Contains macros used in assembler               *   FILE 898
//*                 programs                                        *   FILE 898
//*                                                                 *   FILE 898
//*     DB2.UTILS - Examples of REXX commands to execute            *   FILE 898
//*                 functions on DB2 database provided by           *   FILE 898
//*                 some 3PP that may be useful to DBAs.            *   FILE 898
//*                                                                 *   FILE 898
//*     I have extracted  the $README and $$$INDEX and attached     *   FILE 898
//*     them separately for your (or whoever) info.  The $README    *   FILE 898
//*     content is circa Jan 2011 when I was going to make a        *   FILE 898
//*     subset of the better routines (hence the ALLIN1             *   FILE 898
//*     references), however, never eventuated past the doco        *   FILE 898
//*     with my untimely redundancy and the changes made since      *   FILE 898
//*     (today) have been cosmetic blatant spelling/grammar         *   FILE 898
//*     corrections, however, it should give an indication of       *   FILE 898
//*     the highlights and my humble order of preference.  You      *   FILE 898
//*     can see from the list of datasets that the source and       *   FILE 898
//*     loadmods have been XMITted to their own datasets in this    *   FILE 898
//*     packaging.                                                  *   FILE 898
//*                                                                 *   FILE 898
//*     I have no objection in anyone contacting me by phone or     *   FILE 898
//*     email.  I can assist with most queries, however, heavy      *   FILE 898
//*     debugging and customising would be a tad too taxing.        *   FILE 898
//*                                                                 *   FILE 898
//*     Regards,                                                    *   FILE 898
//*     Alex Kara                                                   *   FILE 898
//*     29 McDonald Way                                             *   FILE 898
//*     Churchill                                                   *   FILE 898
//*     VIC  3842                                                   *   FILE 898
//*     Australia                                                   *   FILE 898
//*     alexkara@aussiebb.com.au                                    *   FILE 898
//*     +61 3 5122-3374                                             *   FILE 898
//*                                                                 *   FILE 898
//*     - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 898
//*                                                                 *   FILE 898
//*     Note from Sam Golob:                                        *   FILE 898
//*     ---- ---- --- -----                                         *   FILE 898
//*     I figured out a way to make TAPEMAP show member names for   *   FILE 898
//*     XMIT-format pds'es.  I put the PDS into IEBUPDTE SYSIN      *   FILE 898
//*     (really PDSLOAD) format, delete the data between all the    *   FILE 898
//*     ./ ADD cards, and copy the result into this pds as a        *   FILE 898
//*     member.  TAPEMAP will read this member and display the      *   FILE 898
//*     names from all the ./ ADD NAME=  cards.                     *   FILE 898
//*                                                                 *   FILE 898
//*     These members are marked with a userid of MEMBERS, and are: *   FILE 898
//*                                                                 *   FILE 898
//*     $$MEM    - Member names in $$       XMIT file member        *   FILE 898
//*     ASMMEM   - Member names in ASM      XMIT file member        *   FILE 898
//*     DB2UTMEM - Member names in DB2UTILS XMIT file member        *   FILE 898
//*     MACLIMEM - Member names in MACLIB   XMIT file member        *   FILE 898
//*                                                                 *   FILE 898
//***FILE 899 is a TSO command to format your own ACEE and          *   FILE 899
//*           display its contents.  A callable version of          *   FILE 899
//*           this program is also included in this file.           *   FILE 899
//*           The callable version can be adapted to format         *   FILE 899
//*           any ACEE, given its initial address.                  *   FILE 899
//*                                                                 *   FILE 899
//***FILE 900 is a set of programs which run under either old MVS   *   FILE 900
//*           or z/OS to calculate MD5 checksums.  Please see the   *   FILE 900
//*           member called @FILEMD5, which contains descriptions   *   FILE 900
//*           of all the MD5**  pds members found in this file.     *   FILE 900
//*                                                                 *   FILE 900
//*      support:  sbgolob@cbttape.org                              *   FILE 900
//*                                                                 *   FILE 900
//*      SHA-1 and SHA-2 support added, May 2016.                   *   FILE 900
//*                                                                 *   FILE 900
//*      SHA-384 and SHA-512 support added, Aug 2016.               *   FILE 900
//*                                                                 *   FILE 900
//*      Fixed for 8-character TSO prefixes in z/OS 2.3.            *   FILE 900
//*                                                                 *   FILE 900
//*      Fixed by Peter Glanzmann for Extended Address Volumes.     *   FILE 900
//*                                                                 *   FILE 900
//*      More new members for File 900.                             *   FILE 900
//*                                                                 *   FILE 900
//*      SHA1PGM  - batch version of SHA1SUM.                       *   FILE 900
//*      SHA1PGM$ - JCL to assemble SHA1PGM.                        *   FILE 900
//*      SHA2PGM  - batch version of SHA2SUM.                       *   FILE 900
//*      SHA2PGM$ - JCL to assemble SHA2PGM.                        *   FILE 900
//*      MD5P24$  - JCL to assemble MD5P24 (24 bit version)         *   FILE 900
//*                 with IFOX00, using an MVS3.8 copy of            *   FILE 900
//*                 SYS1.MACLIB. IFOX00 can't handle new            *   FILE 900
//*                 macro features in z/OS SYS1.MACLIB.             *   FILE 900
//*                                                                 *   FILE 900
//*      And more new members for File 900.                         *   FILE 900
//*                                                                 *   FILE 900
//*      CKSPGM   - assembler source for the CKSPGM batch           *   FILE 900
//*                 program which is independent from the           *   FILE 900
//*                 CKSUM TSO command.                              *   FILE 900
//*                                                                 *   FILE 900
//*      CKSPGM$  - JCL to assemble CKSPGM and the CKSUMR           *   FILE 900
//*                 subprogram.                                     *   FILE 900
//*                                                                 *   FILE 900
//*      CKSUM    - assembler source for the 31-bit CKSUM TSO       *   FILE 900
//*                 command.  It calls the CKSUMR subprogram.       *   FILE 900
//*                                                                 *   FILE 900
//*      CKSUM$   - JCL to assemble CKSUM and the CKSUMR            *   FILE 900
//*                 subprogram.                                     *   FILE 900
//*                                                                 *   FILE 900
//*      CKSUM#   - TSO HELP text for the CKSUM TSO command.        *   FILE 900
//*                                                                 *   FILE 900
//*      CKSUMR   - assembler source for CKSUMR subprogram          *   FILE 900
//*                 This must be linked with the CKSUM TSO          *   FILE 900
//*                 command, and the CKSPGM program.                *   FILE 900
//*                                                                 *   FILE 900
//*      CKSUMR24 - assembler source for same CKSUMR subprogram,    *   FILE 900
//*                 with AMODE and RMODE removed for IFOX00         *   FILE 900
//*                 assembler.                                      *   FILE 900
//*                 Intended for MVS 3.8 systems.                   *   FILE 900
//*                                                                 *   FILE 900
//*      CKSUM24  - assembler source for the 24-bit CKSUM TSO       *   FILE 900
//*                 command.  Intended for MVS 3.8 systems.         *   FILE 900
//*                                                                 *   FILE 900
//*      CKSUM24$ - JCL to assemble CKSUM24 and CKSUMR24 using      *   FILE 900
//*                 the MVS 3.8 IFOX00 assembler, and link as       *   FILE 900
//*                 the 24-bit CKSUM TSO command.                   *   FILE 900
//*                                                                 *   FILE 900
//*      - - - - - - - - - - - - - - - - - - - - - - - - - - -      *   FILE 900
//*                                                                 *   FILE 900
//*      SHA1SUM  - Assembler source for SHA-1 generating command   *   FILE 900
//*                       (Fix. DS1LSTAR is always 0 for a PDSE,    *   FILE 900
//*                        so always read the dataset even if       *   FILE 900
//*                        DS1LSTAR is 0.)                          *   FILE 900
//*                                                                 *   FILE 900
//*      SHA2SUM  - Assembler source for SHA-2 generating command   *   FILE 900
//*                       (Fix. DS1LSTAR is always 0 for a PDSE,    *   FILE 900
//*                        so always read the dataset even if       *   FILE 900
//*                        DS1LSTAR is 0.)                          *   FILE 900
//*                                                                 *   FILE 900
//*      SHA3SUM  - Assembler source for SHA-384 generating command *   FILE 900
//*                       (Fix. DS1LSTAR is always 0 for a PDSE,    *   FILE 900
//*                        so always read the dataset even if       *   FILE 900
//*                        DS1LSTAR is 0.)                          *   FILE 900
//*                                                                 *   FILE 900
//*      SHA5SUM  - Assembler source for SHA-512 generating command *   FILE 900
//*                       (Fix. DS1LSTAR is always 0 for a PDSE,    *   FILE 900
//*                        so always read the dataset even if       *   FILE 900
//*                        DS1LSTAR is 0.)                          *   FILE 900
//*                                                                 *   FILE 900
//*      MD5      - Assembler source for MD5 subprogram, which      *   FILE 900
//*                 is a modification of the MD5 program for        *   FILE 900
//*                 REXX.  This must be linked with the MD5SUM      *   FILE 900
//*                 TSO command.                                    *   FILE 900
//*                                                                 *   FILE 900
//*      MD5A     - Assembler source for same MD5 subprogram,       *   FILE 900
//*                 with inline macros changed for IFOX00           *   FILE 900
//*                 assembler.  Intended for MVS370 systems.        *   FILE 900
//*                                                                 *   FILE 900
//*      MD5R     - Assembler source for same MD5 subprogram,       *   FILE 900
//*                 with 8 STCM instructions replaced with 2        *   FILE 900
//*                 STRV.  STRV is comparatively new, from circa    *   FILE 900
//*                 2002.  STRV is like ST but the bytes are        *   FILE 900
//*                 stored in reverse order, as in hex 12345678     *   FILE 900
//*                 being stored as hex 78563412. The MVS 3.8       *   FILE 900
//*                 assembler IFOX00 does not support the STRV      *   FILE 900
//*                 op code.                                        *   FILE 900
//*                                                                 *   FILE 900
//*      MD5COB$  - JCL to compile and run an Enterprise Cobol      *   FILE 900
//*                 program that calls the MD5 subroutine.          *   FILE 900
//*                                                                 *   FILE 900
//*      MD5DATA  - JCL to create test data for MD5SUM, the same    *   FILE 900
//*                 test data used in MD5REXX                       *   FILE 900
//*                                                                 *   FILE 900
//*      MD5FORT$ - JCL to compile and run a Fortran G program      *   FILE 900
//*                 that calls the MD5 subroutine.                  *   FILE 900
//*                                                                 *   FILE 900
//*      MD5PGM   - Batch program to produce the same output as     *   FILE 900
//*                 the MD5SUM command.                             *   FILE 900
//*                                                                 *   FILE 900
//*      MD5P24   - 24-bit version of MV5PGM.                       *   FILE 900
//*                                                                 *   FILE 900
//*      MD5PLI$  - JCL to compile and run an Enterprise PL/I       *   FILE 900
//*                 program that calls the MD5 subroutine.          *   FILE 900
//*                                                                 *   FILE 900
//*      MD5REXX  - A copy of the source code for the MD5 for       *   FILE 900
//*                 REXX by Leland Lucius, which was the base       *   FILE 900
//*                 from which member MD5 was created.              *   FILE 900
//*                                                                 *   FILE 900
//*      MD5SUM   - assembler source for the 31-bit MD5SUM TSO      *   FILE 900
//*                 command.  It calls the MD5 subprogram.          *   FILE 900
//*                       (Fix. DS1LSTAR is always 0 for a PDSE,    *   FILE 900
//*                        so always read the dataset even if       *   FILE 900
//*                        DS1LSTAR is 0.)                          *   FILE 900
//*                                                                 *   FILE 900
//*      MD5SUM$  - JCL to assemble MD5SUM and the MD5              *   FILE 900
//*                 subprogram.                                     *   FILE 900
//*                                                                 *   FILE 900
//*      MD5SUM#  - TSO HELP text for the MD5SUM TSO command.       *   FILE 900
//*                                                                 *   FILE 900
//*      MD5SUMA$ - JCL to assemble MD5SUM24 and MD5A using         *   FILE 900
//*                 IFOX00.  Intended for MVS370 systems.           *   FILE 900
//*                                                                 *   FILE 900
//*      MD5SUM2$ - JCL to assemble MD5SUM24 and MD5 using          *   FILE 900
//*                 ASMA90.                                         *   FILE 900
//*                                                                 *   FILE 900
//*      MD5SUM24 - Assembler source for the 24-bit MD5SUM TSO      *   FILE 900
//*                 command, which is the base from which the       *   FILE 900
//*                 31-bit version was converted. Much of this      *   FILE 900
//*                 code was borrowed from the COUNT TSO command    *   FILE 900
//*                 in File 300.  Intended for MVS 3.8 systems.     *   FILE 900
//*                                                                 *   FILE 900
//*      MD5URL   - Information about testing Leland Lucius's code  *   FILE 900
//*                 in MD5REXX                                      *   FILE 900
//*                                                                 *   FILE 900
//***FILE 901 is the ASSIST assembler for OS/360 and for similar    *   FILE 901
//*           operating systems, presented here courtesy of Jay     *   FILE 901
//*           Moseley.                                              *   FILE 901
//*                                                                 *   FILE 901
//*           email:  dino@jaymoseley.com                           *   FILE 901
//*                                                                 *   FILE 901
//***FILE 902 is from Jay Moseley and contains date conversion      *   FILE 902
//*           routines written in Assembler.  These were originally *   FILE 902
//*           written for Y2K purposes, but they can prove useful   *   FILE 902
//*           in other situations as well.                          *   FILE 902
//*                                                                 *   FILE 902
//*           The structure of each of these programs allows them   *   FILE 902
//*           to be called by COBOL programs and return the data    *   FILE 902
//*           to the calling program.                               *   FILE 902
//*                                                                 *   FILE 902
//*           email:  dino@jaymoseley.com                           *   FILE 902
//*                                                                 *   FILE 902
//***FILE 903 is from Jay Moseley and contains field formatting     *   FILE 903
//*           routines that can be used in CICS transactions to     *   FILE 903
//*           verify the contents of entered fields.                *   FILE 903
//*                                                                 *   FILE 903
//*           email:  dino@jaymoseley.com                           *   FILE 903
//*                                                                 *   FILE 903
//*     Description of PDS members:                                 *   FILE 903
//*     EYEC     - ALC macro                                        *   FILE 903
//*     FMT$ASM  - jobstream to assemble/link the routines          *   FILE 903
//*     FMT$INST - jobstream to allocate load library & submit      *   FILE 903
//*                FMT$ASM                                          *   FILE 903
//*     FMT$IVP  - jobstream to run the installation                *   FILE 903
//*                verification program                             *   FILE 903
//*     FMTIVP   - COBOL Installation Verification program          *   FILE 903
//*     IFMTFILL - input field must be filled                       *   FILE 903
//*     IFMTFLPT - input field floating point format                *   FILE 903
//*     IFMTHEX  - input field hex digits                           *   FILE 903
//*     IFMTLJST - input field left justify                         *   FILE 903
//*     IFMTMASK - input field extract using mask                   *   FILE 903
//*     IFMTNIB  - input field no imbedded blanks                   *   FILE 903
//*     OFMTHEX  - output field printable hex digits                *   FILE 903
//*     OFMTMONY - output field monetary field as words             *   FILE 903
//*                                                                 *   FILE 903
//***FILE 904 is from Anthony Cieri and contains a collection of    *   FILE 904
//*           exits and programs designed to work with IBM's        *   FILE 904
//*           connect:direct product FMID HDGA510.  These exits     *   FILE 904
//*           go back a long way, but they have been refreshed      *   FILE 904
//*           to work with IBM Connect:Direct Version 5.1.          *   FILE 904
//*                                                                 *   FILE 904
//*           email:  ACieri@seic.com                               *   FILE 904
//*                                                                 *   FILE 904
//*       The contents of this CBT tape submission are various      *   FILE 904
//*       Connect:Direct mods that I have written and used over     *   FILE 904
//*       many years. Some of these go back to the 'System          *   FILE 904
//*       Center" days. I have "refreshed" these for our recent     *   FILE 904
//*       upgrade to IBM Connect:Direct Version 5.1 (HDGA510).      *   FILE 904
//*       The collection is categorized as follows:                 *   FILE 904
//*                                                                 *   FILE 904
//*            1) Assembler Exits                                   *   FILE 904
//*            2) ARS members                                       *   FILE 904
//*            3) Automation stuff                                  *   FILE 904
//*            4) OPLIST members                                    *   FILE 904
//*            5) Perl members                                      *   FILE 904
//*            6) Stats members                                     *   FILE 904
//*                                                                 *   FILE 904
//*       See member $$README in this pds for more details.         *   FILE 904
//*                                                                 *   FILE 904
//***FILE 905 is from Sam Golob (initially) and contains common     *   FILE 905
//*           storage information (CSA) about some of the PARMLIB   *   FILE 905
//*           members in z/OS.  This is (of necessity) a work in    *   FILE 905
//*           progress.  We want to add information about more      *   FILE 905
//*           PARMLIB members, as we accumulate more knowledge      *   FILE 905
//*           and contributions from people.                        *   FILE 905
//*                                                                 *   FILE 905
//*           We want to reveal the addresses that show how to      *   FILE 905
//*           access each PARMLIB member's common storage address   *   FILE 905
//*           (CSA) block(s) of information.  We'll do it, one      *   FILE 905
//*           PARMLIB member at a time, and keep adding members     *   FILE 905
//*           as we can.  We invite anyone who knows about any      *   FILE 905
//*           PARMLIB member's CSA information to please update     *   FILE 905
//*           this file with your knowledge, and send the           *   FILE 905
//*           information to me, so I can add it in.  Thanks much.  *   FILE 905
//*                                                                 *   FILE 905
//*           Each member name of this pds will correspond to a     *   FILE 905
//*           PARMLIB member name.                                  *   FILE 905
//*                                                                 *   FILE 905
//*       email:  sbgolob@cbttape.org                               *   FILE 905
//*                                                                 *   FILE 905
//*       Explanation:                                              *   FILE 905
//*                                                                 *   FILE 905
//*           It makes sense that every (or almost every) PARMLIB   *   FILE 905
//*           setting is reflected somewhere as information in      *   FILE 905
//*           common storage.  Otherwise, how could the system      *   FILE 905
//*           use this information or refer to this information?    *   FILE 905
//*           So it is our aim to start with selected PARMLIB       *   FILE 905
//*           members that we know about, and show how and where    *   FILE 905
//*           their PARMLIB settings are reflected in common        *   FILE 905
//*           storage.                                              *   FILE 905
//*                                                                 *   FILE 905
//*           The starting point for our investigation is of        *   FILE 905
//*           course, the z/OS Initialization and Tuning Reference. *   FILE 905
//*                                                                 *   FILE 905
//*           Member names in this pds, will correspond to          *   FILE 905
//*           PARMLIB member names, as described in the Init        *   FILE 905
//*           and Tuning Reference manual.                          *   FILE 905
//*                                                                 *   FILE 905
//*       Further Explanation:                                      *   FILE 905
//*                                                                 *   FILE 905
//*           Obviously, the system, in order to reference the      *   FILE 905
//*           values stored in these common storage areas, needs    *   FILE 905
//*           an "address".  We see that all of these areas are     *   FILE 905
//*           found using one or more definitely defined addresses. *   FILE 905
//*           That being the case, we want to reveal the addresses  *   FILE 905
//*           which show how to access each PARMLIB member's        *   FILE 905
//*           block(s) of information.                              *   FILE 905
//*                                                                 *   FILE 905
//*           Where are the addresses to each area?  Of course      *   FILE 905
//*           they are known to the IBM system developers.  But     *   FILE 905
//*           many of them are known to us too.  IBM macros         *   FILE 905
//*           define all these areas.  Many of the IBM macros       *   FILE 905
//*           are distributed in SYS1.MACLIB, SYS1.MODGEN, or       *   FILE 905
//*           other places.  Others of these macros are internal    *   FILE 905
//*           to IBM only.  IBM developers know about them, but     *   FILE 905
//*           we "outsiders" have to figure them out.  Some of      *   FILE 905
//*           those areas have been "figured out" already, by       *   FILE 905
//*           people who needed to display the information, and     *   FILE 905
//*           we want to publish as much of that info as we can.    *   FILE 905
//*           For the purpose, we have included the SHOWzOS         *   FILE 905
//*           macro library in this pds, as member SHOWMACS.        *   FILE 905
//*           SHOWMACS includes descriptions of many internal       *   FILE 905
//*           IBM macros whose layouts people have figured out.     *   FILE 905
//*                                                                 *   FILE 905
//*           So, it is our aim to help the programmer who wants    *   FILE 905
//*           to find "system internals" information about each     *   FILE 905
//*           PARMLIB member.  Since this is a daunting task,       *   FILE 905
//*           we will start with the few members we know about,     *   FILE 905
//*           and we'll grow the collection from there.  ANYONE     *   FILE 905
//*           and EVERYONE is invited to contribute, in the areas   *   FILE 905
//*           that he/she knows about.  Please help us expand       *   FILE 905
//*           this collection of knowledge.  Thank you, in advance. *   FILE 905
//*                                                                 *   FILE 905
//*       PARMLIB Members Currently Supported:                      *   FILE 905
//*                                                                 *   FILE 905
//*           DEVSUP                                                *   FILE 905
//*           IKJTSO                                                *   FILE 905
//*           LPALST                                                *   FILE 905
//*           VATLST                                                *   FILE 905
//*                                                                 *   FILE 905
//***FILE 906 is from Stephen McColley, and contains a TSO command  *   FILE 906
//*           and ISPF panel, to list space characteristics of      *   FILE 906
//*           mounted DASD volumes.  This is a variant of the TSO   *   FILE 906
//*           LSPACE command.  It is quite robust and helpful, so   *   FILE 906
//*           you might like to try it.                             *   FILE 906
//*                                                                 *   FILE 906
//*           If you are already running an LSPACE command, and     *   FILE 906
//*           you want to additionally run this command under its   *   FILE 906
//*           original name of STLSPACE, then edit the STLSPACE     *   FILE 906
//*           source code and delete the                            *   FILE 906
//*                                                                 *   FILE 906
//*           PUNCH ' ALIAS LSPACE '                                *   FILE 906
//*                                                                 *   FILE 906
//*           line.                                                 *   FILE 906
//*                                                                 *   FILE 906
//*       email:     Stephen.McColley@MVSProgrammer.com             *   FILE 906
//*                                                                 *   FILE 906
//*       address:   McColley Systems Software Inc.                 *   FILE 906
//*                  2288 Marietta Hwy.                             *   FILE 906
//*                  Suite #62                                      *   FILE 906
//*                  Canton GA 30144                                *   FILE 906
//*                  770-704-8123                                   *   FILE 906
//*                                                                 *   FILE 906
//***FILE 907 is from Nick Barnes and contains a PC application     *   FILE 907
//*           to read XMIT-format files on the PC.  The program     *   FILE 907
//*           is called XiFrame XMI Explorer, and is an executable  *   FILE 907
//*           to be downloaded in BINARY to the PC and installed    *   FILE 907
//*           there.  This version of XiFrame XMI Explorer is       *   FILE 907
//*           properly signed for Windows, and should give no       *   FILE 907
//*           problems during the install.                          *   FILE 907
//*                                                                 *   FILE 907
//*       To install on a Windows machine, download member XIXMIEXP *   FILE 907
//*       in BINARY to the PC, rename it as XIXMIEXP.exe and run    *   FILE 907
//*       it.                                                       *   FILE 907
//*                                                                 *   FILE 907
//*       email  :  support@xiframe.com                             *   FILE 907
//*                                                                 *   FILE 907
//*       website:  www.xiframe.com                                 *   FILE 907
//*                                                                 *   FILE 907
//***FILE 908 is from James Halley and contains a package to send   *   FILE 908
//*           ISPF outputs to Windows workstations for printing     *   FILE 908
//*           and many types of further post-processing.  A short   *   FILE 908
//*           description follows below.  You should also see the   *   FILE 908
//*           pds member called $README.                            *   FILE 908
//*                                                                 *   FILE 908
//*           email:  jimhalley627@gmail.com                        *   FILE 908
//*                                                                 *   FILE 908
//*       ISPF Client Server Local Dialogs and Facilities           *   FILE 908
//*       ---- ------ ------ ----- ------- --- ----------           *   FILE 908
//*                                                                 *   FILE 908
//*     This library contains ISPF components that make it          *   FILE 908
//*     easier to move files and reports between a batch or         *   FILE 908
//*     online ISPF session and a Microsoft Windows workstation     *   FILE 908
//*     running the ISPF Workstation Agent (WSA).                   *   FILE 908
//*                                                                 *   FILE 908
//*     These tools are intended for non-productional use and       *   FILE 908
//*     may not be suitable for or function in your                 *   FILE 908
//*     environment.  Communication between a mainframe ISPF        *   FILE 908
//*     session and an ISPF Workstation Agent through an IP         *   FILE 908
//*     connection is required but can be prevented by network      *   FILE 908
//*     (e.g. firewall and communication port) settings.            *   FILE 908
//*     Contact a member of your network support team if a          *   FILE 908
//*     connection between your ISPF session and a Workstation      *   FILE 908
//*     Agent cannot be established.                                *   FILE 908
//*                                                                 *   FILE 908
//*     The ISPF Workstation Agent "Windows 2000/NT" install        *   FILE 908
//*     executable prior to z/OS 2.1 is not compatible with         *   FILE 908
//*     Microsoft Windows 7 unless z/OS APAR OA39571 has been       *   FILE 908
//*     implemented:                                                *   FILE 908
//*     http://www-01.ibm.com/support/docview.wss?uid=isg1OA39571   *   FILE 908
//*                                                                 *   FILE 908
//*     To use ISPF Client Server with Windows 7 if your z/OS       *   FILE 908
//*     version is below 2.1 and APAR OA39571 has not been          *   FILE 908
//*     applied:                                                    *   FILE 908
//*                                                                 *   FILE 908
//*       *  Upgrade z/OS to Version 2.1                            *   FILE 908
//*       *  or Apply APAR OA39571                                  *   FILE 908
//*       *  or obtain the Windows 7 compatible install             *   FILE 908
//*          executable for the Workstation Agent from IBM.         *   FILE 908
//*       *  or copy the five critical WSA components from a        *   FILE 908
//*          workstation running Windows XP or below.  (The         *   FILE 908
//*          least acceptable option.)                              *   FILE 908
//*       *  or download member ISPFINST from this library and      *   FILE 908
//*          unzip the content which is the Workstation Agent       *   FILE 908
//*          install file that came with APAR OA39571.              *   FILE 908
//*                                                                 *   FILE 908
//*     Constraints of copying the five WSA components from a       *   FILE 908
//*     WinXP to Win7:                                              *   FILE 908
//*                                                                 *   FILE 908
//*       *  Older versons of the WSA sometimes do not find or      *   FILE 908
//*          use Windows Socket Library components even when        *   FILE 908
//*          the path is manually entered in the WSA "Set           *   FILE 908
//*          Winsock Path" dialog.                                  *   FILE 908
//*       *  The older WSA had other issues that were resolved      *   FILE 908
//*          by APAR 0A39571 including abending after               *   FILE 908
//*          tranferring 1.5 GB of a large text file.               *   FILE 908
//*                                                                 *   FILE 908
//*     The WSA supplied by APAR OA39571 has been successfully      *   FILE 908
//*     tested on a z/OS 1.13 system on which APAR 0A39571 has      *   FILE 908
//*     not implemented.                                            *   FILE 908
//*                                                                 *   FILE 908
//*     This library contains a number of module types: CLIST,      *   FILE 908
//*     REXX; ISPF panel, skeleton and message; MVS procedure       *   FILE 908
//*     and JCL, Microsoft Word, zipped Microsoft Windows           *   FILE 908
//*     executable.                                                 *   FILE 908
//*                                                                 *   FILE 908
//*     The $README member describes the type and purpose of        *   FILE 908
//*     each member in this library to assist in moving             *   FILE 908
//*     members to libraries of the appropriate types.              *   FILE 908
//*                                                                 *   FILE 908
//*     The three "MVS batch" batch components must be renamed      *   FILE 908
//*     when moved to the libraries from which they will be         *   FILE 908
//*     used.  Components associated with ISPF dialogs can be       *   FILE 908
//*     used as named.                                              *   FILE 908
//*                                                                 *   FILE 908
//***FILE 909 is from Glenn Siegel and it a package to allow you    *   FILE 909
//*           to email CA-Dispatch reports.  Please see the         *   FILE 909
//*           explanations below.                                   *   FILE 909
//*                                                                 *   FILE 909
//*       email:  glennsiegel@optonline.net                         *   FILE 909
//*                                                                 *   FILE 909
//*    I wrote this because one of my clients was using a very      *   FILE 909
//*    old product called Doc View from CA.  They were unable       *   FILE 909
//*    to install Doc View under Windows 7, which needed to be      *   FILE 909
//*    rolled out, since XP is no longer supported.  The            *   FILE 909
//*    choices CA gave them were to buy Web view or CA-Spool.       *   FILE 909
//*    Both products were a bit pricey so I came up with this       *   FILE 909
//*    solution for them.                                           *   FILE 909
//*                                                                 *   FILE 909
//*    GSMAIL is a product that allows you to email CA-Dispatch     *   FILE 909
//*    reports. First you will need two other freeware products     *   FILE 909
//*    installed on your system.  The first is MPFXTALL written by  *   FILE 909
//*    Glenn Siegel FILE708 at your friendly neighborhood CBTTAPE   *   FILE 909
//*    dot org; this product is a very robust automation tool.      *   FILE 909
//*    The second is XMITIP by Lionel B. Dyck a great handy dandy   *   FILE 909
//*    way of emailing any file from MVS to the world, you can      *   FILE 909
//*    find it on CBT File 314.                                     *   FILE 909
//*                                                                 *   FILE 909
//*    Once these two products have been installed, everything      *   FILE 909
//*    else you need is contained within this file.                 *   FILE 909
//*                                                                 *   FILE 909
//***FILE 910 is from Thierry Falissard and contains a DBMS         *   FILE 910
//*           system called NoSQLz.  See the introduction below,    *   FILE 910
//*           and see the included PDF documentation for any        *   FILE 910
//*           particulars (member #USERGDE).                        *   FILE 910
//*                                                                 *   FILE 910
//*           website:  www.nosqlz.com                              *   FILE 910
//*                                                                 *   FILE 910
//*     We are proud to introduce NoSQLz, a new DBMS on z/OS.       *   FILE 910
//*                                                                 *   FILE 910
//*     It enables you to manage key-value schema-less tables;      *   FILE 910
//*     data is "format-agnostic". NoSQLz can be used through       *   FILE 910
//*     function calls in application programs written in           *   FILE 910
//*     Cobol, assembler, REXX, etc.                                *   FILE 910
//*                                                                 *   FILE 910
//*     NoSQLz belongs to the NoSQL system family. Only basic       *   FILE 910
//*     CRUD functions (create, read, update, delete) are           *   FILE 910
//*     provided. It is designed to be very straightforward and     *   FILE 910
//*     easy to implement.                                          *   FILE 910
//*                                                                 *   FILE 910
//*     ACID properties are provided, so as to have "real           *   FILE 910
//*     transactions", through optimistic concurrency control,      *   FILE 910
//*     timestamp-based concurrency control and multiversion        *   FILE 910
//*     concurrency control (MVCC); retrieval is always             *   FILE 910
//*     favored, at the (possible) expense of updates.              *   FILE 910
//*                                                                 *   FILE 910
//*     Record size varies from 500 bytes (minimum) to 75 MB        *   FILE 910
//*     (large records supported). There can be up to               *   FILE 910
//*     approximately 1,000,000,000 records in a single table.      *   FILE 910
//*                                                                 *   FILE 910
//*     The current version of the product is issued as             *   FILE 910
//*     freeware (for a monoplex); only the full Sysplex            *   FILE 910
//*     version will be chargeable.                                 *   FILE 910
//*                                                                 *   FILE 910
//*     In the the full Sysplex version, tables are designed        *   FILE 910
//*     for multiple concurrent access natively throughout the      *   FILE 910
//*     sysplex, with no need for VSAM record-level sharing         *   FILE 910
//*     (RLS) support in the sysplex, nor for any specific          *   FILE 910
//*     coupling or locking mechanism; only a minimal               *   FILE 910
//*     implementation of a sysplex will be required.               *   FILE 910
//*                                                                 *   FILE 910
//*     Usages:  big data; highly-available data; data              *   FILE 910
//*     warehousing; document store; Internet applications;         *   FILE 910
//*     OLAP; quick alternative to existing relational DBMSs;       *   FILE 910
//*     etc.                                                        *   FILE 910
//*                                                                 *   FILE 910
//***FILE 911 is from Gabriel Gargiulo and contains answers for     *   FILE 911
//*           problems in his textbook on the REXX language:        *   FILE 911
//*                                                                 *   FILE 911
//*                  "The REXX Language on TSO"                     *   FILE 911
//*                    by Gabriel F. Gargiulo.                      *   FILE 911
//*                                                                 *   FILE 911
//*       ISBN-10: 1479104779 ISBN-13: 978-1479104772               *   FILE 911
//*                                                                 *   FILE 911
//*       email:  gabeg@yoursecondlanguage.com                      *   FILE 911
//*                                                                 *   FILE 911
//*       - - - - - - - - - - - - - - - - - - - - - - - - - -       *   FILE 911
//*                                                                 *   FILE 911
//*       See the following URL for direct information about        *   FILE 911
//*        the book.                                                *   FILE 911
//*                                                                 *   FILE 911
//*       http://theamericanprogrammer.com/programming/  (continue) *   FILE 911
//*           rexx.programming.book.shtml                           *   FILE 911
//*                                                                 *   FILE 911
//*       - - - - - - - - - - - - - - - - - - - - - - - - - -       *   FILE 911
//*                                                                 *   FILE 911
//*       Included in this file are:                                *   FILE 911
//*                                                                 *   FILE 911
//*       1.  Problems in the book and answers to them.             *   FILE 911
//*                                                                 *   FILE 911
//*       2.  Various REXX EXECs that are useful (marked with       *   FILE 911
//*            a userid of EXEC).                                   *   FILE 911
//*                                                                 *   FILE 911
//*       Please see members @PROBLMS, ALL, and ALLEXECS for        *   FILE 911
//*       further summary information and instruction.              *   FILE 911
//*                                                                 *   FILE 911
//*       Of course, it's better to have the book, together with    *   FILE 911
//*       this file, but even so, this file will be helpful, even   *   FILE 911
//*       by itself.  The book can (and should) be ordered on       *   FILE 911
//*       Amazon.                                                   *   FILE 911
//*                                                                 *   FILE 911
//***FILE 912 is from Don Higgins, and contains a set of his        *   FILE 912
//*           macros, structured and general purpose, which he      *   FILE 912
//*           updated for his z390 assembler project in 2008        *   FILE 912
//*           or thereabouts.  Most of these are updates to Don's   *   FILE 912
//*           old macros which were on the SPLA MVS tape in former  *   FILE 912
//*           years, and which have been preserved on the CBT       *   FILE 912
//*           Overflow Tape, File 178.                              *   FILE 912
//*                                                                 *   FILE 912
//*           This file, with (almost) each member being in         *   FILE 912
//*           IEBUPDTE (really PDSLOAD) format, consists of Don's   *   FILE 912
//*           macros and COPY members to deploy them.  The entire   *   FILE 912
//*           CBT Overflow Tape File 178 has also been included,    *   FILE 912
//*           as member SPLAFILE.  Most of the programs have dates  *   FILE 912
//*           on them, so you can see what is newer or older, if    *   FILE 912
//*           there is duplication of program or macro names.       *   FILE 912
//*                                                                 *   FILE 912
//*           SPM      - Structured Programming macros              *   FILE 912
//*           SPMCPY   - COPY members associated with SPM           *   FILE 912
//*           MACS     - Don's other macros                         *   FILE 912
//*           MACSCPY  - COPY members associated with MACS          *   FILE 912
//*           SPLAFILE - The entire CBT Overflow Tape File 178      *   FILE 912
//*                                                                 *   FILE 912
//*           All macros have been translated from ASCII to EBCDIC. *   FILE 912
//*                                                                 *   FILE 912
//*           There is a lot of study material here, especially     *   FILE 912
//*           in the programs that are in member SPLAFILE.  Most    *   FILE 912
//*           old Assembler techniques never die.                   *   FILE 912
//*                                                                 *   FILE 912
//*           You are supposed to make pds'es out of each member    *   FILE 912
//*           in this file.  Use the PDSLOAD program from File 093  *   FILE 912
//*           or use the helpful members copied here.               *   FILE 912
//*                                                                 *   FILE 912
//*           email  :  don@higgins.net                             *   FILE 912
//*           website:  www.don-higgins.net                         *   FILE 912
//*                                                                 *   FILE 912
//*           Also refer to:                                        *   FILE 912
//*                                                                 *   FILE 912
//*                http://www.z390.org                              *   FILE 912
//*                http://www.z390.org/zcobol/                      *   FILE 912
//*                                                                 *   FILE 912
//***FILE 913 is from Peter H.C. Tsai, and contains a way of        *   FILE 913
//*           displaying SMS information from your z/OS system      *   FILE 913
//*           on your Apple iPhone.                                 *   FILE 913
//*                                                                 *   FILE 913
//*           Documentation is in PDF format, which describes       *   FILE 913
//*           the installation procedure.  Also see member          *   FILE 913
//*           $$INDEX.                                              *   FILE 913
//*                                                                 *   FILE 913
//*           email:  <mz055t@ms13.hinet.net>                       *   FILE 913
//*                                                                 *   FILE 913
//*       The "z/OS Storage Management" iPhone app is now ready     *   FILE 913
//*       on the Apple Store.  You can install it into your         *   FILE 913
//*       iPhone.  The app is called "z/OS Storage Management".     *   FILE 913
//*                                                                 *   FILE 913
//***FILE 914 is from Steve McColley and contains the Shared Spool  *   FILE 914
//*           Mods (previously known as the "Mellon Mods" for JES2) *   FILE 914
//*           which should be good for z/OS 2.1.                    *   FILE 914
//*           (They were tested on a z/OS 2.1 system.)              *   FILE 914
//*           system.)                                              *   FILE 914
//*                                                                 *   FILE 914
//*                Stephen McColley                                 *   FILE 914
//*                McColley Systems Group Inc.                      *   FILE 914
//*                SGMcColley@MVSProgrammer.com                     *   FILE 914
//*                http://WWW.MVSProgrammer.com                     *   FILE 914
//*                770-335-0478                                     *   FILE 914
//*                                                                 *   FILE 914
//*                                                                 *   FILE 914
//*                SSSS H   H  AAA  RRRR  EEEEE DDDD                *   FILE 914
//*               S     H   H A   A R   R E     D   D               *   FILE 914
//*                SSS  HHHHH AAAAA RRRR  EEEE  D   D               *   FILE 914
//*                   S H   H A   A R  R  E     D   D               *   FILE 914
//*               SSSS  H   H A   A R   R EEEEE DDDD                *   FILE 914
//*                                                                 *   FILE 914
//*                   SSSS PPPP   OOO   OOO  L                      *   FILE 914
//*                  S     P   P O   O O   O L                      *   FILE 914
//*                   SSS  PPPP  O   O O   O L                      *   FILE 914
//*                      S P     O   O O   O L                      *   FILE 914
//*                  SSSS  P      OOO   OOO  LLLLL                  *   FILE 914
//*                                                                 *   FILE 914
//*                     M   M  OOO  DDDD   SSSS                     *   FILE 914
//*                     MM MM O   O D   D S                         *   FILE 914
//*                     M M M O   O D   D  SSS                      *   FILE 914
//*                     M   M O   O D   D     S                     *   FILE 914
//*                     M   M  OOO  DDDD  SSSS                      *   FILE 914
//*                                                                 *   FILE 914
//*                     for JES2 2.1 - HJE7790                      *   FILE 914
//*                                                                 *   FILE 914
//*                                                                 *   FILE 914
//*      DISCLAIMER -                                               *   FILE 914
//*                                                                 *   FILE 914
//*    ***********************************************************  *   FILE 914
//*    *                                                         *  *   FILE 914
//*    *  THE MODS ON THIS TAPE HAVE BEEN USED SUCCESSFULLY AND  *  *   FILE 914
//*    *  TO THE BEST OF OUR KNOWLEDGE THEY ARE OPERATIONAL,     *  *   FILE 914
//*    *  HOWEVER NO WARRANTY IS MADE TO THE ACCURACY OF THE     *  *   FILE 914
//*    *  MODS AND NO RESPONSIBILITY IS ASSUMED FOR ANY          *  *   FILE 914
//*    *  MODIFICATION DIRECTLY OR INDIRECTLY CAUSED BY THE USE  *  *   FILE 914
//*    *  OF THE MODIFICATIONS.  IT IS THE USERS RESPONSIBILITY  *  *   FILE 914
//*    *  TO EVALUATE THE USEFULLNESS OF THE MATERIAL.           *  *   FILE 914
//*    *                                                         *  *   FILE 914
//*    *  WE DO NOT GUARANTEE TO KEEP ANY MATERIAL PROVIDED UP   *  *   FILE 914
//*    *  TO DATE, NOR DO WE GUARANTEE TO PROVIDE ANY            *  *   FILE 914
//*    *  CORRECTIONS OR EXTENSIONS MADE IN THE FUTURE.          *  *   FILE 914
//*    *                                                         *  *   FILE 914
//*    ***********************************************************  *   FILE 914
//*                                                                 *   FILE 914
//*                                                                 *   FILE 914
//*     This is the installation PDS for the Shared Spool Mods      *   FILE 914
//*     for JES2 2.1.  The Shared Spool Mods were formerly known    *   FILE 914
//*     as the Mellon Shared Spool Mods.                            *   FILE 914
//*                                                                 *   FILE 914
//*     All who use the shared spool mods, owe a debt of            *   FILE 914
//*     gratitude to Mellon Bank for the original implementaion     *   FILE 914
//*     of the shared spool mods, but because it has been           *   FILE 914
//*     maintained outside of Mellon for over 18 years, and has     *   FILE 914
//*     been rewritten twice since then, we will refer to the       *   FILE 914
//*     mods as the SHARED SPOOL MODS from now on.  Once again      *   FILE 914
//*     - - - -                                                     *   FILE 914
//*                    THANK YOU MELLON BANK !                      *   FILE 914
//*                                                                 *   FILE 914
//*      In this PDS you should find the following members.         *   FILE 914
//*                                                                 *   FILE 914
//*                  ( ADMINISTRATIVE MEMBERS )                     *   FILE 914
//*    @@README -   That is this member, you are reading it.        *   FILE 914
//*                                                                 *   FILE 914
//*    DISCLAIM -   Our standard disclaimer -                       *   FILE 914
//*                 we guarantee / warrant nothing!                 *   FILE 914
//*                                                                 *   FILE 914
//*    INSTALL  -   This member describes how to get                *   FILE 914
//*                 install documentation.                          *   FILE 914
//*                 - or just read the next few lines...            *   FILE 914
//*                                                                 *   FILE 914
//*              ( DOCUMENTATION - PDF AND DOC FORMAT MANUALS )     *   FILE 914
//*                                                                 *   FILE 914
//*    There are three (3) seperate manuals.  They are provided     *   FILE 914
//*    in two (2) different formats each.  You must transfer        *   FILE 914
//*    them to your pc with a binary transfer to the correct        *   FILE 914
//*    file type for each before you can use them.  SSM****P        *   FILE 914
//*    members are manuals in PDF format.  SSM****D are members     *   FILE 914
//*    in WORD format and should be downloaded as .DOC files.       *   FILE 914
//*                                                                 *   FILE 914
//*    SSMINSTP -   Shared Spool Mods installation manual           *   FILE 914
//*                 - PDF format (simply download to your           *   FILE 914
//*                 PC as ssminst.pdf - binary xfer)                *   FILE 914
//*                                                                 *   FILE 914
//*    SSMINSTD -   Shared Spool Mods installation manual           *   FILE 914
//*                 - Word Document (simply download to             *   FILE 914
//*                 your PC as ssminst.doc - binary xfer)           *   FILE 914
//*                                                                 *   FILE 914
//*    SSMUSERP -   Shared Spool Mods Users Guide - PDF             *   FILE 914
//*                 format (simply download to your PC as           *   FILE 914
//*                 ssmuser.pdf - binary xfer)                      *   FILE 914
//*                                                                 *   FILE 914
//*    SSMUSERD -   Shared Spool Mods Users Buide - Word            *   FILE 914
//*                 Document (simply download to your PC            *   FILE 914
//*                 as ssmuser.doc - binary xfer)                   *   FILE 914
//*                                                                 *   FILE 914
//*    SSMOPSGP -   Shared Spool Mods Operations Guide -            *   FILE 914
//*                 PDF format (simply download to your PC          *   FILE 914
//*                 as ssmopsg.pdf - binary xfer)                   *   FILE 914
//*                                                                 *   FILE 914
//*    SSMOPSGD -   Shared Spool Mods Operations Guide -            *   FILE 914
//*                 Word Document (simply download to your          *   FILE 914
//*                 PC as ssmopsg.doc - binary xfer)                *   FILE 914
//*                                                                 *   FILE 914
//*                   ( SMP INSTALLATION MEMBERS )                  *   FILE 914
//*    LSES500  -   The SMP/e usermod that you can use to           *   FILE 914
//*                 install the entire package.                     *   FILE 914
//*                                                                 *   FILE 914
//*    LSES500J -   Sample JCL to run the RECEIVE / APPLY Check     *   FILE 914
//*        / APPLY (You must apply lses500 or use the non-smp       *   FILE 914
//*        install method).                                         *   FILE 914
//*                                                                 *   FILE 914
//*                 ( NON-SMP INSTALLATION MEMBERS )                *   FILE 914
//*                                                                 *   FILE 914
//*    ALOCLIBS -  NON-SMP STEP 1 - ALLOCATE NEW LIBRARIES.         *   FILE 914
//*                                                                 *   FILE 914
//*    COPYLIBS -  NON-SMP STEP 2 - POPULATE NEW LIBRARIES.         *   FILE 914
//*                                                                 *   FILE 914
//*              ( COMMON JES2 PARMS NEEDED FOR PACKAGE )           *   FILE 914
//*    JES2PARM -   SAMPLE JES2 PARMS NEEDED TO IMPLEMENT THE       *   FILE 914
//*                 PACKAGE.                                        *   FILE 914
//*                                                                 *   FILE 914
//*    *** The following members are used as input to the  ***      *   FILE 914
//*    ***  COPYLIBS job which is part of the NON_SMP/E    ***      *   FILE 914
//*         install path.                                           *   FILE 914
//*                                                                 *   FILE 914
//*    RAWASM   -  IEBUPDTE format input to populate the ASM        *   FILE 914
//*                library.                                         *   FILE 914
//*                                                                 *   FILE 914
//*    RAWJCL   -  IEBUPDTE format input to populate the JCL        *   FILE 914
//*                library.                                         *   FILE 914
//*                                                                 *   FILE 914
//*    RAWMACS  -  IEBUPDTE format input to populate the MACROS     *   FILE 914
//*                library.                                         *   FILE 914
//*                                                                 *   FILE 914
//*    *** The members with the general name form of SAMP****   *** *   FILE 914
//*    *** are optional IVP (Installation Verification          *** *   FILE 914
//*    *** Procedures) jobs.  member SAMPINDX contains an index *** *   FILE 914
//*    *** of all the SAMP**** jobs.                            *** *   FILE 914
//*                                                                 *   FILE 914
//*                                                                 *   FILE 914
//*    *** THEN WE HAVE THE FOLLOWING FOUR MEMBERS - THEY ARE   *** *   FILE 914
//*    *** NOT REALLY PART OF THE SHARED SPOOL MODS - BUT WE    *** *   FILE 914
//*    *** HAVE BEEN DISTRIBUTING THEM, AND SOME FOLKS STILL    *** *   FILE 914
//*    *** NEED THEM.  IF YOU WANT TO USE THESE, YOU WILL HAVE  *** *   FILE 914
//*    *** TO APPLY THEM SEPERATELY FROM THE SHARED SPOOL MODS  *** *   FILE 914
//*    *** - WE JUST HAVE THE SOURCE - THEY ARE NOT SETUP AS    *** *   FILE 914
//*    *** USERMODS.                                                *   FILE 914
//*                                                                 *   FILE 914
//*    STSCX01A -   OUR VERSION OF THE PAGE SEPARATOR EXIT.         *   FILE 914
//*                 (NOT PART OF SSM'S)                             *   FILE 914
//*                                                                 *   FILE 914
//*    STSCX05B -   PREVENT PURGING BY JOB RANGE. (NOT PART OF      *   FILE 914
//*                 SSM'S)                                          *   FILE 914
//*                                                                 *   FILE 914
//*    STSCX15A -   CAUSES FCBS TO BE RELOADED WITH EACH JOB        *   FILE 914
//*                 UNLESS STD FORMS.                               *   FILE 914
//*                                                                 *   FILE 914
//*    STSCX36A -   SAF PROCESSING FOR JOBS COMING IN FROM          *   FILE 914
//*                 RJE/NJE SOURCES.                                *   FILE 914
//*                                                                 *   FILE 914
//*      THE DOCUMENTATION MEMBERS SUFFIXED WITH A 'P' I.E.         *   FILE 914
//*    SSMINSTP ARE PDF FORMAT DOCUMENTS.  TO USE THEM YOU WILL     *   FILE 914
//*    NEED TO TRANSFER THEM TO A PC USING YOUR FAVORITE FILE       *   FILE 914
//*    TRANSFER PROGRAM USING A BINARY OPTION - IE.  NO             *   FILE 914
//*    TRANSLATION.  YOU WILL PROBABLY NEED TO MAKE SURE THEY       *   FILE 914
//*    ARE TRANSFERRED TO A NEW FILE NAME THAT ENDS IN ".PDF",      *   FILE 914
//*    OR YOU MAY NOT BE ABLE TO READ THEM.                         *   FILE 914
//*                                                                 *   FILE 914
//*      IF YOU CAN NOT READ PDF DOCS THE ORIGINAL "WORD"           *   FILE 914
//*    FORMATTED DOCS ARE INCLUDED IN THE MEMBERS SUFFIXED WITH     *   FILE 914
//*    A "D" I.E. SSMINSTD.  YOU WILL NEED TO OFFLOAD THEM TO A     *   FILE 914
//*    PC FILE WITH A SUFFIX OF .DOC TO READ THEM PROPERLY.         *   FILE 914
//*                                                                 *   FILE 914
//*                                                                 *   FILE 914
//*       THE THREE BASIC PIECES OF DOCUMENTATION ARE -             *   FILE 914
//*                                                                 *   FILE 914
//*    1. THE INSTALLATION GUIDE - GIVES BACKGROUND,                *   FILE 914
//*       INSTALLATION INSTRUCTIONS, AND OTHER INFORMATION          *   FILE 914
//*       NEEDED TO SETUP THE SHARED SPOOL MODS PACKAGE.            *   FILE 914
//*                                                                 *   FILE 914
//*    2. THE USERS GUIDE - GIVES DETAILED INFO ON JECL             *   FILE 914
//*       STATEMENTS AND IS AIMED AT THE END USERS - WHOEVER        *   FILE 914
//*       CODES AND USES JCL.                                       *   FILE 914
//*                                                                 *   FILE 914
//*    3. THE OPERATIONS GUIDE - GIVES DETAILED INFORMATIN ABOUT    *   FILE 914
//*       ALL OF THE NEW JES2 DISPLAY AND MODIFY COMMANDS           *   FILE 914
//*       AVAIALABLE WITH THE PACKAGE.                              *   FILE 914
//*                                                                 *   FILE 914
//*      - - - - - - - - - - - - - - - - - - - - - - - - - - - -    *   FILE 914
//*                                                                 *   FILE 914
//*      Once you have the package set up - please drop me a        *   FILE 914
//*      line at:                                                   *   FILE 914
//*                                                                 *   FILE 914
//*          STEPHEN.MCCOLLEY@MVSPROGRAMMER.COM                     *   FILE 914
//*                                                                 *   FILE 914
//*      so that I can add you to the mailing list.  That way, I    *   FILE 914
//*      can let you know about bugs, fixes, and new releases       *   FILE 914
//*      as I make them avaialable.                                 *   FILE 914
//*                                                                 *   FILE 914
//*      IF YOU DROP ME YOUR REAL MAILING ADDRESS, I WILL SEND      *   FILE 914
//*      YOU A REAL "SHARED SPOOL MODS" COFFEE CUP - I STILL        *   FILE 914
//*      HAVE PLENTY OF THESE.                                      *   FILE 914
//*                                                                 *   FILE 914
//***FILE 915 is from William J. Smith and contains an ISPF dialog  *   FILE 915
//*           to generate JCL that runs the GTZPRINT batch job for  *   FILE 915
//*           IBM's Generic Tracker Facility.  This facility will   *   FILE 915
//*           collect data to prepare a shop that is planning to    *   FILE 915
//*           install EAV's (Extended Access Volumes).  The data    *   FILE 915
//*           tells you what you have to fix, in order that the     *   FILE 915
//*           installation will be EAV-capable; that nothing will   *   FILE 915
//*           get in the way of installing the new Extended Access  *   FILE 915
//*           Volumes.                                              *   FILE 915
//*                                                                 *   FILE 915
//*           email:  sfowjs@sbcglobal.net                          *   FILE 915
//*                                                                 *   FILE 915
//*       PDS Members:                                              *   FILE 915
//*                                                                 *   FILE 915
//*           GTZ        -  REXX                                    *   FILE 915
//*           GTZPRINT   -  PANEL                                   *   FILE 915
//*           GTZPSKEL   -  SKELETN                                 *   FILE 915
//*           GTZPRM00   -  PARMSMP                                 *   FILE 915
//*           GTZP00     -  MSGS                                    *   FILE 915
//*           JOBCARD    -  SKELETN                                 *   FILE 915
//*           GTZSTAKE   -  SASREPT                                 *   FILE 915
//*           GTZSTATS   -  SASREPT                                 *   FILE 915
//*                                                                 *   FILE 915
//***FILE 916 is from Robert A.H. Prins and contains a copy of      *   FILE 916
//*           XMIT-Manager which is installable on 64-bit Windows   *   FILE 916
//*           systems.  The member XMITMG64 is in WinRAR format,    *   FILE 916
//*           so you have to download it in BINARY to a PC and      *   FILE 916
//*           un-RAR this member.  Then it will be installable      *   FILE 916
//*           on a 64-bit Windows system.                           *   FILE 916
//*                                                                 *   FILE 916
//*           email:  sbgolob@cbttape.org                           *   FILE 916
//*                                                                 *   FILE 916
//***FILE 917 is from George DeLuca and contains SELECTIT, which    *   FILE 917
//*           is an EXTREMELY powerful file copying and file        *   FILE 917
//*           manipulation program.  Included is its extensive      *   FILE 917
//*           documentation in both Word and PDF format (over 100   *   FILE 917
//*           pages).  Actually, this program was constructed to be *   FILE 917
//*           very straightforward and simple to use.  There are    *   FILE 917
//*           just a lot of capabilities, including concatenation   *   FILE 917
//*           of input files with unlike formats, and also output   *   FILE 917
//*           files with different formats than the input files.    *   FILE 917
//*           This program is used extensively in production runs   *   FILE 917
//*           at the site where it was developed.                   *   FILE 917
//*                                                                 *   FILE 917
//*           Fixed by Peter Glanzmann for EAV volumes.             *   FILE 917
//*           (Extended Address Volumes)                            *   FILE 917
//*                                                                 *   FILE 917
//*           email:  gddeluca@gmail.com                            *   FILE 917
//*                                                                 *   FILE 917
//*           email:  peter@glanzmann.org                           *   FILE 917
//*                                                                 *   FILE 917
//*     Overview                                                    *   FILE 917
//*     ========                                                    *   FILE 917
//*                                                                 *   FILE 917
//*     SELECTIT is a utility which provides a wide variety         *   FILE 917
//*     of functions related to copying, printing and/or            *   FILE 917
//*     modifying datasets.  Any and all SELECTIT functions         *   FILE 917
//*     can be combined in a single run or requested                *   FILE 917
//*     individually, as you desire.                                *   FILE 917
//*                                                                 *   FILE 917
//*     SELECTIT can sequentially read up to 9 input files          *   FILE 917
//*     (sequential, partitioned, ISAM, or keyed VSAM) and          *   FILE 917
//*     selectively create any number of output files.              *   FILE 917
//*                                                                 *   FILE 917
//*     You may use SELECTIT to copy records (with or without       *   FILE 917
//*     alteration of the records) and/or print them.               *   FILE 917
//*                                                                 *   FILE 917
//*     Features                                                    *   FILE 917
//*     ========                                                    *   FILE 917
//*                                                                 *   FILE 917
//*     ** File Copy - Copy a record from an input file to an       *   FILE 917
//*        output file (unconditionally).                           *   FILE 917
//*                                                                 *   FILE 917
//*     ** Selective Copy - Copy a record only if your supplied     *   FILE 917
//*        condition is met.                                        *   FILE 917
//*                                                                 *   FILE 917
//*     ** Limit Copy - Copy a limited number of records            *   FILE 917
//*        (possibly in conjunction with a user supplied            *   FILE 917
//*        condition).                                              *   FILE 917
//*                                                                 *   FILE 917
//*     ** File print - Print record(s) from an input file.         *   FILE 917
//*                                                                 *   FILE 917
//*     ** Alter Data - Replace the data in any portion of the      *   FILE 917
//*        record with your supplied constant data, data from       *   FILE 917
//*        other locations in the record or data from               *   FILE 917
//*        SELECTIT provided variables (date, jobname,              *   FILE 917
//*        datasetname, etc.).                                      *   FILE 917
//*                                                                 *   FILE 917
//*     ** Record reformat - A record can be completely             *   FILE 917
//*        reformatted, fields can be modified, deleted             *   FILE 917
//*        and/or added.                                            *   FILE 917
//*                                                                 *   FILE 917
//*    ---------------------------------------------------------    *   FILE 917
//*                                                                 *   FILE 917
//*     Send questions, suggestions and/or bug reports to:          *   FILE 917
//*                                                                 *   FILE 917
//*     gddeluca@gmail.com                                          *   FILE 917
//*                                                                 *   FILE 917
//*     George D. Deluca                                            *   FILE 917
//*     116-2075 Amherst Heights Drive                              *   FILE 917
//*     Burlington, Ontario                                         *   FILE 917
//*     L7P 5B8                                                     *   FILE 917
//*     Canada                                                      *   FILE 917
//*                                                                 *   FILE 917
//***FILE 918 is from John McKown and contains the executables for  *   FILE 918
//*           a port of BASH 4.2 to z/OS.  This code was compiled   *   FILE 918
//*           and tested on z/OS 2.1.                               *   FILE 918
//*                                                                 *   FILE 918
//*           The patch level of the code is at patch level 53.     *   FILE 918
//*                                                                 *   FILE 918
//*           This software is licensed under the GPL. If you want  *   FILE 918
//*           the source, it is available on this site in File 919. *   FILE 918
//*                                                                 *   FILE 918
//*           Included in this file are the executables only.       *   FILE 918
//*                                                                 *   FILE 918
//*           email:  john.archie.mckown@gmail.com                  *   FILE 918
//*                                                                 *   FILE 918
//*     Description of Release Level 4.2.53.                        *   FILE 918
//*                                                                 *   FILE 918
//*     This is a port of BASH 4.2, patch level 53, to the z/OS     *   FILE 918
//*     UNIX environment. It should work substantially like it      *   FILE 918
//*     does on other platforms. This includes all of the           *   FILE 918
//*     current patches, including the one for the SHELLSHOCK       *   FILE 918
//*     exploit. Of course, this functionality only applies to      *   FILE 918
//*     the BASH shell, and does not supply other GNU utilities     *   FILE 918
//*     such as GNU grep, sed, gawk, and so on. This port was       *   FILE 918
//*     developed on z/OS 2.1 and has been successfully tested      *   FILE 918
//*     on both z/OS 2.1 and 1.12. It may, or may not, work on      *   FILE 918
//*     z/OS releases prior to 1.12. It does not have any           *   FILE 918
//*     release dependent code in it, but it may have implicit      *   FILE 918
//*     dependencies in Language Environment levels due to it       *   FILE 918
//*     being written in C. This port does _NOT_ implement the      *   FILE 918
//*     "local spawn" functionality which the standard /bin/sh      *   FILE 918
//*     shell for z/OS UNIX does. This means that the               *   FILE 918
//*     _BPX_SHAREAS environment variable has no effect and         *   FILE 918
//*     there is no way to share an address space with the          *   FILE 918
//*     shell process. This could have an impact on performance     *   FILE 918
//*     and functionality of some UNIX commands and shell           *   FILE 918
//*     scripts. This lack does not stop the sharing of an          *   FILE 918
//*     address space by UNIX commands run under BASH. That is,     *   FILE 918
//*     the command can share its (not BASH's) address space by     *   FILE 918
//*     use of the _BPX_SHAREAS and the spawn() functionality.      *   FILE 918
//*     Assuming that said command is set up to do so. BASH         *   FILE 918
//*     neither enables nor disables another command's ability      *   FILE 918
//*     in this respect. One other possible "gotcha" is that        *   FILE 918
//*     many shell scripts start with a line like: "#!/bin/sh".     *   FILE 918
//*     This is supported by BASH, but results in the script        *   FILE 918
//*     running under the IBM supplied /bin/sh instead of under     *   FILE 918
//*     BASH.                                                       *   FILE 918
//*                                                                 *   FILE 918
//***FILE 919 is from John McKown and contains the executables      *   FILE 919
//*           and source code for a port of BASH 4.2 to z/OS.       *   FILE 919
//*           This code was compiled and tested on z/OS 2.1.        *   FILE 919
//*                                                                 *   FILE 919
//*           This code incorporates all patches for BASH 4.2       *   FILE 919
//*           thru patch 53.                                        *   FILE 919
//*                                                                 *   FILE 919
//*           This same code, with executables only, is on File     *   FILE 919
//*           918.  In compliance with the GPL license, where       *   FILE 919
//*           source code has to be made available as well, we      *   FILE 919
//*           are including the entire z/OS port here, including    *   FILE 919
//*           the source code.                                      *   FILE 919
//*                                                                 *   FILE 919
//*         In compliance with the GPL license, the entire source   *   FILE 919
//*         has been included in this distribution, along with the  *   FILE 919
//*         support files used to do the configuration and compile  *   FILE 919
//*         of BASH. These reside in a PAX archive which will need  *   FILE 919
//*         to be unwound into a UNIX directory. There is an        *   FILE 919
//*         example job in the distributed PDS which can be         *   FILE 919
//*         customized to do this.                                  *   FILE 919
//*                                                                 *   FILE 919
//*           email:  john.archie.mckown@gmail.com                  *   FILE 919
//*                                                                 *   FILE 919
//*     Description of Release Level 4.2.53.                        *   FILE 919
//*                                                                 *   FILE 919
//*     This is a port of BASH 4.2, patch level 53, to the z/OS     *   FILE 919
//*     UNIX environment. It should work substantially like it      *   FILE 919
//*     does on other platforms. This includes all of the           *   FILE 919
//*     current patches, including the one for the SHELLSHOCK       *   FILE 919
//*     exploit. Of course, this functionality only applies to      *   FILE 919
//*     the BASH shell, and does not supply other GNU utilities     *   FILE 919
//*     such as GNU grep, sed, gawk, and so on. This port was       *   FILE 919
//*     developed on z/OS 2.1 and has been successfully tested      *   FILE 919
//*     on both z/OS 2.1 and 1.12. It may, or may not, work on      *   FILE 919
//*     z/OS releases prior to 1.12. It does not have any           *   FILE 919
//*     release dependent code in it, but it may have implicit      *   FILE 919
//*     dependencies in Language Environment levels due to it       *   FILE 919
//*     being written in C. This port does _NOT_ implement the      *   FILE 919
//*     "local spawn" functionality which the standard /bin/sh      *   FILE 919
//*     shell for z/OS UNIX does. This means that the               *   FILE 919
//*     _BPX_SHAREAS environment variable has no effect and         *   FILE 919
//*     there is no way to share an address space with the          *   FILE 919
//*     shell process. This could have an impact on performance     *   FILE 919
//*     and functionality of some UNIX commands and shell           *   FILE 919
//*     scripts. This lack does not stop the sharing of an          *   FILE 919
//*     address space by UNIX commands run under BASH. That is,     *   FILE 919
//*     the command can share its (not BASH's) address space by     *   FILE 919
//*     use of the _BPX_SHAREAS and the spawn() functionality.      *   FILE 919
//*     Assuming that said command is set up to do so. BASH         *   FILE 919
//*     neither enables nor disables another command's ability      *   FILE 919
//*     in this respect. One other possible "gotcha" is that        *   FILE 919
//*     many shell scripts start with a line like: "#!/bin/sh".     *   FILE 919
//*     This is supported by BASH, but results in the script        *   FILE 919
//*     running under the IBM supplied /bin/sh instead of under     *   FILE 919
//*     BASH.                                                       *   FILE 919
//*                                                                 *   FILE 919
//***FILE 920 is from John McKown, via Robert Cichetti, and         *   FILE 920
//*           contains a REXX exec which generates IDCAMS DEFINE    *   FILE 920
//*           statements from an existing VSAM file, which can      *   FILE 920
//*           be used to re-define the file, using the same         *   FILE 920
//*           characteristics.                                      *   FILE 920
//*                                                                 *   FILE 920
//*           Sample JCL to run the EXEC is included.               *   FILE 920
//*                                                                 *   FILE 920
//*           email:  john.archie.mckown@gmail.com                  *   FILE 920
//*                                                                 *   FILE 920
//*           email:  rcichett@us.ibm.com                           *   FILE 920
//*                   dasdmanx@yahoo.com                            *   FILE 920
//*                                                                 *   FILE 920
//***FILE 921 is from Albert Cheng and contains TSO utility to      *   FILE 921
//*           allocate ISPF datasets.                               *   FILE 921
//*                                                                 *   FILE 921
//*             email:   albertcpcheng@hotmail.com                  *   FILE 921
//*                                                                 *   FILE 921
//*    @GUIDE   - User Guide of ISPFDSN                             *   FILE 921
//*                                                                 *   FILE 921
//*    @SMPE    - Sample CLIST to invoke SMPE using LIBDEF if       *   FILE 921
//*               SMPE ISPF datasets are not allocated              *   FILE 921
//*                                                                 *   FILE 921
//*    ASSEMBLE - Sample JCL to assemble and link-edit ISPFDSN      *   FILE 921
//*                                                                 *   FILE 921
//*    BATCH    - Sample JCL to test ISPFDSN in batch mode          *   FILE 921
//*                                                                 *   FILE 921
//*    DB2      - Sample DB2 ISPFDSN parameter in GLOBAL ISPFDSN    *   FILE 921
//*               library                                           *   FILE 921
//*                                                                 *   FILE 921
//*    FILEMGR  - Sample FILEMGR ISPFDSN parameter in GLOBAL        *   FILE 921
//*               ISPFDSN library                                   *   FILE 921
//*                                                                 *   FILE 921
//*    HISPFDSN - Help file of ISPFDSN                              *   FILE 921
//*                                                                 *   FILE 921
//*    INHOUSE  - Sample ISPFDSN parameter file (in-house ISPF      *   FILE 921
//*               dataset allocation parameter)                     *   FILE 921
//*                                                                 *   FILE 921
//*    ISPFDSN  - TSO command processor to allocate ISPF datasets   *   FILE 921
//*               in native TSO. ISPFDSN read the $ISPFDSN parmlib  *   FILE 921
//*               to allocate ISPF datasets. It can also read your  *   FILE 921
//*               TSO logon proc to allocate ISPF datasets for new  *   FILE 921
//*               users which are not familiar with ISPFDSN.        *   FILE 921
//*               Refer @GUIDE to implement ISPFDSN in your         *   FILE 921
//*               installation.                                     *   FILE 921
//*                                                                 *   FILE 921
//*    ISPFMSGS - Messages of ISPFDSN                               *   FILE 921
//*                                                                 *   FILE 921
//*    ISPFDSNG - Sample ISPFDSN parameter file (global ISPF        *   FILE 921
//*               dataset allocation parameter)                     *   FILE 921
//*                                                                 *   FILE 921
//*    ISPFDSNT - Sample ISPFDSN parameter file (team ISPF          *   FILE 921
//*               dataset allocation parameter)                     *   FILE 921
//*                                                                 *   FILE 921
//*    ISPFDSNU - Sample ISPFDSN parameter file (user ISPF          *   FILE 921
//*               dataset allocation parameter)                     *   FILE 921
//*                                                                 *   FILE 921
//*    LOGON    - Sample TSO Procedure to allocate ISPF profile     *   FILE 921
//*               and invoke ISPFDSN.                               *   FILE 921
//*                                                                 *   FILE 921
//*    SYSTEM   - Sample ISPFDSN parameter that all the TSO users   *   FILE 921
//*               refers. (note: update this member affects all     *   FILE 921
//*               the TSO ISPF dataset allocation if you convert    *   FILE 921
//*               all the TSO users to use ISPFDSN to perform ISPF  *   FILE 921
//*               dataset allocation)                               *   FILE 921
//*                                                                 *   FILE 921
//***FILE 922 is from Bill Smith and contains a version of the      *   FILE 922
//*           DSPACE TSO command, which is tailored to work for     *   FILE 922
//*           Extended Access Volumes (EAV's) that have areas       *   FILE 922
//*           with Cylinder-managed space.  The reason why I have   *   FILE 922
//*           kept this file separate from CBT File 633 is because  *   FILE 922
//*           of inconsistencies in formatting the output lines,    *   FILE 922
//*           and also because of the fact that EAV's are not       *   FILE 922
//*           defined for system levels of z/OS 1.9 and lower.      *   FILE 922
//*           The macros needed to assemble this version, started   *   FILE 922
//*           being distributed with z/OS 1.10 and higher.          *   FILE 922
//*                                                                 *   FILE 922
//*           In addition to that, I had modified DSPACE in         *   FILE 922
//*           File 633 (a non-EAV version), to include the          *   FILE 922
//*           number of cylinders in the entire volume.  That       *   FILE 922
//*           information is extremely useful when you are          *   FILE 922
//*           dealing with minidisks, and you want to know how      *   FILE 922
//*           big each disk volume is, in total cylinders.          *   FILE 922
//*           (This note is by Sam Golob - 10/24/2014.)             *   FILE 922
//*                                                                 *   FILE 922
//*           Also, the FDSPACE ISPF dialog depends on the output   *   FILE 922
//*           format of the DSPACE command, and it must be changed  *   FILE 922
//*           to fit.  This has now been done, and all the FDSPACE  *   FILE 922
//*           related members have now been included.               *   FILE 922
//*                                                                 *   FILE 922
//*           email:  sfowjs@sbcglobal.net                          *   FILE 922
//*                                                                 *   FILE 922
//***FILE 923 is from John McKown and is a port of SQLITE 3.8.7     *   FILE 923
//*           to z/OS.  The current state of this package is        *   FILE 923
//*           described below.  This is version 3.8.7 of SQLITE.    *   FILE 923
//*           An older version of this port can be found on CBT     *   FILE 923
//*           File 897.                                             *   FILE 923
//*                                                                 *   FILE 923
//*           email:  john.archie.mckown@gmail.com                  *   FILE 923
//*                                                                 *   FILE 923
//*           Please look at the description below:                 *   FILE 923
//*                                                                 *   FILE 923
//*     SQLITE 3.8.7 for z/OS                                       *   FILE 923
//*     =====================                                       *   FILE 923
//*                                                                 *   FILE 923
//*     Sqlite is a self-contained, server-less,                    *   FILE 923
//*     zero-configuration, transactional SQL database engine.      *   FILE 923
//*     This is the standard sqlite library which is available      *   FILE 923
//*     on many UNIX and Linux systems. The code was compiled       *   FILE 923
//*     with almost no changes. The code is dependent on z/OS       *   FILE 923
//*     UNIX System Services.  The original code supports EBCDIC    *   FILE 923
//*     in addition to the normal ASCII. This distribution has      *   FILE 923
//*     been compiled to support EBCDIC characters and IEEE         *   FILE 923
//*     (BFP) floating point numbers. This latter is important      *   FILE 923
//*     because most other z/OS languages use the historical HFP    *   FILE 923
//*     floating point.                                             *   FILE 923
//*                                                                 *   FILE 923
//*     At present, the code only has C language bindings on        *   FILE 923
//*     z/OS.  There is a "shim" or "stub" HLASM interface          *   FILE 923
//*     program which can be called from COBOL or PL/I to           *   FILE 923
//*     access the C subroutines. It is named SQLITE3A.  The        *   FILE 923
//*     parameters passed into this routine are the same ones       *   FILE 923
//*     as documented in the sqlite C API, except that the          *   FILE 923
//*     first parameter is a C style null-delimited character       *   FILE 923
//*     string which is the name of the C subroutine to be          *   FILE 923
//*     invoked. In COBOL, this is a Z'...' character string.       *   FILE 923
//*     The COBSQLTE and PLISQLTE members are the COBOL COPY        *   FILE 923
//*     book and PL/I %INCLUDE members which define COBOL or        *   FILE 923
//*     PL/I variables which contain these strings. In the case     *   FILE 923
//*     of COBOL, the underscore characters shown in the C API      *   FILE 923
//*     names are replace by a dash because an underscore is        *   FILE 923
//*     not valid in a COBOL data name. The variable names are      *   FILE 923
//*     in upper case, but the values are in lower case, due to     *   FILE 923
//*     the fact that the C subroutine names are in lower case.     *   FILE 923
//*                                                                 *   FILE 923
//*     Sqlite 3.8.7 is documented at http://sqlite.org, and        *   FILE 923
//*     this code runs as described there. Therefore, no futher     *   FILE 923
//*     documentation is supplied at present.  When the COBOL       *   FILE 923
//*     and PL/I bindings are done, those will be documented        *   FILE 923
//*     here.                                                       *   FILE 923
//*                                                                 *   FILE 923
//*     This document does _not_ attempt to teach you how to        *   FILE 923
//*     use sqlite. It assumes you already know how to use it,      *   FILE 923
//*     or can learn it yourself. It does attempt to explain        *   FILE 923
//*     how to use it on z/OS by showing some COBOL and PL/I        *   FILE 923
//*     examples. If you have a C license, I strongly suggest       *   FILE 923
//*     writing your code in C. It will be more understandable      *   FILE 923
//*     to most.                                                    *   FILE 923
//*                                                                 *   FILE 923
//*     Wish list items.                                            *   FILE 923
//*     ----------------                                            *   FILE 923
//*     1. At present, the file which contains the sqlite           *   FILE 923
//*        database must reside in a UNIX subdirectory. This        *   FILE 923
//*        means that the user of sqlite must have an z/OS UNIX     *   FILE 923
//*        identity.  I would like to be able to use a VSAM         *   FILE 923
//*        Linear Dataset for storing the sqlite data at some       *   FILE 923
//*        time. Mainly due to the number of shops which have       *   FILE 923
//*        not really embraced z/OS UNIX.  This may be possible     *   FILE 923
//*        using a "shim" sqlite VFS as documented here:            *   FILE 923
//*        http://sqlite.org/vfs.html which would use a VSAM        *   FILE 923
//*        LDS as the backing store for a sqlite in-memory data     *   FILE 923
//*        base.                                                    *   FILE 923
//*                                                                 *   FILE 923
//*     2. Write a REXX interface.                                  *   FILE 923
//*                                                                 *   FILE 923
//*     3. Write a batch program based on the sqlite3 UNIX          *   FILE 923
//*        command. This would allow SQL commands to be run in      *   FILE 923
//*        a step in a batch job.                                   *   FILE 923
//*                                                                 *   FILE 923
//*     4. JDBC for Java access.                                    *   FILE 923
//*                                                                 *   FILE 923
//*     Members in this library:                                    *   FILE 923
//*     ------------------------                                    *   FILE 923
//*     - $README  - This member. The README in markdown            *   FILE 923
//*                  format.                                        *   FILE 923
//*                                                                 *   FILE 923
//*     - ASMACL   - The JCL to compile and link the SQLITE3A       *   FILE 923
//*                  assembler program.  It would be wise to        *   FILE 923
//*                  run this to recompile SQLITE3A on your         *   FILE 923
//*                  system, if at all possible.                    *   FILE 923
//*                                                                 *   FILE 923
//*     - COBSQLTE - The COBOL copy book which defines various      *   FILE 923
//*                  SQLITE3 related variables and initializes      *   FILE 923
//*                  them.  The member contains a fair number       *   FILE 923
//*                  of comments on how to use SQLITE3A in a        *   FILE 923
//*                  COBOL program to invoke each of the 204(!)     *   FILE 923
//*                  different sqlite subroutines.                  *   FILE 923
//*                                                                 *   FILE 923
//*     - COBTEST1 - The JCL to run the TESTCOB1 program.           *   FILE 923
//*                  Unless you are running z/OS 2.1, you need      *   FILE 923
//*                  to recompile the program before running        *   FILE 923
//*                  this test job. There are LE dependencies.      *   FILE 923
//*                                                                 *   FILE 923
//*     - COBTEST2 - The JCL to run the TESTCOB2 program.           *   FILE 923
//*                  Unless you are running z/OS 2.1, you need      *   FILE 923
//*                  to recompile the program before running        *   FILE 923
//*                  this test job. There are LE dependencies.      *   FILE 923
//*                                                                 *   FILE 923
//*     - IGYWCL   - The JCL to compile and link the TESTCOB1       *   FILE 923
//*                  and TESTCOB2 program. You really need to       *   FILE 923
//*                  recompile these program on your system due     *   FILE 923
//*                  to possible LE dependencies.                   *   FILE 923
//*                                                                 *   FILE 923
//*     - LINK     - The JCL to link the SQLITE3 object code        *   FILE 923
//*                  into a LINKLIB.  This composite links in       *   FILE 923
//*                  the C and LE library subroutines.              *   FILE 923
//*                                                                 *   FILE 923
//*     - LINKLIB  - XMIT copy of the SQL387.LINKLIB library        *   FILE 923
//*                  containing the z/OS batch executable           *   FILE 923
//*                  programs: SQLITE3A, TESTCOB1, and              *   FILE 923
//*                  TESTCOB2. However, these program will          *   FILE 923
//*                  likely only run on a z/OS 2.1 system due       *   FILE 923
//*                  to COBOL dependencies on LE.                   *   FILE 923
//*                                                                 *   FILE 923
//*     - PAXFULL  - This is a compressed pax archive for the       *   FILE 923
//*                  entire SQLITE3 application, Including all      *   FILE 923
//*                  source code and make information.              *   FILE 923
//*                                                                 *   FILE 923
//*     - PAXRUN   - This is a compressed pax archive               *   FILE 923
//*                  containing only the files needed to use        *   FILE 923
//*                  SQLITE. This is really all you need if you     *   FILE 923
//*                  want to develop C language programs which      *   FILE 923
//*                  use SQLITE.  This is not needed for COBOL      *   FILE 923
//*                  or HLASM programs.                             *   FILE 923
//*                                                                 *   FILE 923
//*     - PLICB    - The JCL to compile a PL/I program.             *   FILE 923
//*                                                                 *   FILE 923
//*     - PLISQLTE - The PL/I %INCLUDE member to define and         *   FILE 923
//*                  initialize a number of variables to ease       *   FILE 923
//*                  the use of SQLITE3A.                           *   FILE 923
//*                                                                 *   FILE 923
//*     - SQLITE3A - LE enabled HLASM subroutine which presents     *   FILE 923
//*                  an API to the SQLITE3 C subroutines which      *   FILE 923
//*                  is designed for use by COBOL or PL/I code.     *   FILE 923
//*                  It is composite (statically) bound with        *   FILE 923
//*                  the C object code.  This code has not been     *   FILE 923
//*                  fully tested yet and may contain errors.       *   FILE 923
//*                                                                 *   FILE 923
//*     - SQLITE3O - The object code for SQLITE to be bound         *   FILE 923
//*                  into the application.  This was compiled       *   FILE 923
//*                  on z/OS 1.13, but the C compiler options       *   FILE 923
//*                  were for compatibility with z/OS 1.11 or       *   FILE 923
//*                  higher.                                        *   FILE 923
//*                                                                 *   FILE 923
//*     - TESTCOB1 - Example Enterprise COBOL program. It is        *   FILE 923
//*                  very basic.  It uses the SQLITE3A stub to      *   FILE 923
//*                  invoke SQLITE3 operations.  If you look at     *   FILE 923
//*                  this, you will realize that I am very          *   FILE 923
//*                  "wordy" and am definitely not an advanced      *   FILE 923
//*                  COBOL programmer.                              *   FILE 923
//*                                                                 *   FILE 923
//*     - TESTCOB2 - Example Enterprise COBOL program. It is        *   FILE 923
//*                  very basic.  It's main example is of how       *   FILE 923
//*                  to retrieve a double precision floating        *   FILE 923
//*                  point number, COMP-2, from an sqlite data      *   FILE 923
//*                  base, converting it from BFP to HFP            *   FILE 923
//*                  format.  The table is defined like:            *   FILE 923
//*                  CREATE TABLE xz (int INTEGER, fd DOUBLE);      *   FILE 923
//*                  This table can be created and loaded from      *   FILE 923
//*                  a z/OS UNIX shell prompt using the             *   FILE 923
//*                  "sqlite3" UNIX command.                        *   FILE 923
//*                                                                 *   FILE 923
//*                  From my testing, it appears that sqlite,       *   FILE 923
//*                  unlike most other RDMS systems is case         *   FILE 923
//*                  sensitive for the names of objects such as     *   FILE 923
//*                  columns and tables.                            *   FILE 923
//*                                                                 *   FILE 923
//*     - TESTDB   - A pax archive which contains the               *   FILE 923
//*                  testdb.sqlite3 UNIX file used by the           *   FILE 923
//*                  TESTCOB2 program. This needs to be             *   FILE 923
//*                  restored to a subdirectory (/tmp in the        *   FILE 923
//*                  example code). This can be done with a         *   FILE 923
//*                  UNIX command sequence such as:                 *   FILE 923
//*                                                                 *   FILE 923
//*                  cd /tmp                                        *   FILE 923
//*                  pax -rzf "//sql387.cntl(testdb)"               *   FILE 923
//*                                                                 *   FILE 923
//*     - TSTPLI1  - Example Enterprise PL/I program. It is         *   FILE 923
//*                  very basic.  It is functionally equivalent     *   FILE 923
//*                  to TESTCOB1.  This is not working at           *   FILE 923
//*                  present.  I don't normally program in PL/I     *   FILE 923
//*                  because I have never worked in a shop          *   FILE 923
//*                  which used it.                                 *   FILE 923
//*                                                                 *   FILE 923
//*     - UNPAX    - The JCL needed to unwind either the            *   FILE 923
//*                  PAXFULL or PAXRUN member into a z/OS UNIX      *   FILE 923
//*                  subdirectory.                                  *   FILE 923
//*                                                                 *   FILE 923
//***FILE 924 is from Robert Cichetti and contains a REXX exec      *   FILE 924
//*           called LDSI that exploits the LISTDSI function to     *   FILE 924
//*           tell you about datasets.  LDSI is designed primarily  *   FILE 924
//*           to run from an ISPF 3.4 dataset list.                 *   FILE 924
//*                                                                 *   FILE 924
//*           email:  rcichett@us.ibm.com                           *   FILE 924
//*                   dasdmanx@yahoo.com                            *   FILE 924
//*                                                                 *   FILE 924
//***FILE 925 is from Robert Glover and contains a method of        *   FILE 925
//*           conveniently enlarging dataset, both non-VSAM and     *   FILE 925
//*           VSAM.  Basically these are two REXX execs with two    *   FILE 925
//*           panels that help to automate the process.             *   FILE 925
//*                                                                 *   FILE 925
//*           email:  im4fsu@comcast.net                            *   FILE 925
//*                                                                 *   FILE 925
//***FILE 926 is from Philip Polchinski and contains a COBOL        *   FILE 926
//*           program to figure out amoritization payments,         *   FILE 926
//*           such as mortgage payments and car payments.           *   FILE 926
//*                                                                 *   FILE 926
//*           Compile and execution JCL is included here, as        *   FILE 926
//*           are load libraries (PDS and PDSE) in XMIT format.     *   FILE 926
//*                                                                 *   FILE 926
//*           Phil's original program was fixed by Jim Iannone      *   FILE 926
//*           of Toledo, Ohio, so that compile errors were          *   FILE 926
//*           cleaned up.                                           *   FILE 926
//*                                                                 *   FILE 926
//*           email:  Iannone, Jim <Jim.Iannone@nsg.com>            *   FILE 926
//*                                                                 *   FILE 926
//*           This program is of general personal value, or it      *   FILE 926
//*           may also be used by corporate management to figure    *   FILE 926
//*           estimates for their own use.                          *   FILE 926
//*                                                                 *   FILE 926
//*           email:  philmpolchinski@hotmail.com                   *   FILE 926
//*                                                                 *   FILE 926
//*           This program is not a system programmer tool per se,  *   FILE 926
//*           but it will help people with their personal lives,    *   FILE 926
//*           by helping to calculate how much you'll have to pay   *   FILE 926
//*           monthly, if you are borrowing a certain amount of     *   FILE 926
//*           money at a certain rate of interest.  And it runs     *   FILE 926
//*           on z/OS or earlier MVS systems.                       *   FILE 926
//*                                                                 *   FILE 926
//*           Program source is included, in COBOL, as member       *   FILE 926
//*           AMORT.                                                *   FILE 926
//*                                                                 *   FILE 926
//*           Included are load libraries, PDS for COBOL 4.2        *   FILE 926
//*           and earlier, and PDSE loadlibs for COBOL 5.1 or       *   FILE 926
//*           later.  IBM has forced users of COBOL 5.1 to link     *   FILE 926
//*           its programs into a PDSE load library and not a       *   FILE 926
//*           PDS load library. ;-)  A load library has now been    *   FILE 926
//*           included which contains AMORT, compiled on COBOL 5.2. *   FILE 926
//*           Also, AMORT compiled on COBOL 6.1, 6.2, 6.3 and 6.4.  *   FILE 926
//*                                                                 *   FILE 926
//*   How to use the AMORT program.                                 *   FILE 926
//*                                                                 *   FILE 926
//*   This program creates a payment schedule (for mortgage         *   FILE 926
//*   or car payments or corporate loan payments or the             *   FILE 926
//*   like), based on the following factors:                        *   FILE 926
//*                                                                 *   FILE 926
//*   1-  The interest rate                                         *   FILE 926
//*   2-  The amount of the principal                               *   FILE 926
//*   3-  The amount of each payment                                *   FILE 926
//*   4-  The total number of (monthly) payments                    *   FILE 926
//*                                                                 *   FILE 926
//*   Required for each run:   the interest rate  (ALWAYS NEEDED)   *   FILE 926
//*                                                                 *   FILE 926
//*   For the other 3 factors, if you supply two of them, the       *   FILE 926
//*   program will produce a schedule showing the third             *   FILE 926
//*   factor.                                                       *   FILE 926
//*                                                                 *   FILE 926
//*   Thus, the type of run you want, is classified into three      *   FILE 926
//*   "job types".                                                  *   FILE 926
//*                                                                 *   FILE 926
//*   For example:  (Remember that the interest rate ALWAYS         *   FILE 926
//*                  has to be supplied)                            *   FILE 926
//*                                                                 *   FILE 926
//*   Job Type: 1-  Given monthly payment amount and number         *   FILE 926
//*                 of payments                                     *   FILE 926
//*                                                                 *   FILE 926
//*                 Program supplies:   - total principal paid      *   FILE 926
//*                                                                 *   FILE 926
//*   Job Type: 2-  Given total principal and number of             *   FILE 926
//*                 payments                                        *   FILE 926
//*                                                                 *   FILE 926
//*                 Program supplies:   - monthly payment amounts   *   FILE 926
//*                                                                 *   FILE 926
//*   Job Type: 3-  Given total principal and monthly payment       *   FILE 926
//*                 amount desired                                  *   FILE 926
//*                                                                 *   FILE 926
//*                 Program supplies:   - length of the loan        *   FILE 926
//*                 (number of payments)                            *   FILE 926
//*                                                                 *   FILE 926
//*   Values are entered in the PARM field of the EXEC              *   FILE 926
//*   statement as shown below.  In addition, you HAVE TO           *   FILE 926
//*   ENTER THE JOB TYPE as the first parameter (the format         *   FILE 926
//*   is also shown below, in detail).                              *   FILE 926
//*                                                                 *   FILE 926
//*   PARM='Z--PRINCIPAL-PAYMENTCC-YY-MM-INTER'  pattern of parms   *   FILE 926
//*   PARM='1--000000000-000060300-02-00-05999'                     *   FILE 926
//*   PARM='2--000013600-000000000-00-24-05999'                     *   FILE 926
//*   PARM='3--000013600-000060300-00-00-05999'                     *   FILE 926
//*   PARM='Z--MMMTTTDDD-MTTTDDDcc-YY-MM-INTER'  format of parms    *   FILE 926
//*                                                                 *   FILE 926
//***FILE 927 is from Steve Wentworth and contains a program        *   FILE 927
//*           called PRMEVSAM, which writes and deletes a zero      *   FILE 927
//*           record to a newly defined VSAM cluster so that a      *   FILE 927
//*           COBOL program can begin doing I/O to the cluster      *   FILE 927
//*           past the first record.                                *   FILE 927
//*                                                                 *   FILE 927
//*           email:  Steven.Wentworth@ca.com                       *   FILE 927
//*                   slwcis@cs.com                                 *   FILE 927
//*                                                                 *   FILE 927
//***FILE 928 is from Ze'ev Atlas and contains some code which      *   FILE 928
//*           is an adaptation of the regex.h header file to        *   FILE 928
//*           COBOL copybooks.  This is V1 of the package.          *   FILE 928
//*                                                                 *   FILE 928
//*       This is V1 of the package, correcting some issues and     *   FILE 928
//*       replacing the initial V0.                                 *   FILE 928
//*                                                                 *   FILE 928
//*       Please examine the REGEXDEM program to see how it         *   FILE 928
//*       works.                                                    *   FILE 928
//*                                                                 *   FILE 928
//*       Please examine REGEXDOC for documentation.                *   FILE 928
//*                                                                 *   FILE 928
//*       Thank you                                                 *   FILE 928
//*       Ze'ev Atlas                                               *   FILE 928
//*                                                                 *   FILE 928
//*       Short description:                                        *   FILE 928
//*                                                                 *   FILE 928
//*       This little package is an adaptation of the regex.h       *   FILE 928
//*       header file to COBOL copybooks.  By using these           *   FILE 928
//*       copybooks and the standard IBM C Run-time library (that   *   FILE 928
//*       is available in all z/OS machines as far as I can         *   FILE 928
//*       tell), one may do pattern matching using Regular          *   FILE 928
//*       Expression from COBOL.  I am not the first or only        *   FILE 928
//*       person who uses this capability.  My contribution is by   *   FILE 928
//*       providing standard copybooks and explaining how to use    *   FILE 928
//*       the 'Capture' capability in addition to the common        *   FILE 928
//*       'Match' capability.                                       *   FILE 928
//*                                                                 *   FILE 928
//*       One has now a common interface to these functions:        *   FILE 928
//*       regcomp()   Compile regular expression                    *   FILE 928
//*       regerror()  Return error message                          *   FILE 928
//*       regexec()   Execute compiled regular expression           *   FILE 928
//*       regfree()   Free memory for regular expression            *   FILE 928
//*                                                                 *   FILE 928
//*           email:  zatlas1@yahoo.com                             *   FILE 928
//*                                                                 *   FILE 928
//***FILE 929 is from somitcw and contains a program called         *   FILE 929
//*           REALNAME, which is a REXX function that returns       *   FILE 929
//*           the actual file name of a gdg dataset, or the         *   FILE 929
//*           actual name of an alias in a catalog.                 *   FILE 929
//*                                                                 *   FILE 929
//*           The original version of REALNAME was written by       *   FILE 929
//*           Doug Nadel.                                           *   FILE 929
//*                                                                 *   FILE 929
//*           email:  somitcw@yahoo.com                             *   FILE 929
//*                                                                 *   FILE 929
//*       REALNAME is used to:                                      *   FILE 929
//*                                                                 *   FILE 929
//*       1. Translate an alias in a catalog to a real name.        *   FILE 929
//*          (Which includes finding a usercatalog name from        *   FILE 929
//*          a hlq.)                                                *   FILE 929
//*                                                                 *   FILE 929
//*       2. Resolve a relative Generation Data Set name to an      *   FILE 929
//*          absolute one.                                          *   FILE 929
//*                                                                 *   FILE 929
//*       If the input name is already a real name, it will be      *   FILE 929
//*       returned.                                                 *   FILE 929
//*                                                                 *   FILE 929
//*       If the input name is not cataloged and an absolute        *   FILE 929
//*       Generation Data Set name cannot be calculated within      *   FILE 929
//*       a Generation Data Group, then 'UNKNOWN' will be           *   FILE 929
//*       returned.                                                 *   FILE 929
//*                                                                 *   FILE 929
//*          Sample REXX calls:                                     *   FILE 929
//*                                                                 *   FILE 929
//*       gds = REALNAME(the.gdg.name(+1))                          *   FILE 929
//*                                                                 *   FILE 929
//*       SAY REALNAME(hlq)                                         *   FILE 929
//*                                                                 *   FILE 929
//***FILE 930 is from Phil Polchinski and contains supporting JCL   *   FILE 930
//*           and other materials to use his CALENDAR FILE, which   *   FILE 930
//*           is found in EBCDIC format on File 932, and in zipped  *   FILE 930
//*           ASCII format on File 933.                             *   FILE 930
//*                                                                 *   FILE 930
//*           The calendar file presented here, can be generated    *   FILE 930
//*           in many date ranges, by Phil's program called         *   FILE 930
//*           CALFILE, but all that is really needed by anyone,     *   FILE 930
//*           is his "maximum size file" which contains all dates   *   FILE 930
//*           from the years 1753 thru 2600.                        *   FILE 930
//*                                                                 *   FILE 930
//*           The CALENDAR FILE has record length 35, and can be    *   FILE 930
//*           blocked.  Its size depends on the year ranges used    *   FILE 930
//*           when the CALFILE program is executed.                 *   FILE 930
//*                                                                 *   FILE 930
//*           In Files 932 and 933, we distribute a large-range     *   FILE 930
//*           calendar file, which ranges from years 1753 to 2600.  *   FILE 930
//*                                                                 *   FILE 930
//*           The format of this calendar file allows for           *   FILE 930
//*           sure-fire calculations (which are accurate) for       *   FILE 930
//*           complicated date-difference questions, and for all    *   FILE 930
//*           kinds of other purposes, all having to do with        *   FILE 930
//*           dates.                                                *   FILE 930
//*                                                                 *   FILE 930
//*           email:  philmpolchinski@hotmail.com                   *   FILE 930
//*                                                                 *   FILE 930
//*     Phil has now released load modules for his two programs:    *   FILE 930
//*                                                                 *   FILE 930
//*           CALFILE  -  program to produce the calendar file      *   FILE 930
//*                                                                 *   FILE 930
//*           CALPRINT -  program to print calendars from the       *   FILE 930
//*                       calendar file                             *   FILE 930
//*                                                                 *   FILE 930
//*        These two programs require a license key (supplied).     *   FILE 930
//*        See the note just below, as to why.                      *   FILE 930
//*                                                                 *   FILE 930
//*     Member CALREF is documentation in PDF format, which shows   *   FILE 930
//*     how to use CALFILE and CALPRINT.  See note just below.      *   FILE 930
//*                                                                 *   FILE 930
//*     ----------------------------------------------------------  *   FILE 930
//*                                                                 *   FILE 930
//*              * * * * * *  N O T E  * * * * * *                  *   FILE 930
//*                                                                 *   FILE 930
//*     Phil is retaining ownership of these two programs (but      *   FILE 930
//*     not ownership of the file format), and for this reason,     *   FILE 930
//*     I am making an exception to my rule of not allowing         *   FILE 930
//*     timeouts on any submissions to the CBT Tape.  In Phil's     *   FILE 930
//*     case, he is including a 75-YEAR LICENSE KEY for anybody     *   FILE 930
//*     to use his programs, included here as member KEYEBCDC.      *   FILE 930
//*     Since the key is for 75 years, which is a long time,        *   FILE 930
//*     I am making this exception.                                 *   FILE 930
//*                                                                 *   FILE 930
//*     Another reason why I am making an exception:                *   FILE 930
//*                                                                 *   FILE 930
//*     File 934 will contain a DFSORT job to produce the           *   FILE 930
//*     maximum-size file, which is not dependent on the CALFILE    *   FILE 930
//*     program and is therefore not dependent on a timeout.        *   FILE 930
//*     So the file is still reconstructible without a timeout      *   FILE 930
//*     and the system will not break.                              *   FILE 930
//*                                                                 *   FILE 930
//*     Of course the CALFILE program is more flexible to set up    *   FILE 930
//*     than the DFSORT job, and the CALFILE approach is much       *   FILE 930
//*     easier to use, and it is preferred.                         *   FILE 930
//*                                                                 *   FILE 930
//*              * * * * * *  N O T E  * * * * * *                  *   FILE 930
//*                                                                 *   FILE 930
//*     ----------------------------------------------------------  *   FILE 930
//*                                                                 *   FILE 930
//*     A reference manual to use this file and software, is        *   FILE 930
//*     found in member CALREF, which is a PDF format file.         *   FILE 930
//*                                                                 *   FILE 930
//*     The Calendar File itself can be found in Files 932 (EBCDIC) *   FILE 930
//*     and 933 (ASCII), and therefore it is not included here.     *   FILE 930
//*                                                                 *   FILE 930
//*     To obtain the calendar file more easily, File 932 contains  *   FILE 930
//*     an EBCDIC version of the calendar file (LRECL=35), and      *   FILE 930
//*     File 933 contains a zipped ASCII text version of the        *   FILE 930
//*     calendar file.  So you don't need the CALFILE program       *   FILE 930
//*     at all, unless space considerations dictate, in your        *   FILE 930
//*     case, that you have to generate the calendar file for       *   FILE 930
//*     a smaller date range, which would take up less space.       *   FILE 930
//*                                                                 *   FILE 930
//*     Sample problems which can be solved using this file:        *   FILE 930
//*     ------ --------                                             *   FILE 930
//*                                                                 *   FILE 930
//*     Create a list of dates containing all third Mondays         *   FILE 930
//*          that will occur during a 100 year period?              *   FILE 930
//*                                                                 *   FILE 930
//*     Determine the number of Tuesdays that will occur during     *   FILE 930
//*          the month of January 2012?                             *   FILE 930
//*                                                                 *   FILE 930
//*     Determine the calendar date for the last Tuesday during     *   FILE 930
//*          the month of January 2012?                             *   FILE 930
//*                                                                 *   FILE 930
//*     Determine the exact interval between February 15 and        *   FILE 930
//*          May 15, 2011                                           *   FILE 930
//*                                                                 *   FILE 930
//*     Determine the exact interval between February 15 and        *   FILE 930
//*          May 15, 2012                                           *   FILE 930
//*                                                                 *   FILE 930
//*     Determine the new calendar date when adding 180 days to     *   FILE 930
//*          November 20, 2010                                      *   FILE 930
//*                                                                 *   FILE 930
//*     Determine the new calendar date when adding 180 days to     *   FILE 930
//*          November 20, 2011?                                     *   FILE 930
//*                                                                 *   FILE 930
//*     Determine the calendar date and day of the week for         *   FILE 930
//*           Julian Date 058" in the year 2012                     *   FILE 930
//*                                                                 *   FILE 930
//*     Determine the Day of the Week for July 4, 2014              *   FILE 930
//*                                                                 *   FILE 930
//*     Determine the calendar date for Thanksgiving Day, 2014      *   FILE 930
//*                                                                 *   FILE 930
//*     Determine the calendar date for the Monday before           *   FILE 930
//*     Thanksgiving Day, 2014                                      *   FILE 930
//*                                                                 *   FILE 930
//*     Determine the number of days remaining in the month,        *   FILE 930
//*          when it is February 19, 2011?                          *   FILE 930
//*                                                                 *   FILE 930
//*     Determine the number of days remaining in the month,        *   FILE 930
//*          when it is February 19, 2012                           *   FILE 930
//*                                                                 *   FILE 930
//*     Determine the number of days remaining in the               *   FILE 930
//*          year, when it is February 19, 2011?                    *   FILE 930
//*                                                                 *   FILE 930
//*     Determine the number of days remaining in the year,         *   FILE 930
//*          when it is February 19, 2012                           *   FILE 930
//*                                                                 *   FILE 930
//*     ------------------------------------------------------      *   FILE 930
//*                                                                 *   FILE 930
//*     Files 932 and 933 contain the maximum-size file which can   *   FILE 930
//*     be created with Phil Polchinski's program, so therefore     *   FILE 930
//*     you can program solutions to solve all the date problems    *   FILE 930
//*     which you want to solve (hopefully) between the years of    *   FILE 930
//*     1753 thru 2600.                                             *   FILE 930
//*                                                                 *   FILE 930
//*     Best of everything..........                                *   FILE 930
//*                                                                 *   FILE 930
//***FILE 931 is from Gabriel F. Gargiulo who writes books about    *   FILE 931
//*           TSO topics, CLISTs, and REXX.                         *   FILE 931
//*                                                                 *   FILE 931
//*           email:  gabeg@yoursecondlanguage.com                  *   FILE 931
//*                                                                 *   FILE 931
//*           This file is from Gabriel's new book called:          *   FILE 931
//*                                                                 *   FILE 931
//*           "TSO CLIST to TSO REXX Conversion Handbook"           *   FILE 931
//*                   By Gabriel F. Gargiulo                        *   FILE 931
//*                   ISBN-13: 978-1508668497                       *   FILE 931
//*                   ISBN-10: 1508668493                           *   FILE 931
//*                                                                 *   FILE 931
//*           which you can order from Amazon.com, among other      *   FILE 931
//*           places.                                               *   FILE 931
//*                                                                 *   FILE 931
//*           This file contains the exercise examples from         *   FILE 931
//*           the book.                                             *   FILE 931
//*                                                                 *   FILE 931
//*       Organization of PDS members:                              *   FILE 931
//*                                                                 *   FILE 931
//*       Each CLIST which is converted to a REXX (and supposedly   *   FILE 931
//*       does a similar action), has the same suffix number as     *   FILE 931
//*       the corresponding REXX exec member of this file.          *   FILE 931
//*                                                                 *   FILE 931
//*       For example:  member CLST0003 corresponds to member       *   FILE 931
//*                            REXX0003,                            *   FILE 931
//*                                                                 *   FILE 931
//*                     and so forth for all 61 examples currently  *   FILE 931
//*                     displayed here in this pds.                 *   FILE 931
//*                                                                 *   FILE 931
//***FILE 932 is from Phil Polchinski and contains an EBCDIC copy   *   FILE 932
//*           of his Calendar File, referred to in CBT File 930.    *   FILE 932
//*           This is a maximum size calendar file that goes from   *   FILE 932
//*           year 1753 thru year 2600.  This is a PS format file,  *   FILE 932
//*           (Physical Sequential) with LRECL=35 and with          *   FILE 932
//*           BLKSIZE=27965.                                        *   FILE 932
//*                                                                 *   FILE 932
//*           See also, File 930, and possibly Files 933 and 934.   *   FILE 932
//*           File 930 has most of the descriptive information      *   FILE 932
//*           for this product (which is a file).                   *   FILE 932
//*                                                                 *   FILE 932
//*           email:  philmpolchinski@hotmail.com                   *   FILE 932
//*                                                                 *   FILE 932
//***FILE 933 is from Phil Polchinski and contains an ASCII copy    *   FILE 933
//*           of his Calendar File, and an ASCII copy of his        *   FILE 933
//*           documentation that is in File 930, in zipped format.  *   FILE 933
//*                                                                 *   FILE 933
//*           You use this file by downloading it in BINARY to a    *   FILE 933
//*           PC, renaming the file so it ends in .zip, and         *   FILE 933
//*           unzipping it with any PC zipping tool.                *   FILE 933
//*                                                                 *   FILE 933
//*           email:  philmpolchinski@hotmail.com                   *   FILE 933
//*                                                                 *   FILE 933
//***FILE 934 is from a member of the IBM DFSORT staff, and is      *   FILE 934
//*           a DFSORT job which creates Phil Polchinski's          *   FILE 934
//*           maximum size CALENDAR FILE, without needing Phil's    *   FILE 934
//*           CALFILE program to do it.  This is being included     *   FILE 934
//*           here for the reason that if you don't have access     *   FILE 934
//*           to Phil's CALFILE program, then you can still         *   FILE 934
//*           create his calendar file to use, using DFSORT.        *   FILE 934
//*                                                                 *   FILE 934
//*           email:  sbgolob@cbttape.org                           *   FILE 934
//*                                                                 *   FILE 934
//***FILE 935 is from John McKown and is a port of SQLITE 3.8.11    *   FILE 935
//*           to z/OS.  The current state of this package is        *   FILE 935
//*           described below.  This is version 3.8.11 of SQLITE.   *   FILE 935
//*           An older version of this port can be found on CBT     *   FILE 935
//*           File 923 (version 3.8.7) and an even older version    *   FILE 935
//*           is found on File 897 (version 3.8).                   *   FILE 935
//*                                                                 *   FILE 935
//*           email:  john.archie.mckown@gmail.com                  *   FILE 935
//*                                                                 *   FILE 935
//*           Please look at the description below:                 *   FILE 935
//*                                                                 *   FILE 935
//*                   SQLITE 3.8.11 for z/OS                        *   FILE 935
//*                   =====================                         *   FILE 935
//*                                                                 *   FILE 935
//*     Sqlite is a self-contained, server-less,                    *   FILE 935
//*     zero-configuration, transactional SQL database engine.      *   FILE 935
//*     This is the standard sqlite library which is available      *   FILE 935
//*     on many UNIX and Linux systems. The code was compiled       *   FILE 935
//*     with almost no changes. The code is dependent on z/OS       *   FILE 935
//*     UNIX System Services.  The original code supports EBCDIC    *   FILE 935
//*     in addition to the normal ASCII. This distribution has      *   FILE 935
//*     been compiled to support EBCDIC characters and IEEE         *   FILE 935
//*     (BFP) floating point numbers. This latter is important      *   FILE 935
//*     because most other z/OS languages use the historical HFP    *   FILE 935
//*     floating point.                                             *   FILE 935
//*                                                                 *   FILE 935
//*     At present, the code only has C language bindings on        *   FILE 935
//*     z/OS.  There is a "shim" or "stub" HLASM interface          *   FILE 935
//*     program which can be called from COBOL or PL/I to access    *   FILE 935
//*     the C subroutines. It is named SQLITE3A.  The parameters    *   FILE 935
//*     passed into this routine are the same ones as documented    *   FILE 935
//*     in the sqlite C API, except that the first parameter is     *   FILE 935
//*     a C style null-delimited character string which is the      *   FILE 935
//*     name of the C subroutine to be invoked. In COBOL, this      *   FILE 935
//*     is a Z'...' character string. The COBSQLTE and PLISQLTE     *   FILE 935
//*     members are the COBOL COPY book and PL/I %INCLUDE           *   FILE 935
//*     members which define COBOL or PL/I variables which          *   FILE 935
//*     contain these strings. In the case of COBOL, the            *   FILE 935
//*     underscore characters shown in the C API names are          *   FILE 935
//*     replace by a dash because an underscore is not valid in     *   FILE 935
//*     a COBOL data name. The variable names are in upper case,    *   FILE 935
//*     but the values are in lower case, due to the fact that      *   FILE 935
//*     the C subroutine names are in lower case.                   *   FILE 935
//*                                                                 *   FILE 935
//*     Sqlite 3.8.11 is documented at http://sqlite.org, and       *   FILE 935
//*     this code runs as described there. Therefore, no futher     *   FILE 935
//*     documentation is supplied at present.  When the COBOL       *   FILE 935
//*     and PL/I bindings are done, those will be documented        *   FILE 935
//*     here.                                                       *   FILE 935
//*                                                                 *   FILE 935
//*     This document does _not_ attempt to teach you how to use    *   FILE 935
//*     sqlite. It assumes you already know how to use it, or       *   FILE 935
//*     can learn it yourself. It does attempt to explain how to    *   FILE 935
//*     use it on z/OS by showing some COBOL and PL/I examples.     *   FILE 935
//*     If you have a C license, I strongly suggest writing your    *   FILE 935
//*     code in C. It will be more understandable to most.          *   FILE 935
//*                                                                 *   FILE 935
//*     Wish list items.                                            *   FILE 935
//*     ----------------                                            *   FILE 935
//*     1. At present, the file which contains the sqlite           *   FILE 935
//*        database must reside in a UNIX subdirectory. This        *   FILE 935
//*        means that the user of sqlite must have an z/OS UNIX     *   FILE 935
//*        identity.  I would like to be able to use a VSAM         *   FILE 935
//*        Linear Dataset for storing the sqlite data at some       *   FILE 935
//*        time. Mainly due to the number of shops which have       *   FILE 935
//*        not really embraced z/OS UNIX.  This may be possible     *   FILE 935
//*        using a "shim" sqlite VFS as documented here:            *   FILE 935
//*        http://sqlite.org/vfs.html which would use a VSAM LDS    *   FILE 935
//*        as the backing store for a sqlite in-memory data         *   FILE 935
//*        base.                                                    *   FILE 935
//*                                                                 *   FILE 935
//*     2. Write a REXX interface.                                  *   FILE 935
//*                                                                 *   FILE 935
//*     3. Write a batch program based on the sqlite3 UNIX          *   FILE 935
//*        command. This would allow SQL commands to be run in a    *   FILE 935
//*        step in a batch job.                                     *   FILE 935
//*                                                                 *   FILE 935
//*     4. JDBC for Java access.                                    *   FILE 935
//*                                                                 *   FILE 935
//*                                                                 *   FILE 935
//*     Members in this library:                                    *   FILE 935
//*     ------------------------                                    *   FILE 935
//*     - $README  - This member. The README in markdown format.    *   FILE 935
//*                                                                 *   FILE 935
//*     - ASMACL   - The JCL to compile and link the SQLITE3A       *   FILE 935
//*                  assembler program.  It would be wise to run    *   FILE 935
//*                  this to recompile SQLITE3A on your system,     *   FILE 935
//*                  if at all possible.                            *   FILE 935
//*                                                                 *   FILE 935
//*     - COBSQLTE - The COBOL copy book which defines various      *   FILE 935
//*                  SQLITE3 related variables and initializes      *   FILE 935
//*                  them.  The member contains a fair number of    *   FILE 935
//*                  comments on how to use SQLITE3A in a COBOL     *   FILE 935
//*                  program to invoke each of the 204(!)           *   FILE 935
//*                  different sqlite subroutines.                  *   FILE 935
//*                                                                 *   FILE 935
//*     - COBTEST1 - The JCL to run the TESTCOB1 program.           *   FILE 935
//*                  Unless you are running z/OS 2.1, you need      *   FILE 935
//*                  to recompile the program before running        *   FILE 935
//*                  this test job. There are LE dependencies.      *   FILE 935
//*                                                                 *   FILE 935
//*     - COBTEST2 - The JCL to run the TESTCOB2 program.           *   FILE 935
//*                  Unless you are running z/OS 2.1, you need      *   FILE 935
//*                  to recompile the program before running        *   FILE 935
//*                  this test job. There are LE dependencies.      *   FILE 935
//*                                                                 *   FILE 935
//*     - IGYWCL   - The JCL to compile and link the TESTCOB1       *   FILE 935
//*                  and TESTCOB2 program. You really need to       *   FILE 935
//*                  recompile these program on your system due     *   FILE 935
//*                  to possible LE dependencies.                   *   FILE 935
//*                                                                 *   FILE 935
//*     - LINK     - The JCL to link the SQLITE3 object code        *   FILE 935
//*                  into a LINKLIB.  This composite links in       *   FILE 935
//*                  the C and LE library subroutines.              *   FILE 935
//*                                                                 *   FILE 935
//*     - LINKLIB  - XMIT copy of the SQL3811.LINKLIB library       *   FILE 935
//*                  containing the z/OS batch executable           *   FILE 935
//*                  programs: SQLITE3A, TESTCOB1, and TESTCOB2.    *   FILE 935
//*                  However, these program will likely only run    *   FILE 935
//*                  on a z/OS 2.1 system due to COBOL              *   FILE 935
//*                  dependencies on LE.                            *   FILE 935
//*                                                                 *   FILE 935
//*     - PAXFULL  - This is a compressed pax archive for the       *   FILE 935
//*                  entire SQLITE3 application, Including all      *   FILE 935
//*                  source code and make information.              *   FILE 935
//*                                                                 *   FILE 935
//*     - PLICB    - The JCL to compile a PL/I program.             *   FILE 935
//*                                                                 *   FILE 935
//*     - PLISQLTE - The PL/I %INCLUDE member to define and         *   FILE 935
//*                  initialize a number of variables to ease       *   FILE 935
//*                  the use of SQLITE3A.                           *   FILE 935
//*                                                                 *   FILE 935
//*     - SQLITE3A - LE enabled HLASM subroutine which presents     *   FILE 935
//*                  an API to the SQLITE3 C subroutines which      *   FILE 935
//*                  is designed for use by COBOL or PL/I code.     *   FILE 935
//*                  It is composite (statically) bound with the    *   FILE 935
//*                  C object code.  This code has not been         *   FILE 935
//*                  fully tested yet and may contain errors.       *   FILE 935
//*                                                                 *   FILE 935
//*     - SQLITE3O - The object code for SQLITE to be bound into    *   FILE 935
//*                  the application.  This was compiled on z/OS    *   FILE 935
//*                  1.13, but the C compiler options were for      *   FILE 935
//*                  compatibility with z/OS 1.11 or higher.        *   FILE 935
//*                                                                 *   FILE 935
//*     - TESTCOB1 - Example Enterprise COBOL program. It is        *   FILE 935
//*                  very basic.  It uses the SQLITE3A stub to      *   FILE 935
//*                  invoke SQLITE3 operations.  If you look at     *   FILE 935
//*                  this, you will realize that I am very          *   FILE 935
//*                  "wordy" and am definitely not an advanced      *   FILE 935
//*                  COBOL programmer.                              *   FILE 935
//*                                                                 *   FILE 935
//*     - TESTCOB2 - Example Enterprise COBOL program. It is        *   FILE 935
//*                  very basic.  It's main example is of how to    *   FILE 935
//*                  retrieve a double precision floating point     *   FILE 935
//*                  number, COMP-2, from an sqlite data base,      *   FILE 935
//*                  converting it from BFP to HFP format.  The     *   FILE 935
//*                  table is defined like:  CREATE TABLE xz        *   FILE 935
//*                  (int INTEGER, fd DOUBLE); This table can be    *   FILE 935
//*                  created and loaded from a z/OS UNIX shell      *   FILE 935
//*                  prompt using the "sqlite3" UNIX command.       *   FILE 935
//*                                                                 *   FILE 935
//*                  From my testing, it appears that sqlite,       *   FILE 935
//*                  unlike most other RDMS systems is case         *   FILE 935
//*                  sensitive for the names of objects such as     *   FILE 935
//*                  columns and tables.                            *   FILE 935
//*                                                                 *   FILE 935
//*     - TESTDB   - A pax archive which contains the               *   FILE 935
//*                  testdb.sqlite3 UNIX file used by the           *   FILE 935
//*                  TESTCOB2 program. This needs to be restored    *   FILE 935
//*                  to a subdirectory (/tmp in the example         *   FILE 935
//*                  code). This can be done with a UNIX command    *   FILE 935
//*                  sequence such as:                              *   FILE 935
//*                                                                 *   FILE 935
//*                  cd /tmp                                        *   FILE 935
//*                  pax -rzf "//sql3811.cntl(testdb)"              *   FILE 935
//*                                                                 *   FILE 935
//*     - TSTPLI1  - Example Enterprise PL/I program. It is very    *   FILE 935
//*                  basic.  It is functionally equivalent to       *   FILE 935
//*                  TESTCOB1.  This is not working at present.     *   FILE 935
//*                  I don't normally program in PL/I because I     *   FILE 935
//*                  have never worked in a shop which used it.     *   FILE 935
//*                                                                 *   FILE 935
//*     - UNPAX    - The JCL needed to unwind either the PAXFULL    *   FILE 935
//*                  or PAXRUN member into a z/OS UNIX              *   FILE 935
//*                  subdirectory.                                  *   FILE 935
//*                                                                 *   FILE 935
//*     Notes on the SQLITE3A interface program.                    *   FILE 935
//*     ----------------------------------------                    *   FILE 935
//*                                                                 *   FILE 935
//*     Notes on how to use SQLITE3A with COBOL.                    *   FILE 935
//*     ----------------------------------------                    *   FILE 935
//*     1. One major oddity which can be quite confusing is that    *   FILE 935
//*        the C language calling sequence is quite different       *   FILE 935
//*        from the normal COBOL calling sequence. This             *   FILE 935
//*        difference is why many of the parameters being passed    *   FILE 935
//*        to sqlite3 _must_ be BY VALUE instead of BY REFERENCE.   *   FILE 935
//*        In particular things such as integers (COMP-?) and       *   FILE 935
//*        doubles must be passed BY VALUE.  Character strings      *   FILE 935
//*        are passed BY REFERENCE, but generally require that      *   FILE 935
//*        they be terminated with by LOW-VALUES byte. In modern    *   FILE 935
//*        COBOLs, this type of string can be initialized using     *   FILE 935
//*        the Z'value' construct.                                  *   FILE 935
//*                                                                 *   FILE 935
//*     2. When reading the C API documentation, the main thing     *   FILE 935
//*        to remember is that when you see a varible prefixed      *   FILE 935
//*        with an ampersand, you need to pass it BY REFERENCE.     *   FILE 935
//*        If you see a variable suffixed with an asterisk, this    *   FILE 935
//*        indicates that the variable name in COBOL needs to be    *   FILE 935
//*        defined as USAGE POINTER. This is also passed BY         *   FILE 935
//*        VALUE.                                                   *   FILE 935
//*                                                                 *   FILE 935
//*     3. Another critical point is that when you see a function   *   FILE 935
//*        return an "int", which is a 32 bit integer, or a name    *   FILE 935
//*        prefixed by an asterisk, you receive these into a        *   FILE 935
//*        COBOL variable by using the phrase RETURNING             *   FILE 935
//*        cobol-var-name.  All other types of returned             *   FILE 935
//*        variables, such as double floating point, are received   *   FILE 935
//*        by inserting a BY REFERENCE phrase as the second         *   FILE 935
//*        parameter in the CALL verb's USING clause.  Please       *   FILE 935
//*        review TESTCOB2 for an example.                          *   FILE 935
//*                                                                 *   FILE 935
//*     4. Unlike most z/OS languages, sqlite stores floating       *   FILE 935
//*        point numbers in IEEE 754 format. On the z, this is      *   FILE 935
//*        called a BFP or Binary Floating Point number. After      *   FILE 935
//*        retrieving a BFP number from sqlite, you will likely     *   FILE 935
//*        need to call the function "CONVERT-BFP-TO-HFP".          *   FILE 935
//*        Likewise, before sending a value to sqlite, you need     *   FILE 935
//*        to convert it to BFP by calling the                      *   FILE 935
//*        "CONVERT-HFP-TO-BFP" function.  The former is shown      *   FILE 935
//*        in the TESTCOB2 example.  My suggestion is to define     *   FILE 935
//*        BFP number in your COBOL as COMP-2 variables, perhaps    *   FILE 935
//*        suffixed with -BFP. Use COMP-2 for your COBOL            *   FILE 935
//*        floating point number also, not COMP-1. Both of these    *   FILE 935
//*        formats use an 8 bytes for storage.                      *   FILE 935
//*                                                                 *   FILE 935
//*     Notes on how to use SQLITE3A with PL/I.                     *   FILE 935
//*     ---------------------------------------                     *   FILE 935
//*     No notes at present. Mainly due to my lack of PL/I skills.  *   FILE 935
//*                                                                 *   FILE 935
//*                                                                 *   FILE 935
//*     Note: This member is in "markdown" compatible format.       *   FILE 935
//*     For more information on markdown, go to                     *   FILE 935
//*     http://daringfireball.net/projects/markdown/                *   FILE 935
//*                                                                 *   FILE 935
//***FILE 936 is from John McKown and contains a port of NAWK       *   FILE 936
//*           (New AWK) to z/OS.                                    *   FILE 936
//*                                                                 *   FILE 936
//*           AWK is a pattern-directed scanning and processing     *   FILE 936
//*           language.                                             *   FILE 936
//*                                                                 *   FILE 936
//*  The members in this library are:                               *   FILE 936
//*                                                                 *   FILE 936
//*  $README  : A short README file.                                *   FILE 936
//*                                                                 *   FILE 936
//*  NAWK     : The actual executable, must be copied to a          *   FILE 936
//*             z/OS UNIX directory!                                *   FILE 936
//*                                                                 *   FILE 936
//*  NAWK1CAT : The UNIX "man" page, formatted for use.             *   FILE 936
//*                                                                 *   FILE 936
//*  PAXFULL  : The pax archive containing all the files,           *   FILE 936
//*             source and support.                                 *   FILE 936
//*                                                                 *   FILE 936
//*  PAXLIST  : A list of the files in archive in PAXFULL.          *   FILE 936
//*                                                                 *   FILE 936
//*  UNPAX    : Example JCL to unwind PAXFULL into a z/OS           *   FILE 936
//*             UNIX directory.                                     *   FILE 936
//*                                                                 *   FILE 936
//*  You don't need to unwind the PAXFULL member if you only        *   FILE 936
//*  want to install the executable.  You can simply do the         *   FILE 936
//*  UNIX command:                                                  *   FILE 936
//*                                                                 *   FILE 936
//*  cp -B "//'this.library(NAWK)'" /directory/containing/bin/nawk  *   FILE 936
//*                                                                 *   FILE 936
//*       email:  john.archie.mckown@gmail.com                      *   FILE 936
//*                                                                 *   FILE 936
//***FILE 937 IS CURRENTLY EMPTY                                    *   FILE 937
//*                                                                 *   FILE 937
//***FILE 938 is from Peter Giles, by way of the Xephon article     *   FILE 938
//*           about Subsystem call 54, in the June 2003 issue of    *   FILE 938
//*           MVS Update.  Peter has added some lines of code to    *   FILE 938
//*           the subsystem information display.                    *   FILE 938
//*                                                                 *   FILE 938
//*           Xephon MVS code through the year 2005 is now          *   FILE 938
//*           supported by www.cbttape.org.  See member $$$XEPH.    *   FILE 938
//*                                                                 *   FILE 938
//*           Output from the SSINFO program is sent to the         *   FILE 938
//*           system console and the system log.                    *   FILE 938
//*                                                                 *   FILE 938
//*           email:  Peter.Giles@ssc.gov.au                        *   FILE 938
//*                                                                 *   FILE 938
//***FILE 939 is from Ze'ev Atlas and contains a port of the        *   FILE 939
//*           PCRE2 (Perl-Compatible Regular Expressions) product   *   FILE 939
//*           to z/OS, a later release of PCRE.                     *   FILE 939
//*                                                                 *   FILE 939
//*       - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 939
//*                                                                 *   FILE 939
//*          (This note pertains to PCRE release 10.ALL)            *   FILE 939
//*                                                                 *   FILE 939
//*          Please see the documents:                              *   FILE 939
//*          EBCDIC_Horror.txt    member $EBCDIC                    *   FILE 939
//*          REXXAPI.txt          member REXXAPI                    *   FILE 939
//*                                                                 *   FILE 939
//*       - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 939
//*                                                                 *   FILE 939
//*        This distribution is a release of PCRE 10.42.            *   FILE 939
//*                                                                 *   FILE 939
//*       - - - - - - - - - - - - - - - - - - - - - - - - - - - -   *   FILE 939
//*                                                                 *   FILE 939
//*           If you are using code-page 1047 (common in the        *   FILE 939
//*           U.S.), a quick install is being presented here, in    *   FILE 939
//*           the form of 6 XMIT-format files.  These need to be    *   FILE 939
//*           RECEIVE'd under TSO, and they will be almost ready    *   FILE 939
//*           to go.  You still need to read the documentation      *   FILE 939
//*           on the PC (and the member PCRE2DOC).                  *   FILE 939
//*                                                                 *   FILE 939
//*           It is very important to read member $$NOTE01, which   *   FILE 939
//*           will explain what to do if you need other code pages. *   FILE 939
//*                                                                 *   FILE 939
//*           Port is of PCRE Version 10.42, known as PCRE2.        *   FILE 939
//*                                                                 *   FILE 939
//*           Current release is marked with ISPF statistics        *   FILE 939
//*                as 10.42.                                        *   FILE 939
//*                                                                 *   FILE 939
//*           Please read all members named $$NOTE**                *   FILE 939
//*                                                                 *   FILE 939
//*           email:  zatlas1@yahoo.com                             *   FILE 939
//*                                                                 *   FILE 939
//*           web site:  http://www.zaconsultants.net               *   FILE 939
//*                                                                 *   FILE 939
//*           PCRE info:  http://www.pcre.org  (please go there)    *   FILE 939
//*                                                                 *   FILE 939
//*     File Member Names:  (correspond to unzipped named files)    *   FILE 939
//*     ---- ------ -----                                           *   FILE 939
//*                                                                 *   FILE 939
//*     @FILE939 -  this file                                       *   FILE 939
//*     $$NOTE00 -  general introduction                            *   FILE 939
//*     $$NOTE01 -  what to do if you need other code pages         *   FILE 939
//*     $INSTALL -  installation REXX from Lionel Dyck              *   FILE 939
//*     PCRE2DOC -  text documentation for the package (ASCII)      *   FILE 939
//*     ASM      -  pcre2.asmlib.xmi                                *   FILE 939
//*     CNTL     -  pcre2.cntllib.xmi                               *   FILE 939
//*     COB      -  pcre2.cob.xmi                                   *   FILE 939
//*     JCL      -  pcre2.jcllib.xmi                                *   FILE 939
//*     LICENCE  -  licence.txt                                     *   FILE 939
//*     LOADLIB  -  pcre2.loadlib.xmi                               *   FILE 939
//*     SRCE     -  pcre2.srce.xmi                                  *   FILE 939
//*     TESTLIB  -  pcre2.testlib.xmi                               *   FILE 939
//*     TESTGREP -  pcre2.testgrep                                  *   FILE 939
//*                                                                 *   FILE 939
//*     Short description:                                          *   FILE 939
//*     ----- -----------                                           *   FILE 939
//*     Regular Expressions is a technology that allows text        *   FILE 939
//*     search and manipulation in ways that go above and           *   FILE 939
//*     beyond what is known even to extreme Rexx programmers.      *   FILE 939
//*     The lack of Regular Expressions in COBOL contrasts with     *   FILE 939
//*     their availability in Perl and Java and is always           *   FILE 939
//*     frustrating to me.  Thus, I decided to port a Regular       *   FILE 939
//*     Expressions library and make it available on native         *   FILE 939
//*     z/OS.  I chose the pcre2 which is considered to be the      *   FILE 939
//*     best publicly available such library in that it is          *   FILE 939
//*     compatible with the standard bearer, Perl.  pcre2 is        *   FILE 939
//*     used in PHP and other projects.                             *   FILE 939
//*                                                                 *   FILE 939
//*     This is the twentieth version and is compatible with        *   FILE 939
//*     pcre2 10.42. The package is distributed as Open Source,     *   FILE 939
//*     as is with no warranty and under the BSD license that       *   FILE 939
//*     is pretty open and non-limiting.                            *   FILE 939
//*                                                                 *   FILE 939
//***FILE 940 is from Sam Golob by way of Gilbert Saint-flour       *   FILE 940
//*           and its original author, M. Schmidt of Switzerland.   *   FILE 940
//*                                                                 *   FILE 940
//*           This program lists all the libraries controlled       *   FILE 940
//*           by LLA (Linklist Lookaside).                          *   FILE 940
//*                                                                 *   FILE 940
//*           This program has been tested on z/OS 2.2, but it is   *   FILE 940
//*           dependent on the type of some undocumented IBM        *   FILE 940
//*           control blocks, and must be fitted to older releases  *   FILE 940
//*           of the operating system.                              *   FILE 940
//*                                                                 *   FILE 940
//*           email:  sbgolob@cbttape.org                           *   FILE 940
//*                                                                 *   FILE 940
//***FILE 941 is from Gregory Bliznets and contains several of      *   FILE 941
//*           his utilities.                                        *   FILE 941
//*                                                                 *   FILE 941
//*           email:  GregoryTwin@gmail.com                         *   FILE 941
//*                                                                 *   FILE 941
//*       The utilites are:                                         *   FILE 941
//*                                                                 *   FILE 941
//*       AMBLIST   -  A tool to run an AMBLIST in various formats  *   FILE 941
//*                    and display the results to ISPF.             *   FILE 941
//*       LISTIDR   -  "shotcut" for AMBLIST LISTIDR                *   FILE 941
//*       LISTLOAD  -  "shotcut" for AMBLIST LISTLOAD               *   FILE 941
//*       LISTOBJ   -  "shotcut" for AMBLIST LISTOBJ                *   FILE 941
//*                    LISTIDR, LISTLOAD, LISTOBJ can be used on    *   FILE 941
//*                    member list as a line commands.              *   FILE 941
//*                                                                 *   FILE 941
//*       ISP2CSV   -  Dumping your ISPF command tables to a        *   FILE 941
//*                    comma-separated format for post-processing.  *   FILE 941
//*       CSV2ISP   -  The reverse of ISP2CSV. CSV2ISP may be used  *   FILE 941
//*                    as SCLM Language translator to allow ISPF    *   FILE 941
//*                    table maintenance under SCLM.                *   FILE 941
//*                                                                 *   FILE 941
//*       DDL       -  A tool to look at a VSAM catalog and         *   FILE 941
//*                    create card-images to re-define the          *   FILE 941
//*                    entries cataloged in it, also calculate      *   FILE 941
//*                    required space.                              *   FILE 941
//*                                                                 *   FILE 941
//*       RESIZE    -  A tool to easily resize (reallocate) any     *   FILE 941
//*                    data set with or without saving data.        *   FILE 941
//*                                                                 *   FILE 941
//*       LA        -  List allocated data set as set of ALLOCATE   *   FILE 941
//*                    command or JCL DD statements.                *   FILE 941
//*                                                                 *   FILE 941
//*       TRAP      -  Trap TSO command output and allow Browse     *   FILE 941
//*                    or Edit it.                                  *   FILE 941
//*                                                                 *   FILE 941
//*       FEEDBACK  -  Complete job notification.                   *   FILE 941
//*                                                                 *   FILE 941
//*       LISTCS    -  Standalone job used for objective comparison *   FILE 941
//*                    of load or program libraries.                *   FILE 941
//*                                                                 *   FILE 941
//*       DELINK    -  Standalone job used for split load modules   *   FILE 941
//*                    or program objects to the NCAL.              *   FILE 941
//*                                                                 *   FILE 941
//*       LZ        -  Full screen list and browse of ZIP archives  *   FILE 941
//*                    under ISPF.                                  *   FILE 941
//*                                                                 *   FILE 941
//*       LOADISPF  -  Procedure to handle embedded ISPF elements - *   FILE 941
//*                    panels, skeletons, messages as well as       *   FILE 941
//*                    clists, execs, tables and even executable    *   FILE 941
//*                    modules. Enhanced version of Lionel B. Dyck  *   FILE 941
//*                    "LoadISPF".                                  *   FILE 941
//*                                                                 *   FILE 941
//*       LOADISPL  -  "Lite" version of LOADISPF, supports         *   FILE 941
//*                    embedded panels, skeletons and messages,     *   FILE 941
//*                    exactly the same functionality as original   *   FILE 941
//*                    Lionel B. Dyck version. LOADISPL included    *   FILE 941
//*                    in LZ, AMBLIST, RESIZE, DDL.                 *   FILE 941
//*                                                                 *   FILE 941
//*       LM        -  Copy, move, delete, rename, update statistic *   FILE 941
//*                    of PDS/PDSE members using ISPF LM service.   *   FILE 941
//*                                                                 *   FILE 941
//*       RXGIM     -  REXX interface to SMP/E (GIMAPI) written in  *   FILE 941
//*                    PL/I. Both source and load provided. Load    *   FILE 941
//*                    produced with Enterprise PL/I 5.2.           *   FILE 941
//*                    An alternative of CBTTAPE FILE 778 by        *   FILE 941
//*                    Daniel Gaeta, RXGIM returns structured       *   FILE 941
//*                    data.                                        *   FILE 941
//*                                                                 *   FILE 941
//*       SCT       -  Cloning tool. Copies runtime code to the     *   FILE 941
//*                    desired environment and change code as       *   FILE 941
//*                    specified to enable it to be executed in     *   FILE 941
//*                    that environment.                            *   FILE 941
//*                                                                 *   FILE 941
//*       ISPCS     -  Start ISPF Client/Server (ISPF C/S) session  *   FILE 941
//*                    with single click on Windows icon without    *   FILE 941
//*                    use any 3270 session at all.                 *   FILE 941
//*                                                                 *   FILE 941
//***FILE 942 comes by way of John Kalinich, but is the work of     *   FILE 942
//*           several people.  The cornerstone of this file is      *   FILE 942
//*           the two REXXes called VI (alias VSAM), and VCX,       *   FILE 942
//*           together with their panels, VI#1 and VI#1H.           *   FILE 942
//*                                                                 *   FILE 942
//*           These allow you to find information about VSAM        *   FILE 942
//*           datasets, directly from an ISPF 3.4 panel.            *   FILE 942
//*                                                                 *   FILE 942
//*           VI     -  lists "LISTC-type" information, but         *   FILE 942
//*                     on a panel -- easy to read.                 *   FILE 942
//*                                                                 *   FILE 942
//*           VSAM   -  an alias for VI                             *   FILE 942
//*                                                                 *   FILE 942
//*           VCX    -  generates a DEFINE statement to             *   FILE 942
//*                     recatalog the dataset.  (valuable..!!)      *   FILE 942
//*                                                                 *   FILE 942
//*       Try them.... You'll like them.....!!                      *   FILE 942
//*                                                                 *   FILE 942
//*       In order to get VCX to work properly, you will need       *   FILE 942
//*       a TSO command to clear the screen.  It should be          *   FILE 942
//*       renamed to the name CLEAR, or you can change the name     *   FILE 942
//*       in the VCX exec.  Two of these have been supplied:        *   FILE 942
//*                                                                 *   FILE 942
//*       Members CLEAR and CLEAR$ (program and assembly JCL)       *   FILE 942
//*                                                                 *   FILE 942
//*       Member CLS (another program which does essentially        *   FILE 942
//*           the same thing).                                      *   FILE 942
//*                                                                 *   FILE 942
//*       Two other programs have also been supplied here:          *   FILE 942
//*                                                                 *   FILE 942
//*           LISTCSUM  - A REXX to break LISTC output into         *   FILE 942
//*                       parse-able chunks (also needs "CLEAR")    *   FILE 942
//*                                                                 *   FILE 942
//*           RXDATE    - A REXX subroutine to convert dates        *   FILE 942
//*                       in many ways.                             *   FILE 942
//*                                                                 *   FILE 942
//*           email:  jkalinic@outlook.com                          *   FILE 942
//*                                                                 *   FILE 942
//*           email:  sbgolob@cbttape.org                           *   FILE 942
//*                                                                 *   FILE 942
//*       28 Apr 2020                                               *   FILE 942
//*          - Jim Turner (jim_turner@triserv.com) added            *   FILE 942
//*            additional informational fields for SMS/RLS and      *   FILE 942
//*            made the VI#1 panel scrollable.                      *   FILE 942
//*                                                                 *   FILE 942
//***FILE 943 contains articles downloaded from Xephon archives,    *   FILE 943
//*           from CICS Update magazines, which are now supported   *   FILE 943
//*           by www.cbttape.org, bu way of permission from Thomas  *   FILE 943
//*           Publishing and Bob Thomas.  The Xephon company is     *   FILE 943
//*           now defunct, the rights were given over to Thomas     *   FILE 943
//*           publishing, who gave the support rights to us.  So    *   FILE 943
//*           you can now use all this information and code, in     *   FILE 943
//*           good conscience.                                      *   FILE 943
//*                                                                 *   FILE 943
//*           Articles in this file are from September 1987 thru    *   FILE 943
//*           January 1993.                                         *   FILE 943
//*                                                                 *   FILE 943
//*           email:  sbgolob@cbttape.org                           *   FILE 943
//*                                                                 *   FILE 943
//***FILE 944 contains articles downloaded from Xephon archives,    *   FILE 944
//*           from SNA Update magazines, which are now supported    *   FILE 944
//*           by www.cbttape.org, bu way of permission from Thomas  *   FILE 944
//*           Publishing and Bob Thomas.  The Xephon company is     *   FILE 944
//*           now defunct, the rights were given over to Thomas     *   FILE 944
//*           publishing, who gave the support rights to us.  So    *   FILE 944
//*           you can now use all this information and code, in     *   FILE 944
//*           good conscience.                                      *   FILE 944
//*                                                                 *   FILE 944
//*           Articles in this file are from March 1991 thru        *   FILE 944
//*           December 1992.                                        *   FILE 944
//*                                                                 *   FILE 944
//*           email:  sbgolob@cbttape.org                           *   FILE 944
//*                                                                 *   FILE 944
//***FILE 945 contains articles downloaded from Xephon archives,    *   FILE 945
//*           from VSAM Update magazines, which are now supported   *   FILE 945
//*           by www.cbttape.org, bu way of permission from Thomas  *   FILE 945
//*           Publishing and Bob Thomas.  The Xephon company is     *   FILE 945
//*           now defunct, the rights were given over to Thomas     *   FILE 945
//*           publishing, who gave the support rights to us.  So    *   FILE 945
//*           you can now use all this information and code, in     *   FILE 945
//*           good conscience.                                      *   FILE 945
//*                                                                 *   FILE 945
//*           Articles in this file are from April 1991 thru        *   FILE 945
//*           January 1993.                                         *   FILE 945
//*                                                                 *   FILE 945
//*           email:  sbgolob@cbttape.org                           *   FILE 945
//*                                                                 *   FILE 945
//***FILE 946 contains articles downloaded from Xephon archives,    *   FILE 946
//*           from VM Update magazines, which are now supported     *   FILE 946
//*           by www.cbttape.org, bu way of permission from SDS     *   FILE 946
//*           (Software Diversified Services).  The Xephon company  *   FILE 946
//*           is now defunct, the rights were given over to SDS,    *   FILE 946
//*           who allowed us to publish this material.              *   FILE 946
//*                                                                 *   FILE 946
//*           You can use all this information and code, in         *   FILE 946
//*           good conscience.                                      *   FILE 946
//*                                                                 *   FILE 946
//*           Some members of this pds had to have records in the   *   FILE 946
//*           member shortened to 80 bytes, from longer.  Members   *   FILE 946
//*           with my userid (instead of userid VMUPDAT) probably   *   FILE 946
//*           had this done to them, and the REXXes might not       *   FILE 946
//*           work as they are, but I think all of the material     *   FILE 946
//*           is still there, for you to figure out how to format   *   FILE 946
//*           the stuff correctly.                                  *   FILE 946
//*                                                                 *   FILE 946
//*           Articles in this file are from September 1987 thru    *   FILE 946
//*           January 1993.                                         *   FILE 946
//*                                                                 *   FILE 946
//*           email:  sbgolob@cbttape.org                           *   FILE 946
//*                                                                 *   FILE 946
//***FILE 947 contains articles downloaded from Xephon archives,    *   FILE 947
//*           from VSE Update magazines, which are now supported    *   FILE 947
//*           by www.cbttape.org, bu way of permission from Thomas  *   FILE 947
//*           Publishing and Bob Thomas.  The Xephon company is     *   FILE 947
//*           now defunct, the rights were given over to Thomas     *   FILE 947
//*           publishing, who gave the support rights to us.  So    *   FILE 947
//*           you can now use all this information and code, in     *   FILE 947
//*           good conscience.                                      *   FILE 947
//*                                                                 *   FILE 947
//*           Articles in this file are from March 1991 thru        *   FILE 947
//*           December 1992.                                        *   FILE 947
//*                                                                 *   FILE 947
//*           email:  sbgolob@cbttape.org                           *   FILE 947
//*                                                                 *   FILE 947
//***FILE 948 is from Duc Tuan Nguyen (dt n) and contains REXX      *   FILE 948
//*           programs of considerable complexity, which he has     *   FILE 948
//*           found useful in his z/OS, DB2, and CICS work.         *   FILE 948
//*                                                                 *   FILE 948
//*           email:  dt n <ndt2004@gmail.com>                      *   FILE 948
//*                                                                 *   FILE 948
//*     Description of Programs -                                   *   FILE 948
//*                                                                 *   FILE 948
//*     IFCREADS - REXX WHICH READS AN IFCID401 SAMPLE AND          *   FILE 948
//*             PROVIDES A CSV DATASET FOR ANALYSIS                 *   FILE 948
//*             (Comma Separated Variables)                         *   FILE 948
//*                                                                 *   FILE 948
//*     This Rexx is inspired from Rexx program MEMU provided       *   FILE 948
//*     by IBM. It starts a Monitor trace and reads the buffer      *   FILE 948
//*     returned. In this Rexx I read IFCID401 which is called      *   FILE 948
//*     "Static Statement Cache".  The data returned can be         *   FILE 948
//*     used in different ways.                                     *   FILE 948
//*                                                                 *   FILE 948
//*     IFCID 401 is mapped using a "varying length repeating       *   FILE 948
//*     group", so the processing is different than IFCID 225       *   FILE 948
//*     (easier) which is read by MEMU for example.                 *   FILE 948
//*                                                                 *   FILE 948
//*     The data returned is really huge so you should filter       *   FILE 948
//*     directly from the REXX or by qualifying your READS          *   FILE 948
//*     request. Time is GMT (I think) so don't be surprised.       *   FILE 948
//*                                                                 *   FILE 948
//*     PDS2SEQ - A REXX program to put a PDS into sequential       *   FILE 948
//*               format                                            *   FILE 948
//*                                                                 *   FILE 948
//*     I use my PC as a "data store", where I have anything        *   FILE 948
//*     on it (Manuals, Redbooks, documents, presentations          *   FILE 948
//*     ...). And with the help of a search software                *   FILE 948
//*     (Archivarius seems to be the best search software that      *   FILE 948
//*     I've found after many tests), I am able to find             *   FILE 948
//*     anything on my PC (A sort of Google search on my PC).       *   FILE 948
//*                                                                 *   FILE 948
//*     So, it is interesting for me to be able to retrieve         *   FILE 948
//*     data that are on PDS from my search software.  This         *   FILE 948
//*     Rexx reads a PDS, puts it in a sequential format , so       *   FILE 948
//*     I can ftp it on my PC. It provides also jcl that you        *   FILE 948
//*     can use to reload the sequential into a PDS format.         *   FILE 948
//*                                                                 *   FILE 948
//*     It is adapted from a Rexx that I've found on the web        *   FILE 948
//*     (unfortunately I am not able to find the first author.)     *   FILE 948
//*                                                                 *   FILE 948
//*     (Revised by dt n, Mar 26, 2019).                            *   FILE 948
//*                                                                 *   FILE 948
//*     S110CSV - REXX TO CREATE A CSV DATASET FROM SMF110          *   FILE 948
//*                      (CICS PERFORMANCE RECORDS)                 *   FILE 948
//*                                                                 *   FILE 948
//*     This REXX reads the unloaded dataset written from the       *   FILE 948
//*     standard program DFH$MOLS which prints SMF110 CICS          *   FILE 948
//*     performance records.                                        *   FILE 948
//*                                                                 *   FILE 948
//*     The output of DFH$MOLS unfortunately is not easy for        *   FILE 948
//*     analysis.                                                   *   FILE 948
//*                                                                 *   FILE 948
//*     This REXX provide a CSV dataset (I like Excel), with        *   FILE 948
//*     Transaction ID, elapsed and CPU time associated with        *   FILE 948
//*     the number of DB2 requests. This is useful to have          *   FILE 948
//*     quickly a performance indicator of your information         *   FILE 948
//*     system to compare (which is mainly CICS and DB2 ...).       *   FILE 948
//*     As SMF110 includes DB2 time, all your consumption is        *   FILE 948
//*     here.                                                       *   FILE 948
//*                                                                 *   FILE 948
//*     More detailed than SMF30                                    *   FILE 948
//*                                                                 *   FILE 948
//*     More convenient than SMF101 (in my shop SMF101 is not       *   FILE 948
//*     collected for CICS transactions because it is really        *   FILE 948
//*     huge)                                                       *   FILE 948
//*                                                                 *   FILE 948
//*     Prereq:  Execute DFHMNDUP then DFH$MOLS with the            *   FILE 948
//*              UNLOAD option                                      *   FILE 948
//*                                                                 *   FILE 948
//*     S100CSV - REXX TO CREATE A CSV DATASET FROM SMF100          *   FILE 948
//*                      (DB2 STATISTICS RECORDS)                   *   FILE 948
//*     This REXX provides a sample of DB2 statistics fields,you    *   FILE 948
//*     can use it as a basis to expand its capability              *   FILE 948
//*                                                                 *   FILE 948
//*     S101CSV - REXX TO CREATE A CSV DATASET FROM SMF101          *   FILE 948
//*                      (DB2 ACCOUNTING RECORDS)                   *   FILE 948
//*     This REXX providesa sample of DB2 accountings fields,you    *   FILE 948
//*     can use it as a basis to expand its capability              *   FILE 948
//*                                                                 *   FILE 948
//***FILE 949 is an IEHMOVE substitute program called PDSUR, which  *   FILE 949
//*           is more flexible than IEHMOVE, and is much easier to  *   FILE 949
//*           use.  Written in 1973 by Gene Czarcinski, it was      *   FILE 949
//*           recently updated for z/OS disks by a qualified        *   FILE 949
//*           updater.                                              *   FILE 949
//*                                                                 *   FILE 949
//*           I am surprised that this program never made it to     *   FILE 949
//*           the CBT Tape before.                                  *   FILE 949
//*                                                                 *   FILE 949
//*           Corrections were made by Peter Glanzmann, mostly      *   FILE 949
//*           having to do with changing halfword arithmetic        *   FILE 949
//*           to fullword arithmetic.  Older version is PDSUR00.    *   FILE 949
//*                                                                 *   FILE 949
//*           support email:   sbgolob@cbttape.org                  *   FILE 949
//*                                                                 *   FILE 949
//*                            Peter.Glanzmann@bedag.ch             *   FILE 949
//*                                                                 *   FILE 949
//*           A good use for this program is to restore IEHMOVE-    *   FILE 949
//*           unloaded pds'es from old tapes.  But it is good       *   FILE 949
//*           for unloading a pds into IEHMOVE-format quickly,      *   FILE 949
//*           and it can be used as an alternative to XMIT          *   FILE 949
//*           sequentializing of pds'es.  With this program,        *   FILE 949
//*           sequential blocksizes can be any multiple of 80,      *   FILE 949
//*           and they are not restricted to 800 as with IEHMOVE.   *   FILE 949
//*                                                                 *   FILE 949
//*           There is a bit more material included in this file:   *   FILE 949
//*                                                                 *   FILE 949
//*           PDSRUO   - The original PDSRU program before being    *   FILE 949
//*                      updated for modern devices.                *   FILE 949
//*                                                                 *   FILE 949
//*           PDSUR@   - Documentation to explain the various       *   FILE 949
//*           PDSURDOC   uses and applications of PDSUR.            *   FILE 949
//*                                                                 *   FILE 949
//*           PDSURU   - Version of PDSRU where the sequence        *   FILE 949
//*                      numbering of the output dataset is         *   FILE 949
//*                      disabled if your EXEC card has PARM=U.     *   FILE 949
//*                      Resultant output dataset is incompatible   *   FILE 949
//*                      with IEHMOVE, having all x'0000' in the    *   FILE 949
//*                      sequence number field (columns 1 and 2),   *   FILE 949
//*                      but in a case where the output dataset     *   FILE 949
//*                      is part of a JCL data stream, then         *   FILE 949
//*                      "//" and "/*"  (x'6161' or x'615C')        *   FILE 949
//*                      as sequence numbers, will not terminate    *   FILE 949
//*                      the data stream prematurely.               *   FILE 949
//*                                                                 *   FILE 949
//*           In addition: ----                                     *   FILE 949
//*                                                                 *   FILE 949
//*           I have added Gilbert Saint-flour's contribution to    *   FILE 949
//*           this area, which is his program called SYSMOVE.       *   FILE 949
//*           SYSMOVE goes only one way--from a pds to an IEHMOVE-  *   FILE 949
//*           format sequential dataset.  You can use PDSUR to      *   FILE 949
//*           restore a SYSMOVE-created sequential dataset, or      *   FILE 949
//*           you can also use IEHMOVE to restore it.  Both work.   *   FILE 949
//*                                                                 *   FILE 949
//*           SYSMOVE  - Program to produce an IEHMOVE-format       *   FILE 949
//*                      sequential file from a pds.  JCL for       *   FILE 949
//*                      assembly and linkedit is included in       *   FILE 949
//*                      this member.                               *   FILE 949
//*                                                                 *   FILE 949
//*           STRING   - Assembler macro necessary to assemble      *   FILE 949
//*                      SYSMOVE.                                   *   FILE 949
//*                                                                 *   FILE 949
//*           SAMPLE JCL MEMBERS:  - - -  marked with id RUNJCL:    *   FILE 949
//*                                                                 *   FILE 949
//*           PDSURL01 - Reload an IEHMOVE-format file to a PDS     *   FILE 949
//*                      using the PDSUR utility.                   *   FILE 949
//*                                                                 *   FILE 949
//*           PDSURN01 - Unload a PDS to an IEHMOVE-format file     *   FILE 949
//*                      using the PDSUR utility.                   *   FILE 949
//*                                                                 *   FILE 949
//*           IEHMOV01 - Real IEHMOVE JCL to unload a PDS, to       *   FILE 949
//*                      IEHMOVE format, with explanations.         *   FILE 949
//*                                                                 *   FILE 949
//*           IEHMOV02 - Real IEHMOVE JCL to reload a PDS from an   *   FILE 949
//*                      IEHMOVE-format file created by IEHMOVE.    *   FILE 949
//*                                                                 *   FILE 949
//*           IEHMOV03 - Real IEHMOVE JCL to reload a PDS from an   *   FILE 949
//*                      IEHMOVE-format file created by PDSUR.      *   FILE 949
//*                                                                 *   FILE 949
//*           (The formats of PDSUR-unloaded PDS'es and             *   FILE 949
//*            IEHMOVE-unloaded PDS'es were not quite identical,    *   FILE 949
//*            but after restoration with either utility, it        *   FILE 949
//*            doesn't seem to matter, after a preliminary test.    *   FILE 949
//*            You seem to restore the same output file in either   *   FILE 949
//*            case.)                                               *   FILE 949
//*                                                                 *   FILE 949
//***FILE 950 is from Norbert Haas and contains many useful tools,  *   FILE 950
//*           mostly written in REXX.                               *   FILE 950
//*                                                                 *   FILE 950
//*           Most of these tools have REXX'es and panels.          *   FILE 950
//*                                                                 *   FILE 950
//*           There are many more tools here than we describe       *   FILE 950
//*           below.                                                *   FILE 950
//*                                                                 *   FILE 950
//*           Some of these products are commented in German.       *   FILE 950
//*           We tried to translate most of them into English.      *   FILE 950
//*                                                                 *   FILE 950
//*           email:    nh@noadatex.de                              *   FILE 950
//*           website:  www.noadatex.de                             *   FILE 950
//*                                                                 *   FILE 950
//*           email:    sbgolob@cbttape.org                         *   FILE 950
//*                                                                 *   FILE 950
//*       Partial Description:                                      *   FILE 950
//*                                                                 *   FILE 950
//*       AUTOMAT  - A quick method of setting up multiple split    *   FILE 950
//*                  sessions in ISPF, as soon as you get into      *   FILE 950
//*                  ISPF.  (Note: IBM's =XALL command gets rid     *   FILE 950
//*                  of them quickly when you want to close them    *   FILE 950
//*                  down.)                                         *   FILE 950
//*                                                                 *   FILE 950
//*       BACKUP   - Make a quick backup of a dataset from an       *   FILE 950
//*                  ISPF 3.4 list (DSLIST).                        *   FILE 950
//*                                                                 *   FILE 950
//*       CHALL    - Change a string to another string, globally    *   FILE 950
//*                  in a pds.                                      *   FILE 950
//*                                                                 *   FILE 950
//*       CUAATTR  - Summary of color and other attribute codes in  *   FILE 950
//*                  ISPF panels.                                   *   FILE 950
//*                                                                 *   FILE 950
//*       FSCREEN  - Find characters on the screen.                 *   FILE 950
//*                                                                 *   FILE 950
//*       INTER    - Small REXX test interpreter                    *   FILE 950
//*                                                                 *   FILE 950
//*       KONKAT   - A REXX function to concatenate two strings     *   FILE 950
//*                  inside a REXX.                                 *   FILE 950
//*                                                                 *   FILE 950
//*       NOT      - A REXX function like "NOT"                     *   FILE 950
//*                                                                 *   FILE 950
//*       ODER     - A REXX function to "OR"                        *   FILE 950
//*                                                                 *   FILE 950
//*       RULER    - Edit macro to put a ruler into the edit        *   FILE 950
//*                                                                 *   FILE 950
//*       SAVE     - Double a dataset (earlier version of BACKUP)   *   FILE 950
//*                                                                 *   FILE 950
//*       WHOHOLDS - A REXX function to tell you if a dataset       *   FILE 950
//*                  is in use.                                     *   FILE 950
//*                                                                 *   FILE 950
//*       XMAN     - An easy TSO TRANSMIT (XMIT) interface in       *   FILE 950
//*                  ISPF.                                          *   FILE 950
//*                                                                 *   FILE 950
//*       ALL MEMBERS OF THIS DATASET:                              *   FILE 950
//*                                                                 *   FILE 950
//*       NAME       VER.MOD   LAST MODIFIED     SIZE   ID          *   FILE 950
//*       $$$#DATE    04.93   2017/01/06 00:22     12 CBT-493       *   FILE 950
//*       @FILE950    04.93   2017/01/06 00:22    116 CBT-493       *   FILE 950
//*       ADDUP       01.01   2017/01/05 09:23    104 NORBERT       *   FILE 950
//*       AREA        01.01   2017/01/05 09:23     37 NORBERT       *   FILE 950
//*       AUTOMAT     01.40   2017/01/05 09:23    290 NORBERT       *   FILE 950
//*       BACKUP      01.04   2017/01/05 09:23    339 NORBERT       *   FILE 950
//*       BACKUPH0    01.01   2016/12/19 12:37     37 NORBERT       *   FILE 950
//*       BACKUPH1    01.00   2017/01/02 10:07     17 NORBERT       *   FILE 950
//*       BACKUPH2    01.00   2016/12/19 12:35     19 NORBERT       *   FILE 950
//*       BACKUPH3    01.02   2017/01/05 09:10     32 NORBERT       *   FILE 950
//*       BACKUPH4    01.00   2017/01/02 10:07     20 NORBERT       *   FILE 950
//*       BACKUPH5    01.00   2017/01/02 10:07     20 NORBERT       *   FILE 950
//*       BACKUPH6    01.00   2016/12/19 12:37     19 NORBERT       *   FILE 950
//*       BACKUPH7    01.00   2017/01/02 10:07     19 NORBERT       *   FILE 950
//*       BACKUPP     01.04   2010/04/16 07:29     94 NORBERT       *   FILE 950
//*       BIG         01.01   2017/01/05 09:23    177 NORBERT       *   FILE 950
//*       BODY        01.01   2017/01/05 09:23     37 NORBERT       *   FILE 950
//*       BOX         01.01   2017/01/05 09:23    244 NORBERT       *   FILE 950
//*       CATCH       01.02   2017/01/05 09:23     39 NORBERT       *   FILE 950
//*       CFIND       01.01   2017/01/05 09:23     92 NORBERT       *   FILE 950
//*       CHALL       01.04   2017/01/05 09:23    133 NORBERT       *   FILE 950
//*       CHALLM      01.00   2016/10/07 00:31     36 NORBERT       *   FILE 950
//*       CHALLP      01.13   2017/01/05 09:10     67 NORBERT       *   FILE 950
//*       COLA        01.01   2017/01/05 09:23     94 NORBERT       *   FILE 950
//*       CUAATTR     01.04   2017/01/05 09:23    101 NORBERT       *   FILE 950
//*       CUTMEM      01.01   2017/01/05 09:23     26 NORBERT       *   FILE 950
//*       C2B         01.01   2017/01/05 09:23     23 NORBERT       *   FILE 950
//*       DATE        01.08   2017/01/05 09:23     56 NORBERT       *   FILE 950
//*       DISPMSG     01.02   2017/01/05 23:48     21 NORBERT       *   FILE 950
//*       DSINFO      01.01   2017/01/05 09:23    221 NORBERT       *   FILE 950
//*       D2B         01.02   2017/01/05 09:23     31 NORBERT       *   FILE 950
//*       ET          01.01   2017/01/05 09:23    111 NORBERT       *   FILE 950
//*       ET2         01.01   2017/01/05 09:23     81 NORBERT       *   FILE 950
//*       FF          01.02   2017/01/05 09:23     39 NORBERT       *   FILE 950
//*       FLAGCHGS    01.03   2017/01/05 09:23    158 NORBERT       *   FILE 950
//*       FSCREEN     01.00   2016/10/07 00:31     57 NORBERT       *   FILE 950
//*       INCL        01.01   2017/01/05 09:23     23 NORBERT       *   FILE 950
//*       INTER       01.02   2017/01/05 09:23     43 NORBERT       *   FILE 950
//*       KILL        01.01   2017/01/05 09:23    115 NORBERT       *   FILE 950
//*       KONKAT      01.02   2017/01/05 09:23     21 NORBERT       *   FILE 950
//*       LASTWORD    01.01   2017/01/05 09:23     15 NORBERT       *   FILE 950
//*       LCL         01.01   2017/01/05 09:23     50 NORBERT       *   FILE 950
//*       LCLP        01.01   2017/01/05 09:10     76 NORBERT       *   FILE 950
//*       LINFO       01.01   2017/01/05 09:23    170 NORBERT       *   FILE 950
//*       MCANCEL     01.01   2017/01/05 09:23     15 NORBERT       *   FILE 950
//*       MIRACLE     01.00   2017/01/05 09:23      4 NORBERT       *   FILE 950
//*       NOT         01.01   2017/01/05 09:23     23 NORBERT       *   FILE 950
//*       ODER        01.02   2017/01/05 09:23     27 NORBERT       *   FILE 950
//*       ONLY        01.01   2017/01/05 09:23     25 NORBERT       *   FILE 950
//*       PACKCHG     01.14   2017/01/05 09:23    334 NORBERT       *   FILE 950
//*       PACKCHG1    01.19   2017/01/05 09:23    227 NORBERT       *   FILE 950
//*       PACKCHG2    01.13   2017/01/05 09:23     57 NORBERT       *   FILE 950
//*       PACKCHG3    01.12   2017/01/05 09:23     62 NORBERT       *   FILE 950
//*       SAVE        01.03   2017/01/05 09:23    226 NORBERT       *   FILE 950
//*       SAVEP       01.00   2016/10/07 00:31     43 NORBERT       *   FILE 950
//*       SETLAB      01.01   2017/01/05 09:23     96 NORBERT       *   FILE 950
//*       WHOHOLDS    01.03   2017/01/05 09:23     36 NORBERT       *   FILE 950
//*       XDOUBLE     01.03   2017/01/05 09:23    162 NORBERT       *   FILE 950
//*       XMAN        01.04   2017/01/05 09:23    168 NORBERT       *   FILE 950
//*       XMANP       01.02   2017/01/05 09:23     50 NORBERT       *   FILE 950
//*                                                                 *   FILE 950
//***FILE 951 is from Nick Light and contains his tool written      *   FILE 951
//*           in REXX to either create a new GDG or to modify       *   FILE 951
//*           the characteristics of an existing GDG.               *   FILE 951
//*                                                                 *   FILE 951
//*           email:  nicklight031@gmail.com                        *   FILE 951
//*                                                                 *   FILE 951
//*     Short Background...                                         *   FILE 951
//*                                                                 *   FILE 951
//*     I created a REXX exec, with a couple of panels and          *   FILE 951
//*     messages, to convert a GDG to a GDG extended (GDGE).        *   FILE 951
//*     Converting to a GDGE enables the GDG limit to increase      *   FILE 951
//*     from a maximum 255 generations to 999 generations.  It      *   FILE 951
//*     started out as a simple program to do that conversion       *   FILE 951
//*     in batch, but at Lionel Dyck's prompting, it grew over      *   FILE 951
//*     several iterations into something that can be used,         *   FILE 951
//*     online or in batch, to create a new GDG base or modify      *   FILE 951
//*     an existing GDG base.                                       *   FILE 951
//*                                                                 *   FILE 951
//*     (A few corrections were made by Peter Glanzmann.  See       *   FILE 951
//*     member $$NOTE02 for details.)                               *   FILE 951
//*                                                                 *   FILE 951
//***FILE 952 is from Bill Smith and John Kalinich, and contains    *   FILE 952
//*           important documents in PDF format about OS/360        *   FILE 952
//*           design considerations and debugging, which are        *   FILE 952
//*           still important for us to know today.                 *   FILE 952
//*                                                                 *   FILE 952
//*       Members of this PDS currently are:                        *   FILE 952
//*                                                                 *   FILE 952
//*       MVTDEBUG - An old IBM design document showing you the     *   FILE 952
//*                  architecture of the MVT operating system       *   FILE 952
//*                  and how to debug problems with it.  The        *   FILE 952
//*                  same components are still there in z/OS        *   FILE 952
//*                  today.  A MUST READ....                        *   FILE 952
//*                                                                 *   FILE 952
//*       BROOKS   - Lecture by Fred Brooks, who was the lead       *   FILE 952
//*                  of the design team which designed the          *   FILE 952
//*                  OS/360 operating system.                       *   FILE 952
//*                                                                 *   FILE 952
//*           emails:  sfowjs@sbcglobal.net   (Bill Smith)          *   FILE 952
//*                                                                 *   FILE 952
//*                    jkalinic@outlook.com   (John Kalinich)       *   FILE 952
//*                                                                 *   FILE 952
//***FILE 953 is from John Gateley and contains several of his      *   FILE 953
//*           programs, with his macro library, which could be of   *   FILE 953
//*           much use in itself.  The macro library is in PDSLOAD  *   FILE 953
//*           (like IEBUPDTE) format, but PDSLOAD preserves ISPF    *   FILE 953
//*           statistics.  A copy of PDSLOAD and JCL to create      *   FILE 953
//*           the macro library are included in this pds.           *   FILE 953
//*                                                                 *   FILE 953
//*           email:  jrg.spurtle@outlook.com                       *   FILE 953
//*                                                                 *   FILE 953
//*  Note that many of these programs do not look as if all the     *   FILE 953
//*       code is included but the macro library generates the      *   FILE 953
//*       required segments.                                        *   FILE 953
//*       This is especially so for dataset access. PRGDCBI and     *   FILE 953
//*       PRGDCBO generate all required code.                       *   FILE 953
//*                                                                 *   FILE 953
//*       MACRO LIB:   Generated by the $PDSLOAD job from the       *   FILE 953
//*                    member MACLIB.                               *   FILE 953
//*                                                                 *   FILE 953
//*         MEMBER                                                  *   FILE 953
//*         ======                                                  *   FILE 953
//*         MACLIB     The macro library in IEBUPDTE format         *   FILE 953
//*         OBJLIB     All the object modules for the programs      *   FILE 953
//*                    in IEBUPDTE format                           *   FILE 953
//*         LOADLIB    All the load modules for the programs        *   FILE 953
//*                    in XMIT format                               *   FILE 953
//*                                                                 *   FILE 953
//*       PROGRAMS :                                                *   FILE 953
//*                                                                 *   FILE 953
//*         BRWSPOOL - A batch program that runs as the last step   *   FILE 953
//*                    in a jobstream and reads JESYSMSG for        *   FILE 953
//*                    the job it is running in.                    *   FILE 953
//*                    It finds the messages about return code and  *   FILE 953
//*                    start and end time and produces a summary    *   FILE 953
//*                    of the return codes.                         *   FILE 953
//*                                                                 *   FILE 953
//*         BINCHOP  - A batch program to copy records from one     *   FILE 953
//*                    dataset to another provided the records      *   FILE 953
//*                    match a list of values in another dataset.   *   FILE 953
//*                                                                 *   FILE 953
//*         LISTAPF  - A batch program to determine which of        *   FILE 953
//*                    your libraries in a STEPLIB or JOBLIB        *   FILE 953
//*                    IS NOT APF-authorized.  In other words,      *   FILE 953
//*                    you want to find out which library or        *   FILE 953
//*                    libraries in a concatenation, is spoiling    *   FILE 953
//*                    the concatenation's APF authorization.       *   FILE 953
//*                    Copes with situations where there are two    *   FILE 953
//*                    versions of an dataset one catalogued and    *   FILE 953
//*                    the other not in catalog. It can be that     *   FILE 953
//*                    the authorised dataset is not the catalogued *   FILE 953
//*                    one that is in the JCL.                      *   FILE 953
//*                                                                 *   FILE 953
//*         JRGULOAD - Unloads a PDS to a sequential file with      *   FILE 953
//*                    IEBUPDTE like control cards. A hex constant  *   FILE 953
//*                    of x'FACE' is put after the member name in   *   FILE 953
//*                    control card so that it can be used to       *   FILE 953
//*                    unload members which contain IEBUPDTE        *   FILE 953
//*                    control cards. Any statistics follow the     *   FILE 953
//*                    constant.                                    *   FILE 953
//*                    RECFM can be VB or FB any LRECL <= 1000.     *   FILE 953
//*                    PGM=JRGULOAD,PARM=NOSTATS can be used.       *   FILE 953
//*                                                                 *   FILE 953
//*         JRGUPDTE - Loads a file to a new PDS using the output   *   FILE 953
//*                    from JRGULOAD. If statistics are present     *   FILE 953
//*                    they are stowed in the PDS directory.        *   FILE 953
//*                    The program checks for the hex constant      *   FILE 953
//*                    output by JRGULOAD to decide if the          *   FILE 953
//*                    './ ADD NAME=' card came from that program   *   FILE 953
//*                    or the data. Code PARM='NOFACE' to           *   FILE 953
//*                    disable this processing'                     *   FILE 953
//*                                                                 *   FILE 953
//*         CNTRECS  - A batch program that counts the records in   *   FILE 953
//*                    all datasets concatenated to SYSIN and       *   FILE 953
//*                    outputs a report in SYSOUT like this         *   FILE 953
//*                                                                 *   FILE 953
//*    86  SDJRG.ASM(###DOC##)                                      *   FILE 953
//*     0  SDJRG.JCL(EMPTY)                                         *   FILE 953
//*     0  IBMUSER.BIG.LONG.DATASET.NAME.HOW.ABOUT.THIS(EMPTY)      *   FILE 953
//*     5  IBMUSER.BIG.LONG.DATASET.NAME.HOW.ABOUT.THIS(NOTEMPTY)   *   FILE 953
//*   386  SDJRG.ASM(CNTRECS)                                       *   FILE 953
//*     3  /u/sdjrg/some.txt                                        *   FILE 953
//*   181  SDJRG.ASM(SPRSDISP)                                      *   FILE 953
//*                                                                 *   FILE 953
//*   661                                                           *   FILE 953
//*                                                                 *   FILE 953
//*         CHECKAPF - A rexx program which does a similar job to   *   FILE 953
//*                    LISTAPF but as it is in rexx you must        *   FILE 953
//*                    supply the list of datasets as it does not   *   FILE 953
//*                    have access to JOBLIB or STEPLIB.            *   FILE 953
//*                                                                 *   FILE 953
//*         GETCNCAT - subroutine to populate an array with the     *   FILE 953
//*                    dataset names (and members) concatanated     *   FILE 953
//*                    to a DDNAME. TRYCNCAT is a COBOL example.    *   FILE 953
//*                    If the UNIX PATH= is used to concatanate     *   FILE 953
//*                    a UNIX file it will be handled.              *   FILE 953
//*                                                                 *   FILE 953
//*         GETDSNAM - REXX function to get concatanated            *   FILE 953
//*                    DSNAME(s) for a DDNAME. Assembler code.      *   FILE 953
//*                    This handles UNIX path names.                *   FILE 953
//*                    See TRYGDSN                                  *   FILE 953
//*                                                                 *   FILE 953
//*         CHKAUTH  - REXX function to check if the user is        *   FILE 953
//*                    authorised to access a dataset.              *   FILE 953
//*                    Find if you are authorised before attempting *   FILE 953
//*                    to browse the dataset. Information security  *   FILE 953
//*                    will never know. Assembler code.             *   FILE 953
//*                    See TRYAUTH                                  *   FILE 953
//*                                                                 *   FILE 953
//*         RXCHKRC  - REXX function to get the return codes of all *   FILE 953
//*                    previous steps in a batch job.               *   FILE 953
//*                    Assembler code. See TRYCHECK                 *   FILE 953
//*                                                                 *   FILE 953
//*         MEMLIST  - REXX function to get member list of a PDS    *   FILE 953
//*                    matching a pattern. Assembler code.          *   FILE 953
//*                    The output is a stem variable.               *   FILE 953
//*                    Uses PROCSTEM and DODYNPRC                   *   FILE 953
//*                                                                 *   FILE 953
//*         PIPECNT  - Reads a delimited file and finds the longest *   FILE 953
//*                    value in each field.                         *   FILE 953
//*                    Delimiter can be specified on PARM.          *   FILE 953
//*                    Outputs a brief summary of the file.         *   FILE 953
//*                                                                 *   FILE 953
//*         PIPESET  - Reads a delimited file and the output from   *   FILE 953
//*                    PIPECNT and produces a new file where all    *   FILE 953
//*                    the fields are fixed length, can also create *   FILE 953
//*                    Assembler and COBOL copybooks.               *   FILE 953
//*                                                                 *   FILE 953
//*         RXLDSTAT - REXX function to get member statistics for   *   FILE 953
//*                    a specified load library. Assembler code.    *   FILE 953
//*                    The output is a stem variable.               *   FILE 953
//*                    Uses PROCSTEM and DODYNPRC                   *   FILE 953
//*                                                                 *   FILE 953
//*         STRINGIT - Assembler program needed by the STRING       *   FILE 953
//*                    macro (in the MACRO library).                *   FILE 953
//*                                                                 *   FILE 953
//*         STEMSORT - REXX function to sort a STEM variable        *   FILE 953
//*         STEMSR15 - E15 exit which is part of STEMSORT           *   FILE 953
//*         STEMSR35 - E35 exit which is part of STEMSORT           *   FILE 953
//*                    Assembler code.                              *   FILE 953
//*                    See TRYSTEM                                  *   FILE 953
//*                                                                 *   FILE 953
//*         PROCSTEM - module to handle stem variable manipulation  *   FILE 953
//*                    this is used in STEMSORT and GETDSNAM        *   FILE 953
//*                    also in File-939 PCRE2                       *   FILE 953
//*                                                                 *   FILE 953
//*         DODYNPRC - module to DYNALLOC a dataset                 *   FILE 953
//*                    this is used in STEMSORT                     *   FILE 953
//*                                                                 *   FILE 953
//*         DODYNVOL - module to DYNALLOC a volume to enable        *   FILE 953
//*                    VOLUMES1 to read the VTOC                    *   FILE 953
//*                                                                 *   FILE 953
//*         SEQMERGE - merge fixed length sequential files into     *   FILE 953
//*                    one variable length file with IEBUPDTE       *   FILE 953
//*                    style headers. This can be used as input     *   FILE 953
//*                    to the PERL script in member IEBUPDTE.       *   FILE 953
//*                                                                 *   FILE 953
//*         TRIMIT   - Assembler program needed by the TRIM         *   FILE 953
//*                    macro (in the MACRO library).                *   FILE 953
//*                                                                 *   FILE 953
//*         TRYGDSN  - REXX example program that uses GETDSNAM to   *   FILE 953
//*                    get and output concatenated dataset details. *   FILE 953
//*                                                                 *   FILE 953
//*         TRYAUTH  - REXX example program that uses CHKAUTH to    *   FILE 953
//*                    check if authorised for dataset.             *   FILE 953
//*                                                                 *   FILE 953
//*         TRYCNCAT - COBOL example program to call GETCNCAT       *   FILE 953
//*                                                                 *   FILE 953
//*         TRYSTEM  - REXX example program that uses STEMSORT to   *   FILE 953
//*                    sort a stem.                                 *   FILE 953
//*                                                                 *   FILE 953
//*         TRYVOL   - REXX example program that uses VOLUMESR to   *   FILE 953
//*                    populate a stem with volume details'         *   FILE 953
//*                                                                 *   FILE 953
//*         E35DROP  - An E35 exit for the system sort that gives   *   FILE 953
//*                    more control. (Can be used as E15 as well.)  *   FILE 953
//*                    If you have multiple records in a file that  *   FILE 953
//*                    have different timestamp then sort on value  *   FILE 953
//*                    then timestamp descending, the exit will     *   FILE 953
//*                    tell the SORT to ignore records which have   *   FILE 953
//*                    the same key as one that has already been    *   FILE 953
//*                    output.                                      *   FILE 953
//*                                                                 *   FILE 953
//*         E35TABL  - An E35 exit for the system sort that gives   *   FILE 953
//*                    more control. (Can be used as E15 as well.)  *   FILE 953
//*                    If you have multiple IF conditions that you  *   FILE 953
//*                    wish to use for a field in a file, but do    *   FILE 953
//*                    not want to code them all then just put      *   FILE 953
//*                    them in the TABLIN file and code a compare   *   FILE 953
//*                    for the exit. The exit will tell the SORT    *   FILE 953
//*                    to ignore records that either do or do not   *   FILE 953
//*                    match.  This has been tested with 10,000     *   FILE 953
//*                    values but it could handle much more.        *   FILE 953
//*                                                                 *   FILE 953
//*         SUBNEXT  - This is a VERY basic schedule system that    *   FILE 953
//*         SUBNEXT1   reads a PDS member (the schedule) and        *   FILE 953
//*                    submits the first named job. An extra step   *   FILE 953
//*                    is added to the job which contains a list    *   FILE 953
//*                    of subsequent jobs to be run if the first    *   FILE 953
//*                    job runs successfully. As each job ends it   *   FILE 953
//*                    submits the next.                            *   FILE 953
//*                                                                 *   FILE 953
//*         SMFPRT30 - Assembler program that reads a VBS file      *   FILE 953
//*                    containing SMF records and selects any type  *   FILE 953
//*                    15 (close output file) records where the     *   FILE 953
//*                    dataset name matches what is specified on    *   FILE 953
//*                    the PARM= statement.                         *   FILE 953
//*                    The file is then read again and any type     *   FILE 953
//*                    30-4 (end of step) which matches the saved   *   FILE 953
//*                    type 15 are output together with the step    *   FILE 953
//*                    details. This shows what job updated the     *   FILE 953
//*                    dataset and the userid who ran it.           *   FILE 953
//*                                                                 *   FILE 953
//*         VBADDLEN - Assembler program that reads a VB file and   *   FILE 953
//*                    converts to IXF format for binary FTP.       *   FILE 953
//*                    IXF is DB2 unload format for Linux, Unix     *   FILE 953
//*                    and Windows, first 6 bytes are length of     *   FILE 953
//*                    the rest of the record.                      *   FILE 953
//*                                                                 *   FILE 953
//*         VBSADLEN - Assembler program that reads a VBS file and  *   FILE 953
//*                    converts to IXF format for binary FTP.       *   FILE 953
//*                    IXF is DB2 unload format for Linux, Unix     *   FILE 953
//*                    and Windows, first 6 bytes are length of     *   FILE 953
//*                    the rest of the record.                      *   FILE 953
//*                                                                 *   FILE 953
//*         VOLUMES  - Assembler program that uses UCBSCAN to get   *   FILE 953
//*                    all on-line DASD volumes and report          *   FILE 953
//*                    total space, used space, free space          *   FILE 953
//*                    and percentage free.                         *   FILE 953
//*                                                                 *   FILE 953
//*         VOLUMESR - A version of VOLUMES that works as a REXX    *   FILE 953
//*                    function to populate a STEM variable         *   FILE 953
//*                    Uses PROCSTEM                                *   FILE 953
//*                    See  TRYVOL                                  *   FILE 953
//*                                                                 *   FILE 953
//*         VOLUMESX - A version of VOLUMES that does not use       *   FILE 953
//*                    my structured programming macros             *   FILE 953
//*                                                                 *   FILE 953
//*         VOLUMES? - Three assembler programs that use UCBSCAN    *   FILE 953
//*                    as done by VOLUMES but is enhanced by        *   FILE 953
//*                    reading the VTOC for volume and outputing    *   FILE 953
//*                    details of all datasets.                     *   FILE 953
//*                    Note: similar to VTOC from File 112          *   FILE 953
//*             VOLUMES1 - output all VTOC records for all selected *   FILE 953
//*                        disk packs.                              *   FILE 953
//*                        Uses DODYNVOL to allocated VTOC.         *   FILE 953
//*             VOLUMES2 - reads the sorted output from VOLUMES1    *   FILE 953
//*                        and sums all the allocation for all      *   FILE 953
//*                        datasets. It also checks if the dataset  *   FILE 953
//*                        is catalogued.                           *   FILE 953
//*             VOLUMES3 - reads the sorted output from VOLUMES2    *   FILE 953
//*                        and writes a report. Datasets reported   *   FILE 953
//*                        can be limited by cards specified in     *   FILE 953
//*                        SYSIN. e.g. only if not catalogued.      *   FILE 953
//*                        See members VOL#RUN1, VOL#RUN2 and       *   FILE 953
//*                        VOL#RUN3 in this dataset for example.    *   FILE 953
//*                                                                 *   FILE 953
//***FILE 954 is a program to make a job, STC, or other address     *   FILE 954
//*           space CANCELABLE, NON-CANCELABLE, FORCIBLE,           *   FILE 954
//*           NON-FORCIBLE, and to override job timing limits,      *   FILE 954
//*           and more.                                             *   FILE 954
//*                                                                 *   FILE 954
//*           email support:  sbgolob@cbttape.org                   *   FILE 954
//*                                                                 *   FILE 954
//***FILE 955 is from John C. Miller and contains his remote        *   FILE 955
//*           logging facility.  A more detailsd description        *   FILE 955
//*           follows, and you should look at member $$$DOC         *   FILE 955
//*           for more information                                  *   FILE 955
//*                                                                 *   FILE 955
//*     RMTLOG                                                      *   FILE 955
//*                                                                 *   FILE 955
//*     z/OS Remote Logging Facility v1.1                           *   FILE 955
//*     ---------------------------------                           *   FILE 955
//*                                                                 *   FILE 955
//*     09/12/2016                                                  *   FILE 955
//*     John C. Miller                                              *   FILE 955
//*     john@jmit.com                                               *   FILE 955
//*                                                                 *   FILE 955
//*     I - Overview                                                *   FILE 955
//*     ------------                                                *   FILE 955
//*                                                                 *   FILE 955
//*     RMTLOG is a z/OS started task that transmits z/OS           *   FILE 955
//*     console hardcopy messages to an external RFC 3164/5424      *   FILE 955
//*     compliant Syslog appliance or server.  Its purpose is to    *   FILE 955
//*     enhance z/OS security and auditability by establishing      *   FILE 955
//*     near real time logging to an external syslog server.        *   FILE 955
//*     Such a remote syslog appliance/server can be any device     *   FILE 955
//*     that is compliant with RFC 3164 and/or RFC 5424.  Unix      *   FILE 955
//*     and Linux servers are typically packaged with syslogd or    *   FILE 955
//*     syslog-ng, both of which are RFC compliant.                 *   FILE 955
//*                                                                 *   FILE 955
//*     RMTLOG also demonstrates useful assembler and z/OS          *   FILE 955
//*     programming techniques including:                           *   FILE 955
//*                                                                 *   FILE 955
//*     - Access Register programming;                              *   FILE 955
//*     - Extended MCS consoles, including the MCSOPER and          *   FILE 955
//*       MCSOPMSG macros for managing consoles and console         *   FILE 955
//*       message units;                                            *   FILE 955
//*     - TCPIP sockets programming;                                *   FILE 955
//*     - MVS start/stop interface (Handle START and STOP           *   FILE 955
//*       operator cmds.)                                           *   FILE 955
//*                                                                 *   FILE 955
//*     The two principal components required for z/OS remote       *   FILE 955
//*     logging are the RMTLOG z/OS started task running on         *   FILE 955
//*     z/OS, and the remote Syslog server compliant with RFC       *   FILE 955
//*     3164 and/or 5424.                                           *   FILE 955
//*                                                                 *   FILE 955
//*     COPYRIGHT, LICENSE AND WARRANTY:  This program is           *   FILE 955
//*     Copyright 2010-2017, John C. Miller.  This program is       *   FILE 955
//*     free software: you can redistribute it and/or modify it     *   FILE 955
//*     under the terms of the GNU General Public License           *   FILE 955
//*     version 3 as published by the Free Software Foundation.     *   FILE 955
//*     (See Appendix E.)                                           *   FILE 955
//*                                                                 *   FILE 955
//*     This program is distributed in the hope that it will be     *   FILE 955
//*     useful, but WITHOUT ANY WARRANTY; without even the          *   FILE 955
//*     implied warranty of MERCHANTABILITY or FITNESS FOR A        *   FILE 955
//*     PARTICULAR PURPOSE.  See the GNU General Public License     *   FILE 955
//*     for more details.                                           *   FILE 955
//*                                                                 *   FILE 955
//*     SUPPORT:                                                    *   FILE 955
//*     No support is provided for this software.  This software    *   FILE 955
//*     is a beta version, which means that it may have bugs,       *   FILE 955
//*     and has not been fully tested with all possible             *   FILE 955
//*     configurations and conditions.  While not required, it      *   FILE 955
//*     would be greatly appreciated if you sent your feedback      *   FILE 955
//*     to me.  email:  john@jmit.com                               *   FILE 955
//*                                                                 *   FILE 955
//***FILE 956 is from Steve Myers, and contains several of his      *   FILE 956
//*           programs.  Currently included are programs:           *   FILE 956
//*           DSREF, ICOPY, DASDSUM and SCAN118.                    *   FILE 956
//*                                                                 *   FILE 956
//*       The DSREF program produces reports showing dataset        *   FILE 956
//*       access by userid, using SMF 14, 15 and 30 records.        *   FILE 956
//*                                                                 *   FILE 956
//*           email:  mvsprog@yahoo.com                             *   FILE 956
//*                                                                 *   FILE 956
//*       DSREF produces three reports:                             *   FILE 956
//*                                                                 *   FILE 956
//*        - Data set to userid                                     *   FILE 956
//*                                                                 *   FILE 956
//*          data set name                                          *   FILE 956
//*           user user ... user                                    *   FILE 956
//*                                                                 *   FILE 956
//*        - User to data set                                       *   FILE 956
//*                                                                 *   FILE 956
//*          user                                                   *   FILE 956
//*           data set  data set ... data set                       *   FILE 956
//*                                                                 *   FILE 956
//*        - Optional list of jobs in the data                      *   FILE 956
//*                                                                 *   FILE 956
//*       For additional information, see member $DOC.              *   FILE 956
//*                                                                 *   FILE 956
//*       DISKLST is another VTOC mapping program, which can        *   FILE 956
//*       also map multiple volumes very quickly.                   *   FILE 956
//*                                                                 *   FILE 956
//*       The ICOPY program, copies disk datasets using EXCP,       *   FILE 956
//*       and copies the tracks of the dataset.  ICOPY, and         *   FILE 956
//*       instructions for its use, are included here.  ICOPY is    *   FILE 956
//*       especially handy in copying partitioned datasets.         *   FILE 956
//*       ICOPY DOES A "TRACK COPY", AS OPPOSED TO A "MEMBER        *   FILE 956
//*       COPY", which IEBCOPY does.  Sometimes this approach       *   FILE 956
//*       is useful, AS IT PRESERVES DELETED PDS MEMBERS.           *   FILE 956
//*                                                                 *   FILE 956
//*       The DASDSUM program takes a PARM prefix of the partial    *   FILE 956
//*       volser (a group of volsers in your configuration),        *   FILE 956
//*       and tells you how many datasets are on them, by dataset   *   FILE 956
//*       prefix.  So, for example, you can know what kind of       *   FILE 956
//*       datasets are on your work packs.                          *   FILE 956
//*                                                                 *   FILE 956
//*       The SCAN118 program is a batch program which shows TSO    *   FILE 956
//*       and TCPIP sessions for TSO, in great detail.  The info    *   FILE 956
//*       is derived from SMF Type 118 records, which you have to   *   FILE 956
//*       capture.  But the reward is worth it.!!  This member is   *   FILE 956
//*       in TSO XMIT format, and contains all the materials to     *   FILE 956
//*       install and test the program (except for capturing the    *   FILE 956
//*       SMF 118 records).                                         *   FILE 956
//*                                                                 *   FILE 956
//***FILE 957 is from Shmuel (Seymour J.) Metz, and contains the    *   FILE 957
//*           original source code for the IEBUPDTX program, his    *   FILE 957
//*           modifications and a very large collection of macros.  *   FILE 957
//*           This file represents a lot of complicated work done   *   FILE 957
//*           in the 1970s and early 1980's and which still is      *   FILE 957
//*           useful.                                               *   FILE 957
//*                                                                 *   FILE 957
//*           There is other code here, as well.                    *   FILE 957
//*                                                                 *   FILE 957
//*           Member IEBUPDOC is a decent introduction to how to    *   FILE 957
//*           use the IEBUPDTX program, which is an extension to    *   FILE 957
//*           both IEBUPDTE and the older IEBUPDAT programs from    *   FILE 957
//*           IBM.  Also see member $IEBUPDT, which contains more   *   FILE 957
//*           detailed documentation on how to use IEBUPDTX.        *   FILE 957
//*                                                                 *   FILE 957
//*           Member LOADLIB contains a load module for IEBUPDTX,   *   FILE 957
//*           in case you don't want to assemble it.  Member        *   FILE 957
//*           IEBUPDT$ is JCL to assemble IEBUPDTX from source      *   FILE 957
//*           and the two macro libraries, which are in IEBUPDTE    *   FILE 957
//*           format in members ASMMAC and DTXMAC.  JCL to use      *   FILE 957
//*           the PDSLOAD program and reconstruct both the ASMMAC   *   FILE 957
//*           and DTXMAC macro libraries, is in member $PDSLOAD.    *   FILE 957
//*                                                                 *   FILE 957
//*           email:  sbgolob@cbttape.org                           *   FILE 957
//*                                                                 *   FILE 957
//*           email:  smetz3@gmu.edu                                *   FILE 957
//*                                                                 *   FILE 957
//***FILE 958 is from Sam Golob and contains programs which         *   FILE 958
//*           deal with the TSO RELOGON BUFFER, or which execute    *   FILE 958
//*           a TSO command and then force a LOGOFF.  This class    *   FILE 958
//*           of programs is very interesting, and is worth some    *   FILE 958
//*           study.                                                *   FILE 958
//*                                                                 *   FILE 958
//*           email:  sbgolob@cbttape.org                           *   FILE 958
//*                                                                 *   FILE 958
//*       Some of these programs use the TSO RELOGON BUFFER,        *   FILE 958
//*       which is similar to the TSO COMMAND BUFFER, but which     *   FILE 958
//*       is only used for LOGON/LOGOFF processing, in certain      *   FILE 958
//*       cases.  The TSO RELOGON BUFFER has the restriction that   *   FILE 958
//*       the offset of the command, in the second halfword of      *   FILE 958
//*       the buffer, has to be zero.  In other words, the command  *   FILE 958
//*       must start at the very beginning of (the command part of) *   FILE 958
//*       the buffer.                                               *   FILE 958
//*                                                                 *   FILE 958
//*       Mark Zelden's TSO* execs are included here, so you can    *   FILE 958
//*       trap the output of the SHOWRLGB command in full screen.   *   FILE 958
//*                                                                 *   FILE 958
//*           TSO TSOx SHOWRLGB      where x is E - edit            *   FILE 958
//*                                             V - view            *   FILE 958
//*                                             B - browse          *   FILE 958
//*           TSOR works in READY mode.         R - TSO REVIEW      *   FILE 958
//*                                                                 *   FILE 958
//*           REVIEW is found in CBT File 134 (source) and          *   FILE 958
//*                              CBT File 135 (load)                *   FILE 958
//*                                                                 *   FILE 958
//*       Below is a description of the programs contained here:    *   FILE 958
//*                                                                 *   FILE 958
//*       BYE       - TSO command to fill the Relogon Buffer        *   FILE 958
//*                   with any character string, set the ECTLOGF    *   FILE 958
//*                   bit on, and exit.  This is your main tool     *   FILE 958
//*                   to manipulate the TSO Relogon Buffer.         *   FILE 958
//*                   (BYE was written by "CBT Updater")            *   FILE 958
//*                                                                 *   FILE 958
//*                   Using BYE without operands will initialize    *   FILE 958
//*                   the Relogon Buffer and turn the ECTLOGF       *   FILE 958
//*                   bit off, so you can start over.               *   FILE 958
//*                                                                 *   FILE 958
//*       RELOGON   - Generate the string: LOGON userid, and put    *   FILE 958
//*                   it into the Relogon Buffer.  Set the          *   FILE 958
//*                   ECTLOGF bit on.  If the userid was defined    *   FILE 958
//*                   from SYS1.UADS, then extract the password     *   FILE 958
//*                   and generate LOGON userid/password in         *   FILE 958
//*                   the Relogon Buffer.  Needs APF authorization  *   FILE 958
//*                   to extract the password from the TSB, if      *   FILE 958
//*                   it is there.                                  *   FILE 958
//*                                                                 *   FILE 958
//*       SHOWRLGB  - TSO command to display all relevant data      *   FILE 958
//*                   concerning the Relogon Buffer.  Output can    *   FILE 958
//*                   be trapped and displayed fullscreen.          *   FILE 958
//*                                                                 *   FILE 958
//*       CMDLOFF   - TSO command to execute another TSO command    *   FILE 958
//*                   and then LOGOFF the session.                  *   FILE 958
//*                                                                 *   FILE 958
//*       NOLOGOF   - TSO command to set the ECTLOGF bit OFF, and   *   FILE 958
//*                   prevent the automatic LOGOFF in READY mode.   *   FILE 958
//*                                                                 *   FILE 958
//*       YESLOGOF  - TSO command to set the ECTLOGF bit ON, and    *   FILE 958
//*                   force the automatic LOGOFF if in READY mode.  *   FILE 958
//*                                                                 *   FILE 958
//***FILE 959 is from Richard W. Pinion and contains a program      *   FILE 959
//*           to release excess space from a list of datasets (by   *   FILE 959
//*           name), without affecting the last-access date.        *   FILE 959
//*           This program uses the PARTREL macro from SYS1.MACLIB. *   FILE 959
//*                                                                 *   FILE 959
//*           email:  RPINION@firsthorizon.com                      *   FILE 959
//*                                                                 *   FILE 959
//*           The UCB lookup in this program uses the ULUT          *   FILE 959
//*           (UCB Lookup Table) method, from CBT File 873, that    *   FILE 959
//*           was pioneered by Gilbert Saint-flour.  Please see     *   FILE 959
//*           member $ULUNOTE for some background on this subject,  *   FILE 959
//*           which is not documented by IBM.  The easy-to-use      *   FILE 959
//*           UCB Lookup Table macros were written by Sam Golob.    *   FILE 959
//*                                                                 *   FILE 959
//*       PARTREL  - RELEASES EXCESS SPACE FROM DATASETS, EITHER    *   FILE 959
//*                  CATALOGED, OR UNCATALOGED (WITH VOLSER).       *   FILE 959
//*                                                                 *   FILE 959
//*       Further documentation:                                    *   FILE 959
//*                                                                 *   FILE 959
//*       The PARTREL program takes input in the //INDD DD name     *   FILE 959
//*       with the dataset name starting in column1, and optionally *   FILE 959
//*       the volser of the dataset, which is necessary if the      *   FILE 959
//*       dataset is uncataloged, starting (for 6 characters)       *   FILE 959
//*       in column 45.                                             *   FILE 959
//*                                                                 *   FILE 959
//*       Model JCL for the //INDD DD card is as follows:           *   FILE 959
//*       Please  make sure that the "ruler" comment card does not  *   FILE 959
//*       immediately follow the //INDD DD card, or a //SYSIN DD *  *   FILE 959
//*       card will be generated, nullifying the //INDD DD * card.  *   FILE 959
//*                                                                 *   FILE 959
//*       //PARTR01  EXEC PGM=PARTREL                               *   FILE 959
//*       //STEPLIB   DD  DSN=SYS1.CBT.LINKLIB,DISP=SHR             *   FILE 959
//*       //SYSPRINT  DD  SYSOUT=*                                  *   FILE 959
//*       //*-+----1----+----2----+----3----+----4----volser        *   FILE 959
//*       //INDD      DD  *                                         *   FILE 959
//*       IBMUSER.TEST.PARTREL.PDS2                   VPWRKD        *   FILE 959
//*       IBMUSER.TEST.PARTREL.PDS                                  *   FILE 959
//*       /*                                                        *   FILE 959
//*       //                                                        *   FILE 959
//*                                                                 *   FILE 959
//***FILE 960 is from Al Ferguson and contains many REXX execs      *   FILE 960
//*           with their accompanying techniques, to get a large    *   FILE 960
//*           variety of jobs done.                                 *   FILE 960
//*                                                                 *   FILE 960
//*           email:  Al.Ferguson@sccompanies.com                   *   FILE 960
//*                                                                 *   FILE 960
//*     Description of File Contents:                               *   FILE 960
//*                                                                 *   FILE 960
//*                  REXXes using Various APIs                      *   FILE 960
//*                                                                 *   FILE 960
//*     See $INSTALL member on how to install these and make        *   FILE 960
//*     them available.                                             *   FILE 960
//*                                                                 *   FILE 960
//*     Most of ideas (and some of the code) included here are a    *   FILE 960
//*     combination of needing to solve a problem for work,         *   FILE 960
//*     curiosity in how things work, and inspiration for others    *   FILE 960
//*     (both their ideas and their code).  Much of the code I      *   FILE 960
//*     have got inspiration from can be found on CBTTape.org.      *   FILE 960
//*                                                                 *   FILE 960
//*     Why did I implement these solution in REXX?  It             *   FILE 960
//*     interfaces with almost every sub-system on zOS, has a       *   FILE 960
//*     huge number of capabilities/APIs, and is easily             *   FILE 960
//*     extensible.  Most of my solutions use REXX & JCL to         *   FILE 960
//*     extend the capabilities of the sub-systems I already have   *   FILE 960
//*     access to, to fill in a missing piece of the automation     *   FILE 960
//*     puzzle (Programs & Batch JOBs ARE Automation).              *   FILE 960
//*                                                                 *   FILE 960
//*     Did you know that ...                                       *   FILE 960
//*       - IBM Provides a REXX STEM SORT function?                 *   FILE 960
//*         See EXEC(TSOVSORT) ...                                  *   FILE 960
//*       - IBM Provides REXX with Regex Support?                   *   FILE 960
//*         See EXEC(CHECKJOB) ...                                  *   FILE 960
//*       - You can allocate a GDG using (+1), (-1), or (-0) in     *   FILE 960
//*         a REXX?                                                 *   FILE 960
//*         See EXEC(GDGCOPY) ...                                   *   FILE 960
//*       - You can allocate a DSN without TSO support?             *   FILE 960
//*         See EXEC(GDGCOPY) EXEC(STARTUP) EXEC(UMODCHCK) ...      *   FILE 960
//*       - You can read a PDS or PDS/E Directory under MVS         *   FILE 960
//*         (IRXJCL)?                                               *   FILE 960
//*         See EXEC(GDGCOPY) ...                                   *   FILE 960
//*       - You can "efficently" get DSN Information under MVS      *   FILE 960
//*         (IRXJCL)?                                               *   FILE 960
//*         See EXEC(DSLIST) EXEC(VSAMRD) EXEC(VSAMRDEF) ...        *   FILE 960
//*       - MVS knows your Name?                                    *   FILE 960
//*         See EXEC(ACEENAME) ...                                  *   FILE 960
//*       - You can analyze the results of your JOBs & SYSOUTs?     *   FILE 960
//*         See EXEC(CHECKJOB) & EXEC(GETSYSOT) ...                 *   FILE 960
//*       - You can do Full Screen ISPF Point & Shoot in a REXX?    *   FILE 960
//*         See EXEC(BR) EXEC(DSNS) EXEC(ED) EXEC(ML) EXEC(MU)      *   FILE 960
//*         EXEC(VW) ...                                            *   FILE 960
//*       - You have access to USS Unix Man pages from ISPF?        *   FILE 960
//*         See EXEC(MAN) ...                                       *   FILE 960
//*       - You can do RFC Complient email within REXX via TCPIP?   *   FILE 960
//*         See EXEC(SENDMAIL) ...                                  *   FILE 960
//*       - You can do email just like they do on any other         *   FILE 960
//*         Unix Box?                                               *   FILE 960
//*         See EXEC(USSMAIL) ...                                   *   FILE 960
//*       - You can have ISPF (zOS 2.2+) automatically setup        *   FILE 960
//*         your session?                                           *   FILE 960
//*         See EXEC(ZSTART) ...                                    *   FILE 960
//*       - Do you need to know what day of the week June 2,        *   FILE 960
//*         1975 was?                                               *   FILE 960
//*         See EXEC(DATEX) ...                                     *   FILE 960
//*       - You can ask DB2 for Help "Drawing" a Table Select?      *   FILE 960
//*         See EXEC(DB2DRAW) ...                                   *   FILE 960
//*       - You can interface with SMS to find a DSNs last backup?  *   FILE 960
//*         See EXEC(HRECV) ...                                     *   FILE 960
//*                                                                 *   FILE 960
//*                                                                 *   FILE 960
//***FILE 961 is from Yves Colliard and contains a collection of    *   FILE 961
//*           ISPF commands which can be added to your session.     *   FILE 961
//*                                                                 *   FILE 961
//*     YCLMAC - A collection of user line commands for use in      *   FILE 961
//*              ISPF Edit and View                                 *   FILE 961
//*                                                                 *   FILE 961
//*     by YCOS Yves Colliard Software - www.ycos.de                *   FILE 961
//*     and many others                                             *   FILE 961
//*                                                                 *   FILE 961
//*     email:  Yves Colliard YCOS GmbH <ycos-@t-online.de>         *   FILE 961
//*                                                                 *   FILE 961
//*     Installation:                                               *   FILE 961
//*                                                                 *   FILE 961
//*     1. Copy YCLMACTB into ISPTLIB library                       *   FILE 961
//*     2. Copy REXX others into SYSEXEC or SYSPROC library         *   FILE 961
//*     3. Update ISPF site customization table (ISPFC) (z/OS 2.2)  *   FILE 961
//*        GLOBAL_LINE_COMMAND_TABLE = YCLMACTB                     *   FILE 961
//*     4. If using (E)JES instead of SDSF change the LMACJES2/3    *   FILE 961
//*        members from sdsf to ejes                                *   FILE 961
//*                                                                 *   FILE 961
//*     Members of this dataset:                                    *   FILE 961
//*                                                                 *   FILE 961
//*        $$$DOC           This member that you are reading        *   FILE 961
//*        $$$HELP          A copy of the HELP information          *   FILE 961
//*        $$$HELPS         A short reference "card" of commands    *   FILE 961
//*                                                                 *   FILE 961
//*     Rexx to be added to SYSEXEC/SYSPROC                         *   FILE 961
//*        YCLMACDS         REXX to extract DSN from records        *   FILE 961
//*        YCLMACHG         Summary of Changes                      *   FILE 961
//*        YCLMACLM         REXX to get messages                    *   FILE 961
//*        YCLMACNS         REXX to support split screen functions  *   FILE 961
//*        YCLMACRX         REXX to process new line commands       *   FILE 961
//*        YCLMAHLP         REXX to display help information        *   FILE 961
//*        YCLMAHLU         REXX to display user extensions         *   FILE 961
//*                         help information                        *   FILE 961
//*        Y$CL             REXX to compare members                 *   FILE 961
//*        Y$HC             REXX short help                         *   FILE 961
//*                                                                 *   FILE 961
//*     ISPF Table - must be copied to ISPTLIB                      *   FILE 961
//*        YCLMACTB         ISPF Table of Line Commands             *   FILE 961
//*                                                                 *   FILE 961
//*     Rexx Additional commands - extra installation needed        *   FILE 961
//*     Rexx to be added to SYSEXEC/SYSPROC if needed               *   FILE 961
//*        Y$REV            REXX to interface to Greg Price's       *   FILE 961
//*                         REVIEW command                          *   FILE 961
//*        Y$PDS            REXX to interface to the PDS command    *   FILE 961
//*        Y$PG             REXX to interface to Lionel Dyck's PDSEGEN  FILE 961
//*        YCLMACT          REXX to support user line command       *   FILE 961
//*                         table extensions                        *   FILE 961
//*                                                                 *   FILE 961
//*     Samples to run EX command                                   *   FILE 961
//*        LMACJES2         Sample JES2 commands for use with EX    *   FILE 961
//*        LMACJES3         Sample JES3 commands for use with EX    *   FILE 961
//*        LMACMVS          Sample MVS (SDSF/EJES) commands for     *   FILE 961
//*                         use with EX                             *   FILE 961
//*        LMACTSO          Sample TSO commands for use with EX     *   FILE 961
//*        LMACUSS          Sample OMVS commands for use with EX    *   FILE 961
//*        LMACING          Sample System Automation cmds use       *   FILE 961
//*                         with EX                                 *   FILE 961
//*        LMACISPF         Sample ISPF commands use with EX        *   FILE 961
//*                                                                 *   FILE 961
//*     Sample coding for own application                           *   FILE 961
//*        YLM01            Sample application using own line       *   FILE 961
//*                         commands                                *   FILE 961
//*        YLM02            Sample application using own line       *   FILE 961
//*                         commands                                *   FILE 961
//*                                                                 *   FILE 961
//*     Addition of user/local commands:                            *   FILE 961
//*                                                                 *   FILE 961
//*        1. Update YCLMACT with the name of the new command       *   FILE 961
//*           - Update at the bottom in the User Command section    *   FILE 961
//*           - Follow the coding examples in YCLMACT               *   FILE 961
//*        2. Run the REXX YCLMACT to replace the line command      *   FILE 961
//*           table YCLMACTB                                        *   FILE 961
//*        3. Copy YCLMACTB into the ISPTLIB library                *   FILE 961
//*        4. Create a REXX Exec Y$xxx                              *   FILE 961
//*           - where xxx is the 1-6 character name of the new      *   FILE 961
//*             command                                             *   FILE 961
//*        5. Update YCLMAHLU to document the new command           *   FILE 961
//*                                                                 *   FILE 961
//***FILE 962 is from Bud Randall and contains an ISPF interface    *   FILE 962
//*           to mount and unmount UNIX files.                      *   FILE 962
//*                                                                 *   FILE 962
//*           email:  Randall.Bud@aaa-texas.com                     *   FILE 962
//*                                                                 *   FILE 962
//*       Full documentation in Word format is in member DOCX,      *   FILE 962
//*       which must be downloaded in binary to a PC, and viewed    *   FILE 962
//*       there.                                                    *   FILE 962
//*                                                                 *   FILE 962
//***FILE 963 is from Al Ferguson and contains a package to         *   FILE 963
//*           dynamically allocate and deallocate datasets needed   *   FILE 963
//*           by an ISPF application.                               *   FILE 963
//*                                                                 *   FILE 963
//*           email:  aferguson@neptunescove.org                    *   FILE 963
//*           email:  Al.Ferguson@sccompanies.com                   *   FILE 963
//*                                                                 *   FILE 963
//*   Dynamic ISPF:                                                 *   FILE 963
//*                                                                 *   FILE 963
//*   What is Dynamic ISPF?                                         *   FILE 963
//*   Dynamic ISPF is a method of utilizing the ISPF Environment    *   FILE 963
//*   that allocates as many ISPF/TSO resource as possible only     *   FILE 963
//*   when they are needed. In most cases, the standard ISPF &      *   FILE 963
//*   TSO Library types, and their elements, are dynamically        *   FILE 963
//*   allocated just prior to launching a particular application    *   FILE 963
//*   or function; and then deallocated on exiting it.              *   FILE 963
//*                                                                 *   FILE 963
//*   Please see member $$README for more detailed information.     *   FILE 963
//*                                                                 *   FILE 963
//***FILE 964 is from Steve Kleeves by way of John Kalinich, and    *   FILE 964
//*           contains a package to display the characteristics     *   FILE 964
//*           of VSAM datasets, from both an ISPF 3.4 screen, and   *   FILE 964
//*           from the PDS 8.6 command's LISTC/LISTF screen.        *   FILE 964
//*                                                                 *   FILE 964
//*           email:  jkalinic@outlook.com                          *   FILE 964
//*                                                                 *   FILE 964
//*       28 Apr 2020                                               *   FILE 964
//*          - Jim Turner (jim_turner@triserv.com) added            *   FILE 964
//*            additional informational fields for SMS/RLS and      *   FILE 964
//*            made the VI#1 panel scrollable.                      *   FILE 964
//*                                                                 *   FILE 964
//*       Note:  The original version of this product, by Steve     *   FILE 964
//*            Kleeves, was taken from File 137 and copied here,    *   FILE 964
//*            in PDSLOAD format (IEBUPDTE SYSIN with ISPF stats),  *   FILE 964
//*            as member OLDVERS.                                   *   FILE 964
//*                                                                 *   FILE 964
//***FILE 965 is from John McKown and is a port of SQLITE 3.21.0    *   FILE 965
//*           to z/OS.  The current state of this package is        *   FILE 965
//*           described below.  This is version 3.21.0 of SQLITE.   *   FILE 965
//*           Older versions of this port can be found on:          *   FILE 965
//*                                                                 *   FILE 965
//*           CBT File 897  -  Version 3.8                          *   FILE 965
//*           CBT File 923  -  Version 3.8.7                        *   FILE 965
//*           CBT File 935  -  Version 3.8.11                       *   FILE 965
//*                                                                 *   FILE 965
//*           email:  john.archie.mckown@gmail.com                  *   FILE 965
//*                                                                 *   FILE 965
//*           Please look at the description below:                 *   FILE 965
//*                                                                 *   FILE 965
//*                    SQLITE 3.21.0 for z/OS                       *   FILE 965
//*                    =====================                        *   FILE 965
//*                                                                 *   FILE 965
//*     Sqlite is a self-contained, server-less,                    *   FILE 965
//*     zero-configuration, transactional SQL database engine.      *   FILE 965
//*     This is the standard sqlite library which is available      *   FILE 965
//*     on many UNIX and Linux systems. The code was compiled       *   FILE 965
//*     with almost no changes. The code is dependent on z/OS       *   FILE 965
//*     UNIX System Services.  The original code supports EBCDIC    *   FILE 965
//*     in addition to the normal ASCII. This distribution has      *   FILE 965
//*     been compiled to support EBCDIC characters and IEEE         *   FILE 965
//*     (BFP) floating point numbers. This latter is important      *   FILE 965
//*     because most other z/OS languages use the historical HFP    *   FILE 965
//*     floating point.                                             *   FILE 965
//*                                                                 *   FILE 965
//*     At present, the code only has C language bindings on        *   FILE 965
//*     z/OS.  There is a "shim" or "stub" HLASM interface          *   FILE 965
//*     program which can be called from COBOL or PL/I to access    *   FILE 965
//*     the C subroutines. It is named SQLITE3A.  The parameters    *   FILE 965
//*     passed into this routine are the same ones as documented    *   FILE 965
//*     in the sqlite C API, except that the first parameter is a   *   FILE 965
//*     C style null-delimited character string which is the name   *   FILE 965
//*     of the C subroutine to be invoked. In COBOL, this is a      *   FILE 965
//*     Z'...' character string. The COBSQLTE and PLISQLTE          *   FILE 965
//*     members are the COBOL COPY book and PL/I %INCLUDE members   *   FILE 965
//*     which define COBOL or PL/I variables which contain these    *   FILE 965
//*     strings. In the case of COBOL, the underscore characters    *   FILE 965
//*     shown in the C API names are replace by a dash because an   *   FILE 965
//*     underscore is not valid in a COBOL data name. The           *   FILE 965
//*     variable names are in upper case, but the values are in     *   FILE 965
//*     lower case, due to the fact that the C subroutine names     *   FILE 965
//*     are in lower case.                                          *   FILE 965
//*                                                                 *   FILE 965
//*     Sqlite 3.21.0 is documented at http://sqlite.org, and       *   FILE 965
//*     this code runs as described there. Therefore, no futher     *   FILE 965
//*     documentation is supplied at present.  When the COBOL and   *   FILE 965
//*     PL/I bindings are done, those will be documented here.      *   FILE 965
//*                                                                 *   FILE 965
//*     This document does _not_ attempt to teach you how to use    *   FILE 965
//*     sqlite. It assumes you already know how to use it, or can   *   FILE 965
//*     learn it yourself. It does attempt to explain how to use    *   FILE 965
//*     it on z/OS by showing some COBOL and PL/I examples. If      *   FILE 965
//*     you have a C license, I strongly suggest writing your       *   FILE 965
//*     code in C. It will be more understandable to most.          *   FILE 965
//*                                                                 *   FILE 965
//*     Wish list items.                                            *   FILE 965
//*     ----------------                                            *   FILE 965
//*     1. At present, the file which contains the sqlite           *   FILE 965
//*        database must reside in a UNIX subdirectory. This        *   FILE 965
//*        means that the user of sqlite must have an z/OS UNIX     *   FILE 965
//*        identity.  I would like to be able to use a VSAM         *   FILE 965
//*        Linear Dataset for storing the sqlite data at some       *   FILE 965
//*        time. Mainly due to the number of shops which have       *   FILE 965
//*        not really embraced z/OS UNIX.  This may be possible     *   FILE 965
//*        using a "shim" sqlite VFS as documented here:            *   FILE 965
//*                                                                 *   FILE 965
//*        http://sqlite.org/vfs.html which would use a VSAM LDS    *   FILE 965
//*        as the backing store for a sqlite in-memory data         *   FILE 965
//*        base.                                                    *   FILE 965
//*                                                                 *   FILE 965
//*     2. Write a REXX interface.                                  *   FILE 965
//*                                                                 *   FILE 965
//*     3. Write a batch program based on the sqlite3 UNIX          *   FILE 965
//*        command. This would allow SQL commands to be run in a    *   FILE 965
//*        step in a batch job.                                     *   FILE 965
//*                                                                 *   FILE 965
//*     4. JDBC for Java access.                                    *   FILE 965
//*                                                                 *   FILE 965
//*     Members in this library:                                    *   FILE 965
//*     ------------------------                                    *   FILE 965
//*     - $README  - This member. The README in markdown format.    *   FILE 965
//*                                                                 *   FILE 965
//*     - ASMACL   - The JCL to compile and link the SQLITE3A       *   FILE 965
//*                  assembler program.  It would be wise to run    *   FILE 965
//*                  this to recompile SQLITE3A on your system,     *   FILE 965
//*                  if at all possible.                            *   FILE 965
//*                                                                 *   FILE 965
//*     - COBSQLTE - The COBOL copy book which defines various      *   FILE 965
//*                  SQLITE3 related variables and initializes      *   FILE 965
//*                  them.  The member contains a fair number of    *   FILE 965
//*                  comments on how to use SQLITE3A in a COBOL     *   FILE 965
//*                  program to invoke each of the 204(!)           *   FILE 965
//*                  different sqlite subroutines.                  *   FILE 965
//*                                                                 *   FILE 965
//*     - COBTEST1 - The JCL to run the TESTCOB1 program.           *   FILE 965
//*                  Unless you are running z/OS 2.1, you need      *   FILE 965
//*                  to recompile the program before running        *   FILE 965
//*                  this test job. There are LE dependencies.      *   FILE 965
//*                                                                 *   FILE 965
//*     - COBTEST2 - The JCL to run the TESTCOB2 program.           *   FILE 965
//*                  Unless you are running z/OS 2.1, you need      *   FILE 965
//*                  to recompile the program before running        *   FILE 965
//*                  this test job. There are LE dependencies.      *   FILE 965
//*                                                                 *   FILE 965
//*     - IGYWCL   - The JCL to compile and link the TESTCOB1       *   FILE 965
//*                  and TESTCOB2 program. You really need to       *   FILE 965
//*                  recompile these program on your system due     *   FILE 965
//*                  to possible LE dependencies.                   *   FILE 965
//*                                                                 *   FILE 965
//*     - LINK     - The JCL to link the SQLITE3 object code        *   FILE 965
//*                  into a LINKLIB.  This composite links in       *   FILE 965
//*                  the C and LE library subroutines.              *   FILE 965
//*                                                                 *   FILE 965
//*     - LINKLIB  - XMIT copy of the SQL3210.LINKLIB library       *   FILE 965
//*                  containing the z/OS batch executable           *   FILE 965
//*                  programs: SQLITE3A, TESTCOB1, and TESTCOB2.    *   FILE 965
//*                  However, these program will likely only run    *   FILE 965
//*                  on a z/OS 2.1 system due to COBOL              *   FILE 965
//*                  dependencies on LE.                            *   FILE 965
//*                                                                 *   FILE 965
//*     - PAXFULL  - This is a compressed pax archive for the       *   FILE 965
//*                  entire SQLITE3 application, including all      *   FILE 965
//*                  source code and executables.                   *   FILE 965
//*                                                                 *   FILE 965
//*     - PLICB    - The JCL to compile a PL/I program.             *   FILE 965
//*                                                                 *   FILE 965
//*     - PLISQLTE - The PL/I %INCLUDE member to define and         *   FILE 965
//*                  initialize a number of variables to ease       *   FILE 965
//*                  the use of SQLITE3A.                           *   FILE 965
//*                                                                 *   FILE 965
//*     - SQLITE3A - LE enabled HLASM subroutine which presents     *   FILE 965
//*                  an API to the SQLITE3 C subroutines which      *   FILE 965
//*                  is designed for use by COBOL or PL/I code.     *   FILE 965
//*                  It is composite (statically) bound with the    *   FILE 965
//*                  C object code.  This code has not been         *   FILE 965
//*                  fully tested yet and may contain errors.       *   FILE 965
//*                                                                 *   FILE 965
//*     - SQLITE3O - The object code for SQLITE to be bound into    *   FILE 965
//*                  the application.  This was compiled on z/OS    *   FILE 965
//*                  1.13, but the C compiler options were for      *   FILE 965
//*                  compatibility with z/OS 1.11 or higher.        *   FILE 965
//*                                                                 *   FILE 965
//*     - TESTCOB1 - Example Enterprise COBOL program. It is        *   FILE 965
//*                  very basic.  It uses the SQLITE3A stub to      *   FILE 965
//*                  invoke SQLITE3 operations.  If you look at     *   FILE 965
//*                  this, you will realize that I am very          *   FILE 965
//*                  "wordy" and am definitely not an advanced      *   FILE 965
//*                  COBOL programmer.                              *   FILE 965
//*                                                                 *   FILE 965
//*     - TESTCOB2 - Example Enterprise COBOL program. It is        *   FILE 965
//*                  very basic.  It's main example is of how to    *   FILE 965
//*                  retrieve a double precision floating point     *   FILE 965
//*                  number, COMP-2, from an sqlite data base,      *   FILE 965
//*                  converting it from BFP to HFP format.  The     *   FILE 965
//*                  table is defined like:  CREATE TABLE xz        *   FILE 965
//*                  (int INTEGER, fd DOUBLE); This table can be    *   FILE 965
//*                  created and loaded from a z/OS UNIX shell      *   FILE 965
//*                  prompt using the "sqlite3" UNIX command.       *   FILE 965
//*                                                                 *   FILE 965
//*                  From my testing, it appears that sqlite,       *   FILE 965
//*                  unlike most other RDMS systems is case         *   FILE 965
//*                  sensitive for the names of objects such as     *   FILE 965
//*                  columns and tables.                            *   FILE 965
//*                                                                 *   FILE 965
//*     - TSTDBPAX - A pax archive which contains the               *   FILE 965
//*                  testdb.sqlite3 UNIX file used by the           *   FILE 965
//*                  TESTCOB2 program. This needs to be restored    *   FILE 965
//*                  to a subdirectory (/tmp in the example         *   FILE 965
//*                  code). This can be done with a UNIX command    *   FILE 965
//*                  sequence such as:                              *   FILE 965
//*                                                                 *   FILE 965
//*                  cd /tmp                                        *   FILE 965
//*                  pax -rzf "//sql3210.cntl(testdb)"              *   FILE 965
//*                                                                 *   FILE 965
//*     - TSTPLI1  - Example Enterprise PL/I program. It is very    *   FILE 965
//*                  basic.  It is functionally equivalent to       *   FILE 965
//*                  TESTCOB1.  This is not working at present.     *   FILE 965
//*                  I don't normally program in PL/I because I     *   FILE 965
//*                  have never worked in a shop which used it.     *   FILE 965
//*                                                                 *   FILE 965
//*     - UNPAX    - The JCL needed to unwind either the PAXFULL    *   FILE 965
//*                  member into a z/OS UNIX subdirectory.          *   FILE 965
//*                                                                 *   FILE 965
//*     Notes on the SQLITE3A interface program.                    *   FILE 965
//*     ----------------------------------------                    *   FILE 965
//*                                                                 *   FILE 965
//*     Notes on how to use SQLITE3A with COBOL.                    *   FILE 965
//*     ----------------------------------------                    *   FILE 965
//*     1. One major oddity which can be quite confusing is that    *   FILE 965
//*        the C language calling sequence is quite different       *   FILE 965
//*        from the normal COBOL calling sequence. This             *   FILE 965
//*        difference is why many of the parameters being passed    *   FILE 965
//*        to sqlite3 _must_ be BY VALUE instead of BY REFERENCE.   *   FILE 965
//*        In particular things such as integers (COMP-?) and       *   FILE 965
//*        doubles must be passed BY VALUE.  Character strings      *   FILE 965
//*        are passed BY REFERENCE, but generally require that      *   FILE 965
//*        they be terminated with by LOW-VALUES byte. In modern    *   FILE 965
//*        COBOLs, this type of string can be initialized using     *   FILE 965
//*        the Z'value' construct.                                  *   FILE 965
//*                                                                 *   FILE 965
//*     2. When reading the C API documentation, the main thing     *   FILE 965
//*        to remember is that when you see a varible prefixed      *   FILE 965
//*        with an ampersand, you need to pass it BY REFERENCE.     *   FILE 965
//*        If you see a variable suffixed with an asterisk, this    *   FILE 965
//*        indicates that the variable name in COBOL needs to be    *   FILE 965
//*        defined as USAGE POINTER. This is also passed BY         *   FILE 965
//*        VALUE.                                                   *   FILE 965
//*                                                                 *   FILE 965
//*     3. Another critical point is that when you see a function   *   FILE 965
//*        return an "int", which is a 32 bit integer, or a name    *   FILE 965
//*        prefixed by an asterisk, you receive these into a        *   FILE 965
//*        COBOL variable by using the phrase RETURNING             *   FILE 965
//*        cobol-var-name.  All other types of returned             *   FILE 965
//*        variables, such as double floating point, are received   *   FILE 965
//*        by inserting a BY REFERENCE phrase as the second         *   FILE 965
//*        parameter in the CALL verb's USING clause.  Please       *   FILE 965
//*        review TESTCOB2 for an example.                          *   FILE 965
//*                                                                 *   FILE 965
//*     4. Unlike most z/OS languages, sqlite stores floating       *   FILE 965
//*        point numbers in IEEE 754 format. On the z, this is      *   FILE 965
//*        called a BFP or Binary Floating Point number. After      *   FILE 965
//*        retrieving a BFP number from sqlite, you will likely     *   FILE 965
//*        need to call the function "CONVERT-BFP-TO-HFP".          *   FILE 965
//*        Likewise, before sending a value to sqlite, you need     *   FILE 965
//*        to convert it to BFP by calling the                      *   FILE 965
//*        "CONVERT-HFP-TO-BFP" function.  The former is shown      *   FILE 965
//*        in the TESTCOB2 example.  My suggestion is to define     *   FILE 965
//*        BFP number in your COBOL as COMP-2 variables, perhaps    *   FILE 965
//*        suffixed with -BFP. Use COMP-2 for your COBOL            *   FILE 965
//*        floating point number also, not COMP-1. Both of these    *   FILE 965
//*        formats use an 8 bytes for storage.                      *   FILE 965
//*                                                                 *   FILE 965
//*     Notes on how to use SQLITE3A with PL/I.                     *   FILE 965
//*     ---------------------------------------                     *   FILE 965
//*     No notes at present. Mainly due to my lack of PL/I          *   FILE 965
//*     skills.                                                     *   FILE 965
//*                                                                 *   FILE 965
//*     Note: This member is in "markdown" compatible format.       *   FILE 965
//*     For more information on markdown, go to                     *   FILE 965
//*                                                                 *   FILE 965
//*     http://daringfireball.net/projects/markdown/                *   FILE 965
//*                                                                 *   FILE 965
//***FILE 966 is from Steve Myers and contains a TSO command        *   FILE 966
//*           called HLASM which is a full prompter for the High    *   FILE 966
//*           Level Assembler (ASMA90).                             *   FILE 966
//*                                                                 *   FILE 966
//*           email:  Steve Myers <mvsprog@yahoo.com>               *   FILE 966
//*                                                                 *   FILE 966
//*     Members in this pds:                                        *   FILE 966
//*                                                                 *   FILE 966
//*     Member   Purpose                                            *   FILE 966
//*     ------   -------                                            *   FILE 966
//*     $DOC     This member                                        *   FILE 966
//*     HLASM    Help member for SYS1.HELP                          *   FILE 966
//*     INSTALL  Install HLASM.  The install is to a temporary      *   FILE 966
//*              library to test the program.  It will have to      *   FILE 966
//*              be rerun to install it into a "permanent"          *   FILE 966
//*              library.                                           *   FILE 966
//*     INSTALLA Install HLASM by assembling it and linking it.     *   FILE 966
//*     INSTALLB Another install job.                               *   FILE 966
//*                                                                 *   FILE 966
//*     OBJECT   The object "deck" of the HLASM program.            *   FILE 966
//*     ODT      A user document in Open Document format.  This     *   FILE 966
//*              member requires additional processing to           *   FILE 966
//*              prepare it for use on a work station.  See the     *   FILE 966
//*              discussion later in this member.                   *   FILE 966
//*     SOURCE   The source code of the program.                    *   FILE 966
//*     USING    A brief discussion about using the HLASM           *   FILE 966
//*              command.                                           *   FILE 966
//*                                                                 *   FILE 966
//*     The HLASM program is a TSO command processor to run the     *   FILE 966
//*     High Level Assembler in a TSO session.                      *   FILE 966
//*                                                                 *   FILE 966
//*     This HLASM command is a complete and incompatible           *   FILE 966
//*     replacement of the HLASM command in the CBTTAPE "file"      *   FILE 966
//*     300 collection.  It uses the IKJPARS TSO service to         *   FILE 966
//*     examine the contents of the command line, uses MVS          *   FILE 966
//*     dynamic allocation to allocate all the datasets required    *   FILE 966
//*     for the assembly, and uses the TSO PUTLINE service to       *   FILE 966
//*     communicate with the terminal operator or the SYSTSPRT DD   *   FILE 966
//*     statement if run in TSO in batch.  It will run directly     *   FILE 966
//*     from the TSO READY prompt; it does not require a CLIST or   *   FILE 966
//*     REXX exec to pre-allocate the datasets required for the     *   FILE 966
//*     assembly.                                                   *   FILE 966
//*                                                                 *   FILE 966
//*     The command syntax is                                       *   FILE 966
//*                                                                 *   FILE 966
//*     HLASM  dataset   NOADATA/ADATA(dataset)   NOALIGN/ALIGN     *   FILE 966
//*            NOASMAOPTS/ ASMAOPTS(dataset)   NOBATCH/BATCH        *   FILE 966
//*            NODBCS/DBCS  NODXREF/ DXREF  NOESD/ESD NOFOLD/FOLD   *   FILE 966
//*            NOGOFF/GOFF(NOADATA.ADATA) LIB(dataset dataset)      *   FILE 966
//*            NOLIBMAC/LIBMAC NOLIST/LIST(121/133)                 *   FILE 966
//*            NOMXREF/MXREF(FULL/ SOURCE/XREF)                     *   FILE 966
//*            NOOBJECT/OBJECT(dataset) NOPRINT/PRINT(dataset)      *   FILE 966
//*            NORC/RC  NORLD/RLD NORXREF/RXREF                     *   FILE 966
//*            NOTERM/TERM(dataset)   NOTEST/TEST NOTHREAD/THREAD   *   FILE 966
//*            VERSION NOXOBJ/XOBJ(NOADATA/ADATA)                   *   FILE 966
//*            NOXREF/XREF(FULL/SHORT UNREFS)                       *   FILE 966
//*                                                                 *   FILE 966
//*      Required - dataset                                         *   FILE 966
//*                                                                 *   FILE 966
//*      Default - OBJECT TERM(*) LIB('SYS1.MODGEN' 'SYS1.MACLIB')  *   FILE 966
//*                PRINT                                            *   FILE 966
//*                                                                 *   FILE 966
//*                If the source dataset is not fully qualified,    *   FILE 966
//*                the full dataset name is formed by using the     *   FILE 966
//*                dataset prefix appended to the start of the      *   FILE 966
//*                name and .ASM appended to the dataset name.      *   FILE 966
//*                                                                 *   FILE 966
//*                If the TERM dataset name is not specified, and   *   FILE 966
//*                the source data dataset name is not fully        *   FILE 966
//*                qualified, HLASM for the name as                 *   FILE 966
//*                prefix.dsn.TERMLIST.                             *   FILE 966
//*                                                                 *   FILE 966
//*                If the OBJECT dataset name is not specified,     *   FILE 966
//*                and the source data dataset name is not fully    *   FILE 966
//*                qualified, HLASM forms name as prefix.dsn.OBJ.   *   FILE 966
//*                                                                 *   FILE 966
//*                If the PRINT dataset name is not specified,      *   FILE 966
//*                and the source data dataset name is not fully    *   FILE 966
//*                qualified, HLASM forms name as                   *   FILE 966
//*                prefix.dsn.ASMLIST.                              *   FILE 966
//*                                                                 *   FILE 966
//*                If the ADATA dataset name is not specified,      *   FILE 966
//*                and the source data dataset name is not fully    *   FILE 966
//*                qualified, HLASM forms name as                   *   FILE 966
//*                prefix.dsn.ADATA.                                *   FILE 966
//*                                                                 *   FILE 966
//*                If the source dataset is fully qualified or it   *   FILE 966
//*                is specified with a member, the command will     *   FILE 966
//*                prompt the terminal operator for the remainder   *   FILE 966
//*                of the datasets.                                 *   FILE 966
//*                                                                 *   FILE 966
//*                HLASM will allocate the OBJ, TERMLIST, ASMLIST   *   FILE 966
//*                and ADATA datasets if they are not already       *   FILE 966
//*                allocated.                                       *   FILE 966
//*                                                                 *   FILE 966
//*                If TSO "file" ASMAOPTS is allocated and no       *   FILE 966
//*                ASMAOPTS dataset is specified in the command     *   FILE 966
//*                line, the High Level Assembler will use the      *   FILE 966
//*                TSO "file."                                      *   FILE 966
//*                                                                 *   FILE 966
//***FILE 967 is the CBT Usermod Collection for ISPF (CUCI)         *   FILE 967
//*                                                                 *   FILE 967
//* Tom Conley, formerly SHARE's ISPF Advocate (now defunct), is    *   FILE 967
//* establishing this collection to provide function that will in   *   FILE 967
//* all likelihoood not be provided by IBM.  IBM's investment in    *   FILE 967
//* ISPF has steadily dwindled since z/OS V2R1, while investment in *   FILE 967
//* z/OSMF has vastly increased.  There is still a user community   *   FILE 967
//* for ISPF that requires increased function.  Even with recent    *   FILE 967
//* events, where IBM reversed course and increased ISPF            *   FILE 967
//* development resources for z/OS V2R5, CUCI will continue to      *   FILE 967
//* provide extended function for ISPF wherever possible.           *   FILE 967
//*                                                                 *   FILE 967
//*       email:  Pinnacle <pinncons@rochester.rr.com>              *   FILE 967
//*                                                                 *   FILE 967
//* Submissions to this collection should be in SMP/E usermod       *   FILE 967
//* format.  Manual hacks are accepted, but not encouraged.  It is  *   FILE 967
//* expected that the ISPF community will provide functions to this *   FILE 967
//* collection with the foregoing in mind.                          *   FILE 967
//*                                                                 *   FILE 967
//* This collection includes the following documentation members:   *   FILE 967
//*                                                                 *   FILE 967
//*  $$README - Installation instructions for z/OS sysprogs         *   FILE 967
//*  $CHANGES - Change log of all changes to CUCI                   *   FILE 967
//*  $HIGHLIT - Edit highlighting command HIGHLITE documentation    *   FILE 967
//*  $ISPCMDS - Command abbreviation documentation                  *   FILE 967
//*  $MANHACJ - JCL to manually create ISPF CUCI libraries          *   FILE 967
//*  $MANHACK - Instructions for the SMP/E-averse among us          *   FILE 967
//*  $SHARZIP - Instructions for unloading CUCI SHARE presentations *   FILE 967
//*  $USRCONF - USRCCONF documentation for settings not in ISPCCONF *   FILE 967
//*  $34DELET - ISPF 3.4 delete documentation                       *   FILE 967
//*  @FILE967 - This member                                         *   FILE 967
//*                                                                 *   FILE 967
//* The following list of members is followed by a short            *   FILE 967
//* description to show you the ISPF usermods supported by the      *   FILE 967
//* CBT Usermod Collection for ISPF.                                *   FILE 967
//*                                                                 *   FILE 967
//*  BPXWISH  - ISHELL exec to reset UID(0) to user's default UID   *   FILE 967
//*  BPXWP99  - ISHELL panel to reset UID(0) to user's default UID  *   FILE 967
//*  ISH      - alias for BPXWISH                                   *   FILE 967
//*  ISHELL   - alias for BPXWISH                                   *   FILE 967
//*  ISPCMDS  - Command Table w/abbreviations (e.g. UDL for UDLIST) *   FILE 967
//*  ISR@PRIM - Primary option menu for default USRCCONF settings   *   FILE 967
//*  ISR@PR24 - z/OS V2R4 version of ISR@PRIM                       *   FILE 967
//*  ISREDDE2 - Edit panel for highlighting and Unix path prepend   *   FILE 967
//*  ISREDDE4 - Edit panel highlight/Unix path prepend (no act bar) *   FILE 967
//*  ISRED224 - z/OS V2R4 version of ISREDDE2                       *   FILE 967
//*  ISRED424 - z/OS V2R4 version of ISREDDE4                       *   FILE 967
//*  ISRPXASM - SAMPLIB member with language keywords for HILITE    *   FILE 967
//*  ISRUAASE - Allocation panel to prevent PDSE without mem gens   *   FILE 967
//*  ISRUAA24 - z/OS V2R4 version of ISRUAASE                       *   FILE 967
//*  ISRUDSL0 - Data set list to process VSAM for block deletes     *   FILE 967
//*  ISRUDS24 - z/OS V2R4 version of ISRUDSL0                       *   FILE 967
//*  ISRUMVC  - Copy dataset panel with other dataset primed        *   FILE 967
//*  ISRUUDL0 - UDLIST panel to reset UID(0) to user's default UID  *   FILE 967
//*  ISRUUD24 - z/OS V2R4 version of ISRUUDL0                       *   FILE 967
//*  ISRUULP  - UDLIST panel to reset UID(0) to user's default UID  *   FILE 967
//*  ISRUUL24 - z/OS V2R4 version of ISRUULP                        *   FILE 967
//*  ISRV01   - Message member to go along with ISRUAASE for PDSEs  *   FILE 967
//*  SHAREZIP - Binary member .zip file of CUCI SHARE presentations *   FILE 967
//*  UMBPXISJ - RECEIVE/APPLY UMBPXIS usermod for ISHELL UID(0)     *   FILE 967
//*  UMISCLMJ - RECEIVE/APPLY UMISCLM usermod for SISPLPA VSCR      *   FILE 967
//*  UMISPCMJ - RECEIVE/APPLY UMISPCM usermod for ISPCMDS abbrev's  *   FILE 967
//*  UMISRHIJ - RECEIVE/APPLY UMISRHI usermod for CUCI HIGHLITE     *   FILE 967
//*  UMISRPDJ - RECEIVE/APPLY UMISRHI usermod for PDSE allocate bug *   FILE 967
//*  UMISRPXJ - RECEIVE/APPLY UMISRPX usermod for SAMPLIB hilite    *   FILE 967
//*  UMISRUDJ - RECEIVE/APPLY UMISRUD usermod for ISRUDSL0 VSAM del *   FILE 967
//*  UMISRUUJ - RECEIVE/APPLY UMISRUU usermod for UDLIST UID(0)     *   FILE 967
//*  UMISRVCJ - RECEIVE/APPLY UMISRVC usermod for copy other DSN    *   FILE 967
//*  UMUSRCFJ - RECEIVE/APPLY UMUSRCF usermod for USRCCONF dialog   *   FILE 967
//*  USR@KYWD - Rexx to process keyword file for USRCCONF options   *   FILE 967
//*  USRCCONF - Rexx exec to drive USRCCONF dialog                  *   FILE 967
//*  USRCCVWK - Rexx exec to view USRCCONF keyword file             *   FILE 967
//*  USRCMOD  - Rexx exec to process USRCCONF keyword sections      *   FILE 967
//*  USRDEL34 - Rexx exec to process VSAM for block deletes         *   FILE 967
//*  USREDDEM - Rexx called from ISREDDE2/4 to set HILITE and NULLS *   FILE 967
//*  USREDDEX - Rexx called from ISREDDE2/4 to process HIGHLITE cmd *   FILE 967
//*  USRHCALN - Help panel for calendar options                     *   FILE 967
//*  USRHFORC - Help panel for FORCE options                        *   FILE 967
//*  USRHILIT - Rexx exec to process EDIT language highlighting     *   FILE 967
//*  USRL00   - Message member for CUCI messages                    *   FILE 967
//*  USRPCONF - USRCCONF primary panel                              *   FILE 967
//*  USRPLICM - Rexx exec to process // end-of-line comments in PLI *   FILE 967
//*  USRPMOD  - CUCI Define ISPF Settings Not in ISPCCONF panel     *   FILE 967
//*  USRPMODQ - Calendar Colors and Options                         *   FILE 967
//*  USRPMOD1 - PFKeys and PFkey Labels panel                       *   FILE 967
//*  USRPMOD2 - Calendar Colors and Options panel                   *   FILE 967
//*  USRPMOD3 - Modify MEMLIST, DSLIST, and UDLIST SRCHFOR Options  *   FILE 967
//*  USRPMOD4 - UDLIST Directory List and Mount Table Options       *   FILE 967
//*  USRPMOD8 - Panel for Browse/View/EDIT/EDSET Options            *   FILE 967
//*  USRPMOD9 - Panel for ISPF Miscellaneous Options                *   FILE 967
//*  USRUDSLI - Rexx exec to process )INIT section of ISRUDSL0      *   FILE 967
//*  USRUDSLP - Rexx exec to process )PROC section of ISRUDSL0      *   FILE 967
//*  USRUMNO2 - UDLIST Mount Table by File System/Mount Point Cols  *   FILE 967
//*  USRUMVC  - Rexx exec to prime Other Dataset on ISRUMVC panel   *   FILE 967
//*  USRUUID0 - Common exec to reset UID from 0 back to default     *   FILE 967
//*  USRUULO2 - UDLIST Directory List Column Arrangement            *   FILE 967
//*  USR0Y002 - Keyword File Member help panel                      *   FILE 967
//*  USR0Y004 - Output File Content for Keyword File help panel     *   FILE 967
//*  USR0Y007 - Output Keyword File help panel                      *   FILE 967
//*                                                                 *   FILE 967
//***FILE 968 is from John McKown and contains utilities written    *   FILE 968
//*           by him.  The first utility included is an             *   FILE 968
//*           ISRDDN-like TSO command called SYSPARM.  SYSPARM      *   FILE 968
//*           concatenates the PARMLIB datasets and performs an     *   FILE 968
//*           ISRDDN-like action on them, showing you your PARMLIB  *   FILE 968
//*           concatenation in ISRDDN format, so that you can see   *   FILE 968
//*           which members override, etc.                          *   FILE 968
//*                                                                 *   FILE 968
//*           email:  John McKown <john.archie.mckown@gmail.com>    *   FILE 968
//*                                                                 *   FILE 968
//*           Note that assembly/linkedit JCL is provided in        *   FILE 968
//*           member SYSPARM$, because the LE stuff has to be       *   FILE 968
//*           included, and it is not straightforward if you        *   FILE 968
//*           don't know how to include that stuff.                 *   FILE 968
//*                                                                 *   FILE 968
//***FILE 969 is from Lionel Dyck in Austin, Texas and contains     *   FILE 969
//*           the PDSEGEN ISPF application.                         *   FILE 969
//*                                                                 *   FILE 969
//*           website: http://www.lbdsoftware.com                   *   FILE 969
//*           github:  http://www.github.com/lbdyck                 *   FILE 969
//*           email:  lbdyck@gmail.com                              *   FILE 969
//*                                                                 *   FILE 969
//*    File 969 contains the PDSEGEN ISPF application to exploit    *   FILE 969
//*    the capabilities of using PDSE Version 2 member              *   FILE 969
//*    generations.                                                 *   FILE 969
//*                                                                 *   FILE 969
//*    Lionel Dyck's large collection of utilities has now been     *   FILE 969
//*    divided between Files 312, 313, 314, and 969.  All member    *   FILE 969
//*    names beginning with A-R are on File 312.  Names beginning   *   FILE 969
//*    with S-TS are on File 313.  Names from TX-Z are on File      *   FILE 969
//*    314.                                                         *   FILE 969
//*                                                                 *   FILE 969
//*       NAME       VER.MOD   LAST MODIFIED     SIZE   ID          *   FILE 969
//*       $$$DOC      01.28   2022/04/12 09:42    430 PDSE          *   FILE 969
//*       $CHANGES    01.45   2023/11/26 14:21   1966 PDSE          *   FILE 969
//*       $INSTALL    01.12   2020/02/02 11:02     76 PDSE          *   FILE 969
//*       $MODULES    01.04   2018/03/19 10:52     63 PDSE          *   FILE 969
//*       $MONITOR    01.00   2019/11/01 06:35     11 PDSE          *   FILE 969
//*       $RECV       01.44   2019/11/01 06:36    150 PDSE          *   FILE 969
//*       $RFES       01.01   2021/12/18 13:27      9 PDSE          *   FILE 969
//*       $UNDOC      01.07   2020/01/26 08:22     16 PDSE          *   FILE 969
//*       @ASMCLS     01.00   2020/03/09 12:35     38 PDSE          *   FILE 969
//*       @BACKUP     01.00   2020/03/09 12:35    119 PDSE          *   FILE 969
//*       ASM         01.00   2023/11/26 14:23   1501 XMIT          *   FILE 969
//*       ASMJCL      01.00   2021/11/25 12:13     30 PDSE          *   FILE 969
//*       CLS         01.00   2020/12/14 11:48      6 PDSE          *   FILE 969
//*       EXEC        01.00   2023/11/26 14:23  12296 XMIT          *   FILE 969
//*       FIXPDSEG    01.08   2021/11/25 12:33     27 PDSE          *   FILE 969
//*       LICENSE     01.00   2016/06/10 13:52    674 PDSE          *   FILE 969
//*       LOAD        01.00   2023/11/26 14:23    234 XMIT          *   FILE 969
//*       PANELS      01.00   2023/11/26 14:23   7444 XMIT          *   FILE 969
//*       PDSEGQW     01.08   2018/03/21 06:08    414 PDSE          *   FILE 969
//*       PDSEPDF     05.56   2019/07/22 12:46  28543 PDF           *   FILE 969
//*       PDSEREFC    01.02   2019/06/25 14:15   2403 PDF           *   FILE 969
//*       QWLOAD      01.00   2018/03/20 13:15     22 PDSE          *   FILE 969
//*       SAMPBR      01.09   2017/09/27 14:09     50 PDSE          *   FILE 969
//*       SAMPCOPY    01.00   2016/10/27 13:30     48 PDSE          *   FILE 969
//*       SAMPLE      01.00   2023/11/26 14:23   1188 XMIT          *   FILE 969
//*       SUPPORT     01.02   2017/07/17 14:05     10 PDSE          *   FILE 969
//*       WISHLIST    01.00   2018/03/26 14:16     12 PDSE          *   FILE 969
//*                                                                 *   FILE 969
//***FILE 970 is from Kenneth Tomiak and contains a variant of the  *   FILE 970
//*           RCNVTCAT REXX EXEC from CBT File 542, which generates *   FILE 970
//*           DEFINE statements to recatalog entries from an old    *   FILE 970
//*           catalog into a new catalog (usually for a new z/OS    *   FILE 970
//*           system).                                              *   FILE 970
//*                                                                 *   FILE 970
//*           The RCNVTCA$ on File 542 JCL has been reported to     *   FILE 970
//*           fail on current systems. Changing PGM=IRXJCL to       *   FILE 970
//*           PGM=IKJEFT1B was part of the fix. Running as a batch  *   FILE 970
//*           job still had issues, and so Kenneth embarked on      *   FILE 970
//*           simplifying the REXX code and then added some user    *   FILE 970
//*           interface enhancements.                               *   FILE 970
//*                                                                 *   FILE 970
//*           RCNVTCAT has been traditionally used to create a new  *   FILE 970
//*           master catalog from the old master catalog on the     *   FILE 970
//*           old system, recataloging the old entries in the       *   FILE 970
//*           new catalog, after editing them (when necessary).     *   FILE 970
//*                                                                 *   FILE 970
//*           Kenneth has fixed the format of the TCNVTCA$ JCL      *   FILE 970
//*           and the TCNVTCAT REXX exec so that it runs as both    *   FILE 970
//*           a batch job and under TSO. In addition, if you have   *   FILE 970
//*           launched under ISPF then a PROGRESS panel will be     *   FILE 970
//*           displayed to keep you occupied as it runs.            *   FILE 970
//*                                                                 *   FILE 970
//*           It can still be used as a replacement for IBM's       *   FILE 970
//*           MCNVTCAT program, which IBM no longer supports.       *   FILE 970
//*                                                                 *   FILE 970
//*           2018-02-27 Update                                     *   FILE 970
//*           Included a missing Find_Hostdsn routine.              *   FILE 970
//*                                                                 *   FILE 970
//*           email:  sbgolob@cbttape.org                           *   FILE 970
//*                                                                 *   FILE 970
//***FILE 971 is a batch program called EMPTYTST, which is          *   FILE 971
//*           designed to find out if a sequential dataset          *   FILE 971
//*           (DSORG=PS) or a PDS member is empty.  This may        *   FILE 971
//*           be needed for JCL jobstreams to find out the outcome  *   FILE 971
//*           of a job step (if it produced any data) and to        *   FILE 971
//*           then proceed with the jobstream, depending on the     *   FILE 971
//*           return code.                                          *   FILE 971
//*                                                                 *   FILE 971
//*           Support:  email to  sbgolob@cbttape.org               *   FILE 971
//*                                                                 *   FILE 971
//*                     email:    gerhardp@charter.net              *   FILE 971
//*                                                                 *   FILE 971
//*     The EMPTYTST program is reentrant.                          *   FILE 971
//*                                                                 *   FILE 971
//*     Improvements to the original source of EMPTYTST, were       *   FILE 971
//*     made by Gerhard Postpischil, and bugs were corrected        *   FILE 971
//*     through the collaboration of Gerhard and the original       *   FILE 971
//*     author.                                                     *   FILE 971
//*                                                                 *   FILE 971
//*     Enhanced the SYSPRINT report with job and time information  *   FILE 971
//*     that was already available in the JESMSGLG and JESYSMSG     *   FILE 971
//*     reports.  You might be following the progress of your       *   FILE 971
//*     jobs using the SYSPRINT reports only, so that information   *   FILE 971
//*     detail is needed there.                                     *   FILE 971
//*                                                                 *   FILE 971
//*     Help documentation is in member EMPTYTS#.                   *   FILE 971
//*                                                                 *   FILE 971
//*     Sample JCL to Run - Needs SYSUT1 DDname for input dataset   *   FILE 971
//*                   SYSPRINT is optional. PARM=Q suppresses it.   *   FILE 971
//*                   WTO output is available with PARM=W.          *   FILE 971
//*                                                                 *   FILE 971
//*     //  jobcard                                                 *   FILE 971
//*     //*                                                         *   FILE 971
//*     //CHKEMPTY EXEC PGM=EMPTYTST,PARM=W                         *   FILE 971
//*     //STEPLIB  DD DISP=SHR,DSN=your.steplib                     *   FILE 971
//*     //SYSUT1   DD DISP=SHR,DSN=dataset(member)                  *   FILE 971
//*     //SYSPRINT DD SYSOUT=*                                      *   FILE 971
//*                                                                 *   FILE 971
//*     Program Action:                                             *   FILE 971
//*                                                                 *   FILE 971
//*     RETURNS CODE = 0 IF DATASET IS NOT EMPTY.                   *   FILE 971
//*     RETURNS CODE = 4 IF DATASET IS EMPTY.                       *   FILE 971
//*     JCL ERROR IF A SEQUENTIAL DATASET (DSORG=PS)                *   FILE 971
//*       DOES NOT EXIST.                                           *   FILE 971
//*     RETURNS CODE = 8 IF PDS MEMBER DOES NOT EXIST.              *   FILE 971
//*     RETURNS CODE = 12 IF SYSUT1 DDNAME IS MISSING.              *   FILE 971
//*     RETURNS CODE = 16 IF SYSUT1 POINTS TO A CONCATENATION.      *   FILE 971
//*                                                                 *   FILE 971
//*     Codes 0, 4, and 8 return the dataset name and volume,       *   FILE 971
//*     in the messages.  (WTO if PARM=W, SYSPRINT if it is         *   FILE 971
//*     present as a DDname and PARM=Q was not coded.)              *   FILE 971
//*                                                                 *   FILE 971
//*     We hope that you'll find this to be a useful tool.          *   FILE 971
//*                                                                 *   FILE 971
//***FILE 972 is from Kenneth Tomiak and contains an EDIT macro     *   FILE 972
//*           that mimics the ISPF 'MODEL' command, but GENIE       *   FILE 972
//*           is extensible and serves up WISHes from user          *   FILE 972
//*           created templates.                                    *   FILE 972
//*                                                                 *   FILE 972
//*             Released 2018-02-25                                 *   FILE 972
//*                                                                 *   FILE 972
//*           GENIE level 01.23 now contains a full smarter SEARCH  *   FILE 972
//*           that handles line wrapping.                           *   FILE 972
//*                                                                 *   FILE 972
//*           The administrator will create one or more WISHLIST    *   FILE 972
//*           data sets refrenced by the GENIE edit macro that is   *   FILE 972
//*           placed in your SYSEXEC, or SYSPROC, concatenation.    *   FILE 972
//*                                                                 *   FILE 972
//*           The end user (developers) invokes GENIE on the        *   FILE 972
//*           command line and expands a relevant topic and chapter *   FILE 972
//*           to choose an item whose SYNTAX is shown and sample    *   FILE 972
//*           code inserted in the current EDIT session.            *   FILE 972
//*                                                                 *   FILE 972
//*             Released 2018-02-07                                 *   FILE 972
//*                                                                 *   FILE 972
//*              DASM - Data And Storage Management.                *   FILE 972
//*              DFPU - Data Facility Product User Guide.           *   FILE 972
//*              IBMK - IBM Manuals to be used for WISHes.          *   FILE 972
//*              JCLR - JCL Reference Manual.                       *   FILE 972
//*              MITR - z/OS MVS Initialiation and Tuning.          *   FILE 972
//*              PMAU - SMP/E Planning and Migration Assistant.     *   FILE 972
//*              PSFC - Print Services Facility: Customization.     *   FILE 972
//*              REXR - REXX Reference.                             *   FILE 972
//*              RXCP - REXX Compiler Presentation -George Fulk.    *   FILE 972
//*              RXCU - REXX Compiler -User's Guide and Reference.  *   FILE 972
//*              TSAD - Tools And Service Aids.                     *   FILE 972
//*                                                                 *   FILE 972
//*             Released 2018-02-12                                 *   FILE 972
//*                                                                 *   FILE 972
//*              CRDG - CICS Resource Definition Guide              *   FILE 972
//*              KETU - Kenneth Tomiak Utility.                     *   FILE 972
//*                                                                 *   FILE 972
//*             Released 2018-03-22                                 *   FILE 972
//*                                                                 *   FILE 972
//*              AMSC - Access Method Services for Catalogs         *   FILE 972
//*                                                                 *   FILE 972
//*           email:  cbt_ken@ktomiak.biz                           *   FILE 972
//*                                                                 *   FILE 972
//*           email:  sbgolob@cbttape.org                           *   FILE 972
//*                                                                 *   FILE 972
//***FILE 973 is from Jay Moseley and contains the WATFIV Fortran   *   FILE 973
//*           compiler and library from the University of Waterloo. *   FILE 973
//*                                                                 *   FILE 973
//*       website:                                                  *   FILE 973
//*       http://www.jaymoseley.com/hercules/compilers/watfiv.htm   *   FILE 973
//*                                                                 *   FILE 973
//*       We have packaged the material from this website for use   *   FILE 973
//*       directly on z/OS.                                         *   FILE 973
//*                                                                 *   FILE 973
//*       Fixes and some corrections were made by David Spiegel.    *   FILE 973
//*                                                                 *   FILE 973
//*       email:  dspiegelcan@hotmail.com                           *   FILE 973
//*                                                                 *   FILE 973
//***FILE 974 is from Jamie Gibson and contains a rewrite of TSSO   *   FILE 974
//*           that uses enhanced console support instead of the     *   FILE 974
//*           subsystem interface.                                  *   FILE 974
//*                                                                 *   FILE 974
//*           support email:   sbgolob@cbttape.org   (for now)      *   FILE 974
//*                                                                 *   FILE 974
//*           A user guide has been supplied, both in text format   *   FILE 974
//*           and in WORD format.                                   *   FILE 974
//*                                                                 *   FILE 974
//***FILE 975 is from Cristian Casares and contains a reporting     *   FILE 975
//*           program that will be useful to COBOL programmers.     *   FILE 975
//*                                                                 *   FILE 975
//*           email:  Cristian Casares <ccasares10@gmail.com>       *   FILE 975
//*                                                                 *   FILE 975
//*  Description of the Program:                                    *   FILE 975
//*                                                                 *   FILE 975
//*  PROGRAMMER : CRISTIAN CASARES (CCASARES10@GMAIL.COM)           *   FILE 975
//*  PROGRAM    : PORCVERB                                          *   FILE 975
//*  DATE       : 22/06/2017                                        *   FILE 975
//*                                                                 *   FILE 975
//*  FUNCTION   : PGM THAT CALCULATES THE AMOUNT OF RESERVED WORDS  *   FILE 975
//*               IN A COBOL ENTERPRISE 3.4.0 PGM.                  *   FILE 975
//*                                                                 *   FILE 975
//*               LIST ON A SYSOUT:                                 *   FILE 975
//*               -TOTAL OF FOUND WORDS                             *   FILE 975
//*               -TOTAL OF RESERVED WORDS(1)                       *   FILE 975
//*               -TOTAL OF COMMENTS                                *   FILE 975
//*               -TOTAL OF LINES READ                              *   FILE 975
//*               -(EACH RESERVED WORD) W/ITS TOTAL AND PERCENTAGE  *   FILE 975
//*                                                                 *   FILE 975
//*               (1) THE RESERVED WORDS THAT ARE BETWEEN QUOTES    *   FILE 975
//*               DOES NOT COUNT AS IF THEY WERE. ALL THAT ARE      *   FILE 975
//*               BETWEEN QUOTES COUNTS AS A SPACES.                *   FILE 975
//*                                                                 *   FILE 975
//*               NOTE:                                             *   FILE 975
//*               THE RESERVED WORDS ARE ORDERED BY ALPHABET TO     *   FILE 975
//*               SIMPLIFY ITS CHANGE (OTHER COBOL VERSION).        *   FILE 975
//*               THE PROCESS OF THE PGM SHOULD TAKE LESS CPU IF    *   FILE 975
//*               WE ORDER BY VALUE OF THE WORDS (IF/MOVE/ETC ARE   *   FILE 975
//*               MORE IMPORTANT THAT SEQUENTIAL OR COMMA)          *   FILE 975
//*                                                                 *   FILE 975
//***FILE 976 from Larry Zuckett and contains his USYNC command     *   FILE 976
//*           to seamlessly add a userid entry to the Broadcast     *   FILE 976
//*           Dataset (usually SYS1.BRODCAST), or to delete one.    *   FILE 976
//*                                                                 *   FILE 976
//*           Included, is an SMP/E install of the USYNC command,   *   FILE 976
//*           as well.                                              *   FILE 976
//*                                                                 *   FILE 976
//*           HELP member USYNC# added.  Copy to HELP dataset       *   FILE 976
//*           and rename as USYNC.                                  *   FILE 976
//*                                                                 *   FILE 976
//*       email:  lzuckett@hotmail.com                              *   FILE 976
//*                                                                 *   FILE 976
//*       Please see CBT File 185 and 797 for other ways of         *   FILE 976
//*       authorizing TSO commands.                                 *   FILE 976
//*                                                                 *   FILE 976
//*       For more tools concerning manipulating the Broadcast      *   FILE 976
//*       Dataset, please see CBT File 247.                         *   FILE 976
//*                                                                 *   FILE 976
//***FILE 977 is from Moshe Bar, and contains a table of URL's      *   FILE 977
//*           to be able to see his marvelous videos on YouTube.    *   FILE 977
//*           These are videos concerning z/OS on the mainframe     *   FILE 977
//*           and MVS 3.8 and VM under Hercules.  They also cover   *   FILE 977
//*           a lot of computer history, connected with the         *   FILE 977
//*           mainframe in general.                                 *   FILE 977
//*                                                                 *   FILE 977
//*       Interesting for ALL LEVELS of MVS expertise, from         *   FILE 977
//*       completely new people, to veteran systems programmers.    *   FILE 977
//*                                                                 *   FILE 977
//*       The table is in printable EBCDIC, and should be           *   FILE 977
//*       downloaded with ASCII conversion to the PC, where         *   FILE 977
//*       the URL's can be copied into a browser and viewed.        *   FILE 977
//*                                                                 *   FILE 977
//*       Or you can just copy and paste the URL into a browser.    *   FILE 977
//*                                                                 *   FILE 977
//*       In YouTube, the owner of the group of videos is           *   FILE 977
//*       moshix.                                                   *   FILE 977
//*                                                                 *   FILE 977
//*       This table is being maintained by Moshe Bar and           *   FILE 977
//*       Sam Golob.                                                *   FILE 977
//*                                                                 *   FILE 977
//*       To list all videos on YouTube authored by Moshix...       *   FILE 977
//*                                                                 *   FILE 977
//*       https://www.youtube.com/user/moshe5760/videos             *   FILE 977
//*                                                                 *   FILE 977
//*    THE TABLE INCLUDED HERE IS FOR THE PURPOSE OF DIRECTLY       *   FILE 977
//*    FINDING A VIDEO THAT YOU WANT TO SEE.  IF FOR SOME REASON,   *   FILE 977
//*    IT ISN'T LISTED AT THE ABOVE WEB PAGE, YOU MIGHT BE ABLE     *   FILE 977
//*    TO ACCESS IT DIRECTLY USING OUR TABLE, ADDRESSING THE URL    *   FILE 977
//*    SPECIFICALLY.                                                *   FILE 977
//*    ----------------------------------------------------------   *   FILE 977
//*    I NEVER TRUST A WEB PAGE TO STAY THERE FOREVER.  SOMETIMES   *   FILE 977
//*    A DIRECT URL WILL PERSIST LONGER THAN THE PAGE POINTING TO   *   FILE 977
//*    IT.                                                          *   FILE 977
//*                                                                 *   FILE 977
//*       So therefore, we have included the following material     *   FILE 977
//*       here...                                                   *   FILE 977
//*                                                                 *   FILE 977
//*           email:   moshix@gmail.com                             *   FILE 977
//*                                                                 *   FILE 977
//*           email:   sbgolob@cbttape.org                          *   FILE 977
//*                                                                 *   FILE 977
//***FILE 978 is from Kenneth Tomiak and contains an EDIT macro     *   FILE 978
//*           that mimics the ISPF 'MODEL' command, but GENIE       *   FILE 978
//*           is extensible and serves up WISHes from user          *   FILE 978
//*           created templates.  This is a beta version, after     *   FILE 978
//*           File 972, which was the first published version.      *   FILE 978
//*                                                                 *   FILE 978
//*           ---------------------------------------------------   *   FILE 978
//*                                                                 *   FILE 978
//*           Released 2018-11-05                                   *   FILE 978
//*                                                                 *   FILE 978
//*           This release is an update of File 972 which Ken       *   FILE 978
//*           had been working on, after File 972 was published     *   FILE 978
//*           here.  Since unfortunately, Ken has passed away,      *   FILE 978
//*           but he kept working almost to the last minute, this   *   FILE 978
//*           file is probably good, but I don't really know, and   *   FILE 978
//*           I'm putting it out as a beta version, until someone   *   FILE 978
//*           will test it and prove it to be reliable.  (SBG)      *   FILE 978
//*           (Then we'll probably replace File 972 with it.)       *   FILE 978
//*                                                                 *   FILE 978
//*           ---------------------------------------------------   *   FILE 978
//*                                                                 *   FILE 978
//*           The administrator will create one or more WISHLIST    *   FILE 978
//*           data sets referenced by the GENIE edit macro that is  *   FILE 978
//*           placed in your SYSEXEC or SYSPROC concatenation.      *   FILE 978
//*                                                                 *   FILE 978
//*           The end user (developers) invokes GENIE on the        *   FILE 978
//*           command line and expands a relevant TOPIC and CHAPTER *   FILE 978
//*           to choose a WISH whose SYNTAX is shown and sample     *   FILE 978
//*           code inserted in the current EDIT session.            *   FILE 978
//*                                                                 *   FILE 978
//*           ===================================================== *   FILE 978
//*           Released 2018-02-07                                   *   FILE 978
//*           WISHLIST members:                                     *   FILE 978
//*             DASM - DFSMS Data And Storage Management            *   FILE 978
//*             DFPU - Data Facility Product User Guide             *   FILE 978
//*             IBMK - IBM Manuals to be used for WISHes            *   FILE 978
//*             JCLR - JCL Reference Manual                         *   FILE 978
//*             MITR - z/OS MVS Initialization and Tuning           *   FILE 978
//*             PMAU - SMP/E Planning and Migration Assistant       *   FILE 978
//*             PSFC - Print Services Facility Customization        *   FILE 978
//*             REXR - REXX Reference                               *   FILE 978
//*             RXCP - REXX Compiler Presentation -George Fulk      *   FILE 978
//*             RXCU - REXX Compiler User's Guide and Reference     *   FILE 978
//*             TSAD - Diagnosis Tools and Service Aids             *   FILE 978
//*           ===================================================== *   FILE 978
//*           Released 2018-02-12                                   *   FILE 978
//*           WISHLIST members:                                     *   FILE 978
//*             CRDG - CICS Resource Definition Guide               *   FILE 978
//*             KETU - Kenneth Tomiak Utility Examples (ongoing)    *   FILE 978
//*           ===================================================== *   FILE 978
//*           Released 2018-02-25                                   *   FILE 978
//*           Code changes:                                         *   FILE 978
//*             GENIE level 02.23 now contains a full smarter       *   FILE 978
//*             SEARCH that handles line wrapping.                  *   FILE 978
//*           ===================================================== *   FILE 978
//*           Released 2018-03-22                                   *   FILE 978
//*           WISHLIST members:                                     *   FILE 978
//*             AMSC - Access Method Services for Catalogs          *   FILE 978
//*           ===================================================== *   FILE 978
//*           Released 2018-05-13                                   *   FILE 978
//*           Code changes:                                         *   FILE 978
//*             GENIE level 02.25 Revamped configuration member     *   FILE 978
//*             format, some bug fixes, and improved help.          *   FILE 978
//*                                                                 *   FILE 978
//*             GENIEBLD level 01.08 Revamped configuration member. *   FILE 978
//*                                                                 *   FILE 978
//*           WISHLIST members:                                     *   FILE 978
//*             ISRE - ISPF Edit and Edit Macros (just ISREMSPY)    *   FILE 978
//*             ISPG - ISPF Services Guide (in-progress)            *   FILE 978
//*           ===================================================== *   FILE 978
//*           Released 2018-05-##                                   *   FILE 978
//*           Code changes:                                         *   FILE 978
//*             GENIE level 02.26 Show Book under INFO              *   FILE 978
//*                         02.27 Warn when var subst fails.        *   FILE 978
//*                               Grouped some doc under History.   *   FILE 978
//*                               Inserting uses (newtext).         *   FILE 978
//*                               MSGLINE & NOTELINE <= 72.         *   FILE 978
//*             GENIERTA level 01.00 Sample user_routine.           *   FILE 978
//*                                                                 *   FILE 978
//*           WISHLIST members:                                     *   FILE 978
//*             IBMK - Deleted with IBM move to KnowledgeCenter.    *   FILE 978
//*             JCLR - Shortened titles to fit 24x80 display.       *   FILE 978
//*             JOBC - JOB Card Standards                <== NEW    *   FILE 978
//*             KETU - Moved under KTPM.                            *   FILE 978
//*             KTPM - Kenneth Tomiak Programming Method <== NEW    *   FILE 978
//*             RXCP - Updated examples.                            *   FILE 978
//*           ===================================================== *   FILE 978
//*                                                                 *   FILE 978
//*           email:  sbgolob@cbttape.org                           *   FILE 978
//*                                                                 *   FILE 978
//***FILE 979 is a package to help you learn to use the ZZSA        *   FILE 979
//*           standalone utility program referred to in CBT Files   *   FILE 979
//*           437 and 538.  There was no IBM involvement and no     *   FILE 979
//*           IBM utilities are packaged with this package.         *   FILE 979
//*                                                                 *   FILE 979
//*               ******  ZZSA Tutorial Package  ******             *   FILE 979
//*                                                                 *   FILE 979
//*           THIS IS A COMPLETE, SELF-CONTAINED PACKAGE TO         *   FILE 979
//*           SET UP ON YOUR PC, WHICH EMULATES A Z/OS ENVIRONMENT  *   FILE 979
//*           RUNNING "STANDALONE ZZSA", WITH NO IBM INVOLVEMENT.   *   FILE 979
//*                                                                 *   FILE 979
//*           NO IBM PROGRAMS ARE RUN WITH THIS PACKAGE.  ALL       *   FILE 979
//*           THE MATERIALS ARE PUBLIC-DOMAIN OR NEARLY SO.         *   FILE 979
//*                                                                 *   FILE 979
//*           WINDOWS IS ASSUMED.  IF YOU CAN GET THIS TO WORK      *   FILE 979
//*           ON LINUX, PLEASE SEND THE MATERIALS TO ME, SO         *   FILE 979
//*           I CAN ADD THEM IN HERE.   sbgolob@cbttape.org         *   FILE 979
//*                                                                 *   FILE 979
//*               ******  ZZSA Tutorial Package  ******             *   FILE 979
//*                                                                 *   FILE 979
//*           Included is a 5-cylinder mini-disk image for the PC   *   FILE 979
//*           in P/390 format, containing IPL-text for ZZSA, and    *   FILE 979
//*           containing some data files to practice editing or     *   FILE 979
//*           zapping.                                              *   FILE 979
//*                                                                 *   FILE 979
//*           A source library called 'PRACTICE.ZZSA' and a load    *   FILE 979
//*           library called 'ZZSA.TESTLOAD' are included in the    *   FILE 979
//*           disk volume CYL005.  This should supply a lot of      *   FILE 979
//*           material to practice using ZZSA with.                 *   FILE 979
//*                                                                 *   FILE 979
//*           I have added a disassembly listing of the load        *   FILE 979
//*           module NODSI (unrelated) so the advanced user         *   FILE 979
//*           can locate the appropriate place in it, to zap.       *   FILE 979
//*                                                                 *   FILE 979
//*           Jan Jaeger's original documentation                   *   FILE 979
//*           (member $$$#ZZSA) and Lionel Dyck's msword doc        *   FILE 979
//*           (member DOCX) have also been included here.           *   FILE 979
//*                                                                 *   FILE 979
//*           In addition, the entire Hercules emulator (4.0)       *   FILE 979
//*           and a matching config file for the mini-disk was      *   FILE 979
//*           included.  See the $$README member for some more      *   FILE 979
//*           information.  The $$README file here, as opposed      *   FILE 979
//*           to the one on the zip file, might be more up-to-date. *   FILE 979
//*                                                                 *   FILE 979
//*           Member PRACZZSA in this pds is a zip file, which      *   FILE 979
//*           must be download in binary to a PC, and unzipped      *   FILE 979
//*           there.  This will set up the entire environment       *   FILE 979
//*           for you, and it just needs to be slightly             *   FILE 979
//*           customized.  See member $$README first.  Then....     *   FILE 979
//*                                                                 *   FILE 979
//*           When you unzip the PRACZZSA zip file, customize       *   FILE 979
//*           and execute the zzsa.bat file, which will set up      *   FILE 979
//*           Hercules, and enable you to execute ZZSA under it.    *   FILE 979
//*                                                                 *   FILE 979
//*           See member DOCX.  You'll have to customize things     *   FILE 979
//*           for youself, but the ingredients should be here.      *   FILE 979
//*                                                                 *   FILE 979
//*           Just in case you want to restore the CYL005 minidisk  *   FILE 979
//*           on a real z/OS system, I've included an XMIT of       *   FILE 979
//*           a DFDSS backup of it.  Member CYL005XM.               *   FILE 979
//*                                                                 *   FILE 979
//***FILE 980 is from Vladimir Mironov, via the ibmmainframes.com   *   FILE 980
//*           forum.  This is a zap to Doug Nadel's TASID 5.21      *   FILE 980
//*           load module, to fix problems with displaying the      *   FILE 980
//*           initiators, Option 4.  Since TASID belongs to IBM,    *   FILE 980
//*           because it was written by Doug when he worked there,  *   FILE 980
//*           we cannot publish its load module here.  So first     *   FILE 980
//*           download the load module from URL:                    *   FILE 980
//*                                                                 *   FILE 980
//*    https://www-01.ibm.com/support/docview.wss?uid=swg24009131   *   FILE 980
//*                                                                 *   FILE 980
//*           After you have downloaded the TASID load module,      *   FILE 980
//*           then the accompanying zaps apply, if you have a       *   FILE 980
//*           z/OS 2.2 thru 2.4 system, to fix the "Initiators"     *   FILE 980
//*           display.  If you have z/OS 2.4, then you need the     *   FILE 980
//*           additional zap, member ZAPTAS24.                      *   FILE 980
//*                                                                 *   FILE 980
//*           A third zap, ZAPTASCL, to display the job class       *   FILE 980
//*           for running jobs, was added.  This zap may also       *   FILE 980
//*           be applicable to z/OS 2.1, but see member             *   FILE 980
//*           $$NOTE02 first.                                       *   FILE 980
//*                                                                 *   FILE 980
//*        SUPPORT EMAIL:      sbgolob@cbttape.org                  *   FILE 980
//*                                                                 *   FILE 980
//*    List of zaps to be applied to TASID (in order):              *   FILE 980
//*                                                                 *   FILE 980
//*    ZAPTASID - Must be applied first, to allow the initiator     *   FILE 980
//*               display (option 4) to work for z/OS 2.2 and 2.3.  *   FILE 980
//*                                                                 *   FILE 980
//*    ZAPTAS24 - Zap to be applied AFTER ZAPTASID to allow the     *   FILE 980
//*               initiator display (option 4) to work for z/OS     *   FILE 980
//*               2.4 as well as 2.x.  Prerequisite is ZAPTASID.    *   FILE 980
//*               (x = 2 or 3)                                      *   FILE 980
//*                                                                 *   FILE 980
//*    ZAPTASCL - Zap to allow the initiator display for a running  *   FILE 980
//*               job, to display the Job Class.  This version of   *   FILE 980
//*               TASID pre-dates the 8-character job names, so     *   FILE 980
//*               only the first character of the job name is       *   FILE 980
//*               displayed.                                        *   FILE 980
//*                                                                 *   FILE 980
//*    Further notes:                                               *   FILE 980
//*                                                                 *   FILE 980
//*    ===>   Additional zap (to be applied on top of Vladimir's    *   FILE 980
//*           zap) to fix the initiator display for z/OS 2.4.       *   FILE 980
//*           The additional zap is in member ZAPTAS24.  The        *   FILE 980
//*           additional zap will NOT nullify TASID's effectiveness *   FILE 980
//*           for z/OS 2.2 and 2.3 (see member $$NOTE01 for further *   FILE 980
//*           explanation).                                         *   FILE 980
//*                                                                 *   FILE 980
//*           Also, please remember to apply zap:  ZAPTASCL.        *   FILE 980
//*                                                                 *   FILE 980
//*           BTW, the URL of the ibmmainframes.com posts which     *   FILE 980
//*           are relevant here, is:                                *   FILE 980
//*                                                                 *   FILE 980
//*           http://ibmmainframes.com/about65233.html              *   FILE 980
//*                                                                 *   FILE 980
//*      ==>  Fixed JCL to put the comment before the //SYSIN       *   FILE 980
//*           card.  (SBG)                                          *   FILE 980
//*                                                                 *   FILE 980
//*      ==>  I believe that this note applies best, when you       *   FILE 980
//*           download the version of TASID which includes the      *   FILE 980
//*           compiled panels in the load module, so you don't      *   FILE 980
//*           have a problem or question with also updating the     *   FILE 980
//*           ISPF panels.                                          *   FILE 980
//*                                                                 *   FILE 980
//*           Thanks to Bill Smith for alerting me to this          *   FILE 980
//*           problem, and finding Vladimir's zap.                  *   FILE 980
//*                                                                 *   FILE 980
//*           email:  Bill Smith <sfowjs@sbcglobal.net>             *   FILE 980
//*                                                                 *   FILE 980
//***FILE 981 is from Larry Zuckett and contains some utilities     *   FILE 981
//*           of his, written in REXX.                              *   FILE 981
//*                                                                 *   FILE 981
//*           email:  lzuckett@ford.com                             *   FILE 981
//*                                                                 *   FILE 981
//*      Members of this pds:                                       *   FILE 981
//*                                                                 *   FILE 981
//*      DISUBSYS  01.00  2018/11/14 21:33:51    55    DISSUBS      *   FILE 981
//*      FTPGENEX  01.00  2018/11/14 21:21:58  1088    FTPGEN       *   FILE 981
//*      FTPGENMS  01.00  2018/11/14 21:21:58    89    FTPGEN       *   FILE 981
//*      FTPGENPN  01.00  2018/11/14 21:21:58   482    FTPGEN       *   FILE 981
//*      FTPGENSK  01.00  2018/11/14 21:21:58   445    FTPGEN       *   FILE 981
//*      RACFRORG  01.01  2018/11/15 16:56:00   490    RACFRRG      *   FILE 981
//*      REORGJ01  01.00  2018/11/14 21:30:03    12    RACFRRG      *   FILE 981
//*      REORGJ02  01.00  2018/11/14 21:30:03    12    RACFRRG      *   FILE 981
//*      SVCLIST   01.00  2018/11/14 21:46:00   252    SVCLIST      *   FILE 981
//*                                                                 *   FILE 981
//***FILE 982 is from Clem Clarke and is the JOL package, which     *   FILE 982
//*           allows for submission of jobs without using JCL.      *   FILE 982
//*           JOL is also a command language.  The following is     *   FILE 982
//*           an introduction to JOL, taken from the Preface of     *   FILE 982
//*           its Concepts and Facilities manual.                   *   FILE 982
//*                                                                 *   FILE 982
//*      Jol effectively replaces the JCL interpreter and quite     *   FILE 982
//*      a lot of the initiator when using Dynamic Allocation       *   FILE 982
//*      instead of JCL.  It is part compiler with PL/I style       *   FILE 982
//*      syntax, and ASM macro capabilities, and part run time      *   FILE 982
//*      monitor.                                                   *   FILE 982
//*                                                                 *   FILE 982
//*         Nothing I say here, does justice to the enormity        *   FILE 982
//*         of this great work.  Please see Clem's web site         *   FILE 982
//*         for much more detail.  But I think I've captured        *   FILE 982
//*         the guts, here, in the contents of this file pds.       *   FILE 982
//*                                                                 *   FILE 982
//*         I hope I have done some justice to this enormous        *   FILE 982
//*         and extremely significant software package by           *   FILE 982
//*         putting it on the CBT Tape.  Thank you Clem, for        *   FILE 982
//*         letting us post it.                                     *   FILE 982
//*                                                                 *   FILE 982
//*           web site:  www.oscar-jol.com                          *   FILE 982
//*                                                                 *   FILE 982
//*           email   :  clementclarke@OZEMAIL.COM.AU               *   FILE 982
//*                                                                 *   FILE 982
//*                         Introduction                            *   FILE 982
//*                                                                 *   FILE 982
//*      Jol is a high-level, English-like and Universal COMMAND    *   FILE 982
//*      LANGUAGE. A Command Language is the highest level of       *   FILE 982
//*      communication between the User and the computer. Command   *   FILE 982
//*      languages tell the computer what to do, when to do it,     *   FILE 982
//*      and what to do with the result. Programming Languages,     *   FILE 982
//*      such as PL/I and COBOL, give the computer detailed         *   FILE 982
//*      instructions on how to do it.  Use of Command Languages    *   FILE 982
//*      spreads across all areas of Data Processing.  Without      *   FILE 982
//*      them, we have no means of communicating with the           *   FILE 982
//*      Operating System.  Inefficient use of a Command Language   *   FILE 982
//*      can have disastrous effects on corporations' computing     *   FILE 982
//*      resources.                                                 *   FILE 982
//*                                                                 *   FILE 982
//*      Today, not all computer Users are Computer Technicians.    *   FILE 982
//*      Therefore, it is extremely important that the Command      *   FILE 982
//*      Language used is simple and easy to use.  Additionally,    *   FILE 982
//*      with the increasing expansion of computer resources and    *   FILE 982
//*      the growing number of software packages being acquired     *   FILE 982
//*      by each installation, the Computer Users are               *   FILE 982
//*      increasingly needing more power and flexibility in their   *   FILE 982
//*      Command languages. Jol is unique in meeting these new      *   FILE 982
//*      standards for Command Languages.                           *   FILE 982
//*                                                                 *   FILE 982
//*      Jol uses a simple, flexible, concise and English-like      *   FILE 982
//*      command structure to communicate with your operating       *   FILE 982
//*      system and to effectively control data, programs, and      *   FILE 982
//*      events. It is easy to learn, easy to use, and easy to      *   FILE 982
//*      change. With these features, Jol allows Users to better    *   FILE 982
//*      utilize their skills, experience, and creative abilities   *   FILE 982
//*      enabling them to be more proficient than was ever          *   FILE 982
//*      previously possible.                                       *   FILE 982
//*                                                                 *   FILE 982
//*      Jol is written in a procedural format that is already      *   FILE 982
//*      familiar to Programmers using programming languages such   *   FILE 982
//*      as COBOL, PASCAL or PL/I. The procedural format provides   *   FILE 982
//*      you with the flexibility to solve the most complex type    *   FILE 982
//*      of requirements in a logical straightforward manner. By    *   FILE 982
//*      combining the flexibilities of these modern procedural     *   FILE 982
//*      languages with many new features, Jol provides a simple,   *   FILE 982
//*      powerful, and flexible INTERFACE to the operating system.  *   FILE 982
//*      In addition, Jol coexists with JCL, and interfaces with    *   FILE 982
//*      contemporary development techniques, such as top down      *   FILE 982
//*      design, step level refinement, structured coding, and      *   FILE 982
//*      prototyping. Jol's many features focus on the End User,    *   FILE 982
//*      programming maintenance and development, production        *   FILE 982
//*      (e.g., operations and scheduling), management control,     *   FILE 982
//*      machine utilization, job scheduling and job networking.    *   FILE 982
//*                                                                 *   FILE 982
//*      Jol has some 40 commands. These commands can be combined   *   FILE 982
//*      with themselves and with any other program to form new     *   FILE 982
//*      commands tailored specifically to your installation.  With *   FILE 982
//*      Jol you can also execute commands from within commands,    *   FILE 982
//*      adding greatly to the flexibility and simplicity of        *   FILE 982
//*      procedures. This openendedness is one of the highlights of *   FILE 982
//*      Jol.                                                       *   FILE 982
//*                                                                 *   FILE 982
//*      Jol has many other highlights. Management can use Jol to   *   FILE 982
//*      monitor jobs and trap inefficiencies before jobs begin     *   FILE 982
//*      to execute. Systems Programmers can alter the              *   FILE 982
//*      inefficient code and make it more efficient through        *   FILE 982
//*      Exits. Data set protection facilities are also offered.    *   FILE 982
//*                                                                 *   FILE 982
//*      The data set attribute data base allows the data manager   *   FILE 982
//*      great flexibility - data set attributes can be changed     *   FILE 982
//*      without altering any of the Jol command language           *   FILE 982
//*      scripts.                                                   *   FILE 982
//*                                                                 *   FILE 982
//***FILE 983 is from (the late) Ken Tomiak and contains his MSIC   *   FILE 983
//*           system for installing software packages, such as      *   FILE 983
//*           those coming from the CBT Tape.  Please read his      *   FILE 983
//*           description of the system, below.                     *   FILE 983
//*                                                                 *   FILE 983
//*           email:   sbgolob@cbttape.org                          *   FILE 983
//*                                                                 *   FILE 983
//*        Mainframe Software Installation Customizer (MSIC)        *   FILE 983
//*                                                                 *   FILE 983
//*     This FreeWare Tool is a generalized and extensible ISPF     *   FILE 983
//*     Dialog that aids in installing and customizing the type     *   FILE 983
//*     of FreeWare you might develop and contribute to the         *   FILE 983
//*     CBTTape.Org respository.                                    *   FILE 983
//*                                                                 *   FILE 983
//*     - You build #1TASKS that the user should execute in the     *   FILE 983
//*       proper sequence.                                          *   FILE 983
//*                                                                 *   FILE 983
//*     - You build #2VARS for any variable replacement needed      *   FILE 983
//*       in members.                                               *   FILE 983
//*                                                                 *   FILE 983
//*     - You build #3EDIT to identify which members are            *   FILE 983
//*       eligible for variable replacement.                        *   FILE 983
//*                                                                 *   FILE 983
//*     - You do the TRANSMIT on your PDS data sets and then        *   FILE 983
//*       copy the IDTF into your install PDS.                      *   FILE 983
//*                                                                 *   FILE 983
//*     - You identify those members in #2VARS and MSIC can do      *   FILE 983
//*       the RECEIVE for the installer.                            *   FILE 983
//*                                                                 *   FILE 983
//*     The basic tasks used to extract IDTF and replace            *   FILE 983
//*     variables are built into MSIC. If you have a need for       *   FILE 983
//*     more than that then either provide a sample JOB or build    *   FILE 983
//*     your own external routine.                                  *   FILE 983
//*                                                                 *   FILE 983
//***FILE 984 is a collection of useful REXX execs from Ken Tomiak. *   FILE 984
//*                                                                 *   FILE 984
//*           Documentation for many of them, is in IEBUPDTE        *   FILE 984
//*           (actually PDSLOAD) format, in member $README$.        *   FILE 984
//*                                                                 *   FILE 984
//*           For some of the execs, you will need the panels in    *   FILE 984
//*           member $PANELS$ to be copied into your ISPPLIB        *   FILE 984
//*           concatenation.                                        *   FILE 984
//*                                                                 *   FILE 984
//*           email:  sbgolob@cbttape.org                           *   FILE 984
//*                                                                 *   FILE 984
//***FILE 985 is from Marius Lewin and contains a collection of     *   FILE 985
//*           REXX execs, primarily.                                *   FILE 985
//*                                                                 *   FILE 985
//*           email:  mlewin@ymail.com                              *   FILE 985
//*           email:  marius.lewin@gmail.com                        *   FILE 985
//*                                                                 *   FILE 985
//*       Title: Rexx with Unix commands or executing another       *   FILE 985
//*              REXX given as a parameter.                         *   FILE 985
//*                                                                 *   FILE 985
//*       Author: Marius Lewin.                                     *   FILE 985
//*                                                                 *   FILE 985
//*       This summary is divided in three parts:                   *   FILE 985
//*       1) REXX executing z/OS Unix commands.                     *   FILE 985
//*       2) REXX executing another REXX given as parameter.        *   FILE 985
//*       3) Miscellaneous REXX.                                    *   FILE 985
//*                                                                 *   FILE 985
//*       Please see member $$README for much more detailed         *   FILE 985
//*       information.                                              *   FILE 985
//*                                                                 *   FILE 985
//***FILE 986 is from Willy Jensen, and contains programs to make   *   FILE 986
//*           the TSO PUTLINE interface easier to program.  If you  *   FILE 986
//*           are using the TSO PUTLINE interface for output from   *   FILE 986
//*           TSO commands (instead of the TPUT interface), then    *   FILE 986
//*           you can capture the output (and optionally display    *   FILE 986
//*           it fullscreen.                                        *   FILE 986
//*                                                                 *   FILE 986
//*           email:  Willy Jensen<willy.h.jensen@outlook.com>      *   FILE 986
//*                                                                 *   FILE 986
//***FILE 987 is from Sam Golob and contains a few utilities        *   FILE 987
//*           which were rescued from the NaSPA VIP utilities tape  *   FILE 987
//*           of "old" (around 1990 or before).  They either didn't *   FILE 987
//*           work at all, or they didn't work well, under z/OS.    *   FILE 987
//*           Now (at least) they work.                             *   FILE 987
//*                                                                 *   FILE 987
//*           Of course:  Thanks to Scott Sherer, president of      *   FILE 987
//*                       NaSPA.                                    *   FILE 987
//*                                                                 *   FILE 987
//*                       And thanks to Marty Kuntz, who managed    *   FILE 987
//*                       the contents of the NaSPA VIP tape and    *   FILE 987
//*                       its construction, for many years.         *   FILE 987
//*                                                                 *   FILE 987
//*           email:  sbgolob@cbttape.org                           *   FILE 987
//*                                                                 *   FILE 987
//*       These utilities (so far) are:                             *   FILE 987
//*                                                                 *   FILE 987
//*       WAITT    - A utility to adjust the timeout time on your   *   FILE 987
//*                  TSO session, or make it not time out at all.   *   FILE 987
//*                                                                 *   FILE 987
//*       SMFMON   - A TSO command to report the status of your     *   FILE 987
//*                  system's SMF datasets.                         *   FILE 987
//*                                                                 *   FILE 987
//*       DSMF     - A "better" utility to report on SMF datasets   *   FILE 987
//*                  which came from CBT File 300.  Included here   *   FILE 987
//*                  in case you want to work on SMFMON to improve  *   FILE 987
//*                  it further.                                    *   FILE 987
//*                                                                 *   FILE 987
//***FILE 988 is from Shmuel (Seymour) Metz and contains his        *   FILE 988
//*           OS/360 Storage ZAP program called MZAP.               *   FILE 988
//*           I realize that not too many people run OS/360         *   FILE 988
//*           or SVS nowadays, although some people do run          *   FILE 988
//*           a OS/360 Turnkey system under Hercules.               *   FILE 988
//*                                                                 *   FILE 988
//*       "MOREZAP (MZAP) is a replacement for COREZAP0 that can    *   FILE 988
//*       locate csects by name in the jobpack, linkpack and        *   FILE 988
//*       nucleus. It can be assembled for OS/360 or for OS/VS2     *   FILE 988
//*       R1 (SVS); it may require changes for OS/VS1. It can       *   FILE 988
//*       locate various system control blocks and can display      *   FILE 988
//*       storage either as raw hex+EBCDIC or with opcode           *   FILE 988
//*       deciphering for, e.g., S/360, S/370 and compatibility     *   FILE 988
//*       features.  There is a COPY file that must be tailored     *   FILE 988
//*       prior to assembly.  MZAP process all VER statements       *   FILE 988
//*       prior to any ZAP statements, relying on SSM for           *   FILE 988
//*       serialization.                                            *   FILE 988
//*                                                                 *   FILE 988
//*       MZAP can also follow pointer chains.                      *   FILE 988
//*                                                                 *   FILE 988
//*       The code would need significant changes to support MVS;   *   FILE 988
//*       feel free to contact Shmuel (Seymour J.) Metz             *   FILE 988
//*       <smetz3@gmu.edu> if you wish guidance."                   *   FILE 988
//*                                                                 *   FILE 988
//*       Member MZAPMVS supplies some notes from Shmuel Metz       *   FILE 988
//*       advising some of the things needed to adapt the code      *   FILE 988
//*       either to MVS 3.8 or to z/OS.                             *   FILE 988
//*                                                                 *   FILE 988
//*       The material is being placed here in the hope that:       *   FILE 988
//*                                                                 *   FILE 988
//*       1.  A few of the OS/360 buffs might find it useful.       *   FILE 988
//*                                                                 *   FILE 988
//*       2.  Someone might modernize it, perhaps to the MVS 3.8    *   FILE 988
//*           level, or even to z/OS.  See member $$NOTE01.         *   FILE 988
//*                                                                 *   FILE 988
//*       email:  Shmuel (Seymour J.) Metz<smetz3@gmu.edu>          *   FILE 988
//*                                                                 *   FILE 988
//*       web  :  http://mason.gmu.edu/~smetz3                      *   FILE 988
//*                                                                 *   FILE 988
//***FILE 989 is from Willy Jensen, and contains a fantastic        *   FILE 989
//*           package called FINDMEM that can take a member name    *   FILE 989
//*           (or masked name) and tell you all the datasets in     *   FILE 989
//*           the entire system, which contain that name, or        *   FILE 989
//*           masked name, as a pds member.  I've never seen a      *   FILE 989
//*           package like this, at least for free.                 *   FILE 989
//*                                                                 *   FILE 989
//*           Note that this package is dated 2019-06-15, which     *   FILE 989
//*           contains a fix for missing some datasets in SMF.      *   FILE 989
//*                                                                 *   FILE 989
//*           email:  willy.h.jensen@outlook.com                    *   FILE 989
//*                                                                 *   FILE 989
//*       This package contains a user manual in PDF format,        *   FILE 989
//*       member FINDMEMP.  See member WFMDOC for setup             *   FILE 989
//*       instructions.                                             *   FILE 989
//*                                                                 *   FILE 989
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 989
//*                                                                 *   FILE 989
//*       Description of a Sample Panel:                            *   FILE 989
//*                                                                 *   FILE 989
//*                     Find Member (WFM4)            Row 1 from 6  *   FILE 989
//*  Cmd =>                                                   PAGE  *   FILE 989
//*                                                                 *   FILE 989
//*  Membername ICKDSF    name or name* or mask (mask chars % and   *   FILE 989
//*             --------  *) if mask in pos 1 then expect search    *   FILE 989
//*                       to take a while                           *   FILE 989
//*                                                                 *   FILE 989
//*  Linecmds: Info Browse Edit BrowseDataset EditDataset Pdsmain   *   FILE 989
//*            View ViewDataset                                     *   FILE 989
//*                                                                 *   FILE 989
//*     Member   Dataset               Volume User     Date     Cat *   FILE 989
//*     ICKDSF   SBGOLOB.LIB.CNTL      MVSR01 SBGOLOB  20161001 Y   *   FILE 989
//*     ICKDSF   IBMUSER.B.CNTL        MVSR01 SBGOLOB  20070905 Y   *   FILE 989
//*     ICKDSF   IBMUSER.B.TEST        MVSR03 SBGOLOB  20070905 Y   *   FILE 989
//*     ICKDSF   SYS1.LINKLIB          MVSRES          20181226 Y   *   FILE 989
//*     ICKDSF   WJENSEN.RPF.CNTL      MVSR02 WJENSEN  20190103 Y   *   FILE 989
//*                                                                 *   FILE 989
//*  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  *   FILE 989
//*                                                                 *   FILE 989
//*   The display shows all occurrences of the member name on the   *   FILE 989
//*   entire system, as a member of a pds.  And you have a choice   *   FILE 989
//*   to do any of the commands mentioned as "linecmds" to operate  *   FILE 989
//*   on the dataset, or the member itself.                         *   FILE 989
//*                                                                 *   FILE 989
//***FILE 990 is from Lionel Dyck, and contains a guide,            *   FILE 990
//*           hopefully an expanding one, to help ISPF              *   FILE 990
//*           developers with tricks and coding examples.           *   FILE 990
//*                                                                 *   FILE 990
//*           Version 1.10  -  February 19, 2022                    *   FILE 990
//*                                                                 *   FILE 990
//*           email:  lbdyck@gmail.com                              *   FILE 990
//*                                                                 *   FILE 990
//*           All of the documentation and this data can be         *   FILE 990
//*           found and downloaded from www.lbdsoftware.com.        *   FILE 990
//*                                                                 *   FILE 990
//*           To help you out, we have RECEIVEd all the coding      *   FILE 990
//*           examples into this pds. Documentation may be found    *   FILE 990
//*           at www.lbdsoftware.com in PDF, ePUB, Mobi, and DOCX.  *   FILE 990
//*                                                                 *   FILE 990
//*           Contributions from others are appreciated.            *   FILE 990
//*                                                                 *   FILE 990
//*           Contributors:                                         *   FILE 990
//*              Bob Bridges                                        *   FILE 990
//*              Bruce Koss                                         *   FILE 990
//*              John Kalinich                                      *   FILE 990
//*              Willy Jensen                                       *   FILE 990
//*                                                                 *   FILE 990
//*           Contributors who didn't know they contributed:        *   FILE 990
//*              Albert Ferguson                                    *   FILE 990
//*              Bill Godgrey                                       *   FILE 990
//*              Doug Nadel                                         *   FILE 990
//*              John McKown                                        *   FILE 990
//*              Marvin Knight                                      *   FILE 990
//*              Robert Prins                                       *   FILE 990
//*              Thomas Conley                                      *   FILE 990
//*                                                                 *   FILE 990
//*           Enjoy......                                           *   FILE 990
//*                                                                 *   FILE 990
//*       NAME       VER.MOD   LAST MODIFIED     SIZE   ID          *   FILE 990
//*       $$$VER      01.09   2022/02/19 11:13      1 VER           *   FILE 990
//*       $$README    01.16   2022/02/19 11:17    132 README        *   FILE 990
//*       $$XMIT      01.02   2020/01/26 18:23     13 README        *   FILE 990
//*       $DEVCPY     01.01   2019/04/18 14:03    122 REXX          *   FILE 990
//*       $DEVCPYP    01.01   2019/04/10 08:00     50 PANEL         *   FILE 990
//*       $DEVISPF    01.04   2019/06/05 06:08    258 $RUNME$       *   FILE 990
//*       $DEVPH      01.01   2019/04/02 13:15     31 PANEL         *   FILE 990
//*       $DEVPP      01.01   2019/04/02 13:14     23 PANEL         *   FILE 990
//*       $DEVPX      01.01   2019/03/29 10:35     29 PANEL         *   FILE 990
//*       #RXFORM     01.01   2019/03/29 06:46    515 XMIT          *   FILE 990
//*       #TRYIT      03.04   2019/07/22 06:25   1354 XMIT          *   FILE 990
//*       CMT         01.01   2019/03/29 06:58   1287 REXX          *   FILE 990
//*       DEVTIPS#    01.02   2020/05/13 09:47     21 PDF           *   FILE 990
//*       DEVTIPS@    01.02   2020/05/13 09:47     12 DOCX          *   FILE 990
//*       JCBAT1      01.01   2019/03/29 10:36     22 JCL           *   FILE 990
//*       JCBAT2      01.01   2019/03/29 10:37     21 JCL           *   FILE 990
//*       LOADISPF    01.01   2019/01/25 10:32    324 REXX          *   FILE 990
//*       PNABC       01.01   2019/03/29 10:37     23 PANEL         *   FILE 990
//*       PNAREA      01.01   2019/04/02 09:51    250 PANEL         *   FILE 990
//*       PNDYN       01.01   2019/03/27 13:32     23 PANEL         *   FILE 990
//*       PNDYNTBL    01.01   2020/04/11 08:47     16 PANEL         *   FILE 990
//*       PNDYNTP     01.04   2020/04/12 12:53     21 PANEL         *   FILE 990
//*       PNEDITHL    01.03   2019/12/26 13:41    137 PANEL         *   FILE 990
//*       PNFLDH      01.01   2019/03/29 10:38     21 PANEL         *   FILE 990
//*       PNFLDH1     01.01   2019/03/29 10:38     10 PANEL         *   FILE 990
//*       PNFLDH2     01.01   2019/03/29 10:38     10 PANEL         *   FILE 990
//*       PNNUMC      01.00   2019/10/07 10:05     17 PANEL         *   FILE 990
//*       PNPNS       01.01   2019/03/29 10:38     38 PANEL         *   FILE 990
//*       PNPOP       01.01   2019/03/29 10:38     16 PANEL         *   FILE 990
//*       PNPOPV      01.02   2019/10/22 10:34     13 PANEL         *   FILE 990
//*       PNPREXX     01.06   2020/01/31 09:33     47 PANEL         *   FILE 990
//*       PNPROG1     01.01   2019/03/29 10:39     12 PANEL         *   FILE 990
//*       PNPROG2     01.01   2019/03/29 10:39     11 PANEL         *   FILE 990
//*       PNSCRL      01.01   2019/03/29 10:39     22 PANEL         *   FILE 990
//*       PNTAB       01.02   2019/11/04 07:13     37 PANEL         *   FILE 990
//*       PNVDSN      01.05   2020/04/12 14:50     30 PANEL         *   FILE 990
//*       PNWJTBD2    01.00   2022/02/19 15:57     20 PANEL         *   FILE 990
//*       PNWJTBD3    01.00   2022/02/19 15:57     20 PANEL         *   FILE 990
//*       PNWJTBD4    01.00   2022/02/19 15:57     22 PANEL         *   FILE 990
//*       PNWJTBL4    01.00   2022/02/19 15:57     27 PANEL         *   FILE 990
//*       RXABC       01.01   2019/04/01 14:25     12 REXX          *   FILE 990
//*       RXAREA      01.01   2019/03/29 10:41      9 REXX          *   FILE 990
//*       RXCENTER    01.01   2019/03/29 10:42     49 REXX          *   FILE 990
//*       RXCMDS      01.01   2019/04/10 07:15     13 REXX          *   FILE 990
//*       RXCOMMA     01.00   2022/02/19 15:57     18 REXX          *   FILE 990
//*       RXDOALL     01.02   2019/07/22 10:27     55 REXX          *   FILE 990
//*       RXDYN       01.01   2019/04/01 12:47     51 REXX          *   FILE 990
//*       RXDYNTBL    01.14   2020/04/12 12:59    191 REXX          *   FILE 990
//*       RXEDITHL    01.03   2019/12/26 13:20     10 REXX          *   FILE 990
//*       RXEM        01.01   2019/04/17 09:13     29 MACRO         *   FILE 990
//*       RXEMAC      01.01   2019/03/29 10:43     18 REXX          *   FILE 990
//*       RXEMACE     01.01   2019/03/29 10:43     41 REXX          *   FILE 990
//*       RXEME       01.01   2019/04/08 12:01     24 MACRO         *   FILE 990
//*       RXEMS       01.01   2019/04/08 12:00     22 MACRO         *   FILE 990
//*       RXEMTRY     01.01   2019/04/08 12:03     12 REXX          *   FILE 990
//*       RXFLD       01.01   2019/03/29 10:43     10 REXX          *   FILE 990
//*       RXISPTBL    01.00   2022/02/19 15:57    842 REXX          *   FILE 990
//*       RXIVAR      01.00   2019/05/06 07:15     10 REXX          *   FILE 990
//*       RXLISPF     01.01   2019/10/23 06:29    433 REXX          *   FILE 990
//*       RXLMD       01.01   2019/03/29 10:43     58 REXX          *   FILE 990
//*       RXLMM       01.01   2019/03/29 10:44     72 REXX          *   FILE 990
//*       RXMEDHL     01.00   2019/12/26 10:59     17 REXX          *   FILE 990
//*       RXMSG       01.01   2019/03/29 10:45     15 REXX          *   FILE 990
//*       RXNOTEPD    01.01   2020/04/13 09:54     82 REXX          *   FILE 990
//*       RXNUMC      01.00   2019/10/07 09:34     18 REXX          *   FILE 990
//*       RXNUMCE     01.02   2019/10/07 10:10     13 REXX          *   FILE 990
//*       RXPNS       01.01   2019/03/29 10:45     30 REXX          *   FILE 990
//*       RXPNSL      01.01   2019/03/29 10:46    402 REXX          *   FILE 990
//*       RXPOP       01.02   2019/04/23 06:18      9 REXX          *   FILE 990
//*       RXPOPDO     01.01   2019/04/03 07:11     82 REXX          *   FILE 990
//*       RXPOPKEY    01.07   2019/10/22 10:40     37 REXX          *   FILE 990
//*       RXPOPM      01.01   2019/04/03 07:06     72 MACRO         *   FILE 990
//*       RXPREXX     01.01   2019/03/29 10:46     26 REXX          *   FILE 990
//*       RXPROG1     01.01   2019/03/29 10:47     15 REXX          *   FILE 990
//*       RXPROG2     01.01   2019/03/29 10:47     46 REXX          *   FILE 990
//*       RXRAND      01.03   2020/06/01 06:29     35 REXX          *   FILE 990
//*       RXRVAR      01.00   2019/05/06 07:16      6 REXX          *   FILE 990
//*       RXSCRL      01.01   2019/03/29 10:47     13 REXX          *   FILE 990
//*       RXSHRVAR    01.06   2021/06/07 07:38    104 REXX          *   FILE 990
//*       RXSKLCMD    01.01   2019/04/16 10:03     11 REXX          *   FILE 990
//*       RXSKLRX     01.02   2019/04/23 09:37      9 REXX          *   FILE 990
//*       RXSKLRXE    01.03   2019/05/02 08:45      9 REXX          *   FILE 990
//*       RXSKLRXV    01.05   2019/09/27 16:48     10 REXX          *   FILE 990
//*       RXSTEM      01.01   2019/03/29 10:48     36 REXX          *   FILE 990
//*       RXSTEME     01.01   2019/03/29 10:48     12 REXX          *   FILE 990
//*       RXSTEMS     01.00   2019/05/07 09:39     22 REXX          *   FILE 990
//*       RXTAB       01.13   2020/01/25 10:39    427 REXX          *   FILE 990
//*       RXTABLE     01.08   2020/05/04 07:27    434 REXX          *   FILE 990
//*       RXTM        01.05   2020/04/01 09:33     21 REXX          *   FILE 990
//*       RXTSOMAC    01.12   2020/04/02 04:27     26 SLBD          *   FILE 990
//*       RXVDSN      01.01   2019/03/29 10:49     15 REXX          *   FILE 990
//*       RXWJTBD0    01.00   2022/02/19 15:57     57 REXX          *   FILE 990
//*       RXWJTBD2    01.00   2022/02/19 15:57     55 REXX          *   FILE 990
//*       RXWJTBD3    01.00   2022/02/19 15:57    113 REXX          *   FILE 990
//*       RXWJTBD4    01.00   2022/02/19 15:57     85 REXX          *   FILE 990
//*       SAMPGIT     01.03   2019/12/26 13:44     39 SAMPLE        *   FILE 990
//*       SKCMDS      01.01   2019/04/16 09:54     12 SKEL          *   FILE 990
//*       SKREXX      01.00   2019/04/23 09:36     28 SKEL          *   FILE 990
//*       SKREXXE     01.01   2019/05/02 08:46     25 SKEL          *   FILE 990
//*       SKREXXV     01.00   2019/09/27 16:42     18 SKEL          *   FILE 990
//*       XISPTBL     01.01   2020/08/04 17:06    842 SAMPLE        *   FILE 990
//*                                                                 *   FILE 990
//***FILE 991 is from John Hamlet and contains programs that are    *   FILE 991
//*           useful.  Currently it contains a program to           *   FILE 991
//*           temporarily install an SVC.                           *   FILE 991
//*                                                                 *   FILE 991
//*           email:  jrhamlet@bellsouth.net                        *   FILE 991
//*                                                                 *   FILE 991
//*           email:  sbgolob@cbttape.org    (alternate support)    *   FILE 991
//*                                                                 *   FILE 991
//*       Description of members:                                   *   FILE 991
//*                                                                 *   FILE 991
//*       SVCUPDTE - Temporarily install an SVC while this job is   *   FILE 991
//*                  running.  It runs and waits.                   *   FILE 991
//*                  Then it undoes itself, and the SVC install,    *   FILE 991
//*                  when you cancel or stop the job.  You should   *   FILE 991
//*                  use an unused jobname when running this batch  *   FILE 991
//*                  job, so you don't get a "duplicate jobname"    *   FILE 991
//*                  situation.                                     *   FILE 991
//*                                                                 *   FILE 991
//*                  Stopping the job with a P jobname is           *   FILE 991
//*                  the preferred method of ending the install.    *   FILE 991
//*                  Cancel will work, but you will get a S522      *   FILE 991
//*                  instead of a RC = 0.                           *   FILE 991
//*                                                                 *   FILE 991
//*                  This version requires some special RACF        *   FILE 991
//*                  profiles to be in place, to restrict users.    *   FILE 991
//*                  Otherwise it won't run.                        *   FILE 991
//*                                                                 *   FILE 991
//*       SVCUPDTX - Temporarily install an SVC while this job is   *   FILE 991
//*                  running.  It runs and waits.                   *   FILE 991
//*                  Then it undoes itself, and the SVC install,    *   FILE 991
//*                  when you cancel or stop the job.  This         *   FILE 991
//*                  version bypasses some RACF checks, so you      *   FILE 991
//*                  can run it if your id is SPECIAL, and you      *   FILE 991
//*                  didn't install any of the RACF profiles it     *   FILE 991
//*                  normally needs.                                *   FILE 991
//*                                                                 *   FILE 991
//***FILE 992 is a collection of code snippets (not necessarily     *   FILE 992
//*           executable as-is) which have been used in programs    *   FILE 992
//*           to limit their use, for safety and security reasons.  *   FILE 992
//*           If you only want certain people to use the code, or   *   FILE 992
//*           if you require that a user have access to a certain   *   FILE 992
//*           RACF profile, etc. etc., here is some code that you   *   FILE 992
//*           can fit into existing programs to accomplish that     *   FILE 992
//*           goal.  Also, some narratives (without code) have      *   FILE 992
//*           been included, explaining the rationale behind        *   FILE 992
//*           either protecting code from unauthorized use, or to   *   FILE 992
//*           show how to bypass existing protection, as well.      *   FILE 992
//*           It all depends on what you need, or what you want     *   FILE 992
//*           to do.                                                *   FILE 992
//*                                                                 *   FILE 992
//*       Members in this PDS:                                      *   FILE 992
//*                                                                 *   FILE 992
//*       IMPLEXEC - Code which makes the unauthorized user think   *   FILE 992
//*                  that the command doesn't exist.                *   FILE 992
//*                                                                 *   FILE 992
//*       IDS8CHAR - Notes on how to convert PSCBUSER dependent     *   FILE 992
//*                  code, which identifies the user's TSO id,      *   FILE 992
//*                  when 8-character userids are in effect, and    *   FILE 992
//*                  you're running under one of these.  Then,      *   FILE 992
//*                  the PSCBUSER field isn't valid.                *   FILE 992
//*                                                                 *   FILE 992
//*       RACRO01  - Code to use RACROUTE to require READ access    *   FILE 992
//*                  to FACILITY class profiles, in order to run    *   FILE 992
//*                  the TSO command.                               *   FILE 992
//*                                                                 *   FILE 992
//*       RACRO02  - Code to use RACROUTE to require READ access    *   FILE 992
//*                  to FACILITY class profiles, in order to run    *   FILE 992
//*                  a batch program.                               *   FILE 992
//*                                                                 *   FILE 992
//***FILE 993 is from Robert Sample and contains a COBOL program    *   FILE 993
//*           to read many types of SMF records.  This is unusual   *   FILE 993
//*           in that COBOL is not usually the language of choice   *   FILE 993
//*           for this purpose, but the program works well.         *   FILE 993
//*                                                                 *   FILE 993
//*           email:  rsample636@gmail.com                          *   FILE 993
//*                                                                 *   FILE 993
//*     Program Description:                                        *   FILE 993
//*                                                                 *   FILE 993
//*     This program started in 2011 as a concept program to        *   FILE 993
//*     determine if COBOL could process SMF records.  It turns     *   FILE 993
//*     out that as of July 2019, the only data that COBOL          *   FILE 993
//*     cannot handle is the extended STCKE format 16-byte time     *   FILE 993
//*     used in the type 126 extended SMF record.  Conversion of    *   FILE 993
//*     STCKE values is done by an Assembler program CONVETOD.      *   FILE 993
//*     I could probably write COBOL to handle this field, but      *   FILE 993
//*     why bother when STCKCONV is available?                      *   FILE 993
//*                                                                 *   FILE 993
//*     There are comments in the code talking about which          *   FILE 993
//*     record types can be processed.  The DB2 record types 100    *   FILE 993
//*     and 101 have been placed into working storage but 102       *   FILE 993
//*     has not been into this program (yet).  I have not been      *   FILE 993
//*     able to write or test the DISPLAY logic for these           *   FILE 993
//*     records as I don't have access to any DB2 system on a       *   FILE 993
//*     mainframe.                                                  *   FILE 993
//*                                                                 *   FILE 993
//*     If the CICS records are compressed, they need to be         *   FILE 993
//*     uncompressed with DFH$MOLT before running them into this    *   FILE 993
//*     program as I don't have the decompression algorithm         *   FILE 993
//*     implemented at this time.  My understanding is that DB2     *   FILE 993
//*     also compresses records, so they would also need to be      *   FILE 993
//*     decompressed before processing by READSMF.                  *   FILE 993
//*                                                                 *   FILE 993
//*     Also, please note that this program is based upon my        *   FILE 993
//*     understanding of the SMF record types as presented in       *   FILE 993
//*     the System Management Facility manual for the various       *   FILE 993
//*     releases of z/OS.  Any errors in interpretation are         *   FILE 993
//*     mine.  And I haven't seen any examples of the relocation    *   FILE 993
//*     records in any SMF records so far, so I cannot state        *   FILE 993
//*     that my interpretation of them is correct.                  *   FILE 993
//*                                                                 *   FILE 993
//*     To run this program, assemble CONVETOD into a load          *   FILE 993
//*     library (either PDS or PDSE should work).  Job CONVEASM     *   FILE 993
//*     should work for this.  Then compile READSMF using           *   FILE 993
//*     READSMFC job.  I route the compiler output to a data set    *   FILE 993
//*     as it runs about 1,090,000 lines right now.  The            *   FILE 993
//*     execution JCL is in READSMFR or READSMFX -- to show         *   FILE 993
//*     different options for displaying data.  Update the job      *   FILE 993
//*     to point to your unloaded SMF data (if you use log          *   FILE 993
//*     stream use IFASMFDL to dump the SMF data into a             *   FILE 993
//*     VB,32756,32760 data set) and change the parameters to       *   FILE 993
//*     display the desired record type.  When using the display    *   FILE 993
//*     record type function, you may need to route SYSOUT to a     *   FILE 993
//*     data set since the DISPLAY output can be very lengthy.      *   FILE 993
//*     Some of the record types can generate multiple thousands    *   FILE 993
//*     of lines of display for each input record since one         *   FILE 993
//*     field is displayed per output line.  The load module is     *   FILE 993
//*     X'3D5B5C' bytes or 4,021,084 in decimal.                    *   FILE 993
//*                                                                 *   FILE 993
//*     Also, when you look through the source code you will        *   FILE 993
//*     find occasional DEBUG DISPLAY statements, generally         *   FILE 993
//*     commented out.  When debugging I'll put in extra DISPLAY    *   FILE 993
//*     statements and when the issue is resolved I'll comment      *   FILE 993
//*     them out since it is entirely possible that I'll need to    *   FILE 993
//*     revisit that section of code as testing proceeds.           *   FILE 993
//*                                                                 *   FILE 993
//***FILE 994 is from Sam Golob (indirectly by way of Jeff Broido   *   FILE 994
//*           and Bill Godfrey), and contains two programs to dump  *   FILE 994
//*           the contents of a load module in hex, so that you     *   FILE 994
//*           can see its contents.                                 *   FILE 994
//*                                                                 *   FILE 994
//*           This will help you "see" all the data within a load   *   FILE 994
//*           module.                                               *   FILE 994
//*                                                                 *   FILE 994
//*           The dump is in an ISPF-like hex format, with ruler.   *   FILE 994
//*                             --------- --- ------  ---- -----    *   FILE 994
//*           email:   sbgolob@cbttape.org                          *   FILE 994
//*                                                                 *   FILE 994
//*           Important Note:                                       *   FILE 994
//*           --------- ----                                        *   FILE 994
//*           If you invoke LISTMOD or LISTMODD without parameters, *   FILE 994
//*           then you will dump the ENTIRE MODULE from the         *   FILE 994
//*           beginning to the end.  The header information         *   FILE 994
//*           (see below) will help you locate the entry point      *   FILE 994
//*           of the module displayed, within the dump of the       *   FILE 994
//*           entire load module.                                   *   FILE 994
//*                                                                 *   FILE 994
//*           If you invoke LISTMOD or LISTMODD with the parameter  *   FILE 994
//*           "ENTRY", then the display will only go from the       *   FILE 994
//*           entry point until the physical end of the module.     *   FILE 994
//*                                                                 *   FILE 994
//*           Two programs which are included:                      *   FILE 994
//*                                                                 *   FILE 994
//*           LISTMOD, which dumps  64 characters of the load       *   FILE 994
//*           module per line, and counts the displacements in      *   FILE 994
//*           hexadecimal numbers.                                  *   FILE 994
//*                                                                 *   FILE 994
//*           LISTMODD, which dumps 100 characters of the load      *   FILE 994
//*           module per line, and counts the displacements in      *   FILE 994
//*           decimal numbers.  (LISTMOD with DECIMAL display)      *   FILE 994
//*                                                                 *   FILE 994
//*           Enough information is included in the headers         *   FILE 994
//*           of the program outputs, to help you find the          *   FILE 994
//*           information you want, in the load module.             *   FILE 994
//*           as follows:                                           *   FILE 994
//*                                                                 *   FILE 994
//*    Sample heading information from a LOADED module:             *   FILE 994
//*    (same heading for either program)                            *   FILE 994
//*                                                                 *   FILE 994
//* Loaded Program Name:  IEBCOPY                                   *   FILE 994
//* --------------------------------------------------------------  *   FILE 994
//* Module has been LOADED.       CDE Address:  009A9090            *   FILE 994
//* Length of loaded module Hex:  00025CB0    Decimal:      154800  *   FILE 994
//* Length after entry address :  00020CB0    Decimal:      134320  *   FILE 994
//* Displacement of entry point:  00005000    Decimal:       20480  *   FILE 994
//*                                                                 *   FILE 994
//*    Sample heading information from a LPA module:                *   FILE 994
//*                                                                 *   FILE 994
//* Loaded Program Name:  IEFAB4A0                                  *   FILE 994
//* ----------------------------------------------------------------*   FILE 994
//* Module is from LPA.  LPDE Address: 00C742D0   Alias of: IEFW21SD*   FILE 994
//* Length of loaded module Hex:  000DD450    Decimal:      906320  *   FILE 994
//* Length after entry address :  00070D08    Decimal:      462088  *   FILE 994
//* Displacement of entry point:  0006C748    Decimal:      444232  *   FILE 994
//*                                                                 *   FILE 994
//*           Output is in PUTLINE format, so it can be captured    *   FILE 994
//*           and displayed on a full screen.                       *   FILE 994
//*                                                                 *   FILE 994
//*           Since the outputs are often very large, and need to   *   FILE 994
//*           be captured in their entirety so the whole display    *   FILE 994
//*           is visible and scrollable, therefore we have included *   FILE 994
//*           Mark Zelden's TSOE, TSOV, TSOB, and TSOR REXX execs   *   FILE 994
//*           here, to make the display easier, doing the outtrap   *   FILE 994
//*           automatically.                                        *   FILE 994
//*                                                                 *   FILE 994
//*           For example: TSO TSOV LISTMOD  pgmname  (hex measure) *   FILE 994
//*                                                                 *   FILE 994
//*                        TSO TSOV LISTMODD pgmname  (dec measure) *   FILE 994
//*                                                                 *   FILE 994
//*           Or:                                                   *   FILE 994
//*                                                                 *   FILE 994
//*               TSO TSOV LISTMOD  pgmname ENTRY  (hex measure)    *   FILE 994
//*                                                                 *   FILE 994
//*               TSO TSOV LISTMODD pgmname ENTRY  (dec measure)    *   FILE 994
//*                                                                 *   FILE 994
//*               TSO TSOV LISTHEAD pgmname ENTRY                   *   FILE 994
//*                                                                 *   FILE 994
//*       Description of the programs:                              *   FILE 994
//*                                                                 *   FILE 994
//*           LISTMOD  - Displays the load module in 64-byte lines. *   FILE 994
//*                      Displacements from the beginning are       *   FILE 994
//*                      marked in hex.  75-byte wide display.      *   FILE 994
//*                                                                 *   FILE 994
//*           LISTMODD - Displays the load module in 100-byte lines *   FILE 994
//*                      with the display being 112-bytes wide.     *   FILE 994
//*                      Displacements from the beginning are       *   FILE 994
//*                      marked in decimal.  Multiples of 100.      *   FILE 994
//*                                                                 *   FILE 994
//*           LISTHEAD - Program originally from Jeff Broido,       *   FILE 994
//*                      which displays standard load module        *   FILE 994
//*                      headers if they exist, and also the        *   FILE 994
//*                      first 300 bytes of the load module,        *   FILE 994
//*                      either at its beginning, or at its         *   FILE 994
//*                      entry point.  This program had to be       *   FILE 994
//*                      modified extensively, because IBM software *   FILE 994
//*                      programmers have now modified their        *   FILE 994
//*                      program entry code to vary, very much.     *   FILE 994
//*                      Also, the new PL/X compilers now use the   *   FILE 994
//*                      new JUMP instructions instead of the old   *   FILE 994
//*                      47F0 (branch) instruction, to bypass the   *   FILE 994
//*                      program headers.                           *   FILE 994
//*                                                                 *   FILE 994
//***FILE 995 contains a Wylbur distribution that is probably       *   FILE 995
//*           suitable to be installed on a pre-XA MVS system.      *   FILE 995
//*           The code is written to run on MVS 3.8 and MVS/SP.     *   FILE 995
//*                                                                 *   FILE 995
//*           Thanks to Bill Smith for sending this in.             *   FILE 995
//*                                                                 *   FILE 995
//*           There are two distribution files containing           *   FILE 995
//*           whole packages.  These are:                           *   FILE 995
//*                                                                 *   FILE 995
//*           WYLTSO  - GZIP AWS tape file with 14 individual       *   FILE 995
//*                     files.  To install Wylbur on MVS, and       *   FILE 995
//*                     accessory programs.                         *   FILE 995
//*                                                                 *   FILE 995
//*           WYLCMS  - GZIP AWS tape file to install Wylbur        *   FILE 995
//*                     on CMS.                                     *   FILE 995
//*                                                                 *   FILE 995
//*       I have expanded the WYLTSO tape into its 14 files,        *   FILE 995
//*       which are 14 pds'es, but I have not touched the WYLCMS    *   FILE 995
//*       tape.  Using WYLCMS is up to you......                    *   FILE 995
//*                                                                 *   FILE 995
//*       If you need help with the packaging, my email address:    *   FILE 995
//*                                                                 *   FILE 995
//*           email:   sbgolob@cbttape.org                          *   FILE 995
//*                                                                 *   FILE 995
//*       TO INSTALL FROM THE GZIP-ED AWS FILES:                    *   FILE 995
//*                                                                 *   FILE 995
//*       You need to download the GZIP AWS format files to a PC    *   FILE 995
//*       in BINARY and unzip them.  They are emulated tapes,       *   FILE 995
//*       in AWS format.  If you have a real tape drive, the        *   FILE 995
//*       VTT2TAPE program from CBT File 533 might help you to      *   FILE 995
//*       cut a real tape from this file.                           *   FILE 995
//*                                                                 *   FILE 995
//*       TO INSTALL FROM THE SEPARATE FILES: (14 files from tape)  *   FILE 995
//*                                                                 *   FILE 995
//*       The following members are OFFLOAD-ed from the tape        *   FILE 995
//*       files for WYLTSO:  Use the PDSLOAD program to get them    *   FILE 995
//*       into PDS'es.                                              *   FILE 995
//*                                                                 *   FILE 995
//*       Customize the $PDSLOAD job to conform to your site's      *   FILE 995
//*       naming conventions, and submit it.                        *   FILE 995
//*                                                                 *   FILE 995
//*       ASM                                                       *   FILE 995
//*       CNTL                                                      *   FILE 995
//*       DOCLIB                                                    *   FILE 995
//*       HELP                                                      *   FILE 995
//*       MACLIB                                                    *   FILE 995
//*       MACLIBO                                                   *   FILE 995
//*       OBJ                                                       *   FILE 995
//*       PROCS                                                     *   FILE 995
//*       SYS2HELP                                                  *   FILE 995
//*       LIB2CNTL                                                  *   FILE 995
//*       LIB2FIX                                                   *   FILE 995
//*       LIB2SRCE                                                  *   FILE 995
//*                                                                 *   FILE 995
//*       These are in FB format, LRECL=80.                         *   FILE 995
//*                                                                 *   FILE 995
//*       Then deal with the other two files:                       *   FILE 995
//*                                                                 *   FILE 995
//*       Two other files are in a VB format, but I've supplied     *   FILE 995
//*       FB-80 versions of them, just to make sure that you have   *   FILE 995
//*       the right material available in this file.                *   FILE 995
//*       The files are:                                            *   FILE 995
//*                                                                 *   FILE 995
//*       MENUS  -  Which should be VB LRECL=84    and              *   FILE 995
//*       MSGS   -  Which should be VB LRECL=76                     *   FILE 995
//*                                                                 *   FILE 995
//*       To try to get it right for you, I've packaged these 2     *   FILE 995
//*       files in TSO XMIT format, so the VB and LRECL quantities  *   FILE 995
//*       are proper, when you TSO RECEIVE them.  They are members: *   FILE 995
//*                                                                 *   FILE 995
//*       WYLMENUS  -  XMIT of the MENUS dataset                    *   FILE 995
//*       WYLMSGS   -  XMIT of the MSGS  dataset                    *   FILE 995
//*                                                                 *   FILE 995
//*       If you don't have access to TSO RECEIVE, I've FB-80-ized  *   FILE 995
//*       them, and you can copy the material into VB datasets      *   FILE 995
//*       that you allocate for yourselves.  These members are:     *   FILE 995
//*                                                                 *   FILE 995
//*       MENUSF -  FB-80 version of the MENUS library              *   FILE 995
//*       MSGSF  -  FB-80 version of the MSGS  library              *   FILE 995
//*                                                                 *   FILE 995
//*       Using these datasets, you shouldn't lose any of the       *   FILE 995
//*       material, because VB, LRECL=84 has 80 bytes of real       *   FILE 995
//*       data.  The first 4 bytes are the RDW (Record Descriptor   *   FILE 995
//*       Word).                                                    *   FILE 995
//*                                                                 *   FILE 995
//*       Then to install, follow the directions in the CNTL        *   FILE 995
//*       file to assemble and linkedit.                            *   FILE 995
//*                                                                 *   FILE 995
//***FILE 996 is from Larry K. Slaten and contains several packages *   FILE 996
//*           of useful programs.                                   *   FILE 996
//*                                                                 *   FILE 996
//*           email:  larry.k.slaten@gmail.com                      *   FILE 996
//*                                                                 *   FILE 996
//*    The following members contain user documents (in MS Word     *   FILE 996
//*    format) for the load library scanner, the REXX Toolkit,      *   FILE 996
//*    and the String handling package.                             *   FILE 996
//*                                                                 *   FILE 996
//*    @LIBSCAN - Document describing the load library scanner      *   FILE 996
//*    @REXTOOL - Document describing the REXX Toolkit              *   FILE 996
//*    @STRING  - Document describing the String Handling Package   *   FILE 996
//*                                                                 *   FILE 996
//*    (These members must be downloaded to a PC in BINARY and      *   FILE 996
//*    looked at with a PDF reader such as Adobe.)                  *   FILE 996
//*                                                                 *   FILE 996
//*    The IEBUPDT1 member is setup to install all source           *   FILE 996
//*    libraries.                                                   *   FILE 996
//*    * &TGTHLQ.ASUTIL.ASM      assembler source                   *   FILE 996
//*    * &TGTHLQ.ASUTIL.CNTL     JCL source                         *   FILE 996
//*    * &TGTHLQ.ASUTIL.COBOL    COBOL source                       *   FILE 996
//*    * &TGTHLQ.BATCH.REXXJCL   JCL to run batch REXX              *   FILE 996
//*    * &TGTHLQ.BATCH.REXXLIB   batch REXX source                  *   FILE 996
//*    * &TGTHLQ.MYTSO.EXEC      REXX Toolkit source                *   FILE 996
//*    * &TGTHLQ.WORK.MODEL      IDCAMS CTL STMT models             *   FILE 996
//*                                                                 *   FILE 996
//*    Compile and Installation Verification Process (IVP)          *   FILE 996
//*    instructions can be found in member $DIR of library          *   FILE 996
//*    &TGTHLQ.ASUTIL.CNTL.                                         *   FILE 996
//*                                                                 *   FILE 996
//*    Member(s) $$UPDTnn contain release changes.                  *   FILE 996
//*                                                                 *   FILE 996
//*    All programs (HLASM and COBOL) are LE conforming.            *   FILE 996
//*                                                                 *   FILE 996
//*    The load library scanner (SSLEANAL) can be used to           *   FILE 996
//*    inventory load libraries (all or selected members).          *   FILE 996
//*    Program dynamically loads members in region storage and      *   FILE 996
//*    collects and prints information.  Check @LIBSCAN document    *   FILE 996
//*    for details.                                                 *   FILE 996
//*                                                                 *   FILE 996
//*    Query Program Object Information (ASU3QOIB) callable         *   FILE 996
//*    program that dynamically loads selected members in region    *   FILE 996
//*    storage and collects information that is returned via        *   FILE 996
//*    a communication area (optional print).                      *   FFILE 996
//*                                                                 *   FILE 996
//*    Binder utility (ASU3BNDB) to print information about an      *   FILE 996
//*    an executable by interfacing with the IBM Binder API for     *   FILE 996
//*    selected members and CSECT(s).                               *   FILE 996
//*    Six different reports can be selected via PARM statement.    *   FILE 996
//*    * History information (IRDx and CUI)                         *   FILE 996
//*    * Map information (similar to a link map)                    *   FILE 996
//*    * Binder Option(s)information                                *   FILE 996
//*    * Module information (similar to COBANAL CBT FILE#321)       *   FILE 996
//*    * ESD information                                            *   FILE 996
//*    * DUMP first 32K of binder buffer                            *   FILE 996
//*                                                                 *   FILE 996
//*    Query Environment Information (ASU3QEIB) callable program    *   FILE 996
//*    that collects information from many of the MVS control       *   FILE 996
//*    blocks that is returned via a communication area (optional   *   FILE 996
//*    print).  This program may require modification for each      *   FILE 996
//*    and every z/OS release.                                      *   FILE 996
//*                                                                 *   FILE 996
//*    The Rexx Toolkit contains many TSO/ISPF/ISREDIT macros.      *   FILE 996
//*    Check @REXTOOL document for details.                         *   FILE 996
//*                                                                 *   FILE 996
//*    Using the Rexx String Functions as a model, I created an     *   FILE 996
//*    assembler subroutine package, providing similar services.    *   FILE 996
//*    The String subroutines can be installed as individual        *   FILE 996
//*    services and/or combined in one executable.                  *   FILE 996
//*    * append source string to result string                      *   FILE 996
//*    * find string, forward scan Boyer-Moore method               *   FILE 996
//*    * return source string centered in result string             *   FILE 996
//*    * return source string de-edited in result string            *   FILE 996
//*    * find string, forward scan TRT method                       *   FILE 996
//*    * return source string as two result strings (chr,hex)       *   FILE 996
//*    * return source string left justified in result string       *   FILE 996
//*    * find string, backward scan TRTR method                     *   FILE 996
//*    * return source string right justified in result string      *   FILE 996
//*    * return source string character and word count in result    *   FILE 996
//*    * return source string with inserted string in result        *   FILE 996
//*    * return source sub-string in result string                  *   FILE 996
//*    * return source string stripped of leading and/or trailing   *   FILE 996
//*      strip characters in result string                          *   FILE 996
//*    * return source string as three result strings (chr,zone,nbr)*   FILE 996
//*    * return source string justified in result string            *   FILE 996
//*    * return source string spaced in result string               *   FILE 996
//*    * return source string less deleted word in result string    *   FILE 996
//*    * return position and text of nth word in source string      *   FILE 996
//*    * return source string less sub-string in result string      *   FILE 996
//*    * return source string with replacing sub-string in result   *   FILE 996
//*    * return lexemes from source string via patterns             *   FILE 996
//*    Check @STRING document for details,                          *   FILE 996
//*                                                                 *   FILE 996
//*    A number of other assembler macros, assembler and COBOL      *   FILE 996
//*    sub-programs, programs, and copybooks are included.          *   FILE 996
//*    * numeric test                                               *   FILE 996
//*    * register 14 stack                                          *   FILE 996
//*    * vector dope vector(s)                                      *   FILE 996
//*    * data wrangling                                             *   FILE 996
//*    * binary search (4 macro variations)                         *   FILE 996
//*    * fibonaccian search                                         *   FILE 996
//*    * linear search                                              *   FILE 996
//*    * heap sort                                                  *   FILE 996
//*    * Dr. John Ehrman’s bit handling “Micro-Compiler”.           *   FILE 996
//*    * date processing                                            *   FILE 996
//*    * record length, block length, CISZ, analysis                *   FILE 996
//*                                                                 *   FILE 996
//*    &TGTHLQ.WORK.MODEL contains the IDCAMS control card models   *   FILE 996
//*    for the batch Rexx macro (BLDIDC) in &TGTHLQ.BATCH.REXXLIB   *   FILE 996
//*    library.                                                     *   FILE 996
//*                                                                 *   FILE 996
//***FILE 997 is from Henri Kuiper and Lionel Dyck and contains     *   FILE 997
//*           the z/OS ISPF Git Interface (ZIGI) application.       *   FILE 997
//*                                                                 *   FILE 997
//*  ZIGI is the open source z/OS ISPF Git Interface application    *   FILE 997
//*  that enables the traditional ISPF user to utilize many of the  *   FILE 997
//*  facilities of Git without having to "fully" learn Git while    *   FILE 997
//*  avoiding the need to use the OMVS environment.                 *   FILE 997
//*                                                                 *   FILE 997
//*  Go to https://zigi.rocks for more information                  *   FILE 997
//*                                                                 *   FILE 997
//*           Version 3.18  -  August 13, 2023                      *   FILE 997
//*                                                                 *   FILE 997
//*           email:  lbdyck@gmail.com                              *   FILE 997
//*                   henrikuiper@zdevops.com                       *   FILE 997
//*                                                                 *   FILE 997
//*       NAME       VER.MOD   LAST MODIFIED     SIZE   ID          *   FILE 997
//*       $INSTALL    01.02   2020/02/17 04:51    107 $RUNME        *   FILE 997
//*       $README     01.00   2023/03/18 10:51     41 README        *   FILE 997
//*       @FILE997    05.06   2023/08/13 18:02     26 CBT           *   FILE 997
//*       EXEC        01.00   2023/08/13 13:01  20868 XMIT          *   FILE 997
//*       GPLLIC      01.00   2023/08/13 13:01    677 LICENSE       *   FILE 997
//*       PANELS      01.00   2023/08/13 13:01  10287 XMIT          *   FILE 997
//*       RELEASE     01.00   2023/03/18 10:51   1036 README        *   FILE 997
//*       SAMPLES     01.00   2023/03/18 10:51    780 XMIT          *   FILE 997
//*       STUB        01.01   2020/05/16 12:35     17 SAMPLE        *   FILE 997
//*                                                                 *   FILE 997
//***FILE 998 is from William J. Smith and is a RACF Reporting      *   FILE 998
//*           system that is easy to use.  A detailed PDF file      *   FILE 998
//*           describes how to set up and use the system.           *   FILE 998
//*                                                                 *   FILE 998
//*           email:  sfowjs@sbcglobal.net                          *   FILE 998
//*                                                                 *   FILE 998
//***FILE 999 is from Henry Fogwill and contains a powerful batch   *   FILE 999
//*           utlity to manage the status of CICS resources in your *   FILE 999
//*           CICSPlex.                                             *   FILE 999
//*                                                                 *   FILE 999
//*           email:  hfogwill@gmail.com                            *   FILE 999
//*                                                                 *   FILE 999
//*       zccCICS is a powerful batch utility to manage the status  *   FILE 999
//*       of CICS resources in your CICSPlex. Use to alter the      *   FILE 999
//*       status of transaction, programs and files.                *   FILE 999
//*                                                                 *   FILE 999
//*       This utility require a CMAS running CICS Transaction      *   FILE 999
//*       Server 5.3 or newer.                                      *   FILE 999
//*                                                                 *   FILE 999
//*       If you are running with a older CMAS contact me and I will*   FILE 999
//*       see what I can do to help.                                *   FILE 999
//*                                                                 *   FILE 999
//*       The output from the utility present the reason and        *   FILE 999
//*       response codes when the CPSM API is used. These codes     *   FILE 999
//*       are documented in the IBM CPSM CICSPlex SM Application    *   FILE 999
//*       Programming Reference manual. I will not not reproduce    *   FILE 999
//*       this documentation and if you have non-zero reason        *   FILE 999
//*       codes you should reference this manual for explanations   *   FILE 999
//*       of the received error.                                    *   FILE 999
//*                                                                 *   FILE 999
//**FILE 1000 is from Dan Dirkse of Holland, Michigan and contains  *   FILE 999
//*           the Edit Macro Mass Change Facility used to run       *   FILE 999
//*           an edit macro against all or a selection of members   *   FILE 999
//*           to perform mass updates or mass investigations.       *   FILE 999
//*           Can be run either online or in batch.                 *   FILE 999
//* --------------------------------------------------------------- *   FILE 999
//*     Dan Dirkse                                                  *   FILE 999
//*     email:   ztools.channel@gmail.com                           *   FILE 999
//* --------------------------------------------------------------- *   FILE 999
//***FILE1001 is from Peter Vels and contains some nice REXX        *   FILE1001
//*           execs.  Three of them are for illustrative purposes   *   FILE1001
//*           and they show you how to produce very nice images     *   FILE1001
//*           on the screen, and the other 3 execs are VERY VERY    *   FILE1001
//*           USEFUL.                                               *   FILE1001
//*                                                                 *   FILE1001
//*       Instructions are in the $README member.                   *   FILE1001
//*                                                                 *   FILE1001
//*       email:  Peter Vels <peter.vels@gmail.com>                 *   FILE1001
//*                                                                 *   FILE1001
//*     DESCRIPTION OF CONTENTS:                                    *   FILE1001
//*                                                                 *   FILE1001
//*     The first 3 Rexxes can be invoked as TSO commands,          *   FILE1001
//*     e.g.  TSO FERNSIDE                                          *   FILE1001
//*                                                                 *   FILE1001
//*     PVCPUPCT.  Displays current CPU% in pseudo-graphical        *   FILE1001
//*       format.  Needs some simple customisation, such as         *   FILE1001
//*       supplying LPAR (system) names.  Do a FIND on "custom"     *   FILE1001
//*       to see where in the code things need to be                *   FILE1001
//*       customised.                                               *   FILE1001
//*                                                                 *   FILE1001
//*     MANDELBR - an ISPF implementation of displaying the         *   FILE1001
//*       Mandelbrot Set in 8 glorious colours.  Works best on      *   FILE1001
//*       62x160 screens.  Scrollable and zoomable.  Use PF19       *   FILE1001
//*       and PF20 to zoom in and out, and PF7, PF8, PF10 and       *   FILE1001
//*       PF11 to move up, down, left and right.  Still has         *   FILE1001
//*       bugs, so constructive feedback is welcome.                *   FILE1001
//*                                                                 *   FILE1001
//*     FERNSIDE - an ISPF implementation of the Barnsley Fern.     *   FILE1001
//*                Inspired by New York's Dan Shiffman.             *   FILE1001
//*                                                                 *   FILE1001
//*     All of the above are demonstrations of using ISPF           *   FILE1001
//*     dynamic areas with shadow variables which allow one to      *   FILE1001
//*     display characters of different colours right next to       *   FILE1001
//*     each other (i.e. it doesn't cost you an attribute byte      *   FILE1001
//*     - very nice).                                               *   FILE1001
//*                                                                 *   FILE1001
//*     The next 3 Rexxes are all edit macros.                      *   FILE1001
//*                                                                 *   FILE1001
//*     SYNTAX - a COBOL syntax checker (edit macro) which          *   FILE1001
//*         invokes the compiler and interleaves error messages     *   FILE1001
//*         right in your source code as notes.  Obviates the       *   FILE1001
//*         need to switch between an error listing and the         *   FILE1001
//*         source.  Instructions: While editing a COBOL program    *   FILE1001
//*         enter SYNTAX as a primary command. The first time       *   FILE1001
//*         you invoke SYNTAX you should also specify something     *   FILE1001
//*         (any character will do) as an argument, for example,    *   FILE1001
//*         SYNTAX P which will bring up the configuration panel    *   FILE1001
//*         where you can specify input required by the COBOL       *   FILE1001
//*         compiler.                                               *   FILE1001
//*                                                                 *   FILE1001
//*         Tip: To use the syntax checker iteratively:             *   FILE1001
//*         enter RES;SAVE;SYNTAX as a primary command.             *   FILE1001
//*         Note: There is a dependency on CBTTAPE File 452 for     *   FILE1001
//*               dynamic STEPLIB support.                          *   FILE1001
//*                                                                 *   FILE1001
//*     PVJCL - a Rexx edit macro which, when run while viewing     *   FILE1001
//*         unfamiliar JCL, displays the JCL formatted on an        *   FILE1001
//*         ISPF panel to make it easier to understand.             *   FILE1001
//*         Designed for those either not familiar with JCL at      *   FILE1001
//*         all or not familiar with a large JCL member.  Just      *   FILE1001
//*         makes it easier to understand.                          *   FILE1001
//*                                                                 *   FILE1001
//*     PVALLOCD -  a Rexx edit macro used in SDSF to display       *   FILE1001
//*         JESYSMSG allocations in a friendly format so that       *   FILE1001
//*         you can see what data sets were used by the job.        *   FILE1001
//*         Allows direct browsing of the data sets by cursor       *   FILE1001
//*         position.                                               *   FILE1001
//*                                                                 *   FILE1001
//*         Invoke PVALLOCD from within SDSF by entering the        *   FILE1001
//*         line command SE next to a job that has already run.     *   FILE1001
//*         It's more efficient to enter the SE after first         *   FILE1001
//*         entering a ? to display the various output DDs for      *   FILE1001
//*         the job.  Enter the SE line command on the JESYSMSG     *   FILE1001
//*         line.  Once you are editing the job output, enter       *   FILE1001
//*         PVALLOCD as a primary command to display the data       *   FILE1001
//*         set allocations.  You can browse the data sets by       *   FILE1001
//*         positioning the cursor anywhere on the name and         *   FILE1001
//*         hitting enter.                                          *   FILE1001
//*                                                                 *   FILE1001
//*     Copying and use of this material is allowed.  I retain      *   FILE1001
//*     ownership.  None of these routines may be sold. If you      *   FILE1001
//*     have error corrections or improvements I would be happy     *   FILE1001
//*     to hear from you.  If you use them or learn something       *   FILE1001
//*     from then I'd be even happier to hear from you.             *   FILE1001
//*                                                                 *   FILE1001
//***FILE1002 is from Tom Conley and Bill Smith, and it contains    *   FILE1002
//*           three SHARE presentations, in PDF format, which are   *   FILE1002
//*           tutorials about how to use SMP/E.                     *   FILE1002
//*                                                                 *   FILE1002
//*       These 3 members should be downloaded to a PC and viewed   *   FILE1002
//*       with a PDF reader.  Make sure the download is in BINARY.  *   FILE1002
//*                                                                 *   FILE1002
//*           SMPE001 - For beginners                               *   FILE1002
//*                                                                 *   FILE1002
//*           SMPE002 - Intermediate level                          *   FILE1002
//*                                                                 *   FILE1002
//*           SMPE001 - Advanced level                              *   FILE1002
//*                                                                 *   FILE1002
//*       email:  Pinnacle <pinncons@rochester.rr.com>              *   FILE1002
//*                                                                 *   FILE1002
//*       email:  William Smith <sfowjs@sbcglobal.net>              *   FILE1002
//*                                                                 *   FILE1002
//***FILE1003 is from Peter Sylvester and contains several          *   FILE1003
//*           programs, which are old, but which work very well.    *   FILE1003
//*                                                                 *   FILE1003
//*           email:  sbgolob@cbttape.org                           *   FILE1003
//*                                                                 *   FILE1003
//*           email:  peter.sylvester@gmail.com                     *   FILE1003
//*                                                                 *   FILE1003
//*     Programs:                                                   *   FILE1003
//*                                                                 *   FILE1003
//*     CTFUW    - Compares two files, restricted to a column       *   FILE1003
//*                window, for example:  the compare may go only    *   FILE1003
//*                from columns 10 thru 30, if you code '10,21'     *   FILE1003
//*                as a PARM.  This program can be of great help    *   FILE1003
//*                in synchronizing two files.                      *   FILE1003
//*                                                                 *   FILE1003
//*     PDSCLR   - Program to clear a PDS of all its members.       *   FILE1003
//*                The technique used in this program is to         *   FILE1003
//*                use EXCP against the directory.  It is nice      *   FILE1003
//*                to learn from.                                   *   FILE1003
//*                                                                 *   FILE1003
//*     TAPESKIM - A very capable tape mapping program.             *   FILE1003
//*                                                                 *   FILE1003
//*     CLOPS    - A small program to change DSCBs. The program     *   FILE1003
//*                opens a data set for output with DIS=MOD and     *   FILE1003
//*                closes it again. This causes the dscb to be      *   FILE1003
//*                written back including modifications specified   *   FILE1003
//*                in the DD statement, e.g., expitation date or    *   FILE1003
//*                blocksize.                                       *   FILE1003
//*                                                                 *   FILE1003
//*     BTXCSCAN   A function to parse a "string into parameters.   *   FILE1003
//*                The rules which strings are legal are those      *   FILE1003
//*                JCL and ASM MACRO language. It is used in this   *   FILE1003
//*                collection by FTFUW.                             *   FILE1003
//*                                                                 *   FILE1003
//***FILE1004 is a tape mapping program called PRECIS from the      *   FILE1004
//*           University of North Carolina (a very old program).    *   FILE1004
//*           It still works, and its output is very useful,        *   FILE1004
//*           since it prints the beginning of each data block on   *   FILE1004
//*           the tape (hex display for 80 bytes), for the first    *   FILE1004
//*           10 blocks (which can be changed by the 4th parm).     *   FILE1004
//*                                                                 *   FILE1004
//*           Reed Starnes has improved this program significantly. *   FILE1004
//*           Since we now have program source from Reed Starnes,   *   FILE1004
//*           we have eliminated the old versions of the PRECIS     *   FILE1004
//*           program from this file, to avoid confusion.           *   FILE1004
//*                                                                 *   FILE1004
//*             Support:   Reed Starnes or Sam Golob                *   FILE1004
//*                                                                 *   FILE1004
//*               email:   Reed Starnes <rxstarn@gmail.com>         *   FILE1004
//*                                                                 *   FILE1004
//*               email:   sbgolob@cbttape.org                      *   FILE1004
//*                                                                 *   FILE1004
//*           This being an old program, the tape block size is     *   FILE1004
//*           (currently) limited to 32760 bytes.  BSAM I/O.        *   FILE1004
//*           It is possible that the original version of this      *   FILE1004
//*           program may be as old as 1968.  But even the          *   FILE1004
//*           original version still worked fine.                   *   FILE1004
//*                                                                 *   FILE1004
//*           The program source (member PRECIS) was fixed to       *   FILE1004
//*           accommodate larger tapes that have thousands of       *   FILE1004
//*           tape marks.                                           *   FILE1004
//*                                                                 *   FILE1004
//*           Documentation has been supplied by Reed Starnes.      *   FILE1004
//*                                                                 *   FILE1004
//*           You can now control the maximum number of data        *   FILE1004
//*           blocks to be printed for each file, by setting        *   FILE1004
//*           the fourth parameter of the PARM field, to the        *   FILE1004
//*           number of data blocks in each file that you           *   FILE1004
//*           want to print.                                        *   FILE1004
//*                                                                 *   FILE1004
//*           THE ORIGINAL VERSION OF PRECIS WAS WRITTEN BY         *   FILE1004
//*           H. C. LUDLAM FOR THE UNIVERSITY OF NORTH CAROLINA     *   FILE1004
//*           AT CHAPEL HILL.                                       *   FILE1004
//*                                                                 *   FILE1004
//***FILE1005 is from Peter Sylvester and contains his SPTS         *   FILE1005
//*           package of programs, otherwise known as               *   FILE1005
//*           Assembler Structured Programming Tool Set.            *   FILE1005
//*                                                                 *   FILE1005
//*     GMD-SPTS Distribution                                       *   FILE1005
//*                                                                 *   FILE1005
//*         This package has been brought to the CBTTAPE by         *   FILE1005
//*                                                                 *   FILE1005
//*         Peter Sylvester                                         *   FILE1005
//*         peter@edelweb.eu                                        *   FILE1005
//*                                                                 *   FILE1005
//*     SPTS is (whatever you prefer) :                             *   FILE1005
//*                                                                 *   FILE1005
//*               Structured Programming Tool Set                   *   FILE1005
//*               System Programmer's Tool Set                      *   FILE1005
//*               Sylvester Peter's Toy Set                         *   FILE1005
//*                                                                 *   FILE1005
//*        It has ee functional components :                        *   FILE1005
//*                                                                 *   FILE1005
//*          1: SPTS MACLIB                                         *   FILE1005
//*                                                                 *   FILE1005
//*             The core functionality are assembler macros for     *   FILE1005
//*             structured programming:                             *   FILE1005
//*                                                                 *   FILE1005
//*             - a large set of control flow statements            *   FILE1005
//*             - statement like conditional expressions            *   FILE1005
//*             - composition of expressions ($EX EX$ ORELSE,       *   FILE1005
//*               ANDTHEN)                                          *   FILE1005
//*             - basic comparison expressions ($EXPR$ and          *   FILE1005
//*               TRUECC)                                           *   FILE1005
//*             - assignment statements (LET)                       *   FILE1005
//*             - Organisation of code an static data using         *   FILE1005
//*               LTORG                                             *   FILE1005
//*                                                                 *   FILE1005
//*             Usage requires at least the SLAC version of ASMH.   *   FILE1005
//*                                                                 *   FILE1005
//*             The macros can be used without the other tools.     *   FILE1005
//*                                                                 *   FILE1005
//*          2 SPTS PCPARSER                                        *   FILE1005
//*                                                                 *   FILE1005
//*             A tool to work on structured pseudo code            *   FILE1005
//*             version of some software/program. PCPARSER          *   FILE1005
//*             transforms the pseudo code into an assembler        *   FILE1005
//*             skeleton and produces a documentation. The          *   FILE1005
//*             assembler skeleton is provided as IEBUPDTE          *   FILE1005
//*             input (program refinements are translated into      *   FILE1005
//*             COPYLIB members.                                    *   FILE1005
//*                                                                 *   FILE1005
//*             PCPARSER is written in STRUBOL, an enhanced         *   FILE1005
//*             version of SPITBOL. Source is included for          *   FILE1005
//*             inspiration.                                        *   FILE1005
//*                                                                 *   FILE1005
//*             The pseudo code combines                            *   FILE1005
//*             - a set of control flow statements                  *   FILE1005
//*               translated into corresponding macros              *   FILE1005
//*             - free form text as pseudo code                     *   FILE1005
//*               translated ton comments (actually @ macro)        *   FILE1005
//*                                                                 *   FILE1005
//*          3: SPTS SASLIST                                        *   FILE1005
//*                                                                 *   FILE1005
//*             A program acting of the assembler listing (SLAC     *   FILE1005
//*             version) to enhance readability. Using is not       *   FILE1005
//*             required.                                           *   FILE1005
//*                                                                 *   FILE1005
//*     The package (PDS) contains the following members:           *   FILE1005
//*                                                                 *   FILE1005
//*        $$README:                                                *   FILE1005
//*                                                                 *   FILE1005
//*             This member                                         *   FILE1005
//*                                                                 *   FILE1005
//*        $LICENCE:                                                *   FILE1005
//*                                                                 *   FILE1005
//*             Copyright and licencing, don't worry                *   FILE1005
//*                                                                 *   FILE1005
//*        CNTL (XMI packed PDS):                                   *   FILE1005
//*              A set of jobs for inspiration to install SPTS      *   FILE1005
//*              parts.                                             *   FILE1005
//*                                                                 *   FILE1005
//*        You can recover the content using the TSO commands:      *   FILE1005
//*                                                                 *   FILE1005
//*           ALLOC DA(SPTS.CBTTAPE) FI(RECEIVE)                    *   FILE1005
//*           RECEIVE INFILE(RECEIVE)                               *   FILE1005
//*                                                                 *   FILE1005
//*        EXAMPLES (XMI packed PDS):                               *   FILE1005
//*                                                                 *   FILE1005
//*              A small set of examples, assembler programs        *   FILE1005
//*              may not compile or link.                           *   FILE1005
//*                                                                 *   FILE1005
//*        INFO (XMI packed PDS):                                   *   FILE1005
//*                                                                 *   FILE1005
//*              German documentation                               *   FILE1005
//*                                                                 *   FILE1005
//*        LINKLIB (XMI packed PDS):                                *   FILE1005
//*                                                                 *   FILE1005
//*              The PCPARSER and SASLIST load modules.             *   FILE1005
//*                                                                 *   FILE1005
//*        MACLIB (XMI packed PDS):                                 *   FILE1005
//*                                                                 *   FILE1005
//*              The assembler structured macros                    *   FILE1005
//*                                                                 *   FILE1005
//*        PROCLIB (XMI packed PDS):                                *   FILE1005
//*                                                                 *   FILE1005
//*              A set of JCL procedures.                           *   FILE1005
//*                                                                 *   FILE1005
//*        SASLOBJ:                                                 *   FILE1005
//*                                                                 *   FILE1005
//*              A compiled SASLIST object                          *   FILE1005
//*                                                                 *   FILE1005
//*        SOURCE (XMI packed PSD):                                 *   FILE1005
//*                                                                 *   FILE1005
//*              The PCPARSER and SASLIST source                    *   FILE1005
//*                                                                 *   FILE1005
//*     Alles hat einmal ein Ende, nur die Wurst hat zwei.          *   FILE1005
//*     Everything comes to an end.  But for a sausage there are    *   FILE1005
//*        two.                                                     *   FILE1005
//*                                                                 *   FILE1005
//***FILE1006 is a load module compare program from Reed Starnes.   *   FILE1006
//*           You can do a detailed comparison of the contents of   *   FILE1006
//*           up to three load libraries.  (This is a fun program.) *   FILE1006
//*                                                                 *   FILE1006
//*       email:  Reed Starnes <rxstarn@gmail.com>                  *   FILE1006
//*                                                                 *   FILE1006
//*       Note:  Members ending in "S" are from Sam Golob and       *   FILE1006
//*              are real life examples from when I tried it out.   *   FILE1006
//*                                                                 *   FILE1006
//***FILE1007 is from Reed Starnes and is a batch program from      *   FILE1007
//*           The University of North Carolina called DATOC.        *   FILE1007
//*           This is a batch program that can change fields in     *   FILE1007
//*           the VTOC of one, or many datasets.                    *   FILE1007
//*                                                                 *   FILE1007
//*           email:  Reed Starnes <rxstarn@gmail.com>              *   FILE1007
//*                                                                 *   FILE1007
//*     DATOC is a batch program for altering fields in dataset     *   FILE1007
//*     control blocks (DSCBs) of existing files on DASD            *   FILE1007
//*     volumes.  There are TSO tools such as PDS86 on File 182     *   FILE1007
//*     and ZAPDSCB on CBT File 566, and CDSCB on CBT File 300      *   FILE1007
//*     which can do the same thing, but this one is for batch.     *   FILE1007
//*                                                                 *   FILE1007
//*     The fields that can be changed are:                         *   FILE1007
//*                                                                 *   FILE1007
//*        SPACE:   Secondary allocation (quantity and units)       *   FILE1007
//*        DCB:     Dataset organization (DSORG)                    *   FILE1007
//*                 Record format (RECFM)                           *   FILE1007
//*                 Logical record length (LRECL)                   *   FILE1007
//*                 Block size (BLKSIZE)                            *   FILE1007
//*                 Key length (KEYLEN)                             *   FILE1007
//*                 Relative key position (RKP)                     *   FILE1007
//*                 Options code (OPTCD)                            *   FILE1007
//*                                                                 *   FILE1007
//*     The actual file data is not altered, only the F1 DSCB       *   FILE1007
//*     in the VTOC.  It is therefore the user's responsibility     *   FILE1007
//*     to ensure that the new values are compatible with each      *   FILE1007
//*     other and with the rest of the dataset attributes.          *   FILE1007
//*     Obviously, changing some of these fields could render       *   FILE1007
//*     the existing file unusable, and can be modified             *   FILE1007
//*     intelligently only if the data in the allocated area is     *   FILE1007
//*     to be completely replaced.                                  *   FILE1007
//*                                                                 *   FILE1007
//*     The program is completely controlled by DD cards.           *   FILE1007
//*     There is no PARM or any control cards.                      *   FILE1007
//*                                                                 *   FILE1007
//***FILE1008 is from Kevin Ferguson and contains a modification    *   FILE1008
//*           to the ISPF ISPPREP facility.                         *   FILE1008
//*                                                                 *   FILE1008
//*      email:  kevin@abbydalesystems.com                          *   FILE1008
//*                                                                 *   FILE1008
//*      Please read member $$$INDEX for contents of this file.     *   FILE1008
//*                                                                 *   FILE1008
//***FILE1009 is from Salvador Carrasco and contains a collection   *   FILE1009
//*           of DB2 User-defined Functions.                        *   FILE1009
//*                                                                 *   FILE1009
//*       email:  Salvador Carrasco <salva@rczero.com>              *   FILE1009
//*                                                                 *   FILE1009
//*                          DB2FUNCTS                              *   FILE1009
//*                                                                 *   FILE1009
//*    Some sample DB2 user-defined functions and table functions.  *   FILE1009
//*                                                                 *   FILE1009
//*      Function Name   Type                Description            *   FILE1009
//*                                                                 *   FILE1009
//*     RCDF.CSI       External UDTF    Return a Table from the     *   FILE1009
//*                                     Catalog Search Interface    *   FILE1009
//*                                                                 *   FILE1009
//*     RCDF.PDSDIR    External UDTF    Return a list of members    *   FILE1009
//*                                     of a PDS/Library dataset    *   FILE1009
//*                                                                 *   FILE1009
//*     RCDF.NSLOOKUP  External UDF     Return a Hostname from      *   FILE1009
//*                                     an IP address using the     *   FILE1009
//*                                     System Resolver             *   FILE1009
//*                                                                 *   FILE1009
//*     RCDF.UUID      External UDF     Return a Universally        *   FILE1009
//*                                     Unique Identifier           *   FILE1009
//*                                                                 *   FILE1009
//*     RCDF.WORD      External UDF     Return n-word from          *   FILE1009
//*                                     string using a specified    *   FILE1009
//*                                     separator                   *   FILE1009
//*                                                                 *   FILE1009
//*     RCDF.POSIXT.   SQL UDF          Return a UNIX/Posix         *   FILE1009
//*      TIMESTAMP                      Epoch time, from a DB2      *   FILE1009
//*                                     TimeStamp                   *   FILE1009
//*                                                                 *   FILE1009
//*     RCDF.POSIXT.   SQL UDF          Return a UNIX/Posix         *   FILE1009
//*      DATE                           Epoch time, from a DB2      *   FILE1009
//*                                     Date                        *   FILE1009
//*                                                                 *   FILE1009
//*     RCDF.B2H       SQL UDF          Return a number of bytes    *   FILE1009
//*                                     in human readable           *   FILE1009
//*                                     IEC 80000-suffixes          *   FILE1009
//*                                                                 *   FILE1009
//***FILE1010 is a new shipment of structured macros from           *   FILE1010
//*           Dan Snyder.  A new file was created here, in order    *   FILE1010
//*           to avoid confusion with other similar files.          *   FILE1010
//*                                                                 *   FILE1010
//*       email:  FancyDancer <fancy_dancer@wideopenwest.com>       *   FILE1010
//*                                                                 *   FILE1010
//*       This file consists of a documentation file in Word        *   FILE1010
//*       format (member EXPLAIN), to be downloaded to a PC.        *   FILE1010
//*                                                                 *   FILE1010
//*       The macro library (memeber MACLIB in IEBUPDTE SYSIN       *   FILE1010
//*       format or PDSLOAD format).                                *   FILE1010
//*                                                                 *   FILE1010
//*       Member SRCLIB (some assembler source to test the          *   FILE1010
//*       macros).                                                  *   FILE1010
//*                                                                 *   FILE1010
//*       Member LISTINGS, which is a ZIP of assembler listings     *   FILE1010
//*       of the SRCLIB members.                                    *   FILE1010
//*                                                                 *   FILE1010
//*       Member Z390ZIP is a zipped file containing the same       *   FILE1010
//*       materials, except these are compatible with the z390      *   FILE1010
//*       assembler, from www.z390.org.  Download to a PC in        *   FILE1010
//*       BINARY and unzip.                                         *   FILE1010
//*                                                                 *   FILE1010
//***FILE1011 is from Dana Mitchell and contains an SDSF exit that  *   FILE1011
//*           tells SDSF to ignore RMF if it is not present.  This  *   FILE1011
//*           has presented a problem when converting from z/OS     *   FILE1011
//*           2.2 to z/OS 2.4.  See members $$NOTE01 and $$REAADME  *   FILE1011
//*           for more details.                                     *   FILE1011
//*                                                                 *   FILE1011
//*           It seems that (lately) when you do a DA under SDSF,   *   FILE1011
//*           then SDSF will sometimes try to use RMF control       *   FILE1011
//*           blocks instead of MVS control blocks.  This causes    *   FILE1011
//*           a nasty message, and we want to get rid of it.        *   FILE1011
//*                                                                 *   FILE1011
//*           email:  Dana Mitchell <mitchdana@gmail.com>           *   FILE1011
//*                                                                 *   FILE1011
//*     Note from Sam Golob:  I have included a "pure assembly      *   FILE1011
//*           and linkedit" job, without SMP/E involvement, so      *   FILE1011
//*           that you can see the structure of the assembly        *   FILE1011
//*           clearly.  This is member ISFUSER$ in this pds.        *   FILE1011
//*                                                                 *   FILE1011
//***FILE1012 contains some thoughts for new z/OS systems           *   FILE1012
//*           programmers.  They are general thoughts, but they     *   FILE1012
//*           come from much experience at doing this job.          *   FILE1012
//*           This is an open-ended file, which will probably       *   FILE1012
//*           be added to.                                          *   FILE1012
//*                                                                 *   FILE1012
//***FILE1013 is from David Spiegel, and contains thoughts on       *   FILE1013
//*           z/OS systems programming, based on his extensive      *   FILE1013
//*           experience.  Members named BLOGnnn in this pds are    *   FILE1013
//*           in WORD format format (.docx) and have to be          *   FILE1013
//*           downloaded in BINARY to a PC, to be read by           *   FILE1013
//*           Microsoft Word.  Members named TEXTnnn are the        *   FILE1013
//*           corresponding materials in EBCDIC text format.        *   FILE1013
//*                                                                 *   FILE1013
//*           email:  David Spiegel <dspiegelcan@hotmail.com>       *   FILE1013
//*                                                                 *   FILE1013
//***FILE1014 is a very interesting piece of code (a REXX exec)     *   FILE1014
//*           written by (the late) Ken Tomiak.  And it has been    *   FILE1014
//*           included here, not only as an honor and a tribute     *   FILE1014
//*           to him, but also because it is useful.  This REXX     *   FILE1014
//*           exec (called CONDCODE) follows job execution and      *   FILE1014
//*           supplies statistics somewhat similar to an IEFACTRT   *   FILE1014
//*           exit, about the results of the job.                   *   FILE1014
//*                                                                 *   FILE1014
//*   Example Usage:                                                *   FILE1014
//*                                                                 *   FILE1014
//*   //*         put this at the end of your job                   *   FILE1014
//*   //CONDCODE EXEC PGM=IKJEFT01                                  *   FILE1014
//*   //SYSPROC  DD   DISP=SHR,DSN=SYS1.U.CLIST   <-- change        *   FILE1014
//*   //SYSTSPRT DD   SYSOUT=*                                      *   FILE1014
//*   //SYSTSIN  DD   *                                             *   FILE1014
//*   CONDCODE                                                      *   FILE1014
//*   /*                                                            *   FILE1014
//*                                                                 *   FILE1014
//*               Sample SYSTSPRT Output for a job                  *   FILE1014
//*   READY                                                         *   FILE1014
//*   CONDCODE                                                      *   FILE1014
//*   JOB=IBMUSERM(JOB00857) JCTACODE=00000000 FAIL=00 STAT=00      *   FILE1014
//*                          LASTABEND=0 HIGHESTCOND=0000           *   FILE1014
//*   Step.ProcStep                  Program    Code                *   FILE1014
//*   S01.TAPEMAP                    TAPEMAP       0                *   FILE1014
//*   S02.TAPEMAP                    TAPEMAP       0                *   FILE1014
//*   S03.TAPEMAP                    TAPEMAP       0                *   FILE1014
//*   READY                                                         *   FILE1014
//*   END                                                           *   FILE1014
//*                                                                 *   FILE1014
//*               Sample TSO Output if run as an EXEC               *   FILE1014
//*                     under your TSO session                      *   FILE1014
//*                                                                 *   FILE1014
//*   JOB=IBMUSER (TSU00849) JCTACODE=00000000 FAIL=00 STAT=00      *   FILE1014
//*                          LASTABEND=0 HIGHESTCOND=000            *   FILE1014
//*   Step.ProcStep                  Program    Code                *   FILE1014
//*   ISPFPROC.ISPFPROC              ADFMDF03  Active               *   FILE1014
//*   ADF041A ENTER A NULL LINE TO RETURN TO FULL SCREEN PROGRAM    *   FILE1014
//*                                                                 *   FILE1014
//***FILE1015 is from Ulrich Braeuer and contains a multi-purpose   *   FILE1015
//*           tool to perfom many functions in DB2.  Much of this   *   FILE1015
//*           package is still commented in German.                 *   FILE1015
//*                                                                 *   FILE1015
//*           email:  Ulrich_Braeuerυt-online.de                    *   FILE1015
//*                                                                 *   FILE1015
//*           Please look at member $$NOTE01 for installation       *   FILE1015
//*           instructions.                                         *   FILE1015
//*                                                                 *   FILE1015
//*       This is the second edition of this package, with some     *   FILE1015
//*       English translation by Uli, and also support for a few    *   FILE1015
//*       previous versions of DB2.  See member $$NOTE02.           *   FILE1015
//*                                                                 *   FILE1015
//***FILE1016 is from Steve Myers and contains some of the uniquely *   FILE1016
//*           written TSO commands that he has produced.            *   FILE1016
//*                                                                 *   FILE1016
//*           email:  Steve Myers <mvsprog@yahoo.com>               *   FILE1016
//*                                                                 *   FILE1016
//*     A description of the contents of this file, follows:        *   FILE1016
//*                                                                 *   FILE1016
//*     This data set contains a mashup of Steve Myers' TSO         *   FILE1016
//*     commands.  Each command is packaged as an unloaded PDS;     *   FILE1016
//*     retrieve the PDS using the RECEIVE command, for example:    *   FILE1016
//*                                                                 *   FILE1016
//*     RECEIVE INDATASET('hlq.TSOCMND.CBT.PDS(DSSTAT)')            *   FILE1016
//*                                                                 *   FILE1016
//*     Each PDS has more detailed documentation about the          *   FILE1016
//*     command and how to prepare, install and use the command.    *   FILE1016
//*                                                                 *   FILE1016
//*     The default name of the PDS allocated by the RECEIVE        *   FILE1016
//*     command is userid.command.CBT.PDS.  If possible, use        *   FILE1016
//*     this name as it will make preparation of the command        *   FILE1016
//*     easier as the data set name will match the data set         *   FILE1016
//*     name used in the documentation.                             *   FILE1016
//*                                                                 *   FILE1016
//*     Member                                                      *   FILE1016
//*     $DOC     - This member                                      *   FILE1016
//*     ALLOCVOL - ALLOCVOL simulates a volume definition DD        *   FILE1016
//*                statement used by some IBM batch utilities.      *   FILE1016
//*     DSSTAT   - A command loosely modeled on the IBM LISTDS      *   FILE1016
//*                command, but with more detailed, and in my       *   FILE1016
//*                opinion, more useful output.                     *   FILE1016
//*     FINDCMD  - TSO command to report the library where a        *   FILE1016
//*                TSO command, or any binary program, can be       *   FILE1016
//*                found.  findcmd asma90                           *   FILE1016
//*                 ASMA90 IN LINKLIST ASM.SASMMOD1                 *   FILE1016
//*                 READY                                           *   FILE1016
//*                findcmd iefactrt                                 *   FILE1016
//*                 IEFACTRT IN MLPA                                *   FILE1016
//*                 READY                                           *   FILE1016
//*     FREESYS  - TSO command to free all SYSnnnnn allocations,    *   FILE1016
//*                where nnnnn is 5 numerics.                       *   FILE1016
//*     IDUMP    - TSO command to create an image dump of one or    *   FILE1016
//*                more tracks of a data set.                       *   FILE1016
//*     INVCP    - TSO command to run a program in the link         *   FILE1016
//*                list or a private library as a TSO command.      *   FILE1016
//*                With the TSOLIB TSO command, the need for        *   FILE1016
//*                something like INVCP is limited.                 *   FILE1016
//*     KEEPITUP - A TSO command processor to keep your TSO         *   FILE1016
//*                session active with no terminal activity.        *   FILE1016
//*                It periodically updates your screen with the     *   FILE1016
//*                current date & time and the time your            *   FILE1016
//*                session has been active.  Many installations     *   FILE1016
//*                discourage or forbid the use of a tool like      *   FILE1016
//*                this; verify it is OK with your management       *   FILE1016
//*                before using KEEPITUP.                           *   FILE1016
//*     LISTTSOU - List TSO users currently logged on.              *   FILE1016
//*                listtsou asid                                    *   FILE1016
//*                 THE FOLLOWING TSO USERS ARE CURRENTLY ACTIVE -  *   FILE1016
//*                  BENMAR(X'003E') SMYERS(X'002D')                *   FILE1016
//*     LMATTR   - List a simplified module map of load modules.    *   FILE1016
//*     LOGTIMED - List logon information about your TSO session.   *   FILE1016
//*     RESETPDS - Delete all members of a PDS or PDSE, and         *   FILE1016
//*                arrange a PDS so the next member added to the    *   FILE1016
//*                data set immediately follows the directory.      *   FILE1016
//*     TIOT     - A TSO command to list the TIOT for your TSO      *   FILE1016
//*                session.  A useful enhancement is TIOT lists     *   FILE1016
//*                the current EXCP count for each DD statement.    *   FILE1016
//*                tiot f(sys0)                                     *   FILE1016
//*                 SMYERS QCBTPROC QCBTPROC                        *   FILE1016
//*                 SYS00047 5103 CBT004 10 SMYERS.LOAD             *   FILE1016
//*                The 10 between the volume serial and data        *   FILE1016
//*                set name is the current EXCP count for the       *   FILE1016
//*                DD.  This is not as useful as one might          *   FILE1016
//*                expect as z/OS frequently resets these           *   FILE1016
//*                counters.                                        *   FILE1016
//*     TSO      - A command that will execute the command          *   FILE1016
//*                string that follows the TSO command.  TSO is     *   FILE1016
//*                a convenience for TSO users accustomed to        *   FILE1016
//*                entering TSO command on an ISPF Command line     *   FILE1016
//*                when in TSO READY.                               *   FILE1016
//*     TSOLPDIR - (alias LISTPDS) A TSO command to list PDS        *   FILE1016
//*                directory entries.  When run in TSO in batch,    *   FILE1016
//*                TSOLPDIR is a useful replacement for the         *   FILE1016
//*                IEHLIST LISTPDS command without requiring the    *   FILE1016
//*                the difficult JCL setup and the                  *   FILE1016
//*                VOL=device-type=VVVVVV parameter on the          *   FILE1016
//*                LISTPDS command.                                 *   FILE1016
//*     XI       - A command that permits several TSO commands      *   FILE1016
//*                to be stacked on one line.  The original idea    *   FILE1016
//*                for XI was PCF, a long forgotten TSO add on.     *   FILE1016
//*                More often than not, PCF command stacking        *   FILE1016
//*                simply did not seem to work.  It is a viable     *   FILE1016
//*                alternate to using the "Field Mark" key on       *   FILE1016
//*                real 3270 terminals, but its use has declined    *   FILE1016
//*                as most 3270 emulators do not seem to provide    *   FILE1016
//*                the "Field Mark" key, require multiple key       *   FILE1016
//*                presses to enter a "Field Mark," or change       *   FILE1016
//*                what a terminal operator must enter to enter     *   FILE1016
//*                a "Field Mark" from release to release of the    *   FILE1016
//*                terminal emulator.                               *   FILE1016
//*                                                                 *   FILE1016
//***FILE1017 is from Steve Myers, and contains a batch utility     *   FILE1017
//*           to analyze the contents of load libraries in          *   FILE1017
//*           detail.  This analysis can be used to compare load    *   FILE1017
//*           libraries for changes, and to understand details      *   FILE1017
//*           about their general contents.                         *   FILE1017
//*                                                                 *   FILE1017
//*     email:  Steve Myers <mvsprog@yahoo.com>                     *   FILE1017
//*                                                                 *   FILE1017
//*     General Description:                                        *   FILE1017
//*                                                                 *   FILE1017
//*     The LMXREF utilities analyze load libraries and extract     *   FILE1017
//*     the IDR data in the load modules and reports this data.     *   FILE1017
//*     LMXREF is batch, not TSO.                                   *   FILE1017
//*                                                                 *   FILE1017
//*     At least in concept, the programs can analyze several       *   FILE1017
//*     libraries:  For example, a staging library for              *   FILE1017
//*     production programs and the production program library      *   FILE1017
//*     can be analyzed to verify the programs in the staging       *   FILE1017
//*     library reached the production library.                     *   FILE1017
//*                                                                 *   FILE1017
//*     The first program, LMXREF, analyzes a load library and      *   FILE1017
//*     creates a data set that is then processed by the LMXREFR    *   FILE1017
//*     utility.  Several LMXREF data sets can be processed by      *   FILE1017
//*     LMXREFR in a single run.                                    *   FILE1017
//*                                                                 *   FILE1017
//***FILE1018 is from Dale Tyvand and contains a "super duper"      *   FILE1018
//*           IEFACTRT exit, which displays a lot of information.   *   FILE1018
//*           I think that (at least) some shops would very much    *   FILE1018
//*           enjoy having this exit available for their use, or    *   FILE1018
//*           even just to learn from.                              *   FILE1018
//*                                                                 *   FILE1018
//*           One of the motivations of putting this exit here,     *   FILE1018
//*           is to keep it maintained, since it is quite a         *   FILE1018
//*           complicated piece of work.  If you make changes       *   FILE1018
//*           to this exit, or fix it for a later operating         *   FILE1018
//*           system, please contact:                               *   FILE1018
//*                                                                 *   FILE1018
//*           TechnicalServices@pemco.com   or                      *   FILE1018
//*                                                                 *   FILE1018
//*           Dale Tyvand (V) <Dale.Tyvand@pemco.com>               *   FILE1018
//*                                                                 *   FILE1018
//*           as well as contacting me:  sbgolob@cbttape.org        *   FILE1018
//*                                                                 *   FILE1018
//*           with the new source code.                             *   FILE1018
//*                                                                 *   FILE1018
//*           Please see member $$NOTE00 in this pds for more       *   FILE1018
//*           details.  Some sample output from this exit           *   FILE1018
//*           (which is sure to impress) is included in XMIT        *   FILE1018
//*           format.  Member $$NOTE01 is a CLIST which will        *   FILE1018
//*           convert the FB-80 XMIT file to its proper FB-133      *   FILE1018
//*           format.                                               *   FILE1018
//*                                                                 *   FILE1018
//*           email:  Dale Tyvand (V) <Dale.Tyvand@pemco.com>       *   FILE1018
//*                                                                 *   FILE1018
//***FILE1019 is from Steve Myers and is a self-contained package   *   FILE1019
//*           of SMF-related programs.  This file has some overlap  *   FILE1019
//*           with Steve's File 956, but it is suggested to use     *   FILE1019
//*           this file by itself.                                  *   FILE1019
//*                                                                 *   FILE1019
//*           For example, the SCAN118 program is identical in      *   FILE1019
//*           the two files:  1019 and 956, but QSORTS has been     *   FILE1019
//*           rewritten in this file to use JUMP instructions,      *   FILE1019
//*           although both versions have the same functionality.   *   FILE1019
//*           To avoid confusion, if you haven't already installed  *   FILE1019
//*           some of these programs from File 956, it is recommen- *   FILE1019
//*           ded to use this file exclusively.                     *   FILE1019
//*                                                                 *   FILE1019
//*           Please see the $DOC member for prorgram details.      *   FILE1019
//*                                                                 *   FILE1019
//*           email:  Steve Myers <mvsprog@yahoo.com>               *   FILE1019
//*                                                                 *   FILE1019
//***FILE1020 is from Steve Myers and contains a program to cross   *   FILE1020
//*           reference a large number of assembler listings, and   *   FILE1020
//*           to report the occurrence of variables, across the     *   FILE1020
//*           whole collection.                                     *   FILE1020
//*                                                                 *   FILE1020
//*           email:  Steve Myers <mvsprog@yahoo.com>               *   FILE1020
//*                                                                 *   FILE1020
//*     Product Description:                                        *   FILE1020
//*                                                                 *   FILE1020
//*     GBLXREF is a tool to contruct a global XREF of Assembler    *   FILE1020
//*     systems containing multiple modules.  GBLXREF was           *   FILE1020
//*     developed for JES2.  It is a viable replacement for         *   FILE1020
//*     XREFASM in CBT file 162.                                    *   FILE1020
//*                                                                 *   FILE1020
//*     The original inspiration for GBLXREF was a global symbol    *   FILE1020
//*     table in some PLM manuals for HASP-II Version 4.  Early     *   FILE1020
//*     versions of GBLXREF were much like the XREFASM utility      *   FILE1020
//*     in "file" 162 of the CBT collection, except it could        *   FILE1020
//*     process both Assembler H output as well as output from      *   FILE1020
//*     the OS/VS System Assembler, more commonly called the        *   FILE1020
//*     IFOX assembler.                                             *   FILE1020
//*                                                                 *   FILE1020
//*     The SYSADATA output created by Version 1.4 of the High      *   FILE1020
//*     Level Assembler suggested useful enhancements: the          *   FILE1020
//*     ability to detect and report symbols that were modified,    *   FILE1020
//*     and resistance to changes in Assembler output.  A few       *   FILE1020
//*     minor changes were required to support High Level           *   FILE1020
//*     Assembler release 5, though no changes were required for    *   FILE1020
//*     release 6.                                                  *   FILE1020
//*                                                                 *   FILE1020
//*     The process to run something like GBLXREF suggested         *   FILE1020
//*     several processing requirements.                            *   FILE1020
//*                                                                 *   FILE1020
//*     - There must be a method to determine the global            *   FILE1020
//*       symbols; in HASP and JES2 these symbols are in module     *   FILE1020
//*       HASPDOC.                                                  *   FILE1020
//*                                                                 *   FILE1020
//*     - To simplify JCL, there must be a utility to prepare       *   FILE1020
//*       the ADATA data set in as few steps as possible, as        *   FILE1020
//*       well as reduce the volume of data in the ADATA data       *   FILE1020
//*       set.                                                      *   FILE1020
//*                                                                 *   FILE1020
//*          C O N T E N T S   O F   T H I S   D A T A S E T        *   FILE1020
//*                                                                 *   FILE1020
//*     Member     Purpose                                          *   FILE1020
//*     $DOC     - This member                                      *   FILE1020
//*     ASMJES2  - JCL to assemble JES2 and then run the GBLXREF    *   FILE1020
//*                utility.  The space allocations in the JCL       *   FILE1020
//*                work well for JES2 in z/OS 2.5.                  *   FILE1020
//*     GBLXREF  - Source for the GBLXREF utility                   *   FILE1020
//*     GENXREF  - JCL to assemble and link GBLXREF and the         *   FILE1020
//*                other programs in this collection                *   FILE1020
//*     JESASM   - Source for the utility to assemble source        *   FILE1020
//*                modules and prepare the ADATA data set for       *   FILE1020
//*                GBLXREF                                          *   FILE1020
//*     MEMBLIST - Source for the utility to create a JESASM        *   FILE1020
//*                CONTROL data set                                 *   FILE1020
//*     MINIFMT  - Source for functions used by GBLXREF to          *   FILE1020
//*                create messages                                  *   FILE1020
//*     OBJASM   - Object "decks" for JESASM                        *   FILE1020
//*     OBJXREF  - Object "decks" for GBLXREF                       *   FILE1020
//*     OBJMLIST - Object "deck" for MEMBLIST                       *   FILE1020
//*     QSORTS   - Source for functions used by GBLXREF to sort     *   FILE1020
//*                data                                             *   FILE1020
//*     REPORT   - A typical GBLXREF report.  This member is        *   FILE1020
//*                compressed data in XMIT format.                  *   FILE1020
//*     RUNXREF  - JCL to run the GBLXREF utility.                  *   FILE1020
//*                                                                 *   FILE1020
//***FILE1021 is from Steve Myers and contains an improved version  *   FILE1021
//*           of EALSD095, to be able to print block letters.       *   FILE1021
//*           See the member called $DOC for a more detailed        *   FILE1021
//*           description.  The original EASLD095 is on CBT File    *   FILE1021
//*           316, which is a derivative of IBM's IEFSD095.         *   FILE1021
//*                                                                 *   FILE1021
//*           email:  Steve Myers <mvsprog@yahoo.com>               *   FILE1021
//*                                                                 *   FILE1021
//***FILE1022 is from Glenn Siegel and contains his automation      *   FILE1022
//*           process for IBM's SCRT report.                        *   FILE1022
//*                                                                 *   FILE1022
//*           email:  GlennSiegel@optonline.net                     *   FILE1022
//*                                                                 *   FILE1022
//*    Here is my version of the automation and emailing of IBM's   *   FILE1022
//*    SCRT report by Glenn Siegel.                                 *   FILE1022
//*    This process/job is scheduled to run on third day of every   *   FILE1022
//*    month.                                                       *   FILE1022
//*    I use XMITIP to email my reports.  This is a great email     *   FILE1022
//*    tool by Lionel B. Dyck, thank you for all of your work,      *   FILE1022
//*    Lionel.                                                      *   FILE1022
//*    If you don't have it you'll need it for this process.        *   FILE1022
//*                                                                 *   FILE1022
//***FILE1023 is from Richard Humphris, and contains a package of   *   FILE1023
//*           programs to produce a Cross-Reference report for      *   FILE1023
//*           REXX programs, which is very useful.  The programs    *   FILE1023
//*           are referred to, as the REXX xreference utility.      *   FILE1023
//*                                                                 *   FILE1023
//*     email:  richard.humphris <richard.humphris@netnitco.net>    *   FILE1023
//*                                                                 *   FILE1023
//*     DESCRIPTIVE OVERVIEW OF XREFERENCE...                       *   FILE1023
//*                                                                 *   FILE1023
//*     Why do we need/want a REXX xref?   Because variables        *   FILE1023
//*     are not declared in REXX, and any misspelling of a          *   FILE1023
//*     variable (in an assignment and/or reference) can easily     *   FILE1023
//*     go undetected.   But with an xref and using it in           *   FILE1023
//*     looking for problems (especially in large execs), is        *   FILE1023
//*     much easier than visually looking thru an entire rexx       *   FILE1023
//*     exec.                                                       *   FILE1023
//*                                                                 *   FILE1023
//*     And the IBM rexx compiler, which not every one has, has     *   FILE1023
//*                only recently added the following support in     *   FILE1023
//*                their xreference: XREF has been enhanced to      *   FILE1023
//*                provide more details in the compiler             *   FILE1023
//*                listing, such as information about exposed       *   FILE1023
//*                and dropped variables, variables without         *   FILE1023
//*                assignment, and optimization stoppers.           *   FILE1023
//*                                                                 *   FILE1023
//*     This, free offering, on the CBT tape, does almost           *   FILE1023
//*            everything the IBM compiler does.   But it also      *   FILE1023
//*            provides more visual clues than the IBM compiler     *   FILE1023
//*            has.   This XREF has: - provides references for      *   FILE1023
//*            exposed and dropped variables (just like it does     *   FILE1023
//*            for any other reference).  - variables in the        *   FILE1023
//*            xreference are separated by:                         *   FILE1023
//*                  - assignment use                               *   FILE1023
//*                  - reference use                                *   FILE1023
//*                  - label definition (and warns about            *   FILE1023
//*                  duplicate labels) - label use (function,       *   FILE1023
//*                  call, signal on, call on) - variable shows     *   FILE1023
//*                  up in xref in either UPPER or Lower case       *   FILE1023
//*                  (upper case, if never assigned a value)        *   FILE1023
//*            - stem variables show up in the xref along with      *   FILE1023
//*                  any variables used after the first period.     *   FILE1023
//*                  - any assignment/reference to a stem           *   FILE1023
//*                  variable also appears with any variables       *   FILE1023
//*                  used after the stem.                           *   FILE1023
//*                  - and those variables to the right of the      *   FILE1023
//*                  stem will appear in either UPPER or LOWER      *   FILE1023
//*                  case depending on whether that variable        *   FILE1023
//*                  was ever assigned a value.   Note:   IBM's     *   FILE1023
//*                  compiler also shows variables used with a      *   FILE1023
//*                  stem variable, but doesn't show (visually)     *   FILE1023
//*                  whether variable was assigned a value (or      *   FILE1023
//*                  not)).                                         *   FILE1023
//*                                                                 *   FILE1023
//*     Like the IBM compiler XREF, close examination of the        *   FILE1023
//*     XREF can help you identify problems with the rexx code      *   FILE1023
//*     that would be hard to spot otherwise.   Hopefully, the      *   FILE1023
//*     upper/lower case in this xreference may make it even        *   FILE1023
//*     easier to use than a normal xref.                           *   FILE1023
//*                                                                 *   FILE1023
//*     IBM's compiler also creates a xref for literals.   This     *   FILE1023
//*     one does not.   If this is a feature you want, please       *   FILE1023
//*     contact me and I may provide that as well.                  *   FILE1023
//*                                                                 *   FILE1023
//*     Included in the the offering is extensive                   *   FILE1023
//*     documentation, along with sample rexx exec's (and their     *   FILE1023
//*     associated xreference output).                              *   FILE1023
//*                                                                 *   FILE1023
//*     Also the documentation, using sample rexx execs and         *   FILE1023
//*     xref listings, shows various problems that can be           *   FILE1023
//*     detected in the xref.                                       *   FILE1023
//*                                                                 *   FILE1023
//*     In addition, the documentation provides some technical      *   FILE1023
//*     information about how the rexx xref itself works            *   FILE1023
//*     internally.   Along with some rexx performance tips in      *   FILE1023
//*     the technical documentation.                                *   FILE1023
//*                                                                 *   FILE1023
//***FILE1024 is from Lennie Dymoke-Bradshaw, and contains some of  *   FILE1024
//*           the utilities he wrote for public distribution.       *   FILE1024
//*                                                                 *   FILE1024
//*      web site:  https://rsclweb.com/downloads/                  *   FILE1024
//*      name    :  Reverse Sweep Consulting Limited                *   FILE1024
//*                                                                 *   FILE1024
//*     Distribution:                                               *   FILE1024
//*                                                                 *   FILE1024
//*     Lennie normally distributes his code from his web site.     *   FILE1024
//*     So the remarks below are tailored for being distributed     *   FILE1024
//*     that way.  The reason for the method, is that Lennie        *   FILE1024
//*     wants to efficiently distribute updates (if any) to         *   FILE1024
//*     whomever needs them.  Therefore he asks each "downloader"   *   FILE1024
//*     to register personally.                                     *   FILE1024
//*                                                                 *   FILE1024
//*     However, since I (Sam Golob) are registered with him also,  *   FILE1024
//*     Lennie can send me any updates, so that I can update the    *   FILE1024
//*     CBT Tape, and everybody who got it from here, will also     *   FILE1024
//*     get the updates in a timely manner.                         *   FILE1024
//*                                                                 *   FILE1024
//*     Each program product (in this pds) will be distributed in   *   FILE1024
//*     two members:  PROGRAM and PROGRAM#.  This is the naming     *   FILE1024
//*     convention.  The PROGRAM member will contain a zip file     *   FILE1024
//*     containing all the source code and other "ingredients"      *   FILE1024
//*     necessary for installation and operation.  You should       *   FILE1024
//*     download the zip file for each program product to a PC,     *   FILE1024
//*     in BINARY, unzip it there, and you will have everything     *   FILE1024
//*     you need.                                                   *   FILE1024
//*                                                                 *   FILE1024
//*     The PROGRAM# member contains a text (EBCDIC) description    *   FILE1024
//*     of the program package.                                     *   FILE1024
//*                                                                 *   FILE1024
//*     If you get this material from here (the CBT Tape), you      *   FILE1024
//*     get all of the programs together, and you don't have to     *   FILE1024
//*     download them individually.                                 *   FILE1024
//*                                                                 *   FILE1024
//*     Programs and Code                                           *   FILE1024
//*                                                                 *   FILE1024
//*     Over many years I have written hundreds of thousands of     *   FILE1024
//*     lines of code. Most of this was for clients and             *   FILE1024
//*     employers, including IBM.  (I was part of the project       *   FILE1024
//*     that wrote the first z/OS healthchecker, and also worked    *   FILE1024
//*     for a short while on zSecure development.) I think a lot    *   FILE1024
//*     of code I wrote is still in use.                            *   FILE1024
//*                                                                 *   FILE1024
//*     The following programs and code are examples of which       *   FILE1024
//*     may be of use to you. All of these programs are supplied    *   FILE1024
//*     without absolute guarantees ??. But they can be used        *   FILE1024
//*     entirely at your discretion.                                *   FILE1024
//*                                                                 *   FILE1024
//*     CONCAT      TSO command for dynamic concatenation.          *   FILE1024
//*     RACFREE     TSO command to free in-storage RACF             *   FILE1024
//*                 resources.                                      *   FILE1024
//*     TICKET      TSO command to tag RACF SMF records with        *   FILE1024
//*                 change id.                                      *   FILE1024
//*     ICHRCX02    for Erase On Scratch   Exit to selectively      *   FILE1024
//*                 erase temporary data sets.                      *   FILE1024
//*     CSIREXX     REXX interface to read detailed catalog         *   FILE1024
//*                 information.                                    *   FILE1024
//*     CSFXFER     REXX routines to move a key from one CKDS to    *   FILE1024
//*                 another CKDS.                                   *   FILE1024
//*     REXXENQ0    Program to invoke a REXX routine while          *   FILE1024
//*                 holding a global ENQ.                           *   FILE1024
//*     RACF Snoop  TSO commands and ISPF application to examine    *   FILE1024
//*                 RACF security for multiple address spaces       *   FILE1024
//*                                                                 *   FILE1024
//*     Please contact me if,                                       *   FILE1024
//*       you find problems or bugs in the code,                    *   FILE1024
//*       you need further information about them,                  *   FILE1024
//*       you make any enhancements to the code or fix problems     *   FILE1024
//*       yourself.                                                 *   FILE1024
//*       I would also appreciate the opportunity to                *   FILE1024
//*       incorporate your enhancements and/or fixes.               *   FILE1024
//*                                                                 *   FILE1024
//*     Before providing you access to the code, the links below    *   FILE1024
//*     ask you to provide me a couple of contact details. Then     *   FILE1024
//*     I can contact you if new versions or bug fixes become       *   FILE1024
//*     available or if I have new programs available here.         *   FILE1024
//*                                                                 *   FILE1024
//*     If you wish, please use the 'Contact Me' page to comment    *   FILE1024
//*     on these programs.                                          *   FILE1024
//*                                                                 *   FILE1024
//*     Final note: Many of these packages use files in XMIT        *   FILE1024
//*     format.  These files can be viewed on a Windows PC using    *   FILE1024
//*     various software packages. I like the V file viewer. I      *   FILE1024
//*     have no connection with the makers of this software         *   FILE1024
//*     except that I find the software really useful and not       *   FILE1024
//*     expensive.                                                  *   FILE1024
//*                                                                 *   FILE1024
//***FILE1025 is from Steve Myers and contains a batch program to   *   FILE1025
//*           simulate an ISPF 3.4 dataset list.  (This is the list *   FILE1025
//*           only--you can't do anything with the names.)          *   FILE1025
//*           The program name is DSLIST.                           *   FILE1025
//*                                                                 *   FILE1025
//*           email:  Steve Myers <mvsprog@yahoo.com>               *   FILE1025
//*                                                                 *   FILE1025
//***FILE1026 is from Jay Moseley and consists of documentation     *   FILE1026
//*           for how to use (currently 46) MVS-based utilities     *   FILE1026
//*           that he finds useful.  Most of these utilities        *   FILE1026
//*           (not all of them) have versions that can be used      *   FILE1026
//*           in both MVS 3.8 under Hercules, or under z/OS.        *   FILE1026
//*           Some of them come from IBM, and some come from the    *   FILE1026
//*           CBT Tape.                                             *   FILE1026
//*                                                                 *   FILE1026
//*           email:  Jay Moseley <JayMoseley@suddenlink.net>       *   FILE1026
//*                                                                 *   FILE1026
//*           Because Jay wrote the original documentation in       *   FILE1026
//*           HTML format, I am including a copy of that here,      *   FILE1026
//*           although he converted the resulting document to       *   FILE1026
//*           PDF format, and the PDF-format document is all that   *   FILE1026
//*           you really need.                                      *   FILE1026
//*                                                                 *   FILE1026
//*           So, to use either document (for example the PDF       *   FILE1026
//*           document), just download it in BINARY to a PC         *   FILE1026
//*           computer, and view it with a PDF reader, such as      *   FILE1026
//*           ADOBE or FOXIT.                                       *   FILE1026
//*                                                                 *   FILE1026
//*           To use the html-format document, you also need to     *   FILE1026
//*           download it in BINARY to a PC, but you have to        *   FILE1026
//*           rename it on the PC to suffix it with .htm or .html.  *   FILE1026
//*           Then you can view it with a browser, with the name    *   FILE1026
//*           in the format:  file:///h:/download/moseley.doco.htm  *   FILE1026
//*           (Substitute your disk pack letter for "h", and the    *   FILE1026
//*           correct file name that is on your system.)            *   FILE1026
//*                                                                 *   FILE1026
//*           If you make the effort to look at this file, it will  *   FILE1026
//*           reward you many times over.                           *   FILE1026
//*                                                                 *   FILE1026
//*           These tools originate, either from IBM directly, or   *   FILE1026
//*           from the CBT Tape.  The CBT Tape File number is       *   FILE1026
//*           marked clearly in the index part of the document,     *   FILE1026
//*           at the top of the document.                           *   FILE1026
//*                                                                 *   FILE1026
//*           It'll take some work, but the enjoyment awaits        *   FILE1026
//*           immediately afterward.                                *   FILE1026
//*                                                                 *   FILE1026
//*      Note:  The CBT sources mentioned here may not reflect      *   FILE1026
//*             the newest or "best" version of the program named.  *   FILE1026
//*             Sometimes, a different program from the CBT Tape    *   FILE1026
//*             will do a better job.  This is Jay's experience.    *   FILE1026
//*                                                                 *   FILE1026
//*      List of programs documented in this file                   *   FILE1026
//*      ---- -- -------- ---------- -- ---- ----                   *   FILE1026
//*                                                                 *   FILE1026
//*             AMASPZAP        IBM                                 *   FILE1026
//*             AMBLIST         IBM                                 *   FILE1026
//*             CMPRSEQ         CBT File #226                       *   FILE1026
//*             COPYMODS        CBT File #229                       *   FILE1026
//*             DSSDUMP         CBT File #860                       *   FILE1026
//*             DSSREST         CBT File #860                       *   FILE1026
//*             FIXDSCB         CBT File #566                       *   FILE1026
//*             ICKDSF          IBM                                 *   FILE1026
//*             IEBCOMPR        IBM                                 *   FILE1026
//*             IEBCOPY         IBM                                 *   FILE1026
//*             IEBGENER        IBM                                 *   FILE1026
//*             IEBISAM         IBM                                 *   FILE1026
//*             IEBPTPCH        IBM                                 *   FILE1026
//*             IEBUPDTE        IBM                                 *   FILE1026
//*             IEHDASDR        IBM                                 *   FILE1026
//*             IEHINITT        IBM                                 *   FILE1026
//*             IEHLIST         IBM                                 *   FILE1026
//*             IEHMAP          CBT V129 File83                     *   FILE1026
//*             IEHMOVE         IBM                                 *   FILE1026
//*             IEHPROGM        IBM                                 *   FILE1026
//*             LISTPDS         CBT File #316                       *   FILE1026
//*             MINIUNZ         CBT File #135                       *   FILE1026
//*             MINIZIP         CBT File #135                       *   FILE1026
//*             OFFLOAD         CBT File #093                       *   FILE1026
//*             PDSLOAD         CBT File #093                       *   FILE1026
//*             PDSMATCH        CBT File #357                       *   FILE1026
//*             PDSPRINT        CBT File #316                       *   FILE1026
//*             PDSPROGM        CBT File #316                       *   FILE1026
//*             PDSSCAN         CBT File #684                       *   FILE1026
//*             PDSUPDTE        CBT OVF FIle065                     *   FILE1026
//*             PDSUR           CBT File #949                       *   FILE1026
//*             RECV370         CBT File #571                       *   FILE1026
//*             RESETDS         NaSPA 1986                          *   FILE1026
//*             REVLMOD         CBT File #134                       *   FILE1026
//*             SORT            IBM                                 *   FILE1026
//*             SUPERLST        CBT File #134                       *   FILE1026
//*             SYSREPRO        CBT File #316                       *   FILE1026
//*             TAPEMAP         CBT File #299                       *   FILE1026
//*             TAPESCAN        CBT File #102                       *   FILE1026
//*             UNUPDTE         CBT File #093                       *   FILE1026
//*             UPDTE           CBT File #093                       *   FILE1026
//*             VTOCLIST        CBT OVF File343                     *   FILE1026
//*             XMIT370         CBT File #571                       *   FILE1026
//*             ZAPDSCB         CBT File #163                       *   FILE1026
//*             ZTDUMPTP        CBT File #316                       *   FILE1026
//*             ZZRELINK        CBT File #860                       *   FILE1026
//*                                                                 *   FILE1026
//***FILE1027 is from Paul Lemons and contains a package to look    *   FILE1027
//*           at any JES2 output, and redirect it to an email.      *   FILE1027
//*           Please read the various "README*" members to see how  *   FILE1027
//*           this is done, so you can set it up for yourself.      *   FILE1027
//*                                                                 *   FILE1027
//*           There is one XMIT-ed member in the pds, called        *   FILE1027
//*           "BOOK", which contains all the necessary materials    *   FILE1027
//*           and documentation, when it has been "RECEIVE-d".      *   FILE1027
//*                                                                 *   FILE1027
//*           Good luck.                                            *   FILE1027
//*                                                                 *   FILE1027
//*      email:  Paul Lemons (Vericast) <Paul.Lemons@Vericast.com>  *   FILE1027
//*                                                                 *   FILE1027
//***FILE1028 is from Kevin Ferguson, and contains a version of     *   FILE1028
//*           the SUPERXMT program from a XEPHON article (which     *   FILE1028
//*           we are now able to use, with no restrictions).        *   FILE1028
//*                                                                 *   FILE1028
//*           SUPERXMT allows you to get around the OUTLIMIT        *   FILE1028
//*           restrictions, which the installation has placed       *   FILE1028
//*           on the XMIT command (as to the size of its output).   *   FILE1028
//*                                                                 *   FILE1028
//*           email:  kevin@abbydalesystems.com                     *   FILE1028
//*                                                                 *   FILE1028
//***FILE1029 is from Daniel Gaeta and contains a service package   *   FILE1029
//*           called RXP.  RXP performs EXECIO-like operations on   *   FILE1029
//*           data.  See member called $README (one "$") for some   *   FILE1029
//*           further explanation of how to use this package.       *   FILE1029
//*                                                                 *   FILE1029
//*           Source is currently not provided.  The executing      *   FILE1029
//*           code (from member - in XMIT-format) called LOAD       *   FILE1029
//*           is from C/370 language source.                        *   FILE1029
//*                                                                 *   FILE1029
//*           email:  Daniel Gaeta <dfgaeta@me.com>                 *   FILE1029
//*                                                                 *   FILE1029
//*           This package was shipped with an OFFLOAD-ed pds       *   FILE1029
//*           called EXEC.  I have expanded all the EXEC members,   *   FILE1029
//*           with ISPF-ID's given to them in the name of EXEC,     *   FILE1029
//*           so that one can see (a bit) more clearly, what the    *   FILE1029
//*           package can do.                                       *   FILE1029
//*                                                                 *   FILE1029
//***FILE1030 is from Daniel Gaeta and contains RXSQLITE, which is  *   FILE1030
//*           an alternative to using SQLITE in the REXX language.  *   FILE1030
//*           See member $README for more details.                  *   FILE1030
//*                                                                 *   FILE1030
//*           email:  Daniel Gaeta <dfgaeta@me.com>                 *   FILE1030
//*                                                                 *   FILE1030
//***FILE1031 is a set of programs to address an issue of           *   FILE1031
//*           "irregular" ISPF statistics.                          *   FILE1031
//*                                                                 *   FILE1031
//*      email:   sbgolob@cbttape.org   (for support contact)       *   FILE1031
//*                                                                 *   FILE1031
//*      Description of the Problem:                                *   FILE1031
//*                                                                 *   FILE1031
//*           The particular "irregularity" that is addressed, is   *   FILE1031
//*           the packed numeric "create date" and "last changed    *   FILE1031
//*           date", when the packed number ends in X'nC' rather    *   FILE1031
//*           than X'nF'.  The problem occurs when a user program   *   FILE1031
//*           tries to display the date and uses an UNPK (unpack)   *   FILE1031
//*           instruction instead of using an EDIT assembler        *   FILE1031
//*           instruction.  If the packed number ends in X'nC',     *   FILE1031
//*           where n is a number from 0 to 9, then the UNPK        *   FILE1031
//*           instruction turns the nibbles around to create the    *   FILE1031
//*           byte X'Cn' (non-numeric) instead of X'Fn', which is   *   FILE1031
//*           numeric.  The non-numeric result ruins subsequent     *   FILE1031
//*           processing.  We wish to detect and correct all such   *   FILE1031
//*           errors:                                               *   FILE1031
//*                                                                 *   FILE1031
//*           There are the following programs in this file:        *   FILE1031
//*           The first two are assembler programs, which have      *   FILE1031
//*           to be assembled and linkedited (jobs included).       *   FILE1031
//*           The third member is a CLIST.                          *   FILE1031
//*                                                                 *   FILE1031
//*      PDSCF    - Read in a PDS and detect if it has irregular    *   FILE1031
//*                 ISPF statistics with packed numbers ending      *   FILE1031
//*                 in "C".                                         *   FILE1031
//*                                                                 *   FILE1031
//*      RESETCF  - Change the packed number ending in "C" to a     *   FILE1031
//*                 packed number ending in "F".  Actually to       *   FILE1031
//*                 fix the error indicated by the PDSCF program,   *   FILE1031
//*                 for one pds member.                             *   FILE1031
//*                                                                 *   FILE1031
//*      RESETCFC - A CLIST to run RESETCF against every member     *   FILE1031
//*                 of a pds, to change the packed numbers ending   *   FILE1031
//*                 in "C" to a packed number ending in "F".        *   FILE1031
//*                                                                 *   FILE1031
//***FILE1032 is from Ben Marino, and is a sophisticated "service   *   FILE1032
//*           provider", which allows you to provide multiple       *   FILE1032
//*           services to any address space in the system.  This    *   FILE1032
//*           product uses a stacking PC which performs the         *   FILE1032
//*           multiple services.                                    *   FILE1032
//*                                                                 *   FILE1032
//*           Documentation is provided by several members in this  *   FILE1032
//*           pds.  The first place you should look is in member    *   FILE1032
//*           $DOC, which describes the basic architecture and      *   FILE1032
//*           functionality of the ZXPC product.  The next place    *   FILE1032
//*           you should look, is member $INSTALL.  This member     *   FILE1032
//*           contains 6 simple steps which are necessary to        *   FILE1032
//*           install the product.                                  *   FILE1032
//*                                                                 *   FILE1032
//*           To install the product, you first have to assemble    *   FILE1032
//*           and linkedit it, so you have to see member ZXPCLINK.  *   FILE1032
//*                                                                 *   FILE1032
//*           Then look at member $ZLISTEN, which contains examples *   FILE1032
//*           of how to use the "system event listener" facility.   *   FILE1032
//*           There is also another facility which allows you to    *   FILE1032
//*           add or delete a module from dynamic LPA.  And there   *   FILE1032
//*           is more:                                              *   FILE1032
//*                                                                 *   FILE1032
//*      To see a list of all facilities which this product can     *   FILE1032
//*      provide, look in member $DOC2.                             *   FILE1032
//*                                                                 *   FILE1032
//*      LIST OF SERVICES CURRENTLY PROVIDED BY THIS PRODUCT        *   FILE1032
//*      (as it is currently written - you can add more services    *   FILE1032
//*      by writing your own PC routine - by simply adding a        *   FILE1032
//*      subroutine in module XPCSRV.)  In routine XPCSRV, there    *   FILE1032
//*      is a model that you can clone, to provide whatever         *   FILE1032
//*      service you want.  The model is called, "MODEL".           *   FILE1032
//*                                                                 *   FILE1032
//*      ZLISTEN - System events listener facility.                 *   FILE1032
//*                Defines a listener routine that receives         *   FILE1032
//*                control when a specified system event            *   FILE1032
//*                occurs. The listener routine can execute         *   FILE1032
//*                under the TCB and address space where the        *   FILE1032
//*                event occurs, under a different TCB or           *   FILE1032
//*                under a TCB of different address space.          *   FILE1032
//*                                                                 *   FILE1032
//*      ZDYNLPA - Dynamic-LPA facility.                            *   FILE1032
//*                Add/delete modules to/from dynamic-LPA. The      *   FILE1032
//*                module can be added in pageable or fixed         *   FILE1032
//*                storage and page protected storage.              *   FILE1032
//*                                                                 *   FILE1032
//*      ZPROT   - Virtual storage validation facility.             *   FILE1032
//*                The TPROT instruction does not distinguish       *   FILE1032
//*                between a valid and invalid storage              *   FILE1032
//*                address. When the referenced page is             *   FILE1032
//*                swapped out, TPROT sets translation not          *   FILE1032
//*                available condition code 3.                      *   FILE1032
//*                                                                 *   FILE1032
//*                ZPROT handles what TPROT does not. It            *   FILE1032
//*                validates a storage address by determining       *   FILE1032
//*                if the storage key and PSW key match. ZPROT      *   FILE1032
//*                switches to the caller's PSW key and does        *   FILE1032
//*                fetch and store into the page. An invalid        *   FILE1032
//*                fetch and store is handled by its FRR            *   FILE1032
//*                routine. ZPROT sets a return code in             *   FILE1032
//*                register 15 that indicates the result of         *   FILE1032
//*                the storage validation test as follows:          *   FILE1032
//*                                                                 *   FILE1032
//*                R15 - return code                                *   FILE1032
//*                 00 - address is valid                           *   FILE1032
//*                 04 - 0C4-4  Protection Exception                *   FILE1032
//*                 08 - 0C5-5  Addressing Exception                *   FILE1032
//*                 12 - 0C4-10 Segment Translation Exception       *   FILE1032
//*                 16 - 0C4-11 Page Translation Exception          *   FILE1032
//*                 20 - Internal service routine failure           *   FILE1032
//*                                                                 *   FILE1032
//*      ZGETMEM - Storage management facility.                     *   FILE1032
//*                Obtains private storage outside the primary      *   FILE1032
//*                address space by simply specifying the           *   FILE1032
//*                STOKEN, JOBname, STCname, or TSUname of the      *   FILE1032
//*                target address space.                            *   FILE1032
//*                                                                 *   FILE1032
//*      ZFREMEM - Storage management facility.                     *   FILE1032
//*                Releases private storage outside the             *   FILE1032
//*                primary address space by simply specifying       *   FILE1032
//*                the STOKEN, JOBname, STCname, or TSUname of      *   FILE1032
//*                the target address space.                        *   FILE1032
//*                                                                 *   FILE1032
//*      ZCOPY   - Data copy facility.                              *   FILE1032
//*                Copies data across address spaces without        *   FILE1032
//*                the use of SQA/CSA storage buffers by            *   FILE1032
//*                simply specifying the STOKEN, JOBname,           *   FILE1032
//*                STCname or TSUname of the target address         *   FILE1032
//*                space.                                           *   FILE1032
//*                                                                 *   FILE1032
//*      ZAUTH   - Authorization facility.                          *   FILE1032
//*                Changes jobstep authorization to allow you       *   FILE1032
//*                to issue the MODESET Supervisor call             *   FILE1032
//*                without suffering S047 ABENDs.                   *   FILE1032
//*                                                                 *   FILE1032
//***FILE1033 is from Scott Mattes as found on the VMSHARE workshop *   FILE1033
//*           1991 tools tape and contains DATECALC which is a      *   FILE1033
//*           REXX routine to calculate dates.                      *   FILE1033
//*                                                                 *   FILE1033
//*  The members are:    $MEMO       - the MEMO file with an email  *   FILE1033
//*                                    thread about this (for       *   FILE1033
//*                                    historical purposes)         *   FILE1033
//*                      DATECALC    - the REXX exec                *   FILE1033
//*                      HELP        - help file                    *   FILE1033
//*                      REXXERR     - external routine to display  *   FILE1033
//*                                    a lot of info if an error    *   FILE1033
//*                                    occurs                       *   FILE1033
//*                                                                 *   FILE1033
//*  Installation:  Copy both DATECALC and REXXERR into a library   *   FILE1033
//*                 in your SYSEXEC or SYSPROC allocations.         *   FILE1033
//*                 Copy HELP into a library in your SYSHELP        *   FILE1033
//*                 allocations as DATECALC                         *   FILE1033
//*                                                                 *   FILE1033
//*  Notes:                                                         *   FILE1033
//*  1. DATECALC will call 2 external routines if necessary.        *   FILE1033
//*     REXXERR and STEMEDIT                                        *   FILE1033
//*  2. The original version required a routine called REXXVAR      *   FILE1033
//*     which has been replaced by STEMEDIT - find that on          *   FILE1033
//*     CBTTape File 895. This is only used if a REXX error is hit. *   FILE1033
//*  3. DATECALC ? will display usage information                   *   FILE1033
//*                                                                 *   FILE1033
//*  No guarantees come with this and it hasn't been extensively    *   FILE1033
//*  tested but it does seem to work.                               *   FILE1033
//*                                                                 *   FILE1033
//***FILE1034 was contributed semi-anonymously and contains a       *   FILE1034
//*           program package to easily create a copy of a dataset  *   FILE1034
//*           under ISPF.  The program is a REXX exec called DSU,   *   FILE1034
//*           and it comes with a set of ISPF panels.               *   FILE1034
//*                                                                 *   FILE1034
//*           contact:  sbgolob@cbttape.org                         *   FILE1034
//*                                                                 *   FILE1034
//***FILE1035 is from Hobart Spitz and contains a version of Pipes  *   FILE1035
//*           for z/OS which is written in REXX.  Documentation     *   FILE1035
//*           for the package is in PDF format, and is in member    *   FILE1035
//*           $PDFDOC, which has to be downloaded to a PC in        *   FILE1035
//*           Binary and viewed there.                              *   FILE1035
//*                                                                 *   FILE1035
//*           An introduction to zPipe is provided in the member    *   FILE1035
//*           called $EXPLAIN.                                      *   FILE1035
//*                                                                 *   FILE1035
//*           Member EXEC is a TSO XMIT of all the REXX execs, and  *   FILE1035
//*           member CEXEC is the compiled REXX members, in XMIT    *   FILE1035
//*           format.  The other individual pds members come from   *   FILE1035
//*           the EXEC nenber, after being RECEIVE'd.               *   FILE1035
//*                                                                 *   FILE1035
//*           email:  Hobart Spitz <orexxman@gmail.com>             *   FILE1035
//*                                                                 *   FILE1035
//*     SHORT DESCRIPTION:                                          *   FILE1035
//*                                                                 *   FILE1035
//*     zPipe - A z/OS Piping Facility that combines features of    *   FILE1035
//*     CMS/TSO Pipelines, UNIX/Linux, and REXX.  It is a free      *   FILE1035
//*     package, versus BatchPipes, which is chargable and not      *   FILE1035
//*     in the z/OS base.                                           *   FILE1035
//*                                                                 *   FILE1035
//*     Piping originated in UNIX, where the limited budgets of     *   FILE1035
//*     academic and research organizations dictated making the     *   FILE1035
//*     best use of limited hardware.                               *   FILE1035
//*                                                                 *   FILE1035
//*     Piping is both a machine performance feature and a          *   FILE1035
//*     productivity tool.                                          *   FILE1035
//*                                                                 *   FILE1035
//*     Piping performance comes from passing the output of one     *   FILE1035
//*     program to the input of another using an in-memory          *   FILE1035
//*     buffer.  This avoids slow disk I/O and saves on hardware    *   FILE1035
//*     resources.                                                  *   FILE1035
//*                                                                 *   FILE1035
//*     Piping productivity comes from two aspects:                 *   FILE1035
//*         - It is acheived via an operator (a | b) which          *   FILE1035
//*            connects the output of a to the input of b.          *   FILE1035
//*            Compare this single character to the JCL for         *   FILE1035
//*            creating a temporary dataset in one step and         *   FILE1035
//*            passing it to another.                               *   FILE1035
//*         - Piping allows data to be passed between programs      *   FILE1035
//*            independant of the file structure.  a | b, in one    *   FILE1035
//*            context, could become a | c | d, in another.  a,     *   FILE1035
//*            b, etc. are called filters or stages.                *   FILE1035
//*                                                                 *   FILE1035
//*     zPipe delivers these features:                              *   FILE1035
//*         - It is written entirely in REXX.                       *   FILE1035
//*         - New stages can be written using simple REXX           *   FILE1035
//*            without introducing additional host commands.        *   FILE1035
//*         - It does not require additional software.              *   FILE1035
//*         - Operand syntax is that of REXX via the interpret      *   FILE1035
//*            instruction.  The user learning curve, the           *   FILE1035
//*            develpment costs and the execution time penalty      *   FILE1035
//*            of decoding any other operand syntax are avoided.    *   FILE1035
//*         - Processing is done at the record level, as opposed    *   FILE1035
//*            to the CPU-intensive byte level of UNIX/Linux.       *   FILE1035
//*         - Like CMS/TSO Pipelines and BatchPipes, only           *   FILE1035
//*            referenced bytes go thru the CPU.                    *   FILE1035
//*         - Also like Pipelines/BatchPipes, binary data can be    *   FILE1035
//*            processed with the same filters as text data.        *   FILE1035
//*            There are no embedded control characters or DCB      *   FILE1035
//*            parameters between stages.                           *   FILE1035
//*         - Dipatching takes place once per filter.               *   FILE1035
//*         - It free and available on the CBT Tape.                *   FILE1035
//*         - Data is passed via the REXX stack, which is           *   FILE1035
//*            managed by the zPipe module.                         *   FILE1035
//*         - The zPipe module also protects against                *   FILE1035
//*            unintentional execution of data by TSO.              *   FILE1035
//*         - A single selection filter, PICKIF, delivers the       *   FILE1035
//*            functionality of numerous Pipelines selection        *   FILE1035
//*            filters and avoids the complexity of UNIX            *   FILE1035
//*            programs such as grep and awk.  Again, operand       *   FILE1035
//*            syntax is that of REXX.                              *   FILE1035
//*         - SPEX provide reformating, like Pipelines SPECS,       *   FILE1035
//*            again using REXX syntax.                             *   FILE1035
//*         - The CALL stage allows any REXX callable function      *   FILE1035
//*            to be invoked as filter.                             *   FILE1035
//*         - When executed as a COMMAND line, the end results      *   FILE1035
//*            are written to the terminal or primary ouput,        *   FILE1035
//*            making zPipe familiar to both UNIX/Linux users       *   FILE1035
//*            and intuitive to novices.                            *   FILE1035
//*         - User programs can invoke filters to manipulate        *   FILE1035
//*            REXX stack data without or without invoking the      *   FILE1035
//*            zPipe main module.  In this case, FUNCTION or        *   FILE1035
//*            SUBROUTINE invocation is used, as reported by        *   FILE1035
//*            PARSE SOURCE ... .                                   *   FILE1035
//*         - zPipe uses the familiar <, >, and >> for reading,     *   FILE1035
//*            writing and and appending data sets.  As in          *   FILE1035
//*            Pipelines, > and >> are pass-thru filters:  Data     *   FILE1035
//*            written is still available to folling stages.        *   FILE1035
//*                                                                 *   FILE1035
//***FILE1036 is from Tom Armstrong and is a complete reworking     *   FILE1036
//*           of the OS/360 Sort/Merge product.  All inclusive.     *   FILE1036
//*                                                                 *   FILE1036
//*         email:  Thomas Armstrong <tomarmstrong255@gmail.com>    *   FILE1036
//*                                                                 *   FILE1036
//*         Directions:                                             *   FILE1036
//*                                                                 *   FILE1036
//*         In order to create the libraries necessary to assemble  *   FILE1036
//*         and linkedit, and/or run this product, please adjust    *   FILE1036
//*         the following jobs for your installation, and run them  *   FILE1036
//*         in the following order:                                 *   FILE1036
//*                                                                 *   FILE1036
//*         #PDSLOAD, followed by $PDSLOAD.                         *   FILE1036
//*                                                                 *   FILE1036
//*         After looking in the following manuals, you may want    *   FILE1036
//*         to rename the libraries resulting from these jobs.      *   FILE1036
//*                                                                 *   FILE1036
//*         Two manuals, in PDF format, are included in this pds.   *   FILE1036
//*                                                                 *   FILE1036
//*         #INSCUST - Installation and Customization Guide         *   FILE1036
//*                                                                 *   FILE1036
//*         #APPLPGD - Application Programmer's Guide               *   FILE1036
//*                                                                 *   FILE1036
//***FILE1037 is from the late Gerhard Postpischil by way of        *   FILE1037
//*           Tom Armstrong, and contains a quite sophisticated     *   FILE1037
//*           disassembler, which is probably more "advanced"       *   FILE1037
//*           than any other disassembler in the CBT Tape.          *   FILE1037
//*                                                                 *   FILE1037
//*           Source and load modules are supplied.                 *   FILE1037
//*           Member $RECEIVE will unload the 2 pds'es needed.      *   FILE1037
//*                                                                 *   FILE1037
//*           The WORD documentation, which is supplied in member   *   FILE1037
//*           DOCX, has been converted into plain EBCDIC text       *   FILE1037
//*           format, which is in member $$DOC.                     *   FILE1037
//*                                                                 *   FILE1037
//*           email:  Sam Golob  -  sbgolob@cbttape.org             *   FILE1037
//*                                                                 *   FILE1037
//*           email:  Tom Armstrong - tomarmstrong255@gmail.com     *   FILE1037
//*                                                                 *   FILE1037
//***FILE1038 is from Larry Zuckett and contains a System REXX      *   FILE1038
//*           exec, to dynamically add or delete datasets from      *   FILE1038
//*           the link list.                                        *   FILE1038
//*                                                                 *   FILE1038
//*      email:  Larry Zuckett <larry.zuckett@broadcom.com>         *   FILE1038
//*                                                                 *   FILE1038
//***FILE1039 is from Rob Prins and contains a version of the       *   FILE1039
//*           LOOK TSO command which has been used on MVS 3.8.      *   FILE1039
//*           This command is used to examine system storage in     *   FILE1039
//*           your address space. A tutorial for the program is     *   FILE1039
//*           built in.  A similar program for z/OS may be found    *   FILE1039
//*           on CBT File 264.                                      *   FILE1039
//*                                                                 *   FILE1039
//*           email:  robprins2@kpnmail.nl                          *   FILE1039
//*                                                                 *   FILE1039
//***FILE1040 is from Frank Clarke, Oldsmar FL, and consists        *   FILE1040
//*           primarily of REXX EXECs and MACROs designed to        *   FILE1040
//*           operate on PL/I source elements and compiler          *   FILE1040
//*           listings.                                             *   FILE1040
//*                                                                 *   FILE1040
//*           Additional routines may be found in FILE433 in the    *   FILE1040
//*           CBT collection which serves as an adjunct to the      *   FILE1040
//*           code found here.                                      *   FILE1040
//*                                                                 *   FILE1040
//*               email:  Frank Clarke <rexxhead@yahoo.com>         *   FILE1040
//*                                                                 *   FILE1040
//*               'FCLARKE.FILE1040.PDS' - Directory                *   FILE1040
//*                                                                 *   FILE1040
//*                 Usage or                                        *   FILE1040
//*       Member    Caller      Description                         *   FILE1040
//*       ========  =========   =================================   *   FILE1040
//*                                                                 *   FILE1040
//*       #PLIEXMP  PLI         The pro-forma pattern for a new     *   FILE1040
//*                             PLI paragraph                       *   FILE1040
//*                                                                 *   FILE1040
//*       @@README  text        About the material in this          *   FILE1040
//*                             library                             *   FILE1040
//*                                                                 *   FILE1040
//*       @FIL1040  text        Inventory                           *   FILE1040
//*                                                                 *   FILE1040
//*       ADDXREF   exec        Add ISPF statistics to a            *   FILE1040
//*                             compiler listing                    *   FILE1040
//*                                                                 *   FILE1040
//*       ALLPLIB   macro       Queue all PLIBs from the listing    *   FILE1040
//*                             dataset                             *   FILE1040
//*                                                                 *   FILE1040
//*       CALLEDBY  macro       CALLs and their targets             *   FILE1040
//*                                                                 *   FILE1040
//*       COMBINE   exec        Combine 2 or more datasets with     *   FILE1040
//*                             incompat DCBs                       *   FILE1040
//*                                                                 *   FILE1040
//*       COMPARM   exec        Maintain parameters for COMPILE     *   FILE1040
//*                                                                 *   FILE1040
//*       COMPDT    exec        Reports the compile-date for        *   FILE1040
//*                             LOAD modules                        *   FILE1040
//*                                                                 *   FILE1040
//*       COMPILE   exec        Background compile of foreground    *   FILE1040
//*                             source                              *   FILE1040
//*                                                                 *   FILE1040
//*       COMPSTAT  macro       For listings, sets member stats     *   FILE1040
//*                                                                 *   FILE1040
//*       ELEMENTS  macro       For listings, display Attribute     *   FILE1040
//*                             list                                *   FILE1040
//*                                                                 *   FILE1040
//*       ELEMLEN   exec        Calc storage needed for a           *   FILE1040
//*                             variable                            *   FILE1040
//*                                                                 *   FILE1040
//*       ENTCOMM   macro       Adjust END statements for           *   FILE1040
//*                             Enterprise compiler                 *   FILE1040
//*                                                                 *   FILE1040
//*       IOSTMT    macro       Show all I/O statements             *   FILE1040
//*                                                                 *   FILE1040
//*       LCOMM     macro       Insert line comment                 *   FILE1040
//*                                                                 *   FILE1040
//*       ONEPERLN  macro       Splits PL/I source lines            *   FILE1040
//*                                                                 *   FILE1040
//*       PARSEDCL  macro       Annotate structure DCL with         *   FILE1040
//*                             column info                         *   FILE1040
//*                                                                 *   FILE1040
//*       PGFS      macro       Show all paragraph names            *   FILE1040
//*                                                                 *   FILE1040
//*       PLIFLOW   macro       Shows CALLs, GOTOs, and targets     *   FILE1040
//*                                                                 *   FILE1040
//*       PLILBLS   macro       Like PLIFLOW; show labels and       *   FILE1040
//*                             referents                           *   FILE1040
//*                                                                 *   FILE1040
//*       PLIMSGE   macro       Puts error msgs in-line             *   FILE1040
//*                             (listings)                          *   FILE1040
//*                                                                 *   FILE1040
//*       PLIMSGO   macro       PLIMSGE for Optimizer               *   FILE1040
//*                                                                 *   FILE1040
//*       PLIMSGS   macro       Driver for PLIMSGE and PLIMSGO      *   FILE1040
//*                                                                 *   FILE1040
//*       PLINIT    macro       Adds initialization to PL/I DCL     *   FILE1040
//*                                                                 *   FILE1040
//*       PLIPARA   macro       Insert new empty paragraph          *   FILE1040
//*                                                                 *   FILE1040
//*       PLIPOS    macro       Similar to PARSEDCL                 *   FILE1040
//*                                                                 *   FILE1040
//*       PLISKIP   macro       Replace carr-ctl with               *   FILE1040
//*                             preprocessor cmds                   *   FILE1040
//*                                                                 *   FILE1040
//*       PLIXREF   macro       Adds stmt# refs to a listing        *   FILE1040
//*                             (driver)                            *   FILE1040
//*                                                                 *   FILE1040
//*       PLIXREFE  macro       ~~ for Enterprise                   *   FILE1040
//*                                                                 *   FILE1040
//*       PLIXREFO  macro       ~~ for Optimizer                    *   FILE1040
//*                                                                 *   FILE1040
//*       QIO       macro       Find and count all files by type    *   FILE1040
//*                                                                 *   FILE1040
//*       QJAM      macro       Check that all stmt#s are present   *   FILE1040
//*                                                                 *   FILE1040
//*       QSQL      macro       Analyze all the SQL statements      *   FILE1040
//*                                                                 *   FILE1040
//*       SEGMENT   macro       Label start and end of compiler     *   FILE1040
//*                             sections                            *   FILE1040
//*                                                                 *   FILE1040
//*       SHORTPG   macro       Excise spurious blank line from     *   FILE1040
//*                             listing                             *   FILE1040
//*                                                                 *   FILE1040
//*       SLICKIO   macro       (Source) align all file DCLs        *   FILE1040
//*                                                                 *   FILE1040
//*       SPLITDO   macro       Split if...do                       *   FILE1040
//*                                                                 *   FILE1040
//*       TRIMPLI   macro       Excise billions of SQL junk from    *   FILE1040
//*                             listing                             *   FILE1040
//*                                                                 *   FILE1040
//*       WHATINC   macro       Return on stack all %INC object     *   FILE1040
//*                             names                               *   FILE1040
//*                                                                 *   FILE1040
//***FILE1041 is contribted semi-anonymously, and contains a        *   FILE1041
//*           package of REXX execs to convert Book Manager files   *   FILE1041
//*           GML, Script/VS or "flat" files to HTML.               *   FILE1041
//*                                                                 *   FILE1041
//*           support:   sbgolob@cbttape.org                        *   FILE1041
//*                                                                 *   FILE1041
//*    This is the B2H package from the z/VM Download site          *   FILE1041
//*    http://www.vm.ibm.com/download/packages/descript.cgi?B2H     *   FILE1041
//*                                                                 *   FILE1041
//*    Originally from Gary Richmeyer                               *   FILE1041
//*                                                                 *   FILE1041
//*       Member B2H                                                *   FILE1041
//*       - Treat z/OS dataset as fully qualified                   *   FILE1041
//*         formerly assume PROFILE NOPREFIX                        *   FILE1041
//*       - split records longer than 1000 so that the resulting    *   FILE1041
//*         html file can be emailed using smtp                     *   FILE1041
//*       Member SYM                                                *   FILE1041
//*       - updates to the symbolic (sym) file to support HCD       *   FILE1041
//*       generated symbols                                         *   FILE1041
//*                                                                 *   FILE1041
//*       Member HCDDOC                                             *   FILE1041
//*       - created word document to show how to use with HCD       *   FILE1041
//*                                                                 *   FILE1041
//*    Members:                                                     *   FILE1041
//*                                                                 *   FILE1041
//*    $README    - what you're reading                             *   FILE1041
//*    ANN        - Announcement info                               *   FILE1041
//*    B2H        - REXX Exec                                       *   FILE1041
//*    B2HAPP     - Script Appendix file                            *   FILE1041
//*    B2HEXA     - Script Examples file                            *   FILE1041
//*    B2HINF     - Script General Info file                        *   FILE1041
//*    B2HMSG     - Script Message file                             *   FILE1041
//*    B2HNAME    - AIX Shell script to rename files                *   FILE1041
//*    B2HPDF     - User's Guide in PDF (download in binary)        *   FILE1041
//*    B2HR2      - Script Users Guide in HTML2                     *   FILE1041
//*    B2HSETUP   - Script Setup file                               *   FILE1041
//*    B2HSYS     - Script Profile and Symbols file                 *   FILE1041
//*    B2HUSE     - Script FAQ file                                 *   FILE1041
//*    HTM        - User's Guide in HTML format                     *   FILE1041
//*    LINKGIF    - GIF (download in binary)                        *   FILE1041
//*    NEW        - Original change history                         *   FILE1041
//*    PKG        - Original package info (not accurate or          *   FILE1041
//*                 complete)                                       *   FILE1041
//*    PRO        - B2H Profile file                                *   FILE1041
//*    SCT        - Script Users Guide (main - imbeds the other     *   FILE1041
//*                 script files)                                   *   FILE1041
//*    SYM        - B2H SYM (symbols) file                          *   FILE1041
//*                                                                 *   FILE1041
//*    Installation:                                                *   FILE1041
//*                                                                 *   FILE1041
//*       1. Copy member B2H into a SYSPROC or SYSEXEC library      *   FILE1041
//*                                                                 *   FILE1041
//*       2. Edit member B2H to change the dataset names for the    *   FILE1041
//*          HLP, PRO and SYM datasets.                             *   FILE1041
//*                                                                 *   FILE1041
//***FILE1042 is from Frank Clarke, Oldsmar FL, and consists of one *   FILE1042
//*           routine, DEIMBED, that is meant to be copied into and *   FILE1042
//*           called from REXX routines that include their own ISPF *   FILE1042
//*           assets such as panels, skeletons, or other non-ISPF   *   FILE1042
//*           material which is to be extracted for use at          *   FILE1042
//*           execution-time.                                       *   FILE1042
//*                                                                 *   FILE1042
//*           DEIMBED creates temporary libraries to house the      *   FILE1042
//*           extracted material needed by the routine.  These      *   FILE1042
//*           temporary libraries are flushed by the system when    *   FILE1042
//*           the routine terminates.                               *   FILE1042
//*                                                                 *   FILE1042
//*           Please read member @@README for more details about    *   FILE1042
//*           using this tool.                                      *   FILE1042
//*                                                                 *   FILE1042
//*           email: rexxhead@yahoo.com, Frank Clarke               *   FILE1042
//*                                                                 *   FILE1042
//*                 'FCLARKE.FILE1042.PDS' - Directory              *   FILE1042
//*                                                                 *   FILE1042
//*                 Usage or                                        *   FILE1042
//*       Member    Caller      Description                         *   FILE1042
//*       ========  =========   =================================   *   FILE1042
//*                                                                 *   FILE1042
//*       #INDEX    data        This member                         *   FILE1042
//*                                                                 *   FILE1042
//*       @@README  text        About the material in this          *   FILE1042
//*                             library                             *   FILE1042
//*                                                                 *   FILE1042
//*       @FIL1042  text        Inventory                           *   FILE1042
//*                                                                 *   FILE1042
//*       DEIMBED   fragment    Extract ISPF elements from REXX     *   FILE1042
//*                                                                 *   FILE1042
//***FILE1043 is from Edgar Hofmann and contains a REXX             *   FILE1043
//*           Preprocessor, which is integrated seamlessly into     *   FILE1043
//*           the TSO environment.                                  *   FILE1043
//*                                                                 *   FILE1043
//*           email:  sy011eho@gmail.com                            *   FILE1043
//*                                                                 *   FILE1043
//*     * Why a REXX-Preprocessor                                   *   FILE1043
//*                                                                 *   FILE1043
//*     The REXX-Standard does not define a concept how to deal     *   FILE1043
//*     with global variables.  External REXX-functions (or         *   FILE1043
//*     procedures) do not inherit access to a parent environment   *   FILE1043
//*     (read or update).  Retrieve and return of contents is only  *   FILE1043
//*     defined via passing arguments and passing a value at        *   FILE1043
//*     return.  But especially stem variables are not suitable     *   FILE1043
//*     for this approach.  The defined stack architecture, which   *   FILE1043
//*     may overcome limitations in this area is not well           *   FILE1043
//*     implemented in non z-Architecures and is not widely used.   *   FILE1043
//*                                                                 *   FILE1043
//*     There are possibilites to overcome this shortage:           *   FILE1043
//*                                                                 *   FILE1043
//*     *First*: Define your own Global Area where you exchange     *   FILE1043
//*     contents. For MVS/TSO some packages found on CBTTAPE which  *   FILE1043
//*     deal with this approach. But there is extra rexx code       *   FILE1043
//*     necessary to prepare and to retrieve variables and stems    *   FILE1043
//*     from the "external call" (note: in z/VM CMS PIPELINES       *   FILE1043
//*     provide access to different variable pools.  J.P. Hartmann  *   FILE1043
//*     created also an MVS/TSO port of his PIPELINES, but this     *   FILE1043
//*     port never gained comparable commonnes as in z/VM).         *   FILE1043
//*                                                                 *   FILE1043
//*     *Second*: Avoid external functions. Internal subroutines    *   FILE1043
//*     may share the variable pool of the caller. But there is a   *   FILE1043
//*     big disadvantage. The code of the subroutine needs to be    *   FILE1043
//*     in the same file, which makes maintenance of common code    *   FILE1043
//*     very cumbersome.                                            *   FILE1043
//*                                                                 *   FILE1043
//*     For non z-Architectures some implementations exist.         *   FILE1043
//*     Namely BREXX (V. Vlachoudis) implemented this concept.      *   FILE1043
//*     Before an exec is interpreted, files are included,          *   FILE1043
//*     containing internal subroutine code. With this the code     *   FILE1043
//*     of the internal subroutine is unique in a separate file     *   FILE1043
//*     and may be shared among different execs, thus eases         *   FILE1043
//*     maintenance of this procedures.                             *   FILE1043
//*                                                                 *   FILE1043
//*     * TSO/REXX Implementation of a REXX-Preprocessor            *   FILE1043
//*                                                                 *   FILE1043
//*     TSO related, REXX Procedures are mostly called implicitly   *   FILE1043
//*     in a TSO-Environment.  The provided TSO-Command processor   *   FILE1043
//*     is IRXEXEC. An idea may be to include IRXEXEC in a          *   FILE1043
//*     wrapper program. This is possible but has some negative     *   FILE1043
//*     side effects with the handling of the internal stuctures    *   FILE1043
//*     of the MVS-REXX environment and MVS system maintenance.     *   FILE1043
//*                                                                 *   FILE1043
//*     The correct way is to use the provided exit points, as      *   FILE1043
//*     documented.                                                 *   FILE1043
//*                                                                 *   FILE1043
//*     - IRXTSPRM: IRXEXECU IRXEXECT IRXEXECI                      *   FILE1043
//*        -- register here IRXINIT-Exit (intialize a new           *   FILE1043
//*           EXECBLK)                                              *   FILE1043
//*        -- register here IRXEXEC-Exit (modify Contents before    *   FILE1043
//*           IRXEXEC is called)                                    *   FILE1043
//*        -- register here IRXTERM-Exit (cleanup user data areas   *   FILE1043
//*           used for modification)                                *   FILE1043
//*                                                                 *   FILE1043
//*     -- IRXEXECI                                                 *   FILE1043
//*        --- get Storage for modified EXEC Contents               *   FILE1043
//*        --- get Storage for (necessary) modified table of        *   FILE1043
//*                                                                 *   FILE1043
//*     -- IRXEXECU                                                 *   FILE1043
//*        --- get Storage for modified EXEC Contents               *   FILE1043
//*        --- get Storage for (necessary) modified table of        *   FILE1043
//*            exec row addresses (IRXINSTB INStorageBlock).        *   FILE1043
//*        --- IKJFTSR: call the REXX-Preprocessor via TSO          *   FILE1043
//*            (DCJRXPP).                                           *   FILE1043
//*                                                                 *   FILE1043
//*     -- IRXEXECT                                                 *   FILE1043
//*        --- cleanup.                                             *   FILE1043
//*                                                                 *   FILE1043
//*     TSO/REXX uses subpool 78. Both IRXEXECI and IRXEXECU are    *   FILE1043
//*     needed for Storage-Mgmt.                                    *   FILE1043
//*                                                                 *   FILE1043
//*     -- DCJRXPP                                                  *   FILE1043
//*       TSO Command Processor DCJRXPP (written & compiled with    *   FILE1043
//*       JCC) is a sample user program which handles the contents  *   FILE1043
//*       of the IRXINSTB, modifying and adding sourcelines to the  *   FILE1043
//*       loaded (but before executed) exec. Similar to             *   FILE1043
//*       preprocessors in other programming languages I've         *   FILE1043
//*       implemented two directives:                               *   FILE1043
//*                                                                 *   FILE1043
//*     --- #MACRO                                                  *   FILE1043
//*       Include an external member on the DD SYSEXEC              *   FILE1043
//*       concatenation. DD RXSYSLIB is allowed as an alternative   *   FILE1043
//*       to keep macros and syslibs away from normal rexx code.    *   FILE1043
//*                                                                 *   FILE1043
//*       AT THE CURRENT LINE:  Insertion of contents of the        *   FILE1043
//*        member at this sourceline ** NO SYNTAX CHECK **.  You    *   FILE1043
//*        are responsible that syntax and logic of the main        *   FILE1043
//*       exec is maintaned after the insertion is done.            *   FILE1043
//*                                                                 *   FILE1043
//*       Arguments for the macro will be resolved. Starting in     *   FILE1043
//*       the #MACRO line after the first semicolon the values      *   FILE1043
//*       for POSITIONAL parameters, delimited each with            *   FILE1043
//*       semicolon too, will be resolved in order of their         *   FILE1043
//*       specification.  The positional parameter identifier in    *   FILE1043
//*       the macro are specified as &P0 to &Pn.                    *   FILE1043
//*                                                                 *   FILE1043
//*     --- #SYSLIB                                                 *   FILE1043
//*       Append an external member on the DD SYSEXEC               *   FILE1043
//*       concatenation. DD RXSYSLIB is allowed as an alternative   *   FILE1043
//*       to keep macros and syslibs away from normal rexx-code.    *   FILE1043
//*                                                                 *   FILE1043
//*       AT THE END of the orignal code: In my experience this     *   FILE1043
//*       is the more important directive, as it emulates a         *   FILE1043
//*       syslib environment. Only one argument is honored          *   FILE1043
//*       (membername). You are responsible for the results the     *   FILE1043
//*       REXX-Interpreter produces.                                *   FILE1043
//*                                                                 *   FILE1043
//*     There is no recursion provided in the DCJRXPP program.      *   FILE1043
//*     Only the first level will be expanded. As a prerequisite    *   FILE1043
//*     the keyword PREPROCESS needs to be specified in the first   *   FILE1043
//*     line of the exec.                                           *   FILE1043
//*                                                                 *   FILE1043
//*     * Hints, Warnings & Caveats                                 *   FILE1043
//*                                                                 *   FILE1043
//*      - as mentioned above PREROCESS keyword.                    *   FILE1043
//*                                                                 *   FILE1043
//*      - when specified #SYSLIB, check EXIT or RETURN before      *   FILE1043
//*        appended syslib code, to prevent interpretation run      *   FILE1043
//*        into this appended lines.                                *   FILE1043
//*                                                                 *   FILE1043
//*      - JCC and standard streams. JCC supports DD STDOUT and     *   FILE1043
//*        DD STDERR. DCJRXPP uses STDERR to print some             *   FILE1043
//*        Informations. In a last action DCJRXPP sends the         *   FILE1043
//*        complete expanded exec to DD STDOUT, which could be      *   FILE1043
//*        executed without modification. This is your door for     *   FILE1043
//*        trace & debug. There is no need to allocate both         *   FILE1043
//*        DDnames in normal situations. In foreground a TSO        *   FILE1043
//*        ALLOC DD(STDERR) DA(*) will do the job when needed,      *   FILE1043
//*        vice versa TSO FREE DD(STDERR) quits the output.         *   FILE1043
//*                                                                 *   FILE1043
//*      - Destroying your TSO/REXX Environment (and ISPF) is a     *   FILE1043
//*        bad thing. If you lock yourself and perhaps others out   *   FILE1043
//*        of the system, be prepared to have a backdoor.           *   FILE1043
//*                                                                 *   FILE1043
//*        -- pack your code into a STEPLIB for one of your LOGON   *   FILE1043
//*           Procedures and have a tested emergency LOGON          *   FILE1043
//*           Procedure in place. The named exits need to be in     *   FILE1043
//*           an APF authorized (STEPLIB) library, but AC bit       *   FILE1043
//*           off.                                                  *   FILE1043
//*                                                                 *   FILE1043
//*           If you are able to delete the faulty exits from       *   FILE1043
//*           such a STEPLIB the recovery is complete. The          *   FILE1043
//*           default IRX-Enviroment in the LPA will be active      *   FILE1043
//*           again.                                                *   FILE1043
//*                                                                 *   FILE1043
//*        -- same things apply to the preprocessor. This is a      *   FILE1043
//*           simple call out of a system exit. Bad user code is    *   FILE1043
//*           able to destroy the REXX enviroment.  Keep the        *   FILE1043
//*           module (and source) saved, to maintain your system    *   FILE1043
//*           integrity.                                            *   FILE1043
//*                                                                 *   FILE1043
//*        -- the things turn out to be much easier to test and     *   FILE1043
//*           control in a job-based environment. Here is the       *   FILE1043
//*           level of potential impact far better predictable      *   FILE1043
//*           and the benefits far outweigh possible risks.         *   FILE1043
//*                                                                 *   FILE1043
//*     * Conclusion & Note of Thanks                               *   FILE1043
//*                                                                 *   FILE1043
//*      Especially I want to thank Jason Winter for his great C    *   FILE1043
//*      compiler. Anthony Rudd for his excellent book about        *   FILE1043
//*      TSO/REXX (TSO/REXX Practical Usage). There are some other  *   FILE1043
//*      packages dealing with ways to enhance the usability of     *   FILE1043
//*      TSO/E REXX environment. A incomplete list of packages      *   FILE1043
//*      dealing with global variables contains CBT791, CBT411 and  *   FILE1043
//*      CBT413 and all the other packages dealing with generating  *   FILE1043
//*      and providing REXX Function pacs.                          *   FILE1043
//*                                                                 *   FILE1043
//***FILE1044 is from Frank Clarke, Oldsmar FL, and consists of     *   FILE1044
//*           one primary routine, CBTXREF, that displays the       *   FILE1044
//*           CBTSCAN table (included here as member CBTSCAN) plus  *   FILE1044
//*           several subsidiary routines that are useful for       *   FILE1044
//*           successful installation or are needed by other        *   FILE1044
//*           software.                                             *   FILE1044
//*                                                                 *   FILE1044
//*           email: rexxhead@yahoo.com, Frank Clarke               *   FILE1044
//*                                                                 *   FILE1044
//*               'FCLARKE.FILE1044.PDS' - Directory                *   FILE1044
//*                                                                 *   FILE1044
//*                 Usage or                                        *   FILE1044
//*       Member    Caller      Description                         *   FILE1044
//*       ========  =========   =================================   *   FILE1044
//*                                                                 *   FILE1044
//*       $$$#DATE  data        Update stats                        *   FILE1044
//*                                                                 *   FILE1044
//*       $COPEXEC  jcl         Copy members to target datasets     *   FILE1044
//*                                                                 *   FILE1044
//*       $INSTALL  text        Simple installation tips.           *   FILE1044
//*                                                                 *   FILE1044
//*       #INDEX    text        List of members in this dataset     *   FILE1044
//*                                                                 *   FILE1044
//*       @@README  text        Introductory message                *   FILE1044
//*                                                                 *   FILE1044
//*       @FIL1044  text        Inventory                           *   FILE1044
//*                                                                 *   FILE1044
//*       CBTSCAN   data        ISPTLIB(CBTSCAN)                    *   FILE1044
//*                                                                 *   FILE1044
//*       CBTXREF   exec        Display the CBTSCAN table           *   FILE1044
//*                                                                 *   FILE1044
//*       DUP       exec        Allocate or copy-to a new dataset   *   FILE1044
//*                                                                 *   FILE1044
//*       FCCMDUPD  exec        Insert a new command onto TMPCMDS   *   FILE1044
//*                                                                 *   FILE1044
//*       KED       macro       Edit DDN(mbr); aliased as KBR       *   FILE1044
//*                             and KVW                             *   FILE1044
//*                                                                 *   FILE1044
//*       LA        exec        LISTA ST to a scrollable display    *   FILE1044
//*                                                                 *   FILE1044
//*       REALIAS   exec        Re-establish aliases from the       *   FILE1044
//*                             Impact Analysis                     *   FILE1044
//*                                                                 *   FILE1044
//*       TRAPOUT   exec        Trap trace output to DASD           *   FILE1044
//*                                                                 *   FILE1044
//***FILE1045 is from Sergey Kenunen, and contains an assembler     *   FILE1045
//*           macro to convert dates.  Please see member $$NOTE01   *   FILE1045
//*           for more details.                                     *   FILE1045
//*                                                                 *   FILE1045
//*           email:  Sergey Kenunen <sergey.kenunen@gmail.com>     *   FILE1045
//*                                                                 *   FILE1045
//***FILE1046 is from Kevin Ferguson, and contains a tool to        *   FILE1046
//*           convert ISPF panels into "prepped" form, which has    *   FILE1046
//*           some improvements over IBM's way of doing things.     *   FILE1046
//*           Please see the member called $$INFO for more details. *   FILE1046
//*           Also please see the member called $$INSTAL.           *   FILE1046
//*                                                                 *   FILE1046
//*      email:  kevin@abbydalesystems.com                          *   FILE1046
//*                                                                 *   FILE1046
//*      email:  Kevin Ferguson <Kevin.E.Ferguson@hotmail.com>      *   FILE1046
//*                                                                 *   FILE1046
//***FILE 1047 is by Frank Clarke of Oldsmar, Florida and provides  *   FILE 104
//*        two REXX EXECs, FINDLIBS and SHOWLIBS, useful for        *   FILE 104
//*        inventorying libraries (by type) across the entire       *   FILE 104
//*        installation.                                            *   FILE 104
//*                                                                 *   FILE 104
//*        email:  rexxhead@yahoo.com, Frank Clarke                 *   FILE 104
//*                                                                 *   FILE 104
//*               'FCLARKE.FILE1047.PDS' - Directory                *   FILE 104
//*                                                                 *   FILE 104
//*                 Usage or                                        *   FILE 104
//*       Member    Caller      Description                         *   FILE 104
//*       ========  =========   =================================   *   FILE 104
//*                                                                 *   FILE 104
//*       @FIL1047  text        Inventory in CBT-style              *   FILE 104
//*                                                                 *   FILE 104
//*       @README   text        Overview and background             *   FILE 104
//*                                                                 *   FILE 104
//*       DIRSTATS  subrtn      Member list with stats              *   FILE 104
//*                                                                 *   FILE 104
//*       DSVCSI    subrtn      Catalog Search Interface            *   FILE 104
//*                                                                 *   FILE 104
//*       FINDLIBS  exec        Generate a member-dataset           *   FILE 104
//*                             cross-reference table               *   FILE 104
//*                                                                 *   FILE 104
//*       SHOWLIBS  exec        Display the output of FINDLIBS      *   FILE 104
//*                                                                 *   FILE 104
//*       TRAPOUT   subrtn      Outtrap the TRACE output            *   FILE 104
//*                                                                 *   FILE 104
//***FILE1048 IS CURRENTLY EMPTY                                    *   FILE1048
//*                                                                 *   FILE1048
//***FILE1049 IS CURRENTLY EMPTY                                    *   FILE1049
//*                                                                 *   FILE1049
//***FILE1050 IS CURRENTLY EMPTY                                    *   FILE1050
//*                                                                 *   FILE1050
//***SECTION ADDITION SECTION                                       *   JCL FILE
//* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% *   JCL FILE
//* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% *   JCL FILE
//* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% *   JCL FILE
//*                                                                 *   JCL FILE
//*    WHEN ADDITIONS ARE ADDED TO THE TAPE, RATHER THEN PUTTING    *   JCL FILE
//*    THEM AT THE END OF THE TAPE, I WILL NOW PLACE THEM IN        *   JCL FILE
//*    FILES THAT WERE PREVIOUSLY DELETED AND ARE NOW EMPTY,        *   JCL FILE
//*    ASSUMING THAT THERE ARE ANY EMPTY FILES AVAILABLE            *   JCL FILE
//*                                                                 *   JCL FILE
//* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% *   JCL FILE
//* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% *   JCL FILE
//* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% *   JCL FILE
//*                                                                 *   JCL FILE
//*                                                                 *   JCL FILE
//*                                                                 *   JCL FILE
//***SECTION JCL SECTION                                            *   JCL FILE
//*                                                                 *   JCL FILE
//*   THE FOLLOWING IS THE JCL THAT I USED TO BUILD THE TAPE        *   JCL FILE
//*   IF YOU ARE LOOKING DOWN HERE FOR HOW TO DROP THE TAPE         *   JCL FILE
//*   YOU SHOULD LOOK AT FILE 003 OF THE TAPE WHICH IS THE JCL      *   JCL FILE
//*   TO DROP DOWN ALL THE DATA ON THE TAPE                         *   JCL FILE
//*                                                ARNIE            *   JCL FILE
//*                                                                 *   JCL FILE
//* ^ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *   JCL FILE
//*                                                                 *   JCL FILE
//*   JCL SECTION IS BEING DROPPED FOR LACK OF SPACE - S.GOLOB      *   JCL FILE
//*    WITH VERSION 327.                 MAY 16, 1991               *   JCL FILE
//*                                                                 *   JCL FILE
//*   JCL USED TO CREATE THE CBT TAPE HAS NOW BEEN INCLUDED IN      *   JCL FILE
//*    FILE 008, INCLUDING A LOAD LIBRARY (IN TSO XMIT FORMAT)      *   JCL FILE
//*    CONTAINING NON-IBM LOAD MODULES REQUIRED.  FEB 20, 2011      *   JCL FILE
//*        (VERSION 481)                           SAM GOLOB        *   JCL FILE
//*                                                                 *   JCL FILE
//*   DOCFILE PROGRAM (NOW ON FILE 006) HAS BEEN CHANGED TO SHOW    *   JCL FILE
//*   "JCL FILE" IN COLUMNS 73-80, AFTER AN "//*ENDFILE" STATEMENT. *   JCL FILE
//*        (VERSION 495)                           SAM GOLOB        *   JCL FILE
//*                                                                 *   JCL FILE
//* ^ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *   JCL FILE
//PANPAN   PROC   (ARNIE'S GOOD-BYE MESSAGE RESTORED 01/05/94.)     *   JCL FILE
//*  FINIS, BYE.  ARNIE 9/18/90                                     *   JCL FILE