//MVSMODS1 JOB 527TEC000S0003,TEC,CLASS=8,MSGCLASS=5,PRTY=10, DOC FILE // REGION=512K,PERFORM=12,TYPRUN=HOLD,NOTIFY=TS15500 DOC FILE //******************************************************************* DOC FILE //******************************************************************* DOC FILE //* FILE 01 IS RECFM=FB,LRECL=80,BLKSIZE=32720 * DOC FILE //* * DOC FILE //* ******************** * DOC FILE //* * VERSION 02-28-06 * * Final * DOC FILE //* ******************** Version * DOC FILE //* * VERSION # 471 * * DOC FILE //* ******************** * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //***CBT TAPE NAME SECTION * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* C B T T A P E N A M E S E C T I O N * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //******************************************************************* DOC FILE //* -- -- * DOC FILE //* -- C B T M V S U T I L I T I E S T A P E -- * DOC FILE //* -- -- * DOC FILE //* -- This tape contains more utilities than system mods. -- * DOC FILE //* -- Therefore, this tape shall no longer be called the -- * DOC FILE //* -- CBT MVS Mods Tape, because that is now misleading. -- * DOC FILE //* -- -- * DOC FILE //* -- Much of this material is actually external to the MVS -- * DOC FILE //* -- operating system itself. This tape is huge - vast. -- * DOC FILE //* -- This tape potentially can help an MVS installation -- * DOC FILE //* -- and its programmers in many ways. -- * DOC FILE //* -- -- * DOC FILE //* --------------------------------------------------------------- * DOC FILE //* -- -- * DOC FILE //* -- This tape is the CBT MVS Tape. It is not to be confused -- * DOC FILE //* -- with the "SHARE" MVS Tape (a very very different tape.) -- * DOC FILE //* -- -- * DOC FILE //* -- (By the way, the contents of the "SHARE MVS Tape" are -- * DOC FILE //* -- now on the CBT Overflow Tape, Files 104 through 234.) -- * DOC FILE //* -- -- * DOC FILE //* -- PLEASE DO NOT REFER TO THIS TAPE AS THE "SHARE TAPE". IT -- * DOC FILE //* -- IS NOT IN ANY WAY CONNECTED TO THE "SHARE" ORGANIZATION. -- * DOC FILE //* -- -- * DOC FILE //* -- This tape is NOT CONNECTED IN ANY WAY to NaSPA either, -- * DOC FILE //* -- except for the fact that NaSPA is one of its vehicles -- * DOC FILE //* -- for distribution. -- * DOC FILE //* -- -- * DOC FILE //* -- To clarify: The CBT Tape is independently produced. -- * DOC FILE //* -- On the other hand, various committees of -- * DOC FILE //* -- the "SHARE" organization produce their own -- * DOC FILE //* -- tapes, including the "SHARE MVS committee". -- * DOC FILE //* -- The SHARE MVS committee's tape is often -- * DOC FILE //* -- conceptually confused with this CBT Tape. -- * DOC FILE //* -- -- * DOC FILE //* -- Nowadays, most of the SHARE 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@attglobal.net and/or -- * 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@attglobal.net and/or -- * DOC FILE //* -- 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 //* -- 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- All disclaimers in the CBT tape documentation always -- * DOC FILE //* -- apply, and they override all other statements both -- * DOC FILE //* -- in the CBT Tape documentation and elsewhere, -- * DOC FILE //* -- regarding the fitness and merchantability, etc. of -- * DOC FILE //* -- the 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. -- * DOC FILE //* -- -- * DOC FILE //******************************************************************* DOC FILE //* -- -- * DOC FILE //* -- Important Note: -- * 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 -- * DOC FILE //* -- are dynamic by nature. Somebody has to pay the -- * DOC FILE //* -- bill for them. If the bill isn't paid, the URL -- * DOC FILE //* -- disappears--it's almost that simple--or sometimes -- * DOC FILE //* -- the provider itself disappears. But the CBT Tape, -- * DOC FILE //* -- at bottom line, is a tape. Or it can be kept on a -- * DOC FILE //* -- cd-rom, which is almost the same thing. Someone -- * DOC FILE //* -- can keep it in the closet for 10 years. Then it -- * DOC FILE //* -- can be fished out and looked at, and it'll still -- * DOC FILE //* -- be useful. This difference is something that many -- * DOC FILE //* -- people (unless they stop to think about it) don't -- * DOC FILE //* -- 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. -- * 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, or from a CBT -- * DOC FILE //* -- Tape file downloaded from the Internet. -- * 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 //* -- -- * DOC FILE //* -- Many of the components of the package, originally -- * DOC FILE //* -- intended to be separate files, are MEMBERS of this -- * DOC FILE //* -- pds. IF YOU HAVE A CBT TAPE FILE, YOU DO NOT HAVE -- * DOC FILE //* -- TO SEPARATELY DOWNLOAD THOSE FILES AND SEPARATELY -- * DOC FILE //* -- UPLOAD THEM TO YOUR MVS SYSTEM. YOU ALREADY HAVE -- * DOC FILE //* -- THEM, READY TO BE USED, as MEMBERS of the CBT Tape -- * DOC FILE //* -- 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. (I.e. "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 //* -- 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.CBTver.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 //* -- So please use your head about this stuff. If 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 , or sbgolob@attglobal.net -- * 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 //* -- *-----------------------------------------------------* -- * DOC FILE //* -- -- * DOC FILE //******************************************************************* DOC FILE //* -- -- * DOC FILE //* -- Announcement - ($$$#DATE member in the newer 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 this member as a kind of version indicator. -- * 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 //* -- -- * 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. -- * 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 444 FILE: 556 * DOC FILE //* * DOC FILE //* ORIGINAL DSNAME: SBGOLOB.CBT444.FILE556 * DOC FILE //* --------------- * DOC FILE //* --RECFM-LRECL-BLKSIZE-DSORG * DOC FILE //* FB 80 5600 PO * DOC FILE //* * DOC FILE //* PDS117I 4 MEMBERS COUNTED; CUMULATIVE SIZE IS 185 RECORDS * DOC FILE //* * DOC FILE //* * DOC FILE //* TIME THIS PDS WAS SHIPPED: 03/23/02 21:48:51 GMT-5:00 * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* -- -- * DOC FILE //* -- Announcement - Hercules Note: -- * 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 //* -- -- * 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 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 //******************************************************************* 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.5 load module, tailored to run -- * DOC FILE //* -- under MVS 3.8. Load module name is -- * DOC FILE //* -- PDS8538. -- * 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.5 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 //* -- -- * 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 //******************************************************************* DOC FILE //* -- -- * DOC FILE //* -- Announcement - (lowercase characters in this file) -- * DOC FILE //* -- -- * DOC FILE //* -- We have started to introduce lowercase characters -- * DOC FILE //* -- into this file, because some of the URL's need -- * DOC FILE //* -- them, and some people who were trying to reach -- * DOC FILE //* -- an address on the Internet, which we have supplied, -- * DOC FILE //* -- weren't able to get there because of that. -- * DOC FILE //* -- -- * DOC FILE //* -- If an Internet server is running on a UNIX system, -- * DOC FILE //* -- the file names are case sensitive. You can usually -- * DOC FILE //* -- recognize this, by the forward slash(es) in the -- * DOC FILE //* -- Internet address. If you see forward slashes, -- * DOC FILE //* -- then suspect that the file names are case sensitive. -- * DOC FILE //* -- Try lower case first. -- * DOC FILE //* -- -- * DOC FILE //* -- I'm assuming that nowadays, there aren't too many -- * DOC FILE //* -- printers which can't print these characters. -- * DOC FILE //* -- (Please correct me if I'm wrong. - SG 03/99) -- * DOC FILE //* -- -- * DOC FILE //* -- Lower case characters are also easier to read on -- * DOC FILE //* -- a terminal. I made an informal poll on the IBM-MAIN -- * DOC FILE //* -- newsgroup, and the votes came back overwhelmingly -- * DOC FILE //* -- in favor of introducing lower case characters. -- * DOC FILE //* -- -- * DOC FILE //******************************************************************* DOC FILE //* -- -- * DOC FILE //* -- Announcement - (Breaking this file into a pds) -- * DOC FILE //* -- -- * DOC FILE //* -- Note ............ -- * DOC FILE //* -- -- * DOC FILE //* -- 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 //* -- 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. -- * 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=S,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 -- * 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 wrote CBTUPD to put the separator cards in the -- * DOC FILE //* -- same places, to generate the same members, that I myself -- * DOC FILE //* -- use to update this file. (SG - 03/99) -- * DOC FILE //* -- -- * DOC FILE //* -- The member names are important, because they are in -- * DOC FILE //* -- collating sequence (EBCDIC - alphabetical) order, so that -- * DOC FILE //* -- when you put all the members back together with the -- * DOC FILE //* -- OFFLOAD program (from File 093) or with LISTPDS (from -- * DOC FILE //* -- File 316) or with the REVIEW (File 134) subcommand called -- * DOC FILE //* -- =OFFLOAD (which writes the members to a sequential file -- * DOC FILE //* -- previously allocated to the SYSUT2 ddname), or with the -- * DOC FILE //* -- STARTOOL (vendor product from Serena Inc.) command called -- * DOC FILE //* -- COMBINE, they will go back together in the proper order. -- * DOC FILE //* -- Then you can re-constitute File 001 from the members of -- * DOC FILE //* -- this partitioned dataset. -- * DOC FILE //* -- -- * DOC FILE //******************************************************************* DOC FILE //* -- -- * DOC FILE //* -- Announcement - (Microsoft Word 97 documentation) -- * DOC FILE //* -- -- * DOC FILE //* -- On a few of the files on this tape, I've included -- * DOC FILE //* -- documentation by the authors of the files, that is in -- * DOC FILE //* -- Microsoft WORD 97 format. I discourage this, because -- * DOC FILE //* -- you need a pc that has WORD 97, or a Microsoft Word 97 -- * DOC FILE //* -- reader (downloadable from www.microsoft.com), in order -- * DOC FILE //* -- to read the stuff. Whenever I could, I have created -- * DOC FILE //* -- plain text files to replace the WORD 97 stuff, but -- * DOC FILE //* -- sometimes I've also included the original doc from -- * DOC FILE //* -- the file's author. -- * DOC FILE //* -- -- * DOC FILE //* -- To read such files, download them to a pc in "binary" -- * DOC FILE //* -- (i.e. no translation or carriage-return or line feed) -- * DOC FILE //* -- and they should be readable by WORD 97, on the pc. -- * DOC FILE //* -- -- * DOC FILE //******************************************************************* DOC FILE //***Y2K SECTION * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* Y 2 K S E C T I O N * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* -- -- * DOC FILE //* -- Some files on the CBT Tape and the CBT Overflow Tape -- * DOC FILE //* -- may be marked in their documentation that an attempt -- * DOC FILE //* -- was made to make (all or some of) their software Y2K -- * DOC FILE //* -- compliant. -- * DOC FILE //* -- -- * DOC FILE //* -- THE DISCLAIMER BELOW (DISCLAIMER SECTION) OVERRIDES -- * DOC FILE //* -- ALL SUCH STATEMENTS. NO RESPONSIBILITY OR GUARANTEE -- * DOC FILE //* -- OF ANY KIND, IS EXPRESSED OR IMPLIED, OR TO BE CONSTRUED -- * DOC FILE //* -- IN ANY STATEMENT ON THESE TAPES, TO THE EFFECT THAT ANY -- * DOC FILE //* -- SOFTWARE OR MATERIALS ARE Y2K COMPLIANT. ALL SUCH A -- * DOC FILE //* -- STATEMENT MEANS, IS THAT THE AUTHOR OF THE MATERIALS -- * DOC FILE //* -- HAS ATTEMPTED TO ADDRESS YEAR 2000 ISSUES, ETC. BUT -- * DOC FILE //* -- (AS IT IS FOR ALL THE REST OF THE MATERIALS ON THESE -- * DOC FILE //* -- TAPES) NO RESPONSIBILITIES ARE ASSUMED BY ANY PERSON, -- * DOC FILE //* -- ORGANIZATION, CORPORATION, OR LEGAL ENTITY WHO HANDLES -- * DOC FILE //* -- THESE TAPES, AS TO THE ACCURACY, USABILITY, ETC. OF THE -- * DOC FILE //* -- MATERIALS. THE USER OF THE MATERIALS DOES SO ENTIRELY -- * DOC FILE //* -- AT HIS/HER OWN RISK. -- * DOC FILE //* -- -- * DOC FILE //******************************************************************* DOC FILE //***ANNOUNCEMENT SECTION * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* A N N O U N C E M E N T S E C T I O N * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* --------------------------------------------------------------- * DOC FILE //* -- -- * DOC FILE //* -- DOCUMENTATION FOR CBT TAPE(S) IS NOW AVAILABLE AT A -- * DOC FILE //* -- WEB SITE ON THE INTERNET: -- * DOC FILE //* -- -- * DOC FILE //* -- http://www.cbttape.org in ASCII or in EBCDIC -- * DOC FILE //* -- -- * DOC FILE //* -- ALL FILES FROM THE CBT TAPE AND CBT OVERFLOW TAPE ARE -- * DOC FILE //* -- AVAILABLE FOR DOWNLOAD AT: -- * DOC FILE //* -- -- * DOC FILE //* -- http://www.cbttape.org -- * DOC FILE //* -- -- * DOC FILE //* --------------------------------------------------------------- * DOC FILE //* -- -- * DOC FILE //* -- ALSO CHECK OUT http://www.cbttape.org FOR OTHER MVS -- * DOC FILE //* -- MATERIALS, AND FOR THE OLD CBT TAPE VERSION 249 (07/85), -- * DOC FILE //* -- AND POSSIBLY, FOR OTHER OLD CBT TAPE VERSIONS. -- * 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 //* -- -- * DOC FILE //* -- This site is advertised to be available 24 hours a day, -- * DOC FILE //* -- 7 days a week, and usually it is always online, except -- * DOC FILE //* -- once when there was a general power outage in the -- * DOC FILE //* -- entire Washington D.C. area for a big length of time. -- * DOC FILE //* -- -- * DOC FILE //* -- We are using this site because Systems Programmers -- * DOC FILE //* -- often need access to CBT Tape materials at odd times, -- * DOC FILE //* -- and the site is very reliable, redundant, and has lots -- * DOC FILE //* -- of fast communication lines. -- * DOC FILE //* -- -- * DOC FILE //* --------------------------------------------------------------- * DOC FILE //* -- -- * DOC FILE //* -- I HAVE TRIED TO UPDATE THE ADDRESSES OF CONTRIBUTORS -- * DOC FILE //* -- IN THIS FILE. IF ONE ADDRESS FOR A GIVEN CONTRIBUTOR -- * DOC FILE //* -- IS MENTIONED IN FILE 001, AND ANOTHER IS EMBEDDED IN -- * DOC FILE //* -- THE ACTUAL PDS THAT COMES FROM THE DATA FILE ON THIS -- * DOC FILE //* -- TAPE, IT IS PROBABLE THAT THE ADDRESS ON THIS FILE IS -- * DOC FILE //* -- THE MOST RECENT. (ESPECIALLY IF IT INCLUDES AN EMAIL -- * DOC FILE //* -- ADDRESS.) -- * DOC FILE //* -- -- * DOC FILE //* -- SOMETIMES IT HAPPENS THAT THE CONTRIBUTOR EMBEDS HIS -- * DOC FILE //* -- OWN ADDRESS IN THE DATA FILE, AND THE ADDRESS IN THIS -- * DOC FILE //* -- DOCUMENTATION (FILE 001) WASN'T UPDATED. SO IN THAT -- * DOC FILE //* -- CASE, THE DATA FILE HAS THE MORE RECENT ADDRESS. I'D -- * DOC FILE //* -- SUGGEST TO TRY THE FILE 001 ADDRESS FIRST, AND THEN -- * DOC FILE //* -- TRY THE ONE IN THE DATA FILE. -- * DOC FILE //* -- (S.GOLOB 05/98) -- * DOC FILE //* -- -- * DOC FILE //* --------------------------------------------------------------- * DOC FILE //* -- ADVICE .... -- * DOC FILE //* -- -- * DOC FILE //* -- FOR INFO ON USING THIS TAPE, SEE: -- * DOC FILE //* -- "USING THIS TAPE" SECTION, BELOW IN THIS DOC. -- * DOC FILE //* -- -- * DOC FILE //* -- FOR MORE ADVICE, SEE: -- * DOC FILE //* -- "WHAT TO DO WITH THIS TAPE FIRST" SECTION, BELOW. -- * DOC FILE //* -- -- * DOC FILE //* --------------------------------------------------------------- * DOC FILE //* --+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--- * DOC FILE //* --------------------------------------------------------------- * DOC FILE //* -- -- * DOC FILE //* -- ANNOUNCEMENT - (FROM SAM GOLOB) 750 Files (03/06) -- * DOC FILE //* -- -- * DOC FILE //* -- I have decided to extend this tape from 600 to 700 -- * DOC FILE //* -- files. We are very grateful that we have just about -- * DOC FILE //* -- filled up the 600 file slots that we had. Thanks -- * DOC FILE //* -- for contributing! (11/02) -- * DOC FILE //* -- -- * DOC FILE //* -- I am now adding 10 files at a time to the end of -- * DOC FILE //* -- the tape. Currently (Version 470) the tape contains -- * DOC FILE //* -- 740 files. Version 471 contains 750 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 addresses: -- * DOC FILE //* -- -- * DOC FILE //* -- sbgolob@cbttape.org -- * DOC FILE //* -- sbgolob@attglobal.net -- * DOC FILE //* -- -- * DOC FILE //* -- THESE MAY BE USED FOR CORRESPONDENCE WITH ME, AND/OR -- * DOC FILE //* -- SUBMISSION OF NEW MATERIAL FOR EITHER CBT TAPE (I.E. -- * DOC FILE //* -- THIS TAPE, OR THE CBT OVERFLOW TAPE). FURTHERMORE, -- * DOC FILE //* -- AS I DISCOVER OTHER CONTRIBUTORS' EMAIL ADDRESSES, I -- * DOC FILE //* -- SHALL TRY AND INCLUDE THEM IN THIS FILE. -- * DOC FILE //* -- -- * DOC FILE //* -- TO HELP IN THIS EFFORT, I'D LIKE TO REQUEST ALL -- * DOC FILE //* -- CONTRIBUTORS, PAST AND/OR PRESENT, TO CONTRIBUTE THEIR -- * DOC FILE //* -- CURRENT EMAIL ADDRESS, AS WELL AS THEIR TELEPHONE -- * DOC FILE //* -- NUMBER FOR VOICE COMMUNICATION. I AM HOPING THAT THE -- * DOC FILE //* -- CBT MATERIAL WILL BECOME MORE USEFUL, IF PARTICIPANTS -- * DOC FILE //* -- WILL BE ABLE TO TALK TO EACH OTHER. -- * DOC FILE //* -- -- * DOC FILE //* -- CONTRIBUTIONS TO THIS TAPE SHOULD NOW BE MADE -- * DOC FILE //* -- ELECTRONICALLY. PLEASE SEE THE CONTRIBUTOR INFORMATION -- * DOC FILE //* -- BELOW, OR COMMUNICATE WITH ME BY EMAIL FOR FURTHER -- * DOC FILE //* -- INFORMATION. (SG 10/97) -- * DOC FILE //* -- -- * DOC FILE //* -- If you want to contribute material to this tape, you -- * DOC FILE //* -- can also find Contributor Information at -- * DOC FILE //* -- -- * DOC FILE //* -- http://www.cbttape.org -- * DOC FILE //* -- -- * DOC FILE //* --------------------------------------------------------------- * DOC FILE //* -- -- * DOC FILE //* -- ANNOUNCEMENT - (FROM SAM GOLOB) (01/01) -- * DOC FILE //* -- -- * DOC FILE //* -- The regular CBT Tape and the CBT Overflow Tapes have -- * DOC FILE //* -- filled up (as uncompressed 3480 cartridges). I have -- * DOC FILE //* -- therefore decided to distribute the CBT Tape on IDRC -- * DOC FILE //* -- compressed cartridges, which contain more data. If -- * DOC FILE //* -- you need 3480 uncompressed, please email me at: -- * DOC FILE //* -- -- * DOC FILE //* -- sbgolob@attglobal.net and/or sbgolob@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 -- * DOC FILE //* -- The Entire SHARE MVS Tape (SPLA Tape) -- * DOC FILE //* -- The Entire SHARE PL/1 Tape (new) -- * DOC FILE //* -- SELECTED FILES THAT WERE DELETED FROM THE CBT TAPE -- * DOC FILE //* -- A LONG TIME AGO. -- * DOC FILE //* -- -- * DOC FILE //* -- THE OVERFLOW TAPE WILL INCLUDE OTHER OLD CODE THAT -- * DOC FILE //* -- HAS PROVEN USEFUL IN THE PAST. THIS WILL BE A WAY -- * DOC FILE //* -- OF MAKING SUCH CODE AVAILABLE TO THE PUBLIC. -- * DOC FILE //* -- -- * DOC FILE //* -- > 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@attglobal.net -- * DOC FILE //* -- and/or sbgolob@cbttape.org -- * 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 //* --------------------------------------------------------------- * DOC FILE //* --+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--- * DOC FILE //* --------------------------------------------------------------- * DOC FILE //* -- -- * DOC FILE //* -- ANNOUNCEMENT - (FROM SAM GOLOB) -- * DOC FILE //* -- -- * DOC FILE //* -- email: sbgolob@attglobal.net OR -- * DOC FILE //* -- 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. -- * 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 //* -- -- * DOC FILE //* -- *** With IDRC Tapes, we can now greatly ... *** -- * DOC FILE //* -- *** exceed 3000 feet in length on a tape. ... *** -- * DOC FILE //* -- -- * DOC FILE //* -- *** Current versions of this tape, as of ... *** -- * DOC FILE //* -- *** the Version 464 level, are around 5000 .. *** -- * DOC FILE //* -- *** feet long, as measured on 6250 bpi ... *** -- * DOC FILE //* -- *** reels. The SS0104 program on File 266 .. *** -- * DOC FILE //* -- *** is currently what I use to measure the .. *** -- * DOC FILE //* -- *** "6250 bpi tape footage". ... *** -- * 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 //* -- ANNOUNCEMENT - ANNOUNCEMENT - ANNOUNCEMENT - ANNOUNCEMENT -- * DOC FILE //* -- -- * DOC FILE //* -- I AM NOW RUNNING OVER THE LENGTH OF AN IDRC TAPE, -- * DOC FILE //* -- AND IF YOU CAN'T USE A 3490E, YOU HAVE TO SPLIT -- * DOC FILE //* -- THE CBT TAPE MATERIALS FROM THE REGULAR CBT TAPE -- * DOC FILE //* -- INTO TWO TAPES, USING THE COPYNLNL PROGRAM FROM -- * DOC FILE //* -- CBT TAPE FILE 229. -- * DOC FILE //* -- -- * DOC FILE //* -- sknutson@cbttape.org -- * DOC FILE //* -- -- * DOC FILE //* -- Please note that you can now use the COPYNLNL -- * DOC FILE //* -- program from Files 229 or 316 to split the files -- * DOC FILE //* -- of an NL CBT Tape. You can use COPYNLNL to put -- * DOC FILE //* -- say, the first 300 files on one tape, and the -- * DOC FILE //* -- next 300 files on another tape. -- * 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 //* -- ONLY FIT ON A 3490E CARTRIDGE. IF YOU CAN'T USE -- * DOC FILE //* -- 3490E, YOU MUST SPLIT THE TAPE INTO TWO TAPES, -- * DOC FILE //* -- USING THE COPYNLNL PROGRAM FROM FILE 229 OR FROM -- * DOC FILE //* -- FILE 316 OF THE CBT TAPE. -- * DOC FILE //* -- -- * DOC FILE //* -- You can use the COPYNLNL program from Files 229 -- * DOC FILE //* -- and 316, to split a NL CBT Tape into 2 tapes. -- * DOC FILE //* -- COPYNLNL can be used to put, say, the first -- * DOC FILE //* -- 300 files on one tape, and the rest of the -- * DOC FILE //* -- files on a second tape. -- * DOC FILE //* -- -- * DOC FILE //* -- These materials are now available for download -- * DOC FILE //* -- from the worldwide web at: -- * DOC FILE //* -- -- * DOC FILE //* -- http://www.cbttape.org -- * DOC FILE //* -- -- * DOC FILE //* -- MY BEST CONTACT INFORMATION, AS OF THIS WRITING, IS -- * DOC FILE //* -- THROUGH MY EMAIL ADDRESSES: -- * DOC FILE //* -- -- * DOC FILE //* -- sbgolob@attglobal.net OR sbgolob@cbttape.org -- * DOC FILE //* -- -- * DOC FILE //* -- MY EMAIL ADDRESS IS ALSO POSTED AT www.cbttape.org -- * DOC FILE //* -- -- * DOC FILE //* --------------------------------------------------------------- * DOC FILE //* -- -- * DOC FILE //* -- ANNOUNCEMENT: In order to help you see if what you need -- * DOC FILE //* -- is on some other tape, I am establishing File 071 -- * DOC FILE //* -- as a doc file which contains actual documentation -- * DOC FILE //* -- from other public tapes. Until now, we had some -- * DOC FILE //* -- of this documentation scattered in various files -- * DOC FILE //* -- on this tape. But now they are being gathered -- * DOC FILE //* -- in one file for your convenience. If you are -- * DOC FILE //* -- thinking of ordering some other tape, check in -- * DOC FILE //* -- File 071 first. -- * DOC FILE //* -- SG - 03/30/92 -- * DOC FILE //* -- -- * DOC FILE //* --------------------------------------------------------------- * DOC FILE //* -- -- * DOC FILE //* -- ANNOUNCEMENT: WE HAVE A *FIRST* FOR THIS TAPE. -- * DOC FILE //* -- -- * DOC FILE //* -- CARMINE CANNATELLO, AUTHOR OF AN EXTREMELY RELEVANT -- * DOC FILE //* -- BOOK CALLED "ADVANCED ASSEMBLER LANGUAGE AND MVS -- * DOC FILE //* -- INTERFACES", PUBLISHED BY JOHN WILEY, HAS DONATED -- * DOC FILE //* -- HIS MACHINE-READABLE CODING EXAMPLES TO THIS TAPE. -- * DOC FILE //* -- -- * DOC FILE //* -- John Wiley, the publisher, has just announced that -- * DOC FILE //* -- a second edition of Carmine's book is now being -- * DOC FILE //* -- published. Its ISBN number is: 0471-361-763 . -- * DOC FILE //* -- See below, for the publisher's phone number, and -- * DOC FILE //* -- how to order a copy. -- * DOC FILE //* -- -- * DOC FILE //* -- ANYONE WHO HAS THE BOOK, AND I STRONGLY RECOMMEND -- * DOC FILE //* -- THAT YOU GET HOLD OF ONE, CAN NOW HAVE THE MATERIALS -- * DOC FILE //* -- ON THE OPTIONAL DISKETTE FOR FREE, INSTEAD OF HAVING -- * DOC FILE //* -- TO PAY FOR THEM. THESE MATERIALS ARE NOW ON FILE 069 -- * DOC FILE //* -- OF THIS TAPE. (File 069 has the 1st Edition code.) -- * DOC FILE //* -- -- * DOC FILE //* -- THIS BOOK EXPLAINS ASSEMBLER LANGUAGE CODING -- * DOC FILE //* -- TECHNIQUES SO CLEARLY, THAT YOU CAN LEARN THEM -- * DOC FILE //* -- POSSIBLY EVEN FROM ONE READING. IF YOU HAVE ANY -- * DOC FILE //* -- PROBLEM UNDERSTANDING ANY OF THE SOURCE CODE ON THIS -- * DOC FILE //* -- TAPE, IT'S A GOOD BET THAT CARMINE EXPLAINS THE -- * DOC FILE //* -- RELEVANT PRINCIPLES SOMEWHERE IN HIS BOOK. -- * DOC FILE //* -- -- * DOC FILE //* -- AGAIN, SEE FILE 069 ON THIS TAPE. -- * DOC FILE //* -- -- * DOC FILE //* -- THE ADDRESS OF THE PUBLISHER IS: -- * DOC FILE //* -- -- * DOC FILE //* -- John Wiley & Sons Inc. -- * DOC FILE //* -- Professional, Reference and Trade Group -- * DOC FILE //* -- 605 Third Avenue -- * DOC FILE //* -- New York, NY 10158-0012 -- * DOC FILE //* -- (212) 850-6000 MAIN NUMBER -- * DOC FILE //* -- -- * DOC FILE //* -- web site: http://www.wiley.com/compbooks -- * DOC FILE //* -- -- * DOC FILE //* -- To order a copy of the second edition of this book, -- * DOC FILE //* -- please call: 1-800-225-5945 extension 2497 -- * DOC FILE //* -- ISBN number: 0471-361-763 -- * DOC FILE //* -- -- * DOC FILE //******************************************************************* DOC FILE //***SECTION DISCLAIMER SECTION * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* D I S C L A I M E R S E C T I O N * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* The tapes commonly referred to as "The CBT MVS Utilities * DOC FILE //* Tape", and "The CBT Overflow Tape", as well as "The CBT * DOC FILE //* Overflow Tape Two" are hereinafter referred to as "this * DOC FILE //* tape". The materials on these "tapes", even if they are * DOC FILE //* not physically on a tape, but they exist on a cd-rom disk, * DOC FILE //* or on any other machine-readable medium, or printed, or * DOC FILE //* written, or in analog or digital form, or in any data * DOC FILE //* representation format, such as EBCDIC or ASCII or any other * DOC FILE //* data representation scheme, or they are in any compressed * DOC FILE //* or encrypted format, shall fully be included in all * DOC FILE //* disclaimers of responsibility, as though these materials * DOC FILE //* were actually physically on tape. * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* THIS TAPE CONTAINS FREE SOFTWARE, NOT TO BE CHARGED FOR, * DOC FILE //* EXCEPT FOR HANDLING COSTS. * DOC FILE //* * DOC FILE //* THIS TAPE MAY BE FREELY DUPLICATED. * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* NOTICE. There are certain copyrighted sections on this tape * DOC FILE //* which contain reservations of rights. Owners of these * DOC FILE //* sections have given permission for the use of their * DOC FILE //* materials subject to the conditions stated in each case. * DOC FILE //* * DOC FILE //* THESE RESERVATIONS DO NOT APPLY TO THE ENTIRE TAPE ... !!!. * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* DISCLAIMER REGARDING "NON-FREE" MATERIALS. * DOC FILE //* The editor and/or any other persons or institutions, * DOC FILE //* corporations, or any other entity handling this tape, * DOC FILE //* do not assume responsibility for the inadvertent inclusion * DOC FILE //* of non-"free" materials. If any such materials are found * DOC FILE //* to have been accidentally included on this tape, please * DOC FILE //* inform the editor immediately, and such materials will be * DOC FILE //* promptly removed. * DOC FILE //* * DOC FILE //* ALL DISCLAIMERS OF RESPONSIBILITY, ABOVE AND BELOW, APPLY * DOC FILE //* TO ALL PERSONS AND/OR INSTALLATIONS OR ANY OTHER ENTITY * DOC FILE //* EDITING, DUPLICATING, PROCESSING, OR OTHERWISE HANDLING * DOC FILE //* THIS TAPE, AS WELL AS TO ALL AUTHORS AND CONTRIBUTORS OF * DOC FILE //* MATERIAL TO THIS TAPE. NO RESPONSIBILITIES ARE ASSUMED * DOC FILE //* BY ANY OF THESE PERSONS, INSTALLATIONS, CORPORATIONS, * DOC FILE //* ENTITIES, INSTITUTIONS, OR ORGANIZATIONS. * DOC FILE //* * DOC FILE //* No warranty, expressed or implied, is provided by any or * DOC FILE //* all of the persons and/or installations editing, * DOC FILE //* duplicating, or otherwise handling this tape, as well as * DOC FILE //* by all authors and contributors of material to this tape. * DOC FILE //* Persons and/or installations using any of the programs or * DOC FILE //* materials on this tape, do so entirely at their own risk. * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* NO WARRANTY IS MADE TO THE ACCURACY OF THE PROGRAMS OR * DOC FILE //* RELATED MATERIAL AND NO RESPONSIBILITY IS ASSUMED FOR ANY * DOC FILE //* MODIFICATION DIRECTLY OR INDIRECTLY CAUSED BY THE USE OF * DOC FILE //* THIS SOFTWARE. IT IS THE USER'S RESPONSIBILITY TO EVALUATE * DOC FILE //* THE USEFULNESS OF THE MATERIAL SUPPLIED. * DOC FILE //* * DOC FILE //* We do not guarantee to keep any material provided up to * DOC FILE //* date, nor do we guarantee to provide any corrections or * DOC FILE //* extensions described by anyone, or corrections or * DOC FILE //* extensions made in the future. * DOC FILE //* * DOC FILE //* NO WARRANTY, EXPRESSED OR IMPLIED, IS PROVIDED BY ANY OR * DOC FILE //* ALL OF THE PERSONS AND/OR INSTALLATIONS EDITING, * DOC FILE //* DUPLICATING, OR OTHERWISE HANDLING THIS TAPE, AS WELL AS * DOC FILE //* BY ALL AUTHORS AND CONTRIBUTORS OF MATERIAL TO THIS TAPE. * DOC FILE //* PERSONS AND/OR INSTALLATIONS USING ANY OF THE PROGRAMS OR * DOC FILE //* MATERIALS ON THIS TAPE, DO SO ENTIRELY AT THEIR OWN RISK. * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* THE EDITOR AND/OR ANY OTHER PERSONS, INSTITUTIONS, * DOC FILE //* CORPORATIONS, OR ANY OTHER ENTITY HANDLING THIS TAPE, AS * DOC FILE //* WELL AS ANY AUTHORS OR CONTRIBUTORS OF MATERIAL TO THIS * DOC FILE //* TAPE, DO NOT ASSUME ANY RESPONSIBILITY, EXPRESS, IMPLIED, * DOC FILE //* OR TO BE CONSTRUED IN ANY WAY, TO UPDATE THIS TAPE AT * DOC FILE //* ALL. ANY STATEMENTS TO THE CONTRARY, ANYWHERE ON THIS * DOC FILE //* TAPE, ARE HEREBY OVERRIDDEN BY THIS STATEMENT. * DOC FILE //* * DOC FILE //* Specifically, but not limited thereto, no responsibility * DOC FILE //* is assumed, in any way, by anyone handling this tape, or * DOC FILE //* by any author or contributor of material to this tape, to * DOC FILE //* ensure YEAR 2000 compliance of any materials on this * DOC FILE //* tape, at all. * DOC FILE //* * DOC FILE //* THESE STATEMENTS, IN THEIR GENERAL APPLICATION, AND NOT * DOC FILE //* LIMITED TO YEAR 2000 CONSIDERATIONS, APPLY TO ALL * DOC FILE //* MATERIALS CONTAINED ON THIS TAPE, WITHOUT EXCEPTION. * DOC FILE //* * DOC FILE //* These statements OVERRIDE ANY STATEMENT OF DOCUMENTATION, * DOC FILE //* anywhere else on this tape, that any software or materials * DOC FILE //* contained on this tape are YEAR 2000 compliant or functional. * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //***TAPE DUPLICATION SECTION * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* T A P E D U P L I C A T I O N S E C T I O N * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* THIS 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 //* 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 //* * DOC FILE //******************************************************************* DOC FILE //***UPLOAD DOWNLOAD SECTION * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* U P L O A D D O W N L O A D S E C T I O N * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* I prefer contributions on cartridge or tape because they * DOC FILE //* are not as subject to error, as what we shall describe * DOC FILE //* below. For this reason, in this Internet age, I prefer * DOC FILE //* contributions in TSO XMIT format, which never had to * DOC FILE //* undergo an ASCII to EBCDIC translation (and vice-versa). * DOC FILE //* Hovever if your data has undergone ASCII <--> EBCDIC * DOC FILE //* conversion..... and since .... * DOC FILE //* we have fully entered the era of PC's, some of the * DOC FILE //* contributions to this tape have been obtained from diskette * DOC FILE //* downloads and uploads. Sometimes, the upload-download * DOC FILE //* software will make a mistake in character translation. * DOC FILE //* This editor would appreciate when anyone notices such * DOC FILE //* errors on any file in this tape. Please inform me about * DOC FILE //* them so they can be corrected. * DOC FILE //* * DOC FILE //* -- email: sbgolob@attglobal.net OR -- * DOC FILE //* -- 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 //* * 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. * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* ANNOUNCEMENT ------*-*-*-*-*------ DOC FOR OTHER TAPES. * DOC FILE //* * DOC FILE //* There is now documentation for the contents of other public * DOC FILE //* tapes on this tape. See File 071. Some of these materials * DOC FILE //* had been scattered in various files on this tape, and were * DOC FILE //* probably hard to find. We are now making it easier to find * DOC FILE //* this material, so if you want to order some other tape, you * DOC FILE //* can get some idea of what it has on it. * DOC FILE //* * DOC FILE //* We can't guarantee that whenever somebody else makes an * DOC FILE //* update, we can keep up. We'll do the best we can without * DOC FILE //* making promises. We will try to make File 071 reflect the * DOC FILE //* latest tapes that we have obtained ourselves. * DOC FILE //* * DOC FILE //* A lot of the other tapes have now been incorporated into the * DOC FILE //* CBT Overflow Tape, such as the SPLA MVS Tape, the SHARE PL/1 * DOC FILE //* Tape, the L.A. MVS Users Group Tape, and the European GUIDE * DOC FILE //* Tapes. SG 5/00. * DOC FILE //* * DOC FILE //* We 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 works 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 //* Doug Nadel's site: http://www.mindspring.com/~somebody * DOC FILE //* * DOC FILE //* Doug has a lot of other tools at his site, as well. * 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 //* We hope these services will be of help to everyone. SG 03/01 * 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@attglobal.net or * DOC FILE //* 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): * DOC FILE //* * DOC FILE //* Subscribe: hercules-390-subscribe@yahoogroups.com * DOC FILE //* Post message: hercules-390@yahoogroups.com * DOC FILE //* * DOC FILE //* Get the latest version of Hercules from: * DOC FILE //* http://www.conmicro.cx/hercules * 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 //******************************************************************* 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 //* * DOC FILE //* -- email: sbgolob@attglobal.net OR -- * DOC FILE //* -- sbgolob@cbttape.org -- * DOC FILE //* * DOC FILE //* THESE OLD TAPES MAY BE VERY IMPORTANT IN THE FUTURE, * DOC FILE //* FOR ALL KINDS OF PURPOSES. WE ARE LOOKING INTO WAYS * DOC FILE //* OF MAKING THE INFORMATION "VERY COMPACTLY" AVAILABLE * DOC FILE //* TO ALL. (POSSIBLY 20 OR 30 VOLUMES WORTH OF INFO ON * DOC FILE //* ONE REEL.) NO PROMISES YET, BUT PLEASE HELP !!!! * DOC FILE //* * DOC FILE //* I'D PREFER IF YOU MAKE THE COPIES USING THE "COPYMODS" * DOC FILE //* PROGRAM FROM FILE 229 OF THIS TAPE. I KNOW THAT PROGRAM * DOC FILE //* WORKS, AND WILL GRAB ALL THE FILES. * DOC FILE //* * DOC FILE //* THANKS IN ADVANCE. (I'LL TRY AND RETURN A NEW CBT TAPE.) * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* A THANK YOU: * DOC FILE //* * DOC FILE //* Thanks to Glen Herrmannsfeldt of the University of Washington * DOC FILE //* who sent me an OS/360 source tape. This tape contains, among * DOC FILE //* other things, source code for the free IBM compilers. How * DOC FILE //* complete the source code is, I'm not sure. I've included * DOC FILE //* source for the OS/360 ALGOL compiler and library on Files * DOC FILE //* 309 and 310 of this tape. Executable code is on File 176. * DOC FILE //* You can judge for yourselves. * DOC FILE //* * DOC FILE //* Rick Fochtman has now made a cd-rom of the OS/360 source code. * DOC FILE //* If you want a copy of this cd-rom, please feel free to email * DOC FILE //* me at sbgolob@cbttape.org OR sbgolob@attglobal.net, and * DOC FILE //* 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@attglobal.net , if you can send a * DOC FILE //* tape in this way. * DOC FILE //* * DOC FILE //* another email address: sbgolob@cbttape.org * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //***SECTION FILE DESCRIPTION SECTION * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* F I L E D E S C R I P T I O N S E C T I O N * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* This section contains a one-line description of each non-empty * DOC FILE //* file on the CBT MVS Utilities Tape. Its purpose is to provide * DOC FILE //* a more detailed description of each file's contents, than is * DOC FILE //* provided in the File Status Section of this documentation. * DOC FILE //* * DOC FILE //* Empty files are marked as such, and the descriptions of them * DOC FILE //* should be regarded as placeholders, in case the file number * DOC FILE //* would become occupied at a future date. * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //*+File 001: Detailed documentation of the CBT MVS Utilities Tape *# DOC FILE //*+File 002: CBT973 Compression-Decompression Program for Files * DOC FILE //*+File 003: JCL member to load each tape file to disk *# DOC FILE //*+File 004: Put ./ ADD cards into this file to make a PDS * DOC FILE //*+File 005: VMREXX exec to load this tape on to a VM system * DOC FILE //*+File 006: Collection of Utilities to manipulate File 001 doc * DOC FILE //*+File 007: SHARE RACF mods tape * DOC FILE //*+File 008: File containing stats for old CBT Tape versions * DOC FILE //*+File 009: RACF Exits to Implement tape DS protection. RACF 1.7 * DOC FILE //*+File 010: TSO command called ISPFPRIM to invoke ISPF from TSO * DOC FILE //*+File 011: MVS DEBE, MSG2USER, System Info into CLIST variables * DOC FILE //*+File 012: John Hancock Mutual ISPF Background Jobs driver * DOC FILE //*+File 013: Program to Compress File 001 * DOC FILE //*+File 014: Sam Golob's old articles in "Technical Support" mag * DOC FILE //*+File 015: Warner Brothers collection of Utilities and Exits * DOC FILE //*+File 016: Scott & White Hospital User Exits * DOC FILE //*+File 017: LISTDD program from Firemen's Fund * DOC FILE //*+File 018: TSUPDATE program from Conrail * DOC FILE //*+File 019: FOOD LION Utilities - from John Hooper * DOC FILE //*+File 020: A collection of System REXX execs * DOC FILE //*+File 021: BELL & HOWELL operator communication utilities * DOC FILE //*+File 022: A collection of utilities from Mark Hedges * DOC FILE //*+File 023: Mods to LOGON to TSO under a secondary JES2 * DOC FILE //*+File 024: XFERDUMP from MCI - originally from Howard Dean * DOC FILE //*+File 025: TSO Console Pgm and other pgms from TU Services * DOC FILE //*+File 026: Program to take a survey at TSO LOGOFF time * DOC FILE //*+File 027: Date Check utility from DAYCO Products * DOC FILE //*+File 028: CLISTs to generate JCL to backup a list of datasets * DOC FILE //*+File 029: Cook Book instructions to Enlarge the VTOC of a pack * DOC FILE //*+File 030: Mods to change console pfkeys MVS370 thru XA 2.1.7 * DOC FILE //*+File 031: IGGPRE00 exit with RACF interface * DOC FILE //*+File 032: JCLSCAN, COPYPACK, DOWNDATE programs * DOC FILE //*+File 033: 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 modification * DOC FILE //*+File 040: Clean a PDS, string scan-repl, super file copy, etc * DOC FILE //*+File 041: JES2 Exits to drive XEROX printers * DOC FILE //*+File 042: Load File 001 information to an INFO/MVS database * DOC FILE //*+File 043: Header information for File 042 * DOC FILE //*+File 044: ASMTOZAP - code your system zaps in assembler lang * DOC FILE //*+File 045: PDS Compare program adapted from Yale compare pgm * DOC FILE //*+File 046: PACKRAT program to scratch datasets from a pack * DOC FILE //*+File 047: NOCELL-LISTICAT etc. Jim Lane's large collection. * DOC FILE //*+File 048: LISTVOL, LISTSPC, LOCINDEX: doc and help for them *# DOC FILE //*+File 049: 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-R.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: Disk Management System from Peoples National Bank * DOC FILE //*+File 098: ISPF interface for XMIT/RECEIVE - source * DOC FILE //*+File 099: ISPF interface for XMIT/RECEIVE - data file * DOC FILE //*+File 100: Deluxe Check Printers ISPF/PDF customizations * DOC FILE //*+File 101: Deluxe Check Printers ISPF Clists * DOC FILE //*+File 102: TAPESCAN program - Now 64K capable * DOC FILE //*+File 103: ISPF DIALOGS from Bill Horton of Tennessee Eastman * DOC FILE //*+File 104: JES2 Remote Printers (JRP package) - OS/390 level * DOC FILE //*+File 105: ISPF 3.8 OUTLIST replacement and enhancement * DOC FILE //*+File 106: Utility to list RACF access of Users to Entities * DOC FILE //*+File 107: Clemson University Structured Macro Library * DOC FILE //*+File 108: Clemson University Structured Macro SAMPLIB * DOC FILE //*+File 109: IEFACTRT exit code from First Chicago * DOC FILE //*+File 110: IEFACTRT sample output from File 109 code * DOC FILE //*+File 111: REVLON utility collection from Jim Purdy * DOC FILE //*+File 112: VTOC TSO command processor * DOC FILE //*+File 113: SMPSCAN documentation * DOC FILE //*+File 114: SMPSCAN jobstream samples * DOC FILE //*+File 115: SMPSCAN source code * DOC FILE //*+File 116: Disk Seek Analysis program * DOC FILE //*+File 117: WTO Exits from Jim Cook of Coca Cola * DOC FILE //*+File 118: SMPPTFIN preprocessing - sort by FMIDs & their PTFs * DOC FILE //*+File 119: Howard Dean Utility collection - 1st File * DOC FILE //*+File 120: Sam Golob's "MVS Tools & Tricks" articles *# DOC FILE //*+File 121: Wide illustrations from Sam Golob's articles * DOC FILE //*+File 122: RMSG Subsystem and JES2 exits from Allergan * DOC FILE //*+File 123: 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: Mod to list VSAM files in ISPF 3.4 dataset list * DOC FILE //*+File 138: Program called SYSTEM to report system info * DOC FILE //*+File 139: Dennis Longnecker Utilities * DOC FILE //*+File 140: Data Archival/Recovery System (DARS) DASD Managemnt * DOC FILE //*+File 141: SYS1.BRODCAST package from Tim Vanderwall * DOC FILE //*+File 142: Invoke other VTAM applications from within TSO * DOC FILE //*+File 143: Online IDCAMS application, CLISTs etc. * DOC FILE //*+File 144: VPS User Exit 14 * DOC FILE //*+File 145: KERMIT for TSO - source * DOC FILE //*+File 146: KERMIT for TSO - load library * DOC FILE //*+File 147: ARCHIVER All your non-VSAM datasets to 1 VSAM file * DOC FILE //*+File 148: Panvalet ISPF interface * DOC FILE //*+File 149: UCLA utilities collection * DOC FILE //*+File 150: ISPF Interactive Data Transmission Facility (XMIT) * DOC FILE //*+File 151: Load LISTCAT info into INFO/MVS database * DOC FILE //*+File 152: Harold Zbiegien Utilities - PSF emphasis, & others * DOC FILE //*+File 153: Harold Zbiegien - 3800 Character set samples * DOC FILE //*+File 154: Program to show SMP ELEMENTS from APPLY/ACCEPT run * DOC FILE //*+File 155: Dave North's REXX execs - go VB-255 to FB-80 etc. * DOC FILE //*+File 156: IEBASAP - source code * DOC FILE //*+File 157: IEBASAP - sample reports * DOC FILE //*+File 158: ISPF & REXX * DOC FILE //*+File 159: UCBFIND * DOC FILE //*+File 160: TSO CPS * DOC FILE //*+File 161: Jim Marshall - ISPF interfaces to utilities * DOC FILE //*+File 162: XREFASM * DOC FILE //*+File 163: DUDA UTILITIES * DOC FILE //*+File 164: RESCUE SYSTEM * DOC FILE //*+File 165: RACF 1.7 SYSTEM * DOC FILE //*+File 166: Vinh Vu Utilities collection * DOC FILE //*+File 167: CATELLUS UTIL * DOC FILE //*+File 168: Bill Godfrey Utilities collection * DOC FILE //*+File 169: Kevin Williams Utilities collection * DOC FILE //*+File 170: DUMPCSA program from Frank O'Quinn * DOC FILE //*+File 171: DITTO, TAPEMAP, SMFUTIL, TPX, FX, SUTL (no BLP req'd)* 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.01 - PDSE Support *# DOC FILE //*+File 183: Gilbert Saint-flour's collection (SHOWMVS File 492) *# DOC FILE //*+File 184: Tom Bryant's way of setting up IPCS * DOC FILE //*+File 185: IKJTABLS Source Code and load module *# 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 * DOC FILE //*+File 194: CUT-PASTE edit macros from Jim Marshall * DOC FILE //*+File 195: Eli Duttman's "simple but useful" CLISTs * DOC FILE //*+File 196: JES2 Exit Loader - an older and more imperfect one * DOC FILE //*+File 197: IMS 3.1 Mods from Rockwell - large collection * DOC FILE //*+File 198: JES2 Exit Dynamic Reloader Command from Bob Break *# DOC FILE //*+File 199: BLKSPTRK, CMDPGM, 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's Tool collection - from Lee Conyers * DOC FILE //*+File 221: EDP Auditor's REXX tools - from Lee Conyers * DOC FILE //*+File 222: EMPTY * DOC FILE //*+File 223: FREE Tape Management System - reports all mounts * DOC FILE //*+File 224: FREE Tape Management System - sample outputs * DOC FILE //*+File 225: OFFLOAD program - Dave Cole's original version * DOC FILE //*+File 226: COMPRSEQ - Dave Cole's compare program - orig vers * DOC FILE //*+File 227: TSO authorization code from CBT Company * DOC FILE //*+File 228: DFHSM Dataset Recovery - ISPF dialog * DOC FILE //*+File 229: COPYMODS 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: Collection of programs from Eileen Barkow * DOC FILE //*+File 250: DISPLAY GRS LONG RNAMES - Console Command * DOC FILE //*+File 251: ISPF EDIT MACRO collection from Paul Davis - 2 * DOC FILE //*+File 252: JEFF KAPLAN Source Code * DOC FILE //*+File 253: JEFF KAPLAN REXX execs * DOC FILE //*+File 254: JEFF KAPLAN CNTL * DOC FILE //*+File 255: JEFF KAPLAN ISPPLIB * DOC FILE //*+File 256: JEFF KAPLAN ISPTLIB * DOC FILE //*+File 257: ZAPS to Linkage Editor to take BLKSIZE=32720 * DOC FILE //*+File 258: WIN3270 - 3270 Device Tools - SAS/C source code * DOC FILE //*+File 259: WIN3270 - 3270 Device Tools - Load Modules * DOC FILE //*+File 260: Quick Disk Mapping program from Chuck Hoffman * DOC FILE //*+File 261: 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, DUDASD and JLOG from Guy Albertelli *# DOC FILE //*+File 265: BF Goodrich LOGON exit * DOC FILE //*+File 266: SS0104 TAPE MAP program - measures footages * DOC FILE //*+File 267: 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 * 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 - QSAM Copy Program * 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 PDS85 package or standalone. * DOC FILE //*+File 297: GRS ISPF Interface from Mike Cleary * DOC FILE //*+File 298: GTE Panvalet-PDS member backup system * DOC FILE //*+File 299: TAPEMAP program - Reads tape files in many formats * DOC FILE //*+File 300: Jim Marshall's enormous collection of TSO programs * DOC FILE //*+File 301: A version of CDSCB which checks auth thru RACF * DOC FILE //*+File 302: Program from Mike Cleary to show LPA-LINKLIST info * DOC FILE //*+File 303: SIMTERM OS/390 from Alex Brodsky - VTAM pgms in TSO * DOC FILE //*+File 304: LSTVOL program source from Bruce Hogman * DOC FILE //*+File 305: LSTVOL assembly and linkedit printout * DOC FILE //*+File 306: The original version of TSSO from Bill Godfrey * DOC FILE //*+File 307: IEV90 program which invokes HLASM (ASMA90) * DOC FILE //*+File 308: Console display of system info from Alan Field * DOC FILE //*+File 309: ALGOL Compiler Source Code - a few modules incmplt * DOC FILE //*+File 310: ALGOL Library Source Code * DOC FILE //*+File 311: Dave Alcock's large Utilities collection * DOC FILE //*+File 312: 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 - SAMPLIB * DOC FILE //*+File 324: REXX Function Package from Gerard Nicol - Loadlib * DOC FILE //*+File 325: TSO Command Processor Programs from Wells Fargo * DOC FILE //*+File 326: Free FORTRAN G & H - 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 interface for COBANAL program from File 321 * DOC FILE //*+File 331: COBOL subrtnes to set an area in W-S to an address * DOC FILE //*+File 332: Automatic Job Scheduler in MVS JES2 environment * DOC FILE //*+File 333: MVS Version of GZIP Compression - Load Module * DOC FILE //*+File 334: MVS Version of GZIP Compression - SOURCE .H * DOC FILE //*+File 335: MVS Version of GZIP Compression - SOURCE .C * DOC FILE //*+File 336: Utilities collection from Rice University * DOC FILE //*+File 337: Search entire system for PDS member name-Atalay Gul * DOC FILE //*+File 338: P390 Utilities from Gilbert Saint-flour * DOC FILE //*+File 339: JES2 Exit 5 - commands to better control job status * DOC FILE //*+File 340: DCM - Report statistics from 7980-3 controllers * DOC FILE //*+File 341: Code to load PLPA programs into CSA-structrd macros * DOC FILE //*+File 342: ISPF interface to Model 204 database-John Kalinich * DOC FILE //*+File 343: A VTOCLIST program - Peter Havercan & John Kalinich * DOC FILE //*+File 344: REXX 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 at OS/390 JES2 2.5 level * DOC FILE //*+File 347: MODLIST program-list original COBOL compile options * DOC FILE //*+File 348: Programs to list a PDS directory in order * DOC FILE //*+File 349: REXX to update incore ISPF command table on the fly * DOC FILE //*+File 350: JES2 exits to convert JOB affnty JCL to WLM SCHENV= * DOC FILE //*+File 351: Programs to list the LE Level currently installed * DOC FILE //*+File 352: INTEL large collection - 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 Utilities, REXX Edit/DSList macros, etc. * 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 from Jim Martin *# DOC FILE //*+File 361: Frank Johnston Utilities - CXYPSCAN, ZZRELINK * DOC FILE //*+File 362: Frank Johnston Utilities - Load Library * DOC FILE //*+File 363: ISPF Name Change Exit * DOC FILE //*+File 364: Control Card Subsystem - CCSS * DOC FILE //*+File 365: System to send files error-free using TSO XMIT * DOC FILE //*+File 366: World Clock and PDSADD prgms from Marvin Shaw * DOC FILE //*+File 367: ASCB and TSO User REXX commands from John Kalinich * DOC FILE //*+File 368: Utility collection from James Williams * DOC FILE //*+File 369: Planning Research Corp collection of programs * DOC FILE //*+File 370: ZAPs-I/O counts in IEF285I msgs-see IEFU83,File 134 * DOC FILE //*+File 371: Load Modules-programs on File 270-Washington State * DOC FILE //*+File 372: DYNALLOC Program from Ken MacKenzie * DOC FILE //*+File 373: GTE TSO command - SAL - show dataset allocations * DOC FILE //*+File 374: SAS Programs to format IBM-produced SMF records * DOC FILE //*+File 375: SAS Programs to format Vendor SMF records * DOC FILE //*+File 376: ZDF Display Facility & utilities form David Marsden * DOC FILE //*+File 377: Exits and mods to run TCAS under SUB=MSTR: Ed Jaffe * DOC FILE //*+File 378: SORTTRAK to report on DFSORT SMF records: S.Kowalski * DOC FILE //*+File 379: PROCLIB Cross Reference reports * DOC FILE //*+File 380: 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 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 (kill 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. from Rob Prins * DOC FILE //*+File 416: Deluxe Check Printing - useful programs * DOC FILE //*+File 417: RPF/E for OS/390 and z/OS - from Rob Prins * DOC FILE //*+File 418: Combined Insurance collection of programs * DOC FILE //*+File 419: Dignus C language source and compiled assembler src * DOC FILE //*+File 420: Dignus Load Library - Compiled C to OS/390 utilities * DOC FILE //*+File 421: XACORZAP program by Robert Budge (INCORZAP author) * DOC FILE //*+File 422: Don Marquardt collection of utilities * DOC FILE //*+File 423: Jeff Broido collection - TSO commands and utilities *# DOC FILE //*+File 424: VETAPE - 3420 to 3480 conversion program * DOC FILE //*+File 425: IEFUSI Exit from Mike Loos * DOC FILE //*+File 426: Started Task Accounting, and Jobnames processor * DOC FILE //*+File 427: IHASTOW macro source * DOC FILE //*+File 428: Programs to extract and display control block info * DOC FILE //*+File 429: Allergan Utilities - from Paul Banks * DOC FILE //*+File 430: McEvoy Utilities collection * DOC FILE //*+File 431: Steve Bacher's utilities, packages, and offerings * DOC FILE //*+File 432: Thierry Falissard's selected programs and stuff * DOC FILE //*+File 433: Frank Clarke's collection of REXX execs, etc. * DOC FILE //*+File 434: Mark Zelden collection of Utilities and execs *# DOC FILE //*+File 435: Frank Clarke's stuff FB-80-ized by Dave North (F155) * DOC FILE //*+File 436: COMPCODE - sends NOTIFY & email for job completion * DOC FILE //*+File 437: Standalone utilities and others from Jan Jaeger * DOC FILE //*+File 438: Dan Snyder collection of structured macros & others * DOC FILE //*+File 439: PDSX Utility to scan all pds'es--from Volker Mielke * DOC FILE //*+File 440: Load Library for PDSX * DOC FILE //*+File 441: 2 Pgms for RACF from Brian Vogt - RESUME & RACNAMES * DOC FILE //*+File 442: REVIVE Utility from Tetsuya Kimura (Kimu) * DOC FILE //*+File 443: Other Utilities from Tetsuya Kimura (Kimu) * DOC FILE //*+File 444: Ron Tatum pgms - create and read big blocks on tape * DOC FILE //*+File 445: Object Deck Disassembler from Chris Kendon * DOC FILE //*+File 446: COBOL Program which uses UNIX system services * DOC FILE //*+File 447: ENQMON from Rick Fochtman--GRS displays like MIM's. * DOC FILE //*+File 448: Package to Insert Date into Global system variables * DOC FILE //*+File 449: Amdahl Bookmanager package * DOC FILE //*+File 450: REXX exec to globally search for character strings * DOC FILE //*+File 451: Gary Scarcella REXX execs - CUTCLEAR, SUBCAN * DOC FILE //*+File 452: Dan's MVS-JES2 Utilities * DOC FILE //*+File 453: Paul Moinil collection of Utilities: Index * DOC FILE //*+File 454: Paul Moinil collection of Utilities: Basic Material * DOC FILE //*+File 455: Paul Moinil collection of Utilities: Complementary * DOC FILE //*+File 456: Paul Moinil collection of Utilities: Additional * DOC FILE //*+File 457: Paul Moinil collection of Utilities: Demo/Games * DOC FILE //*+File 458: Paul Moinil collection of Utilities: CBT Extracted * DOC FILE //*+File 459: Paul Moinil collection of Utilities: Supplementary * DOC FILE //*+File 460: ISPF GUIDE Tape - ISPCLIB file * DOC FILE //*+File 461: ISPF GUIDE Tape - Doc file * DOC FILE //*+File 462: ISPF GUIDE Tape - Edit Macros * DOC FILE //*+File 463: ISPF GUIDE Tape - Help file * DOC FILE //*+File 464: ISPF GUIDE Tape - ISPFMACS * DOC FILE //*+File 465: ISPF GUIDE Tape - JCL file * DOC FILE //*+File 466: ISPF GUIDE Tape - ISPMLIB file * DOC FILE //*+File 467: ISPF GUIDE Tape - ISPPLIB file * DOC FILE //*+File 468: ISPF GUIDE Tape - ISPSLIB file * DOC FILE //*+File 469: ISPF GUIDE Tape - Source file * DOC FILE //*+File 470: ISPF GUIDE Tape - SVC99MAC file * DOC FILE //*+File 471: ISPF GUIDE Tape - MACRO file * DOC FILE //*+File 472: MURPHY - TSO command to display one-liners randomly * DOC FILE //*+File 473: CHKASVT program to find non-reusable ASIDs. * DOC FILE //*+File 474: LIBCLEAN - compare contents of pds's. Rob Wunderlich * DOC FILE //*+File 475: Doc for the new Large Block Interface (LBI) for tape * DOC FILE //*+File 476: LISP for MVS - moved to CBT Overflow Tape File 083 * DOC FILE //*+File 477: AWSUTIL to create "virtual tape" disk files * DOC FILE //*+File 478: RAWSTAPE from Jan Jaeger * DOC FILE //*+File 479: Broadcast Notices EDIT, BKMGR search, YAHTZEE * DOC FILE //*+File 480: Baldomero Castilla Utilities - Source Code * DOC FILE //*+File 481: Baldomero Castilla Utilities - Load Modules * DOC FILE //*+File 482: GDGCOPY Utility * DOC FILE //*+File 483: Thomas Ramseier collection of Utilities * DOC FILE //*+File 484: CACHEMAN package * 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 * DOC FILE //*+File 492: Permanent home: SHOWMVS 6.30 and 7.10, and SHOWzOS. * 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: ISPF installs of common 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 - prelim vers * DOC FILE //*+File 500: Object decks that go with File 499 * 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 CBT Overflow - File 085 * DOC FILE //*+File 506: REXX fum 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 and 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, etc. * 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: Routine to write an SMF record from user data * 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: REXX to look at LISTCAT and create IDCAMS source * DOC FILE //*+File 529: Programs to report on CICS SMF Records from M.Stitt * DOC FILE //*+File 530: PL/I program to format PL/I programs * DOC FILE //*+File 531: Compound EXEC to detect DSNames and other OS390 info * 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 Editor) from Jan Jaeger* 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 Utilities Supplement & Cookie Jar Pgm * DOC FILE //*+File 548: Alfred Nikolyn REXX Functions * DOC FILE //*+File 549: UNITNAME ISPF Dialog 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 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 * 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: Miscellaneous MVS Tips - 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 (adapted from File 299) * DOC FILE //*+File 583: PROFSET initial Edit Macro for setting ISPF profiles * 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: ISPF Application Starter from Robin Murray * DOC FILE //*+File 587: Older VTOC command with improved features * DOC FILE //*+File 588: Automated System Shutdown from Sergey Makogonov * DOC FILE //*+File 589: HSCTOOL and Utilities - Philippe Leite * 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 * 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 * DOC FILE //*+FILE 611: REXX to submit job based on RC from previous job * DOC FILE //*+FILE 612: DUDASD, DSPACE, LOCATE (modules) etc - A. Cheng * DOC FILE //*+FILE 613: JCL to create and renew a RESCUE system from prod * DOC FILE //*+FILE 614: SHOWMVS and SHOWzOS Load Modules in 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) and JI (display inits) 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 * 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 * 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 from Rich 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 A. Kannan * 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 function to save and preserve REXX variables * 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 application to stop remaining UNIX services * DOC FILE //*+FILE 684: Rick Fochtman's PDSUPDTE program and miscell. exits * 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: INITDBGN REXX program for generating DBRC INIT cards * 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: IKJEFLD1, IKJEFLD2 exits to LOGON to any subsystem * 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: TSO commands displaying some TSO/E control blocks *# 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: EMPTY * DOC FILE //*+FILE 742: EMPTY * DOC FILE //*+FILE 743: EMPTY * DOC FILE //*+FILE 744: EMPTY * DOC FILE //*+FILE 745: EMPTY * DOC FILE //*+FILE 746: EMPTY * DOC FILE //*+FILE 747: EMPTY * DOC FILE //*+FILE 748: EMPTY * DOC FILE //*+FILE 749: EMPTY * DOC FILE //*+FILE 750: EMPTY * 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). CALL ME UP (PREFERABLY) OR WRITE ME. * DOC FILE //* * DOC FILE //* -- email: sbgolob@attglobal.net or -- * DOC FILE //* -- sbgolob@cbttape.org -- * DOC FILE //* -- -- * DOC FILE //* HINT: MAP THIS TAPE WITH THE NEWEST "TAPEMAP" FROM FILE * DOC FILE //* 299. THIS "TAPEMAP" PROGRAM HAS TWO REPORT OUTPUTS. * DOC FILE //* REPORT #2 SHOWS ALL MEMBERS OF LIBRARIES AND ALL * DOC FILE //* MACRO NAMES THAT ARE IEBUPDTE-IMBEDDED WITHIN * DOC FILE //* SINGLE MEMBERS OF A FILE. YOU CAN SCAN THIS * DOC FILE //* REPORT IF YOU KEEP IT MACHINE-READABLE. IT WILL * DOC FILE //* HELP YOU FIND INDIVIDUAL PROGRAM NAMES OR MACROS. * DOC FILE //* * DOC FILE //* * DOC FILE //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * DOC FILE //* * DOC FILE //* * DOC FILE //* YOU MAY TRY TO LOOK AT: (MY PERSONAL OPINIONS ONLY ... ) * DOC FILE //* * DOC FILE //* Check the "Top Ten" downloads at www.cbttape.org . * DOC FILE //* * DOC FILE //* FILES 300 AND 316 FROM JIM MARSHALL. * DOC FILE //* FILE 300 CONTAINS A LARGE COLLECTION OF USEFUL TSO * DOC FILE //* COMMANDS TO EXPLORE. FILE 316 CONTAINS A LARGE COLLEC- * DOC FILE //* TION OF BATCH PROGRAMS. * DOC FILE //* * DOC FILE //* SEE THE LOAD MODULE LIBRARIES ON FILES 035 AND 135 FOR * DOC FILE //* QUICK-TO-PUT-IN AND AWESOMELY USEFUL UTILITIES. SOURCE * DOC FILE //* FOR ALMOST ALL OF THEM IS ON THE TAPE. SEE THE DES- * DOC FILE //* CRIPTIONS FOR FILES 035 AND 134 IN THE "DOCUMENTATION * DOC FILE //* SECTION" BELOW. THESE TWO LIBRARIES COMBINED WILL HELP * DOC FILE //* YOU TO QUICKLY SET UP SOME TOOLS. SOURCE FOR MODULES * DOC FILE //* IN FILE 035 CAN BE FOUND BY LOOKING BELOW IN THIS DOC * DOC FILE //* UNDER THE DESCRIPTION OF THE CONTENTS OF FILE 035. * DOC FILE //* MOST OF THE SOURCE FOR MODULES IN FILE 135 CAN BE FOUND * DOC FILE //* IN FILE 134. * DOC FILE //* * DOC FILE //* THE PDS 8.5 PRODUCT ON FILE 182 (MORE UTILITIES ON FILES * DOC FILE //* 296, 112, AND 134) IS INDISPENSABLE. "PDS 8.5" * DOC FILE //* DOES OVER 1000 SEPARATE UTILITY FUNCTIONS. THE "PDS" * DOC FILE //* PRODUCT WILL SAVE YOUR SHOP MUCH TIME AND MONEY. * DOC FILE //* IT PAYS TO MAKE THE INVESTMENT OF 2 OR 3 HOURS TO * DOC FILE //* INSTALL PDS 8.5. THIS WILL BE REPAID MANYFOLD, OVER * DOC FILE //* YEARS OF TIME. (IF YOU HAVE THE COMMERCIAL PRODUCT * DOC FILE //* PDSTOOLS, FROM SERENA INTERNATIONAL, PDS 8.5 IS NOT * DOC FILE //* NECESSARY. HOWEVER, IT STILL PAYS TO INSTALL THE * DOC FILE //* RELATED UTILITIES ON FILES 296, 112, 134, ETC., BECAUSE * DOC FILE //* IN MANY CASES, PDSTOOLS CAN CALL THESE UTILITIES ALSO.) * DOC FILE //* * DOC FILE //* FILE 134 (SOURCE) AND/OR FILE 135 (LOAD) FROM GREG PRICE. * DOC FILE //* HIS VERSION OF THE "REVIEW" COMMAND AND FULLSCREEN ZAP * DOC FILE //* ARE SUPER POWERFUL TOOLS FOR ALL "SYSTEM DOCTORS". * DOC FILE //* THIS IS A GOOD COLLECTION, AND GREG HAS VERY INTERESTING * DOC FILE //* STUFF HERE. * DOC FILE //* * DOC FILE //* FILE 172 FROM DAVID CARTWRIGHT OF SUTTON COLDFIELD IN * DOC FILE //* ENGLAND, IS A LARGE AND VERY COMPREHENSIVE COLLECTION * DOC FILE //* OF TOOLS. A SEARCH THROUGH THIS COLLECTION WILL BE * DOC FILE //* WORTHWHILE, ESPECIALLY FOR LEARNING. * DOC FILE //* * DOC FILE //* FILE 183 FROM GILBERT SAINT-FLOUR OF CONVTEK NEAR SAN * DOC FILE //* FRANCISCO IS A NICE COLLECTION OF QUITE ORIGINAL TOOLS. * DOC FILE //* SEE ESPECIALLY THE SHOWMVS TSO/ISPF COMMAND WHICH WILL * DOC FILE //* SHOW YOU A LOT OF THINGS ABOUT YOUR SYSTEM AND YOUR * DOC FILE //* SESSION. SHOWMVS WILL KNOCK SOCKS OFF. * DOC FILE //* * DOC FILE //* FILE 270 FROM KERMIT KISER OF THE STATE OF WASHINGTON IN * DOC FILE //* OLYMPIA. THIS IS A GREAT COLLECTION OF MANY UTILITIES, * DOC FILE //* INCLUDING SOME WHICH GIVE DEEP INSIGHT INTO ISPF. A * DOC FILE //* "MUST LOOK" FILE. * DOC FILE //* * DOC FILE //* FILE 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 //* * DOC FILE //* IF YOUR SHOP DOESN'T HAVE A JES2 "SPOOL BROWSER" TO LOOK * DOC FILE //* AT JOBS OR PRINTOUT, CONSIDER INSTALLING A VERSION OF * DOC FILE //* "QUEUE" (WHICHEVER IS APPROPRIATE FOR YOUR LEVEL OF * DOC FILE //* JES2) THAT CAN BE FOUND ON FILES 391 TO 398. FOR A * DOC FILE //* HIGH-QUALITY JES3 SPOOL BROWSER I HAVE TO POINT YOU * DOC FILE //* TO THE JES3 SHARE TAPE REFERRED TO BELOW. THERE IS A * DOC FILE //* JES2 SHARE TAPE THAT MAY HAVE SOME OTHER VERSIONS OF * DOC FILE //* QUEUE (SEE ALSO BELOW). FILE 392 NOW HAS LEONARD * DOC FILE //* WOREN'S VERSION OF QUEUE, WHICH HAS CONDITIONAL ASSEMBLY * DOC FILE //* OPTIONS TO WORK ON MANY VERSIONS OF JES2, INCLUDING * DOC FILE //* MVS/ESA JES2 VERSION 4.2. FILE 391 HAS A "STANDARD" * DOC FILE //* QUEUE FOR JES2 VERSION 4.2. THIS VERSION OF QUEUE NOW * DOC FILE //* HAS UPDATES IN A MEMBER, SO THAT YOU CAN ASSEMBLE IT * DOC FILE //* ON JES2 VERSION 4.3. I HAVEN'T LOOKED AT THE FILE 392 * DOC FILE //* VERSION OF QUEUE TO SEE IF IT WORKS FOR 4.3 WHEN * DOC FILE //* ASSEMBLED AT THE 4.2 LEVEL AGAINST 4.3 MACROS. PLEASE * DOC FILE //* REPORT ANY RESULTS AND REPORT ANY PROBLEMS TO SAM GOLOB * DOC FILE //* OR JACK SCHUDEL. (BOTH OUR ADDRESSES ARE IN THIS * DOC FILE //* DOCUMENT, JUST BELOW.) * DOC FILE //* * DOC FILE //* CONSIDER A TSO "CONSOLE SIMULATOR" FROM FILE 025, IF THESE * DOC FILE //* VERSIONS WORK PROPERLY AT YOUR SHOP. THERE ARE A * DOC FILE //* NUMBER OF DIFFERENT "SPY" PROGRAMS OR "CONSOLE DISPLAY * DOC FILE //* FACILITIES" OR "DIDOCS" PROGRAMS FOR TSO THAT ARE FOUND * DOC FILE //* ON THIS TAPE. YOU WON'T HAVE TO GO TO A SYSTEM CONSOLE * DOC FILE //* MOST OF THE TIME. SOME ARE MORE CONVENIENT THAN SDSF * DOC FILE //* IN THEIR CONSOLE FUNCTIONS. (SDSF IS A GREAT SPOOL * DOC FILE //* BROWSER--I'M NOT KNOCKING IT FOR THAT.) ALSO, WE'RE * DOC FILE //* TALKING "FREE" HERE. EVEN WITHOUT MVS/ESA V4, YOU CAN * DOC FILE //* HAVE YOUR OWN TSO CONSOLE WITH THESE PROGRAMS. * DOC FILE //* * DOC FILE //* GUY ALBERTELLI'S "LOOK" PROGRAM ON FILE 264 LETS YOU PEEK * DOC FILE //* AROUND STORAGE, FOLLOWING CONTROL BLOCKS BETTER THAN * DOC FILE //* YOU IMAGINED. CONTROL BLOCK MAPPINGS MAY BE EASILY * DOC FILE //* ADDED TO ENHANCE THE POWER OF "LOOK", AND MANY OF THESE * DOC FILE //* MAPPINGS HAVE ALREADY BEEN SUPPLIED. VARIOUS KINDS OF * DOC FILE //* INDIRECT ADDRESSING ARE SUPPORTED. A LOAD MODULE FOR * DOC FILE //* "LOOK" IS NOW ON FILE 035. (INSTANT INSTALL.) * DOC FILE //* * DOC FILE //* GUY'S UPDATE OF THE CMD1 MONITOR AND UTILITY SUBSYSTEM * DOC FILE //* (FILE 261) PROVIDES MANY SERVICES FREE, THAT MIGHT * DOC FILE //* OTHERWISE BE EXPENSIVELY PURCHASED IN A SYSTEM PROGRAMMER * DOC FILE //* "MAGIC BOX" TYPE TOOL. CMD1 HAS A FEW BUGS IN A FEW * DOC FILE //* FUNCTIONS (NONE SERIOUS TO MY KNOWLEDGE), BUT WHAT WORKS * DOC FILE //* --AND A LOT WORKS--IS WORTH ITS WEIGHT IN GOLD. * DOC FILE //* CMD1 HAS NOW BEEN UPDATED TO WORK ON MVS/ESA V4.2. * DOC FILE //* * DOC FILE //* THE VERSION OF TSSO (VERSION 4.3) ON FILE 404 MAKES POSSIBLE * DOC FILE //* GREAT STRIDES IN AUTOMATED OPERATIONS FOR NO COST AT * DOC FILE //* ALL. TSSO DOES SEVERAL THINGS. IT HAS A TSO "LINE MODE" * DOC FILE //* ENVIRONMENT FROM THE OPERATOR'S CONSOLE. TSSO ALSO DOES * DOC FILE //* AUTOMATIC MESSAGE HANDLING, OPERATOR REPLIES, AND IT * DOC FILE //* TRIGGERS MANY POSSIBLE KINDS OF ACTIONS AS THE RESULT * DOC FILE //* OF CONSOLE MESSAGES. TSSO ALLOWS EXECUTION OF TSO COM- * DOC FILE //* MANDS FROM A CONSOLE. SINCE ITS ENVIRONMENT IS TSO-LIKE, * DOC FILE //* ITS AUTOMATION ACTIONS CAN BE DONE UNDER CLIST CONTROL. * DOC FILE //* IF YOU ARE RUNNING TSSO UNDER JES, YOU CAN SUBMIT JOBS * DOC FILE //* FROM THE OPERATOR CONSOLE (WITH THE TSO SUBMIT COMMAND), * DOC FILE //* ETC. ETC. (THIS IS LIMITED ONLY BY YOUR IMAGINATION.) * DOC FILE //* * DOC FILE //* TSSO HAS THE ENORMOUS ADVANTAGE OF BEING A SUBSYSTEM. * DOC FILE //* TSSO V-4.3 ALSO CAN RUN "SUB=MSTR" WITHOUT JES. THAT * DOC FILE //* QUALITY MAKES IT A POWERFUL RECOVERY TOOL, ESPECIALLY IF * DOC FILE //* YOU RUN THE PDS 8.5 PRODUCT UNDER TSSO. PDS 8.5 "COPY" * DOC FILE //* FUNCTION (TO INVOKE IEBCOPY) SHOULD WORK W/O JES. PDS 8.5 * DOC FILE //* "FIXPDS EXPANDDIR" TO EXPAND A PDS DIRECTORY ON THE FLY, * DOC FILE //* SHOULD ALSO WORK. PDS 8.5 "FIND" AND "REPLACE" STRINGS * DOC FILE //* IN PLACE, DEFINITELY WORKS (FOR LOAD MODULES AS WELL AS * DOC FILE //* FOR SOURCE-TYPE DATA). THESE THINGS CAN SAVE YOUR * DOC FILE //* TAILS, FOLKS. TSSO VERSION 4.3 IS A GREAT RECOVERY * DOC FILE //* TOOL. WE RAN IT AT XA 2.2.3. PROBABLY GOOD THRU ESA. * DOC FILE //* (SEE FILE 403 WHICH HAS GUY ALBERTELLI'S AND DAVE * DOC FILE //* CARTWRIGHT'S MODIFICATIONS UPGRADED FOR MVS/ESA 4.2.2.) * DOC FILE //* (FILE 404 IS UPDATED FOR OS/390 VERSION 2.) * DOC FILE //* * DOC FILE //* SEE FILE 071 FOR THE CONTENTS OF OTHER PUBLIC DOMAIN TAPES. * DOC FILE //* MAYBE WHAT YOU NEED IS NOT ON THIS TAPE. THIS WILL TELL * DOC FILE //* YOU WHICH OTHER TAPE YOU MIGHT LIKE TO ORDER. * DOC FILE //* * DOC FILE //* I TAKE ALL THE BLAME (OR PRAISE) FOR THIS SECTION. PLEASE * DOC FILE //* CALL OR WRITE ME FOR IMPROVEMENTS (SAM GOLOB). THANKS * DOC FILE //* (OR ABUSE) ARE ALSO WELCOME. TRY TO MAKE THE ABUSE * DOC FILE //* POLITE IF THAT IS POSSIBLE. ANYWAY, GOOD STUFF ALWAYS * DOC FILE //* COMES OUT OF THIS KIND OF FEEDBACK. THANKS. * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* THE TAPEMAP PROGRAM IN FILE 299 HAS BEEN FIXED SO THAT IT * DOC FILE //* NO LONGER LOOPS ON CERTAIN VARIABLE BLOCKED FILES. PLEASE * DOC FILE //* TAKE A BIT OF TIME TO REASSEMBLE AND LINK TAPEMAP FROM THE * DOC FILE //* NEWEST VERSION. (SEE ALSO THE DETAILED DESCRIPTION OF * DOC FILE //* THE TAPEMAP PROGRAM UNDER "FILE 299" LISTED BELOW.) * DOC FILE //* ALSO, THERE IS A LOAD MODULE FOR TAPEMAP ON FILE 035. * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //******************************************************************* DOC FILE //* * 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 //* 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 //* SHOWMVS etc (SHOWMVS is now on File 492) * DOC FILE //* (#3) File # 182 PDS Command Package - Version 8.5 * 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 800 FILES. * DOC FILE //* * DOC FILE //* THE FIRST THREE FILES ON THIS TAPE ARE SEQUENTIAL FILES, * DOC FILE //* RECFM=FB,LRECL=80,BLKSIZE=32720. * DOC FILE //* * DOC FILE //* FILE 001 CONTAINS THIS INFORMATION (YOU ARE READING IT). * DOC FILE //* IT IS A CATALOG OF WHAT'S ON THIS TAPE, AND IT HAS 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 5 SEPARATE JOBS. * DOC FILE //* * DOC FILE //* MY OWN PRACTICE IS TO CREATE A PDS THAT CONTAINS THE CONTENTS * DOC FILE //* OF FILES 001 AND 003. THEN I WORK FROM THAT PDS TO CUSTOMIZE * DOC FILE //* THE JCL ON FILE 003. SOME PEOPLE LOAD MATERIALS FROM THIS * DOC FILE //* TAPE INTO AN INFO/MVS DATABASE. SEE FILES 042 AND 043 FOR * DOC FILE //* THAT. THERE ARE ALL KINDS OF VARIATIONS AMONG PEOPLE ON HOW * DOC FILE //* THEY HANDLE A CBT TAPE. * DOC FILE //* * DOC FILE //* 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, pkunzip 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 //* * 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 * 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 //* ALL DISCLAIMERS IN THIS FILE NOW APPLY TO ALL PERSONS, * DOC FILE //* INSTALLATIONS, CORPORATIONS, INSTITUTIONS, ENTITIES, OR * DOC FILE //* ORGANIZAIONS EDITING, DUPLICATING, OR OTHERWISE HANDLING * DOC FILE //* THIS TAPE. * DOC FILE //* * DOC FILE //* NO RESPONSIBILITIES ARE ASSUMED BY ANY OF THESE PERSONS, * DOC FILE //* INSTALLATIONS, CORPORATIONS, INSTITUTIONS, ENTITIES, OR * DOC FILE //* ORGANIZATIONS. * DOC FILE //* * DOC FILE //* COPIES OF THIS TAPE MAY BE ORDERED FROM THE DISTRIBUTION * DOC FILE //* SOURCES LISTED BELOW. IN ADDITION, THIS TAPE MAY BE FREELY * DOC FILE //* COPIED BY ANYONE. IN FACT, USER GROUPS ARE TO BE ENCOURAGED * DOC FILE //* TO MAKE COPIES OF THIS TAPE FOR THE USE OF THEIR MEMBERS AND * DOC FILE //* OTHERS. THIS PRACTICE WILL HELP PEOPLE TO OBTAIN THE LATEST * DOC FILE //* VERSION OF THE CBT TAPE FOR THEMSELVES AND THEIR * DOC FILE //* INSTALLATIONS MORE EASILY. IT WILL ALSO BE AN INCENTIVE FOR * DOC FILE //* PEOPLE TO ATTEND THE USER GROUP MEEETINGS. SEE THE "TAPE * DOC FILE //* DUPLICATION SECTION" AT THE BEGINNING OF THIS FILE, FOR * DOC FILE //* FURTHER COMMENTS ABOUT COPYING THIS TAPE. CONTRIBUTORS OF * DOC FILE //* UPDATES TO THIS TAPE, PLEASE SEE THE SPECIAL COMMENTS IN THE * DOC FILE //* "TAPE ORDER SECTION" BELOW. * DOC FILE //* * DOC FILE //* The documentation in this file has been written by both * DOC FILE //* Arnie Casinghino and Sam Golob, the tape's current editor. * DOC FILE //* Sometimes the contributors are helpful, and compose their * DOC FILE //* own documentation for their own stuff. The editor usually * DOC FILE //* makes every effort to include this documentation in the * DOC FILE //* "Documentation Section" below, as detailed description of * DOC FILE //* the contents of the particular file. * DOC FILE //* * DOC FILE //* ANY QUESTIONS CONCERNING DOCUMENTATION SHOULD BE DIRECTED * DOC FILE //* TO THE CURRENT EDITOR. * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //***TAPE ORDER SECTION (WHO YOU GONNA CALL .... ) * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* T A P E O R D E R S E C T I O N * DOC FILE //* * DOC FILE //* (WITH CONTRIBUTOR INFORMATION) * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* 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 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * 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 //* To get tapes or cd-roms containing the CBT Tape materials, * DOC FILE //* there are several ways, but probably the best is to write * DOC FILE //* to Sam Knutson at: * DOC FILE //* * DOC FILE //* sam@knutson.org * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* ORDER INFORMATION FOR THE CBT TAPE IS CURRENT AS OF THE * DOC FILE //* DATE OF ISSUE OF THIS TAPE. THIS TAPE'S DATE OF ISSUE IS * DOC FILE //* DISPLAYED AT THE HEAD OF THIS FILE. (FOR YOUR INFORMATION, * DOC FILE //* IF A CBT TAPE IS MAPPED BY THE LATEST VERSION OF THE TAPEMAP * DOC FILE //* PROGRAM ON FILE 299, THE DATE OF ISSUE OF THAT TAPE WILL BE * DOC FILE //* DISPLAYED IN REPORT #1 OF TAPEMAP.) COPIES OF THE CBT TAPE * DOC FILE //* MAY BE ORDERED FROM THE SOURCES LISTED BELOW. * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* CONTRIBUTOR INFORMATION * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* CONTRIBUTIONS SHOULD BE SENT TO THE EDITOR, AND PERSONAL * DOC FILE //* CONTACT SHOULD BE MADE WITH HIM, EITHER BY 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@attglobal.net * DOC FILE //* and/or sbgolob@cbttape.org . * DOC FILE //* * DOC FILE //* If the file is large, you can pkzip it on the pc, before * DOC FILE //* attaching it to the email to me. That's all there is to * DOC FILE //* it. (NOV 99) * DOC FILE //* * DOC FILE //* IF YOU HAVE SOMETHING TO CONTRIBUTE AND YOU JUST SEND IT * DOC FILE //* IN, THAT WILL BE OK, BUT I'LL TRY AND CONTACT YOU BEFORE * DOC FILE //* INCLUDING IT IN THE TAPE. * DOC FILE //* * DOC FILE //* I am producing the current tapes from wherever I can, but I * DOC FILE //* have recently used Gilbert Saint-flour's site. * DOC FILE //* * DOC FILE //* Gilbert's email address is gsf@pobox.com. * 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 //* ------------------------------------------------------------- * DOC FILE //* * DOC FILE //* PLEASE -***-DOCUMENT-***- YOUR CONTRIBUTIONS ..... * DOC FILE //* * DOC FILE //* THE IDEA IS, THAT SOMEONE WHO DOESN'T KNOW YOUR STUFF, * DOC FILE //* SHOULD BE ABLE TO READ AN EXPLANATION, AND INSTALL IT * DOC FILE //* FROM YOUR EXPLANATION ALONE. YOU SHOULD INCLUDE YOUR * DOC FILE //* ADDRESS AND PHONE NUMBER IF THAT IS POSSIBLE. FOR THOSE * DOC FILE //* PEOPLE WHO CAN'T INCLUDE THEIR CONTACT INFORMATION, WE HAVE * DOC FILE //* MADE SOME SPECIAL ARRANGEMENTS IN THE PAST, AND WE HOPE TO * DOC FILE //* ACCOMMODATE EVERYONE. THE IDEA IS TO HELP THE MAXIMUM * DOC FILE //* NUMBER OF PEOPLE--BOTH CONTRIBUTORS AND USERS--NOT TO PUT * DOC FILE //* STUMBLING BLOCKS IN PEOPLE'S WAY. THANKS IN ADVANCE, FROM * DOC FILE //* ALL THE USERS OF THIS TAPE. * DOC FILE //* * DOC FILE //* ------------------------------------------------------------- * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* ORDER INFORMATION - ORDER INFORMATION - ORDER INFORMATION * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* YOU DO NOT HAVE TO BE AT A SHARE OR GUIDE * DOC FILE //* INSTALLATION TO OBTAIN A COPY OF THIS TAPE. * DOC FILE //* * DOC FILE //* You can order a tape from * DOC FILE //* * DOC FILE //* NASPA * DOC FILE //* NATIONAL SYSTEMS PROGRAMMERS ASSOCIATION * DOC FILE //* 7040 S. 13TH STREET * DOC FILE //* OAK CREEK, WISCONSIN 53154 * DOC FILE //* (414) 768-8000 * DOC FILE //* (THEIR HANDLING FEE APPLIES.) * DOC FILE //* * DOC FILE //* or you can email: (a much better idea) * DOC FILE //* * DOC FILE //* Sam Knutson at sknutson@cbttape.org * DOC FILE //* * DOC FILE //* Sam K usually has later versions of the tape than NaSPA * DOC FILE //* does. * DOC FILE //* * DOC FILE //* Both Sam Knutson and NaSPA produce cd-roms containing * DOC FILE //* the materials from (some version of) this tape. * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //******************************************************************* DOC FILE //***SECTION INFORMATION SECTION * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* I N F O R M A T I O N S E C T I O N * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* Editor's * DOC FILE //* -- email: sbgolob@attglobal.net OR -- * DOC FILE //* -- sbgolob@cbttape.org -- * DOC FILE //* -- -- * DOC FILE //* EDITOR'S CONTACT INFORMATION: * DOC FILE //* * DOC FILE //* ADDRESS: (USE THE FOLLOWING ADDRESS) * DOC FILE //* * DOC FILE //* Sam Golob * DOC FILE //* P.O. Box 906 * DOC FILE //* Tallman, NY 10982 * DOC FILE //* * DOC FILE //* -- EMAIL: sbgolob@attglobal.net or -- * DOC FILE //* -- sbgolob@cbttape.org -- * DOC FILE //* -- -- * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* Arnold Casinghino's phone number: (860) 823-2739 * DOC FILE //* Arnold Casinghino's email address: acasingh@cscmail.csc.com * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* Arnold Casinghino's contact information: (Arnie is not * DOC FILE //* currently editing this tape, but is a "Consulting Partner".) * DOC FILE //* * DOC FILE //* Arnold Casinghino * DOC FILE //* Computer Sciences Corporation * DOC FILE //* Technology Management Division * DOC FILE //* 100 Winnenten Road * DOC FILE //* Norwich, CT 06360 * DOC FILE //* * DOC FILE //* DIRECT LINE 1-860-823-2739 ( MON - FRI ) * DOC FILE //* email acasingh@cscmail.csc.com * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* THE CBT MVS TAPE WILL BE SHIPPED ONLY * DOC FILE //* * DOC FILE //* ON 3480 IDRC TAPE CARTRIDGE * DOC FILE //* and the materials are sometimes available on cd-rom. * DOC FILE //* * DOC FILE //* For special requirements, please contact Sam Knutson * DOC FILE //* at: * DOC FILE //* sknutson@cbttape.org * DOC FILE //* * DOC FILE //* You can now use the COPYNLNL program from Files 229 * DOC FILE //* or 316, to copy some NL tape files to a first tape, * DOC FILE //* and the rest of them to a second tape. This will * DOC FILE //* allow the CBT Tape to be split into 2 tapes that * DOC FILE //* will fit onto 3480 uncompressed cartridges, or 2400 * DOC FILE //* foot reels. * 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, they are * DOC FILE //* in pkzip'ed TSO XMIT format, so you unzip them, upload them * DOC FILE //* to the mainframe (binary - no translation), and do a TSO * DOC FILE //* RECEIVE INDATASET( ) on them, to re-constitute how they * DOC FILE //* originally were. * DOC FILE //* * DOC FILE //*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+* DOC FILE //* * DOC FILE //* If you obtain CBT Tape files from a tape, then the tape files * DOC FILE //* (most of them--at least the FB-80 ones) have been compressed * DOC FILE //* using the CBT973 compression program. The non-FB-80 files * DOC FILE //* are almost always in IEBCOPY format, and are unloaded pds'es. * DOC FILE //* * DOC FILE //* ALL COMPRESSED FILES HAVE * DOC FILE //* THE FOLLOWING DCB ATTRIBUTES: * DOC FILE //* RECFM=VB,LRECL=94,BLKSIZE=32716 * DOC FILE //* * DOC FILE //* ALL 80 BYTE RECORD FILES WILL BE COMPRESSED EXCEPT * DOC FILE //* FOR THE FOLLOWING * DOC FILE //* * DOC FILE //* FILE 001 THIS FILE * DOC FILE //* FILE 002 COMPRESSION/DECOMPRESSION PROGRAM * DOC FILE //* WHICH IS CALLED "CBT973" * DOC FILE //* FILE 003 JCL TO DROP THE WHOLE TAPE DOWN * DOC FILE //* FILE 004 The source for the CBTUPD assembler * DOC FILE //* program, which breaks this file * DOC FILE //* into "bite-size pieces" that can * DOC FILE //* be loaded into a pds as members. * DOC FILE //* FILE 005 FOR VM SYSTEMS: A REXX EXEC TO MOVE * DOC FILE //* THE CONTENTS OF THIS TAPE TO A * DOC FILE //* VM SYSTEM. * DOC FILE //* * DOC FILE //* THESE 5 FILES HAVE DCB: RECFM=FB,LRECL=80,BLKSIZE=32720 * DOC FILE //* * DOC FILE //* * DOC FILE //*$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()# * ==DOC FILE //*$%^ *()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^& ()# * ==DOC FILE //*$%^ ()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^ ()# * ==DOC FILE //*$%^ )#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$% ()# * ==DOC FILE //*$%^ #$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$ ()# * ==DOC FILE //*$%^ $%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()# ()# * ==DOC FILE //*$%^ %^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*() ()# * ==DOC FILE //*$%^ ^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&* ()# * ==DOC FILE //*$%^ &*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^& ()# * ==DOC FILE //*$%^ *()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^ ()# * ==DOC FILE //*$%^ ()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$% ()# * ==DOC FILE //*$%^ )#$%^&*()#$%^&*()#$%^&*()#$%^&*()# ()# * ==DOC FILE //*$%^ #$%^&*()#$%^&*()#$%^&*()#$%^&*() ()# * ==DOC FILE //*$%^ $%^&*()#$%^&*()#$%^&*()#$%^&*( ()# * ==DOC FILE //*$%^ %^&*()#$%^&*()#$%^&*()#$%^& ()# * ==DOC FILE //*$%^ ^&*()#$%^&*()#$%^&*()#$%^ ()# * ==DOC FILE //*$%^ *()#$%^&*()#$%^&*()#$% ()# * ==DOC FILE //*$%^ ()#$%^&*()#$%^&*()#$ ()# * ==DOC FILE //*$%^ )#$%^&*()#$%^&*()# ()# * ==DOC FILE //*$%^ #$%^&*()#$%^&*() ()# * ==DOC FILE //*$%^ $%^&*()#$%^&*( ()# * ==DOC FILE //*$%^ %^&*()#$%^&* ()# * ==DOC FILE //*$%^ ^&*()#$%^& ()# * ==DOC FILE //*$%^ &*()#$%^ ()# * ==DOC FILE //*$%^ *()#$% ()# * ==DOC FILE //*$%^ ()#$ ()# * ==DOC FILE //*$%^ )# ()# * ==DOC FILE //*$%^ ()# * ==DOC FILE //*$%^ The TAPEMAP program in File 299 of this tape has been ()# * DOC FILE //*$%^ updated to look for a tape in the CBT MVS Utilities ()# * DOC FILE //*$%^ tape format and produce an abundance of additional ()# * DOC FILE //*$%^ information to allow the user to find his way through ()# * DOC FILE //*$%^ this tape. A compiled version of that code is also in ()# * DOC FILE //*$%^ File 035. You can get directly to File 035 by specify- ()# * DOC FILE //*$%^ ing LABEL=(35,NL) on your IEBCOPY unload JCL for this ()# * DOC FILE //*$%^ tape. All member names of most files will be displayed ()# * DOC FILE //*$%^ by the Report #2 of the TAPEMAP program, which is ()# * DOC FILE //*$%^ ddname SYSPRNT2. ()# * DOC FILE //*$%^ ()# * ==DOC FILE //*$%^ )# ()# * ==DOC FILE //*$%^ *()#$% ()# * ==DOC FILE //*$%^ &*()#$%^ ()# * ==DOC FILE //*$%^ ^&*()#$%^& ()# * ==DOC FILE //*$%^ %^&*()#$%^&* ()# * ==DOC FILE //*$%^ $%^&*()#$%^&*( ()# * ==DOC FILE //*$%^ #$%^&*()#$%^&*() ()# * ==DOC FILE //*$%^ )#$%^&*()#$%^&*()# ()# * ==DOC FILE //*$%^ ()#$%^&*()#$%^&*()#$ ()# * ==DOC FILE //*$%^ ()#$%^&*()#$%^&*()#$ ()# * ==DOC FILE //*$%^ *()#$%^&*()#$%^&*()#$% ()# * ==DOC FILE //*$%^ ^&*()#$%^&*()#$%^&*()#$%^ ()# * ==DOC FILE //*$%^ %^&*()#$%^&*()#$%^&*()#$%^& ()# * ==DOC FILE //*$%^ %^&*()#$%^&*()#$%^&*()#$%^&* ()# * ==DOC FILE //*$%^ $%^&*()#$%^&*()#$%^&*()#$%^&*( ()# * ==DOC FILE //*$%^ #$%^&*()#$%^&*()#$%^&*()#$%^&*() ()# * ==DOC FILE //*$%^ )#$%^&*()#$%^&*()#$%^&*()#$%^&*()# ()# * ==DOC FILE //*$%^ ()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$% ()# * ==DOC FILE //*$%^ *()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^ ()# * ==DOC FILE //*$%^ &*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^& ()# * ==DOC FILE //*$%^ ^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&* ()# * ==DOC FILE //*$%^ %^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*() ()# * ==DOC FILE //*$%^ $%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()# ()# * ==DOC FILE //*$%^ #$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$ ()# * ==DOC FILE //*$%^ )#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$% ()# * ==DOC FILE //*$%^ ()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^ ()# * ==DOC FILE //*$%^ *()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^& ()# * ==DOC FILE //*$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()#$%^&*()# * ==DOC FILE //* * DOC FILE //* Look in this file at the section entitled "FILE STATUS * DOC FILE //* SECTION" to see exactly what files are in compressed * DOC FILE //* format and which are not in compressed format. The same * DOC FILE //* information should be reflected in the JCL from File 003. * DOC FILE //* * DOC FILE //* When additions are added to the tape, rather then putting * DOC FILE //* them at the end of the tape, we will place them in * DOC FILE //* files that were previously deleted and are now empty, * DOC FILE //* assuming that there are any. (There are still 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). * DOC FILE //* * DOC FILE //*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+*+* DOC FILE //* * DOC FILE //* THIS TAPE IS CUMULATIVE. EACH FILE ON THE TAPE IS THE * DOC FILE //* LATEST VERSION OF THAT FILE WITH ANY AND ALL MAINTENANCE * DOC FILE //* APPLIED TO IT, EXCEPT WHERE SPECIFICALLY NOTED. * DOC FILE //* * DOC FILE //* If you have any problems processing the data on the tape * DOC FILE //* or find any errors please let me know and I will attempt * DOC FILE //* to correct them. ( Sam Golob - sbgolob@attglobal.net ) * DOC FILE //* * DOC FILE //* A. IF THIS IS THE FIRST TIME YOU HAVE RECEIVED THIS UTIL- * DOC FILE //* ITIES TAPE, WE SUGGEST THAT YOU SKIP ALL THE INFORMA- * DOC FILE //* TION IN THE 'CHANGE SECTION' BELOW, THAT IS ENTITLED: * DOC FILE //* 'CHANGES FOR VERSION XXX, MONTH DAY YEAR'. GO TO THE * DOC FILE //* 'FILE STATUS SECTION' AND THE SECTION ENTITLED * DOC FILE //* 'D O C U M E N T A T I O N'. READ WHAT EACH FILE IS, * DOC FILE //* AND DECIDE WHAT YOU WANT. * DOC FILE //* * DOC FILE //* B. If you have received a previous version of this tape * DOC FILE //* you may wish to check all the changes made since that * DOC FILE //* version and decide what is applicable. Use the * DOC FILE //* CHANGE SECTION below, and the DATES in the FILE * DOC FILE //* STATUS SECTION to figure out which files have changed * DOC FILE //* since your last tape. See the FILE UPDATE section * DOC FILE //* (just above the CHANGE SECTION) for hints also. * DOC FILE //* * DOC FILE //* C. 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@attglobal.net or 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 //******************************************************************* DOC FILE //***SECTION PURGE AND REMOVAL SECTION * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* P U R G E S E C T I O N * DOC FILE //* * DOC FILE //* R E M O V A L S E C T I O N * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* I am trying to bring you as much material as possible. * DOC FILE //* I don't like to delete stuff; someone may need it badly. * DOC FILE //* Therefore, since both the CBT MVS Tape, and the CBT * DOC FILE //* Overflow Tape are now almost full, I was thinking of * DOC FILE //* making a third tape, but I decided to go to 3480 IDRC * DOC FILE //* for tape distribution, instead. * DOC FILE //* * DOC FILE //* If you only have 3480 uncompressed, you can have someone * DOC FILE //* at another site use the COPYNLNL program from File 229 * DOC FILE //* or File 316, to split an NL CBT Tape into 2 tapes, with * DOC FILE //* say, the first 300 files on one tape, and the rest of * DOC FILE //* the files on a second tape. The COPYMODS program can * DOC FILE //* convert these tapes to 3480 uncompressed, or else COPYNLNL * DOC FILE //* outputs can be made directly to 3480 drives. * DOC FILE //* * DOC FILE //* This tape currently overflows a 3600 foot reel, and also * DOC FILE //* overflows a 3480 uncompressed cartridge. Since many people * DOC FILE //* go to the CBT web site nowadays, and don't get these * DOC FILE //* materials from physical tapes anymore, I'm going to 3480 * DOC FILE //* IDRC tapes, and if someone can't use those, they should * DOC FILE //* email Sam Knutson at sknutson@cbttape.org , * DOC FILE //* to get the materials on a suitable medium, possibly on * DOC FILE //* a cd-rom. * DOC FILE //* * DOC FILE //* The COPYNLNL program from Files 229 or 316, can be used to * DOC FILE //* copy some files, say the first 300, to one tape, and the * DOC FILE //* rest of the files, to another. * 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 OS/390 information on the Internet. I cannot * DOC FILE //* guarantee completeness here, because this section is new, * DOC FILE //* and I myself don't have so much surfing experience. I will * DOC FILE //* try, in this section, to supply some places on the Internet * DOC FILE //* where you can start looking for the solution to a problem. * DOC FILE //* * DOC FILE //* I do think that if you start from the LINKS button at * DOC FILE //* www.cbttape.org , or from Eric Loriaux' site, you probably * DOC FILE //* can eventually get to almost anywhere (unless it's really * DOC FILE //* really isolated). * DOC FILE //* * DOC FILE //* I am assuming that the readership of this file may be more * DOC FILE //* experienced than I am. Therefore, if you know of any place * DOC FILE //* on the Internet where you can find MVS or OS/390 or z/OS * DOC FILE //* information, please email me at: * DOC FILE //* * DOC FILE //* sbgolob@attglobal.net OR 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 //* * DOC FILE //* 001 - WWW.XEPHON.COM - HAS FREE DOWNLOADS OF ARTICLES AND * DOC FILE //* CODE FROM ALL THE XEPHON JOURNALS * DOC FILE //* THAT ARE MORE THAN 2 YEARS OLD. * DOC FILE //* MORE RECENTLY PUBLISHED ARTICLES * DOC FILE //* AND CODE ARE AVAILABLE TO XEPHON * DOC FILE //* SUBSCRIBERS. FILE 071 HAS A LIST * DOC FILE //* OF DOWNLOADABLE ARTICLES FROM * DOC FILE //* THIS SITE. * DOC FILE //* * DOC FILE //* 002 - IBM-MAIN@BAMA.UA.EDU - IBM MAIN IS A SUBSCRIBER * DOC FILE //* LIST THAT POSTS MVS INFORMATION, * DOC FILE //* (IBM-MAIN) QUESTIONS, AND ANSWERS. YOU HAVE * DOC FILE //* TO SUBSCRIBE, BY SENDING AN EMAIL * DOC FILE //* CONTAINING THE FOLLOWING TEXT: * DOC FILE //* * DOC FILE //* SUBSCRIBE IBM-MAIN 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 - ERIC LORIAUX'S HOME PAGE - Eric Loriaux is a * DOC FILE //* Systems Programmer in Belgium who has tried * DOC FILE //* to create a place to point to all kinds of OS/390 * DOC FILE //* and S/390 information. He has a site in Belgium * DOC FILE //* and a mirror site in the U.S. They are: * DOC FILE //* * DOC FILE //* Belgium: http://www.ping.be/~ping1475 * DOC FILE //* * DOC FILE //* U.S. : http://www.loriaux.com/s390 * DOC FILE //* * DOC FILE //* This site is very (I mean VERY) helpful. * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //***SECTION MODIFICATION TAPE SECTION * DOC FILE //******************************************************************* DOC FILE //* M O D I F I C A T I O N T A P E S S E C T I O N * DOC FILE //******************************************************************* DOC FILE //* ------------------------------------------------------------- * DOC FILE //* - ========================================================= - * DOC FILE //* - == == - * DOC FILE //* - == THERE ARE A QUITE A FEW UTILITY AND MODS TAPES == - * DOC FILE //* - == AROUND. == - * DOC FILE //* - == == - * DOC FILE //* - == ABSTRACTS OF THE CONTENTS OF MANY OF THESE TAPES == - * DOC FILE //* - == CAN NOW BE FOUND ON FILE 071 OF THIS TAPE. == - * DOC FILE //* - == == - * DOC FILE //* - == See Files 050 and 051 for URLs that you can == - * DOC FILE //* - == download software from. == - * DOC FILE //* - == == - * DOC FILE //* - == File 050 lists locations which have free == - * DOC FILE //* - == downloads. == - * DOC FILE //* - == == - * DOC FILE //* - == File 051 lists vendor locations which might be == - * DOC FILE //* - == useful for sysprogs to know about. == - * DOC FILE //* - == == - * DOC FILE //* - == The tapes and software sources I know about are: == - * DOC FILE //* - == == - * DOC FILE //* - == 0 THE "CBT OVERFLOW TAPE" WHICH CONTAINS == - * DOC FILE //* - == MATERIALS DELETED FROM THIS TAPE AFTER == - * DOC FILE //* - == VERSION 404, AND MUCH MORE MATERIAL. == - * DOC FILE //* - == EXAMPLES ARE THE UK, GERMAN, SWISS, AND == - * DOC FILE //* - == AUSTRALIAN "G.U.I.D.E." TAPES, AND THE == - * DOC FILE //* - == MATERIAL FROM THE SHARE ISPF "SMOKE AND == - * DOC FILE //* - == MIRRORS TAPE", WHICH NEVER GOT OFF THE == - * DOC FILE //* - == GROUND, BUT WHICH HAS SOME GOOD MATERIAL. == - * DOC FILE //* - == == - * DOC FILE //* - == THE CBT OVERFLOW TAPE NOW CONTAINS THE == - * DOC FILE //* - == ENTIRE CONTENTS OF THE SPLA MVS TAPE, == - * DOC FILE //* - == VERSION 46 (SHARE'S LAST VERSION). == - * DOC FILE //* - == == - * DOC FILE //* - == THE CBT OVERFLOW TAPE NOW CONTAINS THE == - * DOC FILE //* - == ENTIRE CONTENTS OF THE SHARE PL/1 TAPE. == - * DOC FILE //* - == == - * DOC FILE //* - == THE CBT OVERFLOW TAPE CAN BE OBTAINED == - * DOC FILE //* - == THE SAME SOURCES WHERE THE REGULAR CBT == - * DOC FILE //* - == TAPE IS AVAILABLE. == - * DOC FILE //* - == == - * DOC FILE //* - == SEE http://www.cbttape.org == - * DOC FILE //* - == == - * DOC FILE //* - == for file downloads from the CBT Overflow == - * DOC FILE //* - == Tape. == - * DOC FILE //* - == == - * DOC FILE //* - == 1 THE SHARE MVS MODS TAPE (Entire contents == - * DOC FILE //* - == now on Files 104-234 of CBT Overflow Tape) == - * DOC FILE //* - == == - * DOC FILE //* - == The CBT Overflow Tape now contains the == - * DOC FILE //* - == entire contents of the SPLA MVS Tape, == - * DOC FILE //* - == Version 46 (SHARE's last version), which == - * DOC FILE //* - == has been further updated by me (SG) as == - * DOC FILE //* - == I've deemed necessary. == - * DOC FILE //* - == == - * DOC FILE //* - == Updates to code on the SHARE MVS Tape, == - * DOC FILE //* - == (The SPLA Tape) should now be sent to me, == - * DOC FILE //* - == because I am now effectively maintaining == - * DOC FILE //* - == this code. (Sam Golob - see address below) == - * DOC FILE //* - == == - * DOC FILE //* - == 2 THE SHARE SOFTWARE DISKETTES. These have == - * DOC FILE //* - == become the SHARE cd-rom, but that cd-rom == - * DOC FILE //* - == has not been updated for several years. == - * DOC FILE //* - == I happen to have a copy of it, and if == - * DOC FILE //* - == anyone is interested, they should please == - * DOC FILE //* - == email me. == - * DOC FILE //* - == == - * DOC FILE //* - == sbgolob@attglobal.net == - * DOC FILE //* - == and/or 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 THE LATEST SET OF SHARE SOFTWARE ON * DOC FILE //* DISKETTES OR CD-ROM. THIS DEPENDS IF THEY HAVE IT * DOC FILE //* IN STOCK. YOU CAN CONTACT: * DOC FILE //* * DOC FILE //* PETE SIMON * DOC FILE //* SHARE INC. * DOC FILE //* 401 N. MICHIGAN AVE. - 24TH FLOOR * DOC FILE //* CHICAGO, IL 60611 * DOC FILE //* 888-574-2735 Toll Free * DOC FILE //* 312-321-5160 Phone (and International) * DOC FILE //* 312-822-0932 Fax * DOC FILE //* 312-644-6363 Fax * DOC FILE //* * DOC FILE //* As of this writing, Pete is also the webmaster at * DOC FILE //* the SHARE web site: * DOC FILE //* * DOC FILE //* www.share.org * DOC FILE //* - == == - * DOC FILE //* - == 3 THE JES2 MODIFICATION TAPE. THE SP-ONLY == - * DOC FILE //* - == VERSION IS PRODUCED BY JACK SCHUDEL OF THE == - * DOC FILE //* - == NORTH EAST REGIONAL DATA CENTER AT THE == - * DOC FILE //* - == UNIVERSITY OF FLORIDA IN GAINESVILLE, == - * DOC FILE //* - == FLORIDA. (SEE BELOW FOR THE DETAILS.) == - * DOC FILE //* - == FOR ABSTRACT SEE FILE 071. == - * DOC FILE //* - == == - * DOC FILE //* - == email: schudel@ufl.edu == - * DOC FILE //* - == == - * DOC FILE //* - == Contents are now on http://www.cbttape.org == - * DOC FILE //* - == == - * DOC FILE //* - == 4 THE JES3 MODIFICATION TAPE. See below for == - * DOC FILE //* - == the address. For abstract see File 071. == - * DOC FILE //* - == == - * DOC FILE //* - == email: alan.field@supervalu.com == - * DOC FILE //* - == == - * DOC FILE //* - == Contents are now on http://www.cbttape.org == - * DOC FILE //* - == == - * DOC FILE //* - == THE JES3 SHARE-GUIDE TAPE CONTAINS A == - * DOC FILE //* - == SPOOL BROWSER FOR JES3 CALLED SDF. THIS == - * DOC FILE //* - == TAPE ALSO HAS OTHER STUFF OF VALUE TO A == - * DOC FILE //* - == JES3 SHOP. ALAN FIELD, WHO MAINTAINS == - * DOC FILE //* - == THAT TAPE, TELLS ME THAT VERSIONS OF SDF == - * DOC FILE //* - == ARE AVAILABLE FOR JES3 VERSIONS 4.1, == - * DOC FILE //* - == 4.2, 5.1, AND 5.2. THIS PRODUCT ALLOWS == - * DOC FILE //* - == YOU TO DIRECTLY BROWSE SPOOL TO LOOK AT == - * DOC FILE //* - == JOBS, OUTPUT, ETC. OF COURSE, VERSIONS == - * DOC FILE //* - == OF SDF FOR OLDER LEVELS OF JES3 ARE ALSO == - * DOC FILE //* - == INCLUDED ON THE TAPE. == - * DOC FILE //* - == == - * DOC FILE //* - == SDF STANDS (I THINK) FOR "SPOOL DISPLAY == - * DOC FILE //* - == FACILITY". THE TAPE'S PROPRIETOR IS: == - * DOC FILE //* - == == - * DOC FILE //* - == MR ALAN C FIELD == - * DOC FILE //* - == SUPER VALU INC. == - * DOC FILE //* - == 11840 VALLEY VIEW ROAD == - * DOC FILE //* - == EDEN PRAIRIE, MINNESOTA 55344 == - * DOC FILE //* - == (952) 828-4979 == - * DOC FILE //* - == == - * DOC FILE //* - == 5 THE L.A. MVS USERS GROUP TAPE. THIS TAPE == - * DOC FILE //* - == IS MAINTAINED BY THE MVS USERS GROUP IN == - * DOC FILE //* - == LOS ANGELES, CALIFORNIA. == - * DOC FILE //* - == == - * DOC FILE //* - == >> MATERIALS FOR THE LAST VERSION I KNOW == - * DOC FILE //* - == >> ABOUT, VERSION 72, ARE INCLUDED ON THE == - * DOC FILE //* - == >> CBT OVERFLOW TAPE, VERSION 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 //* - == THE PROPRIETOR OF THIS TAPE HAS BEEN: == - * DOC FILE //* - == == - * DOC FILE //* - == TOM BEUTHIN == - * DOC FILE //* - == NCR CORP. == - * DOC FILE //* - == 100 N. SEPULVEDA BLVD == - * DOC FILE //* - == EL SEGUNDO, CA 90245 == - * DOC FILE //* - == (310) 524-5045 == - * DOC FILE //* - == == - * DOC FILE //* - == email: tom.beuthin@attglobal.net == - * DOC FILE //* - == == - * DOC FILE //* - == 6 The PL/1 Modification Tape from SHARE. == - * DOC FILE //* - == == - * DOC FILE //* - == All materials from this tape are now on == - * DOC FILE //* - == Files 260 thru 295 of the CBT Overflow == - * DOC FILE //* - == Tape. == - * DOC FILE //* - == == - * DOC FILE //* - == NOTE: "SHARE" HAS DISCONTINUED THE CONTRACT OF == - * DOC FILE //* - == S.P.L.A. WHICH IS THE SHARE PROGRAM == - * DOC FILE //* - == LIBRARY AGENCY. FOR NOW, IF YOU HAVE == - * DOC FILE //* - == ANY ORDER REQUESTS FROM S.P.L.A., PLEASE == - * DOC FILE //* - == CONTACT SAM GOLOB. == - * DOC FILE //* - == == - * DOC FILE //* - == 8 THE CBT MVS UTILITIES TAPE (THIS IS IT) == - * DOC FILE //* - == == - * DOC FILE //* - == Go to www.cbttape.org to download == - * DOC FILE //* - == files from the CBT Tape and the CBT == - * DOC FILE //* - == Overflow Tape. == - * DOC FILE //* - == == - * DOC FILE //* - == THIS TAPE IS NOT TO BE CONFUSED WITH THE == - * DOC FILE //* - == SHARE MVS TAPE. THIS TAPE IS NOT THE SHARE == - * DOC FILE //* - == MVS TAPE, AND IT HAS NOTHING TO DO WITH THE == - * DOC FILE //* - == "SHARE" ORGANIZATION. == - * DOC FILE //* - == == - * DOC FILE //* - == WHAT IS THE DIFFERENCE BETWEEN THE CBT TAPE == - * DOC FILE //* - == AND THE SPLA MVS MODIFICATION (SHARE) TAPE ? == - * DOC FILE //* - == == - * DOC FILE //* - == THE SPLA TAPE WAS THE OFFICIAL SHARE MVS MODI- == - * DOC FILE //* - == FICATION TAPE. THAT TAPE WAS SENT TO SPLA == - * DOC FILE //* - == FOR ITS OFFICIAL SHARE DISTRIBUTION. IT IS == - * DOC FILE //* - == NOW OFFICIALLY "FUNCTIONALLY STABILIZED" == - * DOC FILE //* - == (I.E. "DEAD"). THE MATERIALS FROM THE SHARE == - * DOC FILE //* - == MVS TAPE CAN NOW BE FOUND ON THE CBT OVERFLOW == - * DOC FILE //* - == TAPE, ON FILES 104 THRU 234, OR IN OTHER == - * DOC FILE //* - == RELEVANT PLACES THERE. FOR EXAMPLE, THE L.A. == - * DOC FILE //* - == MVS USERS GROUP TAPE MATERIALS WERE MOVED TO == - * DOC FILE //* - == FILES 060 THRU 070 OF THE CBT OVERFLOW TAPE, == - * DOC FILE //* - == AND WERE UPDATED TO THE LATEST VERSION I HAD. == - * DOC FILE //* - == == - * DOC FILE //* - == Since I now maintain the files from the SHARE == - * DOC FILE //* - == MVS Tape on the CBT Overflow Tape, anyone who == - * DOC FILE //* - == has modifications to the code, should contact == - * DOC FILE //* - == me, Sam Golob, at sbgolob@attglobal.net or == - * DOC FILE //* - == sbgolob@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@attglobal.net and/or == - * DOC FILE //* - == 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 OUTDSN( ) and == - * DOC FILE //* - == DSN( ) parameters of the XMIT command. == - * DOC FILE //* - == Download (in binary - no translation) the == - * DOC FILE //* - == sequential FB-80 XMIT-format file to a pc, == - * DOC FILE //* - == and attach that file to an email to me. == - * DOC FILE //* - == == - * DOC FILE //* - == That's all there is to it! == - * DOC FILE //* - == == - * DOC FILE //* - == 9 THE NASPA VIP TAPE IS A COLLECTION OF == - * DOC FILE //* - == PUBLIC DOMAIN SOFTWARE DONATED TO THE == - * DOC FILE //* - == NATIONAL SYSTEMS PROGRAMMERS == - * DOC FILE //* - == ASSOCIATION. TWO VIP PROGRAMS EXIST, == - * DOC FILE //* - == ONE ENCOMPASSES MVS--ANOTHER, VM/VSE. == - * DOC FILE //* - == == - * DOC FILE //* - == To my knowledge, the materials from these == - * DOC FILE //* - == tapes have not been updated for some time, == - * DOC FILE //* - == and you can obtain them from the NaSPA == - * DOC FILE //* - == cd-rom disk, whichever the latest version == - * DOC FILE //* - == is. == - * DOC FILE //* - == == - * DOC FILE //* - == For further information contact: == - * DOC FILE //* - == == - * DOC FILE //* - == http://www.naspa.com == - * DOC FILE //* - == == - * DOC FILE //* - == or NASPA == - * DOC FILE //* - == 7040 S. 13TH STREET == - * DOC FILE //* - == OAK CREEK, WISCONSIN 53154 == - * DOC FILE //* - == 1-414-768-8000 EXT 109 == - * DOC FILE //* * DOC FILE //* (NASPA HAS MOVED. PLEASE NOTE THE NEW ADDRESS.) * DOC FILE //* * DOC FILE //* - == NASPA ALSO HAS RIGHTS TO AN ELECTRONIC MAIL == - * DOC FILE //* - == PACKAGE CALLED "BEEM" THAT RUNS UNDER MVS. == - * DOC FILE //* - == "BEEM" COMES ON A SEPARATE TAPE, AVAILABLE == - * DOC FILE //* - == FROM NASPA. (SEE FILE 071 FOR SOME OF THE == - * DOC FILE //* - == DOCUMENTATION FROM THESE NASPA MVS TAPES, == - * DOC FILE //* - == AND ALSO FROM ITS VM/VSE VIP TAPE.) == - * DOC FILE //* - == == - * DOC FILE //* - == 10 THE CICS SHARE TAPE. This is maintained == - * DOC FILE //* - == by Barry Brooks of NERDC at the University == - * DOC FILE //* - == of Florida in Gainesville. This tape was == - * DOC FILE //* - == distributed by SPLA. I'd suggest calling == - * DOC FILE //* - == Barry Brooks to see if he can get you a == - * DOC FILE //* - == copy. == - * DOC FILE //* - == == - * DOC FILE //* - == THE CICS SHARE TAPE IS AVAILABLE TO ANYONE. == - * DOC FILE //* - == YOU DO NOT HAVE TO BE A SHARE OR GUIDE == - * DOC FILE //* - == MEMBER. == - * DOC FILE //* - == == - * DOC FILE //* - == BARRY HAS TOLD ME THAT HE WOULD LIKE TO GET == - * DOC FILE //* - == NEW CONTRIBUTIONS, ESPECIALLY FOR THE LATER == - * DOC FILE //* - == CICS VERSIONS. IF YOU ARE A CICS SYSTEMS == - * DOC FILE //* - == OR "INTERNALS" PERSON, OR ANYONE WITH SOME- == - * DOC FILE //* - == THING THAT MIGHT BE USEFUL TO OTHERS, PLEASE == - * DOC FILE //* - == CONTACT BARRY BROOKS AT (352) 392-2061 X107. == - * DOC FILE //* - == == - * DOC FILE //******************************************************************* DOC FILE //***SECTION DUPLICATED MATERIAL SECTION * DOC FILE //******************************************************************* DOC FILE //* - == == - * DOC FILE //* - == D U P L I C A T E D M A T E R I A L == - * DOC FILE //* - == == - * DOC FILE //* - == Just a note here about duplication. Because of == - * DOC FILE //* - == how all the tapes are set up, there will be == - * DOC FILE //* - == some duplication. If you are very ambitious == - * DOC FILE //* - == and get all the tapes you will find some code == - * DOC FILE //* - == that is on more than one tape. It will be your == - * DOC FILE //* - == job to find out which is the most current or == - * DOC FILE //* - == which has the function you want and discard == - * DOC FILE //* - == the rest. == - * DOC FILE //* - == == - * DOC FILE //* - == GOOD LUCK ! == - * DOC FILE //* - == == - * DOC FILE //* - ========================================================= - * DOC FILE //* ------------------------------------------------------------- * DOC FILE //***SECTION SPLA TAPE MODIFICATION SECTION * DOC FILE //******************************************************************* DOC FILE //* S P L A S E C T I O N * DOC FILE //******************************************************************* DOC FILE //* ------------------------------------------------------------- * DOC FILE //* - ========================================================= - * DOC FILE //* - == == - * DOC FILE //* - == THE "SHARE MVS TAPE" . == - * DOC FILE //* - == == - * DOC FILE //* - ========================================================= - * DOC FILE //* - == == - * DOC FILE //* - == THE ENTIRE CONTENTS OF THE SHARE COMMITTEE MVS == - * DOC FILE //* - == TAPE, VERSION 46 (THE LAST ONE) HAS BEEN MOVED == - * DOC FILE //* - == TO THE CBT OVERFLOW TAPE. ANY UPDATES (IF NEEDED) == - * DOC FILE //* - == WILL BE MADE TO THE CBT OVERFLOW TAPE. == - * DOC FILE //* - == == - * DOC FILE //* - ========================================================= - * DOC FILE //* - == == - * DOC FILE //* - == All files from the SHARE PL/1 Tape have now been == - * DOC FILE //* - == moved to Files 260 through 295 of the CBT Overflow == - * DOC FILE //* - == Tape. == - * DOC FILE //* - == == - * DOC FILE //* - ========================================================= - * DOC FILE //* - == == - * DOC FILE //* - == The CBT Overflow Tape Files are obtainable on == - * DOC FILE //* - == the web at: www.cbttape.org == - * DOC FILE //* - == == - * DOC FILE //* - == Click on "Download Overflow". == - * DOC FILE //* - == == - * DOC FILE //* - == To order the CBT OVERFLOW TAPE, please contact == - * DOC FILE //* - == == - * DOC FILE //* - == Sam Knutson at sam@knutson.org == - * DOC FILE //* - == or sknutson@cbttape.org == - * DOC FILE //* - == == - * DOC FILE //* - ========================================================= - * DOC FILE //* ------------------------------------------------------------- * DOC FILE //***SECTION JES2 MODIFICATION TAPE SECTION * DOC FILE //******************************************************************* DOC FILE //* J E S 2 S E C T I O N * DOC FILE //******************************************************************* DOC FILE //* ------------------------------------------------------------- * DOC FILE //* - ========================================================= - * DOC FILE //* - == == - * DOC FILE //* - == JES2 MODIFICATION TAPE == - * DOC FILE //* - == == - * DOC FILE //* - == IF YOU WOULD LIKE A COPY OF THE NON-SP JES2 == - * DOC FILE //* - == SHARE TAPE (for OS/VS1) CALL == - * DOC FILE //* - == == - * DOC FILE //* - == MR FRED ROBINSON == - * DOC FILE //* - == UNIVERSITY OF MIAMI == - * DOC FILE //* - == 146 UNGER BUILDING == - * DOC FILE //* - == 1365 MEMORIAL DRIVE == - * DOC FILE //* - == CORAL GABLES, FL 33124 == - * DOC FILE //* - == (305)-284-6257 == - * DOC FILE //* - == == - * DOC FILE //* - ========================================================= - * DOC FILE //* - == == - * DOC FILE //* - == IF YOU WISH A COPY OF THE MVS/SP VERSION OF == - * DOC FILE //* - == THE JES2 MODIFICATION TAPE == - * DOC FILE //* - == CONTACT FRED ROBINSON AT 305-284-6257. == - * DOC FILE //* - == == - * DOC FILE //* - == The JES2 Modification tape files are now online == - * DOC FILE //* - == at the CBT Web Site: == - * DOC FILE //* - == == - * DOC FILE //* - == http://www.cbttape.org == - * DOC FILE //* - == == - * DOC FILE //* - == CONTRIBUTORS TO THE TAPE ARE WELCOME TO CONTACT == - * DOC FILE //* - == THE EDITOR OF THIS TAPE, JACK SCHUDEL. CONTRI- == - * DOC FILE //* - == BUTIONS ARE MOST WELCOME, AND CONTRIBUTORS WILL == - * DOC FILE //* - == RECEIVE A -- FREE TAPE --. == - * DOC FILE //* - == == - * DOC FILE //* - == TO PARTICIPATE, PLEASE CONTACT THE TAPE'S EDITOR == - * DOC FILE //* - == DIRECTLY - - - - : == - * DOC FILE //* - == == - * DOC FILE //* - == JACK SCHUDEL == - * DOC FILE //* - == NORTH EAST REGIONAL DATA CENTER (NERDC) == - * DOC FILE //* - == ROOM 233 SSRB == - * DOC FILE //* - == UNIVERSITY OF FLORIDA == - * DOC FILE //* - == GAINESVILLE, FLORIDA 32611 == - * DOC FILE //* - == == - * DOC FILE //* - == PHONE (352) 392-4601 == - * DOC FILE //* - == == - * DOC FILE //* - == email: schudel@ufl.edu == - * DOC FILE //* - == == - * DOC FILE //* - ========================================================= - * DOC FILE //* ------------------------------------------------------------- * DOC FILE //******************************************************************* DOC FILE //***SECTION JES3 MODIFICATION TAPE SECTION * DOC FILE //******************************************************************* DOC FILE //* J E S 3 S E C T I O N * DOC FILE //******************************************************************* DOC FILE //* ------------------------------------------------------------- * DOC FILE //* - ========================================================= - * DOC FILE //* - == == - * DOC FILE //* - == JES3 MODIFICATION TAPE == - * DOC FILE //* - == == - * DOC FILE //* - == If you wish a copy of the JES3 Modification Tape == - * DOC FILE //* - == it may be ordered by sending a contribution on == - * DOC FILE //* - == a DTR or contacting: == - * DOC FILE //* - == == - * DOC FILE //* - == MR ALAN C FIELD == - * DOC FILE //* - == SUPER VALU INC. == - * DOC FILE //* - == 11840 VALLEY VIEW ROAD == - * DOC FILE //* - == EDEN PRAIRIE, MINNESOTA 55344 == - * DOC FILE //* - == (952) 828-4979 == - * DOC FILE //* - == == - * DOC FILE //* - == email: alan.field@supervalu.com == - * DOC FILE //* - == == - * DOC FILE //* - == The JES3 Modification tape files are now online == - * DOC FILE //* - == at the CBT Web Site: == - * DOC FILE //* - == == - * DOC FILE //* - == http://www.cbttape.org == - * DOC FILE //* - == == - * DOC FILE //* - == NOTE: Versions of the spool browser called SDF == - * DOC FILE //* - == are now available for JES3 Versions == - * DOC FILE //* - == 4.1, 4.2, 5.1, and 5.2, as well as for == - * DOC FILE //* - == older JES3 levels. Of course, this tape == - * DOC FILE //* - == contains many other things of value to == - * DOC FILE //* - == a JES3 shop. == - * DOC FILE //* - == == - * DOC FILE //* - == Alan requests that you please include return == - * DOC FILE //* - == postage for a cartridge or tape. Thanks. == - * DOC FILE //* - == == - * DOC FILE //* - ========================================================= - * DOC FILE //* ------------------------------------------------------------- * DOC FILE //******************************************************************* DOC FILE //***SECTION OVERSEAS TAPE SHIPPING SECTION * DOC FILE //******************************************************************* DOC FILE //* O V E R S E A S T A P E S E C T I O N * DOC FILE //******************************************************************* DOC FILE //* ------------------------------------------------------------- * DOC FILE //* - ========================================================= - * DOC FILE //* - == == - * DOC FILE //* - == This section is a bit obsolete, since I accept == - * DOC FILE //* - == contributions for the CBT Tape mostly from the == - * DOC FILE //* - == Internet. My Internet email addresses are: == - * DOC FILE //* - == == - * DOC FILE //* - == sbgolob@attglobal.net == - * DOC FILE //* - == or sbgolob@cbttape.org == - * DOC FILE //* - == == - * DOC FILE //* - == Usually, contributors make a pds on MVS, == - * DOC FILE //* - == including documentation members, put the pds == - * DOC FILE //* - == into TSO XMIT format using the OUTDSN( ) == - * DOC FILE //* - == keyword of XMIT, download the XMIT-format == - * DOC FILE //* - == sequential dataset, in binary, to a pc, and == - * DOC FILE //* - == then they attach the pc file to an email to == - * DOC FILE //* - == me. If the pc file is large, they can pkzip == - * DOC FILE //* - == it first. == - * DOC FILE //* - == == - * DOC FILE //* - == With that file, I can reconstruct their pds, == - * DOC FILE //* - == and stage their file for inclusion in the CBT == - * DOC FILE //* - == Tape. This can be done from any country in == - * DOC FILE //* - == the world. == - * DOC FILE //* - == == - * DOC FILE //* - == I very much appreciate contributions from == - * DOC FILE //* - == outside the United States, and will try to == - * DOC FILE //* - == extend every courtesy to contributors and == - * DOC FILE //* - == well wishers from "abroad". == - * DOC FILE //* - == == - * DOC FILE //* - == IF ANYONE HAS A COPY OF A FREE SOFTWARE TAPE == - * DOC FILE //* - == FOR MVS FROM ANY COUNTRY (SUCH AS THE UK GUIDE == - * DOC FILE //* - == TAPE, ETC.), I WOULD APPRECIATE FOR YOU TO SEND == - * DOC FILE //* - == ME A COPY OF IT, AND I WILL TRY AND RECIPROCATE == - * DOC FILE //* - == BY SENDING A CBT TAPE TO YOU. THANK YOU VERY == - * DOC FILE //* - == MUCH. (IT'S HARD TO GET THAT STUFF OVER HERE.) == - * DOC FILE //* - == == - * DOC FILE //* - == If for some reason, you try to call or write me == - * DOC FILE //* - == and I don't answer, it was an oversight. The == - * DOC FILE //* - == recommended method of getting a response from == - * DOC FILE //* - == me is to keep trying. I do not get insulted or == - * DOC FILE //* - == bothered when someone tries to contact me 30 == - * DOC FILE //* - == times. (Hope that isn't necessary.) I try... == - * DOC FILE //* - == to serve the public as best I can. (SG 6/11/93) == - * DOC FILE //* - == == - * DOC FILE //* - ========================================================= - * DOC FILE //******************************************************************* DOC FILE //***SECTION PDS ENQUEUE APAR SECTION * DOC FILE //******************************************************************* DOC FILE //* P D S E N Q U E U E S E C T I O N * DOC FILE //******************************************************************* DOC FILE //* ------------------------------------------------------------- * DOC FILE //* - ========================================================= - * DOC FILE //* - == == - * DOC FILE //* - == IBM AND PDS ENQUEUE == - * DOC FILE //* - == == - * DOC FILE //* - == You may want to search INFO/MVS for the PTF called == - * DOC FILE //* - == UY15908 which is going to put out an ENQUEUE on a == - * DOC FILE //* - == pds when it is opened. Good idea except when == - * DOC FILE //* - == someone else comes along and tries to open it, the == - * DOC FILE //* - == second job gets abended, great for those long == - * DOC FILE //* - == running SMP jobs. Be alert to the fact that IBM == - * DOC FILE //* - == is going to do us in again! Too little too late == - * DOC FILE //* - == again, from one extreme to another. == - * DOC FILE //* - == == - * DOC FILE //* - == NOTE. FOR ONE SOLUTION TO THIS PROBLEM, SEE THE == - * DOC FILE //* - == S213RC30 PROGRAM ON FILE 163. UNDOUBTEDLY == - * DOC FILE //* - == THERE ARE OTHER SOLUTIONS TOO. == - * DOC FILE //* - == == - * DOC FILE //* - ========================================================= - * DOC FILE //* ------------------------------------------------------------- * DOC FILE //******************************************************************* DOC FILE //***SECTION FILE UPDATE SECTION * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* F I L E U P D A T E S E C T I O N * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* TO DETERMINE MOST EXACTLY WHICH FILES ON THIS TAPE WERE * DOC FILE //* UPDATED since any previous date, the best way is to use * DOC FILE //* the FILE STATUS SECTION BELOW. * DOC FILE //* * DOC FILE //* THE DATE NEXT TO EACH FILE NUMBER IS THE MOST ACCURATE * DOC FILE //* INDICATOR as to when that file was actually changed last. * DOC FILE //* * DOC FILE //* FOR EXAMPLE: * DOC FILE //* -------- * DOC FILE //* INFOTAPE 043 CBT 20 .0 09-10-92 255 NO* DOC FILE //* ASMTOZAP 044 CSC 780 S .9 04-17-94 080 YES * DOC FILE //* PDS COMPARE 045 CBT 1732 1.9 12-06-81 080 YES * DOC FILE //* TSO SCRATCH 046 CBT 1340 .9 11-01-88 080 YES * DOC FILE //* NOCELL-LISTICAT 047 UNKCBT 74311 S 49.1 12-28-93 080 YES * DOC FILE //* -------- * DOC FILE //* USE THIS * DOC FILE //* DATE ... * DOC FILE //* * DOC FILE //* These file dates correspond to actual version release dates, * DOC FILE //* and they can be compared to the dates in the VERSION SECTION * DOC FILE //* below, so you can see which version had that update. * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //***SECTION CHANGE SECTION * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* C H A N G E S E C T I O N * DOC FILE //* * DOC FILE //***********************************************************TOP***** DOC FILE //***SECTION V-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@attglobal.net . * 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 Wayne A. Mitchell, 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 Wayne A. * DOC FILE //* Mitchell, 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@attglobal.net and/or * DOC FILE //* 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. GILBERT'S EMAIL: gsf@pobox.com * 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@attglobal.net * DOC FILE //* OR 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 //* gsf@pobox.com (email). * DOC FILE //* * DOC FILE //* 01 UPDATE TO FILE 035 TO ADD THE COPYSLNL PROGRAM FROM * DOC FILE //* SAM GOLOB. THIS PROGRAM WORKS LIKE THE COPYFILE * DOC FILE //* PROGRAM FROM FILE 316, WHICH COPIES SELECTED OR ALL * DOC FILE //* STANDARD LABELED FILES FROM ONE SL TAPE TO ANOTHER. * DOC FILE //* COPYSLNL WORKS THE SAME WAY AND USES THE SAME * DOC FILE //* CONTROL CARDS, BUT IT STRIPS THE LABELS OFF AND * DOC FILE //* PRODUCES A NON-LABELED OUTPUT TAPE. FIXED COPYFILE * DOC FILE //* TOO. * DOC FILE //* * DOC FILE //* 02 UPDATE TO FILE 071 TO LIST ARTICLES AND PROGRAMS * DOC FILE //* THAT ARE DOWNLOADABLE FROM XEPHON'S WEB SITE FOR * DOC FILE //* FREE. THESE ARE XEPHON MAGAZINE ARTICLES AND * DOC FILE //* PROGRAMS THAT ARE TWO OR MORE YEARS OLD. YOU GO * DOC FILE //* TO WWW.XEPHON.COM . NEWER ARTICLES AND PGMS ARE * DOC FILE //* AVAILABLE TO PAID SUBSCRIBERS, AND YOU CAN (IF * DOC FILE //* YOU'RE INTERESTED) SUBSCRIBE ONLINE. * DOC FILE //* * DOC FILE //* 03 UPDATE TO FILE 094 FROM MICHAEL CLEARY OF BERGEN * DOC FILE //* BRUNSWIG IN CALIFORNIA, TO INCLUDE AN ASSEMBLER * DOC FILE //* VERSION OF HIS DAF PROGRAM. I'VE RETAINED HIS PL/I * DOC FILE //* VERSION THAT IS OLDER. * DOC FILE //* * DOC FILE //* 04 UPDATE TO FILE 112 WHICH IS THE VTOC TSO COMMAND. * DOC FILE //* VTOC CAN BE CALLED BY THE PDS 8.5 COMMAND, TO * DOC FILE //* PRODUCE DATASET LISTS ON A VOLUME. AFTER YEAR 2000 * DOC FILE //* DATES, YOU NEED TO SEE THE NOTES AT THE BEGINNING * DOC FILE //* OF THIS FILE. UPDATE IS FROM JOHN KALINICH. * DOC FILE //* * DOC FILE //* 05 UPDATE TO FILE 120 FROM SAM GOLOB TO ADD MORE * DOC FILE //* ARTICLES. * DOC FILE //* * DOC FILE //* 06 UPDATE TO FILE 134 FROM GREG PRICE OF MELBOURNE * DOC FILE //* AUSTRALIA, TO INCLUDE VERSION 29.3 OF THE REVIEW * DOC FILE //* TSO COMMAND. * DOC FILE //* * DOC FILE //* 07 UPDATE TO FILE 135 FROM GREG PRICE OF MELBOURNE * DOC FILE //* AUSTRALIA, TO INCLUDE THE LOAD MODULE FOR VERSION * DOC FILE //* 29.3 OF THE REVIEW TSO COMMAND, AND ALIASES. * DOC FILE //* * DOC FILE //* 08 UPDATE TO FILE 182 FROM JOHN KALINICH OF THE U.S. * DOC FILE //* ARMY IN ST. LOUIS. THIS IS PDS VERSION 8.5, FIXED * DOC FILE //* FOR YEAR 2000. THIS UPDATE INCLUDES A FEW MORE * DOC FILE //* FIXES. AS OF NOW, THIS PROGRAM IS IN PRODUCTION * DOC FILE //* STATUS. * DOC FILE //* * DOC FILE //* 09 UPDATE TO FILE 183 FROM GILBERT SAINT-FLOUR OF * DOC FILE //* AMS, TO INCLUDE A NEW VERSION OF SHOWMVS, * DOC FILE //* VERSION R620B. * DOC FILE //* * DOC FILE //* 10 ADDITION OF FILE 291 FROM RICK HEVENER OF THE * DOC FILE //* UNIVERSITY OF SOUTH CAROLINA, WHICH IS A PROGRAM * DOC FILE //* THAT BENCHMARKS THE SPEED OF DIFFERENT MACHINE * DOC FILE //* INSTRUCTIONS, ON YOUR CPU, UNDER VARIOUS CONDITIONS. * DOC FILE //* * DOC FILE //* 11 ADDITION OF FILE 292 FROM DAVID FAHEY OF THE SAS * DOC FILE //* INSTITUTE IN CARY, NORTH CAROLINA. THIS IS A SAS * DOC FILE //* PROGRAM TO TAKE THIS DOCUMENTATION FILE (CBT TAPE * DOC FILE //* FILE 001) AND CONVERT IT INTO HTML FORMAT, SO YOU * DOC FILE //* CAN LOOK AT IT WITH NETSCAPE OR A SIMILAR BROWSER. * DOC FILE //* * DOC FILE //* 12 DELETION OF FILE 295 WHICH WAS THE BETA TEST * DOC FILE //* VERSION OF PDS 8.5. WE ARE GOING BACK TO ARNIE'S * DOC FILE //* SCHEME OF PUTTING THE LATEST VERSION OF PDS ON * DOC FILE //* FILE 182, AND THE PREVIOUS VERSION ON FILE 198. * DOC FILE //* VERSION 7.3 WHICH WAS ON FILE 198 FOR A LONG TIME, * DOC FILE //* IS NOW BEING MOVED TO THE CBT OVERFLOW TAPE. * DOC FILE //* VERSION 7.3 WAS THE HIGHEST VERSION OF PDS WHICH * DOC FILE //* COULD BE RUN ON ISPF VERSION 1 (V1R1M0). NOT TOO * DOC FILE //* MANY SHOPS ARE STUCK WITH ISPF VERSION 1 NOWADAYS, * DOC FILE //* BUT THIS CODE WILL STILL BE AVAILABLE ON THE CBT * DOC FILE //* OVERFLOW TAPE. * DOC FILE //* * DOC FILE //* 13 ADDITION OF FILE 301 FROM MIKE CLEARY OF BERGEN * DOC FILE //* BRUNSWIG IN CALIFORNIA, TO CONTAIN A VERSION OF * DOC FILE //* THE CDSCB (CHANGE THE DSCB) PROGRAM FROM FILE 300, * DOC FILE //* WHICH DOES AUTHORITY CHECKING USING A RACROUTE (SAF) * DOC FILE //* CALL, INSTEAD OF BY USERID. I AM LEAVING THE COPY * DOC FILE //* OF CDSCB ON FILE 300 INTACT, BECAUSE THERE MAY STILL * DOC FILE //* BE A LOT OF PEOPLE WHO WANT TO CHECK BY USERID. * DOC FILE //* * DOC FILE //* 14 ADDITION OF FILE 302 FROM MIKE CLEARY OF BERGEN * DOC FILE //* BRUNSWIG IN CALIFORNIA, TO CONTAIN HIS ISPF * DOC FILE //* INTERFACE PROGRAM TO LOOK AT LPA MODULES. * DOC FILE //* * DOC FILE //* 15 ADDITION OF FILE 303 FROM ALEX BRODSKY, TO INCLUDE * DOC FILE //* AN UPDATED VERSION OF THE SIMTERM PROGRAM, WHICH * DOC FILE //* ALLOWS A TSO USER TO ACCESS OTHER VTAM APPLICATIONS. * DOC FILE //* * DOC FILE //* 16 ADDITION OF FILES 304 AND 305 FROM BRUCE HOGMAN. * DOC FILE //* FILE 304 CONTAINS SOURCE FOR HIS LSTVOL PROGRAM, * DOC FILE //* IN IEBUPDTE SYSIN FORMAT, AND FILE 305 CONTAINS * DOC FILE //* AN ASSEMBLY AND LINKEDIT LISTING IN IEBCOPY FORMAT. * DOC FILE //* * DOC FILE //* 17 ADDITION OF FILE 307 FROM GREG SMITH OF LOCKHEED * DOC FILE //* MARTIN AT THE US EPA NATIONAL COMPUTER CENTER. * DOC FILE //* THIS IS A PROGRAM CALLED IEV90, WHICH FORCES A PARM * DOC FILE //* CHANGE, AND XCTLS TO THE HIGH LEVEL ASSEMBLER ASMA90 * DOC FILE //* INSTEAD. FOR OLD JCL WHICH SAYS // EXEC PGM=IEV90. * DOC FILE //* * DOC FILE //* 18 ADDITION OF FILE 308 FROM ALAN FIELD OF SUPER VALU * DOC FILE //* IN EDEN PRAIRIE, MINNESOTA. THIS CONSISTS OF A * DOC FILE //* ZAP, AT THE OS/390 LEVEL, TO MAKE THE BOTTOM OF THE * DOC FILE //* SYSTEM CONSOLE DISPLAY SOME INFORMATION ABOUT THE * DOC FILE //* OPERATING SYSTEM LEVEL. * DOC FILE //* * DOC FILE //* 19 UPDATE TO FILE 316 FROM SAM GOLOB, TO INCLUDE * DOC FILE //* SOURCE CODE FOR THE COPYSLNL PROGRAM, AND A FIX * DOC FILE //* TO THE COPYFILE PROGRAM. * DOC FILE //* * DOC FILE //* 20 UPDATE TO FILE 454 FROM PAUL MOINIL, TO UPDATE THE * DOC FILE //* "CUT" EDIT MACRO. * DOC FILE //* * DOC FILE //***SECTION V-415 SECTION * DOC FILE //* V-415 CHANGES FOR VERSION 415 OCT 27, 1997 * DOC FILE //* 00 SORRY FOR THE BIG DELAY IN UPDATING THIS TAPE UNTIL * DOC FILE //* NOW. MUCH THANKS TO GILBERT SAINT-FLOUR AND 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@attglobal.net OR * DOC FILE //* 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 TO ANOTHER JOB. HIS * DOC FILE //* NEW CONTACT INFORMATION IS: * DOC FILE //* * DOC FILE //* ARNOLD CASINGHINO * DOC FILE //* COMPUTER SCIENCES CORPORATION * DOC FILE //* TECHNOLOGY MANAGEMENT DIVISION * DOC FILE //* 100 WINNENTEN ROAD * DOC FILE //* NORWICH, CT 06360 * DOC FILE //* * DOC FILE //* DIRECT LINE 1-860-823-2739 ( MON - FRI ) * DOC FILE //* * DOC FILE //***SECTION V-396 SECTION * DOC FILE //* V-396 CHANGES FOR VERSION 396 APR 06, 1995 * DOC FILE //* 01 UPDATE TO FILE 078 FROM JOHN KALINICH OF THE U.S. * DOC FILE //* ARMY, AMXSI-TRI IN ST. LOUIS, MISSOURI. THIS IS * DOC FILE //* A COLLECTION OF CLISTS, EDIT MACROS, ETC. WHICH * DOC FILE //* HE SUBMITS TO THE SHARE SOFTWARE COLLECTION. THIS * DOC FILE //* VERSION IS UPDATED TO THE MOST RECENT SHARE (84) * DOC FILE //* SUBMISSION. * DOC FILE //* * DOC FILE //* 02 UPDATE TO FILE 134 WHICH IS A ONE-LINE FIX TO * DOC FILE //* THE REVIEW TSO COMMAND SO IT CAN (ONCE AGAIN) * DOC FILE //* LOOK AT THE DIRECTORY OF A PDS USING THE "DATA" * DOC FILE //* KEYWORD. FIX WAS PHONED TO ME BY GREG PRICE. * DOC FILE //* * DOC FILE //* 03 UPDATE TO FILE 135 TO REPLACE THE REVIEW LOAD * DOC FILE //* MODULE AND ITS ALIASES, REFLECTING THE FIX IN * DOC FILE //* FILE 134. * DOC FILE //* * DOC FILE //***SECTION V-395 SECTION * DOC FILE //* V-395 CHANGES FOR VERSION 395 MAR 29, 1995 * DOC FILE //* 01 UPDATE TO FILE 166 FROM VINH VU OF FRITO-LAY IN * DOC FILE //* PLANO TEXAS. THE PRINCIPAL ADDITION IS A BAL * DOC FILE //* VERSION OF HIS JOB ACTIVITY DISPLAY (JAD) WHICH * DOC FILE //* RUNS MUCH FASTER THAN HIS REXX VERSION. * DOC FILE //* * DOC FILE //***SECTION V-394 SECTION * DOC FILE //* V-394 CHANGES FOR VERSION 394 MAR 22, 1995 * DOC FILE //* 01 UPDATE TO FILE 120 FROM SAM GOLOB TO ADD ANOTHER * DOC FILE //* ARTICLE. * DOC FILE //* * DOC FILE //* 02 UPDATE TO FILES 118 AND 152 TO ADD VERSIONS OF THE * DOC FILE //* COBOL PROGRAMS THAT WERE CONVERTED FOR COBOL II. * DOC FILE //* * DOC FILE //* * DOC FILE //* 03 UPDATE TO THE FOLLOWING FILES TO BRING ADDRESSES * DOC FILE //* AND PHONE NUMBERS UP TO DATE: (ADD SPF STATS TOO) * DOC FILE //* * DOC FILE //* 014, 028, 029, 030, 032, 036, 059, 069, * DOC FILE //* 093, 118, 120, 154, 185, 187, 188, 196, * DOC FILE //* 204, 210, 212, 215, 219, 223, 236, 391, * DOC FILE //* 393, 394 * DOC FILE //* * DOC FILE //* 04 UPDATE TO FILE 391 FROM SAM GOLOB TO ADJUST THE * DOC FILE //* DEFAULT NAME OF THE CHECKPOINT DATASET IN QUEUE * DOC FILE //* BACK TO A MORE NORMAL NAME. * DOC FILE //* * DOC FILE //* 05 UPDATE TO FILE 176 WHICH IS THE ALGOL COMPILER * DOC FILE //* AND LIBRARY. I CLAIMED IT HAD BEEN RE-LINKEDITED * DOC FILE //* USING THE DFSMS BINDER, AND IN REALITY, THE UPDATE * DOC FILE //* NEVER MADE IT TO THE TAPE. DID IT AGAIN, SO I'M * DOC FILE //* NOT A LIAR (FROM NOW ON). * DOC FILE //* * DOC FILE //***SECTION V-393 SECTION * DOC FILE //* V-393 CHANGES FOR VERSION 393 FEB 28, 1995 * DOC FILE //* 01 UPDATE TO FILE 120 FROM SAM GOLOB TO ADD ANOTHER * DOC FILE //* ARTICLE. * DOC FILE //* * DOC FILE //* 02 UPDATE TO FILE 171 FROM DAVID CARTWRIGHT OF SUTTON * DOC FILE //* COLDFIELD, ENGLAND. THIS IS TO ADD A MEMBER FOR * DOC FILE //* THE SUPPORT OF DITTO, CALLED $DITCRTW, WHICH DAVE * DOC FILE //* NEEDED TO GET DITTO TO WORK ON HIS SYSTEM. THIS * DOC FILE //* MEMBER IS INCLUDED HERE FOR YOU TO LOOK AT, IF YOU * DOC FILE //* FEEL YOU MAY NEED IT. * DOC FILE //* * DOC FILE //* 03 UPDATE TO FILE 172 FROM DAVID CARTWRIGHT OF SUTTON * DOC FILE //* COLDFIELD, ENGLAND. THIS IS A REFRESH OF HIS NICE * DOC FILE //* COLLECTION OF UTILITIES. * DOC FILE //* * DOC FILE //***SECTION V-392 SECTION * DOC FILE //* V-392 CHANGES FOR VERSION 392 FEB 08, 1995 * DOC FILE //* 01 UPDATE TO FILE 120 FROM SAM GOLOB TO ADD ANOTHER * DOC FILE //* ARTICLE. * DOC FILE //* * DOC FILE //* 02 ADDITION OF FILE 233 FROM GORDON HAMPTON OF * DOC FILE //* COLONIA, NEW JERSEY. THIS FILE CONTAINS A BATCH * DOC FILE //* PROGRAM WHICH GENERATES AN ABEND OF ANY CODE YOU * DOC FILE //* WANT, SYSTEM, USER, OR SYSTEM WITH REASON CODE. * DOC FILE //* * DOC FILE //* 03 UPDATE TO FILE 458 FROM PAUL MOINIL OF JRC * DOC FILE //* COMPUTING CENTRE IN ISPRA, ITALY. THIS IS TO * DOC FILE //* CORRECT A CODING ERROR IN THE PROGRAM, MODLOOK. * DOC FILE //* * DOC FILE //***SECTION V-391 SECTION * DOC FILE //* V-391 CHANGES FOR VERSION 391 JAN 11, 1995 * DOC FILE //* 01 UPDATE TO FILE 102 FROM SAM GOLOB. THIS MODIFIES * DOC FILE //* THE TAPESCAN PROGRAM TO DO BETTER REPORTING WHEN * DOC FILE //* READING CARTRIDGES. * DOC FILE //* * DOC FILE //***SECTION V-390 SECTION * DOC FILE //* V-390 CHANGES FOR VERSION 390 DEC 29, 1994 * DOC FILE //* 01 UPDATE TO FILE 166 FROM VINH VU OF FRITO-LAY IN * DOC FILE //* PLANO, TEXAS. THIS IS A RE-SHIPMENT OF HIS * DOC FILE //* UTILITIES. THE MAIN ADDITION IS A JOB ACTIVITY * DOC FILE //* DISPLAY. * DOC FILE //* * DOC FILE //* 02 UPDATE TO FILE 453 FROM PAUL A MOINIL OF J.R.C. * DOC FILE //* COMPUTING CENTRE IN ISPRA, ITALY. THIS FILE IS * DOC FILE //* NOW AN INDEX TO HIS LARGE COLLECTION OF UTILITIES. * DOC FILE //* THE ENTIRE COLLECTION USED TO BE ON THIS FILE. * DOC FILE //* NOW IT IS SPREAD INTO FILES 454 THROUGH 459. * DOC FILE //* * DOC FILE //* 03 ADDITION OF FILES 454 THROUGH 459 FROM PAUL A. * DOC FILE //* MOINIL OF J.R.C COMPUTING CENTRE IN ISPRA, ITALY. * DOC FILE //* THESE FILES CONTAIN A LARGE COLLECTION OF SYSTEM * DOC FILE //* PROGRAMMER UTILITIES. * DOC FILE //* * DOC FILE //***SECTION V-389 SECTION * DOC FILE //* V-389 CHANGES FOR VERSION 389 DEC 22, 1994 * DOC FILE //* 01 UPDATE TO FILE 120 FROM SAM GOLOB TO ADD A * DOC FILE //* NEW ARTICLE. * DOC FILE //* * DOC FILE //***SECTION V-388 SECTION * DOC FILE //* V-388 CHANGES FOR VERSION 388 NOV 29, 1994 * DOC FILE //* 01 UPDATE TO FILE 134 FROM GREG PRICE OF MELBOURNE * DOC FILE //* AUSTRALIA. THIS IS HIS 16TH SHIPMENT. * DOC FILE //* * DOC FILE //* 02 UPDATE TO FILE 135 FROM GREG PRICE OF MELBOURNE * DOC FILE //* AUSTRALIA, TO REFLECT HIS 16TH SHIPMENT. * DOC FILE //* * DOC FILE //***SECTION V-387 SECTION * DOC FILE //* V-387 CHANGES FOR VERSION 387 NOV 21, 1994 * DOC FILE //* 01 UPDATE TO FILE 120 FROM SAM GOLOB TO ADD A * DOC FILE //* NEW ARTICLE. * DOC FILE //* * DOC FILE //***SECTION V-386 SECTION * DOC FILE //* V-386 CHANGES FOR VERSION 386 NOV 13, 1994 * DOC FILE //* 01 UPDATE TO FILE 224 TO CONTAIN A MORE REPRESENTATIVE * DOC FILE //* SET OF JOB AND REPORT OUTPUTS FOR THE FREE TAPE * DOC FILE //* MANAGEMENT SYSTEM. * DOC FILE //* * DOC FILE //***SECTION V-385 SECTION * DOC FILE //* V-385 CHANGES FOR VERSION 385 OCT 25, 1994 * DOC FILE //* 01 UPDATE TO FILE 120 FROM SAM GOLOB TO INCLUDE A * DOC FILE //* NEW ARTICLE. * DOC FILE //* * DOC FILE //* 02 ADDITION OF FILE 223 WHICH IS A COMPLETE FREE * DOC FILE //* TAPE MANAGEMENT SYSTEM, CONTRIBUTED SEMI- * DOC FILE //* ANONYMOUSLY. CONTACT SAM GOLOB FOR SUPPORT * DOC FILE //* INFORMATION. THIS SYSTEM KEEPS TRACK OF ANY * DOC FILE //* SIZE TAPE LIBRARY. * DOC FILE //* * DOC FILE //* 03 ADDITION OF FILE 224 WHICH CONTAINS SAMPLE * DOC FILE //* EXECUTION OF THE FREE TAPE MANAGEMENT SYSTEM. * DOC FILE //* * DOC FILE //***SECTION V-384 SECTION * DOC FILE //* V-384 CHANGES FOR VERSION 384 OCT 13, 1994 * DOC FILE //* 01 UPDATE TO FILE 035 TO REFLECT THE CURRENT VERSION * DOC FILE //* OF VSAMANAL FROM DAVID CARTWRIGHT OF SUTTON * DOC FILE //* COLDFIELD IN ENGLAND. COMPILED WITH AS OLD A * DOC FILE //* PL/1 OPTIMIZING COMPILER AS I COULD FIND (V 1.4). * DOC FILE //* THESE MODULES WERE TESTED TO RUN ON MY MVS 4.3 * DOC FILE //* SYSTEM USING PL/1 V2.3 EXECUTION LIBRARIES, BUT * DOC FILE //* I ALSO WANT IT TO RUN AT SHOPS THAT DON'T HAVE * DOC FILE //* SUCH A NEW VERSION OF PL/1. WHY SHOULD THEY * DOC FILE //* SUFFER JUST BECAUSE WE BOUGHT THE NEW VERSION? * DOC FILE //* * DOC FILE //* 02 UPDATE TO FILE 166 FROM VINH VU OF FRITO LAY IN * DOC FILE //* PLANO, TEXAS. THIS UPDATE ADDS SOME UTILITIES * DOC FILE //* TO THIS COLLECTION, AND UPDATES OTHERS. SEE DOC * DOC FILE //* IN THE DOCUMENTATION SECTION BELOW, AND IN THE * DOC FILE //* FILE ITSELF. * DOC FILE //* * DOC FILE //* 03 UPDATE TO FILE 172 FROM DAVE CARTWRIGHT OF SUTTON * DOC FILE //* COLDFIELD IN ENGLAND, TO REVISE HIS DATA * DOC FILE //* COMPRESSION ROUTINE. ALSO, A REFERENCE COPY OF * DOC FILE //* HIS VSAMANAL CHANGES IS BEING KEPT HERE. * DOC FILE //* * DOC FILE //* 04 ADDITION OF FILE 220 FROM LEE CONYERS OF THE * DOC FILE //* U.S. DEPARTMENT OF TRANSPORTATION IN WASHINGTON, * DOC FILE //* D.C. THIS IS A COLLECTION OF E.D.P. AUDITING * DOC FILE //* TOOLS. GOOD FOR SYSTEMS PROGRAMMERS TOO. * DOC FILE //* * DOC FILE //* 05 ADDITION OF FILE 221 FROM LEE CONYERS OF THE * DOC FILE //* U.S. DEPARTMENT OF TRANSPORTATION IN WASHINGTON, * DOC FILE //* D.C. THIS PART OF HIS COLLECTION OF E.D.P. * DOC FILE //* AUDITING TOOLS IS IN VB LRECL(255) FORMAT, AND * DOC FILE //* CONSISTS OF REXX EXECS. * DOC FILE //* * DOC FILE //* 06 UPDATE TO FILE 294 FROM DAVID CARTWRIGHT OF * DOC FILE //* SUTTON COLDFIELD IN ENGLAND. THIS CONTAINS HIS * DOC FILE //* SOURCE CHANGES TO VSAMANAL, CORRECTED FOR 3390'S * DOC FILE //* AND WITH OTHER MODERNIZATIONS. * DOC FILE //* * DOC FILE //* 07 UPDATE TO FILE 300 TO ADD A VERSION OF "MURPHY" * DOC FILE //* FROM ART TANSKY OF SUNGARD IN VOORHEES, NEW * DOC FILE //* JERSEY. FOR "MURPHY FANS", THE OLD VERSION * DOC FILE //* IS BEING KEPT AS MEMBER "MURPHYO". * DOC FILE //* * DOC FILE //***SECTION V-383 SECTION * DOC FILE //* V-383 CHANGES FOR VERSION 383 SEP 16, 1994 * DOC FILE //* 01 UPDATE TO FILE 078 FROM JOHN KALINICH OF AMXSI-TRI * DOC FILE //* U.S. ARMY IN ST LOUIS, MISSOURI. THIS IS AN UPDATE * DOC FILE //* TO SOME OF THE SOFTWARE, AS IS REFLECTED IN THE * DOC FILE //* SHARE 83 (AUGUST 1994) DISKETTE MATERIAL. * DOC FILE //* * DOC FILE //* 02 UPDATE TO FILE 120 FROM SAM GOLOB TO ADD A NEW * DOC FILE //* ARTICLE. * DOC FILE //* * DOC FILE //***SECTION V-382 SECTION * DOC FILE //* V-382 CHANGES FOR VERSION 382 AUG 31, 1994 * DOC FILE //* 01 UPDATE TO FILE 172 FROM DAVE CARTWRIGHT OF * DOC FILE //* SUTTON COLDFIELD IN ENGLAND. THIS FILE CONTAINS * DOC FILE //* HIS UTILITIES, WITH UPDATES TO SEVERAL OF THEM. * DOC FILE //* THESE ARE THE "SPRECHER ENERGIE" UTILITIES. * DOC FILE //* * DOC FILE //* 02 ADDITION OF FILE 219 FROM SAM GOLOB TO CONTAIN * DOC FILE //* SOME REXX EXECS FROM OUR LATE COLLEAGUE * DOC FILE //* TONY FORTE WHO PASSED AWAY RECENTLY. * DOC FILE //* * DOC FILE //***SECTION V-381 SECTION * DOC FILE //* V-381 CHANGES FOR VERSION 381 AUG 19, 1994 * DOC FILE //* 01 UPDATE TO THE FOLLOWING FILES ON THE TAPE THAT * DOC FILE //* ARE IN IEBCOPY FORMAT. THIS IS TO ANTICIPATE AN * DOC FILE //* IBM PROBLEM WITH IEBCOPY, THAT AFTER A CERTAIN * DOC FILE //* PTF LEVEL IEBCOPY IS PURPORTED NOT TO BE ABLE TO * DOC FILE //* READ IEBCOPY TAPE FILES IN "OLD" FORMAT, THAT IS, * DOC FILE //* IF THE CONTROL RECORDS ARE 60 BYTES (INCLUDING * DOC FILE //* RDW) RATHER THAN THE NEWER 64 BYTES. THIS (IF * DOC FILE //* TRUE) IS A POTENTIAL DISASTER. I HOPE THE OLD * DOC FILE //* VERSIONS OF IEBCOPY CAN READ THE NEWER FILES. * DOC FILE //* THE PROBLEM WAS POINTED OUT BY LARRY LAFONTAINE * DOC FILE //* OF DRESSER INDUSTRIES IN DALLAS, TEXAS. SO TO * DOC FILE //* HELP, THE FOLLOWING FILES ARE BEING REPLACED * DOC FILE //* IN "NEW" IEBCOPY FORMAT: SEE APAR OW07575 FOR * DOC FILE //* DFSMS IEBCOPY, AND APAR OW07573 FOR DFP IEBCOPY. * DOC FILE //* * DOC FILE //* 028, 057, 061, 073, 092, 115, 145, 146, * DOC FILE //* 153, 176, 186, 189, 280, 326, 371, 383, * DOC FILE //* 432, 442, 444 * DOC FILE //* * DOC FILE //* 02 UPDATE TO FILE 035 TO INCLUDE A NEW COPY OF * DOC FILE //* TAPEMAP. FIXED SOURCE CODE IS ON FILE 299. * DOC FILE //* * DOC FILE //* 03 UPDATE TO FILE 112 FROM BRUCE LELAND OF SERENA * DOC FILE //* INTERNATIONAL IN BURLINGAME, CALIFORNIA, TO * DOC FILE //* FIX A BUG IN ONE OF THE FUNCTIONS OF THE "VTOC" * DOC FILE //* TSO COMMAND. * DOC FILE //* * DOC FILE //* 04 UPDATE TO FILE 120 TO GET RID OF SAM GOLOB'S * DOC FILE //* OLD PHONE NUMBER AND TO FIX A FEW DETAILS IN * DOC FILE //* SEVERAL ARTICLES. * DOC FILE //* * DOC FILE //* 05 UPDATE TO FILE 296 FROM BRUCE LELAND OF SERENA * DOC FILE //* INTERNATIONAL IN BURLINGAME, CALIFORNIA, TO FIX * DOC FILE //* SEVERAL OF THE UTILITIES ON THIS FILE. AMONG * DOC FILE //* THEM ARE DSAT AND DVOL, WHICH NOW ARE ABLE TO * DOC FILE //* HANDLE 3390 MODEL 9 DISK PACKS, THAT HAVE AN * DOC FILE //* AWFUL LOT OF TRACKS. * DOC FILE //* * DOC FILE //* 06 UPDATE TO FILE 299 FROM LARRY LAFONTAINE OF * DOC FILE //* DRESSER INDUSTRIES IN DALLAS, TEXAS. HE POINTED * DOC FILE //* OUT A PROBLEM IN TAPEMAP, THAT A LINE OF CODE WAS * DOC FILE //* LEFT OUT, SO IT DIDN'T ACCEPT ANY PARMS EXCEPT * DOC FILE //* FOR THE DEFAULT OPTIONS. THIS HAS BEEN FIXED, * DOC FILE //* AND THE LOAD MODULE IN FILE 035 HAS BEEN UPDATED. * DOC FILE //* * DOC FILE //***SECTION V-380 SECTION * DOC FILE //* V-380 CHANGES FOR VERSION 380 AUG 16, 1994 * DOC FILE //* 01 UPDATE TO FILE 120 FROM SAM GOLOB TO INCLUDE A * DOC FILE //* NEW ARTICLE. * DOC FILE //* * DOC FILE //* 02 UPDATE TO FILE 121 FROM SAM GOLOB TO INCLUDE MORE * DOC FILE //* WIDE ILLUSTRATIONS FOR HIS ARTICLES. * DOC FILE //* * DOC FILE //* 03 UPDATE TO FILE 135 FROM SAM GOLOB TO INCLUDE * DOC FILE //* LOAD MODULE CHANGES THAT REFLECT THE NEW VERSIONS * DOC FILE //* OF PROGRAMS FROM FILE 183 (GILBERT SAINT-FLOUR). * DOC FILE //* * DOC FILE //* 04 UPDATE TO FILE 183 FROM GILBERT SAINT-FLOUR OF * DOC FILE //* 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 * DOC FILE //* SBG = TESTED BY SAM GOLOB * 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 //* * 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 62736 71.3 02-28-06 080 NO* % DOC FILE //* COMPRESS PGM 002 CBT 263 .3 04-01-79 080 NO* DOC FILE //* JCL - DROP TAPE 003 SBG 2579 3.2 02-28-06 080 NO* DOC FILE //* CBTUPD Program 004 SBG 439 .9 08-10-99 080 NO* DOC FILE //* VMREXX-DROP TAPE 005 UNKSBG 1099 1.4 08-01-00 080 NO* DOC FILE //* CBT Doc Utilties 006 SBG 2969 S 1.9 09-15-03 080 YES * DOC FILE //* RACF MODS 007 UNKCBT 28173 S 19.4 12-28-05 080 YES * DOC FILE //* DELETE LIST 008 N/A 234 .3 04-04-82 080 YES * DOC FILE //* RACF TAPE DS 009 UNKCBT 773 .9 08-04-87 080 YES * DOC FILE //* ISPFPRIM 010 UNKCBT 866 .9 09-20-87 080 YES * DOC FILE //* INTEL MODS 011 N/A 4741 S 3.2 08-16-92 080 YES * DOC FILE //* ISPF DIAG 012 UNCBT 6366 3.7 03-24-85 080 YES * DOC FILE //* COMPRESS 013 CBT 81 .1 11-23-86 080 YES * DOC FILE //* ARTICLES 014 N/A 3544 S 2.8 04-02-01 080 YES * DOC FILE //* WARNER 015 UNKCBT 3107 1.9 07-28-88 080 YES * DOC FILE //* SCOTT & WHITE 016 UNKCBT 1227 .9 07-28-88 080 YES * DOC FILE //* LISTDD 017 CBT 522 .3 09-14-88 080 YES * DOC FILE //* TSUPDATE 018 CBT 1164 2.8 12-01-85 133 NO* DOC FILE //* FOOD LION UTIL 019 UNKSBG 63241 S 41.7 12-28-05 080 YES * DOC FILE //* SYSTEM REXX EXEC 020 SBG 3914 S 2.8 08-16-92 080 YES * DOC FILE //* BELL & HOWELL 021 UNKCBT 4343 3.2 02-01-87 080 YES * DOC FILE //* ADRIA UTIL 022 UNKCBT 21250 11.1 03-27-88 080 YES * DOC FILE //* ALTJES 023 UNKCBT 408 .3 02-01-87 080 YES * DOC FILE //* MCI PGMS 024 UNKCBT 4201 2.8 02-01-87 080 YES * DOC FILE //* CONSOLE & OTHERS 025 UNKCBT 12513 6.9 10-27-98 080 YES * DOC FILE //* SURVEY 026 UNKCBT 597 .4 03-31-87 080 YES * DOC FILE //* DATE PGM 027 UNKCBT 3326 2.3 03-31-87 080 YES * DOC FILE //* BACKEMUP CLISTs 028 SBG 4666 S 3.2 02-14-05 080 YES * DOC FILE //* ENLARGE VTOC 029 SBG 323 S .3 03-22-95 080 YES * DOC FILE //* PFKDEFAULT 030 NWK 175 S .1 03-22-95 080 YES * DOC FILE //* IGGPRE00 031 UNKCBT 144 .1 05-01-87 080 YES * DOC FILE //* JCL COPYP DOWND 032 UNKCBT 8167 S 6.0 03-22-95 080 YES * DOC FILE //* SHARE JES2 Songs 033 ALL 17771 S 18.1 07-17-05 080 YES * DOC FILE //* RACFUSER 034 UNKCBT 1799 1.4 06-24-86 080 YES * DOC FILE //* LOAD MODS 035 SBG 228 64.1 02-28-06 IEBCOPY NO* DOC FILE //* FIXPDS 036 UNKCBT 3292 S 2.3 03-22-95 080 YES * DOC FILE //* COPYCAT 037 UNKCBT 4317 3.2 01-23-83 080 YES * DOC FILE //* KLINGON 038 UNKSBG 17984 S 9.3 09-15-03 080 YES * DOC FILE //* CITIBANK 039 SBG 1463 S 1.4 07-25-04 080 YES * DOC FILE //* PEOPLES UTIL 040 UNKCBT 12020 8.3 11-04-87 080 YES * DOC FILE //* XEROX MODS 041 UNKCBT 7534 5.1 03-05-89 080 YES * DOC FILE //* INFOTAPE 042 CBT 622 S .4 09-10-92 080 YES * DOC FILE //* INFOTAPE 043 CBT 20 .0 09-10-92 255 NO* DOC FILE //* ASMTOZAP 044 SBG 780 S .9 04-17-94 080 YES * DOC FILE //* PDS COMPARE 045 CBT 1732 1.9 12-06-81 080 YES * DOC FILE //* TSO SCRATCH 046 CBT 1340 .9 11-01-88 080 YES * DOC FILE //* NOCELL-LISTICAT 047 UNKCBT 79750 S 51.8 10-30-01 080 YES * DOC FILE //* LISTVOL, LISTSPC 048 CBT 2881 S 1.9 02-28-06 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 4037 S 2.8 05-14-02 080 YES * DOC FILE //* DELUXE ISPF 053 UNKSBG 54354 S 37.0 11-30-87 080 YES * DOC FILE //* DELUXE ISPF 054 UNKSBG 4809 S 2.8 11-30-87 080 YES * DOC FILE //* DELUXE ISPF 055 UNKSBG 286 S .2 11-30-87 080 YES * DOC FILE //* DELUXE ISPF 056 UNKSBG 1787 S 1.4 11-30-87 080 YES * DOC FILE //* DELUXE ISPF 057 UNKSBG 58 6.4 08-19-94 IEBCOPY NO* DOC FILE //* LINKLIST 058 CBT 786 .9 01-01-88 080 YES * DOC FILE //* IPL DATE 059 CBT 1121 S .9 03-22-95 080 YES * DOC FILE //* SFTWAR ISPF 060 UNKCBT 6221 3.7 12-07-89 080 YES * DOC FILE //* SFTWAR ISPF 061 UNKCBT 8 2.2 08-19-94 IEBCOPY NO* DOC FILE //* SFTWAR ISPF 062 UNKCBT 1 .1 04-12-87 2040 NO* DOC FILE //* SFTWAR ISPF 063 UNKCBT 1 .1 04-12-87 8180 NO* DOC FILE //* SFTWAR ISPF 064 UNKCBT 1 .0 04-12-87 53 NO* DOC FILE //* LINKLIST UNCATGD 065 UNKCBT 426 .3 02-21-90 080 YES * DOC FILE //* UTILITES 066 UNKCBT 8643 S 5.6 11-27-03 080 YES * DOC FILE //* VIO EXIT 067 UNKCBT 834 .9 01-01-88 080 YES * DOC FILE //* TSTVS-Cns Editor 068 SBG 5056 S 3.2 08-20-02 080 YES * DOC FILE //* CODING EXAMPLES 069 UNKSBG 17335 S 10.2 12-27-00 080 YES * DOC FILE //* ZAPS GENL DYNAM 070 CBT 25230 S 17.1 12-28-93 080 YES * DOC FILE //* OTHER TAPES DOC 071 N/A 60230 S 42.1 07-17-03 080 YES * DOC FILE //* PANEXEC ISPPLIB 072 UNKSBG 3647 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 10599 S 6.5 08-26-92 080 YES * DOC FILE //* PANEXEC ISPALIB 075 UNKSBG 3491 S 2.8 08-26-92 080 YES * DOC FILE //* PANEXEC PROCS 076 UNKSBG 131 S .1 08-26-92 080 YES * DOC FILE //* MVS 3.8 Utilites 077 UNKSBG 48694 S 31.9 04-14-02 080 YES * DOC FILE //* ISPF EDIT MACRO 078 UNKSBG 8296 S 4.6 08-10-99 080 YES * DOC FILE //* DCF ISPF INTERFC 079 UNKSBG 17496 S 9.7 09-02-93 080 YES * DOC FILE //* RACF PGMS 080 UNKCBT 1553 1.4 05-22-88 080 YES * DOC FILE //* MVS DEBE 081 CBT 1608 .9 06-19-79 080 YES * DOC FILE //* DOC 82-86 082 CBT 3482 1.9 10-16-76 080 YES * DOC FILE //* IEHMAP 083 CBT 17573 S 11.6 09-15-03 080 YES * DOC FILE //* MAPLPA OBJ 084 SU'S 146 .2 10-16-76 080 YES * DOC FILE //* PTXREF OBJ 085 SU'S 297 .4 10-16-76 080 YES * DOC FILE //* ZAP OBJ 086 SU'S 260 .3 10-16-76 080 YES * DOC FILE //* SYSLOG 087 UNKCBT 2483 1.9 01-19-89 080 YES * DOC FILE //* WESTERMAN UTILS 088 UNKCBT 31090 S 20.4 02-28-06 080 YES * DOC FILE //* DYNALLOC INTRFAC 089 UNKCBT 1730 S 1.4 10-27-98 080 YES * DOC FILE //* DELINKI: PLI-BAL 090 UNKSBG 3877 S 2.8 08-10-99 080 YES * DOC FILE //* FORT PL1 RPG ALG 091 UNKCBT 2744 S 2.3 10-27-98 080 YES * DOC FILE //* PL1/F COMP moved 092 UNKCBT 54 S .1 07-25-04 080 YES * DOC FILE //* SEQUENTIALIZ PDS 093 UNKCBT 14774 S 9.7 02-22-00 080 YES * DOC FILE //* DAF 094 UNKCBT107389 S 66.6 02-28-06 080 YES * DOC FILE //* ISPF EDIT MACRO 095 UNKCBT 12745 7.9 11-08-90 080 YES * DOC FILE //* MO CODE 096 UNKCBT 6571 4.6 11-01-88 080 YES * DOC FILE //* DISK SYS 097 UNKCBT 21462 13.9 11-01-88 080 YES * DOC FILE //* XMIT/RECEIVE 098 UNKCBT 2291 1.4 11-01-88 080 YES * DOC FILE //* XMIT/RECEIVE 099 UNKCBT 66 .2 11-01-88 251 NO * DOC FILE //* ISPF/PDF 100 UNKCBT 2712 1.9 09-05-82 080 YES * DOC FILE //* ISPF/PDF 101 UNKCBT 3627 1.9 09-05-82 080 YES * DOC FILE //* TAPESCAN 102 SBG 4563 S 3.2 07-14-00 080 YES * DOC FILE //* ISPF DIALOGS 103 UNKCBT 7438 S 5.1 05-29-98 080 YES * DOC FILE //* JES2 RMT PR(JRP) 104 UNKCBT 13625 S 8.8 04-21-03 080 YES * DOC FILE //* OUTLIST 105 UNKCBT 607 .4 01-19-89 080 YES * DOC FILE //* RACF LIST 106 UNKCBT 1052 S .9 03-04-94 080 YES * DOC FILE //* STRUC MACROS 107 UNKCBT 18668 13.9 08-23-00 080 YES * DOC FILE //* STRUC MACROS 108 UNKCBT 11916 6.9 08-23-00 080 YES * DOC FILE //* IEFACTRT 109 UNKCBT 1815 1.4 05-04-89 080 YES * DOC FILE //* IEFACTRT 110 UNKCBT 114 .2 05-04-89 133 NO* DOC FILE //* REVLON 111 UNKCBT 3045 2.3 09-18-90 080 YES * DOC FILE //* VTOC 112 CBT 15993 S 10.6 10-30-01 080 YES * DOC FILE //* SMPSCAN 113 UNKCBT 592 .9 01-25-88 080 YES * DOC FILE //* SMPSCAN 114 UNKCBT 484 .9 01-25-88 080 YES * DOC FILE //* SMPSCAN 115 UNKCBT 98 10.7 08-19-94 IEBCOPY NO* DOC FILE //* SEEK ANALYSIS 116 X A 3370 1.9 05-04-89 080 YES * DOC FILE //* WTO EXITS 117 UNKCBT 2368 1.9 11-14-89 080 YES * DOC FILE //* PUTXREF & SMPUPD 118 UNKCBT 8004 S 5.1 10-30-01 080 YES * DOC FILE //* SYNTEX UTIL 119 UNKCBT 9417 6.5 02-01-87 080 YES * DOC FILE //* MVS TOOLS ARTCLS 120 SBG 60152 S 45.8 02-28-06 080 YES * DOC FILE //* WIDE ILLUS ARTCL 121 SBG 805 S 4.4 08-19-96 IEBCOPY NO* DOC FILE //* SUBSYSTEM 122 N/A 3650 2.8 06-19-88 080 YES * DOC FILE //* TSO Echo Progrms 123 SBG 610 S .4 11-12-00 080 YES * DOC FILE //* ISPF/PDF 124 UNKCBT 4359 2.8 06-04-89 080 YES * DOC FILE //* SAS PGMS 125 N/A 7143 4.6 06-29-89 080 YES * DOC FILE //* LL BEAN ESA 126 UNKCBT 10063 S 6.5 12-03-93 080 YES * DOC FILE //* CHRYSLER 127 UNKCBT 9976 5.6 02-06-85 080 YES * DOC FILE //* CHIMP VTAM 128 UNKCBT 3185 2.3 06-29-89 080 YES * DOC FILE //* CHKPOINT 129 UNKCBT 84 .1 11-23-99 080 YES * DOC FILE //* INFO/UTILITIES 130 UNKCBT 1509 S 1.4 03-29-99 080 YES * DOC FILE //* EXITS 131 UNKCBT 559 .3 07-21-89 080 YES * DOC FILE //* UTILITIES 132 UNKCBT 2152 1.4 07-21-89 080 YES * DOC FILE //* UTILITIES 133 UNKCBT 2744 1.9 11-14-89 080 YES * DOC FILE //* PRICE UTILITIES 134 SBG 139963 S 91.2 12-28-05 080 YES * DOC FILE //* PRICE UTIL LOAD 135 SBG 243 66.3 02-28-06 IEBCOPY NO* DOC FILE //* H.Dean Utilities 136 UNKCBT 14263 S 9.3 07-12-01 080 YES * DOC FILE //* VSAM ISPF 3.4 137 UNKSBG 395 S .2 07-15-92 080 YES * DOC FILE //* SYSTEMID 138 UNKCBT 1108 S .9 02-02-94 080 YES * DOC FILE //* UTILITIES 139 UNKCBT 2093 S 1.4 04-02-01 080 YES * DOC FILE //* DARS SYSTEM 140 UNKCBT 1222 .9 11-14-89 080 YES * DOC FILE //* BRODCAST 141 UNKCBT 1177 .9 11-14-89 080 YES * DOC FILE //* VTAM APPL 142 UNKCBT 631 .4 11-14-89 080 YES * DOC FILE //* IDCAMS ISPF 143 UNKCBT 851 .9 11-14-89 080 YES * DOC FILE //* VPS EXIT 144 UNKCBT 626 .4 12-07-89 080 YES * DOC FILE //* KERMIT 145 UNKCBT 24774 1.5 08-19-94 IEBCOPY NO* DOC FILE //* KERMIT 146 UNKCBT 106 36.0 08-19-94 IEBCOPY NO* DOC FILE //* ARCHIVER 147 UNKCBT 25327 S 16.7 08-20-02 080 YES * DOC FILE //* ISPF PAN 148 UNKCBT 5572 3.7 02-21-90 080 YES * DOC FILE //* UTILITIES 149 UNKCBT 27530 18.1 10-26-86 080 YES * DOC FILE //* XMIT RECEIVE 150 UNKCBT 1184 .9 02-21-90 080 YES * DOC FILE //* LISTCAT ISPF 151 UNKCBT 714 .4 04-04-90 080 YES * DOC FILE //* UTIL 152 UNKCBT 9165 5.1 04-04-90 080 YES * DOC FILE //* 3800 CHAR SET 153 UNKCBT 8 .9 08-19-94 IEBCOPY NO* DOC FILE //* SMP ELEMENTS 154 UNKCBT 323 S .2 03-22-95 080 YES * DOC FILE //* North REXX Split 155 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 .3 08-15-90 080 YES * DOC FILE //* ISPF & REXX 158 UNKSBG 3505 2.3 11-24-93 080 YES * DOC FILE //* UCBFIND 159 CBT 697 .9 08-22-84 080 YES * DOC FILE //* TSO CPS 160 UNKCBT 14809 9.3 12-01-85 080 YES * DOC FILE //* MARSHALL ISPF 161 UNKCBT 22274 S 12.0 11-23-99 080 YES * DOC FILE //* XREFASM 162 UNKCBT 2349 1.9 10-29-85 080 YES * DOC FILE //* DUDA UTILITIES 163 UNKSBG 10656 S 7.4 12-20-90 080 YES * DOC FILE //* RESCUE SYSTEM 164 UNKSBG 3873 2.8 11-08-90 080 YES * DOC FILE //* RACF 1.7 SYSTEM 165 NWK 4449 S 3.2 03-25-91 080 YES * DOC FILE //* VINH VU UTILTIES 166 UNKSBG 19960 S 10.6 12-27-00 080 YES * DOC FILE //* CATELLUS UTIL 167 UNKSBG 2679 S 1.9 05-16-91 080 YES * DOC FILE //* GODFREY UTIL 168 UNKSBG 18758 S 9.7 05-16-91 080 YES * DOC FILE //* K WILLIAMS UTIL 169 UNKSBG 20729 S 13.4 05-16-91 080 YES * DOC FILE //* DUMPCSA 170 SBG 184 S .1 05-16-91 080 YES * DOC FILE //* DTO,TMAP,DISA ET 171 UNKSBG 77192 S 46.3 12-28-05 080 YES * DOC FILE //* CARTWRIGHT UTIL 172 UNKSBG 84335 S 48.1 09-15-03 080 YES * DOC FILE //* SMPETOOL 173 UNKSBG 15971 S 10.6 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 15453 S 10.6 02-10-92 080 YES * DOC FILE //* ALGOL COMP moved 176 UNKSBG 57 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 5576 S 3.7 10-28-92 080 YES * DOC FILE //* WOREN MACLIB 179 N/A 13442 S 9.3 05-10-00 080 YES * DOC FILE //* WOREN TSOCMDS 180 N/A 33452 S 22.2 03-30-92 080 YES * DOC FILE //* WOREN MVS PGMS 181 N/A 4761 S 3.7 03-30-92 080 YES * DOC FILE //* PDS Command Pkg 182 SBG 110366 S 80.5 02-28-06 080 YES * DOC FILE //* Saint-flour Util 183 UNKSBG 43148 S 29.2 02-28-06 080 YES * DOC FILE //* IPCS EXECS ESA 184 SBG 4938 S 2.8 01-20-94 080 YES * DOC FILE //* IKJTABLS SRC 185 SBG 1056 S .9 02-28-06 080 YES * DOC FILE //* EMPTY 186 N/A 1 .3 02-28-06 080 YES * DOC FILE //* CLIST CONVERT 187 SBG 4148 S 3.2 03-22-95 080 YES * DOC FILE //* IBM SOURCE HANDL 188 UNKCBT 1999 S 1.9 03-22-95 080 YES * DOC FILE //* IBM SOURCE HANDL 189 UNKCBT 10 1.9 08-19-94 IEBCOPY NO* DOC FILE //* VSMDUMP 190 UNKSBG 8665 S 4.6 03-25-93 080 YES * DOC FILE //* ACCTG FOR STC'S 191 UNKSBG 1879 S 1.4 03-25-93 080 YES * DOC FILE //* GEN RECOV CODE 192 UNKSBG 1748 S 1.4 03-25-93 080 YES * DOC FILE //* TCOPY 193 SBG 2573 S 1.9 07-14-00 080 YES * DOC FILE //* CUT-PASTE 194 UNKSBG 344 S .2 06-11-93 080 YES * DOC FILE //* DUTTMAN CLISTS 195 SBG 76 S .1 06-11-93 080 YES * DOC FILE //* JES2 EXIT LOADER 196 SBG 689 S .5 03-22-95 080 YES * DOC FILE //* IMS MODS 197 UNKSBG 13606 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 29327 S 21.3 02-28-06 080 YES * DOC FILE //* TWA PDS 200 UNKCBT 6276 S 4.2 07-14-00 080 YES * DOC FILE //* SYSTEM CLIST VAR 201 UNKSBG 3002 S 1.9 11-24-93 080 YES * DOC FILE //* G. PRICE IODATA 202 UNKSBG 155 S 1.0 12-28-93 IEBCOPY NO* DOC FILE //* TMS SILO EJECT 203 UNKSBG 1165 S .9 01-20-94 080 YES * DOC FILE //* MVS CROSS SYSTEM 204 SBG 22512 S 17.1 03-22-95 080 YES * DOC FILE //* MVS XSYS SCRIPT 205 SBG 4804 S 3.6 01-28-94 IEBCOPY NO* DOC FILE //* DCOLLECT REXX 206 UNKSBG 3335 S 1.9 02-18-94 080 YES * DOC FILE //* FSE 207 CBT 5377 3.2 04-12-87 080 YES * DOC FILE //* LSPC COMMAND 208 UNKSBG 1653 S 1.4 02-02-94 080 YES * DOC FILE //* CALCULATOR REXX 209 SBG 806 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 6689 S 4.6 05-06-94 080 YES * DOC FILE //* SMP/E CLISTS 215 SBG 946 S .9 03-22-95 080 YES * DOC FILE //* DATE CONVERSION 216 UNKSBG 818 S .9 07-18-94 080 YES * DOC FILE //* DISASSEMBLER 217 CBT 7072 S 4.6 07-15-92 080 YES * DOC FILE //* RMFMON SCR 218 CBT 5738 4.2 04-01-86 080 YES * DOC FILE //* FORTE EXECS 219 SBG 264 S .2 03-22-95 080 YES * DOC FILE //* EDP AUDIT TOOLS 220 UNKSBG 9901 S 6.9 10-13-94 080 YES * DOC FILE //* EDP AUDIT REXX 221 UNKSBG 4332 S 9.4 10-13-94 IEBCOPY NO* DOC FILE //* EMPTY 222 N/A 1 .9 07-26-95 080 YES * DOC FILE //* FREE TAPE MGMT 223 UNKSBG 2598 S 1.9 03-22-95 080 YES * DOC FILE //* FREE TAPE MGMT 224 UNKSBG 780 S 3.6 11-13-94 IEBCOPY NO* DOC FILE //* OFFLOAD 225 CBT 1071 .9 10-28-84 080 YES * DOC FILE //* COMPRSEQ 226 CBT 1181 .9 06-17-84 080 YES * DOC FILE //* TSO AUTHD0 227 CBT 2686 1.9 08-16-92 080 YES * DOC FILE //* DFHSM RECOVER 228 UNKSBG 576 .3 10-22-93 080 YES * DOC FILE //* COPYMODS,Tap Cpy 229 SBG 29538 S 19.4 12-28-05 080 YES * DOC FILE //* ISPF FAIR 230 UNKCBT 1292 2.8 05-29-86 133 NO* DOC FILE //* ISPF FAIR 231 UNKCBT 992 .9 11-23-86 080 YES * DOC FILE //* ISPF FAIR 232 UNKCBT 408 .3 05-29-86 080 YES * DOC FILE //* ABEND PROGRAM 233 SBG 519 S .2 02-08-95 080 YES * DOC FILE //* New Disassembler 234 UNKSBG 5915 S 4.2 07-08-02 080 YES * DOC FILE //* LPA LOADER 235 CBT 1065 .9 07-24-78 080 YES * DOC FILE //* LISTC ZAP 236 SBG 369 .2 03-22-95 080 YES * DOC FILE //* PDSXREF 237 CBT 5480 3.2 08-02-78 080 YES * DOC FILE //* Int Disasm LOAD 238 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 0.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 23047 S 14.3 05-31-02 080 YES * DOC FILE //* UK GUIDE NUI 245 UNKSBG 10085 S 5.6 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 31962 S 19.4 02-28-06 080 YES * DOC FILE //* BOYSEN UTIL 248 UNKSBG 5958 S 3.7 03-11-96 080 YES * DOC FILE //* BARKOW PGMS 249 SBG 15312 S 9.3 04-02-01 080 YES * DOC FILE //* DISPLAY GRS LONG 250 SBG 389 S .2 09-13-95 080 YES * DOC FILE //* ISPF EDIT MACRO2 251 SBG 3584 S 2.3 11-27-95 080 YES * DOC FILE //* JEFF KAPLAN SRC 252 UNKSBG 11334 S 6.9 01-05-96 080 YES * DOC FILE //* JEFF KAPLAN EXEC 253 UNKSBG 46149 S 24.5 01-05-96 080 YES * DOC FILE //* JEFF KAPLAN CNTL 254 UNKSBG 24904 S 16.2 01-05-96 080 YES * DOC FILE //* JEFF KAPLAN ISPP 255 UNKSBG 7128 S 4.2 01-05-96 080 YES * DOC FILE //* JEFF KAPLAN ISPT 256 UNKSBG 438 S .9 01-05-96 080 YES * DOC FILE //* LKED BLK 32720 257 SBG 139 S .1 03-11-96 080 YES * DOC FILE //* WIN3270 SOURCE 258 UNKSBG 38616 S 19.0 03-11-96 080 YES * DOC FILE //* WIN3270 LOAD 259 UNKSBG 1 22.6 03-11-96 IEBCOPY NO* DOC FILE //* QUICK MAP 260 CBT 10015 S 5.1 07-17-05 080 YES * DOC FILE //* Overflow File296 261 UNKCBT 69 S .1 07-17-03 080 YES * DOC FILE //* PTFXREF PGM 262 SBG 562 S .4 06-27-96 080 YES * DOC FILE //* UK GUIDE MACROS 263 UNKSBG 5645 S 3.7 05-28-96 080 YES * DOC FILE //* LOOK, DUDASD 264 UNKCBT 5732 S 3.7 02-28-06 080 YES * DOC FILE //* BFG LOGON EXIT 265 UNKSBG 9316 S 6.0 03-30-92 080 YES * DOC FILE //* SS0104 TAPE MAP 266 SBG 2429 S 1.9 07-25-04 080 YES * DOC FILE //* HETUTL Tape Pgm 267 SBG 61285 S 29.2 05-31-02 080 YES * DOC FILE //* REXX VSAM 268 UNKSBG 3650 S 2.3 03-09-03 080 YES * DOC FILE //* PL/I ADVENTR SRC 269 UNKSBG 5105 S 3.2 12-26-96 080 YES * DOC FILE //* WASH UTIL 270 UNKCBT 93371 S 48.6 10-27-98 080 YES * DOC FILE //* DYN PROCLIB 271 UNKCBT 6389 5.1 02-10-92 080 YES * DOC FILE //* VTAM LOGO 272 UNKCBT 829 .9 08-22-84 080 YES * DOC FILE //* TSO SEC JES2 273 UNKCBT 692 .9 08-22-84 080 YES * DOC FILE //* DYN PROCLIB V4 274 UNKSBG 7559 5.1 02-10-92 080 YES * DOC FILE //* HEDGES PROGRAMS 275 UNKSBG 2090 S 1.4 12-11-96 080 YES * DOC FILE //* CHECKSUM 276 SBG 245 S .1 12-11-96 080 YES * DOC FILE //* JCL SUBSTITUTION 277 UNKSBG 904 S .9 10-27-97 080 YES * DOC FILE //* SLSS SPF 278 UNKCBT 12186 9.7 05-17-88 080 YES * DOC FILE //* SLSS DOC 279 UNKCBT 4263 4.4 12-26-96 IEBCOPY NO* DOC FILE //* SCRIPT DOC 280 UNKCBT 17515 S 10.6 12-26-96 080 YES * DOC FILE //* SCRIPT LOD 281 UNKCBT 34 4.2 12-26-96 IEBCOPY NO* DOC FILE //* SCRIPT MAC 282 UNKCBT 28782 S 19.4 12-26-96 080 YES * DOC FILE //* SCRIPT MEMO 283 UNKCBT 17515 S 21.4 12-26-96 IEBCOPY NO* DOC FILE //* SCRIPT CODE 284 UNKCBT 7533 S 5.1 12-26-96 080 YES * DOC FILE //* SCRIPT HYPH 285 UNKCBT 2735 S 1.7 12-26-96 IEBCOPY NO* DOC FILE //* SCRIPT OBJ 286 UNKCBT 2760 S 3.2 12-26-96 080 YES * DOC FILE //* SCRIPT TSO 287 UNKCBT 3965 S 2.8 12-26-96 080 YES * DOC FILE //* SCRIP TSO PROMTR 288 UNKSBG 2147 S 1.4 12-26-96 080 YES * DOC FILE //* PTF XREF REPORTS 289 UNKSBG 2897 S 1.9 12-26-96 080 YES * DOC FILE //* GPSAM ACCES METH 290 UNKSBG 3561 S 2.3 12-30-96 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 1294 S .4 12-18-97 080 YES * DOC FILE //* CKIEBGEN program 293 SBG 1441 S .9 08-01-01 080 YES * DOC FILE //* VSAM ANALYZER 294 CBT 6331 4.2 10-13-94 080 YES * DOC FILE //* Dave Cole Essay 295 SBG 119 S .1 05-30-01 080 YES * DOC FILE //* TSO UTILITIES 296 UNKCBT 31692 S 19.9 07-17-05 080 YES * DOC FILE //* GRS ISPF-Cleary 297 UNKSBG 3916 S 2.3 11-15-04 080 YES * DOC FILE //* GTE - PUB 298 UNKCBT 15767 10.6 10-26-86 080 YES * DOC FILE //* TAPEMAP 299 CBT 10561 S 7.9 12-28-05 080 YES * DOC FILE //* MARSHALL TSOCP'S 300 CBT 188840 S111.1 07-17-05 080 YES * DOC FILE //* CDSCB RACROUTE 301 UNKSBG 1900 S 1.4 12-18-97 080 YES * DOC FILE //* LPA-LINKLST Info 302 UNKSBG 6011 S 3.7 08-23-00 080 YES * DOC FILE //* SIMTERM OS/390 303 UNKSBG 1435 S .9 12-18-97 080 YES * DOC FILE //* LSTVOL SOURCE 304 UNKSBG 4643 S 3.2 12-18-97 080 YES * DOC FILE //* LSTVOL ASMLINK 305 UNKSBG 1495 S 4.8 12-18-97 IEBCOPY NO* DOC FILE //* TSSO-SUBSYS 306 CBT 4632 S 3.2 05-16-91 080 YES * DOC FILE //* ASMH 2 HLASM PGM 307 UNKSBG 60 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 15143 S 9.7 01-20-98 080 YES * DOC FILE //* ALGOL LIBR SOURC 310 UNKSBG 10386 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 58554 S 51.4 02-28-06 080 YES * DOC FILE //* Lionel Dyck S-TS 313 UNKSBG 92344 S 71.3 07-17-05 080 YES * DOC FILE //* Lionel Dyck TX-Z 314 UNKSBG143140 S130.5 02-28-06 080 YES * DOC FILE //* DAVE LEES UTIL 315 UNKSBG 6454 S 3.7 11-27-03 080 YES * DOC FILE //* MARSHALL BATCH 316 CBT 110504 S 62.0 12-28-05 080 YES * DOC FILE //* BOOKMANAGER MGMT 317 UNKSBG 1631 S .9 05-29-98 080 YES * DOC FILE //* POFFLOAD PRINT 318 UNKSBG 1673 S 1.4 05-29-98 080 YES * DOC FILE //* SMF1415 USP 319 3.8 1283 .9 01-01-86 080 YES * DOC FILE //* DSS EXITS 320 SP13 1316 1.4 09-18-90 080 YES * DOC FILE //* COBOL ANALYZER 321 SBG 20266 S 12.5 07-17-05 080 YES * DOC FILE //* TSO SLEEP ETC. 322 UNKSBG 1015 S .9 08-01-01 080 YES * DOC FILE //* REXX FP - Samplb 323 UNKSBG 1260 S .9 08-10-99 080 YES * DOC FILE //* REXX FP - Load 324 UNKSBG 99 33.3 10-27-98 IEBCOPY NO* DOC FILE //* TSO CPS WELLS 325 UNKCBT 15563 9.3 10-04-87 080 YES * DOC FILE //* FORTRAN H 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 4485 S 3.2 05-29-98 080 YES * DOC FILE //* SCE JES2 EXIT 6 329 UNKSBG 5848 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 3604 2.8 04-02-01 080 YES * DOC FILE //* GZIP COMPRES JCL 333 SBG 3505 S 3.2 10-27-98 080 YES * DOC FILE //* GZIP SOURCE .H 334 N/A 962 S .9 05-29-98 080 YES * DOC FILE //* GZIP SOURCE .C 335 N/A 8338 S 4.6 10-27-98 080 YES * DOC FILE //* RICE UTILITIES 336 UNKCBT 30469 20.8 09-16-84 080 YES * DOC FILE //* GLOBAL MEM SERCH 337 UNKSBG 260 S .2 05-29-98 080 YES * DOC FILE //* P390 UTILITIES 338 SBG 2853 S 2.3 03-29-99 080 YES * DOC FILE //* JES2 #5 EXIT 339 UNKCBT 814 .5 11-30-87 080 YES * DOC FILE //* DCM 7980-3 REPT 340 UNKSBG 4578 S 2.3 10-27-98 080 YES * DOC FILE //* LOAD PGMS IN CSA 341 UNKSBG 3636 S 2.3 10-27-98 080 YES * DOC FILE //* MODEL 204 ISPF 342 UNKSBG 5330 S 3.2 10-27-98 080 YES * DOC FILE //* Kalinich VTOCLIS 343 UNKSBG 1671 S 1.4 07-17-03 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 3364 S 2.3 03-29-99 080 YES * DOC FILE //* PDS COPY ALPHABT 348 UNKSBG 683 S .4 11-23-99 080 YES * DOC FILE //* ISPF CMDTBL UPDT 349 UNKSBG 638 S .4 07-17-05 080 YES * DOC FILE //* WLM SCHENV= CNVT 350 UNKSBG 679 S .4 03-29-99 080 YES * DOC FILE //* LIST LE LVL COBL 351 UNKSBG 146 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 41867 23.6 12-07-89 080 YES * DOC FILE //* RANDY HALL PGMS 354 UNKSBG 54424 S 29.6 03-29-99 080 YES * DOC FILE //* KONCAT PROGRAM 355 UNKSBG 2053 S 1.4 03-29-99 080 YES * DOC FILE //* NETSOL VTAM SMGR 356 UNKSBG 7426 S 5.1 03-29-99 080 YES * DOC FILE //* Carl Hafner pgms 357 UNKSBG 87399 S 55.1 07-25-04 080 YES * DOC FILE //* SOUT SYSOUT WTR 358 UNKSBG 15696 S 10.6 11-27-03 080 YES * DOC FILE //* SYNTEX PGMS 359 UNKCBT 12695 8.3 03-31-87 080 YES * DOC FILE //* WSRCC UTILITIES 360 UNKCBT 20598 S 13.0 02-28-06 080 YES * DOC FILE //* JOHNSTON UTILS 361 UNKSBG 10807 S 7.4 05-22-00 080 YES * DOC FILE //* JOHNSTON LOADLIB 362 UNKSBG 6 1.9 05-22-00 IEBCOPY NO* DOC FILE //* ISPF NAME CHANGE 363 UNKSBG 664 S .4 03-29-99 080 YES * DOC FILE //* CONTROL CARD SUB 364 UNKSBG 2404 S 1.9 03-29-99 080 YES * DOC FILE //* XMIT ERROR-FREE 365 SBG 2419 S 1.4 08-10-99 080 YES * DOC FILE //* MARVIN SHAW PGMS 366 SBG 194 S .1 08-10-99 080 YES * DOC FILE //* ASCBS, TSO USERS 367 SBG 223 S .1 08-10-99 080 YES * DOC FILE //* J WILLIAMS UTILS 368 UNKSBG 3814 S 2.8 11-23-99 080 YES * DOC FILE //* PRC CODE 369 UNKCBT 26128 S 15.3 03-29-99 080 YES * DOC FILE //* IO COUNTS 370 UNKCBT 121 .1 06-26-90 080 YES * DOC FILE //* WASH LOAD 371 UNKCBT 95 26.6 08-19-94 IEBCOPY NO* DOC FILE //* MacKenz DYNALLOC 372 UNKSBG 767 S .4 11-23-99 080 YES * DOC FILE //* GTE TSO CP 373 UNKCBT 4000 2.8 06-12-83 080 YES * DOC FILE //* SAS PGMS FOR SMF 374 UNKSBG 10680 S 6.5 08-10-99 080 YES * DOC FILE //* OBJECTSTAR SMF 375 UNKSBG 2045 S .9 08-10-99 080 YES * DOC FILE //* ZDF-D.MARSDEN UT 376 UNKSBG 14439 S 8.3 08-10-99 080 YES * DOC FILE //* TCAS SUB=MSTR 377 UNKSBG 1152 S .9 08-10-99 080 YES * DOC FILE //* SORTTRAK 378 UNKSBG 987 S .9 08-10-99 080 YES * DOC FILE //* PROC XREF 379 CBT 3027 1.9 07-17-83 080 YES * DOC FILE //* McRitchie execs 380 UNKSBG 33783 S 20.4 11-17-02 080 YES * DOC FILE //* FIRST COMP SRVCS 381 UNKCBT 40493 25.9 12-12-88 080 YES * DOC FILE //* P.GILLIS UTILITS 382 UNKSBG 13256 S 7.9 11-23-99 080 YES * DOC FILE //* INTEL INFO 383 UNKCBT 7658 11.6 08-19-94 IEBCOPY NO* DOC FILE //* Overflow File297 384 UNKCBT 49 .1 07-17-03 080 YES * DOC FILE //* LPA COMPARE 385 CBT 469 .3 11-30-87 080 YES * DOC FILE //* CARRASCO PROGRMS 386 UNKSBG 6379 S 3.7 04-02-01 080 YES * DOC FILE //* Stony Brk Pascal 387 UNKSBG 36259 S 25.0 10-23-02 080 YES * DOC FILE //* SCHEDULER 388 UNKCBT 9339 6.9 10-12-86 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 21528 S 15.3 11-17-02 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 42142 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 66 S .1 11-23-99 080 YES * DOC FILE //* IBMMAC etc. 398 UNKSBG 2563 S 1.9 11-23-99 080 YES * DOC FILE //* TSSO MODS 399 UNKCBT 2644 1.8 05-01-87 080 YES * DOC FILE //* DYNAMASK 400 UNKCBT 11587 S 8.3 10-28-92 080 YES * DOC FILE //* 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 53764 S 32.4 07-17-05 080 YES * DOC FILE //* UTILITIES 405 UNKCBT 12454 9.3 04-01-86 080 YES * DOC FILE //* CQX FIND 406 SBG 865 S .9 04-02-01 080 YES * DOC FILE //* DYNAMIC BLDL 407 NWK 11255 S 8.8 10-24-90 080 YES * DOC FILE //* Dave Cole Macros 408 UNKCBT 25050 S 16.7 12-28-05 080 YES * DOC FILE //* R.Scott MXI FB80 409 SBG 19742 S 11.6 02-14-05 080 YES * DOC FILE //* R.Scott MXI Load 410 SBG 392 42.7 02-14-05 IEBCOPY NO* DOC FILE //* R.Scott Util Src 411 UNKSBG 7177 S 4.6 08-20-02 080 YES * DOC FILE //* R.Scott Util Lod 412 UNKSBG 14 3.8 08-20-02 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 765 S .5 04-02-01 080 YES * DOC FILE //* RPF by Rob Prins 415 SBG 69116 S 57.4 05-02-04 080 YES * DOC FILE //* DELUXE PGM 416 UNKCBT 3800 2.8 03-18-84 080 YES * DOC FILE //* RPF/E for OS/390 417 SBG 51359 S 38.0 05-02-04 080 YES * DOC FILE //* COMBINED Insurnc 418 UNKCBT 6048 3.7 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 24.2 08-10-99 IEBCOPY NO* DOC FILE //* XACORZAP 421 UNKCBT 4502 S 2.8 12-20-90 080 YES * DOC FILE //* MARQUARDT 422 UNKCBT 5985 2.3 07-21-89 080 YES * DOC FILE //* BROIDO CODE 423 SBG 7474 S 5.1 02-28-06 080 YES * DOC FILE //* VETAPE-DC 424 UNKCBT 529 .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 2700 2.3 08-29-85 080 YES * DOC FILE //* IHASTOW 427 CBTXA 96 .1 09-17-85 080 YES * DOC FILE //* ROCKWELL SHOW 428 UNKSBG 3309 2.3 11-24-93 080 YES * DOC FILE //* ALLERGAN UTIL 429 UNKCBT 5823 3.7 09-17-85 080 YES * DOC FILE //* MC EVOY UTIL 430 UNKCBT 5031 3.2 10-15-85 080 YES * DOC FILE //* Bacher Offerings 431 UNKSBG 75550 S 40.3 01-28-02 080 YES * DOC FILE //* T.Falissard Util 432 UNKSBG 26109 S 26.4 12-27-00 080 YES * DOC FILE //* Frank Clarke exc 433 UNKSBG 9430 S 5.1 04-14-02 080 YES * DOC FILE //* Mark Zelden util 434 SBG 35116 S 21.8 02-28-06 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 9647 S 6.5 02-22-00 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 8274 S 4.6 05-10-00 080 YES * DOC FILE //* Kimu Utilities 443 UNKSBG 14313 S 7.4 02-22-00 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 405 S .3 05-10-00 080 YES * DOC FILE //* ENQMON-Enhnc GRS 447 UNKSBG 585 S .4 01-28-02 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 26285 S 17.1 12-28-05 080 YES * DOC FILE //* MOINIL INDEX 453 UNKSBG 452 S .4 05-28-96 080 YES * DOC FILE //* MOINIL BASIC 454 UNKSBG 84422 S 52.8 08-01-00 080 YES * DOC FILE //* MOINIL COMPLEMNT 455 UNKSBG 48070 S 31.0 07-12-01 080 YES * DOC FILE //* MOINIL ADDITIONL 456 UNKSBG 63851 S 38.9 05-28-96 080 YES * DOC FILE //* MOINIL DEMO/GAME 457 UNKSBG 47956 S 28.7 08-01-00 080 YES * DOC FILE //* MOINIL CBT-EXTR 458 UNKSBG 99424 S 65.7 05-29-96 080 YES * DOC FILE //* MOINIL SUPPLEMNT 459 UNKSBG 18047 S 11.1 05-28-96 080 YES * DOC FILE //* ISPF GUIDE 460 UNKCBT 1289 .9 11-23-86 080 YES * DOC FILE //* ISPF GUIDE 461 UNKCBT 10236 5.1 11-23-86 080 YES * DOC FILE //* ISPF GUIDE 462 UNKCBT 2945 1.9 11-23-86 080 YES * DOC FILE //* ISPF GUIDE 463 UNKCBT 298 .2 11-23-86 080 YES * DOC FILE //* ISPF GUIDE 464 UNKCBT 26855 16.2 11-23-86 080 YES * DOC FILE //* ISPF GUIDE 465 UNKCBT 3737 2.8 11-23-86 080 YES * DOC FILE //* ISPF GUIDE 466 UNKCBT 472 .3 11-23-86 080 YES * DOC FILE //* ISPF GUIDE 467 UNKCBT 4510 2.8 11-23-86 080 YES * DOC FILE //* ISPF GUIDE 468 UNKCBT 2 .0 11-23-86 080 YES * DOC FILE //* ISPF GUIDE 469 UNKCBT 24507 16.2 11-23-86 080 YES * DOC FILE //* ISPF GUIDE 470 UNKCBT 2450 1.9 11-23-86 080 YES * DOC FILE //* ISPF GUIDE 471 UNKCBT 3867 2.8 11-23-86 080 YES * DOC FILE //* MURPHY 472 UNKCBT 8245 4.6 04-17-88 080 YES * DOC FILE //* CHKASVT program 473 SBG 248 S .2 08-01-00 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-Overflw 083 476 UNKSBG 229 S .2 03-09-03 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 2357 S 1.4 07-17-05 080 YES * DOC FILE //* Castilla Utl Src 480 UNKSBG 2266 S 1.4 09-01-00 080 YES * DOC FILE //* Castilla Loadmod 481 UNKSBG 15 1.5 09-01-00 IEBCOPY NO* DOC FILE //* GDGCOPY 482 UNKSBG 640 S .5 11-12-00 080 YES * DOC FILE //* Ramseier Utiltys 483 UNKSBG 9425 S 6.0 11-12-00 080 YES * DOC FILE //* Amdahl CACHEMAN 484 UNKSBG 10493 S 6.5 11-12-00 080 YES * DOC FILE //* Dissen VTAM Appl 485 UNKSBG 1901 S 1.4 02-03-02 080 YES * DOC FILE //* SETCLOCK program 486 UNKSBG 466 S .3 11-12-00 080 YES * DOC FILE //* Trap & VIEW TSO 487 SBG 60 S .1 12-27-00 080 YES * DOC FILE //* Iannone Prod Ctl 488 UNKSBG 29847 S 16.2 12-27-00 080 YES * DOC FILE //* Iannone Sh Med S 489 UNKSBG 6941 S 4.2 12-27-00 080 YES * DOC FILE //* INSTASM Rent Mac 490 UNKSBG 3794 S 1.9 07-17-05 080 YES * DOC FILE //* XMITMAIL 491 UNKSBG 17990 S 10.2 07-17-05 080 YES * DOC FILE //* SHOWMVS Schiradn 492 SBG 79777 S 46.7 12-28-05 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 12353 S 9.7 07-17-03 080 YES * DOC FILE //* TIOT REXX exec 496 SBG 442 S .3 01-25-01 080 YES * DOC FILE //* CSVLLIX1 exit 497 UNKSBG 1835 S 1.4 01-25-01 080 YES * DOC FILE //* Match-merge pgm 498 UNKSBG 10882 S 6.9 02-14-05 080 YES * DOC FILE //* Ed Ross Utilties 499 UNKSBG 29252 S 16.2 01-25-01 080 YES * DOC FILE //* Ed Ross Object 500 UNKSBG 317 S .3 01-25-01 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 502 S .3 04-02-01 080 YES * DOC FILE //* Web-enab SHOWMVS 509 UNKSBG 178 S .1 04-02-01 080 YES * DOC FILE //* IEBLIST-Paranhos 510 SBG 4575 S 2.8 04-02-01 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 9472 S 6.5 11-27-03 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 419 S .3 11-15-04 080 YES * DOC FILE //* TMS-VTS Audit 519 SBG 3241 S 2.3 07-12-01 080 YES * DOC FILE //* REXX Functions 520 UNKSBG 7243 S 4.2 07-25-04 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 12332 S 6.9 03-12-02 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 23652 S 23.6 07-12-01 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 10-30-01 080 YES * DOC FILE //* CICS SMF Stats 529 UNKSBG 23265 S 14.3 12-28-05 080 YES * DOC FILE //* Format PL/I pgms 530 UNKSBG 947 S .9 10-30-01 080 YES * DOC FILE //* Show OS390 info 531 UNKSBG 1547 S .9 12-11-01 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 14481 S 9.7 12-28-05 080 YES * DOC FILE //* SPACE command 534 SBG 18453 S 10.2 11-15-04 080 YES * DOC FILE //* CCAT Dyn Concat 535 UNKSBG 1976 S 1.4 12-11-01 080 YES * DOC FILE //* XDI XCOM-Dispach 536 UNKSBG 19478 S 13.9 12-11-01 080 YES * DOC FILE //* Macros 537 UNKSBG 902 S .9 12-11-01 080 YES * DOC FILE //* IPLtext for ZZSA 538 UNKSBG 496 s .9 12-11-01 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 24532 S 24.1 02-05-04 080 YES * DOC FILE //* RCNVTCAT & REXXs 542 UNKSBG 11516 S 8.3 02-05-04 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 29026 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 72542 S 48.1 07-08-02 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 8863 S 6.5 04-14-02 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 UNKSBG141003 S 89.8 12-17-02 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 20231 S 11.6 10-23-02 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 95239 S 43.5 07-17-05 080 YES * DOC FILE //* XMIT370, RECV370 571 UNKSBG 34613 S 22.7 11-17-02 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 MVS 3.8 582 UNKSBG 4080 S 3.2 07-08-02 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 5400 S 2.8 07-17-05 080 YES * DOC FILE //* KNUTH Assembler 590 UNKSBG 44126 S 21.8 10-02-02 080 YES * DOC FILE //* VM REXXFORM 591 UNKSBG 754 S .4 10-02-02 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 10-02-02 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 10-23-02 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 7362 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 61422 S 27.3 09-15-03 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 22116 S 14.8 01-12-03 080 YES * DOC FILE //* CHANGE71 & WTOR 610 UNKSBG 645 S .4 03-09-03 080 YES * DOC FILE //* Cond Job Submit 611 UNKSBG 1970 S .9 04-21-03 080 YES * DOC FILE //* DUDASD,DSPACE,et 612 UNKSBG 1791 S 1.4 09-15-03 080 YES * DOC FILE //* RESCUE Systm JCL 613 UNKSBG 805 S .5 03-09-03 080 YES * DOC FILE //* SHOWMVS Loadmods 614 SBG 11422 S 14.3 12-28-05 080 YES * DOC FILE //* DYNAL,ISPF maclb 615 UNKSBG 34829 S 21.8 03-09-03 080 YES * DOC FILE //* Nigel Thomas utl 616 UNKSBG 4673 S 2.8 03-09-03 080 YES * DOC FILE //* REXSMF30 617 UNKSBG 611 S 1.8 03-09-03 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 4382 S 2.8 11-27-03 080 YES * DOC FILE //* MATRIX dataspace 622 UNKSBG 19056 S 16.2 04-21-03 080 YES * DOC FILE //* Zhou Sys Shutdwn 623 UNKSBG 3366 S 2.3 02-05-04 080 YES * DOC FILE //* FIND datasets 624 SBG 796 S .4 06-15-03 080 YES * DOC FILE //* FIXCAT recatalog 625 UNKSBG 328 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 518 S .3 02-14-05 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 1249 S .9 07-25-04 080 YES * DOC FILE //* List UCBs 634 SBG 523 S .4 06-15-03 080 YES * DOC FILE //* RENAMEF exec 635 SBG 136 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 3685 S 2.3 11-15-04 080 YES * DOC FILE //* SETHOUR 639 SBG 2996 S 1.9 05-02-04 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 1714 S 1.4 07-17-03 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 3474 S 1.9 09-15-03 080 YES * DOC FILE //* XML Parser 647 UNKSBG 3897 S 2.3 12-28-05 080 YES * DOC FILE //* GPSAM Subsystem 648 SBG 3618 S 2.8 09-15-03 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 1991 S 1.4 11-27-03 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 260 S .2 02-05-04 080 YES * DOC FILE //* P390 DASD 659 UNKSBG 54957 S 72.7 02-05-04 080 YES * DOC FILE //* REXX Checker 660 SBG 383 S .3 02-05-04 080 YES * DOC FILE //* HOTRDR 661 UNKSBG 1099 S .9 02-05-04 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 4228 S 2.3 05-02-04 080 YES * DOC FILE //* Save REXX varbls 669 UNKSBG 4652 S 2.3 11-15-04 080 YES * DOC FILE //* REXX math functs 670 UNKSBG 3327 S 2.3 05-02-04 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 07-25-04 080 YES * DOC FILE //* BPXSTOP 683 UNKSBG 327 S .2 07-25-04 080 YES * DOC FILE //* Fochtman PDSUPDT 684 UNKSBG 6891 S 4.6 07-25-04 080 YES * DOC FILE //* TXT2XML 685 UNKSBG 40763 S 37.0 07-17-05 080 YES * DOC FILE //* SMFDUMP 686 UNKSBG 616 S .4 11-15-04 080 YES * DOC FILE //* VVDS Catlg names 687 SBG 440 S .3 11-15-04 080 YES * DOC FILE //* DBRC INIT cmds 688 UNKSBG 36168 S 25.9 07-17-05 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 3711 S 2.3 12-28-05 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 11-15-04 080 YES * DOC FILE //* z/OS tape FLEXES 696 UNKSBG 974 S 1.4 11-15-04 080 YES * DOC FILE //* CICS rept/Linux 697 UNKSBG 1264 S 1.8 11-15-04 080 YES * DOC FILE //* RACF rept/Linux 698 UNKSBG 14199 S 18.5 11-15-04 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 20165 S 13.0 12-28-05 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 8338 S 6.0 12-28-05 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-14-05 080 YES * DOC FILE //* Librarian 711 UNKSBG 28555 S 16.2 02-28-06 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 924 S .9 07-17-05 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 597 S .9 02-28-06 080 YES * DOC FILE //* JumpList 717 SBG 5843 S 6.5 02-28-06 080 YES * DOC FILE //* TSO Logon Exits 718 UNKSBG 1032 S .9 07-17-05 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 1829 S 1.4 12-28-05 080 YES * DOC FILE //* CICS Aux Tr Anlz 725 UNKSBG 4373 S 2.8 12-28-05 080 YES * DOC FILE //* VSAM Define Redo 726 SBG 1243 S .9 12-28-05 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 //* EESCB,CINMX,etc. 731 SBG 4361 S 2.8 02-28-06 080 YES * DOC FILE //* WHOHAS 732 SBG 561 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 4568 S 2.8 02-28-06 080 YES * DOC FILE //* Barthold Editmac 735 UNKSBG 779 S .4 02-28-06 080 YES * DOC FILE //* IODF Display 736 UNKSBG 8400 S 3.2 02-28-06 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 5929 S 3.2 02-28-06 080 YES * DOC FILE //* ISPF Cmd Tables 739 SBG 8088 S 5.6 02-28-06 080 YES * DOC FILE //* REXX to run SQL 740 UNKSBG 2999 S 1.9 02-28-06 080 YES * DOC FILE //* EMPTY 741 N/A 1 .0 02-20-06 080 YES * DOC FILE //* EMPTY 742 N/A 1 .0 02-20-06 080 YES * DOC FILE //* EMPTY 743 N/A 1 .0 02-20-06 080 YES * DOC FILE //* EMPTY 744 N/A 1 .0 02-20-06 080 YES * DOC FILE //* EMPTY 745 N/A 1 .0 02-20-06 080 YES * DOC FILE //* EMPTY 746 N/A 1 .0 02-20-06 080 YES * DOC FILE //* EMPTY 747 N/A 1 .0 02-20-06 080 YES * DOC FILE //* EMPTY 748 N/A 1 .0 02-20-06 080 YES * DOC FILE //* EMPTY 749 N/A 1 .0 02-20-06 080 YES * DOC FILE //* EMPTY 750 N/A 1 .0 02-20-06 080 YES * DOC FILE //* TOTAL FOOTAGE 5653.2 * DOC FILE //* * DOC FILE //* * DOC FILE //* 472,475 -121,267 = 370,742 * DOC FILE //* 370,742 - 0 = 370,742 * DOC FILE //* 370,742 - 11,334 = 359,408 * DOC FILE //* 359,408 - 19,850 = 339,558 * DOC FILE //* 339,558 - 5,315 = 334,343 * DOC FILE //* 334,343 - 4,002 = 330,341 * DOC FILE //* 330,341 - 5,100 = 325,241 * DOC FILE //* 325,241 - 36,734 = 288,507 * DOC FILE //* 288,507 -100,793 = 187,714 * DOC FILE //* 187,714 - 28,058 = 159,657 * DOC FILE //* 159,657 - 862 = 158,795 * DOC FILE //* 158,795 - 7,135 = 151,660 * DOC FILE //* 151,660 - 22,228 = 129,432 * DOC FILE //* 129,432 - 9,431 = 120,001 * DOC FILE //* 120,001 - 1,180 = 118,821 * DOC FILE //* 118,812 - 56 = 118,756 * DOC FILE //* 118,812 - 8,305 = 110,451 * DOC FILE //* 110,451 - 13,309 = 97,142 * DOC FILE //* * DOC FILE //* | * DOC FILE //* TOTAL 2,557,060 09-18-90 * DOC FILE //* * DOC FILE //* TOTAL 2,543,751 08-13-90 * DOC FILE //* TOTAL 2,494,554 12-07-89 * DOC FILE //* TOTAL 2,123,762 12-12-88 * DOC FILE //* TOTAL 2,171,666 12-15-87 * DOC FILE //* TOTAL 2,621,626 05-01-87 * DOC FILE //* TOTAL 2,561,579 12-09-86 * DOC FILE //* TOTAL 2,435,737 12-01-85 * DOC FILE //* TOTAL 2,204,618 12-09-84 * DOC FILE //* TOTAL 1,713,679 11-27-83 * DOC FILE //* TOTAL 1,428,194 12-19-82 * DOC FILE //* TOTAL 1,012,951 12-30-81 * DOC FILE //* TOTAL 626,341 12-07-80 * DOC FILE //* TOTAL 404,140 12-02-79 * DOC FILE //* TOTAL 251,078 12-03-78 * DOC FILE //* TOTAL 120,602 12-20-77 * DOC FILE //* TOTAL 77,558 12-26-76 * DOC FILE //* TOTAL 48,408 07-24-76 * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //***SECTION OFFLOAD SECTION * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* O F F L O A D S E C T I O N * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* Many of the files on this tape were created using the Yale * DOC FILE //* OFFLOAD program (File 093). When the OFFLOAD program finds * DOC FILE //* data records in a pds that look like IEBUPDTE control cards * DOC FILE //* (i.e. './' ) it substitues a >< for an ' ./ '. * DOC FILE //* * DOC FILE //* I currently use the LISTPDS program nowadays instead of * DOC FILE //* OFFLOAD. Note that the LISTPDS program from File 316 can * DOC FILE //* do the same thing, and it can also preserve ISPF stats in * DOC FILE //* the control card. The ISPF stats can be restored using * DOC FILE //* the PDSLOAD program from File 093. OFFLOAD and PDSLOAD * DOC FILE //* have recently been modified by Greg Price to have paired * DOC FILE //* functionality, and OFFLOAD will also produce ISPF stats in * DOC FILE //* the "IEBUPDTE" control cards if they existed for the pds * DOC FILE //* member. (SG. 10/93) * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* OFFLOAD FORMAT ---- (ERGO ' ./ ' * DOC FILE //* CONTROL CARDS HAVE BEEN CONVERTED TO ' >< ' * DOC FILE //* AND YOU WILL HAVE TO ISSUE A GLOBAL CHANGE TO * DOC FILE //* CONVERT >< TO ./ BEFORE YOU USE THESE MEMBER AS * DOC FILE //* SYSIN INPUT TO IEBUPDTE.) * DOC FILE //* * DOC FILE //* *** FIRST TAKE THE WHOLE FILE AND IEBUPDTE IT TO A DATASET * DOC FILE //* THEN EDIT EACH OF THE FOLLOWING MEMBERS AND DO YOUR * DOC FILE //* GLOBAL CHANGE BEFORE YOU DO ANOTHER IEBUPDTE RUN FOR * DOC FILE //* EACH OF THE FOLLOWING TO ITS OWN UNIQUE PDS. *** * DOC FILE //* * DOC FILE //* THE PDSLOAD PROGRAM FROM FILE 093 WILL CHANGE >< TO ./ * DOC FILE //* AUTOMATICALLY. SEE THE JCL IN FILE 003 OF THIS TAPE * DOC FILE //* IN PROC "UPDATEO" DESCRIBING THE USE OF PDSLOAD IN PLACE * DOC FILE //* OF IEBUPDTE. * DOC FILE //* * DOC FILE //* Files which are in IEBUPDTE SYSIN format may have been * DOC FILE //* accessed by OFFLOAD at one time or another and hence may * DOC FILE //* have >< substitued for an ./ * DOC FILE //* * DOC FILE //* Most every file on the tape that is in IEBUPDTE SYSIN * DOC FILE //* format has probably been processed by OFFLOAD or * DOC FILE //* by LISTPDS. * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //***SECTION EMPTY FILE SECTION * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* E M P T Y F I L E S E C T I O N * DOC FILE //* * DOC FILE //******************************************************************* DOC FILE //* * DOC FILE //* The following files are currently empty: * DOC FILE //* * DOC FILE //* 186 * DOC FILE //* 741 - 750 * 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 //* VERSION 472 ? - , , 750 * DOC FILE //* VERSION 473 ? - , , 750 * DOC FILE //* * DOC FILE //* * DOC FILE //* 001 VERSION 249 * JUL 05, 1985 49 2,362,266 460 * DOC FILE //* 002 * DOC FILE //* * DOC FILE //*|***************************************************************** DOC FILE //***SECTION CROSS XREF SECTION * DOC FILE //*|***************************************************************** DOC FILE //*| * DOC FILE //*| C R O S S - X R E F S E C T I O N * DOC FILE //*| * DOC FILE //*|***************************************************************** DOC FILE //*| The following section will add some Cross-Reference info * DOC FILE //*| about certain files which need other files. We have tried * DOC FILE //*| to list dependencies only for files which have dependencies, * DOC FILE //*| but we are not guaranteeing that we have found all of them. * DOC FILE //*| * DOC FILE //*| I am not making an effort to keep this information exactly * DOC FILE //*| up to date, and it is just GENERALLY true, not absolutely * DOC FILE //*| true. (SG - 03/99) * DOC FILE //*| * DOC FILE //*| IF A FILE'S INFORMATION SEEMS INCOMPLETE, IT IS UP TO YOU * DOC FILE //*| TO SEE IF YOU CAN FIND WHATEVER OTHER MATERIAL IT NEEDS. * DOC FILE //*| IF YOU MAP THIS TAPE WITH THE TAPEMAP PROGRAM FROM FILE 299, * DOC FILE //*| AND SEARCH THE SYSPRNT2 LISTING, THIS MAY HELP, BECAUSE IT * DOC FILE //*| LISTS ALL MEMBER NAMES AND "IEBUPDTE-EMBEDDED" MEMBER NAMES * DOC FILE //*| FOR ALL FILES ON THE TAPE WHICH ARE IN IEBUPDTE-COMPRESSED * DOC FILE //*| FORMAT. TAPEMAP ALSO LISTS ALL MEMBER NAMES FOR FILES IN * DOC FILE //*| IEBCOPY FORMAT. SO IT IS POSSIBLE THAT YOU MAY FIND WHAT * DOC FILE //*| YOU ARE LOOKING FOR, BUT IT IS NOT GUARANTEED TO BE THE * DOC FILE //*| PROPER VERSION, IF YOU USE THIS METHOD, BECAUSE IT ONLY SHOWS * DOC FILE //*| NAMES, AND NOT OTHER INFORMATION. * DOC FILE //*| * DOC FILE //*| PLEASE ADVISE ME IF YOU FIND OUT ABOUT MISSING MATERIALS, * DOC FILE //*| OR IF YOU THINK THERE IS ANYTHING ELSE ABOUT THIS TAPE THAT * DOC FILE //*| NEEDS IMPROVEMENT: * DOC FILE //*| * DOC FILE //*| Sam Golob - P.O. Box 906 * DOC FILE //*| Tallman, NY 10982-0906 * DOC FILE //*| email - sbgolob@attglobal.net * DOC FILE //*| 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 is distributed on 3480 IDRC cartridges <<< * DOC FILE //* >>> and <<< * DOC FILE //* >>> has code that pertains to MVS <<< * DOC FILE //* >>> <<< * DOC FILE //* >>> Online address: www.cbttape.org <<< * DOC FILE //* >>> <<< * DOC FILE //* >>> = = = = = = = = = = = = = = = = = = = = = = = = = = = = <<< * DOC FILE //* * DOC FILE //* * DOC FILE //***FILE 001 IS THE JCL THAT CREATED THIS TAPE (YOU ARE * FILE 001 //* READING IT NOW) * FILE 001 //* * FILE 001 //* Please see the assembler program called CBTUPD * FILE 001 //* that is on File 004 and on File 006. This program * FILE 001 //* will introduce ./ ADD NAME= cards into this file, * FILE 001 //* so that it can be conveniently broken up into * FILE 001 //* members of a partitioned dataset, and it may be * FILE 001 //* read in more "bite-sized" pieces. * FILE 001 //* * FILE 001 //* There are also some more tools for handling this * FILE 001 //* documentation, which may be found on File 006. * FILE 001 //* * FILE 001 //* SUNGARD * FILE 001 //* * FILE 001 //* THE FOLLOWING IS A COMMENT FROM MR ARTHUR TANSKY * FILE 001 //* OF SUNGARD IN VOORHEES, NEW JERSEY. IT MAY BE TO * FILE 001 //* YOUR ADVANTAGE TO FOLLOW HIS ADVICE. * FILE 001 //* * FILE 001 //* TO KEEP FILE 001 FROM TAKING UP SO MUCH ROOM, YOU * FILE 001 //* CAN EDIT OUT CERTAIN OF THE BEGINNING LINES WHICH * FILE 001 //* ARE SELDOM USED (SUCH AS THE ADDRESS). BUT THIS * FILE 001 //* DOES NOT SAVE TOO MUCH. THE REAL SAVINGS COMES * FILE 001 //* WHEN YOU GET RID OF THE //* AT THE BEGINNING OF * FILE 001 //* EACH LINE AND ESPECIALLY THE * AT THE END OF EACH * FILE 001 //* LINE. YOU CAN USE SPF TO COPY THE DATASET TO A VB * FILE 001 //* FILE. THE FILE TAKES UP 34 3380 TRACKS (BLOCKED * FILE 001 //* AT 9040) IN FIXED FORMAT AND ONLY 20 TRACKS VB AT * FILE 001 //* 9076. THIS SAVINGS OF 14 TRACKS ALSO TRANSLATES * FILE 001 //* TO CPU-TIME AND REAL-TIME WHEN SEARCHING THE FILE, * FILE 001 //* IN THAT THERE ARE THAT MANY LESS BYTES TO SEARCH. * FILE 001 //* MR TANSKY'S CALCULATIONS SHOW A 40% SAVINGS. * FILE 001 //* * FILE 001 //* WE, HOWEVER, WILL NOT CHANGE THE FILE, SINCE * FILE 001 //* FILE 001 IS USED AS INPUT TO FILE 042 OF THIS * FILE 001 //* TAPE, WHICH IS USED TO CREATE THE INPUT TO AN * FILE 001 //* INFOMVS DATA BASE. * FILE 001 //* * FILE 001 //***FILE 002 COMPRESSION / DECOMPRESSION program for this * FILE 002 //* tape. This is the code used for compression and * FILE 002 //* decompression of many of the files in this tape. * FILE 002 //* The official name of this program is CBT973, and * FILE 002 //* I would recommend assembling and linkediting this * FILE 002 //* program, and making its load module available at * FILE 002 //* all times in your installation. The load module * FILE 002 //* for CBT973 may also be found on File 035 of this * FILE 002 //* tape. * FILE 002 //* * FILE 002 //* The JCL for loading files from this tape on to * FILE 002 //* disk, may be found in File 003. This JCL is set * FILE 002 //* up to ASSEMBLE and LOAD the CBT973 program with * FILE 002 //* every run. When you customize a copy of File 003 * FILE 002 //* for yourself, you might use your own linkedited * FILE 002 //* copy of the load module, and not have to assemble * FILE 002 //* it for every run. * FILE 002 //* * FILE 002 //***FILE 003 is a JCL stream with instream procs to drop down * FILE 003 //* this whole mods tape (except files that have been * FILE 003 //* deleted) to a disk pack (if you happen to have the * FILE 003 //* luxury of having a disk pack lying around doing * FILE 003 //* nothing). * FILE 003 //* * FILE 003 //* I'd personally recommend customizing a copy of this * FILE 003 //* file, to download a few files at a time. Keep the * FILE 003 //* original copy around, so you know the "unload format" * FILE 003 //* of whatever file you want to get from the tape. * FILE 003 //* * FILE 003 //* AS OF VERSION 323, NEW FILES ARE BEING STORED ON * FILE 003 //* THIS TAPE WITH ISPF STATISTICS RELOADABLE. YOU * FILE 003 //* MUST USE THE PDSLOAD PROGRAM JCL IN FILE 003 * FILE 003 //* INSTEAD OF IEBUPDTE TO GET THE STATISTICS INTO YOUR * FILE 003 //* LOADED SOURCE PDS'ES. A LOAD MODULE FOR PDSLOAD IS * FILE 003 //* ON FILE 035 (SOURCE ON FILE 093). INSTRUCTIONS ON * FILE 003 //* HOW TO USE PDSLOAD INSTEAD OF IEBUPDTE ARE INCLUDED * FILE 003 //* IN THE NEW COMMENTS IN FILE 003. THOSE FILES THAT * FILE 003 //* HAVE ISPF STATS INCLUDED ARE MARKED IN THE "FILE * FILE 003 //* STATUS SECTION" ABOVE, WITH AN "S" NEAR TO THE * FILE 003 //* COUNT OF THE NUMBER OF RECORDS. * FILE 003 //* * FILE 003 //***FILE 004 is source for an assembler program called CBTUPD. * FILE 004 //* CBTUPD inserts ./ ADD NAME=xxxxxxxx cards into * FILE 004 //* File 001 of this tape, so the tape documentation, * FILE 004 //* which is very large, can be broken up into a pds, * FILE 004 //* with smaller pieces as members. * FILE 004 //* * FILE 004 //* After making a copy of this file with the extra * FILE 004 //* separator cards, using the CBTUPD program, you can * FILE 004 //* then use the PDSLOAD or IEBUPDTE programs to load * FILE 004 //* a partitioned dataset with the appropriate * FILE 004 //* members. Member names are in their original order, * FILE 004 //* using the EBCDIC collating sequence. * FILE 004 //* * FILE 004 //* The member names inserted, are in alphabetical * FILE 004 //* order, so that when you re-constitute the File 001 * FILE 004 //* with the OFFLOAD or LISTPDS programs, or with the * FILE 004 //* =OFFLOAD subcommand of REVIEW, etc, the members * FILE 004 //* will go back together in the proper order. * FILE 004 //* * FILE 004 //* Questions: email sbgolob@attglobal.net * FILE 004 //* or sbgolob@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 OCALA, FLORIDA, AND * FILE 005 //* CONTAINS A REXX EXEC TO LOAD THIS TAPE ONTO A * FILE 005 //* VM SYSTEM. * FILE 005 //* * FILE 005 //* MODULE NAME: CBTTAPE EXEC * FILE 005 //* * FILE 005 //* AUTHOR: GEORGE SHEDLOCK JR. * FILE 005 //* 4479 SW 159TH ST RD * FILE 005 //* OCALA, FL 34473 * FILE 005 //* (352) 347-3868 * FILE 005 //* * FILE 005 //* email: gshedloc@chepusa.com * FILE 005 //* * FILE 005 //* VERSION: 1.1 (I DON'T LIKE VERSION 1.0 SINCE IT * FILE 005 //* IMPLIES A LOT OF BUGS ARE STILL IN THERE * FILE 005 //* WAITING TO BE DISCOVERED.) * FILE 005 //* * FILE 005 //* PURPOSE: THIS REXX EXEC WAS WRITTEN BECAUSE I MADE * FILE 005 //* THE MISTAKE OF TELLING SAM GOLOB THAT IT * FILE 005 //* WOULDN'T BE HARD TO WRITE SOMETHING LIKE * FILE 005 //* THIS SINCE I HAD MOST OF THE PIECES AND * FILE 005 //* JUST HAD TO PUT THEM TOGETHER. WELL, HERE * FILE 005 //* IT IS... 3 YEARS, 1100 MILES (I MOVED * FILE 005 //* FROM NEW JERSEY), AND A LOT OF DESERVED * FILE 005 //* NAGGING FROM SAM. IF THIS IS OF SOME VALUE * FILE 005 //* TO YOU, GREAT. IF THIS IS OF NO VALUE TO * FILE 005 //* YOU, YOU'RE WELCOME TO WRITE SOMETHING OF * FILE 005 //* YOUR OWN. FEEL FREE TO MODIFY THIS TO SUIT * FILE 005 //* YOUR NEEDS. IF YOU MODIFY THIS, PLEASE * FILE 005 //* SEND ME A COPY SO THAT IT CAN BE SHARED * FILE 005 //* WITH OTHERS. * FILE 005 //* * FILE 005 //* THIS EXEC WILL ALLOW THE VM SITE A WAY * FILE 005 //* TO PROCESS THE CBT TAPE IN THE NATIVE * FILE 005 //* VM ENVIRONMENT. THIS IS MAINLY BECAUSE * FILE 005 //* THERE ARE A LOT OF REALLY GOOD PROGRAMS, * FILE 005 //* MACROS, ETC. ON THIS TAPE. WELL, OK * FILE 005 //* THERE ARE SOME SO-SO PROGRAMS ALSO, BUT * FILE 005 //* MOST OF IT IS GOOD. INCLUDED IN THIS * FILE 005 //* FILE IS A PROGRAM I FOUND IN MY TRAVELS * FILE 005 //* ON THE INTERNET SOME YEARS AGO. IF I * FILE 005 //* COULD REMEMBER WHO WROTE IT OR WHERE I * FILE 005 //* FOUND IT, I WOULD GLADLY GIVE THE PROPER * FILE 005 //* CREDIT. THIS PROGRAM IS THE IEBCOPY * FILE 005 //* PROGRAM. ALTHOUGH IT WILL ONLY LOAD OR * FILE 005 //* LIST THE MODULES FROM THE TAPE, IT IS * FILE 005 //* STILL A GOOD LITTLE UTILITY. * FILE 005 //* * FILE 005 //* INITIAL SETUP: * FILE 005 //* SP PUN * CL K * FILE 005 //* TAPE REW * FILE 005 //* TAPE FSF 4 * FILE 005 //* FI INMOVE TAP1 (RECFM FB LRECL 80 BLOCK 80 * FILE 005 //* FI OUTFILE PUNCH (RECFM FB LRECL 80 BLOCK 80 * FILE 005 //* MOVEFILE * FILE 005 //* CL PUN * FILE 005 //* SP RDR CL K * FILE 005 //* READCARD * * * FILE 005 //* CBTTAPE 402 SETUP A 3390 * FILE 005 //* * FILE 005 //* NOTE: IT IS ASSUMED THAT THE CBT TAPE IS MOUNTED * FILE 005 //* ON YOUR 181 * FILE 005 //* IN THE CBTTAPE COMMAND, IF 402 IS THE CBT * FILE 005 //* VERSION, SETUP TELLS IT TO LOAD THE * FILE 005 //* APPROPRIATE FILES FROM THE CBT TAPE, ASSEMBLE * FILE 005 //* THEM AND GENERATE LOAD MODULES. IN ADDITION * FILE 005 //* SETUP WILL ALSO CREATE AN INDEX OF THE CBT * FILE 005 //* TAPE SO THAT FUTURE RETRIEVALS WILL BE EASIER. * FILE 005 //* * FILE 005 //* ON-GOING USAGE: * FILE 005 //* CBTTAPE 402 FILENO TARGET DISKTYPE * FILE 005 //* * FILE 005 //* NOTE: IT IS ASSUMED THAT THE CBT TAPE IS MOUNTED * FILE 005 //* ON YOUR 181. THE 402 IS AGAIN THE CBT VERSION, * FILE 005 //* FILENO IS THE FILE NUMBER YOU WANT TO LOAD, * FILE 005 //* TARGET IS THE FILEMODE OF THE DISK THAT WILL * FILE 005 //* RECEIVE THE EXTRACTED MODULES, AND DISKTYPE * FILE 005 //* IS THE DEVICE TYPE TO USE FOR SOME T-DISK * FILE 005 //* (SOMETIMES WE NEED A LITTLE WORK SPACE) * FILE 005 //* * FILE 005 //* EXAMPLE: * FILE 005 //* CBTTAPE 402 122 R 3390 * FILE 005 //* THIS WILL GET, IF WE NEED IT, 5 CYLINDERS * FILE 005 //* OF T-DISK ON A 3390, AND LOAD FILE 122 * FILE 005 //* FROM CBT VERSION 402 TO THE R MINIDISK. * FILE 005 //* * FILE 005 //* REQUIRED FILES: * FILE 005 //* CBTTAPE EXEC (THIS FILE) * FILE 005 //* CBT973 ASSEMBLE (FROM FILE 002 OF THE CBT TAPE) * FILE 005 //* IEBCOPY ASSEMBLE (FROM ELSEWHERE IN THIS FILE) * FILE 005 //* IEBCOPY HELP (FROM ELSEWHERE IN THIS FILE) * FILE 005 //* * FILE 005 //***FILE 006 CONTAINS SEVERAL PROGRAMS USED FOR MANIPULATION OF * FILE 006 //* THE CBT TAPE AND CBT OVERFLOW TAPE DOCUMENTATION. * FILE 006 //* * FILE 006 //* The program called CBTUPD is for the purpose of * FILE 006 //* introducing appropriately named ./ ADD NAME= cards * FILE 006 //* into strategic places of the CBT Tape Documentation. * FILE 006 //* The CBT Tape doc can then be conveniently broken * FILE 006 //* up into a pds. The member names of the pds are * FILE 006 //* in collating sequence order (EBCDIC), so that the * FILE 006 //* members can be put back together as a sequential * FILE 006 //* file, in their proper order. * FILE 006 //* * FILE 006 //* The program called DOCFILE is from Arnold Casinghino * FILE 006 //* and it puts the indicators in columns 73-80 of the * FILE 006 //* CBT Tape documentation, to indicate your current * FILE 006 //* position within the documentation. * FILE 006 //* * FILE 006 //* The original idea of the DOCFILE program is from * FILE 006 //* a COBOL program written by Sam Barr of Northrop. * FILE 006 //* * FILE 006 //* DOCFILE has been updated by Sam Golob (03/99) to * FILE 006 //* take into account the fact that there may be lower * FILE 006 //* case characters in the CBT Tape Documentation * FILE 006 //* nowadays. * FILE 006 //* * FILE 006 //* 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. * FILE 006 //* * FILE 006 //* This file was moved from File 130 and the former * FILE 006 //* File 006 was moved to File 130. The reason for * FILE 006 //* that, was that this file should be near the * FILE 006 //* beginning of the CBT Tape, since it is used to * FILE 006 //* process the CBT Tape Documentation File. * FILE 006 //* * FILE 006 //* (Actually both of them are. I just put this file * FILE 006 //* more "forward", because I think more people are * FILE 006 //* going to use it. File 130 is for loading the * FILE 006 //* CBT documentation into an INFO/MVS database.) * FILE 006 //* * FILE 006 //* I've included the OSTARXMT package in this file * FILE 006 //* to make it more available. Documentation for * FILE 006 //* running this package is in File 365. The load * FILE 006 //* module for the OSTAREDC assembler program to * FILE 006 //* speed up error checking, is in File 035. If you * FILE 006 //* get CBT Tape files in OSTARXMT format (LRECL=88), * FILE 006 //* the presence of the OSTARREC exec here, will make * FILE 006 //* it easier for you to handle this format. Just * FILE 006 //* copy OSTARREC into your SYSPROC or SYSEXEC library * FILE 006 //* and invoke it, against your .XMT files. * FILE 006 //* * FILE 006 //* Note: This file also contains copies of the ISPF Edit * FILE 006 //* Macros CBTUPDTE and COVUPDTE, which are used * FILE 006 //* to introduce ./ ADD NAME= cards into the CBT Tape * FILE 006 //* and CBT Overflow Tape documentation files. That * FILE 006 //* will allow them to be converted into partitioned * FILE 006 //* datasets, using IEBUPDTE ,PARM=NEW , or PDSLOAD * FILE 006 //* programs. * FILE 006 //* * FILE 006 //* However, the CBTUPD assembler program supersedes * FILE 006 //* these two edit macros, because it is more accurate * FILE 006 //* in checking where to insert the ./ ADD cards, * FILE 006 //* and is less prone to some other errors. * FILE 006 //* * FILE 006 //* As of CBTUPD Version 1.3 (or higher), the changes * FILE 006 //* for each version of the tape are separated out as * FILE 006 //* distinct members, sorted in reverse order. None of * FILE 006 //* the edit macros did that job, so CBTUPD is distinctly * FILE 006 //* better than the CBTUPDTE edit macro. * FILE 006 //* * FILE 006 //* Version 1.3 of the CBTUPD program was developed and * FILE 006 //* tested on the IBM PC using the Tachyon Cross * FILE 006 //* Assembler and the Tachyon Operating System. This * FILE 006 //* is a vendor product from Tachyon Software, Denver * FILE 006 //* Colorado, 1-303-722-1341. * FILE 006 //* www.tachyonsoft.com/tachyon * FILE 006 //* This product allows you to develop MVS assembler * FILE 006 //* programs on an IBM PC, test them on the PC, and * FILE 006 //* port them to MVS. The object deck produced by * FILE 006 //* the Tachyon Assembler is compatible with HLASM. * FILE 006 //* * FILE 006 //* 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. * FILE 006 //* * FILE 006 //***FILE 007 is a copy of the SHARE RACF Mods Tape from Jim * FILE 007 //* Blalock of Clemson University in Anderson, South * FILE 007 //* Carolina. This file is in IEBUPDTE SYSIN format. * FILE 007 //* For additional information, see the members called * FILE 007 //* $$$DOC AND $$INDEX. * FILE 007 //* * FILE 007 //* email: carey@clemson.edu * FILE 007 //* * FILE 007 //* SETPW2 fixed to correct a bug, by Harvey Wachtel of * FILE 007 //* CUNY (City University of New York). SETPW2A added, * FILE 007 //* to require some more RACF authority to reset the * FILE 007 //* passwords. * FILE 007 //* * FILE 007 //* email: babybaby@uapc.cuny.edu * FILE 007 //* * FILE 007 //***FILE 008 THIS WAS FOR ARNIE'S USE TO SHOW SOME STATS. THE * FILE 008 //* LENGTH OF HIS RUNS, EXACT FOOTAGES, AND BYTE COUNTS * FILE 008 //* ARE PRETTY MUCH WHAT HE HAS HERE. ARNIE'S DATA ON * FILE 008 //* THIS FILE EXTENDS THROUGH VERSION 320 OF THIS TAPE. * FILE 008 //* ARNIE SUPPORTED THIS TAPE THROUGH VERSION 321. * FILE 008 //* * FILE 008 //* IN THE FUTURE, I MAY MAKE SIMILAR USE OF THIS FILE, * FILE 008 //* BUT SOME OF ITS INFORMATION IS NOW BEING REPORTED * FILE 008 //* ABOVE IN THE VERSION SECTION. IN PARTICULAR, EXACT * FILE 008 //* FOOTAGES AND BYTE COUNTS FOR VERSIONS 321 AND BEYOND * FILE 008 //* ARE RECORDED ABOVE IN THE VERSION SECTION. TO SEE * FILE 008 //* HOW THIS TAPE HAS GROWN (FLUCTUATED), YOU CAN LOOK * FILE 008 //* AT THE DATA RECORDED HERE ON THIS FILE, AND CONTINUE * FILE 008 //* BY LOOKING AT THE END OF THE VERSION SECTION ABOVE. * FILE 008 //* * FILE 008 //***FILE 009 IS FROM MR GENE LEW OF MCI OF ROCKVILLE, MARYLAND * FILE 009 //* AND CONTAINS A COPY OF THEIR RACF EXITS TO * FILE 009 //* IMPLEMENT RACF 1.7 TAPE DATASET PROTECTION IN * FILE 009 //* "WARNING" MODE. THIS FILE IS IN IEBUPDTE SYSIN * FILE 009 //* FORMAT. * FILE 009 //* * FILE 009 //***FILE 010 IS FROM MR CHUCK HOFFMAN OF GTE IN WALTHAM, MASS, * FILE 010 //* AND CONTAINS A COPY OF HIS TSO COMMAND CALLED * FILE 010 //* ISPFPRIM WHICH ENABLES A USER TO INVOKE AN ISPF * FILE 010 //* DIALOG FROM READY OR FROM WITHIN ISPF, AND TO USE * FILE 010 //* AN OPTIONAL PANEL SELECTION NUMBER. FOR ADDITIONAL * FILE 010 //* INFORMATION SEE THE MEMBER CALLED $$$DOC. THIS * FILE 010 //* FILE IS IN IEBUPDTE SYSIN FORMAT. * FILE 010 //* * FILE 010 //***FILE 011 IS FROM INTEL CORPORATION AND CONTAINS SEVERAL OF * FILE 011 //* THEIR PROGRAMS. THIS FILE IS IN IEBUPDTE SYSIN * FILE 011 //* FORMAT. FOR ADDITIONAL INFORMATION SEE THE MEMBER * FILE 011 //* CALLED $$DOC : * FILE 011 //* * FILE 011 //* $$DOC.....THIS MEMBER * FILE 011 //* ADEBE.....JCL TO ASSEMBLE AND LINK DEBE * FILE 011 //* AMSG2USR..JCL TO ASSEMBLE AND LINK MSG2USER * FILE 011 //* ATSO051...JCL TO ASSEMBLE AND LINK TSO051 * FILE 011 //* DEBE......THIS VERSION WAS MODIFIED TO RUN UNDER * FILE 011 //* MVS/XA AND WILL NOW SUPPORT BOTH 3420 AND * FILE 011 //* 3480 TAPE DRIVES * FILE 011 //* MSG2USER..THIS IS A WTO EXIT. THIS EXIT WILL SEND A * FILE 011 //* MESSAGE TO A TSO USER WHO IS ENQUEUED ON A * FILE 011 //* DATASET NEEDED BY A BATCH JOB. THE FORMAT * FILE 011 //* OF THE MESSAGE IS : * FILE 011 //* NTL861I THE FOLLOWING RESERVED DATASET * FILE 011 //* NAMES UNAVAILABLE TO JJJJ * FILE 011 //* NTL863I DSN=DSN * FILE 011 //* TSO051....THIS PROGRAM WILL GET INFORMATION FROM JCT * FILE 011 //* AND WILL FILL IN VARIOUS CLIST VARIABLES. * FILE 011 //* * FILE 011 //***FILE 012 IS FROM JOHN HANCOCK MUTUAL LIFE INSURANCE COMPANY * FILE 012 //* AND IS THEIR ISPF BACKGROUND JOBS DRIVER. * FILE 012 //* * FILE 012 //* THIS FILE CONSISTS OF OPTIONS DESIGNED TO BE USED WITH * FILE 012 //* THE INTERACTIVE SYSTEM PRODUCTIVITY FACILITY/PROGRAM * FILE 012 //* DEVELOPMENT FACILITY (ISPF/PDF). * FILE 012 //* * FILE 012 //* NOTE: SOME OF THESE OPTIONS WILL WORK ONLY UNDER ISPF * FILE 012 //* VERSION 2. PANELS/SKELETONS/MESSAGES PROVIDED FOR USE * FILE 012 //* WITH JH#PDF8 ARE INTENDED ONLY AS SAMPLES. SOME * FILE 012 //* MODIFICATION (E.G. ACCOUNTING FIELDS) WOULD BE * FILE 012 //* REQUIRED AT YOUR INSTALLATION. PANELS THAT CONTAIN A * FILE 012 //* "VOLUME SERIAL" FIELD DETERMINE A UNIT NAME IN THEIR * FILE 012 //* )PROC SECTION. THIS SHOULD BE CHECKED FOR * FILE 012 //* INSTALLATION COMPATIBILITY. * FILE 012 //* * FILE 012 //* CHANGES 03/04/85: MODIFICATIONS TO EXPLOIT ISPF * FILE 012 //* VERSION 2: MACRO ISPCALL NOW SUPPORTS ISPEXEC * FILE 012 //* FORMAT (SEE NEW JH#PDF8 FOR EXAMPLE); JH#PDF8 * FILE 012 //* MODIFIED TO USE LM SERVICES TO ENABLE VIO * FILE 012 //* ISPCTLN DATA SETS TO BE EDITED (UNDER V1 * FILE 012 //* JH#PDF8 WORKS AS BEFORE); PANEL JHAEFR01 ADDED * FILE 012 //* (USED BY JH#PDF8 UNDER V2); JH ISR^PRIM * FILE 012 //* REPLACED FOR V2; MSGS JHA^M04 ADDED; MANY * FILE 012 //* PANELS/SKELETONS/MESSAGES FORMERLY PREFIXED Z* * FILE 012 //* ARE NOW PREFIXED JHA*; CLIST ISRCTBL RENAMED * FILE 012 //* JH#YCTBL; JH EDIT INTERFACE ALTERED FOR V2; * FILE 012 //* CLIST TSEDITPR RENAMED JH#TEDPR AND CHANGED TO * FILE 012 //* PROCESS PDF V2 FIELDS; ADDED JH#GTDSN (A DIALOG * FILE 012 //* PROGRAM THAT RETURNS VOLUME SERIAL AND DATA SET * FILE 012 //* NAME WHEN PROVIDED A DDNAME - USED BY OTHER * FILE 012 //* DIALOGS); ADDED JH#TEDRT TO DISPLAY AND EDIT A * FILE 012 //* USER'S PDF EDIT RECOVERY TABLE; ADDED ISRUOLJH, * FILE 012 //* IBM'S ISRUOL (PDF 3.8) MODIFIED TO RUN FASTER * FILE 012 //* BY USING TEMPORARY DATA SETS; ADDED JH#TPRGM TO * FILE 012 //* INVOKE IEHPROGM FOREGROUND; ADDED JH#EDTMP TO * FILE 012 //* ALLOW EDITING OF VIO ISPCTLN DATA SETS. * FILE 012 //* * FILE 012 //* CHANGES 10/18/83: TABLE DISPLAY UTILITY REWRITTEN AND * FILE 012 //* ENHANCED. CLIST RENAMED JH#YDTBL FROM * FILE 012 //* ISRYDTBL. * FILE 012 //* * FILE 012 //* CHANGES 10/3/83: JOHN HANCOCK EDIT INTERFACE IS * FILE 012 //* ENHANCED TO ALLOW USER-DEFINED ABBREVIATIONS * FILE 012 //* (SEE #3 BELOW); SMALL CHANGES TO JH#PDF8 AND * FILE 012 //* ASSOCIATED SAMPLE PANELS; ADDED #MAXTOP #8, #9. * FILE 012 //* * FILE 012 //* 1. JOHN HANCOCK BATCH JOBS DRIVER (JH#PDF8) IS A * FILE 012 //* GENERAL PURPOSE ISPF FUNCTION FOR THE GENERATION OF * FILE 012 //* JCL BASED ON DATA ENTERED ON PANELS. PROCESSING IS * FILE 012 //* CONTROLLED BY AN INITIAL PARM AND BY ISPF * FILE 012 //* VARIABLES. SEE THE COMMENTS AT THE BEGINNING OF * FILE 012 //* THE JH#PDF8 SOURCE FOR ADDITIONAL INFORMATION. * FILE 012 //* * FILE 012 //* SOME DIFFERENCES BETWEEN PDF OPTION 5 AND JH#PDF8: * FILE 012 //* JH#PDF8 DOES NOT ALLOCATE DATA SETS FOR * FILE 012 //* VERIFICATION, WHERE OPTION 5 OPTIONALLY ALLOCATES * FILE 012 //* THE INPUT DATA SET (ONLY); JH#PDF8 ALLOWS A USER TO * FILE 012 //* EDIT THE TEMPORARY GENERATED JCL IN ADDITION TO * FILE 012 //* SUBMITTING OR CANCELING THE JOB; JH#PDF8 ALLOWS * FILE 012 //* INITIAL AND FINAL SKELETONS TO BE TAILORED FOR EACH * FILE 012 //* INVOCATION; JH#PDF8 ALLOWS TWO OR MORE PANELS TO * FILE 012 //* PROVIDE INPUT TO ONE TAILORING OPERATION; WITH * FILE 012 //* JH#PDF8 PROCESSING SUCH AS JOB CHARACTER * FILE 012 //* INCREMENTATION IS DONE IN THE PANELS (SEE SAMPLE * FILE 012 //* JHABP^B) INSTEAD OF IN THE DRIVER PROGRAM. * FILE 012 //* * FILE 012 //* SAMPLE PANELS, SKELETONS, AND MESSAGES ARE PROVIDED * FILE 012 //* FOR USE WITH JH#PDF8. IT IS POSSIBLE, HOWEVER, TO * FILE 012 //* CREATE TOTALLY DIFFERENT ISPF COMPONENTS FOR USE * FILE 012 //* WITH THIS DRIVER. THE ONLY REQUIREMENTS ARE THAT * FILE 012 //* THERE BE A PSEUDO-SELECTION PANEL WHOSE NAME IS * FILE 012 //* PASSED VIA A PARM TO JH#PDF8 (SAMPLE IS JHABP^A) * FILE 012 //* AND THAT THE COMPONENTS SET ISPF VARIABLES TO * FILE 012 //* DICTATE PROCESSING (AGAIN, SEE THE COMMENTS). * FILE 012 //* * FILE 012 //* JH#PDF8 CODE IS REENTRANT; THE MODULE MAY BE * FILE 012 //* PLACED IN LPALIB WITH OTHER ISPF MODULES. * FILE 012 //* * FILE 012 //* 2. CLIST JH#YDTBL WILL DISPLAY THE CONTENTS * FILE 012 //* (NON-EXTENSION VARIABLES) OF ANY TABLE IN TABLE * FILE 012 //* DISPLAY (SCROLLABLE) FORMAT. AS PROVIDED HERE IT * FILE 012 //* SUPPORTS FIVE DIFFERENT TABLE DISPLAY FORMATS. IT * FILE 012 //* MAY BE INVOKED FROM ISPF/PDF OPTION 6, VIA THE ISPF * FILE 012 //* TSO COMMAND, OR FROM A SELECTION PANEL (E.G., * FILE 012 //* ISRYXD1). * FILE 012 //* * FILE 012 //* 3. PANEL JHTEPE01 IS A JOHN HANCOCK EDIT INTERFACE. * FILE 012 //* TO USE IT, ADD THE FOLLOWING ENTRY TO A SELECTION * FILE 012 //* PANEL: * FILE 012 //* N,'PGM(ISREDIT) PARM(P,JHTEPE01) * FILE 012 //* NEWAPPL(ISR)' * FILE 012 //* NOTE: FUTURE RELEASES OF PDF MAY NOT SUPPORT THIS * FILE 012 //* METHOD OF IMPLEMENTATION. * FILE 012 //* * FILE 012 //* 4. CLIST JH#TEDPR WILL DISPLAY THE CONTENTS OF A * FILE 012 //* USER'S CURRENT EDIT PROFILE (FOR THE APPLICATION * FILE 012 //* HE HAS ENTERED). IT MAY BE INVOKED FROM ISPF/PDF * FILE 012 //* OPTION 6, VIA THE ISPF TSO COMMAND, OR FROM A * FILE 012 //* SELECTION PANEL. THE CLIST MUST BE MODIFIED FOR * FILE 012 //* YOUR INSTALLATION'S ISPF PROFILE NAMING * FILE 012 //* CONVENTION. * FILE 012 //* * FILE 012 //* 5. CLIST TSCMDTB WILL DISPLAY THE CONTENTS OF THE * FILE 012 //* CURRENT SYSTEM COMMAND TABLE. THIS MAY BE USED BY * FILE 012 //* END-USERS, SINCE THE "DESCRIPTION," NOT THE * FILE 012 //* "ACTION," IS DISPLAYED. IF THIS CLIST IS TO BE * FILE 012 //* USED, IT IS RECOMMENDED THAT A COPY OF THE SYSTEM * FILE 012 //* COMMAND TABLE (ISPCMDS) BE MADE UNDER A DIFFERENT * FILE 012 //* NAME (SYSCMDS IS USED IN THE CLIST). STRANGE * FILE 012 //* THINGS WILL HAPPEN IF YOU ATTEMPT TO OPEN AND CLOSE * FILE 012 //* A COMMAND TABLE THAT ISPF HAS ALREADY OPENED. * FILE 012 //* TSCMDTB MAY BE INVOKED FROM ISPF/PDF OPTION 6, VIA * FILE 012 //* THE ISPF TSO COMMAND, OR FROM A SELECTION PANEL. * FILE 012 //* * FILE 012 //* 6. CLIST JH#YCTBL DRIVES THE TABLE RECONSTRUCTION * FILE 012 //* UTILITY. THIS ALLOWS FIELDS TO BE ADDED TO/REMOVED * FILE 012 //* FROM TABLES WITHOUT LOSING THE TABLE DATA. IT MAY * FILE 012 //* BE INVOKED FROM ISPF/PDF OPTION 6, OR FROM A * FILE 012 //* SELECTION PANEL (E.G., ISRYXD1). * FILE 012 //* * FILE 012 //* 7. PANEL JHAYP14^ PROVIDES ENTRY TO A FOREGROUND * FILE 012 //* INTERFACE TO THE IBM-SUPPLIED SELECTION PANEL * FILE 012 //* UPDATE UTILITY (ISPPUP). THIS MAY BE ENTERED FROM * FILE 012 //* A HIGHER-LEVEL SELECTION PANEL (XX,'PANEL(ZYPUP^)') * FILE 012 //* OR FROM TSO READY (ISPSTART PANEL(ZYPUP^)). * FILE 012 //* * FILE 012 //* 8. CLIST ISRALTK ALLOWS A USER TO DEFINE AND ACTIVATE * FILE 012 //* A SECOND SET OF PROGRAM FUNCTION KEY DEFINITIONS. * FILE 012 //* READ HELP PANEL XALTK BEFORE USING. IT MAY BE * FILE 012 //* INVOKED FROM A SELECTION PANEL (E.G.,ISPOPTA) BY * FILE 012 //* "'XX,CMD(%ISRALTK)'." AN ENTRY IN A COMMAND TABLE * FILE 012 //* IS ALSO A GOOD IDEA: * FILE 012 //* VERB ACTION * FILE 012 //* K2 SELECT CMD(%ISRALTK PARM('&ZPARM')) * FILE 012 //* * FILE 012 //* 9. PANEL PANELID IS A EXAMPLE OF HOW "PANELID ON" MAY * FILE 012 //* BE SET WITHOUT THE USER HAVING TO ENTER THE ISPF * FILE 012 //* COMMAND. THE CODE IN THIS PANEL COULD BE USED IN * FILE 012 //* ANY SELECTION PANEL, INCLUDING ISR^PRIM AND * FILE 012 //* ISP^MSTR. * FILE 012 //* * FILE 012 //* 10. CLIST JH#TEDRT ALLOWS THE DISPLAYING AND * FILE 012 //* MODIFICATION OF A USER'S EDIT RECOVERY TABLE. IT * FILE 012 //* MAY BE INVOKED FROM ISPF/PDF OPTION 6, OR FROM A * FILE 012 //* SELECTION PANEL. THE CLIST MUST BE MODIFIED FOR * FILE 012 //* YOUR INSTALLATION'S ISPF PROFILE NAMING CONVENTION. * FILE 012 //* * FILE 012 //* 11. CLIST ISRUOLJH IS JOHN HANCOCK'S MODIFIED ISRUOL, * FILE 012 //* THE CLIST THAT DRIVES PDF OPTION 3.8. IT HAS BEEN * FILE 012 //* MODIFIED TO RUN FASTER BY USING TEMPORARY DATA * FILE 012 //* SETS, BYPASSING CATALOGING AND DELETION. IT USES * FILE 012 //* PROVIDED DIALOG PROGRAM JH#GTDSN (WHICH CAN BE IN * FILE 012 //* LPA IF HEAVILY USED). (THIS CLIST HAS ALSO BEEN * FILE 012 //* MODIFIED TO USE THE SAME JOB CARDS AS OPTION 3.6.) * FILE 012 //* * FILE 012 //* 12. CLIST JH#TPRGM PROVIDES A PANEL TO RUN IEHPROGM IN * FILE 012 //* FOREGROUND. TO USE IT ADD THE FOLLOWING ENTRY TO A * FILE 012 //* SELECTION PANEL: * FILE 012 //* NN,'CMD(%JH#TPRGM PANEL(JHTEP0M) * FILE 012 //* PANEL2(JHTEP0M2) SKEL(JHTES0M))' * FILE 012 //* * FILE 012 //* 13. PROGRAM JH#EDTMP PUTS THE USER INTO EDIT OF AN ISPF * FILE 012 //* TEMPORARY CONTROL DATA SET (ISPCTLN). IT SUPPORTS * FILE 012 //* VIO AS WELL AS DASD DATA SETS. IF NO PARM IS * FILE 012 //* SUPPLIED, THE DATA SET ASSOCIATED WITH THE CURRENT * FILE 012 //* LOGICAL SCREEN IS USED. TO ACCESS THE DATA SET * FILE 012 //* USED BY THE PDF SUBMIT COMMAND, USE A PARM OF 0 * FILE 012 //* (ZERO). THIS PROGRAM MAY BE INVOKED VIA THE ISPF * FILE 012 //* SELECT SERVICE FROM ANOTHER DIALOG FUNCTION. AN * FILE 012 //* ENTRY MAY ALSO BE PLACED IN A COMMAND TABLE: * FILE 012 //* * FILE 012 //* VERB T ACTION * FILE 012 //* EDTEMP 3 SELECT PGM(JH#EDTMP) PARM(&ZPARM) * FILE 012 //* NEWAPPL(ISR) * FILE 012 //* * FILE 012 //* THEN A USER CAN ENTER THE EDTEMP COMMAND ON ANY * FILE 012 //* SCREEN AND EDIT THE DATA SET. * FILE 012 //* * FILE 012 //* CONTENTS OF THIS PDS: * FILE 012 //* * FILE 012 //* SOURCE: JH#EDTMP * FILE 012 //* JH#GTDSN * FILE 012 //* JH#PDF8 * FILE 012 //* * FILE 012 //* MACROS: ENTER * FILE 012 //* ISPCALL * FILE 012 //* LEAVE * FILE 012 //* REQUS * FILE 012 //* SCANLINE * FILE 012 //* * FILE 012 //* JCL: $INSTALL (COPY ISPF COMPONENTS AND * FILE 012 //* ASSEMBLE PROGRAMS) * FILE 012 //* * FILE 012 //* $LOAD (SAMPLE JCL TO LOAD * FILE 012 //* DISTRIBUTION LIB FROM TAPE) * FILE 012 //* * FILE 012 //* CLISTS: SEE IEBCOPY STATEMENTS IN $INSTALL * FILE 012 //* MEMBER * FILE 012 //* * FILE 012 //* PANELS: SEE IEBCOPY STATEMENTS IN $INSTALL * FILE 012 //* MEMBER PLUS MODIFIED ISR^PRIM * FILE 012 //* * FILE 012 //* SKELETONS: SEE IEBCOPY STATEMENTS IN $INSTALL * FILE 012 //* MEMBER * FILE 012 //* * FILE 012 //* MESSAGES: SEE IEBCOPY STATEMENTS IN $INSTALL * FILE 012 //* MEMBER * FILE 012 //* * FILE 012 //***FILE 013 IS FROM PENN MUTUAL LIFE AND CONTAINS A PROGRAM TO * FILE 013 //* PROCESS FILE 001 OF THIS TAPE TO COMPRESS THE SPACE * FILE 013 //* IT REQUIRES ON DISK. * FILE 013 //* * FILE 013 //***FILE 014 IS FROM SAM GOLOB AND CONTAINS A SERIES OF ARTICLES * FILE 014 //* WRITTEN FOR TECHNICAL SUPPORT MAGAZINE OF NASPA. * FILE 014 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT. FOR * FILE 014 //* ADDITIONAL INFORMATION, SEE THE MEMBER CALLED * FILE 014 //* $$$INTRO. THESE ARE SAM'S OLDER ARTICLES. (SEE * FILE 014 //* FILE 120 FOR THE COLLECTION OF SAM'S "MVS TOOLS AND * FILE 014 //* TRICKS OF THE TRADE" COLUMNS.) * FILE 014 //* * FILE 014 //* This file 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 //* THIS FILE CONSISTS OF ARTICLES SUBMITTED BY SAM * FILE 014 //* GOLOB TO "TECHNICAL SUPPORT" MAGAZINE OF NASPA, * FILE 014 //* THE NATIONAL SYSTEMS PROGRAMMERS ASSOCIATION, * FILE 014 //* HEADQUARTERED IN MILWAUKEE, WISCONSIN. * FILE 014 //* * FILE 014 //* THE MATERIAL PERTAINS LARGELY TO PROGRAMS ON THE CBT * FILE 014 //* TAPE, AND TO TOPICS OF GENERAL SYSTEMS PROGRAMMER * FILE 014 //* INTEREST. WITH THE KIND PERMISSION OF BOB BECKER, * FILE 014 //* FORMER EDITOR OF "TECHNICAL SUPPORT", THEY ARE BEING * FILE 014 //* DISTRIBUTED WITH THE CBT TAPE TO FURTHER THE * FILE 014 //* USEFULNESS OF OTHER FILES ON THE TAPE, AND THE TAPE * FILE 014 //* IN GENERAL. * FILE 014 //* * FILE 014 //* CBTCNR1 - A COLUMN ON USEFUL PROGRAMS ON THE CBT * FILE 014 //* TAPE. INSTALLMENT 1. * FILE 014 //* * FILE 014 //* CBTCNR2 - A COLUMN ON USEFUL PROGRAMS ON THE CBT * FILE 014 //* TAPE. INSTALLMENT 2. * FILE 014 //* * FILE 014 //* CBTINTRO - AN INTRODUCTION TO THE CBT TAPE IN * FILE 014 //* GENERAL. THE ARTICLE SHOWS HOW THE * FILE 014 //* CBT TAPE CAN IMPROVE YOUR INSTALLATION * FILE 014 //* GREATLY BY PROVIDING POWERFUL TOOLS. * FILE 014 //* THIS IS MEANT AS AN INTRODUCTION ONLY, * FILE 014 //* AND SUGGESTS A FEW OF THE TOOLS WHICH * FILE 014 //* THE AUTHOR HAS FOUND USEFUL IN HIS * FILE 014 //* WORK. * FILE 014 //* * FILE 014 //* IOCOUNT - DESCRIPTION OF THE AMAZING IO-COUNT ZAP * FILE 014 //* TO THE OPERATING SYSTEM, WHICH * FILE 014 //* PROVIDES EXCP-COUNT INFORMATION IN JCL * FILE 014 //* LISTINGS, FOR ALL ALLOCATED DDNAMES. * FILE 014 //* THE MODIFICATION IS FOUND ON FILE 369 * FILE 014 //* OF THE CBT TAPE. THIS IS A DETAILED * FILE 014 //* DESCRIPTION OF HOW TO INSTALL IT. * FILE 014 //* * FILE 014 //* JESART - THIS IS A DESCRIPTION OF HOW TO CONVERT * FILE 014 //* FROM JES2 VERSION 1.3.4 TO THE HIGHER * FILE 014 //* RELEASES OF JES2. * FILE 014 //* * FILE 014 //* SMPART - I BELIEVE THIS MATERIAL IS FOUND NOWHERE * FILE 014 //* ELSE IN THIS FORM. THIS ARTICLE IS * FILE 014 //* MEANT TO INTRODUCE NEW AND OLD SYSTEMS * FILE 014 //* PROGRAMMERS TO THE CONCEPTS OF SMP. * FILE 014 //* IT CAN BE USED AS A "HOW-TO-DO-IT" * FILE 014 //* INTRODUCTION TO ANY LEVEL OF SMP. IT * FILE 014 //* IS CLEAR, CONCEPTUAL, AND COMPLETELY * FILE 014 //* STEP-BY-STEP. IT COVERS CONCEPTS OF * FILE 014 //* ALL RELEASES OF SMP, BOTH SMP4 AND * FILE 014 //* SMP/E. THE ARTICLE WAS TESTED BY * FILE 014 //* BEING GIVEN TO NON-SYSTEMS-PROGRAMMERS * FILE 014 //* TO READ, AND IS MEANT FOR ANYONE WHO * FILE 014 //* HAS ANYTHING TO DO WITH MVS SYSTEM * FILE 014 //* MAINTENANCE. THIS MEANS NON-TECHNICAL * FILE 014 //* MANAGERS AS WELL AS TECHNICAL PEOPLE. * FILE 014 //* * FILE 014 //* A SERIES OF THREE ARTICLES HAS BEEN WRITTEN AS * FILE 014 //* A COURSE TO TEACH THE SUBCOMMANDS OF THE FANTASTIC * FILE 014 //* "PDS" PROGRAM THAT CAN BE FOUND ON FILE 182 OF THE * FILE 014 //* CBT TAPE (WITH UTILITIES ON FILE 296). THESE * FILE 014 //* ARTICLES ARE NOW DISTRIBUTED WITH THE PDS PACKAGE ON * FILE 014 //* FILE 182, AND WILL NOT BE REPEATED HERE. * FILE 014 //* * FILE 014 //***FILE 015 IS FROM WARNER BROTHERS INC OF BURBANK, CA AND * FILE 015 //* CONTAINS SEVERAL OF THEIR UTILTIES. THIS FILE IS * FILE 015 //* IN IEBUPDTE SYSIN FORMAT. * FILE 015 //* * FILE 015 //* TABLES AND JOBS NECESSARY TO GET SMF TYPE 32 TSO * FILE 015 //* COMMAND ACCOUNTING RECORDS RUNNING. USEFUL TO SEE * FILE 015 //* WHAT RESOURCES OEM TSO PRODUCTS USE. * FILE 015 //* * FILE 015 //* A FEW PDF EDIT MACROS AND HELP MEMBERS. A PDF * FILE 015 //* FRONT END FOR DYNASOFT'S TSO WORD PROCESSOR AND * FILE 015 //* SPREADSHEET. A PRIMARY PDF PANEL THAT CAN SCROLL * FILE 015 //* IN ALL FOUR DIRECTIONS TO ALLOW DISPLAY OF LOTS OF * FILE 015 //* PDF OPTIONS. * FILE 015 //* * FILE 015 //* A COUPLE OF ACF2 ASM ROUTINES TO DO RESOURCE * FILE 015 //* VALIDATION AND INQUIRY FUNCTIONS. * FILE 015 //* * FILE 015 //* VERSION OF CLIP THAT WORKS WITH DSF REL9 AND XA OR * FILE 015 //* 370. * FILE 015 //* * FILE 015 //* TWO JES EXITS. ONE PROVIDES A MASKABLE VERSION OF * FILE 015 //* $D'NAME***. WAS A SOURCE MOD TO HASPCOMM * FILE 015 //* RE-WRIITEN AS AN EXIT. EXIT FOUR ALLOWS FOR CODING * FILE 015 //* DSN= ON SETUP CARDS. EXIT CONVERTS DSN NAMES TO * FILE 015 //* VOLSER'S SO USER DOES NOT HAVE TO LOOK THEM UP. * FILE 015 //* SOME LOCAL CODE IN THIS BUT WOULD BE EASY TO DROP * FILE 015 //* OR CHANGE. * FILE 015 //* * FILE 015 //* MVS/XA MOD TO INSTALL CUSTOM CONSOLE PFK DEFINITIONS. * FILE 015 //* ONE SAMPLE DEFINITION INCLUDED. THIS ALLOWS FOR * FILE 015 //* SIMPLE RE-DEFINES AFTER GENS OR MAINTENANCE. WE * FILE 015 //* HAVE TEN CONSOLES SO THIS HELPS. * FILE 015 //* * FILE 015 //* MVS/XA MOD TO ALLOW RESTART OF JOBS THAT USE GDG'S * FILE 015 //* AND REFER TO THEM AS +1 IN LATER STEPS. WITHOUT * FILE 015 //* THIS MOD JOBS RESTARTED WOULD HAVE TO HAVE ALL * FILE 015 //* REFERENCES TO +1 CHANGED TO 0. THIS IS AN ERROR * FILE 015 //* PRONE AND TIME CONSUMING TASK. TESTED AND RUNNING * FILE 015 //* UNDER XA 2.1.7 DFP 2.2.3. THIS IS A VERY STABLE * FILE 015 //* MOD. HAS NOT CHANGE SIZE OR LOCATION IN YEARS. * FILE 015 //* LAST CHANGE WAS A "DISPLACEMEMNT" CHANGE WHEN SIZE * FILE 015 //* OF MODULE WAS CHANGED. * FILE 015 //* * FILE 015 //* MEMBER DESCRIPTION * FILE 015 //* $JCL JCL USED TO CREATE THIS FILE. * FILE 015 //* $DSCLAIM STANDARD CYA DISCLAIMER * FILE 015 //* $README THIS STUFF * FILE 015 //* #RESTORE HELP FOR RESTORE EDIT MACRO. * FILE 015 //* #TRAP HELP FOR TRAP EDIT MACRO. * FILE 015 //* #VPS HELP FOR VPS EDIT MACRO. * FILE 015 //* ACF2INQ ASM SUBROUTINE TO RETURN ACF2 UID * FILE 015 //* STRING TO A REQUESTING CICS * FILE 015 //* TRANSACTION. * FILE 015 //* ACF2VALD ASM PGM THAT DOES A RESOURCE * FILE 015 //* VALIDATION FROM BATCH OR TSO. CAN * FILE 015 //* BE USED TO CONTROL POWERFUL TSO CP'S * FILE 015 //* LIKE SPY, QUEUE, ETC. OR TO CONTROL * FILE 015 //* BATCH ACCESS TO CRITICAL RESOURCES. * FILE 015 //* ASKUID ASM SUBROUTINE TO RETURN ACF2 UID * FILE 015 //* STRING TO AS A PDF DIALOG VARIABLE. * FILE 015 //* CLIP ASM PGM RUNS AS A STARTED TASK. * FILE 015 //* USED TO RELABEL OR INSPECT DASD FROM * FILE 015 //* A CONSOLE. RUNS OK WITH DSF REL9. * FILE 015 //* DYN#C1 PDF CLIST TO INVOKE DYNASOFT PRODUCT * FILE 015 //* DYN#P1 PRIMARY DYNAPLAN PANEL * FILE 015 //* DYN#T1 FIRST PANEL OF PROPOSED TUTORIAL * FILE 015 //* SERIES, WOULD ALSO BE A SELECTABLE * FILE 015 //* OPTION OF DYN#P1. * FILE 015 //* DYNASEND JCL USED TO CREATE THIS FILE * FILE 015 //* DYNM00 PDF MESSAGE MEMBER * FILE 015 //* GDGMOD VERY USEFUL MOD TO SIMPLIFY * FILE 015 //* RESTARTING JOBS THAT USE GDG'S. * FILE 015 //* IEEMB846 SOURCE FOR TSO ACCOUNTING TABLE. * FILE 015 //* IEEPK860 SAMPLE INPUT TO CONSOLE PFK MOD. * FILE 015 //* ISPTCM SOURCE FOR ISPF ACCOUNTING TABLE * FILE 015 //* ISR*PRIM SAMPLE PRIMARY PANEL USED TO INVOKE * FILE 015 //* OPTION "DYNA". KIND OF NEAT AS IT'S * FILE 015 //* SCROLLABLE IN FOUR DIRECTIONS. * FILE 015 //* JCLJES4 JCL TO ASM + LINK JES EXIT 4 * FILE 015 //* JCLJES5 JCL TO ASM + LINK JES EXIT 5 * FILE 015 //* JESXIT5D ADD $D'JOB**** COMMAND TO JES2. * FILE 015 //* JES2XIT4 MOD TO ALL DSN= ON SETUP CARDS IN JES * FILE 015 //* MAKES IT MUCH EASIER TO PULL TAPES * FILE 015 //* FOR PRODUCTION JOBS. HAS SOME SITE * FILE 015 //* DEPENDENT CODE IN IT. * FILE 015 //* PRIMDOWN SAMPLE PRIM DOWN PANEL * FILE 015 //* PRIMLEFT SAMPLE PRIM LEFT PANEL * FILE 015 //* PRIMRGHT SAMPLE PRIM RGHT PANEL * FILE 015 //* PRIMUP SAMPLE PRIM UP PANEL * FILE 015 //* RESTORE EDIT MACRO. RELOADS LAST SAVED COPY * FILE 015 //* OF CURRENT MEMBER. FASTER THAN DOING * FILE 015 //* A CANCEL AND SELECTING MEMBER OVER * FILE 015 //* AGAIN. * FILE 015 //* SMFPRM00 SAMPLE SMF PARMS. NOTE ATE DETAIL * FILE 015 //* MUST BE CODED FOR TCB, IO, ECT. TO * FILE 015 //* BE RECORDED IN SMF32. * FILE 015 //* SMF32SAS SAS PGM TO ANALYSIS SMF32 RECORDS. * FILE 015 //* SMPEIEE SAMPLE SMPEJCL TO INSTALL IEEMB846 * FILE 015 //* SMPEPFK SAMPLE SMPEJCL TO INSTALL CONSOLE * FILE 015 //* PFK MOD. * FILE 015 //* SMPETCM SAMPLE SMPEJCL TO INSTALL ISPTCM * FILE 015 //* SWTSO SOURCE CODE TO SMF FRONT END PGM. * FILE 015 //* THIS IS A GENERAL PURPOSE PGM WHICH * FILE 015 //* SETS UP THE SMF32 ENVIRONMENT. * FILE 015 //* BECAUSE OF INTERNAL WB STANDARDS A * FILE 015 //* LMODLIB DD STATEMENT IS REQUIRED. * FILE 015 //* THE CODE COULD VERY EASILY BE ADDED * FILE 015 //* TO DYNAPLAN OR THE FRONTEND PGM * FILE 015 //* SUPPLIED AS A USER OPTION. THE SVC * FILE 015 //* STARTS AND STOPS SMF32 ACCOUNTING. * FILE 015 //* TRAP EDIT MACRO. WILL TRAP THE OUTPUT OF * FILE 015 //* A TSO CP AND PLACE IT AT THE BOTTOM * FILE 015 //* OF THE CURRENT EDIT DATASET. GOOD * FILE 015 //* EXAMPLE OF SOME OF THE NEAT THINGS * FILE 015 //* YOU CAN DO UNDER TSO/E. WILL ONLY * FILE 015 //* WORK WITH TSO CP'S THAT USE PUTLINE. * FILE 015 //* WILL NOT WORK WITH FULLSCREEN * FILE 015 //* TPUT'S. * FILE 015 //* VPS EDIT MACRO. QUICK WAY TO GET A * FILE 015 //* VPSPRINT OF CURRENT EDIT DATA. NOTE: * FILE 015 //* DOES A SAVE FIRST. THIS TECHNIQUE * FILE 015 //* COULD BE USED FOR ANY TSOCP OR * FILE 015 //* UTILITY. * FILE 015 //* * FILE 015 //***FILE 016 IS FROM SCOTT AND WHITE HOSPITAL IN TEMPLE, TEXAS * FILE 016 //* AND CONTAINS SOME OF THEIR UTILITIES. SEE THE * FILE 016 //* MEMBER CALLED $$$$$DOC FOR ADDITIONAL INFORMATION. * FILE 016 //* * FILE 016 //* SWHJ2006 CONVERT UNIT=TAPE TO UNIT=3480 ON THE * FILE 016 //* FLY (JES2 EXIT 6) * FILE 016 //* * FILE 016 //* SWHUSER CHEAP WAY TO CONTROL SDSF COMMANDS FOR * FILE 016 //* OPERATORS AND THE LIKE. (SAMPLE SDSF * FILE 016 //* USER EXIT) * FILE 016 //* * FILE 016 //* PDFXIT15 WE HAVE ISPF/PDF V2R3M0, AND WE NOW * FILE 016 //* HAVE FORMAL EXITS. WE USE EXIT 15 TO * FILE 016 //* CONTROL THE PRIMARY PANEL A USER GETS, * FILE 016 //* WHICH ALLOWED US TO CUT FROM 20 TO 3 * FILE 016 //* THE NUMBER OF TSO LOGON PROCS WE USE. * FILE 016 //* * FILE 016 //* *=AT SIGN BLOCK LETTER MACRO USED IN ABOVE * FILE 016 //* MODULES. * FILE 016 //* * FILE 016 //***FILE 017 IS A COPY OF THE TSO CP CALLED LISTDD FROM FIREMAN'S * FILE 017 //* FUND OF CALIFORNIA. THIS CP WILL LIST ALLOCATION * FILE 017 //* INFORMATION SORTED BY DDNAME. SEE THE CODE FOR * FILE 017 //* ADDITIONAL INFORMATION * FILE 017 //* * FILE 017 //***FILE 018 IS THE DOCUMENTATION FROM CONRAIL FOR THEIR PROGRAM * FILE 018 //* CALLED TSUPDATE WHICH IS CONTAINED IN LOAD MODULE * FILE 018 //* FORM IN FILE 035 OF THIS TAPE. THIS IS A PROGRAM * FILE 018 //* WHICH IS A VERY FLEXIBLE, DYNAMIC MASS CHANGE PDS * FILE 018 //* TO MANIPULATE PDS'S. UNFORTUNATELY THERE IS NO * FILE 018 //* SOURCE AVAILABLE. YOU WILL FIND IF YOU EXECUTE THE * FILE 018 //* CODE THAT IT IS A PROPRIETARY PROGRAM FROM CONRAIL * FILE 018 //* BUT THEY HAVE GIVEN PERMISSION THAT IT BE PUT * FILE 018 //* ON THIS TAPE. THIS FILE IS 133 X 32718 FBA. * FILE 018 //* * FILE 018 //***FILE 019 IS FROM JOHN HOOPER OF FOOD LION INCORPORATED IN * FILE 019 //* SALISBURY, NORTH CAROLINA. THIS FILE CONTAINS A * FILE 019 //* COLLECTION OF THEIR UTILITIES. * FILE 019 //* * FILE 019 //* email: jvh@interpath.com * FILE 019 //* * FILE 019 //* FOOD LION UTILITIES * FILE 019 //* * FILE 019 //* THIS DATASET CONTAINS SEVERAL UTILITY PROGRAMS WHICH * FILE 019 //* MAY BE OF GENERAL INTEREST TO OTHER INSTALLATIONS. THEY * FILE 019 //* ARE, OF COURSE, AVAILABLE ON AN AS-IS CONDITION WITH * FILE 019 //* THE USUAL DISCLAIMER. THEY ALL WORK IN OUR CURRENT * FILE 019 //* OS/390 1.2 AND DFSMS 1.3 ENVIRONMENT. THEY SHOULD ALL * FILE 019 //* WORK ON ANY LEVEL OF ESA SYSTEM. SOME MAY NOT WORK ON * FILE 019 //* XA OR EARLIER SYSTEMS. * FILE 019 //* * FILE 019 //* EACH UTILITY PROGRAM HAS AN ASSOCIATED MEMBER OF A * FILE 019 //* SIMILAR NAME STARTING WITH A '$' TO PROVIDE * FILE 019 //* DOCUMENTATION FOR THAT UTILITY. THERE ARE ALSO MEMBERS * FILE 019 //* STARTING WITH A '@' WHICH ARE EXAMPLES OF WAYS TO * FILE 019 //* EXECUTE THOSE UTILITIES. READ THE DOCUMENTATION * FILE 019 //* CAREFULLY TO DETERMINE THE UTILITY'S APPLICABILITY TO * FILE 019 //* YOUR ENVIRONMENT. * FILE 019 //* * FILE 019 //* GOOD LUCK! * FILE 019 //* * FILE 019 //* 1) BLKSCAN * FILE 019 //* * FILE 019 //* THIS PROGRAM WILL SEARCH EACH INDIVIDUAL MEMBER OF A * FILE 019 //* PARTITIONED DATA SET CONTAINING JCL FOR SPECIFIED * FILE 019 //* BLOCK SIZES. IF ONE IS FOUND, THE JOBNAME, STEPNAME, * FILE 019 //* PROGRAM NAME, DDNAME AND BLOCKSIZE WILL BE LISTED. * FILE 019 //* IT DOES NOT HANDLE CATALOGED PROCEDURES OR INCLUDE * FILE 019 //* STATEMENTS. THE REPORT CAN BE USED TO DETECT * FILE 019 //* IMPROPERLY SPECIFIED BLOCK SIZES. OUR LOCAL STANDARD * FILE 019 //* IS TO ALLOW THE SYSTEM TO SET THE BLOCKSIZE OF THE * FILE 019 //* OUTPUT DATASET USING THE SYSTEM DETERMINED BLOCKSIZE * FILE 019 //* FACILITY OF DFP VERSION 3. THIS REPORT ALLOWS US TO * FILE 019 //* SEE BOTH THE POORLY SPECIFIED BLOCKSIZES AS WELL AS * FILE 019 //* THOSE JOBS WHICH NEED CHANGING TO ALLOW THE SYSTEM TO * FILE 019 //* SET THE APPROPRIATE BLOCKSIZE. * FILE 019 //* * FILE 019 //* 2) CHECKPVT * FILE 019 //* * FILE 019 //* THIS PROGRAM IS DESIGNED TO RUN IMMEDIATELY AFTER AN * FILE 019 //* IPL TO CHECK THE SIZE OF THE PRIVATE AREA BELOW THE * FILE 019 //* 16 MEG LINE. SOFTWARE MAINTENANCE OR IMPLEMENTATION * FILE 019 //* OF NEW PRODUCTS MAY SHIFT THE PRIVATE AREA SIZE DOWN * FILE 019 //* AN EXTRA MEG IN ESA. THE PARM VALUE ENTERED * FILE 019 //* SPECIFIES THE MINIMUM SIZE OF THE PRIVATE AREA IN 'K' * FILE 019 //* UNITS THAT IS EXPECTED. IF THE AREA IS SMALLER THAN * FILE 019 //* THIS VALUE, A NON-ROLL DELETABLE MESSAGE WILL BE * FILE 019 //* WRITTEN TO THE SYSTEM CONSOLE. * FILE 019 //* * FILE 019 //* 3) COMMAND * FILE 019 //* * FILE 019 //* THIS PROGRAM WILL EXECUTE MVS OR JES2 COMMANDS WITHIN * FILE 019 //* A BATCH JOB OR STARTED TASK. THE COMMAND(S) CAN BE * FILE 019 //* REQUESTED FROM THE PARM PARAMETER ON THE EXECUTE CARD * FILE 019 //* OR FROM AN OPTIONAL PARAMETER FILE DEFINED BY THE * FILE 019 //* DDNAME IEFRDER OR BOTH THE PARM AND THE FILE. IF * FILE 019 //* COMMANDS ARE ENTERED ON BOTH THE PARM AND THE OPTIONAL * FILE 019 //* IEFRDER FILE, THE COMMANDS IN THE PARM ARE EXECUTED * FILE 019 //* FIRST. BECAUSE MOST MVS AND JES2 COMMANDS MAY BE * FILE 019 //* EXECUTED BY THIS PROGRAM, IT SHOULD BE PROTECTED BY * FILE 019 //* YOUR SECURITY SYSTEM FROM UNAUTHORIZED USE. * FILE 019 //* * FILE 019 //* MOST INSTALLATIONS HAVE A SIMILAR PROGRAM TO THIS OR * FILE 019 //* HAVE AN AUTOMATED OPERATIONS SOFTWARE PRODUCT TO DO * FILE 019 //* THE SAME THING. WHAT MAKES THIS BATCH PROGRAM * FILE 019 //* DIFFERENT FROM MOST IN-HOUSE PROGRAMS IS TWO INTERNAL * FILE 019 //* COMMANDS: * FILE 019 //* * FILE 019 //* DELAY=NNN WHERE NNN IS THE NUMBER OF SECONDS TO WAIT * FILE 019 //* * FILE 019 //* THIS WILL CAUSE THE PROGRAM TO WAIT THE SPECIFIED * FILE 019 //* NUMBER OF SECONDS BEFORE ISSUING THE NEXT COMMAND. * FILE 019 //* THIS MAY GIVE TIME FOR THE PREVIOUS COMMAND TO BE * FILE 019 //* COMPLETED. * FILE 019 //* * FILE 019 //* REPLY JOBNAME 'MESSAGE TEXT' 'REPLY TEXT' * FILE 019 //* * FILE 019 //* THIS ALLOWS THE PROGRAM TO REPLY TO AN OUTSTANDING * FILE 019 //* MESSAGE FOR A SPECIFIC JOB OR TASK WITHOUT KNOWING * FILE 019 //* THE REPLY NUMBER. * FILE 019 //* * FILE 019 //* BY USING A COMBINATION OF WAIT, REPLY, AND NORMAL MVS * FILE 019 //* AND JES2 COMMANDS, WE ARE ABLE TO BRING DOWN OUR * FILE 019 //* SYSTEM FOR IPL INCLUDING STOPPING ALL OF OUR STARTED * FILE 019 //* TASKS (OTHER THAN JES2) AND ONLINE SYSTEMS IN A SMALL * FILE 019 //* FRACTION OF THE TIME THAT IT USED TO TAKE. * FILE 019 //* * FILE 019 //* 4) FLCACHE * FILE 019 //* * FILE 019 //* THIS PROGRAM IS DESIGNED TO ALLOW THE OPERATOR TO * FILE 019 //* DISPLAY OR MODIFY THE 3990-3 CACHE SUBSYSTEM FROM THE * FILE 019 //* MVS OPERATOR'S CONSOLE. THE ONLY PROVIDED MEANS OF * FILE 019 //* CONTROL FOR THE CACHE SUBSYSTEM IS EXECUTING THE IBM * FILE 019 //* IDCAMS UTILITY AS A BATCH JOB AND THEN LOOKING AT THE * FILE 019 //* OUTPUT TO DETERMINE THE RESULTS OR USING THE ISMF * FILE 019 //* FACILITIES UNDER ISPF TO MAKE CHANGES. THIS FLCACHE * FILE 019 //* PROGRAM WILL ACCEPT 'SIMPLE' COMMANDS FROM THE * FILE 019 //* CONSOLE AND GENERATE THE APPROPRIATE IDCAMS STATEMENT * FILE 019 //* AND CALL IDCAMS INTERACTIVELY TO ACTUALLY PERFORM THE * FILE 019 //* FUNCTION. ALL MESSAGES FROM IDCAMS WILL BE DISPLAYED * FILE 019 //* ON THE OPERATOR'S CONSOLE. * FILE 019 //* * FILE 019 //* WHEN ANY DEVICE ON THE 3990 CACHE SUBSYSTEM MUST BE * FILE 019 //* ALTERED FROM THE CONSOLE, IT IS OFTEN BECAUSE OF A * FILE 019 //* HARDWARE PROBLEM WHEN PROMPT ACTION MUST BE TAKEN. * FILE 019 //* THE IBM PUBLICATION WHICH DESCRIBES THESE SPECIAL * FILE 019 //* COMMANDS IS NOT ALWAYS EASY TO LOCATE OR UNDERSTAND. * FILE 019 //* HOPEFULLY, THIS PROGRAM WILL MAKE THESE FUNCTIONS * FILE 019 //* EASY TO PERFORM WHEN REQUIRED. AS ALWAYS, TECHNICAL * FILE 019 //* SUPPORT SHOULD BE INVOLVED ANY TIME THIS FACILITY IS * FILE 019 //* USED TO ALTER THE STATUS OF THE SUBSYSTEM. * FILE 019 //* * FILE 019 //* 5) FLSMFCAT * FILE 019 //* * FILE 019 //* THIS UTILITY IS INTENDED TO SHOW ICF CATALOG ACTIVITY * FILE 019 //* AT A DATASET LEVEL. IT IS DESIGNED PRIMARILY TO * FILE 019 //* TRACK DOWN THE JOB OR USER THAT ALLOCATED, DELETED, * FILE 019 //* OR RENAMED A SPECIFIC DATASET. SINCE THIS ACTIVITY * FILE 019 //* MAY HAVE BEEN OPENED AT THAT TIME, ONLY THE CATALOG * FILE 019 //* ACTIVITY SMF RECORD HAS THE INFORMATION. * FILE 019 //* * FILE 019 //* 6) FLSMFDSN * FILE 019 //* * FILE 019 //* THIS UTILITY IS INTENDED TO LIST VSAM AND NONVSAM * FILE 019 //* DATASET ACTIVITY FOR ALL BATCH JOBS, STARTED TASKS, * FILE 019 //* AND TSO USERS ON THE MVS SYSTEM. THIS PROGRAM CAN * FILE 019 //* DISPLAY DATASETS WITH SMALL BLOCK SIZES OR DATASETS * FILE 019 //* WITH THE HIGH I/O ACTIVITY TO PINPOINT AREAS NEEDING * FILE 019 //* CLOSER EXAMINATION. IT PROVIDES A FLEXIBLE SELECTION * FILE 019 //* AND SORT MECHANISM TO TAILOR THE REPORT. PROGRAM * FILE 019 //* PERFORMANCE CAN BE SERIOUSLY HAMPERED BY HAVING TOO * FILE 019 //* SMALL OF A BLOCKSIZE ON INPUT OR OUTPUT FILES. EVEN * FILE 019 //* USING THE SYSTEM DETERMINED BLOCKSIZE FACILITY OF DFP * FILE 019 //* RELEASE 3 MAY NOT ALWAYS GIVE THE DESIRED RESULTS * FILE 019 //* SINCE SOME PROGRAM PRODUCTS MAY OVERRIDE THAT VALUE. * FILE 019 //* THE REPORTS FROM THIS UTILITY HAVE ALLOWED US TO * FILE 019 //* SIGNIFICANTLY REDUCE THE RUN TIME OF SOME OF OUR * FILE 019 //* CRITICAL BATCH JOBS BY JUST CORRECTING THE BLOCKSIZE * FILE 019 //* SPECIFICATIONS. ALL OF THE STANDARDS IN THE WORLD * FILE 019 //* ARE NOT WORTH ANYTHING IF YOU DON'T ENFORCE THEIR * FILE 019 //* USE. * FILE 019 //* * FILE 019 //* 7) FLSMFJOB * FILE 019 //* * FILE 019 //* THIS UTILITY IS INTENDED TO LIST JOB ACTIVITY AT THE * FILE 019 //* STEP OR JOB LEVEL FOR ALL BATCH JOBS, STARTED TASKS, * FILE 019 //* AND TSO USERS ON THE MVS SYSTEM. IT PROVIDES A * FILE 019 //* FLEXIBLE SELECTION AND SORT MECHANISM TO TAILOR THE * FILE 019 //* REPORT. THE REPORTS FROM THIS PROGRAM ALLOWED US TO * FILE 019 //* DETERMINE OUR BIGGEST USERS OF SYSTEM RESOURCES SO * FILE 019 //* THAT THE PROGRAMS COULD BE EXAMINED FOR WAYS TO * FILE 019 //* OPTIMIZE THEIR CODE. WE WERE ABLE TO CUT MANY HOURS * FILE 019 //* A WEEK OF CPU TIME BY CLOSELY EXAMINING ONLY A FEW * FILE 019 //* PROGRAMS FOR INEFFICIENT CODING TECHNIQUES. THIS HAS * FILE 019 //* ALLOWED US TO DELAY A PREVIOUSLY NEEDED PROCESSOR * FILE 019 //* UPGRADE. * FILE 019 //* * FILE 019 //* 8) FLSMFSRT * FILE 019 //* * FILE 019 //* THIS UTILITY IS INTENDED TO LIST SORT ACTIVITY BASED * FILE 019 //* UPON SMF RECORDS GENERATED BY THE SYNCSORT PRODUCT. * FILE 019 //* IT PROVIDES A FLEXIBLE SELECTION AND SORT MECHANISM * FILE 019 //* TO TAILOR THE REPORT. THE REPORTS FROM THIS PROGRAM * FILE 019 //* ALLOWS US TO MONITOR OUR LARGER SORTS SINCE DYNAMIC * FILE 019 //* ALLOCATION OF SORTWORK DATASETS MASKS THE LARGER * FILE 019 //* SORTS. * FILE 019 //* * FILE 019 //* 9) FLVOLLST * FILE 019 //* * FILE 019 //* THIS PROGRAM IS DESIGNED TO PRINT A REPORT LISTING ALL * FILE 019 //* OF THE DATASETS ON A VOLUME BASED UPON INFORMATION * FILE 019 //* FROM THE SYSTEM CATALOGS. THIS LIST COULD BE CRITICAL * FILE 019 //* IN CASE OF A DASD FAILURE WHICH DESTROYS THE VTOC ON * FILE 019 //* THE VOLUME. WITH VOLUME POOLING NOW AVAILABLE THROUGH * FILE 019 //* THE USE OF DF/SMS AND OTHER PROGRAM PRODUCTS, IT IS * FILE 019 //* NOT ALWAYS EASY TO DETERMINE THE DATASETS WHICH ARE ON * FILE 019 //* A SPECIFIC VOLUME. * FILE 019 //* * FILE 019 //* THE INPUT TO THIS PROGRAM MUST BE THE OUTPUT FROM AN * FILE 019 //* IDCAMS LISTCAT COMMAND. IT IS EXPECTED THAT AN * FILE 019 //* IDCAMS 'LISTCAT VOL CAT(USER.CATALOG.NAME)' COMMAND * FILE 019 //* WILL BE EXECUTED FOR EACH CATALOG IN THE SYSTEM. THE * FILE 019 //* CONTENTS OF THESE REPORTS CAN THEN BE PASSED TO THIS * FILE 019 //* UTILITY PROGRAM TO PRODUCE THE REPORT BY VOLUME AND * FILE 019 //* DATASET NAME. * FILE 019 //* * FILE 019 //* 10) MODLOOK * FILE 019 //* * FILE 019 //* THIS PROGRAM IS DESIGNED TO RUN AS A TSO COMMAND, * FILE 019 //* STARTED TASK OR A BATCH JOB TO LOOK UP THE SELECTED * FILE 019 //* MODULE(S) IN THE SYSTEM LINK LIST OR LINK PACK AREA. * FILE 019 //* IF THE MODULE IS IN THE LINK LIST, THE LINK LIST * FILE 019 //* LIBRARY NAME WILL BE DISPLAYED. IF THE MODULE IS IN * FILE 019 //* THE LINK PACK AREA, ITS ADDRESS WILL BE DISPLAYED * FILE 019 //* ALONG WITH THE NAME OF THE RESIDENT AREA IN WHICH IT * FILE 019 //* IS LOCATED SUCH AS PLPA, FLPA, ECSA, ETC. THE FIRST * FILE 019 //* PART OF EACH MODULE IS DISPLAYED ALSO SINCE IT CAN * FILE 019 //* CONTAIN DATE, TIME, OR COPYRIGHT INFORMATION WHICH * FILE 019 //* MAY BE OF INTEREST. * FILE 019 //* * FILE 019 //* WITH MANY LIBRARIES NOW IN THE SYSTEM LINK LIST, IT * FILE 019 //* MAY NOT ALWAYS BE APPARENT WHICH DATASET CONTAINS * FILE 019 //* WHICH PROGRAM OR EVEN MORE IMPORTANTLY, IT MAY BE * FILE 019 //* DIFFICULT TO DETERMINE WHICH LIBRARY CONTAINS A * FILE 019 //* MODULE IF DUPLICATE MODULE NAMES EXIST. * FILE 019 //* * FILE 019 //* 11) SMAP * FILE 019 //* * FILE 019 //* THIS PROGRAM IS DESIGNED TO PRINT THE STARTING * FILE 019 //* ADDRESS, ENDING ADDRESS, AND SIZE OF EACH OF THE * FILE 019 //* MAIN STORAGE AREAS IN THE MVS SYSTEM. THIS * FILE 019 //* INFORMATION CAN BE DISPLAYED USING MOST OF THE * FILE 019 //* POPULAR MONITORS CURRENTLY AVAILABLE, BUT NOT * FILE 019 //* EVERYONE HAS ONE, PLUS THIS PROGRAM CAN RUN AS A * FILE 019 //* BATCH JOB PRODUCING A HARDCOPY REPORT. * FILE 019 //* * FILE 019 //* 12) JES$LF * FILE 019 //* * FILE 019 //* THIS JES2 EXIT PROGRAM IS DESIGNED TO PROCESS THE * FILE 019 //* $LF COMMAND WHEN ENTERED. IT WILL GIVE DETAILED * FILE 019 //* INFORMATION AT THE OUTPUT GROUP LEVEL FOR JOBS * FILE 019 //* AWAITING PRINT. IT IS, IN EFFECT, A DETAILED * FILE 019 //* VERSION OF THE $DF COMMAND. * FILE 019 //* * FILE 019 //* DISCLAIMER * FILE 019 //* * FILE 019 //* THE AUTHORS INCLUDING FOOD LION, ITS OFFICERS, * FILE 019 //* DIRECTORS, AND EMPLOYEES MAKE NO REPRESENTATION OR * FILE 019 //* WARRANTY OF ANY KIND WHATSOEVER, INCLUDING, BUT NOT * FILE 019 //* LIMITED TO, REPRESENTATIONS OR WARRANTIES, EXPRESS OR * FILE 019 //* IMPLIED, OR MERCHANTABILITY, FITNESS FOR USE OR * FILE 019 //* PURPOSE, ACCURACY OR COMPLETENESS OF PROCESSES, * FILE 019 //* PROCEDURES, DESIGNS, DEFINITIONS, INSTRUCTIONS, * FILE 019 //* INFORMATION, OR FUNCTIONING OF ANY PROGRAMS, DOCUMENTS, * FILE 019 //* OR RELATED MATERIALS; THE AUTHORS FURTHER EXPRESSLY * FILE 019 //* DISCLAIM ANY KNOWLEDGE OF PURPOSE FOR WHICH THESE * FILE 019 //* PROGRAMS, DOCUMENTS, OR RELATED MATERIAL MAY BE * FILE 019 //* UTILIZED OR THEIR APPLICABILITY FOR SUCH USE, NOR SHALL * FILE 019 //* THE FACT OF MAKING THEM AVAILABLE CONSTITUTE ANY SUCH * FILE 019 //* REPRESENTATION, WARRANTY, OR KNOWLEDGE; NOR DO THE * FILE 019 //* AUTHORS ASSUME ANY LIABILITY, RESPONSIBILITY, OR * FILE 019 //* OBLIGATION ARISING FROM THE USE OR MALFUNCTIONING OF OF * FILE 019 //* THESE COMPUTER PROGRAMS, DOCUMENTATION, OR RELATED * FILE 019 //* MATERIALS. * FILE 019 //* * FILE 019 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * FILE 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 new 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 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 //* THIS PROCEDURE PRESENTS A "COOKBOOK-STYLE" RECIPE * FILE 029 //* FOR ENLARGING THE VTOC OF AN ACTIVE DASD PACK. THE * FILE 029 //* VTOC INDEX HAS TO BE DEACTIVATED FIRST. EVERYTHING * FILE 029 //* IS HERE, AND ALL THE "INGREDIENTS" IN THE RECIPE * FILE 029 //* ARE ON THIS TAPE. IT'S AN EASY TO FOLLOW PATH. * FILE 029 //* ONCE YOU'VE DONE IT A FEW TIMES (BEING CAREFUL OF * FILE 029 //* COURSE) IT'S A PIECE OF CAKE. * FILE 029 //* * FILE 029 //* THE PROCEDURE INVOLVES BUILDING AN EXTENSION TO THE * FILE 029 //* END OF THE EXISTING VTOC. THEREFORE, ANY DATASETS * FILE 029 //* LYING ON THE TRACKS FOLLOWING THE END OF THE VTOC, * FILE 029 //* HAVE TO BE MOVED OUT OF THE WAY. * FILE 029 //* * FILE 029 //***FILE 030 IF FROM MR SAM GOLOB, AND CONTAINS THE CODE * FILE 030 //* NECESSARY TO CHANGE THE CONSOLE DEFAULT PFKEYS * FILE 030 //* ON MVS SYSTEMS BEFORE THE XA 2.2 LEVEL. * FILE 030 //* SEE THE MEMBER CALLED $$DOC FOR ADDITIONAL * FILE 030 //* INFORMATION. * FILE 030 //* * FILE 030 //* MOD TO CHANGE CONSOLE DEFAULT PFKEYS. * FILE 030 //* * FILE 030 //* ATTENTION MVS SP1.3.X AND SP2.1.X USERS .... * FILE 030 //* * FILE 030 //* NOW YOU DON'T HAVE TO BE SATISFIED WITH IBM'S * FILE 030 //* SELECTION OF *** DEFAULT *** PFKEYS ANYMORE. YOU * FILE 030 //* CAN SET 'EM THE WAY YOU WANT 'EM, AND THEY WON'T * FILE 030 //* FALL OFF AFTER AN IOGEN. * FILE 030 //* * FILE 030 //* I'VE CODED 2 SIMPLE USERMODS TO THE SYSGEN MACRO * FILE 030 //* SGIEA2D2 ON AGENLIB. VERY SIMILAR CODING CAN BE * FILE 030 //* USED EITHER ON SP1.3 OR ON XA. ONLY THE SEQUENCE * FILE 030 //* NUMBERS ARE DIFFERENT. THIS IS GOOD AT LEAST UNTIL * FILE 030 //* SP2.2. AFTER SP 2.2.X AND ESA, THESE MODS ARE * FILE 030 //* NOT NECESSARY, BECAUSE PFKEYS ARE SET IN A PARMLIB * FILE 030 //* MEMBER. * FILE 030 //* * FILE 030 //* PLEASE MAKE NOTE OF THE ONE FACT THAT THIS * FILE 030 //* PROCESS SETS ALL CONSOLES WITH THE SAME PFKEYS. * FILE 030 //* AT LEAST YOU CAN GET THE DEFAULTS CLOSER TO WHAT * FILE 030 //* YOU WANT. * FILE 030 //* * FILE 030 //* TWO USERMODS ARE SUPPLIED. THEY WILL HAVE TO * FILE 030 //* BE EDITED AND CUSTOMIZED TO YOUR SHOP. THEY MUST * FILE 030 //* BE ACCEPTED, TO HAVE AN EFFECT IN A SYSGEN OR * FILE 030 //* IOGEN, UNLESS YOU CONCATENATE THE MTS ABOVE * FILE 030 //* AGENLIB IN YOUR SYSGEN ASSEMBLY JCL. SAVE A COPY * FILE 030 //* OF THE ORIGINAL MACRO FOR A BACKUP. * FILE 030 //* * FILE 030 //* JUST USE MY SYSMODS AS MODELS. COMPARE THEM TO * FILE 030 //* THE VERSION OF MACRO SGIEA2D2 THAT YOU HAVE ON YOUR * FILE 030 //* AGENLIB LIBRARY. BE VERY CAREFUL WITH THE SEQUENCE * FILE 030 //* NUMBERS, AND IT'D PROBABLY BE BEST TO FOLLOW MY * FILE 030 //* SCHEME CAREFULLY. GOOD LUCK. * FILE 030 //* * FILE 030 //* ONE FURTHER NOTE. THIS USERMOD IS RUNNING ON * FILE 030 //* MY MVS/370 SYSTEM, BUT I AM UNABLE TO TEST THE XA * FILE 030 //* VERSION HERE. A FRIEND ASSEMBLED AN XA SYSGEN WITH * FILE 030 //* THE "IEBUPDTE"ED MACRO, AND THIS WAS SUCCESSFUL. I * FILE 030 //* COULDN'T PERSONALLY TEST THE RECEIVE, APPLY, AND * FILE 030 //* ACCEPT OF THE XA USERMOD. IT'S OK, HOWEVER. * FILE 030 //* * FILE 030 //***FILE 031 IS A IGGPRE00 EXIT FROM THE FORD AEROSPACE & * FILE 031 //* COMMUNICATIONS CORPORATION IN COLORADO SPRINGS, * FILE 031 //* COLORADO. THIS EXIT WILL ALLOW DASD ALLOCATION OF * FILE 031 //* NEW DATASETS ONLY ON VOLUMES MOUNTED STORAGE OR * FILE 031 //* PUBLIC UNLESS THE USER HAS BEEN GIVEN RACF * FILE 031 //* "OPERATIONS". * FILE 031 //* * FILE 031 //***FILE 032 IS FROM MR SAM GOLOB AND CONTAINS THREE PROGRAMS * FILE 032 //* THAT WERE PREVIOUSLY ON THIS TAPE. THEY WERE * FILE 032 //* GOTTEN FROM THE HUGE "MEMOREX" FILE OF AN OLD CBT * FILE 032 //* TAPE (VERSION 260 OR EARLIER - IT WAS FILE 313.) * FILE 032 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT. FOR * FILE 032 //* ADDITIONAL INFORMATION SEE THE MEMBERS CALLED * FILE 032 //* $$DOC*** IN THIS PDS. * FILE 032 //* * FILE 032 //* COPYPACK - A BATCH UTILITY WHICH COPIES (AND * FILE 032 //* OPTIONALLY RECATALOGS) GROUPS OF * FILE 032 //* DATASETS, BY PARTIAL NAME, FROM ONE * FILE 032 //* DISK PACK TO ANOTHER. IT CAN HANDLE * FILE 032 //* DSORG=PO, PS, OR DA. ALL SUCH DATASETS * FILE 032 //* ON THE ENTIRE PACK CAN BE MOVED. * FILE 032 //* ALLOCATION OF THE TARGET DATASETS IS * FILE 032 //* DONE BY THE PROGRAM AUTOMATICALLY. * FILE 032 //* PARM INPUT PROVIDES MUCH POWER AND * FILE 032 //* FLEXIBILITY. THIS CAN SAVE YOU A LOT * FILE 032 //* OF WORK. IF YOU HAVE FDR, FDRCOPY IS * FILE 032 //* BETTER FOR MOST PURPOSES. SO IS DFDSS * FILE 032 //* COPY. COPYPACK WILL DO A NICE JOB * FILE 032 //* COPYING MODEL DSCB'S FROM ONE PACK TO * FILE 032 //* ANOTHER. COPYPACK HAS BEEN FIXED TO * FILE 032 //* RUN UNDER XA. * FILE 032 //* * FILE 032 //* DOWNDATE - A UTILITY WHICH CREATES AN IEBUPDTE * FILE 032 //* FORMAT DIFFERENCE DECK BETWEEN TWO * FILE 032 //* VERSIONS OF A SOURCE PROGRAM. THIS NOT * FILE 032 //* ONLY FLAGS DIFFERENCES, BUT ALLOWS YOU * FILE 032 //* TO CONVERT FROM ONE SOURCE DECK TO THE * FILE 032 //* OTHER BY MEANS OF THE DIFFERENCE DECK. * FILE 032 //* * FILE 032 //* JCLSCAN - A TSO COMMAND PROCESSOR WHICH CALLS THE * FILE 032 //* MVS JCL CONVERTER TO CHECK A DATASET OF * FILE 032 //* JCL FOR ERRORS. SINCE THE ACTUAL * FILE 032 //* CONVERTER FROM IBM IS USED, YOU GET THE * FILE 032 //* SAME RESULT AS IF YOU DID TYPRUN=SCAN, * FILE 032 //* BUT WITHOUT RUNNING A JOB. IT USES AN * FILE 032 //* SVC TO DO THE CALLING OF THE CONVERTER. * FILE 032 //* OUTPUT IS DISPLAYED AT THE TUBE IN A * FILE 032 //* VERY CONVENIENT FORMAT. * FILE 032 //* * FILE 032 //***FILE 033 is 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 //* *** + *** ----------------- *** + *** * 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: h-seren@uchicago.edu * FILE 033 //* * FILE 033 //***FILE 034 IS FROM NORTHEAST LOUISIANA UNIVERSITY AND * FILE 034 //* CONTAINS A COPY OF THEIR PROGRAM CALLED RACFUSER. * FILE 034 //* THIS IS AN ASSEMBLER PROGRAM WHICH WILL READ THE * FILE 034 //* RACF MASTER DATA SET, PRINT THE PASSWORD * FILE 034 //* EXPIRATION DATE, AND CLASSIFY A USERID INTO ONE OF * FILE 034 //* THE FOLLOWING CATEGORIES : * FILE 034 //* * FILE 034 //* A. PASSWORD WILL EXPIRE BEFORE A SPECIFIED * FILE 034 //* THRUDATE (WHICH IS SPECIFIED ON A PARM OR * FILE 034 //* ALLOWED TO DEFAULT TO SEVEN DAYS FROM * FILE 034 //* TODAY). * FILE 034 //* B. PASSWORD WILL REMAIN ACTIVE AFTER THE * FILE 034 //* THRUDATE, * FILE 034 //* C. PASSWORD CURRENTLY EXPIRED, OR * FILE 034 //* D. USERID HAS NEVER BEEN USED * FILE 034 //* * FILE 034 //* THIS INFORMATION CAN BE USED BY A SECURITY * FILE 034 //* ADMINISTRATOR TO CONTROL THE CONTENTS OF THE RACF * FILE 034 //* MASTER DATA SET WHICH INCLUDES ELIMINATING UNUSED * FILE 034 //* OR OBSOLETE USERIDS AND NOTIFYING DATA CONTROL * FILE 034 //* ABOUT UPCOMING PASSWORD EXPIRATIONS IN SELDOM RUN * FILE 034 //* BATCH JOBS. THIS HELPS PREVENT JCL ERRORS DUE TO * FILE 034 //* AN EXPIRED PASSWORD. * FILE 034 //* * FILE 034 //***FILE 035 is a Load Module library with useful programs in it. * FILE 035 //* * FILE 035 //* SOURCE FILE LOAD MODULE NAME * FILE 035 //* 002 SOURCE CBT973 - uncompres tape files * FILE 035 //* 006 SOURCE CBTUPD - insert ./ ADD cards * FILE 035 //* into this doc * FILE 035 //* 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 //* 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 //* 134 SOURCE HEL (moved to FILE 135) * FILE 035 //* 134 SOURCE REVIEW (moved to FILE 135) * FILE 035 //* 134 SOURCE ZAP (moved to FILE 135) * FILE 035 //* 147 SOURCE ARCHINIT \\ * FILE 035 //* 147 SOURCE ARCHIVER >> ARCHIVER * FILE 035 //* 147 SOURCE ARCHPARS // * FILE 035 //* 182 SOURCE PDS85 - PDS Vers 8.5 loadmod. * FILE 035 //* (Needs PANELS and MSGS to * FILE 035 //* run in ISPMODE. Will run * FILE 035 //* in line mode as is. Use * FILE 035 //* XISPM keyword when invoking. * FILE 035 //* SEE FILE 182 FOR PANELS AND * FILE 035 //* MESSAGES. * FILE 035 //* 182 SOURCE PDS85I - PDS 8.5 genned with * FILE 035 //* European dates. * FILE 035 //* 193 SOURCE TCOPY - Tape copying utility * 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 * FILE 035 //* 266 SOURCE SS0104 tape mapping program * FILE 035 //* 294 SOURCE VSAMADTL VSAMANAL * FILE 035 //* 294 SOURCE VSAMAGET VSAMANAL * FILE 035 //* 294 SOURCE VSAMAHLP VSAMANAL * FILE 035 //* 294 SOURCE VSAMANAL VSAMANAL * FILE 035 //* 294 SOURCE VSAMANDX VSAMANAL * FILE 035 //* 294 SOURCE VSAMSIZE VSAMANAL * FILE 035 //* 296 SOURCE BLKDISK BLK3380 BLK3390 * FILE 035 //* 296 SOURCE BLK3375 BLK9345 BLK3350 * FILE 035 //* 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 //* 316 SOURCE LISPDS (really LISTPDS) * FILE 035 //* 316 SOURCE TAPEL - used with COPYFILE * FILE 035 //* 365 SOURCE OSTAREDC - OSTARXMT error * FILE 035 //* checking assembler program * FILE 035 //* 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 //* 690 SOURCE XMDSMAIN * FILE 035 //* * FILE 035 //***FILE 036 IS A FIXPDS UTILITY FROM MR SAM GOLOB. THIS CODE * FILE 036 //* WAS WRITTEN BY MR ROBERT B. WEINSTEIN. THIS * FILE 036 //* UTILITY RESURRECTS DELETED MEMBERS OF A PDS, BUT IT * FILE 036 //* DOES SO WITHOUT USING THE DIRECTORY. THIS FILE IS * FILE 036 //* IN IEBUPDTE SYSIN FORMAT. * FILE 036 //* * FILE 036 //* THIS PROGRAM STOWS NEW DIRECTORY ENTRIES FOR * FILE 036 //* PHYSICAL FILES IN A DATASET WHICH WOULD LOOK LIKE A * FILE 036 //* PDS MEMBER. IT LOCATES THESE FILES WITHOUT BENEFIT * FILE 036 //* OF A PREVIOUS GOOD DIRECTORY. ALL IT NEEDS IS A * FILE 036 //* BLANK DIRECTORY. * FILE 036 //* * FILE 036 //* THIS FIXPDS PROGRAM RESTORES DELETED MEMBERS OF A * FILE 036 //* PDS WITH A BACKWARD SEARCH, STARTING FROM THE END * FILE 036 //* OF THE DATASET AND BROWSING EACH MEMBER (DELETED OR * FILE 036 //* NOT) WITH ISPF BROWSE. AFTER ENDING EACH BROWSE, * FILE 036 //* YOU HAVE AN OPPORTUNITY TO STOW A NAME IN THE * FILE 036 //* DIRECTORY FOR THAT MEMBER. THE PROGRAM PROCEEDS * FILE 036 //* BACKWARDS, MEMBER BY MEMBER, UNTIL YOU EXIT, OR * FILE 036 //* UNTIL YOU REACH THE BEGINNING OF THE LIBRARY. * FILE 036 //* * FILE 036 //* TWO FEATURES DISTINGUISH THIS PROGRAM FROM OTHERS * FILE 036 //* OF THIS TYPE. ONE, THE MEMBER SEARCH GOES * FILE 036 //* BACKWARDS, STARTING FROM THE END OF THE DATASET AND * FILE 036 //* GOING BACK, ONE MEMBER AT A TIME. THIS ALLOWS YOU * FILE 036 //* TO LOOK AT THE MOST RECENT ACTIVITY FIRST. TWO, * FILE 036 //* EACH MEMBER IS ISPF BROWSED. IT CAN BE EXAMINED IN * FILE 036 //* ITS ENTIRETY, AND IN DETAIL, BEFORE YOU DECIDE * FILE 036 //* WHETHER TO STOW A DIRECTORY ENTRY FOR IT OR NOT. * FILE 036 //* * FILE 036 //* IF YOU DO STOW A DIRECTORY ENTRY, IT DOESN'T MATTER * FILE 036 //* IF ONE ALREADY EXISTS FOR THAT MEMBER. THE NEW ONE * FILE 036 //* IS CREATED ALSO. IF AN OLD ENTRY WAS THERE TOO, * FILE 036 //* UNDER A DIFFERENT NAME, AN "APPARENT ALIAS" IS * FILE 036 //* CREATED. USING THE "PDS" PROGRAM (IN CBT TAPE FILE * FILE 036 //* 182), ALL THE APPARENT ALIASES CREATED CAN BE FLAGGED * FILE 036 //* IN A JIFFY, USING THE "VERIFY" SUBCOMMAND OF PDS. * FILE 036 //* * FILE 036 //* EDITOR'S NOTE. IF ALL YOU WANT TO DO IS RESTORE * FILE 036 //* DELETED MEMBERS OF A PDS, THE "PDS" PROGRAM ON FILE * FILE 036 //* 182 (WITH UTILITIES ON FILES 296 AND 112) IS * FILE 036 //* PROBABLY BETTER THAN FIXPDS, AND PDS IS MUCH * FILE 036 //* QUICKER. A THIRD REFERENCE IS THE "PDSGAS" PROGRAM * FILE 036 //* - FILE 316. ALSO, THE "PDS" PROGRAM DOES MANY MORE * FILE 036 //* THINGS, AND PDS IS NOT TOO HARD TO INSTALL. I * FILE 036 //* PERSONALLY HAVE RECEIVED MANY INQUIRIES FROM PEOPLE * FILE 036 //* TRYING TO INSTALL FIXPDS, BECAUSE MY NAME IS ON THE * FILE 036 //* CALL LIST. I AM SPEAKING FROM MUCH EXPERIENCE. * FILE 036 //* FIXPDS IS NICE TO HAVE, THOUGH, AND I DO NOT MEAN * FILE 036 //* TO DISCOURAGE PEOPLE FROM INSTALLING IT. SBG. * FILE 036 //* * FILE 036 //***FILE 037 IS AN MVS VERSION OF COPYCAT TO MOVE, SPLIT, * FILE 037 //* AND/OR REORGANIZE CVOL CATALOGS. THIS VERSION * FILE 037 //* RUNS UNDER MVS AND THE RESULTANT CVOL MAY BE * FILE 037 //* LISTED WITH IEHLIST. THIS VERSION HAS 3380 AND * FILE 037 //* 3375 SUPPORT ADDED FROM UCLA. THIS FILE IS IN * FILE 037 //* IEBUPDTE SYSIN FORMAT SEE THE MEMBER CALLED $$DOC * FILE 037 //* FOR ADDITIONAL INFORMATION. * FILE 037 //* * FILE 037 //* $CBTJCL .. THE JCL USED AT CBT TO INSTALL * FILE 037 //* $MANUAL .. THE COPYCAT MANUAL * FILE 037 //* $UCLAJCL. THE JCL USED AT UCLA TO INSTALL * FILE 037 //* COPYCAT .. COPYCAT CODE ITSELF * FILE 037 //* FIX1 .. FIX ESATE01 - CONVERTS COPYCAT FROM STAE TO * FILE 037 //* ESTAE USE AND CORRECTS AN S30A ABEND THAT * FILE 037 //* OCCURS FOLLOWING AN X37 ABEND. * FILE 037 //* FIX2 ..... FIX XCP200 - CORRECTS AN S200 ABEND THAT * FILE 037 //* INTERMITTENTLY OCCURS IN COPYCAT AFTER AN * FILE 037 //* 'X37' ABEND, DUE TO ALL OF THE I/O NOT * FILE 037 //* HAVING COMPLETED BEFORE SVC55 IS ISSUED * FILE 037 //* FOR AN END-OF-VOLUME INDICATION. * FILE 037 //* OAC1 ..... FIX DEV3380 - ADDS 3380 SUPPORT TO COPYCAT * FILE 037 //* OAC2 ..... FIX HASH001 - UCLA LOCAL MODE. SEE MEMBER * FILE 037 //* FOR ADDITIONAL INFORMATION. * FILE 037 //* * FILE 037 //***FILE 038 IS FROM MR LARRY WILLIAMS AND CONTAINS A VERY * FILE 038 //* ELABORATE SPACE WAR GAME CALLED " KLINGON ". IT * FILE 038 //* IS A LOT LIKE MOST STAR TREK GAMES EXCEPT YOU GET * FILE 038 //* TO BE THE BAD GUYS. THE GAME CAN RUN EITHER IN * FILE 038 //* LINE MODE OR IN FULL SCREEN MODE UNDER TSO ON A * FILE 038 //* 3270 TYPE TERMINAL. THIS FILE IS IN IEBUPDTE * FILE 038 //* SYSIN FORMAT. SEE THE MEMBER CALLED ##DOC FOR * FILE 038 //* ADDITIONAL INFORMATION. * FILE 038 //* * FILE 038 //* NOTE. FOR PEOPLE HAVING PROBLEMS COMPILING THIS * FILE 038 //* WITH FORTRAN H, YOU CAN COMPILE IT WITH FORTRAN G. * FILE 038 //* * FILE 038 //* Larry Williams * FILE 038 //* email: larryw@ix.netcom.com * FILE 038 //* * FILE 038 //***FILE 039 is from Citibank in New York and contains : * FILE 039 //* * FILE 039 //* 1. An SMF program to process type 14 and 15 records * FILE 039 //* using IBM DFSORT. * FILE 039 //* 2. A modification to the IPOUPDTE program so it * FILE 039 //* will run against any partitioned dataset, and * FILE 039 //* it doesn't require the presence of a member * FILE 039 //* nameed $$$COIBM. * FILE 039 //* 3. A modification to the CPPUPDTE program so it * FILE 039 //* will run against any partitioned dataset, and * FILE 039 //* it doesn't require the presence of a member * FILE 039 //* nameed $$$COIBM. (from Sam Golob 10/99) * FILE 039 //* * FILE 039 //***FILE 040 IS FROM PEOPLES NATIONAL BANK OF WASHINGTON AND * FILE 040 //* CONTAINS SEVERAL OF THEIR UTILITIES. THIS FILE IS * FILE 040 //* IN IEBUPDTE SYSIN FORMAT. FOR ADDITIONAL * FILE 040 //* INFORMATION SEE THE MEMBER CALLED $$DOC. * FILE 040 //* * FILE 040 //* DBACONSL - WTO/WTOR ASSIST SUBROUTINE * FILE 040 //* * FILE 040 //* DBAIOB - DSECT FOR AN IOB * FILE 040 //* * FILE 040 //* PDSCLEAN - CLEANS OUT A PDS WITHOUT REQUIRING A * FILE 040 //* DELETE/DEFINE. THE NUMBER OF DIRECTORY * FILE 040 //* BLOCKS MAY BE CHANGED AT THE SAME TIME. * FILE 040 //* SEVERAL PDS'S MAY BE CLEANED IN ONE * FILE 040 //* STEP. CAN BE EXECUTED IN TSO * FILE 040 //* FOREGROUND * FILE 040 //* * FILE 040 //* PDSPDS - A PDS MASS SCAN/UPDATE UTILITY. LOOK * FILE 040 //* AT ALL OR A SUBSET OF MEMBERS OF A PDS. * FILE 040 //* CHANGE AS REQUESTED. SINCE RECORDS ARE * FILE 040 //* NOT USUALLY ADDED OR DELETED UPDATES IN * FILE 040 //* PLACE SAVING COMPRESSES. XPDS TSO * FILE 040 //* CLIST AND PROCPDS PROC ARE INCLUDED * FILE 040 //* * FILE 040 //* RDOC72 - A DOCUMENTATION FORMATTER. PROVIDES * FILE 040 //* HEADERS, FOOTERS, TABLE OF CONTENTS, * FILE 040 //* PAGE NUMBERS, AND LOTS MORE * FILE 040 //* * FILE 040 //* REGS - REGISTER EQUATE MACRO * FILE 040 //* * FILE 040 //* SUPERGEN - SUPER IEBGENER. FIND AND (LIMITED) * FILE 040 //* CHANGE RECORDS IN A SEQUENTIAL FILE. * FILE 040 //* RELATIVE RECORD NUMBER, TTR, OR MBBCCHHR * FILE 040 //* ADDRESSES CAN BE USED. IDEAL FOR LOOKING * FILE 040 //* AT 'ACTUAL' DATA IN A LARGE FILE IN * FILE 040 //* FOREGROUND. SPGEN TSO CLIST AND PROCGEN * FILE 040 //* PROC ARE INCLUDED * FILE 040 //* * FILE 040 //* VDBS$DDF - SUBROUTINE TO SCAN TIOT TO FIND A DD * FILE 040 //* * FILE 040 //* VDBS$HEX - HEX PRINT UTILITY SUBROUTINE * FILE 040 //* * FILE 040 //***FILE 041 IS FROM BENJAMIN FRANKLIN FEDERAL SAVINGS AND * FILE 041 //* LOAN ASSOCIATION OF PORTLAND OREGON AND CONTAINS * FILE 041 //* EXITS TO MVS/SP JES2 TO PROVIDE TABLE DRIVEN FORMS * FILE 041 //* CONTROL FOR XEROX 8700 / 9700 LASER PRINTERS. * FILE 041 //* THE EXITS INSERT XEROX DJDE COMMANDS BETWEEN REPORTS * FILE 041 //* GOING TO THE PRINTERS BASED ON THE SYSOUT CLASS AND * FILE 041 //* FORMS ID SPECIFIED IN STANDARD JCL. THIS FILE * FILE 041 //* IS IN IEBUPDTE SYSIN FORMAT * FILE 041 //* * FILE 041 //***FILE 042 IS FROM DAVE DROUIN FROM CONN NATIONAL BANK THIS * FILE 042 //* CODE WILL TAKE FILE 001 OF THIS TAPE AND PUT IT INTO * FILE 042 //* INFO/MVS FORMAT SO IT CAN BE LOADED INTO A INFO/MVS * FILE 042 //* DATABASE. THIS FILE IS IN IEBUPDTE SYSIN FORMAT. * FILE 042 //* SEE THE MEMBER CALLED $DOC FOR ADDTIONAL INFORMATION * FILE 042 //* * FILE 042 //* A COMMENT ABOUT LOADING THIS FILE INTO AN INFO/MVS * FILE 042 //* DATA BASE. WE DO NOT USE VERSION 2 BUT IF YOU TAKE * FILE 042 //* THE INPUT TO LOAD VERSION 1 AND CONVERT IT TO FIXED * FILE 042 //* BLOCK WITH AN LRECL OF 80 BYTES AND SHIFT EVERYTHING * FILE 042 //* LEFT 8 BYTES (WITH THE PROPER JCL) YOU SHOULD BE * FILE 042 //* OKAY - USE THE LAST JOB IN FILE 003 FOR THE JCL TO * FILE 042 //* CREATE THE INPUT TO THE INFO/MVS DATA BASE AND THEN * FILE 042 //* CHANGE IT TO FIXED BLOCK AND SHIFT 8 BYTES LEFT. * FILE 042 //* YOU HAVE WILL TO CREATE YOUR OWN JCL TO LOAD THE * FILE 042 //* VERSION 2 DATA BASE * FILE 042 //* * FILE 042 //***FILE 043 IS FROM DAVE DROUIN FROM CONN NATIONAL BANK. THIS * FILE 043 //* FILE CONTAINS THE DATA FOR THE HEADER INFORMATION * FILE 043 //* FOR USE WITH FILE 042 ON THIS TAPE. THIS FILE IS * FILE 043 //* IS LRECL=255,BLKSIZE=3120,RECFM=VB * FILE 043 //* * FILE 043 //***FILE 044 IS FROM YALE UNIVERSITY AND CONTAINS A COPY OF * FILE 044 //* ASMTOZAP. THIS FILE IS IN IEBUPDTE SYSIN FORMAT, FOR * FILE 044 //* ADDITIONAL INFORMATION SEE THE MEMBER CALLED $DOC. * FILE 044 //* * FILE 044 //* ASMTOZAP IS A UTILITY WHICH READS AN ASSEMBLER * FILE 044 //* LISTING AND PRODUCES AMASPZAP CONTROL CARDS. THIS * FILE 044 //* ALLOWS NON-TRIVIAL PATCHES TO BE WRITTEN IN * FILE 044 //* ASSEMBLER LANGUAGE WITH FULL USE OF SYMBOLIC * FILE 044 //* REFERENCES, DSECTS, AND MACROS. CODE IS * FILE 044 //* POSITIONED AT THE CORRECT OFFSETS BY USE OF ORG. * FILE 044 //* SYMBOLIC ADDRESSES CAN BE GENERATED BY ORG, OR * FILE 044 //* FAKED BY EQU, OR COPYED, ETC. THERE IS LESS ROOM * FILE 044 //* FOR ERROR, IMPROVED LEGIBILITY, AND CONVERSION * FILE 044 //* FROM ONE RELEASE TO ANOTHER USUALLY INVOLVES ONLY * FILE 044 //* CHANGING A FEW ORG'S TO REFLECT THE NEW ADDRESSES * FILE 044 //* OF THE PATCH AREA OR ZAPPED INSTRUCTIONS. * FILE 044 //* * FILE 044 //* ASMTOZAP HAS BEEN TESTED USING ASSEMBLER H VERS 2 * FILE 044 //* AND THE IBM HIGH-LEVEL ASSEMBLER (HLASM). * FILE 044 //* * FILE 044 //* NOTE. THIS PROGRAM IS WRITTEN IN PL/1. HOWEVER, WE HAVE * FILE 044 //* TRIED TO MAKE IT POSSIBLE FOR ALL MVS SHOPS TO USE * FILE 044 //* ASMTOZAP. FIRST, THERE IS A VERSION THAT RUNS * FILE 044 //* UNDER PL1/F - THE FREE VERSION OF PL/1 WHOSE * FILE 044 //* COMPILER AND LIBRARY IS ON THIS TAPE - FILE 092. * FILE 044 //* SECOND, THE LOAD MODULE FOR ASMTOZAP THAT IS ON * FILE 044 //* FILE 035 IS AN OLD LOAD MODULE THAT WAS COMPILED * FILE 044 //* USING THE PL/1 OPTIMIZER VERSION 1.3.0. THEREFORE * FILE 044 //* YOU CAN RUN THAT MODULE, EVEN ON A VERY OLD VERSION * FILE 044 //* OF THE PL/1 OPTIMIZER TRANSIENT LIBRARY. (AND OF * FILE 044 //* COURSE YOU CAN RUN IT ON THE NEWER VERSIONS * FILE 044 //* OF PL/1.) SG - 03/22/94 * FILE 044 //* * FILE 044 //* PL1/F RETURN CODE PROCESSING PUT IN (AS WITH PL/1 * FILE 044 //* OPTIMIZER). THANKS TO JIM MARSHALL WHO SENT ME A * FILE 044 //* SET OF PL1/F MANUALS. SEE ALSO ASMTOZAF LOAD * FILE 044 //* MODULE ON FILE 035. SG - 04/11/94 * FILE 044 //* * FILE 044 //***FILE 045 IS AN ENHANCEMENT TO THE YALE COMPARE PROGRAM THAT IS * FILE 045 //* IN FILE 226 OF THIS TAPE. THE PURPOSE OF THIS CODE IT TO * FILE 045 //* ALLOW THE COMPARE PGM TO PROCESS TWO PDS FILES RATHER * FILE 045 //* THAN TWO SEQUENTIAL FILES. THE PROGRAM IS SELF CONTAINED. * FILE 045 //* SIMPLY ASSEMBLE AND LINK AND IT'S READY TO USE. * FILE 045 //* ADDITIONAL INFORMATION ON HOW TO USE THE PROGRAM IS * FILE 045 //* CONTAINED AS COMMENTS AT THE BEGINNING OF THE CODE * FILE 045 //* ITSELF. ALSO INCLUDED IS THE JES2 SOURCE COMPARE SYSTEM. * FILE 045 //* * FILE 045 //* COMPONENTS OF THIS FILE : * FILE 045 //* $$DOC - DOCUMENTATION OF THE JES2 COMPARE SYSTEM * FILE 045 //* PDSCMPR - ORIGINAL PDS COMPARE PROGRAM * FILE 045 //* * FILE 045 //* JES2 SOURCE COMPARE SYSTEM * FILE 045 //* JES2CMPR - AN ASSEMBLY LANGUAGE PROGRAM THAT * FILE 045 //* IS A MODIFICATION OF THE PDSCMPR * FILE 045 //* PROGRAM. THIS PROGRAM CREATES A * FILE 045 //* PDS THAT CONTAINS ALL OF THE * FILE 045 //* CHANGES BETWEEN TWO RELEASES. * FILE 045 //* JES2LIST - AN ASSEMBLY LANGUAGE PROGRAM THAT * FILE 045 //* READS THE ABOVE PDS, THE SYSPRINT * FILE 045 //* OUTPUT FROM THE ASSEMBLER AND * FILE 045 //* PRINTS A NEW ASSEMBLY LISTING * FILE 045 //* SHOWING WERE CHANGES HAVE * FILE 045 //* OCCURRED * FILE 045 //* CMPRPDS - A JCL STREAM THAT EXECUTES JES2CMPR * FILE 045 //* JES2ASM2 - A PROC THAT EXECUTES * FILE 045 //* THE ASSEMBLER AND THEN JES2LIST TO * FILE 045 //* CREATE THE POST ASSEMBLY LISTING * FILE 045 //* ASM88888 - A JCL STREAM THAT ASSEMBLES ALL OF * FILE 045 //* THE JES2 MODULES * FILE 045 //* THIS FILE IN IS IEBUPDTE SYSIN FORMAT * FILE 045 //* * FILE 045 //***FILE 046 IS THE MASS MUTUAL DISK PACK MAINTENANCE PROGRAM, * FILE 046 //* "PACKRAT". ITS ONLY FUNCTION IS TO EXAMINE THE * FILE 046 //* VTOC OF A PARTICULAR VOLUME AND SCRATCH THE * FILE 046 //* DATASETS SPECIFIED. THE UNCATALOG ONLY OCCURS IF * FILE 046 //* THE DATA SET IS CATALOGED ON THE VOLUME CURRENTLY * FILE 046 //* BEING EXAMINED. IF IT IS A MULTI-VOLUME DATA SET * FILE 046 //* IT IS NOT SCRATCHED OR UNCATALOGED. THIS PROGRAM * FILE 046 //* HAS BEEN USED ON 3330, 3350, 3380, AND 3390 * FILE 046 //* DEVICES. IT HAS BEEN RUN UNDER MVS SP 1.3, MVS/XA, * FILE 046 //* AND MVS/ESA. THIS "PACKRAT" PROGRAM MUST RUN * FILE 046 //* AUTHORIZED AND THE USER MUST HAVE OPERATOR * FILE 046 //* AUTHORIZATION. THE PROMPT SCREEN ALLOWS YOU TO * FILE 046 //* ENTER THE VOLSER YOU WISH TO EXAMINE AND THE SCAN * FILE 046 //* DATE. A FULL SCREEN OF DATA SETS CAN BE SCRATCHED * FILE 046 //* AT A TIME. HITTING THE ENTER KEY PAGES YOU * FILE 046 //* FORWARD THROUGH THE VTOC. ADDITIONAL INFORMATION * FILE 046 //* MAY BE FOUND IN THE COMMENTS OF THE CODE ITSELF. * FILE 046 //* * FILE 046 //***FILE 047 IS FROM TORONTO HYDRO IN TORONTO, ONTARIO, CANADA. * FILE 047 //* THIS FILE CONTAINS THE FOLLOWING, FOR ADDITIONAL * FILE 047 //* INFORMATION SEE THE MEMBER CALLED $INDEX : (THIS * FILE 047 //* FILE ALSO USES SOME MACROS THAT ARE IN FILES 435 AND * FILE 047 //* OR 464. THIS FILE HAS BEEN SUBMITTED BY MR JIM LANE * FILE 047 //* * FILE 047 //* THE CURRENT FILE IS A REFRESH AS OF 12/09/93. * FILE 047 //* * FILE 047 //* 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 or sbgolob@attglobal.net * 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 //* From LISTVOL * FILE 048 //* * FILE 048 //* VOLUME DATASET NAME * FILE 048 //* OS39M1 IBMUSER.DITPROF * FILE 048 //* DATA04 IBMUSER.FDM.LOAD * FILE 048 //* DATA04 IBMUSER.FDM752.ASSEMBLE * FILE 048 //* DATA04 IBMUSER.FDM752.CLIST * FILE 048 //* DATA04 IBMUSER.FDM752.CNTL * FILE 048 //* DATA04 IBMUSER.FDM752.HELP * FILE 048 //* DATA04 IBMUSER.FDM752.JCL * FILE 048 //* DATA04 IBMUSER.FDM752.LOAD * FILE 048 //* DATA04 IBMUSER.FDM752.MCS * FILE 048 //* DATA04 IBMUSER.FDM752.MSGS * FILE 048 //* DATA04 IBMUSER.FDM752.PANELS * FILE 048 //* DATA04 IBMUSER.FDM752.SKELS * FILE 048 //* DATA04 IBMUSER.FDM752.TLOD * FILE 048 //* DATA04 IBMUSER.FDM752.TSRC * FILE 048 //* * FILE 048 //* From LISTSPC * FILE 048 //* * FILE 048 //* DSORG ALLOC UNUSED EXTENTS DSNAME * FILE 048 //* VOLUME (OS39M1) NOT MOUNTED FOR IBMUSER.DITPROF * FILE 048 //* PO 90 17 2 IBMUSER.FDM.LOAD * FILE 048 //* PO 35 11 1 IBMUSER.FDM752.ASSEMBLE * FILE 048 //* PO 40 11 1 IBMUSER.FDM752.CLIST * FILE 048 //* PO 46 10 1 IBMUSER.FDM752.CNTL * FILE 048 //* PO 198 7 1 IBMUSER.FDM752.HELP * FILE 048 //* PO 11 1 1 IBMUSER.FDM752.JCL * FILE 048 //* PO 58 12 2 IBMUSER.FDM752.LOAD * FILE 048 //* PO 24 6 1 IBMUSER.FDM752.MCS * FILE 048 //* PO 7 2 1 IBMUSER.FDM752.MSGS * FILE 048 //* PO 654 137 1 IBMUSER.FDM752.PANELS * FILE 048 //* PO 5 2 1 IBMUSER.FDM752.SKELS * FILE 048 //* PO 19 0 1 IBMUSER.FDM752.TLOD * FILE 048 //* PO 36 10 1 IBMUSER.FDM752.TSRC * 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: jmorrison@ameritech.net * FILE 052 //* jmm@ensose.com * FILE 052 //* * FILE 052 //***FILE 053 IS FROM DELUXE CHECK PRINTERS AND IS PART OF THE * FILE 053 //* ISPF SYSTEM THEY SENT TO THE TAPE. THIS FILE IS * FILE 053 //* IN IEBUPDTE SYSIN FORMAT AND CONTAINS SOURCE * FILE 053 //* * FILE 053 //***FILE 054 IS FROM DELUXE CHECK PRINTERS AND IS PART OF THE * FILE 054 //* ISPF SYSTEM THEY SENT TO THE TAPE. THIS FILE IS * FILE 054 //* IN IEBUPDTE SYSIN FORMAT AND CONTAINS ISPF PANELS * FILE 054 //* * FILE 054 //***FILE 055 IS FROM DELUXE CHECK PRINTERS AND IS PART OF THE * FILE 055 //* ISPF SYSTEM THEY SENT TO THE TAPE. THIS FILE IS * FILE 055 //* IN IEBUPDTE SYSIN FORMAT AND CONTAINS ISPF MSGS * FILE 055 //* * FILE 055 //***FILE 056 IS FROM DELUXE CHECK PRINTERS AND IS PART OF THE * FILE 056 //* ISPF SYSTEM THEY SENT TO THE TAPE. THIS FILE IS IN * FILE 056 //* IEBUPDTE SYSIN FORMAT AND CONTAINS ISPF SKELETONS * FILE 056 //* * FILE 056 //***FILE 057 IS FROM DELUXE CHECK PRINTERS AND IS PART OF THE * FILE 057 //* ISPF SYSTEM THEY SENT TO THE TAPE. THIS FILE IS * FILE 057 //* IN IEBCOPY FORMAT AND CONTAINS ISPF CLISTS * FILE 057 //* * FILE 057 //***FILE 058 IS A TSO COMMAND CALLED LINKLIST FROM MR CHUCK * FILE 058 //* HOFFMAN OF GTE LABS IN WALTHAM, MA. THIS TSO * FILE 058 //* COMMAND PROCESSOR SHOWS THE SYSTEM ID AND THE * FILE 058 //* LINKLIST FOR THE RUNNING SYSTEM * FILE 058 //* * FILE 058 //***FILE 059 IS A COMBINATION OF CLISTS AND ASSEMBLER PROGRAMS * FILE 059 //* TO DISPLAY LAST IPL INFORMATION AND TODAY'S DATE * FILE 059 //* ON A HANDY ISPF PANEL. THIS FILE IS FROM KEN TOMIAK * FILE 059 //* OF THE DEPT OF INFORMATION TECHNOLOGY AND TELECOMMU- * FILE 059 //* NICATIONS (DOITT) OF NEW YORK CITY. * FILE 059 //* * FILE 059 //* THERE IS A SMALL ADDITION FROM SAM GOLOB. THIS IS * FILE 059 //* A PANEL CALLED "IDPANEL" WITH A REXX EXEC CALLED * FILE 059 //* "SMCASID". THIS PANEL IS MEANT TO BE EXECUTED VIA * FILE 059 //* AN ENTRY IN YOUR ISPF COMMAND TABLE ISPCMDS. THIS * FILE 059 //* PANEL SHOWS USEFUL INFORMATION ABOUT YOUR CURRENT * FILE 059 //* ISPF SESSION THAT IS INVOKING IT. THE REXX EXEC * FILE 059 //* "SMCASID" OBTAINS YOUR SYSTEM ID AND PUTS IT INTO * FILE 059 //* AN ISPF VARIABLE IN THE SHARED POOL. THIS IS GOOD * FILE 059 //* IF YOU HAVE MULTIPLE SYSTEMS LIKE WE HAVE. IF YOU * FILE 059 //* HAVE ONLY ONE SYSTEM, YOU CAN CHANGE IDPANEL TO * FILE 059 //* DELETE THE REFERENCES TO &SYSID AND THE COMMAND * FILE 059 //* SMCASID WHICH OBTAINS IT. THEN YOU DON'T NEED THE * FILE 059 //* REXX EXEC. IF YOU HAVE TSO/E 1.4 OR BELOW (WITHOUT * FILE 059 //* REXX) YOU HAVE TO DO THIS ANYWAY, OR USE AN * FILE 059 //* ASSEMBLER PROGRAM TO GET THE SYSTEM ID INTO A * FILE 059 //* VARIABLE INSTEAD. * FILE 059 //* * FILE 059 //***FILE 060 IS THE SOFTWARE STATUS REPORT ISPF APPLICATION FROM * FILE 060 //* MR CHARLES WELLS OF THE GEORGIA DEPARTMENT OF LABOR. * FILE 060 //* SOFTWARE STATUS REPORT IS AN ISPF APPLICATION * FILE 060 //* CONSISTING OF 3 LOAD MODULES, 2 CLISTS, 5 ISPF * FILE 060 //* PANELS, 5 ISPF TUTORIAL PANELS, AND 4 ISPF MESSAGE * FILE 060 //* MEMBERS. IT ALLOWS RECORDING OF SOFTWARE PRODUCTS * FILE 060 //* INSTALLED ON YOUR SYSTEM AND MAINTENANCE HISTORY FOR * FILE 060 //* EACH PRODUCT. PRODUCTS CAN BE DISPLAYED BY PRODUCT * FILE 060 //* NAME, ACRONYM, VENDOR, CATEGORY, FMID OR PTF/MOD. A * FILE 060 //* FORMATTED HARDCOPY REPORT CAN BE PRODUCED, WITH * FILE 060 //* PRODUCTS ORGANIZED ON THE REPORT ACCORDING TO * FILE 060 //* CUSTOMIZABLE COMBINATIONS OF VENDOR AND CATEGORY. * FILE 060 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS * FILE 060 //* ALL THE SOURCE AND ISPF PANELS * FILE 060 //* THIS FILE GOES WITH FILES 061 062 063 064 * FILE 060 //* * FILE 060 //***FILE 061 IS THE SOFTWARE STATUS REPORT FROM THE GEORGIA * FILE 061 //* DEPARTMENT OF LABOR. THIS FILE CONTAINS THE * FILE 061 //* THE LOAD MODULES AND IS IN IEBCOPY FORMAT * FILE 061 //* THIS FILE GOES WITH FILES 060 062 063 064 * FILE 061 //* * FILE 061 //***FILE 062 IS THE SOFTWARE STATUS REPORT FROM THE GEORGIA * FILE 062 //* DEPARTMENT OF LABOR. THIS FILE CONTAINS THE * FILE 062 //* ONE RECORD FOR INITIALIZING SSRV.SOFTSTAT.INDXTBL * FILE 062 //* IT IS LRECL=2040 BLKSIZE=2040 RECFM=FB * FILE 062 //* THIS FILE GOES WITH FILES 060 061 063 064 * FILE 062 //* * FILE 062 //***FILE 063 IS THE SOFTWARE STATUS REPORT FROM THE GEORGIA * FILE 063 //* DEPARTMENT OF LABOR. THIS FILE CONTAINS THE * FILE 063 //* ONE RECORD FOR INITIALIZING SSRV.SOFTSTAT.PRODTBL * FILE 063 //* IT IS LRECL=8180 BLKSIZE=8180 RECFM=FB * FILE 063 //* THIS FILE GOES WITH FILES 060 061 062 064 * FILE 063 //* * FILE 063 //***FILE 064 IS THE SOFTWARE STATUS REPORT FROM THE GEORGIA * FILE 064 //* DEPARTMENT OF LABOR. THIS FILE CONTAINS THE * FILE 064 //* ONE RECORD FOR INITIALIZING SSRV.SOFTSTAT.HISTORY * FILE 064 //* IT IS LRECL=53 BLKSIZE=53 RECFM=FB * FILE 064 //* THIS FILE GOES WITH FILES 060 061 062 063 * FILE 064 //* * FILE 064 //***FILE 065 IS FROM MR JAMES PURDY OF REVLON IN NEW JERSEY AND * FILE 065 //* CONTAINS A MODIFICATION TO MODULE IEAVNP03 TO * FILE 065 //* RECOGNIZE A DATASET IN THE LINKLIST THAT IS EITHER * FILE 065 //* NOT CATALOGED OR IS CATALOGED BUT NOT IN THE MVS * FILE 065 //* MASTER CATALOG. THERE ARE SEVERAL LEVELS OF THE * FILE 065 //* MODIFICATION IN THIS FILE * FILE 065 //* * FILE 065 //* WHAT ELSE IS NEW? JIM ISN'T AT REVLON ANY MORE. * FILE 065 //* HIS CURRENT ADDRESS IS: * FILE 065 //* * FILE 065 //* JAMES PURDY * FILE 065 //* ANDERSEN CONSULTING * FILE 065 //* 1345 MEADOW GLEN * FILE 065 //* SOUTHLAKE, TX 76092 * FILE 065 //* (214) 402-7511 * FILE 065 //* * FILE 065 //***FILE 066 is from Alan Field of Supervalu in Eden Prairie, * FILE 066 //* Minnesota and contains several of their utilities. * FILE 066 //* * FILE 066 //* email: alan.field@supervalu.com * FILE 066 //* * FILE 066 //* This PDS contains the following members: * 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 //* 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 //* 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 //* 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 //* email: rn.prins@quicknet.nl * FILE 068 //* Rob.Prins@mail.ing.nl * 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 //* Director of Research & Development * FILE 077 //* Syzygy Incorporated Syzygy Incorporated * FILE 077 //* 1381 Kildaire Farm Road 897 Oak Park Blvd * FILE 077 //* Suite 326 Suite 500 * FILE 077 //* Cary, NC 27511-5525 Pismo Beach, CA 93449 * FILE 077 //* * FILE 077 //* Phone:(800) 767-2244 * FILE 077 //* Fax: (800) 366-4082 * FILE 077 //* * FILE 077 //* email: brian_westerman@juno.com * FILE 077 //* brianw45@aol.com * FILE 077 //* 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 //* DYNAMASK Program to do Eligible Device Table (EDT) * FILE 077 //* changes on the fiy. Very very useful. * 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 //* sbgolob@attglobal.net * 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 //* Director of Research & Development * FILE 088 //* Syzygy Incorporated Syzygy Incorporated * FILE 088 //* 1381 Kildaire Farm Road 897 Oak Park Blvd * FILE 088 //* Suite 326 Suite 500 * FILE 088 //* Cary, NC 27511-5525 Pismo Beach, CA 93449 * FILE 088 //* * FILE 088 //* Phone:(800) 767-2244 * FILE 088 //* Fax: (800) 366-4082 * FILE 088 //* * FILE 088 //* email: brian_westerman@juno.com * FILE 088 //* brianw45@aol.com * FILE 088 //* 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 //* David Noon's email: dwnoon@ibm.net -or- * FILE 090 //* dwnoon@compuserve.com * FILE 090 //* * FILE 090 //* In March 1999, someone asked how to read and write * FILE 090 //* RECFM=U data from PL/I in the comp.lang.pl1 USENET * FILE 090 //* newsgroup. David Noon posted that if a delinker written * FILE 090 //* in PL/I was wanted then just ask. That's not what the * FILE 090 //* original poster wanted, but I asked instead, and Dave * FILE 090 //* duly emailed it to me. * FILE 090 //* * FILE 090 //* The package turned out to be a powerful batch utility * FILE 090 //* to delink, resize and even package for later processing * FILE 090 //* (such as distribution and reinstallation) some or all * FILE 090 //* CSECTs of nominated load modules. It could, for * FILE 090 //* example, be used in a job stream to replace certain * FILE 090 //* CSECTs with newer versions. * FILE 090 //* * FILE 090 //* I ended up plugging it into REVIEW R31.0 (CBT File 134), * FILE 090 //* so that members tagged in the member list (or all * FILE 090 //* members if none are tagged) can be dynamically delinked. * FILE 090 //* * FILE 090 //* Please note that this Delinker will not process * FILE 090 //* scatter-load or segment-overlay programs correctly. It * FILE 090 //* will only process load modules, and not program objects. * FILE 090 //* * FILE 090 //* In case you do not have a suitable PL/I compiler handy, * FILE 090 //* I have supplied DELINKI and DWNSPDSR load modules in CBT * FILE 090 //* File 135. I proposed calling the program DELINK1 to * FILE 090 //* distinguish it from the DELINK/DELINK0 OS/360 FE Tool * FILE 090 //* (and its derivatives), but Sam Golob preferred DELINKI, * FILE 090 //* so DELINKI it is. (The 1 or I denotes that it is written * FILE 090 //* in PL/I.) * FILE 090 //* * FILE 090 //* A member contents list follows. * FILE 090 //* Greg Price, July 1999. * FILE 090 //* * FILE 090 //* -MEMBER- -CONTENTS------------------------------------ * FILE 090 //* * FILE 090 //* $$DOC - This member. * FILE 090 //* * FILE 090 //* DCFDOC - This is a documentation source file Dave made * FILE 090 //* in SGML. It can easily be converted to GML * FILE 090 //* and run through SCRIPT/VS. It can be TEXT * FILE 090 //* transferred to DELINK.IPF on the PC for * FILE 090 //* processing by the IPF compiler. I resolved a * FILE 090 //* lot (but not all) of character symbolics to * FILE 090 //* get it to fit into an 80-column file. It * FILE 090 //* also made the uncompiled source more * FILE 090 //* readable. * FILE 090 //* * FILE 090 //* &apos. was replaced by ' * FILE 090 //* &asterisk. was replaced by * * FILE 090 //* &colon. was replaced by : * FILE 090 //* &comma. was replaced by , * FILE 090 //* &eq. was replaced by = * FILE 090 //* &hyphen. was replaced by - * FILE 090 //* &lpar. was replaced by ( * FILE 090 //* &per. was replaced by . * FILE 090 //* &plus. was replaced by + * FILE 090 //* &rpar. was replaced by ) * FILE 090 //* &slash. was replaced by / * FILE 090 //* * FILE 090 //* DELINK - This is the main PL/I source member. * FILE 090 //* It should be compiled with OS PL/I Version 2 * FILE 090 //* or with PL/I for MVS & VM. Requires DWNSCAN * FILE 090 //* and DWNSHEX to be linked into the program * FILE 090 //* executable, and DWNSPDSR to be fetchable * FILE 090 //* during execution. * FILE 090 //* * FILE 090 //* DWNMPRLG - PL/I prologue macro used by DWNSCAN and * FILE 090 //* DWNSHEX. Seems to work for OS PL/I Version 2 * FILE 090 //* and PL/I for MVS & VM. * FILE 090 //* * FILE 090 //* DWNSCAN - Performs the same function as the PL/I SEARCH * FILE 090 //* built-in function. The SEARCH and SEARCHR * FILE 090 //* built-in functions are not yet available under * FILE 090 //* MVS (OS/390) at the time of writing. This * FILE 090 //* module should be assembled and made available * FILE 090 //* at bind (ie. link-edit) time for inclusion * FILE 090 //* into the main program. * FILE 090 //* * FILE 090 //* DWNSHEX - Performs a similar function to the PL/I HEX * FILE 090 //* built-in function. The HEX and HEXIMAGE * FILE 090 //* built-in functions are not yet available * FILE 090 //* under MVS (OS/390) at the time of writing. * FILE 090 //* This module should be assembled and made * FILE 090 //* available at bind (ie. link-edit) time for * FILE 090 //* inclusion into the main program. * FILE 090 //* * FILE 090 //* DWNSPDSR - Provides BPAM support for the main PL/I * FILE 090 //* program. It should be assembled and made * FILE 090 //* available for dynamic fetching at execute * FILE 090 //* time. * FILE 090 //* * FILE 090 //* DWNYBLDL - PL/I source structure for PDS program * FILE 090 //* directory entry. It was obviously meant to * FILE 090 //* be included in the source by some strange * FILE 090 //* control card (not %INCLUDE), so I just copied * FILE 090 //* it into the source. This member is therefore * FILE 090 //* no longer used. * FILE 090 //* * FILE 090 //* FMBLOCK - Housekeeping macros used by DWNSPDSR, all of * FILE 090 //* FMCREDT which were probably contributed to the SHARE * FILE 090 //* FMSTART tape by Ken True of Fairchild MSS (hence FM, * FILE 090 //* FMWORK1 no doubt). They were moved from from the * FILE 090 //* FMWORK2 SHARE tape to the Fairchild MSS "Mods" tape, * FILE 090 //* later called the Intel MVS "Mods" tape, circa * FILE 090 //* 1982. * FILE 090 //* * FILE 090 //* PLIICB - PL/I Interrupt Control Block macro used by * FILE 090 //* DWNSHEX on error conditions. * FILE 090 //* * FILE 090 //* PLISIG - PL/I Signal macro used by DWNSHEX on error * FILE 090 //* conditions. * FILE 090 //* * FILE 090 //* XMITBOOK - TSO/E transmit file of DELINK.INF which was * FILE 090 //* created by compiling DELINK.IPF (source in * FILE 090 //* member DCFDOC) with IPFC under OS/2. Process * FILE 090 //* with INDATASET operand of the TSO/E RECEIVE * FILE 090 //* command to get a RECFM=U sequential data set. * FILE 090 //* BINARY transfer this file to the PC (byte * FILE 090 //* counts should match). Use the VIEW command of * FILE 090 //* OS/2 or PC-DOS to look at DELINK.INF which * FILE 090 //* contains the Delinker documentation. The * FILE 090 //* PC-DOS VIEW command also works from the MS-DOS * FILE 090 //* prompt (including under Win95). Apparently, * FILE 090 //* there is an IVIEW command downloadable from * FILE 090 //* IBM designed to work under Win95. * FILE 090 //* * FILE 090 //***FILE 091 IS FROM JIM MARSHALL, FORMERLY OF THE US AIR FORCE. * FILE 091 //* * FILE 091 //* 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 MR SAM GOLOB. SOME OF THIS CODE IS * FILE 093 //* FROM THE SHARE PL1 TAPE. FOR ADDITIONAL * FILE 093 //* INFORMATION SEE THE MEMBERS CALLED $$$$DOC AND * FILE 093 //* $$$$DOC2. * FILE 093 //* * FILE 093 //* THIS SYSTEM SHOULD PROVE USEFUL IF YOU WANT * FILE 093 //* TO "SEQUENTIALIZE" A PDS. * FILE 093 //* * FILE 093 //* THIS LIBRARY CONTAINS TWO PAIRS OF PROGRAMS: * FILE 093 //* * FILE 093 //* 1. OFFLOADW AND PDSLOADW (MODIFIED FROM * FILE 093 //* CBT TAPE BY GREG PRICE.) * FILE 093 //* * FILE 093 //* 2. UNUPDTE AND UPDTE (FROM PL1 MODS * FILE 093 //* TAPE - SPLA. UNUPDTE WAS ENHANCED BY ART * FILE 093 //* TANSKY OF SUNGARD.) * FILE 093 //* * FILE 093 //* EACH PAIR IS A SELF-CONTAINED SYSTEM THAT IS * FILE 093 //* INDEPENDENT OF THE OTHER PAIR. * FILE 093 //* * FILE 093 //* OFFLOADW AND PDSLOADW ALLOW IEBUPDTE-TYPE UNLOADING * FILE 093 //* AND RELOADING OF PDS'ES TO SEQUENTIAL DATASETS. * FILE 093 //* THIS IS NOT RESTRICTED TO RECORD LENGTHS OF 80 FOR * FILE 093 //* THE DATA. ALMOST ANY PARTITIONED DATASETS ARE * FILE 093 //* ELIGIBLE FOR THIS TREATMENT. THIS OPENS * FILE 093 //* IEBUPDTE-TYPE UNLOADS TO TAPE OR DISK-SEQUENTIAL * FILE 093 //* DATASETS TO MUCH WIDER APPLICATION THAN HERETOFORE. * FILE 093 //* (ALSO SEE THE "=OFFLOAD" OPTION OF THE "REVIEW" TSO * FILE 093 //* COMMAND THAT IS ON FILE 134 OF THIS TAPE.) * FILE 093 //* * FILE 093 //* OFFLOAD AND PDSLOAD NOW AUTOMATICALLY ALLOW * FILE 093 //* FOR LRECL FROM 1 TO 256 NOW (FROM GREG PRICE) * FILE 093 //* WITH NO CONDITIONAL ASSEMBLY. * FILE 093 //* * FILE 093 //* THE RESULT WAS ACHIEVED BY SLIGHTLY MODIFYING * FILE 093 //* EXISTING PROGRAMS PDSLOAD (FROM CBT TAPE FILE * FILE 093 //* 316) AND OFFLOAD (FROM CBT TAPE FILE 225). * FILE 093 //* YOU CAN GET THE IEBUPDTE-TYPE UNLOAD AND * FILE 093 //* RELOAD TREATMENT, COMPLETE WITH THE ./ ADD * FILE 093 //* CARDS AND ISPF STATISTICS PRESERVED. AFTER * FILE 093 //* GREG PRICE'S MODIFICATIONS, OFFLOAD AND PDSLOAD * FILE 093 //* ARE NOW A MATCHED PAIR OF PROGRAMS TO PERFORM * FILE 093 //* OPPOSITE FUNCTIONS: OFFLOAD SEQUENTIALIZES A PDS, * FILE 093 //* AND PDSLOAD RELOADS THE PDS FROM THE SEQUENTIAL * FILE 093 //* OFFLOADED FILE. * FILE 093 //* * FILE 093 //* THE UPDTE AND UNUPDTE PROGRAMS WERE LIFTED * FILE 093 //* FROM THE PL1 MODS TAPE THAT CAN BE OBTAINED * FILE 093 //* FROM SPLA (ORDER NUMBER 370D-03.2.019). * FILE 093 //* * FILE 093 //* THESE PROGRAMS ARE MORE FLEXIBLE THAN * FILE 093 //* PDSLOADW AND OFFLOADW IN THAT: * FILE 093 //* * FILE 093 //* 1. THEY HANDLE RECFM=F AND ALSO RECFM=V * FILE 093 //* DATASETS. * FILE 093 //* * FILE 093 //* 2. THE DATASET CAN HAVE ANY LRECL PERMITTED * FILE 093 //* BY THE SYSTEM. * FILE 093 //* * FILE 093 //* PROCESSING WITH THESE PROGRAMS SEQUENTIALIZES A * FILE 093 //* PDS BY LOADING EACH MEMBER TO A SEQUENTIAL * FILE 093 //* DATASET, PRECEDED BY A CONTROL RECORD THAT LOOKS * FILE 093 //* LIKE ./ ADD NAME=MEMBNAME , SIMILAR TO AN * FILE 093 //* IEBUPDTE CONTROL CARD. * FILE 093 //* * FILE 093 //* THE PROGRAM UNUPDTE CONVERTS A PARTITIONED * FILE 093 //* DATASET INTO SEQUENTIAL FORMAT DESCRIBED BY THE * FILE 093 //* PRECEDING PARAGRAPH. THE PROGRAM UPDTE LOADS * FILE 093 //* THE SEQUENTIALIZED DATASET OF THE ABOVE FORMAT * FILE 093 //* BACK INTO A PDS THAT HAS THE SAME DCB ATTRIBUTES * FILE 093 //* (EXCEPT FOR DSORG OF COURSE). * FILE 093 //* * FILE 093 //* IT IS ALSO ADVANTAGEOUS TO HAVE PDSLOADW AND * FILE 093 //* OFFLOADW AROUND, BECAUSE THEY HAVE SOME OPTIONS * FILE 093 //* WHICH UPDTE AND UNUPDTE DO NOT HAVE, SUCH AS * FILE 093 //* AUTOMATICALLY CONVERTING THE STRING ./ WITHIN A * FILE 093 //* MEMBER (IN COLUMNS 1-2) TO SOME OTHER STRING, * FILE 093 //* SUCH AS ><. THEREFORE I AM INCLUDING BOTH PAIRS * FILE 093 //* OF PROGRAMS IN THIS PACKAGE. * FILE 093 //* * FILE 093 //* JCL TO RUN THESE PROGRAMS IS OF THE SAME FORMAT * FILE 093 //* AS IEBUPDTE JCL, TO THE POINT WHERE EACH PROGRAM * FILE 093 //* MIMICS THE FUNCTION OF IEBUPDTE. FOR INSTANCE, * FILE 093 //* UNUPDTE, WHICH UNLOADS A PDS TO A SEQUENTIAL * FILE 093 //* DATASET, HAS DDCARDS SYSPRINT, SYSUT1, AND * FILE 093 //* SYSUT2. UPDTE, WHICH DOES THE OPPOSITE, HAS * FILE 093 //* CONTROL CARDS SYSPRINT, SYSIN, AND SYSUT2. YOU * FILE 093 //* GET THE PICTURE. * FILE 093 //* * FILE 093 //* THESE FOUR PROGRAMS (TWO PAIRS) TAKEN TOGETHER, * FILE 093 //* PROVIDE POWERFUL TOOLS FOR SEQUENTIALIZATION OF * FILE 093 //* PARTITIONED DATASETS. * FILE 093 //* * FILE 093 //* ------------------------------------------------------------- * FILE 093 //* * FILE 093 //* PDSLOAD update notes from Greg Price: (see File 134 - REVIEW) * FILE 093 //* * FILE 093 //* PDSLOAD has now been further enhanced to handle any * FILE 093 //* LRECL for both fixed-length and variable-length * FILE 093 //* records. The LRECL of the input sequential data set * FILE 093 //* can but need not match the LRECL of the output * FILE 093 //* partitioned data set. * FILE 093 //* * FILE 093 //* When the output PDS has fixed-length records, the input * FILE 093 //* file may have fixed-length or variable-length records. * FILE 093 //* (Text files transferred from PCs often go to variable- * FILE 093 //* length record files on MVS.) * FILE 093 //* * FILE 093 //* When the output PDS has variable-length records, only * FILE 093 //* variable-length record input data is acceptable. * FILE 093 //* * FILE 093 //* Undefined record format files cannot be used for input * FILE 093 //* or output. * FILE 093 //* * FILE 093 //* The minimum input LRECL is 80. The minimum output * FILE 093 //* LRECL is 1 (plus 4 for RDWs, if present). * FILE 093 //* * FILE 093 //* PARM=NEW is used to specify that, like IEBUPDTE, the * FILE 093 //* input control+data stream is to be loaded from SYSIN, * FILE 093 //* instead of SYSUT1. In any event, if an OPEN for SYSUT1 * FILE 093 //* does not open successfully (and no abend occurs) the * FILE 093 //* OPEN is retried with SYSIN as the DDname. * FILE 093 //* * FILE 093 //* PARM=SPF can still be used to generate ISPF * FILE 093 //* "statistics". SSI information will be lost when this * FILE 093 //* is selected. The "userid" of generated stats is * FILE 093 //* 'PDSLOAD'. * FILE 093 //* * FILE 093 //* John Kalinich's Y2K windowing fix allows for 2-digit * FILE 093 //* years below 66 to be deemed to belong to the 21st * FILE 093 //* century. This is necessary because the PDSLOAD stats * FILE 093 //* format on the ./ ADD statement only allows for 2-digit * FILE 093 //* years. (Generated stats did not have a Y2K bug.) * FILE 093 //* * FILE 093 //* The SPF stats current record count will always be set * FILE 093 //* from the record count processed by PDSLOAD, even when * FILE 093 //* this differs from the data supplied on a ./ ADD card. * FILE 093 //* Other data will not be overridden. Apart from the * FILE 093 //* userid, supplied stats are now verified to consist of * FILE 093 //* numeric characters. * FILE 093 //* * FILE 093 //* The asterisk (*), question mark (?) and percent sign * FILE 093 //* (%) are now treated as generic character placeholders * FILE 093 //* for member selection. The three mask characters * FILE 093 //* function identically, and cause a match for the * FILE 093 //* corresponding byte position of the member name. Thus, * FILE 093 //* S(ABC****X) will select all members beginning with * FILE 093 //* 'ABC' and ending in 'X' in the eighth byte, and S(****) * FILE 093 //* will select all members with names no longer than four * FILE 093 //* non-blank characters. * FILE 093 //* * FILE 093 //* The IBM OS utility DDname override parameter can now be * FILE 093 //* used by PDSLOAD. The SYSIN, SYSPRINT and SYSUT2 * FILE 093 //* "slots" are relevant. (This was done to facilitate * FILE 093 //* dynamic invocation from the REVIEW TSO command.) See * FILE 093 //* the leading comments in the source code for more * FILE 093 //* information on DDname overrides. * FILE 093 //* * FILE 093 //* Parameter order is 'NEW,SPF,S(********),UPDTE(><)' for * FILE 093 //* example. Unwanted options can be omitted, but the * FILE 093 //* order is fixed. * FILE 093 //* * FILE 093 //* Greg Price 20 April, 1999 * FILE 093 //* * FILE 093 //***FILE 094 is from Michael Cleary, and contains a copy of * FILE 094 //* DAF (Dataset Audit Facility). This file is in * FILE 094 //* IEBUPDTE SYSIN format. * FILE 094 //* * FILE 094 //* The current release of DAF is 1.46. 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. * FILE 094 //* * FILE 094 //* The current release is in members: DAF and DAF146L. * FILE 094 //* * FILE 094 //* MIKE CLEARY HAS A NEW ADDRESS: * FILE 094 //* * FILE 094 //* Contact: Michael J. Cleary * FILE 094 //* Mainframe Technical Services * FILE 094 //* AmerisourceBergen * FILE 094 //* 4000 Metropolitan Drive * FILE 094 //* Orange, California 92868 * FILE 094 //* United States of America * FILE 094 //* 714.385.4052 (voice) * FILE 094 //* 714.385.8888 (fax) * FILE 094 //* mailto:michael_cleary@yahoo.com * FILE 094 //* http://www.geocities.com/michael_cleary/ * 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 U.S. BANK OF WASHINGTON AND CONTAINS ALL THE * FILE 097 //* SOURCE CODE, JCL, AND DOCUMENTATION FOR THE COMPLETE * FILE 097 //* DISK MANAGEMENT SYSTEM OF PEOPLES NATIONAL BANK OF * FILE 097 //* WASHINGTON. ALL DISK MANAGEMENT SYSTEMS REQUIRE * FILE 097 //* CUSTOMIZATION TO FIT THE PARTICULAR NEEDS OF EACH * FILE 097 //* INSTALLATION. EXTENSIVE CUSTOMIZATION DOCUMENTATION * FILE 097 //* IS PROVIDED IN THE DOCPROG (PROGRAMMER'S * FILE 097 //* DOCUMENTATION) MEMBER. RUN PROCEDURES, REPORT * FILE 097 //* FORMATS, AND RECORD LAYOUTS ARE PROVIDED IN DOCUSER * FILE 097 //* (USER'S DOCUMENTATION). SAMPLE JCL AND CONTROL FILES * FILE 097 //* ARE PROVIDED IN OTHER MEMBERS OF THIS PDS. * FILE 097 //* * FILE 097 //* ALL OF THESE PROGRAMS HAVE BEEN COMPILED AND RUN IN * FILE 097 //* UNDER MVS/SP JES3. TO THE BEST OF OUR KNOWLEDGE THEY * FILE 097 //* HAVE NO XA OR JES DEPENDENCIES. * FILE 097 //* * FILE 097 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT SEE THE MEMBER * FILE 097 //* CALLED =DOC (WHERE = IS THE AT-SIGN) FOR ADDITIONAL * FILE 097 //* INFORMATION * FILE 097 //* * FILE 097 //***FILE 098 IS AN ISPF APPLICATION FOR USE WITH THE TSO/E XMIT * FILE 098 //* AND RECEIVE FUNCTION FROM DAYCO PRODUCT INC OF DAYTON * FILE 098 //* OHIO. THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND * FILE 098 //* CONTAINS A COPY OF THE DOCUMENTATION, CLISTS, * FILE 098 //* PANELS AND SKELETONS. FOR ADDITIONAL INFORMATION SEE * FILE 098 //* THE MEMBER CALLED $$$PROSE. FILE 099 OF THIS TAPE * FILE 098 //* CONTAINS A FILE THAT IS NEEDED BY THIS SYSTEM * FILE 098 //* * FILE 098 //***FILE 099 IS AN ISPF APPLICATION FOR USE WITH THE TSO/E XMIT * FILE 099 //* AND RECEIVE FUNCTION FROM DAYCO PRODUCT INC OF DAYTON * FILE 099 //* OHIO. THIS FILE IS IN NEEDED BY FILE 098 OF THIS * FILE 099 //* TAPE. THIS FILE IS IN IEBGENER FORMAT, THE DCB IS * FILE 099 //* LRECL=251 BLKSIZE=32630 RECFM=FB * FILE 099 //* * FILE 099 //***FILE 100 IS FROM DELUXE CHECK PRINTERS AND CONTAINS THEIR SPF * FILE 100 //* MENUS, PANELS AND MESSAGES FOR THE NEW ISPF/PDF. * FILE 100 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT, SEE THE * FILE 100 //* MEMBER CALLED $$$DOC FOR ADDITIONAL INFORMATION. * FILE 100 //* FILE 101 OF THIS TAPE CONTAINS THE CLISTS REQUIRED BY * FILE 100 //* THESE SPF MENUS. THE FOLLOWING IS A CONDENSED * FILE 100 //* VERSION OF WHAT IS IN THE $$$DOC MEMBER : * FILE 100 //* * FILE 100 //* ALL PANELS AND OR MENUS AND OR MESSAGES AND OR * FILE 100 //* SKELETONS HAVE BEEN CONVERTED TO THE NEWEST ISPF * FILE 100 //* AND ISPF/PDF FORMATS 5668-960 AND 5665-268 I THINK * FILE 100 //* * FILE 100 //* $$$$DISC DISCLAIMER ON CONTENTS * FILE 100 //* * FILE 100 //* SPF MENUS * FILE 100 //* * FILE 100 //* ABR***** ABR UTILITY SELECTION AND FUNCTIONS PANELS * FILE 100 //* COBOL2 FOREGROUND COBOL COMPILE PANEL * FILE 100 //* COBOL2B BACKGROUND COBOL COMPILE PANEL * FILE 100 //* GENER1 FOREGROUND IEBGENER PANEL * FILE 100 //* INFOMGT1 INFO MANAGEMENT PANEL * FILE 100 //* INFOSEL INFO MANAGEMENT DATABASE SELECTION PANEL * FILE 100 //* ISR PRIM REPLACEMENT FOR PRIMARY OPTION MENU * FILE 100 //* LINK3 FOREGROUND LINKAGE EDIT PANEL * FILE 100 //* LINK3B BACKGROUND LINKAGE EDIT PANEL * FILE 100 //* PLTCMPR1 COMPARE UTILITY PANEL * FILE 100 //* PSWDSEL PASSWORD (OS) MAINTENANCE SELECTION PANEL * FILE 100 //* PWADD PASSWORD (OS) ADDITION PANEL * FILE 100 //* PWCHNG PASSWORD (OS) CHANGE PANEL * FILE 100 //* PWDEL PASSWORD (OS) DELETION PANEL * FILE 100 //* S1ASM1 FOREGROUND SERIES 1 HOST ASSEMBLER PANEL * FILE 100 //* S1ASM1B BACKGROUND SERIES 1 HOST ASSEMBLER PANEL * FILE 100 //* S1OBJ1 FOREGROUND SERIES 1 OBJECT SHIPPING PANEL * FILE 100 //* USERSEL USER UTILITY SELECTION MENU * FILE 100 //* USERSELB USER BACKGROUND SELECTION MENU * FILE 100 //* USERVTOC VTOC UTILITY PANEL * FILE 100 //* * FILE 100 //* SPF TUTORIAL MENUS * FILE 100 //* * FILE 100 //* TABR**** ABR UTILITY FUNCTIONS TUTORIAL PANELS * FILE 100 //* TPLTCMP* COMPARE UTILITY TUTORIAL PANELS * FILE 100 //* TS1ASM1 SERIES1 OBJECT SHIPPING TUTORIAL PANEL * FILE 100 //* TVTOC** VTOC UTILITY TUTORIAL PANELS * FILE 100 //* * FILE 100 //* CLISTS * FILE 100 //* * FILE 100 //* ABR***** ABR CLISTS * FILE 100 //* ****PASS PASSWORD (OS) MAINTENANCE CLISTS * FILE 100 //* GENER1 IEBGENER CLIST * FILE 100 //* INFOMGT1 INFO MANAGEMENT CLIST * FILE 100 //* PLTCMPR FOREGROUND COMPARE UTILITY CLIST * FILE 100 //* (REQUIRED SYNCSORT) * FILE 100 //* S1ASM1 FOREGROUND SERIES 1 HOST ASSEMBLER CLIST * FILE 100 //* S1ASM1B BACKGROUND SERIES 1 HOST ASSEMBLER CLIST * FILE 100 //* S1OBJ1 FOREGROUND SERIES 1 OBJECT SHIPPING CLIST * FILE 100 //* USERCOB FOREGROUND COBOL COMPILER CLIST * FILE 100 //* USERCOBB BACKGROUND COBOL COMPILER CLIST * FILE 100 //* USERLNK FOREGROUND LINK EDIT CLIST * FILE 100 //* USERLNKB BACKGROUND LINK EDIT CLIST * FILE 100 //* USERSELB BACKGROUND SELECTION PROCESSING CLIST * FILE 100 //* VTOCCMD1 VTOC UTILITY - REQUIRES VTOC COMMAND FROM CBT TAPE * FILE 100 //* * FILE 100 //* SPF MESSAGES * FILE 100 //* * FILE 100 //* ABR00 ABR UTILITY FUNCTIONS MESSAGES * FILE 100 //* PLTCM00 COMPARE MESSAGES * FILE 100 //* SASM00 SERIES 1 MESSAGES * FILE 100 //* VTOC00 VTOC UTILITY MESSAGES * FILE 100 //* * FILE 100 //***FILE 101 IS FROM DELUXE CHECK PRINTERS AND CONTAINS THEIR SPF * FILE 101 //* CLISTS FOR THE NEW ISPF/PDF. THIS FILE IS IN * FILE 101 //* IEBUPDTE SYSIN FORMAT, SEE THE MEMBER CALLED $$$DOC * FILE 101 //* IN FILE 100 ABOVE FOR ADDITIONAL INFORMATION * FILE 101 //* * FILE 101 //***FILE 102 is the TAPESCAN program, from Frank Pajerski of * FILE 102 //* Sacramento, California, and fixed to handle tapes * FILE 102 //* that have up to 64K blocks of data, by Sam Golob. * FILE 102 //* * FILE 102 //* email: fpajerski@earthlink.net * FILE 102 //* "Pajerski, Frank" * FILE 102 //* * FILE 102 //* email: sbgolob@attglobal.net * FILE 102 //* or 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 Sutton Coldfield, * FILE 104 //* England. This file was modified from previous files * FILE 104 //* File 104 and File 158 from this tape. * FILE 104 //* * FILE 104 //* DAVID CARTWRIGHT * FILE 104 //* 103, DARNICK ROAD, * FILE 104 //* SUTTON COLDFIELD * FILE 104 //* UK - B73 6PF * FILE 104 //* TEL. ++44 (0)121 355 3190 * FILE 104 //* * FILE 104 //* email address: dcuk@dcuk.demon.co.uk * FILE 104 //* * FILE 104 //* JRP IS A DSPRINT REPLACEMENT * FILE 104 //* * FILE 104 //* J R P (JES2 REMOTE PRINTERS) * FILE 104 //* * FILE 104 //* THIS PRODUCT WAS DESIGNED AND WRITTEN WITH THE * FILE 104 //* INTENT OF INCREASING USER AS WELL AS PROGRAMMER * FILE 104 //* PRODUCTIVITY. IT("JRP") MAKES USE OF 3270 PRINTER * FILE 104 //* DEVICES TO PRINT SPOOLED JES2 OUTPUT. OUTPUT * FILE 104 //* DEVICES ARE DEFINED TO "JRP" VIA A SEQUENTIAL DATA * FILE 104 //* SET. EACH CONTROL CARD IN THIS DATA SET DESCRIBES * FILE 104 //* THE ATTRIBUTES OF ONE PRINTER. * FILE 104 //* * FILE 104 //* AFTER "JRP" INITIALIZATION,A SUBSYSTEM REQUEST * FILE 104 //* IS ISSUED TO JES2 BASED ON EACH PRINTER'S * FILE 104 //* DESCRIPTION. IF JES2 CONFIRMS THAT OUTPUT IS * FILE 104 //* AVAILABLE FOR THE PRINTER DESCRIBED, A SUBTASK IS * FILE 104 //* CREATED, USING THE ATTRIBUTES DEFINED FOR THAT * FILE 104 //* PARTICULAR DEVICE. THE SPOOL DATASET IS READ, * FILE 104 //* BUFFERED, THEN WRITTEN TO THE PRINTER VIA "VTAM". * FILE 104 //* * FILE 104 //* "JRP" SUPPORTS VTAM SNA AND NONSNA TERMINALS AS * FILE 104 //* "JRP" CONTROL TERMINALS. A MAXIMUM OF 25(TWENTY * FILE 104 //* FIVE) TERMINALS ARE SUPPORT SIMULTANEOUSLY. ALL * FILE 104 //* FUNCTIONS REQUIRED TO SUPPORT "JRPS" PRINTER * FILE 104 //* DEVICES ARE AVAILIBLE FROM A "JRP" CONTROL * FILE 104 //* TERMINAL. * FILE 104 //* * FILE 104 //* MODIFIED TO HANDLE SUPPRESS PRINT CONTROL CHARACTER. * FILE 104 //* CAN NOW BE USED TO PRINT SAS GRAPHS. * FILE 104 //* * FILE 104 //* Tested on OS/390 Version 2.6. * FILE 104 //* * FILE 104 //***FILE 105 IS FROM MARK DIEHL OF HERCULES/ALLEGANY BALLISTICS * FILE 105 //* AND IS A COPY OF THEIR ISPF OUTLIST UTILITY. * FILE 105 //* THIS UTILITY WAS WRITTEN AS A REPLACEMENT FOR * FILE 105 //* ISPF/PDF'S 3.8 "OUTLIST" UTILITY. IT MAKES USE OF * FILE 105 //* ISPF'S TABLE SERVICES TO PROVIDE A SIMPLE, YET * FILE 105 //* EFFECTIVE USER INTERFACE TO THE JOB QUEUE. A SINGLE * FILE 105 //* CLIST DRIVES THIS VERSION OF THE OUTLIST UTILITY. THE * FILE 105 //* CLIST COMMENTS COMBINED WITH THE ISPF TUTORIAL PANELS * FILE 105 //* PROVIDE A SELF-DOCUMENTING SYSTEM. SEE MEMBER $$INDEX * FILE 105 //* FOR A DESCRIPTION OF THE OUTLIST UTILITY COMPONENTS. * FILE 105 //* MODIFICATIONS TO SUIT YOUR SHOP'S STANDARDS GOES * FILE 105 //* WITHOUT SAYING. IT IS STRONGLY ADVISABLE THAT ALL * FILE 105 //* COMPONENTS BE THOROUGHLY REVIEWED IN THEIR ENTIRETY * FILE 105 //* BEFORE IMPLEMENTING AT YOUR SHOP. * FILE 105 //* * FILE 105 //* THIS UTILITY IS GREAT FOR 4381-TYPE SHOPS WHO CAN'T * FILE 105 //* AFFORD THE LIKES OF 'WE WON'T MENTION NAMES' TO * FILE 105 //* PERFORM THE BASIC FUNCTIONS IT PROVIDES. THIS FILE * FILE 105 //* IS IN IEBUPDTE SYSIN FORMAT * FILE 105 //* * FILE 105 //***FILE 106 IS A PROGRAM TO TELL WHAT RACF ACCESS THE LISTED * FILE 106 //* USERS HAVE TO THE LISTED DATASETS, PROFILES, * FILE 106 //* ENTITIES OR WHATEVER. FOR ADDITIONAL INFORMATION * FILE 106 //* SEE THE MEMBER CALLED $DOC. THIS FILE IS IN * FILE 106 //* IEBUPDTE SYSIN FORMAT. * FILE 106 //* * FILE 106 //* THIS PROGRAM IS FROM: * FILE 106 //* * FILE 106 //* ART TANSKY * FILE 106 //* SUNGARD * FILE 106 //* 600 LAUREL OAK ROAD - NEW ADDRESS * FILE 106 //* VOORHEES, NJ 08043 * FILE 106 //* (609) 566-3611 NEW PHONE * FILE 106 //* * FILE 106 //***FILE 107 is the Clemson University Structured Macro Library * FILE 107 //* from Mr James C Blalock. This file contains the * FILE 107 //* Macro Library and docmentation members on how to use * FILE 107 //* the system. This file is in IEBUPDTE SYSIN format. * FILE 107 //* For additional information see the members called * FILE 107 //* $$README and $$DOC. File 108 of this tape contains * FILE 107 //* the SAMPLIB Library for these structured macros. * FILE 107 //* * FILE 107 //* email : carey@clemson.edu * FILE 107 //* * FILE 107 //* The information in this file was downloaded from * FILE 107 //* Jim Blalock's home page at: * FILE 107 //* * FILE 107 //* http://people.clemson.edu/~carey * FILE 107 //* * FILE 107 //* The following explanations accompany the download * FILE 107 //* web page. * FILE 107 //* * FILE 107 //* Note: The Users Guide is written in DCF * FILE 107 //* (SCRIPT/VS) using GML. If anyone needs it and * FILE 107 //* doesn't have access to GML, the samplib contains * FILE 107 //* an FBM IEBGENER-able version: It isn't pretty * FILE 107 //* but you can read it. * FILE 107 //* * FILE 107 //* Support (yeah right): It's like this, folks: * FILE 107 //* We're all seasoned professionals here, and busy * FILE 107 //* people besides. I'll answer questions if I have * FILE 107 //* time, but please take a shot at figuring a * FILE 107 //* problem out on your own first. The SAMPLIB * FILE 107 //* should contain enough examples to get you past * FILE 107 //* the how-do-I questions. I'll try to add some * FILE 107 //* more stuff like MPF exits later. * FILE 107 //* * FILE 107 //* COPYRIGHT CLEMSON UNIVERSITY, 1989, 1998 * FILE 107 //* * FILE 107 //* THE MATERIALS CONTAINED IN FILES 107 AND 108 OF * FILE 107 //* THIS TAPE ARE PROVIDED FOR GENERAL USE BY CLEMSON * FILE 107 //* UNIVERSITY. ALTHOUGH THE PACKAGE HAS BEEN TESTED * FILE 107 //* TO CLEMSON UNIVERSITY'S SATISFACTION FOR THE * FILE 107 //* PURPOSE FOR WHICH IT WAS INTENDED, NO WARRANTY, * FILE 107 //* EXPRESSED OR IMPLIED, IS MADE BY CLEMSON UNIVERSITY * FILE 107 //* AS TO THE ACCURACY AND FUNCTIONING OF THE * FILE 107 //* PROGRAM(S) AND RELATED MATERIALS. CLEMSON * FILE 107 //* UNIVERSITY ASSUMES NO LIABILITY FOR ANY DAMAGE THAT * FILE 107 //* MAY BE CAUSED BY ANY USE OF THIS PACKAGE. * FILE 107 //* * FILE 107 //* THE MATERIALS CONTAINED IN THIS PACKAGE ARE * FILE 107 //* DISTRIBUTED ON AN 'AS-IS' BASIS. CLEMSON * FILE 107 //* UNIVERSITY IS UNDER NO OBLIGATION TO MAINTAIN OR * FILE 107 //* UPGRADE THIS PACKAGE, NOR IS CLEMSON UNIVERSITY * FILE 107 //* UNDER ANY OBLIGATION TO FURNISH ASSISTANCE OR * FILE 107 //* ADDITIONAL MATERIALS. * FILE 107 //* * FILE 107 //* BY USE OF THIS PACKAGE, THE ORGANIZATION AGREES TO * FILE 107 //* ACKNOWLEDGE CLEMSON UNIVERSITY AS THE ORIGINATOR OF * FILE 107 //* THE PACKAGE. * FILE 107 //* * FILE 107 //***FILE 108 is the Clemson University Structured Macro SAMPLIB * FILE 108 //* from Mr James C Blalock. This file contains the * FILE 108 //* SAMPLIB for the Macro System contained in File 107 * FILE 108 //* of this tape. * FILE 108 //* * FILE 108 //* See documentation for this package in the doc for * FILE 108 //* File 107. The contents of this package was * FILE 108 //* downloaded from the author's home page at: * FILE 108 //* * FILE 108 //* http://people.clemson.edu/~carey * FILE 108 //* * FILE 108 //* email: carey@clemson.edu * FILE 108 //* * FILE 108 //* ----------------------------------------------------------- * FILE 108 //* * FILE 108 //* Clemson University Structured Macros SAMPLIB Contents * FILE 108 //* * FILE 108 //* JCL Procedures: * FILE 108 //* * FILE 108 //* ASMP - Run structured listing pgm only * FILE 108 //* ASMPC - Run list pgm, Assembler H * FILE 108 //* ASMPCL - Run list pgm, Assembler H, linkedit * FILE 108 //* ASMPCLG - Run list pgm, Assembler H, linkedit, * FILE 108 //* execute user pgm * FILE 108 //* * FILE 108 //* Sample Programs: * FILE 108 //* * FILE 108 //* BAR - ISPF edit macro: puts ' | ' in col 38-40 * FILE 108 //* of source code * FILE 108 //* CC - ISPF edit macro: puts '*' in column 72 * FILE 108 //* FLIP - ISPF edit macro: swaps excluded, * FILE 108 //* nonexcluded lines * FILE 108 //* MASKDATA - ISPF edit macro: applies maskline to * FILE 108 //* existing source code * FILE 108 //* MSC0150$ - Structured listing pgm. Example of * FILE 108 //* reentrant code. Used in ASMPxxx procs. * FILE 108 //* STGMAP - Prints addresses of MVS/XA storage areas * FILE 108 //* (ECSA, LPA, etc). Example of AMODE * FILE 108 //* switching. Writes to //SYSPRINT. * FILE 108 //* * FILE 108 //* Other Tools: * FILE 108 //* * FILE 108 //* CMTCLIST - ISPF edit macro (in CLIST) which will * FILE 108 //* insert various types of comment 'blocks' * FILE 108 //* for different block structures. Refer to * FILE 108 //* the member for details. * FILE 108 //* * FILE 108 //***FILE 109 CONTAINS AN IEFACTRT SMF EXIT FROM FIRST CHICAGO, * FILE 109 //* THIS VERSION OF THE CODE RUNS UNDER MVS/ESA. THIS * FILE 109 //* FILE ALSO CONTAINS CODE TO SUPPORT 2260'S UNDER ESA. * FILE 109 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT. SEE FILE 110 * FILE 109 //* FOR A SAMPLE OF THE OUTPUT * FILE 109 //* * FILE 109 //* ASMACTRT IS THE JCL WE USE TO ASSEMBLE THE SMF * FILE 109 //* EXIT IEFACTRT. YOU WILL NEED TO CHANGE * FILE 109 //* THE JCL ACCORDINGLY. * FILE 109 //* * FILE 109 //* IEFACTRT IS THE SOURCE CODE FOR THE IEFACTRT EXIT * FILE 109 //* AS WE USE IT. THIS SOURCE IS A * FILE 109 //* COMBINATION OF VARIOUS IEFACTRT ROUTINES * FILE 109 //* FROM PREVIOUS CBT TAPES AND SOME OF MY * FILE 109 //* OWN ENHANCEMENTS. IT HAS BEEN WRITTEN * FILE 109 //* TO USE THE SMF TYPE 30 RECORD AND TO RUN * FILE 109 //* IN 31 BIT ADDRESSING MODE. AN EXAMPLE * FILE 109 //* OF THE OUTPUT IS INCLUDED IN ANOTHER * FILE 109 //* FILE ON THIS TAPE. THIS EXIT WILL WORK * FILE 109 //* UNDER MVS/XA 2.2 AND MVS/ESA. IT SHOULD * FILE 109 //* BE ABLE TO RUN UNDER PREVIOUS XA * FILE 109 //* RELEASES. * FILE 109 //* * FILE 109 //* FEATURES - ISSUSES A WTO TO THE SYSTEM * FILE 109 //* CONSOLE WITH THE COMPLETION * FILE 109 //* CODE OF EACH STEP. * FILE 109 //* * FILE 109 //* - WRITES THE WTO INFORMATION TO * FILE 109 //* THE JOBLOG * FILE 109 //* * FILE 109 //* - GIVES EXCP STATS FOR EACH DD * FILE 109 //* ALLOCATED. * FILE 109 //* * FILE 109 //* - DDNAME, CONCATENATION NUMBER, * FILE 109 //* AND DEVICE ADDRESS ARE * FILE 109 //* INCLUDED. ON MESSAGE LOG. * FILE 109 //* * FILE 109 //* LNKACTRT JCL USED TO LINK THE IEFACTRT EXIT. * FILE 109 //* THE JCL WILL HAVE TO BE CHANGED. * FILE 109 //* * FILE 109 //* CBPUC001 THIS MODULE IS THE USER INTERFACE * FILE 109 //* MODULE (UIM) WE WROTE TO SUPPORT 2260 * FILE 109 //* UNDER MVS/XA 2.2. IT ALSO WORKS FOR * FILE 109 //* ESA * FILE 109 //* * FILE 109 //* IEAMLT99 THIS MODULE IS ALSO REQUIRED TO SUPPORT * FILE 109 //* THE 2260'S * FILE 109 //* * FILE 109 //* DISCLAIMER * FILE 109 //* * FILE 109 //* THESE PROGRAMS ARE BEING USED SUCCESSFULLY IN * FILE 109 //* OUR ENVIRONMENT. SUPPORT IS ON AN AS IS BASIS. * FILE 109 //* THESE MODULES HAVE BEEN RUNNING SUCCESSFULLY * FILE 109 //* UNDER MVS/XA 2.2 AND MVS/ESA. THEY SHOULD BE * FILE 109 //* ABLE TO RUN WITH EARLIER RELEASES OF MVS/XA. * FILE 109 //* * FILE 109 //***FILE 110 CONTAINS A SAMPLE OUTPUT OF THE IEFACTRT SMF EXIT * FILE 110 //* WHICH IS CONTAINED IN FILE 109 OF THIS TAPE * FILE 110 //* THIS FILE IS IN IEBGENER FORMAT RECFM = FBA * FILE 110 //* LRECL = 133 BLKSIZE = 32718 * FILE 110 //* * FILE 110 //***FILE 111 IS FROM MR JIM PURDY, FORMERLY OF REVLON. JIM'S * FILE 111 //* NEW ADDRESS: * FILE 111 //* * FILE 111 //* JIM PURDY * FILE 111 //* ANDERSEN CONSULTING * FILE 111 //* 1345 MEADOW GLEN * FILE 111 //* SOUTHLAKE, TX 76092 * FILE 111 //* (214) 402-7511 * FILE 111 //* * FILE 111 //* THIS FILE CONTAINS SOME MPF EXITS, A TSO COMMAND * FILE 111 //* PROCESSOR FOR GDG'S AND A TSO SUBMIT EXIT. THIS * FILE 111 //* FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS * FILE 111 //* THE FOLLOWING MEMBERS * FILE 111 //* * FILE 111 //* MEMBERS WTOETPS1 & WTOETPS2 ARE MODIFICATIONS OF ALL * FILE 111 //* THE COCA-COLA WTO EXITS. THESE EXITS WILL WRITE AN * FILE 111 //* SMF RECORD FOR EACH MOUNT AND DISMOUNT IN ADDITION * FILE 111 //* TO THE DISPLAY OF WHERE A TAPE WAS IF IT WAS * FILE 111 //* RECENTLY MOUNTED. MODIFICATIONS HAVE ALSO BEEN * FILE 111 //* MADE TO CREATE A USER CVT WHICH WAS NEEDED BY THE * FILE 111 //* EXITS. * FILE 111 //* * FILE 111 //* MEMBER WTOTAPMT MAY BE USED TO WRITE AN SMF RECORD * FILE 111 //* FOR EACH TAPE MOUNT IF THE WTOETPS1 AND WTOETPS2 * FILE 111 //* MODULES ARE NOT USED. * FILE 111 //* * FILE 111 //* MEMBER WTOERWAT IS A MODIFICATION OF THE COCA-COLA * FILE 111 //* EXIT WHICH WILL RESPOND 'WAIT' TO MESSAGE IEF238D * FILE 111 //* AND WRITE AN SMF RECORD TO INDICATE THE ALLOCATION * FILE 111 //* RECOVERY CONDITION. * FILE 111 //* * FILE 111 //* MEMBER WTOTAPAL IS THE EXIT TO ONLY WRITE THE SMF * FILE 111 //* RECORD FOR ALLOCATION RECOVERY. * FILE 111 //* * FILE 111 //* MEMBERS LISTGDGC AND LISTGDGP ARE A PAIR OF PROGRAMS * FILE 111 //* THAT COMPRISE THE LISTGDG TSO COMMAND. THIS * FILE 111 //* COMMAND WILL LIST THE ATTRIBUTES OF A GDG AND THE * FILE 111 //* MOST RECENTLY CREATED GENERATIONS. THE NUMBER OF * FILE 111 //* GENERATIONS RETAINED IN THE CATALOG MAY BE CHANGED * FILE 111 //* UPON REQUEST. NEW GDG BASE ENTRIES MAY ALSO BE * FILE 111 //* CREATED. THIS COMMAND WORKS WITH ICF CATALOGS AND * FILE 111 //* HAS SUPPORT FOR 3380 DISK AND 3480 CARTS. THE * FILE 111 //* COMMAND IS IN TWO PARTS: THE ALLOCATION PIECE * FILE 111 //* WHICH IS WRITTEN IN ASSEMBLER; AND THE LOGIC PIECE * FILE 111 //* WRITTEN IN PL1. * FILE 111 //* * FILE 111 //* MEMBER IKJEFF10 IS A TSO SUBMIT EXIT THIS EXIT WILL * FILE 111 //* CONDITIONALLY CHECK THE JOB CARD SUBMITTED TO * FILE 111 //* VERIFY THAT THE JOBNAME STARTS WITH THE USERID OR * FILE 111 //* FIRST N CHAR OF USERID. THE EXECUTION CLASS, * FILE 111 //* MSGCLASS, AND TIME PARAMETERS ARE ALSO * FILE 111 //* CONDITIONALLY CHECKED AND MAY BE MANDATORY AND/OR * FILE 111 //* IN THE APPROPRIATE TABLES. A TIME PARAMETER MAY * FILE 111 //* ALSO BE INSERTED BY THE EXIT. ALL CHECKING IS * FILE 111 //* BASED ON THE USERID AND THE PRIVILEGES ALLOWED THAT * FILE 111 //* USER IN THE UIDTABLE. JOB CLASSES MAY HAVE FLAGS * FILE 111 //* TO REQUIRE TIME PARAMETERS OR REQUIRE NOT TO HAVE * FILE 111 //* THEM. ALSO, THERE MAY BE MAX TIME AND DEFAULT TIME * FILE 111 //* BY CLASS. COMMAND AND CERTAIN JES 2 CONTROL CARDS * FILE 111 //* WILL NOT BE ALLOWED IN THE SUBMITTED JCL. * FILE 111 //* * FILE 111 //***FILE 112 is the source for the TSO command prompter called * FILE 112 //* VTOC. This file is in IEBUPDTE form. This command * FILE 112 //* allows you to search the Volume Table Of Contents of * FILE 112 //* one or more disk volumes and obtain listings or totals * FILE 112 //* of data sets meeting some criteria. The specification * FILE 112 //* is quite flexible. This file also contains the HELP * FILE 112 //* data set for this command. It also contains * FILE 112 //* installation notes, some comments on defaults that may * FILE 112 //* not be typical elsewhere, a list of the known errors * FILE 112 //* in the command, and ideas for future expansion. * FILE 112 //* This version supports SU60, 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 //* 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.5 * FILE 112 //* FROM FILE 182. IF YOU HAVE INSTALLED PDS VERSION 8.5 * FILE 112 //* YOU SHOULD ALSO INSTALL VTOC. * FILE 112 //* * FILE 112 //* IF YOU INSTALL PDS VERSION 8.5, SEE THE NOTES IN * FILE 112 //* THIS FILE AS TO WHICH VERSION OF THE VTOCPRNT MODULE * FILE 112 //* YOU SHOULD ASSEMBLE AND LINKEDIT INTO THIS COMMAND. * FILE 112 //* * FILE 112 //* BUGS FIXED, AND SUPPORT ADDED FOR 3990 MODEL 9. * FILE 112 //* * 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 //* Jerry Lawson's email: jlawson@thehartford.com * FILE 118 //* * FILE 118 //* Sam Golob's email: sbgolob@attglobal.net OR * FILE 118 //* 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 //* 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.5 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 //* CURRENT ADDRESS: * FILE 119 //* * FILE 119 //* Howard M. Dean * FILE 119 //* Kaiser Foundation Health Plan * FILE 119 //* 25 Via Monte Avenue * FILE 119 //* 2nd Floor * FILE 119 //* Walnut Creek, CA 94598 * FILE 119 //* * FILE 119 //* (925) 926-3121 * FILE 119 //* * FILE 119 //* EMAIL - Howard.M.Dean@kp.org * FILE 119 //* * FILE 119 //* ================================================== * FILE 119 //* STARTED TASK ACCOUNTING AND * FILE 119 //* JES2 CONTROL CARDS IN STARTED * FILE 119 //* TASKS * FILE 119 //* ================================================== * FILE 119 //* JOBNAME FRONT END TO 'STARTED TASK * FILE 119 //* CONTROL' FOR ADDING JOB * FILE 119 //* ACCOUNTING AND JES2 CONTROL CARDS * FILE 119 //* * THIS CODE IS ON FILE 426 OF THE * FILE 119 //* CBT MODS TAPE * * FILE 119 //* LM00038 PART 1 LOCAL MODIFICATION FOR * FILE 119 //* STARTED TASK ACCOUNTING * FILE 119 //* LM00039 PART 2 LOCAL MODIFICATION FOR * FILE 119 //* STARTED TASK ACCOUNTING * FILE 119 //* STCADOC FORMAT OF 'SYS3.STCACCT' MEMBERS * FILE 119 //* X EXAMPLE OF STC ACCOUNTING (STARTS) * FILE 119 //* ================================================== * FILE 119 //* IEFDB401 AND JES2 USER EXIT 6 * FILE 119 //* ================================================== * FILE 119 //* DYNANAME SAMPLE DYNAMIC UNIT NAME INPUT * FILE 119 //* FOR DYNAMASK * FILE 119 //* DYNAJOB DYNAMASK CATALOGED PROCEDURE * FILE 119 //* IEFDB401 DYNAMIC ALLOCATION EXIT TO * FILE 119 //* SUPPORT DYNAMIC UNIT NAMES * FILE 119 //* JESUX006 JES2 USER EXIT TO SUPPORT DYNAMIC * FILE 119 //* UNIT NAMES * FILE 119 //* UNITDOC DOCUMENTATION AND JUSTIFICATION * FILE 119 //* FOR DYNAMIC UNIT NAME * FILE 119 //* MODIFICATION. * FILE 119 //* ================================================== * FILE 119 //* DUMP TRANSFER UTILITY * FILE 119 //* ================================================== * FILE 119 //* B CLIST FOR INVOKING ISPF BROWSE * FILE 119 //* FROM EITHER READY MODE OR AN ISPF * FILE 119 //* ENVIRONMENT. * FILE 119 //* E CLIST FOR INVOKING ISPF 'EDIT' * FILE 119 //* FROM EITHER READY MODE OR AN ISPF * FILE 119 //* ENVIRONMENT * FILE 119 //* JULDATE INNER CLIST FOR EXTRACTING * FILE 119 //* TIME/DATE/DAY OF WEEK * FILE 119 //* ===> (THIS CLIST CAN BE USED AS * FILE 119 //* A GENERAL DATE ROUTINE) * FILE 119 //* MAKEDAY CLIST TO INITIALIZE DUMP TRANSFER * FILE 119 //* PDS * FILE 119 //* XFERJOB JOB TO TRANSFER SYSTEM DUMP * FILE 119 //* DATASET TO TAPE * FILE 119 //* XFERINST HINTS ON INSTALLATION OF THE DUMP * FILE 119 //* TRANSFER UTILITY * FILE 119 //* XFERUTIL TSO COMMAND SUBROUTINE TO * FILE 119 //* DETERMINE DUMP DATASET VOLUME * FILE 119 //* SERIAL. * FILE 119 //* XFERVOL SUBROUTINE OF XFERUTIL TO * FILE 119 //* DETERMINE VOLUME SERIAL # * FILE 119 //* XFERWTO PROGRAM TO ISSUE WTO FROM SYSIN * FILE 119 //* (USED WITH CLISTS) * FILE 119 //* XFER1 CLIST INVOKED UNDER TMP IN BATCH * FILE 119 //* TO UPDATE XFER PDS * FILE 119 //* XFER2 CLIST INVOKED UNDER TMP IN BATCH * FILE 119 //* TO UPDATE XFER PDS * FILE 119 //* XIX CLIST TO INQUIRE INTO THE DUMP * FILE 119 //* TITLE DATABASE * FILE 119 //* XIXHELP HELP MEMBER FOR XIX CLIST * FILE 119 //* ================================================== * FILE 119 //* TSO COMMANDS AND UTILITIES * FILE 119 //* ================================================== * FILE 119 //* ASID COMMAND TO PRINT ADDRESS SPACE * FILE 119 //* DATA CONVERTED TO WORK IN 31 BIT * FILE 119 //* MODE UNDER MVS/XA (WORKS ON * FILE 119 //* NON-XA SYSTEMS TOO, IF VARIABLE * FILE 119 //* SET) * FILE 119 //* ASHELP HELP TEXT FOR THE 'ASID' COMMAND * FILE 119 //* CLR3270 COMMAND TO CLEAR SCREEN OF 3270 * FILE 119 //* TERMINAL. CHECKS FOR SESSION * FILE 119 //* MANAGER ACTIVE AND RETURNS NULL * FILE 119 //* STRING TO AVOID FLICKER. * FILE 119 //* CLRHELP HELP TEXT FOR THE 'CLR3270' * FILE 119 //* COMMAND * FILE 119 //* HMDCHRON TIME OF DAY UTILITY - CONVERT * FILE 119 //* TIME-OF-DAY * FILE 119 //* JULGREG JULIAN-GREGORIAN AND VICE-VERSA * FILE 119 //* CONVERSION (SUBROUTINE OF * FILE 119 //* HMDCHRON) * FILE 119 //* HTIME TSO COMMAND TO FORMAT THE DATE * FILE 119 //* AND TIME OF DAY (CALLS HMDCHRON * FILE 119 //* AS SUBROUTINE) * FILE 119 //* PDFINIT PROGRAM FOR ALLOCATING THE "ISPF" * FILE 119 //* PROFILE DATASET AND OPTIONALLY * FILE 119 //* INVOKING EITHER A COMMAND OR * FILE 119 //* "USERID.PROFILE.CLIST" UPON * FILE 119 //* LOGON. CAN BE SET UP SIMILIAR TO * FILE 119 //* VM PROFILE EXEC INVOCATION. * FILE 119 //* PDFHELP HELP TEXT FOR THE 'PDFINIT' * FILE 119 //* COMMAND * FILE 119 //* SM COMMAND TO TURN SESSION MANAGER * FILE 119 //* ON/OFF. WORKS IN MVX/XA MODE * FILE 119 //* WHERE SESSION MANAGER CONTROL * FILE 119 //* BLOCKS ARE MOVED 'ABOVE THE * FILE 119 //* LINE'. * FILE 119 //* ================================================== * FILE 119 //* MACROS AND SUBROUTINES * FILE 119 //* ================================================== * FILE 119 //* EPUTL PUTLINE SUBROUTINE TO ACCEPT PARM * FILE 119 //* LIST "ABOVE THE LINE" * FILE 119 //* APUT MACRO TO INVOKE 'EPUTL' INSTEAD * FILE 119 //* OF TPUT * FILE 119 //* -------------------------------------------------- * FILE 119 //* CALL# INTERNAL STRUCTURED MACROS USED * FILE 119 //* BY XFER UTILITY * FILE 119 //* DATA# INTERNAL STRUCTURED MACROS USED * FILE 119 //* BY XFER UTILITY * FILE 119 //* END# INTERNAL STRUCTURED MACROS USED * FILE 119 //* BY XFER UTILITY * FILE 119 //* ENDDATA# INTERNAL STRUCTURED MACROS USED * FILE 119 //* BY XFER UTILITY * FILE 119 //* ENTRE# INTERNAL STRUCTURED MACROS USED * FILE 119 //* BY XFER UTILITY * FILE 119 //* EXIT# INTERNAL STRUCTURED MACROS USED * FILE 119 //* BY XFER UTILITY * FILE 119 //* IEXIT# INTERNAL STRUCTURED MACROS USED * FILE 119 //* BY XFER UTILITY * FILE 119 //* INIT# INTERNAL STRUCTURED MACROS USED * FILE 119 //* BY XFER UTILITY * FILE 119 //* -------------------------------------------------- * FILE 119 //* INUSE INNER MACRO FOR * FILE 119 //* TSOENTER/TSOLEAVE/SETREG/EOJ * FILE 119 //* LUSE INNER MACRO FOR * FILE 119 //* TSOENTER/TSOLEAVE/SETREG/EOJ * FILE 119 //* LDROP INNER MACRO FOR * FILE 119 //* TSOENTER/TSOLEAVE/SETREG/EOJ * FILE 119 //* CSPL INNER MACRO FOR TSOENTER/TSOLEAVE * FILE 119 //* IOPL INNER MACRO FOR TSOENTER/TSOLEAVE * FILE 119 //* CPPL INNER MACRO FOR TSOENTER/TSOLEAVE * FILE 119 //* TSOENTER MACRO TO SET UP COMMAND PROCESSOR * FILE 119 //* ENVIRONMENT * FILE 119 //* TSOLEAVE MACRO TO RETURN TO TMP (USED * FILE 119 //* W/TSOENTER) * FILE 119 //* SETREG ENTRY SETUP MACRO - NON/TSO * FILE 119 //* ENVIRONMENT * FILE 119 //* EOJ EXIT RETURN MACRO - NON/TSO * FILE 119 //* ENVIRONMENT * FILE 119 //* XABSM BRANCH AND SET MODE MACRO FOR * FILE 119 //* MVS/XA 31 BIT CODING * FILE 119 //* * FILE 119 //***FILE 120 is from Sam Golob and contains his columns from * FILE 120 //* "Technical Support" magazine entitled "MVS Tools * FILE 120 //* and Tricks of the Trade". There are now over 16 * FILE 120 //* years' worth of articles, which are included here * FILE 120 //* by consent from the publisher of the mazagine. * FILE 120 //* (For Sam's old articles, see File 014.) * FILE 120 //* * FILE 120 //* This file contains the original versions of Sam's * FILE 120 //* columns before they were edited, or shortened by * FILE 120 //* the magazine because of space limitations. * FILE 120 //* * FILE 120 //* It is perhaps convenient to include these articles * FILE 120 //* on the CBT Tape itself, because many of them talk * FILE 120 //* about how to make best use of software offerings * FILE 120 //* which are distributed with this tape. * FILE 120 //* * FILE 120 //* SUBJECT MATTER INDEX TO THE COLUMNS * FILE 120 //* (TOPICS THAT WERE COVERED) * FILE 120 //* * FILE 120 //* PDS MEMBER SUBJECT MATTER OR TITLE * FILE 120 //* ---------- ----------------------- * FILE 120 //* * FILE 120 //* $$$CPYRT : COPYRIGHT NOTICE * FILE 120 //* $$$INDEX : MEMBER NAMING SCHEME FOR THIS FILE * FILE 120 //* $$$PERMT : PERMISSION TO DISTRIBUTE THIS MATERIAL * FILE 120 //* $$DIRECT : ONE-LINE SUBJECT MATTER INDEX TO THE COLUMNS * FILE 120 //* @FILE120 : THIS FILE - CONTAINS AN INDEX TO THE COLUMNS * FILE 120 //* $$INTRO : AUTHOR'S PREFACE AND "QUICK INTRO" * FILE 120 //* ----------------------------------------------------------- * FILE 120 //* BM0009SE : THE JOY OF "SHARE" (SEPARATE ARTICLE - NOT * FILE 120 //* PUBLISHED - DOES NOT BELONG TO NASPA) * FILE 120 //* CL8901JA : INTRO TO THE COLUMN, MISCELLANEOUS TOOLS, * FILE 120 //* THE CBT TAPE * FILE 120 //* CL8902FE : VARIOUS DATASET AND DASD MANAGEMENT TRICKS * FILE 120 //* CL8903MA : ISPF COMMAND TABLE, LPA LOADING AT IPL, THE * FILE 120 //* ABE EDITOR (SEE INCLUDED CORRECTIONS FOR LPA) * FILE 120 //* CL8904AP : ENLARGING THE VTOC OF AN ACTIVE DISK PACK * FILE 120 //* CL8905MY : DELINK AND RELINK OF LOAD MODULES * FILE 120 //* CL8905X1 : FURTHER NOTES ON ISPF COMMAND TABLE ADDITIONS * FILE 120 //* CL8906JN : RETRIEVING MATERIAL FROM IBM'S SOURCE TAPES * FILE 120 //* CL8907JL : THE AMAZING EXCP-COUNT ZAP * FILE 120 //* CL8909SE : THE SLAC MODS TO ASSEMBLER H * FILE 120 //* CL8910OC : VIEW JOBS AND OUTPUT DIRECTLY FROM * FILE 120 //* SPOOL--QUEUE & SDF * FILE 120 //* CL8911NV : NO-COST SUBSYSTEMS: TSSO, ETPS, AND CMD1 * FILE 120 //* CL8912DE : CONVERT CLIST LIBRARIES FROM VB TO FB AND * FILE 120 //* VICE-VERSA * FILE 120 //* CL9001JA : TAPE MAPPING, TAPE LOOKING, AND TAPE COPYING * FILE 120 //* CL9002FE : SOME CHANGING TOOLS ON THE CBT TAPE; * FILE 120 //* THE SLAC ASSEMBLER, UPDATE 2 * FILE 120 //* CL9004AP : THE PDS PROGRAM PRODUCT, PART 1 * FILE 120 //* CL9005MY : THE PDS PROGRAM PRODUCT, PART 2 * FILE 120 //* CL9006JN : THE EFFECT OF CHANGING SOME OF THE FIELDS IN * FILE 120 //* THE VTOC * FILE 120 //* CL9007JL : PRE-PROCESSING SMPPTFIN DATA (NOT DEPENDENT ON * FILE 120 //* SMP/E) * FILE 120 //* CL9008AU : SMP/E HACKING EXAMPLE - REGRESSING VTAM, * FILE 120 //* PART 1 * FILE 120 //* CL9009SE : SMP/E HACKING EXAMPLE - REGRESSING VTAM, * FILE 120 //* PART 2 * FILE 120 //* CL9010OC : MAPXA AND BLKDISK: TWO USEFUL TSO COMMANDS * FILE 120 //* CL9011NV : BILL GODFREY'S CONTRIBUTIONS; THE NEW * FILE 120 //* REVIEW COMMAND * FILE 120 //* CL9012DE : THE ARCHIVER - PART 1 - * FILE 120 //* A NEW PRODUCT AND CONCEPT * FILE 120 //* CL9101JA : THE ARCHIVER - PART 2 - * FILE 120 //* MORE ABOUT THIS NEW PRODUCT * FILE 120 //* CL9102FE : CONVERSION BETWEEN CLIST FORMATS: * FILE 120 //* VB-FB, FB-VB * FILE 120 //* CL9103MA : PUBLIC SOFTWARE TAPES REVISITED * FILE 120 //* CL9104AP : BROWSING VIRTUAL STORAGE: * FILE 120 //* THE "LOOK" TSO COMMAND * FILE 120 //* CL9105MY : MEMBER GROUP SELECTION IN PARTITIONED DATASETS * FILE 120 //* CL9106JN : DYNAMASK - CHANGING DEVICE NAMES ON A LIVE * FILE 120 //* SYSTEM * FILE 120 //* CL9107JL : MAKING YOUR OWN PTFS, A VALUABLE TECHNIQUE * FILE 120 //* - PART 1 * FILE 120 //* CL9108AU : MAKING YOUR OWN PTFS, A VALUABLE TECHNIQUE * FILE 120 //* - PART 2 * FILE 120 //* CL9109SE : EXPLOITING PDS DIRECTORY FIELDS - PART 1 * FILE 120 //* CL9110OC : EXPLOITING PDS DIRECTORY FIELDS - PART 2 * FILE 120 //* CL9111NV : EXPLOITING PDS DIRECTORY FIELDS - PART 3 * FILE 120 //* CL9112DE : ABOUT DATASET BLOCK SIZES AND I/O * FILE 120 //* EFFICIENCY - PART 1 * FILE 120 //* CL9201JA : ABOUT DATASET BLOCK SIZES AND I/O * FILE 120 //* EFFICIENCY - PART 2 * FILE 120 //* CL9202FE : ABOUT DATASET BLOCK SIZES AND I/O * FILE 120 //* EFFICIENCY - PART 3 * FILE 120 //* CL9203MA : A TOUR OF THE WORLD THROUGH * FILE 120 //* FULLSCREEN ZAP - PART 1 * FILE 120 //* CL9204AP : A TOUR OF THE WORLD THROUGH * FILE 120 //* FULLSCREEN ZAP - PART 2 * FILE 120 //* CL9205MY : MAKING THE MOST OF YOUR TOOLS * FILE 120 //* CL9206JN : PUBLIC SOFTWARE TAPES REVISITED * FILE 120 //* CL9207JL : SOME ASSEMBLER THOUGHTS: * FILE 120 //* THE NEW HIGH-LEVEL ASSEMBLER - PART 1 * FILE 120 //* CL9208AU : SOME ASSEMBLER THOUGHTS: * FILE 120 //* THE NEW HIGH-LEVEL ASSEMBLER - PART 2 * FILE 120 //* CL9209SE : SMP/E TOOLS YOU SHOULD HAVE - PART 1 * FILE 120 //* CL9210OC : SMP/E TOOLS YOU SHOULD HAVE - PART 2 * FILE 120 //* CL9211NV : HOW I FOLLOWED MY OWN ADVICE, AND * FILE 120 //* HOW NOT TO UPGRADE JES2 EXITS * FILE 120 //* CL9212DE : PUTTING YOUR TOOLS TOGETHER - PART 1 * FILE 120 //* - ISPF COMMAND TABLES * FILE 120 //* CL9301JA : PUTTING YOUR TOOLS TOGETHER - PART 2 * FILE 120 //* - TOOL PACKAGES * FILE 120 //* CL9302FE : PUTTING YOUR TOOLS TOGETHER - PART 3 - * FILE 120 //* EDIT MACROS, TSO COMMANDS, AND * FILE 120 //* MISCELLANEOUS TECHNIQUES * FILE 120 //* CL9303MA : "SHOW ME MVS" IN ONE PLACE - * FILE 120 //* THE SHOWMVS COMMAND * FILE 120 //* CL9304AP : COPYING TAPES CORRECTLY * FILE 120 //* CL9305JL : MAKING SEQUENTIAL FILES OUT OF PDS'ES, * FILE 120 //* AND VICE-VERSA * FILE 120 //* CL9306SE : TSO HELP, WITHOUT THE DRAWBACKS: * FILE 120 //* THE HEL COMMAND * FILE 120 //* CL9307NV : IEHMAP, AND OTHER STORIES. * FILE 120 //* CL9401JA : THE FASCINATION OF THE DISASSEMBLER - PART 1 * FILE 120 //* CL9402MA : THE FASCINATION OF THE DISASSEMBLER - PART 2 * FILE 120 //* CL9403MY : ASSEMBLING PROGRAM PATCHES - THE ASMTOZAP * FILE 120 //* PROGRAM * FILE 120 //* CL9404JL : 2 TOPICS: REBIRTH OF IEHMOVE, LOADING JES2 * FILE 120 //* EXITS DYNAMICALLY * FILE 120 //* CL9405OC : THE "REVIEW" COMMAND REVISITED * FILE 120 //* CL9406NV : YOUR TSO SESSION - USING THE PSCB * FILE 120 //* CL9407DE : YOUR TSO SESSION - USING THE TSO * FILE 120 //* SESSION MANAGER * FILE 120 //* CL9501JA : ON FINDING PROGRAMS - BLDL AND LLA * FILE 120 //* CL9502FE : ON DATASET RECOVERY - INTRODUCTION * FILE 120 //* CL9503MA : DATASET RECOVERY METHODOLOGY - PART 2 * FILE 120 //* CL9504AP : VTOC TIDBITS - PART 1 * FILE 120 //* CL9505MY : VTOC TIDBITS - PART 2 * FILE 120 //* CL9506JN : A VTOC ADVENTURE - PART 3 * FILE 120 //* CL9507JL : EXPLORING SYS1.BRODCAST * FILE 120 //* CL9508AU : A NOVICE'S GUIDE TO ASSEMBLER * FILE 120 //* PROGRAMMING - PART 1 * FILE 120 //* CL9509SE : A NOVICE'S GUIDE TO ASSEMBLER * FILE 120 //* PROGRAMMING - PART 2 * FILE 120 //* CL9510OC : WORKING WITH TSO - PART 1 * FILE 120 //* CL9511NV : WORKING WITH TSO - PART 2 * FILE 120 //* CL9512DE : KEEPING UP WITH THE UNIT CONTROL * FILE 120 //* BLOCK - PART 1 * FILE 120 //* CL9601JA : KEEPING UP WITH THE UNIT CONTROL * FILE 120 //* BLOCK - PART 2 * FILE 120 //* CL9602FE : EDIT AND SYSTEM RECOVERY * FILE 120 //* CL9603MA : YOUR OWN WORLD OF EDIT MACROS * FILE 120 //* CL9604AP : THE PLACE OF FREE SOFTWARE IN TODAY'S * FILE 120 //* MVS SHOP * FILE 120 //* CL9605MY : EYES - PART 1 * FILE 120 //* CL9606JN : EYES - PART 2 * FILE 120 //* CL9607JL : EYES - PART 3 - USING SMP/E * FILE 120 //* CL9608AU : PERSONAL TOOLS FOR YOUR SMP WORK * FILE 120 //* CL9609SE : TIDBITS * FILE 120 //* CL9610OC : GETTING STARTED WITH PUBLIC MVS SOFTWARE * FILE 120 //* CL9611NV : ALTERNATIVES AND DATASET RECOVERY * FILE 120 //* CL9612DE : ON FINDING THINGS * FILE 120 //* CL9702FE : CREATIVE ENQUEUING * FILE 120 //* CL9703MA : HARNESSING MACRO POWER - PART 1 * FILE 120 //* CL9704AP : HARNESSING MACRO POWER - PART 2 * FILE 120 //* CL9705MY : IT'S A BIRD, IT'S A PLANE, IT'S SUPRNAME * FILE 120 //* CL9706JN : TIMING OUT * FILE 120 //* CL9707JL : OLD CODE--OLD GOLD * FILE 120 //* CL9708AU : PROFILES IN CREATIVITY * FILE 120 //* CL9709SE : SYSTEM PROGRAMMER CREATIVITY * FILE 120 //* CL9710OC : WHY NOT RUN A BATCH JOB? * FILE 120 //* CL9711NV : HELP IN KEEPING YOUR SYSTEM UP * FILE 120 //* CL9712DE : REMEMBERING TSSO * FILE 120 //* CL9801JA : LOOKING AT VIRTUAL STORAGE * FILE 120 //* CL9802FE : ASSORTED UTILITIES - PART 1 * FILE 120 //* CL9803MA : ASSORTED UTILITIES - PART 2 * FILE 120 //* CL9804AP : OTHER PEOPLE'S PROBLEMS * FILE 120 //* CL9805MY : UNDELETING DATA - PART 1 * FILE 120 //* CL9806JN : UNDELETING DATA - PART 2 * FILE 120 //* CL9807JL : WHEN IBM SAYS YOU CAN'T... SOMETIMES YOU CAN * FILE 120 //* CL9808SE : WHEN IBM SAYS YOU CAN'T... SOMETIMES YOU CAN * FILE 120 //* - PART 2 * FILE 120 //* CL9809OC : AN IMPORTANT Y2K TECHNIQUE * FILE 120 //* CL9810NV : EXPANDING YOUR HORIZONS * FILE 120 //* CL9811DE : SETTING YOURSELF UP * FILE 120 //* CL9901JA : CBT TAPE SUPPORT ONLINE * FILE 120 //* CL9902FE : RESOURCE AFFINITY IMPLEMENTATION EFFORTS * FILE 120 //* CL9903MA : SMP/E PREPROCESSING * FILE 120 //* CL9904AP : AWARENESS * FILE 120 //* CL9905MY : HIGHLIGHTS OF CBT TAPE VERSION 420 * FILE 120 //* CL9906JN : SELECTIONS FROM CBT TAPE VERSION 420 (AND 421) * FILE 120 //* CL9907JL : WRITING YOUR OWN TSO COMMAND PROCESSOR * FILE 120 //* - PART 1 * FILE 120 //* CL9908AU : WRITING YOUR OWN TSO COMMAND PROCESSOR * FILE 120 //* - PART 2 * FILE 120 //* CL9908SE : PC'S, C, AND ASSEMBLER * FILE 120 //* CL9910OC : ZAPPING, DISASSEMBLING, DELINKING, AND * FILE 120 //* RE-LINKEDITING * FILE 120 //* CL9911NV : LEARNING OUR TRADE * FILE 120 //* CL9912DE : USING XMIT TO PACKAGE MVS FILES * FILE 120 //* CM0001JA : RECENT CBT TAPE NEWS * FILE 120 //* CM0002FE : ASSEMBLER MACRO COLLECTIONS - PART 1 * FILE 120 //* CM0003MA : ASSEMBLER MACRO COLLECTIONS - PART 2 * FILE 120 //* CM0004AP : LEARNING ABOUT YOUR MVS SYSTEM * FILE 120 //* CM0005MY : ACCUMULATING ASSEMBLER TECHNIQUES * FILE 120 //* CM0006JN : COPYING TAPES * FILE 120 //* CM0007JL : SCANNING FOR PARMS IN A BATCH PROGRAM * FILE 120 //* CM0008AU : THE CVT - THE BACKBONE OF MVS * FILE 120 //* 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 //* CM0305MX : SHARING TAPE DRIVES * 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 //* * 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. * 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. Then create an ALIAS * FILE 123 //* member to the ECHO*** program (using the PDS program * FILE 123 //* from File 182 of the CBT Tape). When you enter * FILE 123 //* a command with the alias name, the ECHO*** program * FILE 123 //* is executed, and it reflects the command back to * FILE 123 //* the terminal. * FILE 123 //* * FILE 123 //* If the user enters the forbidden program, his/her * FILE 123 //* command is merely reflected back to the terminal, * FILE 123 //* with all the parameters, and doesn't do anything. * 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 in TSO-in-batch. If you really want * FILE 123 //* to get fancy, just ALIAS all the program names in * FILE 123 //* SYS1.CMDLIB and the other TSO command libraries, * FILE 123 //* and then 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 //* * 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 //* * FILE 123 //* ECHOTPUT - Reflects the entire contents of the command * FILE 123 //* buffer back to the terminal, using TPUT. * 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 seems to be limited to 133 * FILE 123 //* characters. ECHOTPUT can do up to 255, I * FILE 123 //* think.) * FILE 123 //* * FILE 123 //* Sam Golob * FILE 123 //* P.O. Box 906, Tallman, NY 10982-0906 * FILE 123 //* * FILE 123 //* email: sbgolob@attglobal.net * FILE 123 //* and/or 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 //* * FILE 127 //* TSCVDAT - SUBROUTINE TO MAKE NICE PRINTABLE DATE FOR * FILE 127 //* HEADINGS. * FILE 127 //* * FILE 127 //* TSDYNLXA - PGM XA DYNALIST TO LIST ESOTERIC UNIT NAMES * FILE 127 //* (NOTE: USES ESTAES TO EXECUTE * FILE 127 //* UNAUTHORIZED!!) * FILE 127 //* * FILE 127 //* TSENQSP3 - TSOCP (AKA $DENQ) SCAN FOR GENERIC SYSDSN * FILE 127 //* ENQS, LOOK FOR ENQ LOCKOUTS, LOOK FOR * FILE 127 //* RESERVE ENQS. (NOTE USES GQSCAN) * FILE 127 //* * FILE 127 //* TSSPACE - TSO CP TO LIST SPACE, IXVTOC STATUS, * FILE 127 //* PATH(CHAN/CHPID), LSPACE(FREE) SPACE, * FILE 127 //* #USERS, DEVTYPE, AND ADDRESS FOR DASD. CAN * FILE 127 //* ASK FOR ALL DASD WITH LESS THAN N PATHS TO * FILE 127 //* SEE IF ANY DASD PATHS ARE MISSING. * FILE 127 //* * FILE 127 //* TSSYSTEM - TSO CP TO SHOW RELEASE, CPUTYPE, CPUSERIAL#, * FILE 127 //* SYSRES, REAL STORAGE, HOW LONG SINCE * FILE 127 //* (IPL/SET IPS). * FILE 127 //* * FILE 127 //* VTOC - TSO CP VTOC - FIXED FOR SP3/XA UCBSCAN, * FILE 127 //* HANDLES 123 EXTENTS WITH DF/EF. (NOTE I * FILE 127 //* USE ENTRY VTOCEXCP FOR VTOC READING IN * FILE 127 //* TSGTFMAP) * FILE 127 //* * FILE 127 //* ** EVERYTHING HAS BEEN USED ON SP3 AND XA2.1.1. * FILE 127 //* * FILE 127 //***FILE 128 IS FROM THE INFORMATION SYSTEMS DEPARTMENT * FILE 128 //* OF THE CHURCH OF JESUS CHRIST OF LATTER-DAY SAINTS. * FILE 128 //* * FILE 128 //* THIS PDS CONTAINS THREE APPLICATIONS : * FILE 128 //* 1) ISPF APPLICATION THAT ALLOWS THE ENTRY OF * FILE 128 //* VTAM COMMANDS AND THE VIEWING OF THE * FILE 128 //* RESULTS. * FILE 128 //* 2) A MVS/XA (2.2) ACTIVITY DISPLAY (BASED ON * FILE 128 //* CHIMP) * FILE 128 //* 3) A SYSLOG SCAN FACILITY. THE SYSLOG SCAN * FILE 128 //* FACILITY HAS BEEN TESTED UNDER MVS/XA 2.1.7 * FILE 128 //* AND MVS 2.2.0 WITH JES2 2.1.5. ANY OTHER * FILE 128 //* RELEASES OF MVS OR JES2 MAY REQUIRE PROGRAM * FILE 128 //* MODIFICATIONS AS THE PROGRAM IS DEPENDENT ON * FILE 128 //* MESSAGE NUMBERS. SEE MEMBER UT017DOC FOR * FILE 128 //* MORE DETAILS. * FILE 128 //* * FILE 128 //* ****************************************** * FILE 128 //* *** *** * FILE 128 //* *** SUMMARY OF THE MEMBERS IN THIS PDS *** * FILE 128 //* *** *** * FILE 128 //* ****************************************** * FILE 128 //* * FILE 128 //* ACT * FILE 128 //* MVS ACTIVITY DISPLAY. * FILE 128 //* APPLVTAM * FILE 128 //* OUR VTAMLST MEMBER FOR THE VTAM/ISPF * FILE 128 //* COMMAND FACILITY. * FILE 128 //* SP1TC014 * FILE 128 //* THE PROGRAM (ASSEMBLER) FOR THE VTAM/ISPF * FILE 128 //* COMMAND FACILITY. IT ALLOWS THE ENTRY OF * FILE 128 //* VTAM COMMANDS WITH THE RECEIPT OF THE * FILE 128 //* RESPONSES. IT HAS MANY SHORT CUTS - "R * FILE 128 //* NODENAME" TO DO A "V * FILE 128 //* NET,INACT,R,ID=NODENAME" FOR EXAMPLE. * FILE 128 //* SP1UT017 * FILE 128 //* THE SYSLOG SCAN PROGRAM. * FILE 128 //* SP1VO00 * FILE 128 //* THE ISPF PANEL FOR THE VTAM/ISPF COMMAND * FILE 128 //* FACILITY. * FILE 128 //* SP1VO00A * FILE 128 //* THE ISPF HELP PANEL FOR THE VTAM/ISPF * FILE 128 //* COMMAND FACILITY. * FILE 128 //* SP10 * FILE 128 //* THE ISPF MESSAGES MEMBER FOR THE VTAM/ISPF * FILE 128 //* COMMAND FACILITY. * FILE 128 //* SYSENTER * FILE 128 //* A VERY GENERAL PURPOSE ASSEMBLER PROGRAM * FILE 128 //* ENTRY MACRO. IT SUPPORTS BOTH REENTRANT * FILE 128 //* AND NON-REENTRANT PROGRAMS AND WILL ALSO * FILE 128 //* GETMAIN YOUR WORK AREA ALONG WITH YOUR * FILE 128 //* SAVE AREA. SEE THE INTERNAL DOCUMENTATION * FILE 128 //* FOR MORE DETAILS. USED BY BOTH SP1TC014 * FILE 128 //* AND SP1UT017. * FILE 128 //* SYSRETRN * FILE 128 //* THE RETURN MACRO CORRESPONDING TO * FILE 128 //* SYSENTER. IT USES GLOBAL VARIABLES SET IN * FILE 128 //* SYSENTER TO DETERMINE WHETHER OR NOT TO * FILE 128 //* FREEMAIN THE SAVE AND WORK AREAS. SEE THE * FILE 128 //* INTERNAL DOCUMENTATION FOR MORE DETAILS. * FILE 128 //* UT017DOC * FILE 128 //* DOCUMENTATION (FBA FORMAT) FOR THE SYSLOG * FILE 128 //* SCAN FACILITY. * FILE 128 //* * FILE 128 //***FILE 129 is from James Erwin of MCRB Service Bureau, Inc. * FILE 129 //* and contains a modification to allow for shared * FILE 129 //* DASD CKPT. This is at various OS/390 levels. * FILE 129 //* * FILE 129 //***FILE 130 IS FROM SOUTHWESTERN PUBLIC SERVICE COMPANY * FILE 130 //* OF AMARILLO, TEXAS AND CONTAINS THE FOLLOWING * FILE 130 //* UTILITY PROGRAMS FROM THEM IN IEBUPDTE SYSIN * FILE 130 //* FORMAT * FILE 130 //* * FILE 130 //* BLGS11 CREATES VERSION 2 INFO/SYS SESSION * FILE 130 //* PARAMETER WITH THE CBTMODS INFO/MVS * FILE 130 //* DATABASE AS FILE 1 (SE =1). * FILE 130 //* * FILE 130 //* CBT$ INSTRUCTIONS FOR INSTALLING THE VERSION 2 * FILE 130 //* CBTMODS INFO/MVS DATABASE. * FILE 130 //* * FILE 130 //* CBTAMS IDCAMS DELETE AND DEFINE OF THE VERSION 2 * FILE 130 //* CBTMODS INFO/MVS SDDS AND SDIDS FILES AND * FILE 130 //* INITIALIZATION BY THE BLGUT2 UTILITY. * FILE 130 //* * FILE 130 //* CBTBLD USES THE BLGOZUD UTILITY TO BUILD THE * FILE 130 //* VERSION 2 CBTMODS INFO/MVS DATABASE. * FILE 130 //* * FILE 130 //* CBTOZD PL/I PROGRAM THAT READS FILE 001 OF THE * FILE 130 //* CBT MODS TAPE AND CREATES AN INPUT FILE * FILE 130 //* FOR THE BLGOZUD UTILITY. * FILE 130 //* * FILE 130 //* CDF CONSOLE DISPLAY FACILITY - THIS VERSION * FILE 130 //* WORKED UNCHANGED UNDER MVS/SP 1.3.4 AT AN * FILE 130 //* 8409 LEVEL AND MVS/XA 2.1.3 AT AN 8509 * FILE 130 //* LEVEL. * FILE 130 //* * FILE 130 //* CDF$ INSTALLATION INSTRUCTIONS FOR THE CONSOLE * FILE 130 //* DISPLAY FACILITY * FILE 130 //* * FILE 130 //* CDFDATAB PANEL FOR THE CONSOLE DISPLAY FACILITY * FILE 130 //* * FILE 130 //* CDFHELP HELP PANEL FOR THE CONSOLE DISPLAY * FILE 130 //* FACILITY * FILE 130 //* * FILE 130 //* CDF00 MESSAGES FOR THE CONSOLE DISPLAY FACILITY * FILE 130 //* * FILE 130 //* IGC0023E ISPF AUTHORIZATION SVC. YOU CAN'T CALL * FILE 130 //* ISPF SERVICES FROM AN AUTHORIZED PROGRAM * FILE 130 //* (BELIEVE ME - I TRIED IT). * FILE 130 //* * FILE 130 //* INFOMGT TSO CLIST DRIVER FOR INFORMATION/SYSTEM * FILE 130 //* DIALOG * FILE 130 //* * FILE 130 //* INFOMGTP PANEL FOR INFOMATION/SYSTEM DIALOG * FILE 130 //* * FILE 130 //* IN00 MESSAGES FOR INFORMATION/SYSTEM DIALOG * FILE 130 //* * FILE 130 //* ISR@PRIM EXAMPLE PRIMARY OPTIONS MENU * FILE 130 //* * FILE 130 //***FILE 131 IS FROM BOB SIRKIS OF BRIDGESTONE SOFTWARE OF * FILE 131 //* TENNESSEE. THIS FILE CONTAINS 2 EXITS, ONE IS AN * FILE 131 //* SAR SECURITY USER EXIT, THE OTHER IS AN AUTO RESTORE * FILE 131 //* EXIT FOR DMS/OS * FILE 131 //* * FILE 131 //***FILE 132 IS FROM FIRST NATIONWIDE BANK OF DALY CITY, CA * FILE 132 //* THIS FILE CONTAINS SEVERAL UTILITIES FROM MR * FILE 132 //* GEORGE L. RAMAS. THIS FILE IS IN IEBUPDTE SYSIN * FILE 132 //* FORMAT. * FILE 132 //* * FILE 132 //* A. DAYTIMER THIS CLIST IS TO NOTIFY YOU * FILE 132 //* OF CALENDAR APPOINTMENTS. YOU CAN ADD TO * FILE 132 //* YOUR CALENDAR FOR AN APPOINTMENT LATER TODAY * FILE 132 //* OR FUTURE DATES * FILE 132 //* * FILE 132 //* B. PSUTABND THIS UTILITY IS USED TO HALT * FILE 132 //* PROCESSING IN A PROCEDURE IF A SELECTED * FILE 132 //* CONDITION CODE IS RECEIVED. * FILE 132 //* * FILE 132 //* C. PSUTDUMP THIS UTILITY IS A SUPER IEBGENER. * FILE 132 //* IT WILL ALLOW YOU TO HAVE UP TO 99 INPUTS * FILE 132 //* AND 99 OUTPUTS. * FILE 132 //* * FILE 132 //* D. PSUTGDG THIS PROGRAM IS USED TO LIST THE * FILE 132 //* NUMBER OF GDG ENTRIES FOR A SELECT GROUP OF * FILE 132 //* DATA SETS OR NODE LEVEL. IT SELECTS CERTAIN * FILE 132 //* FIELDS FROM AN IDCAMS LISTCAT OUTPUT. * FILE 132 //* * FILE 132 //* E. YREGS REGISTER EQUATE MACRO * FILE 132 //* * FILE 132 //***FILE 133 IS FROM ALAN C FIELD OF SUPER VALU INC. AND CONTAINS * FILE 133 //* SEVERAL OF THEIR UTILITIES, THIS FILE IS IN IEBUPDTE * FILE 133 //* SYSIN FORMAT AND CONTAINS THE FOLLOWING MEMBERS * FILE 133 //* * FILE 133 //* CLIST - SOME CLISTS TO DEMONSTRATE THE USE OF SOME * FILE 133 //* OF THE UTILITIES INCLUDED IN THIS FILE. * FILE 133 //* * FILE 133 //* CNTL - JCL TO RUN SOME OF THE UTILITIES INCLUDED * FILE 133 //* IN THIS FILE. * FILE 133 //* * FILE 133 //* ASM - ASSEMBLER LANGUAGE SOURCE FOR SOME USEFUL * FILE 133 //* UTILITIES. * FILE 133 //* * FILE 133 //* CPCMD - ENABLES MVS USERS RUNNING UNDER VM * FILE 133 //* TO ISSUE CP COMMANDS AND GET THE * FILE 133 //* RESPONSES BACK AT THEIR TSO * FILE 133 //* TERMINAL. CAN ALSO EXECUTED AS A * FILE 133 //* BATCH PROGRAM OR STARTED TASK. * FILE 133 //* LINK IT WITH AN ALIAS OF CP. ON * FILE 133 //* TSO THEN ENTER CP Q DASD FOR * FILE 133 //* EXAMPLE, OR CP ATT 58A MVS. * FILE 133 //* * FILE 133 //* DASDSUB - GET DASD DEVICE INFORMATION FROM * FILE 133 //* UCB. (USED BY SVTOC IN PLI.) * FILE 133 //* * FILE 133 //* DISASM3B - THE SVC TABLE FROM THE * FILE 133 //* DISASSEMBLER ON THE CBT TAPE. * FILE 133 //* MODIFIED FOR MVSXA AND COPIED INTO * FILE 133 //* SVCTAB. * FILE 133 //* * FILE 133 //* DSSLVL - DISPLAY CURRENT DF/DSS PROGRAM * FILE 133 //* LEVEL. * FILE 133 //* * FILE 133 //* JULSUB - DATE CONVERSION SUBROUTINE. * FILE 133 //* * FILE 133 //* LASTCLPA - COMMAND TO DISPLAY DATE AND TIME * FILE 133 //* OF LAST CLPA. A COMPANION PROGRAM * FILE 133 //* TO LASTIPL WHICH IS ON THE CBT * FILE 133 //* TAPE. * FILE 133 //* * FILE 133 //* LNKLST - DISPLAY NAMES OF LINKLST DATASETS * FILE 133 //* CURRENTLY IN USE. * FILE 133 //* * FILE 133 //* RACFDS - DISPLAY DATA ABOUT THE RACF * FILE 133 //* DATASET(S) IN USE. * FILE 133 //* * FILE 133 //* SMFDS - DISPLAY DATA ABOUT CURRENT SMF * FILE 133 //* DATASET USAGE. * FILE 133 //* * FILE 133 //* SVCTAB - PROGRAM TO DISPLAY SVCTABLE. * FILE 133 //* * FILE 133 //* TODCN - PROGRAM TO CONVERT TIMESTAMPS INTO * FILE 133 //* REAL DATES AND TIMES. * FILE 133 //* * FILE 133 //* VSAMNAME - CONVERT AND DISPLAY 'REAL' DATASET * FILE 133 //* NAMES ASSIGNED BY VSAM FOR PAGE, * FILE 133 //* MAN ETC. * FILE 133 //* * FILE 133 //* MACROS - MACROS NECESSARY TO ASSEMBLE SOURCE IN * FILE 133 //* MEMBER ASM. * FILE 133 //* * FILE 133 //* PLI - A PL/I UTILITY TO SORT IEHLIST LISTVTOC * FILE 133 //* OUTPUT INTO ADDRESS ORDER. * FILE 133 //* * FILE 133 //***FILE 134 is from Mr Greg Price of Prycroft Six * FILE 134 //* in Melbourne, Victoria, Australia. * FILE 134 //* service@prycroft6.com.au * 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 //* * 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 //* 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 39". * 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 and load module delinker. * FILE 134 //* Now with logical PARMLIB support, ZIP file * FILE 134 //* directory formatting, PCX (Paintbrush) * FILE 134 //* picture image rendering, program object * FILE 134 //* history and point-and-shoot entry. "USS * FILE 134 //* Explorer". Navigate around HFS * FILE 134 //* directories. REVIEW, browse, edit and * FILE 134 //* search HFS files. Display program object * FILE 134 //* long alias names. Lifted from CBT mods * FILE 134 //* tape version 230 circa 1984 and has been a * FILE 134 //* "terminal" case of creeping featurism ever * FILE 134 //* since. Read leading comments for changes. * FILE 134 //* A piece of resistance. Should work * FILE 134 //* without error on all known MVS levels up * FILE 134 //* to z/OS. * 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 //* 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. * FILE 134 //* * FILE 134 //* XSPLIT - Clist to create new ISPF session over * FILE 134 //* your current ISPF session. Needs an * FILE 134 //* addition to your ISPCMDS. See $$INDX11. * FILE 134 //* * FILE 134 //* XVTOCASM - JCL to assemble SUPERLST. * FILE 134 //* * FILE 134 //* ZAP - UCLA TSO ZAP command from the CBT mods * FILE 134 //* file of version 22 of the SHARE tape circa * FILE 134 //* 1983 with some extra modifications. * FILE 134 //* Perhaps the main change is full-volume * FILE 134 //* zapping support which, of course, requires * FILE 134 //* the appropriate APF and RACF authorities. * FILE 134 //* * FILE 134 //* ZAP$ - JCL to assemble ZAP. * FILE 134 //* * FILE 134 //* ZAP$DOC - Bruce Bordonaro's notes on this version * FILE 134 //* of the UCLA ZAP command. * FILE 134 //* * FILE 134 //* ZAP# - TSO help for ZAP. * FILE 134 //* * FILE 134 //* * FILE 134 //* For additional information see the members * FILE 134 //* $$INDEX through $$INDX35. * FILE 134 //* * FILE 134 //***FILE 135 is from Mr Greg Price of Prycroft Six * FILE 135 //* in Melbourne, Victoria, Australia. * FILE 135 //* This file is in IEBCOPY format and contains * FILE 135 //* ready-to-use load modules. * FILE 135 //* * FILE 135 //* * 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 - alias REV,REVVSAM,HEL,FSHELP,FSH * FILE 135 //* REVLMOD - TSO/batch pgm - mainly for use by REVIEW * FILE 135 //* REVSMF - External subroutine of REVIEW * FILE 135 //* SCANX - TSO/batch PDS search utility program * FILE 135 //* SHOWDS - TSO cp - alias SDS * FILE 135 //* SKJ$LC00 - TSO cp - aliases $LCSPF, $LISTC and $SPACE * FILE 135 //* SMFJBTIM - SMF type26 post-processing utility program * FILE 135 //* SNAKE - TSO cp or pgm - * FILE 135 //* aliases HALFSNAK, HS, QS and QUARTERS * FILE 135 //* SUPERLST - VTOC listing utility program * FILE 135 //* TERMTEST - TSO cp or pgm - TSO 3270 terminal tester * FILE 135 //* TESTDCS-2- TSO cp or pgm - TPUT demo * FILE 135 //* TEWM - TSO cp or pgm - TPUT demo * FILE 135 //* TSOPNAME - TSO cp or pgm - check JES2/RACF levels * FILE 135 //* UIDSTR - TSO cp within clist only - ACF2 only * FILE 135 //* VIEW - TSO program - pre-XA only * FILE 135 //* WORM - TSO cp or pgm - aliases HALFTEST, HW, QW, * FILE 135 //* HALFWORM, QUARTEST and QUARTERW * FILE 135 //* ZAP - TSO cp - alias ZAP$ (ZAP$ is used by PDS) * FILE 135 //* * FILE 135 //* ** Programs and commands from file 90: * FILE 135 //* * FILE 135 //* DELINKI - Utility which can be used by REVIEW * FILE 135 //* DWNSPDSR - External subroutine of DELINKI * FILE 135 //* * FILE 135 //* ** Programs and commands from file 93: * FILE 135 //* * FILE 135 //* PDSLOAD - Utility which can be used by REVIEW * FILE 135 //* * FILE 135 //* ** Programs and commands from file 182: * FILE 135 //* * FILE 135 //* 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 //* SHOWMVS - TSO cp or pgm - ISPF recommended * FILE 135 //* * FILE 135 //* ** Programs and commands from file 296: * FILE 135 //* * FILE 135 //* COMPARE - TSO cp - front end to COMPAREB/IEBCOMPR * FILE 135 //* COMPAREB - Yale compare utility program * FILE 135 //* * FILE 135 //* ** Programs and commands from file 300: * FILE 135 //* * FILE 135 //* IKJT9FI - TSO TEST subcommand - update IKJTSO00 * FILE 135 //* IKJT9LB - TSO TEST subcommand - update IKJTSO00 * FILE 135 //* LOGO - GDDM example from source member GDDM * FILE 135 //* NITEFLT - GDDM example from source member GDDM * FILE 135 //* SABREBAT - GDDM example from source member GDDM * FILE 135 //* SHUTTLE - GDDM example from source member GDDM * FILE 135 //* * FILE 135 //***FILE 136 is from Mr Howard Dean of Kaiser Permanente * FILE 136 //* IN Walnut Creek, California. * FILE 136 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND * FILE 136 //* CONTAINS THE FOLLOWING MEMBERS: FOR ADDITIONAL * FILE 136 //* INFORMATION SEE THE MEMBER CALLED $INDEX * FILE 136 //* * FILE 136 //* CURRENT ADDRESS: * FILE 136 //* * FILE 136 //* Howard M. Dean * FILE 136 //* Kaiser Foundation Health Plan * FILE 136 //* 25 Via Monte Avenue * FILE 136 //* 2nd Floor * FILE 136 //* Walnut Creek, CA 94598 * FILE 136 //* * FILE 136 //* (925) 926-3121 * FILE 136 //* * FILE 136 //* EMAIL - Howard.M.Dean@kp.org * FILE 136 //* * FILE 136 //* AAHLXXX WTO EXIT FOR CERTAIN 'GTF' MESSAGES * FILE 136 //* ADFHXXX WTO EXIT TO PROCESS CICS JOURNALS * FILE 136 //* AFNMXXX WTO EXIT TO PROCESS NDM LOG SWITCH * FILE 136 //* AIEAXXX WTO EXIT TO KICK OFF JOB TO COPY * FILE 136 //* SYS1.DUMPXX TO IPCS * FILE 136 //* AIEEXXX WTO EXIT TO HIGHLIGHT SMF DATASET * FILE 136 //* ERRORS * FILE 136 //* APLCAMS PROGRAM TO CALL IDCAMS TO ALLOW VSAM * FILE 136 //* ALLOCATION ON SYSDA * FILE 136 //* APUT MACRO TO CALL EPUTL FOR ASID TSO * FILE 136 //* COMMAND * FILE 136 //* ASID TSO/E COMMAND TO SHOW ADDRESS SPACE * FILE 136 //* DATA (31-BIT MODE) * FILE 136 //* BANNER BLOCK PRINT PARM FIELD (REQUIRES * FILE 136 //* 'SYS1.AOSB0(IEFSD095)') * FILE 136 //* BRODCAST PROGRAM TO SCAN 'SYS1.BRODCAST' DATASET * FILE 136 //* AND REPORT * FILE 136 //* CARTCOPY PROGRAM GENERATE JCL TO CALL CARTPROC * FILE 136 //* AND INVOKE NEWVOL * FILE 136 //* CARTPROC CATALOGED PROCEDURE USED WITH CARTCOPY * FILE 136 //* CONSOLE TSO COMMAND TO DISPLAY THE OPERATOR * FILE 136 //* CONSOLE (XA 2.2) * FILE 136 //* CPPL MACRO TO GENERATE TSO CPPL BLOCK * FILE 136 //* CSPL MACRO TO GENERATE TSO CSPL BLOCK * FILE 136 //* DATECONV CONVERT JULIAN DATE TO GREGORIAN * FILE 136 //* DRDROID VTAM DYNAMIC RECONFIGURATION DECK * FILE 136 //* BUILDER * FILE 136 //* ENTER MACRO FOR ENTRY TO PROGRAM (SAVE * FILE 136 //* REGISTERS, ETC..) * FILE 136 //* EPUTL ROUTINE TO SET UP TEXT AND CALL PUTLINE * FILE 136 //* FOR ASID COMMAND * FILE 136 //* HMDCHRON TIME KEEPER SUPREME (RETURNS TOD IN * FILE 136 //* VARIOUS FORMATS) * FILE 136 //* HMDTIME MACRO TO MAP HMDCHRON 72 BYTE RETURN * FILE 136 //* AREA * FILE 136 //* IKJEFF10 TSO/E SUBMIT EXIT--MODIFIES JOBNAME, * FILE 136 //* NOTIFY ACF2 LOGONID * FILE 136 //* INMXZ02 TSO/E XMIT EXIT TO NOTIFY USER ON SAME * FILE 136 //* SYSTEM OF MAIL * FILE 136 //* INUSE MACRO TO SHOW REGISTERS ASSIGNED BY * FILE 136 //* LUSE * FILE 136 //* IOPL MACRO TO GENERATE TSO IOPL BLOCK * FILE 136 //* JULGREG JULIAN/GREGORIAN CONVERSION PROGRAM - * FILE 136 //* CALLED MY HMDCHRON * FILE 136 //* LDROP MACRO TO GENERATE DROP STATEMENT * FILE 136 //* LEAVE MACRO FOR EXIT FROM PROGRAM (RESTORE * FILE 136 //* REGS, ETC..) * FILE 136 //* LSPACE TSO/E COMMAND TO DISPLAY AVAILABLE * FILE 136 //* SPACE ON VOLUMES * FILE 136 //* LSPHELP HELP TEXT FOR THE LSPACE COMMAND * FILE 136 //* LUSE MACRO TO GENERATE USING STATEMENT * FILE 136 //* NEWVOL PROGRAM TO CONVERT 3420-->3480 VIA * FILE 136 //* FATS/FATAR IN CA-1 * FILE 136 //* PDFINIT TSO/E COMMAND TO INITIALIZE PROFILE FOR * FILE 136 //* ISPF/PDF * FILE 136 //* PPL MACRO TO GENERATE TSO PPL BLOCK * FILE 136 //* REGS MACRO TO GENERATE REGISTER EQUATES * FILE 136 //* SETUSER INSERT ACF2 LOGONID AND OTHER FIELDS * FILE 136 //* FOR TSO IN BATCH * FILE 136 //* TAPESCAN TAPE SCANNING PROGRAM - UPDATED FOR * FILE 136 //* 3480 DRIVES * FILE 136 //* TAPESDOC DOCUMENTATION FOR THE TAPESCAN PROGRAM * FILE 136 //* (SOMEWHAT OLD) * FILE 136 //* TSOENTER MACRO FOR ENTRY TO TSO COMMANDS * FILE 136 //* TSOLEAVE MACRO FOR EXITING TSO COMMANDS * FILE 136 //* WRU TSO/E COMMAND TO DISPLAY USER IDENTITY * FILE 136 //* XABSM MACRO TO SWITCH BETWEEN 31-BIT AND * FILE 136 //* 24-BIT MODES * FILE 136 //* * FILE 136 //* ============================================= * FILE 136 //* * FILE 136 //* NONE OF THE PROGRAMS, ROUTINES, AND MACROS IN THIS * FILE 136 //* DATASET ARE GUARANTEED TO WORK OR BE "SAFE". AS WITH * FILE 136 //* ANY PUBLIC DOMAIN SOFTWARE IT IS THE RESPONSIBILITY * FILE 136 //* OF THE RECEIVING INSTALLATION TO TEST THE SOFTWARE * FILE 136 //* BEFORE RUNNING IT ON THEIR PRODUCTION SYSTEMS. IT MAY * FILE 136 //* CRASH YOUR SYSTEM, AND IF IT DOES, AMERICAN PRESIDENT * FILE 136 //* SYSTEMS ASSUMES NO RESPONSIBILITY. INSTALL THIS * FILE 136 //* SOFTWARE ON YOUR SYSTEM AT YOUR OWN RISK. ALSO, * FILE 136 //* AMERICAN PRESIDENT SYSTEMS DOES NOT GUARANTEE TO FIX * FILE 136 //* ANY OF THESE PROGRAMS OR UPGRADE THEM WHEN THEY * FILE 136 //* BECOME OBSOLETE. AMERICAN PRESIDENT SYSTEMS MAY * FILE 136 //* PERIODICALLY PUT UPDATED VERSION OF THESE AND OTHER * FILE 136 //* PROGRAMS ON THE CBT TAPE, BUT THEY ARE UNDER NO * FILE 136 //* OBLIGATION TO DO SO. MANY OF THESE PROGRAMS HAVE RUN * FILE 136 //* ON OUR SYSTEM, BUT THAT IS NOT A GURARANTEE THEY WILL * FILE 136 //* RUN ON YOUR SYSTEM. CAVEAT EMPTOR. * FILE 136 //* * FILE 136 //* NOTE ALSO, THAT THE SAME RESTRICTIONS ON * FILE 136 //* RESPONSIBILITY FOR OUR INSTALLATION (AMERICAN * FILE 136 //* PRESIDENT SYSTEMS) HOLD TRUE FOR HOWARD DEAN. I * FILE 136 //* WILL, HOWEVER, ACCEPT SUGGESTIONS FOR IMPROVEMENTS * FILE 136 //* AND ANSWER QUESTIONS ABOUT THESE PROGRAMS. A PROMPT * FILE 136 //* REPLY, THE CORRECT ANSWER, OR TIMELY IMPROVEMENTS * FILE 136 //* ARE NOT GUARANTEED. IF THERE ARE MISSING PARTS TO * FILE 136 //* THESE PROGRAMS, I WILL TRY TO FORWARD THE MACROS OR * FILE 136 //* ROUTINES TO ARNIE AT CBT, HOWEVER I DO NOT GUARANTEE * FILE 136 //* TO DO THIS IN A TIMELY MANNER. (YOU CAN'T, HOWARD. * FILE 136 //* YOU'D HAVE TO FORWARD THEM TO ME NOW). ALSO, JUST * FILE 136 //* BECAUSE THESE ROUTINES ARE ON THE CBT TAPE, I AM NOT * FILE 136 //* AVAILABLE FOR "DEMAND" SUPPORT AND NEITHER IS ARNIE * FILE 136 //* CASINGHINO. (PLEASE NOTICE THAT I AM NOT SAYING YOU * FILE 136 //* MAY CALL ME EITHER, BUT YOU CAN TRY). YOU MAY CALL * FILE 136 //* US, BUT WE CANNOT GUARANTEE A CORRECT AND PROMPT * FILE 136 //* ANSWER TO YOUR PROBLEM. AGAIN, YOU ARE ON YOUR OWN! * FILE 136 //* CAVEAT EMPTOR. * FILE 136 //* * FILE 136 //***FILE 137 IS FROM STEVE KLEEVES OF MAKITA USA FROM LA MIRADA * FILE 137 //* CALIFORNIA. THIS FILE CONTAINS AN EXTENSION TO * FILE 137 //* ISPF/PDF 3.4 THAT ALLOWS LISTING OF VSAM DATASETS * FILE 137 //* IN ADDITION TO THE NON-VSAM. * FILE 137 //* * FILE 137 //***FILE 138 IS FROM ART TANSKY OF SUNGARD IN VOORHEES, NEW JERSEY * FILE 138 //* AND CONTAINS A MODIFIED COPY OF SYSTEM FROM FILE 300 * FILE 138 //* OF THIS TAPE. THIS VERSION WORKS WITH 3090 AND DOES * FILE 138 //* NOT NEED TO BE AUTHORIZED. * FILE 138 //* * FILE 138 //* (UPDATED 2/94 FROM THE AUTHOR.) * FILE 138 //* * FILE 138 //***FILE 139 is from 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, FORMERLY OF CHARLES SCHWAB, * FILE 145 //* AND CONTAINS A COPY OF KERMIT FOR TSO. THIS FILE IS * FILE 145 //* IN IEBCOPY FORMAT AND CONTAINS SOURCE. * FILE 145 //* * FILE 145 //* ADDRESS: WILLIAM SMITH * FILE 145 //* IBM * FILE 145 //* STORAGE SYSTEMS DIVISION * FILE 145 //* 5600 COTTLE ROAD * FILE 145 //* DEPT. W98A * FILE 145 //* DRIVER BUILD & INTEGRATION * FILE 145 //* BUILDING 50, ROOM A382 * FILE 145 //* SAN JOSE, CA 95193-0001 * FILE 145 //* (408) 256-1557 OR * FILE 145 //* TIE LINE 276-1557 * FILE 145 //* * FILE 145 //* email: smithwj@us.ibm.com * FILE 145 //* sfowjs@sbcglobal.net * FILE 145 //* * FILE 145 //* THE KERMIT COMMAND INVOKES KERMIT-TSO, AN ASSEMBLY * FILE 145 //* LANGUAGE PROGRAM WHICH IMPLEMENTS THE KERMIT FILE * FILE 145 //* TRANSFER PROTOCOL ON IBM SYSTEM/370 AND XA MAINFRAME * FILE 145 //* COMPUTERS AND COMPATIBLES RUNNING THE MVS (MULTIPLE * FILE 145 //* VIRTUAL STORAGE) OPERATING SYSTEM WITH THE TSO (TIME * FILE 145 //* SHARING OPTION) SUBSYSTEM. KERMIT-TSO SUPPORTS FILE * FILE 145 //* TRANSFER IN BOTH LINE-MODE AND FULL-SCREEN OPERATION. * FILE 145 //* * FILE 145 //* LINE-MODE SUPPORTS ASYNCHRONOUS HALF-DUPLEX ASCII * FILE 145 //* COMMUNICATIONS THROUGH 3705/3725 OR EQUIVALENT FRONT * FILE 145 //* ENDS, WHILE FULL-SCREEN SUPPORTS ASYNCHRONOUS * FILE 145 //* FULL-DUPLEX ASCII COMMUNICATIONS THROUGH THE IBM * FILE 145 //* SERIES/1 RUNNING THE YALE ASCII COMMUNICATIONS SYSTEM * FILE 145 //* (OR EQUIVALENT) OR VARIOUS OTHER CONVERTERS WITH * FILE 145 //* GRAPHICS THROUGHPUT OPTION. * FILE 145 //* * FILE 145 //***FILE 146 IS FROM MR BILL SMITH OF CHARLES SCHWAB AND CONTAINS * FILE 146 //* THE LOAD MODULES FOR KERMIT. THIS FILE IS IN IEBCOPY * FILE 146 //* FORMAT * FILE 146 //* * FILE 146 //***FILE 147 is from Rick Fochtman, of Chicago Illinois, and * FILE 147 //* contains a copy of "The ARCHIVER". "The ARCHIVER" * FILE 147 //* has been upgraded to Version 6.1. This file is in * FILE 147 //* IEBUPDTE SYSIN format. * FILE 147 //* * FILE 147 //* To my knowledge, there isn't any other software * FILE 147 //* product like this, anywhere. (SG - 10/99) * FILE 147 //* * FILE 147 //* "The ARCHIVER" is a handy mechanism to store all of * FILE 147 //* your software and data objects--source code, load * FILE 147 //* modules, PSF objects, and the like--in one place, * FILE 147 //* in a single VSAM cluster. Version 4.0 and higher * FILE 147 //* of The ARCHIVER provide a large amount of data * FILE 147 //* compression, especially for source code. Version * FILE 147 //* 4.0 and higher of "The ARCHIVER" allows item-by-item * FILE 147 //* "export" to tape. From the tape we can go directly * FILE 147 //* back to pds uncompressed form, without need for the * FILE 147 //* intermediate VSAM cluster. Version 5.0 of The * FILE 147 //* ARCHIVER was extensively reworked from previous * FILE 147 //* versions. Files created with previous versions of * FILE 147 //* "The ARCHIVER" are upgradable with the "CONVERT" * FILE 147 //* command. Rick Fochtman plans to keep "The ARCHIVER" * FILE 147 //* upwardly compatible. * FILE 147 //* * FILE 147 //* Version 6.1 of The ARCHIVER is basically a * FILE 147 //* Y2K-ization of Version 5.0. (Remember here that * FILE 147 //* the general CBT disclaimer about Y2K compatibility * FILE 147 //* being "not guaranteed" applies - SG 10/12/99.) * FILE 147 //* * FILE 147 //* "The ARCHIVER" makes it possible to handily store * FILE 147 //* your personal software tool-kit for transport and * FILE 147 //* archive purposes. It may also be useful for the * FILE 147 //* installation's stuff to help archive all your shop's * FILE 147 //* software on a tape or two. * FILE 147 //* * FILE 147 //* THIS FILE CONTAINS SOURCE AND MACROS. ALSO A MEMBER * FILE 147 //* CALLED SAMPLIB CONTAINS AN IEBUPDTE SYSIN STREAM FOR * FILE 147 //* RICK'S SAMPLIB PDS. SEE MEMBER CALLED ARCHDOC. * FILE 147 //* * FILE 147 //* >>>> 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: rfochtman@ync.net * FILE 147 //* * FILE 147 //* RICK FOCHTMAN PREFERS TO BE CONTACTED AT HIS HOME PHONE * FILE 147 //* EVENINGS FROM 6 TO 9 PM EXCEPT THURSDAYS. (630) 719-1545. * FILE 147 //* YOU MAY GET A GROUCHO MARX IMITATION ON HIS ANSWERING * FILE 147 //* MACHINE. HAVE NO FEAR....ALL IS NORMAL. SG 10/99 * FILE 147 //* YOU MAY LEAVE A MESSAGE AND A RETURN PHONE NUMBER ON HIS * FILE 147 //* MACHINE DURING THE DAY HOURS. (RICK IS ON CENTRAL TIME.) * FILE 147 //* * FILE 147 //* ANOTHER NOTE -- I MIGHT AS WELL MENTION THIS CONCEPT HERE. * FILE 147 //* * FILE 147 //* "THE ARCHIVER" CLASSIFIES "ITEMS" BY FOUR 10-BYTE KEYS AND * FILE 147 //* A VERSION NUMBER THAT CAN GO FROM 1 TO 16MB. SOME EXAMPLE * FILE 147 //* CONTROL STATEMENTS TO UNLOAD ALL MEMBERS OF A PDS INTO A * FILE 147 //* VSAM CLUSTER MIGHT READ AS FOLLOWS: * FILE 147 //* * FILE 147 //* SET VSAM1DSN=TST.SAMPLE.SYSTEM.ARCHIVE * FILE 147 //* * COMMENT (ASTERISK IN COLUMN 1) * FILE 147 //* * SET STATEMENT INSTRUCTS DYNAMIC ALLOCATION. * FILE 147 //* * VSAM1DSN OR VSAM1DDN STATEMENTS ALLOCATE VSAM CLUSTERS. * FILE 147 //* UNLOAD ITEM=(*,SYS1.LKLIB,10/05/90,MVSRES),DSN=SYS1.LINKLIB * FILE 147 //* * DSN OR DDN STATEMENTS ALLOCATE NON-VSAM DATASETS. * FILE 147 //* * FILE 147 //* THE COMMAS DELIMIT THE KEY FIELDS. THE "*" IN THE FIRST * FILE 147 //* FIELD DENOTES THAT ALL MEMBERS OF THE PDS SHOULD BE UNLOADED.* FILE 147 //* SYS1.LINKLIB, IF IT IS CATALOGED, IS DYNAMICALLY ALLOCATED * FILE 147 //* BY THE ARCHIVER PROGRAM, AS INSTRUCTED BY THE "DSN" KEYWORD. * FILE 147 //* VERSION NUMBER (THE FIFTH PARAMETER) DEFAULTS TO 1. * FILE 147 //* * FILE 147 //* IF AN ITEM EXISTS ON THE VSAM ARCHIVE WITH ALL KEYS AND * FILE 147 //* VERSION NUMBER MATCHING, A NEW COPY WILL BE ARCHIVED WITH * FILE 147 //* VERSION NUMBER INCREMENTED BY ONE. IT IS EASIER TO STORE * FILE 147 //* AN EXTRA COPY THAN TO RECOVER A DELETED COPY. IF THE * FILE 147 //* VERSION NUMBER IS EXPLICITLY STATED AND ALL FIVE KEYS MATCH, * FILE 147 //* THEN AN ITEM REPLACE IS FORCED. A VERSION NUMBER MAY BE * FILE 147 //* EXPLICITLY STATED, BUT THIS IS USUALLY NOT PREFERABLE. * FILE 147 //* * FILE 147 //* >> PLEASE KEEP LOOKING HERE FOR REPORTS OF NEW DEVELOPMENTS. << * FILE 147 //* * FILE 147 //* A. ARCHIVER VERSION 6.1 HAS A "COMPARE" FUNCTION AND AN * FILE 147 //* "ALIAS" FUNCTION FOR ITEMS, WHICH ARE NEW. THE FORMAT * FILE 147 //* OF THE ARCHIVE HASN'T CHANGED--VERSION 6.1 WILL READ * FILE 147 //* ARCHIVES CREATED BY VERSION 4.0 WITHOUT CONVERSION, * FILE 147 //* (BUT NOT VICE-VERSA, BECAUSE OF THE NEW ALIAS HEADERS). * FILE 147 //* THERE IS ALSO A NEW FEATURE TO LIST CATEGORIES OF * FILE 147 //* ITEMS. YOU MAY PICTURE THIS FUNCTION AS DESCRIBING * FILE 147 //* "LOGICAL FILES" WITHIN A SINGLE ARCHIVE VSAM DATASET * FILE 147 //* OR TAPE. THE FUNCTION IS CALLED "LFILE" (FROM AN * FILE 147 //* ARCHIVE) AND "LFILET" (FROM A TAPE). * FILE 147 //* * FILE 147 //* B. IN VERSION 6.1, IF TWO ARCHIVED ITEMS COMPARE TO BE * FILE 147 //* IDENTICAL, IT IS POSSIBLE TO STORE ONLY ONE COPY OF * FILE 147 //* THE ACTUAL DATA, AND STILL GET TO THE ITEM VIA TWO * FILE 147 //* KEYS--ONE IS THE ACTUAL KEY, AND THE OTHER IS AN * FILE 147 //* ALIAS KEY. THIS CAN RESULT IN ENORMOUS MEDIA SAVINGS. * FILE 147 //* (RICK FOCHTMAN HAS DONE "WONDERS" WITH THIS FACILITY. * FILE 147 //* HE HAS SENT ME A SINGLE CARTRIDGE CONTAINING "THE * FILE 147 //* ARCHIVER 5.0" SOFTWARE, PLUS AN ITEM-BY-ITEM EXPORTED * FILE 147 //* ARCHIVE CONTAINING SIX VERSIONS OF THE CBT TAPE, THE * FILE 147 //* JES2 AND JES3 SHARE TAPES, THE CICS SHARE TAPE, AND * FILE 147 //* MATERIAL FROM OTHER TAPES. I THINK HE DESERVES AT * FILE 147 //* LEAST A "WOW".) * FILE 147 //* * FILE 147 //* >>>> NOTICE - NOTICE - NOTICE - NOTICE - NOTICE - NOTICE <<<< * FILE 147 //* >> << * FILE 147 //* >> FOR ARCHIVER USERS, ARCHIVER VERSIONS 1, 2, AND 3 << * FILE 147 //* >> WILL NOT BE SUPPORTED AFTER JUNE 1, 1994. VERSION 6.1 << * FILE 147 //* >> WILL CONVERT FILES FROM THE EARLIER FORMATS, TO ITS << * FILE 147 //* >> CURRENT FORMAT. << * FILE 147 //* >> << * FILE 147 //* >>>> NOTICE - NOTICE - NOTICE - NOTICE - NOTICE - NOTICE <<<< * FILE 147 //* * FILE 147 //***FILE 148 IS A PANVALET ISPF SYSTEM FROM MR GEOFFREY MCINTYRE * FILE 148 //* OF FIRST SECURITY SERVICE COMPANY OF SALT LAKE CITY * FILE 148 //* UTAH. THIS FILE CONTAINS A COPY OF THEIR PANVALET * FILE 148 //* ISPF SYSTEM. SEE THE MEMBER CALLED $$DOC FOR * FILE 148 //* ADDITIONAL INFORMATION. THIS FILE IS IN IEBUPDTE * FILE 148 //* SYSIN FORMAT * FILE 148 //* * FILE 148 //* 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 //* 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 //* BULLETIN - A COMMAND FOR PUTTING UP NICELY FORMATTED * FILE 160 //* BULLETIN MESSAGES INTO THE SYSTEM * FILE 160 //* BROADCAST DATASET. THE COMMAND HAS THE * FILE 160 //* ABILITY TO ADD AND DROP BULLETIN MESSAGES * FILE 160 //* ON SELECTED DATES. * FILE 160 //* * FILE 160 //* DSNCHECK - A COMMAND TO CHECK FOR THE EXISTENCE OF A * FILE 160 //* CATALOGED DATASET NAME, AND, OPTIONALLY, * FILE 160 //* TO CHECK FOR THE EXISTENCE OF A MEMBER * FILE 160 //* WITHIN A PDS. SETS &LASTCC FOR CLIST * FILE 160 //* WRITERS. * FILE 160 //* * FILE 160 //* FREEALL - A COMPLETELY NEW FREEALL, WITH LOTS OF * FILE 160 //* NICE OPTIONS, LIKE THE EXCEPT OPERAND. * FILE 160 //* USES SVC-99, AND CAN BE MAINTAINED BY * FILE 160 //* MORE JUNIOR SYSTEMS PROGRAMMERS. * FILE 160 //* COMPATIBLE WITH J/TIP. * FILE 160 //* * FILE 160 //* INSTREAM - THE INSTREAM COMMAND IS USED TO CREATE * FILE 160 //* 80-BYTE CONTROL CARD IMAGES IN A * FILE 160 //* TEMPORARY FILE. THIS COMMAND CAN BE RUN * FILE 160 //* UNDER CLIST CONTROL, WITH SYMBOLIC * FILE 160 //* SUBSTITUTION OF VARIABLES ALLOWED. * FILE 160 //* INSTREAM USES VIO INSTEAD OF DATASETS, * FILE 160 //* AND USES SYSTEM GENERATED NAMES INSTEAD * FILE 160 //* OF CATALOGING. * FILE 160 //* * FILE 160 //* ISPFPROF - THIS IS AN ALIAS OF THE PDF COMMAND * FILE 160 //* PROCESSOR (SEE DESCRIPTION, BELOW). WHEN * FILE 160 //* USING THIS ALIAS, THE PROFILE DATASET * FILE 160 //* WILL BE ALLOCATED, BUT THE PROGRAM WILL * FILE 160 //* NOT ENTER ISPF/PDF. * FILE 160 //* * FILE 160 //* LIBCALL - LIBCALL TRANSFERS CONTROL TO MODULES WITH * FILE 160 //* A 'CALL' TYPE OF PARAMETER LIST, WITH A * FILE 160 //* 'STEPLIB' OPTION. LIBCALL ALSO CAN * FILE 160 //* ACCEPT PROGRAM PARAMETERS IN LOWER CASE. * FILE 160 //* * FILE 160 //* NEWSPACE - A COMMAND FOR EASILY CREATING NEW, * FILE 160 //* MODERATELY SIZED, DATASETS AND LIBRARIES. * FILE 160 //* IT WAS WRITTEN WITH BEGINNERS IN MIND. * FILE 160 //* CAN BE EXECUTED FROM THE ISPF/PDF COMMAND * FILE 160 //* LINE (FOR ALLOCATING THAT DATASET YOU * FILE 160 //* SUDDENLY NEED). * FILE 160 //* * FILE 160 //* PDF - THE PDF COMMAND IS USED TO PREALLOCATE * FILE 160 //* THE ISPF PROFILE DATASET, THEN BRING THE * FILE 160 //* USER INTO ISPF/PDF. PDF IS A FRONT END * FILE 160 //* WHICH USES THE ISRPCP ENTRY POINT OF * FILE 160 //* ISPF/PDF, ENABLING THE USER TO SELECT * FILE 160 //* OPTIONAL PANEL NUMBERS WHEN INVOKING THE * FILE 160 //* PRODUCT. * FILE 160 //* * FILE 160 //* THE PDF COMMAND IS USED TO ENTER THE * FILE 160 //* ISPF PROGRAM DEVELOPMENT FACILITY * FILE 160 //* (PDF). IT IS A FRONT END FOR ISPF/PDF. * FILE 160 //* * FILE 160 //* SYNTAX - * FILE 160 //* PDF * FILE 160 //* OPTION TEST/TESTX/TRACE/TRACEX * FILE 160 //* OPERANDS: * FILE 160 //* REQUIRED - NONE * FILE 160 //* DEFAULTS - NONE * FILE 160 //* OPTIONAL - OPTION, TEST, TESTX, TRACE, * FILE 160 //* TRACEX * FILE 160 //* * FILE 160 //* OPTION - AN INITIAL OPTION THAT MAY BE * FILE 160 //* ENTERED TO BYPASS THE FIRST * FILE 160 //* DISPLAY OF THE PRIMARY OPTION * FILE 160 //* MENU AND GO DIRECTLY TO THE * FILE 160 //* OPTION YOU SELECT. (THIS IS * FILE 160 //* NOT A KEYWORD PARAMETER. * FILE 160 //* SIMPLY ENTER THE OPTION * FILE 160 //* NUMBER, OR OMIT TO DISPLAY THE * FILE 160 //* PRIMARY OPTION MENU.) FOR * FILE 160 //* EXAMPLE, TYPING "PDF 3.2" IN * FILE 160 //* TSO WILL TAKE YOU DIRECTLY TO * FILE 160 //* THE ISPF/PDF DATASET UTILITY * FILE 160 //* OPTION. * FILE 160 //* * FILE 160 //* TEST - PDF IS TO BE RUN IN TEST MODE. * FILE 160 //* TEST MODE INCLUDES: * FILE 160 //* * FILE 160 //* 1. RE-READING FROM DISK * FILE 160 //* ALL PANELS AND * FILE 160 //* MESSAGES. THIS * FILE 160 //* ENHANCES THE ABILITY TO * FILE 160 //* TEST PANELS AND * FILE 160 //* MESSAGES IN THE SAME * FILE 160 //* PDF SESSION THAT THEY * FILE 160 //* ARE MODIFIED. * FILE 160 //* * FILE 160 //* 2. DISABLING ABEND * FILE 160 //* RECOVERY. THIS ALLOWS * FILE 160 //* ABENDS TO BE TRACKED * FILE 160 //* DOWN USING TSO TEST. * FILE 160 //* * FILE 160 //* 3. DISABLING ATTENTION KEY * FILE 160 //* HANDLING. THIS ALLOWS * FILE 160 //* THE ATTENTION KEY TO BE * FILE 160 //* USED TO ENTER TSO TEST. * FILE 160 //* * FILE 160 //* TESTX - PDF IS TO BE RUN IN TEST * FILE 160 //* MODE EXTENDED. IN ADDITION * FILE 160 //* TO TEST MODE, ANY LINES * FILE 160 //* THAT ARE WRITTEN TO THE LOG * FILE 160 //* FILE ARE ALSO DISPLAYED ON * FILE 160 //* THE DISPLAY SCREEN. * FILE 160 //* * FILE 160 //* TRACE - PDF IS TO BE RUN IN TRACE * FILE 160 //* MODE. TRACE MODE INCLUDES * FILE 160 //* ALL OF THE FUNCTIONS OF * FILE 160 //* TEST MODE. IN ADDITION, * FILE 160 //* ALL ISPEXEC SERVICE * FILE 160 //* INVOCATIONS FROM A DIALOG * FILE 160 //* WILL BE LOGGED. * FILE 160 //* * FILE 160 //* TRACEX - PDF IS TO BE RUN IN TRACE * FILE 160 //* MODE EXTENDED. IN ADDITION * FILE 160 //* TO TRACE MODE, ANY LINES * FILE 160 //* THAT ARE WRITTEN TO THE LOG * FILE 160 //* FILE ARE ALSO DISPLAYED ON * FILE 160 //* THE DISPLAY SCREEN. * FILE 160 //* * FILE 160 //* DETAILED INFORMATION: * FILE 160 //* * FILE 160 //* PDF FIRST FREES DD(ISPPROF), * FILE 160 //* THEN TRIES TO ALLOCATE * FILE 160 //* DD(ISPPROF) TO * FILE 160 //* DSN('&SYSPREF..ISPF.PROFILE') * FILE 160 //* WITH DISP=(OLD,KEEP,KEEP). IF * FILE 160 //* IT CANNOT ALLOCATE BECAUSE OF * FILE 160 //* LOCATE ERROR 1708 (NOT FOUND IN * FILE 160 //* CATALOG), IT ALLOCATES THE * FILE 160 //* DATASET WITH * FILE 160 //* DISP=(NEW,CATLG,CATLG), * FILE 160 //* UNIT=SYSTSO, * FILE 160 //* DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120, * FILE 160 //* DSORG=PO), SPACE=(TRK,(1,2,10)). * FILE 160 //* FOR ANY OTHER ALLOCATION ERROR * FILE 160 //* CODE, THE PROGRAM TERMINATES AND * FILE 160 //* GIVES THE NORMAL IKJEFF18 ERROR * FILE 160 //* MESSAGES. * FILE 160 //* * FILE 160 //* PDF MAKES A NEW COPY OF THE * FILE 160 //* COMMAND BUFFER (CBUF) AND THE * FILE 160 //* COMMAND PROCESSOR PARAMETER LIST * FILE 160 //* (CPPL), POINTING THE NEW CPPL TO * FILE 160 //* THE NEW CBUF. IF THE USER USED * FILE 160 //* 'SPF' RATHER THAN 'PDF,' PDF * FILE 160 //* WILL PUT OUT AN INFO MESSAGE * FILE 160 //* SAYING THAT 'SPF' HAS BEEN * FILE 160 //* REPLACED BY 'PDF.' PDF THEN * FILE 160 //* PLACES THE LITERAL 'ISP' INTO * FILE 160 //* THE NEW CBUF BEGINNING AT THE * FILE 160 //* LOCATION OF THE FIRST NONBLANK * FILE 160 //* CHARACTER OF THE COMMAND TEXT. * FILE 160 //* IF DATASET * FILE 160 //* '&SYSPREF..ISPF.PROFILE' WAS * FILE 160 //* ALLOCATED NEW, MESSAGES * FILE 160 //* CONCERNING THE NEW DATASET ARE * FILE 160 //* WRITTEN TO THE TERMINAL. * FILE 160 //* * FILE 160 //* PDF THEN POINTS R1 TO THE NEW * FILE 160 //* CPPL, AND ATTACHES ISRPCP. IT * FILE 160 //* THEN WAITS FOR ISRPCP TO * FILE 160 //* COMPLETE, DETACHES ISRPCP, FREES * FILE 160 //* STORAGE AND TERMINATES. * FILE 160 //* * FILE 160 //* RETURN CODES: * FILE 160 //* IF ISP EXECUTES, THE CODE * FILE 160 //* RETURNED IS THE CODE FROM ISP. * FILE 160 //* OTHERWISE THE RETURN CODE IS 12. * FILE 160 //* * FILE 160 //* SAFECOPY - THIS PROGRAM IS A TSO COMMAND PROCESSOR * FILE 160 //* WHICH ENABLES MANY USERS TO COPY DATA INTO * FILE 160 //* THE SAME DATASET SIMULTANEOUSLY WITHOUT * FILE 160 //* CONFLICTING WITH EACH OTHER. INPUT DATA * FILE 160 //* MAY COME FROM A DATASET, FROM THE * FILE 160 //* TERMINAL, OR FROM DATA STACKED INSTREAM IN * FILE 160 //* A CLIST. * FILE 160 //* * FILE 160 //* SAFECOPY IS ESPECIALLY USEFUL IN CLISTS * FILE 160 //* WHICH WRITE TO A COMMON DATASET. * FILE 160 //* * FILE 160 //* SAFECOPY ACCOMPLISHES THIS BY PERFORMING A * FILE 160 //* SYSTEM ENQUEUE BEFORE WRITING TO THE * FILE 160 //* DATASET. MAJOR NAME IS USERDSN, MINOR * FILE 160 //* NAME IS THE NAME OF THE DATASET INTO WHICH * FILE 160 //* SAFECOPY IS WRITING. * FILE 160 //* * FILE 160 //* INPUT AND OUTPUT CAN BE DESIGNATED BY * FILE 160 //* DATASET NAME, OR BY FILE/DD NAME. IF THE * FILE 160 //* OUTPUT DATASET IS NOT PARTITIONED, THE MOD * FILE 160 //* OPERAND WILL CAUSE THE USE OF THE EXTEND * FILE 160 //* OPERAND OF OPEN, ALLOWING DATA TO BE ADDED * FILE 160 //* ON TO THE END OF A SEQUENTIAL DATASET. * FILE 160 //* * FILE 160 //* THE DEFAULT IS NONUM. THE USE OF THE NUM * FILE 160 //* OPERAND WILL CAUSE THE PHYSICAL RELOCATION * FILE 160 //* OF LINE NUMBERS WHEN SAFECOPYING BETWEEN * FILE 160 //* VARIABLE AND FIXED RECORD LENGTH DATASETS, * FILE 160 //* OR BETWEEN FIXED RECORD LENGTH DATASETS OF * FILE 160 //* DIFFERENT LOGICAL RECORD LENGTHS. * FILE 160 //* * FILE 160 //* SYSDSN - A COMMAND TO LIST THE NAMES OF EVERYONE * FILE 160 //* WHO HAS A DATASET ALLOCATED, OR IS * FILE 160 //* WAITING FOR ALLOCATION. VERY USEFUL * FILE 160 //* AFTER 'DATASET IN USE' AND 'WAITING FOR * FILE 160 //* DATASETS' MESSAGES. * FILE 160 //* * FILE 160 //* XPRINT - A FRONT-END COMMAND PROCESSOR FOR A * FILE 160 //* USER-WRITTEN HEXADECIMAL LISTING UTILITY * FILE 160 //* PROGRAM. ALLOCATES THE INPUT AND OUTPUT * FILE 160 //* FILES, THEN EXECUTES THE UTILITY. LOADS * FILE 160 //* THE UTILITY IF IT IS NOT ALREADY LINKED * FILE 160 //* IN. * FILE 160 //* * FILE 160 //* ADDITIONALLY, THIS PDS CONTAINS THE FOLLOWING * FILE 160 //* MACROS USED BY SEVERAL OF THE COMMAND PROCESSORS: * FILE 160 //* * FILE 160 //* EQ$R - REGISTER EQUATES. * FILE 160 //* GTEDAALC - EXECUTES DYNAMIC ALLOCATION AND DAIRFAIL. * FILE 160 //* GTEDADAT - CREATES SVC99/IKJEFF18 CONTROL BLOCKS. * FILE 160 //* GTEDADOC - DOCUMENTATION FOR GTEDAXXX MACROS. * FILE 160 //* GTEDASET - LINKS SVC99/IKJEFF18 CONTROL BLOCKS * FILE 160 //* TOGETHER. * FILE 160 //* LINKSAVE - LINKAGE CONVENTIONS UPON ENTRY TO A * FILE 160 //* MODULE. * FILE 160 //* LINKBACK - LINKAGE CONVENTIONS UPON EXIT FROM A * FILE 160 //* MODULE. * FILE 160 //* * FILE 160 //***FILE 161 IS FROM JIM MARSHALL (AIR FORCE RETIREE) AND CONTAINS * FILE 161 //* VARIOUS ISPF/PDF MENUS, PANELS, SKELETONS, CLISTS, * FILE 161 //* ETC. SEE MEMBER $$PROSE FOR ADDITIONAL INFORMATION. * FILE 161 //* THE FILE IS IN IEBUPDTE SYSIN FORMAT. * FILE 161 //* * FILE 161 //* JIM HAS RETIRED FROM THE AIR FORCE. HIS ADDRESS IS: * FILE 161 //* * FILE 161 //* Jim Marshall * 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 * FILE 162 //* IN AFTON, VIRGINIA. THIS FILE CONTAINS A COPY OF * FILE 162 //* A GLOBAL CROSS-REFERENCE LISTING GENERATOR CALLED * FILE 162 //* XREFASM. THIS FILE IS IN IEBUPDTE SYSIN FORMAT. * FILE 162 //* THE MACROS NEEDED FOR THIS CODE ARE CONTAINED IN * FILE 162 //* FILE 408 OF THIS TAPE. PLEASE SEE BELOW FOR * FILE 162 //* ADDITIONAL INFORMATION ON XREFASM. * FILE 162 //* * FILE 162 //* Dave Cole has updated most of his contributions, and * FILE 162 //* they are available for direct download from his web * FILE 162 //* site at www.colesoft.com. The following list of * FILE 162 //* his software is currently available there: * FILE 162 //* * FILE 162 //* Cole Software LLC's File Upload/Download Area * FILE 162 //* * FILE 162 //* The following shareware is available for download * FILE 162 //* * FILE 162 //* Filename Platform Description * FILE 162 //* asm2zap.zip OS/390 A utility for converting an * FILE 162 //* assembly listing into SUPERZAP * FILE 162 //* cards. * FILE 162 //* * FILE 162 //* blksptrk.zip OS/390 A TSO command that computes and * FILE 162 //* displays track capacities for any * FILE 162 //* IBM DASD device for any BLKSIZE, * FILE 162 //* with or without key fields. * FILE 162 //* * FILE 162 //* macros.zip OS/390 A set of Assembler/390 macros * FILE 162 //* needed for assembling the various * FILE 162 //* programs available from Cole * FILE 162 //* Software LLC. * FILE 162 //* * FILE 162 //* schedrun.zip OS/390 A set of MVS programs for * FILE 162 //* scheduling the execution of System * FILE 162 //* Operator Commands on an interval * FILE 162 //* or calander basis. Can be used to * FILE 162 //* control production scheduling. * FILE 162 //* * FILE 162 //* xrefasm.zip OS/390 A pair of programs for producing * FILE 162 //* master cross-reference listings * FILE 162 //* for multi-assembly programs. * FILE 162 //* * FILE 162 //* COLE SOFTWARE LLC * FILE 162 //* 736 Fox Hollow Road Afton, VA 22920 * FILE 162 //* 540-456-8210 540-456-6658: FAX * FILE 162 //* * FILE 162 //* E-MAIL : CSWstaff@cfw.com * FILE 162 //* INTERNET: http://www.colesoft.com * FILE 162 //* * FILE 162 //* COLE SOFTWARE WEB PAGE: HTTP://WWW.COLESOFT.COM * FILE 162 //* 736 FOX HOLLOW ROAD VOICE: 540-456-8536 * FILE 162 //* AFTON, VA 22920 FAX: 540-456-6658 * FILE 162 //* * FILE 162 //* MANY LARGE PROGRAMMING SYSTEMS ARE CONSTRUCTED * FILE 162 //* FROM A LARGE NUMBER OF SEPARATELY ASSEMBLED OR * FILE 162 //* COMPILED SECTIONS. SUCH SYSTEMS MUST MANAGE * FILE 162 //* INTERNAL COMMUNICATIONS BY MEANS OF A SET OF VECTOR * FILE 162 //* TABLES AND OTHER CONTROL BLOCKS THAT ARE KNOWN TO * FILE 162 //* EACH OF THE SEPARATE SECTIONS; WHICH IS TO SAY, SUCH * FILE 162 //* CONTROL BLOCKS MUST CONTAIN FIELDS THAT MAY BE * FILE 162 //* REFERENCED AND/OR CHANGED BY ANY OR ALL OF THE * FILE 162 //* SECTIONS. ACCORDINGLY, A GLOBAL CROSS-REFERENCE * FILE 162 //* LISTING, REPORTING WHICH SECTIONS REFERENCE WHICH * FILE 162 //* FIELDS, IS A VERY USEFUL TOOL FOR A LARGE-SYSTEMS * FILE 162 //* DEVELOPER TO HAVE. * FILE 162 //* * FILE 162 //* XREFASM IS A RELATIVELY SIMPLE SYSTEM THAT * FILE 162 //* GENERATES SUCH GLOBAL CROSS-REFERENCE LISTINGS. * FILE 162 //* SPECIFICALLY, XREFASM GENERATES A REPORT SHOWING A * FILE 162 //* SORTED LIST OF ALL LABELS USED IN A GIVEN SET OF * FILE 162 //* SEPARATE ASSEMBLIES OR COMPILATIONS. THE ENTRIES * FILE 162 //* FOR EACH LABEL SHOW BOTH WHICH ASSEMBLIES (OR * FILE 162 //* COMPILATIONS) REFERENCE THAT LABEL AND HOW MANY * FILE 162 //* REFERENCES EACH ASSEMBLY HAS TO THAT LABEL. * FILE 162 //* * FILE 162 //***FILE 163 IS FROM DAVID ANDREWS OF A. DUDA AND SONS, INC. * FILE 163 //* IN OVIEDO, FLORIDA. THIS PDS CONTAINS SOURCE FOR * FILE 163 //* THE FOLLOWING: * FILE 163 //* * FILE 163 //* email address: dba@duda.com * FILE 163 //* * FILE 163 //* 1. ADJXAMI - LINKEDITS AS A FRONT-END TO MODULE * FILE 163 //* HASPAMI IN HASPSSSM. INSPECTS AND DISCARDS * FILE 163 //* ALL CARD IMAGES WRITTEN TO AN INTERNAL READER * FILE 163 //* DATASET THAT START WITH A BANG ("!") IN * FILE 163 //* COLUMN 1. YOU CAN INSERT COMMENTS IN JCL * FILE 163 //* OR EVEN INSTREAM DATA. AUTHOR: DAVID ANDREWS. * FILE 163 //* * FILE 163 //* 2. ADJX006C - A JES2 EXIT #6. PROVIDES A DEFAULT * FILE 163 //* MODEL DSCB FOR NEW GENERATION DATASETS (REMOVING * FILE 163 //* THE REQUIREMENT THAT EITHER A MODEL DSCB EXIST * FILE 163 //* FOR EACH DEFINED GDG, OR THAT YOU SPECIFY ONE * FILE 163 //* IN YOUR JCL). DESIGNED TO WORK WITH IFG0EX0B * FILE 163 //* (SEE BELOW). AUTHOR: DAVID ANDREWS. * FILE 163 //* * FILE 163 //* 3. ADMM02 - AN SMP USERMOD TO THE LINKAGE * FILE 163 //* EDITOR. REMOVES THE 3200-BYTE LIMITATION * FILE 163 //* ON SYSLIN BLOCKSIZE. THE OFFSETS ARE SET * FILE 163 //* FOR THE DFP 2.4 LINKAGE EDITOR, BUT THIS * FILE 163 //* PARTICULAR MOD HAS BEEN RUN ON OTHER * FILE 163 //* VERSIONS (JUST CHANGE THE OFFSETS). * FILE 163 //* AUTHOR: UNKNOWN. * FILE 163 //* * FILE 163 //* 4. CATLG - CONTAINS "CATLG", "UNCATLG" AND * FILE 163 //* "SCRATCH" TSO COMMANDS, WHICH ARE SIMILAR * FILE 163 //* TO THEIR IEHPROGM COUNTERPARTS. AUTHOR: * FILE 163 //* DAVE PHILLIPS. * FILE 163 //* * FILE 163 //* 5. CHARGEN - A BANNER PROGRAM THAT WAS FLOATING * FILE 163 //* AROUND IN MY POSTGRADUATE DAYS, CIRCA 1975. * FILE 163 //* AUTHOR: JAY ULLIUS. * FILE 163 //* * FILE 163 //* 6. DA - "DISPLAY ACTIVE" TSO CP. LISTS ACTIVE * FILE 163 //* ADDRESS SPACES AT YOUR TERMINAL, ALONG WITH * FILE 163 //* THEIR CPU/EXCP/STORAGE UTILIZATION AND SWAP * FILE 163 //* STATUS. FULL-SCREEN 3270 ONLY (NO BATCH * FILE 163 //* SUPPORT). AUTHOR: DAVE PHILLIPS. * FILE 163 //* * FILE 163 //* 7. DD - LISTS CHARACTERISTICS OF CATALOGED AND * FILE 163 //* UNCATALOGED DATASETS. GOOD FOR GENERATION * FILE 163 //* DATA GROUPS. AUTHOR: DAVE PHILLIPS. * FILE 163 //* * FILE 163 //* 8. WTO AND DOM - A PAIR OF LITTLE TSO COMMANDS. * FILE 163 //* WTO WRITES NON-DELETABLE MESSAGES TO THE * FILE 163 //* MVS CONSOLE, AND DOM DELETES THOSE MESSAGES. * FILE 163 //* GREAT FOR WAKING UP THE OPERATOR (BEEP!) * FILE 163 //* AUTHOR: DAVE PHILLIPS. * FILE 163 //* * FILE 163 //* 9. IFG0EX0B - INSTALLATION DCB OPEN EXIT. PROVIDES * FILE 163 //* DEFAULT BLOCKSIZES FOR PROGRAMS AND JCL THAT * FILE 163 //* DON'T SUPPLY THEIR OWN. FOR DASD, IT SELECTS * FILE 163 //* A BLOCKSIZE CLOSE TO A HALF-TRACK. FOR TAPE, * FILE 163 //* IT SELECTS A BLOCKSIZE CLOSE TO 16K. FOR DD * FILE 163 //* DUMMY, VIO AND SUBSYSTEM DATASETS IT SELECTS A * FILE 163 //* MINIMAL BLOCKSIZE. NONE OF OUR INSTALLATION * FILE 163 //* JCL SPECIFIES DCB=BLKSIZE=ANYTHING! AUTHOR: * FILE 163 //* DAVE PHILLIPS. * FILE 163 //* * FILE 163 //* 10. RSMAP - REAL STORAGE MAP. PRODUCES A DETAILED * FILE 163 //* SUMMARY OF REAL STORAGE USAGE FOR EACH ADDRESS * FILE 163 //* SPACE. TELLS YOU HOW MANY REAL STORAGE FRAMES * FILE 163 //* ARE BEING USED FOR SUCH THINGS AS SQA, CSA, * FILE 163 //* LPA, LSQA, PRIVATE AREA, NUCLEUS, FIXED FRAMES, * FILE 163 //* VIO, ET CETERA. YOU MAY HAVE TO INCREASE SOME * FILE 163 //* TABLE SIZES IF YOU HAVE A LARGE NUMBER OF * FILE 163 //* ADDRESS SPACES. WORKS ONLY IN MVS/370. * FILE 163 //* AUTHOR: DAVE PHILLIPS. * FILE 163 //* * FILE 163 //* 11. S213RC30 - ELIMINATES THOSE S213-30 ABENDS THAT * FILE 163 //* IBM SUPPLIED WITH DFP V2. WHEN TWO PROGRAMS * FILE 163 //* SIMULTANEOUSLY OPEN A PDS FOR OUTPUT, THE SECOND * FILE 163 //* IS ABENDED S213-30. WITH S213RC30 INSTALLED, * FILE 163 //* THE SYSTEM ISSUES A WTOR TO THE OPERATOR AND * FILE 163 //* WAITS FOR THE PDS RESOURCE TO BECOME AVAILABLE * FILE 163 //* (THE OPERATOR CAN REPLY "CANCEL", IN WHICH CASE * FILE 163 //* THE SECOND PROGRAM ABENDS S213-30 AS BEFORE). * FILE 163 //* AUTHOR: DAVID ANDREWS. * FILE 163 //* * FILE 163 //* 12. ZAPDSCB - BATCH PROGRAM TO CHANGE THE ATTRIBUTES * FILE 163 //* OF ANY DIRECT-ACCESS DATASET. CAN BE USED TO * FILE 163 //* MODIFY DCB CHARACTERISTICS, PROTECTION STATUS, * FILE 163 //* EXPIRATION DATE, USE COUNT, AND SECONDARY SPACE * FILE 163 //* AMOUNT. AUTHOR: DAVE PHILLIPS. * FILE 163 //* * FILE 163 //***FILE 164 IS FROM RICK STECKER OF SYNECTICS FOR MANAGEMENT * FILE 164 //* DECISIONS IN BALTIMORE, MARYLAND. THIS FILE CONTAINS * FILE 164 //* EVERYTHING NEEDED TO CONSTRUCT A ONE-PACK MVS SYSTEM * FILE 164 //* COMMONLY KNOWN AS A "RESCUE PACK". * FILE 164 //* * FILE 164 //* THE STARTING POINT FOR THIS FILE WAS THE "RESCUE" * FILE 164 //* MEMBER OF FILE 022, BUT THIS SYSTEM HAS BEEN UPGRADED * FILE 164 //* FOR XA 2.2.0, AND IT HAS MANY IMPROVEMENTS. * FILE 164 //* * FILE 164 //* THIS SYSTEM CONTAINS AN INSTALLATION-CUSTOMIZABLE * FILE 164 //* MACRO WHICH GENERATES THE JOBS NEEDED TO PROPERLY * FILE 164 //* BUILD THE "RESCUE PACK". * FILE 164 //* * FILE 164 //***FILE 165 IS THE ESG SECURITY SYSTEM FROM CRAIG YASUNA. * FILE 165 //* THIS IS A FULLY IMPLEMENTABLE RACF-LIKE SECURITY * FILE 165 //* SYSTEM AT THE LEVEL OF RACF 1.7. THIS SYSTEM HAS * FILE 165 //* BEEN OPERATIONAL AT A MEDIUM-SIZED MVS INSTALLATION. * FILE 165 //* SINCE THIS SYSTEM IS VERY RACF-LIKE, CONVERSION FROM * FILE 165 //* IT, TO "REAL RACF" IS QUITE PAINLESS. HOWEVER, THIS * FILE 165 //* SYSTEM MAY ELIMINATE THE NEED FOR "REAL RACF". * FILE 165 //* * FILE 165 //* THE ESG SECURITY SYSTEM ROUTS ALL RACF CALLS THROUGH * FILE 165 //* THE "RACROUTE" INTERFACE, AND ITS MODULE ICHRTX00 * FILE 165 //* DOES ALL THE VERIFICATIONS TO ALLOW OR DISALLOW * FILE 165 //* ACCESS TO RESOURCES. TWO IN-CORE TABLES CONTROL * FILE 165 //* THE DECISIONS: THERE IS A USERID TABLE AND A * FILE 165 //* PROFILE TABLE. THERE IS NO DATABASE, BUT UPDATES * FILE 165 //* ARE EASILY AND QUICKLY MADE TO THE TABLES BY AN * FILE 165 //* ADMINISTRATOR, WHO MAY NOT HAVE TO DO TOO MUCH WORK * FILE 165 //* AFTER THE SYSTEM HAS BEEN INITIALLY SET UP. USERID * FILE 165 //* AND PROFILE TABLE RECORDS ARE NEARLY IDENTICAL IN * FILE 165 //* FORMAT TO THOSE OF RACF ITSELF. * FILE 165 //* * FILE 165 //* TWO STANDARD RACF MANUALS MAY BE USED TO HELP IN * FILE 165 //* SECURITY SETUP AND ADMINISTRATION. THESE ARE: RACF * FILE 165 //* ADMINISTRATOR'S GUIDE (SC28-1340) AND SPL RACF * FILE 165 //* (SC28-1343). * FILE 165 //* * FILE 165 //* BASIC DOCUMENTATION FOR THE SECURITY PACKAGE IS * FILE 165 //* SUPPLIED IN MEMBER $$$$$DOC OF THIS FILE. * FILE 165 //* * FILE 165 //***FILE 166 IS FROM VINH VU OF NEIMAN MARCUS IN IRVING, TEXAS. * FILE 166 //* THIS FILE CONTAINS A NICE COLLECTION OF THEIR * FILE 166 //* UTILITIES, EXITS AND REXX EXECS. THIS FILE IS * FILE 166 //* WORTH A GOOD LOOK. * FILE 166 //* * FILE 166 //* CONTENTS OF THIS PDS: * FILE 166 //* * FILE 166 //* $CAL - CLIST (EXEC) - WRITTEN IN TSO REXX. THIS * FILE 166 //* EXEC DISPLAYS A QUICK POP-UP CALENDAR USING * FILE 166 //* ISPF PANEL. CHECK IT OUT. * FILE 166 //* * FILE 166 //* $CKOUT - CLIST (EXEC) - WRITTEN IN TSO REXX. THIS * FILE 166 //* EXEC DISPLAYS PERTINENT INFORMATION ABOUT * FILE 166 //* YOUR TSO SESSION OR BATCH JOB, I.E. JOB/STEP * FILE 166 //* REGION SIZES, LIMITS, JOB/STEP TIME LIMITS, * FILE 166 //* MSGCLASS, ETC.. THIS CAN BE USED TO VERIFY * FILE 166 //* THE SETTINGS DONE BY THE LOCAL JES2 AND SMF * FILE 166 //* EXITS. * FILE 166 //* * FILE 166 //* $CMDPFX - ASM - TO ASSIGN A COMMAND PREFIX TO A MVS * FILE 166 //* IMAGE OF A SYSPLEX. RATHER THAN USING THE * FILE 166 //* 'ROUTE' COMMAND, YOU CAN USE THIS PREFIX FOR * FILE 166 //* ROUTING A COMMAND TO THE APPROPRIATE SYSTEM. * FILE 166 //* THE PREFIX IS SPECFIED THROUGH PARM. * FILE 166 //* * FILE 166 //* $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 //* $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 //* $MPFREPL - ASM - A GENERALIZED MPF EXIT. THE MESSAGES * FILE 166 //* BEING HANDLED ARE CODED USING AN IN-LINE * FILE 166 //* MACRO. PROCESSING CAN ALSO BE LIMITED TO * FILE 166 //* MESSAGES PRODUCED BY CERTAIN JOBNAMES * FILE 166 //* SPECIFIED BY THIS MACRO. * FILE 166 //* * FILE 166 //* $PARM - CLIST (EXEC) - WRITTEN IN TSO REXX. THIS * FILE 166 //* EXEC TAKES IN THE PARMS AND DOES SUBSTITUTION * FILE 166 //* ON THE INPUT CARDS (FROM DDNAME INPUT) TO * FILE 166 //* PRODUCE OUTPUT DATA FOR SUBSEQUENT USAGE. * FILE 166 //* SEVERAL RESERVED SYMBOLS WILL BE SUBSTITUTED * FILE 166 //* AS WELL, I.E. ~JOBNAME~, ~SYSID~. REXX * FILE 166 //* FUNCTIONS WILL ALSO BE EVALUATED TO PRODUCE * FILE 166 //* THE OUTPUT IF CODED (THIS CAN BE JUST ANOTHER * FILE 166 //* EXTERNAL REXX FUNCTION LIKE $DATE) * FILE 166 //* * FILE 166 //* $Q - EDIT MACRO (REXX) - THIS MACRO TAKES A PARM * FILE 166 //* AS A TSO COMMAND TO BE ISSUED AND THE OUTPUT * FILE 166 //* WILL BE TRAPPED AND DISPLAYED AS ISPF EDIT * FILE 166 //* NOTE LINES. * FILE 166 //* * FILE 166 //* $SAVE - EDIT MACRO (REXX) - THIS MACRO SAVES DATA * FILE 166 //* BEING EDITED BY DOING UPDATE IN PLACE FOR A * FILE 166 //* PDS MEMBER. EXTREMELY USEFUL IF * FILE 166 //* SYS1.PROCLIB IS FULL, AND YOU JUST NEED TO * FILE 166 //* MAKE MINIMUM CHANGES TO A PROC (UNLESS YOU * FILE 166 //* WANT TO GO AHEAD AND COMPRESS IT RIGHT THEN * FILE 166 //* AND THERE ...) * FILE 166 //* * FILE 166 //* $VSAMIDX - CLIST (EXEC) - WRITTEN IN TSO REXX. THIS * FILE 166 //* EXEC CALCULATES THE OPTIMUM NUMBER OF * FILE 166 //* INDEX BUFFERS TO BE SPECIFIED FOR A VSAM * FILE 166 //* KSDS USED FOR RANDOM ACCESS. * FILE 166 //* * FILE 166 //* $VSAMIXA - CLIST (EXEC) - THE DFSMS 1.X VERSION OF * FILE 166 //* $VSAMIDX. * FILE 166 //* * FILE 166 //* $WHOHAS - CLIST (EXEC) - THIS REXX EXEC WILL LIST THE * FILE 166 //* ACCESS LISTS FOR RACF DATA SET PROFILES FOUND * FILE 166 //* UNDER DSN*.**. THIS FUNCTION IS VERY MUCH * FILE 166 //* SIMILAR TO 'TSS WHOHAS DSN' COMMAND UNDER TOP * FILE 166 //* SECRET. IF THE EXEC IS RUN IN BATCH, THE RACF * FILE 166 //* COMMANDS USED TO RE-BUILD ALL OF THE PROFILES * FILE 166 //* AS DISPLAYED IN THE OUTPUT IS ALSO PRODUCED. * FILE 166 //* * FILE 166 //* $X - EDIT MACRO (REXX) - THIS MACRO READS THE * FILE 166 //* MEMBER BEING EDITED AND EXECUTES IT AS A * FILE 166 //* CLIST/EXEC. EXECUTION PARMS ARE ALLOWED AS * FILE 166 //* WELL. THIS DOES NOT REQUIRED THE MEMBER TO * FILE 166 //* BE SAVED FIRST. EXTREMELY USEFUL IF YOU'RE * FILE 166 //* DOING A LOT OF CLIST/EXEC CODING AND * FILE 166 //* DEBUGGING. * FILE 166 //* * FILE 166 //* $6 - CLIST (EXEC) - WRITTEN IN TSO REXX. OFTEN * FILE 166 //* TIMES, YOU DO NEED TO ALLOCATE A NEW * FILE 166 //* LOADLIB AND EXECUTE TSO COMMANDS OUT OF * FILE 166 //* IT. ONE WAY TO DO IT IS: GET OUT OF ISPF, * FILE 166 //* ALLOCATE IT AS ISPLLIB, AND GET BACK IN. * FILE 166 //* THE OTHER WAY (WITHOUT HAVING TO GET OUT * FILE 166 //* OF ISPF): EXECUTE THIS EXEC, AND THERE YOU * FILE 166 //* GO !!! * FILE 166 //* * FILE 166 //* DALLOC - SOURCE - TSO CMD TO DISPLAY DYNAMIC * FILE 166 //* ALLOCATIONS. I'VE GOT THE ORIGINAL SOURCE * FILE 166 //* FROM ONE OF THE VERY OLD CBT TAPE. THIS * FILE 166 //* STOPPED WORKING WHEN OUR JES2 PGMR DECIDED * FILE 166 //* TO MOVE SWA ABOVE THE LINE. I THEN * FILE 166 //* DECIDED TO FIX THIS PROGRAM USING MACRO * FILE 166 //* 'SWAREQ' WHICH IS THE STANDARD WAY TO * FILE 166 //* ACCESS THE JFCB FROM TIOT PTR. * FILE 166 //* * FILE 166 //* DATE - THIS IS JES2 EXIT 1 (PAGE SEPARATOR), * FILE 166 //* BUT REALLY IT IS CSECT RBDDATE WHICH * FILE 166 //* IMPLEMENTS TABLELESS DATE CONVERSION * FILE 166 //* * FILE 166 //* DYNALIST - SOURCE - TSO COMMAND TO DISPLAY ALL UNIT * FILE 166 //* NAMES ON THE SYSTEM AND THE UCBS' (PLUS * FILE 166 //* VOLSERS) ASSOCIATED WITH THOSE UCBS. * FILE 166 //* DYNALIST IS AN OLD PROGRAM COMING OFF THE * FILE 166 //* CBT TAPE AND MODIFIED TO WORK WITH MVS 4.2 * FILE 166 //* AND ABOVE. * FILE 166 //* * FILE 166 //* 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 //* VINH VU * FILE 166 //* CONSULTING TECHNOLOGIST * FILE 166 //* NEIMAN MARCUS * FILE 166 //* IS DEPARTMENT * FILE 166 //* 111 CUSTOMER WAY * FILE 166 //* IRVING, TX 75039-3607 * FILE 166 //* (972)-401-6948 * FILE 166 //* * FILE 166 //* EMAIL: VINH_VU@NEIMANMARCUS.COM * FILE 166 //* * FILE 166 //* -*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- * FILE 166 //* * FILE 166 //***FILE 167 IS A COLLECTION OF UTILITIES FROM CATELLUS * FILE 167 //* DEVELOPMENT CORPORATION IN SAN FRANCISCO, * FILE 167 //* CALIFORNIA. THIS FILE WAS CONTRIBUTED BY * FILE 167 //* GEORGE RAMAS AND ROB WUNDERLICH. * FILE 167 //* * FILE 167 //* UTILITIES PACKAGE * FILE 167 //* * FILE 167 //* THE FOLLOWING UTILITES ARE INCLUDED IN THIS COLLECTION. * FILE 167 //* THEY ARE EITHER RUN AS CLISTS, PROGRAMS, OR ISPF * FILE 167 //* PANELS. DOCUMENTATION FOR EACH UTILITY IS IN THE * FILE 167 //* MEMBER INDICATED BELOW. IF YOU USE THE PDSLOAD PROGRAM * FILE 167 //* (FILE 093) TO RELOAD THIS FILE INSTEAD OF IEBUPDTE, YOU * FILE 167 //* WILL GET ISPF STATISTICS WHICH WILL INDICATE THE NATURE * FILE 167 //* OF EACH MEMBER (PANELS, SOURCE, MESSAGE, DOC, CLIST). * FILE 167 //* * FILE 167 //* UTILITY DOC FAST * FILE 167 //* NAME MEMBER DESCRIPTION * FILE 167 //* -------- -------- ----------------------- * FILE 167 //* DAYTIMER - DAYTIMR# - APPOINTMENTS DISPLAY * FILE 167 //* DASDDAC - DASDDAC# - DASD SPACE CALULATOR * FILE 167 //* DASDROOM - DASDROO# - DASD SPACE REPORT * FILE 167 //* GDGUTIL - GDGUTIL# - GDG UTILITY * FILE 167 //* WHOHAS - WHOHAS# - DATASET ENQUE NOTIFIER * FILE 167 //* * FILE 167 //* SOME OF THE UTILITIES ARE EXECUTED AS CLISTS ONLY. * FILE 167 //* OTHERS ARE PROGRAMS, OR ISPF DIALOGUES. THERE SHOULD * FILE 167 //* BE ENOUGH MATERIALS IN THIS DATASET TO EXECUTE ALL OF * FILE 167 //* THE UTILITIES. * FILE 167 //* * FILE 167 //***FILE 168 WAS CONTRIBUTED BY BILL GODFREY OF PRC, INC. * FILE 168 //* IN SUITLAND, MD. THESE ARE UPDATES TO SOME OF * FILE 168 //* IS PROGRAMS IN JIM MARSHALL'S FILES, AND THERE * FILE 168 //* ARE SOME NEW THINGS. BILL HAS DONE MUCH PIONEERING * FILE 168 //* WORK, AND HIS SOFTWARE DESERVES A GOOD LOOK. * FILE 168 //* * FILE 168 //* email: 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 //* FINDAZAP - UTILITY TO FIND A STRING IN A LOAD * FILE 168 //* MODULE, GENERATE A ZAP. * FILE 168 //* MEMBER - REFRESH OF MEMBER TSO COMMAND FROM * FILE 168 //* CBT FILE 300. XA FIX. * FILE 168 //* SHOWDS - REFRESH OF SHOWDS TSO COMMAND FROM * FILE 168 //* CBT FILE 300. XA FIX. * FILE 168 //* ULXDOC - INFORMATION ABOUT THE ULX... MEMBERS. * FILE 168 //* ULX... - ISPF PROGRAM FOR DISPLAYING FREE SPACE * FILE 168 //* ON A DISK VOLUME. * FILE 168 //* XBE - EXECUTE ISPF BROWSE OR EDIT VIA * FILE 168 //* SHORTCUT. * FILE 168 //* XBEDOC - INSTRUCTIONS FOR USING XBE. * FILE 168 //* * FILE 168 //* THE FOLLOWING NAMING CONVENTION HAS BEEN USED FOR * FILE 168 //* MEMBERS THAT ARE PARTS OF AN ISPF APPLICATION: * FILE 168 //* * FILE 168 //* THE FIRST 3 CHARACTERS IDENTIFY THE APPLICATION. * FILE 168 //* THE 4TH CHARACTER IS * FILE 168 //* 'L' FOR SOURCE CODE OF LOAD MODULES * FILE 168 //* 'D' FOR DOCUMENTATION * FILE 168 //* 'P' FOR PANEL 'H' FOR TUTORIAL PANEL * FILE 168 //* 'M' FOR MESSAGE SET 'C' FOR CLIST * FILE 168 //* 'S' FOR SKELETON 'J' FOR JCL * FILE 168 //* THE 5TH AND 6TH CHARACTERS ARE NUMBERS THAT * FILE 168 //* UNIQUELY IDENTIFY EACH MODULE WITHIN THE GROUP. * FILE 168 //* * FILE 168 //* THE NAMING CONVENTION FITS WITHIN THE NAMING * FILE 168 //* REQUIREMENTS FOR MEMBERS OF THE ISPF MESSAGE * FILE 168 //* LIBRARIES. * FILE 168 //* * FILE 168 //***FILE 169 IS A COLLECTION OF UTILITIES FROM KEVIN WILLIAMS * FILE 169 //* OF MEIJER, INCORPORATED IN GRAND RAPIDS, MICHIGAN. * FILE 169 //* INCLUDED ARE A PROBLEM REPORT FOR APPLIED SYSMODS * FILE 169 //* IN ASSEMBLER LANGUAGE, FOR SMP/E RELEASE 5. THIS * FILE 169 //* REPORT MIGHT HAVE SOME ADVANTAGES OVER IBM'S * FILE 169 //* "REPORT ERRSYSMODS". * FILE 169 //* * FILE 169 //* DISCLAIMER * FILE 169 //* THESE PROGRAMS WORK FOR ME, BUT NO WARRANTY * FILE 169 //* OR GUARANTEE IS MADE BY ME OR MEIJER, INC. * FILE 169 //* ABOUT THEIR CORRECT OPERATION. RUN THEM AT * FILE 169 //* YOUR OWN RISK. * FILE 169 //* * FILE 169 //* KEVIN WILLIAMS * FILE 169 //* MEIJER, INC., 982/2 * FILE 169 //* 2727 WALKER AVENUE NW * FILE 169 //* GRAND RAPIDS, MI 49504 * FILE 169 //* (616) 791-3621 * FILE 169 //* * FILE 169 //* * FILE 169 //* MEMBER DESCRIPTION * FILE 169 //* ------ ----------- * FILE 169 //* $$DOC THIS MEMBER * FILE 169 //* * FILE 169 //* #RTN STANDARD LINKAGE MACRO BORROWED FROM * FILE 169 //* THE NASPA VIP TAPE * FILE 169 //* * FILE 169 //* #SLC STANDARD LINKAGE MACRO BORROWED FROM * FILE 169 //* THE NASPA VIP TAPE * FILE 169 //* * FILE 169 //* FORTUNE THIS IS AN EDITED FORTUNE COOKIE FILE * FILE 169 //* FROM AN OLD DEC PDP-11 RSTS/E SYSTEM * FILE 169 //* THAT I'VE BEEN CARRYING AROUND WITH ME * FILE 169 //* FOR MORE THAN 10 YEARS. I'VE CLEANED * FILE 169 //* IT UP QUITE A BIT AND MADE IT EASY FOR * FILE 169 //* ANYONE TO FORMAT: JUST ADD YOUR OWN * FILE 169 //* .QUOTE AND .ATTR MACROS AND RUN IT * FILE 169 //* THROUGH YOUR FAVORITE TEXT PROCESSOR * FILE 169 //* (OR DCF). I BELIEVE IT CAME FROM AN * FILE 169 //* OLD DECUS TAPE, SO IT SHOULD BE PUBLIC * FILE 169 //* DOMAIN. * FILE 169 //* * FILE 169 //* PELISTR5 MODIFIED VERSION OF MICHAEL GEARING'S * FILE 169 //* PELIST PROGRAM FROM FILE 18 OF THE * FILE 169 //* NASPA VIP TAPE. I HAVE MODIFIED IT TO * FILE 169 //* WORK WITH SMP/E RELEASE 5 ZONES. * FILE 169 //* * FILE 169 //* SMLDATA AN ENTIRE SEASON OF BOWLING SCORES * FILE 169 //* FOR SMLSTAT * FILE 169 //* * FILE 169 //* SMLJCL SAMPLE JCL TO RUN SMLSTAT * FILE 169 //* * FILE 169 //* SMLSTAT BOWLING STATISTICS PROGRAM WRITTEN IN * FILE 169 //* PL/I. I WROTE THIS PROGRAM * FILE 169 //* SPECIFICALLY FOR MY LEAGUE (SEYMOUR * FILE 169 //* MEN'S LEAGUE) FOR USE WITH A XEROX * FILE 169 //* 4045 PRINTER, SO IT WILL PROBABLY NEED * FILE 169 //* TO BE MODIFIED FOR OTHER LEAGUES * FILE 169 //* AND/OR PRINTERS. IT'S NOT INCREDIBLY * FILE 169 //* WELL DOCUMENTED, SO ANYBODY WHO WANTS * FILE 169 //* TO USE IT AND HAS ANY QUESTIONS SHOULD * FILE 169 //* FEEL FREE TO CALL ME. * FILE 169 //* * FILE 169 //* VTOCSCAN PROGRAM TO SCAN ALL ONLINE DASD VTOCS * FILE 169 //* FOR NON-ZERO VALUES IN THE FOUR * FILE 169 //* RESERVED BYTES BEGINNING AT OFFSET * FILE 169 //* X'4E' IN THE DSCBS. THIS PROGRAM IS * FILE 169 //* USEFUL IF YOU RUN THIRD-PARTY DASD * FILE 169 //* MANAGEMENT SOFTWARE (E.G. DMS) AND ARE * FILE 169 //* PLANNING TO INSTALL DFP VERSION 3. * FILE 169 //* * FILE 169 //***FILE 170 IS A DUMPCSA PROGRAM WHICH I FIGURED MIGHT BE * FILE 170 //* USEFUL TO PEOPLE FOR THE IDEAS WITHIN IT. THIS * FILE 170 //* PROGRAM "SNAP DUMPS" ALL ALLOCATED CSA, SO THAT * FILE 170 //* THE MATERIAL MAY BE SCANNED FOR STRINGS. THERE * FILE 170 //* IS FOOD FOR THOUGHT IN THE CODING, WHICH WAS DONE * FILE 170 //* BY FRANK O'QUINN OF LSU IN BATON ROUGE, LA. * FILE 170 //* * FILE 170 //***FILE 171 is a collection of several important utilities, * FILE 171 //* contributed by Richard Rice. * FILE 171 //* * FILE 171 //* email: Richard.L.Rice@conocophillips.com * FILE 171 //* * FILE 171 //* These utilities are: * FILE 171 //* * FILE 171 //* DITTO - AN MVS PROGRAM WITH AN ISPF INTERFACE, * FILE 171 //* ORIGINALLY WRITTEN, BUT INSPIRED BY * FILE 171 //* DOS/DITTO. * FILE 171 //* * FILE 171 //* TAPEMAP - A REWRITE OF THE PROGRAM THAT IS ON * FILE 171 //* FILE 299, BUT BROKEN INTO SEPARATE * FILE 171 //* CSECTS AND SUBROUTINE CALLS. * FILE 171 //* * FILE 171 //* One nice thing about this DITTO and TAPEMAP is that you * FILE 171 //* DON'T NEED BLP PRIVILEGE. The code does a fake open. * FILE 171 //* * FILE 171 //* DISASM - A REDESIGN OF THE DISASSEMBLER ON * FILE 171 //* FILE 217, BUT BROKEN INTO CSECTS. THIS * FILE 171 //* DISASSEMBLER CALLS THE ASSEMBLER AND * FILE 171 //* ALLOWS YOU TO USE REAL MACROS AND THEIR * FILE 171 //* DSECTS FOR LABEL MAPPING. * FILE 171 //* * FILE 171 //* SMFSPLIT - SMFSPLIT IS AN ASSEMBLER PROGRAM WHICH * FILE 171 //* ALLOWS YOU TO BREAK UP SMF RECORDS BY * FILE 171 //* TYPE, TO SEPARATE DATASETS. THIS DEALS * FILE 171 //* WITH THE RAW SMF RECORDS. YOU CAN POST * FILE 171 //* PROCESS THEM LATER. I THINK THAT THIS * FILE 171 //* UTILITY IS QUITE A RARE DEAL. MOST SMF * FILE 171 //* PROCESSING PROGRAMS PICK A TYPE, AND * FILE 171 //* FORMAT A REPORT. THIS PROGRAM ISOLATES * FILE 171 //* ALL RECORDS OF A GIVEN TYPE TO AN * FILE 171 //* EXTRACTION FILE. * FILE 171 //* * FILE 171 //* TPX - IF THE NETWORK PACKAGE, TPX, IS RUNNING * FILE 171 //* ON AN ISOLATED MACHINE, AND USERS FROM * FILE 171 //* THE PRODUCTION MACHINES ARE TRYING TO * FILE 171 //* LOG ONTO TPX, THERE IS A PROBLEM IN * FILE 171 //* SYNCHRONIZING RACF DATABASES FROM THE * FILE 171 //* SEPARATE SYSTEMS TO PROPERLY VERIFY THE * FILE 171 //* LOGON. THIS IS A TPX EXIT AND AN STC, * FILE 171 //* WHICH SOLVES THE PROBLEM VERY INGENIOUSLY. * FILE 171 //* * FILE 171 //* FX - THIS PACKAGE IS A VTAM APPLICATION THAT * FILE 171 //* RUNS ON MULTIPLE SYSTEMS, AND ALLOWS * FILE 171 //* YOU TO SEND DATA FILES IN BULK, FROM * FILE 171 //* ONE SYSTEM TO ALL OF THEM. * FILE 171 //* * FILE 171 //* SYSTEM UTILITY (SUTL) - A VTAM LU 6.2 APPLICATION * FILE 171 //* THAT ALLOWS A TSO USER TO OBTAIN INFORMA- * FILE 171 //* TION ABOUT EXECUTING JOBS, THE APF LIST, * FILE 171 //* IPL DATE/TIME/SYSRES, LINK LIST, ETC. * FILE 171 //* MOST OF THIS INFORMATION IS USUALLY * FILE 171 //* AVAILABLE VIA OTHER UTILITIES ALREADY IN * FILE 171 //* USE, BUT THIS UTILITY ALLOWS THE TSO USER * FILE 171 //* TO GET INFO FROM A SYSTEM THAT HE IS NOT * FILE 171 //* LOGGED ON TO. * FILE 171 //* * FILE 171 //* (NOTE. DAVE CARTWRIGHT, WHO CONTRIBUTED FILE 172 TO * FILE 171 //* THIS TAPE, HAS MADE SOME UPDATES TO A FEW OF * FILE 171 //* THE DITTO FILES. THIS WAS FOR AN MVS/ESA 3.1 * FILE 171 //* SYSTEM. IF YOU FEEL YOU NEED THESE UPDATES, * FILE 171 //* THEY ARE INCLUDED HERE AS MEMBER $DITCRTW.) * FILE 171 //* * FILE 171 //* - - - - - - - - - - - - - - - - - - - - - * FILE 171 //* * FILE 171 //* SYSTEM UTILITY (SUTL) * FILE 171 //* * FILE 171 //* SUTL IS A VTAM LU 6.2 APPLICATION THAT ALLOWS A TSO * FILE 171 //* USER TO OBTAIN INFORMATION ABOUT EXECUTING JOBS, THE * FILE 171 //* APF LIST, IPL DATE/TIME/SYSRES, LINK LIST, ETC. MOST * FILE 171 //* OF THIS INFORMATION IS USUALLY AVAILABLE VIA OTHER * FILE 171 //* UTILITIES ALREADY IN USE, SO WHY BOTHER GOING TO THE * FILE 171 //* TROUBLE OF 'RE-INVENTING' THIS WHEEL AND ADDING VTAM * FILE 171 //* OVER-HEAD IN THE PROCESS? BEING A VTAM APPLICATION * FILE 171 //* MEANS THAT A TSO USER CAN GET INFO FROM A SYSTEM * FILE 171 //* THAT HE IS NOT LOGGED ON TO. IF YOU HAVE MULTIPLE * FILE 171 //* PROCESSORS OR LPARS, YOU CAN "WATCH" EXECUTING JOBS ON * FILE 171 //* ANY OF THE SYSTEMS NO MATTER WHICH SYSTEM YOU ARE * FILE 171 //* LOGGED ON TO. BESIDES IT WAS A GOOD WAY TO LEARN * FILE 171 //* SOMETHING AND HAVE A USEFUL UTILITY WHEN IT WAS * FILE 171 //* WORKING. * FILE 171 //* * FILE 171 //* SUTL CONSISTS OF TWO BASIC COMPONENTS, (1) A DATA * FILE 171 //* COLLECTOR THAT WOULD PROBABLY BE BEST TO RUN AS A * FILE 171 //* STARTED TASK (STC) AND (2) THE TSO/SPF CODE THAT SENDS * FILE 171 //* REQUESTS TO THE DATA COLLECTOR AND DISPLAYS THE DATA. * FILE 171 //* * FILE 171 //* THE DATA COLLECTOR (STC) SHOULD BE RUN ON EACH SYSTEM. * FILE 171 //* THE STC DOES REQUIRE APF AUTHORIZATION FOR THE UCB * FILE 171 //* FUNCTION. IF YOU REMOVE THE UCB FUNCTION, SUTL WILL * FILE 171 //* NOT REQUIRE ANY SPECIAL PRIVILEGES. * FILE 171 //* * FILE 171 //* THE TSO/SPF PART REQUIRES ONE VTAM APPL ID PER ACTIVE * FILE 171 //* TSO USER. THESE APPL IDS ARE ASSEMBLED AND LINK * FILE 171 //* EDITED INTO A LOAD MODULE AS PART OF THE INSTALLATION * FILE 171 //* STEPS. I FELT THAT IT WOULD BE LESS OVERHEAD PER * FILE 171 //* INVOCATION TO SEARCH A PRE-ASSEMBLED/LINK EDITED LOAD * FILE 171 //* MODULE THAN TO READ A PARAMETER DATA SET (THIS WOULD * FILE 171 //* MEAN ALLOCATING THE DATA SET, OPENING IT, READING AND * FILE 171 //* SCANNING EACH STATEMENT, CLOSING, AND THEN * FILE 171 //* DE-ALLOCATING). * FILE 171 //* * FILE 171 //* IEFUTL - A sample IEFUTL SMF exit which does the following * FILE 171 //* things: * FILE 171 //* * FILE 171 //* If this is for a batch job or started * FILE 171 //* task, allow to abend. * FILE 171 //* * FILE 171 //* For TSO users: * FILE 171 //* Check user's access to a RACF resource. * FILE 171 //* As is, this exit checks for the user's access to * FILE 171 //* class 'TIMEOUT', entity 'TSOUSER'. * FILE 171 //* * FILE 171 //* If permitted to resource * FILE 171 //* If wait time exceeded * FILE 171 //* extend time 5 minutes * FILE 171 //* * FILE 171 //* If CPU time exceeded * FILE 171 //* cancel * FILE 171 //* * FILE 171 //* If not permitted to resource * FILE 171 //* cancel * FILE 171 //* * FILE 171 //***FILE 172 is from David Cartwright of Lynn, Lichfield in * FILE 172 //* England. This file contains a nice collection of * FILE 172 //* utilities and useful tools. * FILE 172 //* * FILE 172 //* (UPDATED Sep03 - Lichfield, ENGLAND) * FILE 172 //* * FILE 172 //* email addresses: * FILE 172 //* * FILE 172 //* home- dcuk@dcuk.demon.co.uk - defunct due to spam. * FILE 172 //* work- "Dave Cartwright" * FILE 172 //* * 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, Staffs. * 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 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@attglobal.net * FILE 176 //* 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 //* PDS was written in 1972 by Tom Springer at Fireman's * FILE 182 //* Fund. * 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 //* Computer Sciences Corporation * FILE 182 //* 1222 Spruce Street * FILE 182 //* Room 7.204 * FILE 182 //* St. Louis, Missouri 63103-2834 * FILE 182 //* * FILE 182 //* jkalinic@csc.com * FILE 182 //* 314-552-3232 * FILE 182 //* * FILE 182 //* Greg Price * FILE 182 //* Prycroft Six Pty. Ltd. * FILE 182 //* Melbourne, Australia * FILE 182 //* * FILE 182 //* service@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 support. * FILE 182 //* o SUPERC search-for support. * FILE 182 //* o DISASM support. * FILE 182 //* o DELINK support. * 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 support. * 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 ISPLLIB * FILE 182 //* 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, COMPARE*, DISASM, DELINKI, DSAT, DVOL, HEL, * FILE 182 //* OFFLOAD, 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. These were originally written for the vendor * FILE 182 //* product, Startool (see below). * 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 //* The free version of this package has been succeeded * FILE 182 //* by a vendor product called Startool. * FILE 182 //* * FILE 182 //* Startool is distributed by Serena International of * FILE 182 //* Burlingame, California. http://www.serena.com * FILE 182 //* * FILE 182 //* The vendor product extension of PDS, called * FILE 182 //* Startool, was developed by Bruce Leland and Steve * FILE 182 //* Smith. * FILE 182 //* * FILE 182 //* Startool has more than double the awesome capability * FILE 182 //* of free PDS, including Disassembler, Delinker, * FILE 182 //* automatic SMP/E MCS statement generation, extensive * FILE 182 //* VSAM support, VSAM editor, etc, etc. PDSE dataset * FILE 182 //* support, all at the traditional PDS super execution * FILE 182 //* speed, and with unbelievable ISPF support. * FILE 182 //* * FILE 182 //* - - - - - - - - - - - - - - - - - - - - - * 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 //* email: gsf@pobox.com * FILE 183 //* PHONE: 305-665-9084 * FILE 183 //* * FILE 183 //* --> LAST UPDATE: 10Jan06 (for CBT471) * FILE 183 //* * FILE 183 //* .--------------------------------. * FILE 183 //* | CBT Tape - File 183 Change Log | * FILE 183 //* '--------------------------------' * FILE 183 //* * FILE 183 //* CBT469 31 Aug 2005 * FILE 183 //* * FILE 183 //* BR R225 Remove support for MVS/XA, MVS/ESA and * FILE 183 //* ISPF V3 Support ALIAS Entries when calling * FILE 183 //* ISPF BROWSE Process a VRDS like an RRDS * FILE 183 //* Support extended-addressability VSAM data * FILE 183 //* sets Improve EOF detection for open data * FILE 183 //* sets * FILE 183 //* COMPRCMD R319 Data Set List * FILE 183 //* FASTPATH R139 Misc changes * FILE 183 //* R140 Support ALIAS Entries when calling BR * FILE 183 //* SCANMODL R100 Update Test Program * FILE 183 //* STRING R514 '&&'(1,1) at .LIT11C * FILE 183 //* SYSMOVE R405 Zero DS1REFD * FILE 183 //* SYSDEBUG R253 Fix bug - EXCP count for last DD was * FILE 183 //* always zero Display SYSOUT record in * FILE 183 //* JES2 buffer on z/OS 1.2 * FILE 183 //* TCTDCTR R108 Fix bug - EXCP count for last DD was * FILE 183 //* always zero * FILE 183 //* TMS R508 Blocked TMC * FILE 183 //* VALLOC R100 New EDIT macro * FILE 183 //* VML R105 Minor change * FILE 183 //* VSAMVIEW R103 Process a VRDS like an RRDS * FILE 183 //* XRENAME R100 New REXX exec to rename data sets * FILE 183 //* "en masse" * FILE 183 //* ZAPXMIT R101 Updated for HTE7708 offsets * FILE 183 //* * FILE 183 //* CBT465 31 Jan 2004 * FILE 183 //* * FILE 183 //* COMPRCMD R318 Force RECFM=FB,LRECL=80 in SYSIN DCB * FILE 183 //* (PDSMAN/PM74127) * FILE 183 //* COMPRESS R305 Check for recursive calls * FILE 183 //* EXECUTE R203 Add ISPF option * FILE 183 //* ISREDIT2 R100 New program * FILE 183 //* ROUTE R622 END stmt missing in line 306 * FILE 183 //* SHOWDASD R101 Trap invalid commands * FILE 183 //* SHOWDPNL R101 Change vertical spacing * FILE 183 //* SHOWVTOC R100 New ISPF panel for the ShowDASD Dialog * FILE 183 //* STRING R513 Local base not needed for * FILE 183 //* (GENERATE,,LOCTR) * FILE 183 //* SVCUPDTE R309 Wait for one second before final * FILE 183 //* FREEMAIN * FILE 183 //* SVC11Y2K R100 Source code no longer distributed * FILE 183 //* * FILE 183 //* CBT462 14 Sep 2003 * FILE 183 //* * FILE 183 //* DCODADDR R101 New Assembler Program * FILE 183 //* IGX00GSF R202 RC=40 when caller is in AMODE=64 * FILE 183 //* ROUTE R619 Line length may be longer than 255 * FILE 183 //* charcters * FILE 183 //* R620 Replace XEROX 3700 with HP LaserJet * FILE 183 //* R621 Display WSCON Panel when needed * FILE 183 //* ROUTEPGM R606 Line can be 512 bytes long * FILE 183 //* SFE R100 New REXX exec * FILE 183 //* STEMEDIT R111 Default LRECL=111 * FILE 183 //* STRING R511 Minor ACTR change * FILE 183 //* R512 Packed fields no longer ignored when * FILE 183 //* R0=0 * FILE 183 //* SWAREQ R200 New REXX exec * FILE 183 //* TLMS R202 Unblocked VMF in TLMS II 5.5 * FILE 183 //* VALLOC R100 New REXX exec * FILE 183 //* VSAMVIEW R102 Prevent S806-04 ISRCONFG MODULE NOT * FILE 183 //* FOUND * FILE 183 //* VSAVE R102 Add support for sequential data sets * FILE 183 //* WHOAMI R102 Get OS name and level from ECVT * FILE 183 //* XDEL R300 New REXX exec * FILE 183 //* XREN R200 New REXX exec * FILE 183 //* * FILE 183 //* CBT451 31 Aug 2002 * FILE 183 //* * FILE 183 //* BR R149 Use panel ISRBROBA on OS/390 R10 * FILE 183 //* FASTPATH R138 Invoke VIIF instead of EDIF on OS/390 * FILE 183 //* R10 (FSPASTE) * FILE 183 //* Strip off ALIAS--- in LISTCAT function * FILE 183 //* Expand WSA address to 64 characters * FILE 183 //* IGX00GSF R201 CDATTR,CDREN * FILE 183 //* LCAT R101 Prevent S0B0 in sub-task after * FILE 183 //* link-list switch * FILE 183 //* LCAT92 R100 1992 version of LCAT for OS/390 R2 and * FILE 183 //* older * FILE 183 //* SHOWDASD R100 New REXX exec. * FILE 183 //* SHOWDPNL R100 ISPF panel for ShowDASD exec. * FILE 183 //* SHOWMACS R626 Source code replaced with link to CBT * FILE 183 //* File 492 * FILE 183 //* STRING R510 Minor changes * FILE 183 //* SYSDEBUG R250 ENQ and HH.MM.SS * FILE 183 //* R251 4-digit DEVN * FILE 183 //* STEMEDIT R110 New version of STEMVIEW for ISPF V5 * FILE 183 //* only * FILE 183 //* TALLY R101 Minor change for ISPF 5.0 * FILE 183 //* VSAMVIEW R101 Use the VIEW Interface (VIIF) on ISPF * FILE 183 //* V5 * FILE 183 //* VSAMVW95 R100 1995 version of VSAMVIEW for ISPF V2, * FILE 183 //* V3 and V4 * FILE 183 //* ZAPXMIT R100 New Patch - Remove BLKSIZE(3120) in * FILE 183 //* XMIT OUTDA() cmd * FILE 183 //* * FILE 183 //* .--------------------------------. * FILE 183 //* | CBT TAPE - Index of file 183 | * FILE 183 //* '--------------------------------' * FILE 183 //* * FILE 183 //* ----------------- TSO and ISPF commands ------------------- * FILE 183 //* * FILE 183 //* BR TSO command - Browse most data sets under * FILE 183 //* ISPF/PDF, using BRIF. Supports VSAM, BDAM, * FILE 183 //* multi-volume, RECFM=VBS, BLKSIZE=0, etc. * FILE 183 //* * FILE 183 //* To use it, just enter BR instead of B on the * FILE 183 //* Data Set List utility screen. BR has its own * FILE 183 //* point-and-shoot capability and can grab a dsname * FILE 183 //* on the screen, wherever the cursor is located. * FILE 183 //* * FILE 183 //* CLS A 5-line "clear screen" command for TSO * FILE 183 //* * FILE 183 //* COMPRCMD TSO Command Processor written in Assembler * FILE 183 //* * FILE 183 //* Compress a PDS with DISP=SHR using standard ISPF * FILE 183 //* and LINK-EDIT protection. Uses the TSO/E service * FILE 183 //* routine to invoke IEBCOPY and, therefore, does not * FILE 183 //* require any authorization of its own. Accepts * FILE 183 //* generic dsnames (such as GILBERT.*) and offers a * FILE 183 //* few other options. * FILE 183 //* * FILE 183 //* COMPRESS The COMPRESS EDIT macro (written in REXX) that * FILE 183 //* allows you to compress the PDS you're editing * FILE 183 //* just by typing "COMPRESS" on the command line. * FILE 183 //* * FILE 183 //* CONCAT A REXX exec to add a data set to a concatenation. * FILE 183 //* * FILE 183 //* CUT REXX EDIT Macro - CUT & PASTE package * FILE 183 //* PASTE REXX EDIT Macro - CUT & PASTE package * FILE 183 //* CUTPGM Assembler program used in CUT & PASTE. * FILE 183 //* CUTHLP1 Help screen for CUT * FILE 183 //* CUTHLP2 Help screen for PASTE * FILE 183 //* * FILE 183 //* My own version of a classic. Requires * FILE 183 //* MVS/ESA 4.2.2 or above. Uses data spaces, * FILE 183 //* name/token pairs and compression. Supports * FILE 183 //* multiple clip-boards and the APPEND option. * FILE 183 //* * FILE 183 //* DSLIST REXX exec - Point-and-shoot Dataset List Utility * FILE 183 //* * FILE 183 //* This REXX program allows you to invoke the data * FILE 183 //* set list function of ISPF/PDF (option 3.4) with * FILE 183 //* the DSNAME LEVEL field preset to the data set name * FILE 183 //* under which the cursor is currently positionned. * FILE 183 //* * FILE 183 //* DSLIST may be invoked from any ISPF screen simply * FILE 183 //* by typing: * FILE 183 //* * FILE 183 //* TSO %DSLIST * FILE 183 //* * FILE 183 //* on the command line, then by moving the cursor * FILE 183 //* under a data set name on your screen and pressing * FILE 183 //* "enter". You may also define it as a command in * FILE 183 //* the ISPF command table, or set it up as a PFK. * FILE 183 //* * FILE 183 //* DSNLIST TSO command - returns in &var the dsnames * FILE 183 //* allocated to &ddn * FILE 183 //* Example: * FILE 183 //* * FILE 183 //* ALLOC DD(SYSPROC) SHR - * FILE 183 //* DS('IPO1.CMDPROC' 'GILBERT.CLIST') * FILE 183 //* DSNLIST DDNAME(SYSPROC) SETVAR(VAR2) * FILE 183 //* * FILE 183 //* is equivalent to: * FILE 183 //* * FILE 183 //* SET VAR2 = 'IPO1.CMDPROC' 'GILBERT.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 //* * FILE 183 //* 1. Initialization * FILE 183 //* a. add 20 fast-path commands to the user's * FILE 183 //* in-storage copy of ISPCMDS * FILE 183 //* b. pre-load specific modules to enhance * FILE 183 //* performance and allow access from a private * FILE 183 //* LOAD library * FILE 183 //* c. issue STIMER to prevent S522 time-out abends * FILE 183 //* 2. Processing * FILE 183 //* a. invoke EDIT, BROWSE, VIEW, WorkPlace and SDSF * FILE 183 //* with the appropriate NEWAPPL parameter * FILE 183 //* b. store and retrieve parameters associated * FILE 183 //* with user-specified tags * FILE 183 //* c. retrieve a dsname under which the cursor * FILE 183 //* is positionned and invoke EDIT, BROWSE, * FILE 183 //* VIEW or the Workplace * FILE 183 //* d. Edit your ISPCTLn or SPFTEMPn.CNTL data set * FILE 183 //* e. View a member in SYS1.MACLIB or SYS1.MODGEN * FILE 183 //* f. TSO Full-screen * FILE 183 //* g. misc others * FILE 183 //* * FILE 183 //* FASTPDOC Documentation for the FASTPATH utility * FILE 183 //* * FILE 183 //* 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 //* LCAT TSO command - Full-screen IDCAMS LISTCAT * FILE 183 //* * FILE 183 //* This TSO/ISPF command invokes IDCAMS then * FILE 183 //* uses BRIF to display the output. * FILE 183 //* * FILE 183 //* To use it, just enter LCAT (or LC) as a line * FILE 183 //* command on the Data Set List Utility screen. * FILE 183 //* * FILE 183 //* 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 //* * FILE 183 //* LPA24 REXX EXEC - Display PLPA usage below the 16MB line * FILE 183 //* * FILE 183 //* LPR REXX EDIT Macro - Print the data being edited * FILE 183 //* using TCP/IP's LPR command * FILE 183 //* * FILE 183 //* NEWAPPL REXX EXEC - Start a new ISPF application using * FILE 183 //* LIBDEF and ALTLIB. * FILE 183 //* * FILE 183 //* OBEYFILE EDIT Macro written in REXX - Allows the TCP/IP * FILE 183 //* administrator to use the data being edited as * FILE 183 //* input to the TCP/IP OBEYFILE command without * FILE 183 //* having to SAVE it. * FILE 183 //* * FILE 183 //* RESET5 Initial EDIT macro that issues a "RESET" command * FILE 183 //* * FILE 183 //* Type "IMACRO !RESET" once, and you won't be * FILE 183 //* bothered by these annoying messages anymore. * FILE 183 //* * FILE 183 //* 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 //* SHOWDPNL Requires the RXSMS program. * FILE 183 //* SHOWVTOC Panel for option V * 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 //* 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 //* 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 //* 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 //* GSFLKED Front-end to the linkage editor to recover * FILE 183 //* from SD37 on SYSLMOD (must be authorized) * FILE 183 //* * FILE 183 //* This program may be invoked instead of the DFP * FILE 183 //* linkage editor. It calls the linkage editor and, * FILE 183 //* if an SD37 abend occurs, calls IEBCOPY to compress * FILE 183 //* the SYSLMOD PDS, then calls the linkage editor * FILE 183 //* again. * FILE 183 //* * FILE 183 //* Another feature of this program is to * FILE 183 //* conditionally append a PDS member to SYSLIN, if * FILE 183 //* that member exists. * FILE 183 //* * FILE 183 //* ISGECMON Assemble and Link Job for SYS1.SAMPLIB(ISGECMON) * FILE 183 //* * FILE 183 //* The ISGECMON program runs as a never ending task * FILE 183 //* that checks dataset contention at periodic * FILE 183 //* intervals and sends messages to TSO users asking * FILE 183 //* them to free datasets that are causing contention. * FILE 183 //* * FILE 183 //* IGX00GSF Authorization SVC routine for ShowMVS and STEPLIB * FILE 183 //* * FILE 183 //* This extended SVC routine (ESR) allows an * FILE 183 //* un-authorized program to switch to MODE=SUP. * FILE 183 //* Only programs that have been registered and * FILE 183 //* meet security requirements will successfully * FILE 183 //* be switched to MODE=SUP. * FILE 183 //* * FILE 183 //* JOBRLSE Release a job by number (must be authorized) * FILE 183 //* * FILE 183 //* This program 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 //* NOTCTLG3 Prolog step to prevent "NOT CATLG 2" and verify * FILE 183 //* VSAM data sets * FILE 183 //* * FILE 183 //* This program may be executed at the beginning * FILE 183 //* of a batch job. It scans the job's SWA to * FILE 183 //* locate JFCBs and does two things: * FILE 183 //* * FILE 183 //* 1. checks if any non-gdg data set with * FILE 183 //* DISP=(NEW,CATLG) is already cataloged. * FILE 183 //* If it finds at least one (i.e. a "NOT * FILE 183 //* CATLG 2" is about to occur), it issues a * FILE 183 //* message and abends the job * FILE 183 //* * FILE 183 //* 2. Checks if any VSAM data set has been left * FILE 183 //* in OPEN status by an abending job. Every * FILE 183 //* data set in this case is opened and closed. * FILE 183 //* The way this condition is detected is quite * FILE 183 //* interesting, look at the code. * FILE 183 //* * FILE 183 //* DONTFAIL Prevent job failure caused by uncataloged data * FILE 183 //* sets (ESA only, must be authorized) * FILE 183 //* * FILE 183 //* This program has been designed to prevent jobs * FILE 183 //* that accept multiple inputs from failing in the * FILE 183 //* middle of the night because of a "typo" in a data * FILE 183 //* set name. When DONTFAIL detects that an input * FILE 183 //* data set is not cataloged, it converts it to a * FILE 183 //* null data set and allows the job to run with * FILE 183 //* partial input. * FILE 183 //* * FILE 183 //* PACKOFF Unpack a file packed by ISPF/PDF or XEDIT * FILE 183 //* * FILE 183 //* This is a sample program that reads * FILE 183 //* fixed-length records and unpacks them. * FILE 183 //* * FILE 183 //* RECALL Batch program - Issues HRECALL commands for every * FILE 183 //* migrated data sets used in subsequent steps of the * FILE 183 //* JOB in which it is executed. Pre-staging data * FILE 183 //* sets in this manner reduces HSM tape mount * FILE 183 //* activity. * FILE 183 //* * FILE 183 //* SCANMODL This assembler module loads a control-block map * FILE 183 //* from SYS1.MIGLIB and returns the offset & length * FILE 183 //* of a field. It is used to write programs that * FILE 183 //* access JES2 control blocks without using HASPSRC * FILE 183 //* and consequently, are release-independent. * FILE 183 //* * FILE 183 //* SVCUPDTE Install a type-3 SVC routine (must be authorized) * FILE 183 //* * FILE 183 //* This program installs an SVC routine from PLPA, * FILE 183 //* MLPA, or from an authorized library. * FILE 183 //* The installation can be permanent or temporary. * FILE 183 //* If the installation is temporary, SVCUPDTE waits * FILE 183 //* until a STOP or CANCEL command is issued, then * FILE 183 //* restores the old SVC entry and terminates. * FILE 183 //* * FILE 183 //* PARM=(nnn,mmmmmmm,hhmm,userid) * FILE 183 //* * FILE 183 //* nnn is the SVC number you want to install; * FILE 183 //* you must specify a 3-digit number * FILE 183 //* * FILE 183 //* mmmmmmmm is the name of a load module (or alias) * FILE 183 //* that you want to install as SVC nnn; it MUST * FILE 183 //* come from an authorized library (STEPLIB or * FILE 183 //* link-list) * FILE 183 //* * FILE 183 //* hhmm is the optional automatic shut-down time, * FILE 183 //* in 24-hour clock format. When the specified * FILE 183 //* time is reached, SVCUPDTE automatically stops. * FILE 183 //* * FILE 183 //* userid is the optional userid that will be given * FILE 183 //* access to the new SVC. Jobs submitted by other * FILE 183 //* users will keep on using the old SVC. * FILE 183 //* * FILE 183 //* SYSMOVE Unload a PDS to a sequential data set in * FILE 183 //* IEHMOVE format. Compatible with SMS. * FILE 183 //* * FILE 183 //* UNITAFF Dynamically sets UNIT=AFF for input tape files * FILE 183 //* (must be authorized) * FILE 183 //* * FILE 183 //* This program was originally designed to reduce * FILE 183 //* the number of tape drives used by user-submitted * FILE 183 //* SAS steps. It scans the SWA for the next step * FILE 183 //* and changes some of the SIOT's fields to force * FILE 183 //* all input tape data sets to the same drive. * FILE 183 //* * FILE 183 //* It must be executed immediately before the * FILE 183 //* step to process (SAS, SORT, or any other * FILE 183 //* program that reads a variable number of tape * FILE 183 //* files, one at a time). * FILE 183 //* * FILE 183 //* Sample jcl: * FILE 183 //* * FILE 183 //* //UNITAFF EXEC PGM=UNITAFF * FILE 183 //* //STEPLIB DD 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 //* ISPCMDSJ Job - Update ISPCMDS in batch * FILE 183 //* * FILE 183 //* This is a TMP job that uses a CLIST and ISPF * FILE 183 //* table services to append a set of in-line * FILE 183 //* commands to the original ISPCMDS table. * FILE 183 //* * FILE 183 //* The resulting ISPCMDS table may be given any * FILE 183 //* name and go to any library you choose. * FILE 183 //* * FILE 183 //* SYSDEBUG General Purpose ESTAE Routine. Simplifies abend * FILE 183 //* resolution by formatting and writing out important * FILE 183 //* MVS control blocks in an easy-to-read fashion. * FILE 183 //* * FILE 183 //* TCTDCTR Sub-routine - Prints the EXCP count for each DD * FILE 183 //* in the job step * FILE 183 //* * FILE 183 //* May be invoked at the end of a program for * FILE 183 //* debugging or tuning purposes. * FILE 183 //* * FILE 183 //* TRIMMAC Job - Creates a reduced-size MACLIB that may be * FILE 183 //* used instead of the SYS1.MACLIB/SYS1.MODGEN * FILE 183 //* concatenation to improve the performance of the * FILE 183 //* assembler. * FILE 183 //* * FILE 183 //* The "TRIMMAC" library is built as follows: * FILE 183 //* * FILE 183 //* 1. selected macros are read from ddname "SYSLIB", * FILE 183 //* trimmed from PL/AS code and other comment * FILE 183 //* lines, then written to a temporary data set. * FILE 183 //* * FILE 183 //* 2. the SORT utility is invoked to sort the macros * FILE 183 //* in ascending sequence of their size. * FILE 183 //* * FILE 183 //* 3. the sorted macros are written to SYSPUNCH * FILE 183 //* as an IEBUPDTE sysin stream. * FILE 183 //* * FILE 183 //* 4. IEBUPDTE is executed in the last step to * FILE 183 //* load the macros into the "TRIMMAC" library, * FILE 183 //* the smallest macros being loaded first. * FILE 183 //* * FILE 183 //* You may customize the member list and the input * FILE 183 //* concatenation to add other macros and/or macro * FILE 183 //* libraries, as needed. * FILE 183 //* * FILE 183 //* Use the "TRIMMAC" library instead of the * FILE 183 //* MACLIB/AMODGEN concatenation to assemble a * FILE 183 //* program and compare the before/after values for * FILE 183 //* the elapsed time, excp count and I/O connect * FILE 183 //* time. Expect savings of 30 to 60 percent when * FILE 183 //* "TRIMMAC" is used. * FILE 183 //* * FILE 183 //* My "TRIMMAC" PDS is currently allocated as * FILE 183 //* follows: * FILE 183 //* * FILE 183 //* UNIT=3390,SPACE=(CYL,(9,,18)), * FILE 183 //* DCB=(RECFM=FB,LRECL=80,BLKSIZE=29720) * FILE 183 //* * FILE 183 //* ZAPONTR0 Patch job - Bypass STEPLIB for ILBOxxx routines * FILE 183 //* * FILE 183 //* This patch to ILBONTR0 eliminates * FILE 183 //* JOBLIB/STEPLIB directory searches for OS/VS * FILE 183 //* COBOL ILBOxxx modules when SYS1.VSCLLIB is in * FILE 183 //* the linklist. If you compile your COBOL * FILE 183 //* modules with 'resident' and have large JOBLIBs * FILE 183 //* or STEPLIBs, you want to try this. * FILE 183 //* * FILE 183 //* The job contains 2 different versions of the * FILE 183 //* patch in AMASPZAP format. Each version * FILE 183 //* corresponds to a different PTF level, use the * FILE 183 //* one that works for you. The patch is packaged * FILE 183 //* with its own validation program. * FILE 183 //* * FILE 183 //* 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 source code for a greatly expanded IKJTABLS * FILE 185 //* load module to authorize programs and commands under * FILE 185 //* TSO. When run in an APF authorized STEPLIB in a TSO * FILE 185 //* session, IKJTABLS will override IKJTSOxx from * FILE 185 //* PARMLIB and will also override the copy of IKJTABLS * FILE 185 //* that is in SYS1.LPALIB. Should be used with all its * FILE 185 //* aliases. Load module is included in this file, as * FILE 185 //* member LOADLIB, in TSO XMIT format. Just do a TSO * FILE 185 //* RECEIVE INDS(this.pds(LOADLIB)) to create the load * FILE 185 //* library on your system. * FILE 185 //* * FILE 185 //* If you want to authorize everything that everybody * FILE 185 //* else has, you have to copy (zap) all the names * FILE 185 //* from the 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. * FILE 185 //* * FILE 185 //* Please read members $EXPLAIN and $$NOTE1 carefully. * FILE 185 //* * FILE 185 //* The member LOADLIB of this pds contains a load * FILE 185 //* module for a greatly expanded IKJTABLS to authorize * FILE 185 //* programs and commands under TSO. This load module * FILE 185 //* was created from the ASMTABLE source code. For * FILE 185 //* TSO/E Release 2.n, and higher, this load module * FILE 185 //* (and its aliases) can be used as is. There is also * FILE 185 //* plenty of room to zap more names, in the IKJEFTE2, * FILE 185 //* IKJEFTE8, and IKJEFTAP tables. You may want to zap * FILE 185 //* it to authorize more of your favorite programs. * FILE 185 //* Put it in an APF authorized STEPLIB in your TSO * FILE 185 //* logon proc. Has to be SETCODE AC(1). * FILE 185 //* * FILE 185 //* Updated for z/OS Version 1.6. (CBT471) * FILE 185 //* Added more members, as per input from another site. * FILE 185 //* (2006/02/01) * 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 MR SHMUEL GOLOB. * FILE 189 //* IT CONTAINS A SMALL EXAMPLE OF THE OUTPUT PRODUCED * FILE 189 //* BY THE CODE IN FILE 188 OF THIS TAPE. THIS FILE * FILE 189 //* IS IN IEBCOPY FORMAT AND IS LRECL=133 BLKSIZE=15428 * FILE 189 //* RECFM=FBA * FILE 189 //* * FILE 189 //***FILE 190 IS THE VSMDUMP UTILITY FROM ROBERT STYMA OF AGCS * FILE 190 //* IN PHOENIX, ARIZONA. THIS UTILITY SHOWS WHO TOOK * FILE 190 //* POSSESSION OF VARIOUS PARTS OF CSA. THIS TOOL CAN * FILE 190 //* BE RUN EITHER AGAINST THE CURRENT ADDRESS SPACE, * FILE 190 //* OR UNDER IPCS AGAINST A DUMP. VERY USEFUL AND * FILE 190 //* CAN BE A LIFE SAVER. * FILE 190 //* * FILE 190 //* ROBERT E. STYMA * FILE 190 //* PRINCIPAL ENGINEER * FILE 190 //* AG COMMUNICATION SYSTEMS, PHOENIX - * FILE 190 //* A SUBSIDIARY OF LUCENT * FILE 190 //* EMAIL: STYMAR@AGCS.COM * FILE 190 //* PHONE: 623-582-7323 * FILE 190 //* FAX: 623-581-4884 * FILE 190 //* COMPANY: HTTP://WWW.AGCS.COM * FILE 190 //* * FILE 190 //***FILE 191 IS FROM WALT SAPP OF THE CALIFORNIA HEALTH AND * FILE 191 //* WELFARE DATA CENTER IN SACRAMENTO, CALIFORNIA. * FILE 191 //* THIS FILE CONTAINS CODE TO PUT ALL KINDS OF JOBCARD * FILE 191 //* INFORMATION INTO STARTED TASKS, UNDER JES2. ALLOWS * FILE 191 //* STARTED TASKS TO BE MONITORED BY ACCOUNTING SYSTEMS * FILE 191 //* SIMILARLY TO BATCH JOBS. * FILE 191 //* * FILE 191 //* STARTED TASK ACCOUNTING. * FILE 191 //* * FILE 191 //***FILE 192 IS CODE WHICH IS A GENERALIZED RECOVERY ROUTINE * FILE 192 //* FROM MITCHELL MARX AND PENELOPE DAVIS OF MD-PALADIN * FILE 192 //* INCORPORATED IN NEW YORK CITY. THIS IS MACHINE * FILE 192 //* READABLE CODE FROM A PRESENTATION GIVEN AT SHARE 79 * FILE 192 //* AND SHARE 80. THE CODE IN THIS ROUTINE CAN BE USED * FILE 192 //* AS EITHER AN ESTAEX ROUTINE, AN FRR (FUNCTIONAL * FILE 192 //* RECOVERY ROUTINE) OR AN ARR (ASSOCIATED RECOVERY * FILE 192 //* ROUTINE IN ACCESS REGISTER MODE). * FILE 192 //* * FILE 192 //***FILE 193 is from Steinar Aasland, formerly of Kvaerner * FILE 193 //* Engineering in Lysaker, Norway, and contains a * FILE 193 //* tape copying program called TCOPY. This is an * FILE 193 //* old program. * FILE 193 //* * FILE 193 //* This program can list the contents of a tape, or * FILE 193 //* copy it to another tape. It has some features that * FILE 193 //* are not so often found in tape copy programs. * FILE 193 //* * FILE 193 //* Fixed to be able to copy 64K block size on a tape, * FILE 193 //* by Sam Golob. Also cleaned up some assembly errors * FILE 193 //* for ASMA90. The macro processor is now a little * FILE 193 //* less forgiving. Shorter strings now always compare * FILE 193 //* as less, so to be accurate, you have to pad them * FILE 193 //* to the same length. * FILE 193 //* * FILE 193 //* I have now placed the TCOPY load module on File 035. * FILE 193 //* * FILE 193 //* For help concerning this file, you may contact: * FILE 193 //* * FILE 193 //* Sam Golob * FILE 193 //* P.O. Box 906 * FILE 193 //* Tallman, NY 10982 USA * FILE 193 //* * FILE 193 //* email: sbgolob@attglobal.net and/or * FILE 193 //* 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 AFTON, VIRGINIA. * FILE 199 //* * FILE 199 //* Dave Cole has updated most of his contributions, and * FILE 199 //* they are available for direct download from his web * FILE 199 //* site at www.colesoft.com. The following list of * FILE 199 //* his software is currently available there: * FILE 199 //* * FILE 199 //* 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 //* 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 //* COLE SOFTWARE LLC * FILE 199 //* 736 Fox Hollow Road Afton, VA 22920 * FILE 199 //* 540-456-8210 540-456-6658: FAX * FILE 199 //* * FILE 199 //* E-MAIL : CSWstaff@cfw.com * FILE 199 //* INTERNET: http://www.colesoft.com * FILE 199 //* * FILE 199 //* COLE SOFTWARE WEB PAGE: HTTP://WWW.COLESOFT.COM * FILE 199 //* 736 FOX HOLLOW ROAD VOICE: 540-456-8536 * FILE 199 //* AFTON, VA 22920 FAX: 540-456-6658 * FILE 199 //* * FILE 199 //* THIS FILE CONTAINS SEVERAL TSO COMMAND PROCESSORS. * FILE 199 //* THEY ARE: * FILE 199 //* * FILE 199 //* THE BLKSPTRK COMMAND CAN BE USED TO DISPLAY TRACK * FILE 199 //* CAPACITIES FOR ANY DASD DEVICE FOR ANY COMBINATION OF * FILE 199 //* KEY LENGTHS, BLOCK SIZES, AND / OR BLOCK COUNTS. * FILE 199 //* * FILE 199 //* THE CMDPGM COMMAND PROVIDES AN EASY TO USE MEANS OF * FILE 199 //* INVOKING (FROM TSO) ARBITRARY TSO COMMANDS OR * FILE 199 //* "BATCH" PROGRAMS OUT OF ARBITRARY LIBRARIES IN EITHER A * FILE 199 //* NON-AUTHORIZED MODE OR AN AUTHORIZED MODE. * FILE 199 //* * FILE 199 //* ALL OF THE CMDPGM FUNCTIONS ARE CAPABLE OF ESTABLISHING * FILE 199 //* ANY DESIRED LOAD LIBRARY AS A "TASK-LIBRARY" DURING * FILE 199 //* THE EXECUTION OF YOUR CHOSEN COMMAND OR PROGRAM. * FILE 199 //* TASK-LIBRARIES FUNCTION EXACTLY LIKE JOB-LIBRARIES OR * FILE 199 //* STEP-LIBRARIES, SO THIS CAPABILITY RELIEVES THE NEED * FILE 199 //* OF A "STEPLIB" MOD FOR TSO. * FILE 199 //* * FILE 199 //* DAVE COLE'S PROGRAMS REQUIRE DAVE COLE'S MACROS FOR * FILE 199 //* ASSEMBLY, WHICH MAY BE FOUND ON FILE 408. * FILE 199 //* * FILE 199 //* 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 //* OS/390 Rel 2.6. OLD VERSION STILL INCLUDED.) * FILE 200 //* * FILE 200 //* This version needs Y2D sort parameter to be * FILE 200 //* supported. * FILE 200 //* * FILE 200 //* WHEREUSD THIS PROGRAM ANALYZES A PDS AND LISTS ALL MEMBERS * FILE 200 //* WHICH CONTAIN A REFERENCE TO A GIVEN EXTERNAL * FILE 200 //* SYMBOL. * FILE 200 //* * FILE 200 //* Updated for Y2K - Format dates in header of the * FILE 200 //* report. * FILE 200 //* * FILE 200 //* COMPARE THIS PROGRAM ANALYZES GIVEN MEMBERS WHICH EXIST IN * FILE 200 //* A PAIR OF PDS'S. THE MEMBERS ARE CHECKED FOR * FILE 200 //* DIFFERENCES AND FOR ADHERENCE TO INSTALLATION * FILE 200 //* STANDARDS AS A PRE-IMPLEMENTATION Q/C MEASURE. * FILE 200 //* * FILE 200 //* COBREAD THIS PROGRAM ANALYZES A PDS AND LISTS ALL MEMBERS * FILE 200 //* ALONG WITH THE COBOL ATTRIBUTES ASSOCIATED WITH * FILE 200 //* THE MAIN CSECT WITHIN THE MODULE. SUCH ITEMS AS * FILE 200 //* COBOL / STATE / / FLOW / / OPTIMIZATION / /TEST/, * FILE 200 //* / ENDJOB /, AND / DYNAM / ARE LISTED. * FILE 200 //* THE ABILITY TO SELECTIVELY ANALYZE A SINGLE * FILE 200 //* MEMBER IS ALSO SUPPORTED. * FILE 200 //* * FILE 200 //* I would suggest running COBANAL from File 321. * FILE 200 //* That's a more modern program, which does the job * FILE 200 //* better. (SBG 03/00) * FILE 200 //* * FILE 200 //* This program must be linkedited AMODE 31 or ANY. * FILE 200 //* * FILE 200 //* XREF1 THIS PROGRAM SCANS A PDS AND PRODUCES INTERMEDIATE * FILE 200 //* RECORDS TO ALLOW XREF2 TO CREATE A GLOBAL CROSS- * FILE 200 //* REFERENCE OF EXTERNAL SYMBOLS IN THE PDS. THIS * FILE 200 //* REPORT PROVIDES INFORMATION OF THE FORM: CSECT IS * FILE 200 //* CONTAINED IN THE FOLLOWING LOAD MODULES ... * FILE 200 //* * FILE 200 //* XREF2 THIS IS THE REPORT PROGRAM TO PROCESS THE OUTPUT * FILE 200 //* OF XREF1. IT MAY HAVE MULTIPLE XREF1 FILES AS * FILE 200 //* INPUT. ALL INPUTS WILL BE MERGED WITHIN THE * FILE 200 //* REPORT GENERATION PROCESS. * FILE 200 //* * FILE 200 //***FILE 201 IS FROM BRUCE HULL OF BOEING COMPUTER SERVICES IN * FILE 201 //* VIENNA, VIRGINIA, AND IS A CLIST USER EXIT IKJCT44B. * FILE 201 //* THE PURPOSE OF THIS PARTICULAR EXIT IS TO EXTRACT * FILE 201 //* OPERATING SYSTEM INFORMATION, SUCH AS LAST IPL DATE, * FILE 201 //* AND PUT THESE THINGS INTO CLIST VARIABLES SO THEY * FILE 201 //* CAN BE EASILY ACCESSED UNDER TSO. * FILE 201 //* * FILE 201 //* THIS PACKAGE ADDS CLIST VARIABLES THAT CONTAIN SYSTEM * FILE 201 //* INFORMATION. ONCE THESE VARIABLES HAVE BEEN ADDED TO * FILE 201 //* YOUR SYSTEM, YOU CAN INQUIRE ON THEM WITH CLISTS AND * FILE 201 //* UTILIZE OR DISPLAY THE SYSTEM INFORMATION. * FILE 201 //* * FILE 201 //* FROM: BRUCE HULL M/S CV-34 * FILE 201 //* BOEING COMPUTER SERVICES * FILE 201 //* 7990 BOEING CT. * FILE 201 //* VIENNA, VA 22182-3999 * FILE 201 //* (703) 847-1187 * FILE 201 //* NASPA: HULLBRUR * FILE 201 //* * FILE 201 //* SUBMISSION: MVS TSO/E MODULE IKJCT44B - TSO/E * FILE 201 //* INSTALLATION-WRITTEN BUILT-IN FUNCTION * FILE 201 //* * FILE 201 //* MODULE IKJCT44B PROVIDES THE FOLLOWING CLIST VARIABLES: * FILE 201 //* * FILE 201 //* &SYSXACCT CONTAINS THE ACCOUNT NUMBER USED TO * FILE 201 //* LOGON TO TSO. * FILE 201 //* &SYSXCPUH CONTAINS THE NUMBER OF CPU SECONDS * FILE 201 //* USED DURING SESSION IN FORM SECONDSHH. * FILE 201 //* &SYSXCPUTYPE CONTAINS THE MACHINE TYPE OF THE CPU * FILE 201 //* THIS TSO SESSION IS EXECUTING ON. * FILE 201 //* &SYSXDFP CONTAINS THE LEVEL OF THE DFP PRODUCT * FILE 201 //* INSTALLED ON THE SYSTEM IN FORM VRRM. * FILE 201 //* &SYSXIPLAT CONTAINS THE DATE AND TIME OF THE * FILE 201 //* LAST IPL OF THE OPERATING SYSTEM. * FILE 201 //* &SYSXLU CONTAINS THE LU NAME (TERMINAL ID) * FILE 201 //* OF THE TERMINAL BEING USED OR NULL. * FILE 201 //* &SYSXMVS CONTAINS THE NAME AND SMP FUNCTION ID * FILE 201 //* OF THE MVS OPERATING SYSTEM BEING * FILE 201 //* USED. * FILE 201 //* &SYSXRES CONTAINS THE VOLUME SERIAL NUMBER OF * FILE 201 //* THE SYSTEM RESIDENCE VOLUME (SYSRES). * FILE 201 //* &SYSXSERIAL CONTAINS THE MACHINE SERIAL NUMBER OF * FILE 201 //* THE CPU THIS TSO SESSION IS EXECUTING * FILE 201 //* ON. * FILE 201 //* &SYSXSMFID CONTAINS THE SMF ID OF THE MVS * FILE 201 //* OPERATING SYSTEM THIS TSO SESSION * FILE 201 //* EXECUTING ON. * FILE 201 //* * FILE 201 //* MEMBERS OF THE PDS: * FILE 201 //* * FILE 201 //* ASM JCL USED TO ASSEMBLE THE OBJECT DECK * FILE 201 //* OBJCT44B. * FILE 201 //* IKJCT44B ASM DECK OF IKJCT44B. * FILE 201 //* OBJCT44B OBJECT DECK OF IKJCT44B. * FILE 201 //* SESSION A CLIST USED TO DEMONSTRATE USE OF THE NEW * FILE 201 //* VARIABLES. * FILE 201 //* SYSTEM A CLIST USED TO DEMONSTRATE USE OF THE NEW * FILE 201 //* VARIABLES. * FILE 201 //* TS40084 A SMP/E USERMOD USED TO APPLY MOD IKJCT44B. * FILE 201 //* VARIABLE A SHORT DESCRIPTION OF ALL CLIST VARIABLES. * FILE 201 //* CAN BE USED FOR TSO HELP WITH THE HEL * FILE 201 //* COMMAND FROM FILE 134. * FILE 201 //* * FILE 201 //***FILE 202 IS FROM MR GREG PRICE OF FERNTREE COMPUTER SERVICES * FILE 202 //* IN MELBOURNE, VICTORIA, AUSTRALIA. * FILE 202 //* * FILE 202 //* THIS FILE IS IN IEBCOPY FORMAT AND CONTAINS DATA * FILE 202 //* RELATED TO GREG'S IEFU83 EXIT WHICH SUPPLIES I/O * FILE 202 //* COUNTS. SOURCE FOR THIS EXIT IS IN FILE 134. * FILE 202 //* * FILE 202 //***FILE 203 IS FROM JIM MARSHALL. 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@attglobal.net or 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@attglobal.net * FILE 204 //* 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 IS IN IEBUPDTE SYSIN FORMAT * FILE 207 //* AND CONTAINS THE SOURCE MODULES AND DOCUMENTATION * FILE 207 //* FOR THEIR 3270 FULL SCREEN EDITOR, WHICH IS ALSO AN * FILE 207 //* INCORE EDITOR. THIS IS A TSO FULL SCREEN EDITOR TO * FILE 207 //* BE USED SOLELY FOR REMOTE AND LOCAL 3270 UNITS. IT * FILE 207 //* ALLOWS THE SIMULTANEOUS UPDATE AND BROWSE OF UP TO * FILE 207 //* 21 LINES OF A DATA SET, AND THE EXECUTION OF AN * FILE 207 //* FSE/TSO COMMAND AT THE SAME TIME. * FILE 207 //* * FILE 207 //***FILE 208 IS THE LSPC TSO COMMAND PROCESSOR FROM ART TANSKY * FILE 208 //* OF SUNGARD IN VOORHEES, NEW JERSEY. THIS COMMAND * FILE 208 //* IS AN OUTGROWTH OF THE TSSPACE COMMAND FROM FILE * FILE 208 //* 127. * FILE 208 //* * FILE 208 //* LSPC IS A TSO COMMAND HIGHLY MODIFIED FROM ITS ORIGINS * FILE 208 //* IN TSSPACE (FROM FILE 127 OF THE CBT TAPE). THE LSPC * FILE 208 //* COMMAND DISPLAYS ATTRIBUTES OF DEVICES. IF THE DEVICE * FILE 208 //* IS DIRECT ACCESS (DASD), SPACE INFORMATION AND MOUNT * FILE 208 //* STATUS (PRIVATE, STORAGE, OR PUBLIC) WILL BE DISPLAYED. * FILE 208 //* SPACE WILL BE DISPLAYED IN FORMAT OF FREE CYLS, FREE * FILE 208 //* TRKS, NUMBER OF FREE EXTENTS, CONTIGUOUS CYLS AND * FILE 208 //* CONTIGUOUS TRKS. * FILE 208 //* * FILE 208 //* FULL INFORMATION AS TO OPTIONS, AND THE MEANINGS OF * FILE 208 //* THE FLAGS (I RAN OUT OF ROOM ON THE OUTPUT LINE) IS * FILE 208 //* IN THE HELP MEMBER (LSPCHELP). * FILE 208 //* * FILE 208 //* IF ANYONE HAS ANY UPDATES TO BE MADE TO THIS * FILE 208 //* CODE, PLEASE SEND SUCH TO ME RATHER THAN HAVING * FILE 208 //* SEVERAL VERSIONS OF THIS PROGRAM RUNNING AROUND. * FILE 208 //* * FILE 208 //* STANDARD DISCLAIMER: * FILE 208 //* * FILE 208 //* THIS CODE HAS WORKED AT SUNGARD. THERE IS NO * FILE 208 //* GUARANTEE THAT THE CODE WILL WORK ANYWHERE ELSE. * FILE 208 //* NEITHER SUNGARD NOR THE AUTHOR MAY BE HELD REPONSIBLE * FILE 208 //* FOR ANY DAMAGE CAUSED BY THIS CODE. * FILE 208 //* * FILE 208 //* ADDRESS: * FILE 208 //* * FILE 208 //* ART TANSKY * FILE 208 //* SUNGARD * FILE 208 //* 600 LAUREL OAK ROAD * FILE 208 //* VOORHEES, NJ 08043 * FILE 208 //* (609) 566-3611 * FILE 208 //* (609) 566-3656 (FAX) * FILE 208 //* * FILE 208 //***FILE 209 IS A HEXADECIMAL AND DECIMAL CALCULATOR WRITTEN IN * FILE 209 //* REXX, FROM ART TANSKY OF SUNGARD IN VOORHEES, NEW * FILE 209 //* JERSEY. THE CODE, AS IS, SHOULD RUN UNDER MVS, VM, * FILE 209 //* PC-DOS, AND OS2. ONCE YOU START EXECUTING THIS * FILE 209 //* PROGRAM, TYPE "HELP", AND THEN "HELP FUNCTION", * FILE 209 //* TO GET STARTED. * FILE 209 //* * FILE 209 //* THIS PROGRAM HAS QUITE A FEW "INS AND OUTS" THAT * FILE 209 //* YOU MAY DISCOVER AS YOU USE IT A LOT, OR AS YOU * FILE 209 //* LOOK IN THE CODE. QUITE HANDY TO HAVE AND USE. * FILE 209 //* * FILE 209 //* THIS PROGRAM USES FLOATING POINT CALCULATIONS. * FILE 209 //* * FILE 209 //***FILE 210 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@attglobal.net * FILE 215 //* 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 //* >>>>> SEE FILE 221 FOR THE REXX EXECS IN THIS COLLECTION. * FILE 220 //* * FILE 220 //* THIS COLLECTION WAS TESTED AT THE MVS/XA 2.2.3 * FILE 220 //* LEVEL. BUT I'VE TRIED A LOT OF IT AT MVS/ESA 4.3 * FILE 220 //* AND MUCH OF IT STILL WORKS THERE. SOME OF THE * FILE 220 //* PARTS NEED MODIFICATION FOR MVS/ESA IN ITS HIGHER * FILE 220 //* VERSIONS. (S.G.) * FILE 220 //* * FILE 220 //* I'D ALSO SUGGEST LOOKING AT THE "SHOWMVS" TSO * FILE 220 //* COMMAND ON FILE 183 OF THIS TAPE, TO SUPPLY SOME * FILE 220 //* MORE OF THIS KIND OF INFORMATION. (S.G.) * FILE 220 //* * FILE 220 //* * FILE 220 //* INTRODUCTION TO THE AUDITMVS STARTER KIT * FILE 220 //* ---------------------------------------- * FILE 220 //* * FILE 220 //* THIS FILE CONTAINS THE AUDITMVS STARTER KIT SOFTWARE. * FILE 220 //* THE KIT CONSISTS OF UTILITY SOFTWARE TO COLLECT AND * FILE 220 //* ANALYZE DATA FROM AN OPERATIONAL MVS SYSTEM. IT WILL * FILE 220 //* GREATLY ASSIST IN DOCUMENTING THE AUTHORIZED PROGRAM * FILE 220 //* FACILITY (APF) ENVIRONMENT, INCLUDING ALL APF LIBRARIES, * FILE 220 //* SUPERVISOR CALL (SVC) ROUTINES, EXTENDED SVC ROUTER (ESR) * FILE 220 //* ROUTINES, PROGRAM CALL (PC) ROUTINES, AND LINK PACK AREA * FILE 220 //* (LPA) PROGRAMS (I.E., PAGEABLE, MODIFIED, FIXED LPA; AND * FILE 220 //* OTHER ITEMS ALONG THE LPA QUEUE). * FILE 220 //* * FILE 220 //* THE SOFTWARE CONSISTS MOSTLY OF REXX AND SAS PROGRAMS. * FILE 220 //* IN ADDITION, THERE ARE SEVERAL ASSEMBLY LANGUAGE PROGRAMS * FILE 220 //* TO DISASSEMBLE MVS SOFTWARE FROM OBJECT CODE BACK TO * FILE 220 //* ASSEMBLY LANGUAGE. THERE IS ALSO AN ASSEMBLY LANGUAGE * FILE 220 //* PROGRAM THAT USES THE SNAP MACRO TO RETRIEVE THE PROGRAM * FILE 220 //* CALL TABLE FROM THE PCAUTH ADDRESS SPACE. * FILE 220 //* * FILE 220 //* THE CONTENTS OF THIS DISKETTE SHOULD BE UPLOADED TO THE * FILE 220 //* MVS SYSTEM THAT IS TO BE AUDITED. ALL OF THE FILES, * FILE 220 //* EXCEPT THE REXX PROGRAMS, MAY BE PLACED INTO INDIVIDUAL * FILE 220 //* MEMBERS OF A STANDARD FB 80 PARTITIONED DATA SET (PDS). * FILE 220 //* THE REXX PROGRAMS SOMETIMES EXCEED LINE LENGTHS BEYOND 72 * FILE 220 //* CHARACTERS--THEREFORE, A VB 255 PDS IS RECOMMENDED. BOTH * FILE 220 //* FB 80 AND VB 255 FORMATS ARE SUPPORTED BY THE ISPF/PDF * FILE 220 //* EDITOR. TO SUMMARIZE, THE FOLLOWING * FILE 220 //* DISKETTE-DIRECTORY-TO-MVS-PDS UPLOAD STRUCTURE IS * FILE 220 //* SUGGESTED: * FILE 220 //* * FILE 220 //* FILE MEMBER MVS PDS AND DCB INFO * FILE 220 //* ------------------ -------------------------------- * FILE 220 //* * FILE 220 //* ADVCAATS USERID.DISASM.CNTL FB 80 * FILE 220 //* MISC USERID.CNTL FB 80 * FILE 220 //* REXX (FILE 221) USERID.EXEC VB 255 * FILE 220 //* SAS USERID.SAS.CNTL FB 80 * FILE 220 //* * FILE 220 //* SOME OF THE STARTER KIT PROGRAMS ALSO REQUIRE A NUMBER OF * FILE 220 //* MVS SUPPORT FILES. FOR EXAMPLE, THE IO* REXX PROGRAMS * FILE 220 //* ARE DATA COLLECTORS WHICH WRITE TO VARIOUS VB 255 * FILE 220 //* PHYSICAL SEQUENTIAL DATA SETS. THESE DATA SETS ARE THEN * FILE 220 //* READ BY THE SAS PROGRAMS FOR ANALYSIS AND REPORTING. YOU * FILE 220 //* WILL HAVE TO ALLOCATE AND NAME THESE TO YOUR OWN * FILE 220 //* PREFERENCE, AND EDIT THE REXX AND SAS PROGRAMS * FILE 220 //* ACCORDINGLY. THERE IS ONE SUPPORT DATA SET THAT MUST BE * FILE 220 //* FORMATTED SPECIFICALLY TO SUPPORT THE OUTPUT OF THE SNAP * FILE 220 //* MACRO. SEE THE ASSEMBLY LANGUAGE PROGRAM (SNAPPC.ASM IN * FILE 220 //* THE MISC DIRECTORY) FOR THESE SPECIFIC DCB PARAMETERS. * FILE 220 //* * FILE 220 //* ADVCAATS * FILE 220 //* -------- * FILE 220 //* * FILE 220 //* THIS LIBRARY CONTAINS SOURCE CODE FOR A OLD, OLD (BUT * FILE 220 //* VERY USEFUL) PUBLIC DOMAIN DISASSEMBLER. THE * FILE 220 //* DISASSEMBLER HAS BEEN EXTENDED TO PERFORM IN-STORAGE * FILE 220 //* DISASSEMBLY IF THE CODE RESIDES BELOW THE 16 MB LINE. * FILE 220 //* SEE THE FILE $$README FOR MORE INFORMATION. * FILE 220 //* * FILE 220 //* MISC * FILE 220 //* ---- * FILE 220 //* * FILE 220 //* THIS LIBRARY CONTAINS SEVERAL *.JCL FILES. ALLOCGDG.JCL * FILE 220 //* SHOWS HOW TO DEFINE A GENERATION DATA GROUP (GDG) SHOULD * FILE 220 //* YOU WANT TO BUILD A SYSTEM OF AUDIT JOBS THAT MAINTAIN * FILE 220 //* SNAPSHOT CYCLES OF DATA SETS FOR YOUR MVS SYSTEM. * FILE 220 //* IKJEFT01.JCL SHOWS HOW TO RUN YOUR REXX PROGRAMS IN * FILE 220 //* "BATCH MODE" TSO. OTHER JCL FILES PROVIDE EXAMPLES OF * FILE 220 //* LENGTHY JOB STREAMS FOR MULTIPLE AUDIT STEPS. THIS * FILE 220 //* LIBRARY ALSO CONTAINS THE SNAPPC.ASM FILE FOR OBTAINING * FILE 220 //* YOUR MVS SYSTEMS PC TABLE. * FILE 220 //* * FILE 220 //* REXX (FOUND IN FILE 221) * FILE 220 //* ---- * FILE 220 //* * FILE 220 //* THIS LIBRARY CONTAINS A WIDE VARIETY OF REXX PROGRAMS * FILE 220 //* THAT COLLECT DATA FROM AN OPERATIONAL MVS SYSTEM. ALL * FILE 220 //* ARE STAND ALONE PROGRAMS EXCEPT FOR #NUCLKUP, WHICH IS AN * FILE 220 //* EXTERNAL REXX CALLABLE PROCEDURE THAT SEACHES THE NUCLEUS * FILE 220 //* MAP FOR AN ENTRY NAME AND RETURNS ITS ENTRY POINT * FILE 220 //* ADDRESS. #NUCLKUP IS CURRENTLY CALLED BY IOSVCT, IOESRT, * FILE 220 //* LISTSVCT, AND LISTESRT. SDUMP IS A GENERAL PURPOSE * FILE 220 //* FORMATTED DISPLAY STORAGE DUMP PROGRAM. THE VSDATA1 * FILE 220 //* PROGRAM IS A MODIFIED VERSION OF SDUMP WHICH DISPLAYS * FILE 220 //* SEVERAL IN-STORAGE CONTROL BLOCKS. * FILE 220 //* * FILE 220 //* THE IO* SERIES OF PROGRAMS COLLECT DATA AND WRITE TO * FILE 220 //* "WORK.DATA" DATA SETS. THE LIST* SERIES OF PROGRAMS CAN * FILE 220 //* ALL BE EXECUTED INTERACTIVELY TO DISPLAY MVS INTERNALS * FILE 220 //* DATA TO YOUR TERMINAL SCREEN. ACRONYMS USED WITHIN THE * FILE 220 //* NAMING SCHEME FOR THESE PROGRAMS ARE: * FILE 220 //* * FILE 220 //* ADSP ADDRESS SPACE * FILE 220 //* APFP APF LIBRARIES PROGRAMS * FILE 220 //* APFT APF TABLE * FILE 220 //* CATS CATALOGS * FILE 220 //* CONS CONSOLES * FILE 220 //* DASD DIRECT ACCESS STORAGE DEVICES LIST * FILE 220 //* DCQ DEVICE CLASS QUEUE * FILE 220 //* ENV ENVIRONMENTAL INFORMATION * FILE 220 //* ESRT ESR TABLE * FILE 220 //* LLT LINKLIST LIBRARIES TABLE * FILE 220 //* LLTP LLT LIBRARIES PROGRAMS * FILE 220 //* LPAQ LPA QUEUE * FILE 220 //* LPAT LPA LIBRARIES TABLE * FILE 220 //* NUCM NUCLEUS MAP * FILE 220 //* PART PAGING ACTIVITY REFERENCE TABLE * FILE 220 //* PDSD PDS DIRECTORY * FILE 220 //* PDSM PDS MEMBERS * FILE 220 //* PCAUTH PROGRAM CALL AUTHORIZATION TABLE * FILE 220 //* PLPA PAGEABLE LPA PROGRAMS * FILE 220 //* SART SWAPPING ACTIVITY REFERENCE TABLE * FILE 220 //* SFT SYSTEM FUNCTION TABLE * FILE 220 //* SMAP STORAGE MAP INFORMATION * FILE 220 //* SMF SYSTEM MANAGEMENT FACILITY INFORMATION * FILE 220 //* SSN SUBSYSTEM NAME TABLE * FILE 220 //* SVCJ SVC JOURNAL TABLE * FILE 220 //* SVCT SVC TABLE * FILE 220 //* TAPE TAPE DEVICES LIST * FILE 220 //* VMAP VIRTUAL STORAGE MAP * FILE 220 //* * FILE 220 //* THE NOT@OR FILE IS A READY REFERENCE OF THE EBCDIC HEX * FILE 220 //* CODES FOR THE "AND" AND "OR" CHARACTERS. THESE TWO * FILE 220 //* CHARACTERS ARE HARD TO REMEMBER WHEN ONE USES SEVERAL * FILE 220 //* DIFFERENT MICROCOMPUTER KEYBOARD MAPS ASSOCIATED WITH * FILE 220 //* VARIOUS 3270 EMULATION SOFTWARE PACKAGES. * FILE 220 //* * FILE 220 //* SAS * FILE 220 //* --- * FILE 220 //* * FILE 220 //* THIS LIBRARY CONTAINS SAS PROGRAMS WHICH REPORT FROM THE * FILE 220 //* VARIOUS FILES CREATED BY THE IO* SERIES OF REXX PROGRAMS. * FILE 220 //* THE APFPDUP, LLTPDUP, LPAPDUP, ESRMATCH, PCMATCH, AND * FILE 220 //* SVCMATCH PROGRAMS DEMONSTRATE THE POWER OF THE SAS MERGE * FILE 220 //* FUNCTION. * FILE 220 //* * FILE 220 //* * FILE 220 //* LEE CONYERS * FILE 220 //* U.S. DEPARTMENT OF TRANSPORTATION * FILE 220 //* 700 4TH STREET SW * FILE 220 //* ROOM 7404, M-35 * FILE 220 //* WASHINGTON, DC 20590 * FILE 220 //* (202) 366-1126 * FILE 220 //* -- VLC (3/27/94) * FILE 220 //* * FILE 220 //***FILE 221 IS FROM LEE CONYERS OF THE U.S. DEPARTMENT OF * FILE 221 //* TRANSPORTATION IN WASHINGTON, D.C. SEE FILE 220 * FILE 221 //* FOR A DESCRIPTION OF THIS ENTIRE COLLECTION OF * FILE 221 //* E.D.P. AUDITING TOOLS. THIS FILE CONTAINS THE * FILE 221 //* REXX EXECS FROM THE COLLECTION, THAT HAVE BEEN * FILE 221 //* SEPARATED OUT BECAUSE OF THEIR DCB FORMAT, WHICH * FILE 221 //* IS VB WITH LRECL(255). THIS FILE IS IN IEBCOPY * FILE 221 //* FORMAT. * FILE 221 //* * FILE 221 //***FILE 222 IS CURRENTLY EMPTY * FILE 222 //* * FILE 222 //***FILE 223 IS THE FREE TAPE MANAGEMENT SYSTEM (FTMS) WHICH * FILE 223 //* WAS SUBMITTED SEMI-ANONYMOUSLY. THIS SYSTEM KEEPS * FILE 223 //* COMPLETE TRACK OF ALL SL TAPES THAT WERE MOUNTED * FILE 223 //* ON YOUR SYSTEM, AND IT HAS AN EXTENSIVE SET OF * FILE 223 //* REPORTS. FILE 224 CONTAINS SAMPLE OUTPUT FROM * FILE 223 //* THIS SYSTEM. * FILE 223 //* * FILE 223 //* - - - - - - - - - - - - - - - - - - - - * FILE 223 //* * FILE 223 //* FREE TAPE MANAGEMENT SYSTEM * FILE 223 //* * FILE 223 //* This is the Free Tape Management System (FTMS, * FILE 223 //* pseudonym ITMS) which has been submitted * FILE 223 //* semi-anonymously. Please direct inquiries to Sam * FILE 223 //* Golob sbgolob@attglobal.net or * FILE 223 //* 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. * FILE 225 //* * FILE 225 //* DAVE COLE IS NOW AT COLE SOFTWARE IN AFTON, VIRGINIA. * FILE 225 //* * FILE 225 //* COLE SOFTWARE WEB PAGE: HTTP://WWW.COLESOFT.COM * FILE 225 //* 736 FOX HOLLOW ROAD VOICE: 540-456-8536 * FILE 225 //* AFTON, VA 22920 FAX: 540-456-6658 * FILE 225 //* * FILE 225 //* DAVE COLE'S PROGRAMS REQUIRE DAVE COLE'S MACROS, WHICH * FILE 225 //* MAY BE FOUND ON FILE 408. * FILE 225 //* * FILE 225 //***FILE 226 IS A COMPARE PROGRAM RECEIVED FROM YALE UNIVERSITY * FILE 226 //* WHICH WAS WRITTEN BY MR DAVID B COLE. * FILE 226 //* * FILE 226 //* DAVE COLE IS NOW AT COLE SOFTWARE IN AFTON, VIRGINIA. * FILE 226 //* * FILE 226 //* COLE SOFTWARE WEB PAGE: HTTP://WWW.COLESOFT.COM * FILE 226 //* 736 FOX HOLLOW ROAD VOICE: 540-456-8536 * FILE 226 //* AFTON, VA 22920 FAX: 540-456-6658 * FILE 226 //* * FILE 226 //* THE MACROS NEEDED TO ASSEMBLE THIS VERSION ARE CONTAINED IN * FILE 226 //* FILE 408 OF THIS UTILITIES TAPE. FOR ADDITIONAL INFORMATION * FILE 226 //* SEE THE COMMENTS IN THE SOURCE CODE ITSELF. * FILE 226 //* * FILE 226 //* THE CMPRSEQ PROGRAM COMPARES TWO SEQUENTIAL CARD * FILE 226 //* IMAGE FILES AND REPORTS PRECISELY THE DIFFERENCES * FILE 226 //* BETWEEN THE TWO. SUCH DIFFERENCES CAN CONSIST OF * FILE 226 //* INSERTIONS, DELETIONS, AND REPLACEMENTS (OF EITHER * FILE 226 //* EQUAL OR UNEQUAL SIZES). * FILE 226 //* * FILE 226 //* CMPRSEQ ACCOMPLISHES THIS BY READING THE TWO INPUT * FILE 226 //* FILES ALTERNATELY AND COMPARING THE CARD IMAGES AS IT * FILE 226 //* GOES ALONG. WHEN IT ENCOUNTERS TWO CARDS THAT * FILE 226 //* MISMATCH, IT SAVES THEM AND CONTINUES TO READ THE TWO * FILE 226 //* FILES ALTERNATELY. EACH TIME IT READS A CARD FROM ONE * FILE 226 //* FILE, IT COMPARES IT TO ALL CARDS THAT IT HAS READ * FILE 226 //* FROM THE OTHER FILE SINCE THE START OF THE MISMATCH. * FILE 226 //* IF NO MATCH IS FOUND, THEN IT SAVES THAT CARD AND * FILE 226 //* PROCEEDS TO READ THE NEXT CARD FROM THE OTHER FILE. * FILE 226 //* CMPRSEQ CONTINUES ALTERNATING BACK AND FORTH IN THIS * FILE 226 //* MANNER UNTIL IT HAS READ A CARD THAT DOES MATCH ONE * FILE 226 //* OF THE SAVED CARDS FROM THE OTHER FILE. THE MISMATCH * FILE 226 //* THEN CONSISTS OF ALL CARDS IN THE TWO SAVED STACKS * FILE 226 //* THAT ARE BELOW THE TWO MATCHING CARDS. * FILE 226 //* * FILE 226 //* THE MISMATCHED CARDS ARE DUMPED OUT TO LOGGING * FILE 226 //* DATASETS, AND THEN CMPRSEQ PROCEEDS TO LOOK FOR THE * FILE 226 //* NEXT MISMATCHED BLOCK. * FILE 226 //* * FILE 226 //* LIMITATIONS * FILE 226 //* * FILE 226 //* CMPRSEQ WILL COMPARE ONLY CARD IMAGE FILES - I.E., * FILE 226 //* FILES HAVING FIXED LENGTH RECORDS THAT ARE 80 BYTES * FILE 226 //* LONG. * FILE 226 //* * FILE 226 //* CMPRSEQ WILL COMPARE ONLY ONE PAIR OF FILES PER * FILE 226 //* INVOCATION. IT WILL NOT COMPARE AN ENTIRE PDS * FILE 226 //* LIBRARY, ALTHOUGH IT WILL COMPARE A JCL SELECTED PDS * FILE 226 //* LIBRARY MEMBER. * FILE 226 //* * FILE 226 //* IF AN INSERTION BLOCK (FOR EXAMPLE) CONTAINS A CARD * FILE 226 //* WHOSE DUPLICATE ALREADY APPEARS COMMONLY THROUGHOUT * FILE 226 //* THE FILES BEING COMPARED (E.G., THE "SPACE 1" * FILE 226 //* ASSEMBLER LANGUAGE STATEMENT, ETC.), THEN THE * FILE 226 //* COMPARISON MAY BECOME, TO A GREATER OR LESSER DEGREE, * FILE 226 //* DESYNCHRONIZED DUE TO THE INSERTED CARD FINDING A * FILE 226 //* MATCH WITH A PRE-EXISTING COPY OF THAT CARD IN THE * FILE 226 //* OTHER FILE. CMPRSEQ PROVIDES MECHANISMS TO HELP DEAL * FILE 226 //* WITH SYNCHRONIZATION PROBLEMS. (NOTE, SYNCHRONIZATION * FILE 226 //* PROBLEMS CAN OCCUR, NOT JUST WITH INSERTED BLOCKS, * FILE 226 //* BUT ALSO WITH DELETED BLOCKS AND WITH REPLACED * FILE 226 //* BLOCKS). * FILE 226 //* JCL * FILE 226 //* * FILE 226 //* EXEC CARD KEYWORD: REGION= * FILE 226 //* * FILE 226 //* CMPRSEQ'S MEMORY REQUIREMENTS VARY ACCORDING TO THE * FILE 226 //* AGGREGATE SIZE OF THE LARGEST PAIR OF MISMATCHED * FILE 226 //* BLOCKS ENCOUNTERED. IF A MEMORY SHORTAGE OCCURS, THEN * FILE 226 //* CMPRSEQ TERMINATES IMMEDIATELY; CONSEQUENTLY, IT IS * FILE 226 //* BEST TO PROVIDE A GENEROUS AMOUNT OF AVAILABLE * FILE 226 //* MEMORY. USUALLY, REGION=1024K SHOULD BE ENOUGH. * FILE 226 //* * FILE 226 //* EXEC CARD KEYWORD: PARM=FULL * FILE 226 //* * FILE 226 //* BY DEFAULT CMPRSEQ WILL COMPARE TWO CARDS ONLY IN * FILE 226 //* COLUMNS 1 THROUGH 72, THUS IGNORING THE SEQUENCE * FILE 226 //* NUMBER FIELD. SPECIFYING PARM=FULL CAUSES CMPRSEQ TO * FILE 226 //* EXAMINE EACH CARD IN ALL 80 COLUMNS. * FILE 226 //* * FILE 226 //* DDNAMES: OLD AND NEW * FILE 226 //* * FILE 226 //* ATTRIBUTES * FILE 226 //* ACCESS METHOD QSAM * FILE 226 //* DSORG PS * FILE 226 //* RECFM F OR FB * FILE 226 //* LRECL 80 * FILE 226 //* BLKSIZE 80*N * FILE 226 //* DEFAULTS (PS,F,80,80) * FILE 226 //* * FILE 226 //* THESE DDNAMES (OLD AND NEW) MUST DESIGNATE THE TWO * FILE 226 //* FILES TO BE COMPARED. THEIR EXISTANCE IS REQUIRED. * FILE 226 //* USUALLY, ONE FILE IS AN UPDATED (NEWER) VERSION OF * FILE 226 //* THE OTHER, HENCE NAMES OLD AND NEW. * FILE 226 //* * FILE 226 //* DDNAME: SYSPRINT * FILE 226 //* * FILE 226 //* ATTRIBUTES * FILE 226 //* ACCESS METHOD QSAM * FILE 226 //* DSORG PS * FILE 226 //* RECFM UA, VA, VBA, FA, OR FBA * FILE 226 //* LRECL 133 OR LARGER * FILE 226 //* BLKSIZE 133 OR LARGER * FILE 226 //* DEFAULTS (PS,VBA,137,4096) * FILE 226 //* * FILE 226 //* THE SYSPRINT FILE IS OPTIONAL. IF IT IS AVAILABLE, * FILE 226 //* THEN IT RECEIVES A LOG OF ALL DISCOVERED MISMATCHES. * FILE 226 //* FOR EACH MISMATCHED BLOCK, BOTH THE OLD AND NEW * FILE 226 //* VERSION OF THAT BLOCK IS SHOWN. * FILE 226 //* * FILE 226 //* DDNAMES: OLDLIST AND NEWLIST * FILE 226 //* * FILE 226 //* ATTRIBUTES * FILE 226 //* ACCESS METHOD QSAM * FILE 226 //* DSORG PS * FILE 226 //* RECFM UA, VA, VBA, FA, OR FBA * FILE 226 //* LRECL 133 OR LARGER * FILE 226 //* BLKSIZE 133 OR LARGER * FILE 226 //* DEFAULTS (PS,VBA,137,4096) * FILE 226 //* * FILE 226 //* BOTH OLDLIST AND NEWLIST ARE OPTIONAL. IF ONE (OR * FILE 226 //* BOTH) ARE AVAILABLE, THEN A COPY OF THE OLD (OR NEW) * FILE 226 //* FILE IS WRITTEN TO IT WITH THE LOCATIONS OF ALL * FILE 226 //* MISMATCHES CLEARLY FLAGGED. * FILE 226 //* * FILE 226 //* DDNAME: IGNORE * FILE 226 //* * FILE 226 //* ATTRIBUTES * FILE 226 //* ACCESS METHOD QSAM * FILE 226 //* DSORG PS * FILE 226 //* RECFM F OR FB * FILE 226 //* LRECL 80 * FILE 226 //* BLKSIZE 80*N * FILE 226 //* DEFAULTS (PS,F,80,80) * FILE 226 //* * FILE 226 //* THE IGNORE FILE IS OPTIONAL. IF IT IS AVAILABLE, THEN * FILE 226 //* IT IS USED TO HELP CONTROL THE POSSIBLE * FILE 226 //* DESYNCHRONIZATION PROBLEMS DISCUSSED EARLIER. THE * FILE 226 //* IGNORE FILE SHOULD CONTAIN COPIES OF CARD IMAGES THAT * FILE 226 //* APPEAR REPEATEDLY THROUGHOUT THE FILES BEING * FILE 226 //* COMPARED, AND ESPECIALLY APPEARING IN AREAS AFFECTED * FILE 226 //* BY INSERTIONS AND DELETIONS. COPIES OF THESE CARDS, * FILE 226 //* WHEN ENCOUNTERED DURING A MISMATCH RESOLUTION * FILE 226 //* PROCESS, WILL NOT BE USED TO RESOLVE THE MISMATCH. BY * FILE 226 //* THIS MEANS THE POSSIBILITY OF DESYNCHRONIZATION CAN * FILE 226 //* BE REDUCED. * FILE 226 //* * FILE 226 //* DDNAME: SYNC * FILE 226 //* * FILE 226 //* ATTRIBUTES * FILE 226 //* ACCESS METHOD QSAM * FILE 226 //* DSORG PS * FILE 226 //* RECFM F OR FB * FILE 226 //* LRECL 80 * FILE 226 //* BLKSIZE 80*N * FILE 226 //* DEFAULTS (PS,F,80,80) * FILE 226 //* * FILE 226 //* UNFORTUNATELY, VERY LARGE FILES MAY HAVE TOO MANY * FILE 226 //* COMMONLY REOCCURING CARDS FOR THE IGNORE FILE TO BE * FILE 226 //* WHOLLY EFFECTIVE IN ELIMINATING DESYNCHRONIZATION * FILE 226 //* PROBLEMS. IF THIS IS THE CASE, THEN THE SYNC FILE CAN * FILE 226 //* BE PROVIDED TO FORCE RESYNCHRONIZATION AT PARTICULAR * FILE 226 //* POINTS IN THE FILES BEING COMPARED. THIS FILE SHOULD * FILE 226 //* CONTAIN COPIES OF ONE OR MORE CARDS EACH OF WHICH * FILE 226 //* APPEARS EXACTLY ONCE IN BOTH THE OLD AND NEW FILES. * FILE 226 //* THE CARDS IN THE SYNC FILE SHOULD APPEAR IN THE SAME * FILE 226 //* ORDER BY WHICH THEY APPEAR IN THE OLD AND NEW FILES. * FILE 226 //* THEY SHOULD REPRESENT POINTS IN THE OLD AND NEW FILES * FILE 226 //* AT WHICH YOU WISH TO FORCE COMPARISON SYNCHRONIZATION. * FILE 226 //* GENERALLY, SUCH POINTS WILL BE FOLLOWING THOSE AREAS * FILE 226 //* WHERE OTHERWISE UNRECOVERABLE DESYNCHRONIZATION HAS * FILE 226 //* OCCURED. * FILE 226 //* * FILE 226 //* WHEN CMPRSEQ ENCOUNTERS A RESYNCHRONIZATION POINT * FILE 226 //* (I.E., WHEN IT HAS READ A CARD FROM ONE OF THE * FILE 226 //* COMPARISON FILES THAT EXACTLY MACTHES THE NEXT CARD * FILE 226 //* FROM THE SYNC FILE), IT WILL NOT READ ANY FURTHER * FILE 226 //* FROM THAT FILE UNTIL IT READS THE IDENTICAL CARD FROM * FILE 226 //* THE OTHER FILE. THIS HAS THE EFFECT OF FORCING THE * FILE 226 //* RESOLUTION OF A CURRENT MISMATCH (IF ANY) AT THE * FILE 226 //* RESINCHRONIZATION POINT. * FILE 226 //* * FILE 226 //* THE SYNC FILE IS OPTIONAL. IF IT IS AVAILABLE, THEN * FILE 226 //* IS MUST BE CORRECTLY FORMED. IF IT IS NOT (I.E., IF * FILE 226 //* IT IS OUT OF SEQUENCE, OR IF IT CONTAINS A CARD THAT * FILE 226 //* DOES NOT APPEAR IN BOTH THE OLD AND NEW FILES), THEN * FILE 226 //* THE CMPRSEQ RUN WILL FAIL. * FILE 226 //* * FILE 226 //* COMPLETION CODES * FILE 226 //* * FILE 226 //* 0 - PROCESSING HAS COMPLETED SUCCESSFULLY. NO * FILE 226 //* MISMATCHES HAVE BEEN FOUND. * FILE 226 //* * FILE 226 //* 4 - PROCESSING HAS COMPLETED SUCCESSFULLY. AT LEAST * FILE 226 //* ONE MISMATCH HAS BEEN FOUND. * FILE 226 //* * FILE 226 //* 12 - PROCESSING HAS FAILED. A MEMORY SHORTAGE HAS * FILE 226 //* OCCURED. * FILE 226 //* * FILE 226 //* 16 - PROCESSING HAS ABORTED. ONE OF THE COMPARISON * FILE 226 //* FILES (DDNAME OLD OR NEW) IS NOT AVAILABLE. * FILE 226 //* * FILE 226 //* * FILE 226 //***FILE 227 IS IN IEBUPDTE FORMAT AND CONTAINS A SERIES OF * FILE 227 //* PROGRAMS TO ALLOW CERTAIN TSO USERS TO PERFORM * FILE 227 //* AUTHORIZED FUNCTIONS. FOR ADDITIONAL DOCUMENTATION * FILE 227 //* SEE THE MEMBER CALLED $DOC * FILE 227 //* * FILE 227 //* THIS PDS CONTAINS THE FOLLOWING MEMBERS * FILE 227 //* * FILE 227 //* MEMBER DESCRIPTION * FILE 227 //* * FILE 227 //* AOFF PROGRAM TO TURN THE AUTHORIZATION BIT OFF * FILE 227 //* AON PROGRAM TO TURN THE AUTHORIZATION BIT ON * FILE 227 //* BEGIN USER MACRO * FILE 227 //* CBT385 PROGRAM TO ATTACH IEBCOPY IN AN AUTHORIZED * FILE 227 //* ENVIRONMENT FOR ANYONE * FILE 227 //* CBT594 PROGRAM TO ATTACH IKJEFT01 IN AN AUTHORIZED * FILE 227 //* ENVIRONMENT FOR ANYONE * FILE 227 //* CBT390 VALIDATION OF USER IDS TO DO AN AUTHORIZED * FILE 227 //* FUNCTION * FILE 227 //* D0 PROGRAM TO ATTACH A LOAD MODULE VIA * FILE 227 //* LINKLIST (AUTHORIZED) * FILE 227 //* D0D0 SAME AS D0 EXCEPT BEFORE PGM IS ATTACHED * FILE 227 //* THIS CODE GOES TO KEY 0 AND SUPERVISOR * FILE 227 //* STATE. USED TO GET AROUND PTF UZ26385 * FILE 227 //* (APAR OZ39506) FOR DIDOCS AND SPY. THIS * FILE 227 //* PTF PUT THE CONSOLE BUFFERS INTO PROTECTED * FILE 227 //* STORAGE (NICE PEOPLE) * FILE 227 //* ENDALL USER MACRO * FILE 227 //* HREADY HELP MEMBER FOR CBT594 (ALIAS READY) * FILE 227 //* IGC0025D USER SVC TO TURN AUTHORIZE BIT ON/OFF * FILE 227 //* SAVEALL USER MACRO * FILE 227 //* XEQ PROGRAM TO ATTACH A LOAD MODULE VIA * FILE 227 //* LINKLIST (NOT AUTHORIZED) * FILE 227 //* LISTPW TSO CP TO LIST ENTRIES FROM THE PASSWORD * FILE 227 //* DATA SET * FILE 227 //* UADS TSO CP TO ALLOW AUTHORIZED USERS THE ABILITY * FILE 227 //* TO CHANGE THEIR PSCB * FILE 227 //* * FILE 227 //***FILE 228 IS FROM WILLIAM HORTON OF TENNESSEE EASTMAN COMPANY * FILE 228 //* IN KINGSPORT, TENNESSEE. THIS FILE CONTAINS AN ISPF * FILE 228 //* DIALOG SYSTEM TO HELP YOU RECOVER DATASETS THAT WERE * FILE 228 //* BACKED UP BY DFHSM. * FILE 228 //* * FILE 228 //***FILE 229 is a 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 //* * 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 * FILE 229 //* and COPYNLNL to achieve whatever tape copying * FILE 229 //* results you want. If you can't do some job in * FILE 229 //* tape copying that you want to do, please contact * FILE 229 //* me, and I'll see if we can add a feature. Thanks * FILE 229 //* in advance. (S.G.) * FILE 229 //* * FILE 229 //* Keywords: TAPECOPY COPYMODS * 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 or sbgolob@attglobal.net * 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 //* 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 //* 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 //* 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. * 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. * 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 //***FILE 230 IS FROM AIR PRODUCTS AND CHEMICALS IN TREXLERTOWN, * FILE 230 //* PA. AND CONTAINS A COPY OF THE LISTING HANDED OUT * FILE 230 //* AT SHARE 66 SESSION G107 " ISPF : TRADE FAIR ". THE * FILE 230 //* HANDOUT DESCRIBES SEVERAL HELPFUL HINTS FOR ISPF : * FILE 230 //* 1. CUSTOMIZING ISPF COMMAND TABLES * FILE 230 //* 2. USING SMP TO APPLY LOCAL MODS TO ISPF PANELS * FILE 230 //* 3. USING ISPF TABLE SERVICES * FILE 230 //* 4. ACTUAL SOURCE CODE LISTINGS OF AN ISPF * FILE 230 //* APPLICATION * FILE 230 //* THIS FILE IS 133 X 32718 FBA * FILE 230 //* * FILE 230 //***FILE 231 IS FROM AIR PRODUCTS AND CHEMICALS IN TREXLERTOWN, * FILE 231 //* PA. AND CONTAINS A COPY OF THE SOURCE CODE FOR THE * FILE 231 //* ISPF TABLE SERVICES DEMO APPLICATION FROM FILE 230. * FILE 231 //* FILE 230 ACUTALLY CONTAINS ALL THE SOURCE CODE, BUT * FILE 231 //* IT IS IN PRINTED LISTING FORMAT. THIS FILE IS IN * FILE 231 //* IEBUPDTE SYSIN FORMAT AND CONTAINS THE SOURCE AS * FILE 231 //* SEPARATE MEMBERS. THE MEMBER CALLED $DOC EXPLAINS * FILE 231 //* WHAT THE PARTS ARE AND HOW TO MAKE IT WORK. * FILE 231 //* * FILE 231 //***FILE 232 IS FROM AIR PRODUCTS AND CHEMICALS IN TREXLERTOWN, * FILE 232 //* PA. AND CONTAINS ASSEMBLER MACROS TO TAKE AN MVS * FILE 232 //* IOGEN DECK AND TURN IT INTO A REASONABLE * FILE 232 //* APPROXIMATION OF THE VM/XA SF REAL IO CONFIGURATION * FILE 232 //* FILE (HCPRIO). THIS FILE IS IN IEBUPDTE SYSIN * FILE 232 //* FORMAT. SEE THE MEMBER CALLED $DOC FOR ADDITIONAL * FILE 232 //* INFORMATION AND THE MEMBER CALLED $JCL FOR THE * FILE 232 //* SAMPLE JCL TO RUN THE ASSEMBLY. * FILE 232 //* * FILE 232 //***FILE 233 IS THE GBHABEND PROGRAM FROM GORDON HAMPTON OF * FILE 233 //* COLONIA, NEW JERSEY. THIS IS A BATCH PROGRAM THAT * FILE 233 //* IS A FRONT END TO THE ABEND MACRO. THIS PROGRAM * FILE 233 //* WILL GENERATE ANY ABEND CODE IN A JOBSTREAM: * FILE 233 //* SYSTEM, USER, OR SYSTEM WITH REASON CODE. YOU CAN * FILE 233 //* FIND MANY USES FOR THIS PROGRAM, SIMULATING YOUR * FILE 233 //* OWN S0C4 ABENDS, OR STOPPING A JOBSTREAM UNDER * FILE 233 //* CONDITION CODE CONTROL. GORDON USED THIS PROGRAM * FILE 233 //* FOR MANY YEARS TO CHECK UP ON THE "ABENDAID" PEOPLE * FILE 233 //* TO SEE HOW THEY WERE IMPROVING THEIR ACT FROM * FILE 233 //* RELEASE TO RELEASE. * FILE 233 //* * FILE 233 //* GORDON_B_HAMPTON@CSI.COM (GORDON BOYD HAMPTON) HOME * FILE 233 //* GORDON.HAMPTON@CHASE.COM (GORDON BOYD HAMPTON) WORK * FILE 233 //* * FILE 233 //* HOME PAGE - * FILE 233 //* HTTP://OURWORLD.COMPUSERVE.COM/HOMEPAGES/GORDON_B_HAMPTON * FILE 233 //* * FILE 233 //* GORDON B. HAMPTON * FILE 233 //* CHEM NETWORK PROCESSING SERVICES * FILE 233 //* 130 BELMONT DRIVE * FILE 233 //* SOMERSET, NJ 08873 * FILE 233 //* * FILE 233 //***FILE 234 is from 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 //* emails: (check to see which are relevant): * FILE 234 //* dickthor@hotmail.com * FILE 234 //* cthornton@swva.net * FILE 234 //* rthornton@trigon.com * 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, I believe. * 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 //***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@attglobal.net 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 "Brodcast Master" commercial product from * FILE 247 //* Sam Golob Systems Programming, 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, for anyone to run BDMSCAN anywhere. * 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. Another way of handling NOTICES that are for all TSO * FILE 247 //* users of the system: Paul W. Lemons' BCEDIT package * FILE 247 //* has been copied to this file, from File 479. * 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 //* 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 //* 5. 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 //* 6. 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 //* 7. 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 //* BCMXPORT supports the new SKIP(nn) and MSGS(mm) * FILE 247 //* keywords. * FILE 247 //* * FILE 247 //* 8. 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 slicker. * 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, P.O. Box 906, Tallman, NY 10982-0906 * FILE 247 //* * FILE 247 //* email: sbgolob@attglobal.net * FILE 247 //* and/or 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. * 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. * 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 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * 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, WMODTSOO. * 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 WMODTSOO and WMODCICO. * 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 //* * 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.... * FILE 257 //* * FILE 257 //* * - * - * - * - * - * - * - * - * - * * FILE 257 //* * FILE 257 //* FIXING YOUR OLD LINKAGE EDITOR (IN DFSMS/MVS TOO) * FILE 257 //* * FILE 257 //* EVEN UNDER DFSMS/MVS, WITH HEWL AND IEWL BEING THE NEW * FILE 257 //* 'BINDER', YOU CAN STILL RUN THE OLD LINKAGE EDITOR IF YOU * FILE 257 //* SAY EXEC PGM=HEWLKED. IBM HAS KEPT A VERSION OF THE OLD * FILE 257 //* LINKAGE EDITOR AROUND. HOWEVER, WITH THE BINDER, IBM HAS * FILE 257 //* REMOVED THE OLD (NOW STUPID) RESTRICTION THAT OBJECT DECKS * FILE 257 //* CAN'T BE BLOCKED GREATER THAN 3200 BYTES, OR 40 RECORDS * FILE 257 //* PER BLOCK. THERE WERE MEMORY RESTRICTIONS ONCE, THAT ARE * FILE 257 //* NOW LONG GONE. BUT WITH THE OLD LINKAGE EDITOR, THEY * FILE 257 //* HAVEN'T REMOVED THE RESTRICTION, AND NOW IT IS "FUNCTIONALLY * FILE 257 //* STABILIZED" FOR ALL PRACTICAL PURPOSES. * FILE 257 //* * FILE 257 //* I'VE LOOKED AT MY COPIES OF THE OLD LINKAGE EDITOR * FILE 257 //* HEWLKED IN DFSMS, AND BEHOLD, THE OLD RESTRICTION HASN'T * FILE 257 //* BEEN LIFTED OR CURED. IT IS SO EASY TO DO! WE HAD A * FILE 257 //* USERMOD ONCE, WHICH I AM BRINGING TO YOU NOW. I HAVE TWO * FILE 257 //* VERSIONS OF THIS MOD, ONE FOR DFSMS 1.0, AND ANOTHER FOR * FILE 257 //* DFSMS 1.3. BOTH ARE THE SAME AS EACH OTHER, AND YOU * FILE 257 //* SHOULDN'T HAVE ANY TROUBLE FITTING THIS MOD TO ANY VERSION * FILE 257 //* OF THE OLD LINKAGE EDITOR, YOUNG OR RECENT. I HAVE ALSO * FILE 257 //* INCLUDED ZAPS FOR ALL VERSIONS OF THE LINKAGE EDITOR WHICH * FILE 257 //* I HAD LYING AROUND AT OUR INSTALLATION, AS WELL AS I COULD * FILE 257 //* DETERMINE. * FILE 257 //* * FILE 257 //* VERSION TABLE: * FILE 257 //* * FILE 257 //* HDQ1102 - MVS/370 DFP 1.1 * FILE 257 //* HDP2230 - MVS/XA DFP 2.3 * FILE 257 //* HDP2240 - MVS/XA DFP 2.4 * FILE 257 //* JDZ1110 - DFSMS/MVS 1.1.0 * FILE 257 //* HDZ11C0 - DFSMS/MVS 1.3.0 * FILE 257 //* * FILE 257 //* IF YOU HAVE ANY QUESTIONS, I'M (HOPEFULLY) AT: * FILE 257 //* * FILE 257 //* Sam Golob * FILE 257 //* P.O. Box 906 email: sbgolob@attglobal.net * FILE 257 //* Tallman, NY 10982 sbgolob@cbttape.org * 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 //* sbgolob@attglobal.net * 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@attglobal.net * FILE 263 //* sbgolob@cbttape.org * FILE 263 //* * FILE 263 //***FILE 264 is from Guy Albertelli in Akron, Ohio, and contains * FILE 264 //* three TSO command processors. A load module for * FILE 264 //* LOOK is on File 035 of the CBT Tape. * FILE 264 //* * FILE 264 //* Please send inquiries and questions to Sam Golob. * FILE 264 //* * FILE 264 //* email: sbgolob@cbttape.org or sbgolob@attglobal.net * FILE 264 //* * FILE 264 //* The command processors are: * FILE 264 //* * FILE 264 //* 1 LOOK - A TSO COMMAND PROCESSOR THAT ALLOWS * FILE 264 //* FULL SCREEN DISPLAY OF REAL TIME * FILE 264 //* MEMORY. THIS COMMAND HAS BEEN * FILE 264 //* ENHANCED TO MAKE IT EASY TO ADD NEW * FILE 264 //* CONTROL BLOCK MAPS, USUALLY IN 3 OR * FILE 264 //* 4 STATEMENTS * FILE 264 //* * (REFRESHED 12/88 V1.1.A) * FILE 264 //* * (Assembled 2006/02/15 by S.G.) * FILE 264 //* * FILE 264 //* (This command is a "MUST" to know about - SG) * FILE 264 //* * FILE 264 //* 2 DUDASD AN UPDATED VERSION FROM FILE 300 OF * FILE 264 //* THIS TAPE THAT HAS BEEN CONVERTED * FILE 264 //* TO FUNCTION UNDER EITHER SP OR XA. * FILE 264 //* * FILE 264 //* 3 JLOG A PROGRAM TO PRINT OUT THE JES JOBLOG * FILE 264 //* AND OR ANY OTHER JES DATASETS, EVEN * FILE 264 //* IF THEY ARE QUEUED TO A DUMMY CLASS. * FILE 264 //* USEFUL IN OBTAINING THE JOBLOG OF * FILE 264 //* ABENDING STARTED TASKS. * FILE 264 //* * FILE 264 //***FILE 265 IS FROM GUY ALBERTELLI OF B.F. GOODRICH IN AKRON * FILE 265 //* OHIO AND CONTAINS THEIR TSO LOGON EXIT. THE CODE * FILE 265 //* HAS BEEN UPGRADED TO MVS 4.2 AND THE CONCURRENT * FILE 265 //* TSO VERSION. THIS CODE IS SOPHISTICATED AND IS * FILE 265 //* VERY MUCH WORTH LOOKING AT. * FILE 265 //* * FILE 265 //***FILE 266 is from Sam Golob, who updated the tape mapping * FILE 266 //* program called SS0104 from Florida Power Corporation. * FILE 266 //* This code is used to measure the footages of files * FILE 266 //* on the CBT Tape, as though they were on a 6250 bpi * FILE 266 //* tape reel. As is, that is what this code is used * FILE 266 //* for, but it can be fixed for other purposes. * 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 //* * 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@attglobal.net * FILE 266 //* sbgolob@cbttape.org * 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 //* 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 //***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 - rfochtman@ync.net * FILE 277 //* * FILE 277 //***FILE 278 IS FROM MR DAVID WEILERT AND CONTAINS AN SLSS * FILE 278 //* (SYSTEM LIBRARY SUBSCRIPTION SERVICE) SPF DIALOG. * FILE 278 //* THIS IS VERSION 4 FROM WILSON FOODS CORP IN * FILE 278 //* OKLAHOMA CITY, OKLAHOMA. * FILE 278 //* * FILE 278 //* THE SYSTEM LIBRARY SUBSCRIPTION SERVICE (SLSS) IS AN * FILE 278 //* INTERACTIVE DIALOG APPLICATION THAT YOU CAN USE TO * FILE 278 //* AID IN CREATING AND MAINTAINING A LIBRARY. SLSS * FILE 278 //* MAY BE USED TO SUPPORT AN INDIVIDUAL LIBRARY OR * FILE 278 //* SEVERAL LIBRARIES WHICH CAN BE ACCESSED BY A SINGLE * FILE 278 //* USER OR SEVERAL USERS. * FILE 278 //* * FILE 278 //* SLSS IS AN ISPF DIALOG THAT YOU USE AT A DISPLAY * FILE 278 //* TERMINAL. THE FUNCTIONS AVAILABLE TO YOU INCLUDE: * FILE 278 //* * FILE 278 //* BROWSE EXISTING LIBRARIES * FILE 278 //* * FILE 278 //* EDIT EXISTING LIBRARIES * FILE 278 //* * FILE 278 //* CREATE NEW LIBRARIES * FILE 278 //* * FILE 278 //* DELETE ENTIRE LIBRARY OR SELECTED ENTRIES WITHIN * FILE 278 //* A LIBRARY * FILE 278 //* * FILE 278 //* PRINT LISTING OF LIBRARY * FILE 278 //* * FILE 278 //* SORT LIBRARY EITHER IN MANUAL ID, LOCATION OR * FILE 278 //* TITLE SEQUENCE * FILE 278 //* * FILE 278 //* AUTHORIZE USERS TO BROWSE AND/OR EDIT LIBRARY * FILE 278 //* * FILE 278 //* UTILITY TO MAINTAIN LIBRARY OWNER AND LOCATION * FILE 278 //* * FILE 278 //* RESET LIBRARY IF ABNORMAL TERMINATION OF THE * FILE 278 //* DIALOG SESSION OCCURS * FILE 278 //* * FILE 278 //* KEYWORD SCANNING OF LIBRARIES * FILE 278 //* * FILE 278 //* SCROLLING OF DATA WITHIN LIBRARY WITHIN THE EDIT * FILE 278 //* OR BROWSE FUNCTION * FILE 278 //* * FILE 278 //* SPLIT SCREEN CAPABILITY THAT ALLOWS YOU TO * FILE 278 //* PARTITION THE DISPLAY SCREEN * FILE 278 //* * FILE 278 //* DEBUG CAPABILITY THAT ALLOWS YOU TO TRACE THE * FILE 278 //* SESSION WHILE IN USE * FILE 278 //* * FILE 278 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT WITH THE * FILE 278 //* FOLLOWING MEMBERS : * FILE 278 //* * FILE 278 //* INSTALL - THIS MEMBER IS IN IEBDUPTE SYSIN * FILE 278 //* FORMAT TO CREATE A PDS THAT CONTAINS * FILE 278 //* INSTALLATION DOCUMENTATION, JCL, * FILE 278 //* AND USER'S GUIDE * FILE 278 //* * FILE 278 //* CLISTS - THIS MEMBER IS IN IEBUPDTE SYSIN * FILE 278 //* FORMAT TO CREATE A PDS THAT CONTAINS * FILE 278 //* THE COMMAND PROCEDURE LIBRARY * FILE 278 //* * FILE 278 //* PANELS - THIS MEMBER IS IN IEBUPDTE SYSIN * FILE 278 //* FORMAT TO CREATE A PDS THAT CONTAINS * FILE 278 //* THE PANEL LIBRARY * FILE 278 //* * FILE 278 //* SKELETON - THIS MEMBER IS IN IEBUPDTE SYSIN * FILE 278 //* FORMAT TO CREATE A PDS THAT CONTAINS * FILE 278 //* THE SKELETON LIBRARY * FILE 278 //* * FILE 278 //* FILE 280 OF THIS TAPE CONTAINS THE UNFORMATTED * FILE 278 //* SCRIPT SOURCE OF THIS PRODUCT. * FILE 278 //* * FILE 278 //***FILE 279 IS FROM MR DAVID WEILERT OF WILSON FOODS CORP IN * FILE 279 //* OKLAHOMA CITY AND CONTAINS THE UNFORMATTED SCRIPT * FILE 279 //* SOURCE FOR THE SLSS PRODUCT WHICH IS IN FILE 278 OF * FILE 279 //* THIS TAPE. * FILE 279 //* * FILE 279 //***FILE 280 IS FROM WISCONSIN STATE AND HAS THE WATERLOO SCRIPT * FILE 280 //* DOCUMENTATION. THIS FILE IS IN IEBUPDTE SYSIN FORMAT * FILE 280 //* * FILE 280 //***FILE 281 IS FROM WISCONSIN STATE AND HAS THE WATERLOO SCRIPT * FILE 281 //* LOAD MODULES. THIS FILE IS IN IEBCOPY FORMAT * FILE 281 //* * FILE 281 //***FILE 282 IS FROM WISCONSIN STATE AND HAS THE WATERLOO SCRIPT * FILE 282 //* MACLIB. THIS FILE IS IN IEBUPDTE SYSIN FORMAT * FILE 282 //* * FILE 282 //***FILE 283 IS FROM WISCONSIN STATE AND HAS THE WATERLOO SCRIPT * FILE 283 //* MEMO TO USERS. THIS FILE IS IN IEBCOPY FORMAT * FILE 283 //* * FILE 283 //***FILE 284 IS FROM WISCONSIN STATE AND HAS THE WATERLOO SCRIPT * FILE 284 //* SOURCE. THIS FILE IS IN IEBUPDTE SYSIN FORMAT * FILE 284 //* * FILE 284 //***FILE 285 IS FROM WISCONSIN STATE AND IS THE WATERLOO SCRIPT * FILE 285 //* HYPHENATION FILE. THIS FILE WAS IN IEBGENER FILE * FILE 285 //* FORMAT BUT WAS CHANGED TO A PDS IN IEBCOPY FORMAT * FILE 285 //* WITH ONE MEMBER CALLED "HYPH". PLEASE MAKE NOTE * FILE 285 //* OF THIS WHEN INSTALLING. DCB ATTRIBUTES ARE: * FILE 285 //* RECFM=VB, LRECL=80, BLKSIZE=32720 * FILE 285 //* * FILE 285 //***FILE 286 IS FROM WISCONSIN STATE AND HAS THE WATERLOO SCRIPT * FILE 286 //* OBJECT MODULES. THIS FILE IS IN IEBUPDTE SYSIN FORMAT * FILE 286 //* * FILE 286 //***FILE 287 IS FROM WISCONSIN STATE AND HAS THE WATERLOO SCRIPT * FILE 287 //* TSO PROMPTER. THIS FILE IS IN IEBUPDTE SYSIN FORMAT * FILE 287 //* * FILE 287 //***FILE 288 WAS SUBMITTED FROM MEMOREX AND CONTAINS A TSO * FILE 288 //* COMMAND PROCESSOR TO INVOKE THE WATERLOO SCRIPT PGM. * FILE 288 //* THIS FILE DOES NOT CONTAIN THE WATERLOO SCRIPT * FILE 288 //* PGM. A HELP MEMBER IS ALSO INCLUDED AND THIS FILE * FILE 288 //* IS IN IEBUPDTE SYSIN FORMAT. * FILE 288 //* * FILE 288 //***FILE 289 IS THE PGM TO GENERATE A PTF TAPE XREF REPORT. THIS * FILE 289 //* PROGRAM, CALLED PHRANQUE, WILL GENERATE FOUR REPORTS: * FILE 289 //* * FILE 289 //* REPORT 01 WILL BE A LIST OF ALL THE PTF'S ON THE TAPE * FILE 289 //* * FILE 289 //* REPORT 02 WILL CONTAIN A LIST OFF ALL ELEMENTS * FILE 289 //* (MODULE, MACROS, ETC.) ON THE TAPE AND * FILE 289 //* THE PTF'S THAT REFERENCE THEM * FILE 289 //* * FILE 289 //* REPORT 03 WILL LIST ALL THE COVER LETTERS ON THE TAPE * FILE 289 //* * FILE 289 //* REPORT 04 WILL LIST ALL THE FMID'S ON THE TAPE AND THE * FILE 289 //* PTF'S THAT REFERENCE THOSE FMIDS * FILE 289 //* * FILE 289 //***FILE 290 IS THE SOURCE AND DOCUMENTATION FOR GPSAM FROM * FILE 290 //* THE YALE COMPUTER CENTER WRITTEN BY MR HOWARD * FILE 290 //* GILBERT. THIS FILE IS IN IEBUPDTE SYSIN FORMAT. * FILE 290 //* * FILE 290 //* GPSAM LETS YOU WRITE YOUR OWN "ACCESS METHOD" AND * FILE 290 //* MAKES IT LOOK LIKE A SEQUENTIAL DATASET TO ANY * FILE 290 //* APPLICATION PROGRAM OR UTILITY. IT CAN BE USED TO * FILE 290 //* PROVIDE DBMS, VTAM, TSO FULLSCREEN, BTAM, OR * FILE 290 //* SPECIALIZED DEVICE SUPPORT. * FILE 290 //* * FILE 290 //* SIMPLE: INSTALLS ON ANY MVS SYSTEM. NO IBM CODE * FILE 290 //* IS MODIFIED. TAKES ONLY A FEW MINUTES TO RUN * FILE 290 //* LINKEDIT STEPS AND BUILD PROCEDURES. * FILE 290 //* * FILE 290 //* SMALL: 700 BYTES IN LPA. 160 BYTES IN PRIVATE * FILE 290 //* ADDRESS SPACE. * FILE 290 //* * FILE 290 //* SAFE: ONLY ONE INSTRUCTION EXECUTES IN KEY 0 AND * FILE 290 //* MODIFIES A GENERAL SYSTEM CONTROL BLOCK. ANOTHER * FILE 290 //* 18 INSTRUCTIONS OPERATE IN A SYSTEM KEY AND ONLY 4 * FILE 290 //* OF THEM CHANGE STORAGE, STORING VALUES IN JOB * FILE 290 //* RELATED CONTROL BLOCKS IN THE PRIVATE AREA. EVEN * FILE 290 //* THE MOST CONSERVATIVE INSTALLATION CAN DESK CHECK * FILE 290 //* THE SINGLE AUTHORIZED CSECT SEVERAL TIMES OVER IN * FILE 290 //* AN HOUR. * FILE 290 //* * FILE 290 //* UNIVERSAL: WHILE A SYSTEM PROGRAMMER MUST INSTALL * FILE 290 //* THE PACKAGE IN AUTHORIZED LIBRARIES, ANY * FILE 290 //* APPLICATION PROGRAMMER CAN WRITE HIS OWN "ACCESS * FILE 290 //* METHOD" IN ASSEMBLER AND USE IT FROM HIS OWN * FILE 290 //* PROGRAMS. THE USER SPECIFIES THE MODULE NAME ON * FILE 290 //* HIS DD CARD OR IN THE TSO ALLOCATION OF THE * FILE 290 //* DDNAME. THESE USER MODULES RUN IN PROBLEM STATE * FILE 290 //* AND CAN COME FROM ANY LIBRARY. CONTROL IS GIVEN * FILE 290 //* TO THE ROUTINE FROM THE OPEN, CLOSE, GET, PUT, * FILE 290 //* READ, OR WRITE STATEMENTS. * FILE 290 //* * FILE 290 //* SECURE: MVS INTEGRITY IS MAINTAINED. IF AN * FILE 290 //* AUTHORIZED PROGRAM OPENS A GPSAM FILE, THE "ACCESS * FILE 290 //* METHOD" MODULE IS LIMITED TO THOSE EXPLICITLY * FILE 290 //* PERMITTED BY AN INSTALLATION SUPPLIED NAME TABLE * FILE 290 //* AND THE MODULE MUST COME FROM AN APF LIBRARY. * FILE 290 //* * FILE 290 //***FILE 291 is from Rick Hevener of the University of South * FILE 291 //* Carolina, and contains a program to measure CPU * FILE 291 //* instruction execution speed. This program is * FILE 291 //* supposed to be a bit better than others of its * FILE 291 //* type (I think). Included in this file, is an * FILE 291 //* article from Technical Support magazine which * FILE 291 //* describes how this program works, and what kind * FILE 291 //* of results you can obtain, using it. * FILE 291 //* * 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 //* The 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 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 //* Questions, please write: * FILE 293 //* * FILE 293 //* Warren Whitford: Warren.Whitford@ERIEinsurance.com * FILE 293 //* * FILE 293 //* Sam Golob : sbgolob@attglobal.net * FILE 293 //* : 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 //***FILE 294 CONTAINS THE SOURCE FOR THE TSO CP CALLED VSAMANAL. * FILE 294 //* THE LOAD MODULES FOR THIS PROGRAM RESIDE IN FILE 035 * FILE 294 //* OF THIS TAPE. * FILE 294 //* * FILE 294 //* THE VSAMANAL TSO CP IS USED TO PROVIDE THE USER * FILE 294 //* WITH A METHOD OF DETERMINING HOW MUCH PHYSICAL * FILE 294 //* SPACE A DATASET WILL REQUIRE. IT CAN ALSO BE USED * FILE 294 //* TO DETERMINE AN OPTIMUM DATA CI-SIZE, CI AND CA * FILE 294 //* FREESPACE PERCENTAGES BASED ON FREE RECORD VALUES, * FILE 294 //* TRACK UTILIZATION PERCENTAGES, AND OTHER VSAM * FILE 294 //* DATASET STATISTICS. THESE ARE HELPFUL WHEN * FILE 294 //* DEFINING A NEW DATASET OR ANALYZING EXISTING * FILE 294 //* DATASET DEFINITIONS. VSAMANAL USES 3270 I/O. THE * FILE 294 //* DEVICES CURRENTLY SUPPORTED ARE 3330'S, 3350'S, * FILE 294 //* 3380'S, AND 3390'S. (UPDATED 10/94) * FILE 294 //* * FILE 294 //***FILE 295 is 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 //* 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 //* Contents of this file: * FILE 296 //* * FILE 296 //* NAME VER.MOD LAST MODIFIED SIZE ID * FILE 296 //* $$$$$NOT 01.00 1998/10/27 10:04 9 SBGOLOB * FILE 296 //* $$$$SAM 01.01 1994/08/19 8:25 34 SBGCSC * FILE 296 //* $$$$SAM1 01.01 1998/04/22 22:55 3 SBGOLOB * FILE 296 //* $INDEX 01.18 1999/01/25 12:40 20 SBGOLOB * FILE 296 //* @FILE296 01.01 2000/02/15 17:05 183 SBGOLOB * FILE 296 //* BLKDISK 01.21 1993/02/02 12:56 1758 WSER07 * FILE 296 //* COMPARE 01.44 2000/01/11 15:17 3690 SBGOLOB * FILE 296 //* COMPAREB 01.00 2000/01/11 15:20 1851 SBGOLOB * FILE 296 //* DSAT 01.09 2003/04/30 13:13 4959 FREYBIE * FILE 296 //* DSATO 01.41 1999/01/25 12:34 4947 WSER07 * FILE 296 //* DSATOLD 01.32 1994/08/05 13:15 4258 WSER07 * FILE 296 //* DVOL 01.00 2005/02/28 23:44 3560 CGARRET * FILE 296 //* DVOLO 01.28 1998/04/21 17:29 3548 WSER07 * FILE 296 //* HEL 01.01 1993/09/03 6:41 1 SBGCSC * FILE 296 //* RELEASE 01.03 1988/08/25 12:58 1282 WSER07 * FILE 296 //* RESET 01.00 1990/01/01 12:00 217 FILE296 * FILE 296 //* REVIEW 01.00 1992/12/18 7:37 1 SBGCSC * FILE 296 //* REVSMF 01.01 1992/12/18 7:38 1 SBGCSC * FILE 296 //* XEQ 01.01 1982/06/04 12:58 1326 WSER07 * FILE 296 //* * FILE 296 //* Description of Utilities: * FILE 296 //* * FILE 296 //* 01. DSAT- THE DSAT COMMAND IS USED TO DISPLAY * FILE 296 //* ALLOCATION INFORMATION FOR DATA SETS * FILE 296 //* ON A DIRECT ACCESS DEVICE. * FILE 296 //* * FILE 296 //* DSAT WILL SEARCH THE OS CATALOG AND * FILE 296 //* CVOLS FOR THE ENTRIES FOR THE DATA * FILE 296 //* SETS SPECIFIED. ALLOCATION * FILE 296 //* INFORMATION WILL BE OBTAINED FROM THE * FILE 296 //* VOLUME TABLE OF CONTENTS, FORMATTED * FILE 296 //* AND DISPLAYED. IF A NAME IS AN INDEX * FILE 296 //* NAME, ALL DATA SETS BELOW THE INDEX * FILE 296 //* WILL BE DISPLAYED. * FILE 296 //* * FILE 296 //* THE USER MAY BYPASS THE CATALOG * FILE 296 //* SEARCH BY SUPPLYING THE VOLUME SERIAL * FILE 296 //* ON WHICH THE DATA SET RESIDES. THIS * FILE 296 //* OPTION PERMITS DISPLAYING INFORMATION * FILE 296 //* FOR UNCATALOGED DATA SETS. * FILE 296 //* * FILE 296 //* THE ATTRIBUTES TO BE DISPLAYED MAY BE * FILE 296 //* SELECTED BY THE USER WHEN HE ENTERS * FILE 296 //* THE DSAT COMMAND BY SPECIFYING * FILE 296 //* KEYWORD OPERANDS. * FILE 296 //* * FILE 296 //* THE DSAT COMMAND MAY BE USED IN * FILE 296 //* COMMAND PROCEDURES TO FIND THE * FILE 296 //* ALLOCATION OF A DATA SET OR A GROUP * FILE 296 //* OF DATA SETS AND SET THE RETURN CODE * FILE 296 //* TO THE SPECIFIED VALUE. THE RETURN * FILE 296 //* CODE MAY THEN BE TESTED WITH THE WHEN * FILE 296 //* COMMAND. OUTPUT MAY BE SUPPRESSED BY * FILE 296 //* SPECIFYING NOPRINT. * FILE 296 //* * FILE 296 //* THE USER MAY CHOOSE WHAT INFORMATION * FILE 296 //* WILL BE DISPLAYED BY ENTERING * FILE 296 //* KEYWORDS. * FILE 296 //* * FILE 296 //* THE INFORMATION THAT MAY BE DISPLAYED IS: * FILE 296 //* * FILE 296 //* 1. VOLUME SERIAL ON WHICH THE DATA SET IS LOCATED. * FILE 296 //* 2. FILE SEQUENCE NUMBER. * FILE 296 //* 3. DEVICE TYPE CODE FROM CATALOG ENTRY. * FILE 296 //* 4. ALLOCATION (ALLOCATED, USED, AND EXTENTS). * FILE 296 //* 5. SECONDARY ALLOCATION (AMOUNT AND UNITS). * FILE 296 //* 6. DATA SET ORGANIZATION. * FILE 296 //* 7. DCB (RECFM, BLKSIZE, AND LRECL). * FILE 296 //* 8. CREATION DATE. * FILE 296 //* 9. EXPIRATION DATE. * FILE 296 //* 10. FULLY QUALIFIED DATA SET NAME. * FILE 296 //* 11. CCHHR OF THE FORMAT 1 DSCB. * FILE 296 //* 12. GENERATION DATA GROUP DATA. * FILE 296 //* 13. PDS DIRECTORY INFORMATION. * FILE 296 //* * FILE 296 //* 02. DVOL- THE DVOL COMMAND IS USED TO DISPLAY * FILE 296 //* THE AMOUNT OF FREE SPACE ON A DIRECT * FILE 296 //* ACCESS DEVICE. * FILE 296 //* * FILE 296 //* DVOL WILL READ THE FORMAT 4 AND * FILE 296 //* FORMAT 5 DSCB'S FROM THE VTOC OF A * FILE 296 //* DIRECT ACCESS VOLUME AND DISPLAY: * FILE 296 //* * FILE 296 //* DVOL UPDATED 09/97 TO RECOGNIZE DYNAMIC * FILE 296 //* UCB'S. * FILE 296 //* * FILE 296 //* 1. VOLUME SERIAL * FILE 296 //* 2. UNIT ADDRESS * FILE 296 //* 3. MOUNT STATUS * FILE 296 //* 4. USE STATUS * FILE 296 //* 5. NUMBER OF BLANK DSCB'S IN THE VTOC * FILE 296 //* 6. CONDITION OF THE VTOC INDICATORS BYTE * FILE 296 //* 7. VSAM DATA FIELDS * FILE 296 //* 8. TOTAL FREE SPACE IN TRACKS * FILE 296 //* 9. NUMBER OF FREE EXTENTS * FILE 296 //* 10. NUMBER OF FREE CYLINDERS * FILE 296 //* 11. SIZE OF LARGEST EXTENTS (UP TO 5) IN * FILE 296 //* CYLINDERS + TRACKS * FILE 296 //* 12. SIZE OF LARGEST EXTENTS (UP TO 5) IN TRACKS * FILE 296 //* * FILE 296 //* THE RETURN CODE IS SET TO THE TOTAL * FILE 296 //* NUMBER OF TRACKS IN THE LARGEST * FILE 296 //* EXTENTS (UP TO 5) UP TO A MAXIMUM OF * FILE 296 //* 4095. IF THE NUMBER OF FREE TRACKS * FILE 296 //* EXCEEDS 4095, THE RETURN CODE WILL * FILE 296 //* BE SET TO 4095. IF MORE THAN ONE * FILE 296 //* VOLUME IS DISPLAYED, THE RETURN CODE * FILE 296 //* WILL BE REFER TO THE SPACE ON THE * FILE 296 //* LAST VOLUME. IF AN ERROR CONDITION * FILE 296 //* EXISTS ON THE VOLUME, THE RETURN * FILE 296 //* CODE WILL BE SET TO 0. * FILE 296 //* * FILE 296 //* NOTE - IF AN ERROR CONDITION EXISTS * FILE 296 //* ON THE VOLUME, THE RETURN * FILE 296 //* CODE WILL BE SET TO 0. * FILE 296 //* * FILE 296 //* 03. RESET - PERFORMS THE EQUIVALENT OF A DATASET * FILE 296 //* SCRATCH FOLLOWED BY A REALLOCATION * FILE 296 //* IN THE SAME SPACE FOR A PDS. THE * FILE 296 //* NUMBER OF DIRECTORY BLOCKS CAN BE * FILE 296 //* CHANGED VIA THE PROGRAM PARM. * FILE 296 //* * FILE 296 //* 04. BLKDISK - SEE BELOW FOR A COMPLETE DESCRIPTION: * FILE 296 //* * FILE 296 //* DESCRIPTION: THIS PROGRAM COMPUTES AN "OPTIMAL" * FILE 296 //* BLOCKSIZE FOR A DISK OR DRUM DATA SET GIVEN THE * FILE 296 //* LOGICAL RECORD LENGTH. INPUTS INCLUDE THE LRECL * FILE 296 //* AND OPTIONALLY ANY OF THE FOLLOWING: * FILE 296 //* * FILE 296 //* A. A KEY LENGTH (ZERO, FOR NO KEY, IS THE * FILE 296 //* DEFAULT) * FILE 296 //* B. THE NUMBER OF RECORDS IN THE DATA SET (USED * FILE 296 //* FOR AN ALLOCATION COMPUTATION -- 100,000 IS * FILE 296 //* THE DEFAULT) * FILE 296 //* C. THE BLOCKSIZE TO USE FOR THE ALLOCATION * FILE 296 //* COMPUTATION (THE RECOMMENDED BLOCKSIZE VALUE * FILE 296 //* IS THE DEFAULT) * FILE 296 //* D. WHETHER OR NOT TO PROVIDE A TRACK CAPACITY * FILE 296 //* REPORT * FILE 296 //* E. WHETHER OR NOT TO VERIFY RESULTS AGAINST * FILE 296 //* "TRKCALC" * FILE 296 //* * FILE 296 //* SUPPORTED DEVICES: THE NAME BY WHICH THIS COMMAND * FILE 296 //* PROCESSOR IS INVOKED DETERMINES THE DEVICE TYPE * FILE 296 //* TO BE USED. * FILE 296 //* * FILE 296 //* THE FIRST THREE CHARACTERS OF THE COMMAND NAME * FILE 296 //* (USUALLY "BLK") ARE IGNORED; THE REMAINING FOUR * FILE 296 //* OR FIVE CHARACTERS ARE COMPARED AGAINST A TABLE * FILE 296 //* OF SUPPORTED DEVICES IN THE PROGRAM. THE VALID * FILE 296 //* ALIAS NAMES FOR THE PROGRAM INCLUDE THE * FILE 296 //* FOLLOWING: * FILE 296 //* * FILE 296 //* A. BLK23051 (FOR 2305-1 DRUMS) * FILE 296 //* B. BLK23052 (FOR 2305-2 DRUMS) * FILE 296 //* C. BLK2314 (FOR 2314 DISKS) * FILE 296 //* D. BLK3330 (FOR 3330 DISKS) * FILE 296 //* E. BLK33301 (FOR 3330 MODEL 11 DISKS) * FILE 296 //* F. BLK3340 (FOR 3340 DISKS) * FILE 296 //* G. BLK3350 (FOR 3350 DISKS) * FILE 296 //* H. BLK3375 (FOR 3375 DISKS) * FILE 296 //* I. BLK3380 (FOR 3380 DISKS) * FILE 296 //* J. BLK3390 (FOR 3390 DISKS) * FILE 296 //* K. BLK9345 (FOR 9345 DISKS) * FILE 296 //* * FILE 296 //* 05. REVIEW - SEE FILE 134 FOR THE LATEST VERSION OF * FILE 296 //* THIS PROGRAM. * FILE 296 //* * FILE 296 //* 06. HEL - SEE FILE 134 FOR THE LATEST VERSION OF * FILE 296 //* THIS PROGRAM. ON FILE 134, HEL IS NOW AN * FILE 296 //* ALIAS OF REVIEW. * FILE 296 //* * FILE 296 //* 07. XEQ - A COMMAND PROCESSOR THAT IS DESIGNED TO * FILE 296 //* LOAD AND EXECUTE (ATTACH) A PROGRAM IN ONE OF THE * FILE 296 //* SYSTEM LINK LIBRARIES OR A USER LIBRARY (TASKLIB) * FILE 296 //* * FILE 296 //* 08 COMPARE - A SOMEWHAT MODIFIED VERSION OF THE * FILE 296 //* YALE COMPARE PROGRAM * FILE 296 //* * FILE 296 //***FILE 297 is from Michael Cleary and is an ISPF dialog to * FILE 297 //* provide an interactive interface to the GRS (Global * FILE 297 //* Resource Serialization) queue. * FILE 297 //* * FILE 297 //* 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:michael_cleary@yahoo.com * FILE 297 //* http://www.geocities.com/michael_cleary/ * FILE 297 //* * FILE 297 //* Description: * FILE 297 //* GRS ISPF Interface * FILE 297 //* * FILE 297 //* Function: * FILE 297 //* Provides an interactive view of the Global Resource * FILE 297 //* Serialization (GRS) queue. A high level resource * FILE 297 //* list is displayed based on user specified selection * FILE 297 //* criteria. From the high level resource list, * FILE 297 //* individual resource details can be accessed. * FILE 297 //* * FILE 297 //***FILE 298 IS A FROM GTE LABS IN WALTHAM, MASS WHICH CONTAINS * FILE 298 //* THE CODE TO PROVIDED AN EASY FACILITY FOR BACKING UP * FILE 298 //* AND RESTORING INDIVIDUAL MEMBERS OF A PARTITIONED * FILE 298 //* DATASET, USING PANVALET TO MAINTAIN UP TO 99 BACKUP * FILE 298 //* VERSIONS OF EACH MEMBER. * FILE 298 //* * FILE 298 //* PURPOSE * FILE 298 //* ------- * FILE 298 //* THIS SOFTWARE PROVIDES AN EASY FACILITY FOR * FILE 298 //* BACKING UP AND RESTORING INDIVIDUAL MEMBERS OF * FILE 298 //* A PARTITIONED DATASET, USING PANVALET TO * FILE 298 //* MAINTAIN UP TO 99 BACKUP VERSION OF EACH * FILE 298 //* MEMBER. * FILE 298 //* * FILE 298 //* DESCRIPTION * FILE 298 //* ----------- * FILE 298 //* THIS SOFTWARE PROVIDES AN EASY FACILITY FOR * FILE 298 //* THE GTEU APPLICATION AND IS INVOKED BY PUP. * FILE 298 //* THE GTEU APPLICATION IS THE SOFTWARE WHICH * FILE 298 //* USES PANVALET TO KEEP BACKUP COPIES OF * FILE 298 //* MEMBERS OF A PDS. AS MEMBERS ARE ADDED, OR * FILE 298 //* REPLACED, IN A PDS SUCH AS A CLIST LIBRARY, * FILE 298 //* BACKUP COPIES ARE ENTERED IN A PANVALET * FILE 298 //* LIBRARY. UP TO 99 BACKUP COPIES OF EACH * FILE 298 //* MEMBER CAN BE MAINTAINED IN THE PANVALET * FILE 298 //* LIBRARY. ISPF STATISTICS ARE MAINTAINED IN * FILE 298 //* BOTH THE PDS AND THE PANVALET LIBRARY. AT * FILE 298 //* ANY TIME, THE PDS MEMBER CAN BE RESTORED FROM * FILE 298 //* ANY BACK LEVEL. THE GTEU PROGRAMS ALSO CAN * FILE 298 //* BE RUN IN BATCH JOBS WITH JCL. * FILE 298 //* * FILE 298 //* THE PUP COMMAND IS A TSO COMMAND PROCESSOR * FILE 298 //* WHICH IS USED FOR ONLINE ACCESS TO THE GTEU * FILE 298 //* APPLICATION PROGRAMS. PUP CAN BE RUN FROM * FILE 298 //* READY, FROM ISPF, OR FROM A CLIST OR ISPF * FILE 298 //* DIALOG. * FILE 298 //* * FILE 298 //* THE PUP COMMAND HAS THE FOLLOWING SUBCOMMANDS: * FILE 298 //* * FILE 298 //* HELP - EXECUTE THE HELP FACILITY * FILE 298 //* STATS - DISPLAY INFO ABOUT THE PANVALET * FILE 298 //* AND PDS MEMBERS * FILE 298 //* STATUS - SAME AS STATS * FILE 298 //* UPDATE - UPDATE THE PDS MEMBER AND MAKE * FILE 298 //* A BACKUP PANVALET COPY * FILE 298 //* ADD - SAME AS UPDATE * FILE 298 //* CHANGE - SAME AS UPDATE * FILE 298 //* ALIAS - CREATE AN ALIAS ENTRY FOR A * FILE 298 //* MEMBER OF A PDS * FILE 298 //* DELETE - DELETE A PDS MEMBER, OR A * FILE 298 //* PDS ALIAS ENTRY * FILE 298 //* BACKUP - MAKE A BACKUP PANVALET MEMBER * FILE 298 //* FROM A PDS MEMBER * FILE 298 //* RESTORE - COPY A MEMBER FROM THE PANVALET * FILE 298 //* LIBRARY IN TO THE PDS * FILE 298 //* END - TERMINATE THE PUP COMMAND * FILE 298 //* TSTATS - DISPLAY INFO WITH THE PANINDEX * FILE 298 //* AND PDS COMMANDS * FILE 298 //* TSTATUS - SAME AS TSTATS * FILE 298 //* ABEND0C1 - CAUSE A S0C1 ABEND FOR TESTING * FILE 298 //* * FILE 298 //***FILE 299 contains the source for the TAPEMAP program. This * FILE 299 //* version is a compilation of the original code from * FILE 299 //* UCLA (that used to be in File 149) and the modified * FILE 299 //* code that used to be in File 316 from the Air Force, * FILE 299 //* and includes many additional changes from various * FILE 299 //* places. * FILE 299 //* * FILE 299 //* 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 //* 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@attglobal.net * FILE 299 //* sbgolob@cbttape.org * FILE 299 //* sbgolob@aol.com * 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 * FILE 300 //* Office of Personnel Management * FILE 300 //* CIO/WTC - Room BH04 * FILE 300 //* 1900 E Street NW * FILE 300 //* Washington DC 20415-0001 * FILE 300 //* w - 202-606-1261 * FILE 300 //* f - 202-606-2092 * FILE 300 //* jdmarsha@opm.gov * 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 //* RELEASE 27 - 01 MAY 92 * FILE 300 //* (SOME MEMBERS WERE UPDATED LATER - SG 2/99) * FILE 300 //* * FILE 300 //* SUMMARY OF THE MODULES CONTAINED. * FILE 300 //* * FILE 300 //* CP REL DESCRIPTION * FILE 300 //* * FILE 300 //* $#SVCKP 1 - MACRO USED IN SOME OF THE PROGRAMS TO * FILE 300 //* INVOKE SVC TO GET ME BACK TO PROBLEM * FILE 300 //* STATE FROM SUPERVISOR STATE. * FILE 300 //* * FILE 300 //* $#SVCKS 1 - MACRO USED IN SOME OF THE PROGRAMS TO * FILE 300 //* INVOKE SVC TO GET ME TO SUPERVISOR STATE * FILE 300 //* FROM PROBLEM STATE. YOU SHOULD USE YOUR * FILE 300 //* OWN SVC MECHANISM HERE. * FILE 300 //* * FILE 300 //* $DI 6X - OPERATOR LIKE $DI COMMAND. * FILE 300 //* * FILE 300 //* ABEND# 3X - NOT A COMMAND BUT A HELP ENTRY FOR ABEND * FILE 300 //* CODES AND SOME OF THE COMMON REASONS * FILE 300 //* YOU MAY GET THEM. UPDATED FOR MVS. * FILE 300 //* * FILE 300 //* ASK 1Y - CLIST. USE CMD TO ASK A QUESTION AND * FILE 300 //* GET A YES OR NO BACK, THUS SETTING A * FILE 300 //* RETURN CODE. (WAS AROUND IN MY MVT DAYS * FILE 300 //* AND IS OBSOLETE WITH MVS CLIST LANGUAGE) * FILE 300 //* * FILE 300 //* ASMG 1Y - DO ASSEMBLY LANGUAGE COMPILES * FILE 300 //* INTERACTIVELY IN ASSEM-G. IS SIMILIAR * FILE 300 //* TO ONE IN THIS FILE FOR ASSEM-H. BOTH * FILE 300 //* SHOULD WORK FOR OS/MVT AND MVS. * FILE 300 //* * FILE 300 //* ASMH 4X - DO ASSEMBLY LANG COMPILES INTERACTIVELY. * FILE 300 //* CAN GET IBM PROD WHICH IS SUPERIOR. * FILE 300 //* THIS IS FREE. HAVE A 'SYS2.MACLIB' * FILE 300 //* DEFINED IN THIS ONE FOR USERS GENERALLY * FILE 300 //* HAVING USER MACLIB. CHECKED THIS ONE * FILE 300 //* OUT FOR MVS/XA. * FILE 300 //* * FILE 300 //* ASMHNOX 1 - ZAP TO THE IBM P.P. ASSEMBLER H TO FIX A * FILE 300 //* BUG SAYING 'NOXREF' YOU GET 'XREF(FULL)'. * FILE 300 //* PTF LEVEL-21 MADE XREF DEF TO XREF(FULL) * FILE 300 //* AND INTRODUCED THE ERROR DESCRIBED ABOVE. * FILE 300 //* NOTE: ASSEMBLER H IS CLASS C (VERSION 1) * FILE 300 //* * FILE 300 //* ASMF 2 - DO ASSEMBLY LANG COMPILES INTERACTIVE. * FILE 300 //* CAN GET THE IBM PRODUCT WHICH IS * FILE 300 //* SUPERIOR, BUT THIS ONE IS FREE. HAVE A * FILE 300 //* 'SYS2.MACLIB' DEFINED IN THIS ONE FOR * FILE 300 //* USERS GENERALLY HAVING A USER MACLIB. * FILE 300 //* THIS ONE USES THE ASMXF (IFOX00). NOTE * FILE 300 //* THAT SOURCE FOR THIS IS ASMH PROMPTER * FILE 300 //* WITH SOME SYSPARMS CHANGED. * FILE 300 //* * FILE 300 //* CALC 1X - TSO CALCULATOR PGM. HAS 1 ACCUMULATOR * FILE 300 //* AND 9 REGISTERS. CAN DO FUNCTIONS LIKE * FILE 300 //* SIN, COS, ETC, OR YOU CAN DEFINE YOUR * FILE 300 //* OWN. (PLI-OPT) * FILE 300 //* * FILE 300 //* CATPW 1X - BILL GODFREY: DISPLAY PASSWORDS TO YOUR * FILE 300 //* ICF MASTER CATALOG. * FILE 300 //* * FILE 300 //* CDSCB 3 - ZAP FORMAT-1 DSCB OF DATASETS ON THE FLY. * FILE 300 //* USEFUL FOR SYSTEM TYPES !!!! * FILE 300 //* (NOW UPDATED BY BILL GODFREY FOR 21ST * FILE 300 //* CENTURY SUPPORT - SG 9/98. ALSO BY * FILE 300 //* GREG PRICE - 2/99. HELP updated 07/99.) * FILE 300 //* * FILE 300 //* CLRSCRN 1X - CLEAR THE SCREEN ON 3270. * FILE 300 //* * FILE 300 //* CLR2000 1Y - CLEAR SCREEN ON HAZELTINE 2000 TTY TUBE * FILE 300 //* * FILE 300 //* CMDLOFF 1X - PASS A TSO COMMAND TO TSO CP AND WHEN IT * FILE 300 //* COMPLETES THE USER WILL BE LOGGED OFF. * FILE 300 //* INTERESTING IF YOU THINK ABOUT IT !!!! * FILE 300 //* * FILE 300 //* COBOLCHK 3X - AFDSC DEVELOPED CHEAP COBOL PROMPTER. * FILE 300 //* COBOL COMPILES(COBOLVS) INSIDE TSO, ONLY * FILE 300 //* GIVING ERRS AT TERMINAL. USES 'SYNTAX' * FILE 300 //* OPT OF COMPILER AND IS GREAT FOR SLOW * FILE 300 //* SPEED TERMINALS. * FILE 300 //* * FILE 300 //* COB2CHK 2X - VS/COBOL II R3.1 VERSION OF COBOLCHK. * FILE 300 //* * FILE 300 //* COMPARE 3X - COMPARE 2 FILES IN FOREGROUND. BASED ON * FILE 300 //* YALE UNIV COMPARE PGM. OPTIONALLY, YOU * FILE 300 //* CAN ASK FOR IBM'S IEBCOMPR UTILITY PGM * FILE 300 //* INSTEAD. MODIFIED YALE'S COMPARE PGM * FILE 300 //* AND CALLED IT COMPAREB. * FILE 300 //* * FILE 300 //* COMPRESS 2 - COMPRESS A PDS IN FOREGROUND. * FILE 300 //* * FILE 300 //* CONCAT 2X - CONCAT 2-9 FILES TOGETHER. MVS ALLOC * FILE 300 //* CMD CAN DO IT, BUT WE RUN PROGRAM * FILE 300 //* CONTROL FACILITY (PCF). THUS IF THE * FILE 300 //* CUSTOMER FREES A FILE THAT IS SYS1, * FILE 300 //* THEN THEY CANNOT ALLOCATE IT BACK. * FILE 300 //* * FILE 300 //* COPYPDS 4X - COPIES A PDS TO ANOTHER PDS. ALLOWS YOU * FILE 300 //* TO COPY MEMBERS WITH A SELECT STATEMENT * FILE 300 //* AND ALSO SPECIFY THE ALIAS ENTRIES. * FILE 300 //* * FILE 300 //* COPYSDS 3X - COPY ONE SEQUENTIAL DATASET TO ANOTHER * FILE 300 //* SEQUENTIAL DATASET WITH SKIP, MAX NUMBER, * FILE 300 //* ETC, ETC. * FILE 300 //* * FILE 300 //* COUNT 1X - COUNT THE NUMBER OF RECORDS IN A FILE. * FILE 300 //* * FILE 300 //* CPSCB 1 - CHANGE YOUR PROTECTED STEP CONTROL BLOCK * FILE 300 //* (PSCB) ON THE FLY TO GIVE YOURSELF * FILE 300 //* THINGS LIKE MOUNT AUTHORITY ETC. SHOULD * FILE 300 //* PROBABLY RESTRICT THIS TO SYSTEMS ONLY. * FILE 300 //* (Modified by Sam Golob to give TSO * FILE 300 //* CONSOLE authority. 04/05) * FILE 300 //* * FILE 300 //* CVD 1X - BILL GODFREY: CONVERTS HEX NUMBER TO DEC * FILE 300 //* * FILE 300 //* CVX 1X - BILL GODFREY: CONVERTS DEC NUMBER TO HEX * FILE 300 //* * FILE 300 //* DA 4X - DISPLAY ACTIVE COMMAND TO GIVE THE USERS * FILE 300 //* A PICTURE OF THE SYSTEM. THEY LIKE TO * FILE 300 //* SEE HOW MUCH TIME THE JOB HAS !!!! * FILE 300 //* * FILE 300 //* DAJOB 4X - DISPLAY ACTIVE CMD, HAS TSO USERS TOO * FILE 300 //* AND WHAT LOGON PROC THEY USE. * FILE 300 //* * FILE 300 //* DAPF 2X - DISPLAY APF AUTHORIZED LIBRARY LIST USED * FILE 300 //* DURING THIS IPL. PROBABLY WON'T WORK * FILE 300 //* FOR MVS/ESA 4.3 DYNAMIC AUTHORIZATION, * FILE 300 //* BUT WILL WORK UNTIL THEN. * FILE 300 //* * FILE 300 //* DATE 2X - GIVES THE DATE AND TIME FROM THE SYSTEM. * FILE 300 //* * FILE 300 //* DD 4 - SHORT FORM OF ALLOCATE FOR AN EXISTING * FILE 300 //* FILE. IT IS FASTER THAN ALLOCATE. * FILE 300 //* UPDATED TO LET YOU ALLOCATE A NEW FILE * FILE 300 //* ALSO. * FILE 300 //* * FILE 300 //* DECONCAT 2X - REVERSE OF THE CONCAT COMMAND. * FILE 300 //* * FILE 300 //* DELAY 1 - SPECIFY A NUMBER OF SECONDS AND * FILE 300 //* HAVE YOU WAIT THAT LONG. * FILE 300 //* * FILE 300 //* DEX 1 - TSO HEXADECMAL CALCULATOR PROGRAM. * FILE 300 //* * FILE 300 //* DISPLAY 1Y - SHOWS CONTROL BLOCKS LIKE THE UCB ETC. * FILE 300 //* * FILE 300 //* DLINK 2X - DISPLAY LINKLIST CMD TO SHOW LIBRARIES * FILE 300 //* WHICH ARE BEING USED THIS IPL. * FILE 300 //* * FILE 300 //* DLPA 2X - DISPLAY LPA LIST OF LIBRARIES IN EFFECT * FILE 300 //* FOR THIS IPL. * FILE 300 //* * FILE 300 //* DLXAUTHC 1 - THIS CMD IS FROM MIKE LOOS, FAIR, ISAAC * FILE 300 //* AND CO. IT WILL ISSUE THE COMMAND * FILE 300 //* PASSED TO IT AFTER SETTING THE JSCBAUTH * FILE 300 //* BIT ON. WHEN THE COMMAND COMPLETES, THE * FILE 300 //* JSCBAUTH BIT WILL BE SET OFF. THE JSCB * FILE 300 //* TAMPERING IS DONE IN A USER SVC (YOUR * FILE 300 //* OWN). YOU MUST REPLACE THE USERSVC * FILE 300 //* MACRO WITH YOUR OWN INTEGRITY VIOLATION. * FILE 300 //* THIS COMMAND IS ESPECIALLY USEFUL FOR * FILE 300 //* ENTERING RACF COMMANDS FROM ISPF * FILE 300 //* DIALOGS. FOR EXAMPLE: * FILE 300 //* * FILE 300 //* DLXAUTHC LISTDSD DA('DSN1.EXAMPLE') ALL * FILE 300 //* * FILE 300 //* DLVLDSS 2X - DISPLAY DF/DSS LEVEL ON YOUR SYSTEM. * FILE 300 //* * FILE 300 //* DOPROG 1X - GIVES THE USER THE 'CALL' COMMAND * FILE 300 //* FUNCTION BY ATTACHING A PROGRAM. * FILE 300 //* * FILE 300 //* DSNCHECK 1X - GTELABS CMD TO CHECK FOR EXISTENCE OF * FILE 300 //* CATALOGED DSN NAME AND CAN CHECK FOR A * FILE 300 //* MEMBER WITHIN A PDS (SETS &LASTCC FOR * FILE 300 //* CLIST). * FILE 300 //* * FILE 300 //* DSPRIN 1X - DONATION FROM VPS PEOPLE (LRS) OF AN * FILE 300 //* EARLY VERSION OF A CMD THAT TAKES * FILE 300 //* DSPRINT COMMAND ISSUED OUT OF ISPF AND * FILE 300 //* REFORMATS THE COMMAND INTO A 'PRINTOFF'. * FILE 300 //* THIS CAME TO LRS BY WAY OF BILL SMITH, * FILE 300 //* FORMERLY OF SYNTEX. THANKS ALL !!!! * FILE 300 //* * FILE 300 //* DSPRINT 1X - BILL GODFREY: TAKES THE FORMAT OF THE * FILE 300 //* IBM COMMAND AND DOES IT INSTEAD OF * FILE 300 //* REFORMATTING THE COMMAND AND ISSUING * FILE 300 //* A 'PRINTOFF' AS ABOVE. * FILE 300 //* * FILE 300 //* DSMF 2X - OPERATOR-LIKE 'D SMF' COMMAND. * FILE 300 //* * FILE 300 //* DSVC 1X - DISPLAY YOUR SVC LIST IN EFFECT FOR IPL. * FILE 300 //* * FILE 300 //* DUDASD 4X - OPERATOR-LIKE 'D U,DASD' CMD. UPDATED * FILE 300 //* WITH NEW UCB SCAN ROUTINE AND ENHANCED * FILE 300 //* TO SHOW VOLUME STATE, DEVICE TYPE (LIKE * FILE 300 //* 3380), AND WHICH VOLUME IS THE IPL * FILE 300 //* DEVICE. ALSO CLEANED UP CODE, DOCUMENT, * FILE 300 //* ETC. ALSO CHECKS TO SEE IF THE VTOC IS * FILE 300 //* INDEXED OR UNINDEXED, AND IF SHARED. * FILE 300 //* * FILE 300 //* DUDASDR 1Y - OPERATOR-LIKE D U,DASD CMD (OLD VERSION) * FILE 300 //* * FILE 300 //* DUTAPE 3X - OPERATOR-LIKE D U,TAPE CMD. CODED WITH * FILE 300 //* NEW UCB SCAN ROUTINE AND ENHANCED TO SHOW * FILE 300 //* DEVICE TYPE (LIKE 3380). * FILE 300 //* * FILE 300 //* DUSER 1X - SHOW THE USERIDS CURRENTLY LOGGED ON TSO. * FILE 300 //* * FILE 300 //* ECHO 1X - TYPE IN A LINE AND HAVE IT ECHOED BACK TO * FILE 300 //* THE TERMINAL IN HEX. * FILE 300 //* * FILE 300 //* EDAIR30 1 - SUBPROGRAM. AN ENHANCED VERSION OF * FILE 300 //* IKJDAIR FOR ALLOCATING A SYSOUT DATASET. * FILE 300 //* * FILE 300 //* ERROR# 2 - NOT A COMMAND BUT A HELP ENTRY FOR * FILE 300 //* RETURN CODE YOU CAN GET FROM DAIR * FILE 300 //* ALLOCATION. UPDATED FOR MVS. * FILE 300 //* * FILE 300 //* FREEALL 4X - MVS VERSION OF THE FAMOUS 'FREEALL' CMD * FILE 300 //* TO FREE DYNAMICALLY ALLOCATED DATASETS. * FILE 300 //* AFDSC MODIFIED TO FREE ALL DATASETS * FILE 300 //* WHICH: * FILE 300 //* A. HAVE BEEN DYNAMICALLY ALLOCATED. * FILE 300 //* B. ARE NOT CURRENTLY IN USE. * FILE 300 //* C. ARE NOT CURRENTLY OPEN. * FILE 300 //* D. ARE NOT ALLOCATED TO DDNAME=SYSPROC. * FILE 300 //* * FILE 300 //* FINDFILE 1 - DISPLAYS WHERE A DATASET IS CATALOGED * FILE 300 //* AND LISTS ALL MOUNTED DASD ON WHICH THE * FILE 300 //* DATASET RESIDES. NOTE: ON CBT TAPE AS * FILE 300 //* 'LOCDSN'. 'FINDFILE' MORE DESCRIPTIVE. * FILE 300 //* * FILE 300 //* FORTP 2X - DO FORTRAN G1 COMPILES INTERACTIVELY. * FILE 300 //* SEE JCL INSTALL. IT IS SLICK AND NOT * FILE 300 //* JUST A SIMPLE COMPILE, LINKEDIT. NOT * FILE 300 //* COMPLICATED BUT YOU USE THE SAME * FILE 300 //* SOURCE CODE WITH SYSPARM OPTIONS TO * FILE 300 //* COMPILE 2 MODULES. * FILE 300 //* * FILE 300 //* FORTX 1 - FORT X (EXTENDED) COMPILES INTERACTIVELY. * FILE 300 //* IBM'S FORT PRODUCT IS SUPERIOR, BUT THIS * FILE 300 //* IS FREE. * FILE 300 //* * FILE 300 //* GDDM 2X - GDDM PGMS WRITTEN MOSTLY IN FORTRAN. * FILE 300 //* SPACE SHUTTLE, X-29, ETC. WILL WORK WITH * FILE 300 //* OS/360 FORTRAN G ON THE TAPE. FORT-G * FILE 300 //* RUNS ON MVS/XA FINE, AND FOR THOSE WITH * FILE 300 //* NO FORTRAN, IT IS BETTER THAN NOTHING. * FILE 300 //* THE MEMBER HAS '><' IN PLACE OF './' IN * FILE 300 //* THE './ ADD' CARDS. LOOK AT THE MEMBER * FILE 300 //* TO SEE THE SOURCE AND THE SAMPLE JCL. * FILE 300 //* * FILE 300 //* GFREEALL 1 - GOT FROM GTELABS. THEIR VERSION OF * FILE 300 //* SAME CMD CALLED 'FREEALL' THAT IS ON * FILE 300 //* THIS TAPE. * FILE 300 //* * FILE 300 //* GSTREAM 1 - GOT FROM GTELABS. THEIR VERSION OF SAME * FILE 300 //* CMD CALLED 'INSTREAM' THAT IS ON THIS * FILE 300 //* TAPE. * FILE 300 //* * FILE 300 //* GTEMACS 1 - MACROS FROM GTELABS NEEDED FOR TSO CMDS * FILE 300 //* FROM CHUCK HOFFMAN. USE 'PDSLOAD' * FILE 300 //* (IEBUPDTE LIKE PGM) FROM FILE 093 * FILE 300 //* TO DOWNLOAD. OR JUST LOOK AT MACROS. * FILE 300 //* YOU WILL SEE HOW THE MEMBER IS BUILT. * FILE 300 //* MACROS: EQ$R, LINKSAVE, LINKBACK, * FILE 300 //* GTEDAALC, GTEDADAT, GTEDADOC, GTEDASET. * FILE 300 //* * FILE 300 //* IKJEBMA9 3 - EXAMPLE OF MVS EDIT SUB-COMMAND TABLE & * FILE 300 //* WHAT YOU CAN MAKE VALID SUB-COMMANDS. * FILE 300 //* HAS THE AFDSC SUB-COMMANDS OF EDIT IN * FILE 300 //* THE TABLE. * FILE 300 //* * FILE 300 //* IKJCT44B 1X - USED IN TSO CLIST LANGUAGE TO CREATE OWN * FILE 300 //* VARIABLES STARTING WITH "&SYSX.." THANKS, * FILE 300 //* CHICAGO SOFT, IT WAS IN 'TSO TIMES'. * FILE 300 //* * FILE 300 //* IKJEFF10 1 - AFDSC IPO BASED TSO SUBMIT EXIT. * FILE 300 //* THIS IS RELATIVELY SIMPLE. FORCES THE * FILE 300 //* FOLLOWING RESTRICTION ON A TSO USER * FILE 300 //* 1. JOBNAME ON SUBMITTED JOB CARD * FILE 300 //* MUST BE USERID PLUS ONE CHARACTER. * FILE 300 //* 2. PROGRAMMER NAME FIELD (8 OR LESS * FILE 300 //* CHAR) IN UADS MUST MATCH PROGRAMMER * FILE 300 //* NAME (8 OR LESS ON JOB CARD). * FILE 300 //* * FILE 300 //* IKJEFF53 1 - AFDSC IPO BASED TSO 'STATUS/OUTPUT/CANCEL'* FILE 300 //* EXIT. A LOT OF POSSIBILITIES IN CODE. * FILE 300 //* * FILE 300 //* IKJE9CL 1 - 'COLS'. 2ISG DEVELOPED EDIT SUBCMD PRINT * FILE 300 //* COLUMN NUMBERS ON YOUR TERMINAL. LIKE * FILE 300 //* ISPF/PDF OPTION 2 'COLS' CMD. * FILE 300 //* * FILE 300 //* IKJE9CT 1 - 'COUNT'. AFDSC DEVELOPED EDIT SUBCMD. * FILE 300 //* GIVES THE NUMBER OF RECORDS YOU ARE * FILE 300 //* CURRENTLY EDITING. * FILE 300 //* * FILE 300 //* IKJE9CX 1 - 'CHANGEX' AFDSC DEVELOPED SUBCOMMAND OF * FILE 300 //* EDIT. PERFORMS THE SAME FUNCTION AS * FILE 300 //* CHANGE, BUT USES HEX STRINGS. * FILE 300 //* * FILE 300 //* IKJE9DU 1 - 'DUP' AFDSC DEVELOPED EIDT SUBCMD. SAME * FILE 300 //* FUNCTION AS SPF REPEAT BUT ONLY ON 1 LINE * FILE 300 //* CAN REPEAT EXISTING LINE OR MAKE A COPY * FILE 300 //* OF AN EXISTING LINE ELSEWHERE & REPEAT IT.* FILE 300 //* * FILE 300 //* IKJE9FX 1 - 'FINDX'. AFDSC DEVELOPED EDIT SUBCMD. * FILE 300 //* DOES A FIND, SPECIFY A HEX CHAR STRING. * FILE 300 //* * FILE 300 //* IKJE9OF 1 - 'OFFLINE'. AFDSC EDIT SUBCMD TO 'SPINOFF' * FILE 300 //* PRT FILE YOU ARE CURRENTLY EDITING (ARE * FILE 300 //* NOT REQUIRED TO SAVE 1ST). CAN 'DEST' TO * FILE 300 //* RMTS, ETC. SEE THE HELP FOR SPECIFICS. * FILE 300 //* * FILE 300 //* IKJE9LT 1 - 'LISTTABS'. FOUND BY AFDSC. BACK FROM MVT * FILE 300 //* DAYS, CONVERTED BY BOB HANSEN (SEC) FOR * FILE 300 //* MVS. LISTS YOUR CURRENT EDIT TABS FOR YOU * FILE 300 //* * FILE 300 //* IKJE9LX 1 - 'LISTX'. AFDSC DEVELOPED SUBCMD OF * FILE 300 //* EDIT TO DISPLAY TO YOUR TERMINAL, LINES * FILE 300 //* OF A DATASET BEING EDITED IN HEX FORMAT. * FILE 300 //* * FILE 300 //* IKJE9NA 1 - 'NAME'. AFDSC DEVELOPED SUBCMD OF * FILE 300 //* EDIT TO TELL THE NAME OF THE FILE OR * FILE 300 //* MEMBER OF PDS YOU'RE CURRENTLY EDITING. * FILE 300 //* IT'S EMBARASSING IF YOU FORGET. * FILE 300 //* * FILE 300 //* IKJE9PT 1 - 'PUT'. AFDSC DEVELOPED SUBCMD OF EDIT TO * FILE 300 //* PUT CHARACTER STRINGS IN CERTAIN COLUMNS. * FILE 300 //* NICE FOR USERS OF ASYNC TERMINALS * FILE 300 //* WHO DO NOT HAVE SPF. * FILE 300 //* * FILE 300 //* IKJE9SP 1 - 'SPOT'. AFDSC DEVELOPED EDIT SUBCMD, * FILE 300 //* SPOT CHARACTER STRINGS IN DATA. AGAIN * FILE 300 //* NICE FOR ASYNCH TERMINALS WHO DO NOT * FILE 300 //* HAVE SPF. CONTAINS A SELECT & EXCLUDE * FILE 300 //* FUNCTION FOR DELETION OF RECS THAT FIT A * FILE 300 //* PATTERN. SEE THE HELP ENTRY FOR MORE * FILE 300 //* DETAILS. * FILE 300 //* * FILE 300 //* IKJE9SS 2 - 'SAVESHR'. AFDSC DEVELOPED EDIT SUBCMD * FILE 300 //* TO ALLOW SAVE WITH DISP=SHR. EDIT HAS * FILE 300 //* NASTY HABIT OF TRYING TO GET DISP=OLD * FILE 300 //* WHEN YOU SAVE; THUS IF YOU NEED TO SAVE * FILE 300 //* SOMETHING INTO A FILE ALLOCATED ALL THE * FILE 300 //* TIME, TOUGH !!!!! NOTE - APAR AZ57430 * FILE 300 //* APPLIED. * FILE 300 //* * FILE 300 //* IKJT9$ 1 - UPDATE SUBCMD TABLE OF TEST FOR * FILE 300 //* FOLLOWING SUBCMDS: * FILE 300 //* * FILE 300 //* IKJT9FI 1 - 'FIND' SUBCOMMAND OF THE TSO TEST CMD. * FILE 300 //* * FILE 300 //* IKJT9LB 1 - 'LIST BREAKPOINTS' SUBCMD OF TSO TEST CMD * FILE 300 //* * FILE 300 //* IKJT9LI 1 - 'LIST' SUBCMD (2ND LOAD) OF TSO TEST CMD. * FILE 300 //* * FILE 300 //* IKJT9MAC 1 - MACROS NEEDED FOR ABOVE ASSEMBLIES. * FILE 300 //* * FILE 300 //* INFOSYS 2X - TSO CMD, EXECUTE IBM PRODUCT 'INFOSYS'. * FILE 300 //* * FILE 300 //* INMXPARM 2X - SAMPLE OF THE PARMS FOR TSO/E TRANSMIT & * FILE 300 //* RECEIVE. * FILE 300 //* * FILE 300 //* INMXZ02 2X - TSO/E TRANSMIT EXIT, NOTIFYING TSO USERS * FILE 300 //* ON SAME NODE THAT A FILE HAS BEEN SENT * FILE 300 //* TO THEM. GOTTEN FROM TUCC, JES2 MODS TAPE * FILE 300 //* AND MODIFIED BY ME. THANKS TUCC. * FILE 300 //* * FILE 300 //* INSTREAM 1 - AFDSC DEVELOPED CMD TO BE USED IN CLIST * FILE 300 //* PUT CONTROL CARDS INSIDE OF CLISTS. CAN * FILE 300 //* BE USER INPUT FROM THE TERMINAL. NICE. * FILE 300 //* * FILE 300 //* IO (T) - LIST I/O COUNTS FOR EACH FILE IN YOUR * FILE 300 //* TSO SESSION. * FILE 300 //* * FILE 300 //* JCLSCAN 1 - SHMUEL GOLOB SENT THIS TO ME. HE RAN IT * FILE 300 //* ON SP 1.3.5 AND XA 2.2.3 AND LOVES IT FOR * FILE 300 //* DOING A JCL CHECK PRIOR TO SUBMITTING. * FILE 300 //* HAS A PGM AND AN SVC TO INSTALL. TRY IT. * FILE 300 //* * FILE 300 //* JULIAN 1X - RETRIEVE THE DATE AND GREGORIAN DAY * FILE 300 //* FROM THE SYSTEM. ALSO CAN RETURN THE * FILE 300 //* SAME INFO FOR ANY YEAR AND DAY. * FILE 300 //* * FILE 300 //* Modified to accept 4-digit dates, by Steven * FILE 300 //* Peckham - 10/99 * FILE 300 //* * FILE 300 //* KOMM 1X - USED IN CLISTS FOR FORMATTING DISPLAYS IN * FILE 300 //* FULL SCREEN SUPPORT, 3270 TYPE TERMINALS. * FILE 300 //* * FILE 300 //* LASTCC# 1 - NOT A TSO COMMAND, BUT A HELP ENTRY OF * FILE 300 //* LIST OF ERROR CODES THAT CAN OCCUR IN * FILE 300 //* A CMD PROCEDURE (CLIST) INFO WAS COPIED * FILE 300 //* FROM MANUAL GC28-0646, TSO CMD LANG REF. * FILE 300 //* * FILE 300 //* LASTIPL 2X - DISPLAY THE JULIAN, GREGORIAN, AND * FILE 300 //* CALENDAR DATE PLUS THE TIME IN HH.MM THAT * FILE 300 //* YOUR SYSTEM WAS LAST IPL'ED. OPERATORS * FILE 300 //* DO ALWAYS TELL YOU TRUE STORIES ???? * FILE 300 //* * FILE 300 //* LIBCALL 1 - GTELABS CMD TRANSFERS CONTROL TO * FILE 300 //* MODULES WITH A 'CALL' TYPE PARAMTER * FILE 300 //* LIST, WITH A 'STEPLIB' OPTION. LIBCALL * FILE 300 //* ALSO CAN ACCEOT PGM PARMS IN LOWER * FILE 300 //* CASE. * FILE 300 //* * FILE 300 //* LISTAX 1X - SAME AS IBM 'LISTA' CMD BUT GIVES YOU * FILE 300 //* INFO YOU CAN USE, LIKE DDNAME, DISP, ETC * FILE 300 //* ETC. * FILE 300 //* * FILE 300 //* MACROS 1X - MACROS IN THE FILE HAVE BEEN PACKAGED * FILE 300 //* IN THIS MEMBER PRECEDED BY ./ CARDS. * FILE 300 //* * FILE 300 //* PACKAGED MOST OF THE MACROS PRECEDED BY * FILE 300 //* '><' CARDS INSTEAD OF './'. USE * FILE 300 //* 'PDSLOAD' TO LOAD. SEE INSTALL * FILE 300 //* JOBSTREAM AND YOU WILL SEE HOW. DID IT * FILE 300 //* LIKE THIS FOR MACROS SO JUST DO A * FILE 300 //* PDSLOAD (LIKE IEBUPDTE) TO RUN THEM * FILE 300 //* INTO A TEMP PDS FOR YOUR ASSEMBLY. * FILE 300 //* * FILE 300 //* A-B C D-E F-Z * FILE 300 //* 12345678 12345678 12345678 12345678 * FILE 300 //* $#SVCKP CPDATA DO08BLD GNRLFAIL * FILE 300 //* $#SVCKS CPEND DCS JVDENTER * FILE 300 //* $EPILOG CPENTER DCSPARS JVDEQU * FILE 300 //* $PROLOG CPENTRY EQUENT JVDLEAVE * FILE 300 //* CPEXIT EQUEXT MSGLPA * FILE 300 //* CPINIT EQUREG REGEQU * FILE 300 //* CVDT EQUREGS REGS * FILE 300 //* CVRT TMPMAC * FILE 300 //* * FILE 300 //* LISTCDS 2Y - LIST THE SMP4 CDS FILE (SYS1.SMPCDS). * FILE 300 //* * FILE 300 //* LISTLPA 1Y - LIST ATTRIBUTES OF MEMBERS OF LPALIB. * FILE 300 //* * FILE 300 //* LISTSPC 3X - LIST SPACE ATTRIBUTES OF A FILE ON DASD. * FILE 300 //* * FILE 300 //* LISTSU 1X - WORTHLESS CMD, LIST THE SU NUMBERS YOU * FILE 300 //* HAVE INSTALLED ON YOUR SYSTEM. * FILE 300 //* * FILE 300 //* LM 1 - LIST MEMBER NAMES OF A DIRECTORY OF PDS. * FILE 300 //* * FILE 300 //* LOGOBSC 1 - EXAMPLE OF VTAM LOGO SCREEN FOR * FILE 300 //* ACF/VTAM TO IMPRESS MGMT. PUT A LOT * FILE 300 //* OF COMMENTS AS TO HOW TO CODE BSC LOGO * FILE 300 //* SCREEN. BOOKS ARE NOT VERY CLEAR. * FILE 300 //* MADE MINE SO ANYONE COULD FILL IN A * FILE 300 //* PREDEFINED BOX AND USE MY CODE. * FILE 300 //* * FILE 300 //* LOGOSNA 1 - EXAMPLE OF VTAM LOGO SCREEN FOR * FILE 300 //* ACF/VTAM TO IMPRESS MGMT. PUT A LOT * FILE 300 //* OF COMMENTS AS TO HOW TO CODE SNA LOGO * FILE 300 //* SCREEN. BOOKS ARE NOT TOO BAD. MADE * FILE 300 //* MINE SO ANYONE COULD FILL IN A * FILE 300 //* PREDEFINED BOX AND USE MY CODE. * FILE 300 //* * FILE 300 //* LPSCB 1X - LIST PSCB (PROTECTED STEP CONTROL BLK). * FILE 300 //* (Modified by Sam Golob to more accurately * FILE 300 //* reflect macro IKJPSCB at z/OS 1.6.) * FILE 300 //* * FILE 300 //* MEMBER 3X - SCAN A LIBRARY FOR A MEMBER. CAN BE * FILE 300 //* USED TO RUN THE LINK LIST FOR FIRST * FILE 300 //* OCCURRENCE OF THAT MEMBER, WILL ALSO * FILE 300 //* DISPLAY LKED ATTRIBUTES, CSECT, IDR * FILE 300 //* DATA, LINKLIST LIB NUMBER. SHOWS SPF * FILE 300 //* STATS FOR SOURCE DATA. * FILE 300 //* * FILE 300 //* MURPHY 4X - GET A THOUGHT FOR THE DAY. MUCH THANKS * FILE 300 //* TO PAUL BANKS, ALLERGAN PHARMACEUTICALS * FILE 300 //* IN IRVINE, CA FOR THE IDEA. THIS VERSION * FILE 300 //* IS FROM ART TANSKY OF SUNGARD IN VOORHEES * FILE 300 //* NEW JERSEY, AND WAS REVISED CONSIDERABLY. * FILE 300 //* * FILE 300 //* MURPHYO 3X - OLD VERSION OF MURPHY. THIS IS FROM * FILE 300 //* PAUL BANKS, FORMERLY OF ALLERGAN * FILE 300 //* PHARMACEUTICALS IN IRVINE, CALIFORNIA. * FILE 300 //* I HAVE ADDED SOME 'THOUGHTS'. * FILE 300 //* * FILE 300 //* NEWSPACE 1 - GTELABS CMD FOR EASILY CREATING NEW, * FILE 300 //* MODERATELY SIZED DATASETS & LIBS. * FILE 300 //* WRITTEN WITH BEGINNERS IN MIND. * FILE 300 //* EXECUTED FROM ISPF/PDF CMD LINE FOR * FILE 300 //* A FILE YOU SUDDENLY NEED. * FILE 300 //* * FILE 300 //* NEWISPF 1 - FOUND TSO CMD ON MODS TAPE USED WITH * FILE 300 //* NEW ISPF/PDF PRODUCT TO GET YOU INTO * FILE 300 //* THE PDF WITH THE CLIST. BUT IT USED * FILE 300 //* THE USER'S PREFIX INSTEAD OF THE USERID. * FILE 300 //* MADE SOME MINOR CHANGES TO IT AND * FILE 300 //* CHANGED NAME FROM 'PDF' TO 'NEWISPF'. * FILE 300 //* * FILE 300 //* OPERA 1Y - ALLOWS CONSOLE COMMANDS (EXCEPT JES2) * FILE 300 //* TO BE ENTERED FROM YOUR TSO TERMINAL. * FILE 300 //* USER MUST HAVE OPERATOR AUTHORITY. * FILE 300 //* * FILE 300 //* OUTPRINT 1Y - PRINTS A DATASET CREATED BY THE TSO * FILE 300 //* 'OUTPUT' CMD, BUT YOU WILL GET PROPER * FILE 300 //* CARRIAGE CONTROL. SEE DOCUMENTATION * FILE 300 //* IN THE CODE FOR ALL THE FINE POINTS. * FILE 300 //* * FILE 300 //* PLIF TY - PL/1 F LEVEL PROMPTER. HAVE NOT TRIED * FILE 300 //* IT BECAUSE WE DO NOT RUN PL/1 F. SO * FILE 300 //* YOU ARE ON YOUR OWN. * FILE 300 //* * FILE 300 //* POF 3 - TSO CMD TO LET YOU DO VTAM COMMANDS FROM * FILE 300 //* YOUR TSO TERMINAL. BRIAN SCOTT, US POST * FILE 300 //* SERVICE, TOPEKA, KS. SENT ME THIS ONE. * FILE 300 //* VERY EASY TO INSTALL. SEE CODE FOR SOME * FILE 300 //* AUTHORITY CHECKING AND PASSWORD FOR THE * FILE 300 //* VTAM ACB. HE GOT FROM FEDERAL EXPRESS. * FILE 300 //* * FILE 300 //* PPXIT 1Y - TEST YOUR PREPROMPT EXIT (IKJEFLD) WITH * FILE 300 //* THIS ROUTINE LOGON JUST AS IF YOU WOULD * FILE 300 //* LOGON ORDINARILY, EXCEPT INSTEAD OF * FILE 300 //* 'LOGON USER' YOU SAY 'PPXIT USER'. IT * FILE 300 //* WILL GIVE YOU ALL THE MSGS AND IF YOU * FILE 300 //* ABEND, AUTOMATICALLY GO INTO TEST FOR * FILE 300 //* DEBUGGING. SEE COMMENTS IN CODE. * FILE 300 //* * FILE 300 //* PRINTOFF 3X - AFDSC MODIFIED CMD. HAS 'ASA' ADDED TO * FILE 300 //* ALLOW PRTER TO USE 'ASA' CARRIAGE * FILE 300 //* CONTROL EVEN IF IT WAS NOT IN THE DCB OF * FILE 300 //* THE FILE TO BE PRINTED, HAS THE 'GTE' * FILE 300 //* MODS FOR FCB SUPPORT, ETC. CORRECTED 7 * FILE 300 //* CHAR DEST CODE LIMIT. FIXED THE * FILE 300 //* LIMITATION OF ONLY HAVING 7 CHARACTER * FILE 300 //* DESTID'S FOR JES2. NOT COOL, BOOK SAYS * FILE 300 //* YOU CAN HAVE 8 CHARACTERS. * FILE 300 //* * FILE 300 //* PUNCH 1 - PUNCH A CARD DECK. HAS THE OPTION TO * FILE 300 //* HOLD THE OUTPUT FOR REVIEW BEFORE YOU * FILE 300 //* LET IT GO TO BE PUNCHED. * FILE 300 //* * FILE 300 //* QCB 1Y - REPLACEMENT FOR WHOHAS CMD. MORE * FILE 300 //* POWERFUL MAY NEED TO BE REWORKED FOR * FILE 300 //* MVS/SP1.3. * FILE 300 //* * FILE 300 //* QLIST 1X - AFDSC DEVELOPED COMMAND TO DO MOST OF * FILE 300 //* ALL THE IBM TSO DATA UTIL 'LIST' DOES * FILE 300 //* BUT IN SOME AREAS IT IS FASTER & MORE * FILE 300 //* EFFICIENT. * FILE 300 //* * FILE 300 //* RACFALT 1Y - THIS PROGRAM FROM MIKE LOOS, FAIR, ISAAC * FILE 300 //* AND CO. IT WILL GENERATE A CLIST TO * FILE 300 //* CHANGE THE VOLUME SERIAL NUMBERS IN RACF * FILE 300 //* PROFILES OF ALL NONVSAM DATASETS ON A * FILE 300 //* SPECIFIC VOLUME. * FILE 300 //* * FILE 300 //* RACFCLST 1Y - PROGRAM IS FROM MIKE LOOS, FAIR, ISAAC * FILE 300 //* AND CO. IT WILL GENERATE A CLIST TO * FILE 300 //* REDEFINE (VIA RACF CMDS DELSD, ADDSD, * FILE 300 //* AND PERMIT) FOR ALL DATASETS ON A * FILE 300 //* SPECIFIED VOLUME. DUE TO USE OF RACF * FILE 300 //* INTERNAL MACROS THIS PROGRAM MUST BE * FILE 300 //* RUN AUTHORIZED. IF SYSIN IS PRESENT, * FILE 300 //* YOU CAN INCLUDE CMDS TO SELECT BY DSN * FILE 300 //* GROUP ON A VOLUME AND/OR DATASET NAME * FILE 300 //* WITH OR WITHOUT VOLUME SPECIFICATION. * FILE 300 //* WARNING: IF SYSIN IS PRESENT AND * FILE 300 //* DUMMIED OUT OR EMPTY THEN A NULL CLIST * FILE 300 //* WILL BE CREATED. * FILE 300 //* * FILE 300 //* REVIEW 6Y - FULL SCREEN BROWSE, 3270 TYPE * FILE 300 //* TERMINALS. RESEMBLANCE TO ISPF BROWSE * FILE 300 //* IS PURELY A CHANCE OF FATE. ARE SOME * FILE 300 //* BUGS IF YOU TRY TO BROWSE SMF FILES * FILE 300 //* (VARIABLE LENGTH RECS) BUT SHOULD BE * FILE 300 //* FINE FOR SANE THINGS LIKE PDS'S AND * FILE 300 //* SOURCE. SMF CODE HAS BEEN EXPANDED * FILE 300 //* AND 'FINDSMF' SUBCMD ADDED. * FILE 300 //* (THIS ONE IS OLD - USE "REVIEW" FROM FILE 134.) * FILE 300 //* * FILE 300 //* REVSMF 1Y - SUBROUTINE NEEDED BY REVIEW WHEN * FILE 300 //* LOOKING AT SMFDATA. * FILE 300 //* (THIS ONE IS OLD - USE "REVSMF" FROM FILE 134.) * FILE 300 //* * FILE 300 //* RLSE 3 - AFDSC MODIFIED CMD. RELEASE SPACE OUT * FILE 300 //* OF A PDS OR SEQ FILE. PREVIOUS VERSIONS * FILE 300 //* RELEASED ALL THE SPACE. OURS WILL ALLOW * FILE 300 //* YOU TO RELEASE DOWN TO PRIMARY EXTENT OR * FILE 300 //* OR SPECIFY THE AMOUNT TO BE RELEASED. * FILE 300 //* * FILE 300 //* SAFECOPY 1 - GTELABS COPY CMD, ENABLES SEVERAL USERS * FILE 300 //* TO UPDATE SAME DSN SIMULTANEOUSLY, * FILE 300 //* WITHOUT CONFLICT WITH EACH OTHER OR WITH * FILE 300 //* USERS WHO ARE READING DSN. SAFECOPY IS * FILE 300 //* USEFUL IN CLISTS THAT WRITE TO A COMMON * FILE 300 //* DSN. * FILE 300 //* * FILE 300 //* SCRATCH TY - SCRATCH A DSN AND NOT GO THROUGH CATALOG. * FILE 300 //* * FILE 300 //* SHELP 1X - OBTAIN SUB-COMMAND HELPS FOR CMDS WITHOUT * FILE 300 //* ACTUALLY BEING IN THAT COMMAND. * FILE 300 //* * FILE 300 //* SHOWDS 4X - BILL GODFREY: DISPLAYS THE DATASET * FILE 300 //* ATTRIBUTES AND SPACE ALLOCATION. * FILE 300 //* * FILE 300 //* SHOWSPC 1X - SHOW THE SPACE ALLOCATION FOR DATASETS * FILE 300 //* ON A DISK. CAN MASK FOR THE NAMES. * FILE 300 //* LOOK AT IT FOR ALL CAPABILITIES. * FILE 300 //* * FILE 300 //* SHOWSS 2X - DISPLAYS SUBSYSTEM VECTOR TABLE AND SEE * FILE 300 //* SUBSYSTEMS CURRENTLY ACTIVE. OPTIONALLY * FILE 300 //* CAN RESET THE ADDRESS TO ZEROES IN CASE * FILE 300 //* SUBSYSTEM HAS ABENDED AND HAS NOT RESET * FILE 300 //* ADDRESS TO ZEROES. IF ZERO CAPABILITY * FILE 300 //* IS USED THEN YOU MUST BE AUTHORIZED. * FILE 300 //* * FILE 300 //* SOLICIT 1 - MAKE YOUR 3270 TYPE TERMINAL LOOK LIKE * FILE 300 //* IT WAS LOGGED OFF AND BACK TO 'NETSOL'. * FILE 300 //* THINK OF YOUR OWN USES FOR THIS ONE. * FILE 300 //* * FILE 300 //* SORTLNK 1X - FRONT-END FOR SORT FROM TSO. KEEPS FROM * FILE 300 //* GIVING SECURITY ACCESS FOR TSO CALL IF * FILE 300 //* SORT IS IN THE LINKLIST. * FILE 300 //* * FILE 300 //* SPFCOPY 1X - INVOKER OF IEBCOPY INTERACTIVELY UNDER * FILE 300 //* 'ISPF' MENU 3.1 IEBCOPY MUST BE * FILE 300 //* AUTHORIZED AND SPF IS NOT. (PROBLEMS) * FILE 300 //* THIS GIZMO GETS THE AUTHORIZATION THRU * FILE 300 //* THE SPFSVC. * FILE 300 //* * FILE 300 //* SPFSVC 1 - SVC TO ALLOW ISPF/PDF MENU 3.1 COMPRESS. * FILE 300 //* * FILE 300 //* SPZAP 1 - TSO CP TO INVOKE 'AMASPZAP' * FILE 300 //* * FILE 300 //* SUBMITX 2Y - SUB FROM TSO JOB TO SECONDARY JES2. * FILE 300 //* IBM SAYS YOU CAN'T DO IT. BILL * FILE 300 //* GODFREY, PRC CORP HAS IT WORKING. * FILE 300 //* INCLUDED IN THIS CMD ARE ALIASES OF * FILE 300 //* OUTPUTX, STATUSX, AND CANCELX. READ * FILE 300 //* COMMENTS IN THE BEGINNING OF CODE FOR * FILE 300 //* SOME POINTS OF INTEREST. SEE SRC FILE * FILE 300 //* FOR MEMBER JESXRDR FOR SUBMITING FROM * FILE 300 //* AN INTRDR TO A SECONDARY JES2. ALL * FILE 300 //* NEEDS SOME REFINEMENT BUT IT WORKS SO * FILE 300 //* FAR. IN MVS/XA THIS PROBABLY DOES NOT * FILE 300 //* WORK. * FILE 300 //* * FILE 300 //* SYSDSN 1 - GTELABS CMD LIST NAMES OF EVERYONE * FILE 300 //* WHO HAS A DSN ALLOCATED, OR IS WAITING * FILE 300 //* FOR ALLOC. VERY USEFUL AFTER 'DATASET * FILE 300 //* IN USE' AND 'WAITING FOR DATASETS' MSGS. * FILE 300 //* * FILE 300 //* SYSID 1X - GETS MVS CONTROL BLK INTO ISPF VARIABLE, * FILE 300 //* CAN BE USED IN ISPF DIALOG. DONE IN ALC. * FILE 300 //* IS CODED 'REENTRANT'! YOU WILL SEE HOW. * FILE 300 //* * FILE 300 //* SYSOUT99 1 - SUBPROGRAM. ALLOCATES A SYSOUT DATASET. * FILE 300 //* * FILE 300 //* SYSTEM 3X - DISPLAY THE SYSTEM RELEASE, CPU ID, * FILE 300 //* MAIN STORAGE AMOUNT ONLINE & SYSTEM * FILE 300 //* IPL'D & IF RUNNING AS VM GUEST. * FILE 300 //* * FILE 300 //* S99DAIR 1 - SUBPROGRAM. ENHANCED VERSION OF IKJDAIR * FILE 300 //* FOR ALLOCATING '0008' (DSNAME), * FILE 300 //* '001C' (TERMINAL), AND '0030' (SYSOUT). * FILE 300 //* * FILE 300 //* TPRINT 1Y - DISPLAYS A MSG FROM A CLIST AT A * FILE 300 //* TERMINAL. OBSOLETE IN MVS TSO BUT * FILE 300 //* WORKS AND IS FAST. * FILE 300 //* * FILE 300 //* TO 1X - SHORTHAND FOR DOING TSO SEND CMD. DON'T * FILE 300 //* HAVE TO WORRY ABOUT QUOTES. EX AS * FILE 300 //* FOLLOWS: * FILE 300 //* TO TSOUSER WE AIN'T DUMMIES, LET'S QUIT * FILE 300 //* * FILE 300 //* TSOEXEC 1 - USE THIS RYO VERSION OF TSOEXEC IF YOU DO * FILE 300 //* NOT HAVE TSO/E R2. THANKS TO PAUL BANKS, * FILE 300 //* ALLERGAN PHARMACEUTICALS IN IRVINE, CA * FILE 300 //* * FILE 300 //* UADS 1 - LIST A UADS ENTRY LEAVING OUT PASSWORD. * FILE 300 //* GOOD FOR TECH SUPPORT PEOPLE. * FILE 300 //* NOTE: MUST BE ABLE TO HAVE * FILE 300 //* 'SYS1.UADS' ALLOCATION PRIVILEGES THOUGH. * FILE 300 //* * FILE 300 //* UADS@ 1 - MACRO NEEDED FOR ASSEMBLY OF UADS. * FILE 300 //* * FILE 300 //* UCBSCAN 2X - NEAT CODE LOOKING AT MVS/XA UCB, GOOD * FILE 300 //* EXAMPLES HOW TO LOOK AT UCB/CHPIDS/PATHS * FILE 300 //* AND OTHER GOOD THINGS. CAME FROM MARK * FILE 300 //* V. HEDGES. * FILE 300 //* * FILE 300 //* UNITS 1 - TSO CMD SHOWS UNIT NAMES IN DEVICE NAME * FILE 300 //* TABLE, CHANNEL-UNIT-ADDR ASSOCIATED WITH * FILE 300 //* EACH UNIT NAME. LOOK IN THE CODE FOR SOME * FILE 300 //* AUTH CHECKING AND DISABLE IN YOUR SHOP. * FILE 300 //* (MVS/XA, MVS/ESA 3 VERSION FROM MORRIS KARLIN) * FILE 300 //* * FILE 300 //* (THERE ARE SEVERAL VERSIONS OF THE UNITS COMMAND HERE. * FILE 300 //* UNITSOLD IS FOR MVS/370 SYSTEMS. UNITS IS FOR XA * FILE 300 //* THRU ESA 4 WITHOUT DYNAMIC UCB'S. UNITS4 IS FOR * FILE 300 //* ESA 4.1 AND ABOVE WITH DYNAMIC UCB SUPPORT. UNITS5 * FILE 300 //* IS FOR ESA 5.1 AND ABOVE WITH 4-DIGIT DEVICE NUMBER * FILE 300 //* SUPPORT.) (UNITS4 AND UNITS5 FROM STEVE SMITH.) * FILE 300 //* * FILE 300 //* VSFORT 1X - VS/FORTRAN PROMPTER FROM JOHN SILL OF * FILE 300 //* 'CHICAGO BRIDGE & IRON' (HE IS NOT IN * FILE 300 //* CHICAGO, DOESN'T BUILD BRIDGES, AND DON'T * FILE 300 //* WORK WITH IRON). THANKS JOHN !!!!!!!!!! * FILE 300 //* * FILE 300 //* VTOC 1 - ONE OF THE SLICKEST CMDS FOR FINDING OUT * FILE 300 //* WHAT IS ON A DISK. LOOK AT THE HELP FOR * FILE 300 //* THE COMPLETE INFORMATION. * FILE 300 //* * FILE 300 //* WHATIF 2 - ALLOWS CONDITIONAL EXECUTION OF * FILE 300 //* TSOCMD FROM A CLIST BASED ON ANY OF * FILE 300 //* THE COMBINATIONS: * FILE 300 //* 1. WHETHER A FILE IS ALLOCATED. * FILE 300 //* 2. WHETHER A FILE IS ALLOCATED TO A * FILE 300 //* SPECIFIC FILE NAME * FILE 300 //* 3. WHETHER A FILE IS CATALOGED. * FILE 300 //* 4. WHETHER TWO STRINGS BEAR A SPECIFIED * FILE 300 //* RELATION TO EACH OTHER. * FILE 300 //* * FILE 300 //* WHOHAS 2Y - AFDSC MODIFIED AND CORRECTED. * FILE 300 //* DISCOVERED BUG, DID NOT SHOW THE ENQ * FILE 300 //* CHAIN PROPERLY. IT STOPPED AFTER THE * FILE 300 //* 1ST OCCURENCE OF DISP=OLD. WILL SHOW * FILE 300 //* 'WHOHAS' FILE ALLOCATED & THE ENQ CHAIN. * FILE 300 //* * FILE 300 //* WTC 2X - EVER SEND MSG TO OPERATOR WITH SEND AND * FILE 300 //* THEY CLAIM IT NEVER CAME (ROLLED OFF * FILE 300 //* THE SCREEN). NOW SEND THE MSG AND RING * FILE 300 //* THE CONSOLE ALARM, HIGHLIGHT THE MSG, * FILE 300 //* AND MAKE IT NON-ROLLABLE !!!!!!!!! * FILE 300 //* * FILE 300 //***FILE 301 is from Mike Cleary of AmerisourceBergen 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 //* Mainframe Technical Services * FILE 301 //* AmerisourceBergen * FILE 301 //* 4000 Metropolitan Drive * FILE 301 //* Orange, California 92868 * FILE 301 //* United States of America * FILE 301 //* 714.385.4052 (voice) * FILE 301 //* 714.385.8888 (fax) * FILE 301 //* mailto:michael_cleary@yahoo.com * FILE 301 //* http://www.geocities.com/michael_cleary/ * FILE 301 //* * FILE 301 //***FILE 302 is from Michael Cleary and contains a program to * FILE 302 //* show a lot of information about LPA-loaded programs * FILE 302 //* and Link List programs. * FILE 302 //* * FILE 302 //* Description: LPALNK ISPF Interface * FILE 302 //* * FILE 302 //* Function: Provides interactive analysis of the * FILE 302 //* Link Pack Area (LPA), Link Pack Area * FILE 302 //* Library List (LPALST), Link Library List * FILE 302 //* (LNKLST). Major functions include * FILE 302 //* Dataset Attributes, Modules, Duplicate * FILE 302 //* Modules and Products. * FILE 302 //* * FILE 302 //* Contact: Michael J. Cleary * FILE 302 //* Mainframe Technical Services * FILE 302 //* AmerisourceBergen * FILE 302 //* 4000 Metropolitan Drive * FILE 302 //* Orange, California 92868 * FILE 302 //* United States of America * FILE 302 //* 714.385.4052 (voice) * FILE 302 //* 714.385.8888 (fax) * FILE 302 //* mailto:michael_cleary@yahoo.com * FILE 302 //* http://www.geocities.com/michael_cleary/ * 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 of Kaiser Permanente in Walnut * FILE 312 //* Creek, California, and contains quite a few * FILE 312 //* ISPF interface packages, and other stuff. * FILE 312 //* * FILE 312 //* 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 //* Lionel Dyck's large collection of utilities has now been * FILE 312 //* divided between Files 312, 313, and 314. All member names * FILE 312 //* beginning with A-R are on File 312. Names beginning with * FILE 312 //* S-TS are on File 313. Names from TX-Z are on File 314. * FILE 312 //* * FILE 312 //* These three 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 //* DSN=CBT471.FILE312 (fairly up to date for Version 471) * FILE 312 //* * FILE 312 //* NAME VER.MOD LAST MODIFIED SIZE ID * FILE 312 //* $$$#DATE 04.71 2006/02/07 8:08 12 CBT-471 * FILE 312 //* $DOC 01.02 2001/06/05 14:09 17 WSBG * FILE 312 //* @FILE312 04.71 2006/02/07 8:08 275 CBT-471 * FILE 312 //* ALLOCGDG 01.00 2003/02/05 14:04 138 SYSLBD * FILE 312 //* CAVXTR$ 01.21 2003/06/02 8:27 77 SYSLBD * FILE 312 //* CAVXTR$$ 01.21 2003/09/09 8:17 77 SYSLBD * FILE 312 //* CAVXTR# 01.21 2003/09/11 8:45 4531 PDF * FILE 312 //* CAVXTR@ 01.21 2003/09/11 8:45 2042 MSWORD * FILE 312 //* CAVXTRT 01.21 2003/09/11 8:45 2626 SYSLBD * FILE 312 //* CMDS 01.00 2000/02/16 16:27 588 SYSLBD * FILE 312 //* CMT 03.00 2006/02/07 8:06 2072 SYSLBD * 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 //* CSVEDIT 01.09 2001/09/10 18:02 489 SYSLBD * FILE 312 //* CSVEDIT# 01.09 2001/09/10 18:02 2455 PDF * FILE 312 //* CSVEDIT@ 01.09 2001/09/10 18:02 5108 WORD97 * FILE 312 //* CUTPASTE 01.00 1999/07/06 18:40 1326 SYSLBD * FILE 312 //* DDLIST 01.00 2003/09/30 9:33 1607 SYSLBD * FILE 312 //* DDLIST$ 01.01 2003/09/29 7:29 6 SYSLBD * FILE 312 //* DOALL 01.00 2000/03/23 19:25 60 SBGOLOB * FILE 312 //* DSLIST 01.00 2000/02/15 21:40 106 SBGOLOB * FILE 312 //* DUMPMGMT 01.00 2001/09/25 16:49 1369 SYSLBD * FILE 312 //* FASTPATH 01.01 2003/05/21 0:26 1477 SYSLBD * FILE 312 //* FIXBOOKP 01.00 2000/05/05 12:18 138 WSBG * FILE 312 //* FTPB 02.16 2005/05/06 9:38 5228 SYSLBD * FILE 312 //* FTPB$CHG 02.16 2005/05/06 9:36 118 SBGOLOB * FILE 312 //* FTPB# ATTR02.16 2004/04/21 7:46 2537 PDF * FILE 312 //* FTPB@ ATTR02.16 2004/04/21 7:46 743 MSWORD * FILE 312 //* FTPFROMZ 01.00 2004/05/23 8:07 1131 SYSLBD * FILE 312 //* FTPFROZC 01.00 2004/05/23 8: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 //* ISPFCMDS 01.01 2003/05/23 11:13 388 SYSLBD * 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.00 2004/06/21 10:53 299 SYSLBD * FILE 312 //* LOGIT 00.05 2004/04/21 8:00 458 SYSLBD * FILE 312 //* LOGIT$ 00.05 2004/04/05 11:18 84 SYSLBD * FILE 312 //* LOGITCHG 00.05 2004/04/12 7:04 22 SYSLBD * FILE 312 //* LSTPRC 01.04 2003/09/30 9:26 598 SBGOLOB * FILE 312 //* LSTPRC$ 01.01 2000/06/16 16:35 19 WSBG * FILE 312 //* LSTPRCO 01.02 2002/08/19 11:04 374 SBGOLOB * FILE 312 //* LSTPROC 01.03 2003/09/30 9:18 598 SYSLBD * FILE 312 //* LSTPROC$ 01.01 2002/08/19 11:07 5 SBGOLOB * FILE 312 //* LSTPROC@ 01.00 2000/10/25 10:36 29 WSBG * FILE 312 //* LSTPROCO 01.01 2002/08/19 10:56 374 SYSLBD * FILE 312 //* ONCALL 01.00 2003/12/11 8:04 625 SYSLBD * FILE 312 //* ONCALL# 01.00 2003/12/02 18:23 11 SYSLBD * FILE 312 //* PLP#I126 01.26 2003/10/08 10:35 1770 PDF * FILE 312 //* PLP@I126 01.26 2003/10/08 10:36 436 MSWORD * FILE 312 //* PLPISPF 01.26 2004/03/09 11:20 3649 SYSLBD * FILE 312 //* PLPISPF$ 01.26 2003/10/03 9:03 114 SYSLBD * FILE 312 //* PLPISPF# 01.26 2003/10/08 10:36 3369 PDF * FILE 312 //* PLPISPF@ 01.26 2003/10/08 10:36 1172 MSWORD * FILE 312 //* PRINT 01.00 1999/07/02 19:03 946 SYSLBD * FILE 312 //* PRMCK 01.07 2004/04/11 12:25 1201 SYSLBD * FILE 312 //* PRMCK$ 01.07 2004/03/29 10:58 41 SYSLBD * FILE 312 //* PRMCK# 01.00 1999/11/11 11:32 9 SYSLBD * FILE 312 //* RECEIVE 01.00 1999/07/02 9:29 21 SYSLBD * FILE 312 //* REXXDOC 01.00 2001/01/05 11:31 265 SYSLBD * 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 //* RNEWS 01.00 2002/01/11 13:47 3468 SBGOLOB * FILE 312 //* * FILE 312 //* Member $DOC - basic information * FILE 312 //* XMITIP# - install instructions for XMITIP * FILE 312 //* * FILE 312 //* --------------------------------------------------------------- * FILE 312 //* * FILE 312 //* Member CUTPASTE - This member is in TSO XMIT format. * FILE 312 //* * FILE 312 //* This member contains 2 REXX execs, CUT and PASTE, * FILE 312 //* with ISPF panels that go together with them. * FILE 312 //* * FILE 312 //* Member FTPB - This member is in TSO XMIT format. * FILE 312 //* * FILE 312 //* FTPB - The File Transfer Protocol Batch ISPF Dialog * FILE 312 //* * FILE 312 //* This ISPF dialog provides a simple to use ISPF interface * FILE 312 //* for using the TCP/IP FTP function to transfer data sets * FILE 312 //* from the current MVS host system to other host systems * FILE 312 //* that support a TCP/IP FTP Server (e.g. MVS, VM, OS/2, * FILE 312 //* most Unix, ...). * FILE 312 //* * FILE 312 //* The dialog presents the user with a simple ISPF panel * FILE 312 //* from which to specify the source (original) data set, * FILE 312 //* the target host, optionally the name of the target data * FILE 312 //* set if it is different from the source, and signon * FILE 312 //* information (userid and password). Once this * FILE 312 //* information is complete the dialog generates the * FILE 312 //* necessary JCL and FTP statements to allow the user to * FILE 312 //* execute the FTP in the foreground (execpt for load * FILE 312 //* library transfers) or to submit the JCL for a batch * FILE 312 //* execution of FTP. Prior to submission the user is * FILE 312 //* allowed to review and change (edit) the generated JCL * FILE 312 //* and FTP control statements if they desire. * FILE 312 //* * FILE 312 //* Member LSTPROC - REXX Exec to list PROCLIB libraries and * FILE 312 //* invoke ISRDDN. * FILE 312 //* * FILE 312 //* New tool: ONCALL * FILE 312 //* * FILE 312 //* ONCALL - I have a new tool that is on my beta page * FILE 312 //* that you all might find interesting. It * FILE 312 //* will generate an oncall rotation for your * FILE 312 //* group and optionally e-mail (using xmitip) * FILE 312 //* the rotation list along with an icalendar * FILE 312 //* file that can be used to add the oncall * FILE 312 //* information to each individuals calendar. * FILE 312 //* * FILE 312 //* Member PRINT - This member is in TSO XMIT format. * FILE 312 //* * FILE 312 //* This member contains 2 ISPF dialogs: * FILE 312 //* * FILE 312 //* LPRPRINT - used to print using the OS/390 (or MVS) * FILE 312 //* TCP/IP LPR command to any system with a LPD * FILE 312 //* server. This includes intelligent printers * FILE 312 //* which have LPD built-in. * FILE 312 //* * FILE 312 //* PSPRINT - used to format host output for printing on a * FILE 312 //* PostScript printer and then invoke LPRPRINT. * FILE 312 //* Options include Portrait, Landscape, and 2UP * FILE 312 //* printing. * FILE 312 //* * FILE 312 //* The members of this dataset are in IEBUPDTE format. * FILE 312 //* * FILE 312 //* $DOC - What you are reading * FILE 312 //* EXEC - The above 2 rexx execs which are the entry * FILE 312 //* points to the dialogs * FILE 312 //* MSGS - ISPF messages * FILE 312 //* PANELS - ISPF panels, including brief tutorials, for * FILE 312 //* these dialogs * FILE 312 //* * FILE 312 //* Member PRMCK - Check the syntax of PARMLIB members. * FILE 312 //* * FILE 312 //* PARMLIB Check * FILE 312 //* * FILE 312 //* This application consists of a REXX Exec and an ISPF * FILE 312 //* Panel. To use this you need to copy the exec (choose * FILE 312 //* the FB or the VB version) into a library in your * FILE 312 //* SYSPROC or SYSEXEC concatenation. You then need to * FILE 312 //* copy the panel into a library in your ISPPLIB * FILE 312 //* concatenation. * FILE 312 //* * FILE 312 //* Usage is to Edit the desired member of SYS1.PARMLIB * FILE 312 //* and enter the command PRMCK. * FILE 312 //* * FILE 312 //* Syntax: PRMCK cat sysres (debug * FILE 312 //* * FILE 312 //* valid options are: * FILE 312 //* ? - will prompt for catalog and sysres * FILE 312 //* cat - is a name that will be used in the master * FILE 312 //* catalog lookup (find *custom* below) and * FILE 312 //* if not found will be used as the master * FILE 312 //* catalog name (enter without quotes). * FILE 312 //* sysres is the volser of the system ipl volume * FILE 312 //* to be checked when a volser of ****** is * FILE 312 //* coded. * FILE 312 //* (debug - will turn on tracing * FILE 312 //* * FILE 312 //* Support for PROGxx member statements * FILE 312 //* - LNKLST * FILE 312 //* - APF * FILE 312 //* - LPA * FILE 312 //* - SYSLIB * FILE 312 //* Support for LNKLSTxx and LPALSTxx members * FILE 312 //* * FILE 312 //* Verification is not 100% the same as the system will * FILE 312 //* perform when used but it does a fair amount of * FILE 312 //* verification. Errors and Warnings are inserted into * FILE 312 //* the Edit display as non-saveable messages. * FILE 312 //* * FILE 312 //* Member RNEWS - This member is in IEBUPDTE SYSIN format. * FILE 312 //* * FILE 312 //* RNEWS - The Rockwell ISPF News and Information Dialog * FILE 312 //* * FILE 312 //* This ISPF application is designed to simplify the task * FILE 312 //* of informing users about system changes, updates, * FILE 312 //* enhancements, etc. each time they logon to TSO and enter * FILE 312 //* ISPF. This is accomplished by a simple modification to * FILE 312 //* the first ISPF menu that the user sees (ISR@PRIM if * FILE 312 //* entry is via command ISPF or ISP@MSTR if entry is via * FILE 312 //* ISPSTART) as documented below. * FILE 312 //* * FILE 312 //* Updated 5/1/97 to support ISPF 4.2.1 * FILE 312 //* * FILE 312 //* RNEWS is entered by executing the Rexx procedure RNEWS * FILE 312 //* and providing one or more of the valid parameters: * FILE 312 //* * FILE 312 //* Syntax: RNEWS parameters * FILE 312 //* * FILE 312 //* Required Parameters: * FILE 312 //* * FILE 312 //* KSYS Defines that RNEWS will use the KSYS set * FILE 312 //* of tables, panels, and skeletons. * FILE 312 //* 'other' Must be defined by the installation as * FILE 312 //* alternative to KSYS. * FILE 312 //* * FILE 312 //* *** one of the above is required * FILE 312 //* * FILE 312 //* Optional Parameters: * FILE 312 //* NEW Display the news ISPF table only if new * FILE 312 //* or unread items are in the table for the * FILE 312 //* user * FILE 312 //* DEBUG Used to turn on REXX tracing for * FILE 312 //* debugging purposes * FILE 312 //* ADMIN Enable the administration application * FILE 312 //* TEST Uses a test news table for testing * FILE 312 //* purposes. * FILE 312 //* FORCE If the table is locked by ADMIN and the * FILE 312 //* lock is obsolete (for some reason that * FILE 312 //* left the member LOCK in the news data * FILE 312 //* set) this option will override the lock * FILE 312 //* for administration purposes. * FILE 312 //* * FILE 312 //* See the rexx procedure for more information. * FILE 312 //* * FILE 312 //* Updates to ISPF Panels ISR@PRIM and/or ISP@MSTR to * FILE 312 //* cause this application to be invoked when the user * FILE 312 //* enters ISPF. * FILE 312 //* * FILE 312 //* LIONEL B. DYCK * FILE 312 //* KAISER PERMANENTE * FILE 312 //* 25 NORTH VIA MONTE * FILE 312 //* WALNUT CREEK, CALIFORNIA 94598 * FILE 312 //* * FILE 312 //* INTERNET: lionel.b.dyck@kp.org * FILE 312 //* PHONE: (925) 926-5332 * FILE 312 //* * FILE 312 //***FILE 313 is from Lionel Dyck of Kaiser Permanente in Walnut * FILE 313 //* Creek, California, and contains quite a few * FILE 313 //* ISPF interface packages, and other 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 //* Lionel Dyck's large collection of utilities has now been * FILE 313 //* divided between Files 312, 313, and 314. All member names * FILE 313 //* beginning with A-R are on File 312. Names beginning with * FILE 313 //* S-TS are on File 313. Names from TX-Z are on File 314. * FILE 313 //* * FILE 313 //* These three 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 //* DSN=CBT469.FILE313 (fairly up to date for Version 469) * FILE 313 //* * FILE 313 //* NAME VER.MOD LAST MODIFIED SIZE ID * FILE 313 //* $$$#DATE 04.69 2005/03/21 10:10 12 CBT-469 * FILE 313 //* $DOC 01.02 2001/06/05 14:09 16 WSBG * FILE 313 //* $SOFTPUB 01.00 1999/07/06 18:34 26 SYSLBD * FILE 313 //* @FILE313 04.69 2005/03/21 10:10 87 CBT-469 * FILE 313 //* SAVELAB 01.04 2003/10/17 7:28 287 SYSLBD * FILE 313 //* SDSFEXT 01.09 2004/06/21 9:59 584 SYSLBD * FILE 313 //* SDSFEXT# 01.09 2004/06/21 9:59 2069 PDF * FILE 313 //* SDSFEXT@ 01.09 2004/06/21 9:59 640 MSWORD * FILE 313 //* SDSFPA$$ 01.28 2003/04/28 8:57 19 SYSLBD * FILE 313 //* SDSFPAG$ 01.19 2001/02/20 10:52 9 SYSLBD * FILE 313 //* SDSFPAG# 01.28 2003/04/28 8:57 4894 PDF * FILE 313 //* SDSFPAG@ 01.28 2003/04/28 8:57 5888 MSWORD * FILE 313 //* SDSFPAGE 01.28 2003/04/28 8: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 //* SLM 01.04 2003/01/20 18:04 4419 SYSLBD * FILE 313 //* SLM$ 01.00 2002/12/14 23:10 23 SYSLBD * FILE 313 //* SLM# 01.04 2003/01/20 18:04 6872 PDF * FILE 313 //* SLM@ 01.04 2003/01/20 18:04 2586 MSWORD * FILE 313 //* SOFTPUB 01.00 2000/12/26 17:30 43974 SYSLBD * FILE 313 //* SPELLC 00.22 2004/11/04 23:42 4966 SYSLBD * FILE 313 //* SPELLC$ 00.22 2004/11/04 23:44 199 SYSLBD * FILE 313 //* SPELLC$# 00.22 2004/11/04 23:44 37 SYSLBD * FILE 313 //* SPELLCHG 00.22 2004/11/04 23:41 242 SBGOLOB * FILE 313 //* TERSE 01.00 2002/04/25 1:56 715 SYSLBD * FILE 313 //* TMAILQRY 01.00 2000/04/05 16:34 399 SYSLBD * FILE 313 //* TRYIT 02.02 2005/03/08 10:03 1146 SYSLBD * FILE 313 //* TRYIT$ 02.02 2005/03/07 19:08 118 SYSLBD * FILE 313 //* TRYITCHG 02.02 2005/03/21 9:38 56 SYSLBD * FILE 313 //* TSOEMAIL 01.00 2000/04/13 22:28 8120 SYSLBD * FILE 313 //* TSOTRAP 01.00 2000/02/16 16:55 30 SYSLBD * FILE 313 //* * FILE 313 //* Member SOFTPUB - This member is in IEBUPDTE SYSIN format, * FILE 313 //* with some of the resulting members in * FILE 313 //* TSO XMIT format, and some, flat files. * FILE 313 //* $SOFTPUB - install instructions for SOFTPUB * FILE 313 //* * FILE 313 //* This is Rockwell's ISPF front end to Bookmanager, and * FILE 313 //* has been Kaiserized, since I have changed employers. * FILE 313 //* * FILE 313 //* Lionel B. Dyck * FILE 313 //* Kaiser Permanente * FILE 313 //* 25 North Via Monte * FILE 313 //* Walnut Creek, California 94598 * FILE 313 //* * FILE 313 //* INTERNET: lionel.b.dyck@kp.org * FILE 313 //* PHONE: (925) 926-5332 * FILE 313 //* * FILE 313 //***FILE 314 is from Lionel Dyck of Kaiser Permanente in Walnut * FILE 314 //* Creek, California, and contains quite a few * FILE 314 //* ISPF interface packages, and other 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, and 314. All member names * FILE 314 //* beginning with A-R are on File 312. Names beginning with * FILE 314 //* S-TS are on File 313. Names from TX-Z are on File 314. * FILE 314 //* * FILE 314 //* These three 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 //* DSN=CBT471.FILE314 (fairly up to date for Version 471) * FILE 314 //* * FILE 314 //* NAME VER.MOD LAST MODIFIED SIZE ID * FILE 314 //* $$$#DATE 04.71 2006/02/06 9:33 12 CBT-471 * FILE 314 //* $DOC 01.02 2001/06/05 14:09 16 WSBG * FILE 314 //* @FILE314 04.71 2006/02/06 9:33 290 CBT-471 * FILE 314 //* TXT2HTC$ 02.09 2004/10/15 0:23 3 SYSLBD * FILE 314 //* TXT2HTML 02.09 2004/10/15 0:25 1778 SYSLBD * FILE 314 //* TXT2PDF 03.40 2004/05/30 10:17 18590 SYSLBD * FILE 314 //* TXT2PDF# 03.40 2004/05/30 10:17 16093 PDF * FILE 314 //* TXT2PDF@ 03.40 2004/05/30 10:17 7296 MSWORD * FILE 314 //* TXT2PDFH 03.40 2004/05/30 10:15 104 SBGOLOB * FILE 314 //* TXT2RTF 01.03 2006/02/06 9:22 1003 SYSLBD * FILE 314 //* TXT2RTF$ 01.03 2006/02/06 9:22 57 SBGOLOB * FILE 314 //* WORDNUM 01.02 2004/03/17 9:52 46 SYSLBD * FILE 314 //* XIT 01.01 2004/05/02 10:24 27 SYSLBD * FILE 314 //* XMIAFREN 05.44 2004/04/20 10:16 95 J-MLUCE * FILE 314 //* XMITB64 01.00 2000/12/26 17:11 651 FELDMAN * FILE 314 //* XMITFREN 05.44 2004/04/20 9:26 95 J-MLUCE * FILE 314 //* XMITIHST 05.44 2006/02/06 9:06 2340 SBGOLOB * FILE 314 //* XMITINS# 05.44 2006/02/06 9:08 10014 PDF * FILE 314 //* XMITINS@ 05.44 2006/02/06 9:08 2522 MSWORD * FILE 314 //* XMITIP 05.44 2006/02/06 9:07 56600 SYSLBD * FILE 314 //* XMITIP$ 05.02 2004/01/25 12:21 2781 TEXT * FILE 314 //* XMITIP$$ 04.90 2003/10/08 15:30 3093 OLDTEXT * FILE 314 //* XMITIP# 05.44 2006/02/06 9:08 14979 PDF * FILE 314 //* XMITIP@ 05.44 2006/02/06 9:08 4199 MSWORD * 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 //* * FILE 314 //* Member XMITIP - This member is in TSO XMIT format. * 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 //* Reference: If you have questions on setting up SMTP or * FILE 314 //* using National languages check out Andy * FILE 314 //* Robertson's site: * FILE 314 //* http://home.clara.net/andywrobertson/mvshowtosmtp.html * 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 //* - 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 //* Kaiser Permanente Information Technology * FILE 314 //* 25 N. Via Monte Ave. * FILE 314 //* Walnut Creek, CA 94598 * FILE 314 //* (925) 926-5332 * FILE 314 //* Internet: lionel.b.dyck@kp.org * 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 * FILE 316 //* Office of Personnel Management * FILE 316 //* CIO/WTC - Room BH04 * FILE 316 //* 1900 E Street NW * FILE 316 //* Washington DC 20415-0001 * FILE 316 //* w - 202-606-1261 * FILE 316 //* f - 202-606-2092 * FILE 316 //* jdmarsha@opm.gov * 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 25+ - 18 AUGUST 2003 * 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 1X SUBSTITUTE FOR IEBGENER, HIGH SPEED COPY * FILE 316 //* USING QSAM VERSUS BSAM. * FILE 316 //* * FILE 316 //* FINDAZAP 1X BILL GODFREY: FIND A STRING IN A LOAD * FILE 316 //* MODULE & MAKE A ZAP FROM IT. PGM DOES NOT * FILE 316 //* CHANGE LOAD MODULE BUT GENERATES 'AMASPZAP' * FILE 316 //* CONTROL CARDS. * FILE 316 //* * FILE 316 //* GETDATE 1X ANOTHER PGM TO DO DATE CONVERSION. ALSO * FILE 316 //* RETURNS THE DAY OF THE WEEK AND ALSO A * FILE 316 //* FLAG IF IT IS A USER DEFINED HOLIDAY. * FILE 316 //* USEFUL IN PGMS FOR SMF. * FILE 316 //* * FILE 316 //* IDATE 1 SEE PGM DOCUMENTATION TO SEE ALL THE WAYS * FILE 316 //* IT CAN CONVERT A DATE, MANY, MANY,...... * FILE 316 //* * FILE 316 //* IEECVXIT 1 COMBINED VERSION OF 'IEECVXIT & * FILE 316 //* 'IEECR2D2'. CODED THE WAY IT SHOULD BE IF * FILE 316 //* YOU ARE A GENIUS. SCHEDULES AN SRB TO GET * FILE 316 //* AROUND THE FACT THEY MOVED THE WQE CHAIN * FILE 316 //* IN SP1.3. NEEDS A TASK RUNNING ALL THE * FILE 316 //* TIME TO BUMP THE SRB OFF OF WHEN IEECR2D2 * FILE 316 //* IS RUN. CODER USED THE #CMD SUBSYSTEM, * FILE 316 //* YOU COULD HAVE USED JES2 HE SAYS. TIME * FILE 316 //* DEPENDENT CODE HAS BEEN REMOVED AND IT * FILE 316 //* WORKS IN ALL VERSIONS OF MVS/SP (AS OF A * FILE 316 //* WHILE AGO). WE ARE SAVED !! * FILE 316 //* * FILE 316 //* AFDSC DEVELOPED 'MCS EXIT'. CAPABILITY * FILE 316 //* TO SUPPRESS OR CHANGE ROUTE CODES, DESC, * FILE 316 //* CODES, ETC. BUT THIS ONE WILL UTILIIZE * FILE 316 //* 'R2D2' TO DO AUTOMATIC OPERATOR REPLIES * FILE 316 //* AND STC'S BASED UPON WHAT COMES ACROSS THE * FILE 316 //* CONSOLE. NOT DEPENDENT UPON THE OPERATOR * FILE 316 //* BEING AWAKE. AFDSC DEVELOPED VERSION OF * FILE 316 //* FAMOUS 'R2D2'. LITTLE CREATURE DOES * FILE 316 //* AUTOMATIC START CMDS FOR THINGS THAT NEED * FILE 316 //* STARTING, BASED UPON WHAT COMES ACROSS THE * FILE 316 //* SCREEN AND IS DETECTED BY IEECVXIT. R2D2 * FILE 316 //* DOES THE AUTOMATIC REPLIES, RMF (R XX,GO), * FILE 316 //* ALLOCATION (R XX,NOHOLD). EVER HAD THE * FILE 316 //* OPERATOR TURN YOUR MVS SYSTEM INTO OS/MVT * FILE 316 //* SYSTEM BY LOCKING Q4 (R XX,HOLD)? LITTLE * FILE 316 //* CRITTER HAS A LOT OF POSSIBILITIES. * FILE 316 //* * FILE 316 //* IEFUJI 1 IBM STANDARD SMF EXIT, IEFUJI. HAS CODE TO * FILE 316 //* PASS USER FIELDS TO UCC-1 (NOW CA-1). * FILE 316 //* * FILE 316 //* IEFUTL 2 IBM STANDARD SMF EXIT, IEFUTL. WAIT TIME & * FILE 316 //* CPU TIME EXCESSION FOR BATCH & TSO. LITTLE * FILE 316 //* CODE BUT ONE THING IT CAN DO IS TO STOP * FILE 316 //* S522 ABENDS CAUSED BY OPERATORS. * FILE 316 //* * FILE 316 //* IEFU29 1 DETECT SMF SWITCH & SCHEDULE JOB THAT DUMPS * FILE 316 //* SMF DATASETS. MOVED FUNCTION FROM THE MCS * FILE 316 //* EXIT TO THIS EXIT (WHERE IT SHOULD BE). * FILE 316 //* * FILE 316 //* IEFU83 3 AFDSC DEVELOPED SMF EXIT, 'IEFU83'. HAS * FILE 316 //* ALL STANDARD SUGGESTIONS, TYPE 40 RECS, 0 * FILE 316 //* EXCP COUNTS, ETC. THIS IS BRANCH TABLE * FILE 316 //* DRIVEN, GOOD PLACE TO BEGIN FOR THOSE WHO * FILE 316 //* WANT TO EXPAND ITS CODE. ALSO LOOKS AT * FILE 316 //* 14&15'S ETC. ADDED TYPE 21 SUPPORT TO * FILE 316 //* TELL OPERATORS TO CLEAN TAPE DRIVES * FILE 316 //* ENCOUNTERING PERM CHECK OR TOO MANY TEMP * FILE 316 //* ERRORS. LOOKS AT TOTAL CPU TIME AND * FILE 316 //* JOBCLASS TELLING USER WHAT CLASS SHOULD * FILE 316 //* HAVE BEEN USED. * FILE 316 //* * FILE 316 //* INCORZAP 2 SOURCE FOR FAMOUS 'INCORZAP' THAT IS KNOWN * FILE 316 //* ONLY IN OBJECT FORM. THANKS BILL GODFREY * FILE 316 //* FOR DISASSEMBLY AND PATIENCE. THIS PGM * FILE 316 //* SOURCE WAS A SPRINGBOARD FOR THE ORIGINAL * FILE 316 //* AUTHOR OF THE PROGRAM TO UPGRADE IT TO XA * FILE 316 //* (AND BEYOND). SEE FILE 421. * FILE 316 //* * FILE 316 //* IGG019WD 1X APPENDAGE FOR RECOVERY FROM WRONG DENSITY * FILE 316 //* TAPE VOLUMES, USED BY TAPE UTLITIES. * FILE 316 //* * FILE 316 //* IGG019WE 1X APPENDAGE TO PREVENT ERROR AT EOF, USED BY * FILE 316 //* TAPE UTILITIES. * FILE 316 //* * FILE 316 //* INCORZZP 1 ZAP TO THE 'INCORZAP' PROGRAM SO IT WILL * FILE 316 //* RUN UNDER ANY NAME. * FILE 316 //* * FILE 316 //* J13X1 3 SP1.3 EXIT. SEPARATOR (PRINT & PUNCH) FOR * FILE 316 //* JES2. HAS EXIT255 INVOKED TO PRINT OFF A * FILE 316 //* RECEIPT ON SEPARATE IBM3287 MCS PRINTER. * FILE 316 //* ADDED SOME CODE FOR PRINTING OFF NJE PRT * FILE 316 //* FROM VM/RSCS. ALSO ADDED SOME CODE FOR * FILE 316 //* X8700 PRT. * FILE 316 //* CONVERTED TO JES2/SP1.3.4 * FILE 316 //* * FILE 316 //* J13X1ACT 2 SP1.3 EXIT. ACCOUNT USED TO BILL X8700 * FILE 316 //* PRINTER TO VM/RSCS/NJI PRINT. RSCS OUTPUT * FILE 316 //* DOESN'T COME ACROSS WITH JES2 ACCT INFO * FILE 316 //* IN THE JOBCARD. * FILE 316 //* * FILE 316 //* J13X1XF 2 SP1.3 EXIT. X8700 VALID FORMS USED TO * FILE 316 //* BUILD 'DJDE' RECORD TO BE PUMPED TO X8700 * FILE 316 //* PRINTER. * FILE 316 //* * FILE 316 //* J13X3 1 JES2/SP1.3 EXIT3. JOB CARD SCAN EXIT, * FILE 316 //* ALSO HAS OTHER FEATURES. WE DO VALIDATION * FILE 316 //* OF ACCT CODES ON JOB CARD. * FILE 316 //* CONVERTED TO JES2/SP1.3.4 * FILE 316 //* * FILE 316 //* J13X4 1 JES2/SP1.3 EXIT4. JECL SCAN EXIT. * FILE 316 //* CONVERTED TO JES2/SP1.3.4 * FILE 316 //* * FILE 316 //* J13X10 1 JES2/SP1.3 EXIT10. SUPPRESS JES2 WTO * FILE 316 //* MESSAGES. JOB RECEIPT GENERATED FOR ALL * FILE 316 //* PARTS OF JOB THAT ARE PRINTED LOCALLY. * FILE 316 //* IS BECAUSE JES EXIT 1 PRODUCES RECEIPTS * FILE 316 //* TO A 3287 TYPE PRINTER ALL PARTS OF A JOB * FILE 316 //* PRINTED LOCALLY. THANKS CAPT JIM CARTER * FILE 316 //* AND LT PAUL FINDLEY. * FILE 316 //* CONVERTED TO JES2/SP1.3.4 * FILE 316 //* * FILE 316 //* J13X13 1 JES2/SP1.3 EXIT13. TSO/E EXIT. * FILE 316 //* * FILE 316 //* J13X255 2 JES2/SP1.3 EXIT255. THIS IS MY EXIT THAT * FILE 316 //* IS INVOKED BY USER EXIT001 TO PRINT A * FILE 316 //* RECEIPT ON IBM3287 MCS PRINTER SET TO * FILE 316 //* ROUTCDE=(14). OPERATORS NOW KNOW HOW * FILE 316 //* MANY LISTINGS THEY WILL FIND ON THE * FILE 316 //* PRINTERS. CONVERTED TO JES2/SP1.3.4 * FILE 316 //* * FILE 316 //* JESXRDR 1Y HURRAY BILL GODFREY, MY GENIUS. YOU CAN * FILE 316 //* SUBMIT TO A SECONDARY JES2 LIKE JESX FROM * FILE 316 //* THIS PGM. LOOK IN TSOSRC FILE YOU WILL * FILE 316 //* FIND, SUBMITX' ALLOWS YOU TO SUBMIT FROM * FILE 316 //* TSO TO A SECONDARY JES2. (ALSO YOU GET * FILE 316 //* OUTPUTX, CANCELX, AND STATUSX WITH * FILE 316 //* SUBMITX). MAY NOT WORK BEYOND JES2/SP1.1. * FILE 316 //* * FILE 316 //* JES0001 1Y SMP USERMOD TO ALLOW YOU TO DO TSO IN * FILE 316 //* SECONDARY JES, ALSO STC'S ETC ETC. * FILE 316 //* MAY NOT WORK BEYOND JES2/SP1.1 * FILE 316 //* * FILE 316 //* LISTCTLG 1Y LISTS OS CATALOGS EFFICIENTLY. UPDATED FOR * FILE 316 //* 3400 SERIES TAPE DRIVES, 3330 TYPE DISKS, * FILE 316 //* 3350'S AND, 3850 MSS. SEE COMMENTS IN THE * FILE 316 //* CODE FOR ADDITIONAL CAPABILITIES OF THE PGM * FILE 316 //* * FILE 316 //* LISTIDR 1 IMPROVED GODDARD SPACE CENTER PROGRAM FOR * FILE 316 //* LISTING 'IDR' RECORDS. * FILE 316 //* * FILE 316 //* LISPDS 8.1 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. * FILE 316 //* * FILE 316 //* LISTPDS 7.X GODDARD SPACE FLIGHT CNTR, FAMOUS 'LISTPDS' * FILE 316 //* PGM. UPDATED SO WHEN YOU DO THE FUNCTION * FILE 316 //* SIMILIAR TO IEHLIST, LISTPDS, IT GIVES * FILE 316 //* YOU THE SPF STATS, LIKE SPF 3.1 DOES. SEE * FILE 316 //* THE LISTPDS# FOR ALL OF ITS CAPABILITIES. * FILE 316 //* * FILE 316 //* LKEBOX1 1 PLACE NICE LOOKING BOX AROUND YOUR LKED * FILE 316 //* LISTING FOR USE IN CONJUNCTION WITH ASMBOX1 * FILE 316 //* * FILE 316 //* LKEDMOD 1 LKED EDITOR ZAP, PUT TIME & DATE INTO LOAD * FILE 316 //* MODULES MVS/3.8. * FILE 316 //* * FILE 316 //* LKEDMOD1 1Y LKED EDITOR ZAP PUTS TIME & DATE INTO LOAD * FILE 316 //* MODULES MVS/SP1.1 * FILE 316 //* * FILE 316 //* LKED90 1 ROTATE LKED OUTPUT ON IBM 3800 90 DEGREES * FILE 316 //* AND GET 2 PAGES ONTO 1. * FILE 316 //* * FILE 316 //* MACROS 1 PACKAGED MOST MACROS IN THIS MEMBER. LOOK * FILE 316 //* AT THE INSTALL JOBSTREAM TO SEE IF YOU WILL * FILE 316 //* NEED THEM. HAVE '><' IN PLACE OF './' IN * FILE 316 //* IEBUPDTE FORMAT SO USE 'PDSLOAD' PGM. * FILE 316 //* * FILE 316 //* MACROS FOR THIS FILE ARE NOW INCLUDED * FILE 316 //* * FILE 316 //* $-E F-M N-T U-Z * FILE 316 //* $#SVCKP FLOAT OPENIF * FILE 316 //* $#SVCKS IFIX OPENIN * FILE 316 //* $REGS LOADIT SEARCHDD * FILE 316 //* @ LOADS SNAPREGS * FILE 316 //* CAPS MOVE STAE$ * FILE 316 //* CLOSEIF MSG TESTOPEN * FILE 316 //* COMMENT TRC * FILE 316 //* DFLOAT * FILE 316 //* EDIT * FILE 316 //* * FILE 316 //* MIRROR 1X REVERSE THE DATA ON INPUT CARD IMAGE. I.E. * FILE 316 //* 1-80 IS NOW IN 80-1. * FILE 316 //* * FILE 316 //* MIM#3 1X OS/MVT PGM. USED TO BE ON OS/MVT MODS * FILE 316 //* TAPE LONG AGO. GOOD EXAMPLE OF DOING * FILE 316 //* COMPRESSION AND DECOMPRESSION. LOOK AT * FILE 316 //* EXTENSIVE DOC IN CODE AND YOU'LL FIND A * FILE 316 //* USE FOR IT. * FILE 316 //* * FILE 316 //* MODREP 2 LPA MODULE REPLACEMENT PGM OBTAINED FROM * FILE 316 //* CBT TAPE. MODIFIED AT AFDSC SO IT WILL NOT * FILE 316 //* ABEND WITH A S522. SEVERAL OTHER BUGS FIXED * FILE 316 //* * FILE 316 //* MSGWRITE 2X SUBROUTINE USED BY SOME OF THE UTILITIES. * FILE 316 //* * FILE 316 //* MSSMOUNT 1 ZAP TO LET TSO USERS MOUNT MSS VOLUMES * FILE 316 //* WITHOUT HAVING MOUNT ATTRIBUTE IN 'UADS'. * FILE 316 //* * FILE 316 //* OFFLOAD 1 UNLOAD A PDS TO A SEQUENTIAL IEBUPDTE DSN * FILE 316 //* FIXED BUG ABEND 103-4C, UNBLOCKED PDS'ES. * FILE 316 //* (UPDATED BY JOHN KALINICH, US ARMY IN ST * FILE 316 //* LOUIS, MO - TO ADD ISPF STATS IN LISTPDS * FILE 316 //* FORMAT INTO THE "./ ADD NAME=" CARDS.) * FILE 316 //* * FILE 316 //* PARMBLOC 2 TAKE THE PARM FROM EXEC CARD AND CREATE A * FILE 316 //* BLOCK LETTER BANNER. HAS OPTIONS TO SLANT * FILE 316 //* ETC. NICE FOR REPORTS. * FILE 316 //* * FILE 316 //* PDSGAS 2X ALLOW YOU FIND A 'GAS' MEMBER IN A PDS * FILE 316 //* PGM PROVIDED YOU HAVE NOT COMPRESSED THE * FILE 316 //* PDS. ASSIGNS MEMBER NAME OF $GASXXXX. * FILE 316 //* XXXX GOES FROM 0001 TO 9999. THEN IT IS * FILE 316 //* CALLED BRUTE FORCE TO GO IN WITH SPF 3.1 * FILE 316 //* TO FIND IT. BUT !! WORKS NOW ON 3380S * FILE 316 //* AND MVS/XA 2.2.0. * FILE 316 //* * FILE 316 //* PDSLOAD 1 FILE WITH IEBUPDTE CONTROL CARDS IN THEM, * FILE 316 //* RELOAD TO A PDS. WILL PUT IN SPF STATS AND * FILE 316 //* USEFUL FOR FILES UNLOADED BY OFFLOAD PGM * FILE 316 //* TO FROM CBT TAPE. CHANGES THE IMBEDDED '><' * FILE 316 //* TO './' AS YOU RELOAD. BETTER VERSION OF * FILE 316 //* PDSLOAD AND OFFLOAD ARE ON FILE 093. * FILE 316 //* * FILE 316 //* PDSMATCH 1 COMPARE THE DIRECTORY OF 2 PDS'S. HAS * FILE 316 //* MANY OPTIONS. REFER TO COMMENTS IN THE * FILE 316 //* CODE FOR HOW TO RUN THIS UTILITY. * FILE 316 //* * FILE 316 //* PDSPROGM 1 USED FOR DELETING & RENAMING MEMBERS OF * FILE 316 //* PDS FROM A BATCH JOB. MUCH EASIER TO USE * FILE 316 //* THAN IEHPROGM. * FILE 316 //* * FILE 316 //* PDSPRINT 2X ANOTHER PDS LIST OR PUNCH PGM. CAN FEED * FILE 316 //* IT CONTROL CARDS FOR A MEMBER LIST OR * FILE 316 //* GIVE IT CHARACTER STRING TO SCAN FOR. * FILE 316 //* NICE. * FILE 316 //* * FILE 316 //* PDSTEST 3X VERIFIES INTEGRITY OF A LOAD MODULE PDS BY * FILE 316 //* ISSUING 'LOAD' FOR EVERY MODULE IN LOADLIB. * FILE 316 //* IF PROBLEMS OCCUR, YOU ARE TOLD OF THEM. * FILE 316 //* * FILE 316 //* PDSUTIL 1 ANOTHER PDS LIST TYPE PROGRAM. THINGS IT * FILE 316 //* DOES, GIVES YOU A TABLE OF CONTENTS AS TO * FILE 316 //* WHAT PAGE EACH IS ON. HANDY. * FILE 316 //* * FILE 316 //* P38BOX1 1 SUBROUTINE FOR ASMBOX1. * FILE 316 //* * FILE 316 //* P38TURN 1 CHARACTER SET USED FOR 90 DEGREE ROTATE. * FILE 316 //* * FILE 316 //* RACHECK 1Y EL-CHEAPO RACF SECURITY SVC. YALE UNIV. * FILE 316 //* SVC 130 MADE TO GIVE DIRT-CHEAP SECURITY. * FILE 316 //* WE USE WHITE HAT-BLACK HAT THEORY. EITHER * FILE 316 //* YOU CAN GET TO IT OR NOT. DOES NOT AFFECT * FILE 316 //* STC OR SYSTEM CODE. LOOK AT SVC TO SEE HOW * FILE 316 //* WE GIVE ALL POWERFUL SYSTEM PROGRAMMERS * FILE 316 //* (WHO WEAR WHITE HATS) THE PRIVILEGES. * FILE 316 //* * FILE 316 //* READF 1 SUBRNTES-READF,WRITEF,RESETF, INTENDED FOR * FILE 316 //* USE IN PLACE OF FORTRAN UNFORMATTED I/O * FILE 316 //* (REAL DOG). THIS USES FIXED BLOCKED QSAM. * FILE 316 //* SAVES A LOT OF CPU CYCLES. * FILE 316 //* * FILE 316 //* ROTATER 1 SUBROUTINE USED IN ROTATE PGMS. * FILE 316 //* REPLACED P38R90 AND P38R90B. * FILE 316 //* * FILE 316 //* SEEKMON 1Y MVS VERSION OF OS/MVT SEEKMON. * FILE 316 //* * FILE 316 //* SETINIT 1X SETS INITIATORS BASED ON TIME. HAVE INITS * FILE 316 //* SET, PRIME, EVENINGS, MIDS, HOLIDAYS, ETC. * FILE 316 //* * FILE 316 //* SPANCOPY 2X CLEANS FILES WITH SPANNED RECS. WILL * FILE 316 //* DROP BAD SPANNED RECS. IF FILE CONTAINS * FILE 316 //* SMF RECS THEN WILL ATTEMPT TO GIVE YOU * FILE 316 //* AS MUCH INFO AS IT CAN. S002 ABENDS ARE * FILE 316 //* NO LONGER KILLERS. * FILE 316 //* * FILE 316 //* SMFDATE 1X REPORTS ON TOTAL SMF RECORDS BY DAY PLUS * FILE 316 //* NUMBER OF BATCH JOBS RUN AND TSO SESSIONS. * FILE 316 //* * FILE 316 //* SMFXTRCT 8X RENAMED TO SMFXTRK, 15 MARCH 1991. * FILE 316 //* * FILE 316 //* SMFXTRK 9X GENERALIZED SMF RECORD EXTRACTION UTILITY. * FILE 316 //* SELECT BY RECORD TYPE, DATE INTERVAL, TIME * FILE 316 //* INTERVAL, ETC. REBLOCKS FROM VBS TO VB ! * FILE 316 //* REPORTS ON NUMBER OF RECS AND MAX + MIN. * FILE 316 //* SEE CODE FOR ALL CAPABILITIES. * FILE 316 //* * FILE 316 //* SMF21RP 1X REPORT SMF 21 RECORDS ON TAPE ERRORS, * FILE 316 //* ALTERNATIVE TO IBM UTILITY 'IFHSTATR'. * FILE 316 //* * FILE 316 //* SMF48RP 1X REPORT FROM SMF 48 RECORDS ON BSC RJE * FILE 316 //* STATS. MOST IMPORTANTLY, LINE ERRORS. * FILE 316 //* * FILE 316 //* SMF50RP 1X REPORT FROM SMF 50 RECS, VTAM TUNING STATS. * FILE 316 //* * FILE 316 //* SMF53RP 1X REPORT FROM SMF 53 RECS, SNA RJE STATS AND * FILE 316 //* MOST IMPORTANTLY, LINE ERRORS. * FILE 316 //* * FILE 316 //* SMF71FP 1X REPORT FROM RMF 71 RECORDS ON FRAMES FOR * FILE 316 //* PRIVATE ADDRESS SPACES. * FILE 316 //* * FILE 316 //* SMF71FR 1X RMF 71 FRAMES REPORT ON CSA FRAMES. * FILE 316 //* * FILE 316 //* SMF71LF 1X RMF 71 FRAMES REPORT ON LPA FRAMES. * FILE 316 //* * FILE 316 //* SMF71LP 1X RMF 71 NVIO PAGING REPORT. * FILE 316 //* * FILE 316 //* SMF71PN 1X RMF 71 RATE OF NON-VIO RECLAIMS, * FILE 316 //* PAGE-IN-OUTS. * FILE 316 //* * FILE 316 //* SMF71UP 1X RMF 71 UIC COUNTS VS NVIO & NSWAP PAGING. * FILE 316 //* * FILE 316 //* SMF71VP 1X RMF 71 RATE OF PAGING OF VIO. * FILE 316 //* * FILE 316 //* SMF71XF 1X RMF 71 FRAMES REPORTS FIXED FRAMES ABOVE * FILE 316 //* AND BELOW 16M LINE. * FILE 316 //* * FILE 316 //* SMF72RP 2X CONVERTED WORKLOAD ACTIVITY RPT FROM MF/1 * FILE 316 //* TO USE RMF 72 RECORDS. MAY BE OF INTEREST. * FILE 316 //* * FILE 316 //* SMPERS4 1X SAS VERSION OF THE BELOW FOR SMP R4. * FILE 316 //* * FILE 316 //* SMPERS5 1X SAS VERSION OF THE BELOW FOR SMP R5. * FILE 316 //* * FILE 316 //* SMPER5A 1X ASM LANG VERSION OF SMP HOLDERROR REPORT * FILE 316 //* FOR SMP5. SAYS IF PTFS APPLIED ARE IN * FILE 316 //* HOLD STATUS. * FILE 316 //* * FILE 316 //* STAE$ 1 GENERALIZED ESTAE EXIT FOR MVS. SEE * FILE 316 //* COMMENTS FOR ITS CAPABILITIES. * FILE 316 //* * FILE 316 //* STRMACS 1X STRUCTURED PROGRAMMING MACROS FOR ASSEMBLY * FILE 316 //* LANG CODING. WAS CALLED 'CONCEPT 14' LONG * FILE 316 //* AGO AND NEVER REALLY CAUGHT ON. WILL SEE * FILE 316 //* CODE WRITTEN IN IT AND THESE SHOULD WORK. * FILE 316 //* MACROS INCLUDED ARE AS FOLLOWS: * FILE 316 //* * FILE 316 //* * FILE 316 //* CASE ELSE EXITIF POPNEST * FILE 316 //* CASENTRY ENDCASE GBLVARS PUSHINS * FILE 316 //* CHKSTACK ENDDO GETCC PUSHLAB * FILE 316 //* DO ENDLOOP IF PUSHNEST * FILE 316 //* DOEXIT ENDSRCH IFPROC STKINS * FILE 316 //* DOPROC EXIT POPINS STRTDO * FILE 316 //* STRTSRCH * FILE 316 //* * FILE 316 //* SYSLOG 1X WRITE YOUR OPERATOR LOGS SAFELY AND ALWAYS * FILE 316 //* IN ORDER. SEE CODE FOR DETAILS. * FILE 316 //* * FILE 316 //* SYSREPRO 1X SEQUENTIAL COPY UTILITY. IT IS LIKE * FILE 316 //* IEBGENER BUT MUCH FASTER. PRINTS OUT * FILE 316 //* DSNAMES, VOLSERS, DCB, ATTRIBUTES, * FILE 316 //* FILE SEQ NUMBER FOR EACH DATASET. * FILE 316 //* * FILE 316 //* TANAL 3X DO QUICK SCAN OF UNLABELED OR LABELED * FILE 316 //* TAPE TO GIVE YOU THE MAX AND MIN BLKSIZES * FILE 316 //* IN ALL FILES AND THE NUMBER OF BLOCKS * FILE 316 //* IN THE FILE. * FILE 316 //* * FILE 316 //* TAPEL 3X GIVES YOU A QUICK SCAN OF A TAPE AND * FILE 316 //* GIVES INFO ON EACH FILE IN EASY TO READ * FILE 316 //* FORM. IS FOR THE NOT TOO BRIGHT USER YOU * FILE 316 //* MAY HAVE. * FILE 316 //* * FILE 316 //* TAPELZAP 1Y ZAP TO FORCE OPER REPLY WITH 6 CHAR VOLSER * FILE 316 //* ON TAPE. DECREASE TAPES WITH VOL=SER=U * FILE 316 //* MVS/SP1.1 * FILE 316 //* * FILE 316 //* TAPEMAP 1X FAMOUS 'TAPEMAP' PGM IN SOURCE CARD FORM. * FILE 316 //* SURPRISING WHAT YOU CAN DO WITH A DISASS- * FILE 316 //* EMBLER AND A LOT OF TIME AND PATIENCE. * FILE 316 //* * FILE 316 //* TAPESCAN 1 MVS UPDATED VERSION FAMOUS 'TAPESCAN'. * FILE 316 //* * FILE 316 //* TAPESC44 1 MVS UPDATED VERSION FAMOUS 'TAPESCAN'. UPD * FILE 316 //* TO R4.4 FOR 3480 SUPPORT BY FRANK PAJERSKI. * FILE 316 //* THE MAN IS NOTHING SHORT OF "GREAT". * FILE 316 //* * FILE 316 //* TIDY 1 CLEANS UP FORTRAN CODE. LOOK AT COMMENTS * FILE 316 //* IN CODE TO SEE HOW TO RUN THE BEAST. * FILE 316 //* * FILE 316 //* TIDYASM 1 CLEANS UP ALC CODE. SEE COMMENTS IN CODE * FILE 316 //* TO SEE HOW TO RUN THE BEAST. * FILE 316 //* * FILE 316 //* TLABEL 2 REPLACES IBM UTILITY 'IEHINITT'. OPERATOR * FILE 316 //* STARTABLE AND WILL ALLOW YOU TO PUT A * FILE 316 //* LABEL TO A TAPE OR JUST PUT A TAPEMARK * FILE 316 //* ONTO THE TAPE. (RUNS AUTHORIZED) * FILE 316 //* * FILE 316 //* TLPRINT 3X SUBROUTINE USED BY SOME TAPE UTILITIES TO * FILE 316 //* FORMAT A LABEL OF A TAPE. * FILE 316 //* * FILE 316 //* TMSLABL 1 FRONT-END TO UCC1 TMSTPNIT TO LABEL TAPES. * FILE 316 //* GETS AROUND SC03 ABEND PROBLEM WITH * FILE 316 //* MULTI-LINKS. WE ATTACH INSTEAD. * FILE 316 //* * FILE 316 //* TOD 1 PGM WHICH GETS THE TIME FROM THE SYSTEM BY * FILE 316 //* 'STORE CLOCK' INSTRUCTION AND PASSES IT TO * FILE 316 //* SUBPROGRAM CALLED "TODCNVRT". * FILE 316 //* * FILE 316 //* TODCNVRT 1 SUBPGM CONVERTS THE RESULTS OF THE 'STCK' * FILE 316 //* INSTRUCTION TO EBCDIC. LOGIC FROM MODULE * FILE 316 //* AMDPRSEG IN AMDPRDMP (WITH A FEW MODS) * FILE 316 //* MAKES PARAMETER PASSING EASIER. * FILE 316 //* * FILE 316 //* UADSORT 1 READ AND PRINT CONTENTS OF 'SYS1.UADS' BY * FILE 316 //* TRAVELING THROUGH THE RECORDS. * FILE 316 //* * FILE 316 //* UNIVERT 1 PGM TO CONVERT CARD DECK DATA BACK & FORTH * FILE 316 //* TO UNIVAC(FIELDATA). USES UNIVAC TRANSLATE * FILE 316 //* TABLES IN 2ND CSECT. * FILE 316 //* * FILE 316 //* USRGUIDE 1 THIS IS THE 2ISG USER'S GUIDE. HOPEFULLY * FILE 316 //* IT WILL GIVE YOU AN IDEA OF HOW ONE PLACE * FILE 316 //* WROTE ONE. * FILE 316 //* * FILE 316 //* VIOEXIT 1X ACF2 VIOLATION EXIT TO ALLOW USE OF BLP IN * FILE 316 //* CASES WHERE TMS FOREIGN TAPES NEED TO BE * FILE 316 //* READ. SEE CODE FOR EXPLANATION. * FILE 316 //* * FILE 316 //* VKILLER 1 SUBTASK FOR TAPEL. LETS YOU DO MULTI * FILE 316 //* TAPEL'S ON A NO. OF TAPES, THEN MAKE IT * FILE 316 //* QUIT. YOU TELL "KILL", TO KILL TAPEL !!!! * FILE 316 //* * FILE 316 //* ZEBCOMPR 1 A ZAP TO THE IBM UTILITY 'IEBCOMPR' TO * FILE 316 //* DISPLAY UNMATCHED RECORDS IN EBCDIC * FILE 316 //* INSTEAD OF HEX. WE MADE A COPY OF * FILE 316 //* IEBCOMPR, CALLED IT ZEBCOMPR AND ZAPPED * FILE 316 //* IT. * FILE 316 //* * FILE 316 //* ZMSG 1X PGM TAKES MESSAGE OUT OF PARM FIELD AND * FILE 316 //* DISPLAYS ON CONSOLE. NICE TO PUT IN JCL * FILE 316 //* PROCS TO NOTIFY OPERATORS OF PROBLEMS. * FILE 316 //* * FILE 316 //* ZTDUMPTP 1X GENERALIZED TAPE DUMPING FACILITY. PUT IT * FILE 316 //* IN AN AUTHORIZED LIBRARY. POWERFUL. SEE * FILE 316 //* COMMENTS IN CODE FOR FULL DETAILS. * FILE 316 //* * FILE 316 //* ZTSECURE 2X MAKES SURE NO DATA IS BEYOND THE 2 DOUBLE * FILE 316 //* EOF MARKS ON TAPE. DUMPS FIRST 3 BLOCKS * FILE 316 //* AND LAST BLK OF EVERY FILE. LEAPS OVER * FILE 316 //* DOUBLE END-OF-FILE MARKS & WRITES BINARY * FILE 316 //* PATTERN UNTIL HITS REFLECTIVE STRIP. * FILE 316 //* * FILE 316 //***FILE 317 IS FROM TIM HENNESS OF TENNECO BUSINESS SERVICES IN * FILE 317 //* NEWPORT NEWS, VIRGINIA, AND CONTAINS A REXX EXEC TO * FILE 317 //* MANAGE IBM BOOK MANAGER BOOKS. * FILE 317 //* * FILE 317 //* THIS REXX EXEC IS BEST RUN UNDER TSO-IN-BATCH. * FILE 317 //* SAMPLE JCL IS INCLUDED IN THIS FILE. * FILE 317 //* * FILE 317 //* EMAIL: TimHenness@ibm.net * FILE 317 //* * FILE 317 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * FILE 317 //* * FILE 317 //* MAINTAIN BOOKMANAGER DATA SETS * FILE 317 //* * FILE 317 //* PROGRAM NAME - BKMGRMNT * FILE 317 //* * FILE 317 //* FUNCTION - * FILE 317 //* * FILE 317 //* THIS REXX EXEC WILL INDICATE THE MAINTAINANCE REQUIRED * FILE 317 //* FOR BOOKMANAGER DATA SETS. THE FOLLOWING LISTINGS ARE * FILE 317 //* PRODUCED: * FILE 317 //* * FILE 317 //* 1. LIST OF BOOKSHELVES NOT IN THE BOOKSHELF LIST. * FILE 317 //* * FILE 317 //* 2. LIST OF BOOKSHELF INDEXES NOT USED BY ANY BOOKSHELF. * FILE 317 //* * FILE 317 //* 3. LIST OF BOOKS NOT IN ANY BOOKSHELF. * FILE 317 //* * FILE 317 //* 4. LIST OF BOOKS TO BE REPLACED IN SPECIAL BOOKSHELVES. * FILE 317 //* * FILE 317 //* ALSO, A REXX EXEC CAN BE WRITTEN THAT, WHEN EXECUTED, * FILE 317 //* WILL DELETE THE BOOKSHELVES AND BOOKS INDICATED. * FILE 317 //* * FILE 317 //* PARAMETERS - * FILE 317 //* * FILE 317 //* THIS EXEC IS CALLED WITH THE FOLLOWING PARAMETER FORMAT: * FILE 317 //* * FILE 317 //* BKMGRMNT CNTLFILE * FILE 317 //* * FILE 317 //* WHERE: * FILE 317 //* * FILE 317 //* CNTLFILE - IS THE DATA SET NAME OF THE CONTROL FILE. * FILE 317 //* * FILE 317 //* CONTROL FILE FORMATS - * FILE 317 //* * FILE 317 //* THE CONTROL FILE CONSISTS OF CONTROL RECORDS THAT * FILE 317 //* DEFINE THE DATA TO BE PROCESSED. * FILE 317 //* * FILE 317 //* THE BOOKSHELF LISTS, BOOKSHELVES, BOOKSHELF INDEXES, AND * FILE 317 //* BOOKS ARE ACCESSED FROM THE CATALOG. THE CATALOGED DATA * FILE 317 //* SET NAMES ARE DEFINED BY THE FOLLOWING CONTROL * FILE 317 //* STATEMENTS: * FILE 317 //* * FILE 317 //* CATALOG BKLSHELF=MASK * FILE 317 //* CATALOG BKSHELF=MASK * FILE 317 //* CATALOG BKINDEX=MASK * FILE 317 //* CATALOG BOOK=MASK * FILE 317 //* * FILE 317 //* WHERE: * FILE 317 //* * FILE 317 //* MASK - IS A MASK DEFINING THE DATA SET NAMES. A MASK * FILE 317 //* CONSISTS OF A HIGH-LEVEL QUALIFIER, FOLLOWED BY * FILE 317 //* ONE OR MORE QUALIFIERS. A PERCENT SIGN ('%') * FILE 317 //* CAN BE USED TO MATCH ANY SINGLE CHARACTER. AN * FILE 317 //* ASTERISK ('*') CAN BE USED TO MATCH MULTIPLE * FILE 317 //* CHARACTERS IN A SINGLE QUALIFIER. A DOUBLE * FILE 317 //* ASTERISK ('**') CAN BE USED TO MATCH ZERO OR * FILE 317 //* MORE QUALIFIERS. * FILE 317 //* * FILE 317 //* TO EXCLUDE SPECIFIC DATA SETS, USE THE FOLLOWING * FILE 317 //* CONTROL STATEMENTS: * FILE 317 //* * FILE 317 //* EXCLUDE BKLSHELF=DSN * FILE 317 //* EXCLUDE BKSHELF=DSN * FILE 317 //* EXCLUDE BKINDEX=DSN * FILE 317 //* EXCLUDE BOOK=DSN * FILE 317 //* * FILE 317 //* WHERE: * FILE 317 //* * FILE 317 //* DSN - IS THE DATA SET NAME TO BE EXCLUDED. * FILE 317 //* * FILE 317 //* 'SPECIAL' BOOKSHELVES ARE BOOKSHELVES THAT ARE CREATED * FILE 317 //* LOCALLY, USING BOOKS FROM OTHER BOOKSHELVES. FOR * FILE 317 //* EXAMPLE, THE 'MESSAGES' BOOKSHELF CONTAINS ALL OF THE * FILE 317 //* BOOKS CONTAINING MESSAGES AND CODES FROM THE OTHER * FILE 317 //* BOOKSHELVES. THE SPECIAL BOOKSHELVES ARE DEFINED BY THE * FILE 317 //* FOLLOWING CONTROL STATEMENT: * FILE 317 //* * FILE 317 //* SPECIAL BKSHELF=3DDSN * FILE 317 //* * FILE 317 //* WHERE: * FILE 317 //* * FILE 317 //* DSN - IS THE DATA SET NAME OF THE SPECIAL BOOKSHELF. * FILE 317 //* * FILE 317 //* THIS EXEC WILL WRITE SEVERAL REPORTS. THE REPORT DATA * FILE 317 //* SET IS DEFINED FROM THE FOLLOWING CONTROL STATEMENTS: * FILE 317 //* * FILE 317 //* REPORT DSN=DSN * FILE 317 //* REPORT SYSOUT=CLASS * FILE 317 //* REPORT TERM * FILE 317 //* REPORT ALLOC=PARMS * FILE 317 //* REPORT OUTDES=OUTDES * FILE 317 //* REPORT DEPTH=DEPTH * FILE 317 //* * FILE 317 //* WHERE: * FILE 317 //* * FILE 317 //* DSN - IS THE NAME OF THE DATA SET TO WHICH THE * FILE 317 //* REPORT IS TO BE WRITTEN. * FILE 317 //* * FILE 317 //* CLASS - IS THE SYSOUT CLASS TO WHICH THE REPORT IS * FILE 317 //* TO BE WRITTEN. * FILE 317 //* * FILE 317 //* TERM - SPECIFIES THAT THE REPORT IS TO BE WRITTEN * FILE 317 //* TO THE TSO TERMINAL. * FILE 317 //* * FILE 317 //* PARMS - SPECIFIES THE PARAMETERS TO BE INCLUDED ON * FILE 317 //* THE TSO ALLOCATE FOR THE REPORT DATA SET. * FILE 317 //* * FILE 317 //* OUTDES - SPECIFIES THE PARAMETERS TO BE USED FOR THE * FILE 317 //* TSO OUTDES COMMAND FOR THE REPORT DATA SET. * FILE 317 //* AN 'OUTDES(BKMGROUT)' PARAMETER WILL BE * FILE 317 //* INCLUDED IN THE TSO ALLOCATE COMMAND FOR THE * FILE 317 //* REPORT DATA SET. THIS PARAMETER CAN BE * FILE 317 //* SPECIFIED ONLY IF THE 'REPORT SYSOUT' * FILE 317 //* PARAMETER IS SPECIFIED. * FILE 317 //* * FILE 317 //* DEPTH - IS THE NUMBER OF LINES TO BE PRINTED ON A * FILE 317 //* PAGE. IF THIS PARAMETER IS OMITTED, THE * FILE 317 //* DEFAULT IS 60. * FILE 317 //* * FILE 317 //* THIS EXEC WILL WRITE ANOTHER REXX EXEC THAT TO DELETE * FILE 317 //* THE UNREFERENCED BOOKSHELVES, BOOKSHELF INDEXES, AND * FILE 317 //* BOOKS. THE REXX EXEC IS WRITTEN TO A DATA SET DEFINED * FILE 317 //* BY THE FOLLOWING CONTROL STATEMENTS: * FILE 317 //* * FILE 317 //* EXEC DSN=DSN * FILE 317 //* EXEC ALLOC=PARMS * FILE 317 //* * FILE 317 //* WHERE: * FILE 317 //* * FILE 317 //* DSN - IS THE DATA SET NAME OF THE REXX EXEC. IF * FILE 317 //* THIS PARAMETER IS NOT SPECIFIED, THE EXEC * FILE 317 //* WILL NOT BE WRITTEN. * FILE 317 //* * FILE 317 //* PARMS - SPECIFIES THE ALLOCATION PARAMETERS TO BE * FILE 317 //* INCLUDED ON THE TSO ALLOCATE FOR THE REXX * FILE 317 //* EXEC DATA SET. IF THIS PARAMETER IS NOT * FILE 317 //* SPECIFIED, THE DATA SET MUST ALREADY EXIST. * FILE 317 //* * FILE 317 //***FILE 318 IS FROM KNUT FEIERT OF H & M SYSTEM SOFTWARE GMBH * FILE 318 //* IN ROEDERMARK, GERMANY. THIS FILE CONTAINS A * FILE 318 //* PROGRAM AND A REXX EXEC TO PRINT MATERIAL IN A TAPE * FILE 318 //* CREATED ON A DOS/VSE SYSTEM, IN POWER OFFLOAD * FILE 318 //* FORMAT, TO A PRINTER DRIVEN BY AN MVS OR A VM * FILE 318 //* SYSTEM. * FILE 318 //* * FILE 318 //* THE REXX EXEC WAS TRANSLATED FROM GERMAN INTO * FILE 318 //* ENGLISH BY MR. FEIERT, BUT AN APPROXIMATION OF * FILE 318 //* THE ORIGINAL (UMLAUT'ED LETTERS CHANGED TO -E) * FILE 318 //* GERMAN VERSION HAS BEEN INCLUDED TOO. * FILE 318 //* * FILE 318 //* ADDRESS: KNUT FEIERT * FILE 318 //* H & M SYSTEM SOFTWARE, GMBH * FILE 318 //* SENEFELDERSTRASSE 16 * FILE 318 //* D-63322 ROEDERMARK, GERMANY * FILE 318 //* * FILE 318 //* EMAIL: HM-ROE@T-ONLINE.DE * FILE 318 //* * FILE 318 //***FILE 319 IS A PROGRAM THAT WILL EXTRACT TYPE 14 AND 15 SMF * FILE 319 //* RECORDS AND PRODUCE A REPORT. THIS PROGRAM WAS * FILE 319 //* SUPPLIED FROM THE U.S. POSTAL SERVICE IN WASHINGTON, * FILE 319 //* D.C. FROM A PROGRAM THEY MODIFIED FROM THE SPLA TAPE * FILE 319 //* ** DECEMBER 03, 1985. (HAD A CALL ABOUT THIS PROGRAM * FILE 319 //* IT WAS MISSING MACROS - I RESTORED THE OLD VERSION OF * FILE 319 //* THE CODE - THAT HAD ALL ITS MACROS.) * FILE 319 //* * FILE 319 //***FILE 320 IS A SERIES OF DF/DSS DRIVER EXITS FROM JOHN * FILE 320 //* SULLIVAN OF LOMA LINDA UNIVERSITY MEDICAL CENTER IN * FILE 320 //* CALIFORNIA. THIS VERSION HAS A NEW UCB LOOK UP * FILE 320 //* ROUTINE WHICH IS UPWARD COMPATIBLE WITH MVS/SP1.3 * FILE 320 //* AND MVS/SP2.0 (XA) AS WELL AS MVS 3.8 BASE LEVEL * FILE 320 //* CODE. * FILE 320 //* * FILE 320 //***FILE 321 is from Roland Schiradin of Eltville, Germany. * FILE 321 //* This file contains several programs: One is a * FILE 321 //* COBOL load module analyzer, which will tell you * FILE 321 //* what options a COBOL CSECT was compiled with. * FILE 321 //* Another is a started task tester, to check if a * FILE 321 //* certain started task is running, and to set a * FILE 321 //* condition code in a batch job as a result. * FILE 321 //* * FILE 321 //* Addition of a CICS CEMT interface for batch. * FILE 321 //* 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 //* SCHIRADINR@ALTE-LEIPZIGER.DE (WORK) * FILE 321 //* * FILE 321 //* Roland Schiradin (July 2005) * FILE 321 //* * FILE 321 //* -------------------------------------------------------------- * FILE 321 //* * FILE 321 //* These programs are distributed on an as is, where is * FILE 321 //* basis, without expressed or implied warranty of any * FILE 321 //* kind. It is distributed in hope that it may save other * FILE 321 //* people some wheel re-inventing. * FILE 321 //* * FILE 321 //* -------------------------------------------------------------- * FILE 321 //* * FILE 321 //* Addition of an ISPF interface to Roland Schiradin's COBANAL * FILE 321 //* program, from Fritz Alber: * FILE 321 //* * FILE 321 //* COBOL ANALYSIS ISPF DIALOG * FILE 321 //* Supplement to CBT File 321 program COBANAL * FILE 321 //* developed by Roland Schiradin * FILE 321 //* * FILE 321 //* Fritz Alber * FILE 321 //* Albstr. 19 * FILE 321 //* D 72649 Wolfschlugen * FILE 321 //* TEL. 0049-7022/959234 * FILE 321 //* FAX. 0049-7022/959236 * FILE 321 //* * FILE 321 //* E-MAIL : Alber@alber-edv.de * FILE 321 //* INTERNET: www.alber-edv.de * 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 //* You can find a nice ISPF interface for CobAnal on * FILE 321 //* File 330 * FILE 321 //* * FILE 321 //* Last Change: July 2005 * FILE 321 //* * FILE 321 //* COBJCL A sample JCL for COBANAL * FILE 321 //* * FILE 321 //* Last Change: January 2002 * 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 //* 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 //* THERE ARE ENOUGH IDEAS INCLUDED IN THESE PROGRAMS, SO * FILE 322 //* THAT IF YOU NEED SOMETHING THAT'S A LITTLE DIFFERENT, * FILE 322 //* YOU CAN PROBABLY PROGRAM IT YOURSELF. * FILE 322 //* * FILE 322 //***FILE 323 IS FROM GERARD NICOL OF EUREKA SYSTEMS PROGRAMMING * FILE 323 //* PTY LTD OF LEICHHARDT, AUSTRALIA. THIS FILE CONTAINS * FILE 323 //* A REXX FUNCTION PACKAGE WRITTEN IN ASSEMBLER. THIS * FILE 323 //* FILE CONTAINS SOURCE-FORMAT MEMBERS NEEDED TO RUN * FILE 323 //* THE REXX FUNCTIONS, BUT SOURCE CODE FOR THE ASSEMBLER * FILE 323 //* LOAD MODULES ON FILE 324 IS NOT INCLUDED. * FILE 323 //* * FILE 323 //* THIS FILE NOW CONTAINS GERARD'S FULL PACKAGE. THE * FILE 323 //* COMPLETE PACKAGE NO LONGER HAS AN EXPIRY DATE. * FILE 323 //* UPDATES MAY BE OBTAINED BY DOWNLOADING FROM GERARD'S * FILE 323 //* WEB SITE: * FILE 323 //* * FILE 323 //* HTTP://WWW.LEICHHARDT.NET.AU/GERARD/REXXFP1 * FILE 323 //* * FILE 323 //* EMAIL: GERARD@LEICHHARDT.NET.AU * FILE 323 //* GNI13@QANTAS.COM.AU WORK * FILE 323 //* * FILE 323 //* FOR A DESCRIPTION OF THIS PACKAGE, SEE MEMBERS * FILE 323 //* $$$ABOUT, $$$DESCR, $$$INDEX, $$$SYNTX. * FILE 323 //* * FILE 323 //***FILE 324 IS FROM GERARD NICOL OF EUREKA SYSTEMS PROGRAMMING * FILE 324 //* PTY LTD OF LEICHHARDT, AUSTRALIA. THIS FILE CONTAINS * FILE 324 //* LOAD MODULE MEMBERS FOR HIS REXX FUNCTION PACKAGE. * FILE 324 //* * FILE 324 //* THIS IS NOW GERARD'S FULL PACKAGE. ALL OF THE * FILE 324 //* FUNCTIONS IN HIS PACKAGE ARE INCLUDED HERE. * FILE 324 //* FUTURE UPDATES MAY BE OBTAINED BY DOWNLOADING * FILE 324 //* FROM GERARD'S WEB SITE: * FILE 324 //* * FILE 324 //* HTTP://WWW.LEICHHARDT.NET.AU/GERARD/REXXFP1 * FILE 324 //* * FILE 324 //***FILE 325 IF FROM WELLS FARGO BANK AND CONTAINS THE FOLLOWING * FILE 325 //* PROGRAMS AND TSO COMMANDS. ALL CODE IS CURRENT AS OF * FILE 325 //* SEP 1986, MVS / XA 2.1.5. * FILE 325 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT. * FILE 325 //* SEE THE MEMBER CALLED $$DOC FOR ADDITIONAL * FILE 325 //* INFORMATION. * FILE 325 //* * FILE 325 //* DARTH - THE 'DUMP ACTIVITY REPORTER / TAPE HANDLER' * FILE 325 //* UTILITY THAT PROCESSES SYS1.DUMP DATASETS. * FILE 325 //* DARTH RUNS AS A STARTED TASK THAT WAKES UP * FILE 325 //* EVERY 15 MINUTES TO CHECK ALL DEFINED DUMP * FILE 325 //* DATASETS. WHEN A DUMP IS PRESENT, A TAPE * FILE 325 //* IS DYNAMICALLY ALLOCATED, THE DUMP IS * FILE 325 //* OFFLOADED, AND THE DATASET IS RESET. THEN * FILE 325 //* A CONTROL DATASET IS UPDATED TO RECORD THE * FILE 325 //* SYSTEM ID, DATE, AND TIME WHERE THE DUMP * FILE 325 //* OCCURRED, THE TAPE VOLUME IDETIFICATION, * FILE 325 //* AND THE ACTUAL TITLE FROM THE DUMP. * FILE 325 //* * FILE 325 //* IEFUTL - WELLS FARGO'S VERSION OF THE SMF USER TIME * FILE 325 //* LIMIT EXIT. YOU WILL NOT BE ABLE TO USE * FILE 325 //* THIS CODE AS IT STANDS BECAUSE OF SOME * FILE 325 //* INSTALLATION DEPENDENCIES THAT ARE NOT * FILE 325 //* SHIPPED. * FILE 325 //* * FILE 325 //* THIS IS AN EXAMPLE OF HOW TO DISCONNECT A * FILE 325 //* TSO USER RATHER THAN CANCEL WHEN WAIT TIME * FILE 325 //* IS EXCEEDED. THE USER THEN HAS HOWEVER * FILE 325 //* MUCH TIME AS YOU ALLOW IN YOUR RECONLIM= * FILE 325 //* PARAMETER TO LOGON RECONNECT BEFORE VTAM * FILE 325 //* AUTOMATICALLY CANCELS THE ADDRESS SPACE. * FILE 325 //* THE TERMINAL BECOMES IMMEDIATELY AVAILABLE * FILE 325 //* FOR USE BY OTHER IDS, AND THE DISCONNECTED * FILE 325 //* ID REMAINS SWAPPED OUT. * FILE 325 //* * FILE 325 //* SEE THE CODE THAT REFERS TO VTAM COMMAND: * FILE 325 //* V NET,TERM, ... * FILE 325 //* * FILE 325 //* NOTE ===> THIS PERFORMS THE SAME FUNCTION * FILE 325 //* THROUGH OPERATOR COMMAND THAT ANY USER * FILE 325 //* CAN INVOKE THROUGH KEYBOARD ACTION. IF * FILE 325 //* YOU ARE NOT FAMILIAR WITH CONDITIONAL * FILE 325 //* LOGOFF, READ "INVOKING UNFORMATTED SYSTEM * FILE 325 //* SERVICE TYPE(COND) TO FORCE A RECONNECT * FILE 325 //* ENVIRONMENT" IN THE TSO TERMINAL USER'S * FILE 325 //* GUIDE. * FILE 325 //* * FILE 325 //* INMXZ01 - TSO/E TRANSMIT INITIALIZATION EXIT TO * FILE 325 //* PREVENT TRANSMISSION TO NON-EXISTENT TSO * FILE 325 //* USERIDS ON SAME NODE AS SENDER (JES2 EXIT 13 * FILE 325 //* HANDLES NJE TRANSMISSIONS FROM OTHER NODES) * FILE 325 //* AND THEREBY KEEP UNRECEIVABLE DATA OFF JES2 * FILE 325 //* SPOOL. * FILE 325 //* * FILE 325 //* THE EXIT SEARCHES THE ADDRESS * FILE 325 //* LIST FOR A LOCAL NODE, THEN CALLS * FILE 325 //* ACF2 TO VERIFY EXISTENCE OF USER. * FILE 325 //* IF NOT VALID, THE USERID IS * FILE 325 //* REMOVED FROM THE ADDRESS LIST AND * FILE 325 //* AN ERROR MESSAGE IS ISSUED TO THE * FILE 325 //* SENDER. * FILE 325 //* NOTE: REQUIRES PTF UZ39974 (OR EQUIVALENT) * FILE 325 //* BE INSTALLED FOR CORRECT FUNTIONING * FILE 325 //* OF "UNCHAINING" INVALID USERID. * FILE 325 //* * FILE 325 //* INMXZ02 - TSO/E TRANSMIT TERMINATION EXIT TO ISSUE * FILE 325 //* EQUIVALENT OF "$HASP549 MAIL FROM" MESSAGE * FILE 325 //* TO NOTIFY RECEIVING USERS OF LOCAL NODE * FILE 325 //* TRANSMISSION. (LOCAL TRANSMISSIONS DO NOT * FILE 325 //* PASS THROUGH JES2 EXIT 13). * FILE 325 //* * FILE 325 //* THE EXIT SEARCHES THE ADDRESS LIST FOR A * FILE 325 //* LOCAL NODE, THEN VERIFIES THE OUTPUT TARGET * FILE 325 //* IS JES SYSOUT AND TRANSMISSION HAS * FILE 325 //* SUCCESSFULLY COMPLETED. "SEND * FILE 325 //* '$HASP549...',USER=(),LOGON" IS ISSUED VIA * FILE 325 //* SVC34. * FILE 325 //* * FILE 325 //* JESLOGON - A PROGRAM TO ALLOW A TSO USER TO LOGON TO * FILE 325 //* ANY SECONDARY SUBSYSTEM. IT ACTS AS A * FILE 325 //* ONE-TIME FRONT END FOR THE STANDARD TMP, * FILE 325 //* AND IS INTENDED TO BE EXECUTED BY THE * FILE 325 //* LOGON PROCEDURE. JOB SUBMISSIONS AND PSO * FILE 325 //* (PROCESS SYSOUT) REQUESTS ARE ALSO HANDLED * FILE 325 //* BY THE SECONDARY JES. * FILE 325 //* * FILE 325 //* JESMAXCC - A PAIR OF JES2 (SP2.1.5) EXITS THAT ADD TEXT * FILE 325 //* TO THE $HASP165 MESSAGE GENERATED BY NOTIFY= * FILE 325 //* ON THE JOB CARD OR BY THE JES2 /*NOTIFY * FILE 325 //* CONTROL CARD. IF THE JOB DOES NOT ABEND, * FILE 325 //* THE MAXIMUM CONDITION CODE OF ALL EXECUTED * FILE 325 //* STEPS IS ADDED. IF THE JOB ABENDS, THE * FILE 325 //* SYSTEM OR USER ABEND CODE IS ADDED: * FILE 325 //* $HASP165 YOURJOB ENDED AT NODE - MAX COND * FILE 325 //* CODE 0000 * FILE 325 //* $HASP165 YOURJOB ENDED AT NODE - ABENDED * FILE 325 //* USER XXX * FILE 325 //* $HASP165 YOURJOB ENDED AT NODE - CANCELLED * FILE 325 //* SYSTEM 222 * FILE 325 //* * FILE 325 //* NOTE - TWO CLISTS, ONE ISPF PANEL, AND A HELP ENTRY * FILE 325 //* THAT PROVIDE A FACILITY TO DELIVER PROFS * FILE 325 //* NOTES FROM A TSO SESSION: * FILE 325 //* NOTE - THE DRIVING CLIST, INVOKES * FILE 325 //* WFBNOTE AND NOTEIMAC * FILE 325 //* NOTEIMAC - PDF EDIT INITIAL MACRO FOR * FILE 325 //* SPECIAL FORMATTING * FILE 325 //* WFBNOTE - ISPF PANEL TO COLLECT DATA FOR * FILE 325 //* NOTE CLIST * FILE 325 //* NOTEHELP - HELP ENTRY FOR NOTE CLIST * FILE 325 //* (RENAME TO ==> NOTE) * FILE 325 //* THE NOTE COMMAND PROCEDURE (CLIST) USES THE * FILE 325 //* ISPF/PDF EDITOR TO BUILD AND FORMAT MAIL * FILE 325 //* "NOTES", THEN SENDS THEM TO PROFS OR TSO * FILE 325 //* USERS. NOTE USES ISPF DIALOG SERVICES TO * FILE 325 //* COLLECT INFORMATION BY DISPLAYING PANELS, * FILE 325 //* THEREFORE NOTE MUST BE EXECUTED WHILE ISPF * FILE 325 //* IS ACTIVE. * FILE 325 //* THIS FACILITY WAS ORIGINALLY WRITTEN TO USE * FILE 325 //* THE TSO TRANSMIT COMMAND FOR DATA * FILE 325 //* TRANSMISSION, BUT BECAUSE PROFS CAN NOT * FILE 325 //* DECIPHER TRANSMIT CONTROL TAGS, NOTE NOW * FILE 325 //* USES A SPECIALLY MODIFIED VERSION OF THE * FILE 325 //* PRINTOFF COMMAND. THIS PRINTOFF, WHICH * FILE 325 //* ALLOWS DEST(NODE.USER), IS PROVIDED IN THIS * FILE 325 //* PACKAGE. * FILE 325 //* * FILE 325 //* OPCON - OPERATOR CONSOLE MONITOR MODIFIED FOR WFB * FILE 325 //* * FILE 325 //* S P Y (NAME CHANGED TO "OPCON" IN * FILE 325 //* THE CODE, BUT COMMENTS STILL * FILE 325 //* REFER TO "SPY") * FILE 325 //* * FILE 325 //* THIS PROGRAM DISPLAYS THE CONTENTS OF ALL * FILE 325 //* ACTIVE GRAPHIC OPERATOR'S CONSOLES ON A TSO * FILE 325 //* CRT. THE OPERATOR'S SCREEN CAN BE EITHER A * FILE 325 //* 327X OR A 370-168 INTEGRATED CONSOLE. THE * FILE 325 //* TSO USER CAN USE ANY 327X TERMINAL. * FILE 325 //* * FILE 325 //* V3.3.2 - CORRECT SUPPORT FOR 327X MODEL 3 CONSOLE. * FILE 325 //* V3.3.1 - CHANGE CONSOLE ASID TO 7 DUE TO CATALOG * FILE 325 //* ASID W/ DFP V2. * FILE 325 //* V3.3 - ADD SUPPORT FOR VIEWING CONSOLES THAT HAVE * FILE 325 //* 3270 EXTENDED FIELD ATTRIBUTES (E.G. 3179, * FILE 325 //* 3180, 3279-3B, ETC.). * FILE 325 //* - MAKE OPCON NON-SWAPPABLE. * FILE 325 //* - CHANGE CONSOLE ASID TO 6 FOR XA (S/370 * FILE 325 //* CONASID IS 5). * FILE 325 //* V3.2 - ELIMINATE SPECIAL CHARACTER REQUIRED TO * FILE 325 //* PRECEDE OS CMD * FILE 325 //* - ELIMINATE SECRET AUTH SVC, RESTORE MODESET * FILE 325 //* AND SVC34 * FILE 325 //* - CORRECT BUFFER ADDRESS PROBLEM WITH LINE 1 * FILE 325 //* OF DISPLAY * FILE 325 //* - CORRECT LOOP COUNT FOR UCM BUILD ROUTINE * FILE 325 //* - ADD SUBCOMMAND A.. (AUTO W.. AFTER COMMAND * FILE 325 //* ENTRY) * FILE 325 //* - ADD CHECK AT INITIALIZATION FOR TSO OPER * FILE 325 //* AUTHORITY * FILE 325 //* - MAKE COMMAND ENTRY AREA NON-DISPLAY UNTIL * FILE 325 //* PASSWD GIVEN * FILE 325 //* - MAKE "OPER REDISPLAY" AREA MODIFIABLE FOR * FILE 325 //* REENTRY * FILE 325 //* - FILL BOTH ENTRY AREAS WITH NULLS TO ALLOW * FILE 325 //* CHAR INSERT * FILE 325 //* - REDISPLAY LAST CMD ENTERED BY USER * FILE 325 //* (INSTEAD OF OPER) * FILE 325 //* - MOVE CONSOLE STATUS TABLE TO SEPARATE * FILE 325 //* CSECT * FILE 325 //* - RESTRUCTURE THE HELP SCREEN AND USE * FILE 325 //* UPPER/LOWER CASE * FILE 325 //* - PROVIDE TSO HELP ENTRY AS COMMENTS AT END * FILE 325 //* OF SOURCE * FILE 325 //* * FILE 325 //* PRINTOFF - THE WIDELY MODIFIED IPO SUPPLIED TSO * FILE 325 //* COMMAND TO PRINT A DATASET, WITH YET MORE * FILE 325 //* FUNCTIONS ADDED. AFTER RESEARCHING ALL * FILE 325 //* VERSIONS ON THE CBT TAPE, WELLS FARGO * FILE 325 //* CREATED THIS VERSION FROM SOURCE FROM FOUR * FILE 325 //* SEPARATE FILES. WE BELIEVE THIS CONTAINS * FILE 325 //* ALL FEATURES EXCEPT ONE WHICH WILL BE * FILE 325 //* ADDED WITH OUR NEXT UPDATE (HONOR EXISTING * FILE 325 //* CC EVEN IF DCB SAYS "NO CC"). * FILE 325 //* * FILE 325 //* R2 - * CORRECT ERROR, 'NOHEAD' CAUSED BLANK * FILE 325 //* FIRST PAGE. * FILE 325 //* * CORRECT ERRORS IN LENGTH OF TEXTG * FILE 325 //* THROUGH TEXTJ. * FILE 325 //* * INCREASE INPUT RECORD LIMIT TO * FILE 325 //* 32,760. * FILE 325 //* * CHANGE DSNAME POSIT TO DSTHING TO * FILE 325 //* ALLOW FOR DDN(). * FILE 325 //* * CHANGE DEST KEYWORD TO ACCEPT 8 * FILE 325 //* CHARACTER VALUE. * FILE 325 //* * CHANGE DEST KEYWORD TO ACCEPT NODE * FILE 325 //* AND USERID. * FILE 325 //* * ADD DDNAME(...) KEYWORD TO ALLOW TEMP * FILE 325 //* OR VIO DATASETS. * FILE 325 //* * ADD UNIT(...) KEYWORD FOR USE WITH * FILE 325 //* VOLUME(...). * FILE 325 //* * ADD 'VOLUME: VOLSER' TO HEADING WHEN * FILE 325 //* SPECIFIED. * FILE 325 //* +--------> * ADD TIME AND 'MONTHNAME DAY, YEAR' TO * FILE 325 //* : DSN HEADING. * FILE 325 //* : * ADD NOMSGS KEYWORD TO STOP NON-ERROR * FILE 325 //* : MSGS TO TERMINAL. * FILE 325 //* : * ADD DSECT=YES TO CVT MACRO FOR CLEAN * FILE 325 //* : XA ASSEMBLY. * FILE 325 //* : * MOVE ALL PUTLINE TEXT TO SEPARATE * FILE 325 //* : MESSAGES CSECT. * FILE 325 //* : --- (FOLLOWING CHANGES ARE WFB * FILE 325 //* : SPECIFIC) --- * FILE 325 //* : * MAKE WFB DEFAULT FORM($TST) IN PARSE * FILE 325 //* : MACRO. * FILE 325 //* : * FILE 325 //* +-- NOTE ==> THE TIME-DATE ROUTINE IKJEFLPA * FILE 325 //* NORMALLY RESIDES ONLY IN SYS1.AOST4. * FILE 325 //* THIS LIBRARY MUST BE INCLUDED IN THE * FILE 325 //* LINKEDIT SYSLIB FOR PROPER * FILE 325 //* RESOLUTION. * FILE 325 //* * FILE 325 //* ROOM - (THIS VERSION IS UPDATED TO JES2 SP2.1.5 * FILE 325 //* LEVEL.) A TSO COMMAND TO ALLOW A USER TO * FILE 325 //* CHANGE THE "ROOM NUMBER" FIELD IN THE JES * FILE 325 //* JCT FOR THE TSO SESSION. THIS COMMAND IS * FILE 325 //* NECESSARY BECAUSE THE ROOM NUMBER FIELD IS * FILE 325 //* NOT SUPPORTED BY UADS (AND THE FIELD IS * FILE 325 //* OVERLAYED BY WELLS FARGO ACCOUNTING * FILE 325 //* INFORMATION DURING LOGON). ROOM MAKES IT * FILE 325 //* EASY FOR THE USER TO SPECIFY DELIVERY * FILE 325 //* INFORMATION (PRINTED ON JES HEADER AND * FILE 325 //* TRAILER PAGES) FOR ALL SYSOUT CREATED DURING * FILE 325 //* THE SESSION, INCLUDING SPUN DATASETS. * FILE 325 //* * FILE 325 //* THIS CODE CAN SERVE AS A MODEL FOR ALLOWING * FILE 325 //* A TSO USER TO CHANGE THROUGH AUTHORIZED * FILE 325 //* MEANS ANY OTHERWISE PROTECTED INFORMATION IN * FILE 325 //* THE JES JCT OR SIMILAR CONTROL BLOCKS. * FILE 325 //* * FILE 325 //* VTAMCHK - THIS PROGRAM IS INTENDED TO BE STARTED * FILE 325 //* AUTOMATICALLY AFTER AN IPL (BY COMMNDXX). * FILE 325 //* IT IS USED TO START VTAM APPLICATIONS OR * FILE 325 //* ISSUE OTHER COMMANDS IN AN ORDERLY SEQUENCE * FILE 325 //* AFTER VTAM IS UP AND RUNNING. VTAMCHK HAS * FILE 325 //* THE OPTION TO DELAY BETWEEN ISSUING EACH * FILE 325 //* COMMAND BECAUSE SOME ENVIRONMENTS * FILE 325 //* THEMSELVES HAVE TIME DEPENDENCIES, SUCH AS * FILE 325 //* $SLOGON1 (WAIT FOR INITIALIZATION) * FILE 325 //* * FILE 325 //* $SN,A=XX * FILE 325 //* * FILE 325 //* THE SOURCE HAS A SAMPLE OF THE PROCEDURE * FILE 325 //* AND SOME COMMANDS. * FILE 325 //* * FILE 325 //* VTOCLIST - A CORRECTED VERSION OF THE GTE VTOCLIST * FILE 325 //* PROGRAM TAKEN FROM THE CBT TAPE. * FILE 325 //* CORRECTIONS INCLUDE: * FILE 325 //* * FILE 325 //* - PROVIDE SUPPORT FOR 3380 MODEL E DEVICES. * FILE 325 //* - PROVIDE SUPPORT FOR DF/EF VSAM FILES WHICH * FILE 325 //* ARE ALLOWED TO HAVE MORE THAN 16 EXTENTS. * FILE 325 //* - TWO CORRECTIONS TO PRINT EXTENT NUMBERS * FILE 325 //* GREATER THAN 99. * FILE 325 //* - A CORRECTION TO PRINT THE "LAST REF DATA" * FILE 325 //* AND "USE COUNT". * FILE 325 //* * FILE 325 //***FILE 326 IS FROM JIM MARSHALL OF THE U.S. AIR FORCE, RETIRED. * FILE 326 //* THIS FILE CONTAINS THE COMPILER AND LIBRARY FOR * FILE 326 //* THE VANILLA OS/MVS FORTRAN H COMPILER AND LIBRARY * FILE 326 //* * FILE 326 //* 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 * 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 //* A modified version of this program, which is running * FILE 332 //* in production, has also been included in this file. * 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 OF CONVTEK AND CONTAINS * FILE 338 //* PROGRAMS AND ENHANCEMENTS FOR RUNNING A P390 SYSTEM. * FILE 338 //* * FILE 338 //* EMAIL: GSF@POBOX.COM * FILE 338 //* WEB PAGE: http://members.home.net/gsf (MAY REQUIRE * FILE 338 //* LOWER CASE) * FILE 338 //* * FILE 338 //* CONTENTS OF P390IPL.PDS * FILE 338 //* -------- -- ----------- * FILE 338 //* * FILE 338 //* CANCELU - CANCEL YOUR OWN TSO SESSION (possibly from * FILE 338 //* a remote location) * FILE 338 //* * FILE 338 //* HASP373 - SHOW ACTIVE JOBS AND TSO USERS ON * FILE 338 //* MASTER CONSOLE * FILE 338 //* * FILE 338 //* $LWILTIP - TIPS FROM LARRY WILLIAMS ON IMPROVING THE * FILE 338 //* P390'S PERFORMANCE * FILE 338 //* * FILE 338 //* P390IPL - AUTOMATE MVS IPL AND SHUTDOWN ON THE P390 * FILE 338 //* * FILE 338 //* SHUTDOWN - AUTOMATE MVS SHUTDOWN PROCEDURE ON THE P390 * FILE 338 //* * FILE 338 //***FILE 339 IS FROM E.F. MAC DONALD MOTIVATION FROM DAYTON OHIO. * FILE 339 //* THIS PROGRAM IS A JES2/SP1.3.6 (FMID HJE1367) AND A * FILE 339 //* JES2/SP2.1.7 (FMID HJE2215) USER EXIT #5 ROUTINE. * FILE 339 //* THERE ARE NO INSTALLATION UNIQUE CONSIDERATIONS * FILE 339 //* EXCEPT THAT THE COMMANDS "$JC", "$JL", "$JM" AND * FILE 339 //* "$JD" ARE NOT BEING USED FOR ANYTHING ELSE. NO * FILE 339 //* CHANGES TO JES2 CODE ARE REQUIRED. * FILE 339 //* * FILE 339 //* 1. CANCEL ALL JOES (JOB OUTPUT ELEMENTS) OF A * FILE 339 //* SPECIFIED JOB IN A SPECIFIED SYSOUT CLASS. * FILE 339 //* SIMILAR TO VS1 "C JOBNAME,OUT=X" EXAMPLES: * FILE 339 //* * FILE 339 //* $JCJ175,Q=D (CANCEL ALL SYSOUT=D JOES OF * FILE 339 //* J175) * FILE 339 //* * FILE 339 //* $JC'MYJOB',Q=E (CANCEL ALL SYSOUT=E JOES OF * FILE 339 //* JOBNAME "MYJOB") * FILE 339 //* * FILE 339 //* THE OPERAND "Q=" IS REQUIRED; USE JES2 "$C" * FILE 339 //* COMMAND TO CANCEL ALL OUTPUT OF A JOB. * FILE 339 //* * FILE 339 //* 2. LIST ALL JOES IN SYSOUT CLASS ORDER. * FILE 339 //* * FILE 339 //* LIST MAY BE RESTRICTED TO A SELECTED CLASS, OR * FILE 339 //* ALL CLASSES EXCEPT A SELECTED CLASS. SIMILAR * FILE 339 //* TO THE VS1 "SO" COMMAND. EXAMPLES: * FILE 339 //* * FILE 339 //* $JL (LIST ALL JOES IN SYSOUT CLASS * FILE 339 //* ORDER) * FILE 339 //* $JL,Q=Z (LIST ALL JOES IN SYSOUT QUEUE Z) * FILE 339 //* $JL,Q=-P (LIST ALL JOES EXCEPT THOSE IN * FILE 339 //* SYSOUT QUEUE P) * FILE 339 //* * FILE 339 //* EACH SELECTED JOE IS LISTED IN THE FOLLOWING * FILE 339 //* FORMAT : * FILE 339 //* * FILE 339 //* JNNNN JJJJJJJJ C I.I.I FORM X/Y P=NNN * FILE 339 //* LLLLLLLLL WHERE JNNNN IS THE JES2 JOB NUMBER * FILE 339 //* (J175, S3968, ETC.), JJJJJJJJ IS THE JOBNAME, * FILE 339 //* I.I.I IS THE JOE ID, FORM IS THE FORM NUMBER, * FILE 339 //* FCB IS THE FCB NAME, "X" IS "Y" IF THE DEST IS * FILE 339 //* LOCAL, "Y" IS "Y" IF THE JOE IS SELECTABLE AND * FILE 339 //* THE *JOB* IS NOT HELD, "Y" IS "N" IF THE JOE IS * FILE 339 //* NOT SELECTABLE, "Y" IS "H" IF THE JOB IS HELD, * FILE 339 //* "NNN" IS THE PRIORITY OF THE JOE (NOT THE JOB), * FILE 339 //* AND LLLLLLLLL IS THE JOE LINECOUNT. TO LIST * FILE 339 //* ALL JOES OF A PARTICULAR JOB, USE THE JES2 * FILE 339 //* "$L...,ALL" COMMAND. * FILE 339 //* * FILE 339 //* 3. MOVE THE JOES OF A SELECTED JOB FROM A SELECTED * FILE 339 //* SYSOUT CLASS TO A DIFFERENT SELECTED SYSOUT * FILE 339 //* CLASS. SIMILAR TO VS1 "E * FILE 339 //* JOBNAME,CLASS=X,OUT=Y". EXAMPLES: * FILE 339 //* * FILE 339 //* $JMJ175,FROMQ=X,TOQ=Y (MOVE J175 SYSOUT=X * FILE 339 //* JOES TO SYSOUT=Y) * FILE 339 //* * FILE 339 //* $JM'MYJOB',TOQ=C,FROMQ=G (MOVE JOBNAME * FILE 339 //* "MYJOB" SYSOUT=G * FILE 339 //* JOES TO SYSOUT=C) * FILE 339 //* * FILE 339 //* TO MOVE *ALL* JOES OF A JOB TO A SELECTED * FILE 339 //* SYSOUT CLASS, USE THE JES2 "$TO" COMMAND. * FILE 339 //* * FILE 339 //* 4. DISPLAY THE CURRENT JULIAN DATE. THIS IS * FILE 339 //* INTENDED FOR USE WITH THE JES2 AUTOMATIC * FILE 339 //* COMMAND FACILITY TO DATESTAMP HARDCOPY LOGS. * FILE 339 //* FORMAT IS "$JD"; NO OPERANDS. * FILE 339 //* * FILE 339 //* THESE COMMANDS DO NOT ATTEMPT TO DUPLICATE * FILE 339 //* FUNCTIONS WHICH CAN USUALLY BE ACCOMPLISHED WITH A * FILE 339 //* SINGLE JES2 COMMAND. THIS PROGRAM CHECKS FOR SOME * FILE 339 //* COMMON ERRORS SUCH AS VERIFICATION OF TYPE OF JOB * FILE 339 //* ON REQUESTS BY JOB NUMBER (JOB/STC/TSU), DUPLICATE * FILE 339 //* JOBNAME IN THE PPU QUEUE ON REQUESTS BY JOB NAME, * FILE 339 //* AND JOE BUSY (ON AN OUTPUT DEVICE OR BEING MODIFIED * FILE 339 //* BY A $TO COMMAND). TO REDUCE OVERHEAD TO A * FILE 339 //* MINIMUM, ALL QUEUE INTEGRITY IS LEFT TO THE $QSUSE * FILE 339 //* SERVICE ROUTINE WHICH IS USED BY THE $#MOD AND * FILE 339 //* $#REM SERVICE ROUTINES, WHICH ARE USED BY THIS * FILE 339 //* PROGRAM (SEE "JES2 LOGIC" LY24-6006). * FILE 339 //* * FILE 339 //***FILE 340 IS FROM ALFRED NYKOLYN AND ROLAND SCHIRADIN AND * FILE 340 //* CONTAINS A NEW PROGRAM CALLED DCM (DIRT CHEAP * FILE 340 //* MONITOR - UNRELATED TO THE DIRT CHEAP MONITOR * FILE 340 //* SYSTEM (DCMS) FROM THE OLD CBT TAPES). * FILE 340 //* * FILE 340 //* THE PURPOSE OF DCM IS TO REPORT ON STATISTICS * FILE 340 //* COLLECTED BY THE 7980-3 AND COMPATIBLE CONTROLLERS. * FILE 340 //* * FILE 340 //* EMAIL: ALFRED NYKOLYN - APN@ISTAR.CA * FILE 340 //* ROLAND SCHIRADIN - 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 //* , 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 //* 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@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 () * 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 * FILE 344 //* LIST ALLZONES DDDEF(...). Says it all. * FILE 344 //* * FILE 344 //* TSO Command ListVTOC * 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: rfochtman@ync.net * FILE 347 //* * FILE 347 //* PHONE: 630-719-1545 * FILE 347 //* * FILE 347 //* THE MODLIST PROGRAM WAS DEVELOPED AS A STOP-GAP MEASURE, * FILE 347 //* TO TRY AND KEEP A HANDLE ON OUR OS/VS COBOL TO COBOL II * FILE 347 //* CONVERSION PROJECT. THE ONLY KNOWN BUG LEFT IS IN * FILE 347 //* DEALING WITH MODULES THAT MAY LOAD ABOVE THE 16M LINE. * FILE 347 //* SOMETIMES THEY WORK OK; SOMETIMES NOT. * FILE 347 //* * FILE 347 //* THE OUTPUT FOR EACH LMOD STARTS WITH A LINE OF HYPHENS. * FILE 347 //* THE FIRST LINE BELOW THAT DETAILS THE LMOD INFO, * FILE 347 //* INCLUDING SOME LKED ATTRIBUTES. BELOW THAT ARE LINES * FILE 347 //* FOR EACH CSECT IN THE LMOD, MARKED BY CS-(NAME) FOR * FILE 347 //* EACH CSECT. WHERE POSSIBLE, COBOL COMPILER OPTIONS * FILE 347 //* THAT WERE IN EFFECT FOR THE CSECT ARE DETAILED. THE * FILE 347 //* VARIOUS COMPILERS THAT ARE NOW RECOGNIZED ARE ANS4, * FILE 347 //* OS/VS (LISTED AS VSR1) AND COBOL II (LISTED AS C2) * FILE 347 //* * FILE 347 //* THE PAN STAMP IS AN IN-HOUSE REQUIREMENT, SO THAT WE * FILE 347 //* CAN MATCH SOURCE WITH LMOD CODE. SINCE SOMEONE ELSE * FILE 347 //* MIGHT BE USING THE SAME MECHANISM, I'VE LEFT THAT CODE * FILE 347 //* INTACT. * FILE 347 //* * FILE 347 //* THIS IS A REPORT PROGRAM ONLY AND THEREFORE NEEDS ONLY * FILE 347 //* READ ACCESS TO ANY LOADLIB IT PROCESSES. * FILE 347 //* * FILE 347 //* USE AS YOU SEE FIT; BUT I'D APPRECIATE HAVING ANY MODS * FILE 347 //* SENT BACK TO ME, TO INCORPORATE IN LATER VERSIONS AS * FILE 347 //* NEEDED. * FILE 347 //* * FILE 347 //***FILE 348 IS AN ASSEMBLER PROGRAM AND A REXX EXEC, WHICH LIST * FILE 348 //* THE MEMBER NAMES OF A PDS IN ALPHABETICAL ORDER. * FILE 348 //* * FILE 348 //* THESE PROGRAMS CAME FROM A THREAD ON THE MVS-UTIL * FILE 348 //* FORUM, FOR THE DAY OF DEC 1, 98. THE ENTIRE DAY'S * FILE 348 //* MESSAGES ARE INCLUDED AS MEMBER IU981201. * FILE 348 //* * FILE 348 //* THE ASSEMBLER PROGRAM, CALLED LISTER, COMES FROM * FILE 348 //* EDWARD STRAUSS, * FILE 348 //* * FILE 348 //* EMAIL: EDWARD STRAUSS * FILE 348 //* * FILE 348 //* AND THE REXX EXEC, CALLED PDSDIR, COMES FROM JOHN * FILE 348 //* KALINICH, * FILE 348 //* * FILE 348 //* EMAIL: John Kalinich * FILE 348 //* * FILE 348 //***FILE 349 is from Willy Jensen. * FILE 349 //* It is a set of REXX execs to update the in-storage * FILE 349 //* copy of your ISPF Command Table, and to list its * FILE 349 //* entries. This is done for your ISPF session only, * FILE 349 //* and it is effective immediately. Very handy. * FILE 349 //* * FILE 349 //* How to use: * FILE 349 //* * FILE 349 //* Copy member ISPCOMND into your ISPF profile * FILE 349 //* dataset. Edit it to put in whatever commands you * FILE 349 //* want to invoke on the fly. The supplied copy is * FILE 349 //* a pretty robust sample, and you may want to use it * FILE 349 //* as it is. * FILE 349 //* * FILE 349 //* Copy members ISPCMDL, ISPCMDU, and ISPMSG into the * FILE 349 //* SYSEXEC or SYSPROC library concatenation for your * FILE 349 //* ISPF session. * FILE 349 //* * FILE 349 //* Invoke the REXX exec ISPCMDU to update your incore * FILE 349 //* ISPF command table. Invoke ISPCMDL to list its * FILE 349 //* contents. * FILE 349 //* * FILE 349 //* Hint: I put the following command into the "real" ISPF * FILE 349 //* command table, which can be invoked differently, * FILE 349 //* against each user's personal ISPCOMND profile * FILE 349 //* member. To set this up, use ISPF option 3.9: * FILE 349 //* * FILE 349 //* CMDUPD 4 SELECT CMD(ISPCMDU) * FILE 349 //* * FILE 349 //* This will allow you to update your own command table * FILE 349 //* simply by typing CMDU and pressing ENTER. (SG) * FILE 349 //* * FILE 349 //* This lasts until you exit ISPF, or until ISPF takes * FILE 349 //* (what you might call) a "flower abend". Then, all * FILE 349 //* you have to do, once you re-enter ISPF, is to * FILE 349 //* reinvoke the REXX exec ISPCMDU. Easy, and personal. * FILE 349 //* * FILE 349 //* email: mail@wjensen.com * FILE 349 //* * FILE 349 //***FILE 350 IS CURRENTLY EMPTY * 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 * 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 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 //* 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 * 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 //* Sr. MVS Systems Programmer * FILE 358 //* P&H Mining Equipment Corp. * FILE 358 //* Milwaukee, WI * FILE 358 //* 414-671-7849 * FILE 358 //* EBIE@phmining.com * FILE 358 //* * FILE 358 //***FILE 359 IS FROM SYNTEX IN CALIFORNIA AND CONTAINS A PDS * FILE 359 //* WITH THE FOLLOWING MEMBERS. THIS FILE IS IN * FILE 359 //* IEBUPDTE SYSIN FORMAT. * FILE 359 //* * FILE 359 //* CONTRIBUTORS' CURRENT ADDRESSES: * FILE 359 //* * FILE 359 //* Howard M. Dean * FILE 359 //* Kaiser Foundation Health Plan * FILE 359 //* 25 Via Monte Avenue * FILE 359 //* 2nd Floor * FILE 359 //* Walnut Creek, CA 94598 * FILE 359 //* * FILE 359 //* (925) 926-3121 * FILE 359 //* * FILE 359 //* EMAIL - Howard.M.Dean@kp.org * FILE 359 //* * FILE 359 //* WILLIAM SMITH * FILE 359 //* IBM * FILE 359 //* STORAGE SYSTEMS DIVISION * FILE 359 //* 5600 COTTLE ROAD * FILE 359 //* DEPT. W98A * FILE 359 //* DRIVER BUILD & INTEGRATION * FILE 359 //* BUILDING 50, ROOM A382 * FILE 359 //* SAN JOSE, CA 95193-0001 * FILE 359 //* (408) 256-1557 OR * FILE 359 //* TIE LINE 276-1557 * FILE 359 //* * FILE 359 //* EMAIL: SMITHWJ@US.IBM.COM * FILE 359 //* GOLDENS@IBM.NET * FILE 359 //* * FILE 359 //* AMD@PRIM....GDDM/PGF MENU * FILE 359 //* ADMALLOC....GDDM/ISPF FILE ALLOCATIONS * FILE 359 //* ADMALL0C....GDDM/ISPF DIALOG (SHOULD BE CALLED * FILE 359 //* ADMALLOC NOT '0') * FILE 359 //* ADMICU......GDDM/ISPF DIALOG TO INVOKE INTERACTIVE * FILE 359 //* CHART UTILITY * FILE 359 //* ADMISE......GDDM/ISPF DIALOG TO INVOKE IMAGE SYMBOL * FILE 359 //* EDITOR * FILE 359 //* ADMT0000....GDDM/ISPF TUTORIAL INDEX * FILE 359 //* ADMT0010....GDDM/ISPF GRAPHICS FILE ALLOCATIONS * FILE 359 //* ADMT0020....GDDM/ISPF CHART UTILITY * FILE 359 //* ADMT0030....GDDM/ISPF IMAGE SYMBOL EDITOR * FILE 359 //* ADMT0040....GDDM/ISPF SYMBOL EDITOR * FILE 359 //* ADMVSE......GDD/ISPF DIALOG TO INVOKE THE VECTOR * FILE 359 //* SYMBOL EDITOR * FILE 359 //* ASMH........TSO ASSEMBLER TSO PROMPTER * FILE 359 //* ASMH#.......HELP FOR TSO ASSEMBLER TSO PROMPTER * FILE 359 //* BURN........PROGRAM TO ABEND A JOB OR ADDRESS SPACE * FILE 359 //* COMPRESS....COMPRESS PROGRAM-CREATES A SAVE DATASET * FILE 359 //* COMPRES#....HELP FOR COMPRESS PROGRAM * FILE 359 //* CPY.........INVOKE SPFCOPY TO COPY MEMBERS OF A PDS * FILE 359 //* CPY#........HELP FOR CPY PROGRAM * FILE 359 //* DATASCAN....DATASCAN ROUTINE * FILE 359 //* ENQSP.......DISPLAY MVS ENQUE STRUCTURE * FILE 359 //* ENQSP#......HELP FOR ENQSP COMMAND * FILE 359 //* EPILOG......MACRO * FILE 359 //* HELPLIST....HELPLIST PROGRAM * FILE 359 //* IKJEFF10....TSO SUBMIT EXIT * FILE 359 //* IDATMSTP....USER EXIT TO TIMESTAMP VSAM DATASETS IN * FILE 359 //* SU60 FORMAT * FILE 359 //* ISR@PRIM....SYNTEX ISPF/PDS PRIMARY OPTION MENU * FILE 359 //* LMVS010.....TSO MOD FOR DEFAULT ALLOCATION OF SHR * FILE 359 //* LMVS015.....TSO MOD TO DISABLE FULL SCREEN LOGON * FILE 359 //* LMVS018.....TSO MOD TO ADD CENT SIGN AS LOGICAL TAB * FILE 359 //* CHARACTER FOR 327X TERMINALS * FILE 359 //* ONL.........PGM TO DISPLAY AN OPERATOR'S CONSOLE * FILE 359 //* PERFORM.....RESET PERFORMANCE GROUP FROM TSO * FILE 359 //* PROLOG......MACRO * FILE 359 //* SM.... .....TSO COMMAND TO TURN-OFF AND ON THE TSO * FILE 359 //* SESSION MANAGER * FILE 359 //* VPS=PRIM....VPS/ISPF SELECTION MENU * FILE 359 //* VPSOPT01....VPS/ISPF - TO REFRESH SCREEN AFTER VPS * FILE 359 //* INVOCATION * FILE 359 //* VPSOPT02....VPS/ISPF DIALOG MANAGER FRONT END FOR * FILE 359 //* VSPRINT * FILE 359 //* VPSPRINT....VPS/ISPF VSPRINT HARDCOPY OUTPUT PANEL * FILE 359 //* VPST0000....VPS/ISPF TUTORIAL INDEX * FILE 359 //* VPST0010....VPS/ISPF VPS CONTROL * FILE 359 //* VPST0020....VPS/ISPF VSPRINT * FILE 359 //* VPS01.......VPS/ISPF MESSAGES * FILE 359 //* VPS02.......VPS/ISPF MESSAGES * FILE 359 //* VPS03.......VPS/ISPF MESSAGES * FILE 359 //* WIZARD......DCMS SRM DATA DISPLAY ROUTINE * FILE 359 //* * FILE 359 //***FILE 360 IS FROM THE STATE OF WISCONSIN, WILSON STREET * FILE 360 //* REGIONAL COMPUTING CENTER WITH THE FOLLOWING MEMBERS * FILE 360 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT : * FILE 360 //* * FILE 360 //* 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 //* 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 * FILE 363 //* * FILE 363 //***FILE 364 IS FROM LEE WARRINER OF THE HARTFORD INSURANCE GROUP * FILE 364 //* IN HARTFORD, CONNECTICUT, AND FROM ALAN FIELD OF * FILE 364 //* SUPER VALU IN EDEN PRAIRIE, MINNESOTA. THIS FILE * FILE 364 //* CONTAINS A WORKING VERSION OF THE CONTROL CARD * FILE 364 //* SUBSYSTEM (CCSS). CCSS USED TO BE ON ONE OF THE * FILE 364 //* FREE TAPES, A LONG TIME AGO. CCSS ALLOWS YOU TO * FILE 364 //* CODE CONTROL CARD INFO IN A SYSIN DD CARD WITHOUT * FILE 364 //* CODING SYSIN DD *. YOU CODE //SYSIN DD * FILE 364 //* SUBSYS=(CCSS,'CONTROL CARD 1', ....). THIS ALLOWS * FILE 364 //* YOU TO PUT SYSIN CONTROL CARD INFORMATION INTO A * FILE 364 //* PROC, OR IT JUST GIVES YOU FLEXIBILITY. * FILE 364 //* * FILE 364 //* LEE WARRINER * FILE 364 //* HARTFORD INSURANCE GROUP * FILE 364 //* MAIL STOP NP3-4 * FILE 364 //* HARTFORD PLAZA * FILE 364 //* HARTFORD, CT 06115 * FILE 364 //* 860-547-2004 * FILE 364 //* * FILE 364 //* EMAIL : CWARRINER@THEHARTFORD.COM * FILE 364 //* IBMMAIL: USTV7KFN * FILE 364 //* * FILE 364 //* MR ALAN C FIELD * FILE 364 //* SUPER VALU INC. * FILE 364 //* 11840 VALLEY VIEW ROAD * FILE 364 //* EDEN PRAIRIE, MINNESOTA 55344 * FILE 364 //* (952) 828-4979 * FILE 364 //* * FILE 364 //* EMAIL : ALAN.FIELD@SUPERVALU.COM * FILE 364 //* * FILE 364 //***FILE 365 IS FROM RON MACRAE OF AMDAHL, UK. THIS FILE CONTAINS * FILE 365 //* A SYSTEM TO AUTOMATICALLY PACKAGE ONE OR MORE MVS * FILE 365 //* DATASETS FOR TRANSMISSION ACROSS THE INTERNET, * FILE 365 //* WITH BUILT-IN ERROR DETECTION. TSO XMIT IS USED * FILE 365 //* UNDER THE COVERS, AND 8 ERROR CHECKING BYTES ARE * FILE 365 //* APPENDED TO EACH 80-BYTE RECORD, SO THAT IF ANY BYTE * FILE 365 //* IS ALTERED DURING THE TRANSMISSION, THE ERROR WILL * FILE 365 //* BE CAUGHT. YOU'RE GUARANTEED THE INTEGRITY OF YOUR * FILE 365 //* TRANSMITTED FILES. THE PACKAGE ALSO MAKES IT EASIER * FILE 365 //* TO PACKAGE AND UNPACKAGE MULTIPLE FILES. ONLY ONE * FILE 365 //* BIG FILE IS ACTUALLY TRANSMITTED. THE COMBINED FILE * FILE 365 //* FOR TRANSMISSION IS VERY SIMPLE TO CREATE ON THE * FILE 365 //* TRANSMITTING MVS SYSTEM, AND IT IS VERY SIMPLE TO * FILE 365 //* UNWRAP ON THE RECEIVING MVS SYSTEM. YOU DON'T HAVE * FILE 365 //* TO SPEND A LOT OF TIME FOOLING WITH TSO XMIT COMMAND * FILE 365 //* PARAMETERS. * FILE 365 //* * FILE 365 //* THE IBM COMPRESSION UTILITY CALLED TRSMAIN, THAT IS * FILE 365 //* DISTRIBUTED FOR FREE ON THE WEB, IS OPTIONALLY * FILE 365 //* INTEGRATED WITH THIS PROCESS, PROVIDED TRSMAIN IS * FILE 365 //* PRESENT. IF THE FILES ARE LARGE, IT MAY PAY TO * FILE 365 //* SEND THE MORE COMPRESSED VERSION ACROSS THE INTERNET. * FILE 365 //* * FILE 365 //* FILES PRODUCED BY THIS PACKAGE ARE SUFFIXED .XMT . * FILE 365 //* COMPRESSED FILES PRODUCED BY TRSMAIN, ACTING AGAINST * FILE 365 //* THE .XMT FILE, ARE SUFFIXED .XM1 . * FILE 365 //* * FILE 365 //* THE PACKAGE BASICALLY CONSISTS OF TWO REXX EXECS, * FILE 365 //* AND OPTIONALLY AN ASSEMBLER PROGRAM. THE EXEC * FILE 365 //* CALLED OSTARXMT WILL PACKAGE ANY NUMBER OF FILES * FILE 365 //* INTO TSO XMIT FORMAT, AND WILL BUNDLE ALL THE FILES * FILE 365 //* TOGETHER, INTO ONE FILE THAT HAS THE BUILT-IN ERROR * FILE 365 //* CHECKING. OPTIONALLY, THE COMPRESSION UTILITY * FILE 365 //* TRSMAIN WILL BE CALLED AFTERWARD, TO SQUEEZE THE * FILE 365 //* FILE DOWN FURTHER. IF THE ORIGINAL AMOUNT OF DATA * FILE 365 //* IS LARGE, THIS HELPS. * FILE 365 //* * FILE 365 //* THE OTHER EXEC, OSTARREC, WILL UNWRAP THE FILES * FILE 365 //* CREATED BY OSTARXMT, CHECK TO MAKE SURE THERE ARE * FILE 365 //* NO ERRORS, AND WILL CALL TSO RECEIVE FOR EACH OF THE * FILE 365 //* INCLUDED FILES THAT WERE TRANSMITTED. YOU'LL GET * FILE 365 //* ALL THE FILES THAT WERE INCLUDED IN THE ORIGINAL * FILE 365 //* BUNDLE. * FILE 365 //* * FILE 365 //* OPTIONALLY, THE ASSEMBLER PROGRAM, IF ITS PRESENCE * FILE 365 //* IS DETECTED BY THE REXX EXECS, WILL BE CALLED TO DO * FILE 365 //* THE ERROR DETECTION LOGIC. ALL OF THIS LOGIC IS * FILE 365 //* ALSO BUILT INTO THE REXX EXECS, BUT IF THE ASSEMBLER * FILE 365 //* PROGRAM IS CALLED, THE LOGIC IS EXECUTED FAR FASTER. * FILE 365 //* THIS CAN MAKE A SIGNIFICANT DIFFERENCE IF LARGE * FILE 365 //* AMOUNTS OF DATA ARE TO BE TRANSFERRED. THE NAME OF * FILE 365 //* THE ASSEMBLER PROGRAM IS OSTAREDC. * FILE 365 //* * FILE 365 //* AN IBM WEB SITE FROM WHERE YOU CAN DOWNLOAD THE * FILE 365 //* TRSMAIN UTILITY IS: * FILE 365 //* * FILE 365 //* ftp://service.boulder.ibm.com/s390/mvs/tools/packlib * FILE 365 //* * FILE 365 //* (YOU HAVE TO USE LOWER CASE TO GET THIS TO WORK.) * FILE 365 //* * FILE 365 //* THIS LOCATION WAS GOOD AS OF THE TIME OF THIS * FILE 365 //* WRITING. (03/99) * FILE 365 //* * FILE 365 //* I'VE INCLUDED BATCH JCL FOR RUNNING THE TRSMAIN * FILE 365 //* COMPRESSION-DECOMPRESSION UTILITY, AND I'VE PUT * FILE 365 //* IN IBM'S "README" FILE FOR TRSMAIN, AS WELL. I * FILE 365 //* CAN'T INCLUDE THE TRSMAIN MODULE ITSELF--YOU CAN * FILE 365 //* GET IT FREE, FROM IBM. (SG - 03/99) * FILE 365 //* * FILE 365 //* THESE REXX EXECS ARE DESIGNED TO BE EXECUTED FROM * FILE 365 //* AN ISPF 3.4 DATASET LIST, OR THEY CAN BE RUN WITH * FILE 365 //* A COMMAND SYNTAX, OR COMMAND PROMPTS. * FILE 365 //* * FILE 365 //* AUTHOR : RON MACRAE. * FILE 365 //* * FILE 365 //* ADDRESS : OBJECTSTAR SUPPORT * FILE 365 //* AMDAHL UK LTD * FILE 365 //* CROMWELL HOUSE * FILE 365 //* BARTLEY WAY * FILE 365 //* HOOK, HAMPSHIRE * FILE 365 //* RG27 9XA, UK * FILE 365 //* * FILE 365 //* EMAIL : RON_MACRAE@AMDAHL.COM * FILE 365 //* * FILE 365 //* PHONE : +44-1252-346379 * FILE 365 //* * FILE 365 //* - - - - - - - - - - - - - - - - - - - - - * FILE 365 //* * FILE 365 //* Note from Sam Golob: I've written a small program called * FILE 365 //* OSTRIP, which will take an OSTARXMT-format file and * FILE 365 //* create a series of ordinary XMIT-format files from * FILE 365 //* it. This is for emergency use only, if the OSTARREC * FILE 365 //* procedure detects errors, and you still want to * FILE 365 //* salvage some data. OSTRIP is included in this file. * FILE 365 //* * FILE 365 //* - - - - - - - - - - - - - - - - - - - - - * FILE 365 //* AMDAHL DISCLAIMER: * FILE 365 //* * FILE 365 //* THIS SOFTWARE IS SUPPLIED BY AMDAHL CORP. FOR * FILE 365 //* THE TRANSMISSION OF MATERIALS BETWEEN OBJECTSTAR * FILE 365 //* SUPPORT AND IT'S CUSTOMERS. ANY OTHER USE OF * FILE 365 //* THIS SOFTWARE IS AT THE USER'S DISCRETION AND IS * FILE 365 //* NOT SUPPORTED IN ANY WAY BY AMDAHL CORP. * FILE 365 //* * FILE 365 //* THE SOFTWARE IS SUPPLIED AS 'FREEWARE' AND MAY * FILE 365 //* BE USED/MODIFIED BY ANYONE PROVIDED THEY DO NOT * FILE 365 //* THEN SELL IT ON FOR PROFIT OR EXPECT SUPPORT * FILE 365 //* FROM AMDAHL CORP. * FILE 365 //* * FILE 365 //* LIMITED SUPPORT MAY IN SOME CASES BE AVAILABLE * FILE 365 //* FROM THE AUTHOR. * FILE 365 //* - - - - - - - - - - - - - - - - - - - - - * FILE 365 //* * FILE 365 //***FILE 366 is from Marvin Shaw of Shaw Consulting in * FILE 366 //* Jacksonville, Florida. This file contains the * FILE 366 //* following applications: * FILE 366 //* * FILE 366 //* WW - World Clock. This is an ISPF application * FILE 366 //* which will display the current time of a * FILE 366 //* city anywhere in the world, provided you * FILE 366 //* plug its information into the REXX exec. * FILE 366 //* * FILE 366 //* (Note: Marvin also sent me a better program, that * FILE 366 //* runs on a pc under Windows, but I couldn't * FILE 366 //* include it here, obviously. SG - 04/99) * FILE 366 //* * FILE 366 //* PDSADD - This is a REXX exec that looks at a pds, * FILE 366 //* and inserts a ./ ADD NAME=membname in front * FILE 366 //* of each member's data. You can look at this * FILE 366 //* code to see how to use REXX to find each * FILE 366 //* member name of a pds. * FILE 366 //* * FILE 366 //* Marvin Shaw * FILE 366 //* 3840 Peach Drive * FILE 366 //* Jacksonville, Fla. 32246 * FILE 366 //* * FILE 366 //* phone : (904)-645-3595 * FILE 366 //* email : mshaw244@aol.com * FILE 366 //* * FILE 366 //* In case you need it my web page is at: * FILE 366 //* * FILE 366 //* http://shawconsulting.microhost.com * FILE 366 //* * FILE 366 //* Note: No www as I am just leasing space on another * FILE 366 //* server. * FILE 366 //* * FILE 366 //***FILE 367 contains two REXX execs from John Kalinich. * FILE 367 //* * FILE 367 //* ASCBS - Show all active address spaces * FILE 367 //* * FILE 367 //* TSURXS - Display active TSO Users * FILE 367 //* * FILE 367 //* >> EMAIL ADDRESS: jkalinic@csc.com * FILE 367 //* >> PHONE NUMBER : 314-552-3232 * 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" * FILE 368 //* * FILE 368 //* James Williams * FILE 368 //* AGL Resources (Services) Co. * FILE 368 //* 1219 Caroline Street * FILE 368 //* Atlanta, GA 30307 * FILE 368 //* 404-584-4112 * FILE 368 //* * FILE 368 //* Here is a short description of the contents of this * FILE 368 //* file: * FILE 368 //* * FILE 368 //* ALL REXX SMF STUFF MUST BE RECFM=VB INSTEAD OF * FILE 368 //* RECFM=VBS AS REXX CANNOT HANDLE SPANNED RECORDS. * FILE 368 //* * FILE 368 //* $$$DOC - This member * FILE 368 //* * FILE 368 //* AL - Good when you are at 3.4 and need to * FILE 368 //* duplicate a dataset * FILE 368 //* * FILE 368 //* COMMAND - Added support for 4 digit reply id to * FILE 368 //* program from File 019 issue 'FIND *JAW*' to * FILE 368 //* see my changes. * FILE 368 //* * FILE 368 //* COPYLNES - Great taking a dataset file and then create * FILE 368 //* a record before each. This is great for * FILE 368 //* creating multi-line control cards * FILE 368 //* * FILE 368 //* DMPGENER - This simple REXX takes a dataset list and * FILE 368 //* generates control cards for DFDSS. I use * FILE 368 //* this same example to create JCL and other * FILE 368 //* control card schemes. * FILE 368 //* * FILE 368 //* FTAILSMF - FTAILSMF is BAL program that shows the power * FILE 368 //* of ISPF calls. You can easily manage datasets * FILE 368 //* using ISPF calls which do the SVC 99 stuff * FILE 368 //* under the doors. Also, a REXX version in there. * FILE 368 //* * FILE 368 //* IEFUJI - IEFUJI exit to gets info from ACF2. Probably * FILE 368 //* would not take much to get from RACF or Top * FILE 368 //* Secret also. Also creates an SMF record * FILE 368 //* (128) processed by SMF128J. * FILE 368 //* * FILE 368 //* JOBID - Simple REXX to find JOBID * FILE 368 //* * FILE 368 //* MSGCHECK - Little REXX program to check MPF. IEAVMXIT * FILE 368 //* must be active for some AUTOOPS packages. * FILE 368 //* * FILE 368 //* RDATE - REXX date routine. Recently added some Y2K * FILE 368 //* updates. REXX date function has most of this * FILE 368 //* support today. Originally a CLIST from CBT, * FILE 368 //* I believe, that I converted to REXX and * FILE 368 //* updated. * FILE 368 //* * FILE 368 //* RXJOBID - Assembler REXX function same as JOBID above. * FILE 368 //* Shows how simple BAL REXX functions are. * FILE 368 //* * FILE 368 //* SEQNUM - Handy member. I once had a job with a * FILE 368 //* zillion steps all with the same name. This * FILE 368 //* edit macro made each step unique. * FILE 368 //* * FILE 368 //* SMF128 - For poor shops without SAS, REXX is a great * FILE 368 //* tool for quick SMF data reports for auditors * FILE 368 //* or bean counters. * FILE 368 //* * FILE 368 //* SMF128J - JCL to invoke SMF128 user SMF record from * FILE 368 //* IEFUJI. * FILE 368 //* * FILE 368 //* SMF170 - For poor shops without SAS, REXX is a great * FILE 368 //* tool for quick SMF data reports for auditors * FILE 368 //* or bean counters. SMF170 records from FILEAID * FILE 368 //* require an AUTHSVC. * FILE 368 //* * FILE 368 //* SMF170J - JCL to invoke SMF170 to report on * FILE 368 //* FILEAID edits. * FILE 368 //* * FILE 368 //* PCOPY - This edit macro extends the power of the * FILE 368 //* COPY command. PCOPY can copy a PROC member * FILE 368 //* without the intervening copy panel. I need * FILE 368 //* to expand this for non-pds's also. * FILE 368 //* * FILE 368 //* COBPRT - Simple program to test our Y2K date * FILE 368 //* simulator. This executes COBOL II date * FILE 368 //* calls. COBOL for MVS has some examples in * FILE 368 //* the IVP. * FILE 368 //* * FILE 368 //* PLIAVG - Simple program to test our Y2K date * FILE 368 //* simulator. This executes PLI date calls at * FILE 368 //* the 2.3 level. * FILE 368 //* * FILE 368 //* STCK - Simple program to test our Y2K date * FILE 368 //* simulator. This executes a STCK instruction. * FILE 368 //* * FILE 368 //* TIMEPC - Simple program to test our Y2K date * FILE 368 //* simulator. This executes a TIME PC call. * FILE 368 //* * FILE 368 //* TIMEX - Simple program to test our Y2K date * FILE 368 //* simulator. This executes a regular TIME * FILE 368 //* call. * FILE 368 //* * FILE 368 //* TOUPPERC - Xpediter will not handle lower case * FILE 368 //* code as of 10-06-1999. Converts all text * FILE 368 //* to uppercase prior to assembly. * FILE 368 //* * FILE 368 //* TOUPPERJ - Job to run invoke TOUPPERC against your * FILE 368 //* PDS. It uses STARTOOL or PDS85 to invoke. * FILE 368 //* Good control card examples. * FILE 368 //* * FILE 368 //* WTOAGL01 - Example of a TSO exit to start all VTAM * FILE 368 //* appls at our site. Would require a IST020I * FILE 368 //* entry to start this exit in MPFLST00. The * FILE 368 //* last byte of each of our SMF ids is unique, * FILE 368 //* such as SYSA, SYSB, or SYSC. It grabs the * FILE 368 //* character, as we have unique requirements for * FILE 368 //* each system. * FILE 368 //* * FILE 368 //***FILE 369 IS FROM PLANNING RESEARCH CORPORATION AND CONTAINS * FILE 369 //* SEVERAL OF THEIR PROGRAMS. THIS FILE IS IN IEBUPDTE * FILE 369 //* SYSIN FORMAT. FOR ADDITIONAL INFORMATION SEE THE * FILE 369 //* MEMBER CALLED $$DOC AND $$NWKDOC * FILE 369 //* * FILE 369 //* --------------------------------------------------- * FILE 369 //* DALE VICK: UPDATED DSPACE COMMAND (JAN 1999) * FILE 369 //* (THE REST OF THIS FILE IS FROM DICK SZIEDE) * FILE 369 //* * FILE 369 //* DALE VICK * FILE 369 //* USA GROUP, INC. * FILE 369 //* 11100 USA PARKWAY * FILE 369 //* MC: B131 * FILE 369 //* FISHERS, IN 46038-9203 * FILE 369 //* WORK PHONE: (317) 578-6786 * FILE 369 //* E-MAIL: DVICK@USAGROUP.COM * FILE 369 //* --------------------------------------------------- * FILE 369 //* * FILE 369 //* AC#VIOX TITLE 'AC#VIOX -- ACF2 VIOLATION EXIT' * FILE 369 //* ALLOWS A USER WITH "ACCOUNT" AUTHORITY TO * FILE 369 //* CREATE AN ALIAS IN THE MASTER CATALOG, EVEN * FILE 369 //* THOUGH HE DOESN'T HAVE "WRITE" PERMISSION. * FILE 369 //* THE ROUTINE CHECKS THE ACF2 VIOLATION TO * FILE 369 //* DETERMINE WHETHER IT IS FROM VSAM CATALOG * FILE 369 //* MANAGEMENT. IF SO, IT THEN CHECKS TO SEE * FILE 369 //* WHETHER THE REQUEST IS TO DEFINE OR DELETE * FILE 369 //* AN ALIAS. IF YES, IT CHECKS TO SEE IF THE * FILE 369 //* USER HAS ACCOUNT AUTHORITY. IF ALL * FILE 369 //* CONDITIONS MATCH, THE ACCESS IS ALLOWED. * FILE 369 //* * FILE 369 //* ACFFTSUB TITLE 'ACFFTSUB -- FILE TAILOR AND * FILE 369 //* AUTHORIZED JOB SUBMISSION'. THIS ROUTINE * FILE 369 //* PERFORMS THE FUNCTIONS OF ACF2'S ACFSUB * FILE 369 //* PROGRAM. THE MAIN REASON TO HAVE THIS IS TO * FILE 369 //* PERMIT A USER TO SUBMIT A JOB WHICH WILL DO * FILE 369 //* THINGS THE USER WOULD NORMALLY NOT BE * FILE 369 //* PERMITTED TO DO. (TYPICALLY, A DATA-CONTROL * FILE 369 //* CLERK SUBMITTING THE FDR BACKUPS). THIS * FILE 369 //* ROUTINE EXTENDS ACFSUB TO ALLOW A FINAL STEP * FILE 369 //* OF FILE TAILORING BY ISPF SERVICES PRIOR TO * FILE 369 //* THE SUBMISSION WHILE MAINTAINING SECURITY * FILE 369 //* OVER PRODUCTION AND MAINTENANCE JCL. * FILE 369 //* * FILE 369 //* NORMALLY ACFSUB-LIKE ROUTINES WHICH ARE USED * FILE 369 //* TO TRIGGER THE SUBAUTH LID ATTRIBUTE HAVE TO * FILE 369 //* BE APF AUTHORIZED. HOWEVER, THERE IS A * FILE 369 //* RESTRICTION IN FORCE WITH ISPF/PDF V2R2M0 * FILE 369 //* AND TSO/E WHICH PROHIBITS ANY APF AUTHORIZED * FILE 369 //* PROGRAM OR COMMAND PROCESSOR FROM USING ANY * FILE 369 //* ISPF SERVICES. THE SUBAUTHX EXIT, ALSO IN * FILE 369 //* THIS FILE, IS NECESSARY TO GET AROUND THIS * FILE 369 //* RESTRICTION. * FILE 369 //* * FILE 369 //* THE USER SHOULD HAVE READ AUTHORITY FOR THE * FILE 369 //* FILE TAILORING SKELETON LIBRARY. WRITE * FILE 369 //* ACCESS TO THESE LIBRARIES SHOULD BE * FILE 369 //* CONTROLLED. ONLY PROPER JOBSTREAMS CAN BE * FILE 369 //* SUBMITTED. THE USER'S LEVEL OF MODIFICATION * FILE 369 //* OF THE JOBSTREAMS IS LIMITED TO SETTING * FILE 369 //* DIALOG VARIABLES FOR THE FILE TAILORING. * FILE 369 //* * FILE 369 //* ADAEX2 - 'ADABAS USER EXIT 2.' * FILE 369 //* THIS IS THE ADABAS SWITCH LOG EXIT. WE GET * FILE 369 //* CONTROL FROM ADABAS WHEN A PROTECTION LOG OR * FILE 369 //* COMMAND LOG SWITCH TAKES PLACE. ADAEX2 * FILE 369 //* DUMPS THE LOGS AS REQUIRED, AND TELLS ADABAS * FILE 369 //* TO GET ON WITH PROCESSING. **NOTE** OUR * FILE 369 //* ADABAS LOG-DUMP UTILITY JCL CALLS THE * FILE 369 //* "REPLYTO" PROGRAM ALSO IN THIS FILE, TO GIVE * FILE 369 //* ADABAS THE GO-AHEAD. * FILE 369 //* * FILE 369 //* ASMTOZAP - THE ORIGINAL HOWARD GILBERT VERSION. * FILE 369 //* ACCEPT NO SUBSTITUTES! THERE ARE OTHER * FILE 369 //* ASMTOZAP PROGRAMS AROUND THAT WILL PRODUCE * FILE 369 //* BAD ZAPS FROM THE CODE IN THIS FILE. * FILE 369 //* * FILE 369 //* THIS IS A UTILITY WHICH CONVERTS AN * FILE 369 //* ASSEMBLER LISTING DATASET INTO A FORMATTED * FILE 369 //* IMASPZAP INPUT DECK OR SMP PTF. IT IS USEFUL * FILE 369 //* IN PREPARING, MAINTAINING, AND DOCUMENTING * FILE 369 //* THOSE INSTALLATION MODIFICATIONS WHICH * FILE 369 //* CANNOT BE INSTALLED EXCEPT BY MODIFING IBM * FILE 369 //* CODE. ONE CAN MAKE FREE USE OF MACROS, * FILE 369 //* LITERALS, AND OTHER CONVENIENCE FEATURES IN * FILE 369 //* PREPARING THE DECK. CONTROL CARDS IN SPECIAL * FILE 369 //* ASSEMBLER COMMENT FORM PROVIDE FLEXIBILITY * FILE 369 //* IN MODIFICATION DESIGN AND CONTROL OVER * FILE 369 //* OUTPUT. * FILE 369 //* * FILE 369 //* AUTOIPL TITLE 'A U T O M A T I C I P L' * FILE 369 //* THIS PROGRAM ISSUES OPERATOR COMMANDS READ * FILE 369 //* FROM AN INPUT FILE. IT ALLOWS CONDITIONAL * FILE 369 //* COMMAND EXECUTION, TIMED COMMAND SUBMISSION, * FILE 369 //* AND PROGRAM INVOCATION. THESE FUNCTIONS * FILE 369 //* PERMIT THE PROGRAM TO BE USED FOR A FULLY * FILE 369 //* AUTOMATED IPL PROCEDURE FOR THE SYSTEM. * FILE 369 //* * FILE 369 //* BITENCOD TITLE ENCODE OR DECODE BITS INTO BYTES * FILE 369 //* PROVIDES BIT TESTING AND BIT SETTING FOR * FILE 369 //* HIGH-LEVEL LANGUAGES * FILE 369 //* * FILE 369 //* BITENCOD: THIS SUBROUTINE TAKES A SINGLE * FILE 369 //* CHARACTER ARGUMENT OF ONE BYTE, * FILE 369 //* AND RETURNS EIGHT CHARACTERS OF * FILE 369 //* ONES OR ZEROS DEPENDING ON THE * FILE 369 //* BITS SET IN THE ARGUMENT. * FILE 369 //* * FILE 369 //* BITDECOD: THIS SUBROUTINE TAKESS EIGHT * FILE 369 //* CHARACTERS OF DATA AND RETURNS A * FILE 369 //* SINGLE BYTE, THE BITS OF WHICH ARE * FILE 369 //* THE RIGHTMOST BITS OF EACH * FILE 369 //* ARGUMENT BYTE. THUS IS THE * FILE 369 //* OPPOSITE OF BITENCODE. * FILE 369 //* * FILE 369 //* CALENDAR - PRINT A CUSTOM CALENDAR FOR ANY YEAR: * FILE 369 //* BIRTHDAYS, HOLIDAYS, AND EVENTS TO YOUR * FILE 369 //* ORDER. * FILE 369 //* * FILE 369 //* CLIB --- CONCATENATE DATASET FIRST TO DDNAME. * FILE 369 //* PURPOSE: PROVIDE TSO USER QUICK ACCESS TO * FILE 369 //* PRIVATE CLISTS. * FILE 369 //* METHOD: USE SVC 99 TO DETERMINE THE DSNAMES * FILE 369 //* OF ALL DATASETS CONCATENATED TO A * FILE 369 //* PARTICULAR DDNAME. REALLOCATE THE * FILE 369 //* ARGUMENT DSNAME IN FRONT OF ALL THE * FILE 369 //* OTHERS. * FILE 369 //* * FILE 369 //* COMMAND TITLE 'COMMAND - ISSUE SVC34 FOR PROBLEM * FILE 369 //* PROGRAM'. ALLOW COMMANDS TO BE ISSUED BY * FILE 369 //* PROGRAM CONTROL EITHER THROUGH THE PARM * FILE 369 //* FIELD OR BY A CALL FROM ANOTHER PROGRAM. * FILE 369 //* NOT FULLY OPERATIONAL, BUT REQUIRED BY SPY. * FILE 369 //* * FILE 369 //* DSNPOST TITLE 'DSNPOST - ACF2 DSN POST-PROCESSING * FILE 369 //* EXIT.' THIS IS AN ACF2 DSN POST-PROCESSING * FILE 369 //* EXIT. WE USE THIS EXIT TO OVERRIDE A * FILE 369 //* PARTICULAR VIOLATION. WE ATTEMPTED TO LIMIT * FILE 369 //* ACCESS TO THE JES2 SPOOL AND CHECKPOINT * FILE 369 //* DATASETS FROM SDSF VIA ACF2'S PROGRAM PATHING * FILE 369 //* FACILITY, BUT THE LIMITATIONS OF THIS * FILE 369 //* FACILITY ESPECIALLY WITHIN ISPF DIALOGS * FILE 369 //* BECAME EVIDENT (YOU HAVE TO ACCURATELY * FILE 369 //* DESCRIBE THE TASK AND RB CHAINS FOR EVERY * FILE 369 //* DIALOG THAT WILL BE USED). THUS WE ATTEMPT TO * FILE 369 //* OVERRIDE VIOLATIONS AGAINST THE JES2 DATASETS * FILE 369 //* THAT ARE REALLY NORMAL SDSF ACCESSES. WE * FILE 369 //* CHECK FOR OPEN FOR INPUT ACCESSES TO FILES * FILE 369 //* HASPCKPT OR HASPAC00, AND THEN CHECK FOR THE * FILE 369 //* PRESENCE OF AN AUTHORIZED LIBRARY VERSION OF * FILE 369 //* ISFJINIT. * FILE 369 //* * FILE 369 //* DSPACE -- LIST DISK FREESPACE AND EXTENTS. * FILE 369 //* THIS IS THE GOOD OL' SHARE DSPACE COMMAND * FILE 369 //* WITH CLEARER FIELD LABELS, AND USING * FILE 369 //* PUTLINE INSTEAD OF TPUT SO IT CAN BE RUN * FILE 369 //* FROM A CLIST. THIS COMMAND IS USED BY * FILE 369 //* PARKE'S FULL-SCREEN "FDSPACE" PANELS. * FILE 369 //* * FILE 369 //* DOPROG -- DOPROG/DOCP (TSO) COMMAND PROCESSOR * FILE 369 //* DOPROG AND DOCP IN THE SAME MODULE. USE * FILE 369 //* TO INVOKE A COMMAND PROCESSOR. HAS A * FILE 369 //* "TASKLIB" CAPABILITY. THIS ISN'T JOE * FILE 369 //* SCHINDLER'S "DOCP," WHICH IS A STAND-ALONE * FILE 369 //* CP, RATHER, AN ALIAS OF DOPROG. JOE USED * FILE 369 //* TPUT-TGET TO PROMPT FOR THE COMMAND LINE, * FILE 369 //* WHICH I DIDN'T LIKE. THIS VERSION WILL * FILE 369 //* TAKE A CP COMMAND LINE IN QUOTES, OR WILL * FILE 369 //* PROMPT WITH PUTGET IF IT DOESN'T FIND ONE. * FILE 369 //* THUS IT CAN BE USED IN A CLIST. * FILE 369 //* * FILE 369 //* DSIEX04 - NCCF'S OWN LOGGING FACILITY IS PRETTY * FILE 369 //* USELESS. THIS EXIT PROVIDES AN * FILE 369 //* ALTERNATIVE. WE GET A LOOKSEE AT ALL NCCF * FILE 369 //* TERMINAL INPUTS AND OUTPUTS BEFORE NCCF * FILE 369 //* DOES ITS OWN LOGGING. WE DECIDE WHAT'S * FILE 369 //* IMPORTANT AND WRITE IT FOR POSTERITY. * FILE 369 //* YOU'LL PROBABLY WANT TO SUPPRESS MSGID * FILE 369 //* NCCF/ IN YOUR MVS/XA MPF LIST. NOTE THAT * FILE 369 //* DSILOG TASK MUST BE ACTIVE FOR THIS EXIT TO * FILE 369 //* BE INVOKED. * FILE 369 //* * FILE 369 //* DSNWAIT TITLE 'DSNWAIT - WTO EXIT TO INFORM TSO USER * FILE 369 //* OF DSN WAIT.' * FILE 369 //* * FILE 369 //* NAME - DSNWAIT - WTO EXIT TO INFORM A TSO USER * FILE 369 //* THAT JOB IS WAITING FOR A DATASET. * FILE 369 //* * FILE 369 //* DESCRIPTION - * FILE 369 //* WE GET CONTROL UPON ISSUANCE OF THE IEF099I * FILE 369 //* WTO. WE ISSUE AN OPERATOR SEND COMMAND TO * FILE 369 //* INFORM THE TSO USER THAT HIS BATCH JOB IS * FILE 369 //* WAITING FOR SOME DATASETS. THE INTENT HERE * FILE 369 //* IS TO ALERT THE PERSON WHO CAN DO SOMETHING * FILE 369 //* ABOUT THE SITUATION, SUCH AS FREE THE * FILE 369 //* DATASETS. WE FIRST MAKE SURE THAT MSG * FILE 369 //* IEF099I WAS ISSUED, THAT ACF2 IS ALIVE AND * FILE 369 //* WELL, THAT WE'RE A JOB, AND THAT THE RESULTS * FILE 369 //* OF OUR GQSCAN REQUEST FOR SYSDSN CONFLICTS IS * FILE 369 //* COOL. THEN WE ISSUE A SEND COMMAND FOR THE * FILE 369 //* FIRST THREE CONFLICTS THAT MEET THE FOLLOWING * FILE 369 //* CONDITIONS: * FILE 369 //* * FILE 369 //* 1). 1 TASK HOLDS THE RESOURCE. * FILE 369 //* 2). 1 TASK WAITS FOR THE RESOURCE. * FILE 369 //* 3). WE ARE THE TASK THE WAITS FOR THE * FILE 369 //* RESOURCE. * FILE 369 //* 4). IT IS A TSO USER THAT HOLDS THE * FILE 369 //* RESOURCE. * FILE 369 //* 5). THE ACF2 LIDS FOR THE HOLDER AND WAITER * FILE 369 //* ARE THE SAME. * FILE 369 //* * FILE 369 //* WHILE IT IS ACKNOWLEDGED THAT THESE CRITERIA * FILE 369 //* WILL ELIMINATE SOME OTHERWISE VALID CANDIDATES * FILE 369 //* FROM CONSIDERATION, IT IS HOPED THAT THIS EXIT * FILE 369 //* WILL OTHERWISE PROVE USEFUL IN MOST * FILE 369 //* SITUATIONS. * FILE 369 //* * FILE 369 //* NOTE - WE MUST BE IN AN APF-AUTHORIZED LINKLIST * FILE 369 //* LIBRARY. THE ACF2 SECURITY SYSTEM IS * FILE 369 //* REQUIRED BY THIS EXIT. * FILE 369 //* * FILE 369 //* TO USE - * FILE 369 //* SPECIFY IN AN MPFLSTXX MEMBER OF PARMLIB: * FILE 369 //* IEF099I,SUP(NO),USEREXIT(DSNWAIT) * FILE 369 //* * FILE 369 //* ENQWAIT TITLE 'ENQWAIT - STIMER UNTIL SOMEONE ELSE * FILE 369 //* GETS AN ENQ.' * FILE 369 //* * FILE 369 //* THIS PROGRAM WORKS IN CONJUNCTION WITH THE * FILE 369 //* AUTOIPL PROGRAM. WE STIMER UNTIL A TARGET * FILE 369 //* JOB ACQUIRES A TARGET RESOURCE VIA AN ENQ * FILE 369 //* REQUEST. THUS WE CAN ENSURE THAT AUTOIPL * FILE 369 //* WILL NOT PROCEED UNTIL A PREVIOUS PROCESS * FILE 369 //* IS READY FOR PROCESSING. * FILE 369 //* * FILE 369 //* FOR EXAMPLE, CONSIDER THE FOLLOWING AUTOIPL * FILE 369 //* INPUT: * FILE 369 //* * FILE 369 //* S TPJOB,M=TCAM * FILE 369 //* * FILE 369 //* "ENQWAIT "JOB=TCAM,MAJOR=AUTOTCAM * FILE 369 //* * FILE 369 //* S MESS,M= * FILE 369 //* * FILE 369 //* THE "S MESS,M=" COMMAND WILL NOT PROCEED * FILE 369 //* UNTIL TCAM ACQUIRES THE RESOURCE WHOSE * FILE 369 //* MAJOR NAME IS AUTOTCAM. WE STIMER EVERY 10 * FILE 369 //* SECONDS FOR 5 MINUTES TO CHECK ON STATUS. * FILE 369 //* IF ANYTHING IS FOUND THAT IS UNGOOD, WE * FILE 369 //* ABEND WITH A S0C3. * FILE 369 //* * FILE 369 //* TO USE - * FILE 369 //* * FILE 369 //* EXEC PGM=ENQWAIT,PARM='JOB=JJJJJJJJ,MAJOR=MMMMMMMM, * FILE 369 //* MINOR=RRRRRRRR,NAME=NNNNNNNN * FILE 369 //* WHERE JJJJJJJJ = TARGET JOBNAME (1-8 CHARS), * FILE 369 //* MMMMMMMM = TARGET MAJOR NAME (1-8 CHARS), * FILE 369 //* RRRRRRRR = TARGET MINOR NAME (1-44 CHARS), * FILE 369 //* NNNNNNNN = DESCRIPTIVE NAME FOR MSG (1-8 CHARS). * FILE 369 //* * = REQUIRED * FILE 369 //* * FILE 369 //* FSAS - A FULL SCREEN SAS FACILITY THAT USES THE * FILE 369 //* ISPF EDITOR. NEEDS PANELS, CLISTS, * FILE 369 //* MESSAGES AND CODE FOUND IN THIS PDS, THAT * FILE 369 //* START FSAS.... ALSO NEEDS THE CLIST * FILE 369 //* SELMEMBR, AND THE PANEL SELMEMP1. * FILE 369 //* * FILE 369 //* HEX TITLE ' BASE 16 ARITHMETIC ' FOR THOSE WHO * FILE 369 //* HAVEN'T BLOWN THE $15 FOR A CASIO CM-100, * FILE 369 //* HERE'S A LITTLE HELP. THE IMPETUS FOR * FILE 369 //* WRITING THIS PROGRAM COMES FROM THOSE * FILE 369 //* FRUSTRATING HOURS SPENT FUMBLING WITH A * FILE 369 //* DUMP ONLY TO DISCOVER THAT MY INABILITY TO * FILE 369 //* FIND A SOLUTION STEMS FROM AN ARITHMETIC * FILE 369 //* ERROR IN THE INITIAL STEPS. * FILE 369 //* * FILE 369 //* IGC0022F TITLE 'IGC0022F,SVC 226, WRITE USER SMF * FILE 369 //* RECORD' WRITE USER SMF RECORD FROM NON * FILE 369 //* APF-AUTHORIZED PROGRAM. TYPICALLY, THE * FILE 369 //* RECORD CONTAINS ACCOUNTING DATA FROM SUCH * FILE 369 //* PACKAGES AS TELAGRAF, THAT REQUIRE THEIR * FILE 369 //* OWN ACCOUNTING DATA. THE CALLER MUST * FILE 369 //* PROVIDE A POINTER TO THE SMF RECORD IN * FILE 369 //* REGISTER ONE. SVC226 WILL VALIDATE THE * FILE 369 //* ARGUMENTS, FILL IN THE STANDARD SMF HEADER * FILE 369 //* AND DISPATCH THE RECORD WITH A SMFWTM * FILE 369 //* MACRO. * FILE 369 //* * FILE 369 //* IEFACTRT TITLE 'SMF JOB/STEP TERMINATION EXIT ROUTINE' * FILE 369 //* SMF EXIT ROUTINE PUTS JOB SUMMARY * FILE 369 //* MESSAGES ON THE JOB LOG WITH STEP * FILE 369 //* TERMINATION STATUS. THIS IS THE SP IPO * FILE 369 //* EXIT, DIDDLED TO WORK UNDER XA. * FILE 369 //* * FILE 369 //* IEFUSI 'MEMLIMIT - IEFUSI EXIT TO SET REGION AND * FILE 369 //* GETMAIN PARAMETERS AVOID 40D ABENDS WHEN * FILE 369 //* USING A REGION GREATER THAN 32 MEG. SET * FILE 369 //* LIMITS FOR REGION AND GETMAINS. THE IEFUSI * FILE 369 //* LIMIT FLAG IS SET ON IN THE VSM PARAMETER * FILE 369 //* LIST. THIS ENABLES VSM LOGIC TO SET REGION * FILE 369 //* AND GETMAIN LIMITS. NO SPECIFIC VALUES ARE * FILE 369 //* SET. THIS EXIT ADDRESSES A PROBLEM WHICH * FILE 369 //* CAUSES ADDRESS SPACES TO FAIL WHEN A V-FORM * FILE 369 //* GETMAIN IS ISSUED WHICH GETS THE ENTIRE * FILE 369 //* PRIVATE AREA BELOW THE 16M LINE. ITS * FILE 369 //* PURPOSE IS TO RESERVE FOR SYSTEM USE (E.G., * FILE 369 //* ABTERM) A REASONABLE AMOUNT OF STORAGE. * FILE 369 //* * FILE 369 //* IKJEFF10 TITLE 'IKJEFF10 - TSO/E SUBMIT EXIT * FILE 369 //* ROUTINE.' WE USE THIS EXIT TO INSERT A * FILE 369 //* COMMENT CARD AFTER EACH JOB CARD THAT NAMES * FILE 369 //* THE JCL SOURCE DATASET. THUS: * FILE 369 //* * FILE 369 //* //* SUBMITTED FROM ISPF EDIT OF * FILE 369 //* USERID.TEST.CNTL(IEFBR14) * FILE 369 //* * FILE 369 //* THIS ALLOWS THE DEBUGGER TO RELATE A JCL * FILE 369 //* LISTING BACK TO THE LIBRARY FROM WHICH THE * FILE 369 //* JOB WAS SUBMITTED. * FILE 369 //* * FILE 369 //* IKJEFF53 TITLE ' FIB INSTALLATION EXIT' VALIDITY * FILE 369 //* CHECKS JOBNAME ON A CANCEL, OUTPUT OR STATUS * FILE 369 //* FIB (FOREGROUND INITIATED BACKGROUND) * FILE 369 //* COMMAND. USES AN ACF2 GENERALIZED RESOURCE * FILE 369 //* RULE TEST, SO THE ACCESS RULES CAN BE * FILE 369 //* CHANGED WITH ACF2 COMMANDS INSTEAD OF * FILE 369 //* REASSEMBLY AND RELOAD OF IKJEFF53. * FILE 369 //* * FILE 369 //* ISPFPRTO TITLE 'PRINTOFF SUBCOMMAND OF BROWSE & EDIT * FILE 369 //* ' THIS CLIST, PLUS AN ENTRY IN THE ISPTLIB * FILE 369 //* MEMBER, "ISPCMDS," WILL PRINT THE DATASET * FILE 369 //* BEING BROWSED OR EDITED. THUS: COMMAND ==> * FILE 369 //* PRINTO INSTEAD OF: COMMAND ==> TSO PRINTO * FILE 369 //* ENDLESS.GODDAM.DATASET.NAME NEEDS ISRBROBF * FILE 369 //* AND ISREDDE REPLACEMENT PANELS IN THIS PDS. * FILE 369 //* * FILE 369 //* ISFUSER SDSF - ACF2 INTERFACE * FILE 369 //* WITH THIS INTERFACE, SDSF AND OUTPUT OBEY * FILE 369 //* THE SAME RULES -- WHO CAN DO WHAT, AND WITH * FILE 369 //* WHICH, AND TO WHOM? IKJEFF53 AND ISFUSER * FILE 369 //* BOTH CHECK THE SAME ACF2 GRO RULES. * FILE 369 //* * FILE 369 //* ISRPID TITLE 'ISRPID - FETCH THE CURRENT ISPF PANELID.' * FILE 369 //* THIS ROUTINE RUNS UNDER THE ISPF DIALOG * FILE 369 //* MANAGER AND RETURNS THE NAME OF THE CURRENT * FILE 369 //* PANEL IN DIALOG VARIABLE PANELID. IT WAS * FILE 369 //* DESIGNED FOR USE BY THE PRINTO SUBCOMMAND OF * FILE 369 //* EDIT AND BROWSE, ALSO IN THIS FILE. * FILE 369 //* * FILE 369 //* ISRUOL A FULL SCREEN 3.8 REPLACEMENT THAT ALLOWS * FILE 369 //* MANIPULATION OF JOBS/SYSOUT WITHOUT THE HASSLE * FILE 369 //* OF AWKWARD "JOB(JOBNUM)" SPECIFICATIONS. * FILE 369 //* REQUIRES TSO/E. * FILE 369 //* * FILE 369 //* ISRUDLP ISPF 3.4 MOD * FILE 369 //* DEFAULTS TO SEARCH UNDER YOUR USERID. THUS * FILE 369 //* "=3.4;;" WILL DISPLAY WHAT YOU GET WITH, * FILE 369 //* "=3.4 **ENTER** **TAB** MYUSERID **ENTER**". * FILE 369 //* THIS PANEL ALSO HAS MODS TO SUPPORT BEING * FILE 369 //* CALLED AS A LINE COMMAND FROM FDSPACE. * FILE 369 //* * FILE 369 //* ISTAUCAG TITLE 'VTAM SESSION ACCOUNTING EXIT ROUTINE.' * FILE 369 //* DESCRIPTION - THIS EXIT IS DOCUMENTED IN THE * FILE 369 //* ACF/VTAM CUSTOMIZATION MANUAL (SC27-0613). WHAT * FILE 369 //* WE DO IN THIS EXIT IS BANG OUT AN SMF RECORD * FILE 369 //* (TYPE 240) THAT CONTAINS ALL RELEVANT * FILE 369 //* INFORMATION PASSED TO US. THIS INCLUDES * FILE 369 //* PRIMARY AND SECONDARY LU NAMES. RECORD IS * FILE 369 //* IN RELOCATE FORMAT (SECTIONS WITH A HEADER * FILE 369 //* CONTAIN OFFSET, LENGTH, AND NUMBER). PLEASE * FILE 369 //* NOTE THAT THE RECORD IS IN A FORMAT COMPATIBLE * FILE 369 //* WITH THE VECTORS THAT WILL BE OUTPUT BY THE * FILE 369 //* VTAM SESSION MANAGEMENT EXIT ROUTINE WE WILL * FILE 369 //* USE WHEN VTAM 2.2 IS IMPLEMENTED. * FILE 369 //* * FILE 369 //* JESXIT9 - TITLE 'JES2 EXIT9 - OUTPUT EXCEEDED EXIT.' * FILE 369 //* DESCRIPTION - * FILE 369 //* THIS IS THE OUTPUT EXCEEDED JES EXIT. OUR * FILE 369 //* INSTALLATION DOES NOT BY DEFAULT CANCEL JOBS * FILE 369 //* THAT EXCEED OUTPUT. THIS EXIT PROMPTS THE * FILE 369 //* OPERATOR ABOUT EVERY 100,000 LINES EXCEEDED TO * FILE 369 //* CANCEL THE JOB OR ALLOW THE JOB TO CONTINUE. * FILE 369 //* THUS WE CAN PREVENT RUNAWAY JOBS FROM FILLING * FILE 369 //* UP SPOOL SPACE. * FILE 369 //* * FILE 369 //* LM00501 FORCE JES2 TO RELOAD 6-LPI FCB AFTER 8-LPI * FILE 369 //* DATASET PRINTS. JES2 WILL ONLY RELOAD THE * FILE 369 //* 3211 FCB WITH A STANDARD FCB, IF THE CURRENT * FILE 369 //* LOAD IS MARKED NON-STANDARD. THIS MEANS, A * FILE 369 //* JOB THAT DOESN'T SPECIFY A FCB WILL PRINT AT * FILE 369 //* THE DENSITY OF THE PRECEDING DATASET, * FILE 369 //* WHATEVER IT MAY BE. THE SOLUTION IS TO * FILE 369 //* LEAVE ONLY THE 6-LPI FCB MARKED STANDARD. * FILE 369 //* * FILE 369 //* LM01602 TITLE 'LM01602 -- I/O COUNTS IN DEALLOCATION * FILE 369 //* MESSAGES' * FILE 369 //* * FILE 369 //* IEF285I SYS1.DATASET KEPT *----2,301 * FILE 369 //* * FILE 369 //* I/O COUNT IN MSGS IEF283I, IEF285I, IEF287I * FILE 369 //* UPDATED FOR XA. IEFAB4B0 AT JBB2110, * FILE 369 //* IEFAB4A2 AT JBB2125 ADDED LOOP TO SUM UP * FILE 369 //* COUNTS WHEN MULTIPLE UNITS ARE ALLOCATED. * FILE 369 //* ENHANCED TO SHOW COUNTS FOR VIO DATASETS. * FILE 369 //* * FILE 369 //* NOTE: THIS ZAP DEPENDS ON THE HOWARD GILBERT * FILE 369 //* ASMTOZAP, ALSO IN THIS FILE. ACCEPT NO * FILE 369 //* SUBSTITUTES. * FILE 369 //* * FILE 369 //* LM02701 TITLE 'ZAP TO IGG01946 FOR TCAM OPENQ SMF * FILE 369 //* RECORD.' * FILE 369 //* * FILE 369 //* LM02801 TITLE 'ZAP TO IGG02046 FOR TCAM CLOSEQ SMF * FILE 369 //* RECORD.' DESCRIPTION - THESE TWO ZAPS WRITE * FILE 369 //* AN SMF240 RECORD FOR EACH OPEN OR CLOSE OF A * FILE 369 //* TCAM APPLICATION Q. * FILE 369 //* * FILE 369 //* NOTE: THIS ZAP DEPENDS ON THE HOWARD GILBERT * FILE 369 //* ASMTOZAP, ALSO IN THIS FILE. ACCEPT NO * FILE 369 //* SUBSTITUTES. * FILE 369 //* * FILE 369 //* NONDESC TITLE 'NONDESC - WTO EXIT TO MAKE ACTION * FILE 369 //* MESSAGES ROLLABLE DESCRIPTION - IF EITHER * FILE 369 //* DESC=1 OR DESC=2 FLAGS ARE ON, WE TURN THEM * FILE 369 //* OFF, MAKING THE MESSAGE ROLLABLE. THIS EXIT * FILE 369 //* WAS ORIGINALLY DESIGNED TO MAKE SELECTED * FILE 369 //* GARBAGE MESSAGES FROM PROPRIETARY SOFTWARE, * FILE 369 //* ROLLABLE. THIS EXIT IS WELL DOCUMENTED IN * FILE 369 //* THE USER EXITS SPL, GC28-1147. * FILE 369 //* * FILE 369 //* PRCJFCB TITLE 'PRCJFCB -- READ JOB-FILE CONTROL * FILE 369 //* BLOCK' PURPOSE: THIS SUBROUTINE MOVES THE * FILE 369 //* JOB-FILE CONTROL BLOCK FOR A CALLER INTO AN * FILE 369 //* AREA ACCESSIBLE FROM HIGH-LEVEL LANGUAGE. * FILE 369 //* * FILE 369 //* PRC38DSN TITLE 'STORE THE DSN FOR A DDNAME IN A * FILE 369 //* DIALOG VARIABLE.' THIS ROUTINE RUNS UNDER * FILE 369 //* CONTROL OF THE ISPF DIALOG MANAGER. GIVEN * FILE 369 //* AN ALLOCATED DDNAME VIA THE PARM FIELD, WE * FILE 369 //* RETURN THE DSN AND VOLSER IN DIALOG * FILE 369 //* VARIABLES OUTDSN AND OUTVOL. DESIGNED FOR * FILE 369 //* USE IN THE PRC 3.8 REPLACEMENT CLISTS SO WE * FILE 369 //* CAN USE VIO FOR OUR TEMPORARY FILES. * FILE 369 //* * FILE 369 //* ISPEXEC SELECT PGM(PRC38DSN) PARM(DDNAME) * FILE 369 //* ISPEXEC VGET (OUTDSN OUTVOL) * FILE 369 //* * FILE 369 //* PRINTSEP TITLE 'APS JES2 EXITS: CUSTOM PRINTER BANNER * FILE 369 //* SEPARATOR PAGE' CUSTOM PRINT SEPARATOR EXIT * FILE 369 //* ROUTINES. PUTS ACF2 UID OF JOB OWNER IN * FILE 369 //* BANNER, AS WELL AS JOB NAME. * FILE 369 //* * FILE 369 //* 1. ENTRY SEPEX1 IS TO BE INVOKED AT * FILE 369 //* STANDARD JES2 EXIT 1. * FILE 369 //* 2. ENTRY SEPEX222 IS TO BE INVOKED AT * FILE 369 //* ACF2-GENERATED JES2 EXIT 222 BEFORE THE * FILE 369 //* STANDARD ACF2X2J2 FUNCTION. * FILE 369 //* 3. THE ACF2 LOGON ID IS PASSED IN 8 BYTES * FILE 369 //* OF JCTUSER. CURRENTLY WE'RE USING THE 8 * FILE 369 //* BYTES FOLLOWING WHATEVER FIELD ACF2 IS * FILE 369 //* USING. * FILE 369 //* 4. THE LOGOS ARE IN LOWER CASE. TAKE CARE * FILE 369 //* WITH THE EDITOR IF YOU MAKE CHANGES. * FILE 369 //* * FILE 369 //* QALLOC - ALLOCATE A TCAM QUEUE. * FILE 369 //* DESCRIPTION - WE DRIVE THE DYNAM PGM TO ALLOCATE A * FILE 369 //* TCAM Q FROM TSO. PLEASE NOTE THAT THE ALLOCATE * FILE 369 //* COMMAND DOES NOT SUPPORT THIS. CALL * FILE 369 //* 'MY.LOAD.LIB(QALLOC)' 'DD=SYSUT1 QNAME=MYQNAME * FILE 369 //* OPTCD=C ;' PLEASE NOTE THAT THE PARM FIELD IS * FILE 369 //* PASSED UNEDITED TO THE DYNAM PGM. DON'T FORGET * FILE 369 //* THE ';' TO TERMINATE IT! * FILE 369 //* * FILE 369 //* THE DYNAM PROGRAM FROM THE UNIVERSITY OF MANITOBA * FILE 369 //* IS ON SEVERAL CBT FILES. I BELIEVE OURS CAME FROM * FILE 369 //* CBT FILE 360. (FILE 089 IS DEVOTED TO DYNAM. SG) * FILE 369 //* * FILE 369 //* QFLUSH - FLUSH A TCAM QUEUE. * FILE 369 //* DESCRIPTION - THIS UTILITY FLUSHES RECORDS FROM A * FILE 369 //* TCAM INPUT QUEUE THAT IS ALLOCATED TO THE SYSUT1 * FILE 369 //* FILE. IT WRITES THESE RECORDS TO THE SYSUT2 FILE * FILE 369 //* IF IT'S FOUND ALLOCATED. THIS PGM CAN BE RUN * FILE 369 //* FROM THE OPERATOR CONSOLE WHEN A QUEUE IS FOUND * FILE 369 //* TO BE CLOGGED UP WITH MESSAGES. * FILE 369 //* TO USE - * FILE 369 //* * FILE 369 //* //QFLUSH PROC Q=BADQNAME,TCAM=TCAM,OUTDSN=NULLFILE * FILE 369 //* //S1 EXEC PGM=QFLUSH * FILE 369 //* //SYSUT1 DD QNAME=&Q..&TCAM * FILE 369 //* //SYSUT2 DD DSN=&OUTDSN,DISP=(,CATLG,DELETE), * FILE 369 //* // SPACE=(TRK,(10,5),RLSE),DCB=(RECFM=VB,LRECL=4024, * FILE 369 //* // BLKSIZE=23200),UNITS=SYSTS * FILE 369 //* * FILE 369 //* THE OPERATOR CAN ENTER: "S QFLUSH,Q=MYQUEUE" (CVT) * FILE 369 //* * FILE 369 //* FLUSH,Q=MYQUEUE,TCAM=MYTCAM" (ASCB) * FILE 369 //* * FILE 369 //* RECEIVED TITLE 'RECEIVE NOTIFY EXIT' * FILE 369 //* FUNCTION PROVIDE NOTIFICATION OF * FILE 369 //* RECEIVED MESSAGE. * FILE 369 //* * FILE 369 //* REPLYTO - 'RESPOND TO AN OUTSTANDING WTOR.' THIS * FILE 369 //* PROGRAM WILL ISSUE A CANNED REPLY TO A SELECTED * FILE 369 //* WTOR MESSAGE. WE USE IT TO SYNCH PROCESSING * FILE 369 //* BETWEEN ADABAS AND THE ADABAS LOG UTILITY. IT * FILE 369 //* ACCEPTS AS INPUT THE WTOR MESSAGE TEXT, THE * FILE 369 //* CANNED REPLY MESSAGE TEXT, AND OPTIONALLY THE * FILE 369 //* JOBNAME OF THE WTOR ISSUER, ALONG WITH OTHER * FILE 369 //* MISC. OPTIONS, AS DESCRIBED BELOW. * FILE 369 //* * FILE 369 //* (FIXED BY ALAN FIELD AND ED BILLOWITZ TO HANDLE * FILE 369 //* 4-CHARACTER REPLY IDS. SG-10/98) * FILE 369 //* * FILE 369 //* FOR EXAMPLE, THE FOLLOWING JOB STEP: * FILE 369 //* * FILE 369 //* //S1 EXEC PGM=REPLYTO, * FILE 369 //* // PARM='J=ADA8|M=ADA040A|R=OK' * FILE 369 //* * FILE 369 //* WILL REPLY "OK" TO A WTOR MESSAGE BEGINNING * FILE 369 //* "ADA040A" THAT IS ISSUED BY JOB ADA8. * FILE 369 //* * FILE 369 //* EXEC PGM=REPLYTO,PARM='MSG=MMMMMMMM...| * FILE 369 //* REPLY=RRRRRRRR...| * FILE 369 //* ABEND=YES/NO| * FILE 369 //* COLUMN=99| * FILE 369 //* JOB=JJJJJJJJ| * FILE 369 //* TIME=999| * FILE 369 //* WAIT=YES/NO' * FILE 369 //* * FILE 369 //* SD PUNCH DIRECTORY OF PDS INTO SEQUENTIAL * FILE 369 //* DATASET NON-MODAL COMMAND TO FORMAT THE * FILE 369 //* DIRECTORY INTO A DATASET FOR SUBSEQUENT * FILE 369 //* EDITING, OR TO THE SCREEN. * FILE 369 //* * FILE 369 //* SID TITLE 'SID - THIS PGM RETURNS SID INDICATOR * FILE 369 //* IN R15' THE INTENT OF THIS PROGRAM IS TO * FILE 369 //* ALLOW JOBS TO EXECUTE DIFFERENT STEPS BASED * FILE 369 //* ON THE SYSTEM ON WHICH THEY ARE RUN. * FILE 369 //* * FILE 369 //* SITEID TITLE 'SITEID - SET RETURN CODE BASED ON JES2 * FILE 369 //* SPOOL NODE NAME' THE INTENT OF THIS PROGRAM IS * FILE 369 //* TO ALLOW JOBS TO EXECUTE DIFFERENT STEPS BASED * FILE 369 //* ON THE SITE AT WHICH THEY ARE RUN. * FILE 369 //* * FILE 369 //* SMF240 PURPOSE: MAP USER SMF RECORD 240 * FILE 369 //* * FILE 369 //* SPY TITLE 'S P Y -- MVS CONSOLE SPY PROGRAM -- * FILE 369 //* VERSION 3.1' THIS PROGRAM DISPLAYS THE * FILE 369 //* CONTENTS OF ALL ACTIVE GRAPHIC OPERATOR'S * FILE 369 //* CONSOLES ON A TSO CRT. THE OPERATOR'S SCREEN * FILE 369 //* CAN BE EITHER A 327X OR A 370-168 INTEGRATED * FILE 369 //* CONSOLE WITH 35 LINES. THE TSO USER CAN USE * FILE 369 //* ANY 327X TERMINAL. HEAVILY MODIFIED FOR XA * FILE 369 //* AT PRC. * FILE 369 //* * FILE 369 //* SRCDOC ADD DOCUMENTATION TO LMF-MANAGED MEMBERS * FILE 369 //* CREATES AN EYE-CATCHER OF ISPF STATS AND * FILE 369 //* PROMOTION TIME IN THE OBJECT CODE OF A * FILE 369 //* PROMOTED MODULE; * FILE 369 //* * FILE 369 //* SRCLEVEL DC C'IGC0022F V01.M05 85/09/26 * FILE 369 //* 17:57 PSYRRS ' * FILE 369 //* * FILE 369 //* THE SHARED POOL IS ACCESSED TO GET THE * FILE 369 //* MEMBER NAME AND LOW LEVEL QUALIFIER * FILE 369 //* (LANGUAGE TYPE). THE LM DIALOG SERVICES ARE * FILE 369 //* THEN USED TO ACCESS VERSION, MODIFICATION * FILE 369 //* LEVEL, DATE, TIME, AND TSO LOGON FROM THE * FILE 369 //* PDS DIRECTORY. THE INPUT MEMBER IS OPENED * FILE 369 //* FOR UPDATE AND READ. WHEN THE EXISTING * FILE 369 //* TRIGGER RECORD OR SEQUENCE IS FOUND, THE * FILE 369 //* RECORD IS UPDATED AND REWRITTEN. NOTE: THIS * FILE 369 //* ROUTINE IS INVOKED FROM THE PROMOTION EXIT * FILE 369 //* DEFINED TO LMF IN THE PROMOTION HIERARCHY, * FILE 369 //* (PANEL 8.5). THE CLIST, "LMFAPSEX," ALSO IN * FILE 369 //* THIS FILE, IS THE EXIT WE USE. THIS CLIST * FILE 369 //* WILL NOT WORK FOR YOU WITHOUT MODIFICATION. * FILE 369 //* FOR INSTANCE, YOU WON'T NEED THE "IMP" * FILE 369 //* PRE-PROCESSOR CALL, AND YOUR SYSLIB * FILE 369 //* CONCATENATION IS GONNA' BE DIFFERENT. * FILE 369 //* * FILE 369 //* SUBAUTHX TITLE 'SUBAUTHX - CHECK FOR AUTHORIZED JOB * FILE 369 //* SUBMISSION PROGRAM' * FILE 369 //* * FILE 369 //* FUNCTION CHECK FOR AUTHORIZED JOB * FILE 369 //* SUBMISSION PROGRAM PROVIDES ACF2 * FILE 369 //* "JOBCOPY" FUNCTION FROM WITHIN * FILE 369 //* ISPF * FILE 369 //* * FILE 369 //* OPERATION IF THE SUBMITTING PROGRAM IS * FILE 369 //* REENTRANT AND COMES * FILE 369 //* * FILE 369 //* FROM AN APF-AUTHORIZED LIBRARY, * FILE 369 //* THE BIT IN THE ACF DCT EXTENSION * FILE 369 //* IS SET TO ALLOW THE 'SUBAUTH' * FILE 369 //* RESTRICTION TO BE MET. * FILE 369 //* * FILE 369 //* NOTES THIS EXIT EXTENDS THE FUNCTIONS * FILE 369 //* PROVIDED BY ACF2 EXIT ACF2XIRD * FILE 369 //* (INTERNAL READER OPEN) PACKAGED IN * FILE 369 //* LOAD MODULE ACF2X1J2. THE EXIT * FILE 369 //* POINT IS INSERTED IN HASPSSSM AS * FILE 369 //* PART OF ACF2 INSTALLATION (RELEASE * FILE 369 //* 4.0). THE ORIGINAL EXIT IS * FILE 369 //* DESIGNED TO CAPTURE THE SUBMITTING * FILE 369 //* ENVIRONMENT WHEN INTRDR IS OPENED. * FILE 369 //* THE PROGRAM NAME AND ITS APF * FILE 369 //* AUTHORIZATION ARE AMONG THE DATA * FILE 369 //* PRESERVED. THESE DATA ARE THEN * FILE 369 //* USED DURING ACF2 ENTRY VALIDATION, * FILE 369 //* USUALLY FOR A LID WITH THE RESTRICT * FILE 369 //* ATTRIBUTE. THE PROGRAM NAME IS * FILE 369 //* MATCHED WITH THE PROGRAM SPECIFIED * FILE 369 //* IN THE LID, AND APF AUTHORIZATION * FILE 369 //* IS REQUIRED IF THE LID ALSO HAS * FILE 369 //* SUBAUTH SPECIFIED. * FILE 369 //* * FILE 369 //* TCAMFIX DESCRIPTION - THIS ROUTINE CLEANS UP THE * FILE 369 //* CVTAQAVB FIELD SO TCAM WILL INITIALIZE. THE * FILE 369 //* CVT-BASED TCAM IS SUPPOSED TO DO THIS WHEN IT * FILE 369 //* TERMINATES, BUT IT ISN'T ALWAYS SO OBLIGING. * FILE 369 //* IF THE OPERATOR RESPONDS "Y" TO OUR MESSAGE * FILE 369 //* IEDPRC1D, THEN WE ZERO THIS FIELD. NOTE - WE * FILE 369 //* MUST RUN APF-AUTHORIZED. * FILE 369 //* * FILE 369 //* TLBLMAIN TITLE 'TLBLMAIN -- MAIN MODULE FOR TAPE * FILE 369 //* LABEL WRITER' * FILE 369 //* * FILE 369 //* FUNCTION PROCESS REQUESTS TO PRINT * FILE 369 //* EXTERNAL TAPE LABELS PRINT TAPE * FILE 369 //* LABELS AT TAPE MOUNT TIME * FILE 369 //* WITHOUT A TAPE MANAGEMENT * FILE 369 //* SYSTEM. * FILE 369 //* * FILE 369 //* OUTPUT LABEL PRINTED ON 328X-TYPE * FILE 369 //* PRINTER VIA VTAM * FILE 369 //* * FILE 369 //* WAIT TITLE 'WAIT - WAIT A LITTLE BIT.' THIS MODULE * FILE 369 //* WILL WAIT THE REQUESTED NUMBER OF SECONDS. * FILE 369 //* PARM='NNNN', WHERE 0 < NNNN <= 9999, THE NUMBER * FILE 369 //* OF SECONDS TO WAIT. DEFAULT IS 10 SECONDS. * FILE 369 //* * FILE 369 //* WTO TITLE 'WTO - OPERATIONS COMMUNICATION' * FILE 369 //* THIS PROGRAM PROVIDES PROGRAMMER TO OPERATOR * FILE 369 //* COMMUNICATION. THIS IS THE IPO "WTO" * FILE 369 //* DIDDLED TO ALLOW GREATER THAN 72 BYTE * FILE 369 //* MESSAGES. * FILE 369 //* * FILE 369 //* WTONR TITLE 'WTONR - WRITE NON-ROLLABLE OPERATOR * FILE 369 //* MESSAGES.' * FILE 369 //* DESCRIPTION - WE READ SYSIN INPUT AND WTO * FILE 369 //* CARD IMAGES TO THE OPERATOR CONSOLE THAT * FILE 369 //* ARE NON-ROLLABLE. ORIGINALLY USED BY THE * FILE 369 //* MESSENGER JOBS FOR AN OPERATOR RESTART. * FILE 369 //* * FILE 369 //* NOTE - WE MUST BE APF-AUTHORIZED TO WRITE * FILE 369 //* NON-ROLLABLE MESSAGE * FILE 369 //* * FILE 369 //* TO USE - * FILE 369 //* //S1 EXEC PGM=WTONR * FILE 369 //* //STEPLIB DD DSN=AN.APF.LIBRARY,DISP=SHR * FILE 369 //* //SYSIN DD * * FILE 369 //* * THIS IS A COMMENT * FILE 369 //* ---> UP TO THREE LINES OF TEXT <--- * FILE 369 //* ---> AFTER THREE LINES IGNORED <--- * FILE 369 //* ---> COLS 1-72 ARE PROCESSED <--- * FILE 369 //* /* * FILE 369 //* * FILE 369 //***FILE 370 CONTAINS SYSTEM MODIFICATION TO ADD THE I/O COUNTS * FILE 370 //* TO MESSAGE IEF2851I FOR VARIOUS LEVELS OF THE * FILE 370 //* OPERATING SYSTEM THAT ARE NOT CONTAINED IN FILE 369 * FILE 370 //* OF THIS TAPE. * FILE 370 //* MEMBER LEVEL * FILE 370 //* ESA1 ESA * FILE 370 //* * FILE 370 //***FILE 371 is from the State of Washington and contains load * FILE 371 //* modules from the source in File 270 of this tape. * FILE 371 //* * FILE 371 //***FILE 372 is from Ken MacKenzie, 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@attglobal.net * FILE 380 //* 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" * FILE 382 //* "@RTS PG" * FILE 382 //* * FILE 382 //* UNLOAD and UNLOAD$. The unload assembler program * FILE 382 //* provides the ability to convert a PDS into a flat * FILE 382 //* file and to insert a control card of your own * FILE 382 //* making in between each unloaded member, with the * FILE 382 //* member name inserted at any position in the record. * FILE 382 //* * FILE 382 //* DASD. This SMP/E usermod provides a DASD LSPACE * FILE 382 //* program, that dumps all the data returned by the * FILE 382 //* LSPACE macro into a file for further analysis. * FILE 382 //* * FILE 382 //* DASDSPCE. This SMP/E usermod provides a DASD space * FILE 382 //* command that will display the available space on a * FILE 382 //* selected subset of the dasd farm. * FILE 382 //* * FILE 382 //* DEBUG. This assembler macro I use to produce debug * FILE 382 //* information from most programs that I write. The * FILE 382 //* debug information is written to any number of * FILE 382 //* possible output data sources. * FILE 382 //* * FILE 382 //* GRS. This SMP/E usermod provides a WHOHAS type * FILE 382 //* utility, and is normally used for that purpose. * FILE 382 //* * FILE 382 //* SYSTEM. This SMP/E usermod contains a system IPL * FILE 382 //* details program, which includes system symbols. * FILE 382 //* * FILE 382 //* DISASM. Members DISASJCL, DISASMAC and DISASSRC * FILE 382 //* contain an updated version of the disassembler * FILE 382 //* found on file 171. The update supports all of the * FILE 382 //* two byte 01 and B2 instructions. Support was not * FILE 382 //* added for the A4, A5, A6, E4 and E5 opcodes, but * FILE 382 //* could now be added reasonably easily. Instruction * FILE 382 //* set based on SA22-7209-01 ESA/390 Reference Summary. * FILE 382 //* * FILE 382 //***FILE 383 IS FROM INTEL AND CONTAINS A COPY OF THEIR CLISTS * FILE 383 //* REQUIRED FOR USE WITH THEIR TECHINFO SYSTEM WHICH IS * FILE 383 //* CONTAINIED IN FILE 352 OF THIS TAPE. THIS FILE IS * FILE 383 //* IN IEBCOPY FORMAT (VB LRECL=84 BLKSIZE=15456). * FILE 383 //* SEE THE MEMBER CALLED $$DOC FOR ADDITIONAL * FILE 383 //* INFORMATION. * FILE 383 //* * FILE 383 //***FILE 384 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 //* 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 //* asm2zap.zip OS/390 A utility for converting an * FILE 388 //* assembly listing into SUPERZAP * FILE 388 //* cards. * FILE 388 //* * FILE 388 //* blksptrk.zip OS/390 A TSO command that computes and * FILE 388 //* displays track capacities for any * FILE 388 //* IBM DASD device for any BLKSIZE, * FILE 388 //* with or without key fields. * FILE 388 //* * FILE 388 //* macros.zip OS/390 A set of Assembler/390 macros * FILE 388 //* needed for assembling the various * FILE 388 //* programs available from Cole * FILE 388 //* Software LLC. * FILE 388 //* * FILE 388 //* schedrun.zip OS/390 A set of MVS programs for * FILE 388 //* scheduling the execution of System * FILE 388 //* Operator Commands on an interval * FILE 388 //* or calander basis. Can be used to * FILE 388 //* control production scheduling. * FILE 388 //* * FILE 388 //* xrefasm.zip OS/390 A pair of programs for producing * FILE 388 //* master cross-reference listings * FILE 388 //* for multi-assembly programs. * FILE 388 //* * FILE 388 //* COLE SOFTWARE LLC * FILE 388 //* 736 Fox Hollow Road Afton, VA 22920 * FILE 388 //* 540-456-8210 540-456-6658: FAX * FILE 388 //* * FILE 388 //* E-MAIL : CSWstaff@cfw.com * FILE 388 //* INTERNET: http://www.colesoft.com * FILE 388 //* * FILE 388 //* COLE SOFTWARE WEB PAGE: HTTP://WWW.COLESOFT.COM * FILE 388 //* 736 FOX HOLLOW ROAD VOICE: 540-456-8536 * FILE 388 //* AFTON, VA 22920 FAX: 540-456-6658 * FILE 388 //* * FILE 388 //* FOR ADDITIONAL INFORMATION PLEASE SEE THE MEMBER CALLED * FILE 388 //* $$DOC AND READ THE FOLLOWING : * FILE 388 //* * FILE 388 //* A PROGRAM HAS BEEN WRITTEN TO PRINT OUT THE AUTOMATIC * FILE 388 //* SCHEDULING FACILITY FILE BY MAY & SPEH AND IS CONTAINED * FILE 388 //* IN FILE 422 OF THIS TAPE * FILE 388 //* * FILE 388 //* THE MACROS NEEDED FOR THIS SYSTEM ARE CONTAINED IN * FILE 388 //* FILE 408 OF THIS TAPE * FILE 388 //* * FILE 388 //* THE SCHEDULE FACILITY MAKES IT POSSIBLE TO SCHEDULE THE * FILE 388 //* AUTOMATIC EXECUTION OF ANY OPERATOR COMMAND AT ANY TIME * FILE 388 //* OF DAY ON ANY DATE. THE EXECUTION OF THE COMMAND CAN * FILE 388 //* BE REPEATED ACCORDING TO ANY OF A LARGE VARIETY OF * FILE 388 //* DAILY, WEEKLY, MONTHLY, AND/OR YEARLY REPEAT CYCLES. * FILE 388 //* (SEE THE ACCOMPANYING TSO HELP FILE FOR DETAILS). * FILE 388 //* * FILE 388 //* THE SCHEDULE FACILITY SUPPORTS AN OVERRIDE CAPABILITY * FILE 388 //* WHEREBY PARTICULAR SETS OF PERIODICALLY SCHEDULED * FILE 388 //* COMMANDS CAN BE OVERRIDDEN ON SELECTED DATES (SUCH AS * FILE 388 //* HOLIDAYS) WITH ANOTHER SET OF COMMANDS TO BE EXECUTED * FILE 388 //* INSTEAD. SUCH OVERRIDES CAN BE DEFINED EVEN YEARS IN * FILE 388 //* ADVANCE, IF DESIRED. * FILE 388 //* * FILE 388 //* THE SCHEDULE FACILITY PERMITS THE DEFINITION OF A * FILE 388 //* "WINDOW" PERIOD (DEFINED SEPARATELY FOR EACH SCHEDULED * FILE 388 //* AUTOMATIC COMMAND) WHEREBY: * FILE 388 //* * FILE 388 //* - IF THE SYSTEM IS DOWN AT THE TIME THAT A COMMAND * FILE 388 //* IS SCHEDULED TO BE EXECUTED, * FILE 388 //* * FILE 388 //* - BUT IF THE SYSTEM COMES UP ANY TIME DURING THE * FILE 388 //* SPECIFIED "WINDOW PERIOD" FOLLOWING THE COMMAND'S * FILE 388 //* SCHEDULED TIME, * FILE 388 //* * FILE 388 //* - THEN THAT COMMAND WILL BE EXECUTED ANYWAY. * FILE 388 //* * FILE 388 //* THUS THE EXECUTION OF IMPORTANT COMMANDS WON'T BE * FILE 388 //* MISSED JUST BECAUSE THE SYSTEM WASN'T UP IN TIME. * FILE 388 //* * FILE 388 //* IN JES2 "MULTI-ACCESS SPOOL" CONFIGURATIONS, THE * FILE 388 //* SCHEDULE FACILITY'S VSAM DATA BASE CAN BE SHARED * FILE 388 //* BETWEEN MULTIPLE SYSTEMS, AND OPERATOR COMMANDS CAN BE * FILE 388 //* SCHEDULED TO EXECUTE ON EITHER ONE OR THE OTHER (OR * FILE 388 //* "ANY") OF THE ATTACHED CPUS. * FILE 388 //* * FILE 388 //* THE SCHEDULE FACILITY CAN MAINTAIN A LOG FILE WHERE IT * FILE 388 //* RECORDS A TIMESTAMPED COPY OF ALL OPERATOR COMMANDS * FILE 388 //* THAT IT ISSUES. * FILE 388 //* * FILE 388 //* THE SCHEDULE FACILITY IS DESIGNED TO EXECUTE IN A JES2 * FILE 388 //* ENVIRONMENT. IF YOU WISH TO USE IT IN A JES3 SYSTEM, * FILE 388 //* THEN YOU MUST MAKE SUITABLE MODIFICATIONS TO THE * FILE 388 //* FACILITY'S SOURCE CODE. * FILE 388 //* * FILE 388 //***FILE 389 IS 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 //* 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 * 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" * FILE 395 //* * FILE 395 //* This EXEC catalogs all of the PO and PS datasets * FILE 395 //* on a volume using the extended indirect format. * FILE 395 //* It assumes that all of the volumes of a system * FILE 395 //* have a common 3-character prefix, that the last * FILE 395 //* three characters are one of DLB, DL2, RES or RS2 * FILE 395 //* and that the static system variables &SYSDL1, * FILE 395 //* &SYSDL2, &SYSR1 and &SYSR2 will refer to those * FILE 395 //* volumes. * FILE 395 //* * FILE 395 //* If a catalog is not supplied, then the master * FILE 395 //* catalog is assumed. * FILE 395 //* * FILE 395 //* I'd say that the user has to customize this EXEC * FILE 395 //* to his/her local situation, but it's a good starting * FILE 395 //* point. (S.Golob 9/99) * FILE 395 //* * FILE 395 //***FILE 396 is from Scott Hawley of Indianapolis, Indiana, * FILE 396 //* and contains a very handy REXX exec to do a quick * FILE 396 //* text search of a pds from an ISPF 3.4 panel. The * FILE 396 //* name of the exec is FINDSTR, and it invokes * FILE 396 //* ISRSUPC to do the text search. * FILE 396 //* * FILE 396 //* This little widget has been VERY nice to have. * FILE 396 //* It's meant to be used with the 3.4 panel as a line * FILE 396 //* command. I hate having to do the old cut/bounce * FILE 396 //* to 3.14/paste game. The way it's written you can * FILE 396 //* simply say FINDSTR A HAPPY SYSPROG (no quotes) as * FILE 396 //* a line command and a pds search is done with * FILE 396 //* ISRSUPC for the phrase 'A HAPPY SYSPROG'. * FILE 396 //* * FILE 396 //* Scott Hawley * FILE 396 //* Corporate Information Systems * FILE 396 //* Thomson Consumer Electronics, Inc. * FILE 396 //* Indianapolis, IN 46234 * FILE 396 //* Phone: (317) 587-3268 Fax: (317) 587-9541 * FILE 396 //* Internet Mail: HawleyS@tce.com * FILE 396 //* * FILE 396 //***FILE 397 IS CURRENTLY EMPTY * FILE 397 //* * FILE 397 //***FILE 398 is from the contributor of File 171, which was * FILE 398 //* contributed semi-anonymously. All correspondence * FILE 398 //* concerning this file should go through Sam Golob, * FILE 398 //* and the support questions will be facilitated that * FILE 398 //* way. * FILE 398 //* * FILE 398 //* This file contains a macro called IBMMAC. This * FILE 398 //* macro calls other control block mapping macros, * FILE 398 //* but you don't have to remember their names. * FILE 398 //* That's the idea. * FILE 398 //* * FILE 398 //* For example, if you want to map a VTOC DSCB, you * FILE 398 //* don't have to remember that IBM's mapping macro * FILE 398 //* name is IECSDSL1, and that you have to code a 1, * FILE 398 //* 2, 3, 4, 5, or 6 afterward, depending on the format * FILE 398 //* type you want mapped. With this macro, you only * FILE 398 //* have to code: IBMMAC VTOC=4 , or something * FILE 398 //* similar, depending on the format type you want. * FILE 398 //* * FILE 398 //* The original contributor's macro has been improved * FILE 398 //* by Robert Rosenberg. Bob Rosenberg's macro is now * FILE 398 //* included here as member IBMMAC, and the original * FILE 398 //* contributor's macro is also included, as member * FILE 398 //* IBMMACO. * FILE 398 //* * FILE 398 //* There are also two ISPF edit macros called IMAC * FILE 398 //* and IMACBLD from Dave Alcock included here, which * FILE 398 //* perform approximately the same function as the * FILE 398 //* assembler macro IBMMAC--that is, they allow you to * FILE 398 //* properly generate the coding of IBM macros, * FILE 398 //* without your having to know all the particulars. * FILE 398 //* IMACBLD uses the member HANDBOOK (from Gilbert * FILE 398 //* Saint-flour) to generate IMAC, which is the edit * FILE 398 //* macro that generates the IBM assembler macro coding. * FILE 398 //* * FILE 398 //* Sam Golob * FILE 398 //* P.O. Box 906 * FILE 398 //* Tallman, NY 10982-0906 * FILE 398 //* * FILE 398 //* email: sbgolob@attglobal.net * FILE 398 //* and/or sbgolob@cbttape.org * FILE 398 //* * FILE 398 //* "Robert A. Rosenberg" * FILE 398 //* * FILE 398 //* Dave Alcock can be reached at his email * FILE 398 //* addresses: David Alcock (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" * FILE 401 //* "Bob Goldberg" * 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@attglobal.net * FILE 402 //* 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 //* 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" * 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 //* * 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 //* Other email: sbgolob@attglobal.net * FILE 404 //* * FILE 404 //***FILE 405 IS FROM THE DEFENSE LOGISTICS AGENCY IN COLUMBIA * FILE 405 //* OHIO AND CONTAINS SOME OF THEIR EXITS AND UTILITIES. * FILE 405 //* * FILE 405 //* CMD1 - A STARTED TASK PROCEDURE FOR DSACTASK TO * FILE 405 //* MANAGE DYNABLDL AND THE AUTOREPLY FACILITY * FILE 405 //* * FILE 405 //* IEAVNP99 - USER NIP EXIT. * FILE 405 //* * FILE 405 //* IEECVXIT - MCS EXIT THAT ALLOWS CONSOLE MESSAGE ID'S * FILE 405 //* AND RESPONSE STRINGS TO BE CHANGED ON THE * FILE 405 //* FLY. * FILE 405 //* * FILE 405 //* IEFDB401 - DYNAMIC ALLOCATION EXIT. * FILE 405 //* * FILE 405 //* IND$DAIR - EXITS FOR WRITING SMF RECORDS AND SECURITY * FILE 405 //* * FILE 405 //* PLIBSMF0 CONSOLE MESSAGES WHEN UP/DOWN LOADING BE- * FILE 405 //* TWEEN MAINFRAMES AND PC'S. * FILE 405 //* * FILE 405 //* FCB - UTILITY MACRO FOR CODING 3202 AND 3211 FCB * FILE 405 //* IMAGES. STARTED OUT IN HASP 3.1. * FILE 405 //* * FILE 405 //* THE MACROS NEEDED FOR ASSEMBLY OF THE SOURCE ARE * FILE 405 //* INCLUDED IN THIS FILE. FOR ADDITIONAL INFORMATION * FILE 405 //* READ THE MEMBER CALLED ##DOC. THIS FILE IS IN * FILE 405 //* IEBUPDTE SYSIN FORMAT * FILE 405 //* * FILE 405 //***FILE 406 is 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 //* * FILE 406 //* A. CQX * 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 //* B. FIND * FILE 406 //* * FILE 406 //* This is a data set search routine. This uses * FILE 406 //* CP requests for the data set name and does some * FILE 406 //* standard ckecking. It the searches the catalog * FILE 406 //* 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 * FILE 406 //* is incorprated within the code and may be added * FILE 406 //* to easily. It obtains the volume name and * FILE 406 //* ckecks the VTOC for the Format 1 DSCB. Also, if * FILE 406 //* there is a alternate path there is a second * FILE 406 //* address in the tabel pointing to the device. * FILE 406 //* Therfore a second search is done and if a 'hit' * FILE 406 //* is made a second message is produced. A second * FILE 406 //* character table is put in for the convience of * FILE 406 //* others. * FILE 406 //* * FILE 406 //***FILE 407 CONTAINS A COPY OF DYNAMIC BLDL FROM COMNET IN * FILE 407 //* WASHINGTON D.C. AND WAS WRITTEN BY MR DAVID B COLE. * FILE 407 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT (SEE THE * FILE 407 //* MEMBER CALLED $$DOC FOR ADDITIONAL DOCUMENTATION). * FILE 407 //* * FILE 407 //* COLE SOFTWARE WEB PAGE: HTTP://WWW.COLESOFT.COM * FILE 407 //* 736 FOX HOLLOW ROAD VOICE: 540-456-8536 * FILE 407 //* AFTON, VA 22920 FAX: 540-456-6658 * FILE 407 //* * FILE 407 //* THE MACROS NEEDED ARE CONTAINED IN FILE 408 OF * FILE 407 //* THIS TAPE AND THE DYNABLDL LOAD MODULE FOR THIS * FILE 407 //* LEVEL OF SOURCE RESIDES IN FILE 035 OF THIS TAPE. * FILE 407 //* * FILE 407 //* THIS PROGRAM IS CONCEPTUALLY BASED ON THE VARIOUS * FILE 407 //* DYNAMIC BLDL PROGRAMS AVAILABLE FROM THE "CBT * FILE 407 //* UTILITIES" TAPE. HOWEVER, THIS VERSION IS A * FILE 407 //* COMPLETE REWRITE THAT INCORPORATES A SERIES OF * FILE 407 //* IMPROVEMENTS: * FILE 407 //* * FILE 407 //* THIS FILE ALSO CONTAINS AN XA VERSION OF DYNABLDL. * FILE 407 //* SEE THE MEMBER CALLED $$XADOC FOR ADDITIONAL * FILE 407 //* INFORMATION. THE XA VERSION OF DYNABLDL WAS * FILE 407 //* WRITTEN BY JOHN ANDERSON AND JEFF BROIDO AT * FILE 407 //* WESTERN UNION/EDS IN MAHWAH, NEW JERSEY. * FILE 407 //* * FILE 407 //* - THIS VERSION OF DYNABLDL IS * FILE 407 //* CAPABLE OF RECOGNIZING AND HOOKING * FILE 407 //* INTO ANY OF SEVERAL VERSIONS OF * FILE 407 //* IBM'S IGC018. THE RECOGNITION CODE * FILE 407 //* IS TABLE DRIVEN, AND ADDITIONAL * FILE 407 //* RECOGNITION TABLES CAN BE FAIRLY * FILE 407 //* EASILY ADDED. * FILE 407 //* * FILE 407 //* - THE RECOGNITION TABLES ARE * FILE 407 //* COMPREHENSIVE. EACH TABLE CONSISTS * FILE 407 //* OF FOUR PARTS. THE FIRST, LABELED * FILE 407 //* "ID#" (WHERE "#" REPRESENTS AN * FILE 407 //* ARBITRARY UNIQUE NUMERIC SUFFIX), * FILE 407 //* MUST MATCH AN IGC018'S * FILE 407 //* IDENTIFICATION HEADER. THIS IS * FILE 407 //* USED TO DISTINGUISH ONE IGC018 * FILE 407 //* FROM ANOTHER. THE SECOND AND THIRD * FILE 407 //* PARTS, LABELED "SRCHPO#" AND * FILE 407 //* "DFOUND#", MUST MATCH THE TWO * FILE 407 //* LOCATIONS IN IGC018 WHERE DYNABLDL * FILE 407 //* INSERTS ITS JUMPS TO ITS INTERCEPT * FILE 407 //* ROUTINES. THE FOURTH PART CONSISTS * FILE 407 //* OF A LIST OF DESCRIPTORS OF ALL * FILE 407 //* IBM PRIVATE DATA FIELDS REFERENCED * FILE 407 //* BY THE INTERCEPT ROUTINES. MOST * FILE 407 //* OF THE DESCRIPTORS ARE S-CONS * FILE 407 //* GIVING THE BASE REGISTER BY WHICH * FILE 407 //* IGC018 REFERENCES A FIELD AND THE * FILE 407 //* DISPLACEMENT OF THAT FIELD INTO * FILE 407 //* THE IBM PRIVATE CONTROL BLOCK. THE * FILE 407 //* DYNABLDL INITIALIZATION ROUTINE * FILE 407 //* USES THIS LIST TO DYNAMICALLY * FILE 407 //* MODIFY ALL MACHINE INSTRUCTIONS IN * FILE 407 //* THE TWO INTERCEPT ROUTINES SO THAT * FILE 407 //* THEY CORRECTLY MATCH THE PARTICULAR * FILE 407 //* VERSION OF IGC018 BEING HOOKED * FILE 407 //* INTO. NOTE, THE TWO IBM PRIVATE * FILE 407 //* CONTROL BLOCKS INVOLVED HERE ARE * FILE 407 //* THE "BLDL WORK AREA" AND BLDL'S * FILE 407 //* "SVRB EXTENDED SAVE AREA". * FILE 407 //* * FILE 407 //* - ALL ROUTINES RELATED TO DYNABLDL * FILE 407 //* HAVE BEEN CONSOLIDATED INTO A * FILE 407 //* SINGLE PROGRAM. THIS RELIEVES THE * FILE 407 //* POTENTIAL FOR ERRORS ARISING FROM * FILE 407 //* PARTIAL MODIFICATIONS. * FILE 407 //* * FILE 407 //* - THE DYNAMIC BLDL TABLE IS NOW * FILE 407 //* MAINTAINED BY A STRAIGHTFORWARD * FILE 407 //* "LEAST RECENTLY USED" ALGORITHM. * FILE 407 //* THE PREVIOUSLY USED PERIODIC SORTS * FILE 407 //* AND PARTIAL REFILL METHOD HAS BEEN * FILE 407 //* DISCARDED. * FILE 407 //* * FILE 407 //* - PRIOR VERSIONS OF DYNABLDL DID * FILE 407 //* NOT INTERCEPT LINKLIST BLDL * FILE 407 //* REQUESTS IN WHICH THE USER * FILE 407 //* REQUESTED TWO OR MORE NAMES. * FILE 407 //* FURTHER, PRIOR DYNABLDLS DID NOT * FILE 407 //* COUNT SUCH IGNORED REQUESTS AS * FILE 407 //* "MISSES". CONSEQUENTLY, THE "HIT * FILE 407 //* RATE" REPORTED BACK WAS * FILE 407 //* INCORRECT. (IT WAS TOO HIGH). * FILE 407 //* THIS VERSION OF DYNABLDL DOES * FILE 407 //* HANDLE MULTI-ENTRY BLDL REQUESTS, * FILE 407 //* AND MY EXPERIENCE HAS BEEN THAT * FILE 407 //* THE TRUE HIT RATE HAS RISEN FROM * FILE 407 //* ABOUT 80% TO BETTER THAN 95%. * FILE 407 //* * FILE 407 //* - THE REPORT FUNCTION NOW PRODUCES * FILE 407 //* THREE LISTINGS OF THE DYNAMIC * FILE 407 //* TABLE (PRINTED IN 3-COLUMN FORMAT * FILE 407 //* USING LESS THAN 79 CHARACTERS PER * FILE 407 //* LINE - SUITABLE FOR 3270 DISPLAY). * FILE 407 //* ONE LISTING IS SORTED BY NAME; A * FILE 407 //* SECOND IS SORTED BY HITS COUNT; * FILE 407 //* THE THIRD IS SORTED BY L.R.U. * FILE 407 //* CHARACTERISTIC. * FILE 407 //* * FILE 407 //* - THE DYNABLDL STOP FUNCTION NOW * FILE 407 //* COMPLETELY REMOVES DYNABLDL FROM * FILE 407 //* THE SYSTEM RATHER THAN JUST * FILE 407 //* DISABLING THE HOOK ROUTINES. * FILE 407 //* * FILE 407 //* - THERE IS AN UPDATE FROM SAM GOLOB * FILE 407 //* - SO IF YOU WISH, YOU CAN EXCLUDE UP * FILE 407 //* - TO SIX LINKLIST LIBRARIES FROM THE * FILE 407 //* - SEARCH. * FILE 407 //* * FILE 407 //***FILE 408 contains 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 AFTON, VIRGINIA. * 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 //* COLE SOFTWARE LLC * FILE 408 //* 736 Fox Hollow Road Afton, VA 22920 * FILE 408 //* 540-456-8210 540-456-6658: FAX * FILE 408 //* * FILE 408 //* e-mail : CSWstaff@cfw.com * FILE 408 //* Internet: http://www.colesoft.com * FILE 408 //* * FILE 408 //* Cole Software Web Page: http://www.colesoft.com * FILE 408 //* * FILE 408 //***FILE 409 contains the card image members associated with the * FILE 409 //* MXI package from Rob Scott, of 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 //* 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 //* 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 //* For up to date information please see his * FILE 411 //* website : www.mximvs.com * FILE 411 //* * FILE 411 //* Any problems, comments or suggestions * FILE 411 //* please e-mail : rob@mximvs.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 //* For up to date information please see the * FILE 412 //* SEC website : www.mximvs.com * FILE 412 //* * FILE 412 //* Any problems, comments or suggestions * FILE 412 //* please e-mail : rob@mximvs.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: rfochtman@ync.net * 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 //* 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 usually used by most 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. * FILE 415 //* * FILE 415 //* RPF contains a PANVALET and a LIBRARIAN interface * FILE 415 //* to its EDIT capability. * FILE 415 //* * FILE 415 //* Please see member $$INTRO, by Volker Bandke. * 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 //* $MANUAL - Adobe PDF format - download to a PC * FILE 415 //* $MANUAL$ - FB-80 EBCDIC text - read it on MVS * FILE 415 //* RPFUGUID - In ASM library - script format * FILE 415 //* $MANUAL@ - Word 97 format - download to a PC * FILE 415 //* * FILE 415 //* email: rn.prins@quicknet.nl * FILE 415 //* * FILE 415 //* Current version of RPF: V1R5M2 * 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 and PANVALET interface to * FILE 415 //* read and write modules on a disk master file and a TSO * FILE 415 //* command processor to execute TSO commands in RPF. * 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)-l979-2004 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 //* If you enter the TSO command 'RPF FAST' the database * FILE 415 //* will not be included. RPF will choose its own defaults. * FILE 415 //* The main advantage of 'RPF FAST' is that RPF will start * FILE 415 //* very quickly, but the database will not be searched. * 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 View - Display source data or output listings * FILE 415 //* 2 Edit - Update / Create a member or dataset * FILE 415 //* 3 Utility - Enter UTILITY * FILE 415 //* 4 Assembler - Foreground ASSEMBLER and LINK * FILE 415 //* 5 User - Execute RPF user routine * FILE 415 //* 6 TSO - Execute TSO commands * FILE 415 //* 7 Tutorial - 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 Version 1 Release 5.2 Property of Skybird * FILE 415 //* * FILE 415 //* Use of RPF is free, modifications are not allowed * FILE 415 //* Information: email rn.prins@quicknet.nl * 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 Rob Prins, and is the OS/390 (z/OS, ESA, XA) * FILE 417 //* version of his magnificent TSO full screen Editor * FILE 417 //* and multi-utility programmer facility, which is * FILE 417 //* called RPF/E. RPF/E is like RPF from File 415, and * FILE 417 //* it runs under native TSO (as a TSO command * FILE 417 //* processor, even if ISPF is running too. RPF/E has * FILE 417 //* an ISPF-like editor, browser, and quite a few other * FILE 417 //* utilities. The difference is that RPF/E utilizes * FILE 417 //* "above the 16M line" storage, and can edit much * FILE 417 //* larger datasets. * FILE 417 //* * FILE 417 //* So, RPF (from File 415) is for pre-XA systems, and * FILE 417 //* RPF/E is for every MVS system afterwards. * FILE 417 //* * FILE 417 //* RPF contains a PANVALET and a LIBRARIAN interface * FILE 417 //* in addition to its file EDIT capability. * FILE 417 //* * FILE 417 //* RPF/E is currently at level V1R2M2. * FILE 417 //* * FILE 417 //* ------------------- RPF/E MAIN MENU --------------------- * FILE 417 //* Option ===> * FILE 417 //* * FILE 417 //* 0 Defaults - Alter / Display session defaults * FILE 417 //* 1 View - Display source data or output listings * FILE 417 //* 2 Edit - Update / Create a member or dataset * FILE 417 //* 3 Utility - Enter UTILITY * FILE 417 //* 4 Assembler - Foreground ASSEMBLER and LINK * FILE 417 //* 5 User - Execute RPF/E user routine * FILE 417 //* 6 TSO - Execute TSO commands * FILE 417 //* 7 Tutorial - Display HELP information * FILE 417 //* 8 Test - Enter TEST mode (Authorized) * FILE 417 //* 9 Operator - Enter OPERATOR mode * FILE 417 //* X Exit - Terminate RPF/E * FILE 417 //* * FILE 417 //* Hit PF03/15 to terminate RPF/E * FILE 417 //* * FILE 417 //* * FILE 417 //* RPF/E Version 1 Release 2.2 Property of Skybird * FILE 417 //* * FILE 417 //* Use of RPF is free, modifications are not allowed * FILE 417 //* Information: email rn.prins@quicknet.nl * FILE 417 //* * FILE 417 //* For additional information, please see the * FILE 417 //* documentation connected to File 415. * FILE 417 //* * FILE 417 //* email: Rob.Prins@mail.ing.nl * FILE 417 //* rn.prins@quicknet.nl * 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 //* OF NEW JERSEY. THIS FILE IS IN IEBUPDTE SYSIN * FILE 423 //* FORMAT AND CONTAINS THE FOLLOWING MEMBERS : * FILE 423 //* * FILE 423 //* email: broidoj@gti.net * FILE 423 //* * FILE 423 //* $$$COJRB....ASSEMBLER MACRO FOR COPYRIGHT NOTICE * FILE 423 //* #CHECKDD....HELP MEMBER FOR CHECKDD * FILE 423 //* #CKDAY......HELP MEMBER FOR CKDAY * FILE 423 //* #CKM........HELP MEMBER FOR CKM * FILE 423 //* #CKMOUNT....HELP MEMBER FOR CKMOUNT * FILE 423 //* #CKO........HELP MEMBER FOR CKO * FILE 423 //* #CLRDAY.....HELP MEMBER FOR CLEARDAY * FILE 423 //* #LAA........HELP MEMBER FOR LAA * FILE 423 //* #QUOTE......HELP MEMBER FOR QUOTE * FILE 423 //* #TELL.......HELP MEMBER FOR TELL * FILE 423 //* BRODCAST....SOURCE CODE FOR PGM TO LOAD SYS1.BRODCAST * FILE 423 //* CHECKDD.....SOURCE CODE FOR PGM TO CHECK FOR ALLOCATED * FILE 423 //* FILENAMES * FILE 423 //* CKDAY.......SOURCE CODE FOR PGM TO CHECK FOR 1ST LOGON * FILE 423 //* OF THE DAY * FILE 423 //* CKM.........SOURCE CODE FOR PGM TO CHECK PRESENCE OF * FILE 423 //* MEMBER IN PDS * FILE 423 //* CKMOUNT.....SOURCE CODE FOR PGM TO CHECK A USER'S MOUNT * FILE 423 //* PRIVILEGE * FILE 423 //* CKO.........SOURCE CODE FOR PGM TO CHECK A USER'S * FILE 423 //* PRIVILEGES * FILE 423 //* CMAP........SOURCE CODE FOR PGM TO PRODUCE A CSA * FILE 423 //* STORAGE MAP * FILE 423 //* K...........ASSEMBLER MACRO * FILE 423 //* LAA.........SOURCE CODE FOR PGM TO PRODUCE AN EXPANDED * FILE 423 //* ALLOCATION LISTER - Now a PUTLINE version * FILE 423 //* MAPSP.......SOURCE CODE FOR PGM TO PRODUCE MVS/SP * FILE 423 //* STORAGE MAP * FILE 423 //* MAPXA.......SOURCE CODE FOR PGM TO PRODUCE MVS/XA * FILE 423 //* STORAGE MAP * FILE 423 //* MERKNOW.....SOURCE CODE FOR SUPPORT ROUTINE FOR THE * FILE 423 //* NOW MACRO * FILE 423 //* NOW.........ASSEMBLER MACRO * FILE 423 //* OFF.........ASSEMBLER MACRO * FILE 423 //* ON..........ASSEMBLER MACRO * FILE 423 //* QUOTE.......SOURCE CODE FOR PGM TO READ * FILE 423 //* 'QUOTE-OF-THE-DAY' * FILE 423 //* REGS........ASSEMBLER MACRO * FILE 423 //* SMAP........SOURCE CODE FOR PGM TO PRODUCE A STORAGE * FILE 423 //* MAP * FILE 423 //* TELL........SOURCE CODE FOR PGM FOR TELECONFERENCING * FILE 423 //* TSO COMMAND * FILE 423 //* TF..........ASSEMBLER MACRO * FILE 423 //* VPUT........ASSEMBLER MACRO * FILE 423 //* VTPUT.......ASSEMBLER MACRO * FILE 423 //* VWTPU.......ASSEMBLER MACRO * FILE 423 //* * FILE 423 //***FILE 424 IS FROM BLUE CROSS BLUE SHIELD OF WASHINGTON D.C. * FILE 424 //* AND CONTAINS A COPY OF THEIR 3420 TO 3480 CONVERSION * FILE 424 //* PROGRAM. THIS FILE IS IN IEBUPDTE SYSIN FORMAT, * FILE 424 //* FOR ADDITIONAL INFORMATION SEE THE MEMBER CALLED * FILE 424 //* INSTALL. * FILE 424 //* * FILE 424 //* VETAPE IS A PROGRAM THAT GENERATES AND SUBMITS JOBS * FILE 424 //* TO THE INTERNAL READER TO COPY 3420 VOLUMES TO 3480 * FILE 424 //* VOLUMES AND VICE VERSA. * FILE 424 //* * FILE 424 //* IT REQUIRES UCC ONE TAPE MANAGEMENT SYSTEM TO RETRIEVE * FILE 424 //* DATA ABOUT THE VOLUMES YOU ARE MIGRATING. RUNNING AS A * FILE 424 //* STARTED TASK IT ISSUES A REQUEST TO THE OPERATOR TO * FILE 424 //* ENTER A VOLSER OF THE VOLUME TO BE MIGRATED. FROM THAT * FILE 424 //* IT DETERMINES IF THE VOLUME IS ELGIBLE FOR MIGRATION * FILE 424 //* FROM THE FOLLOWING CRITERIA: * FILE 424 //* * FILE 424 //* **** SEE FILE 047 FOR A VERSION OF VETAPE THAT * FILE 424 //* SUPPORTS TLMS II RATHER THAN UCC1 **** * FILE 424 //* * FILE 424 //* 1. EXPIRATION DATE - IF TAPE DUE TO EXPIRE IN 30 DAYS * FILE 424 //* OR LESS IT WILL BE BYPASSED. * FILE 424 //* * FILE 424 //* 2. DENSITY - MUST BE STANDARD 6250 BPI. * FILE 424 //* * FILE 424 //* 3. CREATING JOBNAME- VOLUMES CREATED BY JOBS USING * FILE 424 //* CERTAIN UTILITIES OR INTENDED FOR * FILE 424 //* 3420 VOLUMES CAN BE BYPASSED. * FILE 424 //* * FILE 424 //* 4. MULTI-FILE TAPES- IF TAPE HAS MULTIPLE DATASETS IT * FILE 424 //* WILL BE BYPASSED. * FILE 424 //* * FILE 424 //* IF A VOLUME PASSES THESE CHECKS A TWO STEP JOB IS * FILE 424 //* GENERATED AND SUBMITTED TO THE INTERNAL READER. THE * FILE 424 //* JOBNAME WILL BE IN THE FORMAT OF JJJJJXX WHERE JJJJJ IS * FILE 424 //* DETERMINED BY YOU AND XX IS THE LAST 2 DIGITS OF THE * FILE 424 //* ORIGINAL VOLSER. IT WILL DETERMINE FROM THE TMS RECORD * FILE 424 //* THE FOLLOWING: * FILE 424 //* * FILE 424 //* 1. DATASET NAME * FILE 424 //* 2. EXPIRATION DATE * FILE 424 //* 3. DENSITY * FILE 424 //* 4. CREATING JOB NAME * FILE 424 //* 5. NUMBER OF VOLUMES AND SEQUENCE * FILE 424 //* 6. MUTIPLE DATASET VOLUMES * FILE 424 //* * FILE 424 //***FILE 425 from Mike Loos and contains an IEFUSI SMF exit * FILE 425 //* (used for controlling virtual storage allocations * FILE 425 //* for jobs). Mike wrote this exit for a SHARE * FILE 425 //* presentation. * FILE 425 //* * FILE 425 //* Mike Loos * FILE 425 //* VP of Ops and Tech Support * FILE 425 //* Fair, Isaac and Company, Inc. * FILE 425 //* 4295 Lexington Avenue North * FILE 425 //* St. Paul, MN 55126 * FILE 425 //* mikeloos@fairisaac.com * FILE 425 //* * FILE 425 //***FILE 426 IS FROM HOWARD DEAN AT SYNTEX AND CONTAINS A COPY * FILE 426 //* OF THEIR JOBNAMES PROCESSOR AND A LOCAL MOD SO THAT * FILE 426 //* ACCOUNTING INFORMATION CAN BE PLACED IN STARTED TASKS * FILE 426 //* * FILE 426 //* CURRENT ADDRESS: * FILE 426 //* * FILE 426 //* Howard M. Dean * FILE 426 //* Kaiser Foundation Health Plan * FILE 426 //* 25 Via Monte Avenue * FILE 426 //* 2nd Floor * FILE 426 //* Walnut Creek, CA 94598 * FILE 426 //* * FILE 426 //* (925) 926-3121 * FILE 426 //* * FILE 426 //* EMAIL - Howard.M.Dean@kp.org * FILE 426 //* * FILE 426 //* ALSO INCLUDED IS A COPY OF THE JSTATUS COMMAND WHICH * FILE 426 //* WILL SEARCH THE JES2 QUEUES AND PRESENT A SHORT JOB * FILE 426 //* STATUS DISPLAY. THIS COMMAND CAN BE USED IN PLACE * FILE 426 //* OF THE PRESENT STATUS COMMAND, ON TSO OR CAN BE * FILE 426 //* SEPARATELY INSTALLED. * FILE 426 //* * FILE 426 //* THIS FILE IS IN IEBUPDTE SYSIN FORMAT, SEE THE * FILE 426 //* MEMBER CALLED $$DOC FOR ADDITIONAL INFORMATION. * FILE 426 //* * FILE 426 //***FILE 427 IS A COPY OF THE IBM MACRO CALLED IHASTOW (THIS * FILE 427 //* MACRO IS NOT COPYRIGHTED). * FILE 427 //* * FILE 427 //***FILE 428 is from Lionel Dyck and Douglas Adams of Rockwell * FILE 428 //* International in Seal Beach, California. This file * FILE 428 //* contains programs to extract and display system * FILE 428 //* control block information. An older version of this * FILE 428 //* code can be found on File 022 of the CBT Overflow * FILE 428 //* Tape. This version comes from the SHARE diskettes * FILE 428 //* (SHARE 81). * FILE 428 //* * FILE 428 //* LIONEL B. DYCK * FILE 428 //* KAISER PERMANENTE * FILE 428 //* 25 NORTH VIA MONTE * FILE 428 //* WALNUT CREEK, CALIFORNIA 94598 * FILE 428 //* * FILE 428 //* IBMmail: USKFHEFH * FILE 428 //* internet: SYSLBD@NCAL.KAIPERM.ORG * FILE 428 //* lionel.b.dyck@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 * 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 OFFER THEM FOR FREE ON * FILE 432 //* THEIR WEBSITE (WWW.XEPHON.COM), I CONSIDER THEM AS * FILE 432 //* PUBLIC. * FILE 432 //* * FILE 432 //* THESE PROGRAMS MAY BE MODIFIED IN ANY WAY THE USER * FILE 432 //* THINKS FIT BECAUSE USE OF THESE PROGRAMS IS ENTIRELY * FILE 432 //* AT THE RISK OF THE USER ANYWAY. * FILE 432 //* * FILE 432 //* LANGUAGE PROBLEMS * FILE 432 //* ================= * FILE 432 //* * FILE 432 //* THE PROGRAMS ARE DELIVERED WITH COMMENTS IN EITHER ONE * FILE 432 //* OF 3 LANGUAGES : ENGLISH, FRENCH AND FRENGLISH (BAD * FILE 432 //* ENGLISH SPOKEN BY A FRENCHIE). SO... "EXCUSE MY * FILE 432 //* FRENCH"... * FILE 432 //* * FILE 432 //* 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 * 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 //* ASCBS - REXX TO LIST ALL ADDRESS-SPACES (FRENCH * FILE 432 //* COMMENTS) * FILE 432 //* CONSOLE - BRINGING THE MVS MASTER CONSOLE UNDER ISPF * FILE 432 //* (USES SVC 235 ; "LAST COMMAND" INFORMATION * FILE 432 //* PROBABLY FALSE ; DON'T CALL THE LOAD * FILE 432 //* "CONSOLE" * FILE 432 //* CONSOLEP - ISPF PANEL FOR "CONSOLE" PROGRAM * FILE 432 //* CONVERT - MACRO - CONVERTS FROM PACKED/DECIMAL/BINARY * FILE 432 //* TO PACKED/DECIMAL/BINARY * FILE 432 //* CONVRTP - REXX TO CONVERT CATALOG ENTRIES FROM 3480 TO * FILE 432 //* 3490 - FRENCH COMMENTS * FILE 432 //* ERASETP - PROGRAM TO ERASE TAPE DATA (FOR SECURITY OR * FILE 432 //* TO EVAL. TAPE CAPACITY) * FILE 432 //* EXP - REXX TO COMPUTE EXPONENTIAL FUNCTION * FILE 432 //* (FRENGLISH COMMENTS) * FILE 432 //* EXTEND - MACRO - EXTENDS A BINARY ZONE TO DECIMAL * FILE 432 //* EXEMPLES - EXAMPLES OF ASSEMBLER CODING (EDUCATIONAL * FILE 432 //* PURPOSE) - FRENCH COMMENTS * FILE 432 //* ICHPWX01 - RACF NEW PASSWORD EXIT - FRENCH COMMENTS * FILE 432 //* IGGPRE00 - DADSM PRE-PROCESSING EXIT, CONTROLS ACCESS * FILE 432 //* TO VOLUME VIA A DEDICATED "ALLOC" RACF CLASS * FILE 432 //* - FRENCH COMMENTS * FILE 432 //* INTERCPT - MPF EXIT - USED TO REPLY TO MESSAGES, TO * FILE 432 //* ISSUE MVS COMMANDS OR TO SEND MESSAGES - * FILE 432 //* FRENCH COMMENTS * FILE 432 //* IRA200E - THIS MEMORY ZAP ALLOWS YOU TO CHANGE THE 70% * FILE 432 //* AND 85 % THRESHOLDS * FILE 432 //* JESLESS - JESLESS IN A NUTSHELL (HOW TO HAVE A LOGON * FILE 432 //* TSO WITHOUT JES). * FILE 432 //* LISTSMS - LISTING THE SMS CONFIGURATION * FILE 432 //* MGDOS - SHAREWARE "MEGACRYPT/DOS" - COPY IT TO PC * FILE 432 //* AND RENAME IT MGDOS.ZIP * FILE 432 //* MGWIN - SHAREWARE "MEGACRYPT/WINDOWS" - COPY IT TO * FILE 432 //* PC AND RENAME IT MGWIN.ZIP * FILE 432 //* NOTE : MGDOS AND MGWIN ARE FREE PARTS OF A LICENSED * FILE 432 //* PRODUCT : MEGACRYPT/MVS * FILE 432 //* MINISYST - THE JCL I USE FOR CREATING AN MVS MINI * FILE 432 //* SYSTEM (OS/390 V2R5) * FILE 432 //* MVSCMD - PROGRAM TO ISSUE ANY MVS OR JES2 IN BATCH - * FILE 432 //* A CLASSICAL - FRENCH * FILE 432 //* PREMIER - PRIME NUMBER TESTING (EDUCATIONAL PURPOSE) - * FILE 432 //* FRENCH COMMENTS * FILE 432 //* PRINTHX - MACRO FOR CONVERSION TO HEX - FRENCH COMMENTS * FILE 432 //* PROLOG - MACRO TO ENTER THE PROGRAM - NOT CLEVER, BUT * FILE 432 //* UNAVOIDABLE - FRENCH * FILE 432 //* PTKT - SHAREWARE "PTKTGEN" - COPY IT TO PC AND * FILE 432 //* RENAME IT PTKT.ZIP (IT IS A RACF PASSTICKET * FILE 432 //* GENERATOR FOR PC/DOS) * FILE 432 //* SHOWLPAR - DISPLAYS THE CURRENT PR/SM CONFIGURATION * FILE 432 //* (SEE "A BIT OF HISTORY") * FILE 432 //* SHOWMVS - JCL : MY WAY TO RUN SHOWMVS IN BATCH - * FILE 432 //* SHOWMVS R623D IN OBJ FORMAT * FILE 432 //* SMFJOBS - LIST ALL JOBS (BASED ON SMF TYPE 30 RECORDS) * FILE 432 //* - FRENCH COMMENTS * FILE 432 //* SRMSHOW - DISPLAYS CURRENT AND THRESHOLD VALUES OF * FILE 432 //* MAJOR SRM PARAMETERS MVS/XA * FILE 432 //* SUSEC - LISTING PROCESSORS IN THE COMPLEX AND THE * FILE 432 //* MIPS (MSU) AVAILABLE - REXX * FILE 432 //* SVC235 - YES, A MAGIC SVC | BUT WITH SOME BASIC * FILE 432 //* CONTROLS... * FILE 432 //* TPUTXMAS - FOR THE FUN - XMAS TREE DISPLAY ON TSO FOR * FILE 432 //* THE YEAR'S END... * FILE 432 //* VTOCR1 - PANEL USED BY VTOCREAD (SEE VTOCZAP) * FILE 432 //* VTOCZAP - JCL TO INSTALL "VTOCREAD". ENABLES YOU TO * FILE 432 //* ZAP THE VTOC THRU ISPF (NOT DIRECTLY, AN * FILE 432 //* AMASPZAP JCL IS GENERATED). SOURCE OF * FILE 432 //* VTOCREAD LOST * FILE 432 //* WEAKPASS - DISPLAYING RACF USERIDS WITH WEAK D.E.S. * FILE 432 //* PASSWORD (XEPHON) * FILE 432 //* WTOPUT - MACRO - ISSUES A WTO WITH MIXED LITTERALS * FILE 432 //* AND DATA ZONES * FILE 432 //* XTOD - MACRO - CONVERTS HUNDREDTHS OF SECOND * FILE 432 //* INTO 'HH:MM' * FILE 432 //* * FILE 432 //***FILE 433 is from Frank Clarke and contains a collection of * FILE 433 //* his REXX execs. * FILE 433 //* * FILE 433 //* The record format for this dataset is now FB-80. * FILE 433 //* It was formerly VB-255. Thanks, Frank. (SG) * FILE 433 //* * FILE 433 //* email: Frank Clarke * FILE 433 //* * FILE 433 //* There are twenty-three (23) routines in this set: * FILE 433 //* * FILE 433 //* 'DTAFXC.CBT433.EXEC' - Directory * FILE 433 //* * FILE 433 //* Usage or * FILE 433 //* Member Caller Description * FILE 433 //* ======== ========== ============================ * FILE 433 //* * FILE 433 //* #INDEX data This member * FILE 433 //* * FILE 433 //* ADDCMDS exec Splice a personal command * FILE 433 //* table to ISPCMDS * FILE 433 //* * FILE 433 //* ALIST exec Scrollable allocation list * FILE 433 //* * FILE 433 //* ATTACH exec Customize TSO session at LOGON * FILE 433 //* * FILE 433 //* BLOX exec Block-letter writer * FILE 433 //* * FILE 433 //* CMFLTTBL exec Flatten an ISPF table * FILE 433 //* * FILE 433 //* CMRSTTBL exec Rebuild ISPF table from * FILE 433 //* flatfile * FILE 433 //* * FILE 433 //* COMMANDS exec Display current command table * FILE 433 //* * FILE 433 //* FCXREF exec Member crossref * FILE 433 //* * FILE 433 //* FIRSTIME exec Prevent reruns * FILE 433 //* * FILE 433 //* FTINIT subr Initialization for FIRSTIME * FILE 433 //* * FILE 433 //* HSMLIST exec FS handler for Migrated and * FILE 433 //* Backed-up datasets * FILE 433 //* * FILE 433 //* LA exec LISTA to the stack * FILE 433 //* * FILE 433 //* MEMBERS exec Memberlist to the stack * FILE 433 //* * FILE 433 //* NOOP exec Allow SYSEXEC reallocation * FILE 433 //* * FILE 433 //* PACKING example Shows how to pack and unpack * FILE 433 //* in REXX * FILE 433 //* * FILE 433 //* PDSCOPYD exec Copy member with stats using LM * FILE 433 //* * FILE 433 //* SQRT subr Returns a square root * FILE 433 //* * FILE 433 //* SQUASH exec Submit BG job to compress * FILE 433 //* current dataset * FILE 433 //* * FILE 433 //* TBLGEN exec Build a new ISPF table * FILE 433 //* * FILE 433 //* TBLMSTR exec Maintain a master * FILE 433 //* table-of-tables * FILE 433 //* * FILE 433 //* TBLOOK exec Examine any ISPF table * FILE 433 //* * FILE 433 //* TRAPOUT exec Trap trace output to file * FILE 433 //* * FILE 433 //* X2B exec hex-to-binary * FILE 433 //* * FILE 433 //***FILE 434 is from Mark Zelden and contains his collection * FILE 434 //* of MVS utilities. * FILE 434 //* * FILE 434 //* Questions: Please email Mark Zelden - mzelden@flash.net * FILE 434 //* * FILE 434 //* Last Updated: January 20 2006 * FILE 434 //* * FILE 434 //* Mark's MVS Utilities is also available on the web: * FILE 434 //* http://home.flash.net/~mzelden/mvsutil.html * FILE 434 //* * FILE 434 //* * FILE 434 //* Sample JOBs / Documentation * FILE 434 //* --------------------------------------------------------------- * FILE 434 //* $$$READ - Disclaimer * FILE 434 //* $$DOC - General installation documentation for this file * FILE 434 //* $$INDEX - Index of all members * FILE 434 //* $CHANGES - CBT File 434 change log * 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 //* 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 //* 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 //* 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 //* 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 //* CALC - REXX exec calculator * FILE 434 //* CAT - REXX exec to invoke CATSRCH via CATSRCHP panel * FILE 434 //* CATSRCH - REXX exec to invoke Catalog Search Interface (CSI) * FILE 434 //* COLADD - Edit macro to add numbers from a column range * FILE 434 //* COLUTIL - Edit macro to manipulate columns * FILE 434 //* DB - Edit macro to delete lines from the cursor line * FILE 434 //* to the bottom line * FILE 434 //* DELDUPS - Edit macro to delete duplicate lines * FILE 434 //* DELDUPS2 - REXX duplicate record deletion program * FILE 434 //* DELNX - Edit macro to delete all of a certain string * FILE 434 //* DELX - Edit macro to delete everything but a certain * FILE 434 //* string * FILE 434 //* DT - Edit macro to delete lines from the cursor line * FILE 434 //* to the top line * FILE 434 //* 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 //* 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 //* 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 //* LINEMAC - REXX exec - used with Doug Nadel's UMAC/LMAC PGM * 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 //* 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 //* RXSTOR64 - REXX exec to show 64-bit MEMLIMIT and storage use * 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 //* 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)" * FILE 435 //* * FILE 435 //* Technical Services Group * FILE 435 //* Dave North * FILE 435 //* 3429 Downing Ave. * FILE 435 //* Glendale, CA. 91208 * FILE 435 //* * FILE 435 //***FILE 436 from Glenn Jones of Aramco in Saudi Arabia, and * FILE 436 //* contains a version of the COMPCODE program, which * FILE 436 //* notifies users of completion code information for * FILE 436 //* jobs. This version has been modified to even send * FILE 436 //* emails to notify a user located elsewhere, of a job * FILE 436 //* completion on the MVS system. * FILE 436 //* * FILE 436 //* Glenn Jones * FILE 436 //* Saudi Aramco, Dhahran, Saudi Arabia * FILE 436 //* email: jonesgk@aramco.com.sa * FILE 436 //* g_k_j@yahoo.com * FILE 436 //* * FILE 436 //* I have modified some code which may be of interest to * FILE 436 //* you or others. Whenever I'm on the computer, I * FILE 436 //* generally have an email session going (either work or * FILE 436 //* home). Sometimes my tasks do not require mainframe * FILE 436 //* access. * FILE 436 //* * FILE 436 //* Rather than continually logging on/swapping to a * FILE 436 //* mainframe session, I modified a copy of the public * FILE 436 //* COMPCODE program to optionally do e-mail notifications. * FILE 436 //* This COMPCODE program is in production jobs, started * FILE 436 //* tasks, as well as batch work that is important enough * FILE 436 //* for me to know about if a problem occurs. * FILE 436 //* * FILE 436 //* Another neat feature is when I go out of town, I make a * FILE 436 //* simple update to the notify dataset for the person who * FILE 436 //* will be handling the problems in my absence. Since all * FILE 436 //* my jobs & STC's have this notify step, one simple * FILE 436 //* update is immediately in effect for everything. * FILE 436 //* * FILE 436 //* I also made the code Y2K friendly, and changed it to * FILE 436 //* print out the steps real termination code, not just the * FILE 436 //* highest recorded in the JCT. This code is currently * FILE 436 //* running on OS/390 V2R5 without any problems. The email * FILE 436 //* portion uses IBM's MVS SMTP, and the program requires * FILE 436 //* simple modifications for use at your installation. * FILE 436 //* * FILE 436 //***FILE 437 is from Jan Jaeger and contains a highly useful * FILE 437 //* collection of tools. Please note his standalone * FILE 437 //* file editor and other standalone stuff, along with * FILE 437 //* his many other unusually useful programs. * FILE 437 //* * FILE 437 //* ------------------------------------------------------------- * FILE 437 //* * FILE 437 //* S/390 System Utilities * FILE 437 //* * FILE 437 //* For comments or questions: Jan Jaeger * FILE 437 //* email: jj@septa.nl * FILE 437 //* * FILE 437 //* ZZSA - Standalone utilities for MVS, including * FILE 437 //* editor, VTOC list, device list, DASD ZAP etc. * FILE 437 //* * FILE 437 //* NODSI - An utility to manipulate datasets that * FILE 437 //* have GRS ENQs against them. * FILE 437 //* * FILE 437 //* ISTEXCAA - An implementation of the VTAM session * FILE 437 //* management exit ISTEXCAA to control session * FILE 437 //* setup by means of RACF profiles. * FILE 437 //* * FILE 437 //* MPFNTFY - A MPF exit which transforms WTO messages * FILE 437 //* into JES2 notify messages. * FILE 437 //* * FILE 437 //* PARMTZ - An Unix System Services program which * FILE 437 //* will allow you to set the TZ variable * FILE 437 //* from CLOCKxx or the Sysplex Timer. * FILE 437 //* * FILE 437 //* IRXFMATH - MEMBERS: JJ$CMATH JJ$FMATH JJ$MMATH * FILE 437 //* A REXX function package which * FILE 437 //* provides mathematical functions. * FILE 437 //* * FILE 437 //* * FILE 437 //* WHOHAS - An ISPF utility to display GRS ENQ * FILE 437 //* resources and requestors. * FILE 437 //* * FILE 437 //* VMCP - Provides a CP operator command to MVS * FILE 437 //* when it is running under VM. * FILE 437 //* * FILE 437 //* JSCH - MEMBERS: JSCH * FILE 437 //* Like ASCH, a transaction scheduler, but * FILE 437 //* this one schedules started tasks rather * FILE 437 //* then ASCH transactions. * FILE 437 //* * FILE 437 //* PDS upload/download utilities - * FILE 437 //* MEMBERS: OPSYNBRI UPDCREAT UPDSTATS * FILE 437 //* Utilities to create IEBUPDTE format * FILE 437 //* sequential files from partitioned * FILE 437 //* datasets, and restore ISPF statistics * FILE 437 //* after rebuilding PDS using IEBUPDTE. * FILE 437 //* * FILE 437 //* * FILE 437 //* INVOKE - TSO Command Processor to call from * FILE 437 //* LINKLIST/LPALIST * FILE 437 //* * FILE 437 //* SUBMIT - Alternate SUBMIT command which does not * FILE 437 //* call the SUBMIT exit * FILE 437 //* * FILE 437 //* COMPRESS - Command Processor which calls IEBCOPY * FILE 437 //* to compress * FILE 437 //* * FILE 437 //* IEFJFRQ - Protect subsystem command characters by * FILE 437 //* means of RACF/ACF2 * FILE 437 //* * FILE 437 //***FILE 438 is from Dan Snyder of Columbus, Ohio and contains * FILE 438 //* his collection of structured assembler macros that * FILE 438 //* he developed for himself, over many years of coding. * FILE 438 //* * FILE 438 //* email: dsnyder@elektro.cmhnet.org * FILE 438 //* 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" * 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 * 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" * 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 * FILE 442 //* * FILE 442 //* You may be able to find more updated versions of * FILE 442 //* Kimu's utilities at his web site: * FILE 442 //* * FILE 442 //* Kimu has a lot of programs at his web site: * FILE 442 //* * FILE 442 //* http://home4.highway.ne.jp/kimu/ * FILE 442 //* * FILE 442 //* This site is half in English and half in Japanese, * FILE 442 //* but the English part is more than adequate, and * FILE 442 //* you can get a lot of benefit from Kimu's programs. * FILE 442 //* * FILE 442 //***FILE 443 is from Tetsuya Kimura (Kimu) and contains some * FILE 443 //* of his many utilities. You should go to Kimu's * FILE 443 //* web site to check if any of these programs is at * FILE 443 //* a later level, or if he has other utilities * FILE 443 //* posted there for download. * FILE 443 //* * FILE 443 //* Kimu's web site: http://home4.highway.ne.jp/kimu/ * FILE 443 //* * FILE 443 //* email: Tetsuya Kimura * 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" * 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" * FILE 446 //* * FILE 446 //* This program is a small example (341 lines of code) of * FILE 446 //* how to use COBOL to write an OS/390 UNIX System Services * FILE 446 //* program. The program uses the BPX1WRT subroutine to * FILE 446 //* write to STDOUT. It uses this interface to write the * FILE 446 //* UNIX parameters (like C's argc and argv). It also uses * FILE 446 //* that interface to write out the currently set * FILE 446 //* environment variables. For example: * FILE 446 //* * FILE 446 //* ./UNIX0002 arg1 arg2 arg3 * FILE 446 //* * FILE 446 //* would result in output such as: * FILE 446 //* * FILE 446 //* NUMBER OF ARGUMENT IS: 4 * FILE 446 //* ARGC 000Ù=./UNIX0002 * FILE 446 //* ARGC 001Ù=arg1 * FILE 446 //* ARGC 002Ù=arg2 * FILE 446 //* ARGC 003Ù=arg3 * FILE 446 //* * FILE 446 //* NUMBER OF ENVIRONMENT VARIABLES IS: 3 * FILE 446 //* ENV 000Ù=VAR1=VALUE1 * FILE 446 //* ENV 001Ù=VAR2=VALUE2 * FILE 446 //* ENV 002Ù=VAR3=VALUE3 * FILE 446 //* * FILE 446 //* This is a single, COBOL source program. * FILE 446 //* * FILE 446 //***FILE 447 is from Rick Fochtman of Chicago, Illinois, and * FILE 447 //* contains two programs to improve GRS facilities, * FILE 447 //* so that the messages which GRS produces, will * FILE 447 //* approximate those which MIM produces, reporting * FILE 447 //* ENQUEUE conflicts on the operator console. * FILE 447 //* * FILE 447 //* email: rfochtman@ync.net * FILE 447 //* phone: 630-719-1545 * FILE 447 //* * FILE 447 //* Since we've gone to GRS, in place of MIM, there * FILE 447 //* was one feature of MIM that was sorely missed. * FILE 447 //* MIM would explain the nature of dataset * FILE 447 //* contentions in greater detail than the initial * FILE 447 //* messages from GRS. True, you could get the detail * FILE 447 //* by issuing the "D GRS,C" command, if you managed * FILE 447 //* to catch it quick enough. We deemed that this was * FILE 447 //* insufficient. Attached are the solutions * FILE 447 //* developed here. One is a started task that checks * FILE 447 //* for a contention situation each minute and * FILE 447 //* displays information about it. The other is an MPF * FILE 447 //* exit that displays the same information whenever a * FILE 447 //* dataset contention situation is announced via the * FILE 447 //* IEF099I message. * FILE 447 //* * FILE 447 //***FILE 448 is a utility to put the current system date into * FILE 448 //* system symbolic parameters that can be used in JCL. * FILE 448 //* This file is from Mark Lawrence of Stanford * FILE 448 //* University in California. * FILE 448 //* * FILE 448 //* Mark C. Lawrence * FILE 448 //* Systems Programmer * FILE 448 //* Stanford Data Center * FILE 448 //* Stanford, CA 94305-4136 * FILE 448 //* * FILE 448 //* email: M.Lawrence@Forsythe.Stanford.edu * FILE 448 //* phone: (650) 723-4976 * FILE 448 //* * FILE 448 //***FILE 449 is from Keith Moe of Amdahl, and contains their * FILE 449 //* Bookmanager front end package. * FILE 449 //* * FILE 449 //* Keith E. Moe * FILE 449 //* Amdahl Corporation * FILE 449 //* 1250 E. Arques Ave * FILE 449 //* M/S 383 * FILE 449 //* Sunnyvale, Ca 94088-3470 * FILE 449 //* (408) 746-6386 * FILE 449 //* Keith_Moe@notes.amdahl.com * FILE 449 //* * FILE 449 //* Disclaimer * FILE 449 //* * FILE 449 //* As usual, Amdahl Corporation (and I) take no * FILE 449 //* responsibility for how well this works in your * FILE 449 //* environment and any problems it might cause. Suffice * FILE 449 //* it to say, it does work, as our Users use it regularly. * FILE 449 //* (I also think that it is a good introduction to CGI * FILE 449 //* programming in REXX with the IBM WebServer.) * FILE 449 //* * FILE 449 //* Detailed documentation of this package follows: * FILE 449 //* * FILE 449 //* The Amdahl BookManager BookServer Front-end provides a * FILE 449 //* means to search a "catalog" of all book titles and * FILE 449 //* publication numbers kept in MVS BookManager Sequential * FILE 449 //* Data Sets and link directly to the Book or BookShelf * FILE 449 //* containing the Book. While obviously dependent on the * FILE 449 //* title of the Book, it eliminates the User having to know * FILE 449 //* which BookShelf contains the Book he or she is looking * FILE 449 //* for. It supports only Books and BookShelves kept in MVS * FILE 449 //* sequential Data Sets, not anything kept in an HFS. * FILE 449 //* * FILE 449 //* This data Set contains a subset(*) of the Amdahl * FILE 449 //* BookManager Management Utilities. What is included are * FILE 449 //* those pieces needed to run the BookServer Front-end. * FILE 449 //* * FILE 449 //* List of provided members: * FILE 449 //* * FILE 449 //* BKMGRCPS - Assembler Macro * FILE 449 //* BKMGRHST - Assembler Macro * FILE 449 //* BKMGRINF - Assembler Macro * FILE 449 //* BKMGRLOC - Assembler Macro * FILE 449 //* * FILE 449 //* BOOKMGRX - BookServer Front-end CGI (WebServer) REXX * FILE 449 //* EXEC * FILE 449 //* * FILE 449 //* BKMGRLPA - USERMOD to create LPA resident BookSERVER * FILE 449 //* Load Module * FILE 449 //* * FILE 449 //* BOOKCSA - Started Task JCL to run CCCBKACE (Search Data * FILE 449 //* CSA Load) * FILE 449 //* BOOKSACE - JCL to run CCCBKACE (Search Data CSA Load) * FILE 449 //* BOOKSEXT - JCL to build search data from BookShelf * FILE 449 //* List(s) (QLSHELF) * FILE 449 //* REXXCOMP - JCL to compile the REXX Exec and copy it to * FILE 449 //* an HFS * FILE 449 //* * FILE 449 //* CCCBKACE - Assembler Source - Load Search Data into CSA * FILE 449 //* CCCBKCPS - Assembler Source - Cell Pool Subroutine * FILE 449 //* CCCBKDAT - Assembler Source - Data Variable Table * FILE 449 //* CCCBKDEF - Assembler Source - Data Table Lookup * FILE 449 //* Subroutine * FILE 449 //* CCCBKDSN - Assembler Source - Data Set Name Generator * FILE 449 //* Subroutine * FILE 449 //* CCCBKEXT - Assembler Source - Build Book/BookShelf * FILE 449 //* Extract Data Set * FILE 449 //* CCCBKLOC - Assembler Source - Determine location of all * FILE 449 //* Bkmgr Data Sets * FILE 449 //* CCCBKPUB - Assembler Source - Format Pub Number * FILE 449 //* Subroutine * FILE 449 //* CCCBKSRV - Assembler Source - Search Program called by * FILE 449 //* REXX EXEC * FILE 449 //* CCCLOCAT - Assembler Source - LOCATE TSO Command - bonus * FILE 449 //* * FILE 449 //* I assume that you're capable of assembling programs, so * FILE 449 //* I'm not including sample assembly JCL. Each program is * FILE 449 //* linked by itself. MACLIB and MODGEN are needed along * FILE 449 //* with the Macros supplied above. * FILE 449 //* * FILE 449 //* CCCBKCPS, CCCBKDAT, CCCBKDEF, CCCBKDSN, CCCBKPUB, and * FILE 449 //* CCCBKSRV are re-entrant and RMODE ANY. (So is CCCLOCAT, * FILE 449 //* but it's included as a bonus and is not really needed.) * FILE 449 //* CCCBKACE, CCCBKEXT, and CCCBKLOC are "main" programs * FILE 449 //* that are NOT re-rentrant and are RMODE 24 (AMODE 31). * FILE 449 //* * FILE 449 //* Assemble and Link all the programs into a "BookManager * FILE 449 //* Utility" Load Library. CCCBKEXT is unauthorized and can * FILE 449 //* run from it. CCCBKACE is AUTHORIZED, so it (and * FILE 449 //* CCCBKCPS which it loads as a subroutine) need to be * FILE 449 //* placed in an authorized library (that end-users should * FILE 449 //* not have access to). CCCBKSRV should be placed in the * FILE 449 //* LinkList or LPAList, as it is used by the CGI REXX Exec. * FILE 449 //* * FILE 449 //* BOOKMGRX is a REXX Exec that will require installation * FILE 449 //* specific customization (unless you like to see some * FILE 449 //* missing GIFs and bad links). It (or a complied version * FILE 449 //* of it) needs to end up in a HFS that will be mapped in * FILE 449 //* directives in the WebServer HTTPD.CONF file. * FILE 449 //* * FILE 449 //* Before going any farther.... * FILE 449 //* * FILE 449 //* This BookServer Front-end builds an ECSA Resident Catalog * FILE 449 //* which is anchored using the time-honored technique of * FILE 449 //* using a SubSystem Control Table (SSCT). The default name * FILE 449 //* of this SubSystem is "BKSV". This value is EQUated in * FILE 449 //* the BKMGRCSA Macro (Label BKASSNAM). If you want a * FILE 449 //* different SubSystem Name, change this equate and * FILE 449 //* reassemble CCCBKACE and CCCBKSRV. * FILE 449 //* * FILE 449 //* There is no attempt made to create the "BKSV" SubSystem * FILE 449 //* Control Table dynamically if it doesn't exist. You will * FILE 449 //* need to update the IEFSSNxx PARMLIB Member and then * FILE 449 //* either re-IPL or use the SETSSI Command to create it. * FILE 449 //* * FILE 449 //* If you don't like this anchor technique and want to * FILE 449 //* change it, go ahead. * FILE 449 //* * FILE 449 //* Building the Book Catalog Data Set * FILE 449 //* * FILE 449 //* The CCCBKEXT program uses the MVS BookManager "Master" * FILE 449 //* BookShelf List Data Set (specified by the QLSHELF * FILE 449 //* setting in EOXVOPTS REXX Exec) to construct the Book and * FILE 449 //* BookShelf Catalog. The BookShelf List Data Set Name is * FILE 449 //* specified as a parameter in the JCL used to execute * FILE 449 //* CCCBKEXT. The output Data Set is VB,259. Sample JCL is * FILE 449 //* provided in the BOOKSEXT member. Note that the output * FILE 449 //* needs to be sorted in order to be properly searchable. * FILE 449 //* * FILE 449 //* The sample job is two steps. The extract is to a * FILE 449 //* temporary Data Set. The sort of this temporary Data Set * FILE 449 //* is output to a permanent extract Data Set which will be * FILE 449 //* used to create the in storage copy. * FILE 449 //* * FILE 449 //* Building the In Storage Catalog * FILE 449 //* * FILE 449 //* The CCCBKACE program use the Book Catalog Data Set to * FILE 449 //* create a Common Storage copy of the Book Catalog (in Key * FILE 449 //* 1 Storage) and anchor it in the chosen SSCT. This * FILE 449 //* eliminates the I/O associated with reading the Catalog * FILE 449 //* Data Set (which in our case is 5 cylinders) for each and * FILE 449 //* every search. * FILE 449 //* * FILE 449 //* This program, which is authorized since it needs to * FILE 449 //* obtain CSA, can be run as either a Batch Job or Started * FILE 449 //* Task. A sample of each is provided. We runs it as a * FILE 449 //* Started Task specified in our COMMND00 PARMLIB member, * FILE 449 //* so it runs at every IPL on every System. In addition, * FILE 449 //* it can be run at any time to refresh the in storage Book * FILE 449 //* Catalog whenever updates have been made to the * FILE 449 //* BookManager BookShelf List and the Catalog Data Set * FILE 449 //* rebuilt. If a previous in storage Book Catalog exists, * FILE 449 //* the old one is freed and the new one built, so there * FILE 449 //* should be no lost CSA. * FILE 449 //* * FILE 449 //* BookServer CGI REXX Exec * FILE 449 //* * FILE 449 //* The BOOKMGRX REXX Exec and the CCCBKSRV program are the * FILE 449 //* heart of the BookServer Front-end. The REXX Exec (raw or * FILE 449 //* compiled) must be placed into an installation HFS * FILE 449 //* directory that is mapped by an "Exec" directive in the * FILE 449 //* BookServer's HTTPD.CONF file (more on that later). The * FILE 449 //* sample REXX Compile job shows how to place the compiled * FILE 449 //* REXX Exec (CEXEC) into the chosen HFS. Whatever name is * FILE 449 //* chosen for the file in the HFS (compiled or not) will be * FILE 449 //* part of the URL to invoke it (and like everything in * FILE 449 //* UNIX is CaSe SeNsItIvE). * FILE 449 //* * FILE 449 //* This REXX Exec will need customization for your * FILE 449 //* installation, as it has a whole lot of Amdahl specific * FILE 449 //* GIFs and links. They are "fairly" isolated, but it's * FILE 449 //* your responsibility to find and fix 'em. Also, the * FILE 449 //* BookServer URLs are different based on the level of the * FILE 449 //* BookServer you are running and whether or not you have * FILE 449 //* moved the BookServer CGI Load Module (bookmgr.exe) into * FILE 449 //* LPA (as described in my SHARE presentation and included * FILE 449 //* as a Local Mod). This, too, will have to be changed. * FILE 449 //* * FILE 449 //* The CCCBKSRV program is invoked by the REXX Exec to * FILE 449 //* perform the actual search of the in storage Book Catalog * FILE 449 //* and return the results in a pool of REXX stem variables. * FILE 449 //* Because this program is invoked using the "address * FILE 449 //* LINKMVS" REXX statement, it needs to be available to * FILE 449 //* whatever Address Space the REXX Exec runs in. The * FILE 449 //* easiest way to accomplish this is to place it in a Link * FILE 449 //* List Data Set or (since it's re-entrant and RMODE ANY) * FILE 449 //* an LPA List Data Set. This program is unauthorized and * FILE 449 //* needs no special attributes. * FILE 449 //* * FILE 449 //* HTTPD.CONF Updates * FILE 449 //* * FILE 449 //* So, you've assembled the programs, stashed the REXX * FILE 449 //* Exec, and created the in storage Book Catalog. Now you * FILE 449 //* need to get the BookServer WebServer to invoke the REXX * FILE 449 //* Exec CGI. To do this, you need to add directives to the * FILE 449 //* HTTPD.CONF (or whatever you've called it) file that is * FILE 449 //* used by the BookServer's WebServer. * FILE 449 //* * FILE 449 //* You've already had to add "Pass" and "Exec" directives * FILE 449 //* to this file for the BookServer itself, so you (or at * FILE 449 //* least someone in your installation) are somewhat * FILE 449 //* familiar with this process. For purposes of the samples * FILE 449 //* provided below, let's assume the following: * FILE 449 //* * FILE 449 //* The main BookServer Front-end Directory is: * FILE 449 //* '/BookServer' * FILE 449 //* The CGI BookServer Front-end Directory is: * FILE 449 //* '/BookServer/cgi' * FILE 449 //* BookManager Data Sets all start with 'CCCPUBS.' * FILE 449 //* (needed for PDFs) * FILE 449 //* The URL "code" for the Front-end CGI is: * FILE 449 //* '/bookmanager-cgi' * FILE 449 //* The URL "code" for the Front-end files is: * FILE 449 //* '/bookmanager' * FILE 449 //* The REXX Exec HFS file name is: * FILE 449 //* 'bookmanager' * FILE 449 //* * FILE 449 //* (Again, note the UNIX is very case sensitive.) * FILE 449 //* * FILE 449 //* So stick the following two lines in the HTTPD.CONF after * FILE 449 //* the lines that were inserted for the IBM BookServer: * FILE 449 //* * FILE 449 //* Exec /bookmanager-cgi/* /BookServer/cgi/* * FILE 449 //* Pass /bookmanager/* /BookServer/* * FILE 449 //* * FILE 449 //* So given all of the above, a URL of: * FILE 449 //* * FILE 449 //* http://your.mvs.domain.name:portnumber/ (continued next line) * FILE 449 //* bookmanager-cgi/bookmanager/ * FILE 449 //* * FILE 449 //* will bring up the BookServer Front-end, from which * FILE 449 //* everything else is self-explanatory (yeah, right!). The * FILE 449 //* trailing slash in the URL is required for some browsers * FILE 449 //* and not for others, but it doesn't hurt to always code * FILE 449 //* it. * FILE 449 //* * FILE 449 //* Assuming that the User has the Adobe Acrobat Plug-in in * FILE 449 //* his or her browser, and that you have uploaded BOOK PDF * FILE 449 //* files to MVS (as binary files into any suitable VB * FILE 449 //* format Data Set) using the same Data Set Name as the * FILE 449 //* BookManager Book with 'PDF' instead of 'BOOK' as the * FILE 449 //* lowest level qualifier, the BookServer Front-end is * FILE 449 //* capable of allowing the User to view the PDF file for a * FILE 449 //* Book which has been located via the search. * FILE 449 //* * FILE 449 //* To be able to view these PDF files, you need to have a * FILE 449 //* couple of "Service" Directives in the HTTPD.CONF File. * FILE 449 //* Find where IBM stuck the sample commented out "mvsds.so" * FILE 449 //* Service Statement and add the following two statements: * FILE 449 //* * FILE 449 //* Service /bookmanager-pdf/'cccpubs.* (continued on next line) * FILE 449 //* /usr/lpp/internet/bin/mvsds.so:mvsdsGet/'cccpubs.* * FILE 449 //* Service /bookmanager-pdf/'CCCPUBS.* (continued on next line) * FILE 449 //* /usr/lpp/internet/bin/mvsds.so:mvsdsGet/'CCCPUBS.* * FILE 449 //* * FILE 449 //***FILE 450 is a "string finding" utility written in REXX * FILE 450 //* from Manish Verma of India. * FILE 450 //* * FILE 450 //* Manish Verma * FILE 450 //* 56, New Baridih * FILE 450 //* Jamshedpur, Bihar * FILE 450 //* India * FILE 450 //* Pin - 831017 * FILE 450 //* * FILE 450 //* My e-mail address is * FILE 450 //* manver@lot.tatasteel.com * FILE 450 //* * FILE 450 //* You can find all occurrences of a character string in * FILE 450 //* either: A single VOLUME, or * FILE 450 //* A VOLUME and a Dataset Pattern, or * FILE 450 //* A Dataset Pattern only. * FILE 450 //* * FILE 450 //***FILE 451 contains two REXX execs from Gary Scarcella. * FILE 451 //* * FILE 451 //* SUBCAN - Changes userid and notify targets in * FILE 451 //* someone else's JCL to yours, submits * FILE 451 //* the job (in your name), and cancels * FILE 451 //* the edit. Edit Macro. * FILE 451 //* * FILE 451 //* CUTCLEAR - Clears out the CUT/PASTE clipboard, and * FILE 451 //* optionally creates a new, clean one. * FILE 451 //* Edit Macro. * FILE 451 //* * FILE 451 //* email: SCARCELLAGV@YAHOO.COM * FILE 451 //* * FILE 451 //***FILE 452 is from Dan Dalby and contains a collection of his * FILE 452 //* programs and utilities, 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 MVS-JES2@Rogers.com * FILE 452 //* All Rights Reserved by MVS-JES2@Rogers.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 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 //* Sample output for the program follows: * FILE 473 //* * FILE 473 //* NON-REUSEABLE ASIDS: 00487 00488 00489 00490 00491 00492 00493 * FILE 473 //* NON-REUSEABLE ASIDS: 00494 00496 00497 00498 00499 00500 00501 * FILE 473 //* NON-REUSEABLE ASIDS: 00502 00503 00504 00505 00506 00507 00508 * FILE 473 //* NON-REUSEABLE ASIDS: 00509 00510 00511 00512 * FILE 473 //* ASID MAX = 00528; ASIDS AVAILABLE = 00147; NON-REUSABLES = 00221* FILE 473 //* * FILE 473 //* CHKASVT can be run from TSO as well, as a command, * FILE 473 //* but it also puts its output to the system log, at * FILE 473 //* the same time. * FILE 473 //* * FILE 473 //* For support inquiries, please email Sam Golob, * FILE 473 //* sbgolob@attglobal.net or sbgolob@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. (Materials have been moved to the CBT Overflow * FILE 476 //* Tape, File 083, because of space considerations.) * FILE 476 //* * FILE 476 //* >>>>> NOTE - This file has been moved to File 083 of the * FILE 476 //* >>>>> CBT Overflow Tape. All its materials are * FILE 476 //* >>>>> now at that location. * FILE 476 //* * FILE 476 //* >>>>> This file is now only a pointer to CBT Overflow Tape * FILE 476 //* >>>>> File 083. * FILE 476 //* * FILE 476 //* Steve Bacher * FILE 476 //* * FILE 476 //* Charles Stark Draper Laboratory * FILE 476 //* 555 Technology Square * FILE 476 //* Cambridge, MA 02139 * FILE 476 //* (617) 258-1525 * FILE 476 //* * FILE 476 //* Kjeld "Sandy" Hvatum * 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 - 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 - 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 * 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 * 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 //* 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 * FILE 480 //* 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 //* FILE 481 Loadlib (includes the executables, some of * FILE 480 //* which need APF authorization.) * FILE 480 //* * FILE 480 //* I think that the most interesting things are: * FILE 480 //* * FILE 480 //* VERDSN, Used to find a file among all the disk * FILE 480 //* packs in an installation * FILE 480 //* * FILE 480 //* CKLOCMEM, Used to find a member of a pds, among all * FILE 480 //* the pds'es in the entire installation * FILE 480 //* * FILE 480 //* CKDATE, This is a method of controling the steps of * FILE 480 //* a JCL stream, depending on the date and the * FILE 480 //* hour * FILE 480 //* * FILE 480 //* Contents or the Library: * FILE 480 //* * FILE 480 //* CALCUL (REXX) * FILE 480 //* CALCULP (PANEL) * FILE 480 //* Description => This is a calculator * FILE 480 //* * FILE 480 //* CKDATEJ (JCL) * FILE 480 //* CKDATEP (Cataloged Procedure) * FILE 480 //* CKDATEX (REXX) * FILE 480 //* Description => Utility to know what year, month, * FILE 480 //* => day...etc. in a JCL, depending * FILE 480 //* => on Return Code. * FILE 480 //* * FILE 480 //* CKDELMEJ (JCL) * FILE 480 //* CKDELMEM (Source Program in Assembler) * FILE 480 //* Description => Delete a member of a partitioned * FILE 480 //* => dataset in a Batch Job (JCL), the * FILE 480 //* => advantage is to be able to refer * FILE 480 //* => to the library as DISP=SHR * FILE 480 //* * FILE 480 //* CKFINAL (MACRO) * FILE 480 //* Description => Assembler macro * FILE 480 //* * FILE 480 //* CKIEBGEJ (JCL) * FILE 480 //* CKIEBGEN (Source Program in Assembler) * FILE 480 //* Description => Program to make a copy between * FILE 480 //* => SYSUT1 and SYSUT2, the same as * FILE 480 //* => IEBGENER, but with files of * FILE 480 //* => arbitrary length. * FILE 480 //* * FILE 480 //* CKINICIO (MACRO) * FILE 480 //* Description => Assembler macro * FILE 480 //* * FILE 480 //* CKLEVEL (Source Program in Assembler) * FILE 480 //* CKLEVELJ (JCL) * FILE 480 //* Description => Utility to list the contents of a * FILE 480 //* => group of sequential files, * FILE 480 //* => without giving the complete name, * FILE 480 //* => only a partial name, using LEVEL. * FILE 480 //* * FILE 480 //* CKLOCMEJ (JCL) * FILE 480 //* CKLOCMEM (Source Program in Assembler) * FILE 480 //* Description => Utility. Given a member name, * FILE 480 //* => find all of the PDS or PDSE * FILE 480 //* => datasets of an installation where * FILE 480 //* => that module has to be APF * FILE 480 //* => authorized. * FILE 480 //* * FILE 480 //* CKRENMEJ (JCL) * FILE 480 //* CKRENMEM (Source Program in Assembler) * FILE 480 //* Description => Rename a member of a pds in a * FILE 480 //* => Batch process i.e. with JCL. The * FILE 480 //* => advantage is that you only have * FILE 480 //* => to allocate the library, * FILE 480 //* => DISP=SHR. * FILE 480 //* * FILE 480 //* CKSTJOBM (Source Program in Assembler) * FILE 480 //* CKSTJOBJ (JCL) * FILE 480 //* Description => Utility to detect if a JOB or and * FILE 480 //* => STC is executing in the system. * FILE 480 //* * FILE 480 //* CKSYMB (EDIT MACRO) * FILE 480 //* CKSYMBOL (Source Program in Assembler) * FILE 480 //* CKSYMBP (Cataloged Procedure) * FILE 480 //* Description => Utility to submit a job (CKSYMB) * FILE 480 //* => but sustituting the global * FILE 480 //* => symbols defined to the system. * FILE 480 //* => Also, you can use an INTRDR * FILE 480 //* => (CKSYMBP) to execute such a job * FILE 480 //* => before substituting the system * FILE 480 //* => symbols. * FILE 480 //* * FILE 480 //* CKUSOJ (JCL) * FILE 480 //* CKUSOP (Cataloged Procedure) * FILE 480 //* CKUSOX (REXX) * FILE 480 //* Description => Utility to use in JCL and to * FILE 480 //* => control what percentage of * FILE 480 //* => utilization a dataset has. * FILE 480 //* * FILE 480 //* CKYAESTA (Source Program in Assembler) * FILE 480 //* CKYAESTJ (JCL) * FILE 480 //* Description => Utility to detect if an STC is * FILE 480 //* => already executing in the system. * FILE 480 //* * FILE 480 //* LLENAR (EDIT MACRO) * FILE 480 //* Description => Edit Macro to fill up a series of * FILE 480 //* => line numbers. It has its own * FILE 480 //* => HELP incorporated in it. * FILE 480 //* * FILE 480 //* MENSAJE (Source Program in Assembler) * FILE 480 //* Description => Programs to invoke a WTO macro * FILE 480 //* => and transmit a message to the * FILE 480 //* => master console. * FILE 480 //* * FILE 480 //* MESES (CLIST) * FILE 480 //* MESP1 (PANEL) * FILE 480 //* MESP2 (PANEL) * FILE 480 //* MESP3 (PANEL) * FILE 480 //* Description => This is a calendar, using PFK7 in * FILE 480 //* => order to display ahead, PFK8 to * FILE 480 //* => display backward, and PFK3 to * FILE 480 //* => exit. * FILE 480 //* * FILE 480 //* PRESTAMO (CLIST) * FILE 480 //* PRESTA (PANEL) * FILE 480 //* PRESTA4 (Source Program in COBOL) * FILE 480 //* Description => Utility to calculate lends * FILE 480 //* * FILE 480 //* * FILE 480 //* SUMAR (EDIT MACRO) * FILE 480 //* Description => Edit Macro to total a series * FILE 480 //* => of numbers. Has its own * FILE 480 //* => incorporated HELP. * FILE 480 //* * FILE 480 //* VERDSN (REXX) * FILE 480 //* VERDSNP (PANEL) * FILE 480 //* VERDSNS (Source Program in Assembler) * FILE 480 //* VER00 (MESSAGES) * FILE 480 //* Description => Utility to find a dataset on all * FILE 480 //* => of the disks in an installation * FILE 480 //* * FILE 480 //***FILE 481 is a collection of utilities from Baldomero Castilla * FILE 481 //* of Madrid, Spain. Baldomero can understand spoken * FILE 481 //* English and written English, so he can support these * FILE 481 //* programs. But he can't write English, so all of the * FILE 481 //* programs and utilities found here, are commented in * FILE 481 //* Spanish. I have translated Baldomero's general * FILE 481 //* documentation into English, and if anyone needs a * FILE 481 //* program translated, I guess I can try, without * FILE 481 //* promising. There's some very good code here, so if * FILE 481 //* you think you can negotiate the Spanish, please give * FILE 481 //* it a shot. * FILE 481 //* * FILE 481 //* This file contains load modules for Baldomero's * FILE 481 //* utility collection. For the source code, please * FILE 481 //* see File 480. * FILE 481 //* * FILE 481 //* Translator's email: Sam Golob * FILE 481 //* 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 * 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 //* 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 //* 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 //* * 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 * FILE 485 //* candojj@hotmail.com * 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 * 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 //* $INDEX2, and $UTILITY to see some of the details * FILE 488 //* of what 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 10 years at * FILE 488 //* St. Vincent Medical Center in Toledo, Ohio. * FILE 488 //* * FILE 488 //* They were submitted by, and primarily authored by: * FILE 488 //* * FILE 488 //* Jim Iannone * FILE 488 //* Systems Programmer * FILE 488 //* Mercy Health Partners * FILE 488 //* Toledo, Ohio * FILE 488 //* jiannon@attglobal.net * FILE 488 //* * FILE 488 //* Overview * FILE 488 //* -------- * FILE 488 //* * FILE 488 //* STV0400B Y2K compliant date conversion routine * FILE 488 //* with an 80/20 sliding window * FILE 488 //* * FILE 488 //* This is called by almost all the other * FILE 488 //* programs listed and can generate the * FILE 488 //* following: * FILE 488 //* * FILE 488 //* '+00134' '19980731 ' days future * FILE 488 //* '-00023' '19980224 ' days past * FILE 488 //* 'I00134' '15380000 ' increment # minutes * FILE 488 //* º--> ## nbr days calc'd past * FILE 488 //* 'D00023' '13010000 ' decrement # minutes * FILE 488 //* 'AGE ' '0450210 ' YYYMMDD * FILE 488 //* 'CDDEY2' '1996366 ' EOY - CYDDD - past * FILE 488 //* 'CDDE02' '1998031 ' EOM - CYDDD - past * FILE 488 //* 'CDD002' '1998076 ' CYDDD minus 2 days * FILE 488 //* 'CDFEY2' '2000366 ' EOY - CYDDD - future * FILE 488 //* 'CDFE02' '1998151 ' EOM - CYDDD - future * FILE 488 //* 'CDF002' '1998080 ' CYDDD plus 2 days * FILE 488 //* 'CMDEY2' '19961231 ' EOY - CYMD - past * FILE 488 //* 'CMDE02' '19980131 ' EOM - CYMD - past * FILE 488 //* 'CMDX ' '19980319 ' CYMD * FILE 488 //* 'CMD002' '19980317 ' CYMD minus 2 days * FILE 488 //* 'CMFEY2' '20001231 ' EOY - CYMD - future * FILE 488 //* 'CMFE02' '19980531 ' EOM - CYMD - future * FILE 488 //* 'CMF002' '19980321 ' CYMD plus 2 days * FILE 488 //* 'CY ' '1998 ' * FILE 488 //* 'CY/DDD' '1998/078 ' * FILE 488 //* 'CY/M/D' '1998/03/19' * FILE 488 //* 'CYDDD ' '1998078 ' * FILE 488 //* 'CYDX ' '1998 ' * FILE 488 //* 'CYD002' '1996 ' CY minus 2 years * FILE 488 //* 'CYF002' '2000 ' CY plus 2 years * FILE 488 //* 'CYMD ' '19980319 ' * FILE 488 //* 'D ' '19 ' * FILE 488 //* 'DAY ' 'THURSDAY 4' MON=1...SUN=7 * FILE 488 //* 'DAYS ' '00034 ' CURR - IN-DATE * FILE 488 //* 'DDD ' '078 ' * FILE 488 //* 'HMM ' '1324 ' MILITARY TIME * FILE 488 //* 'HMSM ' '132400 ' MILITARY TIME * FILE 488 //* 'H:MM ' '13:24 ' MILITARY TIME * FILE 488 //* 'H:M:SM' '13:24:00 ' MILITARY TIME * FILE 488 //* 'HMSS ' '0124PM ' STANDARD TIME * FILE 488 //* 'H:M SS' '01:24 PM ' STANDARD TIME * FILE 488 //* 'H:MSS ' '01:24PM ' STANDARD TIME * FILE 488 //* 'KEY ' '19980319 ' = 30019681 * FILE 488 //* 'M ' '03 ' * FILE 488 //* 'M/D ' '03/19 ' * FILE 488 //* 'M/D/CY' '03/19/1998' * FILE 488 //* 'M/D/Y ' '03/19/98 ' * FILE 488 //* 'MD ' '0319 ' * FILE 488 //* 'MDCY ' '03191998 ' * FILE 488 //* 'MDY ' '031998 ' * FILE 488 //* 'MIN ' '001440 ' # MINUTES BETWEEN TIMES * FILE 488 //* 'MIN - note: time can be passed as HHMMSS## where * FILE 488 //* ## = number days in past (or future * FILE 488 //* if valueing DATA2) * FILE 488 //* 'MMM ' 'MAR ' * FILE 488 //* 'MMMCY ' 'MAR1998 ' * FILE 488 //* 'MMMD ' 'MAR19 ' * FILE 488 //* 'MMMYD ' 'MAR9819 ' * FILE 488 //* 'MONTH ' 'MARCH ' * FILE 488 //* 'MYDEY2' '123196 ' EOY - MDY - past * FILE 488 //* 'MYDE03' '123197 ' EOM - MDY - past * FILE 488 //* 'MYD002' '031798 ' MDY minus 2 days * FILE 488 //* 'MYFEY2' '123100 ' EOY - MDY - future * FILE 488 //* 'MYFE03' '063098 ' EOM - MDY - future * FILE 488 //* 'MYF002' '032198 ' MDY plus 2 days * FILE 488 //* 'QTR ' '1 ' 1/2/3/4 * FILE 488 //* 'SUFFIX' 'MARCH ' IN=' 1ST' OUT='1998' * FILE 488 //* 'Y ' '98 ' * FILE 488 //* 'YDDEY2' '96366 ' EOY - YDDD - past * FILE 488 //* 'YDDE03' '97365 ' EOM - YDDD - past * FILE 488 //* 'YDD002' '98076 ' YDDD minus 2 days * FILE 488 //* 'YDFEY2' '00366 ' EOY - YDDD - future * FILE 488 //* 'YDFE03' '98181 ' EOM - YDDD - future * FILE 488 //* 'YDF002' '98080 ' YDDD plus 2 days * FILE 488 //* 'YMDEY2' '961231 ' EOY - YMD - past * FILE 488 //* 'YMDE03' '971231 ' EOM - YMD - past * FILE 488 //* 'YMD002' '980317 ' YMD minus 2 days * FILE 488 //* 'YMFEY2' '001231 ' EOY - YMD - future * FILE 488 //* 'YMFE03' '980630 ' EOM - YMD - future * FILE 488 //* 'YMF002' '980321 ' YMD plus 2 days * FILE 488 //* 'Y/DDD ' '98/078 ' * FILE 488 //* 'Y/M/D ' '98/03/19 ' * FILE 488 //* 'YDDD ' '98078 ' * FILE 488 //* 'YMD ' '980319 ' * FILE 488 //* * FILE 488 //* The above conversions can be tested dynamically * FILE 488 //* using CICS programs - See $INDEX2. This allows * FILE 488 //* you to test all your batch calls online. * FILE 488 //* * FILE 488 //* See STVDOCU * FILE 488 //* * FILE 488 //* SYMBOLICS Date symbolics in JCL can be set using these * FILE 488 //* utilities. Coordinated with OFFSET processing * FILE 488 //* so the dates reflect processing date as well * FILE 488 //* as current date. * FILE 488 //* * FILE 488 //* Basically, to use this, schedule a job ahead * FILE 488 //* of each of your current jobs that use date * FILE 488 //* symbolics, to update the symbolic dynamically * FILE 488 //* right before it runs. * FILE 488 //* * FILE 488 //* See $UTILITY - MIS0425B * FILE 488 //* See $UTILITY - MIS0500B * FILE 488 //* * FILE 488 //* OFFSET OFFSET processing allows batch processing, * FILE 488 //* pulling 'current date', to continue pulling * FILE 488 //* the correct date when batch is late and runs * FILE 488 //* past midnight. Allows a single manual date * FILE 488 //* change to be reflected across the board for * FILE 488 //* participating batch applications. Date may be * FILE 488 //* altered 99599 days forward or backward. * FILE 488 //* * FILE 488 //* See OFFSET1 and OFFSET2 * FILE 488 //* * FILE 488 //* CHNGFILE Works with STV0400B to provide string * FILE 488 //* find-and-replace, and date/time aging and * FILE 488 //* format alteration. Allows for changes only * FILE 488 //* when strings are found on multiple records. * FILE 488 //* jcl SPACE= replacements. I combine this with * FILE 488 //* PULLFILE to do many different tasks involving * FILE 488 //* string and date and condition code * FILE 488 //* manipulation. * FILE 488 //* * FILE 488 //* Deceptively powerful. * FILE 488 //* * FILE 488 //* See $UTILITY * FILE 488 //* * FILE 488 //* PULLFILE Pull records or partial strings from files at * FILE 488 //* relative locations. * FILE 488 //* * FILE 488 //* Change portions to upper/lowercase. * FILE 488 //* * FILE 488 //* See $UTILITY * FILE 488 //* * FILE 488 //* DFSMShsm System to condense the active logs into a * FILE 488 //* single file with automatic expiration of * FILE 488 //* records. An idcams list of log files is * FILE 488 //* dynamically concatentated into jcl, which is * FILE 488 //* then submitted. The logs are condensed and * FILE 488 //* written to a single file, where the records * FILE 488 //* are then managed individually via user defined * FILE 488 //* expiration criteria. * FILE 488 //* * FILE 488 //* See HSMDOCU * FILE 488 //* * FILE 488 //* EXTENTS The 'high extent checking' system is a bit * FILE 488 //* crude since it relies on IEHLIST output. But * FILE 488 //* I find it quite useful to track trouble * FILE 488 //* datasets before they become an issue. * FILE 488 //* Basically, IEHLIST output from each DASD * FILE 488 //* volume is concatentated and sorted, and * FILE 488 //* extents for a file are summed. The count is * FILE 488 //* then compared to a user maintained table, and * FILE 488 //* a TSO message is sent to specified users. It * FILE 488 //* runs against 120 3390-3 volumes in three * FILE 488 //* minutes. * FILE 488 //* * FILE 488 //* See $INDEX2 * FILE 488 //* * FILE 488 //* SCHEDULING * FILE 488 //* * FILE 488 //* Send TSO messages or set condition codes. * FILE 488 //* * FILE 488 //* See $UTILITY - MIS0685B * FILE 488 //* * FILE 488 //* DSN MASKS * FILE 488 //* MIS0540B is a called program to return 'YES' * FILE 488 //* or 'NO' if a dataset name matches a dataset * FILE 488 //* mask. Use for PDS member names as well. Will * FILE 488 //* perform DSN syntax checking. * FILE 488 //* * FILE 488 //* see $INDEX2 - MIS0540B * FILE 488 //* * FILE 488 //* RMS-Online * FILE 488 //* RMS-Online is a report distribution/viewing * FILE 488 //* package from Mantissa Corporation. It holds * FILE 488 //* reports and distributes them in packets. This * FILE 488 //* process automatically purges reports that have * FILE 488 //* not been distributed after X days. * FILE 488 //* * FILE 488 //* See $INDEX2 * FILE 488 //* * FILE 488 //* REPORT ALTERATION * FILE 488 //* Keeps 100 lines in an internal buffer, to * FILE 488 //* allow you to plug codes into reports (on, * FILE 488 //* above, or below the search string) to aid in * FILE 488 //* report distribution. * FILE 488 //* * FILE 488 //* We use these programs to avoid printing UB92 * FILE 488 //* bills that have particular codes in specified * FILE 488 //* locations. * FILE 488 //* * FILE 488 //* See $INDEX2 - MIS0081B * FILE 488 //* * FILE 488 //* COBOL SHELLS * FILE 488 //* * FILE 488 //* I've used these for years to quickly throw * FILE 488 //* together a program that is pre-formatted with * FILE 488 //* highly reliable print logic and field edit * FILE 488 //* logic. I much prefer this method - * FILE 488 //* pre-formatted shells - to borrowing other * FILE 488 //* peoples code to use as a base. * FILE 488 //* * FILE 488 //* see $INDEX2 - DOC* members * FILE 488 //* * FILE 488 //* NEWWAIT is used throughout these utilities and is * FILE 488 //* located on CBT File 270. * FILE 488 //* * FILE 488 //* Note that most of the date format symbolic or 'keyword' * FILE 488 //* names are the same throughout the different programs. * FILE 488 //* Most of these systems draw upon multiple utilities to * FILE 488 //* complete their tasks. Many of the programs rely on the * FILE 488 //* date offset system to process dates. * FILE 488 //* * FILE 488 //* EXAMPLE: * FILE 488 //* You have a report that you pull into a file every day. * FILE 488 //* The pull process sometimes results in an empty file, * FILE 488 //* or yesterdays file (instead of todays). * FILE 488 //* You use CHNGFILE to search for a date in the file and * FILE 488 //* set a condition code of 0004 if the date is not found * FILE 488 //* (condition code 0000 means you have todays file). * FILE 488 //* * FILE 488 //* What if the job is delayed and runs 5 minutes past * FILE 488 //* midnight? How will your process know to use * FILE 488 //* yesterdays date (ie: processing date), rather than * FILE 488 //* todays? * FILE 488 //* * FILE 488 //* since CHNGFILE works with the OFFSET processing system, * FILE 488 //* this will be properly handled. * FILE 488 //* * FILE 488 //* Although it is the use of call programs that make these * FILE 488 //* systems powerful, it also makes implementation more * FILE 488 //* difficult. * FILE 488 //* * FILE 488 //* Just follow the green pixel road... * 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. This package could * FILE 489 //* help hospital installations which run INVISION and * FILE 489 //* whatever other software that Shared Medical Systems * FILE 489 //* distributes on their SUT 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 10 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 Programmer * FILE 489 //* Mercy Health Partners * FILE 489 //* Toledo, Ohio * FILE 489 //* jiannon@attglobal.net * 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 * FILE 490 //* * FILE 490 //* home site: * FILE 490 //* http://home.clara.net/andywrobertson/mvsindex.html * 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 * 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 SHOWMVS * FILE 492 //* Releases 6.30 and 7.12. Release 7.01 has dropped * FILE 492 //* support for pre-OS390 systems, and has support * FILE 492 //* for the first z/OS release of MVS. * FILE 492 //* ShowzOS 7.12 require z/Architecture and z/OS R3 * FILE 492 //* * FILE 492 //* SHOWZOS - Source code for SHOWMVS 7.12 * FILE 492 //* SHOWMVS - Source code for SHOWMVS 7.10 * FILE 492 //* SHOW630 - Source code for SHOWMVS 6.30 * FILE 492 //* * FILE 492 //* This is the permanent home of ShowMvs/ShowzOS * FILE 492 //* * FILE 492 //* SHOWMACS contains macro members. There should be * FILE 492 //* enough macros to assemble SHOWMVS cleanly. SHOWM630 * FILE 492 //* contains the macros to assemble SHOW630. * 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 //* * 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 //* Please address any comments or questions to: * FILE 492 //* * FILE 492 //* Sam Golob sbgolob@attglobal.net * 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: pinnacle@frontiernet.net * 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://www.frontiernet.net/~pinnacle 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 //* pinnacle@frontiernet.net. This exec library will be updated * FILE 495 //* periodically and posted at http://www.frontiernet.net/~pinnacle * FILE 495 //* and http://www.cbttape.org. * 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 Dialog * FILE 495 //* @ACF2 - CA's ACF2 * FILE 495 //* @AMDSADD - IBM's StandAlone Dump Dataset Initialization EXEC * FILE 495 //* @APPC - IBM's APPC administration dialog * FILE 495 //* @ASM2 - CA's ASM2 * FILE 495 //* @ASTEX - CA's ASTEX * FILE 495 //* @ASU - IBM's DCE Application Support Dialog * 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 //* @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 //* @CAVTAPE - CA's VTAPE Dialog * 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 //* @CWUTILS - Compuware Utilities * FILE 495 //* @DB2I - IBM's DB2 Interactive * FILE 495 //* @DCECONF - IBM's DCE Configuration * FILE 495 //* @DELIVER - CA's DELIVER Dialog * FILE 495 //* @DFSCONF - IBM's Distributed File Service Configuration Dialog * FILE 495 //* @DFSORT - IBM's DF/SORT * FILE 495 //* @DITTO - IBM's DITTO * FILE 495 //* @DMPMSTI - MACRO4's DUMPMASTER Installation Dialog * FILE 495 //* @DMPMSTR - MACRO4's DUMPMASTER Dialog * 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 dialog * FILE 495 //* @ETFRACF - Eberhard Klemens ETF RACF dialog * FILE 495 //* @EXAMINE - CA's EXAMINE * FILE 495 //* @FAT - Innovation's FATS/FATAR Dialog * FILE 495 //* @FDRABR - Innovation's FDR/ABR Dialog * 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 Dialog * FILE 495 //* @FIMGRV2 - IBM's FileManager Version 2 Dialog * FILE 495 //* @GDDMPQM - IBM's GDDM Print Queue Manager * FILE 495 //* @HCD - IBM's Hardware Configuration Dialog * FILE 495 //* @IAM - Innovation's Innovation Access Method * FILE 495 //* @ICSF - IBM's Integrated Cryptographic Services Facility * FILE 495 //* @IEF - CA's IEF dialog * 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 Dialog * FILE 495 //* @ISRV - CA's ISERVE Dialog for GSS * FILE 495 //* @IXFP - IBM's (Storage Tek's) Extended Facilities Product * FILE 495 //* @JCLCHEK - CA's JCLCHECK * 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 //* @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 //* @OPSMVS - CA's OPS/MVS Dialog * 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 dialog * FILE 495 //* @PERFSOL - Softworks's Performance Solution * FILE 495 //* @PLATDBT - Platinum's DBTools Dialog * FILE 495 //* @PLP - Lionel Dyck's Product Launch Point * FILE 495 //* @PRMTOOL - IBM's PARMLIB Tool Dialog * FILE 495 //* @PROSMS - BMC's ProSMS * FILE 495 //* @QABATCH - Compuware's QABatch * FILE 495 //* @QMF - IBM's Query Management Facility for DB2 * FILE 495 //* @QMFV6 - 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 //* @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 Dialog * FILE 495 //* @SMPE - IBM's System Modification Program / Extended * FILE 495 //* @SOMOBJS - IBM's SOMObjects Compiler Dialog * FILE 495 //* @STROBE - Compuware's STROBE * FILE 495 //* @SUNRISE - Amdahl's SUNRISE * FILE 495 //* @SYNCINT - SyncSort Installation * FILE 495 //* @SYNCMSG - SyncSort Messages * FILE 495 //* @SYSVIEW - CA's SYSVIEW/E * FILE 495 //* @TASID - Doug Nadel's TASID (separate load and panel libs) * FILE 495 //* @TASID0 - Doug Nadel's TASID (single load module) * FILE 495 //* @TSOMON - CA's TSOMON * FILE 495 //* @UPSTREM - Innovation's Upstream Dialog * 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 Dialog * FILE 495 //* @VSAMMEC - Catalog Solutions VSAM MECHANIC * FILE 495 //* @VTAMDMP - IBM's VTAM Dump Analysis IPCS Dialog * FILE 495 //* @VTAMDM1 - IBM's VTAM Dump Analysis IPCS Dialog Stub * FILE 495 //* @VTAMTRC - IBM's VTAM Trace Analysis IPCS Dialog * FILE 495 //* @VTAMTR1 - IBM's VTAM Trace Analysis IPCS Dialog Stub * FILE 495 //* @WLM - IBM's Workload Manager * FILE 495 //* @XDC - Cole Software's XDC Dialog * FILE 495 //* @XMITIP - Lionel Dyck's XMITIP Email Dialog * FILE 495 //* @XPATH - Xerox's XPATH Dialog * 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 //* CSQOREXX - IBM MQSeries exec (modified for DISS) * FILE 495 //* C11IEXEC - CA's CA-11 * 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 dialog * 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 //* 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 MacKenzie * FILE 496 //* ken.mackenzie@rbs.co.uk * FILE 496 //* *+44 131-523 5425 (*internal 25425) * 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: cschneid_mtchmrg@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: 03-APR-2002 * 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 (MUST BE <=256) * 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 //***FILE 500 is from Edward Ross, and contains object decks * FILE 500 //* connected with the material on File 499. * FILE 500 //* * FILE 500 //* If you have questions, please feel free to * FILE 500 //* contact: * FILE 500 //* * FILE 500 //* Ed Ross email: edwardr@cch.co.za * 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@attglobal.net * FILE 504 //* 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 * 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 //* 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" * 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 * FILE 512 //* luc.vanrompaey@telepolis.antwerpen.be * FILE 512 //* * FILE 512 //***FILE 513 is from Jose Maria Martinez Besteiro (Cap Gemini * FILE 513 //* Ernst & Young/Spain) and Angel Luis Dominguez * FILE 513 //* Martin (BBVA Spain). It is about using OPERLOG * FILE 513 //* in a Sysplex, for archiving data. This package * FILE 513 //* includes a useful tool for system programmers and * FILE 513 //* others, to search and select OPERLOG data, as * FILE 513 //* though it were SYSLOG data, interactively from ISPF. * FILE 513 //* * FILE 513 //* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * FILE 513 //* * FILE 513 //* March, 2001 * FILE 513 //* * FILE 513 //* This library contains several modules, clists, procs, * FILE 513 //* and panels to bring up our way to use OPERLOG. * FILE 513 //* * FILE 513 //* Any comment or suggestion about the ideas or code * FILE 513 //* in this will be appreciate by the authors. Some * FILE 513 //* modules were taken from old share tapes, at the top * FILE 513 //* of each you will find the name of the author. * FILE 513 //* Please, do not remove this data. * FILE 513 //* * FILE 513 //* Angel Luis DOMINGUEZ MARTIN * FILE 513 //* BBVA Banco Bilbao Vizcaya Argentaria - Spain * FILE 513 //* email: a.dominguez@grupobbva.com * FILE 513 //* * FILE 513 //* Jose Maria MARTINEZ BESTEIRO * FILE 513 //* Cap Gemini Ernst & Young - Spain * FILE 513 //* email: josemmar@capgemini.es * FILE 513 //* * FILE 513 //* Considerations (SYSLOG vs OPERLOG) * FILE 513 //* ----------------------------------- * FILE 513 //* * FILE 513 //* We used in the past IBM's "powerful" program VPW, * FILE 513 //* Virtual Paper Writer, 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 searches 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 * FILE 513 //* we 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 their place instead. * FILE 513 //* * FILE 513 //* Those of you who like to see a little history, can * FILE 513 //* look at the WORD doc VPWDOC, by downloading it in * FILE 513 //* Binary without CR/LF, viewing it under WORD, and * FILE 513 //* printing it from the PC. Unfortunately, it is in * FILE 513 //* Spanish. * FILE 513 //* * FILE 513 //* With all our systems now using OPERLOG, we started * FILE 513 //* using IBM's sample program, named IEAMDBLG, that * FILE 513 //* you can find in SYS1.SAMPLIB. This facility lets * FILE 513 //* you write to SYSOUT, using SYSLOG format, the * FILE 513 //* contents of the OPERLOG log stream, as well as mark * FILE 513 //* MDBs for deletion. * FILE 513 //* * FILE 513 //* We found this program missed some options, that * FILE 513 //* could be very useful, 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 three new options: COPY(ALL), * FILE 513 //* COPY(MDB) and DELETE(ALL). You can find a * FILE 513 //* description of 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:00 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, * FILE 513 //* for 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 datasets with the following data * FILE 513 //* set name pattern: * FILE 513 //* * FILE 513 //* OPERLOG.PLEX$A.B0010328.H0200 * FILE 513 //* OPERLOG.PLEX$A.B0010328.H0300 * FILE 513 //* OPERLOG.PLEX$A.B0010328.H0400 * FILE 513 //* * FILE 513 //* when PLEX$A is the SYSPLEX name, B0010328 is the * FILE 513 //* same as 20010328 (AAAAMMDD form) and H0200 means * FILE 513 //* than the first register in this file is from time * FILE 513 //* 02.00. If you started the pgm each hour, you will * FILE 513 //* have more o less 24 files each day in a normal * FILE 513 //* operation. Instruct your SMS routines to migrate, * FILE 513 //* delete or BKUP this files. * FILE 513 //* * FILE 513 //* We maintain ONLINE ten days to access data * FILE 513 //* interactively from ISPF but this number can be easily * FILE 513 //* changed, and this notation is useful to do dynamic * FILE 513 //* allocation from ISPF directly (quasi-directly) to * FILE 513 //* solicited data. * FILE 513 //* * FILE 513 //* As referred in APAR PQ07414, SDSF gets slow * FILE 513 //* response time using the OPERLOG component. So it * FILE 513 //* is much better to search MDBs within the unloaded * FILE 513 //* data on DASD, using the VERLOG facility from ISPF. * FILE 513 //* * FILE 513 //* SEARCHING under ISPF * 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 * FILE 513 //* friendly one. So we designed an ISPF application to * FILE 513 //* get then as usual, with the aid of search arguments, * FILE 513 //* sysids, start-date-time to end-date-time, and so on, * FILE 513 //* to make it easier accessing the LOG data. Search * FILE 513 //* results can be put into a file, if you want, and you * FILE 513 //* can save this selected log data for later use: i.e. * FILE 513 //* reporting software and hardware problems to IBM or * FILE 513 //* 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 who have started * FILE 513 //* operlog and so on .... * 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 * FILE 513 //* routines and the facility load module itself. * FILE 513 //* * FILE 513 //* Of course, put CLIST and and ISPPLIB in the your * FILE 513 //* SYSPROC and ISPPLIB concatenated library. We suggest * FILE 513 //* to put SYVERLOG in a linklisted library, but this is * FILE 513 //* 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@attglobal.net * FILE 516 //* 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@attglobal.net or * FILE 519 //* 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 //* 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 * FILE 521 //* Thomas Bryant * 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 * 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 //* 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 * 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: drussell@yesbank.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, 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(REXX)') * FILE 526 //* RECEIVE INDS('xxxx.xxxx.xxxx(PARMLIB)') * 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 MVS 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 * FILE 527 //* email: Matthew Stitt - 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 * 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 * 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 seach 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 //* 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@attglobal.net * FILE 533 //* sbgolob@cbttape.org * FILE 533 //* sbgolob@aol.com * 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 //* 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" * FILE 535 //* deru@bogor.net * 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 //* ! off ! ! nomsg ! * FILE 535 //* +- -+ ! ! * FILE 535 //* ! emsg ! * FILE 535 //* ! ! * FILE 535 //* ! lmsg ! * FILE 535 //* +- -+ * FILE 535 //* * FILE 535 //* Option 1. ON - Allocate/concatenate the * FILE 535 //* specified DSname/DDname. * FILE 535 //* TOP - Force to allocate/concatenate * FILE 535 //* even the specified DSN has * FILE 535 //* already allocated but not on the * FILE 535 //* top of concatenation. * FILE 535 //* OFF - Deallocate/deconcatenate the * FILE 535 //* specified DSname/DDname. * FILE 535 //* * FILE 535 //* Option 2. MSG - Display simple message (default) * FILE 535 //* NOMSG - No messages will be displayed * FILE 535 //* upon completion. * FILE 535 //* EMSG - Display error messages only. * FILE 535 //* LMSG - Display complete messages * FILE 535 //* (completion message and the * FILE 535 //* new concatenation list. * 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" * FILE 536 //* deru@bogor.net * 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 will expand. * FILE 537 //* * FILE 537 //* Rick Fochtman - email: rfochtman@ync.net * 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: jj@septa.nl * 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 //* 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 //***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 //* 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 //* 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 //* 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 //* 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 //* emails: Alastair.Gray@eu.altria.com * FILE 542 //* famille_gray@freesurf.ch * 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@attglobal.net * FILE 545 //* sbgolob@cbttape.org * 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@attglobal.net * FILE 546 //* 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" * 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 Wayne A. * FILE 547 //* Mitchell (aka somitcw@yahoo.com) for inclusion in the * FILE 547 //* 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" * 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 //* Address questions to: mmarx@mdpaladin.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" * 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" * 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.02 2000/01/31 11:50 105 BC0THOR * 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.00 1998/07/06 16:25 223 BC0THOR * 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.02 2000/11/30 11:26 145 BC0THOR * 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 //* email : bass@vvm.com * FILE 566 //* * FILE 566 //* web site: http://www.vvm.com/~bass/ * 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 //* * 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 //* DUMPASCB TSO command to dump ascb * FILE 566 //* * FILE 566 //* DUMPCSCB TSO command to dump cscb * 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 (authorized SVC * FILE 566 //* required) * FILE 566 //* * FILE 566 //* DUMPPRB TSO command to dump prd * 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 (authorized SVC * FILE 566 //* required) * 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 //* * 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 required). * 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@attglobal.net * 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 //* 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 * 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 * 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" * 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 //* This file is a temporary home for the Hercules * FILE 582 //* version of TAPEMAP. * FILE 582 //* * FILE 582 //* email: bugsie88@yahoo.com * 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" * 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@attglobal.net and/or * 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. * FILE 589 //* * FILE 589 //* email: Philippe Leite * 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.4 * 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 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. * FILE 591 //* * FILE 591 //* AUTHOR: BOB FOWLES * FILE 591 //* RBF@PSU.EDU * FILE 591 //* 814-865-4774 * 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 Assembler G, which is an old assembler that is * FILE 593 //* from the MVS/370 (pre-XA) 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 * 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 Languange 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" * 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.attglobal.net (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@attglobal.net * FILE 604 //* 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 //* 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 //* 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 is called RFLD, which is an ISPF * FILE 609 //* dialog package for maintaining the 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@erols.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 //* A problem in the LOCATE program was fixed by * FILE 612 //* Richard L. Rice. (Richard.L.Rice@conocophillips.com) * FILE 612 //* * FILE 612 //* email: albert.cheng@sema.com.hk * 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 //* DSPACE - An assembler program to display the free * FILE 612 //* space of a dasd. This program is enhanced * FILE 612 //* to used to PUTLINE and supports 4 digits * FILE 612 //* unit number. This utility is similar to * FILE 612 //* CBT utility FREESPC. * FILE 612 //* * FILE 612 //* DUDASD - An assembler prgram to display all the * FILE 612 //* the volume serials of all the online * FILE 612 //* DASD. This program has been enhanced to * FILE 612 //* support generic volume serial and 4 digit * FILE 612 //* unit numbers. * FILE 612 //* * FILE 612 //* LOCATE - An assembler prgram to locate named * FILE 612 //* modules in either Nucleus, F/MLPA, * FILE 612 //* STEPLIB, JOBLIB, or Dynamic Linklist. * FILE 612 //* The LOCATE command is required to register * FILE 612 //* under TSO authorised program list * FILE 612 //* (ie IKJTSO00) * 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 //***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 or sbgolob@attglobal.net * 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 //***FILE 615 is from Lionel Dyck and contains two macro libraries * FILE 615 //* to help Assembler programmers in different areas. * 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 //* 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: Lionel.B.Dyck@kp.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. Berr¥os * FILE 617 //* Computer Center * FILE 617 //* Advanced Computer Technology, Inc. * FILE 617 //* San Juan, Puerto Rico * FILE 617 //* * FILE 617 //* e-mail: p_berrios@actpr.com * FILE 617 //* Pedro Berrios Aguirre * 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" * 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 Zhou, Sobeys Inc * FILE 621 //* guanghui.zhou@sobeys.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 * 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 //* Senior Systems Engineer * FILE 623 //* Information Technology * FILE 623 //* Sobeys Inc. * FILE 623 //* 6355 Viscount Road * FILE 623 //* Mississagua * FILE 623 //* L4V 1W2, Ontario, Canada * FILE 623 //* Phone: 1-(905)-671-5208 * FILE 623 //* E-mail: guanghui.zhou@sobeys.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 //* sbgolob@attglobal.net * 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 //* email: sfowjs@sbcglobal.net * FILE 633 //* * FILE 633 //* email: sbgolob@cbttape.org * FILE 633 //* sbgolob@attglobal.net * 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 //* sbgolob@attglobal.net * 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 //* sbgolob@attglobal.net * 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 //* Senior Systems Engineer * FILE 638 //* Information Technology * FILE 638 //* Sobeys Inc. * FILE 638 //* 6355 Viscount Road * FILE 638 //* Mississagua * FILE 638 //* L4V 1W2, Ontario, Canada * FILE 638 //* Phone: 1-(905)-671-5208 * FILE 638 //* E-mail: guanghui.zhou@sobeys.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 //* Senior Systems Engineer * FILE 639 //* Information Technology * FILE 639 //* Sobeys Inc. * FILE 639 //* 6355 Viscount Road * FILE 639 //* Mississagua * FILE 639 //* L4V 1W2, Ontario, Canada * FILE 639 //* Phone: 1-(905)-671-5208 * FILE 639 //* E-mail: guanghui.zhou@sobeys.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 * 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 a program to find * FILE 642 //* any strings you want, in a SYSPLEX OPERLOG. A * FILE 642 //* description of this package follows: * 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 * FILE 642 //* for 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 * FILE 642 //* time span, when the thing I am looking for may be * FILE 642 //* "hidden" 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" * FILE 642 //* messages since the last time I ran the job. I have * FILE 642 //* an automated process for building and submitting this * FILE 642 //* job 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 and 1.4. * 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 * FILE 642 //* just 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 * FILE 642 //* system. * FILE 642 //* * FILE 642 //* Note that the following text and msgid keywords refer * FILE 642 //* to "selected" records. These are records "selected" by * FILE 642 //* any of the preceeding keywords. If none of these are * FILE 642 //* specified, "selected" becomes all operlog records in * FILE 642 //* the 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 * FILE 642 //* character, but must be matched at the end. Maximum * FILE 642 //* string length is 127. The text of all selected * FILE 642 //* messages (including multi record) will be scanned for * FILE 642 //* 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 * FILE 642 //* character, but must be matched at the end. Maximum * FILE 642 //* string length is 127. Only the first 3 columns of * FILE 642 //* the 1st line of each selected message will be scanned * FILE 642 //* for 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 //* 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 //* 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. * FILE 642 //* AFC stands for 'Airborne Freight * FILE 642 //* Corporation', by the way - my employer. * FILE 642 //* AFCLOGSC - JCL proc to run the program. * 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 //* ENTERX - A macro, used by AFCLOGR1 for entry * FILE 642 //* housekeeping. * FILE 642 //* EXECJCL - JCL to run the program (uses proc AFCLOGSC) * FILE 642 //* LEAVEX - A macro, used by AFCLOGR1 for exit * FILE 642 //* housekeeping. * FILE 642 //* * FILE 642 //* This program may be used, modified, and/or shared by * FILE 642 //* anyone. Just don't sell it. * FILE 642 //* * FILE 642 //* Richard Hobt * FILE 642 //* Airborne Frieght Corporation * FILE 642 //* 3101 Western Avenue * FILE 642 //* Seattle, WA. 98121 * FILE 642 //* (206) 830-4088 * FILE 642 //* Rich.Hobt@airborne.com * FILE 642 //* * FILE 642 //* July 9, 2003 * 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" * 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" * 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" * 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 //***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 - 1.8 * 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 (using Regina Rexx * FILE 647 //* 3.3). * FILE 647 //* * FILE 647 //* MEMBERS - The list of members in the distribution PDS * FILE 647 //* are: * FILE 647 //* * FILE 647 //* $$$DOC - This file. * FILE 647 //* GPL - The GNU General Public License. * 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 //* TESTXML - A sample xml file * FILE 647 //* TESTNEW - Sample Rexx to create an XML file * FILE 647 //* TESTMOD - Sample Rexx to modify an existing * FILE 647 //* XML file * 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 the documentation and source for GPSAM from the * FILE 648 //* Yale Computer Center, written by Howard Gilbert. * FILE 648 //* The documentation, which is in member $$$DOC, is in * FILE 648 //* FBA format, LRECL=80. The source for GPSAM is in * FILE 648 //* the rest of this file. * FILE 648 //* * FILE 648 //* GPSAM lets you write your own "access method" and * FILE 648 //* make it look like a sequential dataset to any * FILE 648 //* application program or utility. It can be used to * FILE 648 //* provide DBMS, VTAM, TSO Fullscreen, BTAM, or * FILE 648 //* specialized device support. * FILE 648 //* * FILE 648 //* SIMPLE: Installs on any MVS system. No IBM code * FILE 648 //* is modified. Takes only a few minutes to run * FILE 648 //* linkedit steps and build procedures. * FILE 648 //* * FILE 648 //* SMALL: 700 bytes in LPA. 160 bytes in private * FILE 648 //* address space. * FILE 648 //* * FILE 648 //* SAFE: Only one instruction executes in key 0 and * FILE 648 //* modifies a general system control block. Another * FILE 648 //* 18 instructions operate in a system key and only 4 * FILE 648 //* of them change storage, storing values in job * FILE 648 //* related control blocks in the private area. Even * FILE 648 //* the most conservative installation can desk check * FILE 648 //* the single authorized csect several times over in * FILE 648 //* an hour. * FILE 648 //* * FILE 648 //* UNIVERSAL: While a system programmer must install * FILE 648 //* the package in authorized libraries, any * FILE 648 //* application programmer can write his own "access * FILE 648 //* method" in assembler and use it from his own * FILE 648 //* programs. The user specifies the module name on * FILE 648 //* his DD card or in the TSO allocation of the * FILE 648 //* ddname. These user modules run in problem state * FILE 648 //* and can come from any library. Control is given * FILE 648 //* to the routine from the OPEN, CLOSE, GET, PUT, * FILE 648 //* READ, or WRITE statements. * FILE 648 //* * FILE 648 //* SECURE: MVS integrity is maintained. if an * FILE 648 //* authorized program opens a GPSAM file, the "access * FILE 648 //* method" module is limited to those explicitly * FILE 648 //* permitted by an installation-supplied name table * FILE 648 //* and the module must come from an APF library. * 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= * FILE 651 //* will report on RLS indicators for the requested dsname. * FILE 651 //* The input control statement * FILE 651 //* LEVEL= * 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 //* email: dgkopischke@oppenheimerfunds.com * 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 //* sbgolob@attglobal.net * 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 //* 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 //* 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 //* AWSTAPE Program AWSTAPE and JCL to create a * FILE 659 //* AWSTAPE DASD file. * 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 //* DISCLAIM Legal stuff. * 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 //* QUICKINS Quick instructions for the brave. * 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 //* Author: Glenn Siegel * FILE 659 //* S.S.C. Corp. * 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@valley.net * 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 //* davecartwright@uk.agcocorp.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 Zhou. * FILE 668 //* Support : guanghui.zhou@sobeys.com * 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 //***FILE 669 is from Willy Jensen and contains a REXX function * FILE 669 //* to save and preserve REXX variables. * FILE 669 //* * FILE 669 //* email: mail@wjensen.com * FILE 669 //* * FILE 669 //* A description of this package follows: * FILE 669 //* * FILE 669 //* See member $$DOC in this file. * FILE 669 //* * FILE 669 //* REXXGBLV - REXX global variables * FILE 669 //* * FILE 669 //* Highlights * FILE 669 //* * FILE 669 //* Save/retrieve REXX variables to/from storage. * FILE 669 //* * FILE 669 //* Save/retrieve the variable store to/from a disk * FILE 669 //* file. * FILE 669 //* * FILE 669 //* List the contents of the store. * FILE 669 //* * FILE 669 //* Short desciption * FILE 669 //* * FILE 669 //* Provides a variable store external to the currently * FILE 669 //* running REXX program. REXX variables can be copied to * FILE 669 //* the external store and retrieve again at some later * FILE 669 //* time by the same or another REXX process. The saved * FILE 669 //* variables can be written to and retrieved from a disk * FILE 669 //* file, so can be used across logons and even be shared * FILE 669 //* amongst users. The data store is written to a named * FILE 669 //* pool, and any number of pools can be used, till the * FILE 669 //* virtual storage runs full. The original idea was * FILE 669 //* just to pass variables from one REXX to the other * FILE 669 //* within an application, but it turned out to be much * FILE 669 //* versatile that that. One usage would be to set some * FILE 669 //* global values in the logon REXX, and later retreive * FILE 669 //* those values. * FILE 669 //* * FILE 669 //* I have also used it in a PPRC administration * FILE 669 //* application to exchange information between a REXX * FILE 669 //* pgm and an assembler program: 1) The REXX module * FILE 669 //* creates the variables and writes them to the variable * FILE 669 //* pool. 2) the assembler program is called, which sets * FILE 669 //* information in the pool variables. 3) The REXX mudule * FILE 669 //* reloads the pool variables with the updated * FILE 669 //* information. * FILE 669 //* * FILE 669 //* The maximum length of a variable name- and data are * FILE 669 //* 120 and 64000 bytes respectively. These values can * FILE 669 //* be changed in the assembler program by variables * FILE 669 //* &@vnamel and &@vdatal. * FILE 669 //* * FILE 669 //* Syntax * FILE 669 //* * FILE 669 //* REXXGBLV must run as a function! * FILE 669 //* n= REXXGBLV('parameters') * FILE 669 //* * FILE 669 //* Parameter description * FILE 669 //* * FILE 669 //* function The function to perform: * FILE 669 //* * FILE 669 //* SAVE saves the REXX variables to the pool. * FILE 669 //* LOAD load REXX variables from the pool. * FILE 669 //* EXPORT exports the pool to fileref RXGVEXP. * FILE 669 //* IMPORT imports fileref RXGVEXP to the pool. * FILE 669 //* LIST list contents of the pool (see below). * FILE 669 //* DUMP writes minimally formated list to RXGVDUMP * FILE 669 //* (see below). * FILE 669 //* DEL delete variable in pool. * FILE 669 //* DROP deletes the pool. * FILE 669 //* TRACE writes a lot of diagnostic info. * FILE 669 //* * FILE 669 //* POOL(pool) The pool name, max length=16. Default is * FILE 669 //* $REXXGBLV.VSAVE. * FILE 669 //* * FILE 669 //* VAR(name) Variable name. Can be suffixed with an * FILE 669 //* asterisk to specify a generic name. * FILE 669 //* * FILE 669 //* Principles of operation * FILE 669 //* * FILE 669 //* REXXGBLV creates a storage pool using IEANTCR service * FILE 669 //* to create a name/token pair. The poolname can be set * FILE 669 //* in the call to REXXGBLV, thus allowing an unlimited * FILE 669 //* number of variable stores. Storage for REXX variables * FILE 669 //* is obtained from storage pool 131, so it survives till * FILE 669 //* the TSO online or batch session is terminated (job * FILE 669 //* end). Storage is reused if possible. Storage obtained * FILE 669 //* is not released when a variable is deleted. Instead is * FILE 669 //* s moved to a free queue, from where it can be quickly * FILE 669 //* reused. A variable store element is logically deleted * FILE 669 //* when a variable is updated with a value which does not * FILE 669 //* fit in the current variable store. * 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@bogor.net * 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 * 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 is from Brian Westerman, and contains an application * FILE 683 //* to shut down all open UNIX services remaining after * FILE 683 //* TCPIP and other normal UNIX services have been shut * FILE 683 //* down. The application is called BPXSTOP. * FILE 683 //* * FILE 683 //* The application consists of a REXX EXEC which should * FILE 683 //* be renamed BPXSTOP, and a PROC, which should also be * FILE 683 //* renamed BPXSTOP and put into a PROC library. * FILE 683 //* * FILE 683 //* Appropriate RACF permissions have to be obtained. * FILE 683 //* See member $README for further instructions, and * FILE 683 //* for installation information. * FILE 683 //* * FILE 683 //* email: Brian_Westerman@SyzygyInc.com * 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: * FILE 684 //* Rick Fochtman, * FILE 684 //* * FILE 684 //* A description of the various programs and exits follows: * 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 //* 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 //***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 //* DBRCINIT. 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 //* * 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 'DBRCINIT' 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 was obtained from an old * FILE 688 //* XEPHON article dated 1996, by Larry Prestosa. As far * FILE 688 //* as I know, he is the original author of this program. * FILE 688 //* I have made some small additions to the program, which * FILE 688 //* are in my usual lowercase characters. I have made no * FILE 688 //* changes to the input record processing, except for: * 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 or a PDS/E file. * 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: 12/13/2005 V01.01.06 * 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 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: john.mckown@uiciinsctr.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: john.mckown@uiciinsctr.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: john.mckown@uiciinsctr.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 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 Frank Lawrence and Stephen McColley of * FILE 702 //* SunTrust, and contains their JES2 usermods at both * FILE 702 //* the z/OS 1.6 and z/OS 1.4 levels. These usermods * FILE 702 //* contain JES2 modifications which may be considered * FILE 702 //* replacements for the old Mellon Bank mods to JES2. * FILE 702 //* * FILE 702 //* The principal maintainer of the Mellon Mods at * FILE 702 //* SunTrust is Stephen McColley. * FILE 702 //* * FILE 702 //* email: Frank.Lawrence@SunTrust.com * FILE 702 //* Stephen.McColley@SunTrust.com * 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: davecartwright@uk.agcocorp.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 //* General Description of the package: * 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. * FILE 708 //* * FILE 708 //* The purpose of this MPF exit is to assist in automation * FILE 708 //* of your MVS operating system. The second program * FILE 708 //* MPFLOAD will only work on system levels at or ABOVE * FILE 708 //* ESA 4.1 because it uses the Name/Token Services. * FILE 708 //* More on this later. Sorry Turnkey guys/gals. * FILE 708 //* * FILE 708 //* Manage up to 1000 messages and 51 commands/logic per * FILE 708 //* 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 //* 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 IF, more on that * FILE 708 //* 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. * FILE 708 //* All words must appear in that 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 //* Then there's IF WORD logic check for one word up to twelve * 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 //* And of course, it does write to operator, highlighted * FILE 708 //* or not. So, if you wanted to send a message for * FILE 708 //* message ID $HASP612; * FILE 708 //* * * 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 the $HASP100 member would look like this: * FILE 708 //* * * FILE 708 //* SUPPRESS * FILE 708 //* * * FILE 708 //* Be cautious using SUPPRESS two reasons. One, it deletes * FILE 708 //* the message from the syslog, this it, it's gone. Two, if * FILE 708 //* the message you plan on suppressing doesn't have an * FILE 708 //* associated task, like before the task has started or the * FILE 708 //* task has ended before MPFXTAll get control "AND" MPFXTALL * FILE 708 //* isn't using Name/Token ie, using Dynamic Allocation see * FILE 708 //* $EXPLAIN for details on Dynamic Allocation. * 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 //* you asked for it, yes, I do requests. * FILE 708 //* * * FILE 708 //* The IF MSGID EQ for up to 17 character 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 //* Special character handling for message id's coming soon to * FILE 708 //* a CBTTAPE near you. * FILE 708 //* * FILE 708 //* This exit has been tested on OS/390 2.10, z/OS 1.4 and * FILE 708 //* z/OS 1.5 * 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 //* * FILE 708 //* And I'd like to thank Dave Mesiano and Mike Wojtukiewicz * FILE 708 //* for there 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 //* And now I thank all the new contributors to MPFXTALL. * FILE 708 //* * FILE 708 //* Contributed modifications: * FILE 708 //* * FILE 708 //* Tom Lewis: * FILE 708 //* An Ata'boy to Tom Lewis for pointing out flag message * FILE 708 //* warnings and some minor formatting changes. * FILE 708 //* TL01 - Displays the message id causing the command/reply * FILE 708 //* to be issued ie. * FILE 708 //* /* ISSUED BY MPFXTALL FOR SVT1P0011A */ * FILE 708 //* As the program stands, it will only display the message * FILE 708 //* id for commands, reason being this package is in * FILE 708 //* production at multiple sites, changes to the replies in * FILE 708 //* the members of the command dataset would have to be done * FILE 708 //* to implement this feature. If you want to display the * FILE 708 //* message id for replies uncomment the one *TL01 before * FILE 708 //* assembling MPFXTALL. Take note, that then, all replies * FILE 708 //* must then be coded with single quotes ie. * FILE 708 //* REPLY NN,'WARM,NOREQ' * 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 //* * FILE 708 //* Gary 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 //* * 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 //* * 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@erols.com * FILE 710 //* * FILE 710 //***FILE 711 is a very useful LIBRARIAN program package, and which * FILE 711 //* is completely new at this time (03/05). 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 //* sbgolob@attglobal.net * 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 //* 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.6 by Sam Golob (03/05) * FILE 713 //* * FILE 713 //* email: "Steve Myers" * FILE 713 //* "David Cartwright" * 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 //* 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 ENQ 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 * 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.1 * 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 //* * FILE 725 //* * FILE 725 //***FILE 726 IS CURRENTLY EMPTY * 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 related * FILE 731 //* to some TSO/E PARMLIB UPDATE functions. Particularly * FILE 731 //* BROADCAST dataset switching, and constants related to * FILE 731 //* the XMIT command. * FILE 731 //* * FILE 731 //* Commands are: * 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 //* 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 1.6. These commands contain dual * FILE 731 //* coding paths to accommodate the older TSO/E releases. * FILE 731 //* * FILE 731 //* email: sbgolob@cbttape.org or sbgolob@attglobal.net * 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 SHOWMVS work (on CBT Tape File 492). I have * FILE 731 //* therefore included the necessary macros from the * FILE 731 //* SHOWMVS 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. 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. * 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 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 also * FILE 731 //* put separate copies of them into this pds, so you don't * FILE 731 //* have to go to the trouble of extracting them, if you want * FILE 731 //* 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 //* and TSOB 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. So to use them..... * FILE 731 //* * FILE 731 //* Just copy the TSOB and TSOE REXX execs to a SYSPROC or a * FILE 731 //* SYSEXEC library, and issue: * FILE 731 //* * FILE 731 //* TSO TSOE EESCB or * FILE 731 //* TSO TSOB EESCB * FILE 731 //* * FILE 731 //* both of which 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 to z/OS 1.6. * 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 //* sbgolob@attglobal.net * 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 or sbgolob@attglobal.net * 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 ...... * 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=400, 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: 02/16/2006 V01.01.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 6.0) * FILE 739 //* ---------------------------------- * FILE 739 //* * FILE 739 //* This tool enables the user to dynamically display and * FILE 739 //* modify all their ISPF command tables. The tool has * FILE 739 //* extensive functionality and that is detailed in its * FILE 739 //* HELP panels. * FILE 739 //* * FILE 739 //* This version is compatible with all ISPF releases * FILE 739 //* from version 3.4 to version 5.6 (z/OS 1.6). * FILE 739 //* * FILE 739 //* Installation * FILE 739 //* ------------ * FILE 739 //* a) Assemble/Link members ISPFCMDI, ISPFCMDL & ISPFCMDO * FILE 739 //* b) Copy ISPFCMDS to a library in the SYSEXEC (or * FILE 739 //* SYSPROC) concatenation * FILE 739 //* c) Copy all other ISPFCMxx members into the ISPPLIB * FILE 739 //* concatenation * FILE 739 //* * 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 //* - It is designed to be used from within any other * FILE 739 //* ISPF application, hence it should be in base * FILE 739 //* libraries and not LIBDEF'd. * 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 //* - 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 //* Use * FILE 739 //* --- * FILE 739 //* It is invoked by 'TSO %ISPFCMDS' or better yet - * FILE 739 //* create a command like the following: * 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 . . : * FILE 739 //* SELECT CMD(ISPFCMDS &ZPARM) SCRNAME(CMDS) LANG(CREX) * 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" * FILE 740 //* * FILE 740 //***FILE 741 IS CURRENTLY EMPTY * FILE 741 //* * FILE 741 //***FILE 742 IS CURRENTLY EMPTY * FILE 742 //* * FILE 742 //***FILE 743 IS CURRENTLY EMPTY * FILE 743 //* * FILE 743 //***FILE 744 IS CURRENTLY EMPTY * FILE 744 //* * FILE 744 //***FILE 745 IS CURRENTLY EMPTY * FILE 745 //* * FILE 745 //***FILE 746 IS CURRENTLY EMPTY * FILE 746 //* * FILE 746 //***FILE 747 IS CURRENTLY EMPTY * FILE 747 //* * FILE 747 //***FILE 748 IS CURRENTLY EMPTY * FILE 748 //* * FILE 748 //***FILE 749 IS CURRENTLY EMPTY * FILE 749 //* * FILE 749 //***FILE 750 IS CURRENTLY EMPTY * FILE 750 //* * FILE 750 //***SECTION ADDITION SECTION * FILE 750 //* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% * FILE 750 //* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% * FILE 750 //* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% * FILE 750 //* * FILE 750 //* WHEN ADDITIONS ARE ADDED TO THE TAPE, RATHER THEN PUTTING * FILE 750 //* THEM AT THE END OF THE TAPE, I WILL NOW PLACE THEM IN * FILE 750 //* FILES THAT WERE PREVIOUSLY DELETED AND ARE NOW EMPTY, * FILE 750 //* ASSUMING THAT THERE ARE ANY EMPTY FILES AVAILABLE * FILE 750 //* * FILE 750 //* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% * FILE 750 //* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% * FILE 750 //* &$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$% * FILE 750 //* * FILE 750 //* * FILE 750 //* * FILE 750 //***SECTION JCL SECTION * FILE 750 //* * FILE 750 //* THE FOLLOWING IS THE JCL THAT I USED TO BUILD THE TAPE * FILE 750 //* IF YOU ARE LOOKING DOWN HERE FOR HOW TO DROP THE TAPE * FILE 750 //* YOU SHOULD LOOK AT FILE 003 OF THE TAPE WHICH IS THE JCL * FILE 750 //* TO DROP DOWN ALL THE DATA ON THE TAPE * FILE 750 //* ARNIE * FILE 750 //* * FILE 750 //* ^ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * FILE 750 //* * FILE 750 //* JCL SECTION IS BEING DROPPED FOR LACK OF SPACE - S.GOLOB * FILE 750 //* WITH VERSION 327. MAY 16, 1991 * FILE 750 //* * FILE 750 //* ^ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * FILE 750 //PANPAN PROC (ARNIE'S GOOD-BYE MESSAGE RESTORED 01/05/94.) * JCL FILE //* FINIS, BYE. ARNIE 9/18/90 * JCL FILE