I have copied the PDS datasets from the CBT overflow tape to the MVS Tur(n)key system and catalogued them in SYS1.UCAT.CBT. The dataset names on one of the CBTxxx volumes will be CBT429.FILEnnn for file nnn of the CBT tape 429.
The description of the CBT contents was copied from file 1 of the tape and was modified (using a few editor commands) into a html document which you see here: (no text editing or formatting was done, only html tags added)
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
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
is source for an assembler program called CBTUPD. * FILE 004
CBTUPD inserts ./ ADD NAME=xxxxxxxx cards into * FILE 004
File 001 of this tape, so the tape documentation, * FILE 004
which is very large, can be broken up into a pds, * FILE 004
with smaller pieces as members. * FILE 004
* FILE 004
After making a copy of this file with the extra * FILE 004
separator cards, using the CBTUPD program, you can * FILE 004
then use the PDSLOAD or IEBUPDTE programs to load * FILE 004
a partitioned dataset with the appropriate * FILE 004
members. Member names are in their original order, * FILE 004
using the EBCDIC collating sequence. * FILE 004
* FILE 004
The member names inserted, are in alphabetical * FILE 004
order, so that when you re-constitute the File 001 * FILE 004
with the OFFLOAD or LISTPDS programs, or with the * FILE 004
=OFFLOAD subcommand of REVIEW, etc, the members * FILE 004
will go back together in the proper order. * FILE 004
* FILE 004
Questions: email sbgolob@attglobal.net * FILE 004
or sbgolob@aol.com * FILE 004
* FILE 004
Please see File 006 for more related tools. * FILE 004
* FILE 004
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
CONTAINS SEVERAL PROGRAMS USED FOR MANIPULATION OF * FILE 006
THE CBT TAPE AND CBT OVERFLOW TAPE DOCUMENTATION. * FILE 006
* FILE 006
The program called CBTUPD is for the purpose of * FILE 006
introducing appropriately named ./ ADD NAME= cards * FILE 006
into strategic places of the CBT Tape Documentation. * FILE 006
The CBT Tape doc can then be conveniently broken * FILE 006
up into a pds. The member names of the pds are * FILE 006
in collating sequence order (EBCDIC), so that the * FILE 006
members can be put back together as a sequential * FILE 006
file, in their proper order. * FILE 006
* FILE 006
The program called DOCFILE is from Arnold Casinghino * FILE 006
and it puts the indicators in columns 73-80 of the * FILE 006
CBT Tape documentation, to indicate your current * FILE 006
position within the documentation. * FILE 006
* FILE 006
The original idea of the DOCFILE program is from * FILE 006
a COBOL program written by Sam Barr of Northrop. * FILE 006
* FILE 006
DOCFILE has been updated by Sam Golob (03/99) to * FILE 006
take into account the fact that there may be lower * FILE 006
case characters in the CBT Tape Documentation * FILE 006
nowadays. * FILE 006
* FILE 006
This file was moved from File 130 and the former * FILE 006
File 006 was moved to File 130. The reason for * FILE 006
that, was that this file should be near the * FILE 006
beginning of the CBT Tape, since it is used to * FILE 006
process the CBT Tape Documentation File. * FILE 006
* FILE 006
(Actually both of them are. I just put this file * FILE 006
more "forward", because I think more people are * FILE 006
going to use it. File 130 is for loading the * FILE 006
CBT documentation into an INFO/MVS database.) * FILE 006
* FILE 006
I've included the OSTARXMT package in this file * FILE 006
to make it more available. Documentation for * FILE 006
running this package is in File 365. The load * FILE 006
module for the OSTAREDC assembler program to * FILE 006
speed up error checking, is in File 035. If you * FILE 006
get CBT Tape files in OSTARXMT format (LRECL=88), * FILE 006
the presence of the OSTARREC exec here, will make * FILE 006
it easier for you to handle this format. Just * FILE 006
copy OSTARREC into your SYSPROC or SYSEXEC library * FILE 006
and invoke it, against your .XMT files. * FILE 006
* FILE 006
Note: This file also contains copies of the ISPF Edit * FILE 006
Macros CBTUPDTE and COVUPDTE, which are used * FILE 006
to introduce ./ ADD NAME= cards into the CBT Tape * FILE 006
and CBT Overflow Tape documentation files. That * FILE 006
will allow them to be converted into partitioned * FILE 006
datasets, using IEBUPDTE ,PARM=NEW , or PDSLOAD * FILE 006
programs. * FILE 006
* FILE 006
However, the CBTUPD assembler program supersedes * FILE 006
these two edit macros, because it is more accurate * FILE 006
in checking where to insert the ./ ADD cards, * FILE 006
and is less prone to some other errors. * FILE 006
* FILE 006
As of CBTUPD Version 1.3 (or higher), the changes * FILE 006
for each version of the tape are separated out as * FILE 006
distinct members, sorted in reverse order. None of * FILE 006
the edit macros did that job, so CBTUPD is distinctly * FILE 006
better than the CBTUPDTE edit macro. * FILE 006
* FILE 006
Version 1.3 of the CBTUPD program was developed and * FILE 006
tested on the IBM PC using the Tachyon Cross * FILE 006
Assembler and the Tachyon Operating System. This * FILE 006
is a vendor product from Tachyon Software, Denver * FILE 006
Colorado, 1-303-722-1341. * FILE 006
www.tachyonsoft.com/tachyon * FILE 006
This product allows you to develop MVS assembler * FILE 006
programs on an IBM PC, test them on the PC, and * FILE 006
port them to MVS. The object deck produced by * FILE 006
the Tachyon Assembler is compatible with HLASM. * FILE 006
* FILE 006
IS A COPY OF THE SHARE RACF MODS TAPE FROM MR JIM * FILE 007
BLALOCK OF CLEMSON UNIVERSITY IN ANDERSON, SOUTH * FILE 007
CAROLINA. THIS FILE IS IN IEBUPDTE SYSIN FORMAT. * FILE 007
FOR ADDITIONAL INFORMATION SEE THE MEMBERS CALLED * FILE 007
$$$DOC AND $$INDEX. * FILE 007
* FILE 007
email: carey@clemson.edu * FILE 007
* FILE 007
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
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
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
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
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
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
IS FROM SAM GOLOB AND CONTAINS A SERIES OF ARTICLES * FILE 014
WRITTEN FOR TECHNICAL SUPPORT MAGAZINE OF NASPA. * FILE 014
THIS FILE IS IN IEBUPDTE SYSIN FORMAT. FOR * FILE 014
ADDITIONAL INFORMATION, SEE THE MEMBER CALLED * FILE 014
$$$INTRO. THESE ARE SAM'S OLDER ARTICLES. (SEE * FILE 014
FILE 120 FOR THE COLLECTION OF SAM'S "MVS TOOLS AND * FILE 014
TRICKS OF THE TRADE" COLUMNS.) * FILE 014
* FILE 014
THIS FILE CONSISTS OF ARTICLES SUBMITTED BY SAM * FILE 014
GOLOB TO "TECHNICAL SUPPORT" MAGAZINE OF NASPA, * FILE 014
THE NATIONAL SYSTEMS PROGRAMMERS ASSOCIATION, * FILE 014
HEADQUARTERED IN MILWAUKEE, WISCONSIN. * FILE 014
* FILE 014
THE MATERIAL PERTAINS LARGELY TO PROGRAMS ON THE CBT * FILE 014
TAPE, AND TO TOPICS OF GENERAL SYSTEMS PROGRAMMER * FILE 014
INTEREST. WITH THE KIND PERMISSION OF BOB BECKER, * FILE 014
FORMER EDITOR OF "TECHNICAL SUPPORT", THEY ARE BEING * FILE 014
DISTRIBUTED WITH THE CBT TAPE TO FURTHER THE * FILE 014
USEFULNESS OF OTHER FILES ON THE TAPE, AND THE TAPE * FILE 014
IN GENERAL. * FILE 014
* FILE 014
CBTCNR1 - A COLUMN ON USEFUL PROGRAMS ON THE CBT * FILE 014
TAPE. INSTALLMENT 1. * FILE 014
* FILE 014
CBTCNR2 - A COLUMN ON USEFUL PROGRAMS ON THE CBT * FILE 014
TAPE. INSTALLMENT 2. * FILE 014
* FILE 014
CBTINTRO - AN INTRODUCTION TO THE CBT TAPE IN * FILE 014
GENERAL. THE ARTICLE SHOWS HOW THE * FILE 014
CBT TAPE CAN IMPROVE YOUR INSTALLATION * FILE 014
GREATLY BY PROVIDING POWERFUL TOOLS. * FILE 014
THIS IS MEANT AS AN INTRODUCTION ONLY, * FILE 014
AND SUGGESTS A FEW OF THE TOOLS WHICH * FILE 014
THE AUTHOR HAS FOUND USEFUL IN HIS * FILE 014
WORK. * FILE 014
* FILE 014
IOCOUNT - DESCRIPTION OF THE AMAZING IO-COUNT ZAP * FILE 014
TO THE OPERATING SYSTEM, WHICH * FILE 014
PROVIDES EXCP-COUNT INFORMATION IN JCL * FILE 014
LISTINGS, FOR ALL ALLOCATED DDNAMES. * FILE 014
THE MODIFICATION IS FOUND ON FILE 369 * FILE 014
OF THE CBT TAPE. THIS IS A DETAILED * FILE 014
DESCRIPTION OF HOW TO INSTALL IT. * FILE 014
* FILE 014
JESART - THIS IS A DESCRIPTION OF HOW TO CONVERT * FILE 014
FROM JES2 VERSION 1.3.4 TO THE HIGHER * FILE 014
RELEASES OF JES2. * FILE 014
* FILE 014
SMPART - I BELIEVE THIS MATERIAL IS FOUND NOWHERE * FILE 014
ELSE IN THIS FORM. THIS ARTICLE IS * FILE 014
MEANT TO INTRODUCE NEW AND OLD SYSTEMS * FILE 014
PROGRAMMERS TO THE CONCEPTS OF SMP. * FILE 014
IT CAN BE USED AS A "HOW-TO-DO-IT" * FILE 014
INTRODUCTION TO ANY LEVEL OF SMP. IT * FILE 014
IS CLEAR, CONCEPTUAL, AND COMPLETELY * FILE 014
STEP-BY-STEP. IT COVERS CONCEPTS OF * FILE 014
ALL RELEASES OF SMP, BOTH SMP4 AND * FILE 014
SMP/E. THE ARTICLE WAS TESTED BY * FILE 014
BEING GIVEN TO NON-SYSTEMS-PROGRAMMERS * FILE 014
TO READ, AND IS MEANT FOR ANYONE WHO * FILE 014
HAS ANYTHING TO DO WITH MVS SYSTEM * FILE 014
MAINTENANCE. THIS MEANS NON-TECHNICAL * FILE 014
MANAGERS AS WELL AS TECHNICAL PEOPLE. * FILE 014
* FILE 014
A SERIES OF THREE ARTICLES HAS BEEN WRITTEN AS * FILE 014
A COURSE TO TEACH THE SUBCOMMANDS OF THE FANTASTIC * FILE 014
"PDS" PROGRAM THAT CAN BE FOUND ON FILE 182 OF THE * FILE 014
CBT TAPE (WITH UTILITIES ON FILE 296). THESE * FILE 014
ARTICLES ARE NOW DISTRIBUTED WITH THE PDS PACKAGE ON * FILE 014
FILE 182, AND WILL NOT BE REPEATED HERE. * FILE 014
* FILE 014
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
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
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
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
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
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
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
IS FROM MR MARK HEDGES, FORMERLY OF ADRIA * FILE 022
LABORATORIES IN DUBLIN OHIO. THIS FILE CONTAINS * FILE 022
SEVERAL OF THEIR UTILITIES. THIS FILE IS IN * FILE 022
IEBUPDTE SYSIN FORMAT. FOR ADDITIONAL INFORMATION * FILE 022
SEE THE MEMBER CALLED $$DOC. * FILE 022
* FILE 022
MARK HEDGES IS NO LONGER AT ADRIA LABORATORIES... * FILE 022
* FILE 022
CURRENT ADDRESS: MARK HEDGES * FILE 022
11951 SENTINEL POINT COURT * FILE 022
RESTON, VA 22091 * FILE 022
CURRENT PHONE: (703) 758-8825 * FILE 022
* FILE 022
current email: mark.hedges@landmark.com * FILE 022
* FILE 022
-ASSEMBLER- * FILE 022
ADRMCLVL DETERMINES LEVEL OF DFDSS RUNNING IN * FILE 022
YOUR SYSTEM * FILE 022
CATSTRIP EXAMINE OUTPUT OF LISTCAT FOR * FILE 022
ICF-CATALOGS - USED IN CONJUNCTION WITH * FILE 022
SASCATS * FILE 022
DATERC SETS RRC BASED ON DATE-OF-WEEK * FILE 022
DI215 DISPLAY INITIATORS FOR JES 2.1.5/JES * FILE 022
2.1.7 * FILE 022
ICHRIN03 MODULE USED BY RACF IN CREATING THE * FILE 022
STARTED TASK TABLE - THIS IS A MACRO * FILE 022
WITH EXAMPLES TO CODE THIS TABLE * FILE 022
IDMSLOGS PROCESSES IDMS/R SHUTDOWN STATS * FILE 022
JOBSTAT DETERMINES IF JOB/STC/TSO IS CURRENTLY * FILE 022
RUNNING * FILE 022
MRGJNLOG MERGES IDMS/R JOURNALS AND LOGS TO * FILE 022
TAPE FILES - NICE * FILE 022
PUTCVRL PRINT COVER LETTERS FROM SEQUENTIAL PTF * FILE 022
TAPES, NOT TOO THRILLING * FILE 022
RACFPGM TO GENERATE RACF PROTECTION FOR PROGRAMS * FILE 022
- FOR ALL YOU FOLKS PRE-RACF 1.7 * FILE 022
RACFST PROGRAM TO DISPLAY RACF STATUS * FILE 022
INFORMATION: DSNS, FLAGS, STOR - NICE * FILE 022
IF YOU WANT TO KNOW WHERE ALL RACF 1.7 * FILE 022
DATASETS ARE * FILE 022
RESCUE CREATES A JOB STREAM TO CREATE A * FILE 022
ONE-PACK-SYSTEM - INCLUDES SPOOL, CKPT, * FILE 022
PAGE DATASETS, RACF TOO * FILE 022
ROUTDESC EXAMPLE OF ROUTING AND DESCRIPTOR CODES * FILE 022
FOR WTO/WTOR'S * FILE 022
SMF5 PROCESSES SMF TYPE 5 RECORDS * FILE 022
SMPLIST PROCESSES OUTPUT OF AN SMP/E 'LIST * FILE 022
FUNCTIONS' * FILE 022
SYSLOG PROCESSES MVS/XA SYSLOGS FOR SCANNING * FILE 022
AND REPORTING * FILE 022
SYSLOC USED IN CONJUNCTION WITH SYSLOG: * FILE 022
PROCESSES GDG'S * FILE 022
SYSTAT EVERYTHING AN MVS SYSTEMS PROGRAMMER * FILE 022
WANTS TO KNOW * FILE 022
- MY BEST CODE, MUST BE AT LEAST MVS/XA * FILE 022
2.1.3 * FILE 022
- GIVES IPL INFO, CONTROL BLOCK INFO * FILE 022
(ADDRESSES), MAPS STORAGE AND DRAWS * FILE 022
MAP OF VIRTUAL STORAGE, LISTS ALL APF * FILE 022
DATASETS AND ISSUES A 'LOCATE' TO * FILE 022
CHECK CATALOG STATUS. * FILE 022
- RUNS AS BATCH/TSO/STC * FILE 022
UCBSVC78 PARM INPUT THAT WRITES 1 LINER ON * FILE 022
AVAILABLE SPACE * FILE 022
UCBSCAN SCANS ALL SYSTEM UCB'S AND GIVES * FILE 022
'CHANNEL-PATHS' * FILE 022
- RUNS UNDER TSO, AS A BATCH JOB, OR * FILE 022
STC * FILE 022
- GIVES UCB INFO, ISSUES LSPACE SVC * FILE 022
- HAS CLIST. EASY TO RUN AS STC TO * FILE 022
ISSUE EVERY 8 HRS * FILE 022
UCBTYPES USED BY MEM(UCBSCAN) TO DETERMINE * FILE 022
DEVICE TYPES * FILE 022
WTONROLL PROGRAM TO ISSUE WTO'S TO CONSOLE W/O * FILE 022
ROLLING THEM * FILE 022
-SAS 5.16- * FILE 022
SASCATS READS OUTPUT OF MEM(CATSTRI#) AND SENDS * FILE 022
IT THROUGH SAS * FILE 022
- USES A 'LISTCAT ALL' AND CP 'VTOC' AS * FILE 022
INPUT TO * FILE 022
- GIVE STATS ON ALL VSAM, NONVSAM, AND * FILE 022
ICF-CATALOG INFO * FILE 022
SASDDDEF A LOGICAL LISTING OF DDDEFS FROM SMP/E * FILE 022
FOR ANY ZONE * FILE 022
SASSMP READS OUTPUT OF 'LIST FUNCTIONS' * FILE 022
COMMAND, PROCESSING FMIDS * FILE 022
SASSMP SAS, TO PROCESSES NON-APPLIED SYSMODS * FILE 022
IN ANY CSI ZONE * FILE 022
SASTMS PROCESSES OUTPUT OF 'TMSGRW' INTO SAS * FILE 022
FOR REPORTING * FILE 022
SASVTOC SAS/GRAPH TO PROCESS ALL VTOCS BY * FILE 022
DSORG, NOTING FREE SPACE * FILE 022
SMPELIST PROCESSES OUTPUT '//SMPELIST' FOR A * FILE 022
'LIST FUNCTIONS' * FILE 022
TMSMACRO PROCESSES OUTPUT OF TMC FROM TMCGRW PGM * FILE 022
SASSMF30 PROCESS SMF TYPE 30 * FILE 022
- CLIST - * FILE 022
CLISTSOE DISPLAYS ALL NEW FUNCTIONS UNDER TSO/E 3 * FILE 022
SYSTAT$ PROCESS SYSTAT PGM * FILE 022
UCBSCAN$ PROCESS UCBSCAN ROUTINE * FILE 022
ADRMCLVL$ PROCESS DFDSS LEVEL * FILE 022
- ISPF V2.3 PANELS - * FILE 022
SYSLOG$$ FOR SYSLOG$ CLIST * FILE 022
- ISREDIT MACROS - * FILE 022
$AMODGEN BROWSE AMODGEN * FILE 022
$ASMHCL BUILD ASSEMBLE AND LINK JCL AROUND * FILE 022
SOURCE CODE, OR FOREGROUND * FILE 022
$BROWSE BROWSE FROM EDIT SESSION * FILE 022
$COPY USE ADVANCED LMCOPY FUNCTION * FILE 022
$EXEC ISSUE THE TSO 'EXEC' COMMAND FOR * FILE 022
CURRENT CLIST ONE IS EDI * FILE 022
$GENER EXEC IEBGENER * FILE 022
$HASPSRC BROWSE 'SYS1.HASPSRC' * FILE 022
$IEHMAP MAP A VOLUME * FILE 022
$JOB PUT A JOBCARD AND DOCUMENTATION IN * FILE 022
FRONT OF JCL * FILE 022
$JUL GET TODAY'S DATE * FILE 022
$LC PERFORM LISTCAT * FILE 022
$LD PERFORM LISTD ON CURRENT DATASET * FILE 022
$LDI PERFORM LISTDSI ON CURRENT DATASET * FILE 022
$LISTLVL PERFORM LISTCAT LEVEL * FILE 022
$LM LIST ALL MEMBERS: PGM=LM * FILE 022
$LS LIST FREE SPACE: PGM=LS; PGM=CLEAR * FILE 022
$MACLIB BROWSE MACLIB * FILE 022
$PEND PUT A PEND AND EXEC AT THE END OF A * FILE 022
PROC * FILE 022
$PRINT USE PRINTOFF TO PRINT CURRENT MEMBER * FILE 022
$PROCLIB EDIT SYS1.PROCLIB * FILE 022
$RECEIVE BUILD SMP/E JCL TO RECEIVE A * FILE 022
PRODUCT/MAINT * FILE 022
$SPACE DETERMINE DISK/TAPE BLKSIZE BASED ON * FILE 022
LRECL * FILE 022
* FILE 022
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
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
IS FROM TEXAS UTILITY SERVICES AND IT CONTAINS * FILE 025
SEVERAL OF THEIR TSO COMMANDS. THIS FILE IS IN * FILE 025
IEBUPDTE SYSIN FORMAT. THIS FILE CONTAINS THE * FILE 025
FOLLOWING CODE. FOR ADDITIONAL INFORMATION SEE * FILE 025
THE MEMBER CALLED $DOC. * FILE 025
* FILE 025
KLEENUP - REXX EXEC TO GENERATE HMIGRATE COMMANDS * FILE 025
FOR ALL BUT THE CURRENT GENERATIONS OF * FILE 025
THE REQUESTED DISK DATASET. * FILE 025
* FILE 025
GETOPR - COMMAND FOR THE OPERATORS TO USE TO * FILE 025
FIND OUT THE RACF INFORMATION ASSOCIATED * FILE 025
WITH A GIVEN USERID AND DISPLAY IT ON THE * FILE 025
CONSOLE. * FILE 025
* FILE 025
SASSRCHD - SAS PROGRAM THAT READS SMF DATA AT MVS * FILE 025
3.1.3 LEVEL AND GIVES A REPORT ON WHO * FILE 025
OPENED NONVSAM DATASETS, THEIR BLOCKSIZE * FILE 025
THAT THEY WERE OPENED WITH, AND WHO * FILE 025
DELETED THEM. * FILE 025
* FILE 025
SASSRCHV - SAS PROGRAM THAT READS SMF DATA AT MVS * FILE 025
3.1.3 LEVEL AND GIVES A REPORT ON WHO * FILE 025
OPENED VSAM DATASETS AND WHO DELETED * FILE 025
THEM. * FILE 025
* FILE 025
CONS390 - CONSOLE PROGRAM MODIFIED FOR OS/390. * FILE 025
DISPLAYS CONSOLES AS A TSO COMMAND UNDER * FILE 025
ISPF OR TSO. FEATURES: * FILE 025
* FILE 025
HIGHLIGHTED MESSAGES ON CONSOLE ARE * FILE 025
HIGHLIGHTED * FILE 025
AUTOMATIC UPDATE FEATURE * FILE 025
ENTER OPERATOR COMMANDS * FILE 025
DISPLAY LAST IPL AND IF CLPA WAS DONE * FILE 025
* FILE 025
CURRENT FILE IS UPDATED FOR OS/390 RELEASE 2.4. * FILE 025
OLDER STUFF FOR ESA RELEASE 3 IS PACKAGED AS MEMBER * FILE 025
"OLDVERS". ESA 4.2.2 STUFF IS 2 MEMBERS: * FILE 025
"OLDESAVR" AND "RESTESA". * FILE 025
* FILE 025
CONESA - CONSOLE PROGRAM MODIFIED FOR ESA. * FILE 025
DISPLAYS CONSOLES AS A TSO COMMAND UNDER * FILE 025
ISPF OR TSO. FEATURES: * FILE 025
* FILE 025
HIGHLIGHTED MESSAGES ON CONSOLE ARE * FILE 025
HIGHLIGHTED * FILE 025
AUTOMATIC UPDATE FEATURE * FILE 025
ENTER OPERATOR COMMANDS * FILE 025
DISPLAY LAST IPL AND IF CLPA WAS DONE * FILE 025
* FILE 025
PRESENTLY WORKS UNDER OS/390 2.4 AND CORRESPONDING * FILE 025
DFSMS. SOME OF THE CONTROL BLOCKS THAT IT USED WERE * FILE 025
MOVED INTO THE CONSOLE ADDRESS SPACE AFTER DFP 2.2. * FILE 025
* FILE 025
* FILE 025
CONSOLE - PROGRAM TO DISPLAY CONSOLE ACTIVITY AS A * FILE 025
TSO COMMAND UNDER ISPF OR TSO. FEATURES: * FILE 025
* FILE 025
HIGHLIGHTED MESSAGES ON CONSOLE ARE * FILE 025
HIGHLIGHTED * FILE 025
AUTOMATIC UPDATE FEATURE * FILE 025
ENTER OPERATOR COMMANDS * FILE 025
DISPLAY LAST IPL AND IF CLPA WAS DONE * FILE 025
* FILE 025
PRESENTLY WORKS UNDER MVS/XA UNDER DFP * FILE 025
RELEASE 1 AND 2.1. * FILE 025
* FILE 025
MTTESA - USES CROSS MEMORY SERVICES TO READ AND * FILE 025
DISPLAY THE MASTER TRACE TABLE AS A TSO * FILE 025
COMMAND PROCESSOR. THIS IS THE XA * FILE 025
VERSION OF THE PROGRAM THAT ORIGINATED AS * FILE 025
MTT UNDER SP1.3. GOOD FOR OS/390 TOO. * FILE 025
FEATURES: * FILE 025
* FILE 025
READ/DISPLAY MASTER TRACE TABLE * FILE 025
ENTER OPERATOR COMMANDS * FILE 025
CAN USE FIND TO SEARCH THE MASTER * FILE 025
TRACE TABLE * FILE 025
F 'SEARCH ARGUMENT IN QUOTES' * FILE 025
* FILE 025
UPDATED FOR MVS/ESA 4.2.2. OLD STUFF STILL HERE. * FILE 025
* FILE 025
MTTXA - USES CROSS MEMORY SERVICES TO READ AND * FILE 025
DISPLAY THE MASTER TRACE TABLE AS A * FILE 025
TSO COMMAND PROCESSOR. THIS IS THE XA * FILE 025
VERSION OF THE PROGRAM THAT ORIGINATED * FILE 025
AS MTT UNDER SP1.3. FEATURES: * FILE 025
* FILE 025
READ/DISPLAY MASTER TRACE TABLE * FILE 025
ENTER OPERATOR COMMANDS * FILE 025
CAN USE FIND TO SEARCH THE MASTER * FILE 025
TRACE TABLE * FILE 025
F 'SEARCH ARGUMENT IN QUOTES' * FILE 025
* FILE 025
MTT - SAME AS ABOVE FOR SP1.X SYSTEMS. WE HAVE * FILE 025
NOT USED FOR 3 YEARS SINCE GOING TO XA. * FILE 025
* FILE 025
SWAPIN - WILL SYSEVENT A JOB TO NEW PERFORMANCE * FILE 025
GROUP. * FILE 025
* FILE 025
AUTOWTOR - MPF EXIT TO REPLY M. CAN USE FOR * FILE 025
IEC701D WITH CARTRIDGES TO BE * FILE 025
INITIALIZED (THAT IS THE WAY WE USE * FILE 025
IT). THE OPERATOR SETS THE MPF TO THE * FILE 025
PARMLIB MEMBER THAT HAS THE IEC701D * FILE 025
AND AUTOWTOR (SEE MPFLST03 FOR AN * FILE 025
EXAMPLE OF A PARMLIB MEMBER). THE * FILE 025
AUTOWTOR WILL GIVE M TO THE IEC701D * FILE 025
AND THE OPERATOR LOOKS AT THE VISUAL * FILE 025
DISPLAY ON THE 3480 TO SEE WHAT * FILE 025
CARTRIDGE NUMBER TO INSERT. * FILE 025
* FILE 025
IGGPRE00 - DADSM ALLOCATION EXIT TO KEEP CERTAIN * FILE 025
PROBLEM DATASETS FROM BEING ALLOCATED * FILE 025
ON PACKS BEGINNING WITH STG (STORAGE * FILE 025
PACKS). * FILE 025
* FILE 025
IGGPRETB - TABLE LOADED BY IGGPRE00 THAT CONTAINS * FILE 025
THE FIRST 1 TO 12 CHARACTERS OF DATASET * FILE 025
NAMES NOT TO BE ALLOCATED ON THE PACKS * FILE 025
BEGINNING WITH STG. * FILE 025
* FILE 025
ZTPP0210 - PROGRAM TO WRITE HEX 'FF' TO FIRST PDS * FILE 025
DIRECTORY ENTRY THEREBY DELETING ALL * FILE 025
MEMBERS OF THE PDS AND LEAVING THE * FILE 025
LIBRARY. * FILE 025
* FILE 025
ZTPP210J - SAMPLE EXECUTION JCL TO RUN ZTPP0210. * FILE 025
* FILE 025
ZTPPASM - JCL TO ASSEMBLE ZTPP0210. * FILE 025
* FILE 025
SASTSOMN - SAS PROGRAM TO PRINT TSOMON'S RECORDING * FILE 025
OF COMMANDS ON TSO. * FILE 025
* FILE 025
NOTE: ANY MEMBERS THAT MIGHT SEEM TO BE MISSING, WILL BE * FILE 025
FOUND IN THE OLD VERSIONS THAT ARE PACKAGED WITH * FILE 025
THIS FILE: SEE MEMBERS OLDVERS, OLDESAVR, RESTESA. * FILE 025
* FILE 025
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
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
IS A SET OF CLISTS TO CONVERT A LIST OF DATASET * FILE 028
NAMES TO DISK-TO-TAPE BACKUP JCL FROM SAM GOLOB. * FILE 028
THE FOLLOWING IS WHAT THIS CLIST PDS CAN DO FOR * FILE 028
YOU. THIS FILE IS IN IEBCOPY FORMAT AND IS * FILE 028
* FILE 028
LRECL = 255 BLKSIZE = 15300 RECFM = VB * FILE 028
* FILE 028
***** BACKEMUP ***** * FILE 028
* FILE 028
FUNCTION OF CLISTS: * FILE 028
CONVERT A LIST OF DATASET NAMES TO * FILE 028
DISK-TO-TAPE BACKUP JCL. * FILE 028
* FILE 028
READ THE MEMBERS CALLED $$$DOC, $$$DOC2 AND * FILE 028
$$$DOC3 * FILE 028
* FILE 028
SHORT DESCRIPTION: * FILE 028
* FILE 028
THIS FAMILY OF CLISTS SOLVES AN OLD, * FILE 028
NAGGING PROBLEM OF IBM PROGRAMMERS, * FILE 028
NAMELY, THAT OF BACKING UP A LARGE NUMBER * FILE 028
OF PDS'ES AND SEQUENTIAL DATASETS TO TAPE. * FILE 028
THE USUAL WAYS OF DOING THIS REQUIRES * FILE 028
SETTING UP A PROC, AND CODING A LARGE * FILE 028
NUMBER OF EXECUTIONS OF THE PROC, FOR * FILE 028
DIFFERENT DATASETS. YOU HAVE TO KEEP TRACK * FILE 028
OF THE FILE NUMBERS ON TAPE, AND IT'S A * FILE 028
BIG PAIN IN THE (YOU FILL IN THE BLANK), * FILE 028
AT ITS EASIEST. * FILE 028
* FILE 028
WITH "BACKEMUP" CLISTS YOU JUST HAVE TO * FILE 028
MAKE A LIST OF THE DATASETS ON A * FILE 028
CARD-IMAGE FILE, RUN A CLIST AGAINST THE * FILE 028
LIST, AND IN A FEW SECONDS, YOU HAVE YOUR * FILE 028
IEBCOPY JCL ! * FILE 028
* FILE 028
FURTHER HELP AND DESCRIPTION: * FILE 028
* FILE 028
PLEASE SEE MEMBER TSOBATV FOR GREAT * FILE 028
ASSISTANCE IN BACKING UP PO AND PS * FILE 028
DATASETS ON A GIVEN VOLUME. OUTPUT OF * FILE 028
THIS JOB IS CLOSE TO THE FORMAT USED FOR * FILE 028
INPUT TO THE CLIST CALLED "GENVOL". ONLY * FILE 028
MINOR MASSAGING WITH ISPF EDIT IS * FILE 028
NECESSARY. "VTOC" PGM FOUND ON CBT TAPE - * FILE 028
FILE 112. * FILE 028
* FILE 028
JEFF BROIDO WROTE THE ORIGINAL CLIST, * FILE 028
GENUNLD. I HAVE MODIFIED HIS ORIGINAL * FILE 028
VERSION FOR SEVERAL OF MY PURPOSES, AND * FILE 028
HAVE WRITTEN ANOTHER ONE, GENPOPS, THAT * FILE 028
ADDED THE CAPABILITY OF DUMPING SEQUENTIAL * FILE 028
DATASETS AFTER DOING THE PDS'ES. I USE * FILE 028
DAVE COLE'S DSCOPY PROGRAM PRODUCT FOR * FILE 028
SEQUENTIAL DATASET DUMPING TO TAPE. IT'S * FILE 028
A REAL GEM, BUT IT'S NOT FREE. YOU CAN * FILE 028
SUBSTITUTE THE PROGRAM CALLED "FTL" FROM * FILE 028
FILE 270 OF THIS TAPE, INSTEAD OF DSCOPY. * FILE 028
(SEE MEMBER CALLED $$$DOC3). OTHERWISE, * FILE 028
YOU CAN REWRITE THAT CLIST FOR IEBGENER, * FILE 028
OR SYSREPRO (CBT TAPE FILE 316) OR * FILE 028
WHATEVER YOU USE. THE ADVANTAGE OF DSCOPY * FILE 028
IS (AMONG OTHER USES IT HAS) THAT MANY * FILE 028
FILES CAN BE COPIED WITHIN ONE EXEC CARD. * FILE 028
* FILE 028
MY CLISTS USE THE TAPEMAP PROGRAM (ORIGINAL * FILE 028
WAS FROM UCLA) WHICH IS ON CBT TAPE FILE * FILE 028
299. THEY ALSO USE THE INIMITABLE PDS * FILE 028
PROGRAM FROM FILE 182, AND I (HAD) THE * FILE 028
VENDOR PRODUCT PDSFAST, WHICH SUBSTITUTES * FILE 028
FOR IEBCOPY WITH THE SAME JCL, EXCEPT FOR * FILE 028
PROGRAM NAME. THESE CLISTS MAY NEED TSO/E, * FILE 028
BUT IF YOU'RE CLEVER, YOU CAN GET AROUND * FILE 028
THAT (IT'S ONLY NEEDED DURING THE INPUT * FILE 028
FILE READ, IN WHICH THE DATASET NAMES ARE * FILE 028
CONVERTED INTO A HUGE STRING). * FILE 028
* FILE 028
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
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
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
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
IS PUTXREF FROM THE DEPARTMENT OF THE TREASURY OF * FILE 033
THE STATE OF NEW JERSEY. THIS FILE IS IN IEBUPDTE * FILE 033
SYSIN FORMAT. FOR ADDITIONAL INFORMATION SEE THE * FILE 033
SOURCE CODE ITSELF. THIS PROGRAM TAKES THE PUT * FILE 033
PTF FILE (FILE 1 FROM A STANDARD IBM PUT TAPE), * FILE 033
AND PRODUCES A CROSS REFERENCE OF THE PTF'S * FILE 033
INCLUDED, SORTED BY FMID. IT CAN TAKE * FILE 033
CONCATENATED INPUT, BUT THE TAPE IDENTITY ON WHICH * FILE 033
THE PTF IS FOUND WILL BE LOST. THE PROGRAM SHOULD * FILE 033
BE USEFUL TO QUICKLY IDENTIFY WHAT PTF'S ARE ON A * FILE 033
GIVEN TAPE, WHAT FMID'S HAVE MAINTENANCE ON A * FILE 033
TAPE, AND TO DOUBLE CHECK THE STERLING FOREST * FILE 033
CROSS REFERENCE (IT LIES ONCE IN A WHILE.) ALSO * FILE 033
SEE THE MATERIAL ON FILE 118, WHICH IS RELATED, * FILE 033
AND WHICH MAY BE MORE HELPFUL. * FILE 033
* FILE 033
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
IS A LOAD MODULE LIBRARY WITH USEFUL PROGRAMS IN IT. * FILE 035
* FILE 035
SOURCE FILE LOAD MODULE NAME * FILE 035
002 SOURCE CBT973 - uncompres tape files * FILE 035
006 SOURCE CBTUPD - insert ./ ADD cards * FILE 035
into this doc * FILE 035
018 DOCUMENTATION TSUPDATE * FILE 035
044 SOURCE ASMTOZAF - PL1/F ASMTOZAP * FILE 035
044 SOURCE ASMTOZAP - PL/1 OPTIMIZER * FILE 035
good with PL/1 V1.3 or more * FILE 035
093 SOURCE OFFLOAD * FILE 035
093 SOURCE PDSLOAD * FILE 035
094 SOURCE DAF * FILE 035
102 SOURCE TAPESC46 - Version 4.6 (64K) * FILE 035
102 SOURCE TAPESCAN - Version 5.2 (64K) * FILE 035
112 SOURCE VTOC * FILE 035
134 SOURCE HEL (moved to FILE 135) * FILE 035
134 SOURCE REVIEW (moved to FILE 135) * FILE 035
134 SOURCE ZAP (moved to FILE 135) * FILE 035
147 SOURCE ARCHINIT \\ * FILE 035
147 SOURCE ARCHIVER >> ARCHIVER * FILE 035
147 SOURCE ARCHPARS // * FILE 035
182 SOURCE PDS85 - PDS Vers 8.5 loadmod. * FILE 035
(Needs PANELS and MSGS to * FILE 035
run in ISPMODE. Will run * FILE 035
in line mode as is. Use * FILE 035
XISPM keyword when invoking. * FILE 035
SEE FILE 182 FOR PANELS AND * FILE 035
MESSAGES. * FILE 035
193 SOURCE TCOPY - Tape copying utility * FILE 035
218 SOURCE VSAMMAPP * FILE 035
229 SOURCE COPYMODS * FILE 035
264 SOURCE LOOK * FILE 035
266 SOURCE SS0104 tape mapping program * FILE 035
294 SOURCE VSAMADTL VSAMANAL * FILE 035
294 SOURCE VSAMAGET VSAMANAL * FILE 035
294 SOURCE VSAMAHLP VSAMANAL * FILE 035
294 SOURCE VSAMANAL VSAMANAL * FILE 035
294 SOURCE VSAMANDX VSAMANAL * FILE 035
294 SOURCE VSAMSIZE VSAMANAL * FILE 035
296 SOURCE BLKDISK BLK3380 BLK3390 * FILE 035
296 SOURCE BLK3375 BLK9345 BLK3350 * FILE 035
299 SOURCE TAPEMAP & TAPEMAPO * FILE 035
316 SOURCE COPYFILE - copies SL tape fls * FILE 035
316 SOURCE COPYSLNL - copies SL to NL * FILE 035
316 SOURCE COPYNLNL - copies NL to NL * FILE 035
316 SOURCE IGG019WD - with COPYFILE * FILE 035
316 SOURCE IGG019WE - with COPYFILE * FILE 035
316 SOURCE LISPDS (really LISTPDS) * FILE 035
316 SOURCE TAPEL - used with COPYFILE * FILE 035
365 SOURCE OSTAREDC - OSTARXMT error * FILE 035
checking assembler program * FILE 035
* FILE 035
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
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
IS FROM MR LARRY WILLIAMS AND CONTAINS A VERY * FILE 038
ELABORATE SPACE WAR GAME CALLED " KLINGON ". IT * FILE 038
IS A LOT LIKE MOST STAR TREK GAMES EXCEPT YOU GET * FILE 038
TO BE THE BAD GUYS. THE GAME CAN RUN EITHER IN * FILE 038
LINE MODE OR IN FULL SCREEN MODE UNDER TSO ON A * FILE 038
3270 TYPE TERMINAL. THIS FILE IS IN IEBUPDTE * FILE 038
SYSIN FORMAT. SEE THE MEMBER CALLED ##DOC FOR * FILE 038
ADDITIONAL INFORMATION. * FILE 038
* FILE 038
NOTE. FOR PEOPLE HAVING PROBLEMS COMPILING THIS * FILE 038
WITH FORTRAN H, YOU CAN COMPILE IT WITH FORTRAN G. * FILE 038
* FILE 038
LARRY WILLIAMS * FILE 038
ILLINOIS BOARD OF GOVERNORS * FILE 038
COOPERATIVE COMPUTER CENTER * FILE 038
GOVERNORS STATE UNIVERSITY * FILE 038
UNIVERSITY PARK, IL 60466 * FILE 038
(630) 235-2138 * FILE 038
* FILE 038
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
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
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
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
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
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
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
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
IS FROM TORONTO HYDRO IN TORONTO, ONTARIO, CANADA. * FILE 047
THIS FILE CONTAINS THE FOLLOWING, FOR ADDITIONAL * FILE 047
INFORMATION SEE THE MEMBER CALLED $INDEX : (THIS * FILE 047
FILE ALSO USES SOME MACROS THAT ARE IN FILES 435 AND * FILE 047
OR 464. THIS FILE HAS BEEN SUBMITTED BY MR JIM LANE * FILE 047
* FILE 047
THE CURRENT FILE IS A REFRESH AS OF 12/09/93. * FILE 047
* FILE 047
THIS FILE ALSO CONTAINS AN ESA VERSION OF CMD1. * FILE 047
(SEE THE BF GOODRICH VERSION ON FILE 261 WHICH MAY * FILE 047
BE FOR A HIGHER LEVEL OF MVS/ESA.) * FILE 047
* FILE 047
JIM'S CURRENT ADDRESS: * FILE 047
* FILE 047
JIM LANE * FILE 047
TORONTO HYDRO * FILE 047
TECHNICAL SERVICES * FILE 047
14 CARLTON STREET * FILE 047
TORONTO, ONTARIO M5B 1K5 * FILE 047
CANADA * FILE 047
416-542-2820 direct line * FILE 047
* FILE 047
Note: Jim Lane is now doing AIX, and this file is * FILE 047
now "functionally stabilized" until somebody * FILE 047
else takes it over. (SG - 07/99) * FILE 047
* FILE 047
THIS PDS CONTAINS THE FOLLOWING MEMBERS: * FILE 047
* FILE 047
EDX - "PERSONAL DATASET MANAGER" ISPF DIALOG. * FILE 047
EXITS - SOME JES2 AND MPF EXITS. * FILE 047
JCLFLOW - AN ISPF PROGRAM EDIT MACRO TO NEATLY * FILE 047
FORMAT JCL * FILE 047
LISTICAT - A BATCH PROGRAM TO 1-UP LIST DATASETS IN * FILE 047
AN ICF CATALOG. * FILE 047
NOCELL - A BATCH PROGRAM TO LIST DISK, TAPE AND * FILE 047
HSM MIGRATED DATASETS * FILE 047
RMFIII - A POST PROCEESOR FOR RMF MONITOR III * FILE 047
DATA. * FILE 047
SASEREP - A SAS PROGRAM TO PROCESS LOGREC RECORDS. * FILE 047
SASGTF - A SAS PROGRAM TO PROCESS GTF SVC TRACE * FILE 047
RECORDS. * FILE 047
SASHSM - A SET OF SAS PROGRAM TO ANALYZE HSM USAGE * FILE 047
SASRMF79 - A SAS PROGRAM TO PROCESS RMF TYPE 79 * FILE 047
RECORDS. * FILE 047
SASSYSLG - A SAS PROGRAM TO PROCESS SYSLOG DATA. * FILE 047
SASTLMS - A SAS PROGRAM TO PROCESS THE TLMS II * FILE 047
VOLUME MASTER FILE. * FILE 047
SMPELIST - A BATCH PROGRAM TO 1-UP LIST ENTRIES FROM * FILE 047
AN SMP-E CSI. * FILE 047
- EDX - * FILE 047
AN ISPF DIALOG CALLED "PERSONAL DATASET MANAGER". * FILE 047
EDX MAINTAINS AND DISPLAYS A TABLE OF DATASET * FILE 047
NAMES (OPTIONALLY INCLUDING A MEMBER NAME). THE * FILE 047
FOLLOWING OPERATIONS CAN BE REQUESTED ON ANY OF * FILE 047
THE DATASETS: * FILE 047
? TO DISPLAY INFORMATION ABOUT THE * FILE 047
DATASET'S ATTRIBUTES. * FILE 047
A TO ALLOCATE A NEW DATASET USING THIS ONE * FILE 047
AS A MODEL. * FILE 047
B TO ISPF BROWSE THE DATASET. * FILE 047
D TO DELETE THE DATASET. * FILE 047
E TO ISPF EDIT THE DATASET. * FILE 047
HM TO MIGRATE THE DATASET WITH DFHSM. * FILE 047
HR TO RECALL THE DATASET FROM DFHSM * FILE 047
MIGRATION. * FILE 047
P TO INVOKE THE PDS84 DIALOG ON THE * FILE 047
DATASET. * FILE 047
PR TO PRINT THE DATASET. * FILE 047
V TO SET OR UPDATE THE VOLSER FIELD. * FILE 047
X TO DROP THE DATASET FROM THE LIST. * FILE 047
* FILE 047
EDX PICKS UP ON THE FACT THAT A DATASET HAS BEEN * FILE 047
MIGRATED AND DISPLAYS A MESSAGE TO THAT EFFECT IF * FILE 047
YOU TRY TO DO SOMETHING THAT NEEDS THE DATASET * FILE 047
UNMIGRATED. YOU HAVE TO EXPLICITLY HRECALL IT * FILE 047
FIRST. * FILE 047
* FILE 047
THIS DATASET ALSO CONTAINS UPDATED VERSIONS OF * FILE 047
THE ED AND BR COMMAND TABLE COMMANDS THAT ADD THE * FILE 047
DATASET YOU EDIT OR BROWSE TO THE EDX DATASET * FILE 047
TABLE. THEY ALSO ACCEPT AN OPERAND OF "*" TO MEAN * FILE 047
THE MOST RECENT DATASET YOU EITHER EDITED OR * FILE 047
BROWSED. * FILE 047
- EXITS - * FILE 047
A SET OF JES2 AND MPF EXITS: * FILE 047
EXIT02 - ENFORCE JOBNAME AND JOBCLASS * FILE 047
STANDARDS * FILE 047
EXIT03 - CANCEL JOBS FLAGGED BY EXIT02 * FILE 047
EXIT04 - DUMMY OUT JOBCAT AND STEPCAT DD * FILE 047
STATEMENTS * FILE 047
MPFABEND - HIGHLIGHTED WTO FOR ABENDING * FILE 047
PRODUCTION JOB * FILE 047
MPFHOLD - REPLY NOHOLD TO IEF433D * FILE 047
MPFJCLER - HIGHLIGHTED WTO FOR PRODUCTION JOB * FILE 047
WITH JCL ERROR * FILE 047
MPFVINIT - START TSO AFTER VTAM IS UP * FILE 047
MPFVTAM - HIGHLIGHTED WTO WHEN NETWORK NODES * FILE 047
GO INACT * FILE 047
- JCLFLOW - * FILE 047
THIS PROGRAM WAS "OBTAINED" FROM FILE352 OF THE * FILE 047
CBT TAPE. IN ITS ORIGINAL FORM IT WAS A BATCH * FILE 047
UTILITY, READING JCL FROM SYSUT1 AND WRITING THE * FILE 047
REFORMATTED STUFF ONTO SYSUT2. I CHANGED IT BY * FILE 047
ALTERING THE I/O LOGIC TO USE ISPF EDIT MACRO * FILE 047
SERVICES. THE BASIC LOGIC IS TO START AT THE TOP * FILE 047
OF THE DECK ASSIGNING EACH LINE TO VARIABLE * FILE 047
"CARD". ANYTHING OTHER THAN PART OF A DD * FILE 047
STATEMENT IS LEFT AS IS. WHEN A DD STATEMENT IS * FILE 047
FOUND EACH LINE IS DELETED AFTER BEING READ. THE * FILE 047
LINE NUMBER AFTER WHICH TO INSERT REFORMATTED JCL * FILE 047
IS REMEMBERED IN VARIABLE "ADDLINE". AN ENTIRE DD * FILE 047
STATEMENT IS READ IN, CONTINUATION LINES AND ALL * FILE 047
AND STORED IN "TABLEIN", EACH INPUT LINE BEING * FILE 047
DELETED AFTER ASSIGNMENT. THE DD STATEMENT IS * FILE 047
THEN FORMATTED BY BEING COPIED ONE PARAMETER AT A * FILE 047
TIME OVER TO "TABLEOUT". FROM "TABLEOUT" NEW * FILE 047
LINES ARE INSERTED INTO THE DATASET TO CONTAIN * FILE 047
THE REFORMATTED DD STATEMENT. SINCE THE NUMBER OF * FILE 047
LINES IN THE DATASET COULD HAVE INCREASED, THE * FILE 047
LINE NUMBER OF THE LAST LINE IS RE-CALCULATED AS * FILE 047
NECESSARY AND REMEMBERED IN VARIABLE "LLINE". * FILE 047
- LISTICAT - * FILE 047
NAME LISTICAT * FILE 047
FUNCTION LIST THE CONTENTS OF AN ICF CATALOG * FILE 047
AND SELECTED DSCB AND VVDS FIELDS. * FILE 047
DESCRIPTION THE UCBS OF ALL ONLINE DASD VOLUMES * FILE 047
ARE LOCATED AND AN ATTEMPT IS MADE TO * FILE 047
ALLOCATE SYS1.VVDS.VVOLSER. IF THIS * FILE 047
WORKS AN ACB AND RPL ARE GENERATED AND * FILE 047
THEIR ADDRESSES ARE SAVED IN A LOOKUP * FILE 047
TABLE. THE BCS CLUSTER IS OPENED AS A * FILE 047
DATASET AND READ SEQUENTIALLY. THE BCS * FILE 047
RECORDS ARE SCANNED FOR CELL TYPES AND * FILE 047
THE FOLLOWING CELLS ARE LISTED: * FILE 047
NONVSAM * FILE 047
CLUSTER * FILE 047
INDEX * FILE 047
DATA * FILE 047
AIX * FILE 047
PATH * FILE 047
GDG BASE * FILE 047
GDG ENTRY * FILE 047
FOR NONVSAM ENTRIES THE FORMAT1 AND, * FILE 047
IF IT EXISTS THE FORMAT 3, DSCB IS * FILE 047
"OBTAINED" TO DETERMINE IF THE OBJECT * FILE 047
EXISTS. IF IT DOES THE LRECL, BLKSIZE * FILE 047
AND TOTAL TRACKS ALLOCATED ARE * FILE 047
EXTRACTED. IF THE OBJECT IS * FILE 047
CATALOGED TO VOLSER "MIGRAT" THE * FILE 047
DFHSM MIGRATION CONTROL DATASET IS * FILE 047
OPENED (SYSUT2) AND USED INSTEAD OF * FILE 047
THE VTOC. * FILE 047
* FILE 047
FOR DATA AND INDEX ENTRIES THE VVDS OF * FILE 047
THE VOLUME IN QUESTION, IF AVAILABLE, * FILE 047
IS SCANNED TO DETERMINE THE LRECL, * FILE 047
BLKSIZE AND TRACK ALLOCATION OF THE * FILE 047
OBJECT. * FILE 047
* FILE 047
ENVIRONMENT OS/VS2 MVS, JDM1113 OR HDQ1102 * FILE 047
MVS/XA 2.1.7 DF/HSM 2.1.0 * FILE 047
(HAS BEEN RUN ON MVS/ESA.) * FILE 047
INPUT THE BCS OF THE ICF CATALOG TO BE * FILE 047
LISTED. * FILE 047
OUTPUT OUTPUT CONSISTS OF A LISTING OF THE * FILE 047
CATALOG. * FILE 047
- NOCELL - * FILE 047
NAME NOCELL * FILE 047
INTRODUCTION * FILE 047
NOCELL IS A UTILITY THE PURPOSE OF WHICH IS TO * FILE 047
ANALYZE ALLOCATED DATASETS. THE PROGRAM CAN * FILE 047
PROCESS ALL DATASETS OR SELECT A SUBSET, AND * FILE 047
PRODUCE DETAIL LISTINGS OR SUMMARY REPORTS. * FILE 047
JCL REQUIREMENTS. * FILE 047
NOCELL CAN BE EXECUTED USING THE FOLLOWING JCL: * FILE 047
//STEP EXEC PGM=NOCELL,REGION=4096K * FILE 047
//STEPLIB DD DSN=,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
is a pds which contains the LISTVOL and LISTSPC * FILE 048
TSO commands, and it contains the LOCINDEX * FILE 048
subroutine, which they both need. * FILE 048
* FILE 048
HELP data for both commands is also contained in * FILE 048
this file. These programs used to exist in separate * FILE 048
files on the tape (since 1976 or so), and now these * FILE 048
files have been combined into one file. * FILE 048
* FILE 048
IS CURRENTLY EMPTY * FILE 049
* FILE 049
is an Internet Surfing file, which contains some * FILE 050
URL addresses for MVS-related sites on the Internet. * FILE 050
This file is intended to make looking for tools a * FILE 050
little easier. Sometimes, a good tool is available * FILE 050
on the Internet, but for some reason, it isn't a * FILE 050
good candidate to put on the CBT Tapes themselves. * FILE 050
This file is therefore intended as a pointer, to * FILE 050
help you get these materials yourself. * FILE 050
* FILE 050
File 050 lists sites which have free software * FILE 050
that is dowloadable, whereas File 051 lists vendor * FILE 050
software sites. * FILE 050
* FILE 050
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * FILE 050
* FILE 050
No responsibility is assumed by anybody connected * FILE 050
with the CBT Tape materials, for anything that was * FILE 050
downloaded by anybody from any of these sites. * FILE 050
These sites are not under our control, and they may * FILE 050
change at any time. The URL's to get there, are * FILE 050
provided, just so that people can find out about * FILE 050
those materials, to determine if they are useful * FILE 050
to them. We do not guarantee in any way, that any * FILE 050
URL's will stay up-to-date. * FILE 050
* FILE 050
Actually, the purpose for creating this file, is to * FILE 050
let people know about materials that are specifically * FILE 050
NOT on the CBT Tape in the form that they are in. * FILE 050
Either they belong to somebody, or are copyrighted by * FILE 050
somebody, but the bottom line is that somebody else * FILE 050
controls them. It is understood that there is no * FILE 050
implied or explicit responsibility assumed by any * FILE 050
individual or corporate entity having to do with the * FILE 050
CBT Tape materials in any way, concerning anything * FILE 050
obtained at these sites, in the past or in the * FILE 050
future. Use all of these materials at your own * FILE 050
risk, or don't use them at all. * FILE 050
* FILE 050
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * FILE 050
* FILE 050
Member - Short Description of Materials Available * FILE 050
------ ---------------------------------------- * FILE 050
* FILE 050
ALCOCK - Dave Alcock's home page * FILE 050
CBTTAPE - Online CBT Tape site * FILE 050
DAVECOLE - Dave Cole's updated free software * FILE 050
FADH - VM-like TSO/MVS tools and other stuff * FILE 050
FREEC - Free C Language Compiler that runs under * FILE 050
OS/390 Open Edition * FILE 050
LORIAUX - A tremendous collection of links to MVS * FILE 050
sites and S390 job information * FILE 050
NADEL - Doug Nadel's site. Contains TASID and a * FILE 050
lot of other good stuff. Could not be put * FILE 050
on the CBT Tape because of IBM copyright. * FILE 050
* FILE 050
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
IS CURRENTLY EMPTY * FILE 052
* FILE 052
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
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
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
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
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
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
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
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
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
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
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
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
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
IS FROM MR ALAN FIELD OF SUPER VALU IN EDEN PRAIRIE, * FILE 066
MINNESOTA AND CONTAINS SEVERAL OF THEIR UTILITIES. * FILE 066
THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS * FILE 066
THE FOLLOWING * FILE 066
* FILE 066
email: alan.field@supervalu.com * FILE 066
* FILE 066
1. CLIST - SOME CLISTS TO DEMONSTRATE THE USE * FILE 066
OF SOME OF THE UTILITIES INCLUDED IN * FILE 066
THIS FILE. * FILE 066
* FILE 066
2. CNTL - JCL TO RUN SOME OF THE UTILITIES * FILE 066
INCLUDED IN THIS FILE. * FILE 066
* FILE 066
3. ASM - ASSEMBLER LANGUAGE SOURCE FOR SOME * FILE 066
USEFUL UTILITIES. * FILE 066
* FILE 066
CPCMD - ENABLES MVS USERS RUNNING UNDER * FILE 066
VM TO ISSUE CP COMMANDS AND GET * FILE 066
THE RESPONSES BACK AT THEIR TSO * FILE 066
TERMINAL. CAN ALSO EXECUTED AS A * FILE 066
BATCH PROGRAM OR STARTED TASK. * FILE 066
LINK IT WITH AN ALIAS OF CP. ON * FILE 066
TSO THEN ENTER CP Q DASD FOR * FILE 066
EXAMPLE, OR CP ATT 58A MVS. * FILE 066
* FILE 066
DASDSUB - SUBROUTINE TO OBTAIN UCB * FILE 066
INFORMATION * FILE 066
* FILE 066
DISASM3B - THE SVC TABLE FROM THE * FILE 066
DISASSEMBLER ON THE CBT TAPE. * FILE 066
MODIFIED FOR MVSXA AND COPIED * FILE 066
INTO SVCTAB. * FILE 066
* FILE 066
DSSLVL - DISPLAY CURRENT DF/DSS PROGRAM * FILE 066
LEVEL. * FILE 066
* FILE 066
JULSUB - DATE CONVERSION SUBROUTINE. * FILE 066
* FILE 066
LASTCLPA - COMMAND TO DISPLAY DATE AND TIME * FILE 066
OF LAST CLPA. A COMPANION * FILE 066
PROGRAM TO LASTIPL WHICH IS ON * FILE 066
THE CBT TAPE. * FILE 066
* FILE 066
LNKLST - DISPLAY NAMES OF LINK LIST * FILE 066
DATASETS CURRENTLY IN USE. * FILE 066
* FILE 066
RACFDS - DISPLAY DATA ABOUT THE RACF * FILE 066
DATASET(S) IN USE. * FILE 066
* FILE 066
SMFDS - DISPLAY DATA ABOUT CURRENT SMF * FILE 066
DATASET USAGE. * FILE 066
* FILE 066
SVCTAB - PROGRAM TO DISPLAY SVCTABLE. * FILE 066
* FILE 066
TODCN - PROGRAM TO CONVERT TIMESTAMPS * FILE 066
INTO REAL DATES AND TIMES. * FILE 066
* FILE 066
VSAMNAME - CONVERT AND DISPLAY 'REAL' * FILE 066
DATASET NAMES ASSIGNED BY VSAM * FILE 066
FOR PAGE, MAN ETC. * FILE 066
* FILE 066
4. MACROS - MACROS NECESSARY TO ASSEMBLE SOURCE * FILE 066
IN MEMBER ASM. * FILE 066
* FILE 066
5. PLI - SOME PL/I UTILITIES. * FILE 066
* FILE 066
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
IS CURRENTLY EMPTY * FILE 068
* FILE 068
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
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
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
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
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
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
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
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
IS CURRENTLY EMPTY * FILE 077
* FILE 077
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
IS FROM WILLIAM SMITH, FORMERLY OF CHARLES SCHWAB IN * FILE 079
SAN FRANCISCO, CALIFORNIA. THIS FILE CONTAINS A * FILE 079
ROBUSTLY IMPLEMENTED "PRODUCTION" ISPF INTERFACE * FILE 079
FOR IBM'S DCF SCRIPT/VS. A PROTOTYPE ADDON IS * FILE 079
ALSO INCLUDED, TO CONVERT THIS INTERFACE INTO A * FILE 079
CUA COMPLIANT FORMAT. * FILE 079
* FILE 079
ADDRESS: WILLIAM SMITH * FILE 079
IBM * FILE 079
STORAGE SYSTEMS DIVISION * FILE 079
5600 COTTLE ROAD * FILE 079
DEPT. W98A * FILE 079
DRIVER BUILD & INTEGRATION * FILE 079
BUILDING 50, ROOM A382 * FILE 079
SAN JOSE, CA 95193-0001 * FILE 079
(408) 256-1557 OR * FILE 079
TIE LINE 276-1557 * FILE 079
* FILE 079
email: smithwj@us.ibm.com * FILE 079
goldens@ibm.net * FILE 079
* FILE 079
THERE ARE OTHER INTERESTING ITEMS IN THIS * FILE 079
FILE, WHICH ARE MOSTLY DESCRIBED BELOW: * FILE 079
* FILE 079
THIS COLLECTION OF TOOLS COMPRISES: * FILE 079
* FILE 079
DCF SCRIPT/VS ISPF INTERFACE, AS FOLLOWS: * FILE 079
* FILE 079
1) A COMPLETE PRODUCTION ISPF DIALOG INTERFACE TO * FILE 079
IBM'S DCF SCRIPT/VS FACILITY. * FILE 079
* FILE 079
TO INSTALL THIS INTERFACE, YOU NEED MEMBERS: * FILE 079
PLIB1, MSGS, CLIST1 TO BE IEBUPDTE-LOADED TO * FILE 079
A PANEL LIBRARY, A MESSAGE LIBRARY, AND A * FILE 079
CLIST LIBRARY, RESPECTIVELY. ALSO, YOU WILL * FILE 079
NEED ASSEMBLED, MEMBER IKJCT44B FROM THE SOURCE * FILE 079
MEMBER IN THIS PDS. THIS SOURCE MUST BE ASSEMBLED, * FILE 079
LINKEDITED, AND PLACED IN A (LINKLIST) LIBRARY * FILE 079
THAT IS ACCESSIBLE TO YOUR TSO SESSION. * FILE 079
* FILE 079
THIS PRODUCTION INTERFACE IS NOT CUA COMPLIANT * FILE 079
AS IT IS. * FILE 079
* FILE 079
2) A PROTOTYPE MODIFICATION TO THE ABOVE DCF SCRIPT/VS * FILE 079
INTERFACE, TO MAKE IT CUA COMPLIANT. THIS CONSISTS * FILE 079
OF PANELS AND CLISTS TO SUBSTITUTE FOR LIKE-NAMED * FILE 079
MEMBERS IN THE PANEL AND CLIST LIBRARIES CREATED * FILE 079
BY THE ABOVE INSTALLATION. * FILE 079
* FILE 079
PART OF THIS PROTOTYPE ADDITION CONSISTS OF AN * FILE 079
ISPF PRIMARY OPTION MENU CONTAINING A CALENDAR * FILE 079
AND ACTION BAR PULL-DOWNS. * FILE 079
* FILE 079
TO INSTALL THIS INTERFACE, YOU NEED MEMBERS: * FILE 079
PLIB2, CLIST2 TO BE IEBUPDTE-LOADED INTO PANEL * FILE 079
AND CLIST LIBRARIES THAT WILL BE CONCATENATED AHEAD * FILE 079
OF THE RESPECTIVE LIBRARIES CREATED BY THE INSTALL * FILE 079
PROCESS IN ITEM 1) ABOVE. * FILE 079
* FILE 079
IN ADDITION TO THE DCF SCRIPT/VS ISPF INTERFACE, THIS * FILE 079
FILE CONTAINS THE FOLLOWING OTHER MEMBERS: * FILE 079
* FILE 079
SOURCE - A COLLECTION OF VARIOUS EXITS TO JES2 * FILE 079
RELATING TO TSO. THERE IS ALSO A TSO * FILE 079
SESSION MANAGER EXIT, AND A GDDM PLOTTER * FILE 079
EXIT. THIS MEMBER IS IN IEBUPDTE UNLOADED * FILE 079
FORMAT AND MUST BE IEBUPDTE-LOADED INTO A * FILE 079
PARTITIONED DATASET. * FILE 079
* FILE 079
INCLUDED IN THIS MEMBER IS A CLIST VARIABLE * FILE 079
EXTENSION EXIT (IKJCT44B) THAT IS REQUIRED * FILE 079
BY MEMBER PLIB1. THIS MEMBER ADDS SOME * FILE 079
BUILT-IN FUNCTIONS TO THE CLIST LANGUAGE * FILE 079
AND IS REQUIRED FOR THE DCF SCRIPT/VS * FILE 079
INTERFACE. * FILE 079
* FILE 079
USERMODS - A COLLECTION OF ASSORTED MVS AND JES2 * FILE 079
LOCAL MODS PACKAGED IN SMP FORMAT. THE * FILE 079
USEFULNESS OF THIS COLLECTION LIES IN * FILE 079
THE FACT THAT THEY ARE SAMPLE MODS TO * FILE 079
IBM PRODUCTS, WHICH IBM NEVER PROVIDED * FILE 079
SAMPLES FOR. * FILE 079
* FILE 079
DOCLIB - THIS IS A 30-PAGE DOCUMENT DESCRIBING * FILE 079
THE DCF SCRIPT/VS DIALOG FRONTEND, AND * FILE 079
ITS HISTORY. THIS WAS A PRESENTATION * FILE 079
GIVEN AT SHARE 80 IN SAN FRANCISCO. * FILE 079
* FILE 079
DEFMACRO - A COLLECTION OF SCRIPT MACROS FOR VIRTUALLY * FILE 079
EVERY FONT FAMILY MARKETED BY IBM. THIS * FILE 079
COLLECTION ALLOWS EASY USE OF MANY FONTS * FILE 079
BY A SCRIPT USER. * FILE 079
* FILE 079
PUBTOOLS - THE COMPLETE CHARLES SCHWAB IN-HOUSE * FILE 079
STANDARDS GUIDE FOR MAINFRAME-BASED DESKTOP * FILE 079
PUBLISHING, IN SCRIPT FORMAT. (THIS TAKES * FILE 079
TIME TO FORMAT AND PRINT ON AN IBM PRINTER-- * FILE 079
ABOUT 40 MINUTES ON A 3820.) * FILE 079
* FILE 079
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
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
IS THE REFERENCE MANUAL FOR IEHMAP, MAPLPA, PTXREF * FILE 082
AND SUPERZAP (RECFM=FBA, LRECL=80) * FILE 082
* FILE 082
IS THE IEHMAP PROGRAM (WITH A LOT OF * FILE 083
DISASSEMBLED SOURCE THAT WAS UPDATED BY MR GUY * FILE 083
ALBERTELLI OF B.F. GOODRICH IN AKRON, OHIO.) * FILE 083
THIS FILE IS IN IEBUPDTE SYSIN FORMAT. THIS FILE * FILE 083
CONSISTS OF THE ORIGINAL IEHMAP PROGRAM (OBJECT) * FILE 083
AND ALL THE PUBLISHED ZAPS, PLUS SOME UNPUBLISHED * FILE 083
ZAPS. IT ALSO UPDATES IEHMAP SO THAT IT WILL WORK * FILE 083
ON EITHER SP, XA, OR ESA. THE LIBRARY CONTAINS THE * FILE 083
ORIGINAL IEHMAP OBJECT DECK IN TWO MEMBERS, AN * FILE 083
MVS / XA CSECT THAT WAS CREATED VIA THE DISASSEMBLER * FILE 083
AND THE NECESSARY ZAPS IN SEPARATE MEMBERS. * FILE 083
SEE THE MEMBERS CALLED $DOC390 AND $DOC370 FOR * FILE 083
ADDITIONAL INFORMATION. $DOC390 IS FOR MVS/ESA. * FILE 083
* FILE 083
NOW FIXED TO RECOGNIZE THE RES PACK IF IT HAS A * FILE 083
DYNAMIC UCB. ALSO INCLUDES DISASSEMBLIES OF THE * FILE 083
OBJECT DECKS, WITH APPROPRIATE ZAP FIXES ALREADY * FILE 083
APPLIED. (FOR REFERENCE ONLY) (S.GOLOB - SEP 95) * FILE 083
* FILE 083
IS THE OBJECT DECK FOR MAPLPA (SORRY NO SOURCE) * FILE 084
* FILE 084
IS THE OBJECT DECK FOR PTXREF (SORRY NO SOURCE) * FILE 085
* FILE 085
IS THE OBJECT DECK FOR SUPERZAP (SORRY NO SOURCE) * FILE 086
* FILE 086
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
is from Brian Westerman of Syzygy Inc. of Cary, * FILE 088
North Carolina and Pismo Beach, California. * FILE 088
The following is a list of what is in the file. * FILE 088
This file is in IEBUPDTE SYSIN format. * FILE 088
* FILE 088
My new address and phone number are * FILE 088
* FILE 088
Brian Westerman * FILE 088
Director of Research & Development * FILE 088
Syzygy Incorporated Syzygy Incorporated * FILE 088
1381 Kildaire Farm Road 897 Oak Park Blvd * FILE 088
Suite 326 Suite 500 * FILE 088
Cary, NC 27511-5525 Pismo Beach, CA 93449 * FILE 088
* FILE 088
Phone:(800) 767-2244 * FILE 088
Fax: (800) 366-4082 * FILE 088
* FILE 088
email: brian_westerman@juno.com * FILE 088
brianw45@aol.com * FILE 088
* FILE 088
This is the File abstract as of 02/20/00. * FILE 088
* FILE 088
Unless otherwise noted, all programs support OS/390 V2.8 * FILE 088
and below (within reason) * FILE 088
* FILE 088
Current Operating Systems at Syzygy (we support these * FILE 088
for customer testing) * FILE 088
* FILE 088
MVS 3.8E * FILE 088
MVS/SP 1.3.6 * FILE 088
MVS/XA 2.2.3 * FILE 088
MVS/ESA 3.1 * FILE 088
MVS/ESA 4.3 * FILE 088
MVS/ESA 5.1 * FILE 088
OS/390 1.3 * FILE 088
OS/390 2.4 * FILE 088
OS/390 2.5 * FILE 088
OS/390 2.7 * FILE 088
OS/390 2.8 * FILE 088
OS/390 2.9 --- testing * FILE 088
* FILE 088
We also have various releases of VM, VM/ESA and DOS/VSE * FILE 088
but they don't apply to this file. * FILE 088
* FILE 088
The following Items have been added as of 2/20/00. * FILE 088
* FILE 088
AUTO - Automatic command and job scheduler. This code * FILE 088
was originaly on the CBT tape many years ago, but * FILE 088
stopped working when MVS/ESA V5 came out because * FILE 088
of some new ways of doing things with that version * FILE 088
of MVS. This program allows you to schedule jobs * FILE 088
or commands to run at any time of day, any day of * FILE 088
week any month of (well you get the picture). It * FILE 088
runs as a started task (time=1440) and you can use * FILE 088
it to automatically schedule anything. You can * FILE 088
also fire off anything in it's files (by time or * FILE 088
jobname) at any time. There are 2 datasets that * FILE 088
you will need to create, in the code they are * FILE 088
SYZYGY.AUTO.COMMANDS and SYZYGY.AUTO.JOBS, (you * FILE 088
should probably rename those) and the directions * FILE 088
are easy to follow and are located in the first * FILE 088
few hundred lines of hte code. We have used this * FILE 088
as our ONLY scheduling system for years, and when * FILE 088
we go to customer sites for contracts, we normally * FILE 088
set it up for our stuff and the customer typically * FILE 088
moves over to using it before we leave. It's very * FILE 088
easy to use and uses no resources. You can give * FILE 088
it a very high priority, (and probably should), we * FILE 088
have thousands of jobs and commands scheduled with * FILE 088
this guy every day, and it typically uses less * FILE 088
than 1 minute (between 25 and 45 sec) of CPU time * FILE 088
per month, (We IPL once per month wheather we need * FILE 088
to or not). You can concatonate command and/or job * FILE 088
libraries as needed so that you can have * FILE 088
production and test jobs. You can run as many * FILE 088
copies of this little address space as you want * FILE 088
for different purposes (test and production), but * FILE 088
don't forget to use different command libraries * FILE 088
because you will end up doing everything multiple * FILE 088
times if you don't remember. * FILE 088
* FILE 088
COMMANDZ - This program was originally copied from * FILE 088
the CBT tape and was originally written by John V. * FILE 088
Hooper to execute a stack of commands to automate * FILE 088
processing. I have added a slew of code to this * FILE 088
program so that now you can use it for scheduling * FILE 088
and also I have included IF/Then logic parameters. * FILE 088
The added code allows the following functions: * FILE 088
* FILE 088
IFSTARTED JOBNAME - THIS GIVES THE ABILITY TO * FILE 088
EXECUTE COMMANDS WHICH FOLLOW THIS COMMAND * FILE 088
ONLY IF THE SPECIFIED JOBNAME IS ACTIVE. THE * FILE 088
ENDIF COMMAND ENDS THE IF NEST OF COMMANDS * FILE 088
* FILE 088
IFSTOPPED JOBNAME - THIS GIVES THE ABILITY TO * FILE 088
EXECUTE COMMANDS WHICH FOLLOW THIS COMMAND * FILE 088
ONLY IF THE SPECIFIED JOBNAME IS NOT ACTIVE. * FILE 088
THE ENDIF COMMAND ENDS THE IF NEST OF COMMANDS * FILE 088
* FILE 088
WTO=TEXT - ALLOWS YOU TO ISSUE WTOS OF ANYTHING * FILE 088
YOU WANT TO SAY, UP TO 72 CHARACTERS THE * FILE 088
FORMAT IS WTO=TEXT YOU WANT TO SAY * FILE 088
* FILE 088
STOPCODE=NNNN - ALLOWS YOU TO END PROCESSING * FILE 088
AND OPTIONALLY SET A CONDITION CODE OF UP TO * FILE 088
4 NUMERIC DIGITS. * FILE 088
THE FORMAT IS STOPCODE OR STOPCODE=NNNN WHERE * FILE 088
NNNN IS FROM 1 TO 4 DIGITS, IF YOU SPECIFY MORE * FILE 088
THAN 4 DIGITS, THE NUMBERS AFTER THE 4TH WILL * FILE 088
BE IGNORED. * FILE 088
* FILE 088
SHUTDOWN - Sample command file which shows how to use * FILE 088
the new featurs of COMMANDZ to control the * FILE 088
shutdown of the system. * FILE 088
* FILE 088
NOKEEP - This is an MPF exit which will COMPLETELY * FILE 088
suppress messages from everywhere so you need to be * FILE 088
careful, if you have messages that you have * FILE 088
successfully kept from going to to console but * FILE 088
still go to syslog then this is what you need. We * FILE 088
have a large phantom network and therefore we used * FILE 088
to get over 1 million lines from VTAM/TCP about the * FILE 088
nodes that were not up. We used this little exit * FILE 088
to keep from sending those to syslog and we have * FILE 088
saved ourseleves a lot of time and it make looking * FILE 088
for problems easier because you don't have to * FILE 088
search around the useless messages in syslog. * FILE 088
* FILE 088
REDMSG - This program was also originally from the CBT * FILE 088
Tape, and was changed somewhat. It allows you to * FILE 088
display a message on the console if the preceding * FILE 088
step had a non-zero return code. * FILE 088
* FILE 088
SLSUX06 - Storage Tek Silo Exit 6. This code has also been * FILE 088
given to STK as of 1/99 and will be distributed by * FILE 088
them, but since I wrote it, I wanted to put it here * FILE 088
as well. This exit gets invoked on cartridge * FILE 088
insert/eject processing. We had a problem whereby * FILE 088
when the operators printed the CA-1 scratch pick * FILE 088
list, they didn't know which tapes were already in * FILE 088
the silo and which ones were outside (and available * FILE 088
to be picked). This exit was already being used to * FILE 088
flag tapes as scratch as soon as they were entered, * FILE 088
(the one that STK has in their book and on the * FILE 088
sample tapes does not work), so I changed it so that * FILE 088
the tapes are now flagged as in or out of the silo. * FILE 088
I had a talk with Computer Associates and they were * FILE 088
nice enough to designate a flag which shows in or * FILE 088
out of the silo, you can even show which silo it's * FILE 088
in, (if you have more than 1) with this code. It * FILE 088
allows a lot of flexibility and has saved us the * FILE 088
cost of a lot of operator overtime. They also get * FILE 088
less upset about who has to pick tapes now! * FILE 088
* FILE 088
SYZYGYEJ - This program will take the output from a * FILE 088
TMSGRW run and create SLUADMIN input to eject the * FILE 088
tapes. This is a follow on to the STK exit 6 * FILE 088
previously outlined. The member SYZYGYE$ is the * FILE 088
JCL for this program. * FILE 088
* FILE 088
SYZYGYVR - This program will produce a VERY fast scratch * FILE 088
listing and it is in a format which lends itself * FILE 088
very nicely to multi columnizing with SAS for the * FILE 088
operators to pick tapes from. * FILE 088
* FILE 088
MULTICOL - Small SAS program from somewhere that * FILE 088
demonstrates the multi column stuff for the * FILE 088
SYZYGYVR program. * FILE 088
* FILE 088
SYZREORG - Program which will greatly increase the speed * FILE 088
of load/unload/reorg jobs for VSAM KSDS datasets. * FILE 088
The buffers are altered automatically by the job * FILE 088
which tends to increase the speed of the job by a * FILE 088
great deal. You can also do this by changing the * FILE 088
JCL, but this is easier. * FILE 088
* FILE 088
The following files are also in this dataset: * FILE 088
* FILE 088
CATLIST - EXEC TO READ CATALOG AND CREATE A COMPLETE * FILE 088
IDCAMS EXPORT JCL TO BACKUP ALL CATALOGS IN * FILE 088
THE SYSTEM. ANY TIME YOU CREATE A NEW * FILE 088
CATALOG, (OR DELETE ONE) ALL YOU NEED TO DO * FILE 088
IS RUN THE SYSBLD00 JOB WHICH EXECUTES THIS * FILE 088
EXEC AND WILL BUILD A SYSCATBK JOBSTREAM. * FILE 088
(ONE IS INCLUDED HERE AS WELL) * FILE 088
* FILE 088
EX8 - OS/390 COMPATABLE EXIT 8 FOR SENDING JOB END * FILE 088
MAX COND CODE. (SEE EXIT08 STUFF BELOW) * FILE 088
* FILE 088
EX16 - OS/390 COMPATABLE EXIT 16 FOR SENDING JOB END * FILE 088
MAX COND CODE. (SEE EXIT16 STUFF BELOW) * FILE 088
* FILE 088
EXIT004 - JCL SCAN EXIT (4) TO MAKE /** CARD A COMMENT * FILE 088
(WE HAVE SOME PRETTY DUMB USERS, AND TO MAKE * FILE 088
THE /*NOSETUP CARD A COMMENT SINCE WE USED TO * FILE 088
REQUIRE EITHER A SETUP OR A NOSETUP IN THE * FILE 088
PAST WE HAD TO AT LEAST IGNORE IT UNTIL OUR * FILE 088
USERS CHANGED ALL OF THERE JCL (IT'S BEEN OVER * FILE 088
A YEAR NOW AND THEY STILL SAY THAT THEY ARE * FILE 088
WORKING ON IT!!!) * FILE 088
* FILE 088
EXIT010 - NOTIFY EXIT (10) TO SEND THE JOB ENDED NOTIFY * FILE 088
MESSAGE TO WYLBUR USERS WHO SUBMIT JOBS, IT * FILE 088
LOOKS FOR A NOTIFY MESSAGE FOR A WYLBUR USER * FILE 088
AND REFORMATS IT INTO A F WYLBUR,TO XXXXXX * FILE 088
AND THEN THE MESSAGE TEXT. * FILE 088
* FILE 088
EXITP20 - END OF JOB INPUT EXIT (20) WHICH WILL CAUSE A * FILE 088
JOB TO BE ROUTED TO ANOTHER CPU IN A MULTI * FILE 088
ACCESS SPOOL COMPLEX AUTOMATICALLY WITHOUT * FILE 088
MAKING THE USER TYPE IN THE /*ROUTE STUFF * FILE 088
* FILE 088
EXIT020 - END OF JOB INPUT EXIT (20) WHICH CHECKS THE * FILE 088
JCT OF THE JOB ALSO THE JCL TO SE IF THE GUY * FILE 088
ASKED FOR A SPECIAL PRIORITY AND IF SO HE WILL * FILE 088
ISSUE A MESSAGE TO THE OPERATOR WHICH WILL BE * FILE 088
HIGHLIGHTED AND NOT ROLL OFF THE SCREEN WHICH * FILE 088
TELLS HIM THAT A SPECIAL PRIORITY JOB WAS * FILE 088
SUBMITTED. * FILE 088
* FILE 088
EX05... - 3 JES2 COMMAND EXITS (5) WHICH WILL DO * FILE 088
VARIOUS THINGS LIKE NOT ALLOW THE OPERATOR TO * FILE 088
PURGE THE ENTIRE QUEUE AND WILL DISPLAY JOB * FILE 088
SETUPS WITH A COMMAND. * FILE 088
* FILE 088
EX005UD - JES2 EXIT(5) WHICH WILL GIVE YOU THE $UNDUMP * FILE 088
COMMAND THIS ALLOWS YOU TO UNDO EVERTHING * FILE 088
THAT YOU HAVE DONE WITH THE $DUMP COMMAND, SO * FILE 088
THAT YOU DON'T HAVE TO DUMP AND RELOAD * FILE 088
EVERTHING JUST BECAUSE YOU FORGOT A PARAMETER * FILE 088
ON YOUR $DUMP COMMAND. * FILE 088
* FILE 088
JX05 - JES 2.2.0 VERSION OF THE ABOVE EX05... STUFF * FILE 088
* FILE 088
J005$DV - JES 2.2.0 $DV COMMAND TO DISPLAY DASD VOLUMES * FILE 088
FROM JES2 * FILE 088
* FILE 088
J005LOAD- JES 2.2.0 $LOAD COMMAND TO LOAD NEW COPIES OF * FILE 088
EXITS * FILE 088
* FILE 088
EXIT008 - JCT WRITE EXIT FOR JES2 EXIT(8) WHICH WILL * FILE 088
PUT THE CONDITION CODE OF THE JOB STEP INTO * FILE 088
THE JCT IF IT IS GREATER THAN WHAT IS ALREADY * FILE 088
THERE. THIS EXIT WORKS IN CONJUNCTION WITH * FILE 088
EXIT016 AND EXIT008 MUST BE IN LPALIB. IT IS * FILE 088
VERY SMALL SO THERE IS LITTLE WORRY ABOUT * FILE 088
PUTTING IT THERE. * FILE 088
* FILE 088
JX08 - MVS/XA 2.2.0 VERSION OF EXIT008 ABOVE * FILE 088
* FILE 088
EXIT016 - THIS JES EXIT(16) GETS INVOKED AT JOB * FILE 088
TERMINATION AND WILL TAKE THE DATA PLACED IN * FILE 088
THE JCT BY EXIT8 AND FORMAT A NOTIFY MESSAGE * FILE 088
FOR TSO USERS AS TO THE MAX CONDITION CODE OF * FILE 088
THE STEP AS WELL AS WHETHER IT ABENDED OR NOT * FILE 088
WITH EITHER A SYSTEM OR USER ABEND. THE USERS * FILE 088
ARE VERY PLEASED. * FILE 088
* FILE 088
JX16 - JES 2.2.0 VERSION OF THE ABOVE EXIT016 * FILE 088
* FILE 088
EXIT212 - THIS JES EXIT(212) IS A DUMPER/LOADER EXIT * FILE 088
WHICH ALLOWS YOU TO DYNAMICALLY ALLOCATE THE * FILE 088
DUMPER/LOADER TAPE DSN INSTEAD OF ALWAYS * FILE 088
HAVING TO HAVE A PRE-ALLOCATED TAPE DSN. * FILE 088
THIS HAS SOLVED ALOT OF HEADACHES FOR THE * FILE 088
OPERATIONS STAFF ... AND ME. THIS REQUIRES * FILE 088
THE PRCJ2212 USERMOD TO JES. ALL THE MOD * FILE 088
DOES IS ADD THE $EXIT POINT INTO HASPSTAM. * FILE 088
* FILE 088
EX99 ---- PROGRAM USED BY PRCM0005 SYSMOD * FILE 088
* FILE 088
FINDASCB- PROGRAM INDEXES THROUGH ASVT AND WILL LOCATE * FILE 088
A JOB OR ADDRESS SPACE WHO'S NAME MATCHES WHAT * FILE 088
YOU PUT IN REG1. * FILE 088
* FILE 088
GETINFO - PROGRAM ORIGINALLY FROM NTL BUT HAS SOME * FILE 088
MINOR CHANGES AND ALSO HAS BEEN CHANGED TO * FILE 088
RUN ON A MVS/SP SYSTEM INSTEAD OF OR I SHOULD * FILE 088
SAY AS WELL AS MVS/XA. * FILE 088
* FILE 088
IEFACTRT- THIS IS PRETTY STANDARD STUFF EXCEPT THAT IT * FILE 088
UPDATES THE JOBS OUTPUT RESOLUTION MESSAGE * FILE 088
AREA WITH WHAT WE LIKE TO CALL "BOX SCORES". * FILE 088
THIS IS SIMILAR TO WHAT IBM'S FREEBEE DOES * FILE 088
BUT PUTS IT IN A BETTER PLACE. YOU MAY WANT * FILE 088
TO CHANGE SOME CODE SINCE WE ALSO DO A COUPLE * FILE 088
OF CALCULATIONS TO TELL THE USER APPROXIMATELY * FILE 088
WHAT THE JOB COST TO RUN. THE CHARGE CODE IS * FILE 088
VERY SIMPLE SO NO ONE SHOULD HAVE ANY * FILE 088
PROBLEMS. * FILE 088
* FILE 088
JES215MD- TWO MODS TO JES 2.1.5 THE FIRST IS TO HASPSSSM * FILE 088
TO PUT THE DATE ON THE INITIATOR STARTED * FILE 088
MESSAGE $HASP373 THE SECOND MOD IS TO HASPCOMM * FILE 088
IT ALLOWS THE $D'JOBNAME COMMAND TO ACT AS A * FILE 088
GENERIC JOBNAME DISPLAY IE. IF YOU ENTERED * FILE 088
$D'IMS , YOU WOULD GET A LIST OF ALL JOBS IN * FILE 088
ALL QUEUES WHO'S PREFIX MATCHED THE LETTERS * FILE 088
"IMS". OPERATORS LIKE IT A LOT. * FILE 088
* FILE 088
MCS ---- A VERY UNIQUE SPY COMMAND FROM ONE OF THE PRC * FILE 088
SUBSIDIARIES. I'M NOT SURE WHICH ONE, BUT I * FILE 088
LIKE THE CODE. * FILE 088
* FILE 088
MINIGEN - THE GOOD OLD MINIGEN, WE HAVE USED IT FOR * FILE 088
YEARS AND CONTRARY TO POPULAR BELIEF IT CAN BE * FILE 088
USED EVEN IF YOU ARE ADDING A NEW DEVICE TYPE. * FILE 088
THE BEST WAY TO USE THIS GUY IS TO BROWSE YOUR * FILE 088
STAGE1 OUTPUT AND FIND ALL OCCURRENCES OF " * FILE 088
EXEC ASMS" THE MOD=XXXXXXX PARAMETER ON EACH * FILE 088
ONE OF THESE GUYS SHOULD BE PUT IN THE ASSEM ( * FILE 088
SECTION OF THE MINIGEN. THIS IS A HELL OF A * FILE 088
LOT SAFER THAN A IOGEN AND THIS WAY WE NEVER * FILE 088
LOSE ANY USERMODS * FILE 088
* FILE 088
PANBKPRT- THIS GUY WILL TAKE A PANVALET BACKUP TAPE AND * FILE 088
CREATE A LISTING OF WHAT PROGRAMS AND VERSIONS * FILE 088
AND SIZE AND ALL IS ON THE TAPE. JUST AS IF IT * FILE 088
WERE STILL ON DISK. THIS WAY YOU DONT HAVE TO * FILE 088
RESTORE THE WHOLE TAPE DOWN JUST TO FIND * FILE 088
SOMTHING THAT YOU DON'T REALLY KNOW THE NAME * FILE 088
OF OR EVEN GUESS AT. * FILE 088
* FILE 088
POSTER -- DOES WHAT IT SAYS, CREATES POSTERS-BANNERS. * FILE 088
* FILE 088
PRCJ2001- JES2/SP 1.3.4 MOD TO ALLOW GENERIC $D'XXX' FOR * FILE 088
PARTIAL JOBNAMES. * FILE 088
* FILE 088
PRCJ2004- JES2/SP 1.3.4 MOD TO MAKE THE DEFAULT TSU AND * FILE 088
STC MESSAGE CLASS A FOR JOBS THAT THEY SUBMIT. * FILE 088
THIS ALLOWS YOU TO STILL SET THE &STCMCLAS AND * FILE 088
&TSUMCLAS TO A DELETE CLASS TO KEEP FROM * FILE 088
GETTING ALL OF THE USELESS JCL AND STILL NOT * FILE 088
HAVE TO PUT A MSGCLASS= PARM ON ALL JOBCARDS. * FILE 088
YOU DON'T NEED THIS IF YOU HAVE TSO/E FOR TSO * FILE 088
BUT WE DON'T HAVE THE MONEY TO THROW AWAY ON * FILE 088
THAT KIND OF PRODUCT AND WE ALSO HAVE A COUPLE * FILE 088
OF STC'S THAT SUBMIT JOBS AND THIS HAS BEEN * FILE 088
INDISPENSABLE. * FILE 088
* FILE 088
PRCJ2212- JES2/SP 1.3.4 MOD TO ADD $EXIT 212 TO * FILE 088
HASPSTAM FOR DYNAMIC DUMPER/LOADER DSN'S. * FILE 088
* FILE 088
PRCM0001- SET IEALIMIT TO NOT GIVE ANY EXTRA MEMORY. * FILE 088
IN MOST SHOPS POEPLE DON'T CARE ABOUT GIVING * FILE 088
A JOB A LITTLE EXTRA, BUT OUR ACCOUNTING * FILE 088
SYSTEM IS MEMORY INTENSIVE SO WE CAN'T ALLOW * FILE 088
JOBS TO GET ANY MORE THAN THEY ASK FOR. * FILE 088
* FILE 088
PRCM0002- THIS MOD WILL ALLOW DEFAULT TSO DYNAMIC * FILE 088
ALLOCATION TO BE SHR INSTEAD OF OLD. THIS IS * FILE 088
FOR NON-TSO/E SYSTEMS, IF YOU HAVE TSO/E * FILE 088
THERE IS ALREADY ANOTHER MOD ON THE CBT TAPE * FILE 088
FOR THIS SAME TYPE OF THING. BUT IT IS ALOT * FILE 088
BIGGER. I GUESS THAT'S BECAUSE YOU HAVE TO * FILE 088
ACTUALLY PAY FOR TSO/E. * FILE 088
* FILE 088
PRCM0003- THIS MOD MUST BE APPLIED WITH THE PRCM0004 MOD * FILE 088
PRCM0004- WHICH IS ON THIS SAME FILE. THE FIRST ONE IS A * FILE 088
DUMMY MOD SO THAT I WILL BE INFORMED IF THERE * FILE 088
IS ANY MAINTENANCE THAT EFFECTS THIS MOD BEFORE * FILE 088
ITS TOO LATE. YOU DON'T NEED TO PUT IT ON IF * FILE 088
YOU DON'T WANT TO. THIS MOD WILL PUT THE EXCP * FILE 088
COUNTS ON THE IEF285I MESSAGE THAT COMES OUT ON * FILE 088
YOUR JOB LISTING IE. * FILE 088
* FILE 088
IEF285I C7BRIAN.VTOC.LOAD KEPT 2123 EXCP * FILE 088
IEF285I DATASET.NAME KEPT 0 EXCP * FILE 088
* FILE 088
PRCM0005- MOD TO ALLOW YOU TO HAVE TSO DEFAULT ALLOCATE * FILE 088
TO PACKS THAT ARE NOT MOUNTED AS PUBLIC OR * FILE 088
STORAGE. IT COMES WITH A PROGRAM CALLED EX99 * FILE 088
WHICH IS THE ACTUAL PCF EXIT THAT IS USED. * FILE 088
YOU DO NOT HAVE TO HAVE PCF TO USE THIS MOD. * FILE 088
WE DON'T HAVE IT AND WE RUN FINE. YOU CAN * FILE 088
SET THE ATTR2 FIELD IN THE PSCB TO ANY VOLUME * FILE 088
THAT YOU WANT OR YOU CAN USE THE SETVOL * FILE 088
PROGRAM ON THIS FILE TO DO IT FOR YOU * FILE 088
AUTOMATICALLY * FILE 088
* FILE 088
PRCM0010- THIS MOD WILL ELIMINATE THE DATASET NOT * FILE 088
FREED; IS NOT ALLOCATED MESSAGE. FROM THE TSO * FILE 088
ALLOC COMMAND. * FILE 088
* FILE 088
PRCM0017- THIS MOD WILL ELIMINATE THE CN(00) BEING * FILE 088
APPEND TO MESSAGES FROM THE OPERATOR AND ON * FILE 088
THE NOTIFY OF JOB ENDED STUFF. * FILE 088
* FILE 088
TALK ---- CLIST TO DO ISPF FULL SCREEN SENDS TO PEOPLE * FILE 088
* FILE 088
TALKP---- PANEL TO USE WITH THE TALK CLIST (PUT IT IN * FILE 088
ISPPLIB CONCAT) * FILE 088
* FILE 088
ULX..---- ISPF BASED VTOC ANALYSIS AND REPORTING * FILE 088
FACILITY * FILE 088
* FILE 088
USAGE - TSO COMMAND TO DISPLAY SESSION COST. * FILE 088
* FILE 088
WAITPROG- RUNS AS A BATHC JOB AND WILL ACCEPT A PARM * FILE 088
THAT HAS THE NUMBER OF SECONDS THAT YOU WOULD * FILE 088
LIKE TO WAIT AND DISPLAYS IT ON THE OS * FILE 088
CONSOLE FOR THE OPERATOR IT HIGHLIGHTS IT AND * FILE 088
WILL NOT ROLL OFF THE SCREEN. WHEN THE TIME * FILE 088
EXPIRES IT WILL ISSUE A DOM TO DELETE THE * FILE 088
MESSAGE AND PUT OUT A REGULAR MESSAGE ABOUT * FILE 088
REQUESTED TIME EXPIRED. THE JOBNAME IS ALSO * FILE 088
PUT IN BOTH MESSAGES. * FILE 088
* FILE 088
XJ2PTP -- THIS IS A JES 2.1.5 EXIT TO DRAIN ALL OF THE * FILE 088
TP LINES IN THE NETWORK WITH A SINGLE COMMAND * FILE 088
$PTP. IT IS EXTREMELY USEFULL EVEN IF YOU * FILE 088
DON'T HAVE OVER 600 LINES LIKE US. YOU CAN * FILE 088
ALSO START ALL TP WITH $STP OR RESTART WITH * FILE 088
$ETP TO ACCOMPLISH A LOT OF WORK QUICKLY. * FILE 088
* FILE 088
XJ2NET -- THIS IS A JES2 EXIT13 WHICH IS REQUIRED IF * FILE 088
YOU WANT TO NOTIFY A TSO USER WHEN DATA IS * FILE 088
RECEIVED FROM ANOTHER JES NODE. IT ADDS SOME * FILE 088
NEAT STUFF LIKE HOW MANY LINES AND SUCH. * FILE 088
* FILE 088
IEFUJV -- SMF UJV EXIT TO FORCE STANDARDS FOR MVS/XA * FILE 088
2.2.0 * FILE 088
* FILE 088
ITACCTBL- TABLE USED BY THE MVS 2.2.0 VERSION OF IEFUJV * FILE 088
FOR ACCOUNT #S * FILE 088
* FILE 088
IEFUTL - MVS/XA 2.2.0 SMF UTL EXIT * FILE 088
* FILE 088
IEFU29 - MVS/XA 2.2.0 SMF U29 EXIT * FILE 088
* FILE 088
IEFU83 - MVS/XA 2.2.0 SMF U83 EXIT * FILE 088
* FILE 088
IGGPRE00- MVS/XA 2.2.0 DADSM IGGPRE00 EXIT. THIS EXIT * FILE 088
USES 2 TABLES TSOTABL AND NODTABL WHICH ARE * FILE 088
LOADED DYNAMICALLY AND CAN BE CHANGED ON THE * FILE 088
FLY. THIS EXIT WILL ALLOW STUFF TO BE * FILE 088
ALLOCATED OR RENAMED ONLY TO THE PACKS WHICH * FILE 088
WE DECIDE SHOULD GET THE PREFIXES. THIS EXIT * FILE 088
IS VERY POWERFUL AND IS EXTREMELY VERSATILE. * FILE 088
THIS EXIT REQUIRES THE MACROS CONNECT, * FILE 088
EQUREGS, RELEASE, SETAMODE WHICH ARE ALSO * FILE 088
INCLUDED IN THIS DATASET. * FILE 088
* FILE 088
NODTAB22- MVS/XA 2.2.0 VERSION OF THE NODETABLE FOR THE * FILE 088
IGGPRE00 EXIT. THIS ONE GOES IN LINKLIST. * FILE 088
* FILE 088
TSOTAB22- MVS/XA 2.2.0 VERSION OF THE TSO UID TABLE FOR * FILE 088
THE IGGPRE00 EXIT. THIS ONE GOES IN LINKLIST. * FILE 088
* FILE 088
Good Luck! * FILE 088
* FILE 088
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
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
IS FROM JIM MARSHALL, FORMERLY OF THE US AIR FORCE. * FILE 091
* FILE 091
JIM HAS RETIRED FROM THE AIR FORCE. HIS ADDRESS IS: * FILE 091
* FILE 091
JIM MARSHALL, US TREASURY * FILE 091
FINANCIAL MANAGEMENT SERVICE * FILE 091
PRINCE GEORGES PLAZA II - ROOM 400B * FILE 091
3700 EAST-WEST HIGHWAY * FILE 091
HYATTSVILLE, MD 20782 * FILE 091
202-874-8353 * FILE 091
* FILE 091
THIS IS A FILE OF THE JCL PROCEDURES FOR * FILE 091
USE WITH FILE 092, WHICH IS THE PL1/F COMPILER. * FILE 091
ALSO INCLUDED NOW ARE PROCEDURES FOR FORTRAN * FILE 091
(IN FILE 326), RPG (IN FILE 327), AND ALGOL * FILE 091
(IN FILE 176). THERE ARE SOME OTHER PROCEDURES * FILE 091
FROM THE MVT (OS RELEASE 21.8) PROCLIB. THE * FILE 091
ENTIRE PROCLIB MAY BE FOUND ON THE CBT OVERFLOW * FILE 091
TAPE (FILE 081 THERE). THE ENTIRE SYS1.SAMPLIB * FILE 091
MAY BE FOUND ON THE CBT OVERFLOW TAPE, FILE 079 * FILE 091
THERE. * FILE 091
* FILE 091
PL1L**** - THESE ARE PROCEDURES FOR PL1F. THE * FILE 091
LIBRARY FOR PL1/F IS IN FILE 092. * FILE 091
* FILE 091
FORTG*** - THESE ARE PROCEDURES FOR FORTRAN G AND * FILE 091
FORTH*** H. THE LIBRARY FOR FORTRAN G AND H IS * FILE 091
IN FILE 326. * FILE 091
* FILE 091
RPG**** - THESE ARE THE PROCEDURES FOR RPG/F * FILE 091
THE LIBRARY FOR RPG IS IN FILE 327. * FILE 091
* FILE 091
ALGO**** - THESE ARE THE PROCEDURES FOR ALGOL * FILE 091
THE LIBRARY FOR ALGOL IS IN FILE 176. * FILE 091
* FILE 091
NOTES: YOU CAN FIND OUT ALL THE DEFAULTS BY * FILE 091
EXECUTING THE COMPILERS WITH A PARM= * FILE 091
AND LOOK AT WHAT IS SET. * FILE 091
* FILE 091
IS FROM JIM MARSHALL, FORMERLY OF THE US AIR FORCE. * FILE 092
* FILE 092
THIS FILE CONTAINS THE COMPILER AND LIBRARY FOR * FILE 092
PL1/F. * FILE 092
* FILE 092
THIS COPY OF THE PLI/F COMPILER AND LIBRARY WAS * FILE 092
RE-LINKEDITED BY LARRY WILLIAMS, TO ALLOW IT TO * FILE 092
RUN ON AN MVS/XA OR MVS/ESA SYSTEM, HOPEFULLY * FILE 092
WITHOUT THE ABENDS EXPERIENCED WHEN THE ORIGINAL * FILE 092
LOAD MODULES WERE RUN ON XA. * FILE 092
* FILE 092
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
is from Michael Cleary, and contains a copy of * FILE 094
DAF (Dataset Audit Facility). This file is in * FILE 094
IEBUPDTE SYSIN format. * FILE 094
* FILE 094
MIKE CLEARY HAS A NEW ADDRESS: * FILE 094
* FILE 094
email: mcleary@pacbell.net * FILE 094
* FILE 094
Contact: Michael J. Cleary * FILE 094
Mainframe Technical Services * FILE 094
Bergen Brunswig * FILE 094
4000 Metropolitan Drive * FILE 094
Orange, California 92868 * FILE 094
Voice: 714.385.4052 * FILE 094
Fax 714.704.7052 * FILE 094
Email: mike.cleary@bergenbrunswig.com * FILE 094
* FILE 094
THE CURRENT VERSION OF DAF IS WRITTEN IN ASSEMBLER. * FILE 094
* FILE 094
DOCUMEMTATION IS INCLUDED IN THE CODE, AND I WILL * FILE 094
INCLUDE MORE DOCUMENTATION OF THE BAL VERSION IF IT * FILE 094
BECOMES AVAILABLE. * FILE 094
* FILE 094
The PL/I version of DAF, V1.3, is also included * FILE 094
here, as member OLDDAF, with its documentation * FILE 094
included. * FILE 094
* FILE 094
DAF IS A BATCH UTILITY PROGRAM THAT READS SMF * FILE 094
RECORDS AND GENERATES A REPORT. * FILE 094
* FILE 094
THE FOLLOWING CONTROL RECORDS CAN BE USED TO MODIFY * FILE 094
THE SELECTION CRITERIA. * FILE 094
* FILE 094
DDN= DEFAULT: ALL DDNAMES <### NOTE: * FILE 094
EACH TYPE OF * FILE 094
DSN= DEFAULT: ALL DATASETS <### CONTROL * FILE 094
RECORD CAN OCCUR * FILE 094
JOB= DEFAULT: ALL JOBS <### BETWEEN 0 AND * FILE 094
32 TIMES. * FILE 094
VOL= DEFAULT: ALL VOLUMES <### * FILE 094
* FILE 094
SD=YYDDD DEFAULT: START DATE 86001 * FILE 094
ED=YYDDD DEFAULT: END DATE 99365 * FILE 094
* FILE 094
DAF CAN SOLVE MANY COMMON MYSTERIES BY SHOWING: * FILE 094
* FILE 094
DATASET CREATE, ACCESS, RENAME, DELETE * FILE 094
HOW MANY EXCPS ? * FILE 094
WHAT DDNAME ? * FILE 094
WHAT JOB ? * FILE 094
WHAT TIME ? * FILE 094
WHAT VOLUME ? * FILE 094
* FILE 094
DAF CAN SOLVE SOME UNIQUE MYSTERIES BY SHOWING: * FILE 094
* FILE 094
WHAT VOLUMES DOES AN APPLICATION USE ? * FILE 094
WAS A CERTAIN DATASET USED LAST WEEKEND ? * FILE 094
* FILE 094
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
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
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
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
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
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
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
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 or sbgolob@aol.com * FILE 102
* FILE 102
ABSTRACT - A PROGRAM TO PROVIDE AN OVERVIEW OF THE * FILE 102
DATA SETS ON A TAPE, COPY FILES AND * FILE 102
RECOVER DATA PAST THE FIRST END OF * FILE 102
VOLUME INDICATOR. INFORMATION PRESENTED * FILE 102
INCLUDES RECORD AND BYTE COUNT, LENGTH * FILE 102
ESTIMATE, DISPLAY OF THE FIRST 100 BYTES * FILE 102
OF THE FIRST FOUR RECORDS OF EACH DATA * FILE 102
SET, AND THE PHYSICAL TAPE FILE NUMBER. * FILE 102
* FILE 102
WARNINGS - WHEN DATA IS RECOVERED PAST THE END OF * FILE 102
VOLUME INDICATOR, THE FIRST RECORD MAY * FILE 102
HAVE BEEN TRUNCATED. IF ACCEPTED, IT * FILE 102
MAY LEAD TO PROBLEMS EVEN AFTER IT IS * FILE 102
COPIED. WHEN COPYING DATA SETS FROM A * FILE 102
STANDARD LABEL TAPE, THE DATA SET * FILE 102
SEQUENCE NUMBER STORED IN THE HEADER * FILE 102
RECORD ISN'T CHANGED. THIS HAS CAUSED * FILE 102
NO PROBLEMS SO FAR, BUT IS NOT SUPPORTED * FILE 102
BY IBM. SOME OPERATIONS OF THIS PROGRAM * FILE 102
ARE BASED ON THE NUMBER OF TAPE MARKS * FILE 102
ENCOUNTERED. * FILE 102
* FILE 102
TAPESCAN'S REPORTING HAS NOW (VERSION 5.2) BEEN * FILE 102
IMPROVED WHEN READING CARTRIDGES. I AM ALSO * FILE 102
INCLUDING THE OLDER VERSION (4.6A), JUST IN CASE. * FILE 102
VERSION 4.6A CAN READ CARTRIDGES, BUT REPORTS * FILE 102
THE FOOTAGES AS IF 6250 BPI TAPES. * FILE 102
* FILE 102
ABOUT TAPESCAN VERSION 5.2 - * FILE 102
* FILE 102
I've now included my 64K fix to Frank Pajerski's update * FILE 102
to Howard Dean's version of TAPESCAN. This version has * FILE 102
better 3480 support, and I also improved the report line * FILE 102
if you mounted a tape with a different VOLSER than the JCL * FILE 102
said. The report now shows both VOLSERs, so you can see * FILE 102
them. This version is called TAPESCAN Version 5.2. * FILE 102
Old Version 4.6 is being included for reference, and it * FILE 102
has also been fixed to show the JCL VOLSER and the internal * FILE 102
VOLSER that is on the VOL1 label of the tape, if they are * FILE 102
different. (SG 06/00) * FILE 102
* FILE 102
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
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
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
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
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
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
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
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
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
IS THE SOURCE FOR THE TSO COMMAND PROMPTER CALLED * FILE 112
VTOC. THIS FILE IS IN IEBUPDTE FORM. THIS COMMAND * FILE 112
ALLOWS YOU TO SEARCH THE VOLUME TABLE OF CONTENTS OF * FILE 112
ONE OR MORE DISK VOLUMES AND OBTAIN LISTINGS OR TOTALS * FILE 112
OF DATA SETS MEETING SOME CRITERIA. THE SPECIFICATION * FILE 112
IS QUITE FLEXIBLE. THIS FILE ALSO CONTAINS THE HELP * FILE 112
DATA SET FOR THIS COMMAND. IT ALSO CONTAINS * FILE 112
INSTALLATION NOTES, SOME COMMENTS ON DEFAULTS THAT MAY* FILE 112
NOT BE TYPICAL ELSEWHERE, A LIST OF THE KNOWN ERRORS * FILE 112
IN THE COMMAND, AND IDEAS FOR FUTURE EXPANSION. * FILE 112
THIS VERSION SUPPORTS SU60, CATALOG DATASETS AND THE * FILE 112
ABILITY TO SORT THE OUTPUT ON ANYTHING. FOR ADDITIONAL* FILE 112
CHANGES SEE THE HELP MEMBER OF THE PDS. * FILE 112
THIS VERSION WILL RUN ON A SYSTEM THAT DOES NOT HAVE * FILE 112
SU60 INSTALLED, HOWEVER IF YOU TRY TO ASSEMBLE * FILE 112
ON A SYSTEMS THAT DOES NOT HAVE SU60 MACROS YOU WILL * FILE 112
GET ASSEMBLE ERRORS. YOU CAN GO IN AND JUST NO OP * FILE 112
THOSE INSTRUCTIONS. ITS LOAD MODULE IS IN FILE 035 * FILE 112
AND IS CALLED VTOC. * FILE 112
* FILE 112
VTOC IS CALLED BY A SUBCOMMAND OF PDS VERSION 8.5 * FILE 112
FROM FILE 182. IF YOU HAVE INSTALLED PDS VERSION 8.5 * FILE 112
YOU SHOULD ALSO INSTALL VTOC. * FILE 112
* FILE 112
IF YOU INSTALL PDS VERSION 8.5, SEE THE NOTES IN * FILE 112
THIS FILE AS TO WHICH VERSION OF THE VTOCPRNT MODULE * FILE 112
YOU SHOULD ASSEMBLE AND LINKEDIT INTO THIS COMMAND. * FILE 112
* FILE 112
BUGS FIXED, AND SUPPORT ADDED FOR 3990 MODEL 9. * FILE 112
YOU SHOULD RE-INSTALL VTOC. (UPDATED 08-94) * FILE 112
FIXED FOR MVS/ESA 5.1. (UPDATED 07-95) * FILE 112
FIXED FOR Y2K SUPPORT. (UPDATED 12-97) * FILE 112
David Spiegel fixes - dyn UCBs (UPDATED 05-99) * FILE 112
John Hooper fixes (UPDATED 07-99) * FILE 112
* FILE 112
(Thanks also to Seymour Metz.) * FILE 112
* FILE 112
**************************************************** * FILE 112
* IT APPEARS THAT THERE ARE ADDITIONAL MACROS * * FILE 112
* THAT ARE MISSING FROM THIS FILE THIS IS IN FACT * * FILE 112
* NOT TRUE. WHAT APPEARS TO BE OTHER MACROS WERE * * FILE 112
* JUST AN IDEA AND THOSE MACROS WERE NEVER * * FILE 112
* WRITTEN. I KNOW ! I SPENT WEEKS TRYING TO TRACK * * FILE 112
* THEM DOWN. * * FILE 112
* ARNIE * * FILE 112
**************************************************** * FILE 112
* FILE 112
KEYWORDS TSO CP COMMAND PROCESSOR VTOC COMMAND * FILE 112
* FILE 112
Note: The VTOC command processor is called by the LISTV * FILE 112
subcommand of PDS Version 8.x (see File 182). * FILE 112
If you're installing PDS, then it is very helpful * FILE 112
to also install VTOC. * FILE 112
* FILE 112
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
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
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
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
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
IS FROM SAM GOLOB. THIS FILE IS IN IEBUPDTE SYSIN * FILE 118
FORMAT. FOR ADDITIONAL INFORMATION SEE THE MEMBER * FILE 118
CALLED $$NEWDOC * FILE 118
* FILE 118
Jerry Lawson's email: jlawson@thehartford.com * FILE 118
* FILE 118
Sam Golob's email: sbgolob@attglobal.net OR * FILE 118
sbgolob@aol.com * FILE 118
* FILE 118
NOTE: COBOL PROGRAMS WERE UPDATED FOR LE/370 * FILE 118
AND COMPILE-LINK JOBS ARE NOW INCLUDED. * FILE 118
* FILE 118
THIS FILE, WHICH CONSISTS OF SEVERAL PROGRAMS * FILE 118
AND SAMPLE JCL, ALLOWS THE SYSTEMS PROGRAMMER * FILE 118
TO PRE-VIEW AND INDEX, AND THOROUGHLY KEEP * FILE 118
TRACK OF HIS SMPPTFIN-FORMAT TAPES BEFORE SMP/E * FILE 118
HAS A CHANCE TO LOOK AT THEM. ANY TAPE OR DISK * FILE 118
SMPPTFIN FILE CAN GET THIS TREATMENT. FULL * FILE 118
FORFMID CAPABILITY IS PROVIDED, EXTERNAL TO * FILE 118
SMP/E. SINCE THIS PROCESSING HAS NOTHING TO DO * FILE 118
WITH SMP/E, IT IS COMPLETELY RELEASE-INDEPENDENT, * FILE 118
AND CAN BE USED WITH ANY SMPPTFIN-FORMAT FILE * FILE 118
REGARDLESS OF SMP RELEASE (STARTING WITH SMP4 * FILE 118
AND THROUGH ALL RELEASES OF SMP/E.) * FILE 118
* FILE 118
THE CORE OF THIS FILE IS THE PUTXREF PROGRAM * FILE 118
FROM JERRY LAWSON OF THE HARTFORD INSURANCE * FILE 118
GROUP, WHICH WAS SOMEWHAT MODIFIED BY ME. THIS * FILE 118
PROGRAM SORTS ALL SYSMODS IN A SMPPTFIN FILE BY * FILE 118
OWNING FMID. THE OUTPUT OF JERRY'S PUTXREF * FILE 118
PROGRAM IS A REPORT SHOWING THE FMID NAME AND * FILE 118
THE SYSMODS BELONGING TO IT LISTED AFTERWARDS. * FILE 118
(SEE FILE 033 OF THE CBT TAPE FOR ANOTHER * FILE 118
MODIFICATION OF PUTXREF, WHICH ALLOWS * FILE 118
SELECTIVITY BY FMID AND OTHER CRITERIA. THAT * FILE 118
ONE IS BY GENE CRAY OF THE NEW JERSEY TREASURY * FILE 118
DEPARTMENT IN TRENTON (GENE HAS SINCE MOVED ON). * FILE 118
* FILE 118
MY PROGRAM SMPFMUPV TAKES THE OUTPUT OF THE * FILE 118
PUTXREF PROGRAM AND MAKES IT "INPUTABLE" TO AN * FILE 118
SMP JOB. OUTPUT OF SMPFMUPV LOOKS LIKE: * FILE 118
* FILE 118
./ ADD NAME=EBB1102 * FILE 118
UY04130 /* FMID - EBB1102 - FROM PUT TAPE - DONE 09/15/87 */* FILE 118
UY09531 /* FMID - EBB1102 - FROM PUT TAPE - DONE 09/15/87 */* FILE 118
UY10163 /* FMID - EBB1102 - FROM PUT TAPE - DONE 09/15/87 */* FILE 118
UY10354 /* FMID - EBB1102 - FROM PUT TAPE - DONE 09/15/87 */* FILE 118
UY10882 /* FMID - EBB1102 - FROM PUT TAPE - DONE 09/15/87 */* FILE 118
./ ADD NAME=EDM1102 * FILE 118
UY10582 /* FMID - EDM1102 - FROM PUT TAPE - DONE 09/15/87 */* FILE 118
* FILE 118
YOU CAN OBVIOUSLY USE THIS AS INPUT TO ANOTHER * FILE 118
SMP/E JOB, AND THIS GIVES YOU FULL FORFMID POWER * FILE 118
FOR EACH PUT TAPE. * FILE 118
* FILE 118
THE THIRD FEATURE OF THIS PROCESSING IS MY * FILE 118
SMPUPD PROGRAM, WHICH ALLOWS THE BREAKING UP OF A * FILE 118
SMPPTFIN FILE INTO A PDS, WHOSE MEMBERS ARE THE * FILE 118
SEPARATE SYSMODS. SUPPORT IS PROVIDED FOR APAR, * FILE 118
USERMOD, AND FUNCTION SYSMODS AS WELL AS FOR * FILE 118
PTFS. THIS PROGRAM IS A RATHER QUICK-AND-DIRTY * FILE 118
WAY OF DOING THINGS, BUT IT GETS ITS JOB DONE * FILE 118
SUPERBLY, AND THAT'S WHAT COUNTS. BASICALLY, IT * FILE 118
LOOKS IN A FILE FOR ++ PTF OR ++ APAR OR ++ * FILE 118
USERMOD ETC. IT PARSES FOR THE 7-CHARACTER * FILE 118
SYSMOD NUMBER. IN THE PROCESS OF MAKING A * FILE 118
TEMPORARY COPY OF THE SMPPTFIN FILE, IT INSERTS A * FILE 118
CARD IN FRONT OF EACH SYSMOD, WITH THE FORMAT: * FILE 118
* FILE 118
./ ADD NAME=SYSMDNO * FILE 118
* FILE 118
IN ADDITION, ALL "./" STRINGS IN COLUMNS 1 TO 2 * FILE 118
OF THE COPIED SYSMOD FILE ARE CHANGED TO "><". * FILE 118
THEN THE PDSLOAD PROGRAM (FROM FILE 093 OF THE * FILE 118
CBT TAPE) CAN BE USED TO LOAD ALL THE SYSMODS * FILE 118
SEPARATELY INTO PDS MEMBERS, AND TO CONVERT THE * FILE 118
"><" STRINGS WITHIN THE SYSMODS, BACK TO "./". * FILE 118
* FILE 118
A SAMPLE JOBSTREAM, CALLED SMPUPDJ IN THIS PDS, * FILE 118
WILL SHOW YET ANOTHER STEP AT THE END. IT MAY * FILE 118
NOT BE WIDELY PUBLICIZED YET, BUT THE PDS * FILE 118
COMMAND PROCESSOR (FROM FILE 182 OF THE CBT * FILE 118
TAPE) AT VERSION 8.5, HAS THE CAPABILITY OF * FILE 118
SUPPLYING FULL ISPF STATISTICS TO A SOURCE PDS * FILE 118
MEMBER. THIS CAN ALSO BE DONE IN BATCH MODE. I * FILE 118
ADD A STEP AT THE END OF THE JOBSTREAM SMPUPDJ * FILE 118
WHICH RUNS TSO IN BATCH, AND ADDS ISPF * FILE 118
STATISTICS TO ALL THE SYSMODS, SO YOU KNOW HOW * FILE 118
MANY LINES EACH ONE HAS. ONCE THE PTFS OR * FILE 118
OTHER SYSMODS HAVE BEEN SEPARATED, YOU MAY * FILE 118
INQUIRE ABOUT THEM BY BROWSING OR EDITING THEM * FILE 118
INDIVIDUALLY. ALSO, SINCE THIS JOBSTREAM IS A * FILE 118
QUICK AND REPRODUCIBLE PROCESS (IT TAKES A FEW * FILE 118
MINUTES TO RUN ON MY MACHINE), YOU CAN LEAVE * FILE 118
THE OUTPUT DATASET ON A WORK PACK FOR A FEW * FILE 118
HOURS IF YOU'RE SHORT OF PERMANENT DISK SPACE. * FILE 118
THEN YOU CAN RECREATE IT AGAIN THE NEXT DAY. * FILE 118
* FILE 118
ONE MORE NOTE. SOMETIMES IBM WILL SEND OUT * FILE 118
DUPLICATE PTFS ON THE SAME PUT OR CBPDO TAPE. * FILE 118
THIS WILL OBVIOUSLY CREATE DELETED MEMBERS ON * FILE 118
YOUR OUTPUT LIBRARY, SINCE THE SECOND STOW OF A * FILE 118
PDS MEMBER WILL DELETE THE FIRST MEMBER THAT * FILE 118
HAS THE SAME NAME. THEREFORE, I USE ANOTHER * FILE 118
CAPABILITY OF THE PDS PROGRAM, WHICH IS THE * FILE 118
RESTORE FUNCTION TO RESURRECT DELETED MEMBERS. * FILE 118
THE DELETED MEMBERS ARE PUT BACK UNDER THE * FILE 118
NAMES $PTF0001, $PTF0002, ETC. SO THEY CAN BE * FILE 118
BROWSED AND COMPARED TO THE "REAL" ONES WHICH * FILE 118
HAD THE SAME NAME. (ACTUALLY, IN A RECEIVE * FILE 118
JOB, THE DELETED VERSION WOULD BE RECEIVED, * FILE 118
SINCE IT OCCURS FIRST IN THE FILE.) THE PDS * FILE 118
COMMAND IN PDS VERSION 8.5 WHICH DOES THIS IS: * FILE 118
* FILE 118
RESTORE $PTF REPEAT NOPROMPT * FILE 118
* FILE 118
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
IS FROM SAM GOLOB AND CONTAINS HIS COLUMNS FROM * FILE 120
"TECHNICAL SUPPORT" MAGAZINE ENTITLED "MVS TOOLS * FILE 120
AND TRICKS OF THE TRADE". THERE ARE NOW OVER 11 * FILE 120
YEARS' WORTH OF ARTICLES, WHICH ARE INCLUDED HERE * FILE 120
BY CONSENT FROM THE PUBLISHER OF THE MAZAGINE. * FILE 120
(FOR SAM'S OLD ARTICLES, SEE FILE 014.) * FILE 120
* FILE 120
THIS FILE CONTAINS THE ORIGINAL VERSIONS OF SAM'S * FILE 120
COLUMN BEFORE THEY WERE EDITED, OR SHORTENED BY * FILE 120
THE MAGAZINE BECAUSE OF SPACE LIMITATIONS. * FILE 120
* FILE 120
IT IS PERHAPS CONVENIENT TO INCLUDE THESE ARTICLES * FILE 120
ON THE CBT TAPE ITSELF, BECAUSE MANY OF THEM TALK * FILE 120
ABOUT HOW TO MAKE BEST USE OF SOFTWARE OFFERINGS * FILE 120
WHICH ARE DISTRIBUTED WITH THIS TAPE. * FILE 120
* FILE 120
SUBJECT MATTER INDEX TO THE COLUMNS * FILE 120
(TOPICS THAT WERE COVERED) * FILE 120
* FILE 120
PDS MEMBER SUBJECT MATTER OR TITLE * FILE 120
---------- ----------------------- * FILE 120
* FILE 120
$$$CPYRT : COPYRIGHT NOTICE * FILE 120
$$$INDEX : MEMBER NAMING SCHEME FOR THIS FILE * FILE 120
$$$PERMT : PERMISSION TO DISTRIBUTE THIS MATERIAL * FILE 120
$$DIRECT : ONE-LINE SUBJECT MATTER INDEX TO THE COLUMNS * FILE 120
$$DIRFMT : FORMATTED SUBJECT MATTER INDEX TO THE COLUMNS * FILE 120
$$INTRO : AUTHOR'S PREFACE AND "QUICK INTRO" * FILE 120
----------------------------------------------------------- * FILE 120
BM0009SE : THE JOY OF "SHARE" (SEPARATE ARTICLE - NOT * FILE 120
PUBLISHED - DOES NOT BELONG TO NASPA) * FILE 120
CL8901JA : INTRO TO THE COLUMN, MISCELLANEOUS TOOLS, * FILE 120
THE CBT TAPE * FILE 120
CL8902FE : VARIOUS DATASET AND DASD MANAGEMENT TRICKS * FILE 120
CL8903MA : ISPF COMMAND TABLE, LPA LOADING AT IPL, THE * FILE 120
ABE EDITOR (SEE INCLUDED CORRECTIONS FOR LPA) * FILE 120
CL8904AP : ENLARGING THE VTOC OF AN ACTIVE DISK PACK * FILE 120
CL8905MY : DELINK AND RELINK OF LOAD MODULES * FILE 120
CL8905X1 : FURTHER NOTES ON ISPF COMMAND TABLE ADDITIONS * FILE 120
CL8906JN : RETRIEVING MATERIAL FROM IBM'S SOURCE TAPES * FILE 120
CL8907JL : THE AMAZING EXCP-COUNT ZAP * FILE 120
CL8909SE : THE SLAC MODS TO ASSEMBLER H * FILE 120
CL8910OC : VIEW JOBS AND OUTPUT DIRECTLY FROM * FILE 120
SPOOL--QUEUE & SDF * FILE 120
CL8911NV : NO-COST SUBSYSTEMS: TSSO, ETPS, AND CMD1 * FILE 120
CL8912DE : CONVERT CLIST LIBRARIES FROM VB TO FB AND * FILE 120
VICE-VERSA * FILE 120
CL9001JA : TAPE MAPPING, TAPE LOOKING, AND TAPE COPYING * FILE 120
CL9002FE : SOME CHANGING TOOLS ON THE CBT TAPE; * FILE 120
THE SLAC ASSEMBLER, UPDATE 2 * FILE 120
CL9004AP : THE PDS PROGRAM PRODUCT, PART 1 * FILE 120
CL9005MY : THE PDS PROGRAM PRODUCT, PART 2 * FILE 120
CL9006JN : THE EFFECT OF CHANGING SOME OF THE FIELDS IN * FILE 120
THE VTOC * FILE 120
CL9007JL : PRE-PROCESSING SMPPTFIN DATA (NOT DEPENDENT ON * FILE 120
SMP/E) * FILE 120
CL9008AU : SMP/E HACKING EXAMPLE - REGRESSING VTAM, * FILE 120
PART 1 * FILE 120
CL9009SE : SMP/E HACKING EXAMPLE - REGRESSING VTAM, * FILE 120
PART 2 * FILE 120
CL9010OC : MAPXA AND BLKDISK: TWO USEFUL TSO COMMANDS * FILE 120
CL9011NV : BILL GODFREY'S CONTRIBUTIONS; THE NEW * FILE 120
REVIEW COMMAND * FILE 120
CL9012DE : THE ARCHIVER - PART 1 - * FILE 120
A NEW PRODUCT AND CONCEPT * FILE 120
CL9101JA : THE ARCHIVER - PART 2 - * FILE 120
MORE ABOUT THIS NEW PRODUCT * FILE 120
CL9102FE : CONVERSION BETWEEN CLIST FORMATS: * FILE 120
VB-FB, FB-VB * FILE 120
CL9103MA : PUBLIC SOFTWARE TAPES REVISITED * FILE 120
CL9104AP : BROWSING VIRTUAL STORAGE: * FILE 120
THE "LOOK" TSO COMMAND * FILE 120
CL9105MY : MEMBER GROUP SELECTION IN PARTITIONED DATASETS * FILE 120
CL9106JN : DYNAMASK - CHANGING DEVICE NAMES ON A LIVE * FILE 120
SYSTEM * FILE 120
CL9107JL : MAKING YOUR OWN PTFS, A VALUABLE TECHNIQUE * FILE 120
- PART 1 * FILE 120
CL9108AU : MAKING YOUR OWN PTFS, A VALUABLE TECHNIQUE * FILE 120
- PART 2 * FILE 120
CL9109SE : EXPLOITING PDS DIRECTORY FIELDS - PART 1 * FILE 120
CL9110OC : EXPLOITING PDS DIRECTORY FIELDS - PART 2 * FILE 120
CL9111NV : EXPLOITING PDS DIRECTORY FIELDS - PART 3 * FILE 120
CL9112DE : ABOUT DATASET BLOCK SIZES AND I/O * FILE 120
EFFICIENCY - PART 1 * FILE 120
CL9201JA : ABOUT DATASET BLOCK SIZES AND I/O * FILE 120
EFFICIENCY - PART 2 * FILE 120
CL9202FE : ABOUT DATASET BLOCK SIZES AND I/O * FILE 120
EFFICIENCY - PART 3 * FILE 120
CL9203MA : A TOUR OF THE WORLD THROUGH * FILE 120
FULLSCREEN ZAP - PART 1 * FILE 120
CL9204AP : A TOUR OF THE WORLD THROUGH * FILE 120
FULLSCREEN ZAP - PART 2 * FILE 120
CL9205MY : MAKING THE MOST OF YOUR TOOLS * FILE 120
CL9206JN : PUBLIC SOFTWARE TAPES REVISITED * FILE 120
CL9207JL : SOME ASSEMBLER THOUGHTS: * FILE 120
THE NEW HIGH-LEVEL ASSEMBLER - PART 1 * FILE 120
CL9208AU : SOME ASSEMBLER THOUGHTS: * FILE 120
THE NEW HIGH-LEVEL ASSEMBLER - PART 2 * FILE 120
CL9209SE : SMP/E TOOLS YOU SHOULD HAVE - PART 1 * FILE 120
CL9210OC : SMP/E TOOLS YOU SHOULD HAVE - PART 2 * FILE 120
CL9211NV : HOW I FOLLOWED MY OWN ADVICE, AND * FILE 120
HOW NOT TO UPGRADE JES2 EXITS * FILE 120
CL9212DE : PUTTING YOUR TOOLS TOGETHER - PART 1 * FILE 120
- ISPF COMMAND TABLES * FILE 120
CL9301JA : PUTTING YOUR TOOLS TOGETHER - PART 2 * FILE 120
- TOOL PACKAGES * FILE 120
CL9302FE : PUTTING YOUR TOOLS TOGETHER - PART 3 - * FILE 120
EDIT MACROS, TSO COMMANDS, AND * FILE 120
MISCELLANEOUS TECHNIQUES * FILE 120
CL9303MA : "SHOW ME MVS" IN ONE PLACE - * FILE 120
THE SHOWMVS COMMAND * FILE 120
CL9304AP : COPYING TAPES CORRECTLY * FILE 120
CL9305JL : MAKING SEQUENTIAL FILES OUT OF PDS'ES, * FILE 120
AND VICE-VERSA * FILE 120
CL9306SE : TSO HELP, WITHOUT THE DRAWBACKS: * FILE 120
THE HEL COMMAND * FILE 120
CL9307NV : IEHMAP, AND OTHER STORIES. * FILE 120
CL9401JA : THE FASCINATION OF THE DISASSEMBLER - PART 1 * FILE 120
CL9402MA : THE FASCINATION OF THE DISASSEMBLER - PART 2 * FILE 120
CL9403MY : ASSEMBLING PROGRAM PATCHES - THE ASMTOZAP * FILE 120
PROGRAM * FILE 120
CL9404JL : 2 TOPICS: REBIRTH OF IEHMOVE, LOADING JES2 * FILE 120
EXITS DYNAMICALLY * FILE 120
CL9405OC : THE "REVIEW" COMMAND REVISITED * FILE 120
CL9406NV : YOUR TSO SESSION - USING THE PSCB * FILE 120
CL9407DE : YOUR TSO SESSION - USING THE TSO * FILE 120
SESSION MANAGER * FILE 120
CL9501JA : ON FINDING PROGRAMS - BLDL AND LLA * FILE 120
CL9502FE : ON DATASET RECOVERY - INTRODUCTION * FILE 120
CL9503MA : DATASET RECOVERY METHODOLOGY - PART 2 * FILE 120
CL9504AP : VTOC TIDBITS - PART 1 * FILE 120
CL9505MY : VTOC TIDBITS - PART 2 * FILE 120
CL9506JN : A VTOC ADVENTURE - PART 3 * FILE 120
CL9507JL : EXPLORING SYS1.BRODCAST * FILE 120
CL9508AU : A NOVICE'S GUIDE TO ASSEMBLER * FILE 120
PROGRAMMING - PART 1 * FILE 120
CL9509SE : A NOVICE'S GUIDE TO ASSEMBLER * FILE 120
PROGRAMMING - PART 2 * FILE 120
CL9510OC : WORKING WITH TSO - PART 1 * FILE 120
CL9511NV : WORKING WITH TSO - PART 2 * FILE 120
CL9512DE : KEEPING UP WITH THE UNIT CONTROL * FILE 120
BLOCK - PART 1 * FILE 120
CL9601JA : KEEPING UP WITH THE UNIT CONTROL * FILE 120
BLOCK - PART 2 * FILE 120
CL9602FE : EDIT AND SYSTEM RECOVERY * FILE 120
CL9603MA : YOUR OWN WORLD OF EDIT MACROS * FILE 120
CL9604AP : THE PLACE OF FREE SOFTWARE IN TODAY'S * FILE 120
MVS SHOP * FILE 120
CL9605MY : EYES - PART 1 * FILE 120
CL9606JN : EYES - PART 2 * FILE 120
CL9607JL : EYES - PART 3 - USING SMP/E * FILE 120
CL9608AU : PERSONAL TOOLS FOR YOUR SMP WORK * FILE 120
CL9609SE : TIDBITS * FILE 120
CL9610OC : GETTING STARTED WITH PUBLIC MVS SOFTWARE * FILE 120
CL9611NV : ALTERNATIVES AND DATASET RECOVERY * FILE 120
CL9612DE : ON FINDING THINGS * FILE 120
CL9702FE : CREATIVE ENQUEUING * FILE 120
CL9703MA : HARNESSING MACRO POWER - PART 1 * FILE 120
CL9704AP : HARNESSING MACRO POWER - PART 2 * FILE 120
CL9705MY : IT'S A BIRD, IT'S A PLANE, IT'S SUPRNAME * FILE 120
CL9706JN : TIMING OUT * FILE 120
CL9707JL : OLD CODE--OLD GOLD * FILE 120
CL9708AU : PROFILES IN CREATIVITY * FILE 120
CL9709SE : SYSTEM PROGRAMMER CREATIVITY * FILE 120
CL9710OC : WHY NOT RUN A BATCH JOB? * FILE 120
CL9711NV : HELP IN KEEPING YOUR SYSTEM UP * FILE 120
CL9712DE : REMEMBERING TSSO * FILE 120
CL9801JA : LOOKING AT VIRTUAL STORAGE * FILE 120
CL9802FE : ASSORTED UTILITIES - PART 1 * FILE 120
CL9803MA : ASSORTED UTILITIES - PART 2 * FILE 120
CL9804AP : OTHER PEOPLE'S PROBLEMS * FILE 120
CL9805MY : UNDELETING DATA - PART 1 * FILE 120
CL9806JN : UNDELETING DATA - PART 2 * FILE 120
CL9807JL : WHEN IBM SAYS YOU CAN'T... SOMETIMES YOU CAN * FILE 120
CL9808SE : WHEN IBM SAYS YOU CAN'T... SOMETIMES YOU CAN * FILE 120
- PART 2 * FILE 120
CL9809OC : AN IMPORTANT Y2K TECHNIQUE * FILE 120
CL9810NV : EXPANDING YOUR HORIZONS * FILE 120
CL9811DE : SETTING YOURSELF UP * FILE 120
CL9901JA : CBT TAPE SUPPORT ONLINE * FILE 120
CL9902FE : RESOURCE AFFINITY IMPLEMENTATION EFFORTS * FILE 120
CL9903MA : SMP/E PREPROCESSING * FILE 120
CL9904AP : AWARENESS * FILE 120
CL9905MY : HIGHLIGHTS OF CBT TAPE VERSION 420 * FILE 120
CL9906JN : SELECTIONS FROM CBT TAPE VERSION 420 (AND 421) * FILE 120
CL9907JL : WRITING YOUR OWN TSO COMMAND PROCESSOR * FILE 120
- PART 1 * FILE 120
CL9908AU : WRITING YOUR OWN TSO COMMAND PROCESSOR * FILE 120
- PART 2 * FILE 120
CL9908SE : PC'S, C, AND ASSEMBLER * FILE 120
CL9910OC : ZAPPING, DISASSEMBLING, DELINKING, AND * FILE 120
RE-LINKEDITING * FILE 120
CL9911NV : LEARNING OUR TRADE * FILE 120
CL9912DE : USING XMIT TO PACKAGE MVS FILES * FILE 120
CM0001JA : RECENT CBT TAPE NEWS * FILE 120
CM0002FE : ASSEMBLER MACRO COLLECTIONS - PART 1 * FILE 120
CM0003MA : ASSEMBLER MACRO COLLECTIONS - PART 2 * FILE 120
CM0004AP : LEARNING ABOUT YOUR MVS SYSTEM * FILE 120
CM0005MY : ACCUMULATING ASSEMBLER TECHNIQUES * FILE 120
CM0006JN : COPYING TAPES * FILE 120
CM0007JL : SCANNING FOR PARMS IN A BATCH PROGRAM * FILE 120
CM0008AU : THE CVT - THE BACKBONE OF MVS * FILE 120
* FILE 120
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
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
IS CURRENTLY EMPTY * FILE 123
* FILE 123
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
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
IS FROM JAMES GIBSON OF L.L. BEAN IN FREEPORT, * FILE 126
MAINE, AND CONTAINS EXITS AND MODIFICATIONS * FILE 126
THAT ALLOW: * FILE 126
* FILE 126
email: jim.gibson@llbean.com * FILE 126
* FILE 126
1) AUTO REPLY TO WTOR AND AUTO ISSUE OF COMMANDS * FILE 126
FOR WTO OR WTOR BY EXIT IEAVMXIT. **JOBNAMES * FILE 126
THAT HAVE A + IN FRONT OF * FILE 126
THEIR NAMES, THAT + IS * FILE 126
REALLY AN AT-SIGN ** * FILE 126
JOBNAME MEMBER DESC * FILE 126
USED * FILE 126
+SMVMXIT IEAVMXIT WTO EXIT INCLUDES R2D2 AND * FILE 126
PSWD SUPPORT * FILE 126
+SMC3PO IEEC3PO SETS TABLE FOR IEAVMXIT * FILE 126
+SMC3PO KEYSCAN KEYWORD PARSING ROUTINE * FILE 126
+SMC3PO C3POTABL DSECT FOR C3PO TABLE IN CSA * FILE 126
+SMC3PO MSGENT DSECT FOR ENTRY IN TABLE * FILE 126
* FILE 126
2) PUTTING PASSWORD'S IN JCL FOR NON-RACF SHOPS * FILE 126
JOBNAME MEMBER DESC * FILE 126
USED * FILE 126
+SM0025B IGC0025B PASSWORD MOD SVC * FILE 126
+SMEXIT8 SMEXIT8 PASSWORD MOD HASPSSSM * FILE 126
UPDATE * FILE 126
+SMEXIT8 SMEXIT8 PASSWORD MOD $HASPEQU * FILE 126
UPDATE * FILE 126
+SMEXIT8 HASPSJ08 PASSWORD MOD JES2 JCT * FILE 126
READ/WRITE EXIT (SSSM) * FILE 126
+SMEXIT4 HASPXJ04 PASSWORD MOD JES2 CONTROL * FILE 126
CARD EXIT * FILE 126
+SMEXIT7 HASPXJ07 PASSWORD MOD JES2 JCT * FILE 126
READ/WRITE EXIT (JES2) * FILE 126
+ZAPRDPS ZAPRDPS PASSWORD MOD READPSWD ZAP * FILE 126
WTOR WTOR A PROGRAM THAT PUTS OUT * FILE 126
REQUESTED WTO'S OR WTOR'S * FILE 126
FOR TESTING OF IEAVMXIT. * FILE 126
* FILE 126
FOR ADDITIONAL INFORMATION SEE THE MEMBER CALLED * FILE 126
$$DOC. THIS FILE IS IN IEBUPDTE SYSIN FORMAT * FILE 126
* FILE 126
THIS FILE HAS BEEN UPDATED TO THE MVS/ESA 4.2.0 * FILE 126
AND DFP 3.3 LEVELS. THE PREVIOUS VERSION WHICH * FILE 126
WAS AT MVS/XA 2.2 IS INCLUDED AS MEMBER $MODS220. * FILE 126
* FILE 126
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
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
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
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
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
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
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
IS FROM MR GREG PRICE OF PRYCROFT SIX * FILE 134
IN MELBOURNE, VICTORIA, AUSTRALIA. * FILE 134
THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS * FILE 134
THE FOLLOWING : * FILE 134
* FILE 134
$$IEFU83 - IEFU83 EXIT PACKAGE WITH MPF EXITS. * FILE 134
SHOWS I/O COUNTS ETC. IN JOB MESSAGES. * FILE 134
* FILE 134
$$TSDDOC - DOCUMENTATION FOR THE $SPACE AND $LISTC * FILE 134
TSO COMMANDS FROM THE SECV. * FILE 134
* FILE 134
$$CRYPT - OBJECT DECK OF $ENCRYPT AND $DECRYPT TSO * FILE 134
COMMANDS FROM THE SECV. * FILE 134
* FILE 134
$FREEAL# - TSO HELP FOR $FREEALL. * FILE 134
* FILE 134
$FREEALL - ONE OF THE MANY 'FREE ALL'-LIKE COMMANDS. * FILE 134
THIS ONE HAS TERMINAL AND NON-TERMINAL * FILE 134
DDNAME EXEMPTION LISTS. READ THE TSO * FILE 134
HELP MEMBER TO GET THE FEEL OF IT. * FILE 134
* FILE 134
$HBLIST - LIST HSM BACKUP DETAILS FOR DATA SETS BY * FILE 134
LEADING CHARACTER STRING. IT EVEN WORKS * FILE 134
WHEN HSM IS DOWN, UNLIKE HLIST. REQUIRES * FILE 134
RACF READ ACCESS TO THE HSM BCDS. * FILE 134
* FILE 134
$HBLIST# - TSO HELP FOR $HBLIST. * FILE 134
* FILE 134
$HMLIST - SIMILAR TO $HBLIST EXCEPT FOR HSM MIGRATED * FILE 134
DATA SETS. ALSO WORKS WHEN HSM IS DOWN. * FILE 134
REQUIRES RACF READ ACCESS TO THE HSM MCDS. * FILE 134
* FILE 134
$HMLIST# - TSO HELP FOR $HMLIST. * FILE 134
* FILE 134
$HMLISTW - SAME AS $HMLIST EXCEPT THAT DETAIL FORMAT * FILE 134
HAS MORE ITEMS TO BE 120 BYTES WIDE. * FILE 134
* FILE 134
$INSTALL - JCL FOR ASSEMBLING $LISTC/$SPACE - SEE * FILE 134
$$TSDDOC. * FILE 134
* FILE 134
$LISTC - TSO HELP FOR $LISTC. * FILE 134
* FILE 134
$LISTM - CLIST FOR INVOKING $LISTX IN AN SPF * FILE 134
ENVIRONMENT OR FROM TSO READY. * FILE 134
* FILE 134
$LISTX - LEX EREMIN'S FULLSCREEN VERSION OF * FILE 134
LISTMEM. VALID MEMBER SELECTION CODES ARE * FILE 134
'D' TO DELETE, 'R' TO RENAME (ANY * FILE 134
CHARACTER ON THE KEYBOARD OTHER THAN SPACE * FILE 134
MAY BE USED IN THE NEW MEMBER NAME), 'E' * FILE 134
TO EDIT, 'B' TO BROWSE. 'L' FOR LOCATE, * FILE 134
'N' FOR DIRECTORY REFRESH, AND MEMBER * FILE 134
COMMANDS ARE VALID FROM PRIMARY INPUT * FILE 134
AREA. PF7/19/8/20 FOR SCROLLING. PF3/15 * FILE 134
TO EXIT AND TO CANCEL A RENAME BEFORE THE * FILE 134
NEW NAME IS ENTERED. 'MAX' UP AND DOWN * FILE 134
ARE ALSO ALLOWED. * FILE 134
* FILE 134
$SPACE - TSO HELP FOR $SPACE. * FILE 134
* FILE 134
$SP3MODS - MEMBER CONTAINING MVS AND RELATED PRODUCT * FILE 134
USERMODS IN IEBUPDTE/PDSLOAD INPUT FORMAT. * FILE 134
THESE ARE AT THE SP3 LEVEL. INCLUDED ARE * FILE 134
JES2 EXITS FOR MAX COND CODE REPORTING IN * FILE 134
THE NOTIFY MESSAGE, SDSF MOD TO SHOW NJE * FILE 134
AND "AWAITING OUTPUT" QUEUES IN 'SDSF I' * FILE 134
BY DEFAULT, MOD TO STOP TSO TEST 'LIST I' * FILE 134
STOPPING AT BAD OPCODE, MPF EXIT TO TELL * FILE 134
TSO USER OF ALLOCATED DATA SET THAT BATCH * FILE 134
JOB IS WAITING FOR, MOD TO GET SYSIN AND * FILE 134
SYSOUT DD I/O COUNT IN TCT AND SMF DD * FILE 134
LEVEL STATISTICS, AND RELATED SAMPLE * FILE 134
PARMLIB MEMBERS. * FILE 134
* FILE 134
$SP4MODS - MEMBER CONTAINING MVS AND RELATED PRODUCT * FILE 134
USERMODS IN IEBUPDTE/PDSLOAD INPUT FORMAT. * FILE 134
THE MODS ARE THE SAME AS IN $SP3MODS, BUT * FILE 134
HAVE BEEN UPDATED TO THE SP4 LEVEL. THIS * FILE 134
COPY OF 'MSG2USER' IS GOOD FOR ALL LEVELS. * FILE 134
* FILE 134
$43MODS - SOME BITS OF $SP4MODS UPDATED FOR SP4.3. * FILE 134
* FILE 134
#PDSTBL - MEMBER FOR PDS 8.3 AND PDS 8.4 COPIED FROM * FILE 134
CBT FILE 182 AND UPDATED SO 'REVIEW :' * FILE 134
AND 'PRINTOFF :' PROCESS THE WHOLE DATA * FILE 134
SET ONCE, RATHER THAN EACH MEMBER * FILE 134
INDIVIDUALLY. GOES WITH MEMBER @PRINTO. * FILE 134
* FILE 134
@PRINTO - MEMBER FOR PDS 8.3 AND PDS 8.4 COPIED FROM * FILE 134
CBT FILE 182 AND UPDATED SO 'REVIEW :' * FILE 134
AND 'PRINTOFF :' PROCESS THE WHOLE DATA * FILE 134
SET ONCE, RATHER THAN EACH MEMBER * FILE 134
INDIVIDUALLY. GOES WITH MEMBER #PDSTBL. * FILE 134
* FILE 134
ABEND - FAMOUS TSO HELP. LIFTED FROM CBT MODS * FILE 134
FILE OF SHARE TAPE BUT HAS HAD SEVERAL * FILE 134
HUNDRED LINES ADDED TO IT. * FILE 134
* FILE 134
ANIM1-7 - SAMPLE ANIMATION BY CRAIG H???????. * FILE 134
INCLUDED HERE IN THE HOPE THAT IT WILL * FILE 134
INSPIRE SOMEONE TO PRODUCE A FULL-LENGTH * FILE 134
ANIMATION FEATURE FOR 3270 WITH VECTOR * FILE 134
GRAPHICS. * FILE 134
* FILE 134
CLRSCRN - OBJECT DECK OF ASSEMBLER SUBROUTINE OF * FILE 134
"PROGRAM" INCLUDED FOR COMPLETENESS. * FILE 134
* FILE 134
CONCAT$ - JCL TO ASSEMBLE CONCATEM. * FILE 134
* FILE 134
CONCAT# - TSO HELP FOR CONCAT. * FILE 134
* FILE 134
CONCATEM - FUNCTIONING REENTRANT VERSION OF THE * FILE 134
CONCAT TSO COMMAND FROM FILE 270. * FILE 134
* FILE 134
CUBE - STATIC VECTOR GRAPHICS SAMPLE BY THE SAME * FILE 134
CONTRIBUTOR AS ANIM1 ETC. * FILE 134
* FILE 134
DATABASE - INPUT DECK TO PROGRAM. * FILE 134
* FILE 134
DCPU - PROGRAM TO DISPLAY CPU UTILIZATION AT OS * FILE 134
CONSOLE OR TSO TERMINAL. PROGRAM * FILE 134
PARAMETER CAN BE USED TO CONTROL DURATION * FILE 134
OF SAMPLE. CAN BE HANDY TO INSTALL AS A * FILE 134
STARTED TASK ON A SYSTEM WITHOUT MUCH * FILE 134
THIRD PARTY STUFF SO OPERATOR/SYSPROG CAN * FILE 134
SEE WHO IS HOGGING THE CPU WHEN TSO * FILE 134
RESPONSE DIES. MAKE MAKE SURE YOU GIVE * FILE 134
THE STARTED TASK HIGH PRIORITY IN YOUR * FILE 134
ICS. I/O CODE PINCHED FROM * FILE 134
DJOBS/DTSO/DDASD/DTAPES OR SOME SUCH. * FILE 134
SUPPORTS MVS/XA AND MVS/ESA. * FILE 134
* FILE 134
DCS - THE DEFINE CONSTANTS FOR SCREEN MACRO USED * FILE 134
BY REVIEW AND ENHANCED A BIT TO SUPPORT * FILE 134
EXTENDED COLOURS AND HIGHLIGHTING. HANDY * FILE 134
FOR ANY 3270 FULLSCREEN PROGRAMMING. * FILE 134
* FILE 134
DDASD - XA ONLY VERSION OF THE DDASD COMMAND * FILE 134
LIFTED FROM SOME SHARE TAPE IN 1981. * FILE 134
UPDATED TO WORK ON BOTH RELEASE 1 AND 2 OF * FILE 134
MVS/XA (2.1.X AND 2.2.0). WORKS OKAY ON * FILE 134
MVS/ESA. NOW UPDATED FOR SP4. * FILE 134
* FILE 134
DECDATE - ASSEMBLER SUBROUTINES OF PROGRAM. * FILE 134
* FILE 134
DECIDER - CLIST FOR VOCATIONAL GUIDANCE. * FILE 134
* FILE 134
DIVER - TSO TPUT PROGRAM WRITTEN BY STEVE BEER. * FILE 134
IT USES EXTENDED COLOUR AND GRAPHICS * FILE 134
ESCAPE. * FILE 134
* FILE 134
DIVEROBJ - OBJECT DECK OF DIVER PREVIOUSLY SHIPPED * FILE 134
AS MEMBER 'DIVER'. X'0A23' AT OFFSET * FILE 134
X'38' HAS BEEN ZAPPED TO X'0A32'. * FILE 134
* FILE 134
DUPTIME - TSO COMMAND OR BACKGROUND PROGRAM TO * FILE 134
DISPLAY UP-TIME (TIME SINCE LAST IPL). * FILE 134
IF A JOB NAME IS SUPPLIED AS AN OPERAND * FILE 134
OR PROGRAM PARAMETER THEN THE ADDRESS * FILE 134
SPACE TRANSACTION RESIDENT TIME IS SHOWN. * FILE 134
FOR NON-SWAPPABLE TASKS OR JOBS THIS IS * FILE 134
THE UP-TIME SO YOU CAN TELL HOW LONG DB2 * FILE 134
OR IMS HAS BEEN UP. USE AN ASTERISK TO * FILE 134
PROCESS ALL ACTIVE ADDRESS SPACES. * FILE 134
* FILE 134
DYNALC - HANDY DYNAMIC ALLOCATION MACRO FROM BRUCE * FILE 134
BORDONARO. USED BY ZAP. * FILE 134
* FILE 134
EDBOX - DAVID PRICE EDIT MACRO FOR 3278T SUPPORT. * FILE 134
* FILE 134
EDICAT - ISPF EDIT MACRO FOR LISTICAT OUTPUT - * FILE 134
PART OF THE PACKAGE IN LISTICAT. * FILE 134
* FILE 134
EDPRT - DAVID PRICE EDIT MACRO FOR 3278T SUPPORT. * FILE 134
* FILE 134
EDUNBOX - DAVID PRICE EDIT MACRO FOR 3278T SUPPORT. * FILE 134
* FILE 134
EDUNPRT - DAVID PRICE EDIT MACRO FOR 3278T SUPPORT. * FILE 134
* FILE 134
EDVIO - CLIST TO SPF EDIT THE TEMPORARY ISPCTL * FILE 134
FILE. MANY DIALOGS LIKE SMPE GIVE THE * FILE 134
OPPORTUNITY TO EDIT/BROWSE/ SUBMIT THE * FILE 134
GENERATED JCL. SUBMIT (BEING *REAL* TSO) * FILE 134
HAS NO PROBLEM BUT EDIT/BROWSE DOES NOT * FILE 134
SUPPORT VIO. BROWSE IS EASILY REPLACED BY * FILE 134
REVIEWING THE DDNAME. THIS CLIST (TO BE * FILE 134
INVOKED FROM THE PRIMARY COMMAND AREA OF * FILE 134
THE APPROPRIATE SPLIT SCREEN) ALLOWS FINAL * FILE 134
EDITING BEFORE JOB SUBMISSION. WRITTEN * FILE 134
BY TONY WATSON. * FILE 134
* FILE 134
FLAG - STATIC VECTOR GRAPHICS SAMPLE BY C.H. * FILE 134
* FILE 134
FSHELP - FULLSCREEN TSO HELP COMMAND - AN ALIAS * FILE 134
OF 'REVIEW'. SEE MEMBER 'REVINST' FOR * FILE 134
INSTALLATION DETAILS. PREFERRED NAME OF * FILE 134
'HEL' BY SOME. 'FSH' FOR SHORT. * FILE 134
* FILE 134
FSHELP# - TSO HELP FOR FSHELP. SEE MEMBER REVINST. * FILE 134
* FILE 134
GE2 - TPUT PROGRAM (CARD GAME PROTOTYPE). * FILE 134
* FILE 134
GRPSTR - TSO COMMAND FOR WITHIN CLISTS ONLY. * FILE 134
RETURNS THE RACF GROUP NAME INTO A CLIST * FILE 134
VARIABLE CALLED &GRPSTR. * FILE 134
* FILE 134
HEL - FULLSCREEN TSO HELP COMMAND - AN ALIAS * FILE 134
OF 'REVIEW'. SEE MEMBER 'REVINST' FOR * FILE 134
INSTALLATION DETAILS. * FILE 134
* FILE 134
HEL# - TSO HELP FOR HEL. * FILE 134
* FILE 134
IEFUJI - SMF EXIT FOR JOB ACCOUNTING. HANDLES * FILE 134
STARTED TASKS SO STEP ACCOUNTING IS * FILE 134
NOT NEEDED. (ACF2 IN THIS EXAMPLE.) * FILE 134
* FILE 134
IEFUJV - SMF EXIT FOR JOB ACCOUNTING. HANDLES * FILE 134
STARTED TASKS SO STEP ACCOUNTING IS * FILE 134
NOT NEEDED. GOES WITH IEFUJI ABOVE. * FILE 134
* FILE 134
IKJEFF10 - TSO SUBMIT EXIT FROM CBT FILE 369. * FILE 134
SEE MEMBER $$INDEX9 FOR DISCUSSION. * FILE 134
* FILE 134
IKJEFF53 - TSO FIB EXIT FROM IBM IPO. * FILE 134
SEE MEMBER $$INDEX9 FOR DISCUSSION. * FILE 134
* FILE 134
IMAGE1-2 - STATIC VECTOR GRAPHICS SAMPLE BY C.H. * FILE 134
PRODUCING NON-STANDARD COLOURS. * FILE 134
* FILE 134
IMSSIGN - USERMOD FOR IMS V3R1. CAN EASILY BE * FILE 134
REWORKED FOR IMS V4. IMS TYPES SHOULD * FILE 134
DEFINITELY CHECK THIS OUT. * FILE 134
* FILE 134
ISR@PRIM - SAMPLE FOR INSTALLING OPTIONS "U" AND "W". * FILE 134
SEE $$TSDDOC REGARDING OPTION "U". * FILE 134
SEE $$INDEX9 REGARDING OPTION "W". * FILE 134
SEE $$INDX11 REGARDING XSPLIT AND "XO". * FILE 134
* FILE 134
JOBCLASS - EXAMPLE OF A SUGGESTED METHOD FOR KEEPING * FILE 134
USERS INFORMED OF THE EVER-CHANGING * FILE 134
CRITERIA FOR JOB CLASS SELECTION. * FILE 134
* FILE 134
JOTTO - LEX EREMIN CLIST FOR WORDY TYPES. * FILE 134
* FILE 134
LASTCC - HELP MEMBER UPDATED FOR TSO/E V2R3. * FILE 134
* FILE 134
LDEF.... - EXAMPLES OF INVOKING SOME ISPF * FILE 134
APPLICATIONS USING LIBDEF SERVICES. * FILE 134
SEE MEMBER $$INDEX9 FOR DISCUSSION. * FILE 134
* FILE 134
LIFE - LEX EREMIN IMPLEMENTATION OF THE FAMOUS * FILE 134
PROCESS. SUPPORTS PDS'S CONTAINING YOUR * FILE 134
FAVOURITE SCENARIOS. * FILE 134
* FILE 134
LISTBCDS - CLIST TO USE $HBLIST TO PUT A LIST OF ALL * FILE 134
HSM DATA SET BACKUPS INTO A DATA SET. * FILE 134
* FILE 134
LISTICAT - COPIED FROM FILE 047 WITH CATALOG * FILE 134
RECOVERABILTY ENHANCEMENTS ADDED. * FILE 134
SEE MEMBER $$INDX14 FOR DESCRIPTION. * FILE 134
* FILE 134
LISTMCDS - CLIST TO USE $HMLIST TO PUT A LIST OF ALL * FILE 134
HSM MIGRATED DATA SETS INTO A DATA SET. * FILE 134
* FILE 134
LSTWMCDS - CLIST TO USE $HMLISTW TO PUT A LIST OF ALL * FILE 134
HSM MIGRATED DATA SETS INTO A DATA SET. * FILE 134
* FILE 134
LISTVOL - AN OLD FAVOURITE ADJUSTED TO RUN ON ALL * FILE 134
KNOWN MVS'S. LISTS DASD FREE SPACE. * FILE 134
* FILE 134
MSGASIDX - MPF EXIT TO ADD ' - ASID XXXX' TO A WTO * FILE 134
WHERE XXXX IS THE HEX ASID. USEFUL FOR * FILE 134
IEF403I TO SEE WHICH BATCH JOB(S) CAUSED * FILE 134
STORAGE FRAGMENTATION IN INITIATORS. * FILE 134
* FILE 134
OAC..... - MACROS USED BY ZAP. * FILE 134
* FILE 134
PDSETEST - A SAMPLE PROGRAM TO SHOW DATA FETCHED BY * FILE 134
QSAM WHEN READING A PDSE DIRECTORY. * FILE 134
SEE MEMBER $$INDEX6 FOR DETAILS. * FILE 134
* FILE 134
PGMINIT - A CLIST TO DECODE THE SOURCE OF PROGRAM. * FILE 134
* FILE 134
PGMINST - SOME INSTALLATION INSTRUCTIONS FOR * FILE 134
PROGRAM. * FILE 134
* FILE 134
PROGRAM - A PL/1 PROGRAM TAKEN FROM A SHARE TAPE AND * FILE 134
MODIFIED. PL/1 TRANSIENT LIBRARY REQUIRED * FILE 134
FOR EXECUTION. * FILE 134
* FILE 134
PS-PS7 - VECTOR GRAPHICS TPUT PGMS BY CHRIS S?????. * FILE 134
* FILE 134
RANDU - FORTRAN SUBROUTINE OF PROGRAM. GENERATES * FILE 134
NO FORTLIB CALLS. * FILE 134
* FILE 134
REVCAT - SYSCTLG BROWSER ADAPTED FROM REVIEW JUST * FILE 134
BECAUSE CVOLS ARE ORGANIZED LIKE PDS * FILE 134
DIRECTORY BLOCKS. INCLUDED HERE ON THE * FILE 134
OFF-CHANCE THAT SOMEONE IN THE WORLD OTHER * FILE 134
THAN SECV STILL HAS OS CATALOGS. * FILE 134
* FILE 134
REVCMPBF - 3270 BUFFER COMPRESSION ROUTINE USED BY * FILE 134
REVIEW AND REVCAT. * FILE 134
* FILE 134
REVIEW - THE ORIGINAL REASON FOR THIS WHOLE FILE. * FILE 134
NON-ISPF FULL-COLOUR FULLSCREEN TAPE/DISK * FILE 134
VSAM/NON-VSAM DATA SET AND DB2 TABLESPACE * FILE 134
BROWSER, SMF, LOGREC, VTOC AND GENERAL * FILE 134
DSECT RECORD FORMATTER, PDS OFFLOADER, * FILE 134
DATA RECLAIMER AND TRANSLATOR. NOW WITH * FILE 134
LOGICAL PARMLIB SUPPORT. "RELEASE 31." * FILE 134
LIFTED FROM CBT MODS TAPE VERSION 230 * FILE 134
CIRCA 1984 AND HAS BEEN A "TERMINAL" CASE * FILE 134
OF CREEPING FEATURISM EVER SINCE. READ * FILE 134
LEADING COMMENTS FOR CHANGES. A PIECE OF * FILE 134
RESISTANCE. SHOULD WORK WITHOUT ERROR ON * FILE 134
ALL KNOWN MVS LEVELS UP TO OS/390. * FILE 134
* FILE 134
REVIEW$ - JCL TO ASSEMBLE REVIEW. * FILE 134
* FILE 134
REVIEW# - TSO HELP FOR REVIEW. * FILE 134
* FILE 134
REVIEW@ - A DISCUSSION OF ADVANCED (UNDOCUMENTED) * FILE 134
'REVIEW' FEATURES/BEHAVIOUR/LOGIC/ILLOGIC. * FILE 134
(FOR RELEASE 16, SO IT IS A BIT OLD NOW.) * FILE 134
* FILE 134
REVINST - INSTALLATION STEPS FOR 'REVIEW' AND 'HEL'. * FILE 134
* FILE 134
REVLMOD - LOAD MODULE RECONSTRUCTION PROGRAM USED * FILE 134
BY REVIEW FOR =PDSLOAD PROCESSING. * FILE 134
* FILE 134
REVLMOD$ - JCL TO ASSEMBLE REVLMOD. * FILE 134
* FILE 134
REVSMF - SMF RECORD FORMATTING ROUTINE OF REVIEW. * FILE 134
HANDLES LOTS OF SMF RECORDS WITH SOME CODE * FILE 134
PINCHED FROM $SMFBRWS. UPDATED TO * FILE 134
MVS/SP5.2 LEVEL. SEVERAL RECORD FORMATS * FILE 134
ARE NOW LEFT/RIGHT SCROLL SENSITIVE. * FILE 134
SEE MEMBER REVIEW@ FOR DISCUSSION. * FILE 134
* FILE 134
REVSMF$ - JCL TO ASSEMBLE REVSMF. * FILE 134
* FILE 134
REVTAPE - SAMPLE CLIST SHOWING USE OF REVIEW TO FIND * FILE 134
OUT WHAT IS ON A TAPE. CAN BE HANDY IF * FILE 134
YOU DON'T KNOW WHAT IS ON A TAPE AND YOU * FILE 134
ARE ALLERGIC TO JCL. * FILE 134
* FILE 134
RIAWHO - A CICS TRANSACTION. SEARCHES THE TCT. * FILE 134
IF USERID SUPPLIED, RETURNS THE TRANSAC- * FILE 134
TION, TERMINAL ID, AND NETNAME. * FILE 134
IF TERMID SUPPLIED, RETURNS THE USERID, * FILE 134
TRANSACTION AND NETNAME. * FILE 134
APPLID, TIME, AND DATE ARE ALSO DISPLAYED. * FILE 134
OKAY FOR AUTOINSTALL. (FROM ANN AUSTIN.) * FILE 134
* FILE 134
R062A10 - OBJECT DECK FROM CBT FILE 352. * FILE 134
ASSEMBLER SUBROUTINE OF 'PROGRAM' * FILE 134
INCLUDED HERE FOR COMPLETENESS. * FILE 134
* FILE 134
SCANX - PDS SCANNER. SEARCH ARGUMENTS CAN BE FROM * FILE 134
THE SIMPLE TO THE BOOLEAN RIDICULOUS. CAN * FILE 134
ALSO SELECT/EXCLUDE CERTAIN MEMBER GROUPS * FILE 134
(BASED ON MEMBER NAME PREFIX) TO REDUCE * FILE 134
THE SEARCH TIME. MOST CONVENIENTLY * FILE 134
INVOKED FROM TSD UTILITY PANELS. * FILE 134
* FILE 134
SHOWDS - FAMOUS TSO COMMAND LIFTED FROM CBT MODS * FILE 134
FILE OF SHARE TAPE IN 1983 AND MODIFIED * FILE 134
FOR ICF ETC. A MUST. WON'T RECALL * FILE 134
MIGRATED DATA SETS BY ACCIDENT. READ * FILE 134
LEADING COMMENTS IN SOURCE FOR EXACT * FILE 134
DETAILS. SIMILAR VERSIONS PROBABLY * FILE 134
AVAILABLE FROM ELSEWHERE ON THE CBT TAPE. * FILE 134
SHOULD WORK WITHOUT ERROR ON ALL KNOWN MVS * FILE 134
LEVELS UP TO ESA. * FILE 134
* FILE 134
SHOWDS$ - JCL TO ASSEMBLE SHOWDS. * FILE 134
* FILE 134
SHOWDS# - TSO HELP FOR SHOWDS. * FILE 134
* FILE 134
SKJ..... - SEE $$TSDDOC. * FILE 134
* FILE 134
SNAKE - GREG PRICE'S INTERPRETATION FOR TSO OF A * FILE 134
PROGRAM SEEN ON A UNIX SYSTEM. * FILE 134
* FILE 134
SNAKE$ - JCL TO ASSEMBLE SNAKE. * FILE 134
* FILE 134
SPGSMPE - SMP/E DIALOG FRONT-END FOR SYSPROGS WHO * FILE 134
ROUTINELY ACCESS MORE THAN ONE GLOBAL * FILE 134
ZONE. SEE ISR@PRIM FOR INVOCATION. * FILE 134
ALSO SEE MEMBER $$INDEX9 FOR DISCUSSION * FILE 134
ON VARIOUS METHODS OF INVOCATION WITH * FILE 134
LIBDEFS AND SO ON. (THIS IS OPTION "W".) * FILE 134
* FILE 134
SPGSMPEP - PANEL FOR SPGSMPE CLIST. * FILE 134
* FILE 134
SPGSMPE4 - SPGSMPE CLIST FOR SMP/E RELEASE 4. * FILE 134
* FILE 134
SPGSMPE5 - SPGSMPE CLIST FOR SMP/E RELEASE 5.1. * FILE 134
* FILE 134
SVMDSSU - FRONT END TO DF/DSS TO BACKUP VM VOLUMES * FILE 134
UNDER MVS. SEE MEMBER $$INDEX2 FOR A * FILE 134
DETAILED DISCUSSION. * FILE 134
* FILE 134
TERMTEST - NON-GDDM TSO TERMINAL CAPABLITY TESTER AND * FILE 134
SYMBOL EDITOR. CRANK IT UP FOR A TEST * FILE 134
RUN. THE SNAZZIER THE TERMINAL THE BETTER * FILE 134
(PRETTY WELL). NEEDS THE DCS MACRO TO * FILE 134
ASSEMBLE. PROGRAM ORGANIZED LIKE A DOG'S * FILE 134
DINNER BUT IT DOES THE JOB; A TRIUMPH OF * FILE 134
THE MONOLITHIC APPROACH. A MANTELPIECE. * FILE 134
INSTALLATION RECOMENDATION: * FILE 134
INSTALL INTO LINKLIST SO THAT ANY USER CAN * FILE 134
USE IT ON HIS/HER OWN TERMINAL WHILE IN * FILE 134
DIAGNOSTIC TELEPHONIC DIALOG WITH * FILE 134
SYSTEM/NETWORK SUPPORT. (EG. IS THE QUERY * FILE 134
BIT ON? WHAT SCREEN SIZES DOES THE VTAM * FILE 134
LOGMODE ALLOW? WHICH APL CHARACTERS ARE * FILE 134
CORRECTLY SUPPORTED? ETC.) * FILE 134
NEEDLESS TO SAY, FULL-SCREEN PROGRAM * FILE 134
DEVELOPERS MAY FIND TERMTEST HANDY TO * FILE 134
DETERMINE OR VERIFY THE CODES FOR SPECIFIC * FILE 134
SCREEN LOCATIONS, GRAPHIC CHARACTERS AND * FILE 134
ATTENTION IDENTIFIERS. ON THE OTHER HAND, * FILE 134
SOMEONE MAY JUST WANT TO PLAY AROUND WITH * FILE 134
FEATURES OF THE TERMINAL HARDWARE. ALSO * FILE 134
SEE "TERMTEST TALK" IN MEMBER $$INDEX2. * FILE 134
* FILE 134
TERMTYPE - MACRO TO PERFORM TSS TERMTYPE FUNCTION. * FILE 134
SUPPLIED HERE SO THAT TERMTEST AND VIEW * FILE 134
MAY BE ASSEMBLED WITHOUT SOURCE CHANGES. * FILE 134
* FILE 134
TESTLSTI - TSO TEST ZAP FROM $SP4MODS UPDATED DUE * FILE 134
PUT MAINTENANCE. * FILE 134
* FILE 134
TEWN - WACKY SCREEN TEST. * FILE 134
* FILE 134
TSD..... - SEE $$TSDDOC. * FILE 134
* FILE 134
TSOPNAME - DINKY LITTLE PROG TO COPY RACF PROGRAMMER * FILE 134
NAME INTO JES2 JCT PROGRAMMER NAME FIELD. * FILE 134
INTENDED FOR TSO LOGON CLIST SO TSU * FILE 134
GENERATED OUTPUT HAS THE PROGRAMMER NAME * FILE 134
IN THE SEPARATORS. JES2 2.2.0/3.1.1 * FILE 134
VERSION SUPPLIED HERE. CAN BE CHANGED * FILE 134
EASILY TO SUPPORT TOP SECRET RATHER THAN * FILE 134
RACF. (NOT NEEDED FOR ACF2.) * FILE 134
* FILE 134
UIDSTR - TSO COMMAND FOR WITHIN CLISTS ONLY. * FILE 134
RETURNS THE ACF2 UID STRING INTO A CLIST * FILE 134
VARIABLE CALLED &UIDSTR. * FILE 134
* FILE 134
VIEW - MVS/370 (AND, IF YOU'RE INTERESTED, MSP) * FILE 134
PROGRAM TO PERFORM A SENSE ID TO A * FILE 134
NOMINATED I/O DEVICE, OR A READ BUFFER TO * FILE 134
A NOMINATED GRAPHIC DISPLAY DEVICE. DOES * FILE 134
NOT SUPPORT EXTENDED ARCHITECTURE. * FILE 134
* FILE 134
VMUCBZAP - MUCH THE SAME AS SVMDSSU EXCEPT THAT IT * FILE 134
WAS NOT SPECIFICALLY A FRONT END TO * FILE 134
ANYTHING. LETS YOU BROWSE/REVIEW/ZAP OR * FILE 134
WHATEVER VM MINIDISKS FROM MVS. SEE * FILE 134
MEMBER $$INDEX2 FOR MORE DETAILS. * FILE 134
* FILE 134
WORM - GREG PRICE'S INTERPRETATION FOR TSO OF A * FILE 134
PROGRAM SEEN ON A UNIX SYSTEM. A * FILE 134
BREAKTHROUGH IN ER... SOMETHING. USEFUL * FILE 134
(?) TO MEASURE TPUT ELAPSED TIME TO GET AN * FILE 134
IDEA OF NETWORK DELAY. READ COMMENTS IN * FILE 134
SOURCE FOR FULL DOCO. * FILE 134
* FILE 134
WORM$ - JCL TO ASSEMBLE WORM. * FILE 134
* FILE 134
X....... - COMPONENTS OF THE FAMOUS SUPERLST VTOC * FILE 134
LISTER. FULLY SUPPORTS THE LATEST VTOC * FILE 134
SNAZZIES. READ COMMENTS IN XVTCLIST FOR * FILE 134
DETAILS. * FILE 134
* FILE 134
XSPLIT - CLIST TO CREATE NEW ISPF SESSION OVER * FILE 134
YOUR CURRENT ISPF SESSION. NEEDS AN * FILE 134
ADDITION TO YOUR ISPCMDS. SEE $$INDX11. * FILE 134
* FILE 134
XVTOCASM - JCL TO ASSEMBLE SUPERLST. * FILE 134
* FILE 134
ZAP - UCLA TSO ZAP COMMAND FROM THE CBT MODS * FILE 134
FILE OF VERSION 22 OF THE SHARE TAPE CIRCA * FILE 134
1983 WITH SOME EXTRA MODIFICATIONS. * FILE 134
PERHAPS THE MAIN CHANGE IS FULL VOLUME * FILE 134
ZAPPING SUPPORT WHICH, OF COURSE, REQUIRES * FILE 134
THE APPROPRIATE APF AND RACF AUTHORITIES. * FILE 134
* FILE 134
ZAP$ - JCL TO ASSEMBLE ZAP. * FILE 134
* FILE 134
ZAP$DOC - BRUCE BORDONARO'S NOTES ON THIS VERSION * FILE 134
OF THE UCLA ZAP COMMAND. * FILE 134
* FILE 134
ZAP# - TSO HELP FOR ZAP. * FILE 134
* FILE 134
* FILE 134
FOR ADDITIONAL INFORMATION SEE THE MEMBERS * FILE 134
$$INDEX THROUGH $$INDX24. * FILE 134
* FILE 134
IS FROM MR GREG PRICE OF PRYCROFT SIX * FILE 135
IN MELBOURNE, VICTORIA, AUSTRALIA. * FILE 135
THIS FILE IS IN IEBCOPY FORMAT AND CONTAINS * FILE 135
READY-TO-USE LOAD MODULES. * FILE 135
* FILE 135
** PROGRAMS AND COMMANDS FROM FILE 134: * FILE 135
* FILE 135
$CRYPT - TSO CP - ALIASES $ENCRYPT AND $DECRYPT * FILE 135
$FREEALL - TSO CP * FILE 135
$HBLIST - TSO CP - DSNAME 'HSM.BCDS' HARD CODED * FILE 135
$HMLIST - TSO CP - DSNAME 'HSM.MCDS' HARD CODED * FILE 135
$HMLISTW - TSO CP - DSNAME 'HSM.MCDS' HARD CODED * FILE 135
$LISTX - TSO CP - ALIAS $LISTM * FILE 135
ANIM1-5 - TSO CP OR PGM * FILE 135
CDSCB - TSO CP * FILE 135
CONCAT - TSO CP * FILE 135
CUBE - TSO CP OR PGM * FILE 135
DCPU - TSO/BATCH/STC PGM * FILE 135
DDASD - TSO CP OR BATCH/STC PGM * FILE 135
DIVER - TSO CP OR PGM - GE SUPPORT ASSUMED * FILE 135
DUPTIME - TSO CP OR TSO/BATCH/STC PGM - ALIAS DUP * FILE 135
FLAG - TSO CP OR PGM - TPUT DEMO * FILE 135
FSHELP - TSO CP - ALIAS FSH - ALIAS OF REVIEW * FILE 135
GE2 - TSO CP OR PGM - TPUT DEMO * FILE 135
HEL - TSO CP - FULLSCREEN HELP - ALIAS OF REVIEW * FILE 135
IEFU83 - SMF EXIT FROM $$IEFU83 * FILE 135
IKJEFF10 - TSO EXIT - ISPF V3.4 OFFSETS ASSUMED * FILE 135
IKJEFF53 - TSO EXIT * FILE 135
IMAGE1-2 - TSO CP OR PGM * FILE 135
LIFE - TSO CP * FILE 135
LISTICAT - LIST ICF CATALOG UTILITY * FILE 135
LISTVOL - TSO CP - ALIAS LISTV * FILE 135
MONO - TSO PGM - MONOPOLY * FILE 135
MSGASIDX - MPF EXIT * FILE 135
MSGFLUSH - MPF EXIT FROM $$IEFU83 * FILE 135
MSGJOBLG - MPF EXIT FROM $$IEFU83 * FILE 135
MSGNOJLG - MPF EXIT FROM $$IEFU83 * FILE 135
MSGNOLOG - MPF EXIT FROM $$IEFU83 * FILE 135
MSG2USER - MPF EXIT FROM $SP4MODS * FILE 135
PROGRAM - TSO PGM - PL/1 ADVENTURE * FILE 135
PS-PS7 - TSO CP OR PGM - TPUT DEMO * FILE 135
REVIEW - TSO CP - ALIAS REV,REVVSAM,HEL,FSHELP,FSH * FILE 135
REVLMOD - TSO/BATCH PGM - MAINLY FOR USE BY REVIEW * FILE 135
REVSMF - EXTERNAL SUBROUTINE OF REVIEW * FILE 135
SCANX - TSO/BATCH PDS SEARCH UTILITY PROGRAM * FILE 135
SHOWDS - TSO CP - ALIAS SDS * FILE 135
SKJ$LC00 - TSO CP - ALIASES $LCSPF, $LISTC AND $SPACE * FILE 135
SMFJBTIM - SMF TYPE26 POST-PROCESSING UTILITY PROGRAM * FILE 135
SNAKE - TSO CP OR PGM - * FILE 135
ALIASES HALFSNAK, HS, QS AND QUARTERS * FILE 135
SUPERLST - VTOC LISTING UTILITY PROGRAM * FILE 135
TERMTEST - TSO CP OR PGM - TSO 3270 TERMINAL TESTER * FILE 135
TESTDCS-2- TSO CP OR PGM - TPUT DEMO * FILE 135
TEWM - TSO CP OR PGM - TPUT DEMO * FILE 135
TSOPNAME - TSO CP OR PGM - CHECK JES2/RACF LEVELS * FILE 135
UIDSTR - TSO CP WITHIN CLIST ONLY - ACF2 ONLY * FILE 135
VIEW - TSO PROGRAM - PRE-XA ONLY * FILE 135
WORM - TSO CP OR PGM - ALIASES HALFTEST, HW, QW, * FILE 135
HALFWORM, QUARTEST AND QUARTERW * FILE 135
ZAP - TSO CP - ALIAS ZAP$ (ZAP$ IS USED BY PDS) * FILE 135
* FILE 135
** PROGRAMS AND COMMANDS FROM FILE 90: * FILE 135
* FILE 135
DELINKI - UTILITY WHICH CAN BE USED BY REVIEW * FILE 135
DWNSPDSR - EXTERNAL SUBROUTINE OF DELINKI * FILE 135
* FILE 135
** PROGRAMS AND COMMANDS FROM FILE 93: * FILE 135
* FILE 135
PDSLOAD - UTILITY WHICH CAN BE USED BY REVIEW * FILE 135
* FILE 135
** PROGRAMS AND COMMANDS FROM FILE 182: * FILE 135
* FILE 135
PDS85 - TSO CP - ALIAS PDS * FILE 135
THIS IS FOR (MAINLY NON-U.S.) SITES WHO * FILE 135
PREFER THE DD/MM/YY DATE FORMAT. * FILE 135
* FILE 135
** PROGRAMS AND COMMANDS FROM FILE 183: * FILE 135
* FILE 135
BR - TSO CP - ISPF ONLY - BROWSE ANY DSORG * FILE 135
FASTPATH - TSO CP - ISPF ONLY - ADDS IN-CORE ISPCMDS * FILE 135
LCAT - TSO CP - ISPF ONLY - ALIAS LC * FILE 135
SHOWMVS - TSO CP OR PGM - ISPF RECOMMENDED * FILE 135
* FILE 135
** PROGRAMS AND COMMANDS FROM FILE 296: * FILE 135
* FILE 135
COMPARE - TSO CP - FRONT END TO COMPAREB/IEBCOMPR * FILE 135
COMPAREB - YALE COMPARE UTILITY PROGRAM * FILE 135
* FILE 135
** PROGRAMS AND COMMANDS FROM FILE 300: * FILE 135
* FILE 135
IKJT9FI - TSO TEST SUBCOMMAND - UPDATE IKJTSO00 * FILE 135
IKJT9LB - TSO TEST SUBCOMMAND - UPDATE IKJTSO00 * FILE 135
LOGO - GDDM EXAMPLE FROM SOURCE MEMBER GDDM * FILE 135
NITEFLT - GDDM EXAMPLE FROM SOURCE MEMBER GDDM * FILE 135
SABREBAT - GDDM EXAMPLE FROM SOURCE MEMBER GDDM * FILE 135
SHUTTLE - GDDM EXAMPLE FROM SOURCE MEMBER GDDM * FILE 135
* FILE 135
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
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
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
IS FROM MR DENNIS LONGNECKER FROM THE ADMINISTRATOR * FILE 139
OF THE COURT OF THE STATE OF WASHINGTON. FOR * FILE 139
ADDITIONAL INFORMATION SEE THE MEMBER CALLED $$DOC. * FILE 139
THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS * FILE 139
THE FOLLOWING MEMBERS * FILE 139
* FILE 139
email: dennis.longnecker@courts.wa.gov * FILE 139
* FILE 139
JESEX008 EXIT 8 WHICH WILL SCAN THE JOB'S JCT AND * FILE 139
FIND OUT THE MAX ABEND CODE FOR THE GIVEN * FILE 139
JOB. THIS PROGRAM MUST BE IN COMMON * FILE 139
STORAGE. I ADD AN ENTRY IN IEALPAXX TO * FILE 139
LOAD MY VERSION FROM A LINKLIST LIBRARY * FILE 139
(SYS2.LINKLIB). * FILE 139
* FILE 139
JESEX016 THIS PROGRAM WORKS IN CONJUNCTION WITH EXIT * FILE 139
8. IT TAKES WHATEVER DATA IS IN THE * FILE 139
JCTUSER1 FIELD AND SENDS IT TO THE USER. * FILE 139
* FILE 139
OACJCT SINCE THE JES JCT AND THE MVS JCT USE THE * FILE 139
SAME NAME FOR SOME OF THE FIELDS, AND EXIT * FILE 139
8 USES BOTH JCT'S THERE IS A COMPILE ERROR * FILE 139
IF YOU DON'T DO SOMETHING ABOUT IT. * FILE 139
* FILE 139
SAS#BLOCK THIS IS A LITTLE SAS PROGRAM WHICH USES A * FILE 139
FDR VTOC LIST AND GIVES RECOMMENDED * FILE 139
BLOCKSIZES FOR THE TYPE OF DEVICE THE DATA * FILE 139
SET IS ON. * FILE 139
* FILE 139
TERMPROG THIS IS A CICS PROGRAM WHICH DISPLAYS ALL * FILE 139
THE TERMINALS SIGNED ON THE SYSTEM. IF * FILE 139
YOU PUT THE CURSOR NEXT TO A TERMINAL NAME * FILE 139
AND PRESS ENTER, DETAILED INFORMATION * FILE 139
ABOUT THE TERMINAL IS DISPLAYED. * FILE 139
* FILE 139
TESTPRTR IS A PROGRAM WHICH TESTS VTAM PRINTERS. IT * FILE 139
ALSO LOOKS AT THE BIND IMAGE SENT AND SENDS * FILE 139
A MESSAGE TO THE PRINTER TELLING IT WHAT * FILE 139
TYPE OF PRINTER IT IS. * FILE 139
* FILE 139
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
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
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
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
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
IS FROM MR BILL SMITH, FORMERLY OF CHARLES SCHWAB, * FILE 145
AND CONTAINS A COPY OF KERMIT FOR TSO. THIS FILE IS * FILE 145
IN IEBCOPY FORMAT AND CONTAINS SOURCE. * FILE 145
* FILE 145
ADDRESS: WILLIAM SMITH * FILE 145
IBM * FILE 145
STORAGE SYSTEMS DIVISION * FILE 145
5600 COTTLE ROAD * FILE 145
DEPT. W98A * FILE 145
DRIVER BUILD & INTEGRATION * FILE 145
BUILDING 50, ROOM A382 * FILE 145
SAN JOSE, CA 95193-0001 * FILE 145
(408) 256-1557 OR * FILE 145
TIE LINE 276-1557 * FILE 145
* FILE 145
email: smithwj@us.ibm.com * FILE 145
goldens@ibm.net * FILE 145
* FILE 145
THE KERMIT COMMAND INVOKES KERMIT-TSO, AN ASSEMBLY * FILE 145
LANGUAGE PROGRAM WHICH IMPLEMENTS THE KERMIT FILE * FILE 145
TRANSFER PROTOCOL ON IBM SYSTEM/370 AND XA MAINFRAME * FILE 145
COMPUTERS AND COMPATIBLES RUNNING THE MVS (MULTIPLE * FILE 145
VIRTUAL STORAGE) OPERATING SYSTEM WITH THE TSO (TIME * FILE 145
SHARING OPTION) SUBSYSTEM. KERMIT-TSO SUPPORTS FILE * FILE 145
TRANSFER IN BOTH LINE-MODE AND FULL-SCREEN OPERATION. * FILE 145
* FILE 145
LINE-MODE SUPPORTS ASYNCHRONOUS HALF-DUPLEX ASCII * FILE 145
COMMUNICATIONS THROUGH 3705/3725 OR EQUIVALENT FRONT * FILE 145
ENDS, WHILE FULL-SCREEN SUPPORTS ASYNCHRONOUS * FILE 145
FULL-DUPLEX ASCII COMMUNICATIONS THROUGH THE IBM * FILE 145
SERIES/1 RUNNING THE YALE ASCII COMMUNICATIONS SYSTEM * FILE 145
(OR EQUIVALENT) OR VARIOUS OTHER CONVERTERS WITH * FILE 145
GRAPHICS THROUGHPUT OPTION. * FILE 145
* FILE 145
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
is from Rick Fochtman, of Chicago Illinois, and * FILE 147
contains a copy of "The ARCHIVER". "The ARCHIVER" * FILE 147
has been upgraded to Version 6.1. This file is in * FILE 147
IEBUPDTE SYSIN format. * FILE 147
* FILE 147
To my knowledge, there isn't any other software * FILE 147
product like this, anywhere. (SG - 10/99) * FILE 147
* FILE 147
"The ARCHIVER" is a handy mechanism to store all of * FILE 147
your software and data objects--source code, load * FILE 147
modules, PSF objects, and the like--in one place, * FILE 147
in a single VSAM cluster. Version 4.0 and higher * FILE 147
of The ARCHIVER provide a large amount of data * FILE 147
compression, especially for source code. Version * FILE 147
4.0 and higher of "The ARCHIVER" allows item-by-item * FILE 147
"export" to tape. From the tape we can go directly * FILE 147
back to pds uncompressed form, without need for the * FILE 147
intermediate VSAM cluster. Version 5.0 of The * FILE 147
ARCHIVER was extensively reworked from previous * FILE 147
versions. Files created with previous versions of * FILE 147
"The ARCHIVER" are upgradable with the "CONVERT" * FILE 147
command. Rick Fochtman plans to keep "The ARCHIVER" * FILE 147
upwardly compatible. * FILE 147
* FILE 147
Version 6.1 of The ARCHIVER is basically a * FILE 147
Y2K-ization of Version 5.0. (Remember here that * FILE 147
the general CBT disclaimer about Y2K compatibility * FILE 147
being "not guaranteed" applies - SG 10/12/99.) * FILE 147
* FILE 147
"The ARCHIVER" makes it possible to handily store * FILE 147
your personal software tool-kit for transport and * FILE 147
archive purposes. It may also be useful for the * FILE 147
installation's stuff to help archive all your shop's * FILE 147
software on a tape or two. * FILE 147
* FILE 147
THIS FILE CONTAINS SOURCE AND MACROS. ALSO A MEMBER * FILE 147
CALLED SAMPLIB CONTAINS AN IEBUPDTE SYSIN STREAM FOR * FILE 147
RICK'S SAMPLIB PDS. SEE MEMBER CALLED ARCHDOC. * FILE 147
* FILE 147
ARCHIVER FUNCTIONS: (NOT ALL OF THEM LISTED HERE) * FILE 147
* FILE 147
1. UNLOAD A PDS OR SELECTED PDS MEMBERS TO A VSAM * FILE 147
CLUSTER, STORING HISTORICAL AND COMMENT DATA * FILE 147
RELATED TO EACH ITEM. * FILE 147
* FILE 147
2. LOAD A PDS FROM A VSAM CLUSTER ARCHIVE. * FILE 147
* FILE 147
3. LIST, COPY OR DELETE ITEMS FROM A VSAM CLUSTER * FILE 147
ARCHIVE DATASET. OPTIONALLY, ADD COMMENT DATA TO * FILE 147
ITEMS ON THE ARCHIVE CLUSTER. * FILE 147
* FILE 147
4. ITEM-BY-ITEM "EXPORT" OF ALL ENTRIES IN THE VSAM * FILE 147
CLUSTER TO TAPE -- STILL IN HIGHLY COMPRESSED * FILE 147
FORMAT. LISTT TO LIST CONTENTS AND LOADT TO * FILE 147
LOAD A PDS DIRECTLY FROM TAPE, PARALLEL THE LIST * FILE 147
AND LOAD FUNCTIONS DESCRIBED ABOVE FOR THE VSAM * FILE 147
CLUSTER ARCHIVE DATASET. * FILE 147
* FILE 147
5. PROVIDE A DATA-COMPRESSION MECHANISM TO REDUCE * FILE 147
THE MEDIA REQUIREMENTS OF THE VSAM CLUSTER * FILE 147
ARCHIVE DATASET AND THE "ITEM-BY-ITEM EXPORT" * FILE 147
TAPE. * FILE 147
* FILE 147
6. BACKUP AND RECOVER USING STANDARD IBM UTILITY * FILE 147
MECHANISMS. YOU CAN USE THE "IDCAMS EXPORT" * FILE 147
AND "IDCAMS IMPORT" TOO, BUT THEY AREN'T ITEM- * FILE 147
BY-ITEM. THEY MUST DO THE ENTIRE VSAM DATASET. * FILE 147
* FILE 147
email address: rick.fochtman@botcc.com * FILE 147
rfochtman@ync.net * FILE 147
* FILE 147
RICK FOCHTMAN PREFERS TO BE CONTACTED AT HIS HOME PHONE * FILE 147
EVENINGS FROM 6 TO 9 PM EXCEPT THURSDAYS. (630) 719-1545. * FILE 147
YOU MAY GET A GROUCHO MARX IMITATION ON HIS ANSWERING * FILE 147
MACHINE. HAVE NO FEAR....ALL IS NORMAL. SG 10/99 * FILE 147
YOU MAY LEAVE A MESSAGE AND A RETURN PHONE NUMBER ON HIS * FILE 147
MACHINE DURING THE DAY HOURS. (RICK IS ON CENTRAL TIME.) * FILE 147
* FILE 147
ANOTHER NOTE -- I MIGHT AS WELL MENTION THIS CONCEPT HERE. * FILE 147
* FILE 147
"THE ARCHIVER" CLASSIFIES "ITEMS" BY FOUR 10-BYTE KEYS AND * FILE 147
A VERSION NUMBER THAT CAN GO FROM 1 TO 16MB. SOME EXAMPLE * FILE 147
CONTROL STATEMENTS TO UNLOAD ALL MEMBERS OF A PDS INTO A * FILE 147
VSAM CLUSTER MIGHT READ AS FOLLOWS: * FILE 147
* FILE 147
SET VSAM1DSN=TST.SAMPLE.SYSTEM.ARCHIVE * FILE 147
* COMMENT (ASTERISK IN COLUMN 1) * FILE 147
* SET STATEMENT INSTRUCTS DYNAMIC ALLOCATION. * FILE 147
* VSAM1DSN OR VSAM1DDN STATEMENTS ALLOCATE VSAM CLUSTERS. * FILE 147
UNLOAD ITEM=(*,SYS1.LKLIB,10/05/90,MVSRES),DSN=SYS1.LINKLIB * FILE 147
* DSN OR DDN STATEMENTS ALLOCATE NON-VSAM DATASETS. * FILE 147
* FILE 147
THE COMMAS DELIMIT THE KEY FIELDS. THE "*" IN THE FIRST * FILE 147
FIELD DENOTES THAT ALL MEMBERS OF THE PDS SHOULD BE UNLOADED.* FILE 147
SYS1.LINKLIB, IF IT IS CATALOGED, IS DYNAMICALLY ALLOCATED * FILE 147
BY THE ARCHIVER PROGRAM, AS INSTRUCTED BY THE "DSN" KEYWORD. * FILE 147
VERSION NUMBER (THE FIFTH PARAMETER) DEFAULTS TO 1. * FILE 147
* FILE 147
IF AN ITEM EXISTS ON THE VSAM ARCHIVE WITH ALL KEYS AND * FILE 147
VERSION NUMBER MATCHING, A NEW COPY WILL BE ARCHIVED WITH * FILE 147
VERSION NUMBER INCREMENTED BY ONE. IT IS EASIER TO STORE * FILE 147
AN EXTRA COPY THAN TO RECOVER A DELETED COPY. IF THE * FILE 147
VERSION NUMBER IS EXPLICITLY STATED AND ALL FIVE KEYS MATCH, * FILE 147
THEN AN ITEM REPLACE IS FORCED. A VERSION NUMBER MAY BE * FILE 147
EXPLICITLY STATED, BUT THIS IS USUALLY NOT PREFERABLE. * FILE 147
* FILE 147
>> PLEASE KEEP LOOKING HERE FOR REPORTS OF NEW DEVELOPMENTS. << * FILE 147
* FILE 147
A. ARCHIVER VERSION 6.1 HAS A "COMPARE" FUNCTION AND AN * FILE 147
"ALIAS" FUNCTION FOR ITEMS, WHICH ARE NEW. THE FORMAT * FILE 147
OF THE ARCHIVE HASN'T CHANGED--VERSION 6.1 WILL READ * FILE 147
ARCHIVES CREATED BY VERSION 4.0 WITHOUT CONVERSION, * FILE 147
(BUT NOT VICE-VERSA, BECAUSE OF THE NEW ALIAS HEADERS). * FILE 147
THERE IS ALSO A NEW FEATURE TO LIST CATEGORIES OF * FILE 147
ITEMS. YOU MAY PICTURE THIS FUNCTION AS DESCRIBING * FILE 147
"LOGICAL FILES" WITHIN A SINGLE ARCHIVE VSAM DATASET * FILE 147
OR TAPE. THE FUNCTION IS CALLED "LFILE" (FROM AN * FILE 147
ARCHIVE) AND "LFILET" (FROM A TAPE). * FILE 147
* FILE 147
B. IN VERSION 6.1, IF TWO ARCHIVED ITEMS COMPARE TO BE * FILE 147
IDENTICAL, IT IS POSSIBLE TO STORE ONLY ONE COPY OF * FILE 147
THE ACTUAL DATA, AND STILL GET TO THE ITEM VIA TWO * FILE 147
KEYS--ONE IS THE ACTUAL KEY, AND THE OTHER IS AN * FILE 147
ALIAS KEY. THIS CAN RESULT IN ENORMOUS MEDIA SAVINGS. * FILE 147
(RICK FOCHTMAN HAS DONE "WONDERS" WITH THIS FACILITY. * FILE 147
HE HAS SENT ME A SINGLE CARTRIDGE CONTAINING "THE * FILE 147
ARCHIVER 5.0" SOFTWARE, PLUS AN ITEM-BY-ITEM EXPORTED * FILE 147
ARCHIVE CONTAINING SIX VERSIONS OF THE CBT TAPE, THE * FILE 147
JES2 AND JES3 SHARE TAPES, THE CICS SHARE TAPE, AND * FILE 147
MATERIAL FROM OTHER TAPES. I THINK HE DESERVES AT * FILE 147
LEAST A "WOW".) * FILE 147
* FILE 147
>>>> NOTICE - NOTICE - NOTICE - NOTICE - NOTICE - NOTICE <<<< * FILE 147
>> << * FILE 147
>> FOR ARCHIVER USERS, ARCHIVER VERSIONS 1, 2, AND 3 << * FILE 147
>> WILL NOT BE SUPPORTED AFTER JUNE 1, 1994. VERSION 6.1 << * FILE 147
>> WILL CONVERT FILES FROM THE EARLIER FORMATS, TO ITS << * FILE 147
>> CURRENT FORMAT. << * FILE 147
>> << * FILE 147
>>>> NOTICE - NOTICE - NOTICE - NOTICE - NOTICE - NOTICE <<<< * FILE 147
* FILE 147
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
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
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
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
IS FROM MR HAROLD ZBIEGIEN OF AMERICAN GREETINGS * FILE 152
CORPORATION OF CLEVELAND, OHIO AND CONTAINS * FILE 152
SOME UTILITY PROGRAMS AND PROGRAMS USED TO * FILE 152
MANIUPLATE AFP (PSF) OBJECTS SUCH AS CHARACTER * FILE 152
SETS AND OVERLAYS. THIS FILE IS IN IEBUPDTE * FILE 152
SYSIN FORMAT, SEE THE MEMBER CALLED $$DOC FOR * FILE 152
ADDITIONAL INFORMATION * FILE 152
* FILE 152
email: harold.zbiegien@amgreetings.com * FILE 152
* FILE 152
address: AMERICAN GREETINGS CORP. * FILE 152
ONE AMERICAN ROAD * FILE 152
CLEVELAND, OHIO 44144 * FILE 152
* FILE 152
phone: 216-252-7300 ext 2317 * FILE 152
* FILE 152
AGGETVLI SUBROUTINE USED IN INLINE * FILE 152
AGTERM SUBROUTINE USED IN INLINE * FILE 152
AMAZING PRODUCE A MAZE WITH ONE ENTRANCE AND * FILE 152
ONE EXIT (SOURCE) * FILE 152
AMAZING2 RUN THE PROGRAM, PRINT ON A PRINTER * FILE 152
THAT DOES NOT SKIP OVER THE PERFS. * FILE 152
CALENDAR PRINT A COMBINED JULIAN AND GREGORIAN * FILE 152
CALENDAR FOR ANY YEAR * FILE 152
F11UP PPFA SOURCE, FORM DEFINTION FOR 1-UP * FILE 152
PRINTING * FILE 152
F12UP PPFA SOURCE, FORM DEFINITION FOR * FILE 152
ROTATED 2-UP PRINTING * FILE 152
INLINE COBOL SOURCE FOR A PROGRAM TO COPY * FILE 152
PAGEDEFS AND FORMDEFS INLINE WITH THE * FILE 152
DATA FOR TESTING NEW PAGE AND FORM DEFS * FILE 152
COMPILED WITH THE NORES PARAMETER WITH * FILE 152
THE OLD OS/VS COBOL COMPILER * FILE 152
INLINER RUN TIME JCL FOR INLINE * FILE 152
JOVERBLD THE SAS JOB TO CREATE PSF TYPE OVERLAYS * FILE 152
NCZ93205 AN UPDATED VERSION OF A PDS MEMBER READ * FILE 152
SUBROUTINE FOUND ON THE CBT TAPE, ONE * FILE 152
BUG CORRECTED, EXTRA PARAMETER ADDED SO * FILE 152
THE CALLING PROGRAM CAN PASS A DDNAME * FILE 152
TO READ FROM * FILE 152
O$$DOC DOCUMENTATION ON THE TWO OVERLAYS * FILE 152
O11UP SOURCE FOR THE PSF 1-UP OVERLAY * FILE 152
O12UP SOURCE FOR THE PSF 2-UP OVERLAY * FILE 152
POSTERT JCL TO RUN POSTER FOR NON-LASER * FILE 152
PRINTERS * FILE 152
POSTERT2 DECOMPILED SOURCE FOR THE POSTER * FILE 152
PROGRAM FOUND ON THE CBT TAPE, SOME * FILE 152
BUGS FIXED, CARD INPUT NOW ALLOWED * FILE 152
POSTER2 JCL TO PRINT POSTER OUTPUT ON A * FILE 152
SIEMENS/STC LASER PRINTER WHICH ARE * FILE 152
COMPATIBLE WITH IBM 3800-3/6 PRINTERS * FILE 152
BUT YOU CAN PRINT PERF TO PERF, HOWEVER * FILE 152
WITH SOME DEGRADATION * FILE 152
PSFSCAN A SERIES OF SAS PROGRAMS USED TO PRINT * FILE 152
AND MANIPULATE PSF OBJECTS. I HAVE * FILE 152
USED THEM TO MAKE SIMPLE CHANGES TO * FILE 152
CHARACTER SETS, MODIFY BAR CODE FONTS, * FILE 152
PRODUCE ROTATED FONTS, PRODUCE OUR OWN * FILE 152
GREY BAR PATTERN, AND PRODUCE OUR OWN * FILE 152
SIMPLE OVERLAYS. * FILE 152
THESE HAVE BEEN DESIGNED AROUND THE * FILE 152
3800 TYPE PRINTER. THERE ARE DIFFERENCES * FILE 152
WITH 3820/3835 FONTS THAT THESE * FILE 152
PROGRAMS PROBABLY WILL NOT HANDLE. * FILE 152
SINCE WE DO NOT HAVE THE OTHER PRINTERS * FILE 152
I COULD NOT MODIFY AND TEST THE * FILE 152
PROGRAMS. * FILE 152
PSFSCANA SAS PROGRAM TO LOAD A PSF CHARACTER * FILE 152
GROUP INTO A SAS FILE * FILE 152
PSFSCANB SAS PROGRAM TO TAKE SAS DATA AND BUILD * FILE 152
NEW PSF CHARACTER GROUP, I.E. A C1XXXXX * FILE 152
MEMBER * FILE 152
PSFSCANC DELETE A CHARACTER FROM THE SAS DATA * FILE 152
SET * FILE 152
PSFSCAND ADD A CHARACTER TO THE SAS DATA SET * FILE 152
PSFSCANE PRINT THE SAS FILE DATA AND CHARACTER * FILE 152
RASTER PATTERN * FILE 152
PSFSCANF PRINT INFO AND THE CHARACTERS FROM THE * FILE 152
SAS DATA FILE * FILE 152
PSFSCANH LOAD A CODE PAGE INTO A SAS FILE, I.E. * FILE 152
T1XXXXX MEMBER * FILE 152
PSFSCANI PRINT THE CODE PAGE FROM THE SAS FILE * FILE 152
PSFSCANJ DELETE A CHARACTER FROM THE SAS CODE * FILE 152
PAGE FILE * FILE 152
PSFSCANK ADD A CHARACTER TO THE SAS CODE PAGE * FILE 152
FILE * FILE 152
PSFSCANL BUILD A NEW CODE PAGE FROM THE SAS FILE * FILE 152
PSFSCANM TAKE 3800-3 "DOWN" FONT AND CHANGE IT * FILE 152
INTO AN "UP" FONT I.E. TAKE A C2XXXXX * FILE 152
MEMBER AND CHANGE INTO A C4XXXXX * FILE 152
PSFSCANN PRINT AN UP RASTER PATTERN FROM THE SAS * FILE 152
FILE * FILE 152
PSFSCANO BUILD THE "UP" CHARACTER SET FROM THE * FILE 152
SAS FILE * FILE 152
PSFSCANP COMPARE A SAS CHARACTER SET AND SAS * FILE 152
CODE PAGE * FILE 152
PSFSCANQ BUILD AN OVERLAY USING SAS AND SOURCE * FILE 152
COMMANDS. A SAMPLE OVERLAY TESTING OUT * FILE 152
ALL OF THE COMMANDS * FILE 152
PSFSCAN1 READ A GROUP OF X1XXXX FONT MEMBERS, * FILE 152
SORT AND PRINT DATA * FILE 152
PSFSCAN4 PRINT INFO ON ONE T1XXXXX MEMBER, A * FILE 152
CODE PAGE PRINT * FILE 152
PSFSCAN5 PRINT INFO ON 1 C1XXXXX MEMBER, A * FILE 152
CHARACTER GROUP * FILE 152
PSFSCAN6 PRINT INFO ON A GROUP OF CHARACTER * FILE 152
GROUPS * FILE 152
PSFSCAN7 PRINT A 1 LINE SUMMARY ON A SINGLE * FILE 152
CHARACTER GROUPS * FILE 152
PSFSCAN8 PRINT A 1 PAGE SUMMARY ON A GROUP OF * FILE 152
CHARACTER GROUPS * FILE 152
PSFSCAN9 PRINT INFO AND THE RASTER PATTERN OF * FILE 152
ONE CHARACTER GROUP * FILE 152
P12UP PPFA SOURCE FOR OUR 2-UP PAGE DEF * FILE 152
P18B2 PPFA SOURCE FOR OUR 1-UP PAGE DEF * FILE 152
RFIXMOVE SUBROUTINE USED IN INLINER * FILE 152
RPRINT02 SUBROUTINE USED IN INLINER * FILE 152
RPRINT07 SUBROUTINE USED IN INLINER * FILE 152
RPRINT09 SUBROUTINE USED IN INLINER * FILE 152
T$$DOC DOC ON OUR CODE PAGES * FILE 152
TIMETAKE SOURCE FOR A PROGRAM ANALYZER PROGRAM. * FILE 152
THE PROGRAM LOADS AND RUNS A TARGET * FILE 152
PROGRAM. IT SETS A TIMER WHICH IS USED * FILE 152
TO SAMPLE WHERE A PROGRAM IS (PSW * FILE 152
INSTRUCTION) AND WRITE THE INFO OUT TO * FILE 152
A FILE. THIS CAN BE USED TO TELL YOU * FILE 152
WHERE YOUR PROGRAM IS SPENDING THE MOST * FILE 152
TIME. WORKS ON 24 OR 31 BIT PROGRAMS. * FILE 152
THERE ARE MUCH BETTER PROGRAMS ON THE * FILE 152
MARKET. IT IS BEST IF ALL OF THE * FILE 152
SUBROUTINES ARE LINKED AS PART OF THE * FILE 152
LOAD MODULE. * FILE 152
TIMEHIST COBOL PROGRAM USED TO PRINT A HISTOGRAM * FILE 152
OF THE DATA GATHERED BY TIMETAKE. THIS * FILE 152
IS AN OLD OS/VS COBOL PROGRAM. * FILE 152
TIMHISTJ SAMPLE JCL FOR RUNNING TIMEHIST * FILE 152
TIMTAKEJ SAMPLE JCL FOR RUNNING TIMETAKE * FILE 152
X$$DOC DOC ON OUR CHARACTER SETS * FILE 152
* FILE 152
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
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
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
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
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
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
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
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
IS FROM JIM MARSHALL (AIR FORCE RETIREE) AND CONTAINS * File 161
VARIOUS ISPF/PDF MENUS, PANELS, SKELETONS, CLISTS, * FILE 161
ETC. SEE MEMBER $$PROSE FOR ADDITIONAL INFORMATION. * FILE 161
THE FILE IS IN IEBUPDTE SYSIN FORMAT. * FILE 161
* FILE 161
JIM HAS RETIRED FROM THE AIR FORCE. HIS ADDRESS IS: * FILE 161
* FILE 161
JIM MARSHALL, US TREASURY * FILE 161
FINANCIAL MANAGEMENT SERVICE * FILE 161
PRINCE GEORGES PLAZA II - ROOM 400B * FILE 161
3700 EAST-WEST HIGHWAY * FILE 161
HYATTSVILLE, MD 20782 * FILE 161
202-874-8353 * FILE 161
* FILE 161
email: jim.marshall@fms.treas.gov * FILE 161
* FILE 161
RELEASE 18 - 01 Oct 99 * FILE 161
* FILE 161
* FILE 161
SUMMARY OF THE MODULES CONTAINED. HINT: MEMBER MEANS * FILE 161
ALL MEMBERS NEEDED FOR PANELS, SKELS, ETC TO USE A * FILE 161
PARTICULAR FUNCTION. * FILE 161
* FILE 161
* FILE 161
MEMBER REL DESCRIPTION * FILE 161
PREFIX * FILE 161
* FILE 161
@PNL#CI 1 CLIST USED TO DETERMINE IF YOU ARE A * FILE 161
SYSPROG SO YOU CAN GET 'TOOL BOX' PANEL. * FILE 161
YOU NEVER TELL USER THEY CAN NOT HAVE * FILE 161
SOMETHING BECAUSE THEY MAY COMPLAIN & * FILE 161
BOSS BOWS TO PRESSURE (THE WHIMP). SO YOU * FILE 161
GIVE THE USER SOMETHING, YOU GIVE THEM * FILE 161
SOMETHING OF LITTLE VAULE (LIKE PANEL * FILE 161
'@PNL#PI') * FILE 161
* FILE 161
@PNL#PI 1 THE WORTHLESS PANEL SPECIFIED ABOVE. * FILE 161
* FILE 161
@PNL#PK 1 PANEL OF TSO COMMANDS FOR USERS. * FILE 161
* FILE 161
@PNL#PM 1 MY CURRENT MASTER MENU. * FILE 161
* FILE 161
@PNL#PX 1 THE SYSTEM PROGRAMMER'S 'TOOL BOX' * FILE 161
* FILE 161
$TOOL#.. 1 USER "TOOL CHEST" INVOKED VIA POPUP MENUS. * FILE 161
GIVES OUR USER THE ILLUSION WE USE PC'S * FILE 161
AND ARE NOT ALL OLD MAINFRAMERS. * FILE 161
* FILE 161
ABND# 1 MEMBERS FOR USING THE ABEND TSO COMMAND. * FILE 161
THIS WILL PROVIDE A FURTHER EXPLANATION OF * FILE 161
SOME OF THE MORE COMMON ABEND. * FILE 161
* FILE 161
ACC# 3 MEMBERS FOR USING THE TSO ACCOUNT CMD FOR * FILE 161
FMS. * FILE 161
* FILE 161
ADM# 1 TOOK INSPIRATION FROM BILL SMITH, SYNTEX * FILE 161
TO MAKE PANEL FOR GDDM PRESENTATION * FILE 161
GRAPHICS.GOT AN IBM 3279 AND WANTED TO DO * FILE 161
SOME PGF. BILL MADE IT EASY BY MAKING * FILE 161
PANELS (LOVE IT). * FILE 161
* FILE 161
AMB# 1 MEMBERS FOR INTERACTIVELY INVOKE "AMBLIST". * FILE 161
* FILE 161
ASMH# 3 MEMBERS FOR USING TSO ASMH CMD. ASMH IS TO * FILE 161
INTERACTIVE COMPILES. THESE SERIES OF * FILE 161
SCREENS ETC, ACTUALLY LIMITS THE USER TO * FILE 161
ONLY RECEIVE THEIR ERRORS TO A SYSTERM DD * FILE 161
CARD. SINCE NO LISTINGS, OBJ MODULES, ETC * FILE 161
CAN BE GENERATED, I CALL IT A 'CHEAP * FILE 161
CHECKER'. UPDATED USING "POPUPS". * FILE 161
* FILE 161
CALC# 1 MEMBERS FOR USING CALC CMD. * FILE 161
CALC IS A TSO CALCULATOR. * FILE 161
* FILE 161
CALEND# 1 MEMBERS FOR POPUP CALENDAR. * FILE 161
* FILE 161
CNTI# 1 MEMBERS FOR ISPF VERSION OF THE COUNT TSO * FILE 161
CMD. USE THE SUPPLIED "COUNTI" TSO CP. * FILE 161
* FILE 161
COBMVS# 1 MEMBERS FOR COBOL-FOR-MVS CHEAP CHECKER * FILE 161
UPDATED USING "POPUPS". TSOCP COBMVS IS * FILE 161
FOUND IN FILE 300. * FILE 161
* FILE 161
COBOL# 3 MEMBERS FOR USING COBOLCHK. COBOLCHK IS TO * FILE 161
INTERACTIVE COMPILES. THESE SERIES OF * FILE 161
SCREENS ETC, ACTUALLY LIMITS THE USER TO * FILE 161
ONLY RECEIVE THEIR ERRORS TO A SYSTERM DD * FILE 161
CARD. SINCE NO LISTINGS, OBJ MODULES, ETC * FILE 161
CAN BE GENERATED, I CALL IT A 'CHEAP * FILE 161
CHECKER'. * FILE 161
* FILE 161
COB2# 3 MEMBERS FOR COBOL II VERSION OF CHEAP * FILE 161
CHECKER UPDATED USING "POPUPS". * FILE 161
* FILE 161
COMPR# 3 MEMBERS FOR USING THE TSO COMPARE CMD. * FILE 161
UPDATED USING "POPUPS". * FILE 161
* FILE 161
COPYS# 2 MEMBERS FOR USING TSO COPYSDS CMD. COPYSDS * FILE 161
IS A SEQUENTIAL DATASET COPY. UPDATED * FILE 161
USING "POPUPS". * FILE 161
* FILE 161
COUNT# 2 MEMBERS FOR USING THE TSO COUNT COMMAND. * FILE 161
COUNT THE NUMBER OF RECORDS IN A FILE. * FILE 161
* FILE 161
CUT... 1 BILL GODFREY'S 'CUT' AND 'PASTE' MACROS IN * FILE 161
ALCCODE VERSUS CLIST (IMPRESSIVE). SEE * FILE 161
CUTDOC * FILE 161
* FILE 161
CVDI 1 ISPF VERSION OF CVD TSOCP. * FILE 161
* FILE 161
CVDI# 2 MEMBERS FOR CVD TSOCP (CONVERTS HEX TO * FILE 161
DEC). ADDED "POPUP" SUPPORT. * FILE 161
* FILE 161
CVXI 1 ISPF VERSION OF CVX TSOCP. * FILE 161
* FILE 161
CVXI# 2 MEMBERS FOR CVX TSOCP (CONVERTS DEC TO * FILE 161
HEX). ADDED "POPUP" SUPPORT. * FILE 161
* FILE 161
DEFA# 1 MEMBERS FOR USING DEFINING AN ALIAS IN * FILE 161
YOUR MASTER CATALOG. * FILE 161
* FILE 161
DELA# 2 MEMBERS FOR USING DELETING AN ALIAS FROM * FILE 161
THE MASTER CATALOG. * FILE 161
* FILE 161
FORT# 1 MEMBERS FOR USING THE FORT CMD. FORT IS TO * FILE 161
DO INTERACTIVE COMPILES WITH FORTRAN G1. * FILE 161
THESE SERIES OF SCREENS, ETC, ACTUALLY * FILE 161
LIMITS THE THE USER TO ONLY RECEIVE THEIR * FILE 161
ERRORS TO A SYSTERM DD CARD. SINCE NO * FILE 161
LISTINGS, OR OBJECT CAN BE GENERATED, I * FILE 161
CALL IT A 'CHEAP CHECKER' * FILE 161
* FILE 161
FORTX# 1 MEMBERS FOR USING THE FORTX CMD. FORTX IS * FILE 161
TO DO INTERACTIVE COMPILES, FORTRAN-HX. * FILE 161
THESE SERIES OF SCREENS, ETC, ACTUALLY * FILE 161
LIMITS THE THE USER TO ONLY RECEIVE THEIR * FILE 161
ERRORS TO A SYSTERM DD CARD. SINCE NO * FILE 161
LISTINGS, OBJECT CAN BE GENERATED, I CALL * FILE 161
IT A 'CHEAP CHECKER' * FILE 161
* FILE 161
FREEA# 1 MEMBERS FOR USING FREEALL CMD. * FILE 161
* FILE 161
HLASM# 1 DIALOG FOR USING "HLASM" INVOKING OF HIGH * FILE 161
LEVEL ASSEMBLER, USING "POPUPS". TSOCP * FILE 161
HLASM IS FOUND IN FILE 300. * FILE 161
* FILE 161
IDT# 1 PANELS SUPPORT TSO/E TRANSMIT-RECEIVE. OUR * FILE 161
USERS ARE NOVICES AND NEEDED A WAY OF USING * FILE 161
FUNCTIONS. SEE THE TSO FILE FOR THE RELATED * FILE 161
MODULES CALLED 'INMXPARM' AND 'INMXZ02' * FILE 161
EXIT. THIS CONTAINS AN UPDATED VERSION OF * FILE 161
WHAT WAS CONTAINED IN THE MEMBERS TRC#. * FILE 161
* FILE 161
ISG@MSTR 2 IS THE PRIMARY PANEL THAT YOUR GET WITH * FILE 161
YOU GET INTO ISPF/PDF FOR 2ISG SYSTEM * FILE 161
PROGRAMMERS BE CONCATENATED AHEAD OF * FILE 161
IBM'S (ISPPLIB). * FILE 161
* FILE 161
ISR@PRIM 2 IS THE PRIMARY PANEL THAT YOUR GET WITH * FILE 161
YOU GET INTO ISPF/PDF. PANEL LIB YOU USE * FILE 161
SHOULD BE CONCATENATED AHEAD OF IBM'S * FILE 161
(ISPPLIB). * FILE 161
* FILE 161
JUL# 2 MEMBERS FOR JULISPF TSO CMD USING * FILE 161
"POPUPS". * FILE 161
* FILE 161
JULISPF 1 ISPF VERSION OF JULIAN TSO CMD. * FILE 161
* FILE 161
LASTI# 1 LASTIPL TSOCP DIALOG USING "POPUPS". * FILE 161
* FILE 161
LASTIPL 1 ISPF VERSION OF LASTIPL TSOCP. * FILE 161
* FILE 161
LISTC# 1 MEMBERS FOR USING LISTCAT CMD. * FILE 161
* FILE 161
LSTSU# 1 MEMBERS FOR 'LISTSU' TSO CMD * FILE 161
* FILE 161
MEMB# 1 MEMBERS FOR USING MEMBER CMD. * FILE 161
* FILE 161
NEWS# 1 MEMBERS FOR USING 2ISG NEWS FACILITY. NOT * FILE 161
TOO APPLICABLE TO OTHER INSTALLATIONS BUT * FILE 161
IT SHOWS ONE HOW TO SELECTIVELY INVOKE * FILE 161
'BROWSE' SERVICE FROM YOUR OWN PANELS, * FILE 161
ETC. * FILE 161
* FILE 161
NFLE# 1 EL-CHEAPO FILE TRANSFER TO VM VIA NJE. * FILE 161
* FILE 161
NPRT# 1 EL-CHEAPO FILE TRANSFER TO VM VIA NJE. * FILE 161
* FILE 161
NPUN# 1 EL-CHEAPO FILE TRANSFER TO VM VIA NJE. * FILE 161
* FILE 161
OBSL# 1 MEMBER FOR INVOKING 'OBS' WYLBUR PROGRAM * FILE 161
TO DECOMPRESS WYLBUR FILE, THEN INVOKE * FILE 161
ISPF/PDF BROWSE SERVICE TO BROWSE IT. * FILE 161
* FILE 161
OMEG# 1 MEMBERS FOR INVOKING OMEGAMON IN TSO. * FILE 161
* FILE 161
PHIX# 1 CLIST FOR INVOKING PHOENIX COMPUTER BASE * FILE 161
TRAINING SYSTEM. INVOKES A FRONT-END TSO * FILE 161
CP TO THE PHOENIX TSO CP (LIMITS WHO CAN * FILE 161
GET INTO PHOENIX AND WHO CAN NOT). * FILE 161
* FILE 161
PRT# 3 MEMBERS FOR USING PRINTOFF CMD. THIS IS * FILE 161
THE FAMOUS 'PRINTOFF' FROM MY TSO FILE. * FILE 161
* FILE 161
SADSYSP 2 THIS IS THE '2ISG' PANEL MEMBER THAT GOES * FILE 161
IN YOUR PANEL LIBRARY FOR PROGRAM PRODUCTS. * FILE 161
NEEDED ANOTHER PANEL TO ADD THINGS. LOOK * FILE 161
AT ISR@PRIM AND THIS MEMBER AND IT WILL * FILE 161
WILL MAKE MORE SENSE. * FILE 161
* FILE 161
SADTSOP 2 THIS IS THE '2ISG' PANEL MEMBER THAT GOES * FILE 161
IN YOUR PANEL LIBRARY FOR TSO COMMANDS. * FILE 161
LOOK AT ISR@PRIM AND THIS MEMBER AND IT * FILE 161
IT WILL MAKE MORE SENSE. * FILE 161
* FILE 161
SADUTLP 2 THIS IS THE '2ISG' PANEL MEMBER THAT GOES * FILE 161
IN YOUR PANEL LIB FOR UTILITY FUNCTIONS * FILE 161
AND 'CHEAP CHECKERS'. LOOK AT ISR@PRIM AND * FILE 161
THIS MEMBER AND IT WILL MAKE MORE SENSE. * FILE 161
* FILE 161
SEND# 2 MEMBERS FOR USING SEND TSO CMD. 'SEND' * FILE 161
A MSG TO ANOTHER USER. * FILE 161
* FILE 161
SLSS# 2 A MODIFICATION OF THE SLSS ISPF/PDF PANELS * FILE 161
ON THE MODS TAPE. EXCEPT THIS ONE HAS * FILE 161
COBOL PGM AS THE DRIVER. JIM PETERSON * FILE 161
REWROTE THE ISPF APPLICATION MAKING IT * FILE 161
MORE EFFICIENT (I'M IMPRESSED. I TOOK ALL * FILE 161
THE CODE AND REWROTE IT MYSELF WHEN I * FILE 161
TRIED TO IMPLEMENT IT. IT ALL WORKS NOW. * FILE 161
SEE MEMBER SLSS##PR FOR DOC. * FILE 161
* FILE 161
SORT# 3 DO A SMALL SORT INACTIVELY. * FILE 161
* FILE 161
SORTLNK 2 ALC PGM TO "LINK EP=SORT', ELIMINATES * FILE 161
"CALL". UPDATED TO USE "POPUPS". * FILE 161
* FILE 161
SYSLG# 1 MEMBERS FOR USING BROWSING THE SPOOLED TO * FILE 161
DISK, OPERATOR CONSOLE LOGS. PUT IT INTO * FILE 161
DISK FILES FOR THE PAST 3 WEEKS FOR * FILE 161
BROWSING. * FILE 161
* FILE 161
SYSPR#P 1 SECONDAY PANEL FOR GETTING INTO 2ISG * FILE 161
SYSTEM PROG FUNCTIONS. LOOK AT CLIST THAT * FILE 161
IS INVOKED OUT OF ISR@PRIM WHEN ENTER 'S'. * FILE 161
CLIST INVOKED CHECKS TO SEE IF 1ST CHAR * FILE 161
OF USERID BEGINS WITH 'S'. SO YOU ARE ONE * FILE 161
OF SYSTEMS, IF NOT, YOU ARE A BAD GUY AND * FILE 161
RETURNED TO ISR@PRIM. * FILE 161
* FILE 161
TMS# 1 MEMBERS FOR USING TMS CMD (INVOKE UCC1 PGM * FILE 161
FOR INTERACTIVE TMS ACCESS). SEE DOC MEMBER * FILE 161
CALLED TMS##PR. * FILE 161
* FILE 161
ULX... 1 BILL GODFREY'S ISPF DISK SPACE INFO PGM. * FILE 161
INDEXED VTOCS ARE SUPPORTED. USER CAN OPT * FILE 161
DISPLAY A LIST OF FREE SPACE. SEE ULXDOC. * FILE 161
* FILE 161
USR# 1 USER INTERFACE USING LIBDEF FACS. DON'T * FILE 161
WANT USERS MESSING WITH MY LOGON PROCS. * FILE 161
* FILE 161
VFORT# 3 MEMBERS FOR USING VSFORT CMD. VSFORT IS TO * FILE 161
DO INTERACTIVE COMPILES WITH VS FORTRAN. * FILE 161
SERIES OF SCREENS, ETC, ACTUALLY LIMITS * FILE 161
THE THE USER TO ONLY RECEIVE THEIR ERRORS * FILE 161
TO A SYSTERM DD CARD. SINCE NO LISTINGS, * FILE 161
OBJECT CAN BE GENERATED, I CALL IT A * FILE 161
'CHEAP CHECKER' UPDATED TO USE "POPUPS". * FILE 161
* FILE 161
XBE... 1 BILL GODFREY'S PGM TO SET UP ISPF, CAN * FILE 161
HAVE SHORT CODE WORDS FOR DSNS YOU * FILE 161
FREQUENTLY EDIT OR BROWSE. SEE XBEDOC FOR * FILE 161
DETAILS. * FILE 161
* FILE 161
ZAP# 1 MEMBERS FOR USING ZAP CMD. * FILE 161
* FILE 161
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
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
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
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
IS FROM VINH VU OF NEIMAN MARCUS IN IRVING, TEXAS. * FILE 166
THIS FILE CONTAINS A NICE COLLECTION OF UTILITIES, * FILE 166
EXITS AND REXX EXECS. THIS FILE IS WORTH A GOOD * FILE 166
LOOK. * FILE 166
* FILE 166
CONTENTS OF THIS PDS: * FILE 166
* FILE 166
$CAL - CLIST (EXEC) - WRITTEN IN TSO REXX. THIS * FILE 166
EXEC DISPLAYS A QUICK POP-UP CALENDAR USING * FILE 166
ISPF PANEL. CHECK IT OUT. * FILE 166
* FILE 166
$CKOUT - CLIST (EXEC) - WRITTEN IN TSO REXX. THIS * FILE 166
EXEC DISPLAYS PERTINENT INFORMATION ABOUT * FILE 166
YOUR TSO SESSION OR BATCH JOB, I.E. JOB/STEP * FILE 166
REGION SIZES, LIMITS, JOB/STEP TIME LIMITS, * FILE 166
MSGCLASS, ETC.. THIS CAN BE USED TO VERIFY * FILE 166
THE SETTINGS DONE BY THE LOCAL JES2 AND SMF * FILE 166
EXITS. * FILE 166
* FILE 166
$CMDPFX - ASM - TO ASSIGN A COMMAND PREFIX TO A MVS * FILE 166
IMAGE OF A SYSPLEX. RATHER THAN USING THE * FILE 166
'ROUTE' COMMAND, YOU CAN USE THIS PREFIX FOR * FILE 166
ROUTING A COMMAND TO THE APPROPRIATE SYSTEM. * FILE 166
THE PREFIX IS SPECFIED THROUGH PARM. * FILE 166
* FILE 166
$D - CLIST (EXEC) - WRITTEN IN TSO REXX. THIS * FILE 166
DISPLAYS MVS CONTROL BLOCKS, I.E. * FILE 166
LINKLIST, APFLIST, SUBSYSTEM NAMES. * FILE 166
* FILE 166
$DATE - CLIST (EXEC) - WRITTEN IN TSO REXX. * FILE 166
THIS REXX FUNCTION DOES DATE * FILE 166
CONVERSIONS, INCLUDING RELATIVE DATE * FILE 166
USED FOR CALCULATION. * FILE 166
* FILE 166
$DO - CLIST (EXEC) - EDIT MACRO. THIS EXEC * FILE 166
VERIFIES THE 'DO/SELECT-END' PAIRINGS IN A * FILE 166
REXX EXEC. ANY HANGING 'DO/SELECT-END' WILL * FILE 166
BE FLAGGED AS ERROR. IT ALSO MARKS THE * FILE 166
BEGINNING AND END OF EACH 'DO/SELECT-END' * FILE 166
PAIR. USEFUL IF YOU DO A LOT OF REXX * FILE 166
CODING. * FILE 166
* FILE 166
$JAD - CLIST (EXEC) - WRITTEN IN TSO REXX. THIS * FILE 166
EXEC GOES THROUGH THE ASCB CHAIN AND * FILE 166
DISPLAYS JOB ACTIVITY INFO USING ISPF TABLE * FILE 166
DISPLAY FACILITY, I.E. TCBTIME, EXCPTIME, * FILE 166
EXCP COUNT, STORAGE USAGE, ETC. IF AN * FILE 166
ADDRESS SPACE IS SELECTED, THEN ADDITIONAL * FILE 166
INFO WILL BE DISPLAYED, INCLUDING A PLOT * FILE 166
THAT SHOWS REAL & EXPANDED STORAGE, AND * FILE 166
ANOTHER WHICH SHOWS ITS STORAGE * FILE 166
DISTRIBUTION BASED ON UIC (KINDA SHOW YOU * FILE 166
HOW REAL MEMORY IS BEING USED AT THE TIME). * FILE 166
THE DISPLAY CAN BE SORTED AND FILTERED BY * FILE 166
SEVERAL DIFFERENT KEYS. * FILE 166
* FILE 166
THIS WAS WRITTEN ORIGINALLY TO DISPLAY THE * FILE 166
TOTAL STORAGE USED, PLUS REAL AND EXPANDED, * FILE 166
SEPARATELY FOR THE ADDRESS SPACES. RMFWDM * FILE 166
(WORKLOAD DELAY MONITOR) ONLY GIVES YOU THE * FILE 166
TOTAL, NOT THE OTHER TWO, AND DOES NOT * FILE 166
ALLOW SORTING. THIS EXEC, HOWEVER, GIVES * FILE 166
ALL TOTALS AND LET YOU DO ALL KIND OF * FILE 166
SORTING. NOT ONLY THAT, IT ALSO GIVES YOU * FILE 166
ADDITIONAL INFO (WHILE I'M LOOKING AROUND * FILE 166
AT THE CONTROL BLOCKS...). * FILE 166
* FILE 166
****** SEE $JADPGM ****** NOTE - 3/6/95 ****** * FILE 166
****** SEE $JADPGM ****** NOTE - 3/6/95 ****** * FILE 166
* FILE 166
$JADPGM - ASM - ASSEMLER VERSION OF $JAD. THIS WAS * FILE 166
WRITTEN AFTER $JAD IS FOUND TO BE TOO * FILE 166
SLOW, ESPCIALLY WHEN THE CPU IS CONSTANTLY * FILE 166
RUNNING ABOVE 100% (SRM CPU BUSY PCT). * FILE 166
* FILE 166
$LLACOPY - SOURCE - BATCH ASSEMBLER PROGRAM TO * FILE 166
SELECTIVELY REFRESH A LLA (VLF) MODULE. * FILE 166
RATHER THAN DOING A 'F LLA,REFRESH' WHICH * FILE 166
MAY TAKE A WHILE DEPENDING ON THE LIST OF * FILE 166
DATA SETS BEING MANAGED BY LLA, THIS * FILE 166
PROGRAM WILL UPDATE JUST THE MODULE(S) BEING * FILE 166
REFRESHED. * FILE 166
* FILE 166
$MPFREPL - ASM - A GENERALIZED MPF EXIT. THE MESSAGES * FILE 166
BEING HANDLED ARE CODED USING AN IN-LINE * FILE 166
MACRO. PROCESSING CAN ALSO BE LIMITED TO * FILE 166
MESSAGES PRODUCED BY CERTAIN JOBNAMES * FILE 166
SPECIFIED BY THIS MACRO. * FILE 166
* FILE 166
$PARM - CLIST (EXEC) - WRITTEN IN TSO REXX. THIS * FILE 166
EXEC TAKES IN THE PARMS AND DOES SUBSTITUTION * FILE 166
ON THE INPUT CARDS (FROM DDNAME INPUT) TO * FILE 166
PRODUCE OUTPUT DATA FOR SUBSEQUENT USAGE. * FILE 166
SEVERAL RESERVED SYMBOLS WILL BE SUBSTITUTED * FILE 166
AS WELL, I.E. ~JOBNAME~, ~SYSID~. REXX * FILE 166
FUNCTIONS WILL ALSO BE EVALUATED TO PRODUCE * FILE 166
THE OUTPUT IF CODED (THIS CAN BE JUST ANOTHER * FILE 166
EXTERNAL REXX FUNCTION LIKE $DATE) * FILE 166
* FILE 166
$Q - EDIT MACRO (REXX) - THIS MACRO TAKES A PARM * FILE 166
AS A TSO COMMAND TO BE ISSUED AND THE OUTPUT * FILE 166
WILL BE TRAPPED AND DISPLAYED AS ISPF EDIT * FILE 166
NOTE LINES. * FILE 166
* FILE 166
$SAVE - EDIT MACRO (REXX) - THIS MACRO SAVES DATA * FILE 166
BEING EDITED BY DOING UPDATE IN PLACE FOR A * FILE 166
PDS MEMBER. EXTREMELY USEFUL IF * FILE 166
SYS1.PROCLIB IS FULL, AND YOU JUST NEED TO * FILE 166
MAKE MINIMUM CHANGES TO A PROC (UNLESS YOU * FILE 166
WANT TO GO AHEAD AND COMPRESS IT RIGHT THEN * FILE 166
AND THERE ...) * FILE 166
* FILE 166
$VSAMIDX - CLIST (EXEC) - WRITTEN IN TSO REXX. THIS * FILE 166
EXEC CALCULATES THE OPTIMUM NUMBER OF * FILE 166
INDEX BUFFERS TO BE SPECIFIED FOR A VSAM * FILE 166
KSDS USED FOR RANDOM ACCESS. * FILE 166
* FILE 166
$VSAMIXA - CLIST (EXEC) - THE DFSMS 1.X VERSION OF * FILE 166
$VSAMIDX. * FILE 166
* FILE 166
$WHOHAS - CLIST (EXEC) - THIS REXX EXEC WILL LIST THE * FILE 166
ACCESS LISTS FOR RACF DATA SET PROFILES FOUND * FILE 166
UNDER DSN*.**. THIS FUNCTION IS VERY MUCH * FILE 166
SIMILAR TO 'TSS WHOHAS DSN' COMMAND UNDER TOP * FILE 166
SECRET. IF THE EXEC IS RUN IN BATCH, THE RACF * FILE 166
COMMANDS USED TO RE-BUILD ALL OF THE PROFILES * FILE 166
AS DISPLAYED IN THE OUTPUT IS ALSO PRODUCED. * FILE 166
* FILE 166
$X - EDIT MACRO (REXX) - THIS MACRO READS THE * FILE 166
MEMBER BEING EDITED AND EXECUTES IT AS A * FILE 166
CLIST/EXEC. EXECUTION PARMS ARE ALLOWED AS * FILE 166
WELL. THIS DOES NOT REQUIRED THE MEMBER TO * FILE 166
BE SAVED FIRST. EXTREMELY USEFUL IF YOU'RE * FILE 166
DOING A LOT OF CLIST/EXEC CODING AND * FILE 166
DEBUGGING. * FILE 166
* FILE 166
$6 - CLIST (EXEC) - WRITTEN IN TSO REXX. OFTEN * FILE 166
TIMES, YOU DO NEED TO ALLOCATE A NEW * FILE 166
LOADLIB AND EXECUTE TSO COMMANDS OUT OF * FILE 166
IT. ONE WAY TO DO IT IS: GET OUT OF ISPF, * FILE 166
ALLOCATE IT AS ISPLLIB, AND GET BACK IN. * FILE 166
THE OTHER WAY (WITHOUT HAVING TO GET OUT * FILE 166
OF ISPF): EXECUTE THIS EXEC, AND THERE YOU * FILE 166
GO !!! * FILE 166
* FILE 166
DALLOC - SOURCE - TSO CMD TO DISPLAY DYNAMIC * FILE 166
ALLOCATIONS. I'VE GOT THE ORIGINAL SOURCE * FILE 166
FROM ONE OF THE VERY OLD CBT TAPE. THIS * FILE 166
STOPPED WORKING WHEN OUR JES2 PGMR DECIDED * FILE 166
TO MOVE SWA ABOVE THE LINE. I THEN * FILE 166
DECIDED TO FIX THIS PROGRAM USING MACRO * FILE 166
'SWAREQ' WHICH IS THE STANDARD WAY TO * FILE 166
ACCESS THE JFCB FROM TIOT PTR. * FILE 166
* FILE 166
DATE - THIS IS JES2 EXIT 1 (PAGE SEPARATOR), * FILE 166
BUT REALLY IT IS CSECT RBDDATE WHICH * FILE 166
IMPLEMENTS TABLELESS DATE CONVERSION * FILE 166
* FILE 166
DYNALIST - SOURCE - TSO COMMAND TO DISPLAY ALL UNIT * FILE 166
NAMES ON THE SYSTEM AND THE UCBS' (PLUS * FILE 166
VOLSERS) ASSOCIATED WITH THOSE UCBS. * FILE 166
DYNALIST IS AN OLD PROGRAM COMING OFF THE * FILE 166
CBT TAPE AND MODIFIED TO WORK WITH MVS 4.2 * FILE 166
AND ABOVE. * FILE 166
* FILE 166
FIND - SOURCE - TSO CMD TO DO QUICK SEARCH FOR * FILE 166
ANY CHARACTER STRING IN A PDS. HAS A FEW * FILE 166
NICE OPTIONS. * FILE 166
* FILE 166
IEFUTL - MULTI FUNCTION, SEMI-SMART, TABLE DRIVEN * FILE 166
TIMEOUT PROCESSOR * FILE 166
* FILE 166
IEFUTLTB - THE TABLE IT USES * FILE 166
* FILE 166
JESXIT05 - JES2 COMMAND EXIT TO DO THE FOLLOWING: * FILE 166
* FILE 166
$Q'XXX - DISPLAYS ALL JOBS PREFIXED * FILE 166
BY XXX * FILE 166
$QAPF - DISPLAYS APF LIST * FILE 166
$QLLT - DISPLAYS LINKLIST TABLE * FILE 166
$QDSN=XXX - CATALOG SEARCH DSNAME XXX. THE * FILE 166
CATALOGED VOLUME IS ALSO SEARCHED * FILE 166
TO MAKE SURE DATA SET DOES EXIST * FILE 166
THERE. * FILE 166
$QVOL=YYY - DISPLAYS UCB ADDR OF VOL=YYY. * FILE 166
IT'S NOT EASY TO FIND THIS OUT * FILE 166
USING NATIVE MVS COMMANDS. * FILE 166
$QSYSTEM - DISPLAYS ALL KIND OF INFO ABOUT * FILE 166
SYSTEM. GOOD FOR US SYSTEMS * FILE 166
PROGRAMMERS. * FILE 166
$Q - DISPLAYS AVAILABLE PARMS (AS * FILE 166
ABOVE) * FILE 166
* FILE 166
JES2 PARMS NEEDED: * FILE 166
* FILE 166
* LOADMOD(JESXIT05) * FILE 166
* EXIT(005) ROUTINE=EXIT5,STATUS=ENABLED,TRACE=NO * FILE 166
* FILE 166
JESX006 - JES2 INTERNAL TEXT SCAN, TABLE DRIVEN, * FILE 166
IMPLEMENTS CONTROLS ON NUMBER OF TAPE * FILE 166
DRIVES PER STEP. * FILE 166
* FILE 166
JSTAT - SOURCE - BATCH PROGRAM TO CHECK AND SEE IF * FILE 166
A JOB (OR STC OR TSU) IS CURRENTLY RUNNING * FILE 166
(USING THE 'STATUS' FUNCTION OF JES2). IF * FILE 166
IT IS FOUND, THEN WTO'S WILL BE DONE USING * FILE 166
CONTROL CARDS IN 'FND'. OTHERWISE, * FILE 166
CONTROL CARDS FROM 'NOTFND' DDNAME WILL BE * FILE 166
USED BY WTO'S. IF 'RRFND' AND 'RRNOTFND' * FILE 166
ARE USED, A WTOR WILL BE DONE AFTER THE * FILE 166
WTO'S TO GIVE THE OPERATOR A CHANCE TO DO * FILE 166
SOMETHING ELSE BEFORE THE REPLY. OF * FILE 166
COURSE, NONE OF THE DDNAMES HAS TO BE * FILE 166
PRESENT, IN WHICH CASE, THE APPROPRIATE * FILE 166
RETURN CODE WILL BE ISSUED BASED ON THE * FILE 166
JOB STATUS. NOTE THAT SINCE THIS PROGRAM * FILE 166
DOES NOT GO THROUGH THE ASVT, AND * FILE 166
THEREFORE DOES WORK IN A JES2 SHARED SPOOL * FILE 166
ENVIRONMENT. * FILE 166
* FILE 166
LOCKTERM - TSO COMMAND TO LOCK A SCREEN WITH A * FILE 166
PASSWORD * FILE 166
* FILE 166
SEEK - SOURCE - TSO CMD TO DO QUICK SEARCH FOR * FILE 166
ANY MODULE THAT RESIDES IN LPA * FILE 166
(MLPT/FLPA/PLPA), LINKLIST, AND/OR * FILE 166
STEPLIB. MODULE INFORMATION WILL BE * FILE 166
DISPLAYED ACCORDINGLY IF FOUND. * FILE 166
* FILE 166
TSOINIT - SOURCE - TSO CMD TO CHECK FOR A FEW ISPF * FILE 166
DATA SETS AND ALLOCATE THEM AS 'NEW' IF * FILE 166
THEY ARE NOT FOUND IN THE CATALOGS. THESE * FILE 166
DATA SET NAMES ARE RECORDED IN A TABLE OF * FILE 166
THIS PROGRAM. THE FIRST DATA SET * FILE 166
QUALIFIER WILL BE THE SAME WITH THE * FILE 166
EXECUTING TSO ID. * FILE 166
* FILE 166
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- * FILE 166
* FILE 166
WE DO NOT PROMISE TO MAKE ANY CORRECTIONS AND/OR * FILE 166
MODIFICATIONS TO ANY OF THE PROGRAMS. HOWEVER, WE DO * FILE 166
ENCOURAGE ANY COMMENTS/IDEAS AND WILL ATTEMPT TO PROVIDE * FILE 166
ANY FIXES AND/OR MODIFICATIONS AS TIME PERMITS. ALL * FILE 166
QUESTIONS/COMMENTS CAN BE DIRECTED TO: * FILE 166
* FILE 166
VINH VU * FILE 166
CONSULTING TECHNOLOGIST * FILE 166
NEIMAN MARCUS * FILE 166
IS DEPARTMENT * FILE 166
111 CUSTOMER WAY * FILE 166
IRVING, TX 75039-3607 * FILE 166
(972)-401-6948 * FILE 166
* FILE 166
email: vinh_vu@neimanmarcus.com * FILE 166
* FILE 166
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*- * FILE 166
* FILE 166
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
WAS CONTRIBUTED BY BILL GODFREY OF PRC, INC. * FILE 168
IN SUITLAND, MD. THESE ARE UPDATES TO SOME OF * FILE 168
IS PROGRAMS IN JIM MARSHALL'S FILES, AND THERE * FILE 168
ARE SOME NEW THINGS. BILL HAS DONE MUCH PIONEERING * FILE 168
WORK, AND HIS SOFTWARE DESERVES A GOOD LOOK. * FILE 168
* FILE 168
email: bgodfrey@ssdnotes.wwb.noaa.gov * FILE 168
* FILE 168
MVS SOFTWARE AND MODIFICATIONS * FILE 168
FROM BILL GODFREY, OF PRC INC. * FILE 168
(FORMERLY PLANNING RESEARCH CORPORATION) * FILE 168
MCLEAN, VIRGINIA * FILE 168
* FILE 168
MEMBER NAMES ENDING WITH '$' CONTAIN JCL TO * FILE 168
ASSEMBLE AND LINK, AND ARE NOT LISTED BELOW. * FILE 168
* FILE 168
MEMBER NAMES ENDING WITH '#' CONTAIN HELP FOR A * FILE 168
TSO COMMAND, AND ARE NOT LISTED BELOW. * FILE 168
* FILE 168
$DOC - THIS FILE YOU ARE READING. * FILE 168
ASMH - REFRESH OF ASSEMBLER PROMPTER FROM CBT * FILE 168
FILE 300. * FILE 168
CATPW - DISPLAY ICF MASTER CATALOG PASSWORDS. * FILE 168
COPYPDS - REFRESH OF COPYPDS TSO COMMAND FROM * FILE 168
CBT FILE 300. ISPF ENQ. * FILE 168
CUTC01 - ISPF/PDF EDIT CLIST 'CUT', PART OF * FILE 168
CUT/PASTE SET. * FILE 168
CUTC02 - ISPF/PDF EDIT CLIST 'PASTE', PART OF * FILE 168
CUT/PASTE SET. * FILE 168
CUTDOC - DESCRIPTION OF CUT/PASTE. * FILE 168
CUTD01 - INSTALLATION INSTRUCTIONS FOR * FILE 168
CUT/PASTE, SINGLE-USER TEST. * FILE 168
CUTD02 - INSTALLATION INSTRUCTIONS FOR * FILE 168
CUT/PASTE, SYSTEM-WIDE. * FILE 168
CUTH01 - ISPF/PDF PANEL, DISPLAYED WHEN USER * FILE 168
ENTERS "CUT ?" * FILE 168
CUTH02 - ISPF/PDF PANEL, DISPLAYED WHEN USER * FILE 168
ENTERS "PASTE ?" * FILE 168
CUTJ01 - INSTALLATION JCL FOR CUT/PASTE, * FILE 168
SINGLE-USER TEST. * FILE 168
CUTJ02 - INSTALLATION JCL FOR CUT/PASTE, * FILE 168
SYSTEM-WIDE. * FILE 168
CUTL01 - ISPF/PDF EDIT MACRO 'CUT', PART OF * FILE 168
CUT/PASTE SET. * FILE 168
CUTL02 - ISPF/PDF EDIT MACRO 'PASTE', PART OF * FILE 168
CUT/PASTE SET. * FILE 168
CVD - TSO COMMAND TO CONVERT A HEX NUMBER TO * FILE 168
DECIMAL. * FILE 168
CVX - TSO COMMAND TO CONVERT A DECIMAL * FILE 168
NUMBER TO HEX. * FILE 168
DSPRINT - TSO COMMAND TO PRINT SYSOUT. SAME * FILE 168
SYNTAX AS IBM'S DSPRINT. * FILE 168
FINDAZAP - UTILITY TO FIND A STRING IN A LOAD * FILE 168
MODULE, GENERATE A ZAP. * FILE 168
MEMBER - REFRESH OF MEMBER TSO COMMAND FROM * FILE 168
CBT FILE 300. XA FIX. * FILE 168
SHOWDS - REFRESH OF SHOWDS TSO COMMAND FROM * FILE 168
CBT FILE 300. XA FIX. * FILE 168
ULXDOC - INFORMATION ABOUT THE ULX... MEMBERS. * FILE 168
ULX... - ISPF PROGRAM FOR DISPLAYING FREE SPACE * FILE 168
ON A DISK VOLUME. * FILE 168
XBE - EXECUTE ISPF BROWSE OR EDIT VIA * FILE 168
SHORTCUT. * FILE 168
XBEDOC - INSTRUCTIONS FOR USING XBE. * FILE 168
* FILE 168
THE FOLLOWING NAMING CONVENTION HAS BEEN USED FOR * FILE 168
MEMBERS THAT ARE PARTS OF AN ISPF APPLICATION: * FILE 168
* FILE 168
THE FIRST 3 CHARACTERS IDENTIFY THE APPLICATION. * FILE 168
THE 4TH CHARACTER IS * FILE 168
'L' FOR SOURCE CODE OF LOAD MODULES * FILE 168
'D' FOR DOCUMENTATION * FILE 168
'P' FOR PANEL 'H' FOR TUTORIAL PANEL * FILE 168
'M' FOR MESSAGE SET 'C' FOR CLIST * FILE 168
'S' FOR SKELETON 'J' FOR JCL * FILE 168
THE 5TH AND 6TH CHARACTERS ARE NUMBERS THAT * FILE 168
UNIQUELY IDENTIFY EACH MODULE WITHIN THE GROUP. * FILE 168
* FILE 168
THE NAMING CONVENTION FITS WITHIN THE NAMING * FILE 168
REQUIREMENTS FOR MEMBERS OF THE ISPF MESSAGE * FILE 168
LIBRARIES. * FILE 168
* FILE 168
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
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
is a collection of several important utilities, * FILE 171
contributed semi-anonymously. Please direct * FILE 171
support questions to Sam Golob, sbgolob@attglobal.net * FILE 171
or sbgolob@aol.com . Phone: 845-362-1996 * FILE 171
* FILE 171
These utilities are: * FILE 171
* FILE 171
DITTO - AN MVS PROGRAM WITH AN ISPF INTERFACE, * FILE 171
ORIGINALLY WRITTEN, BUT INSPIRED BY * FILE 171
DOS/DITTO. * FILE 171
* FILE 171
TAPEMAP - A REWRITE OF THE PROGRAM THAT IS ON * FILE 171
FILE 299, BUT BROKEN INTO SEPARATE * FILE 171
CSECTS AND SUBROUTINE CALLS. * FILE 171
* FILE 171
One nice thing about this DITTO and TAPEMAP is that you * FILE 171
DON'T NEED BLP PRIVILEGE. The code does a fake open. * FILE 171
* FILE 171
DISASM - A REDESIGN OF THE DISASSEMBLER ON * FILE 171
FILE 217, BUT BROKEN INTO CSECTS. THIS * FILE 171
DISASSEMBLER CALLS THE ASSEMBLER AND * FILE 171
ALLOWS YOU TO USE REAL MACROS AND THEIR * FILE 171
DSECTS FOR LABEL MAPPING. * FILE 171
* FILE 171
SMFSPLIT - SMFSPLIT IS AN ASSEMBLER PROGRAM WHICH * FILE 171
ALLOWS YOU TO BREAK UP SMF RECORDS BY * FILE 171
TYPE, TO SEPARATE DATASETS. THIS DEALS * FILE 171
WITH THE RAW SMF RECORDS. YOU CAN POST * FILE 171
PROCESS THEM LATER. I THINK THAT THIS * FILE 171
UTILITY IS QUITE A RARE DEAL. MOST SMF * FILE 171
PROCESSING PROGRAMS PICK A TYPE, AND * FILE 171
FORMAT A REPORT. THIS PROGRAM ISOLATES * FILE 171
ALL RECORDS OF A GIVEN TYPE TO AN * FILE 171
EXTRACTION FILE. * FILE 171
* FILE 171
TPX - IF THE NETWORK PACKAGE, TPX, IS RUNNING * FILE 171
ON AN ISOLATED MACHINE, AND USERS FROM * FILE 171
THE PRODUCTION MACHINES ARE TRYING TO * FILE 171
LOG ONTO TPX, THERE IS A PROBLEM IN * FILE 171
SYNCHRONIZING RACF DATABASES FROM THE * FILE 171
SEPARATE SYSTEMS TO PROPERLY VERIFY THE * FILE 171
LOGON. THIS IS A TPX EXIT AND AN STC, * FILE 171
WHICH SOLVES THE PROBLEM VERY INGENIOUSLY. * FILE 171
* FILE 171
FX - THIS PACKAGE IS A VTAM APPLICATION THAT * FILE 171
RUNS ON MULTIPLE SYSTEMS, AND ALLOWS * FILE 171
YOU TO SEND DATA FILES IN BULK, FROM * FILE 171
ONE SYSTEM TO ALL OF THEM. * FILE 171
* FILE 171
SYSTEM UTILITY (SUTL) - A VTAM LU 6.2 APPLICATION * FILE 171
THAT ALLOWS A TSO USER TO OBTAIN INFORMA- * FILE 171
TION ABOUT EXECUTING JOBS, THE APF LIST, * FILE 171
IPL DATE/TIME/SYSRES, LINK LIST, ETC. * FILE 171
MOST OF THIS INFORMATION IS USUALLY * FILE 171
AVAILABLE VIA OTHER UTILITIES ALREADY IN * FILE 171
USE, BUT THIS UTILITY ALLOWS THE TSO USER * FILE 171
TO GET INFO FROM A SYSTEM THAT HE IS NOT * FILE 171
LOGGED ON TO. * FILE 171
* FILE 171
(NOTE. DAVE CARTWRIGHT, WHO CONTRIBUTED FILE 172 TO * FILE 171
THIS TAPE, HAS MADE SOME UPDATES TO A FEW OF * FILE 171
THE DITTO FILES. THIS WAS FOR AN MVS/ESA 3.1 * FILE 171
SYSTEM. IF YOU FEEL YOU NEED THESE UPDATES, * FILE 171
THEY ARE INCLUDED HERE AS MEMBER $DITCRTW.) * FILE 171
* FILE 171
- - - - - - - - - - - - - - - - - - - - - * FILE 171
* FILE 171
SYSTEM UTILITY (SUTL) * FILE 171
* FILE 171
SUTL IS A VTAM LU 6.2 APPLICATION THAT ALLOWS A TSO * FILE 171
USER TO OBTAIN INFORMATION ABOUT EXECUTING JOBS, THE * FILE 171
APF LIST, IPL DATE/TIME/SYSRES, LINK LIST, ETC. MOST * FILE 171
OF THIS INFORMATION IS USUALLY AVAILABLE VIA OTHER * FILE 171
UTILITIES ALREADY IN USE, SO WHY BOTHER GOING TO THE * FILE 171
TROUBLE OF 'RE-INVENTING' THIS WHEEL AND ADDING VTAM * FILE 171
OVER-HEAD IN THE PROCESS? BEING A VTAM APPLICATION * FILE 171
MEANS THAT A TSO USER CAN GET INFO FROM A SYSTEM * FILE 171
THAT HE IS NOT LOGGED ON TO. IF YOU HAVE MULTIPLE * FILE 171
PROCESSORS OR LPARS, YOU CAN "WATCH" EXECUTING JOBS ON * FILE 171
ANY OF THE SYSTEMS NO MATTER WHICH SYSTEM YOU ARE * FILE 171
LOGGED ON TO. BESIDES IT WAS A GOOD WAY TO LEARN * FILE 171
SOMETHING AND HAVE A USEFUL UTILITY WHEN IT WAS * FILE 171
WORKING. * FILE 171
* FILE 171
SUTL CONSISTS OF TWO BASIC COMPONENTS, (1) A DATA * FILE 171
COLLECTOR THAT WOULD PROBABLY BE BEST TO RUN AS A * FILE 171
STARTED TASK (STC) AND (2) THE TSO/SPF CODE THAT SENDS * FILE 171
REQUESTS TO THE DATA COLLECTOR AND DISPLAYS THE DATA. * FILE 171
* FILE 171
THE DATA COLLECTOR (STC) SHOULD BE RUN ON EACH SYSTEM. * FILE 171
THE STC DOES REQUIRE APF AUTHORIZATION FOR THE UCB * FILE 171
FUNCTION. IF YOU REMOVE THE UCB FUNCTION, SUTL WILL * FILE 171
NOT REQUIRE ANY SPECIAL PRIVILEGES. * FILE 171
* FILE 171
THE TSO/SPF PART REQUIRES ONE VTAM APPL ID PER ACTIVE * FILE 171
TSO USER. THESE APPL IDS ARE ASSEMBLED AND LINK * FILE 171
EDITED INTO A LOAD MODULE AS PART OF THE INSTALLATION * FILE 171
STEPS. I FELT THAT IT WOULD BE LESS OVERHEAD PER * FILE 171
INVOCATION TO SEARCH A PRE-ASSEMBLED/LINK EDITED LOAD * FILE 171
MODULE THAN TO READ A PARAMETER DATA SET (THIS WOULD * FILE 171
MEAN ALLOCATING THE DATA SET, OPENING IT, READING AND * FILE 171
SCANNING EACH STATEMENT, CLOSING, AND THEN * FILE 171
DE-ALLOCATING). * FILE 171
* FILE 171
IEFUTL - A sample IEFUTL SMF exit which does the following * FILE 171
things: * FILE 171
* FILE 171
If this is for a batch job or started * FILE 171
task, allow to abend. * FILE 171
* FILE 171
For TSO users: * FILE 171
Check user's access to a RACF resource. * FILE 171
As is, this exit checks for the user's access to * FILE 171
class 'TIMEOUT', entity 'TSOUSER'. * FILE 171
* FILE 171
If permitted to resource * FILE 171
If wait time exceeded * FILE 171
extend time 5 minutes * FILE 171
* FILE 171
If CPU time exceeded * FILE 171
cancel * FILE 171
* FILE 171
If not permitted to resource * FILE 171
cancel * FILE 171
* FILE 171
is from David Cartwright of Sutton Coldfield in * FILE 172
England. This file contains a nice collection of * FILE 172
utilities and useful tools. * FILE 172
* FILE 172
(UPDATED 04/00 - SUTTON COLDFIELD, ENGLAND) * FILE 172
* FILE 172
email addresses: * FILE 172
* FILE 172
home- dcuk@dcuk.demon.co.uk * FILE 172
work- "Dave Cartwright" * FILE 172
* FILE 172
PDSDOC *DOCUMENTATION OF PUBLIC DOMAIN * FILE 172
OFFERING..............* $DOC * FILE 172
* FILE 172
NEITHER DAVID CARTWRIGHT NOR ANY COMPANY ASSOCIATED * FILE 172
WITH HIM EXPRESS OR IMPLY ANY WARRANTY AS TO THE * FILE 172
FITNESS OF THESE COMPUTER PROGRAMS FOR ANY FUNCTION. * FILE 172
THE USE OF THESE PROGRAMS OR THE RESULTS THEREOF IS * FILE 172
ENTIRELY AT THE RISK OF THE USER. * FILE 172
* FILE 172
THESE PROGRAMS ARE DONATED TO THE PUBLIC DOMAIN AND MAY * FILE 172
BE FREELY COPIED. THEY MAY BE FREELY DISTRIBUTED TO ANY * FILE 172
OTHER PARTY ON CONDITION THAT NO INDUCEMENT BEYOND * FILE 172
REASONABLE HANDLING COSTS BE OFFERED OR ACCEPTED FOR * FILE 172
SUCH DISTRIBUTION. * FILE 172
* FILE 172
THESE PROGRAMS MAY BE MODIFIED IN ANY WAY THE USER * FILE 172
THINKS FIT BECAUSE USE OF THESE PROGRAMS IS ENTIRELY AT * FILE 172
THE RISK OF THE USER ANYWAY. I WOULD BE INTERESTED TO * FILE 172
HEAR OF SIGNIFICANT ENHANCEMENTS OR INSTANCES WHERE * FILE 172
THESE PROGRAMS HAVE BEEN OF MAJOR BENEFIT (OR * FILE 172
OTHERWISE), BUT THAT DEPENDS PURELY ON THE POLITENESS * FILE 172
OF THE USER. CONTACT; * FILE 172
* FILE 172
DAVID CARTWRIGHT * FILE 172
103, DARNICK ROAD, * FILE 172
SUTTON COLDFIELD * FILE 172
UK - B73 6PF * FILE 172
TEL. ++44 (0)121 355 3190 * FILE 172
* FILE 172
THESE GOODIES FALL INTO DIFFERENT CATEGORIES, AS * FILE 172
DESCRIBED BELOW. ASSEMBLY OF MANY THESE PROGRAMS * FILE 172
REQUIRES SYS1.AMODGEN. THEY HAVE BEEN TESTED ON MVS/XA * FILE 172
2.2, AND SOME ARE KNOWN TO WORK ON OTHER VERSIONS OF * FILE 172
MVS. THE PROGRAMS WRITTEN BY ME ARE REASONABLY WELL * FILE 172
DOCUMENTED, BUT CHECK THAT THE CODE IS DOING WHAT IT * FILE 172
SAYS IT IS. PROGRAMS LIKE 'MAPDISK' WHICH HAVE BEEN * FILE 172
BUILT UP OVER THE YEARS SHOULD BE VIEWED WITH * FILE 172
SUSPICION, ESPECIALLY THE PREAMBLE. ALL JCL SHOULD BE * FILE 172
VIEWED AS BEING ILLUSTRATIVE ONLY, AS A LOT OF JUNK * FILE 172
TENDS TO GET LEFT IN AS COMMENTS OR UNUSED DDNAMES. * FILE 172
ALWAYS USE THE LATEST MACROS AND COPY CODE. * FILE 172
* FILE 172
I USE ONE OF THE STANDARD SYSTEMS FOR OBTAINING * FILE 172
AUTHORIZATION BUT FOR SECURITY I WILL NOT DIVULGE WHAT * FILE 172
IT IS. TO GIVE YOU SOME HELP I HAVE BEGUN TO USE A * FILE 172
PRIVATE MACRO 'GETAUTH' TO INVOKE THESE FUNCTIONS. THE * FILE 172
VERSION IN THIS FILE WILL ONLY GENERATE AN MNOTE TO * FILE 172
WARN YOU THAT AUTHORIZATION IS REQUIRED, HOW YOU * FILE 172
PROVIDE IT IS UP TO YOU. * FILE 172
* FILE 172
CACHE MANAGEMENT PROGRAMS * FILE 172
* FILE 172
THESE PROGRAMS ARE FOR MVS INSTALLATIONS USING THE IBM * FILE 172
3990-3 DISK CONTROLLER WITH CACHE. I INCLUDE A SIMPLE * FILE 172
CACHE PERFORMANCE MONITOR PROGRAM. THE OTHER PROGRAMS * FILE 172
ARE INTENDED TO MODIFY VARIOUS MODULES IN STORAGE TO * FILE 172
ALLOW THE PAGING AND/OR SWAPPING SUB-SYSTEM TO USE THE * FILE 172
3990-3 EXTENDED FUNCTIONS CACHE FAST WRITE (CFW) OR * FILE 172
DASD FAST WRITE (DFW). THE MEMBER '$PAPER' WILL GIVE * FILE 172
THE USER SOME IDEA OF THE PURPOSE, BENEFITS AND * FILE 172
PROBLEMS OF THE PROGRAMS SUPPLIED. UPDATED OCTOBER * FILE 172
1992 * FILE 172
* FILE 172
$PAPER TEXT GIVING HISTORY OF CACHE DEVELOPMENTS (ASA) * FILE 172
SECR01 CACHE REPORTING PROGRAM * FILE 172
SECOMMON AUXILIARY STORAGE MANAGER ZAP COMMON CODE * FILE 172
SECFWON ALLOW PAGING TO USE CACHE FAST WRITE * FILE 172
SECFWOFF ZAP STORAGE BACK TO IBM VALUES * FILE 172
SECFWMPF MPF EXIT TO DISABLE CACHE FAST WRITE * FILE 172
SEDFWON ALLOW PAGING TO USE DASD FAST WRITE * FILE 172
SEDFWOFF TURN OFF DASD FAST WRITE FOR PAGING * FILE 172
SEREC IBM 3990-3 SUBSYSTEM STATISTICS RECORD * FILE 172
SESMF CACHE MONITOR SMF RECORD * FILE 172
* FILE 172
DISK MAPPING UTILITIES * FILE 172
* FILE 172
INCLUDES YET ANOTHER VERSION OF THE UBIQUITOUS * FILE 172
'MAPDISK' THAT IS INDISPENSABLE FOR STORAGE MANAGEMENT. * FILE 172
THIS VERSION SHOULD BE DEVICE INDEPENDENT AND HAS SOME * FILE 172
GOOD FEATURES, SUCH AS DYNAMICALLY ALLOCATING THE VVDS * FILE 172
ON THE VOLUME AND EXTRACTING INFORMATION ABOUT VSAM * FILE 172
FILES, E.G. TRACKS USED. AT LAST YOU CAN EASILY SPOT * FILE 172
THOSE HUGELY OVER-ALLOCATED VSAM HOGS. ALSO SHOWS TRUE * FILE 172
LAST REF. DATE FOR VSAM WITHOUT IDATMSTP (FROM VVDS) * FILE 172
AND WILL OPTIONALLY WRITE SUMMARY RECORDS FOR POST * FILE 172
PROCESSING. A CUT-DOWN VERSION CALLED 'MAPDLIST' WILL * FILE 172
READ THESE SUMMARY RECORDS AND CREATE A MAPDISK STYLE * FILE 172
REPORT. INCLUDED IS A SAMPLE JOB USING THIS * FILE 172
COMBINATION TO REPORT VASTLY OVER-ALLOCATED FILES AND * FILE 172
BADLY FRAGMENTED VSAM FILES (EXCESSIVE SPLITS). NOW * FILE 172
WITH SMS SUPPORT. MAPDISK PROGRAMS HAVE BEEN UPDATED * FILE 172
JULY 97. * FILE 172
* FILE 172
MAPDISK MAP DISK CONTENTS WITH ICF/VSAM DETAILS * FILE 172
MAPDISKF MAPDISK SUMMARY RECORD FORMAT * FILE 172
MAPDLIST PRINT MAPDISK SUMMARY RECORDS IN MAPDISK FORMAT * FILE 172
MAPDJCL SAMPLE JCL FOR MAPDISK PROGRAMS * FILE 172
IXVTOCF5 PSEUDO FORMAT 5 DSCB'S FOR INDEXED VTOCS * FILE 172
VSMERROR VSAM ERROR ROUTINE FROM GERMAN G.U.I.D.E TAPE * FILE 172
VVRDSECT VVR RECORD FORMATS * FILE 172
* FILE 172
I DEVELOPED A PROGRAM TO GIVE AN OVERVIEW OF 3380 STATUS, * FILE 172
WHICH GOT DEVELOPED FOR 3390'S (NOT MOD. 6). * FILE 172
AS A CONTRACTOR I FOUND THE UCB SCAN ROUTINE CHANGED * FILE 172
WITH DIFFERENT RELEASES OF MVS, SO I NEEDED DIFFERENT * FILE 172
VERSIONS OF THESE PROGRAMS. * FILE 172
* FILE 172
MAP3380 OVERVIEW OF 3380'S, BY TYPE (D,E,K). ESA V4 * FILE 172
MAP3390 OVERVIEW OF 3390'S, BY TYPE (1,2,3). ESA V4 * FILE 172
M80ESA3 OVERVIEW OF 3380'S, BY TYPE (D,E,K). ESA V3 * FILE 172
M90ESA3 OVERVIEW OF 3390'S, BY TYPE (1,2,3). ESA V3 * FILE 172
M80XA2 OVERVIEW OF 3380'S, BY TYPE (D,E,K). MVS/XA V2 * FILE 172
* FILE 172
VSAM HANDLING UTILITIES * FILE 172
* FILE 172
IF YOU COMBINE THE VVDS PROCESSING I OBTAINED FROM THE * FILE 172
GERMAN G.U.I.D.E. GOODIES TAPE FOR 'MAPDISK' WITH THE * FILE 172
SVC26 FUNCTIONS I GOT FROM THE CBT TAPE (DSAT), YOU * FILE 172
HAVE SOME PRETTY POWERFUL TECHNOLOGY. GIVE 'CAVEAT' A * FILE 172
FREE-FORM LIST OF VSAM ITEMS AND IT WILL GENERATE * FILE 172
IDCAMS ALTER CARDS TO OPTIMISE BUFFER ALLOCATIONS. * FILE 172
UNFORTUNATELY DFSMS NO LOGER ALLOWS YOU TO ALTER THE * FILE 172
BUFNI VALUE, BUT 'CAVEAT' CAN STILL BE USED TO SET THE * FILE 172
TOTAL BUFFERSPACE. * FILE 172
* FILE 172
AMDSB MAP AMDSBCAT AREA FROM SVC26 * FILE 172
CATREAD USE SVC26 TO ACCESS ICF CATALOGS * FILE 172
CAVEAT CARTWRIGHT'S AMAZING VSAM ENTITY AUTOMATIC * FILE 172
TUNING * FILE 172
EMPTOR DISAPPOINTING, A SORT OF DIS-IDCAMS, DOES * FILE 172
AIX'S * FILE 172
GETVVR SUB-PROGRAM TO RETURN VVR DATA FOR AN ENTITY * FILE 172
ICFDSECT ICF CATALOG BCS DATA FORMATS * FILE 172
JOBBUFNI SAMPLE DAILY UPDATE FROM SMF DATA * FILE 172
RESULT DATA AREA RETURNED FROM SVC26 PROGRAM * FILE 172
* FILE 172
OUTPUT MANAGEMENT SYSTEM * FILE 172
* FILE 172
ONCE UPON A TIME (1982) I WROTE A PROGRAM WHICH WOULD * FILE 172
ACT LIKE AN EXTERNAL WRITER AND WOULD STORE ON TAPE THE * FILE 172
SYSOUT WHICH YOU DID NOT WANT TO PRINT. I SUBSEQUENTLY * FILE 172
USED COMMERCIAL SYSOUT MANAGERS INCLUDING INFOPAC AND * FILE 172
SAR. WITH THE ADVENT OF SYSTEM MANAGED STORAGE I * FILE 172
THOUGHT MY LITTLE EXTERNAL WRITER COULD BE MADE JUST AS * FILE 172
GOOD OR BETTER THAN THOSE, SO I DID. THIS CODE WILL * FILE 172
ARCHIVE YOUR SYSOUT ON DISK WHERE HSM CAN MANAGE IT. IT * FILE 172
IS CARTWRIGHT'S HOUSEKEEPING EXTERNAL WRITER (CHEW). NO * FILE 172
BELLS, SOME WHISTLES, BUT AWFULLY COST EFFECTIVE. Y2K * FILE 172
COMPLIANT 1998 * FILE 172
* FILE 172
CHEW$DOC DOCUMENTATION * FILE 172
CHEW$INST ASSEMBLE AND LINK * FILE 172
CHEW$JCL RUN AS A BATCH JOB * FILE 172
CHEWMAIN,CHEWDYNA,CHEWPARS,CHEWREPT SOURCE CODE * FILE 172
CHEWSKIP,CHEWBACA,CHEWCOMM DATA AREAS * FILE 172
CHEWOUT IS A SEPARATE PROGRAM TO PRINT THE LAST * FILE 172
VERSION OF AN ARCHIVED REPORT. * FILE 172
* FILE 172
DATA COMPRESSION UTILITIES * FILE 172
* FILE 172
A SET OF PROGRAMS TO COMPRESS SEQUENTIAL FILES. I GOT * FILE 172
FED UP WITH WAITING FOR OPERATORS TO MOUNT SMF TAPES, * FILE 172
SO FOUND A WAY TO BE ABLE TO KEEP SMF DATA ONLINE * FILE 172
WITHOUT CONSUMING VAST AMOUNTS OF DISK SPACE. 'SSDC02' * FILE 172
ACHIEVES ABOUT 40 PERCENT SPACE REDUCTION BY DUPLICATE * FILE 172
BYTE COMPRESSION. IN ORDER TO BE ABLE TO MANIPULATE * FILE 172
COMPRESSED FILES DIRECTLY I USE THE FACILITIES OF * FILE 172
DF/SORT VIA E15 EXITS. IN RESPONSE TO THE POOR RESULTS * FILE 172
ACHIEVED BY 'SSDC02' WHEN SHRINKING USER FILES THAT HAD * FILE 172
FEW REPEATING CHARACTERS, I WROTE A PROGRAM CALLING THE * FILE 172
HUFFMAN TREE COMPACTION ROUTINE FROM 'ARCHIVER', BY * FILE 172
RICHARD A. FOCHTMAN (CBT FILE 147). ON SMF DATA THIS * FILE 172
PROGRAM GIVES OUTPUT ABOUT 10 PERCENT SMALLER THAN * FILE 172
'SSDC02'. HOWEVER, TO EXPAND THE DATA TAKES THREE TIMES * FILE 172
AS MUCH CPU TIME AS USING 'SSDCE15'. I LATER WROTE * FILE 172
DCPCOMP1 TO IMPROVE ON SSDC02 AND THEN DCPCOMP2 FOR SMF * FILE 172
DATA - THE RESULTS OF THIS ARE SPECTACULAR IF YOU SORT * FILE 172
ON THE SMF HEADER FIRST. DCS.... MEMBERS ARE SORT EXIT * FILE 172
VERSIONS OF THESE PROGRAMS. * FILE 172
* FILE 172
ACTOR ARCHIVER COMPACTION TECHNIQUE OUTPUT REDUCTION * FILE 172
ACTRESS ARCHIVER COMPACTION TECHNIQUE REBUILD EXIT * FILE 172
FOR SORTS * FILE 172
COMPACT OBJECT DECK FOR ARCHIVER COMPACTION CODE (RENT) * FILE 172
EXPAND OBJECT DECK FOR ARCHIVER EXPANSION CODE (RENT) * FILE 172
SSDC02 DATA UTILITY 1 - COMPRESS DATA * FILE 172
SSDC03 DATA UTILITY 2 - EXPAND DATA * FILE 172
DCPCOMP1 COMPRESSION PROGRAM WITH IMPROVED ALGORITHM * FILE 172
DCPCOMP2 COMPRESSION PROGRAM FOR SMF DATA * FILE 172
DCPEXPD1 EXPAND PROGRAM FOR IMPROVED ALGORITHM * FILE 172
DCPEXPD2 EXPAND PROGRAM FOR SMF DATA * FILE 172
SSDCE15 DATA UTILITY 2 - EXPAND DATA SORT EXIT E15 * FILE 172
* FILE 172
SMF/RMF DATA MANIPULATION UTILITIES * FILE 172
* FILE 172
VARIOUS PROGRAMS TO MAKE IT EASIER TO HANDLE SMF * FILE 172
RECORDS FOR PERFORMANCE REPORTING, PARTICULARLY USING * FILE 172
SIMPLE REPORT WRITERS SUCH AS CA/EARL. SEE ALSO THE * FILE 172
PROGRAMS ADAPTED FROM OTHER CBT OFFERINGS. * FILE 172
* FILE 172
CRAP CARTWRIGHT'S RACF ACCOUNTING PROGRAM * FILE 172
CUSS23 USER2 EXIT FOR IFASMFDP TO DELETE SMF2 AND 3 * FILE 172
DAVE73 RMF CHANNEL RECORDS * FILE 172
DAVE73PR REPORT ON CHANNEL UTILISATION * FILE 172
DAVE74 RMF DEVICE RECORDS * FILE 172
SEAFOOD RE-FORMAT SMF DATE TO INCLUDE MONTH * FILE 172
SENDOFF USER EXIT FOR IFASMFDP TO ONLY SELECT WORKDAYS * FILE 172
SERVED70 CREATE SUMMARY RECORDS FROM SMF70 DATA * FILE 172
SERVED71 CREATE SUMMARY RECORDS FROM SMF71 DATA * FILE 172
SERVED72 CREATE SUMMARY RECORDS FROM SMF72 DATA * FILE 172
SE70REC RMF 70 SUMMARY RECORD FORMAT FROM 'SERVED70' * FILE 172
SE71REC RMF 71 SUMMARY RECORD FORMAT FROM 'SERVED71' * FILE 172
SE72REC RMF 72 SUMMARY RECORD FORMAT FROM 'SERVED72' * FILE 172
SE80REC SMF 80 SUMMARY RECORD FORMAT FROM 'CRAP' * FILE 172
STROBE VISUAL DISPLAY OF MULTIPROGRAMMING (PL/1) * FILE 172
* FILE 172
OTHER DATA MANIPULATION UTILITIES * FILE 172
* FILE 172
VARIOUS PROGRAMS TO DO ODD THINGS. * FILE 172
* FILE 172
DCFON ISPF EDIT MACRO TO CONVERT FROM UOW SCRIPT TO * FILE 172
DCF/GML * FILE 172
DAYOWEEK SET RETURN CODE BY DAY OF WEEK * FILE 172
DAYOMNTH SET RETURN CODE BY DAY OF MONTH * FILE 172
DEVOFF VARY DEVICE OFFLINE UNDER CONTROL OF OPC/A * FILE 172
EMPTYPDS RESET PDS DIRECTORY AND HIGH WATER MARK * FILE 172
ICF3490 CATALOG CONVERSION PROGRAM FOR 3480 TO 3490 * FILE 172
LOGAN IBM SYSLOG ANALYSIS PROGRAM FROM GG24-3142-01 * FILE 172
RLSEJCL JCL FOR USING 'VTOC' IN BATCH TO RELEASE SPACE * FILE 172
SETOFF CALLS OPC/A EVENT WRITER INTERFACE * FILE 172
SSWAIT PROGRAM TO WAIT, MAY BE STOPPED BY 'P' COMMAND * FILE 172
S36PRTU4 PRINT SYSTEM/36 OUTPUT UNDER MVS * FILE 172
* FILE 172
MVS MESSAGE PROCESSING MODS * FILE 172
* FILE 172
ALTHOUGH I USE 'TSSO' FOR MOST CONSOLE AUTOMATION, * FILE 172
THERE ARE OCCASIONS WHEN A STRAIGHT MPF EXIT IS THE * FILE 172
BEST WAY TO DO IT. HERE ARE SOME EXAMPLES. * FILE 172
* FILE 172
IEAVMXIT DEFAULT MPF EXIT - LABEL AND SUPPRESS WTO * FILE 172
MPFTAPEM MPF EXIT TO SMF RECORD TAPE MOUNT, FIND VOLUME * FILE 172
MPFTAPEK MAINTAIN TAPE TABLES IN CSA * FILE 172
MPFTAPET COPY BLOCK TO INITIALISE UNIT VOLUME TABLES * FILE 172
MPFTAPEQ PROGRAM TO ENQUIRE ON TAPE MOUNT TABLES (FOR * FILE 172
TSSO) * FILE 172
GETUCVTR RE-ENTRANT ROUTINE TO FIND OR BUILD THE USER * FILE 172
CVT * FILE 172
USERCVT FORMAT OF USER CVT HUNG OUT OF 'CVTUSER' FIELD * FILE 172
CSATABLE FORMAT OF IN STORAGE TAPE VOLSER TABLE * FILE 172
SMF234 FORMAT OF SMF RECORD FOR TAPE UNIT ACTIVITY * FILE 172
* FILE 172
MISCELLANEOUS MVS MODIFICATIONS * FILE 172
* FILE 172
HERE ARE SOME ASSORTED MODS FOR IBM PROGRAM PRODUCTS. * FILE 172
SOME OF THEM ARE AVAILABLE FROM VARIOUS SAMPLIBS, BUT * FILE 172
THEY ARE OFFERED HERE TO ACT AS TEMPLATES FOR YOUR OWN * FILE 172
TAILORING. THE SORT MODS ARE DESIGNED TO STOP DF/SORT * FILE 172
FIXING PAGES DURING PRIME SHIFT. THE SORT DEFAULTS ARE * FILE 172
ALTERED TO CALL THE INPUT EXIT WHICH DETERMINES WHETHER * FILE 172
TO USE EXCPVR. * FILE 172
* FILE 172
DRKUX006 ASSEMBLY OF OPC/A INCIDENT RECORD CREATE EXIT * FILE 172
SMIXRECE INSTALL DF/SORT INPUT EXIT ICEIEXIT * FILE 172
SMIXAPPE APPLY DF/SORT INPUT EXIT USERMOD (DO NOT * FILE 172
ACCEPT) * FILE 172
SMOPRECE RECEIVE USERMOD TO ALTER DF/SORT DEFAULTS * FILE 172
SMOPAPPE APPLY USERMOD TO ALTER DF/SORT DEFAULTS * FILE 172
LASSOO SET AN ADDRESS SPACE SWAPPABLE/NONSWAPPABLE * FILE 172
DEMAND DELETE MEMBERS OF PDS 'A' FROM PDS 'B' * FILE 172
* FILE 172
SIEMENS/STC LASER PRINTER GOODIES * FILE 172
* FILE 172
VARIOUS FONTS ETC. FOR A 3800-3 TYPE PRINTER RUNNING * FILE 172
IN 3800-1 COMPATABILITY MODE. FOR THE REAL IBM BOX YOU * FILE 172
WILL HAVE TO CHANGE THE DEVICE SPECIFIED AND USE * FILE 172
'IEBIMAGE' INSTEAD OF THE SIEMENS VERSION. A LOT OF * FILE 172
THIS STUFF IS ABOUT SWISS NATIONAL LANGUAGE SUPPORT * FILE 172
WHICH IS BASED ON CODE PAGE 500, SO MAY BE OF INTEREST * FILE 172
TO INTERNATIONAL COMPANIES. IF YOU USE EXCLUSIVELY * FILE 172
U.S. ENGLISH (NOW THERE'S AN OXYMORON) YOU MAY SKIM * FILE 172
THROUGH FOR EXAMPLES OF IEBIMAGE OR SOMETHING LIKE IT, * FILE 172
AND OF COURSE THE FONTS ARE STILL VALID. * FILE 172
* FILE 172
CHARS19V SWISS NLS VERSION OF FONT 019V, 15 PITCH * FILE 172
GOTHIC. * FILE 172
S9A1 GOTHIC ROTATED SWISS (GROSS) VERSION OF FONT * FILE 172
017V * FILE 172
LN12 12 LPI FCB FOR ROTATED LISTINGS * FILE 172
SE526 TRANSLATE IN-PLACE UPPER/LOWER CASE (SWISS) * FILE 172
AND ASCII * FILE 172
WCGMLST1 DOCUMENTATION ON STANDARD WCGM ASSIGNMENTS * FILE 172
WCGMLST2 DOCUMENTATION ON OUR (NLS) WCGM ASSIGNMENTS * FILE 172
* FILE 172
MODIFIED PUBLIC DOMAIN PROGRAMS * FILE 172
* FILE 172
HERE ARE SOME PROGRAMS WHICH HAVE BEEN SLIGHTLY MODIFIED * FILE 172
FOR LOCAL CONDITIONS. MOST OF THEM CAME FROM THE CBT * FILE 172
TAPE AT VARIOUS TIMES. MY THANKS TO THE ORIGINAL * FILE 172
AUTHORS. * FILE 172
* FILE 172
EDX JIM LANE'S CLIST EX FILE047 WITH MULTIPLE * FILE 172
LISTS * FILE 172
FILE171 FIXES TO FILE171 FOR AN ACF2 SHOP - DITTO * FILE 172
GETDATE USAF PROGRAM TO DO DATE CONVERSION + HOLIDAY * FILE 172
TABLE * FILE 172
LISTPDS UNNUMBERS MEMBERS WHEN UNLOADING * FILE 172
LISTICF LINE PER ENTRY CATALOG LISTER * FILE 172
ROTATES MY VERSION OF U.S.A.F. PAGE ROTATE PROGRAM. * FILE 172
SE30EXT A SPECIAL VERSION OF SUM30EXT INCLUDING RACF * FILE 172
FIELDS * FILE 172
SE30RPT SEAG VERSION OF SMF30 SUMMARY - LARGER TIME * FILE 172
FIELDS * FILE 172
SE30REC SEAG VERSION OF SMF30 SUMMARY RECORDS * FILE 172
SMF1415 REPORT ON NON-VSAM FILE ACTIVITY * FILE 172
SPMGCLD FRONT END FOR IDCAMS USES ESOTERIC NAMES * FILE 172
STRING MACRO FOR MPFTAPE. EXITS - BUILD UNIT TABLES * FILE 172
STRNGEND MACRO FOR MPFTAPE. EXITS - BUILD UNIT TABLES * FILE 172
SYSEVENT SYSEVENT ANALYSIS SYSTEM FROM STANDARD OIL * FILE 172
SYSIEH IEHPROGM WITHOUT ENQUEUES * FILE 172
TRUISMS A FEW THOUGHTS FOR 'MURPHY' * FILE 172
* FILE 172
IN THIS CATEGORY I INCLUDE MY ENHANCEMENTS FOR VERSION * FILE 172
5 OF 'THE ARCHIVER' FROM CBT FILE 147. THESE ARE * FILE 172
DESIGNED TO PERFORM AN AUTOMATIC ALIAS AND DELETE * FILE 172
FUNCTION AFTER RUNNING A COMPARE. * FILE 172
* FILE 172
ARCHCOMP ARCHIVER COMPARE PROGRAM INCLUDING MY INSERTS * FILE 172
ARCHPARS ARCHIVER PARSING PROGRAM INCLUDING MY INSERTS * FILE 172
CRAMP GENERATE DELETE AND ALIAS CARDS * FILE 172
CRAMPON INVOKE MY AUTOARCHIVE PROGRAM * FILE 172
CRAMPOFF DELETE MY AUTOARCHIVE PROGRAM * FILE 172
* FILE 172
MACROS AND COMMON CODE * FILE 172
* FILE 172
AS WELL AS TEXT AND PROGRAM SOURCE THERE ARE SOME * FILE 172
MEMBERS WHICH ARE COPIED INTO THE PROGRAMS AND SOME * FILE 172
MACROS. MOST OF THOSE ARE FROM THE PUBLIC DOMAIN I.E. I * FILE 172
GAVE THEM AWAY BEFORE I QUIT. * FILE 172
* FILE 172
AROUND THE END OF 1991 I STARTED TO WRITE A LOT MORE * FILE 172
RE-USABLE CODE BY SPLITTING SMALL FUNCTIONAL * FILE 172
SUB-ROUTINES OUT INTO COPY BLOCKS. THESE ARE ALSO * FILE 172
INCLUDED IN THIS FILE. * FILE 172
* FILE 172
*** END *** * FILE 172
* FILE 172
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
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
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
IS FROM SAM GOLOB AND IS THE OLD IBM ALGOL COMPILER * FILE 176
AND LIBRARY. PROCEDURES TO RUN THE ALGOL COMPILER * FILE 176
ARE ON FILE 091, TOGETHER WITH FORTRAN, PL/I, AND * FILE 176
RPG. THESE CAME FROM OS/MVT RELEASE 21.8. SEE * FILE 176
IF YOU CAN GET THIS STUFF TO RUN ON MVS/ESA. I WILL * FILE 176
BE GLAD TO ADD ANY ADDITIONAL MATERIAL THAT AN * FILE 176
ENTERPRISING PERSON CAN SUPPLY ME WITH, TO MAKE THIS * FILE 176
A BETTER, AND WORKABLE PRODUCT. * FILE 176
* FILE 176
THESE LOAD MODULES HAVE NOW BEEN RE-LINKEDITED * FILE 176
WITH THE DFSMS BINDER, HOPEFULLY TO MAKE SURE * FILE 176
THAT THEY ARE PALATABLE TO MVS/ESA'S FETCH. * FILE 176
* FILE 176
NEW ADDRESS: * FILE 176
* FILE 176
SAM GOLOB NEW ADDRESS * FILE 176
P.O. BOX 906 * FILE 176
TALLMAN, NY 10982 EMAIL: sbgolob@aol.com * FILE 176
sbgolob@attglobal.net * FILE 176
NEW PHONE NUMBER: 845-362-1996 * FILE 176
* FILE 176
(IF MY CONTACT INFORMATION BECOMES OBSOLETE, PLEASE * FILE 176
CALL THE MEMBERSHIP OFFICER AT NASPA 414-768-8000 * FILE 176
WHERE I INTEND TO LEAVE MY NEW INFORMATION.) * FILE 176
* FILE 176
IS FROM A WESTERN SOFTWARE HOUSE AND CONSISTS OF * FILE 177
SOME ASSEMBLER MACROS WHICH ALLOW THE OLD XF IFOX00 * FILE 177
ASSEMBLER TO ASSEMBLE XA CODE. THESE ARE SOME NICE * FILE 177
EXAMPLES OF WHAT YOU CAN DO WITH YOUR EXISTING * FILE 177
ASSEMBLER IF YOU HAVE TO "ADD OPCODES" IN A PINCH. * FILE 177
* FILE 177
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
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://www.best.com/~ldw/mvs/ * FILE 179
* FILE 179
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://www.best.com/~ldw/mvs/ * FILE 180
* FILE 180
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://www.best.com/~ldw/mvs/ * FILE 181
* FILE 181
IS THE TSO "PDS" COMMAND PROCESSOR AND ISPF DIALOG * FILE 182
PROGRAM PACKAGE. THERE ARE POSSIBLY 1000 SEPARATE * FILE 182
DATASET MANIPULATION FUNCTIONS BUILT INTO THIS * FILE 182
PACKAGE, AND IT IS SOMETHING THAT NO SYSTEMS * FILE 182
PROGRAMMER CAN AFFORD TO BE WITHOUT ....... * FILE 182
* FILE 182
THIS IS THE HIGHEST CURRENT VERSION OF THE FREE PDS * FILE 182
COMMAND, WHICH IS VERSION 8.5, FROM JOHN KALINICH. * FILE 182
PDS 8.5 INCORPORATES SOME YEAR 2000 CORRECTIONS, AND * FILE 182
HAS BEEN FIXED FOR 4-DIGIT UCB'S AND 3390-9 DASD. * FILE 182
* FILE 182
THIS IS REVISION 7 OF PDS 8.5 * FILE 182
* FILE 182
THE ISPF LEVEL FOR THIS PACKAGE, HAS TO BE ISPF * FILE 182
VERSION 2 OR HIGHER. THIS IS SO THE TABLE SORTS * FILE 182
WILL WORK AND THE PANELS CAN BE UNDERSTOOD. IF YOU * FILE 182
ARE STILL STUCK WITH ISPF V1R1M0, YOU NEED PDS 7.3 * FILE 182
WHICH IS ON THE CBT OVERFLOW TAPE. (I'D IMAGINE * FILE 182
ALMOST NO ONE HAS THIS LEVEL OF ISPF ANY MORE. * FILE 182
ISPF V2.3 RUNS EVEN ON MVS/370 1.3.5.) * FILE 182
* FILE 182
IT WOULD BE "GROSS NEGLECT" TO HAVE A COPY OF THIS * FILE 182
TAPE AND NOT INVESTIGATE THIS PRODUCT. * FILE 182
* FILE 182
THIS FILE IS BEST COMBINED WITH UTILITIES ON * FILE 182
FILES 296, 112, AND 134 OF THIS TAPE. FOR OPTIMAL * FILE 182
VALUE, PROGRAMS: DSAT, DVOL, VTOC, REVIEW, HEL, * FILE 182
BLKDISK WITH ALL ITS ALIASES, COMPARE, AND COMPAREB * FILE 182
SHOULD BE AVAILABLE TO YOUR TSO SESSION, IN ISPLLIB * FILE 182
OR IN SOME OTHER WAY. * FILE 182
* FILE 182
THE PDS COMMAND ALLOWS THE TSO USER TO ACCESS AND * FILE 182
MANIPULATE THE DIRECTORY AND SELECTED MEMBERS OF A * FILE 182
PARTITIONED DATA SET. THE PDS COMMAND CONTAINS * FILE 182
HUNDREDS OF SEPARATE FUNCTIONS, AND CAN BE OPERATED * FILE 182
EITHER IN TSO LINE MODE (WITH PUTLINE INTERFACING) * FILE 182
OR IN ISPF FULLSCREEN MODE. ISPF MODE HAS ALL OF * FILE 182
THE LINE MODE FUNCTIONS, AND ALSO, MANY ADDITIONAL * FILE 182
CAPABILITIES. PDS, IN LINE MODE, CAN BE RUN FROM * FILE 182
A SYSTEM CONSOLE UNDER TSSO (FROM FILE 404). TSSO * FILE 182
IS A SUBSYSTEM, WHICH CAN BE BROUGHT UP UNDER * FILE 182
SUB=MSTR WITHOUT JES. IN THAT CASE, THE LINE MODE * FILE 182
FUNCTIONS OF PDS STILL WORK. THEREFORE, YOU CAN * FILE 182
EXPAND THE DIRECTORY OF A PDS, COPY MEMBERS FROM * FILE 182
ONE PDS TO ANOTHER, ETC ETC, WITHOUT JES2 OR JES3 * FILE 182
AND WITHOUT TSO BEING UP. THIS MAKES FOR A GREAT * FILE 182
RECOVERY TOOL. PLEASE EXPLORE THIS WHILE YOUR * FILE 182
SYSTEM IS HEALTHY, AND HAVE THE MECHANISMS IN PLACE, * FILE 182
JUST IN CASE. * FILE 182
* FILE 182
WITH ITS DIRECTORY OPTIONS. THE PDS COMMAND CAN * FILE 182
PRODUCE STATISTICS ON DIRECTORY AND DATA SET USAGE, * FILE 182
DISPLAY PORTIONS OF THE DIRECTORY, AND SCRATCH, * FILE 182
RENAME OR CREATE ALIASES FOR SELECTED MEMBERS. FOR * FILE 182
ALL OF A PDS'S MEMBERS THAT HAVE PREVIOUSLY BEEN * FILE 182
DELETED AND BEFORE THE LIBRARY HAS BEEN COMPRESSED * FILE 182
PDS WILL ALLOW YOU TO GO IN AND RESTORE THOSE * FILE 182
MEMBERS. FOR LOAD DATA SETS, OPTIONS ARE AVAILABLE * FILE 182
TO LIST LOAD MODULE HISTORY DATA, DISPLAY AND * FILE 182
MODIFY LOAD MODULE LINKAGE ATTRIBUTES, AND PRODUCE * FILE 182
LOAD MODULE CSECT MAPS IN TWO DIFFERENT LENGTHS. * FILE 182
FOR OTHER PARTITIONED DATA SETS, OPTIONS ARE * FILE 182
AVAILABLE TO SUBMIT A MEMBER (JCL) FOR BACKGROUND * FILE 182
PROCESSING, LIST A MEMBER, EDIT A MEMBER OR LIST * FILE 182
LINES FROM A MEMBER CONTAINING A SPECIFIED SEARCH * FILE 182
STRING. THIS FILE IS IN IEBUPDTE FORMAT AND * FILE 182
CONTAINS THE SOURCE AND HELP MEMBER FOR THIS COMMAND. * FILE 182
THE RESTORE OPTION WILL ALSO ALLOW THE RECOVERY OF * FILE 182
LOAD MODULE MEMBERS. * FILE 182
* FILE 182
THE PDS PRODUCT AT VERSION 8.5 PROVIDES AN ISPF * FILE 182
INTERFACE AND UTILITY VALUE OF AWESOME PROPORTION. * FILE 182
YOU ARE ADVISED NOT TO PASS OVER THIS FILE WITHOUT * FILE 182
LOOKING AT IT .......... * FILE 182
* FILE 182
THE FREE VERSION OF THIS PACKAGE HAD BEEN SUCCEEDED * FILE 182
BY A VENDOR PRODUCT CALLED STARTOOL. STARTOOL IS * FILE 182
SUPPORTED BY BRUCE LELAND AND STEVE SMITH. * FILE 182
STARTOOL IS DISTRIBUTED BY SERENA INTERNATIONAL OF * FILE 182
BURLINGAME, CALIFORNIA. * FILE 182
* FILE 182
JOHN KALINICH IS NOW ENHANCING THIS PACKAGE. * FILE 182
* FILE 182
>> FREE PDS IS NOW SUPPORTED BY JOHN KALINICH OF THE U.S. * FILE 182
>> ARMY LOGISTICS SUPPORT CENTER IN ST. LOUIS, MISSOURI. * FILE 182
* FILE 182
>> EMAIL ADDRESS: jkalinic@csc.com * FILE 182
>> PHONE NUMBER : 314-331-4521 * FILE 182
* FILE 182
>>>> PLEASE NOTIFY JOHN IF YOU HAVE ANY FIXES OR * FILE 182
>>>> ENHANCEMENTS TO PDS, SO THAT HE MAY INCORPORATE * FILE 182
>>>> AND/OR TEST THEM. * FILE 182
* FILE 182
THE VENDOR PRODUCT EXTENSION OF PDS, CALLED * FILE 182
STARTOOL, IS SUPPORTED BY BRUCE LELAND AND STEVE * FILE 182
SMITH, AND IS DISTRIBUTED BY SERENA INTERNATIONAL * FILE 182
IN BURLINGAME, CALIFORNIA. * FILE 182
* FILE 182
STARTOOL HAS MORE THAN DOUBLE THE AWESOME CAPABILITY * FILE 182
OF FREE PDS, INCLUDING DISASSEMBLER, DELINKER, * FILE 182
AUTOMATIC SMP/E MCS STATEMENT GENERATION, EXTENSIVE * FILE 182
VSAM SUPPORT, VSAM EDITOR, ETC, ETC. PDSE DATASET * FILE 182
SUPPORT, ALL AT THE TRADITIONAL PDS SUPER EXECUTION * FILE 182
SPEED, AND WITH UNBELIEVABLE ISPF SUPPORT. * FILE 182
* FILE 182
UPDATED ADDRESSES OF BRUCE LELAND AND STEVE SMITH. * FILE 182
THEY BOTH WORK AT: * FILE 182
* FILE 182
SERENA INTERNATIONAL * FILE 182
500 AIRPORT BLVD, 2ND FLOOR * FILE 182
BURLINGAME, CA 94010 * FILE 182
(415) 696-1800 * FILE 182
(415) 696-1776 FAX * FILE 182
* FILE 182
email address: bleland@serena.com istartool@aol.com * FILE 182
ssmith@serena.com * FILE 182
* FILE 182
- - - - - - - - - - - - - - - - - - - - - * FILE 182
* FILE 182
PDS VERSION 8.5 MODS * FILE 182
-------------------- * FILE 182
* FILE 182
NEW SUBCOMMANDS * FILE 182
--------------- * FILE 182
NONE * FILE 182
* FILE 182
* FILE 182
CHANGES AND IMPROVEMENTS * FILE 182
------------------------ * FILE 182
1. YEAR 2000 SUPPORT IN MEMLIST, IF, ATTRIB, HISTORY, * FILE 182
LISTC, AND TIME SUBCOMMANDS. * FILE 182
* FILE 182
2. ADDED MEMBER PDSJCLHL TO ASSEMBLE PDS WITH THE HIGH * FILE 182
LEVEL ASSEMBLER. * FILE 182
* FILE 182
3. INCORPORATED GREG PRICE'S MODS (FILE 134) TO #PDSTBL * FILE 182
AND @PRINTO SO REVIEW : AND PRINTOFF : PROCESS THE * FILE 182
WHOLE DATA SET ONCE, RATHER THAN EACH MEMBER * FILE 182
INDIVIDUALLY. * FILE 182
* FILE 182
4. ADDED PANEL P85@CUA AS AN ALTERNATIVE TO THE P85PN@P * FILE 182
PRIMARY PDS PANEL. ADDED CUA CODE UTILIZING ISPF * FILE 182
VERSION 4.X REFERENCE LISTS ON THE ACTION BAR. * FILE 182
ADDED PANEL P85LOGO FOR AN ABOUT... POP-UP ON THE * FILE 182
HELP PULL-DOWN. * FILE 182
* FILE 182
5. DYNAMIC UCB AND 4-DIGIT DEVICE NUMBER SUPPORT. * FILE 182
* FILE 182
6. FAT DASD (3390 MOD 9) SUPPORT. * FILE 182
* FILE 182
7. USE COUNT CAN NOW BE SORTED ON IN LISTV DIALOG. NEW * FILE 182
STATUS INDICATORS IN LISTV ARE: * FILE 182
* FILE 182
..C..... - ACTIVE CATALOG ON VOLUME * FILE 182
....D... - INDEXED VTOC DISABLED * FILE 182
.......M - SMS MANAGED VOLUME * FILE 182
* FILE 182
8. ADDED LOCATE COMMAND TO CAX AND LISTC/LISTFILE * FILE 182
DIALOGS. * FILE 182
* FILE 182
9. LISTV: ADDED SPACE USED AND PRI/ALT CYLS INFORMATION * FILE 182
IN NEW PANEL. SPACE USED CAN BE SORTED ON IN LISTV. * FILE 182
* FILE 182
10. CAX: ADDED 31-BIT UCB ADDRESS SUPPORT. * FILE 182
* FILE 182
11. ADDED "GENERIC" TO DSAT COMMAND IN LISTC PANEL * FILE 182
P85LCDST. THE NAME SPECIFIED IS TO BE USED AS A * FILE 182
GENERIC KEY TO LOCATE DATA SET NAMES. ALL DATA SETS * FILE 182
WHICH MATCH THE KEY WILL BE DISPLAYED. THE NAME * FILE 182
NEED NOT SPECIFY AN INDEX LEVEL. * FILE 182
* FILE 182
12. ADDED POINT-AND-SHOOT TO THE SORT COLUMNS IN THE * FILE 182
MEMLIST, LISTC, LISTV, AND CAX PANELS. IF YOU HAVE * FILE 182
AN EMULATOR LIKE VISTA THAT HAS MOUSE SUPPORT, THEN * FILE 182
YOU CAN CLICK ON THE POINT-AND-SHOOT COLUMN HEADER * FILE 182
TO SORT ON IT. CHANGE THE POINT-AND-SHOOT COLOR TO * FILE 182
SOMETHING OTHER THAN TURQUOISE, WHICH IS THE * FILE 182
STANDARD PANEL COLUMN HEADER COLOR THAT PDS USES. * FILE 182
ISPF COMMAND "PSCOLOR" CAN BE USED TO MAKE THE * FILE 182
RECOMMENDED CHANGE. * FILE 182
* FILE 182
PRE-VERSION 4 ISPF USERS NEED TO DISABLE * FILE 182
POINT-AND-SHOOT PANELS BY SETTING THE &PNTS VARIABLE * FILE 182
TO NULLS IN #PDSGENB/U. * FILE 182
* FILE 182
VISTA TN3270 CAN BE DOWNLOADED FROM: * FILE 182
http://home.earthlink.net/~tombrennan * FILE 182
<--- USE ALL LOWER CASE * FILE 182
* FILE 182
13. / AND ? ARE SYNONYMS FOR THE O(PTIONS) LINE COMMAND * FILE 182
IN ALL DIALOG TABLE DISPLAYS. * FILE 182
* FILE 182
14. NEW GLOBAL VARIABLE &MDRDT TO SELECT THE STYLE OF * FILE 182
DASD MODEL DISPLAYED IN LISTV DIALOG. * FILE 182
* FILE 182
15. ADDED MESSAGE PDS105I (LAST PDS85 MAINTENANCE DATE) * FILE 182
TO CONTROL SUBCOMMAND. * FILE 182
* FILE 182
16. LISTV: ADDED F0 DSCB COUNT, FREE VIR COUNT, AND * FILE 182
FRAGMENTATION INDEX TO THE LISTV DUAL PANEL * FILE 182
(P85PNR/PS). * FILE 182
* FILE 182
17. ADDED "LEARNING PDS" TUTORIAL BY SAM GOLOB TO THE * FILE 182
HELP PULL-DOWN OF PANEL P85@CUA. * FILE 182
* FILE 182
18. LISTC: HANDLE THE NEW LONG DATE FORMAT (MM/DD/YYYY) * FILE 182
OF THE DSAT (FILE 296) COMMAND PROCESSOR. * FILE 182
* FILE 182
19. NEW GLOBAL VARIABLE ©ALI TO SET ALIAS OR NOALIAS * FILE 182
AS THE DEFAULT FOR THE COPY SUBCOMMAND. * FILE 182
* FILE 182
20. HISTORY: ADDED SUPPORT FOR COBOL MVS AND COBOL * FILE 182
OS/390 COMPILE-TIME OPTIONS. * FILE 182
* FILE 182
21. MESSAGES CHANGED: PDS064I - CHANGED TO DISPLAY * FILE 182
LINKEDIT TIMESTAMP (APAR OW29593) IF PRESENT. * FILE 182
PDS260I - CHANGED TO DISPLAY COBOL MVS AND COBOL * FILE 182
OS/390 TIMESTAMP. * FILE 182
* FILE 182
PROBLEMS FIXED * FILE 182
-------------- * FILE 182
1. @DIALSTC WAS DROPPING "LISTFILE VTOC" TABLE ENTRIES * FILE 182
FOR DATASETS WITH SINGLE DIGIT ALLOCATION VALUES IF * FILE 182
RUNNING WITH THE 7-DIGIT VTOC ALLOC MOD (VT0CPRNT). * FILE 182
* FILE 182
2. MEMBER LINE COUNTS ABOVE 32,767 HAVE BEEN CORRECTED * FILE 182
IN ATTRIB, HISTORY, IF, LIST, AND VERIFY. THE * FILE 182
MAXIMUM MEMBER LINE COUNT IS NOW 65,535. * FILE 182
* FILE 182
3. USE COUNTS ABOVE 255 HAVE BEEN CORRECTED IN THE * FILE 182
LISTV DIALOG. IT WILL NOW DISPLAY VALUES UP TO * FILE 182
65,535. COUNTS ABOVE 999 WILL BE DISPLAYED IN K * FILE 182
UNITS. * FILE 182
* FILE 182
4. SUBCOMMAND MONITORING (&NLO1-9 GLOBALS) NOW INCLUDES * FILE 182
THE CORRECT MESSAGE IN THE ISPF LOG. * FILE 182
* FILE 182
5. "DSNAME TSO" WAS RETURNING THE WRONG TYPE FOR TRACK * FILE 182
ALLOCATED DATASETS. * FILE 182
* FILE 182
6. MEMLIST SORT COULD BE OUT OF SEQUENCE BECAUSE OF A * FILE 182
X'00' FILL CHARACTER IN THE EDIT PATTERN FOR THE * FILE 182
SIZE FIELD. * FILE 182
* FILE 182
7. LISTC DSAT SORT COULD BE OUT OF SEQUENCE BECAUSE Y2K * FILE 182
CENTURY INDICATORS WERE NOT CLEARED FOR MIGRATED * FILE 182
DATA SETS. * FILE 182
* FILE 182
8. LISTA DATA FIELD WAS OVERLAYED FOR 2ND-NTH * FILE 182
CONCATENATIONS. * FILE 182
* FILE 182
is from Gilbert Saint-flour of Automated Migration * FILE 183
Services. This is a collection of utilities and * FILE 183
other highly useful things for system programmers * FILE 183
to have. The following is a summary of this file's * FILE 183
contents. * FILE 183
* FILE 183
email: gsf@ibm.net * FILE 183
PHONE: 973-992-9318 * FILE 183
* FILE 183
--> LAST UPDATE: 30Jun00 (for CBT427) * FILE 183
* FILE 183
.--------------------------------. * FILE 183
| CBT TAPE - Index of file 183 | * FILE 183
'--------------------------------' * FILE 183
* FILE 183
----------------- TSO and ISPF commands ------------------- * FILE 183
* FILE 183
BR TSO command - Browse most data sets under * FILE 183
ISPF/PDF, using BRIF. Supports VSAM, BDAM, * FILE 183
multi-volume, RECFM=VBS, BLKSIZE=0, etc. * FILE 183
* FILE 183
To use it, just enter BR instead of B on the * FILE 183
Data Set List utility screen. BR has its own * FILE 183
point-and-shoot capability and can grab a dsname * FILE 183
on the screen, wherever the cursor is located. * FILE 183
* FILE 183
CLS A 5-line "clear screen" command for TSO * FILE 183
* FILE 183
COMPRCMD TSO Command Processor written in Assembler * FILE 183
* FILE 183
Compress a PDS with DISP=SHR using standard ISPF * FILE 183
and LINK-EDIT protection. Uses the TSO/E service * FILE 183
routine to invoke IEBCOPY and, therefore, does not * FILE 183
require any authorization of its own. Accepts * FILE 183
generic dsnames (such as IBMUSER.*) and offers a * FILE 183
few other options. * FILE 183
* FILE 183
COMPRESS The COMPRESS EDIT macro (written in REXX) that * FILE 183
allows you to compress the PDS you're editing * FILE 183
just by typing "COMPRESS" on the command line. * FILE 183
* FILE 183
CONCAT A REXX exec to add a data set to a concatenation. * FILE 183
* FILE 183
CUT REXX EDIT Macro - CUT & PASTE package * FILE 183
PASTE REXX EDIT Macro - CUT & PASTE package * FILE 183
CUTPGM Assembler program used in CUT & PASTE. * FILE 183
CUTHLP1 Help screen for CUT * FILE 183
CUTHLP2 Help screen for PASTE * FILE 183
* FILE 183
My own version of a classic. Requires * FILE 183
MVS/ESA 4.2.2 or above. Uses data spaces, * FILE 183
name/token pairs and compression. Supports * FILE 183
multiple clip-boards and the APPEND option. * FILE 183
* FILE 183
DSLIST REXX exec - Point-and-shoot Dataset List Utility * FILE 183
* FILE 183
This REXX program allows you to invoke the data * FILE 183
set list function of ISPF/PDF (option 3.4) with * FILE 183
the DSNAME LEVEL field preset to the data set name * FILE 183
under which the cursor is currently positionned. * FILE 183
* FILE 183
DSLIST may be invoked from any ISPF screen simply * FILE 183
by typing: * FILE 183
* FILE 183
TSO %DSLIST * FILE 183
* FILE 183
on the command line, then by moving the cursor * FILE 183
under a data set name on your screen and pressing * FILE 183
"enter". You may also define it as a command in * FILE 183
the ISPF command table, or set it up as a PFK. * FILE 183
* FILE 183
DSNLIST TSO command - returns in &var the dsnames * FILE 183
allocated to &ddn * FILE 183
Example: * FILE 183
* FILE 183
ALLOC DD(SYSPROC) SHR - * FILE 183
DS('IPO1.CMDPROC' 'IBMUSER.CLIST') * FILE 183
DSNLIST DDNAME(SYSPROC) SETVAR(VAR2) * FILE 183
* FILE 183
is equivalent to: * FILE 183
* FILE 183
SET VAR2 = 'IPO1.CMDPROC' 'IBMUSER.CLIST' * FILE 183
* FILE 183
EXECPGM TSO command - invoke a utility program or compiler * FILE 183
with an alternate ddname list, as follows: * FILE 183
EXECPGM IEV90 + * FILE 183
PARM(NOOBJECT,NODECK,NOXREF,NORLD) + * FILE 183
SYSIN(TEMPWK2) + * FILE 183
SYSUT1(TEMPWK1) + * FILE 183
SYSLIB(ASMLIB) + * FILE 183
SYSPRINT(ASMH$PRT) + * FILE 183
STEPLIB(LINKLIST) * FILE 183
* FILE 183
EXECUTE REXX EXEC - Run an in-stream EXEC in a TMP step * FILE 183
* FILE 183
FASTPATH This assembler program allows the use of fast-path * FILE 183
commands without requiring customization of the * FILE 183
ISPF environment. * FILE 183
Fastpath provides two types of functions: * FILE 183
* FILE 183
1. Initialization * FILE 183
a. add 20 fast-path commands to the user's * FILE 183
in-storage copy of ISPCMDS * FILE 183
b. pre-load specific modules to enhance * FILE 183
performance and allow access from a private * FILE 183
LOAD library * FILE 183
c. issue STIMER to prevent S522 time-out abends * FILE 183
2. Processing * FILE 183
a. invoke EDIT, BROWSE, VIEW, WorkPlace and SDSF * FILE 183
with the appropriate NEWAPPL parameter * FILE 183
b. store and retrieve parameters associated * FILE 183
with user-specified tags * FILE 183
c. retrieve a dsname under which the cursor * FILE 183
is positionned and invoke EDIT, BROWSE, * FILE 183
VIEW or the Workplace * FILE 183
d. Edit your ISPCTLn or SPFTEMPn.CNTL data set * FILE 183
e. View a member in SYS1.MACLIB or SYS1.MODGEN * FILE 183
f. TSO Full-screen * FILE 183
g. misc others * FILE 183
* FILE 183
FASTPDOC Documentation for the FASTPATH utility * FILE 183
* FILE 183
FTP REXX EDIT Macro - Transmit the data being edited * FILE 183
using text-mode FTP * FILE 183
* FILE 183
INITKSDS Initialize a KSDS after it's been DEFINE'd * FILE 183
* FILE 183
This program prevents OPEN from failing when * FILE 183
opening with MACRF=(IN,OUT) or STRNO=2 a KSDS * FILE 183
that has just been defined. Can be invoked as * FILE 183
a batch program, a TSO command, or a sub-routine. * FILE 183
* FILE 183
IRXEHCIR Interface to IKJEHCIR for REXX and COBOL * FILE 183
* FILE 183
This small assembler program allows a REXX EXEC * FILE 183
or a COBOL program to invoke IKJEHCIR, the TSO/E * FILE 183
Catalog Information Routine. * FILE 183
* FILE 183
ISPTASK Program - prevent S522 abends while in ISPF * FILE 183
* FILE 183
Just link it into your ISPLLIB or STEPLIB, then * FILE 183
re-enter ISPF, and you won't time out any more. * FILE 183
* FILE 183
Also preloads some ISRxxxx modules for * FILE 183
performance, even if they're in PLPA (YES, * FILE 183
in ESA 4.3, you can pre-load PLPA modules!!) * FILE 183
* FILE 183
LCAT TSO command - Full-screen IDCAMS LISTCAT * FILE 183
* FILE 183
This TSO/ISPF command invokes IDCAMS then * FILE 183
uses BRIF to display the output. * FILE 183
* FILE 183
To use it, just enter LCAT (or LC) as a line * FILE 183
command on the Data Set List Utility screen. * FILE 183
* FILE 183
LLIBDEF1 Prevent some S806-4 abends when using LIBDEF with * FILE 183
ISPLLIB * FILE 183
* FILE 183
This program allows you to pre-load a REUS or * FILE 183
RENT module from a LOAD library defined via * FILE 183
LIBDEF. This can prevent S806-4 abends that * FILE 183
occur when a program that is not LIBDEF-aware * FILE 183
tries to access another program via LOAD or LINK. * FILE 183
* FILE 183
LISTDSI REXX EXEC - Display output of LISTDSI function * FILE 183
* FILE 183
This EXEC helps the REXX programmer implement * FILE 183
the LISTDSI function by displaying the value of * FILE 183
all of the variables returned by LISTDSI for the * FILE 183
specified data set, as well as providing the * FILE 183
syntax, return codes and reason codes in the * FILE 183
form of comments at the end of the source. * FILE 183
* FILE 183
LOCKTERM TSO command written in assembler. * FILE 183
Lock TSO terminal, enter LOGON password to unlock. * FILE 183
* FILE 183
LPA24 REXX EXEC - Display PLPA usage below the 16MB line * FILE 183
* FILE 183
LPR REXX EDIT Macro - Print the data being edited * FILE 183
using TCP/IP's LPR command * FILE 183
* FILE 183
NEWAPPL REXX EXEC - Start a new ISPF application using * FILE 183
LIBDEF and ALTLIB. * FILE 183
* FILE 183
OBEYFILE EDIT Macro written in REXX - Allows the TCP/IP * FILE 183
administrator to use the data being edited as * FILE 183
input to the TCP/IP OBEYFILE command without * FILE 183
having to SAVE it. * FILE 183
* FILE 183
RESET5 Initial EDIT macro that issues a "RESET" command * FILE 183
* FILE 183
Type "IMACRO !RESET" once, and you won't be * FILE 183
bothered by these annoying messages anymore. * FILE 183
* FILE 183
ROUTE REXX EDIT Macro - Print the data being edited. * FILE 183
ROUTEPGM Assembler program used in ROUTE to speed things up * FILE 183
ROUTEHLP Help screen * FILE 183
* FILE 183
This edit macro writes the data you're editing to * FILE 183
a SYSOUT data set, with the CLASS and DEST you * FILE 183
specify, a title line and 60 lines per page. * FILE 183
Works with EDIF because what gets printed is the * FILE 183
data being edited, NOT the data stored on disk. * FILE 183
* FILE 183
SHOWMACS IEBUPDTE JOB that loads the macros required for * FILE 183
ShowMVS into the PVTMACS library. * FILE 183
* FILE 183
ShowMVS Program - Produces over 60 different displays * FILE 183
about the MVS system * FILE 183
* FILE 183
This program displays information obtained from * FILE 183
various control blocks of the MVS system on which * FILE 183
it runs. The information can be displayed under * FILE 183
ISPF using EDIF or BRIF, written to the TSO ter- * FILE 183
minal using PUTLINE or to a data set using QSAM. * FILE 183
* FILE 183
ShowMVS displays two different types of data: * FILE 183
* FILE 183
1. Data related to the MVS operating system: * FILE 183
* FILE 183
MVS LEVEL, DFP LEVEL, OSLVL FLAGS, JES2 LEVEL * FILE 183
IPL DATE, TIME, VOLSER, NUC-ID, CLPA, CVTUSER * FILE 183
Date and time of last CLPA * FILE 183
Time Zone, Primary sub-system name and type * FILE 183
Software Level: TSO/E, ISPF, DSS, HSM, RACF, * FILE 183
VTAM SORT, DSF, DB2, CICS, * FILE 183
MQ Series * FILE 183
Run-time Environments (CBL, PLI, C, LE, etc) * FILE 183
SMF Information: SID, JWT, data sets, exits * FILE 183
SMS Configuration: SCDS, system names, etc * FILE 183
GRS Configuration * FILE 183
Hardware config: CPU, Storage, IODF, PR/SM * FILE 183
Central Processing Complex Node Description * FILE 183
On-line CPUs and storage * FILE 183
Performance (SU/sec, estimated MIPS) * FILE 183
Service Processor data * FILE 183
I/O configuration Definition (IODF) * FILE 183
LPAR configuration * FILE 183
VM host information * FILE 183
VIRTUAL STORAGE MAP (CSA, SQA, LPA, etc) * FILE 183
SRM data (IPS/ICS/OPT, APG, etc) * FILE 183
WLM data (MODE, etc) * FILE 183
OPEN catalogs * FILE 183
PAGE data sets in use * FILE 183
Dump data sets status and dump options * FILE 183
Dump data sets date, time and title * FILE 183
Automatically-allocated dump data sets * FILE 183
DAE Parameters * FILE 183
GTF status and options * FILE 183
Master JCL (IEEMSJCL) * FILE 183
Sub-system vector table w/ functions processed * FILE 183
Primary Sub-system JCL * FILE 183
TSO PARMLIB data (IKJTSOxx) * FILE 183
TSO Exits and Tables * FILE 183
TCAS parameters * FILE 183
RACF options, data sets and tables * FILE 183
Address space usage: * FILE 183
Batch Jobs * FILE 183
TSO users * FILE 183
Started tasks * FILE 183
JES2 Initiators and corresponding jobs * FILE 183
Link-list data sets, with creation date * FILE 183
LPA-list data sets, with creation date * FILE 183
List of authorized libraries * FILE 183
Dynamic Exit Facility * FILE 183
Static system symbols * FILE 183
LLA parameters and managed libraries * FILE 183
Active LPA Queue (MLPA, FLPA) * FILE 183
SVC Table with name of the corresponding module * FILE 183
T1, T2, T3 and T6 ESR tables * FILE 183
Linkage Index (LX) Table * FILE 183
Program Properties Table (PPT) * FILE 183
I/O Appendage Table * FILE 183
Device Classes and corresponding unit names * FILE 183
On-line devices, with unit-name, VOLSER, owning * FILE 183
job, use attribute, storage group * FILE 183
System consoles, with status & Routcde list * FILE 183
Message Processing Facility (MPF) * FILE 183
Device Allocation Defaults (ALLOCxx) * FILE 183
Addresses of selected global control blocks * FILE 183
* FILE 183
2. Data related to the current address space * FILE 183
* FILE 183
JCL information for current JOB/STEP * FILE 183
RACF profile (from ACEE) * FILE 183
TSO profile (from PSCB & UPT) * FILE 183
REXX envir., host cmd tbls and func pkg dir. * FILE 183
Allocated Data sets (from TIOT, SWA, TCT) * FILE 183
TCB tree and PRB chain Attention Routines * FILE 183
Enhanced view of the JPAQ and Load-lists * FILE 183
Recovery exits and timers Addresses of selected * FILE 183
local control blocks * FILE 183
* FILE 183
ShowMVS can be invoked as a program, as a TSO * FILE 183
cmd, or as an edit macro and can run authorized * FILE 183
or non-authorized. Some of the displays are * FILE 183
only produced when ShowMVS runs authorized. * FILE 183
* FILE 183
STEMVIEW REXX sub-routine written in assembler. * FILE 183
Displays values of a stem variable using BRIF * FILE 183
or EDIF. A nice addition to OUTTRAP. * FILE 183
* FILE 183
SVC11Y2K Date Simulation Routine for Batch applications. * FILE 183
* FILE 183
This assembler routine front-ends the TIME SVC * FILE 183
(SVC 11) to simulate a date different from the * FILE 183
current system date. The date is passed via JCL * FILE 183
in an IEFBR14 step coded as follows: * FILE 183
//RUNDATE EXEC PGM=IEFBR14,PARM=YYYYDDD * FILE 183
where YYYY is the 4-digit year and DDD the julian * FILE 183
day. SVC11Y2K only works with applications that * FILE 183
use SVC 11, such as OS/VS COBOL, VS COBOL II, * FILE 183
assembler, etc. SVC11Y2K does not work with * FILE 183
applications that use the LINKAGE=SYSTEM format * FILE 183
of the TIME macro ot the STCK instruction, such * FILE 183
as LE/370. SVC11Y2K must be installed using the * FILE 183
LOADMLPA and SVCUPDTE utilities or equivalent. * FILE 183
* FILE 183
TALLY REXX exec for ISPF 3.4 - Display the total number of * FILE 183
tracks used up by the data sets on the DSLIST panel. * FILE 183
* FILE 183
TLMS Display a VMF record under PDF 3.4 * FILE 183
* FILE 183
This program reads the VMF record for the * FILE 183
first volume of a tape data set, formats it * FILE 183
pretty much like the CATLTSO command, then * FILE 183
invokes BRIF to display the result. May only * FILE 183
be used as a line command on the Data Set * FILE 183
List panel (Option 3.4 of ISPF/PDF). * FILE 183
* FILE 183
TMS Display a TMC record under PDF 3.4 * FILE 183
Same as TLMS, but for CA1/TMS 5.0 * FILE 183
* FILE 183
VARS TSO/ISPF command written in REXX. * FILE 183
Display in-storage ISPF vars. * FILE 183
* FILE 183
VDL TSO/ISPF command written in REXX. VIEW Data set * FILE 183
List: makes the list of data set created by DSLIST * FILE 183
available as data in a VIEW session. * FILE 183
* FILE 183
VML TSO/ISPF command - Read the directory of the * FILE 183
specified PDS and VIEW the Member List * FILE 183
* FILE 183
VSAMVIEW TSO/ISPF command - View a VSAM data set using EDIF * FILE 183
* FILE 183
VSAVE ISPF EDIT macro - Save a member in VIEW mode * FILE 183
* FILE 183
WHEREIS REXX EXEC - Look for all occurences of a member in * FILE 183
the libraries currently allocated to your TSO * FILE 183
session. If multiple versions of the member are * FILE 183
present in a concatenation, they are all shown, * FILE 183
along with their ISPF stats, when present. * FILE 183
* FILE 183
WHOAMI REXX EXEC - Displays the user-ID and system-ID * FILE 183
in large letters, plus a few other things * FILE 183
* FILE 183
WP REXX EXEC - Invoke the Work-place from DSLIST. * FILE 183
* FILE 183
XDELETE REXX EXEC - Delete data sets "en masse" using a * FILE 183
generic filter such as "ABC*.D%.**.E%F*GH.*.TEMP". * FILE 183
* FILE 183
------------------ Batch Programs -------------------------- * FILE 183
* FILE 183
BLKSIZE2 Scan a PDS and print the size of each block and * FILE 183
the track balance * FILE 183
* FILE 183
This is a batch program, for people interested * FILE 183
in what a PDS looks like, from the inside. * FILE 183
* FILE 183
BYPASSNQ Assembler program. Scratch or Rename a Data Set * FILE 183
without SYSDSN ENQ * FILE 183
* FILE 183
BYPASSNQ is a driver that allows you to run any * FILE 183
utility program (such as IEHPROGM or IDCAMS) and * FILE 183
bypass dsname ENQ that is normally performed by * FILE 183
the DYNALLOC, SCRATCH and RENAME SVCs. * FILE 183
This technique allows data sets to be deleted or * FILE 183
renamed using standard MVS services and is fully * FILE 183
compatible with indexed VTOCs and SMS. * FILE 183
* FILE 183
CANMSGCL Purge current job's held output after a few hours. * FILE 183
Useful for those jobs that work OK 99% of the time * FILE 183
(must be authorized) * FILE 183
* FILE 183
Example: * FILE 183
* FILE 183
//MYJOB JOB ACCT#,CLASS=A,MSGCLASS=X * FILE 183
//COPY1 EXEC PGM=IEBCOPY * FILE 183
//... DD ... * FILE 183
//CONDPURG EXEC PGM=CANMSGCL,PARM=2, * FILE 183
// COND=(0,NE,COPY1) * FILE 183
* FILE 183
The number in the parm is a number of hours. * FILE 183
If the 'COPY1' step ends at 10:28 with a * FILE 183
return code equal to zero, the 'CONDPURG' step * FILE 183
executes and issues the following command: * FILE 183
* FILE 183
$TA,T=12.28,'$OJ01234,Q=X,CANCEL' * FILE 183
* FILE 183
COB2JOB Retrieve Job-related information in COBOL * FILE 183
* FILE 183
COB2SYS Retrieve System-related information in COBOL * FILE 183
* FILE 183
COB2TSO Issue TSO commands in COBOL * FILE 183
* FILE 183
CLEANUP Assembler program. Automatically searches the MVS * FILE 183
catalog for non-GDG data sets that will be created * FILE 183
in subsequent steps of your job and deletes them. * FILE 183
HSM-migrated data sets are deleted with HDELETE. * FILE 183
* FILE 183
//MYJOB JOB acct# * FILE 183
//* * FILE 183
//CLEANUP EXEC PGM=CLEANUP * FILE 183
//* * FILE 183
//STEP1 EXEC PGM=MYPROG1 * FILE 183
//OUTDD DD DSN=MY.FILE1,DISP=(,CATLG) * FILE 183
//STEP2 EXEC PGM=MYPROG2 * FILE 183
//OUTDD DD DSN=MY.FILE2,DISP=(,CATLG) * FILE 183
* FILE 183
Can also be executed as the LAST step of a job to * FILE 183
delete non-GDG data sets that were created during * FILE 183
job execution. * FILE 183
* FILE 183
CMDJ Send a JES2 command with the current job's number * FILE 183
(must be authorized) * FILE 183
* FILE 183
Example: * FILE 183
* FILE 183
//PURGEJOB EXEC PGM=CMDJES2,PARM=P * FILE 183
* FILE 183
If the current job's number is JOB01234, * FILE 183
then the following command is issued: * FILE 183
* FILE 183
$PJ 01234 * FILE 183
* FILE 183
GSFLKED Front-end to the linkage editor to recover * FILE 183
from SD37 on SYSLMOD (must be authorized) * FILE 183
* FILE 183
This program may be invoked instead of the DFP * FILE 183
linkage editor. It calls the linkage editor and, * FILE 183
if an SD37 abend occurs, calls IEBCOPY to compress * FILE 183
the SYSLMOD PDS, then calls the linkage editor * FILE 183
again. * FILE 183
* FILE 183
Another feature of this program is to * FILE 183
conditionally append a PDS member to SYSLIN, if * FILE 183
that member exists. * FILE 183
* FILE 183
ISGECMON Assemble and Link Job for SYS1.SAMPLIB(ISGECMON) * FILE 183
* FILE 183
The ISGECMON program runs as a never ending task * FILE 183
that checks dataset contention at periodic * FILE 183
intervals and sends messages to TSO users asking * FILE 183
them to free datasets that are causing contention. * FILE 183
* FILE 183
IGX00GSF Authorization SVC routine for ShowMVS and STEPLIB * FILE 183
* FILE 183
This extended SVC routine (ESR) allows an * FILE 183
un-authorized program to switch to MODE=SUP. * FILE 183
Only programs that have been registered and * FILE 183
meet security requirements will successfully * FILE 183
be switched to MODE=SUP. * FILE 183
* FILE 183
JOBRLSE Release a job by number (must be authorized) * FILE 183
* FILE 183
This program allows you to issue a $A * FILE 183
command to release a job previously * FILE 183
submitted to JES2 with "TYPRUN=HOLD". * FILE 183
* FILE 183
To prevent "multiple jobs found" conditions, * FILE 183
this program uses the sub-system interface * FILE 183
to inquire about the status of homonym jobs. * FILE 183
Then, it issues a $A command with the job * FILE 183
number of the first job found in the input * FILE 183
queue in held status (for example: $A J1234). * FILE 183
* FILE 183
Sample execution JCL: * FILE 183
* FILE 183
//RLSENEXT EXEC PGM=JOBRLSE,PARM=PAYROL22 * FILE 183
* FILE 183
LINKLLA Link-edit and refresh LLA in a single step * FILE 183
(MVS/ESA only, must be authorized) * FILE 183
* FILE 183
Invokes the linkage-editor, then issues LLACOPY * FILE 183
for the member specified on the //SYSLMOD DD. * FILE 183
If there is no //SYSLIN DD in the step's JCL, * FILE 183
issues LLACOPY for the member on //SYSLMOD, * FILE 183
or for all of the members in the //SYSLMOD * FILE 183
library if no member name has been specified. * FILE 183
* FILE 183
LOADMLPA Load a reentrant module into the MLPA * FILE 183
(must be authorized) * FILE 183
* FILE 183
This program allows you to load a RENT module * FILE 183
from an authorized library into the MLPA. * FILE 183
Also supports the DELETE function to undo * FILE 183
LOAD. Invoker must have update authority to * FILE 183
SYS1.PARMLIB. * FILE 183
* FILE 183
NOTCTLG3 Prolog step to prevent "NOT CATLG 2" and verify * FILE 183
VSAM data sets * FILE 183
* FILE 183
This program may be executed at the beginning * FILE 183
of a batch job. It scans the job's SWA to * FILE 183
locate JFCBs and does two things: * FILE 183
* FILE 183
1. checks if any non-gdg data set with * FILE 183
DISP=(NEW,CATLG) is already cataloged. * FILE 183
If it finds at least one (i.e. a "NOT * FILE 183
CATLG 2" is about to occur), it issues a * FILE 183
message and abends the job * FILE 183
* FILE 183
2. Checks if any VSAM data set has been left * FILE 183
in OPEN status by an abending job. Every * FILE 183
data set in this case is opened and closed. * FILE 183
The way this condition is detected is quite * FILE 183
interesting, look at the code. * FILE 183
* FILE 183
DONTFAIL Prevent job failure caused by uncataloged data * FILE 183
sets (ESA only, must be authorized) * FILE 183
* FILE 183
This program has been designed to prevent jobs * FILE 183
that accept multiple inputs from failing in the * FILE 183
middle of the night because of a "typo" in a data * FILE 183
set name. When DONTFAIL detects that an input * FILE 183
data set is not cataloged, it converts it to a * FILE 183
null data set and allows the job to run with * FILE 183
partial input. * FILE 183
* FILE 183
PACKOFF Unpack a file packed by ISPF/PDF or XEDIT * FILE 183
* FILE 183
This is a sample program that reads * FILE 183
fixed-length records and unpacks them. * FILE 183
* FILE 183
RECALL Batch program - Issues HRECALL commands for every * FILE 183
migrated data sets used in subsequent steps of the * FILE 183
JOB in which it is executed. Pre-staging data * FILE 183
sets in this manner reduces HSM tape mount * FILE 183
activity. * FILE 183
* FILE 183
SCANMODL This assembler module loads a control-block map * FILE 183
from SYS1.MIGLIB and returns the offset & length * FILE 183
of a field. It is used to write programs that * FILE 183
access JES2 control blocks without using HASPSRC * FILE 183
and consequently, are release-independent. * FILE 183
* FILE 183
SVCUPDTE Install a type-3 SVC routine (must be authorized) * FILE 183
* FILE 183
This program installs an SVC routine from PLPA, * FILE 183
MLPA, or from an authorized library. * FILE 183
The installation can be permanent or temporary. * FILE 183
If the installation is temporary, SVCUPDTE waits * FILE 183
until a STOP or CANCEL command is issued, then * FILE 183
restores the old SVC entry and terminates. * FILE 183
* FILE 183
PARM=(nnn,mmmmmmm,hhmm,userid) * FILE 183
* FILE 183
nnn is the SVC number you want to install; * FILE 183
you must specify a 3-digit number * FILE 183
* FILE 183
mmmmmmmm is the name of a load module (or alias) * FILE 183
that you want to install as SVC nnn; it MUST * FILE 183
come from an authorized library (STEPLIB or * FILE 183
link-list) * FILE 183
* FILE 183
hhmm is the optional automatic shut-down time, * FILE 183
in 24-hour clock format. When the specified * FILE 183
time is reached, SVCUPDTE automatically stops. * FILE 183
* FILE 183
userid is the optional userid that will be given * FILE 183
access to the new SVC. Jobs submitted by other * FILE 183
users will keep on using the old SVC. * FILE 183
* FILE 183
SYSMOVE Unload a PDS to a sequential data set in * FILE 183
IEHMOVE format. Compatible with SMS. * FILE 183
* FILE 183
UNITAFF Dynamically sets UNIT=AFF for input tape files * FILE 183
(must be authorized) * FILE 183
* FILE 183
This program was originally designed to reduce * FILE 183
the number of tape drives used by user-submitted * FILE 183
SAS steps. It scans the SWA for the next step * FILE 183
and changes some of the SIOT's fields to force * FILE 183
all input tape data sets to the same drive. * FILE 183
* FILE 183
It must be executed immediately before the * FILE 183
step to process (SAS, SORT, or any other * FILE 183
program that reads a variable number of tape * FILE 183
files, one at a time). * FILE 183
* FILE 183
Sample jcl: * FILE 183
* FILE 183
//UNITAFF EXEC PGM=UNITAFF * FILE 183
//STEPLIB DD DISP=SHR,DSN=SYS2.AUTHLIB * FILE 183
//* * FILE 183
//STEP53 EXEC PGM=SAS * FILE 183
//OSIN DD DISP=SHR,DSN=USER1.X * FILE 183
// DD DISP=SHR,DSN=UPQE.DQE40530(-1) * FILE 183
//OSIN2 DD DISP=SHR,DSN=UPQR.DQR02150(0) * FILE 183
//OSIN3 DD DISP=SHR,DSN=USER1.X * FILE 183
// DD DISP=SHR,DSN=UPBG.DBGA0240(-1) * FILE 183
//OSIN4 DD DISP=SHR,DSN=USER1.X * FILE 183
// DD DISP=SHR,DSN=USER1.YY * FILE 183
// DD DISP=SHR,DSN=UPQR.DQR02140(-1) * FILE 183
* FILE 183
The program only supports cataloged data sets; * FILE 183
relative generation numbers are handled * FILE 183
correctly via the GDGNT. * FILE 183
* FILE 183
Restriction: No distinction is made between 3420, * FILE 183
3480 or 3490 device types; this will cause * FILE 183
problems if the input to a step is mixed. * FILE 183
* FILE 183
* FILE 183
------------------ Assembler Macros ------------------------ * FILE 183
* FILE 183
BUILDCDE Make storage allocated with GETMAIN appear as a * FILE 183
load-module in a dump. * FILE 183
* FILE 183
BUILDCDE uses the "loader" form of IDENTIFY to * FILE 183
create a major CDE and corresponding XL, then * FILE 183
issues a LOAD SVC to create an LLE and associate * FILE 183
the CDE with the current TCB. Don't worry, you * FILE 183
don't have to understand how it works to use it. * FILE 183
* FILE 183
EXAMPLE: * FILE 183
* FILE 183
GETMAIN RU,LV=20000 * FILE 183
BUILDCDE LENGTH=(0),ADDR=(1),EP=DYNAM20 * FILE 183
* FILE 183
The 20K storage area will appear in a dump * FILE 183
as a load-module called "DYNAM20". * FILE 183
* FILE 183
EASYSORT Invoke an internal SORT with OPEN/PUT/GET logic * FILE 183
* FILE 183
Allows you to do internal sorts without any * FILE 183
knowledge of parameter lists or exit routine * FILE 183
linkage conventions. * FILE 183
* FILE 183
Example: * FILE 183
* FILE 183
EASYSORT OPEN, * FILE 183
FIELDS=(1,22,CH,A), * FILE 183
TYPE=F,LENGTH=64, * FILE 183
OPTION='EQUALS,RESINV=500K' * FILE 183
. . * FILE 183
READ GET FILEIN * FILE 183
EASYSORT PUT,(1) pass record to SORT * FILE 183
B READ * FILE 183
. . * FILE 183
REWRITE EASYSORT GET, get sorted record * FILE 183
SET=(R3), * FILE 183
EODAD=ENDSORT * FILE 183
PUT FILEOUT,(R3) * FILE 183
B REWRITE * FILE 183
. . * FILE 183
ENDSORT EASYSORT CLOSE * FILE 183
* FILE 183
GETDIR Read a directory sequentially with a BPAM DCB * FILE 183
* FILE 183
This macro offers a simple way to read directory * FILE 183
entries and members with a single BPAM DCB. * FILE 183
* FILE 183
GETPUT31 Issue GET, PUT or PUTX while in AMODE31 * FILE 183
* FILE 183
This member contains GET31, PUT31 and PUTX31, * FILE 183
which are modified versions of GET, PUT and * FILE 183
PUTX. They allow a program running with * FILE 183
RMODE24 and AMODE31 to issue QSAM GET, PUT and * FILE 183
PUTX without having to switch to AMODE24. * FILE 183
GET31 allows specification of an end-of-file * FILE 183
routine (EODAD). * FILE 183
* FILE 183
STRING Provides functions similar to PL/I's * FILE 183
PUT EDIT or COBOL's STRING. * FILE 183
* FILE 183
This is the only non-IBM macro you need to * FILE 183
assemble the programs in this file. * FILE 183
* FILE 183
This member contains the macro, a test job, * FILE 183
and the documentation. * FILE 183
* FILE 183
* FILE 183
---------------------- Miscellaneous ----------------------- * FILE 183
* FILE 183
DEFGDGSR Sub-routine - invokes SVC 26 to define a GDG base * FILE 183
* FILE 183
May be invoked from a COBOL program, like this: * FILE 183
* FILE 183
05 DSNAME PIC X(44) VALUE 'MY.DSNAME'. * FILE 183
05 GDGLIMIT PIC 999 VALUE 027. * FILE 183
* FILE 183
CALL 'DEFGDGSR' USING DSNAME, * FILE 183
GDGLIMIT. * FILE 183
* FILE 183
HANDBOOK Job - Creates an on-line copy of the DATA AREAS * FILE 183
(aka Debugging Handbook) manuals * FILE 183
* FILE 183
This job assembles macros from SYS1.MACLIB and * FILE 183
SYS1.MODGEN and stores the assembly listings * FILE 183
into PDS members. It is set up for over 60 * FILE 183
commonly used MVS control blocks (such as CVT, * FILE 183
TCB, JFCB, etc) and may be easily modified to * FILE 183
support other ones. * FILE 183
* FILE 183
The assembly listing for each macro is stored * FILE 183
into the output PDS under the control block * FILE 183
name. For example, the assembly listing for * FILE 183
"IKJTCB" is stored into the "TCB" member. * FILE 183
* FILE 183
To conserve dasd space, the LMCOPY service of * FILE 183
ISPF/PDF is used to pack the output of the * FILE 183
assembler. * FILE 183
* FILE 183
IEC149I MPF Exit. Display the dsname from the HDR1 label * FILE 183
after a 813-04 or 237-08 abend. * FILE 183
* FILE 183
ISPCMDSJ Job - Update ISPCMDS in batch * FILE 183
* FILE 183
This is a TMP job that uses a CLIST and ISPF * FILE 183
table services to append a set of in-line * FILE 183
commands to the original ISPCMDS table. * FILE 183
* FILE 183
The resulting ISPCMDS table may be given any * FILE 183
name and go to any library you choose. * FILE 183
* FILE 183
SYSDEBUG General Purpose ESTAE Routine. Simplifies abend * FILE 183
resolution by formatting and writing out important * FILE 183
MVS control blocks in an easy-to-read fashion. * FILE 183
* FILE 183
TCTDCTR Sub-routine - Prints the EXCP count for each DD * FILE 183
in the job step * FILE 183
* FILE 183
May be invoked at the end of a program for * FILE 183
debugging or tuning purposes. * FILE 183
* FILE 183
TRIMMAC Job - Creates a reduced-size MACLIB that may be * FILE 183
used instead of the SYS1.MACLIB/SYS1.MODGEN * FILE 183
concatenation to improve the performance of the * FILE 183
assembler. * FILE 183
* FILE 183
The "TRIMMAC" library is built as follows: * FILE 183
* FILE 183
1. selected macros are read from ddname "SYSLIB", * FILE 183
trimmed from PL/AS code and other comment * FILE 183
lines, then written to a temporary data set. * FILE 183
* FILE 183
2. the SORT utility is invoked to sort the macros * FILE 183
in ascending sequence of their size. * FILE 183
* FILE 183
3. the sorted macros are written to SYSPUNCH * FILE 183
as an IEBUPDTE sysin stream. * FILE 183
* FILE 183
4. IEBUPDTE is executed in the last step to * FILE 183
load the macros into the "TRIMMAC" library, * FILE 183
the smallest macros being loaded first. * FILE 183
* FILE 183
You may customize the member list and the input * FILE 183
concatenation to add other macros and/or macro * FILE 183
libraries, as needed. * FILE 183
* FILE 183
Use the "TRIMMAC" library instead of the * FILE 183
MACLIB/AMODGEN concatenation to assemble a * FILE 183
program and compare the before/after values for * FILE 183
the elapsed time, excp count and I/O connect * FILE 183
time. Expect savings of 30 to 60 percent when * FILE 183
"TRIMMAC" is used. * FILE 183
* FILE 183
My "TRIMMAC" PDS is currently allocated as * FILE 183
follows: * FILE 183
* FILE 183
UNIT=3390,SPACE=(CYL,(9,,18)), * FILE 183
DCB=(RECFM=FB,LRECL=80,BLKSIZE=29720) * FILE 183
* FILE 183
ZAPONTR0 Patch job - Bypass STEPLIB for ILBOxxx routines * FILE 183
* FILE 183
This patch to ILBONTR0 eliminates * FILE 183
JOBLIB/STEPLIB directory searches for OS/VS * FILE 183
COBOL ILBOxxx modules when SYS1.VSCLLIB is in * FILE 183
the linklist. If you compile your COBOL * FILE 183
modules with 'resident' and have large JOBLIBs * FILE 183
or STEPLIBs, you want to try this. * FILE 183
* FILE 183
The job contains 2 different versions of the * FILE 183
patch in AMASPZAP format. Each version * FILE 183
corresponds to a different PTF level, use the * FILE 183
one that works for you. The patch is packaged * FILE 183
with its own validation program. * FILE 183
* FILE 183
IS FROM TOM BRYANT OF PLATINUM TECHNOLOGY IN ILLINOIS.* File 184
THIS FILE CONTAINS CLISTS, REXX EXECS AND BATCH JCL * FILE 184
TO MAKE IT EASIER TO USE IPCS UNDER MVS/ESA. THIS * FILE 184
FILE NOW ALSO CONTAINS FOUR OF TOM'S ARTICLES FROM * FILE 184
"TECHNICAL SUPPORT" MAGAZINE THAT EXPLAIN SOME OF * FILE 184
HIS DEBUGGING PHILOSOPHY, AND WHICH ALSO EXPLAIN * FILE 184
THE PROCEDURES ON THIS FILE FURTHER. * FILE 184
* FILE 184
NEW ADDRESS: * FILE 184
TOM BRYANT * FILE 184
PLATINUM TECHNOLOGY INC. * FILE 184
OAK BROOK TERRACE, IL * FILE 184
630-620-5116 X1272 * FILE 184
* FILE 184
is from Sam Golob and contains source code for a * FILE 185
greatly expanded IKJTABLS load module to authorize * FILE 185
programs and commands under TSO. When run in an * FILE 185
authorized STEPLIB in a TSO session, IKJTABLS will * FILE 185
override IKJTSO00 from PARMLIB and will also * FILE 185
override the copy of IKJTABLS that is in * FILE 185
SYS1.LPALIB. Must be used with all its aliases. * FILE 185
Load module is in File 186. * FILE 185
* FILE 185
If you want to authorize everything that everybody * FILE 185
else has, you have to copy (zap) all the names * FILE 185
from the IKJTSO00 PARMLIB member into this load * FILE 185
module, or else you might find that you've lost * FILE 185
authorization of some programs and/or commands. * FILE 185
* FILE 185
Updated for OS/390 Version 2.6 (CBT421) * FILE 185
* FILE 185
is from Sam Golob and contains load modules for a * FILE 186
greatly expanded IKJTABLS to authorize programs * FILE 186
and commands under TSO. For TSO/E Release 2.1, * FILE 186
2.2, and higher, this load module (and its aliases) * FILE 186
can be used as is. You may want to zap it to * FILE 186
authorize more of your favorite programs. Source * FILE 186
is in File 185. Put it in an authorized STEPLIB * FILE 186
in your TSO logon proc. Has to be SETCODE AC(1). * FILE 186
* FILE 186
Updated for OS/390 Version 2.6. (CBT421) * FILE 186
* FILE 186
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
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
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
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
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
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
is from Steinar Aasland, formerly of Kvaerner * FILE 193
Engineering in Lysaker, Norway, and contains a * FILE 193
tape copying program called TCOPY. This is an * FILE 193
old program. * FILE 193
* FILE 193
This program can list the contents of a tape, or * FILE 193
copy it to another tape. It has some features that * FILE 193
are not so often found in tape copy programs. * FILE 193
* FILE 193
Fixed to be able to copy 64K block size on a tape, * FILE 193
by Sam Golob. Also cleaned up some assembly errors * FILE 193
for ASMA90. The macro processor is now a little * FILE 193
less forgiving. Shorter strings now always compare * FILE 193
as less, so to be accurate, you have to pad them * FILE 193
to the same length. * FILE 193
* FILE 193
I have now placed the TCOPY load module on File 035. * FILE 193
* FILE 193
For help concerning this file, you may contact: * FILE 193
* FILE 193
Sam Golob * FILE 193
P.O. Box 906 * FILE 193
Tallman, NY 10982 USA * FILE 193
* FILE 193
email: sbgolob@attglobal.net or sbgolob@aol.com * FILE 193
* FILE 193
IS A SET OF CUT AND PASTE MACROS FROM JIM MARSHALL * FILE 194
OF THE U.S. TREASURY DEPARTMENT IN HYATTSVILLE, * FILE 194
MARYLAND. THESE ARE EDIT MACROS TO BE USED UNDER * FILE 194
ISPF. * FILE 194
* FILE 194
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
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
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
IS FROM BOB BREAK OF ST. LOUIS, MISSOURI, AND IS A * FILE 198
JES2 EXIT LOADER PROGRAM WHICH RUNS AS A JES2 EXIT 5 * FILE 198
ROUTINE. THIS PROGRAM SHOULD ASSEMBLE AND RUN FOR * FILE 198
ALL RELEASES OF JES2 FROM MVS/ESA RELEASE 3 THROUGH * FILE 198
THE OS/390 RELEASES THROUGH AT LEAST RELEASE 2.5. * FILE 198
* FILE 198
THIS EXIT ALLOWS SUBSTITUTION ON THE FLY, THROUGH * FILE 198
A NEW JES2 COMMAND, OF A NEW VERSION OF ANY JES2 * FILE 198
EXIT, WITHOUT HAVING TO RECYCLE JES2 OR IPL THE * FILE 198
MVS SYSTEM. ALL TYPES OF JES2 EXITS ARE SUPPORTED: * FILE 198
JES2 ADDRESS SPACE, CSA RESIDENT, LPA RESIDENT. * FILE 198
* FILE 198
THERE ARE 3 VERSIONS OF THE EXIT IN THIS PDS, ONE * FILE 198
IS THE ORIGINAL BY BOB BREAK, AND ONE WAS MODIFIED * FILE 198
BY JACK SCHUDEL OF THE UNIVERSITY OF FLORIDA. THE * FILE 198
VERSION BY BOB BREAK REQUIRES THAT THE NEW LOAD * FILE 198
MODULE BE IN AN APF AUTHORIZED LINKLIST LIBRARY, * FILE 198
WHILE THE VERSION BY JACK SCHUDEL EASES THIS * FILE 198
RESTRICTION SOMEWHAT. BOTH ARE PRESENTED HERE. * FILE 198
* FILE 198
A NEW VERSION BY YAIR ELHARRAR OF BAR-ILAN UNIVERSIY * FILE 198
IN TEL-AVIV, ISRAEL, REQUIRES ONLY THAT THE NEW * FILE 198
VERSION RESIDE IN AN AUTHORIZED STEPLIB. * FILE 198
* FILE 198
HASPEX05 - BOB BREAK'S VERSION (ORIGINAL) * FILE 198
LOADEXIT - JACK SCHUDEL'S VERSION * FILE 198
(TAKEN FROM FILE 140 OF JES2 SHARE TAPE) * FILE 198
HASPEX5 - YAIR ELHARRAR'S VERSION * FILE 198
* FILE 198
THIS HASP EXIT 5 PROCESSES THE FOLLOWING INSTALLATION * FILE 198
JES2 COMMANDS: * FILE 198
* FILE 198
1. $REPEXIT - REPLACE A JES2 EXIT MODULE. THE EXIT * FILE 198
ENVIRONMENT MAY BE "JES2", "SUBTASK", * FILE 198
"USER", OR "FSS". * FILE 198
* FILE 198
2. $ADDEXIT - ADD A JES2 EXIT MODULE. THE EXIT * FILE 198
ENVIRONMENT MAY BE "JES2", "SUBTASK", * FILE 198
"USER", OR "FSS". * FILE 198
* FILE 198
AUTHOR * FILE 198
------ * FILE 198
BOB BREAK * FILE 198
ST. LOUIS, MO. * FILE 198
cb7485@momail.sbc.com * FILE 198
bbreak@swbell.net * FILE 198
314-340-9301 * FILE 198
314-845-2018 * FILE 198
* FILE 198
JACK SCHUDEL'S EMAIL: schudel@ufl.edu * FILE 198
* FILE 198
YAIR ELHARRAR'S EMAIL: yair@ashur.cc.biu.ac.il * FILE 198
* FILE 198
IS FROM DAVE COLE WHO IS NOW AT COLE SOFTWARE * FILE 199
IN AFTON, VIRGINIA. * FILE 199
* FILE 199
Dave Cole has updated most of his contributions, and * FILE 199
they are available for direct download from his web * FILE 199
site at www.colesoft.com. The following list of * FILE 199
his software is currently available there: * FILE 199
* FILE 199
Cole Software LLC's File Upload/Download Area * FILE 199
* FILE 199
The following shareware is available for download * FILE 199
* FILE 199
Filename Platform Description * FILE 199
asm2zap.zip OS/390 A utility for converting an * FILE 199
assembly listing into SUPERZAP * FILE 199
cards. * FILE 199
* FILE 199
blksptrk.zip OS/390 A TSO command that computes and * FILE 199
displays track capacities for any * FILE 199
IBM DASD device for any BLKSIZE, * FILE 199
with or without key fields. * FILE 199
* FILE 199
macros.zip OS/390 A set of Assembler/390 macros * FILE 199
needed for assembling the various * FILE 199
programs available from Cole * FILE 199
Software LLC. * FILE 199
* FILE 199
schedrun.zip OS/390 A set of MVS programs for * FILE 199
scheduling the execution of System * FILE 199
Operator Commands on an interval * FILE 199
or calander basis. Can be used to * FILE 199
control production scheduling. * FILE 199
* FILE 199
xrefasm.zip OS/390 A pair of programs for producing * FILE 199
master cross-reference listings * FILE 199
for multi-assembly programs. * FILE 199
* FILE 199
COLE SOFTWARE LLC * FILE 199
736 Fox Hollow Road Afton, VA 22920 * FILE 199
540-456-8210 540-456-6658: FAX * FILE 199
* FILE 199
E-MAIL : CSWstaff@cfw.com * FILE 199
INTERNET: http://www.colesoft.com * FILE 199
* FILE 199
COLE SOFTWARE WEB PAGE: HTTP://WWW.COLESOFT.COM * FILE 199
736 FOX HOLLOW ROAD VOICE: 540-456-8536 * FILE 199
AFTON, VA 22920 FAX: 540-456-6658 * FILE 199
* FILE 199
THIS FILE CONTAINS SEVERAL TSO COMMAND PROCESSORS. * FILE 199
THEY ARE: * FILE 199
* FILE 199
THE BLKSPTRK COMMAND CAN BE USED TO DISPLAY TRACK * FILE 199
CAPACITIES FOR ANY DASD DEVICE FOR ANY COMBINATION OF * FILE 199
KEY LENGTHS, BLOCK SIZES, AND / OR BLOCK COUNTS. * FILE 199
* FILE 199
THE CMDPGM COMMAND PROVIDES AN EASY TO USE MEANS OF * FILE 199
INVOKING (FROM TSO) ARBITRARY TSO COMMANDS OR * FILE 199
"BATCH" PROGRAMS OUT OF ARBITRARY LIBRARIES IN EITHER A * FILE 199
NON-AUTHORIZED MODE OR AN AUTHORIZED MODE. * FILE 199
* FILE 199
ALL OF THE CMDPGM FUNCTIONS ARE CAPABLE OF ESTABLISHING * FILE 199
ANY DESIRED LOAD LIBRARY AS A "TASK-LIBRARY" DURING * FILE 199
THE EXECUTION OF YOUR CHOSEN COMMAND OR PROGRAM. * FILE 199
TASK-LIBRARIES FUNCTION EXACTLY LIKE JOB-LIBRARIES OR * FILE 199
STEP-LIBRARIES, SO THIS CAPABILITY RELIEVES THE NEED * FILE 199
OF A "STEPLIB" MOD FOR TSO. * FILE 199
* FILE 199
DAVE COLE'S PROGRAMS REQUIRE DAVE COLE'S MACROS FOR * FILE 199
ASSEMBLY, WHICH MAY BE FOUND ON FILE 408. * FILE 199
* FILE 199
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
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
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
IS FROM JIM MARSHALL OF THE DEPARTMENT OF THE * FILE 203
TREASURY, FINANCIAL MANAGEMENT SERVICE IN * FILE 203
HYATTSVILLE, MARYLAND. THIS FILE CONTAINS HIS * FILE 203
SOFTWARE TO TAKE A TMSGRW REPORT (CA-1 TAPE LIST) * FILE 203
AND GENERATE STK SILO CARDS TO EJECT 21 OF THE * FILE 203
TAPES AT A TIME. * FILE 203
* FILE 203
STK CARTRIDGE EJECT PACKAGE * FILE 203
* FILE 203
THE PURPOSE OF THIS PACKAGE IS TO START WITH A * FILE 203
TMSGRW REPORT (A LIST OF TAPES) FROM THE CA-1 TAPE * FILE 203
MANAGEMENT SYSTEM, AND PRODUCE A BUNCH OF STK CONTROL * FILE 203
CARDS TO EJECT THESE TAPES FROM THE STK SILO, 21 TAPES * FILE 203
AT A TIME. * FILE 203
* FILE 203
THAT'S ALL, FOLKS. * FILE 203
* FILE 203
THIS SYSTEM CAN BE REWRITTEN FOR THE EQUIVALENT * FILE 203
TLMS REPORT TO TMSGRW. * FILE 203
* FILE 203
SEE THE JCL STREAM CALLED TMSEJECT IN THIS FILE, * FILE 203
TO SEE HOW THIS STUFF IS STRUNG TOGETHER. THERE ARE * FILE 203
4 ASSEMBLER PROGRAMS. THIS CODE HAS BEEN * FILE 203
'MODULARIZED' TO MAKE ITS MAINTENANCE SIMPLER. * FILE 203
* FILE 203
IF YOU HAVE MORE THAN 5 SILOS, YOU HAVE TO * FILE 203
ACCORDINGLY MODIFY PROGRAM STKESTK. * FILE 203
* FILE 203
GOOD LUCK ! IF YOU NEED HELP, CALL * FILE 203
* FILE 203
JIM MARSHALL, US TREASURY * FILE 203
FINANCIAL MANAGEMENT SERVICE * FILE 203
PRINCE GEORGES PLAZA II - ROOM 400B * FILE 203
3700 EAST-WEST HIGHWAY * FILE 203
HYATTSVILLE, MD 20782 * FILE 203
202-874-8353 * FILE 203
* FILE 203
IS FROM KEN TOMIAK OF DOITT (DEPT OF INFORMATION * FILE 204
TECHNOLOGY AND TELECOMMUNIATIONS) OF NEW YORK * FILE 204
CITY (FORMERLY CALLED CDCSA). THIS PACKAGE * FILE 204
CONTAINS THEIR MVS CROSS SYSTEM FACILITY. THE * FILE 204
FACILITY IS AN ISPF APPLICATION, WHICH HELPS TO * FILE 204
MAINTAIN A SINGLE RES PACK OVER MANY SEPARATE * FILE 204
LPARS. MAINTENANCE LEVELS ARE KEPT, AND THE RES * FILE 204
PACKS ARE PROPAGATED THROUGH AN ISPF-GENERATED * FILE 204
CLONING PROCESS. * FILE 204
* FILE 204
CDCSA MVS CROSS SYSTEM FACILITY * FILE 204
* FILE 204
OVERALL DESCRIPTION. * FILE 204
* FILE 204
THE CDCSA MVS CROSS SYSTEM FACILITY IS AN ISPF * FILE 204
APPLICATION WHICH IS DESIGNED TO HELP MAINTAIN A * FILE 204
STANDARD MVS RESIDENCE PACK TO BE CLONED AND USED BY * FILE 204
MANY SEPARATE LPARS. THE APPLICATION IS CONSTRUCTED * FILE 204
TO KEEP PROPER DOCUMENTATION OF THE MAINTENANCE LEVELS * FILE 204
ON EACH SYSTEM THAT IS BEING RUN. THERE ARE SOME * FILE 204
OTHER ASPECTS OF THIS SYSTEM, AS YOU CAN DISCOVER * FILE 204
WHILE YOU EXAMINE IT. * FILE 204
* FILE 204
THIS SYSTEM MAKES LIFE MUCH EASIER IN OUR * FILE 204
INTERNAL SERVICE BUREAU ENVIRONMENT THAT IS COMMONLY * FILE 204
FOUND NOWADAYS IN STATE GOVERNMENTS, LARGE CITY * FILE 204
GOVERNMENTS, AND CORPORATIONS THAT HAVE COMBINED * FILE 204
SEPARATE DATA CENTERS. THEY ARE NOW RUNNING LPARS * FILE 204
INSTEAD, AT A SINGLE LARGE SITE. * FILE 204
* FILE 204
WE ALSO HAVE A CICS AND A DB2 ADAPTATION OF THIS * FILE 204
SYSTEM. THESE PACKAGES ARE NOW ON FILES 210 AND 211 * FILE 204
RESPECTIVELY. * FILE 204
* FILE 204
SOME OF THE OVERALL PHILOSOPHY OF THIS SYSTEM * FILE 204
IS DOCUMENTED IN THE SCRIPT FILE WHICH IS ON CBT * FILE 204
TAPE FILE 205. * FILE 204
* FILE 204
THE WAY WE HAVE IT HERE, EACH LPAR GETS A COMMON * FILE 204
MVS RES PACK, AT A CERTAIN (TWO-DIGIT) MAINTENANCE * FILE 204
LEVEL. THIS RES PACK CAN BE "CLONED" FROM ANY ONE * FILE 204
PACK TO ANY OTHER PACK. FROM THE "XSYSALC" CLIST * FILE 204
(WHICH CALLS UP PANEL "XSYSPNL"), THE OPTION M, FOR * FILE 204
MIGRATIONS, WILL GENERATE THE RES-PACK CLONING JCL. * FILE 204
AS PART OF THE CLONING PROCEDURE, NEW SMP/E TARGET * FILE 204
ZONES ARE CREATED, WHICH REFLECT THE LEVELS OF THE * FILE 204
CONTENTS OF ALL THE SYSTEM LIBRARIES ON THE PACK. * FILE 204
* FILE 204
IT IS UP TO EACH INSTALLATION TO DECIDE WHICH * FILE 204
DATASETS THEY WILL KEEP ON THE COMMON RES PACK, AND * FILE 204
WHICH ONES WILL GO ON THE PARMLIB PACK THAT IS UNIQUE * FILE 204
FOR EACH LPAR. THE LIST OF DATASETS ON OUR COMMON RES * FILE 204
PACK FOR THE MVS/ESA 4.3 SYSTEM, IS INCLUDED AS MEMBER * FILE 204
RESPACKD ON THIS FILE. THE LIST OF DATASETS ON THE * FILE 204
PARMLIB PACK IS INCLUDED AS MEMBER PRMPACKD ON THIS * FILE 204
FILE. THIS MAY HELP GIVE GUIDELINES ON "WHAT TO PUT * FILE 204
WHERE". GENERALLY, COMMON SMP-MAINTAINED LIBRARIES GO * FILE 204
ON THE RES PACK. * FILE 204
* FILE 204
THE UNIQUENESS OF EACH LPAR IS PROVIDED BY A * FILE 204
SEPARATE PACK (MAINTAINED "BY HAND") WHICH HAS * FILE 204
SYS1.PARMLIB, SYS1.PROCLIB, THE SYSTEM MASTER CATALOG, * FILE 204
THE IODF, ETC. WE ARE, AT THIS WRITING, RUNNING * FILE 204
MVS/ESA RELEASE 4.1 IN PRODUCTION, SOON TO GO TO * FILE 204
RELEASE 4.3. I HAVE INCLUDED A MEMBER CALLED PARMLIB * FILE 204
WHICH CONTAINS A FEW SELECTED SYS1.PARMLIB MEMBERS. * FILE 204
PLEASE NOTE THE ORDER OF THE LINK LIST AND LPA LIST * FILE 204
CONCATENATIONS. SYSTEM SPECIFICITY CAN STILL BE * FILE 204
PROPAGATED ON A COMMON RES PACK, DEPENDING ON THE * FILE 204
ORDER OF THESE CONCATENATIONS. * FILE 204
* FILE 204
EACH SERVICE LEVEL IS CREATED ON TEST RES PACKS, * FILE 204
OF WHICH WE HAVE SEVERAL. THESE ARE THE PACKS THAT * FILE 204
THE SMP IS DONE TO. WE IPL THEM AS TEST SYSTEMS UNDER * FILE 204
VM. ONCE A GIVEN MAINTENANCE LEVEL IS FROZEN, THE * FILE 204
APPROPRIATE TEST PACK IS CLONED TO A PRODUCTION RES * FILE 204
PACK THAT IS IPL'ED, POINTING TO THE PRODUCTION * FILE 204
PARMLIB PACK FOR ITS UNIQUENESS. * FILE 204
* FILE 204
A WORD ABOUT NAMING CONVENTIONS: MOST OF THE * FILE 204
MEMBERS OF THIS PDS: CHANGES, CLIST, ETC. ARE * FILE 204
IEBUPDTE-UNLOADED PDS'ES THEMSELVES. THEY CAN BE * FILE 204
PROPERLY RESTORED USING THE PDSLOAD PROGRAM FROM FILE * FILE 204
093 OF THIS TAPE. A SAMPLE PDSLOAD JOB IS MEMBER * FILE 204
$PDSLOAD ON THIS FILE. PDSLOAD WILL RESTORE EACH * FILE 204
MEMBER'S ISPF STATISTICS. IF YOU USE IEBUPDTE, THE * FILE 204
ISPF STATISTICS WILL NOT BE STOWED. THE ORIGINAL NAME * FILE 204
FOR EACH OF THESE PDS'ES WAS PREFIXED BY XSYS.MVSESA. * FILE 204
THEREFORE, THE ORIGINAL NAME FOR THE LIBRARY WHOSE * FILE 204
NAME HERE IS CLIST, WAS "XSYS.MVSESA.CLIST". YOU GET * FILE 204
THE POINT. THESE FULL NAMES WILL BE MENTIONED * FILE 204
THROUGHOUT THIS PACKAGE, AND YOU MUST MAKE GLOBAL * FILE 204
CHANGES TO THE XSYS.MVSESA PREFIX TO ADAPT THE PACKAGE * FILE 204
TO YOUR OWN SYSTEM'S NAMING CONVENTIONS. MEMBER * FILE 204
LEVLLIST CAME FROM A PS DATASET CALLED * FILE 204
XSYS.MVSESA.LEVEL.LIST, WHICH IS MAINTAINED BY HAND. * FILE 204
* FILE 204
ALL 80-BYTE LRECL PDS'ES FROM THE PACKAGE HAVE * FILE 204
BEEN MADE INTO MEMBERS ON THIS FILE. THERE WAS ONE * FILE 204
OTHER PDS, CALLED XSYS.MVSESA.SCRIPT, WHOSE LRECL IS * FILE 204
147 AND WHICH WILL BE SEPARATELY PLACED IN FILE 205 OF * FILE 204
THE CBT TAPE. * FILE 204
* FILE 204
TO SET UP THIS PACKAGE, LOOK AT MEMBER XSYSALC IN * FILE 204
THE CLIST LIBRARY. THE CLIST "XSYSALC" SETS * FILE 204
EVERYTHING ELSE IN MOTION. THINGS START FROM THERE. * FILE 204
IT SHOULD BE OBVIOUS HOW THE LIBRARIES OUGHT TO BE SET * FILE 204
UP. AS WE MENTIONED BEFORE, YOU HAVE TO MAKE GLOBAL * FILE 204
CHANGES TO THE DATASET PREFIX NAMES WHEN YOU SET THIS * FILE 204
UP ON YOUR OWN SYSTEM. TO MY KNOWLEDGE, THESE NAMES * FILE 204
ARE HARD CODED. IF YOU THINK SOME OF THE INGREDIENTS * FILE 204
ARE MISSING, PLEASE CALL SAM GOLOB AT * FILE 204
NEW PHONE NUMBER: 845-362-1996 * FILE 204
* FILE 204
(IF MY CONTACT INFORMATION BECOMES OBSOLETE, PLEASE * FILE 204
CALL THE MEMBERSHIP OFFICER AT NASPA 414-768-8000 * FILE 204
WHERE I INTEND TO LEAVE MY NEW INFORMATION. SG) * FILE 204
* FILE 204
FROM THE XSYSPNL PANEL, OPTION D BROWSES A PDS * FILE 204
CALLED XSYS.PGMDIR WHERE WE HAVE PUT OUR IPO1.PGMDIR * FILE 204
MEMBERS. OPTION E INVOKES ISPF 3.4 AGAINST PREFIX * FILE 204
XSYS.MVSESA.*. OPTION IVP INVOKES ISPF 3.4 AGAINST * FILE 204
SOME DATASETS NAMED XSYS.---.IVPLIB, WHICH CONTAIN * FILE 204
JOBSTREAMS TO TEST THE NEW SYSTEMS IN VARIOUS LPAR * FILE 204
ENVIRONMENTS. THESE DATASETS ARE NOT BEING INCLUDED * FILE 204
HERE. * FILE 204
* FILE 204
I THINK THE MOST IMMEDIATELY INTERESTING PART OF * FILE 204
THIS SYSTEM IS THE M OPTION TO GENERATE THE JCL THAT * FILE 204
DOES THE RES PACK CLONING. THE OTHER THINGS ARE * FILE 204
CONVENIENT ADD-ONS IN MY OPINION, ALTHOUGH I AM GLAD * FILE 204
THEY ARE THERE. * FILE 204
* FILE 204
TO RUN THE CLONING JOBS, YOU HAVE TO SET UP THE * FILE 204
CHANGES LIBRARY, BECAUSE THIS LIBRARY IS AUTOMATICALLY * FILE 204
UPDATED EVERY TIME YOU RUN A CLONING JOB. * FILE 204
* FILE 204
THIS PACKAGE WAS WRITTEN BY JOEL PERLMAN AND KEN * FILE 204
TOMIAK AT CDCSA (COMPUTER AND DATA COMMUNICATONS * FILE 204
SERVICES AGENCY) OF NEW YORK CITY, WHILE THEY WERE * FILE 204
WORKING FOR IBM AND UNDER CONTRACT TO NEW YORK CITY. * FILE 204
ALL THE REQUISITE PERMISSIONS FOR INCLUSION ON THE CBT * FILE 204
MVS UTILITIES TAPE, TO MY BEST KNOWLEDGE, HAVE BEEN * FILE 204
GRANTED. * FILE 204
* FILE 204
IF YOU HAVE QUESTIONS, PLEASE CONTACT: * FILE 204
* FILE 204
SAM GOLOB EMAIL: sbgolob@aol.com * FILE 204
sbgolob@attglobal.net * FILE 204
NEW PHONE NUMBER: 845-362-1996 * FILE 204
* FILE 204
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
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
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
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
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
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
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
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
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
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
IS FROM SAM GOLOB AND CONTAINS CLISTS WHICH HELP * FILE 215
A NORMAL PERSON FROM AN AVERAGE SHOP TO USE SMP/E * FILE 215
BETTER. THESE ARE SIMPLE, BUT VERY USEFUL TOOLS. * FILE 215
* FILE 215
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * FILE 215
* FILE 215
SMP/E HELPER TOOLS * FILE 215
* FILE 215
THIS SIMPLE COLLECTION CONSISTS OF 2 CLISTS, AND 3 * FILE 215
ARTICLES FROM "TECHNICAL SUPPORT" MAGAZINE, SHOWING * FILE 215
HOW TO USE THEM. THE CLISTS ARE: * FILE 215
* FILE 215
PTF - A CLIST TO BROWSE PTFS USING THE REVIEW * FILE 215
COMMAND FROM THE CBT TAPE (FILE 134). * FILE 215
THE "DATABASE" CONTAINING YOUR PTFS IS * FILE 215
NONE OTHER THAN THE SMPPTS DATASET. * FILE 215
THEREFORE, IT IS ADVISABLE NOT TO PURGE * FILE 215
PTFS AFTER YOU ACCEPT THEM. IN ANY CASE, * FILE 215
YOU CAN AT LEAST LOOK AT THE ONES YOU * FILE 215
HAVE CURRENTLY. * FILE 215
* FILE 215
SMPCLIST - THIS INVOKES SMP/E IN THE FOREGROUND AS * FILE 215
IF IT WERE RUNNING IN BACKGROUND. YOU * FILE 215
ENTER BACKGROUND COMMANDS ON THE * FILE 215
TERMINAL, AND GIMSMP'S RESULTS ARE * FILE 215
DISPLAYED LINE-BY-LINE, ON THE TERMINAL. * FILE 215
LOGGING CAN BE TURNED ON OR OFF. LOOK AT * FILE 215
THE CLIST TO SEE THE OPTIONS. I USE THIS * FILE 215
CLIST TO MAKE CERTAIN KINDS OF INQUIRIES * FILE 215
THAT ARE NOT EASILY MADE WITH THE SMP/E * FILE 215
ISPF INTERFACE. ALSO, I USE THIS CLIST * FILE 215
TO DO UCLIN INTERACTIVELY, USING "LIST" * FILE 215
COMMANDS TO CHECK MY WORK. * FILE 215
* FILE 215
NOTE - THIS CLIST WAS ORIGINALLY IN * FILE 215
VB-LRECL 255 FORMAT, AND WAS * FILE 215
CONVERTED TO FB-LRECL 80 FORMAT BY * FILE 215
THE CLIST CONVERSION PROGRAM ON * FILE 215
FILE 187 OF THE CBT TAPE. * FILE 215
THEREFORE MANY OF THE LONG LINES * FILE 215
HAVE BEEN FOLDED OVER. * FILE 215
* FILE 215
I HAVE WRITTEN SEVERAL ARTICLES FOR "TECHNICAL SUPPORT" * FILE 215
MAGAZINE REGARDING THESE CLISTS. #ARTPTF IS AN ARTICLE * FILE 215
ABOUT THE PTF CLIST. #ARTSMPC IS ABOUT THE SMPCLIST * FILE 215
CLIST. #ARTEXMP DESCRIBES CASES IN WHICH BOTH CLISTS * FILE 215
WERE PUT TO PRACTICAL USE. * FILE 215
* FILE 215
IF YOU HAVE ANY QUESTIONS OR INQUIRIES ON THIS MATERIAL, * FILE 215
PLEASE CONTACT: * FILE 215
* FILE 215
SAM GOLOB NEW ADDRESS * FILE 215
P.O. BOX 906 * FILE 215
TALLMAN, NY 10982 sbgolob@aol.com * FILE 215
sbgolob@attglobal.net * FILE 215
NEW PHONE NUMBER: 845-362-1996 * FILE 215
* FILE 215
(IF MY CONTACT INFORMATION BECOMES OBSOLETE, PLEASE * FILE 215
CALL THE MEMBERSHIP OFFICER AT NASPA 414-768-8000 * FILE 215
WHERE I INTEND TO LEAVE MY NEW INFORMATION. SG) * FILE 215
* FILE 215
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
IS IN IEBUPDTE FORMAT WHICH CONTAINS A DISASSEMBLER. * FILE 217
COMPLETE DOCUMENTATION FOR THIS PROGRAM IS CONTAINED * FILE 217
IN THE MEMBER CALLED $DOC. BELOW IS A VERY BRIEF * FILE 217
DESCRIPTION OF THIS PROGRAM. * FILE 217
* FILE 217
DISASM IS A ONE-PASS DISASSEMBLER WHICH PRODUCES AN ASSEMBLER * FILE 217
LANGUAGE SOURCE PROGRAM FROM A CSECT WITHIN A LOAD MODULE. * FILE 217
CONTROL CARDS PERMIT SPECIFICATION OF AREAS CONTAINING NO * FILE 217
INSTRUCTIONS, ALLOW BASE REGISTERS TO BE PROVIDED SO THAT * FILE 217
SYMBOLIC LABELS MAY BE CREATED DURING DISASSEMBLY, AND DECLARE * FILE 217
THE DEFINITION OF DSECTS TO BE USED DURING DISASSEMBLY. * FILE 217
CONDITIONAL BRANCH INSTRUCTIONS USE THE EXTENDED MNEMONICS, * FILE 217
WHERE POSSIBLE, AND EXPLICIT REGISTERS ARE DENOTED BY R0, R1, * FILE 217
THRU R15. COMMENTS ARE GIVEN ON SVC'S, AND TO VARIOUS BAL * FILE 217
INSTRUCTIONS, TO AID IN CREATING A DOCUMENTED SOURCE PROGRAM. * FILE 217
* FILE 217
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
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
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
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
IS CURRENTLY EMPTY * FILE 222
* FILE 222
IS THE FREE TAPE MANAGEMENT SYSTEM (FTMS) WHICH * FILE 223
WAS SUBMITTED SEMI-ANONYMOUSLY. THIS SYSTEM KEEPS * FILE 223
COMPLETE TRACK OF ALL SL TAPES THAT WERE MOUNTED * FILE 223
ON YOUR SYSTEM, AND IT HAS AN EXTENSIVE SET OF * FILE 223
REPORTS. FILE 224 CONTAINS SAMPLE OUTPUT FROM * FILE 223
THIS SYSTEM. * FILE 223
* FILE 223
- - - - - - - - - - - - - - - - - - - - * FILE 223
* FILE 223
FREE TAPE MANAGEMENT SYSTEM * FILE 223
* FILE 223
THIS IS THE FREE TAPE MANAGEMENT SYSTEM (FTMS, * FILE 223
PSEUDONYM ITMS) WHICH HAS BEEN SUBMITTED * FILE 223
SEMI-ANONYMOUSLY. PLEASE DIRECT INQUIRIES TO SAM * FILE 223
GOLOB SBGOLOB@AOL.COM OR 845-362-1996. IF THESE NUMBERS * FILE 223
BECOME INCORRECT, PLEASE CALL THE NASPA OFFICE * FILE 223
414-768-8000, MEMBERSHIP OFFICER, TO FIND OUT WHAT MY * FILE 223
CURRENT ADDRESS IS. I AM NOT THE AUTHOR OF THIS * FILE 223
SYSTEM, BUT I WILL BE GLAD TO DIRECT YOU TO HIM FOR * FILE 223
ADVICE AND/OR SUPPORT. * FILE 223
* FILE 223
THIS IS A COMPLETE TAPE MANAGEMENT SYSTEM WHICH * FILE 223
CAN KEEP TRACK OF A TAPE LIBRARY OF ANY SIZE. AS * FILE 223
WRITTEN, IT WILL NOT KICK DOWN A WRONG TAPE, BUT IT * FILE 223
WILL TELL YOU EVERYTHING THAT HAS HAPPENED IN YOUR * FILE 223
TAPE LIBRARY. ALL TAPE ACTIVITY IS LOGGED. * FILE 223
* FILE 223
THIS SYSTEM KEEPS FULL TRACK OF ALL THE TAPES IN * FILE 223
YOUR LIBRARY, AND YOU HAVE A SIZABLE COLLECTION OF * FILE 223
REPORTS TO TELL YOU WHAT TAPES ARE SOON TO REACH * FILE 223
"SCRATCH STATUS", ETC. SEE MEMBER ITMSFUNC TO LOOK * FILE 223
AT THE NUMBER OF REPORTS AND OTHER FUNCTIONS WHICH * FILE 223
ARE AVAILABLE WITH THIS SYSTEM. * FILE 223
* FILE 223
MEMBERS OF THIS PDS ARE AS FOLLOWS: * FILE 223
* FILE 223
ITMS000A - THIS IS ASSEMBLER SOURCE FOR THE MAIN * FILE 223
PROGRAM WHICH RUNS ITMS. * FILE 223
* FILE 223
ITMPAR01 - THIS IS ASSEMBLER SOURCE FOR THE ITMS * FILE 223
PARSER. * FILE 223
* FILE 223
ITMDBDEF - THIS IS JCL TO DEFINE THE CONTROL * FILE 223
DATASETS THAT ARE NEEDED TO RUN ITMS. * FILE 223
* FILE 223
ITMSFUNC - THIS MEMBER SUPPLIES SAMPLE EXECUTION * FILE 223
PARMS TO EXECUTE THE VARIOUS FUNCTIONS * FILE 223
WHICH ITMS IS CAPABLE OF PROVIDING. * FILE 223
* FILE 223
ITMS705I - THIS IS AN AOC CLIST TO DRIVE THE ITMS * FILE 223
SYSTEM. IT GETS KICKED OFF BY THE * FILE 223
IEC705I TAPE MESSAGE, THROUGH THE * FILE 223
ITMS705M MESSAGE TABLE ENTRY IN AOC. IF * FILE 223
YOU HAVE A DIFFERENT AUTOMATED OPERATIONS * FILE 223
PACKAGE THAN IBM'S AOC, THIS MEMBER CAN * FILE 223
BE ADAPTED TO THE OTHER SYSTEM. * FILE 223
* FILE 223
ITMS705M - THIS IS AN AOC/NETVIEW MESSAGE TABLE * FILE 223
ENTRY TO DRIVE THE ITMS CLIST FROM THE * FILE 223
IEC705I CONSOLE MESSAGE. IF YOU HAVE A * FILE 223
DIFFERENT AUTOMATED OPERATIONS PACKAGE * FILE 223
THAN IBM'S AOC, THIS MEMBER CAN BE * FILE 223
ADAPTED TO THE OTHER SYSTEM. * FILE 223
* FILE 223
ITMSRUN - THE STARTED PROC THAT RUNS ITMS. KICKED * FILE 223
OFF BY THE CLIST. * FILE 223
* FILE 223
ITMSJOB - (ON FILE 224). SAMPLE PRINTOUT OF AN * FILE 223
ITMS RUN. * FILE 223
* FILE 223
ITMSPRT - (ON FILE 224). SAMPLE PRINTOUT OF AN * FILE 223
ITMS RUN WITH MANY OPTIONS. * FILE 223
* FILE 223
THE SEQUENCE OF EVENTS IN EXECUTING THIS SYSTEM * FILE 223
IS AS FOLLOWS: (IF YOUR AUTOMATION PACKAGE IS * FILE 223
NOT IBM'S AOC, YOU MUST CUSTOMIZE ITMS705M AND * FILE 223
ITMS705I TO YOUR AUTOMATION PACKAGE.) * FILE 223
* FILE 223
1. THE TAPE JOB PRODUCES AN IEC705I MOUNT * FILE 223
MESSAGE. * FILE 223
* FILE 223
2. THE NETVIEW MESSAGE TABLE ENTRY INTERCEPTS * FILE 223
THE IEC705I MESSAGE AND KICKS OFF THE AOC * FILE 223
ITMS705I CLIST, WHICH STARTS THE ITMS PROC * FILE 223
USING APPROPRIATE PARAMETERS THAT WERE * FILE 223
PARSED FROM THE IEC705I MESSAGE. * FILE 223
* FILE 223
3. THE ITMS STARTED TASK UPDATES THE ITMS * FILE 223
DATABASE. SEE THE SAMPLE REPORT FROM FILE * FILE 223
224. * FILE 223
* FILE 223
4. YOU RUN "ANY OF MANY" EXECUTIONS OF ITMS * FILE 223
WITH APPROPRIATE PARAMETERS (SEE MEMBER * FILE 223
ITMSFUNC) TO PRODUCE ALL THE REPORTS YOU * FILE 223
NEED AND WANT. THERE ARE MANY DIFFERENT * FILE 223
REPORTS THAT CAN BE PRODUCED. * FILE 223
* FILE 223
CONTAINS SAMPLE OUTPUT FROM THE FREE TAPE * FILE 224
MANAGEMENT SYSTEM, WHOSE COMPONENTS ARE IN * FILE 224
FILE 223. * FILE 224
* FILE 224
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
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
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
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
is a tape copy program from the Air Force Finance * FILE 229
Center in Denver. This pgm will copy all files of * FILE 229
an input tape to one to sixteen output tapes. The * FILE 229
original purpose of this program was for copying * FILE 229
the SHARE MVS Mods Tape. This program is quite * FILE 229
fast. The name of this program is "COPYMODS". * FILE 229
* FILE 229
When first written, the intent of this program was * FILE 229
to copy NL tapes. I have modified COPYMODS very * FILE 229
extensively, to teach it about Standard Labeled * FILE 229
tapes, and have modified it to copy large-blocked * FILE 229
files of up to 64K. (SG 07/00) * FILE 229
* FILE 229
I USE THIS PROGRAM FOR CREATING COPIES OF THE CBT * FILE 229
MVS UTILITIES TAPE. (SG 10/93) * FILE 229
* FILE 229
This program is useful in making "carbon copies" * FILE 229
from one tape to another, and it can also convert * FILE 229
from one tape medium to another. For example, it * FILE 229
can convert from reels to cartridges, or vice-versa. * FILE 229
* FILE 229
My advice is, however, that you should not mix * FILE 229
media types when you make multiple output tapes in * FILE 229
one run. For example, //OUT1 and //OUT2 should * FILE 229
both be reels, or both cartridges of the same * FILE 229
format (like 3480, 3490IDRC, or 3490E). Do not mix * FILE 229
these. //IN can be different from //OUTx, however. * FILE 229
It is my experience that when the //IN (input tape) * FILE 229
was of different media type than the //OUTx (output * FILE 229
tapes), this program has always worked flawlessly * FILE 229
to convert the tape to a different media format. * FILE 229
* FILE 229
I fixed the COPYMODS program to copy tapes with * FILE 229
up to 64K blocks. I've also added many other fixes, * FILE 229
most of them having to do with teaching the program * FILE 229
about Standard Labels. * FILE 229
* FILE 229
I've also solved the 2-tape-marks-together problem * FILE 229
when you have a null SL tape file. The program will * FILE 229
now copy past that point, if it has seen a HDR1 or * FILE 229
HDR2 label before the 2 tape marks. * FILE 229
* FILE 229
Under PARM control, this program can now copy * FILE 229
initted tapes, and optionally change the VOLSER * FILE 229
of the copied SL initted tape. Thus, you can init * FILE 229
a large number of tapes at the same time. * FILE 229
* FILE 229
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * FILE 229
* FILE 229
NEW FEATURES ADDED: SBG 07/00 * FILE 229
* FILE 229
1. 64K BLOCKS ON A TAPE CAN BE COPIED. * FILE 229
* FILE 229
2. UP TO 16 OUTPUT DDNAMES ALLOWED. * FILE 229
* FILE 229
3. INITTED TAPES, AND SL MULTIVOLUME TAPES CAN * FILE 229
BE CORRECTLY COPIED. * FILE 229
* FILE 229
4. ALL STANDARD LABEL INFORMATION, OR ANY * FILE 229
PARTICULAR LABEL TYPES, CAN BE PRINTED, IF * FILE 229
FOUND ON THE INPUT TAPE. * FILE 229
* FILE 229
5. A FLEXIBLE TABLE-DRIVEN PARM KEYWORD SCANNER * FILE 229
WAS ADDED. THIS ALLOWS FOR EASY SETTING OF * FILE 229
PROGRAM DEFAULTS, AND KEYWORD SYNONYMS. SEE * FILE 229
LABEL PARMTABL. * FILE 229
* FILE 229
6. OPTIONALLY, THE VOLSER OF THE OUTPUT TAPES * FILE 229
CAN BE SET TO THE JCL VOLSER, INSTEAD OF THE * FILE 229
INPUT TAPE'S VOLSER. * FILE 229
* FILE 229
7. TAPES WITH LEADING TAPE MARKS CAN BE COPIED * FILE 229
EITHER AS-IS, OR WITH THE LEADING TAPE MARKS * FILE 229
LEFT OFF. * FILE 229
* FILE 229
8. EOV LABELS IN THE MIDDLE OF A TAPE, CAN NOW BE * FILE 229
CHANGED TO EOF LABELS, IF THE TAPE WAS CREATED * FILE 229
AS A COMPOSITE, BY THE COPYFILE PROGRAM. THE * FILE 229
PARM IS EOV2EOF (SEE PARMTABL FOR ALL ACCURATE * FILE 229
AND CURRENT PARM KEYWORD SETTINGS). * FILE 229
* FILE 229
9. COPYMODS CAN NOW BE RUN READ-ONLY FOR THE INPUT * FILE 229
TAPE, USING PARMS OF READ, READONLY, OR NOWRITE. * FILE 229
* FILE 229
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
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
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
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
IS FROM JIM MARSHALL AND CONTAINS A SYS1.BRODCAST * FILE 234
SCAN PROGRAM, MODIFIED FROM THE BRODSCAN PROGRAM * FILE 234
ON FILE 316. SYS1.BRODCAST RECORD TYPES HAVE BEEN * FILE 234
DSECT'ED AND DOCUMENTED IN PREPARATION FOR POSSIBLE * FILE 234
FURTHER WORK. JIM'S CURRENT ADDRESS IS * FILE 234
* FILE 234
JIM MARSHALL, US TREASURY * FILE 234
FINANCIAL MANAGEMENT SERVICE * FILE 234
PRINCE GEORGES PLAZA II - ROOM 400B * FILE 234
3700 EAST-WEST HIGHWAY * FILE 234
HYATTSVILLE, MD 20782 * FILE 234
202-874-8353 * FILE 234
* FILE 234
* FILE 234
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
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
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
IS FROM VALENTIN CHERNYAK OF RIVER EDGE, NEW JERSEY * FILE 238
AND CONTAINS REASM, WHICH IS A SUPER DISASSEMBLER * FILE 238
THAT RUNS INTERACTIVELY UNDER ISPF. THIS FILE * FILE 238
CONTAINS LOAD MODULES FOR REASM. * FILE 238
* FILE 238
EMAIL: JOPA@HOTMAIL.COM * FILE 238
WEBMASTER@REASM.COM * FILE 238
HTTP://WWW.REASM.COM * FILE 238
* FILE 238
PHONE: 914-320-0827 * FILE 238
* FILE 238
THIS PROGRAM IS WRITTEN IN PL/I OPTIMIZER. YOU NEED * FILE 238
TO HAVE THE PL/I RELEASE 2.3.0 TRANSIENT LIBRARY TO * FILE 238
RUN THESE LOAD MODULES. IT MAY IN THE FUTURE BE * FILE 238
POSSIBLE TO REMEDY THIS SOMEWHAT, BUT THIS IS THE * FILE 238
CASE AT THE CURRENT TIME. * FILE 238
* FILE 238
REASM IS AN ISPF APPLICATION WHICH DISPLAYS YOUR * FILE 238
CSECT IN HEX, AND THEN ALLOWS YOU TO DECODE PART OF * FILE 238
IT AS INSTRUCTIONS, REALIGN THE DISASSEMBLY, TREAT * FILE 238
PARTS OF THE CODE AS CONSTANTS, ETC., ALL OF THAT * FILE 238
USING ISPF-TYPE LINE COMMANDS AND PRIMARY COMMANDS. * FILE 238
* FILE 238
YOU CAN INTERACTIVELY MOLD THE DISASSEMBLED SOURCE * FILE 238
AS MUCH AS YOU WANT TO. YOU DON'T HAVE TO MAKE * FILE 238
MULTIPLE BATCH PASSES. YOU DO IT ALL INTERACTIVELY. * FILE 238
THERE IS A COMPLETE SET OF ISPF CONTEXTUAL HELP * FILE 238
INCLUDED IN THIS PACKAGE. * FILE 238
* FILE 238
THIS DISASSEMBLER ALSO HAS A FACILITY TO DYNAMICALLY * FILE 238
FIT LABELS FROM DSECTS IN MACROS. THESE LABELS CAN * FILE 238
GO ANYWHERE IN THE SOURCE YOU SAY. THE MACROS HAVE * FILE 238
TO BE PRE-DIGESTED USING VALENTIN'S SPECIAL UTILITY * FILE 238
THAT IS INCLUDED IN THIS FILE, WHICH IS CALLED * FILE 238
"PRCBGEN". * FILE 238
* FILE 238
IS FROM VALENTIN CHERNYAK OF RIVER EDGE, NEW JERSEY * FILE 239
AND CONTAINS REASM, WHICH IS A SUPER DISASSEMBLER * FILE 239
THAT RUNS INTERACTIVELY UNDER ISPF. THIS FILE * FILE 239
CONTAINS ISPF PANELS FOR REASM. * FILE 239
* FILE 239
IS FROM VALENTIN CHERNYAK OF RIVER EDGE, NEW JERSEY * FILE 240
AND CONTAINS REASM, WHICH IS A SUPER DISASSEMBLER * FILE 240
THAT RUNS INTERACTIVELY UNDER ISPF. THIS FILE * FILE 240
CONTAINS ISPF MESSAGES FOR REASM. * FILE 240
* FILE 240
IS FROM VALENTIN CHERNYAK OF RIVER EDGE, NEW JERSEY * FILE 241
AND CONTAINS REASM, WHICH IS A SUPER DISASSEMBLER * FILE 241
THAT RUNS INTERACTIVELY UNDER ISPF. THIS FILE * FILE 241
CONTAINS DOCUMENTATION AND JCL FOR REASM. * FILE 241
* FILE 241
IS FROM VALENTIN CHERNYAK OF RIVER EDGE, NEW JERSEY * FILE 242
AND CONTAINS REASM, WHICH IS A SUPER DISASSEMBLER * FILE 242
THAT RUNS INTERACTIVELY UNDER ISPF. THIS FILE * FILE 242
CONTAINS A COLLECTION OF "PRE-DIGESTED" MVS MACROS * FILE 242
FOR REASM, TO INTERACTIVELY SUPPLY MAPPING LABELS. * FILE 242
YOU CAN ADD TO THIS COLLECTION WITH THE "PRCBGEN" * FILE 242
UTILITY THAT IS SUPPLIED ON FILE 238. * FILE 242
* FILE 242
IS CURRENTLY EMPTY * FILE 243
* FILE 243
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
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
IS CURRENTLY EMPTY * FILE 246
* FILE 246
is from Jim Marshall and Sam Golob and contains * FILE 247
the "BRODCAST MANAGER" package of programs. These * FILE 247
programs are designed to eliminate the need for * FILE 247
frequent SYNC's of the SYS1.BRODCAST dataset, and * FILE 247
to give you control in displaying and deleting all * FILE 247
user messages in the SYS1.BRODCAST dataset. * FILE 247
* FILE 247
This package is now a full function set of utilities * FILE 247
to manage, copy, export, or import SYS1.BRODCAST. * FILE 247
(Of course, I'm thinking about adding a bit more...) * FILE 247
* FILE 247
Questions, please call or write to: * FILE 247
* FILE 247
Sam Golob, P.O. Box 906, Tallman, NY 10982-0906 * FILE 247
* FILE 247
phone: 845-362-1996 * FILE 247
email: sbgolob@ibm.net and/or sbgolob@aol.com * FILE 247
* FILE 247
>>>>> You can also move SYS1.BRODCAST to a different * FILE 247
>>>>> device type (e.g. 3380 to 3390) and/or expand it, * FILE 247
>>>>> without losing any notices or user messages. * FILE 247
* FILE 247
>>>>> And you can dump SYS1.BRODCAST into a transportable * FILE 247
>>>>> format, then restore it from the dump file. * FILE 247
* FILE 247
All TSO commands in this package use the TSO * FILE 247
PUTLINE interface, so their outputs can be written * FILE 247
to SYSOUT and printed. Therefore, they can be run * FILE 247
using TSO-in-Batch. * FILE 247
* FILE 247
There are programs in this package to display and * FILE 247
delete any TSO user's messages, and to display the * FILE 247
contents of the SYS1.BRODCAST dataset in general. * FILE 247
Now, there's also a program to dump the entire * FILE 247
contents of SYS1.BRODCAST into a flat file, for * FILE 247
moving or sending to anywhere, and there are two * FILE 247
programs for restoring this dumped file. Both pgms * FILE 247
will adjust for device type changes. One will just * FILE 247
restore the dumped file back into a direct access * FILE 247
dataset, and the other will expand the SYS1.BRODCAST * FILE 247
copy, by adding more blank user message records. * FILE 247
* FILE 247
Programs Included - by name: * FILE 247
* FILE 247
BCMCLEAN - When LISTBC deletes a user message, it only * FILE 247
marks it as deleted, without clearing the * FILE 247
message content from SYS1.BRODCAST. This * FILE 247
program zeros out all deleted records, so if * FILE 247
you BROWSE or REVIEW (File 134) SYS1.BRODCAST, * FILE 247
you'll really see how empty it is. * FILE 247
* FILE 247
BCMDEL - TSO command to display and delete any user's * FILE 247
broadcast messages. Works by changing the * FILE 247
PSCBUSER field to the other user's name and * FILE 247
invoking LISTBC. Therefore it also works to * FILE 247
delete another user's messages from a TSO * FILE 247
Userlog. Must be authorized. * FILE 247
* FILE 247
BCMDEL1 - TSO command to display and delete any user's * FILE 247
messages. Works by plugging the other user's * FILE 247
message pointers into your userid's slot, and * FILE 247
invoking LISTBC for your id. Obviously can't * FILE 247
delete the other user's message from a Userlog * FILE 247
because LISTBC thinks he's running against * FILE 247
your userid. Must run authorized, to invoke * FILE 247
LISTBC. * FILE 247
* FILE 247
BCMDEL2 - TSO Command to display and delete any user's * FILE 247
messages, but it works directly on the * FILE 247
SYS1.BRODCAST dataset itself (or a copy) and * FILE 247
goes in, does the enqueues, and does all the * FILE 247
work directly. Since it doesn't need LISTBC, * FILE 247
this command doesn't have to run authorized. * FILE 247
Can't work on Userlogs. Only SYS1.BRODCAST. * FILE 247
* FILE 247
BCMDIAG - Attempts to find "orphaned messages" which * FILE 247
are "officially valid" but which are not * FILE 247
part of a userid message chain. Once found, * FILE 247
you have to fix 'em by hand. (Null 'em out * FILE 247
with Fullscreen ZAP (File 134)). Sorry. * FILE 247
Key byte of a null record is X'FF'. First * FILE 247
data byte is "R" from CCHHR or TTR. * FILE 247
* FILE 247
BCMDUMP - Works with BCMREST and BCMEXPND. Dumps the * FILE 247
RECFM=DA SYS1.BRODCAST dataset into a RECFM=FB * FILE 247
LRECL=130 dataset that can be moved anywhere. * FILE 247
BCMREST will reload this dump into a copy of * FILE 247
SYS1.BRODCAST, even across different device * FILE 247
types. BCMEXPND will also do this, but it * FILE 247
will add blank userid messages to fill all * FILE 247
allocated primary extent space. Therefore, * FILE 247
with BCMEXPND, you can enlarge SYS1.BRODCAST * FILE 247
without losing the messages. Or you can move * FILE 247
it, to a different pack or even a different * FILE 247
system. * FILE 247
* FILE 247
BCMEXPND - Works from a BCMDUMP RECFM=FB LRECL=130 dump * FILE 247
of SYS1.BRODCAST dataset, and will restore it, * FILE 247
with all the messages and notices, to a copy * FILE 247
of SYS1.BRODCAST, that has been enlarged with * FILE 247
blank userid message records, to fit a bigger * FILE 247
allocated space. Therefore, you can make * FILE 247
SYS1.BRODCAST bigger, without losing any * FILE 247
messages, and without doing an ACCOUNT SYNC. * FILE 247
Needs an IPL. Compensates for different * FILE 247
device types. (This may be the first time * FILE 247
in the history of OS and MVS that this could * FILE 247
be done. I've never heard of another such * FILE 247
program.) * FILE 247
* FILE 247
BCMREST - Does the same as BCMEXPND, but doesn't add * FILE 247
any new records. Just restores the records * FILE 247
that were dumped. Will compensate for * FILE 247
different disk device types. You can move * FILE 247
SYS1.BRODCAST from a 3380 to a 3390, for * FILE 247
example, without losing any messages. * FILE 247
* FILE 247
BCMLIST - TSO command, not authorized or restricted, * FILE 247
to list any user's (or all users') messages * FILE 247
in SYS1.BRODCAST. Doesn't do Userlogs. * FILE 247
All the BCMLIS* programs can be invoked, * FILE 247
using a special userid name ALL$#@, which * FILE 247
will display information for all userids * FILE 247
defined to SYS1.BRODCAST. All these BCMLIS* * FILE 247
commands can be run under TSO-in-Batch. * FILE 247
* FILE 247
BCMLISY - Same as BCMLIST, but shows each message's * FILE 247
Relative Record Address. (For diagnostic * FILE 247
purposes, to show the message chain.) * FILE 247
* FILE 247
BCMLISX - Same as BCMLISY, but also shows entries for * FILE 247
users with no outstanding messages. Can be * FILE 247
used (somewhat awkwardly) to display a list * FILE 247
of all defined userids in SYS1.BRODCAST. * FILE 247
For that purpose, use the BCMUSERS program. * FILE 247
This program is best used in TSO-in-Batch. * FILE 247
* FILE 247
BCMSEND - This TSO command is sort of similar to a * FILE 247
TSO SEND command, except for some very * FILE 247
significant differences. First, BCMSEND * FILE 247
only writes messsages to the BRODCAST dataset. * FILE 247
It doesn't matter if the user is logged on. * FILE 247
Second, BCMSEND doesn't use the TSO parser. * FILE 247
Therefore, it doesn't "validity check" the * FILE 247
text of the message. Everything that is in * FILE 247
the command buffer after 7 characters of the * FILE 247
userid, goes into the message--even hex data. * FILE 247
This is until the last non-blank character. * FILE 247
Third, you can use BCMSEND to write to a copy * FILE 247
of the SYS1.BRODCAST dataset, as well as to * FILE 247
the real one. Just allocate the BRODCAST * FILE 247
ddname to the other dataset, not to the * FILE 247
cataloged SYS1.BRODCAST dataset. You need * FILE 247
UPDATE authority to the BRODCAST dataset, to * FILE 247
use BCMSEND to write to it. * FILE 247
* FILE 247
BCMUSADD - Uses IBM's IKJIFRIF interface. This is a * FILE 247
TSO command to add an arbitrary user name * FILE 247
as a userid in SYS1.BRODCAST. This command * FILE 247
can be used in conjunction with BCMUSDEL. * FILE 247
Adding a userid with BCMUSADD has nothing * FILE 247
to do with either UADS or RACF. But it * FILE 247
allows the system to SEND messages to this * FILE 247
arbitrary (up to 7 characters) name. * FILE 247
* FILE 247
BCMUSDEL - TSO command to delete an arbitrary TSO * FILE 247
userid record from SYS1.BRODCAST. When the * FILE 247
userid is deleted, so are all its messages. * FILE 247
This command uses IBM's official IKJIFRIF * FILE 247
SYS1.BRODCAST interface. Can be used to * FILE 247
clear all of a user's messages from SYS1. * FILE 247
BRODCAST without displaying them, but if you * FILE 247
want to keep the userid, you have to use * FILE 247
BCMUSADD afterwards, to add the id back. * FILE 247
* FILE 247
BCMSCAN - A modernization of the old BRODCAST program * FILE 247
that is on this tape. This is a batch program * FILE 247
that does a general statistical survey of the * FILE 247
current state of the SYS1.BRODCAST dataset. * FILE 247
It displays all users who have outstanding * FILE 247
undelivered messages, and how many. Therefore * FILE 247
if SYS1.BRODCAST is full, or nearly so, you * FILE 247
run this program first, to determine which * FILE 247
userids are the culprits. * FILE 247
* FILE 247
BCMUSERS - TSO command to display all userids defined * FILE 247
to SYS1.BRODCAST. This has nothing to do * FILE 247
with UADS or RACF. Default is now to display * FILE 247
only users with outstanding messages. If you * FILE 247
want to display all userids, use a parm of A * FILE 247
or ALL. * FILE 247
* FILE 247
If you use a parm of A, userids with * FILE 247
outstanding messages will be displayed with * FILE 247
2 extra lines. One line shows the starting * FILE 247
and ending message pointer address in the * FILE 247
userid id record. The other line shows the * FILE 247
number of outstanding messages for this * FILE 247
userid. * FILE 247
* FILE 247
MYID - A TSO command to display your own userid. * FILE 247
Uses the PSCBUSER field. Written as a coding * FILE 247
exercise, but it's handy to use. * FILE 247
* FILE 247
SYSTM - A TSO command to display what system you're * FILE 247
running on. Also written as an exercise. * FILE 247
But also handy to have, so I'm making it * FILE 247
available here. * FILE 247
* FILE 247
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
IS FROM EILEEN BARKOW OF DOITT - NEW YORK CITY, * FILE 249
NEW YORK, AND CONTAINS A COLLECTION OF USEFUL * FILE 249
PROGRAMS. * FILE 249
* FILE 249
THE FOLLOWING PROGRAMS ARE IN THIS COLLECTION: * FILE 249
* FILE 249
WMOD FOR TSO - FIND OCCURRENCES OF A PDS MEMBER NAME. * FILE 249
THIS PROGRAM WILL SEARCH ALLOCATED * FILE 249
PDS LIBRARIES IN THE TSO ADDRESS SPACE * FILE 249
FOR THE SPECIFIED MODULE NAME, INCLUDING * FILE 249
CLISTS, SOURCE, ISPF LIBRARIES, ETC. IT * FILE 249
WILL ALSO SEARCH STEPLIB, LPA, LINKLIST * FILE 249
AND SVCLIB. FOR LPA MODULES, THE * FILE 249
ADDRESS IN LPA WILL BE RETURNED. FOR * FILE 249
ALL OTHERS, THE DATASET NAME WILL BE * FILE 249
RETURNED. * FILE 249
* FILE 249
WMOD FOR CICS - FIND OCCURRENCES OF A PDS MEMBER NAME. * FILE 249
THIS PROGRAM SEARCHES ALL DFHRPL * FILE 249
LIBRARIES, STEPLIB, LINKLIST, LPA, AND * FILE 249
SVCLIB FOR SPECIFIED MODULE NAME. IT * FILE 249
TAKES A GUESS AS TO WHERE CICS LOADED * FILE 249
THE MODULE FROM IF THE MODULE EXISTS IN * FILE 249
MULTIPLE PLACES (IE: MODULE IS IN * FILE 249
DFHRPL AS WELL AS STEPLIB AND LPA). * FILE 249
* FILE 249
UCB - IF YOU GIVE THE UNIT ADDRESS, THIS WILL * FILE 249
RETURN THE VOLUME SERIAL. IF YOU GIVE * FILE 249
THE VOLUME SERIAL, THIS WILL GIVE THE * FILE 249
UNIT ADDRESS. USES UCBLOOK AND WORKS * FILE 249
FOR DYNAMIC UCB'S. * FILE 249
* FILE 249
SVC - AUTH SVC * FILE 249
* FILE 249
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
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
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
IS FROM JEFF KAPLAN AND CONTAINS HIS EXEC LIBRARY. * FILE 253
* FILE 253
IS FROM JEFF KAPLAN AND CONTAINS HIS CNTL LIBRARY. * FILE 254
* FILE 254
IS FROM JEFF KAPLAN AND CONTAINS HIS ISPPLIB LIBRARY. * File 255
* FILE 255
IS FROM JEFF KAPLAN AND CONTAINS HIS ISPTLIB LIBRARY. * File 256
* FILE 256
IS FROM SAM GOLOB, AND CONTAINS ZAPS TO FIX THE * FILE 257
OLD LINKAGE EDITOR (EVEN IF IT IS PART OF DFSMS), * FILE 257
SO THAT IT WILL READ OBJECT DECKS THAT ARE BLOCKED * FILE 257
BIGGER THAN 3200 BYTES PER BLOCK. FOR YOUR PERUSAL * FILE 257
AND PLEASURE.... * FILE 257
* FILE 257
* - * - * - * - * - * - * - * - * - * * FILE 257
* FILE 257
FIXING YOUR OLD LINKAGE EDITOR (IN DFSMS/MVS TOO) * FILE 257
* FILE 257
EVEN UNDER DFSMS/MVS, WITH HEWL AND IEWL BEING THE NEW * FILE 257
'BINDER', YOU CAN STILL RUN THE OLD LINKAGE EDITOR IF YOU * FILE 257
SAY EXEC PGM=HEWLKED. IBM HAS KEPT A VERSION OF THE OLD * FILE 257
LINKAGE EDITOR AROUND. HOWEVER, WITH THE BINDER, IBM HAS * FILE 257
REMOVED THE OLD (NOW STUPID) RESTRICTION THAT OBJECT DECKS * FILE 257
CAN'T BE BLOCKED GREATER THAN 3200 BYTES, OR 40 RECORDS * FILE 257
PER BLOCK. THERE WERE MEMORY RESTRICTIONS ONCE, THAT ARE * FILE 257
NOW LONG GONE. BUT WITH THE OLD LINKAGE EDITOR, THEY * FILE 257
HAVEN'T REMOVED THE RESTRICTION, AND NOW IT IS "FUNCTIONALLY * FILE 257
STABILIZED" FOR ALL PRACTICAL PURPOSES. * FILE 257
* FILE 257
I'VE LOOKED AT MY COPIES OF THE OLD LINKAGE EDITOR * FILE 257
HEWLKED IN DFSMS, AND BEHOLD, THE OLD RESTRICTION HASN'T * FILE 257
BEEN LIFTED OR CURED. IT IS SO EASY TO DO! WE HAD A * FILE 257
USERMOD ONCE, WHICH I AM BRINGING TO YOU NOW. I HAVE TWO * FILE 257
VERSIONS OF THIS MOD, ONE FOR DFSMS 1.0, AND ANOTHER FOR * FILE 257
DFSMS 1.3. BOTH ARE THE SAME AS EACH OTHER, AND YOU * FILE 257
SHOULDN'T HAVE ANY TROUBLE FITTING THIS MOD TO ANY VERSION * FILE 257
OF THE OLD LINKAGE EDITOR, YOUNG OR RECENT. I HAVE ALSO * FILE 257
INCLUDED ZAPS FOR ALL VERSIONS OF THE LINKAGE EDITOR WHICH * FILE 257
I HAD LYING AROUND AT OUR INSTALLATION, AS WELL AS I COULD * FILE 257
DETERMINE. * FILE 257
* FILE 257
VERSION TABLE: * FILE 257
* FILE 257
HDQ1102 - MVS/370 DFP 1.1 * FILE 257
HDP2230 - MVS/XA DFP 2.3 * FILE 257
HDP2240 - MVS/XA DFP 2.4 * FILE 257
JDZ1110 - DFSMS/MVS 1.1.0 * FILE 257
HDZ11C0 - DFSMS/MVS 1.3.0 * FILE 257
* FILE 257
IF YOU HAVE ANY QUESTIONS, I'M (HOPEFULLY) AT: * FILE 257
* FILE 257
Sam Golob EMAIL: sbgolob@aol.com * FILE 257
P.O. Box 906 sbgolob@attglobal.net * FILE 257
Tallman, NY 10982 * FILE 257
* FILE 257
NEW PHONE NUMBER: 845-362-1996 * FILE 257
* FILE 257
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
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
IS A VERY QUICK MAPPING PROGRAM. IT WILL PRODUCE * FILE 260
A LISTING OF EVERY DATA SET ON A VOLUME PLUS CALCULATE * FILE 260
THE FREE SPACE, FREE DSCBS, ETC. OPTIONALLY VIA PARM * FILE 260
INFORMATION IT WILL PRODUCE THE FOLLOWING: * FILE 260
* FILE 260
Updated July 2000 by Charles Wells of the Georgia Dept. * FILE 260
of Labor, to add support for 3390-9 disk drives. * FILE 260
* FILE 260
Charles Wells * FILE 260
Georgia Dept. of Labor * FILE 260
Suite 352 * FILE 260
148 International Blvd * FILE 260
Atlanta, GA 30303-1751 * FILE 260
* FILE 260
Voice: 404-656-5944 * FILE 260
Email: Charles.Wells@dol.state.ga.us * FILE 260
* FILE 260
PARM=MAP PRODUCES A TRACK MAP OF THE VOLUME * FILE 260
PARM=PDS LIST ALL PDS DIRECTORIES ON THE VOLUME * FILE 260
PARM=ISAM LIST ISAM REORG INFORMATION FOR DATASETS * FILE 260
PARM=EXT LIST THE EXTENTS OF THE DATASETS * FILE 260
PARM=DUMP LIST IN HEX ALL DSCBS ON THE VOLUME * FILE 260
PARM=EMPTY LIST ONLY DATASETS THAT ARE EMPTY * FILE 260
PARM=MODEL LIST ONLY MODEL DSCBS * FILE 260
PARM=SDUMP LIST IN HEX FORMAT 4 AND 5 DSCBS * FILE 260
PARM=VOLS ONLY USE DDNAMES OF VOLUMEXX * FILE 260
PARM=JDATE LIST CREATION/EXPIRATION DATES IN JULIAN * FILE 260
* FILE 260
THIS CODE WILL SUPPORT 3380'S * FILE 260
THIS CODE WILL SUPPORT INDEXED VTOCS * FILE 260
* FILE 260
ADDITIONAL COMMENTS ARE DOCUMENTED IN THE SOURCE * FILE 260
THIS PROGRAM MUST BE LINKED AS AC=1. * FILE 260
* FILE 260
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
IS A VERSION OF THE # CMD1 SUBSYSTEM FROM B.F. * FILE 261
GOODRICH IN AKRON, OHIO FROM MR GUY ALBERTELLI. * FILE 261
THIS FILE CONTAINS A COMPLETE # COMMAND SUBSYSTEM, * FILE 261
WITH NUMEROUS MEMBERS UPGRADED TO THE XA LEVEL, AND * FILE 261
WITH SOME MEMBERS UPGRADED TO THE MVS/ESA 4.2 LEVEL. * FILE 261
THE CURRENT MODULE NAMING IS FOR THE XA ENVIRONMENT. * FILE 261
MEMBER $MVSXA21 SHOWS THE RENAMES FROM SP3 TO XA. * FILE 261
MEMBER $$$BFGXA IS THE DOCUMENTATION OF THE CHANGES * FILE 261
AND BUGS FOUND. IT ALSO CONTAINS THE CURRENT STATUS * FILE 261
OF THE MODULES IN THE SYSTEM. SEE MEMBER CALLED * FILE 261
$$$BFGES FOR THE MVS/ESA STATUS. * FILE 261
* FILE 261
THE # COMMAND SUBSYSTEM IS A MULTI-FUNCTION * FILE 261
SUBSYSTEM THAT CAN BE USED TO PERFORM SYSTEM * FILE 261
TASKS TO DISPLAY AND FIX VARIOUS CONDITIONS IN * FILE 261
A RUNNING MVS SYSTEM. I CALL IT THE "POOR MAN'S * FILE 261
'RESOLVE'", AFTER THE VENDOR PRODUCT OF THAT NAME. * FILE 261
THE CMD1 SUBSYSTEM CAN OPERATE FROM THE SYSTEM * FILE 261
CONSOLE OR FROM A SUITABLY AUTHORIZED TSO USERID. * FILE 261
* FILE 261
IN OLD VERSIONS OF THIS TAPE, DETAILED DOCUMENTATION * FILE 261
FOR CMD1 USED TO BE SUPPLIED IN FILE 001 UNDER THIS * FILE 261
HEADING IN THIS PLACE. TO SEE MORE, YOU CAN EITHER * FILE 261
PRINT OUT THE USER MANUAL CONTAINED IN THIS FILE, * FILE 261
OR YOU CAN GET (IN FILE 071) THE DOCUMENTATION OF * FILE 261
AND OLD TAPE (MEMBER CBT249) AND SEE HOW THE * FILE 261
INFORMATION WAS PRESENTED THERE. * FILE 261
* FILE 261
CURRENT ADDRESS: * FILE 261
* FILE 261
GUY ALBERTELLI * FILE 261
B.F. GOODRICH - S.P.& C. DIVISION * FILE 261
9911 BRECKSVILLE ROAD * FILE 261
BRECKSVILLE, OH 44141-3247 * FILE 261
(216) 447-5543 * FILE 261
* FILE 261
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
IS FROM SAM GOLOB WHO TOOK THE DIFFERENCE BETWEEN * FILE 263
TWO VERSIONS OF THE UK G.U.I.D.E. TAPE WHICH WERE * FILE 263
IN HIS POSSESSION. THE RESULTING LIST OF MEMBERS * FILE 263
APPEARED TO BE LOOSE MACROS WHICH ARE NECESSARY TO * FILE 263
ASSEMBLE SOURCE PROGRAMS ON THE UK G.U.I.D.E. * FILE 263
TAPE. SEE FILES 244 AND 245. * FILE 263
* FILE 263
DOC FOR THIS FILE (263). * FILE 263
* FILE 263
THIS FILE CONSISTS OF ALL MEMBERS OF THE OLD UK * FILE 263
G.U.I.D.E. TAPE WHICH ARE NOT IN THE NEW UK G.U.I.D.E. * FILE 263
TAPE WHICH I RECEIVED FROM PHIL PECKSEN, WHO IS ITS * FILE 263
PROPRIETOR. I HAVE ASSUMED THAT THESE MEMBERS, MOST * FILE 263
OF WHICH ARE MACROS, ARE NECESSARY FOR ASSEMBLING THE * FILE 263
CONTENTS OF FILES 244 AND 245 OF THE CBT TAPE, WHICH * FILE 263
IS FROM HIM, BUT WHICH CONTAINS FEW LOOSE MACROS. * FILE 263
* FILE 263
THE COMPLETE UK G.U.I.D.E. TAPE TOGETHER WITH THESE * FILE 263
MEMBERS, CAN NOW BE FOUND ON THE CBT OVERFLOW TAPE, * FILE 263
WHICH WAS JUST ESTABLISHED. THE UK G.U.I.D.E. TAPE * FILE 263
FILE IS FILE 012 ON THAT TAPE. * FILE 263
* FILE 263
NOV 21, 96 SAM GOLOB (NEW ADDRESS) * FILE 263
P.O. BOX 906 * FILE 263
TALLMAN, NY 10982 * FILE 263
* FILE 263
EMAIL: sbgolob@aol.com * FILE 263
sbgolob@attglobal.net * FILE 263
* FILE 263
NEW PHONE NUMBER: 845-362-1996 * FILE 263
* FILE 263
IS FROM B.F. GOODRICH IN AKRON OHIO, AND CONTAINS * FILE 264
THREE TSO COMMAND PROCESSORS. THEY ARE: * FILE 264
* FILE 264
1 LOOK - A TSO COMMAND PROCESSOR THAT ALLOWS * FILE 264
FULL SCREEN DISPLAY OF REAL TIME * FILE 264
MEMORY. THIS COMMAND HAS BEEN * FILE 264
ENHANCED TO MAKE IT EASY TO ADD NEW * FILE 264
CONTROL BLOCK MAPS, USUALLY IN 3 OR * FILE 264
4 STATEMENTS * FILE 264
* (REFRESHED 12/88 V1.1.A) * FILE 264
* FILE 264
(THIS COMMAND IS A "MUST" TO KNOW ABOUT - SG) * FILE 264
* FILE 264
2 DUDASD AN UPDATED VERSION FROM FILE 300 OF * FILE 264
THIS TAPE THAT HAS BEEN CONVERTED * FILE 264
TO FUNCTION UNDER EITHER SP OR XA. * FILE 264
* FILE 264
3 JLOG A PROGRAM TO PRINT OUT THE JES JOBLOG * FILE 264
AND OR ANY OTHER JES DATASETS, EVEN * FILE 264
IF THEY ARE QUEUED TO A DUMMY CLASS. * FILE 264
USEFUL IN OBTAINING THE JOBLOG OF * FILE 264
ABENDING STARTED TASKS. * FILE 264
* FILE 264
THIS FILE IS IN IEBUPDTE SYSIN FORMAT * FILE 264
* FILE 264
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
IS FROM SAM GOLOB, WHO UPDATED THE TAPE MAPPING * FILE 266
PROGRAM CALLED SS0104 FROM FLORIDA POWER CORPORATION. * FILE 266
THIS CODE IS USED TO MEASURE THE FOOTAGES OF FILES * FILE 266
ON THE CBT TAPE, AS THOUGH THEY WERE ON A 6250 BPI * FILE 266
TAPE REEL. AS IS, THAT IS WHAT THIS CODE IS USED * FILE 266
FOR, BUT IT CAN BE FIXED. IF YOU FIX THIS CODE, * FILE 266
FOR USE WITH ANY DENSITY TAPE, AND WITH CARTRIDGE, * FILE 266
PLEASE SEND IT TO ME TO TEST, SO I CAN UPDATE THIS * FILE 266
FILE IN YOUR NAME. THANKS. (S.GOLOB - 08/96). * FILE 266
* FILE 266
IS CURRENTLY EMPTY * FILE 267
* FILE 267
is from Mark Winges of San Francisco, California * FILE 268
and contains a package of REXX functions to access * FILE 268
VSAM files. This is his second version. * FILE 268
* FILE 268
This file was fixed by Rob Van Riel, to solve * FILE 268
several problems. Details are in member RXVSAM$. * FILE 268
* FILE 268
email: LynMark@compuserve.com (Mark Winges) * FILE 268
phone: 415-752-8291 * FILE 268
* FILE 268
email: "Van Riel, Rob" * FILE 268
* FILE 268
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
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
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
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
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
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
IS FROM MARK HEDGES OF ADVENT SOFTWARE AND CONTAINS * FILE 275
THE FOLLOWING UTILITIES AS DOCUMENTED BELOW. * FILE 275
* FILE 275
ADVENT SOFTWARE * FILE 275
340 WEST BUTTERFIELD ROAD * FILE 275
SUITE 4B * FILE 275
ELMHURST, IL 60126 * FILE 275
(630) 279-5449 * FILE 275
* FILE 275
AUTHOR. MARK HEDGES * FILE 275
* FILE 275
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
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
IS FROM RICK FOCHTMAN OF CHICAGO, ILLINOIS AND HAS * FILE 277
A PROGRAM CALLED UTILITY. THIS PROGRAM ALLOWS THE * FILE 277
SUBSTITUTION OF VALUES IN JCL, DEPENDING ON PARMS, * FILE 277
AND IS VERY VERSATILE. LOOK AT THE SAMPLE DOC AND * FILE 277
COMMENTS IN THE CODE, FOR THE POSSIBILITIES. GOOD * FILE 277
FOR PRODUCTION JCL, AND USING JCL OVER AGAIN WITHOUT * FILE 277
CHANGING MUCH. * FILE 277
* FILE 277
MOST OF THE CODE WAS WRITTEN BY MIKE EAGER. * FILE 277
* FILE 277
THIS PROGRAM ALLOWS SUBSTITUTION OF VARIABLES * FILE 277
ANYWHERE IN JCL, INCLUDING SYSIN CARDS. * FILE 277
* FILE 277
EMAIL - RICK.FOCHTMAN@BOTCC.COM * FILE 277
* FILE 277
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
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
IS FROM WISCONSIN STATE AND HAS THE WATERLOO SCRIPT * FILE 280
DOCUMENTATION. THIS FILE IS IN IEBUPDTE SYSIN FORMAT * FILE 280
* FILE 280
IS FROM WISCONSIN STATE AND HAS THE WATERLOO SCRIPT * FILE 281
LOAD MODULES. THIS FILE IS IN IEBCOPY FORMAT * FILE 281
* FILE 281
IS FROM WISCONSIN STATE AND HAS THE WATERLOO SCRIPT * FILE 282
MACLIB. THIS FILE IS IN IEBUPDTE SYSIN FORMAT * FILE 282
* FILE 282
IS FROM WISCONSIN STATE AND HAS THE WATERLOO SCRIPT * FILE 283
MEMO TO USERS. THIS FILE IS IN IEBCOPY FORMAT * FILE 283
* FILE 283
IS FROM WISCONSIN STATE AND HAS THE WATERLOO SCRIPT * FILE 284
SOURCE. THIS FILE IS IN IEBUPDTE SYSIN FORMAT * FILE 284
* FILE 284
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
IS FROM WISCONSIN STATE AND HAS THE WATERLOO SCRIPT * FILE 286
OBJECT MODULES. THIS FILE IS IN IEBUPDTE SYSIN FORMAT * FILE 286
* FILE 286
IS FROM WISCONSIN STATE AND HAS THE WATERLOO SCRIPT * FILE 287
TSO PROMPTER. THIS FILE IS IN IEBUPDTE SYSIN FORMAT * FILE 287
* FILE 287
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
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
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
is from Rick Hevener of the University of South * FILE 291
Carolina, and contains a program to measure CPU * FILE 291
instruction execution speed. This program is * FILE 291
supposed to be a bit better than others of its * FILE 291
type (I think). Included in this file, is an * FILE 291
article from Technical Support magazine which * FILE 291
describes how this program works, and what kind * FILE 291
of results you can obtain, using it. * FILE 291
(DOC BY S.GOLOB 11/97) * FILE 291
* FILE 291
The program in TIMINGSP may be used to test timings of * FILE 291
a large number of instructions on mainframe IBM or plug * FILE 291
compatible computers. The method involves cycling * FILE 291
through a loop 5,000 times with 11 instructions per * FILE 291
cycle; the overhead for the loop is then subtracted. * FILE 291
It takes approx. one second of CPU time on our * FILE 291
9672-R53. The only macros required are in SYS1.MACLIB. * FILE 291
The numeric parameters described above are easily * FILE 291
changed. * FILE 291
* FILE 291
The original program is in member TIMINGSO. It * FILE 291
employed 50,000 cycles per loop with only one * FILE 291
instruction per cycle. That program and its results * FILE 291
are described in the following article, which is * FILE 291
reproduced here in member $ARTICLE: * FILE 291
* FILE 291
Richard N. Hevener, "Large System Instruction Timings," * FILE 291
"Technical Support," Vol. 5, No. 8, pp. 14-18, August, * FILE 291
1997. * FILE 291
* FILE 291
In Sep. 1999, Mr. Jim Melnyk of Great-West Life sent * FILE 291
me e-mail inquiring about some peculiar results he had * FILE 291
obtained using the original program. He had gotten * FILE 291
negative times for certain instructions on a 9672-RC6. * FILE 291
After several attempts, I was able to modify the * FILE 291
program to achieve reasonable timings on both that * FILE 291
machine and a 9672-R55 that Jim later discovered also * FILE 291
produced spurious results. He also tested on a * FILE 291
9672-R24, obtaining output consistent with the original * FILE 291
program, as I did on our 9672-R53. * FILE 291
* FILE 291
I would like to acknowledge Jim's assistance in testing * FILE 291
various versions of the program on his three machines. * FILE 291
I would also like to thank him for suggesting that I * FILE 291
employ a loop macro to facilitate changes. * FILE 291
* FILE 291
My E-mail address is rick.hevener@sc.edu. * FILE 291
* FILE 291
Rick Hevener, Consultant * FILE 291
USC Computer Services * FILE 291
University of South Carolina * FILE 291
1244 Blossom St. (ship to 1211 Wheat St.) * FILE 291
Columbia, SC 29208-2901 * FILE 291
phone 803-777-2430 * FILE 291
fax 803-777-8644 * FILE 291
Rick Hevener * FILE 291
alias rick.hevener@sc.edu * FILE 291
* FILE 291
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
IS A CURRENTLY EMPTY * FILE 293
* FILE 293
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
IS CURRENTLY EMPTY * FILE 295
* FILE 295
IS A SERIES OF UTILITIES FROM MR BRUCE LELAND. * FILE 296
THIS FILE IS IN IEBUPDTE SYSIN FORMAT AND CONTAINS: * FILE 296
* FILE 296
Contents of this file: * FILE 296
* FILE 296
NAME VER.MOD LAST MODIFIED SIZE ID * FILE 296
$$$$$NOT 01.00 1998/10/27 10:04 9 SBGOLOB * FILE 296
$$$$SAM 01.01 1994/08/19 8:25 34 SBGCSC * FILE 296
$$$$SAM1 01.01 1998/04/22 22:55 3 SBGOLOB * FILE 296
$INDEX 01.18 1999/01/25 12:40 20 SBGOLOB * FILE 296
@FILE296 01.01 2000/02/15 17:05 183 SBGOLOB * FILE 296
BLKDISK 01.21 1993/02/02 12:56 1758 WSER07 * FILE 296
COMPARE 01.44 2000/01/11 15:17 3690 SBGOLOB * FILE 296
COMPAREB 01.00 2000/01/11 15:20 1851 SBGOLOB * FILE 296
DSAT 01.41 1999/01/25 12:34 4947 WSER07 * FILE 296
DSATOLD 01.32 1994/08/05 13:15 4258 WSER07 * FILE 296
DVOL 01.28 1998/04/21 17:29 3548 WSER07 * FILE 296
HEL 01.01 1993/09/03 6:41 1 SBGCSC * FILE 296
RELEASE 01.03 1988/08/25 12:58 1282 WSER07 * FILE 296
RESET 01.00 1990/01/01 12:00 217 FILE296 * FILE 296
REVIEW 01.00 1992/12/18 7:37 1 SBGCSC * FILE 296
REVSMF 01.01 1992/12/18 7:38 1 SBGCSC * FILE 296
XEQ 01.01 1982/06/04 12:58 1326 WSER07 * FILE 296
* FILE 296
Description of Utilities: * FILE 296
* FILE 296
01. DSAT- THE DSAT COMMAND IS USED TO DISPLAY * FILE 296
ALLOCATION INFORMATION FOR DATA SETS * FILE 296
ON A DIRECT ACCESS DEVICE. * FILE 296
* FILE 296
DSAT WILL SEARCH THE OS CATALOG AND * FILE 296
CVOLS FOR THE ENTRIES FOR THE DATA * FILE 296
SETS SPECIFIED. ALLOCATION * FILE 296
INFORMATION WILL BE OBTAINED FROM THE * FILE 296
VOLUME TABLE OF CONTENTS, FORMATTED * FILE 296
AND DISPLAYED. IF A NAME IS AN INDEX * FILE 296
NAME, ALL DATA SETS BELOW THE INDEX * FILE 296
WILL BE DISPLAYED. * FILE 296
* FILE 296
THE USER MAY BYPASS THE CATALOG * FILE 296
SEARCH BY SUPPLYING THE VOLUME SERIAL * FILE 296
ON WHICH THE DATA SET RESIDES. THIS * FILE 296
OPTION PERMITS DISPLAYING INFORMATION * FILE 296
FOR UNCATALOGED DATA SETS. * FILE 296
* FILE 296
THE ATTRIBUTES TO BE DISPLAYED MAY BE * FILE 296
SELECTED BY THE USER WHEN HE ENTERS * FILE 296
THE DSAT COMMAND BY SPECIFYING * FILE 296
KEYWORD OPERANDS. * FILE 296
* FILE 296
THE DSAT COMMAND MAY BE USED IN * FILE 296
COMMAND PROCEDURES TO FIND THE * FILE 296
ALLOCATION OF A DATA SET OR A GROUP * FILE 296
OF DATA SETS AND SET THE RETURN CODE * FILE 296
TO THE SPECIFIED VALUE. THE RETURN * FILE 296
CODE MAY THEN BE TESTED WITH THE WHEN * FILE 296
COMMAND. OUTPUT MAY BE SUPPRESSED BY * FILE 296
SPECIFYING NOPRINT. * FILE 296
* FILE 296
THE USER MAY CHOOSE WHAT INFORMATION * FILE 296
WILL BE DISPLAYED BY ENTERING * FILE 296
KEYWORDS. * FILE 296
* FILE 296
THE INFORMATION THAT MAY BE DISPLAYED IS: * FILE 296
* FILE 296
1. VOLUME SERIAL ON WHICH THE DATA SET IS LOCATED. * FILE 296
2. FILE SEQUENCE NUMBER. * FILE 296
3. DEVICE TYPE CODE FROM CATALOG ENTRY. * FILE 296
4. ALLOCATION (ALLOCATED, USED, AND EXTENTS). * FILE 296
5. SECONDARY ALLOCATION (AMOUNT AND UNITS). * FILE 296
6. DATA SET ORGANIZATION. * FILE 296
7. DCB (RECFM, BLKSIZE, AND LRECL). * FILE 296
8. CREATION DATE. * FILE 296
9. EXPIRATION DATE. * FILE 296
10. FULLY QUALIFIED DATA SET NAME. * FILE 296
11. CCHHR OF THE FORMAT 1 DSCB. * FILE 296
12. GENERATION DATA GROUP DATA. * FILE 296
13. PDS DIRECTORY INFORMATION. * FILE 296
* FILE 296
02. DVOL- THE DVOL COMMAND IS USED TO DISPLAY * FILE 296
THE AMOUNT OF FREE SPACE ON A DIRECT * FILE 296
ACCESS DEVICE. * FILE 296
* FILE 296
DVOL WILL READ THE FORMAT 4 AND * FILE 296
FORMAT 5 DSCB'S FROM THE VTOC OF A * FILE 296
DIRECT ACCESS VOLUME AND DISPLAY: * FILE 296
* FILE 296
DVOL UPDATED 09/97 TO RECOGNIZE DYNAMIC * FILE 296
UCB'S. * FILE 296
* FILE 296
1. VOLUME SERIAL * FILE 296
2. UNIT ADDRESS * FILE 296
3. MOUNT STATUS * FILE 296
4. USE STATUS * FILE 296
5. NUMBER OF BLANK DSCB'S IN THE VTOC * FILE 296
6. CONDITION OF THE VTOC INDICATORS BYTE * FILE 296
7. VSAM DATA FIELDS * FILE 296
8. TOTAL FREE SPACE IN TRACKS * FILE 296
9. NUMBER OF FREE EXTENTS * FILE 296
10. NUMBER OF FREE CYLINDERS * FILE 296
11. SIZE OF LARGEST EXTENTS (UP TO 5) IN * FILE 296
CYLINDERS + TRACKS * FILE 296
12. SIZE OF LARGEST EXTENTS (UP TO 5) IN TRACKS * FILE 296
* FILE 296
THE RETURN CODE IS SET TO THE TOTAL * FILE 296
NUMBER OF TRACKS IN THE LARGEST * FILE 296
EXTENTS (UP TO 5) UP TO A MAXIMUM OF * FILE 296
4095. IF THE NUMBER OF FREE TRACKS * FILE 296
EXCEEDS 4095, THE RETURN CODE WILL * FILE 296
BE SET TO 4095. IF MORE THAN ONE * FILE 296
VOLUME IS DISPLAYED, THE RETURN CODE * FILE 296
WILL BE REFER TO THE SPACE ON THE * FILE 296
LAST VOLUME. IF AN ERROR CONDITION * FILE 296
EXISTS ON THE VOLUME, THE RETURN * FILE 296
CODE WILL BE SET TO 0. * FILE 296
* FILE 296
NOTE - IF AN ERROR CONDITION EXISTS * FILE 296
ON THE VOLUME, THE RETURN * FILE 296
CODE WILL BE SET TO 0. * FILE 296
* FILE 296
03. RESET - PERFORMS THE EQUIVALENT OF A DATASET * FILE 296
SCRATCH FOLLOWED BY A REALLOCATION * FILE 296
IN THE SAME SPACE FOR A PDS. THE * FILE 296
NUMBER OF DIRECTORY BLOCKS CAN BE * FILE 296
CHANGED VIA THE PROGRAM PARM. * FILE 296
* FILE 296
04. BLKDISK - SEE BELOW FOR A COMPLETE DESCRIPTION: * FILE 296
* FILE 296
DESCRIPTION: THIS PROGRAM COMPUTES AN "OPTIMAL" * FILE 296
BLOCKSIZE FOR A DISK OR DRUM DATA SET GIVEN THE * FILE 296
LOGICAL RECORD LENGTH. INPUTS INCLUDE THE LRECL * FILE 296
AND OPTIONALLY ANY OF THE FOLLOWING: * FILE 296
* FILE 296
A. A KEY LENGTH (ZERO, FOR NO KEY, IS THE * FILE 296
DEFAULT) * FILE 296
B. THE NUMBER OF RECORDS IN THE DATA SET (USED * FILE 296
FOR AN ALLOCATION COMPUTATION -- 100,000 IS * FILE 296
THE DEFAULT) * FILE 296
C. THE BLOCKSIZE TO USE FOR THE ALLOCATION * FILE 296
COMPUTATION (THE RECOMMENDED BLOCKSIZE VALUE * FILE 296
IS THE DEFAULT) * FILE 296
D. WHETHER OR NOT TO PROVIDE A TRACK CAPACITY * FILE 296
REPORT * FILE 296
E. WHETHER OR NOT TO VERIFY RESULTS AGAINST * FILE 296
"TRKCALC" * FILE 296
* FILE 296
SUPPORTED DEVICES: THE NAME BY WHICH THIS COMMAND * FILE 296
PROCESSOR IS INVOKED DETERMINES THE DEVICE TYPE * FILE 296
TO BE USED. * FILE 296
* FILE 296
THE FIRST THREE CHARACTERS OF THE COMMAND NAME * FILE 296
(USUALLY "BLK") ARE IGNORED; THE REMAINING FOUR * FILE 296
OR FIVE CHARACTERS ARE COMPARED AGAINST A TABLE * FILE 296
OF SUPPORTED DEVICES IN THE PROGRAM. THE VALID * FILE 296
ALIAS NAMES FOR THE PROGRAM INCLUDE THE * FILE 296
FOLLOWING: * FILE 296
* FILE 296
A. BLK23051 (FOR 2305-1 DRUMS) * FILE 296
B. BLK23052 (FOR 2305-2 DRUMS) * FILE 296
C. BLK2314 (FOR 2314 DISKS) * FILE 296
D. BLK3330 (FOR 3330 DISKS) * FILE 296
E. BLK33301 (FOR 3330 MODEL 11 DISKS) * FILE 296
F. BLK3340 (FOR 3340 DISKS) * FILE 296
G. BLK3350 (FOR 3350 DISKS) * FILE 296
H. BLK3375 (FOR 3375 DISKS) * FILE 296
I. BLK3380 (FOR 3380 DISKS) * FILE 296
J. BLK3390 (FOR 3390 DISKS) * FILE 296
K. BLK9345 (FOR 9345 DISKS) * FILE 296
* FILE 296
05. REVIEW - SEE FILE 134 FOR THE LATEST VERSION OF * FILE 296
THIS PROGRAM. * FILE 296
* FILE 296
06. HEL - SEE FILE 134 FOR THE LATEST VERSION OF * FILE 296
THIS PROGRAM. ON FILE 134, HEL IS NOW AN * FILE 296
ALIAS OF REVIEW. * FILE 296
* FILE 296
07. XEQ - A COMMAND PROCESSOR THAT IS DESIGNED TO * FILE 296
LOAD AND EXECUTE (ATTACH) A PROGRAM IN ONE OF THE * FILE 296
SYSTEM LINK LIBRARIES OR A USER LIBRARY (TASKLIB) * FILE 296
* FILE 296
08 COMPARE - A SOMEWHAT MODIFIED VERSION OF THE * FILE 296
YALE COMPARE PROGRAM * FILE 296
* FILE 296
is from Michael Cleary and is an ISPF dialog to * FILE 297
provide an interactive interface to the GRS (Global * FILE 297
Resource Serialization) queue. * FILE 297
* FILE 297
Contact: * FILE 297
Michael J. Cleary * FILE 297
Mainframe Technical Services * FILE 297
Bergen Brunswig * FILE 297
4000 Metropolitan Drive * FILE 297
Orange, CA 92668 * FILE 297
Voice: 714.385.4052 * FILE 297
Fax 714.704.7052 * FILE 297
Email: mike.cleary@bergenbrunswig.com * FILE 297
http: www.bergenbrunswig.com * FILE 297
* FILE 297
Description: * FILE 297
GRS ISPF Interface * FILE 297
* FILE 297
Function: * FILE 297
Provides an interactive view of the Global Resource * FILE 297
Serialization (GRS) queue. A high level resource * FILE 297
list is displayed based on user specified selection * FILE 297
criteria. From the high level resource list, * FILE 297
individual resource details can be accessed. * FILE 297
* FILE 297
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
CONTAINS THE SOURCE FOR THE TAPEMAP PROGRAM. THIS * FILE 299
VERSION IS A COMPILATION OF THE ORIGINAL CODE FROM * FILE 299
UCLA (THAT USED TO BE IN FILE 149) AND THE MODIFIED * FILE 299
CODE THAT USED TO BE IN FILE 316 FROM THE AIR FORCE, * FILE 299
AND INCLUDES MANY ADDITIONAL CHANGES FROM VARIOUS * FILE 299
PLACES. * FILE 299
* FILE 299
THIS PROGRAM WILL PROVIDE SPECIAL INFORMATION FOR * FILE 299
TAPE FILES CREATED BY IEBCOPY, IEHMOVE, IEBISAM, * FILE 299
IEHDASDR, OR IN SMPPTFIN FORMAT. IN ADDITION, IF * FILE 299
A FILE CONTAINS AN IEBUPDTE INPUT STREAM THE * FILE 299
MEMBERS IN THE STREAM WILL BE LISTED. * FILE 299
* FILE 299
THIS PROGRAM WILL ALSO PROVIDE SPECIAL * FILE 299
INFORMATION FOR CBT MVS UTILITIES TAPES CREATED * FILE 299
WITH CBT973. IEBUPDTE INTERPRETATION IS DONE FOR * FILE 299
CBT973-COMPRESSED FILES. * FILE 299
* FILE 299
ALSO, MACROS IN MEMBERS THAT ARE THEMSELVES MACRO * FILE 299
LIBRARIES (IN IEBUPDTE FORMAT WITH ./ CHANGED TO ><) * FILE 299
WILL BE LISTED. THUS, WITH THIS TAPEMAP YOU CAN * FILE 299
FIND ALMOST ANY MEMBER NAME ON THE CBT TAPE. * FILE 299
* FILE 299
SEE ALSO THE LOAD MODULE FOR TAPEMAP ON FILE 035. * FILE 299
* FILE 299
PARENTHETICAL NOTE: * FILE 299
* FILE 299
THE OLD VERSION OF TAPEMAP, CALLED TAPEMAPO, IS * FILE 299
INCLUDED BOTH ON THIS FILE, AND ON FILE 035. THE * FILE 299
NEWER VERSION WAS REVISED BY RON TANSKY OF WEBCRAFT * FILE 299
IN CHALFONT, PENNSYLVANIA. DUE TO THE TEDIOUSNESS * FILE 299
OF TESTING ANY NEW VERSION OF TAPEMAP, ITS OLD * FILE 299
VERSION HAS NOT BEEN DELETED, JUST IN CASE THE NEW * FILE 299
VERSION AFFECTS SOME OF THE CODE THAT WORKED BEFORE. * FILE 299
YOU CAN SIMPLY SAY EXEC PGM=TAPEMAPO, INSTEAD. * FILE 299
I'VE TESTED THE NEW VERSION, BUT WE'RE TRYING TO BE * FILE 299
ON THE SAFE SIDE. (TAPEMAP IS READ-ONLY ANYWAY.) * FILE 299
* FILE 299
CONTAINS MANY TSO CPS AND OTHER GOOD THINGS. CODE * FILE 300
FROM JIM MARSHALL (AIR FORCE RETIREE) NOW WITH THE * FILE 300
US TREASURY OUTSIDE WASHINGTON DC. THIS FILE IS * FILE 300
IN IEBUPDTE SYSIN FORMAT. JIM'S CURRENT ADDRESS IS * FILE 300
* FILE 300
JIM MARSHALL, US TREASURY * FILE 300
FINANCIAL MANAGEMENT SERVICE * FILE 300
PRINCE GEORGES PLAZA II - ROOM 400B * FILE 300
3700 EAST-WEST HIGHWAY * FILE 300
HYATTSVILLE, MD 20782 * FILE 300
202-874-8353 * FILE 300
* FILE 300
email: jim.marshall@fms.treas.gov * FILE 300
* FILE 300
RELEASE 27 - 01 MAY 92 * FILE 300
(SOME MEMBERS WERE UPDATED LATER - SG 2/99) * FILE 300
* FILE 300
SUMMARY OF THE MODULES CONTAINED. * FILE 300
* FILE 300
CP REL DESCRIPTION * FILE 300
* FILE 300
$#SVCKP 1 - MACRO USED IN SOME OF THE PROGRAMS TO * FILE 300
INVOKE SVC TO GET ME BACK TO PROBLEM * FILE 300
STATE FROM SUPERVISOR STATE. * FILE 300
* FILE 300
$#SVCKS 1 - MACRO USED IN SOME OF THE PROGRAMS TO * FILE 300
INVOKE SVC TO GET ME TO SUPERVISOR STATE * FILE 300
FROM PROBLEM STATE. YOU SHOULD USE YOUR * FILE 300
OWN SVC MECHANISM HERE. * FILE 300
* FILE 300
$DI 6X - OPERATOR LIKE $DI COMMAND. * FILE 300
* FILE 300
ABEND# 3X - NOT A COMMAND BUT A HELP ENTRY FOR ABEND * FILE 300
CODES AND SOME OF THE COMMON REASONS * FILE 300
YOU MAY GET THEM. UPDATED FOR MVS. * FILE 300
* FILE 300
ASK 1Y - CLIST. USE CMD TO ASK A QUESTION AND * FILE 300
GET A YES OR NO BACK, THUS SETTING A * FILE 300
RETURN CODE. (WAS AROUND IN MY MVT DAYS * FILE 300
AND IS OBSOLETE WITH MVS CLIST LANGUAGE) * FILE 300
* FILE 300
ASMG 1Y - DO ASSEMBLY LANGUAGE COMPILES * FILE 300
INTERACTIVELY IN ASSEM-G. IS SIMILIAR * FILE 300
TO ONE IN THIS FILE FOR ASSEM-H. BOTH * FILE 300
SHOULD WORK FOR OS/MVT AND MVS. * FILE 300
* FILE 300
ASMH 4X - DO ASSEMBLY LANG COMPILES INTERACTIVELY. * FILE 300
CAN GET IBM PROD WHICH IS SUPERIOR. * FILE 300
THIS IS FREE. HAVE A 'SYS2.MACLIB' * FILE 300
DEFINED IN THIS ONE FOR USERS GENERALLY * FILE 300
HAVING USER MACLIB. CHECKED THIS ONE * FILE 300
OUT FOR MVS/XA. * FILE 300
* FILE 300
ASMHNOX 1 - ZAP TO THE IBM P.P. ASSEMBLER H TO FIX A * FILE 300
BUG SAYING 'NOXREF' YOU GET 'XREF(FULL)'. * FILE 300
PTF LEVEL-21 MADE XREF DEF TO XREF(FULL) * FILE 300
AND INTRODUCED THE ERROR DESCRIBED ABOVE. * FILE 300
NOTE: ASSEMBLER H IS CLASS C (VERSION 1) * FILE 300
* FILE 300
ASMF 2 - DO ASSEMBLY LANG COMPILES INTERACTIVE. * FILE 300
CAN GET THE IBM PRODUCT WHICH IS * FILE 300
SUPERIOR, BUT THIS ONE IS FREE. HAVE A * FILE 300
'SYS2.MACLIB' DEFINED IN THIS ONE FOR * FILE 300
USERS GENERALLY HAVING A USER MACLIB. * FILE 300
THIS ONE USES THE ASMXF (IFOX00). NOTE * FILE 300
THAT SOURCE FOR THIS IS ASMH PROMPTER * FILE 300
WITH SOME SYSPARMS CHANGED. * FILE 300
* FILE 300
CALC 1X - TSO CALCULATOR PGM. HAS 1 ACCUMULATOR * FILE 300
AND 9 REGISTERS. CAN DO FUNCTIONS LIKE * FILE 300
SIN, COS, ETC, OR YOU CAN DEFINE YOUR * FILE 300
OWN. (PLI-OPT) * FILE 300
* FILE 300
CATPW 1X - BILL GODFREY: DISPLAY PASSWORDS TO YOUR * FILE 300
ICF MASTER CATALOG. * FILE 300
* FILE 300
CDSCB 3 - ZAP FORMAT-1 DSCB OF DATASETS ON THE FLY. * FILE 300
USEFUL FOR SYSTEM TYPES !!!! * FILE 300
(NOW UPDATED BY BILL GODFREY FOR 21ST * FILE 300
CENTURY SUPPORT - SG 9/98. ALSO BY * FILE 300
GREG PRICE - 2/99. HELP updated 07/99.) * FILE 300
* FILE 300
CLRSCRN 1X - CLEAR THE SCREEN ON 3270. * FILE 300
* FILE 300
CLR2000 1Y - CLEAR SCREEN ON HAZELTINE 2000 TTY TUBE * FILE 300
* FILE 300
CMDLOFF 1X - PASS A TSO COMMAND TO TSO CP AND WHEN IT * FILE 300
COMPLETES THE USER WILL BE LOGGED OFF. * FILE 300
INTERESTING IF YOU THINK ABOUT IT !!!! * FILE 300
* FILE 300
COBOLCHK 3X - AFDSC DEVELOPED CHEAP COBOL PROMPTER. * FILE 300
COBOL COMPILES(COBOLVS) INSIDE TSO, ONLY * FILE 300
GIVING ERRS AT TERMINAL. USES 'SYNTAX' * FILE 300
OPT OF COMPILER AND IS GREAT FOR SLOW * FILE 300
SPEED TERMINALS. * FILE 300
* FILE 300
COB2CHK 2X - VS/COBOL II R3.1 VERSION OF COBOLCHK. * FILE 300
* FILE 300
COMPARE 3X - COMPARE 2 FILES IN FOREGROUND. BASED ON * FILE 300
YALE UNIV COMPARE PGM. OPTIONALLY, YOU * FILE 300
CAN ASK FOR IBM'S IEBCOMPR UTILITY PGM * FILE 300
INSTEAD. MODIFIED YALE'S COMPARE PGM * FILE 300
AND CALLED IT COMPAREB. * FILE 300
* FILE 300
COMPRESS 2 - COMPRESS A PDS IN FOREGROUND. * FILE 300
* FILE 300
CONCAT 2X - CONCAT 2-9 FILES TOGETHER. MVS ALLOC * FILE 300
CMD CAN DO IT, BUT WE RUN PROGRAM * FILE 300
CONTROL FACILITY (PCF). THUS IF THE * FILE 300
CUSTOMER FREES A FILE THAT IS SYS1, * FILE 300
THEN THEY CANNOT ALLOCATE IT BACK. * FILE 300
* FILE 300
COPYPDS 4X - COPIES A PDS TO ANOTHER PDS. ALLOWS YOU * FILE 300
TO COPY MEMBERS WITH A SELECT STATEMENT * FILE 300
AND ALSO SPECIFY THE ALIAS ENTRIES. * FILE 300
* FILE 300
COPYSDS 3X - COPY ONE SEQUENTIAL DATASET TO ANOTHER * FILE 300
SEQUENTIAL DATASET WITH SKIP, MAX NUMBER, * FILE 300
ETC, ETC. * FILE 300
* FILE 300
COUNT 1X - COUNT THE NUMBER OF RECORDS IN A FILE. * FILE 300
* FILE 300
CPSCB 1 - CHANGE YOUR PROTECTED STEP CONTROL BLOCK * FILE 300
(PSCB) ON THE FLY TO GIVE YOURSELF * FILE 300
THINGS LIKE MOUNT AUTHORITY ETC. SHOULD * FILE 300
PROBABLY RESTRICT THIS TO SYSTEMS ONLY. * FILE 300
* FILE 300
CVD 1X - BILL GODFREY: CONVERTS HEX NUMBER TO DEC * FILE 300
* FILE 300
CVX 1X - BILL GODFREY: CONVERTS DEC NUMBER TO HEX * FILE 300
* FILE 300
DA 4X - DISPLAY ACTIVE COMMAND TO GIVE THE USERS * FILE 300
A PICTURE OF THE SYSTEM. THEY LIKE TO * FILE 300
SEE HOW MUCH TIME THE JOB HAS !!!! * FILE 300
* FILE 300
DAJOB 4X - DISPLAY ACTIVE CMD, HAS TSO USERS TOO * FILE 300
AND WHAT LOGON PROC THEY USE. * FILE 300
* FILE 300
DAPF 2X - DISPLAY APF AUTHORIZED LIBRARY LIST USED * FILE 300
DURING THIS IPL. PROBABLY WON'T WORK * FILE 300
FOR MVS/ESA 4.3 DYNAMIC AUTHORIZATION, * FILE 300
BUT WILL WORK UNTIL THEN. * FILE 300
* FILE 300
DATE 2X - GIVES THE DATE AND TIME FROM THE SYSTEM. * FILE 300
* FILE 300
DD 4 - SHORT FORM OF ALLOCATE FOR AN EXISTING * FILE 300
FILE. IT IS FASTER THAN ALLOCATE. * FILE 300
UPDATED TO LET YOU ALLOCATE A NEW FILE * FILE 300
ALSO. * FILE 300
* FILE 300
DECONCAT 2X - REVERSE OF THE CONCAT COMMAND. * FILE 300
* FILE 300
DELAY 1 - SPECIFY A NUMBER OF SECONDS AND * FILE 300
HAVE YOU WAIT THAT LONG. * FILE 300
* FILE 300
DEX 1 - TSO HEXADECMAL CALCULATOR PROGRAM. * FILE 300
* FILE 300
DISPLAY 1Y - SHOWS CONTROL BLOCKS LIKE THE UCB ETC. * FILE 300
* FILE 300
DLINK 2X - DISPLAY LINKLIST CMD TO SHOW LIBRARIES * FILE 300
WHICH ARE BEING USED THIS IPL. * FILE 300
* FILE 300
DLPA 2X - DISPLAY LPA LIST OF LIBRARIES IN EFFECT * FILE 300
FOR THIS IPL. * FILE 300
* FILE 300
DLXAUTHC 1 - THIS CMD IS FROM MIKE LOOS, FAIR, ISAAC * FILE 300
AND CO. IT WILL ISSUE THE COMMAND * FILE 300
PASSED TO IT AFTER SETTING THE JSCBAUTH * FILE 300
BIT ON. WHEN THE COMMAND COMPLETES, THE * FILE 300
JSCBAUTH BIT WILL BE SET OFF. THE JSCB * FILE 300
TAMPERING IS DONE IN A USER SVC (YOUR * FILE 300
OWN). YOU MUST REPLACE THE USERSVC * FILE 300
MACRO WITH YOUR OWN INTEGRITY VIOLATION. * FILE 300
THIS COMMAND IS ESPECIALLY USEFUL FOR * FILE 300
ENTERING RACF COMMANDS FROM ISPF * FILE 300
DIALOGS. FOR EXAMPLE: * FILE 300
* FILE 300
DLXAUTHC LISTDSD DA('DSN1.EXAMPLE') ALL * FILE 300
* FILE 300
DLVLDSS 2X - DISPLAY DF/DSS LEVEL ON YOUR SYSTEM. * FILE 300
* FILE 300
DOPROG 1X - GIVES THE USER THE 'CALL' COMMAND * FILE 300
FUNCTION BY ATTACHING A PROGRAM. * FILE 300
* FILE 300
DSNCHECK 1X - GTELABS CMD TO CHECK FOR EXISTENCE OF * FILE 300
CATALOGED DSN NAME AND CAN CHECK FOR A * FILE 300
MEMBER WITHIN A PDS (SETS &LASTCC FOR * FILE 300
CLIST). * FILE 300
* FILE 300
DSPRIN 1X - DONATION FROM VPS PEOPLE (LRS) OF AN * FILE 300
EARLY VERSION OF A CMD THAT TAKES * FILE 300
DSPRINT COMMAND ISSUED OUT OF ISPF AND * FILE 300
REFORMATS THE COMMAND INTO A 'PRINTOFF'. * FILE 300
THIS CAME TO LRS BY WAY OF BILL SMITH, * FILE 300
FORMERLY OF SYNTEX. THANKS ALL !!!! * FILE 300
* FILE 300
DSPRINT 1X - BILL GODFREY: TAKES THE FORMAT OF THE * FILE 300
IBM COMMAND AND DOES IT INSTEAD OF * FILE 300
REFORMATTING THE COMMAND AND ISSUING * FILE 300
A 'PRINTOFF' AS ABOVE. * FILE 300
* FILE 300
DSMF 2X - OPERATOR-LIKE 'D SMF' COMMAND. * FILE 300
* FILE 300
DSVC 1X - DISPLAY YOUR SVC LIST IN EFFECT FOR IPL. * FILE 300
* FILE 300
DUDASD 4X - OPERATOR-LIKE 'D U,DASD' CMD. UPDATED * FILE 300
WITH NEW UCB SCAN ROUTINE AND ENHANCED * FILE 300
TO SHOW VOLUME STATE, DEVICE TYPE (LIKE * FILE 300
3380), AND WHICH VOLUME IS THE IPL * FILE 300
DEVICE. ALSO CLEANED UP CODE, DOCUMENT, * FILE 300
ETC. ALSO CHECKS TO SEE IF THE VTOC IS * FILE 300
INDEXED OR UNINDEXED, AND IF SHARED. * FILE 300
* FILE 300
DUDASDR 1Y - OPERATOR-LIKE D U,DASD CMD (OLD VERSION) * FILE 300
* FILE 300
DUTAPE 3X - OPERATOR-LIKE D U,TAPE CMD. CODED WITH * FILE 300
NEW UCB SCAN ROUTINE AND ENHANCED TO SHOW * FILE 300
DEVICE TYPE (LIKE 3380). * FILE 300
* FILE 300
DUSER 1X - SHOW THE USERIDS CURRENTLY LOGGED ON TSO. * FILE 300
* FILE 300
ECHO 1X - TYPE IN A LINE AND HAVE IT ECHOED BACK TO * FILE 300
THE TERMINAL IN HEX. * FILE 300
* FILE 300
EDAIR30 1 - SUBPROGRAM. AN ENHANCED VERSION OF * FILE 300
IKJDAIR FOR ALLOCATING A SYSOUT DATASET. * FILE 300
* FILE 300
ERROR# 2 - NOT A COMMAND BUT A HELP ENTRY FOR * FILE 300
RETURN CODE YOU CAN GET FROM DAIR * FILE 300
ALLOCATION. UPDATED FOR MVS. * FILE 300
* FILE 300
FREEALL 4X - MVS VERSION OF THE FAMOUS 'FREEALL' CMD * FILE 300
TO FREE DYNAMICALLY ALLOCATED DATASETS. * FILE 300
AFDSC MODIFIED TO FREE ALL DATASETS * FILE 300
WHICH: * FILE 300
A. HAVE BEEN DYNAMICALLY ALLOCATED. * FILE 300
B. ARE NOT CURRENTLY IN USE. * FILE 300
C. ARE NOT CURRENTLY OPEN. * FILE 300
D. ARE NOT ALLOCATED TO DDNAME=SYSPROC. * FILE 300
* FILE 300
FINDFILE 1 - DISPLAYS WHERE A DATASET IS CATALOGED * FILE 300
AND LISTS ALL MOUNTED DASD ON WHICH THE * FILE 300
DATASET RESIDES. NOTE: ON CBT TAPE AS * FILE 300
'LOCDSN'. 'FINDFILE' MORE DESCRIPTIVE. * FILE 300
* FILE 300
FORTP 2X - DO FORTRAN G1 COMPILES INTERACTIVELY. * FILE 300
SEE JCL INSTALL. IT IS SLICK AND NOT * FILE 300
JUST A SIMPLE COMPILE, LINKEDIT. NOT * FILE 300
COMPLICATED BUT YOU USE THE SAME * FILE 300
SOURCE CODE WITH SYSPARM OPTIONS TO * FILE 300
COMPILE 2 MODULES. * FILE 300
* FILE 300
FORTX 1 - FORT X (EXTENDED) COMPILES INTERACTIVELY. * FILE 300
IBM'S FORT PRODUCT IS SUPERIOR, BUT THIS * FILE 300
IS FREE. * FILE 300
* FILE 300
GDDM 2X - GDDM PGMS WRITTEN MOSTLY IN FORTRAN. * FILE 300
SPACE SHUTTLE, X-29, ETC. WILL WORK WITH * FILE 300
OS/360 FORTRAN G ON THE TAPE. FORT-G * FILE 300
RUNS ON MVS/XA FINE, AND FOR THOSE WITH * FILE 300
NO FORTRAN, IT IS BETTER THAN NOTHING. * FILE 300
THE MEMBER HAS '><' IN PLACE OF './' IN * FILE 300
THE './ ADD' CARDS. LOOK AT THE MEMBER * FILE 300
TO SEE THE SOURCE AND THE SAMPLE JCL. * FILE 300
* FILE 300
GFREEALL 1 - GOT FROM GTELABS. THEIR VERSION OF * FILE 300
SAME CMD CALLED 'FREEALL' THAT IS ON * FILE 300
THIS TAPE. * FILE 300
* FILE 300
GSTREAM 1 - GOT FROM GTELABS. THEIR VERSION OF SAME * FILE 300
CMD CALLED 'INSTREAM' THAT IS ON THIS * FILE 300
TAPE. * FILE 300
* FILE 300
GTEMACS 1 - MACROS FROM GTELABS NEEDED FOR TSO CMDS * FILE 300
FROM CHUCK HOFFMAN. USE 'PDSLOAD' * FILE 300
(IEBUPDTE LIKE PGM) FROM FILE 093 * FILE 300
TO DOWNLOAD. OR JUST LOOK AT MACROS. * FILE 300
YOU WILL SEE HOW THE MEMBER IS BUILT. * FILE 300
MACROS: EQ$R, LINKSAVE, LINKBACK, * FILE 300
GTEDAALC, GTEDADAT, GTEDADOC, GTEDASET. * FILE 300
* FILE 300
IKJEBMA9 3 - EXAMPLE OF MVS EDIT SUB-COMMAND TABLE & * FILE 300
WHAT YOU CAN MAKE VALID SUB-COMMANDS. * FILE 300
HAS THE AFDSC SUB-COMMANDS OF EDIT IN * FILE 300
THE TABLE. * FILE 300
* FILE 300
IKJCT44B 1X - USED IN TSO CLIST LANGUAGE TO CREATE OWN * FILE 300
VARIABLES STARTING WITH "&SYSX.." THANKS, * FILE 300
CHICAGO SOFT, IT WAS IN 'TSO TIMES'. * FILE 300
* FILE 300
IKJEFF10 1 - AFDSC IPO BASED TSO SUBMIT EXIT. * FILE 300
THIS IS RELATIVELY SIMPLE. FORCES THE * FILE 300
FOLLOWING RESTRICTION ON A TSO USER * FILE 300
1. JOBNAME ON SUBMITTED JOB CARD * FILE 300
MUST BE USERID PLUS ONE CHARACTER. * FILE 300
2. PROGRAMMER NAME FIELD (8 OR LESS * FILE 300
CHAR) IN UADS MUST MATCH PROGRAMMER * FILE 300
NAME (8 OR LESS ON JOB CARD). * FILE 300
* FILE 300
IKJEFF53 1 - AFDSC IPO BASED TSO 'STATUS/OUTPUT/CANCEL'* FILE 300
EXIT. A LOT OF POSSIBILITIES IN CODE. * FILE 300
* FILE 300
IKJE9CL 1 - 'COLS'. 2ISG DEVELOPED EDIT SUBCMD PRINT * FILE 300
COLUMN NUMBERS ON YOUR TERMINAL. LIKE * FILE 300
ISPF/PDF OPTION 2 'COLS' CMD. * FILE 300
* FILE 300
IKJE9CT 1 - 'COUNT'. AFDSC DEVELOPED EDIT SUBCMD. * FILE 300
GIVES THE NUMBER OF RECORDS YOU ARE * FILE 300
CURRENTLY EDITING. * FILE 300
* FILE 300
IKJE9CX 1 - 'CHANGEX' AFDSC DEVELOPED SUBCOMMAND OF * FILE 300
EDIT. PERFORMS THE SAME FUNCTION AS * FILE 300
CHANGE, BUT USES HEX STRINGS. * FILE 300
* FILE 300
IKJE9DU 1 - 'DUP' AFDSC DEVELOPED EIDT SUBCMD. SAME * FILE 300
FUNCTION AS SPF REPEAT BUT ONLY ON 1 LINE * FILE 300
CAN REPEAT EXISTING LINE OR MAKE A COPY * FILE 300
OF AN EXISTING LINE ELSEWHERE & REPEAT IT.* FILE 300
* FILE 300
IKJE9FX 1 - 'FINDX'. AFDSC DEVELOPED EDIT SUBCMD. * FILE 300
DOES A FIND, SPECIFY A HEX CHAR STRING. * FILE 300
* FILE 300
IKJE9OF 1 - 'OFFLINE'. AFDSC EDIT SUBCMD TO 'SPINOFF' * FILE 300
PRT FILE YOU ARE CURRENTLY EDITING (ARE * FILE 300
NOT REQUIRED TO SAVE 1ST). CAN 'DEST' TO * FILE 300
RMTS, ETC. SEE THE HELP FOR SPECIFICS. * FILE 300
* FILE 300
IKJE9LT 1 - 'LISTTABS'. FOUND BY AFDSC. BACK FROM MVT * FILE 300
DAYS, CONVERTED BY BOB HANSEN (SEC) FOR * FILE 300
MVS. LISTS YOUR CURRENT EDIT TABS FOR YOU * FILE 300
* FILE 300
IKJE9LX 1 - 'LISTX'. AFDSC DEVELOPED SUBCMD OF * FILE 300
EDIT TO DISPLAY TO YOUR TERMINAL, LINES * FILE 300
OF A DATASET BEING EDITED IN HEX FORMAT. * FILE 300
* FILE 300
IKJE9NA 1 - 'NAME'. AFDSC DEVELOPED SUBCMD OF * FILE 300
EDIT TO TELL THE NAME OF THE FILE OR * FILE 300
MEMBER OF PDS YOU'RE CURRENTLY EDITING. * FILE 300
IT'S EMBARASSING IF YOU FORGET. * FILE 300
* FILE 300
IKJE9PT 1 - 'PUT'. AFDSC DEVELOPED SUBCMD OF EDIT TO * FILE 300
PUT CHARACTER STRINGS IN CERTAIN COLUMNS. * FILE 300
NICE FOR USERS OF ASYNC TERMINALS * FILE 300
WHO DO NOT HAVE SPF. * FILE 300
* FILE 300
IKJE9SP 1 - 'SPOT'. AFDSC DEVELOPED EDIT SUBCMD, * FILE 300
SPOT CHARACTER STRINGS IN DATA. AGAIN * FILE 300
NICE FOR ASYNCH TERMINALS WHO DO NOT * FILE 300
HAVE SPF. CONTAINS A SELECT & EXCLUDE * FILE 300
FUNCTION FOR DELETION OF RECS THAT FIT A * FILE 300
PATTERN. SEE THE HELP ENTRY FOR MORE * FILE 300
DETAILS. * FILE 300
* FILE 300
IKJE9SS 2 - 'SAVESHR'. AFDSC DEVELOPED EDIT SUBCMD * FILE 300
TO ALLOW SAVE WITH DISP=SHR. EDIT HAS * FILE 300
NASTY HABIT OF TRYING TO GET DISP=OLD * FILE 300
WHEN YOU SAVE; THUS IF YOU NEED TO SAVE * FILE 300
SOMETHING INTO A FILE ALLOCATED ALL THE * FILE 300
TIME, TOUGH !!!!! NOTE - APAR AZ57430 * FILE 300
APPLIED. * FILE 300
* FILE 300
IKJT9$ 1 - UPDATE SUBCMD TABLE OF TEST FOR * FILE 300
FOLLOWING SUBCMDS: * FILE 300
* FILE 300
IKJT9FI 1 - 'FIND' SUBCOMMAND OF THE TSO TEST CMD. * FILE 300
* FILE 300
IKJT9LB 1 - 'LIST BREAKPOINTS' SUBCMD OF TSO TEST CMD * FILE 300
* FILE 300
IKJT9LI 1 - 'LIST' SUBCMD (2ND LOAD) OF TSO TEST CMD. * FILE 300
* FILE 300
IKJT9MAC 1 - MACROS NEEDED FOR ABOVE ASSEMBLIES. * FILE 300
* FILE 300
INFOSYS 2X - TSO CMD, EXECUTE IBM PRODUCT 'INFOSYS'. * FILE 300
* FILE 300
INMXPARM 2X - SAMPLE OF THE PARMS FOR TSO/E TRANSMIT & * FILE 300
RECEIVE. * FILE 300
* FILE 300
INMXZ02 2X - TSO/E TRANSMIT EXIT, NOTIFYING TSO USERS * FILE 300
ON SAME NODE THAT A FILE HAS BEEN SENT * FILE 300
TO THEM. GOTTEN FROM TUCC, JES2 MODS TAPE * FILE 300
AND MODIFIED BY ME. THANKS TUCC. * FILE 300
* FILE 300
INSTREAM 1 - AFDSC DEVELOPED CMD TO BE USED IN CLIST * FILE 300
PUT CONTROL CARDS INSIDE OF CLISTS. CAN * FILE 300
BE USER INPUT FROM THE TERMINAL. NICE. * FILE 300
* FILE 300
IO (T) - LIST I/O COUNTS FOR EACH FILE IN YOUR * FILE 300
TSO SESSION. * FILE 300
* FILE 300
JCLSCAN 1 - SHMUEL GOLOB SENT THIS TO ME. HE RAN IT * FILE 300
ON SP 1.3.5 AND XA 2.2.3 AND LOVES IT FOR * FILE 300
DOING A JCL CHECK PRIOR TO SUBMITTING. * FILE 300
HAS A PGM AND AN SVC TO INSTALL. TRY IT. * FILE 300
* FILE 300
JULIAN 1X - RETRIEVE THE DATE AND GREGORIAN DAY * FILE 300
FROM THE SYSTEM. ALSO CAN RETURN THE * FILE 300
SAME INFO FOR ANY YEAR AND DAY. * FILE 300
* FILE 300
Modified to accept 4-digit dates, by Steven * FILE 300
Peckham - 10/99 * FILE 300
* FILE 300
KOMM 1X - USED IN CLISTS FOR FORMATTING DISPLAYS IN * FILE 300
FULL SCREEN SUPPORT, 3270 TYPE TERMINALS. * FILE 300
* FILE 300
LASTCC# 1 - NOT A TSO COMMAND, BUT A HELP ENTRY OF * FILE 300
LIST OF ERROR CODES THAT CAN OCCUR IN * FILE 300
A CMD PROCEDURE (CLIST) INFO WAS COPIED * FILE 300
FROM MANUAL GC28-0646, TSO CMD LANG REF. * FILE 300
* FILE 300
LASTIPL 2X - DISPLAY THE JULIAN, GREGORIAN, AND * FILE 300
CALENDAR DATE PLUS THE TIME IN HH.MM THAT * FILE 300
YOUR SYSTEM WAS LAST IPL'ED. OPERATORS * FILE 300
DO ALWAYS TELL YOU TRUE STORIES ???? * FILE 300
* FILE 300
LIBCALL 1 - GTELABS CMD TRANSFERS CONTROL TO * FILE 300
MODULES WITH A 'CALL' TYPE PARAMTER * FILE 300
LIST, WITH A 'STEPLIB' OPTION. LIBCALL * FILE 300
ALSO CAN ACCEOT PGM PARMS IN LOWER * FILE 300
CASE. * FILE 300
* FILE 300
LISTAX 1X - SAME AS IBM 'LISTA' CMD BUT GIVES YOU * FILE 300
INFO YOU CAN USE, LIKE DDNAME, DISP, ETC * FILE 300
ETC. * FILE 300
* FILE 300
MACROS 1X - MACROS IN THE FILE HAVE BEEN PACKAGED * FILE 300
IN THIS MEMBER PRECEDED BY ./ CARDS. * FILE 300
* FILE 300
PACKAGED MOST OF THE MACROS PRECEDED BY * FILE 300
'><' CARDS INSTEAD OF './'. USE * FILE 300
'PDSLOAD' TO LOAD. SEE INSTALL * FILE 300
JOBSTREAM AND YOU WILL SEE HOW. DID IT * FILE 300
LIKE THIS FOR MACROS SO JUST DO A * FILE 300
PDSLOAD (LIKE IEBUPDTE) TO RUN THEM * FILE 300
INTO A TEMP PDS FOR YOUR ASSEMBLY. * FILE 300
* FILE 300
A-B C D-E F-Z * FILE 300
12345678 12345678 12345678 12345678 * FILE 300
$#SVCKP CPDATA DO08BLD GNRLFAIL * FILE 300
$#SVCKS CPEND DCS JVDENTER * FILE 300
$EPILOG CPENTER DCSPARS JVDEQU * FILE 300
$PROLOG CPENTRY EQUENT JVDLEAVE * FILE 300
CPEXIT EQUEXT MSGLPA * FILE 300
CPINIT EQUREG REGEQU * FILE 300
CVDT EQUREGS REGS * FILE 300
CVRT TMPMAC * FILE 300
* FILE 300
LISTCDS 2Y - LIST THE SMP4 CDS FILE (SYS1.SMPCDS). * FILE 300
* FILE 300
LISTLPA 1Y - LIST ATTRIBUTES OF MEMBERS OF LPALIB. * FILE 300
* FILE 300
LISTSPC 3X - LIST SPACE ATTRIBUTES OF A FILE ON DASD. * FILE 300
* FILE 300
LISTSU 1X - WORTHLESS CMD, LIST THE SU NUMBERS YOU * FILE 300
HAVE INSTALLED ON YOUR SYSTEM. * FILE 300
* FILE 300
LM 1 - LIST MEMBER NAMES OF A DIRECTORY OF PDS. * FILE 300
* FILE 300
LOGOBSC 1 - EXAMPLE OF VTAM LOGO SCREEN FOR * FILE 300
ACF/VTAM TO IMPRESS MGMT. PUT A LOT * FILE 300
OF COMMENTS AS TO HOW TO CODE BSC LOGO * FILE 300
SCREEN. BOOKS ARE NOT VERY CLEAR. * FILE 300
MADE MINE SO ANYONE COULD FILL IN A * FILE 300
PREDEFINED BOX AND USE MY CODE. * FILE 300
* FILE 300
LOGOSNA 1 - EXAMPLE OF VTAM LOGO SCREEN FOR * FILE 300
ACF/VTAM TO IMPRESS MGMT. PUT A LOT * FILE 300
OF COMMENTS AS TO HOW TO CODE SNA LOGO * FILE 300
SCREEN. BOOKS ARE NOT TOO BAD. MADE * FILE 300
MINE SO ANYONE COULD FILL IN A * FILE 300
PREDEFINED BOX AND USE MY CODE. * FILE 300
* FILE 300
LPSCB 1X - LIST PSCB (PROTECTED STEP CONTROL BLK). * FILE 300
* FILE 300
MEMBER 3X - SCAN A LIBRARY FOR A MEMBER. CAN BE * FILE 300
USED TO RUN THE LINK LIST FOR FIRST * FILE 300
OCCURRENCE OF THAT MEMBER, WILL ALSO * FILE 300
DISPLAY LKED ATTRIBUTES, CSECT, IDR * FILE 300
DATA, LINKLIST LIB NUMBER. SHOWS SPF * FILE 300
STATS FOR SOURCE DATA. * FILE 300
* FILE 300
MURPHY 4X - GET A THOUGHT FOR THE DAY. MUCH THANKS * FILE 300
TO PAUL BANKS, ALLERGAN PHARMACEUTICALS * FILE 300
IN IRVINE, CA FOR THE IDEA. THIS VERSION * FILE 300
IS FROM ART TANSKY OF SUNGARD IN VOORHEES * FILE 300
NEW JERSEY, AND WAS REVISED CONSIDERABLY. * FILE 300
* FILE 300
MURPHYO 3X - OLD VERSION OF MURPHY. THIS IS FROM * FILE 300
PAUL BANKS, FORMERLY OF ALLERGAN * FILE 300
PHARMACEUTICALS IN IRVINE, CALIFORNIA. * FILE 300
I HAVE ADDED SOME 'THOUGHTS'. * FILE 300
* FILE 300
NEWSPACE 1 - GTELABS CMD FOR EASILY CREATING NEW, * FILE 300
MODERATELY SIZED DATASETS & LIBS. * FILE 300
WRITTEN WITH BEGINNERS IN MIND. * FILE 300
EXECUTED FROM ISPF/PDF CMD LINE FOR * FILE 300
A FILE YOU SUDDENLY NEED. * FILE 300
* FILE 300
NEWISPF 1 - FOUND TSO CMD ON MODS TAPE USED WITH * FILE 300
NEW ISPF/PDF PRODUCT TO GET YOU INTO * FILE 300
THE PDF WITH THE CLIST. BUT IT USED * FILE 300
THE USER'S PREFIX INSTEAD OF THE USERID. * FILE 300
MADE SOME MINOR CHANGES TO IT AND * FILE 300
CHANGED NAME FROM 'PDF' TO 'NEWISPF'. * FILE 300
* FILE 300
OPERA 1Y - ALLOWS CONSOLE COMMANDS (EXCEPT JES2) * FILE 300
TO BE ENTERED FROM YOUR TSO TERMINAL. * FILE 300
USER MUST HAVE OPERATOR AUTHORITY. * FILE 300
* FILE 300
OUTPRINT 1Y - PRINTS A DATASET CREATED BY THE TSO * FILE 300
'OUTPUT' CMD, BUT YOU WILL GET PROPER * FILE 300
CARRIAGE CONTROL. SEE DOCUMENTATION * FILE 300
IN THE CODE FOR ALL THE FINE POINTS. * FILE 300
* FILE 300
PLIF TY - PL/1 F LEVEL PROMPTER. HAVE NOT TRIED * FILE 300
IT BECAUSE WE DO NOT RUN PL/1 F. SO * FILE 300
YOU ARE ON YOUR OWN. * FILE 300
* FILE 300
POF 3 - TSO CMD TO LET YOU DO VTAM COMMANDS FROM * FILE 300
YOUR TSO TERMINAL. BRIAN SCOTT, US POST * FILE 300
SERVICE, TOPEKA, KS. SENT ME THIS ONE. * FILE 300
VERY EASY TO INSTALL. SEE CODE FOR SOME * FILE 300
AUTHORITY CHECKING AND PASSWORD FOR THE * FILE 300
VTAM ACB. HE GOT FROM FEDERAL EXPRESS. * FILE 300
* FILE 300
PPXIT 1Y - TEST YOUR PREPROMPT EXIT (IKJEFLD) WITH * FILE 300
THIS ROUTINE LOGON JUST AS IF YOU WOULD * FILE 300
LOGON ORDINARILY, EXCEPT INSTEAD OF * FILE 300
'LOGON USER' YOU SAY 'PPXIT USER'. IT * FILE 300
WILL GIVE YOU ALL THE MSGS AND IF YOU * FILE 300
ABEND, AUTOMATICALLY GO INTO TEST FOR * FILE 300
DEBUGGING. SEE COMMENTS IN CODE. * FILE 300
* FILE 300
PRINTOFF 3X - AFDSC MODIFIED CMD. HAS 'ASA' ADDED TO * FILE 300
ALLOW PRTER TO USE 'ASA' CARRIAGE * FILE 300
CONTROL EVEN IF IT WAS NOT IN THE DCB OF * FILE 300
THE FILE TO BE PRINTED, HAS THE 'GTE' * FILE 300
MODS FOR FCB SUPPORT, ETC. CORRECTED 7 * FILE 300
CHAR DEST CODE LIMIT. FIXED THE * FILE 300
LIMITATION OF ONLY HAVING 7 CHARACTER * FILE 300
DESTID'S FOR JES2. NOT COOL, BOOK SAYS * FILE 300
YOU CAN HAVE 8 CHARACTERS. * FILE 300
* FILE 300
PUNCH 1 - PUNCH A CARD DECK. HAS THE OPTION TO * FILE 300
HOLD THE OUTPUT FOR REVIEW BEFORE YOU * FILE 300
LET IT GO TO BE PUNCHED. * FILE 300
* FILE 300
QCB 1Y - REPLACEMENT FOR WHOHAS CMD. MORE * FILE 300
POWERFUL MAY NEED TO BE REWORKED FOR * FILE 300
MVS/SP1.3. * FILE 300
* FILE 300
QLIST 1X - AFDSC DEVELOPED COMMAND TO DO MOST OF * FILE 300
ALL THE IBM TSO DATA UTIL 'LIST' DOES * FILE 300
BUT IN SOME AREAS IT IS FASTER & MORE * FILE 300
EFFICIENT. * FILE 300
* FILE 300
RACFALT 1Y - THIS PROGRAM FROM MIKE LOOS, FAIR, ISAAC * FILE 300
AND CO. IT WILL GENERATE A CLIST TO * FILE 300
CHANGE THE VOLUME SERIAL NUMBERS IN RACF * FILE 300
PROFILES OF ALL NONVSAM DATASETS ON A * FILE 300
SPECIFIC VOLUME. * FILE 300
* FILE 300
RACFCLST 1Y - PROGRAM IS FROM MIKE LOOS, FAIR, ISAAC * FILE 300
AND CO. IT WILL GENERATE A CLIST TO * FILE 300
REDEFINE (VIA RACF CMDS DELSD, ADDSD, * FILE 300
AND PERMIT) FOR ALL DATASETS ON A * FILE 300
SPECIFIED VOLUME. DUE TO USE OF RACF * FILE 300
INTERNAL MACROS THIS PROGRAM MUST BE * FILE 300
RUN AUTHORIZED. IF SYSIN IS PRESENT, * FILE 300
YOU CAN INCLUDE CMDS TO SELECT BY DSN * FILE 300
GROUP ON A VOLUME AND/OR DATASET NAME * FILE 300
WITH OR WITHOUT VOLUME SPECIFICATION. * FILE 300
WARNING: IF SYSIN IS PRESENT AND * FILE 300
DUMMIED OUT OR EMPTY THEN A NULL CLIST * FILE 300
WILL BE CREATED. * FILE 300
* FILE 300
REVIEW 6Y - FULL SCREEN BROWSE, 3270 TYPE * FILE 300
TERMINALS. RESEMBLANCE TO ISPF BROWSE * FILE 300
IS PURELY A CHANCE OF FATE. ARE SOME * FILE 300
BUGS IF YOU TRY TO BROWSE SMF FILES * FILE 300
(VARIABLE LENGTH RECS) BUT SHOULD BE * FILE 300
FINE FOR SANE THINGS LIKE PDS'S AND * FILE 300
SOURCE. SMF CODE HAS BEEN EXPANDED * FILE 300
AND 'FINDSMF' SUBCMD ADDED. * FILE 300
(THIS ONE IS OLD - USE "REVIEW" FROM FILE 134.) * FILE 300
* FILE 300
REVSMF 1Y - SUBROUTINE NEEDED BY REVIEW WHEN * FILE 300
LOOKING AT SMFDATA. * FILE 300
(THIS ONE IS OLD - USE "REVSMF" FROM FILE 134.) * FILE 300
* FILE 300
RLSE 3 - AFDSC MODIFIED CMD. RELEASE SPACE OUT * FILE 300
OF A PDS OR SEQ FILE. PREVIOUS VERSIONS * FILE 300
RELEASED ALL THE SPACE. OURS WILL ALLOW * FILE 300
YOU TO RELEASE DOWN TO PRIMARY EXTENT OR * FILE 300
OR SPECIFY THE AMOUNT TO BE RELEASED. * FILE 300
* FILE 300
SAFECOPY 1 - GTELABS COPY CMD, ENABLES SEVERAL USERS * FILE 300
TO UPDATE SAME DSN SIMULTANEOUSLY, * FILE 300
WITHOUT CONFLICT WITH EACH OTHER OR WITH * FILE 300
USERS WHO ARE READING DSN. SAFECOPY IS * FILE 300
USEFUL IN CLISTS THAT WRITE TO A COMMON * FILE 300
DSN. * FILE 300
* FILE 300
SCRATCH TY - SCRATCH A DSN AND NOT GO THROUGH CATALOG. * FILE 300
* FILE 300
SHELP 1X - OBTAIN SUB-COMMAND HELPS FOR CMDS WITHOUT * FILE 300
ACTUALLY BEING IN THAT COMMAND. * FILE 300
* FILE 300
SHOWDS 4X - BILL GODFREY: DISPLAYS THE DATASET * FILE 300
ATTRIBUTES AND SPACE ALLOCATION. * FILE 300
* FILE 300
SHOWSPC 1X - SHOW THE SPACE ALLOCATION FOR DATASETS * FILE 300
ON A DISK. CAN MASK FOR THE NAMES. * FILE 300
LOOK AT IT FOR ALL CAPABILITIES. * FILE 300
* FILE 300
SHOWSS 2X - DISPLAYS SUBSYSTEM VECTOR TABLE AND SEE * FILE 300
SUBSYSTEMS CURRENTLY ACTIVE. OPTIONALLY * FILE 300
CAN RESET THE ADDRESS TO ZEROES IN CASE * FILE 300
SUBSYSTEM HAS ABENDED AND HAS NOT RESET * FILE 300
ADDRESS TO ZEROES. IF ZERO CAPABILITY * FILE 300
IS USED THEN YOU MUST BE AUTHORIZED. * FILE 300
* FILE 300
SOLICIT 1 - MAKE YOUR 3270 TYPE TERMINAL LOOK LIKE * FILE 300
IT WAS LOGGED OFF AND BACK TO 'NETSOL'. * FILE 300
THINK OF YOUR OWN USES FOR THIS ONE. * FILE 300
* FILE 300
SORTLNK 1X - FRONT-END FOR SORT FROM TSO. KEEPS FROM * FILE 300
GIVING SECURITY ACCESS FOR TSO CALL IF * FILE 300
SORT IS IN THE LINKLIST. * FILE 300
* FILE 300
SPFCOPY 1X - INVOKER OF IEBCOPY INTERACTIVELY UNDER * FILE 300
'ISPF' MENU 3.1 IEBCOPY MUST BE * FILE 300
AUTHORIZED AND SPF IS NOT. (PROBLEMS) * FILE 300
THIS GIZMO GETS THE AUTHORIZATION THRU * FILE 300
THE SPFSVC. * FILE 300
* FILE 300
SPFSVC 1 - SVC TO ALLOW ISPF/PDF MENU 3.1 COMPRESS. * FILE 300
* FILE 300
SPZAP 1 - TSO CP TO INVOKE 'AMASPZAP' * FILE 300
* FILE 300
SUBMITX 2Y - SUB FROM TSO JOB TO SECONDARY JES2. * FILE 300
IBM SAYS YOU CAN'T DO IT. BILL * FILE 300
GODFREY, PRC CORP HAS IT WORKING. * FILE 300
INCLUDED IN THIS CMD ARE ALIASES OF * FILE 300
OUTPUTX, STATUSX, AND CANCELX. READ * FILE 300
COMMENTS IN THE BEGINNING OF CODE FOR * FILE 300
SOME POINTS OF INTEREST. SEE SRC FILE * FILE 300
FOR MEMBER JESXRDR FOR SUBMITING FROM * FILE 300
AN INTRDR TO A SECONDARY JES2. ALL * FILE 300
NEEDS SOME REFINEMENT BUT IT WORKS SO * FILE 300
FAR. IN MVS/XA THIS PROBABLY DOES NOT * FILE 300
WORK. * FILE 300
* FILE 300
SYSDSN 1 - GTELABS CMD LIST NAMES OF EVERYONE * FILE 300
WHO HAS A DSN ALLOCATED, OR IS WAITING * FILE 300
FOR ALLOC. VERY USEFUL AFTER 'DATASET * FILE 300
IN USE' AND 'WAITING FOR DATASETS' MSGS. * FILE 300
* FILE 300
SYSID 1X - GETS MVS CONTROL BLK INTO ISPF VARIABLE, * FILE 300
CAN BE USED IN ISPF DIALOG. DONE IN ALC. * FILE 300
IS CODED 'REENTRANT'! YOU WILL SEE HOW. * FILE 300
* FILE 300
SYSOUT99 1 - SUBPROGRAM. ALLOCATES A SYSOUT DATASET. * FILE 300
* FILE 300
SYSTEM 3X - DISPLAY THE SYSTEM RELEASE, CPU ID, * FILE 300
MAIN STORAGE AMOUNT ONLINE & SYSTEM * FILE 300
IPL'D & IF RUNNING AS VM GUEST. * FILE 300
* FILE 300
S99DAIR 1 - SUBPROGRAM. ENHANCED VERSION OF IKJDAIR * FILE 300
FOR ALLOCATING '0008' (DSNAME), * FILE 300
'001C' (TERMINAL), AND '0030' (SYSOUT). * FILE 300
* FILE 300
TPRINT 1Y - DISPLAYS A MSG FROM A CLIST AT A * FILE 300
TERMINAL. OBSOLETE IN MVS TSO BUT * FILE 300
WORKS AND IS FAST. * FILE 300
* FILE 300
TO 1X - SHORTHAND FOR DOING TSO SEND CMD. DON'T * FILE 300
HAVE TO WORRY ABOUT QUOTES. EX AS * FILE 300
FOLLOWS: * FILE 300
TO TSOUSER WE AIN'T DUMMIES, LET'S QUIT * FILE 300
* FILE 300
TSOEXEC 1 - USE THIS RYO VERSION OF TSOEXEC IF YOU DO * FILE 300
NOT HAVE TSO/E R2. THANKS TO PAUL BANKS, * FILE 300
ALLERGAN PHARMACEUTICALS IN IRVINE, CA * FILE 300
* FILE 300
UADS 1 - LIST A UADS ENTRY LEAVING OUT PASSWORD. * FILE 300
GOOD FOR TECH SUPPORT PEOPLE. * FILE 300
NOTE: MUST BE ABLE TO HAVE * FILE 300
'SYS1.UADS' ALLOCATION PRIVILEGES THOUGH. * FILE 300
* FILE 300
UADS@ 1 - MACRO NEEDED FOR ASSEMBLY OF UADS. * FILE 300
* FILE 300
UCBSCAN 2X - NEAT CODE LOOKING AT MVS/XA UCB, GOOD * FILE 300
EXAMPLES HOW TO LOOK AT UCB/CHPIDS/PATHS * FILE 300
AND OTHER GOOD THINGS. CAME FROM MARK * FILE 300
V. HEDGES. * FILE 300
* FILE 300
UNITS 1 - TSO CMD SHOWS UNIT NAMES IN DEVICE NAME * FILE 300
TABLE, CHANNEL-UNIT-ADDR ASSOCIATED WITH * FILE 300
EACH UNIT NAME. LOOK IN THE CODE FOR SOME * FILE 300
AUTH CHECKING AND DISABLE IN YOUR SHOP. * FILE 300
(MVS/XA, MVS/ESA 3 VERSION FROM MORRIS KARLIN) * FILE 300
* FILE 300
(THERE ARE SEVERAL VERSIONS OF THE UNITS COMMAND HERE. * FILE 300
UNITSOLD IS FOR MVS/370 SYSTEMS. UNITS IS FOR XA * FILE 300
THRU ESA 4 WITHOUT DYNAMIC UCB'S. UNITS4 IS FOR * FILE 300
ESA 4.1 AND ABOVE WITH DYNAMIC UCB SUPPORT. UNITS5 * FILE 300
IS FOR ESA 5.1 AND ABOVE WITH 4-DIGIT DEVICE NUMBER * FILE 300
SUPPORT.) (UNITS4 AND UNITS5 FROM STEVE SMITH.) * FILE 300
* FILE 300
VSFORT 1X - VS/FORTRAN PROMPTER FROM JOHN SILL OF * FILE 300
'CHICAGO BRIDGE & IRON' (HE IS NOT IN * FILE 300
CHICAGO, DOESN'T BUILD BRIDGES, AND DON'T * FILE 300
WORK WITH IRON). THANKS JOHN !!!!!!!!!! * FILE 300
* FILE 300
VTOC 1 - ONE OF THE SLICKEST CMDS FOR FINDING OUT * FILE 300
WHAT IS ON A DISK. LOOK AT THE HELP FOR * FILE 300
THE COMPLETE INFORMATION. * FILE 300
* FILE 300
WHATIF 2 - ALLOWS CONDITIONAL EXECUTION OF * FILE 300
TSOCMD FROM A CLIST BASED ON ANY OF * FILE 300
THE COMBINATIONS: * FILE 300
1. WHETHER A FILE IS ALLOCATED. * FILE 300
2. WHETHER A FILE IS ALLOCATED TO A * FILE 300
SPECIFIC FILE NAME * FILE 300
3. WHETHER A FILE IS CATALOGED. * FILE 300
4. WHETHER TWO STRINGS BEAR A SPECIFIED * FILE 300
RELATION TO EACH OTHER. * FILE 300
* FILE 300
WHOHAS 2Y - AFDSC MODIFIED AND CORRECTED. * FILE 300
DISCOVERED BUG, DID NOT SHOW THE ENQ * FILE 300
CHAIN PROPERLY. IT STOPPED AFTER THE * FILE 300
1ST OCCURENCE OF DISP=OLD. WILL SHOW * FILE 300
'WHOHAS' FILE ALLOCATED & THE ENQ CHAIN. * FILE 300
* FILE 300
WTC 2X - EVER SEND MSG TO OPERATOR WITH SEND AND * FILE 300
THEY CLAIM IT NEVER CAME (ROLLED OFF * FILE 300
THE SCREEN). NOW SEND THE MSG AND RING * FILE 300
THE CONSOLE ALARM, HIGHLIGHT THE MSG, * FILE 300
AND MAKE IT NON-ROLLABLE !!!!!!!!! * FILE 300
* FILE 300
IS FROM MIKE CLEARY OF BERGEN BRUNSWIG IN CALIFORNIA * FILE 301
AND CONTAINS A VERSION OF THE CDSCB (CHANGE THE DSCB) * FILE 301
TSO COMMAND PROCESSOR PROGRAM FROM FILE 300, WHICH * FILE 301
USES SAF FOR ITS SECURITY CHECKING. IN ORDER TO BE * FILE 301
ABLE TO CHANGE ATTRIBUTES OF A DATASET, YOU HAVE TO * FILE 301
HAVE ALTER ACCESS TO IT, THE WAY THIS COMMAND IS * FILE 301
WRITTEN. OF COURSE, IF YOUR SHOP HAS DIFFERENT * FILE 301
REQUIREMENTS, YOU CAN CHANGE THE CODE, BUT THIS * FILE 301
VERSION SHOWS YOU HOW TO FIT THE RACF OR SAF CHECKING * FILE 301
IN. * FILE 301
* FILE 301
I HAVE DELIBERATELY LEFT THE OTHER CDSCB CODE IN * FILE 301
FILE 300, UNCHANGED, BECAUSE SOME PEOPLE STILL WANT * FILE 301
TO GRANT AUTHORIZATION BY HARD-CODED USERID, AND * FILE 301
IF YOU'RE SO AUTHORIZED, PERMIT ALTERATION OF ALL * FILE 301
DATASETS. (SG 11/97) * FILE 301
* FILE 301
is from Michael Cleary and contains a program to * FILE 302
show a lot of information about LPA-loaded programs * FILE 302
and Link List programs. * FILE 302
* FILE 302
Description: LPALNK ISPF Interface * FILE 302
* FILE 302
Function: Provides interactive analysis of the * FILE 302
Link Pack Area (LPA), Link Pack Area * FILE 302
Library List (LPALST), Link Library List * FILE 302
(LNKLST). Major functions include * FILE 302
Dataset Attributes, Modules, Duplicate * FILE 302
Modules and Products. * FILE 302
* FILE 302
Contact: Michael J. Cleary * FILE 302
Mainframe Technical Services * FILE 302
Bergen Brunswig * FILE 302
4000 Metropolitan Drive * FILE 302
Orange, California 92868 * FILE 302
Voice: 714.385.4052 * FILE 302
Fax 714.704.7052 * FILE 302
Email: mike.cleary@bergenbrunswig.com * FILE 302
* FILE 302
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
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
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
IS THE TIME SHARING SUBSYSTEM FROM THE U.S. AIR FORCE * File 306
IN WASHINGTON, D.C. THIS SET OF PROGRAMS ALLOWS ONE * FILE 306
TO BRING UP A TSO-LIKE FUNCTION WHEN DISASTER HAS * FILE 306
STRUCK (OR WHENEVER ELSE YOU WOULD LIKE TO). THIS * FILE 306
SUBSYSTEM ALLOWS MOST TSO COMMANDS TO BE EXECUTED * FILE 306
FROM AN OPERATOR'S CONSOLE. OUTPUT FROM COMMANDS * FILE 306
THAT USE 'PUTLINE' WILL BE SENT TO THE CONSOLE FROM * FILE 306
WHICH THE COMMAND WAS ENTERED. OUTPUT FROM COMMANDS * FILE 306
THAT USE 'TPUT' OR ACCESS METHODS WILL NOT APPEAR * FILE 306
ON THE CONSOLE. * FILE 306
* FILE 306
THIS VERSION OF TSSO WAS WRITTEN BY BILL GODFREY. * FILE 306
BILL'S PHONE NUMBER IS (301) 763-8338. * FILE 306
* FILE 306
email: bgodfrey@ssdnotes.wwb.noaa.gov * FILE 306
* FILE 306
THIS FILE WAS SUBMITTED TO THE CBT TAPE BY CAPTAIN * FILE 306
JAMES D. MARSHALL OF THE US AIR FORCE, RETIRED. * FILE 306
* FILE 306
JIM HAS RETIRED FROM THE AIR FORCE. HIS PHONE NO IS: * FILE 306
* FILE 306
1-202-874-8353 * FILE 306
* FILE 306
THIS CODE IS NOT THE LATEST VERSION OF TSSO. IT IS * FILE 306
BILL GODFREY'S ORIGINAL VERSION. THE PREFERRED * FILE 306
VERSION FOR AN INSTALLATION TO INSTALL IS ON FILE * FILE 306
403 FROM BELLCORE, MODIFIED BY DAVE CARTWRIGHT * FILE 306
AND GUY ALBERTELLI. (SG - 1/11/94) * FILE 306
* FILE 306
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
IS FROM ALAN FIELD OF SUPERVALU IN EDEN PRAIRIE, * FILE 308
MINNESOTA, AND CONSISTS OF A CONSOLE ZAP, SO THE * FILE 308
CURRENT SYSTEM LEVEL, ETC, APPEARS AT THE BOTTOM * FILE 308
OF THE OPERATOR CONSOLE. FOR OS/390. * FILE 308
* FILE 308
email: alan.field@supervalu.com * FILE 308
* FILE 308
HERE IS A SNIPPET FROM THE CONSOLE: * FILE 308
* FILE 308
SYS3D.BOOLE.T2BADATA.BKP * FILE 308
00 08.30.47 JOB31326 TMS014 IEF234E K 03E6 * FILE 308
IEE612I CN=SVT2MSTR DEVNUM=0016 SYS=SVT2 * FILE 308
* FILE 308
* FILE 308
IEE163I MODE= RD-HNR401/0996-SP6.0.4 * FILE 308
* FILE 308
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
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
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 (home) * FILE 311
dalcock@csw.com (work) * FILE 311
* FILE 311
UPDATES OF THE CONTENTS OF THE CBT FILE MAY ALSO * FILE 311
BE POSTED TO THIS URL ON THE INTERNET: * FILE 311
* FILE 311
HTTP://WWW.TICNET.COM/DAVEA/MVS * FILE 311
* FILE 311
C O N T E N T S * FILE 311
=============== * FILE 311
* FILE 311
MEMBER FILE TYPE DESCRIPTION * FILE 311
-------- ---------- ----------- * FILE 311
$$README TEXT THIS FILE YOU ARE READING NOW. * FILE 311
* FILE 311
CBT$XREF TEXT FIRST ATTEMPT AT CREATING A CBT * FILE 311
TAPE CROSS REFERENCE UTILITY. * FILE 311
THIS VERSION CREATES MVS/QUICKREF * FILE 311
USER DATABASE ENTRIES. AS IT IS * FILE 311
TODAY, IT ISN'T ALL THAT USEFUL * FILE 311
YET. * FILE 311
* FILE 311
CLIPBRD PDS UNLOAD THIS IS A SMALL ISPF APPLICATION * FILE 311
THAT CAN BE USED TO PASTE DATA * FILE 311
THAT IS WIDER AND HIGHER THAN THE * FILE 311
ISPF EDIT SCREEN. * FILE 311
* FILE 311
DIVER PDS UNLOAD A VERY USELESS BUT FUN ISPF * FILE 311
APPLICATION OF AN ANIMATED STICK * FILE 311
FIGURE KNOWN AS MR. ASCII DIVING * FILE 311
INTO A POOL. * FILE 311
* FILE 311
DASRC PDS UNLOAD A COLLECTION OF MOSTLY BATCH * FILE 311
UTILITY THAT I HAVE WRITTEN OVER * FILE 311
THE YEARS. RECOMMEND PUTTING IN A * FILE 311
DATASET WITH NAME * FILE 311
"IBMUSER.DA.SOURCE". * FILE 311
* FILE 311
DASRCV XMIT ADDITIONS TO THE DASRC FILE IN * FILE 311
LRECL > 80 RECFM=VB. RECOMMEND * FILE 311
PUTTING IN A DATASET WITH NAME * FILE 311
"IBMUSER.DA.SOURCEV". * FILE 311
* FILE 311
IMGCOPY TEXT REXX EXEC THAT COPIES ALL BYTES * FILE 311
FROM THE SYSUT1 FILE TO SYSUT2 * FILE 311
WHEN THE CONCEPT OF RECORDS IS * FILE 311
NOT RELEVANT. GOOD FOR COPYING * FILE 311
.GIF AND .ZIP FILES AROUND ON A * FILE 311
MAINFRAME. * FILE 311
* FILE 311
IMGINFO TEXT REXX EXEC THAT SHOWS THE SIZE OF * FILE 311
GIF AND JPG FILES IN A FORMAT * FILE 311
SUITABLE FOR WEB PAGES. * FILE 311
* FILE 311
ISPFVAR TEXT REXX EXEC THAT SHOWS ALL OF THE * FILE 311
IBM SUPPLIED ISPF VARIABLES * FILE 311
(ALL/MOST VARS UP TO ISPF 3.5) * FILE 311
* FILE 311
ISPF34L TEXT REXX EXEC THAT CREATES UTILITY * FILE 311
CARDS, JOB STREAMS FROM DATA SET * FILE 311
LISTS FROM ISPF 3.4. IT DOES NOT * FILE 311
HANDLE THE WHOLE VOLUME LISTING * FILE 311
VERY WELL (AS I JUST FOUND OUT * FILE 311
TODAY). IT WORKS BEST ON LISTINGS * FILE 311
FROM A GIVEN HLQ. * FILE 311
* FILE 311
ISGECMOM PDS UNLOAD AN (SLIGHT) ENHANCEMENT TO IBM'S * FILE 311
SAMPLE ISGECMON * FILE 311
* FILE 311
JES2EXIT PDS UNLOAD EDITED VERSIONS OF MY JES2 EXITS * FILE 311
* FILE 311
MVSVAR TEXT REXX EXEC THAT SHOWS ALL OF THE * FILE 311
IBM SUPPLIED MVSVAR() FUNCTION * FILE 311
VARIABLES (TSO/E 2.5 OR HIGHER) * FILE 311
* FILE 311
PROGXX PDS UNLOAD ISPF EDIT MACRO THAT VERIFIES THE * FILE 311
APF ENTRIES IN THE SYS1.PARMLIB * FILE 311
PROGXX MEMBER. * FILE 311
* FILE 311
SASGIF1 TEXT SAMPLE JOBSTREAM THAT CREATES A * FILE 311
.GIF FILE USING SAS. * FILE 311
* FILE 311
SASGIF2 TEXT SAMPLE JOBSTREAM THAT CREATES A * FILE 311
.GIF FILE (WITH A TRANSPARENT * FILE 311
BACKGROUND) USING SAS. * FILE 311
* FILE 311
SMFEXIT PDS UNLOAD EDITED VERSIONS OF MY SMF EXITS * FILE 311
* FILE 311
SMPEPP PDS UNLOAD REXX EXEC THAT PROCESSES YOUR * FILE 311
SMP/E APPLY CHECK OUTPUT FOR PTFS * FILE 311
BYPASSED DUE TO ACTION, HOLD, * FILE 311
DOC, ETC. A LIST IS PRESENTED * FILE 311
THAT MAKES VIEWING OF THE HOLD * FILE 311
TEXT AN EASY TASK. * FILE 311
* FILE 311
SHOWMRO TEXT ASSEMBLER PROGRAM THAT SHOWS THE * FILE 311
CURRENTLY ACTIVE CICS MRO REGIONS * FILE 311
VIA TSO TPUTS. * FILE 311
* FILE 311
SHOWSYM PDS UNLOAD ISPF EDIT MACRO THAT SHOWS THE * FILE 311
SYSTEM SUMBOLS ON YOU MVS VERSION * FILE 311
5 OR HIGHER * FILE 311
* FILE 311
SPELLCHK PDS UNLOAD ISPF EDIT MACRO THAT PERFORMS A * FILE 311
SPELL CHECK ON SELECTED LINES OR * FILE 311
THE WHOLE EDIT FILE. SAS IS * FILE 311
NEEDED. * FILE 311
* FILE 311
SYSVAR TEXT REXX EXEC THAT SHOWS ALL OF THE * FILE 311
IBM SUPPLIED SYSVAR() FUNCTION * FILE 311
VARIABLES * FILE 311
* FILE 311
TOD PDS UNLOAD THIS PACKAGE ADDS TWO FEATURES TO * FILE 311
PRE-OS/390 JES2 TO SIMULATE THE * FILE 311
TIME OF DAY FUNCTIONS IN THE JES2 * FILE 311
JOB LOG. * FILE 311
* FILE 311
VSMAP TEXT REXX EXEC THAT SHOWS THE VIRTUAL * FILE 311
STORAGE MAP. THE SUBROUTINE IS * FILE 311
GOOD FOR INCLUSION IN OTHER * FILE 311
EXECS. * FILE 311
* FILE 311
XMITINFO TEXT REXX EXEC THAT SHOWS SOME INTERNAL * FILE 311
INFORMATION ABOUT A TSO XMIT FILE. * FILE 311
THIS EXEC IS MORE USEFUL ON A PC * FILE 311
WHEN TRYING TO DETERMINE IF A FILE * FILE 311
IS ACTUALLY A TSO XMIT FILE. THIS * FILE 311
IS THE FIRST PHASE OF A PROJECT TO * FILE 311
CREATE A PC PROGRAM TO EXTRACT * FILE 311
FILES AND PDS MEMBERS FROM A TSO * FILE 311
XMIT FILE. XMITINFO DOES WORK ON * FILE 311
TSO. * FILE 311
* FILE 311
Y2K TEXT REXX EXEC THAT SHOWS THE NUMBER * FILE 311
OF DAYS LEFT UNTIL THE YEAR 2000. * FILE 311
* FILE 311
------------------------------------------------------------ * FILE 311
* FILE 311
SEE THE $$README FILE FOR INFORMATION ON THE FILE * FILE 311
TYPES: TEXT, PDS UNLOAD AND TSO XMIT. * FILE 311
* FILE 311
is from Lionel Dyck of Kaiser Permanente in Walnut * FILE 312
Creek, California, and contains quite a few * FILE 312
ISPF interface packages, and other stuff. * FILE 312
* FILE 312
DSN=CBT426.FILE312 * FILE 312
* FILE 312
NAME VER.MOD LAST MODIFIED INIT ID FORMAT * FILE 312
$DOC 01.01 1999/07/02 9:36 16 SYSLBD Flat File * FILE 312
$SOFTPUB 01.00 1999/07/06 18:34 26 SYSLBD Flat File * FILE 312
@FILE312 01.14 2000/06/25 11:15 247 WSBG Flat File * FILE 312
CMDS 01.00 2000/02/16 16:27 588 SYSLBD IEBUPDTE * FILE 312
CUTPASTE 01.00 1999/07/06 18:40 1326 SYSLBD TSO XMIT * FILE 312
DOALL 01.00 2000/03/23 19:25 60 SBGOLOB REXX Exec * FILE 312
DSLIST 01.00 2000/02/15 21:40 106 SBGOLOB REXX Exec * FILE 312
FIXBOOKP 01.00 2000/05/05 12:18 138 WSBG REXX Exec * FILE 312
FTPB 01.90 2000/06/02 14:01 8325 WSBG REXX Exec * FILE 312
FTPBTXT 01.89 2000/05/31 16:00 17 WSBG Flat File * FILE 312
FTPB185# 01.00 1999/11/09 17:50 27 SBGOLOB Flat File * FILE 312
GET 01.00 2000/02/16 16:49 88 SYSLBD REXX Exec * FILE 312
ISPFPRO$ 01.00 2000/02/28 20:46 101 SYSLBD Flat File * FILE 312
ISPFPROD 01.00 2000/02/28 20:47 409 SYSLBD REXX Exec * FILE 312
LSTPRC 01.00 2000/06/15 11:22 266 WSBG REXX Exec * FILE 312
LSTPRC$ 01.01 2000/06/16 16:35 10 WSBG Flat File * FILE 312
LSTPROC 01.00 2000/06/25 10:51 280 SYSLBD REXX Exec * FILE 312
LSTPROC$ 01.00 2000/06/25 10:53 2 WSBG Flat File * FILE 312
PRINT 01.00 1999/07/02 19:03 946 SYSLBD TSO XMIT * FILE 312
PRMCK 01.00 2000/03/01 18:09 1337 SYSLBD TSO XMIT * FILE 312
PRMCK$ 01.02 1999/10/18 15:30 20 SYSLBD Flat File * FILE 312
PRMCK# 01.00 1999/11/11 11:32 9 SYSLBD Flat File * FILE 312
RECEIVE 01.00 1999/07/02 9:29 21 SYSLBD REXX Exec * FILE 312
REXXWAIT 01.00 2000/02/16 16:59 207 SBGOLOB Assembler * FILE 312
RNEWS 01.00 2000/06/02 14:06 3319 SYSLBD IEBUPDTE * FILE 312
SOFTPUB 01.00 2000/02/14 0:14 16994 SYSLBD IEBUPDTE * FILE 312
TMAILQRY 01.00 2000/04/05 16:34 399 SYSLBD TSO XMIT * FILE 312
TSOEMAIL 01.00 2000/04/13 22:28 8120 SYSLBD TSO XMIT * FILE 312
TSOTRAP 01.00 2000/02/16 16:55 30 SYSLBD REXX Exec * FILE 312
XMIT$241 02.41 1999/10/12 14:26 41 SBGOLOB Flat File * FILE 312
XMIT$300 03.00 2000/01/06 23:16 90 SBGOLOB Flat File * FILE 312
XMIT$310 03.10 2000/02/10 22:34 73 SBGOLOB Flat FIle * FILE 312
XMIT@404 04.04 2000/06/08 10:34 1204 WORD97 Word 97 * FILE 312
XMITIHST 04.04 2000/06/08 10:41 275 HISTORY Flat File * FILE 312
XMITIP 04.05 2000/06/14 8:00 11722 SYSLBD REXX Exec * FILE 312
XMITIP$ 04.04 2000/05/31 16:00 1171 SYSLBD Flat File * FILE 312
XMITIP$$ 04.00 2000/05/19 11:35 97 SYSLBD Flat File * FILE 312
XMITIP# 03.10 2000/02/10 22:34 54 SBGOLOB Flat File * FILE 312
XMITIP@@ 03.10 2000/02/10 22:39 673 SBGOLOB Flat File * FILE 312
XMITVM 01.00 2000/03/29 10:53 205 SYSLBD REXX Exec * FILE 312
* FILE 312
Member $DOC - basic information * FILE 312
$SOFTPUB - install instructions for SOFTPUB * FILE 312
XMITIP# - install instructions for XMITIP * FILE 312
* FILE 312
--------------------------------------------------------------- * FILE 312
* FILE 312
Member CUTPASTE - This member is in TSO XMIT format. * FILE 312
* FILE 312
This member contains 2 REXX execs, CUT and PASTE, * FILE 312
with ISPF panels that go together with them. * FILE 312
* FILE 312
Member FTPB - This member is in TSO XMIT format. * FILE 312
* FILE 312
FTPB - The File Transfer Protocol Batch ISPF Dialog * FILE 312
* FILE 312
This ISPF dialog provides a simple to use ISPF interface * FILE 312
for using the TCP/IP FTP function to transfer data sets * FILE 312
from the current MVS host system to other host systems * FILE 312
that support a TCP/IP FTP Server (e.g. MVS, VM, OS/2, * FILE 312
most Unix, ...). * FILE 312
* FILE 312
The dialog presents the user with a simple ISPF panel * FILE 312
from which to specify the source (original) data set, * FILE 312
the target host, optionally the name of the target data * FILE 312
set if it is different from the source, and signon * FILE 312
information (userid and password). Once this * FILE 312
information is complete the dialog generates the * FILE 312
necessary JCL and FTP statements to allow the user to * FILE 312
execute the FTP in the foreground (execpt for load * FILE 312
library transfers) or to submit the JCL for a batch * FILE 312
execution of FTP. Prior to submission the user is * FILE 312
allowed to review and change (edit) the generated JCL * FILE 312
and FTP control statements if they desire. * FILE 312
* FILE 312
Member LSTPROC - REXX Exec to list PROCLIB libraries and * FILE 312
invoke ISRDDN. * FILE 312
* FILE 312
Member PRINT - This member is in TSO XMIT format. * FILE 312
* FILE 312
This member contains 2 ISPF dialogs: * FILE 312
* FILE 312
LPRPRINT - used to print using the OS/390 (or MVS) * FILE 312
TCP/IP LPR command to any system with a LPD * FILE 312
server. This includes intelligent printers * FILE 312
which have LPD built-in. * FILE 312
* FILE 312
PSPRINT - used to format host output for printing on a * FILE 312
PostScript printer and then invoke LPRPRINT. * FILE 312
Options include Portrait, Landscape, and 2UP * FILE 312
printing. * FILE 312
* FILE 312
The members of this dataset are in IEBUPDTE format. * FILE 312
* FILE 312
$DOC - What you are reading * FILE 312
EXEC - The above 2 rexx execs which are the entry * FILE 312
points to the dialogs * FILE 312
MSGS - ISPF messages * FILE 312
PANELS - ISPF panels, including brief tutorials, for * FILE 312
these dialogs * FILE 312
* FILE 312
Member PRMCK - Check the syntax of PARMLIB members. * FILE 312
* FILE 312
PARMLIB Check * FILE 312
* FILE 312
This application consists of a REXX Exec and an ISPF * FILE 312
Panel. To use this you need to copy the exec (choose * FILE 312
the FB or the VB version) into a library in your * FILE 312
SYSPROC or SYSEXEC concatenation. You then need to * FILE 312
copy the panel into a library in your ISPPLIB * FILE 312
concatenation. * FILE 312
* FILE 312
Usage is to Edit the desired member of SYS1.PARMLIB * FILE 312
and enter the command PRMCK. * FILE 312
* FILE 312
Syntax: PRMCK cat sysres (debug * FILE 312
* FILE 312
valid options are: * FILE 312
? - will prompt for catalog and sysres * FILE 312
cat - is a name that will be used in the master * FILE 312
catalog lookup (find *custom* below) and * FILE 312
if not found will be used as the master * FILE 312
catalog name (enter without quotes). * FILE 312
sysres is the volser of the system ipl volume * FILE 312
to be checked when a volser of ****** is * FILE 312
coded. * FILE 312
(debug - will turn on tracing * FILE 312
* FILE 312
Support for PROGxx member statements * FILE 312
- LNKLST * FILE 312
- APF * FILE 312
- LPA * FILE 312
- SYSLIB * FILE 312
Support for LNKLSTxx and LPALSTxx members * FILE 312
* FILE 312
Verification is not 100% the same as the system will * FILE 312
perform when used but it does a fair amount of * FILE 312
verification. Errors and Warnings are inserted into * FILE 312
the Edit display as non-saveable messages. * FILE 312
* FILE 312
Member RNEWS - This member is in IEBUPDTE SYSIN format. * FILE 312
* FILE 312
RNEWS - The Rockwell ISPF News and Information Dialog * FILE 312
* FILE 312
This ISPF application is designed to simplify the task * FILE 312
of informing users about system changes, updates, * FILE 312
enhancements, etc. each time they logon to TSO and enter * FILE 312
ISPF. This is accomplished by a simple modification to * FILE 312
the first ISPF menu that the user sees (ISR@PRIM if * FILE 312
entry is via command ISPF or ISP@MSTR if entry is via * FILE 312
ISPSTART) as documented below. * FILE 312
* FILE 312
Updated 5/1/97 to support ISPF 4.2.1 * FILE 312
* FILE 312
RNEWS is entered by executing the Rexx procedure RNEWS * FILE 312
and providing one or more of the valid parameters: * FILE 312
* FILE 312
Syntax: RNEWS parameters * FILE 312
* FILE 312
Required Parameters: * FILE 312
* FILE 312
KSYS Defines that RNEWS will use the KSYS set * FILE 312
of tables, panels, and skeletons. * FILE 312
'other' Must be defined by the installation as * FILE 312
alternative to KSYS. * FILE 312
* FILE 312
*** one of the above is required * FILE 312
* FILE 312
Optional Parameters: * FILE 312
NEW Display the news ISPF table only if new * FILE 312
or unread items are in the table for the * FILE 312
user * FILE 312
DEBUG Used to turn on REXX tracing for * FILE 312
debugging purposes * FILE 312
ADMIN Enable the administration application * FILE 312
TEST Uses a test news table for testing * FILE 312
purposes. * FILE 312
FORCE If the table is locked by ADMIN and the * FILE 312
lock is obsolete (for some reason that * FILE 312
left the member LOCK in the news data * FILE 312
set) this option will override the lock * FILE 312
for administration purposes. * FILE 312
* FILE 312
See the rexx procedure for more information. * FILE 312
* FILE 312
Updates to ISPF Panels ISR@PRIM and/or ISP@MSTR to * FILE 312
cause this application to be invoked when the user * FILE 312
enters ISPF. * FILE 312
* FILE 312
Member SOFTPUB - This member is in IEBUPDTE SYSIN format, * FILE 312
with some of the resulting members in * FILE 312
TSO XMIT format, and some, flat files. * FILE 312
* FILE 312
This is Rockwell's ISPF front end to Bookmanager, and * FILE 312
has been Kaiserized, since I have changed employers. * FILE 312
* FILE 312
Member XMITIP - This member is in TSO XMIT format. * FILE 312
* FILE 312
Distributing Reports from Batch Jobs via E-Mail * FILE 312
* FILE 312
How many times have you wanted to have 'that' report in * FILE 312
your e-mail inbox instead of having to wait for it to * FILE 312
be printed and then delivered to you? * FILE 312
* FILE 312
This document describes a simple process that can be * FILE 312
used by any batch job to distribute reports as e-mail * FILE 312
attachments to electronic mail addresses. You can * FILE 312
distribute from one to n files to from one to n * FILE 312
addresses. The attachment will be translated from * FILE 312
EBCDIC to ASCII during the electronic mail processing * FILE 312
so only text files should be sent (note that special * FILE 312
characters may not translate correctly so you should * FILE 312
test your file before implementing this process into a * FILE 312
production job). * FILE 312
* FILE 312
The benefit is that you can send reports, using the * FILE 312
REPORT keyword, as rich text format (rtf) documents and * FILE 312
specify landscape or portrait orientation as well as * FILE 312
the font size. This approach is useful as the batch, * FILE 312
formerly printed reports, arrive in the users mail box * FILE 312
in a format similar to the printed report. * FILE 312
* FILE 312
Documentation for XMITIP is in three parts: * FILE 312
* FILE 312
Part 1 documents how to use the XMITIP REXX Application * FILE 312
to electronically distribute messages and/or * FILE 312
text files (as text attachments) to electronic * FILE 312
mail addresses via the intranet or internet. * FILE 312
* FILE 312
Part 2 documents how to view the attachment on the * FILE 312
workstation. * FILE 312
* FILE 312
Part 3 documents how to customize your own application * FILE 312
to do this. * FILE 312
* FILE 312
LIONEL B. DYCK * FILE 312
KAISER PERMANENTE * FILE 312
25 NORTH VIA MONTE * FILE 312
WALNUT CREEK, CALIFORNIA 94598 * FILE 312
* FILE 312
INTERNET: lionel.b.dyck@kp.org * FILE 312
PHONE: (925) 926-5332 * FILE 312
* FILE 312
IS FROM MURRAY NICHOLAS OF GALEFORCE INFORMATION * FILE 313
SERVICES, PTY LTD IN MELBOURNE, AUSTRALIA, AND * FILE 313
CONTAINS A GENERALIZED MPF EXIT WHICH CAN TRIGGER * FILE 313
VARIED RESPONSES TO DIFFERENT CONSOLE MESSAGES. * FILE 313
* FILE 313
THE MESSAGE NUMBERS AND RESPONSES ARE CONTAINED * FILE 313
AS MEMBERS OF A DESIGNATED PDS. THEREFORE, THE * FILE 313
RESPONSES TO A GIVEN MESSAGE MAY BE EASILY * FILE 313
CHANGED, WITHOUT A PARMLIB ADJUSTMENT. * FILE 313
* FILE 313
THIS PACKAGE WORKS FINE AS IS, BUT A FEW * FILE 313
IMPROVEMENTS COULD BE MADE, AS INDICATED BY SOME * FILE 313
OF THE DOCUMENTATION, WHICH COULD MAKE THIS * FILE 313
PACKAGE REALLY POWERFUL. * FILE 313
* FILE 313
THE AUTHOR MAY SPEND A CONSIDERABLE TIME IN THE U.S. * FILE 313
IN THE NEAR FUTURE (5/98). * FILE 313
* FILE 313
email: murray@galeforce.bu.aust.com (lower case) * FILE 313
* FILE 313
is from Dave Lees of Northeast Utilities in Berlin, * FILE 314
Connecticut and contains a nice collection of his * FILE 314
utilities. * FILE 314
* FILE 314
email: leesda@nu.com * FILE 314
* FILE 314
THE UTILITIES ARE: * FILE 314
* FILE 314
***************************************************** * FILE 314
AUTHOR - DAVID LEES, NORTHEAST UTILITIES, * FILE 314
(860)721-4392, - LEESDA@NU.COM * FILE 314
CBT TAPE FILE 314 AS OF 2/14/2000 * FILE 314
* FILE 314
***************************************************** * FILE 314
BITMAP - CALLABLE SUBROUTINE TO EXPAND 8 BITS TO 8 * FILE 314
BYTES CHARACTER. * FILE 314
BMSS - FAIRLY FAST TEXT SEARCH PROGRAM. * FILE 314
BOMB - SUBROUTINE TO PRODUCE AN '0CB' ABEND. * FILE 314
DIAGNOSTIC TOOL. * FILE 314
COB1 - COBOL/DB2 CROSS REFERENCE BASED ON USERID. * FILE 314
COB2 - COBOL/DB2 CROSS REFERENCE BASED ON TABLENAME. * FILE 314
COPYANY - VERSATILE FILE TO FILE COPY: FB->VB, * FILE 314
VB->FB, VB->VB, FB->FB, - PADS OR TRUNCATES * FILE 314
BASED ON OUTPUT DCB. DISPLAYS DCB, COUNTS. * FILE 314
CPUID - AUTHORIZED PGM TO DISPLAY CPC ID. * FILE 314
OBSOLETED BY: D M=(CPU) * FILE 314
CSTRACE - SAMPLE OF USING SNAPSHOT MACRO TO CREATE * FILE 314
A DEBUGGING TRACE. * FILE 314
- (YES, IT LOOKS LIKE IMS CALLS BUT IT'S * FILE 314
ACTUALLY AN IMS CLONE). * FILE 314
CVD - CALLABLE SUBROUTINE TO DUMP 80 BYTES IN * FILE 314
VERTICAL HEX FORMAT. * FILE 314
CVX - CONVERT TWO BYTES DISPLAY FORMAT HEX TO * FILE 314
ONE BYTE BINARY. * FILE 314
DBALPHA - PRODUCES POSTERS WITH MAX OF 6 LINES OF 13 * FILE 314
CHARACTERS EACH. * FILE 314
DBWAIT - MEANT TO INTERACT WITH AUTOMATION SOFTWATE * FILE 314
(AO, NETVIEW) TO CONTROL STEP BY STEP * FILE 314
EXECUTION OF BATCH JOBS. * FILE 314
DYNAM - CBT TAPE FILE089, INCLUDED HERE FOR * FILE 314
CONVENIENCE ONLY. * FILE 314
ERASER - OPEN/CLOSE A CARD IMAGE FILE TO EMPTY IT, * FILE 314
OPTIONALLY INSERT ONE DATA LINE FROM * FILE 314
PARM=. * FILE 314
FLATLIB - CONVERTS A TEXT PDS INTO A FLAT FILE WITH * FILE 314
THE MEMBERNAME AS AS A PREFIX. EASY TO * FILE 314
BUILD XREFS WITH SAS/EASYTRIECE/ETC. * FILE 314
LNKLST00 - MULTI STEP JCL TO PRODUCE A CROSS * FILE 314
REFERENCE OF LPA/PROG00 MEMBERS. SORTED BY * FILE 314
MEMBERNAME AND LOADLIB. PRIMITIVE ISRDDN. * FILE 314
MEMLIST - EXPANDS A LIST OF PDS NAMES INTO * FILE 314
MEMBERNAMES AND ATTRIBUTES. SHORT FORM * FILE 314
FOR TEXT PDS, DEFAULT FOR LOAD LIBRARIES. * FILE 314
DYNAM * FILE 314
MIGRATOR - USES MGCRE AND VIRTUAL CONSOLE MACROS TO * FILE 314
ISSUE HSM MIGRATE COMMANDS FOR A LIST OF * FILE 314
DATASETS AND LOG SYSTEM RESPONSE MSGS. * FILE 314
AMODE(31), RMODE(24), AC(1). MESSY DUE TO * FILE 314
AR, IO, AMODE31... * FILE 314
NATSUB - SUBROUTINE TO SUBMIT JCL TO DYNALLOC * FILE 314
INTERNAL READER. * FILE 314
PARSIFAL - PARSER TO STRIP DSNAMES FROM FROM FORMATS * FILE 314
LIKE (LPALST00) * FILE 314
QDUMP80 - FORMATTED DATASET DUMP SHOWS CHARACTER/HEX * FILE 314
IN 80 COL LISTING. DOES START-END AND * FILE 314
LAST RECORDS. WILL TRANSLATE ASCII ALSO. * FILE 314
R******* - JCL TO RUN THE PROGRAMS. * FILE 314
REGS - REGISTER EQUATE MACRO. * FILE 314
SLEEPY - WAITS FOR NN SECONDS. 99 MAX. * FILE 314
TODAY - SUBROUTINE RETURNS DAY OF WEEK FROM TIME * FILE 314
MACRO. VALID TO Y4K. * FILE 314
VSAMZAP - SUPERZAP UTILITY FOR ESDS VSAM, ORIGINALLY * FILE 314
USED FOR IMS, ALSO WORKS ON KSDS BUT CAN'T * FILE 314
CHANGE KEYS. * FILE 314
* FILE 314
IS FROM BOB FOWLES OF PENNSYLVANIA STATE UNIVERSITY * FILE 315
AND FROM PHILIP H. SMITH III, AND IS A VM REXX EXEC * FILE 315
WHOSE PURPOSE IS TO CLEAN UP AND SYNTAX CHECK OTHER * FILE 315
REXX EXECS. THIS IS A VM EXEC, AND IT IS BEING * FILE 315
INCLUDED HERE, IN THE HOPE THAT SOMEONE WHO KNOWS * FILE 315
BOTH VM AND MVS, WILL GET THIS EXEC TO WORK UNDER * FILE 315
TSO REXX. * FILE 315
* FILE 315
AUTHOR: BOB FOWLES * FILE 315
RBF@PSU.EDU * FILE 315
814-865-4774 * FILE 315
* FILE 315
CONTAINS MANY BATCH UTILITIES AND OTHER GOOD THINGS. * FILE 316
CODE FROM JIM MARSHALL (AIR FORCE RETIREE) NOW WITH * FILE 316
THE US TREASURY OUTSIDE OF WASHINGTON DC. THIS FILE * FILE 316
IS IN IEBUPDTE SYSIN FORMAT. JIM'S CURRENT ADDRESS IS * FILE 316
* FILE 316
JIM MARSHALL, US TREASURY * FILE 316
FINANCIAL MANAGEMENT SERVICE * FILE 316
PRINCE GEORGES PLAZA II - ROOM 400B * FILE 316
3700 EAST-WEST HIGHWAY * FILE 316
HYATTSVILLE, MD 20782 * FILE 316
202-874-8353 * FILE 316
* FILE 316
email: jim.marshall@fms.treas.gov * FILE 316
* FILE 316
RELEASE 22 - 15 APRIL 92 * FILE 316
* FILE 316
SUMMARY OF THE MODULES CONTAINED. * FILE 316
* FILE 316
UTIL REL DESCRIPTION * FILE 316
* FILE 316
$$MACROX 4 INCORPORATED BILL GODFREY'S MODS TO * FILE 316
'IFOX00' TO PRODUCE MACRO CROSS REFERENCE. * FILE 316
PDS WAS MADE INTO A MEMBER PRECEDED WITH * FILE 316
'>< ADD NAME= ' CARDS AND SPF STATS. * FILE 316
THIS WAS IN A SEPARATE FILE ON THE MODS * FILE 316
TAPES. * FILE 316
* FILE 316
ASKOPER 1 PASS OPERATOR A QUESTION IN A PARM AND TWO * FILE 316
REPLIES; ONE GIVES RC=0 AND SECOND RC=4 * FILE 316
* FILE 316
ASMBOX1 1 PUT A NICE LOOKING BOX AROUND YOUR ASSEMBLY * FILE 316
LISTING OUTPUT. LINECT FOR ASSEMBLY * FILE 316
LISTING IS 53. CODE IS 3800 DEPENDENT. * FILE 316
* FILE 316
ASMHNOX 1 A PTF FOR AN ASSEMBLER H BUG. * FILE 316
AS YOU KNOW ASM H IS CLASS C NOW. * FILE 316
* FILE 316
ASMR90 1 ROTATE 90 DEGREES ASSEMBLY LISTINGS * FILE 316
ON THE 3800 TYPE PRINTERS. * FILE 316
* FILE 316
BLOKHD 1X GODDARD SPACE FLT CENTER UTILITY TO * FILE 316
PRODUCE 12X12 BLOCK LETTERS UP TO 8 ACROSS * FILE 316
THE PAGE AND FOUR BLOCK LINES PER PAGE. * FILE 316
* FILE 316
BLOKHF 1X FORTRAN INTERFACE MODULE SO YOU CAN CALL * FILE 316
'BLOKHD' FROM FORTRAN CODE. * FILE 316
* FILE 316
BLOKLTR 1X FORTRAN PGM THAT PRODUCES BLOCK LETTERS ONE * FILE 316
PER PAGE (SIDEWAYS). * FILE 316
* FILE 316
BLOKPDS 1X TAKES A SEQUENTIAL SOURCE FILE CREATED BY * FILE 316
UTIL 'LISTPDS' AND CREATES A PRINT FILE * FILE 316
WITH 12X12 BLOCK LETTERS BEFORE EACH MEMBER * FILE 316
IN THE LISTING. GREAT FOR PUTTING SOURCE * FILE 316
ON MICROFICHE. SEE DOC IN CODE. * FILE 316
* FILE 316
CATLIST 1 THIS PROGRAM IS FROM MIKE LOOS, FAIR, ISAAC * FILE 316
AND CO. THIS WILL DO A VERY FAST LIST OF * FILE 316
AN ICF CATALOG FOR GDG'S AND NONVSAM DSNS. * FILE 316
LISTING IS IN THE SAME FORMAT AS IDCAMS * FILE 316
(WE USED IT TO BUILD A TMC) BUT THE OUTPUT * FILE 316
FORMAT WOULD BE VERY EASY TO CHANGE. SEE * FILE 316
COMMEMTS IN THE CODE FOR AN EXPLANATION * FILE 316
OF ITS SPEED AND RELATION TO RACF. * FILE 316
* FILE 316
COPYFILE 4X POWERFUL COPY TAPE TYPE PROGRAM. IF YOU * FILE 316
HAVE MULTIFILE SL TAPES WILL COPY SELECTED * FILE 316
FILES VIA A CONTROL CARD. (LOAD MODULE * FILE 316
ON FILE 035.) Now copies blocks up to * FILE 316
64K in size. * FILE 316
* FILE 316
COPYSLNL 4X POWERFUL COPY TAPE PGM TO STRIP TAPE * FILE 316
LABELS FROM SL TAPE TO CREATE AN NL TAPE. * FILE 316
IF YOU HAVE MULTIFILE SL TAPES WILL COPY * FILE 316
SELECTED FILES TO AN NL OUTPUT TAPE, * FILE 316
UNDER THE SAME CONTROL CARD SYNTAX AS * FILE 316
COPYFILE HAS. (MODIFIED FROM COPYFILE * FILE 316
BY SAM GOLOB). STILL HAS TLPRINT SUPPORT * FILE 316
BUT IT PRINTS THE CONTENTS OF THE LABELS * FILE 316
FROM THE INPUT SIDE, SINCE THE OUTPUT SIDE * FILE 316
DOESN'T HAVE LABELS ANY MORE. Now copies * FILE 316
blocks up to 64K in size. * FILE 316
* FILE 316
COPYNLNL Brand new. Powerful tape copy program * FILE 316
that works exactly like COPYFILE with * FILE 316
the same control cards, but copies NL to * FILE 316
NL tapes. Copies blocks up to 64K. * FILE 316
* FILE 316
COPYREC 5X PROVIDE FOR A SELECTIVE COPY OF RECORDS * FILE 316
VIA A CONTROL CARD FOR ANY LRECL FILE; * FILE 316
LIKE 1-100, 450-800, 900-950. * FILE 316
* FILE 316
CT 3X AIR FORCE DEVELOPED HIGH SPEED TAPECOPY * FILE 316
PROGRAM. RUNS AT EXCP SPEED. COPIES * FILE 316
LABELED OR UNLABELED, SINGLE OR MULTIFILE, * FILE 316
AND IF ONE REEL ONLY, AN OPTION TO VERIFY * FILE 316
BYTE FOR BYTE. COPIES MULTIVOLUME OR * FILE 316
MULTIFILE AND MULTIVOLUME WITH NO VERIFY * FILE 316
FUNCTION. * FILE 316
* FILE 316
C3PO 1Y BRIAN SCOTT NOW OF TEXACO, WROTE C3PO TO * FILE 316
BE THE SRB RECEIVER FOR R2D2. R2D2 NEEDS * FILE 316
A TASK OF SOME KIND GOING TO BUMP THE SRB * FILE 316
OFF OF. MOST PEOPLE HAVE BEEN USING #CMD * FILE 316
SUBSYSTEM AND SOME OTHER BRAVE SOULS, * FILE 316
JES2. PLUS NOW C3PO WILL TALK TO YOU IF * FILE 316
YOU WANT. WANT TO INCREASE ITS * FILE 316
VOCABULARY? YOU ARE WELCOME. HAVE NOT * FILE 316
INSTALLED IT THIS WAY BUT WILL WHEN I GO * FILE 316
TO MVS/SP1.3. * FILE 316
* FILE 316
C3PO2 1Y SAME AS ABOVE, BUT WITH A STIMER IN IT FOR * FILE 316
PEOPLE WHO DO NOT WANT TO RUN C3PO WITH * FILE 316
TIME=1440. * FILE 316
* FILE 316
DELINK0 2 SOURCE CARDS FOR IBM FE PROGRAM TO * FILE 316
'DELINK'. WE RECONSTRUCTED THE SOURCE * FILE 316
IMAGES WITH A DISASSEMBLER AND A LOT OF * FILE 316
PATIENCE. FUN !!! * FILE 316
* FILE 316
DISKMAP 3Y DISKMAP PROGRAM HAS 3330 SUPPORT, 3350, AND * FILE 316
3850 SUPPORT INCLUDED. GIVES SIMILIAR INFO * FILE 316
TO A COMPAKTOR MAP. THIS DOES NOT UPDATE * FILE 316
LASTUSE DATE FOR EVERY FILE ON THE PACK; * FILE 316
NOT REALLY TRUE FOR PDS'S, SO STILL BEWARE. * FILE 316
* FILE 316
DOWEGO 2X PGM TO PUT OUT QUESTION TO OPERATOR OF 'GO' * FILE 316
OR 'NOGO'. 'NOGO' IMPLIES ABEND, 'GO' = RC0 * FILE 316
* FILE 316
EALSD095 1X EASTERN AIRLINES UPDATE OF THE STANDARD IBM * FILE 316
BLOCK LETTER ROUTINE IEFSD095; WAS USED * FILE 316
FOR BANNER PAGES. THE UPDATED VERSION HAS * FILE 316
ALL THE SPECIAL CHARACTERS INCLUDED IN IT. * FILE 316
* FILE 316
EXCPMOD 1Y MOD (ZAP) SHOWS EXCP COUNTS ON JCL LISTING. * FILE 316
MVS/SP1.1 * FILE 316
* FILE 316
EXIMPORT 1 THIS PROGRAM IS FROM MIKE LOOS, FAIR, ISAAC * FILE 316
AND COMPANY. WILL CREATE 2 JCL FILES, A * FILE 316
CLIST, AND A SYSPRINT LISTING. THE JCL * FILE 316
FILES HAVE A SET OF EXPORT AND IMPORT JCL * FILE 316
DESIGNED TO EXPORT (VSAM) AND IEBGENER * FILE 316
(DSORG=PS) ALL DATASETS ON A VOLUME TO * FILE 316
TAPE AND RESTORE WITH IMPORT (VSAM) AND * FILE 316
IEBGENER (DSORG=PS) FROM TAPE TO DISK. * FILE 316
THE VSAM PORTION WORKS ONLY FOR UNIQUE * FILE 316
DATASETS (DFEF) AND BASE CLUSTERS ONLY. * FILE 316
SEE THE CODE FOR FURTHER EXPLANATIONS AND * FILE 316
RESTRICTIONS. * FILE 316
* FILE 316
EXIT002 1Y JES2/SP1.3 EXIT 2. TAKES TIME OFF THE * FILE 316
JOBCARD TO ENFORCE INTERNAL STANDARD FOR * FILE 316
JOB CLASS FROM AFDSC. * FILE 316
* FILE 316
EXIT006 1Y JES2/SP1.3 EXIT 6. PUT TIME BACK ON * FILE 316
JOBCARD FOR THE APPROPRIATE JOB CLASS. * FILE 316
ALSO SEE NOTE OF HOW TO DISPLAY INTERNAL * FILE 316
TEXT FOR ANY FIELD YOU WANT TO DISPLAY. * FILE 316
FROM AFDSC. * FILE 316
* FILE 316
FCBLIST 1X WILL PRINT OUT HOW YOUR FCB'S ARE BUILT. * FILE 316
HANDY FOR FIGURING OUT HOW CRITTERS ARE * FILE 316
MADE. * FILE 316
* FILE 316
FFYCOPY 1X SUBSTITUTE FOR IEBGENER, HIGH SPEED COPY * FILE 316
USING QSAM VERSUS BSAM. * FILE 316
* FILE 316
FINDAZAP 1X BILL GODFREY: FIND A STRING IN A LOAD * FILE 316
MODULE & MAKE A ZAP FROM IT. PGM DOES NOT * FILE 316
CHANGE LOAD MODULE BUT GENERATES 'AMASPZAP' * FILE 316
CONTROL CARDS. * FILE 316
* FILE 316
GETDATE 1X ANOTHER PGM TO DO DATE CONVERSION. ALSO * FILE 316
RETURNS THE DAY OF THE WEEK AND ALSO A * FILE 316
FLAG IF IT IS A USER DEFINED HOLIDAY. * FILE 316
USEFUL IN PGMS FOR SMF. * FILE 316
* FILE 316
IDATE 1 SEE PGM DOCUMENTATION TO SEE ALL THE WAYS * FILE 316
IT CAN CONVERT A DATE, MANY, MANY,...... * FILE 316
* FILE 316
IEECVXIT 1 COMBINED VERSION OF 'IEECVXIT & * FILE 316
'IEECR2D2'. CODED THE WAY IT SHOULD BE IF * FILE 316
YOU ARE A GENIUS. SCHEDULES AN SRB TO GET * FILE 316
AROUND THE FACT THEY MOVED THE WQE CHAIN * FILE 316
IN SP1.3. NEEDS A TASK RUNNING ALL THE * FILE 316
TIME TO BUMP THE SRB OFF OF WHEN IEECR2D2 * FILE 316
IS RUN. CODER USED THE #CMD SUBSYSTEM, * FILE 316
YOU COULD HAVE USED JES2 HE SAYS. TIME * FILE 316
DEPENDENT CODE HAS BEEN REMOVED AND IT * FILE 316
WORKS IN ALL VERSIONS OF MVS/SP (AS OF A * FILE 316
WHILE AGO). WE ARE SAVED !! * FILE 316
* FILE 316
AFDSC DEVELOPED 'MCS EXIT'. CAPABILITY * FILE 316
TO SUPPRESS OR CHANGE ROUTE CODES, DESC, * FILE 316
CODES, ETC. BUT THIS ONE WILL UTILIIZE * FILE 316
'R2D2' TO DO AUTOMATIC OPERATOR REPLIES * FILE 316
AND STC'S BASED UPON WHAT COMES ACROSS THE * FILE 316
CONSOLE. NOT DEPENDENT UPON THE OPERATOR * FILE 316
BEING AWAKE. AFDSC DEVELOPED VERSION OF * FILE 316
FAMOUS 'R2D2'. LITTLE CREATURE DOES * FILE 316
AUTOMATIC START CMDS FOR THINGS THAT NEED * FILE 316
STARTING, BASED UPON WHAT COMES ACROSS THE * FILE 316
SCREEN AND IS DETECTED BY IEECVXIT. R2D2 * FILE 316
DOES THE AUTOMATIC REPLIES, RMF (R XX,GO), * FILE 316
ALLOCATION (R XX,NOHOLD). EVER HAD THE * FILE 316
OPERATOR TURN YOUR MVS SYSTEM INTO OS/MVT * FILE 316
SYSTEM BY LOCKING Q4 (R XX,HOLD)? LITTLE * FILE 316
CRITTER HAS A LOT OF POSSIBILITIES. * FILE 316
* FILE 316
IEFUJI 1 IBM STANDARD SMF EXIT, IEFUJI. HAS CODE TO * FILE 316
PASS USER FIELDS TO UCC-1 (NOW CA-1). * FILE 316
* FILE 316
IEFUTL 2 IBM STANDARD SMF EXIT, IEFUTL. WAIT TIME & * FILE 316
CPU TIME EXCESSION FOR BATCH & TSO. LITTLE * FILE 316
CODE BUT ONE THING IT CAN DO IS TO STOP * FILE 316
S522 ABENDS CAUSED BY OPERATORS. * FILE 316
* FILE 316
IEFU29 1 DETECT SMF SWITCH & SCHEDULE JOB THAT DUMPS * FILE 316
SMF DATASETS. MOVED FUNCTION FROM THE MCS * FILE 316
EXIT TO THIS EXIT (WHERE IT SHOULD BE). * FILE 316
* FILE 316
IEFU83 3 AFDSC DEVELOPED SMF EXIT, 'IEFU83'. HAS * FILE 316
ALL STANDARD SUGGESTIONS, TYPE 40 RECS, 0 * FILE 316
EXCP COUNTS, ETC. THIS IS BRANCH TABLE * FILE 316
DRIVEN, GOOD PLACE TO BEGIN FOR THOSE WHO * FILE 316
WANT TO EXPAND ITS CODE. ALSO LOOKS AT * FILE 316
14&15'S ETC. ADDED TYPE 21 SUPPORT TO * FILE 316
TELL OPERATORS TO CLEAN TAPE DRIVES * FILE 316
ENCOUNTERING PERM CHECK OR TOO MANY TEMP * FILE 316
ERRORS. LOOKS AT TOTAL CPU TIME AND * FILE 316
JOBCLASS TELLING USER WHAT CLASS SHOULD * FILE 316
HAVE BEEN USED. * FILE 316
* FILE 316
INCORZAP 2 SOURCE FOR FAMOUS 'INCORZAP' THAT IS KNOWN * FILE 316
ONLY IN OBJECT FORM. THANKS BILL GODFREY * FILE 316
FOR DISASSEMBLY AND PATIENCE. THIS PGM * FILE 316
SOURCE WAS A SPRINGBOARD FOR THE ORIGINAL * FILE 316
AUTHOR OF THE PROGRAM TO UPGRADE IT TO XA * FILE 316
(AND BEYOND). SEE FILE 421. * FILE 316
* FILE 316
IGG019WD 1X APPENDAGE FOR RECOVERY FROM WRONG DENSITY * FILE 316
TAPE VOLUMES, USED BY TAPE UTLITIES. * FILE 316
* FILE 316
IGG019WE 1X APPENDAGE TO PREVENT ERROR AT EOF, USED BY * FILE 316
TAPE UTILITIES. * FILE 316
* FILE 316
INCORZZP 1 ZAP TO THE 'INCORZAP' PROGRAM SO IT WILL * FILE 316
RUN UNDER ANY NAME. * FILE 316
* FILE 316
J13X1 3 SP1.3 EXIT. SEPARATOR (PRINT & PUNCH) FOR * FILE 316
JES2. HAS EXIT255 INVOKED TO PRINT OFF A * FILE 316
RECEIPT ON SEPARATE IBM3287 MCS PRINTER. * FILE 316
ADDED SOME CODE FOR PRINTING OFF NJE PRT * FILE 316
FROM VM/RSCS. ALSO ADDED SOME CODE FOR * FILE 316
X8700 PRT. * FILE 316
CONVERTED TO JES2/SP1.3.4 * FILE 316
* FILE 316
J13X1ACT 2 SP1.3 EXIT. ACCOUNT USED TO BILL X8700 * FILE 316
PRINTER TO VM/RSCS/NJI PRINT. RSCS OUTPUT * FILE 316
DOESN'T COME ACROSS WITH JES2 ACCT INFO * FILE 316
IN THE JOBCARD. * FILE 316
* FILE 316
J13X1XF 2 SP1.3 EXIT. X8700 VALID FORMS USED TO * FILE 316
BUILD 'DJDE' RECORD TO BE PUMPED TO X8700 * FILE 316
PRINTER. * FILE 316
* FILE 316
J13X3 1 JES2/SP1.3 EXIT3. JOB CARD SCAN EXIT, * FILE 316
ALSO HAS OTHER FEATURES. WE DO VALIDATION * FILE 316
OF ACCT CODES ON JOB CARD. * FILE 316
CONVERTED TO JES2/SP1.3.4 * FILE 316
* FILE 316
J13X4 1 JES2/SP1.3 EXIT4. JECL SCAN EXIT. * FILE 316
CONVERTED TO JES2/SP1.3.4 * FILE 316
* FILE 316
J13X10 1 JES2/SP1.3 EXIT10. SUPPRESS JES2 WTO * FILE 316
MESSAGES. JOB RECEIPT GENERATED FOR ALL * FILE 316
PARTS OF JOB THAT ARE PRINTED LOCALLY. * FILE 316
IS BECAUSE JES EXIT 1 PRODUCES RECEIPTS * FILE 316
TO A 3287 TYPE PRINTER ALL PARTS OF A JOB * FILE 316
PRINTED LOCALLY. THANKS CAPT JIM CARTER * FILE 316
AND LT PAUL FINDLEY. * FILE 316
CONVERTED TO JES2/SP1.3.4 * FILE 316
* FILE 316
J13X13 1 JES2/SP1.3 EXIT13. TSO/E EXIT. * FILE 316
* FILE 316
J13X255 2 JES2/SP1.3 EXIT255. THIS IS MY EXIT THAT * FILE 316
IS INVOKED BY USER EXIT001 TO PRINT A * FILE 316
RECEIPT ON IBM3287 MCS PRINTER SET TO * FILE 316
ROUTCDE=(14). OPERATORS NOW KNOW HOW * FILE 316
MANY LISTINGS THEY WILL FIND ON THE * FILE 316
PRINTERS. CONVERTED TO JES2/SP1.3.4 * FILE 316
* FILE 316
JESXRDR 1Y HURRAY BILL GODFREY, MY GENIUS. YOU CAN * FILE 316
SUBMIT TO A SECONDARY JES2 LIKE JESX FROM * FILE 316
THIS PGM. LOOK IN TSOSRC FILE YOU WILL * FILE 316
FIND, SUBMITX' ALLOWS YOU TO SUBMIT FROM * FILE 316
TSO TO A SECONDARY JES2. (ALSO YOU GET * FILE 316
OUTPUTX, CANCELX, AND STATUSX WITH * FILE 316
SUBMITX). MAY NOT WORK BEYOND JES2/SP1.1. * FILE 316
* FILE 316
JES0001 1Y SMP USERMOD TO ALLOW YOU TO DO TSO IN * FILE 316
SECONDARY JES, ALSO STC'S ETC ETC. * FILE 316
MAY NOT WORK BEYOND JES2/SP1.1 * FILE 316
* FILE 316
LISTCTLG 1Y LISTS OS CATALOGS EFFICIENTLY. UPDATED FOR * FILE 316
3400 SERIES TAPE DRIVES, 3330 TYPE DISKS, * FILE 316
3350'S AND, 3850 MSS. SEE COMMENTS IN THE * FILE 316
CODE FOR ADDITIONAL CAPABILITIES OF THE PGM * FILE 316
* FILE 316
LISTIDR 1 IMPROVED GODDARD SPACE CENTER PROGRAM FOR * FILE 316
LISTING 'IDR' RECORDS. * FILE 316
* FILE 316
LISTPDS 7.X GODDARD SPACE FLIGHT CNTR, FAMOUS 'LISTPDS' * FILE 316
PGM. UPDATED SO WHEN YOU DO THE FUNCTION * FILE 316
SIMILIAR TO IEHLIST, LISTPDS, IT GIVES * FILE 316
YOU THE SPF STATS, LIKE SPF 3.1 DOES. SEE * FILE 316
THE LISTPDS# FOR ALL OF ITS CAPABILITIES. * FILE 316
* FILE 316
LKEBOX1 1 PLACE NICE LOOKING BOX AROUND YOUR LKED * FILE 316
LISTING FOR USE IN CONJUNCTION WITH ASMBOX1 * FILE 316
* FILE 316
LKEDMOD 1 LKED EDITOR ZAP, PUT TIME & DATE INTO LOAD * FILE 316
MODULES MVS/3.8. * FILE 316
* FILE 316
LKEDMOD1 1Y LKED EDITOR ZAP PUTS TIME & DATE INTO LOAD * FILE 316
MODULES MVS/SP1.1 * FILE 316
* FILE 316
LKED90 1 ROTATE LKED OUTPUT ON IBM 3800 90 DEGREES * FILE 316
AND GET 2 PAGES ONTO 1. * FILE 316
* FILE 316
MACROS 1 PACKAGED MOST MACROS IN THIS MEMBER. LOOK * FILE 316
AT THE INSTALL JOBSTREAM TO SEE IF YOU WILL * FILE 316
NEED THEM. HAVE '><' IN PLACE OF './' IN * FILE 316
IEBUPDTE FORMAT SO USE 'PDSLOAD' PGM. * FILE 316
* FILE 316
MACROS FOR THIS FILE ARE NOW INCLUDED * FILE 316
* FILE 316
$-E F-M N-T U-Z * FILE 316
$#SVCKP FLOAT OPENIF * FILE 316
$#SVCKS IFIX OPENIN * FILE 316
$REGS LOADIT SEARCHDD * FILE 316
@ LOADS SNAPREGS * FILE 316
CAPS MOVE STAE$ * FILE 316
CLOSEIF MSG TESTOPEN * FILE 316
COMMENT TRC * FILE 316
DFLOAT * FILE 316
EDIT * FILE 316
* FILE 316
MIRROR 1X REVERSE THE DATA ON INPUT CARD IMAGE. I.E. * FILE 316
1-80 IS NOW IN 80-1. * FILE 316
* FILE 316
MIM#3 1X OS/MVT PGM. USED TO BE ON OS/MVT MODS * FILE 316
TAPE LONG AGO. GOOD EXAMPLE OF DOING * FILE 316
COMPRESSION AND DECOMPRESSION. LOOK AT * FILE 316
EXTENSIVE DOC IN CODE AND YOU'LL FIND A * FILE 316
USE FOR IT. * FILE 316
* FILE 316
MODREP 2 LPA MODULE REPLACEMENT PGM OBTAINED FROM * FILE 316
CBT TAPE. MODIFIED AT AFDSC SO IT WILL NOT * FILE 316
ABEND WITH A S522. SEVERAL OTHER BUGS FIXED * FILE 316
* FILE 316
MSGWRITE 2X SUBROUTINE USED BY SOME OF THE UTILITIES. * FILE 316
* FILE 316
MSSMOUNT 1 ZAP TO LET TSO USERS MOUNT MSS VOLUMES * FILE 316
WITHOUT HAVING MOUNT ATTRIBUTE IN 'UADS'. * FILE 316
* FILE 316
OFFLOAD 1 UNLOAD A PDS TO A SEQUENTIAL IEBUPDTE DSN * FILE 316
FIXED BUG ABEND 103-4C, UNBLOCKED PDS'ES. * FILE 316
(UPDATED BY JOHN KALINICH, US ARMY IN ST * FILE 316
LOUIS, MO - TO ADD ISPF STATS IN LISTPDS * FILE 316
FORMAT INTO THE "./ ADD NAME=" CARDS.) * FILE 316
* FILE 316
PARMBLOC 2 TAKE THE PARM FROM EXEC CARD AND CREATE A * FILE 316
BLOCK LETTER BANNER. HAS OPTIONS TO SLANT * FILE 316
ETC. NICE FOR REPORTS. * FILE 316
* FILE 316
PDSGAS 2X ALLOW YOU FIND A 'GAS' MEMBER IN A PDS * FILE 316
PGM PROVIDED YOU HAVE NOT COMPRESSED THE * FILE 316
PDS. ASSIGNS MEMBER NAME OF $GASXXXX. * FILE 316
XXXX GOES FROM 0001 TO 9999. THEN IT IS * FILE 316
CALLED BRUTE FORCE TO GO IN WITH SPF 3.1 * FILE 316
TO FIND IT. BUT !! WORKS NOW ON 3380S * FILE 316
AND MVS/XA 2.2.0. * FILE 316
* FILE 316
PDSLOAD 1 FILE WITH IEBUPDTE CONTROL CARDS IN THEM, * FILE 316
RELOAD TO A PDS. WILL PUT IN SPF STATS AND * FILE 316
USEFUL FOR FILES UNLOADED BY OFFLOAD PGM * FILE 316
TO FROM CBT TAPE. CHANGES THE IMBEDDED '><' * FILE 316
TO './' AS YOU RELOAD. BETTER VERSION OF * FILE 316
PDSLOAD AND OFFLOAD ARE ON FILE 093. * FILE 316
* FILE 316
PDSMATCH 1 COMPARE THE DIRECTORY OF 2 PDS'S. HAS * FILE 316
MANY OPTIONS. REFER TO COMMENTS IN THE * FILE 316
CODE FOR HOW TO RUN THIS UTILITY. * FILE 316
* FILE 316
PDSPROGM 1 USED FOR DELETING & RENAMING MEMBERS OF * FILE 316
PDS FROM A BATCH JOB. MUCH EASIER TO USE * FILE 316
THAN IEHPROGM. * FILE 316
* FILE 316
PDSPRINT 2X ANOTHER PDS LIST OR PUNCH PGM. CAN FEED * FILE 316
IT CONTROL CARDS FOR A MEMBER LIST OR * FILE 316
GIVE IT CHARACTER STRING TO SCAN FOR. * FILE 316
NICE. * FILE 316
* FILE 316
PDSTEST 3X VERIFIES INTEGRITY OF A LOAD MODULE PDS BY * FILE 316
ISSUING 'LOAD' FOR EVERY MODULE IN LOADLIB. * FILE 316
IF PROBLEMS OCCUR, YOU ARE TOLD OF THEM. * FILE 316
* FILE 316
PDSUTIL 1 ANOTHER PDS LIST TYPE PROGRAM. THINGS IT * FILE 316
DOES, GIVES YOU A TABLE OF CONTENTS AS TO * FILE 316
WHAT PAGE EACH IS ON. HANDY. * FILE 316
* FILE 316
P38BOX1 1 SUBROUTINE FOR ASMBOX1. * FILE 316
* FILE 316
P38TURN 1 CHARACTER SET USED FOR 90 DEGREE ROTATE. * FILE 316
* FILE 316
RACHECK 1Y EL-CHEAPO RACF SECURITY SVC. YALE UNIV. * FILE 316
SVC 130 MADE TO GIVE DIRT-CHEAP SECURITY. * FILE 316
WE USE WHITE HAT-BLACK HAT THEORY. EITHER * FILE 316
YOU CAN GET TO IT OR NOT. DOES NOT AFFECT * FILE 316
STC OR SYSTEM CODE. LOOK AT SVC TO SEE HOW * FILE 316
WE GIVE ALL POWERFUL SYSTEM PROGRAMMERS * FILE 316
(WHO WEAR WHITE HATS) THE PRIVILEGES. * FILE 316
* FILE 316
READF 1 SUBRNTES-READF,WRITEF,RESETF, INTENDED FOR * FILE 316
USE IN PLACE OF FORTRAN UNFORMATTED I/O * FILE 316
(REAL DOG). THIS USES FIXED BLOCKED QSAM. * FILE 316
SAVES A LOT OF CPU CYCLES. * FILE 316
* FILE 316
ROTATER 1 SUBROUTINE USED IN ROTATE PGMS. * FILE 316
REPLACED P38R90 AND P38R90B. * FILE 316
* FILE 316
SEEKMON 1Y MVS VERSION OF OS/MVT SEEKMON. * FILE 316
* FILE 316
SETINIT 1X SETS INITIATORS BASED ON TIME. HAVE INITS * FILE 316
SET, PRIME, EVENINGS, MIDS, HOLIDAYS, ETC. * FILE 316
* FILE 316
SPANCOPY 2X CLEANS FILES WITH SPANNED RECS. WILL * FILE 316
DROP BAD SPANNED RECS. IF FILE CONTAINS * FILE 316
SMF RECS THEN WILL ATTEMPT TO GIVE YOU * FILE 316
AS MUCH INFO AS IT CAN. S002 ABENDS ARE * FILE 316
NO LONGER KILLERS. * FILE 316
* FILE 316
SMFDATE 1X REPORTS ON TOTAL SMF RECORDS BY DAY PLUS * FILE 316
NUMBER OF BATCH JOBS RUN AND TSO SESSIONS. * FILE 316
* FILE 316
SMFXTRCT 8X RENAMED TO SMFXTRK, 15 MARCH 1991. * FILE 316
* FILE 316
SMFXTRK 9X GENERALIZED SMF RECORD EXTRACTION UTILITY. * FILE 316
SELECT BY RECORD TYPE, DATE INTERVAL, TIME * FILE 316
INTERVAL, ETC. REBLOCKS FROM VBS TO VB ! * FILE 316
REPORTS ON NUMBER OF RECS AND MAX + MIN. * FILE 316
SEE CODE FOR ALL CAPABILITIES. * FILE 316
* FILE 316
SMF21RP 1X REPORT SMF 21 RECORDS ON TAPE ERRORS, * FILE 316
ALTERNATIVE TO IBM UTILITY 'IFHSTATR'. * FILE 316
* FILE 316
SMF48RP 1X REPORT FROM SMF 48 RECORDS ON BSC RJE * FILE 316
STATS. MOST IMPORTANTLY, LINE ERRORS. * FILE 316
* FILE 316
SMF50RP 1X REPORT FROM SMF 50 RECS, VTAM TUNING STATS. * FILE 316
* FILE 316
SMF53RP 1X REPORT FROM SMF 53 RECS, SNA RJE STATS AND * FILE 316
MOST IMPORTANTLY, LINE ERRORS. * FILE 316
* FILE 316
SMF71FP 1X REPORT FROM RMF 71 RECORDS ON FRAMES FOR * FILE 316
PRIVATE ADDRESS SPACES. * FILE 316
* FILE 316
SMF71FR 1X RMF 71 FRAMES REPORT ON CSA FRAMES. * FILE 316
* FILE 316
SMF71LF 1X RMF 71 FRAMES REPORT ON LPA FRAMES. * FILE 316
* FILE 316
SMF71LP 1X RMF 71 NVIO PAGING REPORT. * FILE 316
* FILE 316
SMF71PN 1X RMF 71 RATE OF NON-VIO RECLAIMS, * FILE 316
PAGE-IN-OUTS. * FILE 316
* FILE 316
SMF71UP 1X RMF 71 UIC COUNTS VS NVIO & NSWAP PAGING. * FILE 316
* FILE 316
SMF71VP 1X RMF 71 RATE OF PAGING OF VIO. * FILE 316
* FILE 316
SMF71XF 1X RMF 71 FRAMES REPORTS FIXED FRAMES ABOVE * FILE 316
AND BELOW 16M LINE. * FILE 316
* FILE 316
SMF72RP 2X CONVERTED WORKLOAD ACTIVITY RPT FROM MF/1 * FILE 316
TO USE RMF 72 RECORDS. MAY BE OF INTEREST. * FILE 316
* FILE 316
SMPERS4 1X SAS VERSION OF THE BELOW FOR SMP R4. * FILE 316
* FILE 316
SMPERS5 1X SAS VERSION OF THE BELOW FOR SMP R5. * FILE 316
* FILE 316
SMPER5A 1X ASM LANG VERSION OF SMP HOLDERROR REPORT * FILE 316
FOR SMP5. SAYS IF PTFS APPLIED ARE IN * FILE 316
HOLD STATUS. * FILE 316
* FILE 316
STAE$ 1 GENERALIZED ESTAE EXIT FOR MVS. SEE * FILE 316
COMMENTS FOR ITS CAPABILITIES. * FILE 316
* FILE 316
STRMACS 1X STRUCTURED PROGRAMMING MACROS FOR ASSEMBLY * FILE 316
LANG CODING. WAS CALLED 'CONCEPT 14' LONG * FILE 316
AGO AND NEVER REALLY CAUGHT ON. WILL SEE * FILE 316
CODE WRITTEN IN IT AND THESE SHOULD WORK. * FILE 316
MACROS INCLUDED ARE AS FOLLOWS: * FILE 316
* FILE 316
* FILE 316
CASE ELSE EXITIF POPNEST * FILE 316
CASENTRY ENDCASE GBLVARS PUSHINS * FILE 316
CHKSTACK ENDDO GETCC PUSHLAB * FILE 316
DO ENDLOOP IF PUSHNEST * FILE 316
DOEXIT ENDSRCH IFPROC STKINS * FILE 316
DOPROC EXIT POPINS STRTDO * FILE 316
STRTSRCH * FILE 316
* FILE 316
SYSLOG 1X WRITE YOUR OPERATOR LOGS SAFELY AND ALWAYS * FILE 316
IN ORDER. SEE CODE FOR DETAILS. * FILE 316
* FILE 316
SYSREPRO 1X SEQUENTIAL COPY UTILITY. IT IS LIKE * FILE 316
IEBGENER BUT MUCH FASTER. PRINTS OUT * FILE 316
DSNAMES, VOLSERS, DCB, ATTRIBUTES, * FILE 316
FILE SEQ NUMBER FOR EACH DATASET. * FILE 316
* FILE 316
TANAL 3X DO QUICK SCAN OF UNLABELED OR LABELED * FILE 316
TAPE TO GIVE YOU THE MAX AND MIN BLKSIZES * FILE 316
IN ALL FILES AND THE NUMBER OF BLOCKS * FILE 316
IN THE FILE. * FILE 316
* FILE 316
TAPEL 3X GIVES YOU A QUICK SCAN OF A TAPE AND * FILE 316
GIVES INFO ON EACH FILE IN EASY TO READ * FILE 316
FORM. IS FOR THE NOT TOO BRIGHT USER YOU * FILE 316
MAY HAVE. * FILE 316
* FILE 316
TAPELZAP 1Y ZAP TO FORCE OPER REPLY WITH 6 CHAR VOLSER * FILE 316
ON TAPE. DECREASE TAPES WITH VOL=SER=U * FILE 316
MVS/SP1.1 * FILE 316
* FILE 316
TAPEMAP 1X FAMOUS 'TAPEMAP' PGM IN SOURCE CARD FORM. * FILE 316
SURPRISING WHAT YOU CAN DO WITH A DISASS- * FILE 316
EMBLER AND A LOT OF TIME AND PATIENCE. * FILE 316
* FILE 316
TAPESCAN 1 MVS UPDATED VERSION FAMOUS 'TAPESCAN'. * FILE 316
* FILE 316
TAPESC44 1 MVS UPDATED VERSION FAMOUS 'TAPESCAN'. UPD * FILE 316
TO R4.4 FOR 3480 SUPPORT BY FRANK PAJERSKI. * FILE 316
THE MAN IS NOTHING SHORT OF "GREAT". * FILE 316
* FILE 316
TIDY 1 CLEANS UP FORTRAN CODE. LOOK AT COMMENTS * FILE 316
IN CODE TO SEE HOW TO RUN THE BEAST. * FILE 316
* FILE 316
TIDYASM 1 CLEANS UP ALC CODE. SEE COMMENTS IN CODE * FILE 316
TO SEE HOW TO RUN THE BEAST. * FILE 316
* FILE 316
TLABEL 2 REPLACES IBM UTILITY 'IEHINITT'. OPERATOR * FILE 316
STARTABLE AND WILL ALLOW YOU TO PUT A * FILE 316
LABEL TO A TAPE OR JUST PUT A TAPEMARK * FILE 316
ONTO THE TAPE. (RUNS AUTHORIZED) * FILE 316
* FILE 316
TLPRINT 3X SUBROUTINE USED BY SOME TAPE UTILITIES TO * FILE 316
FORMAT A LABEL OF A TAPE. * FILE 316
* FILE 316
TMSLABL 1 FRONT-END TO UCC1 TMSTPNIT TO LABEL TAPES. * FILE 316
GETS AROUND SC03 ABEND PROBLEM WITH * FILE 316
MULTI-LINKS. WE ATTACH INSTEAD. * FILE 316
* FILE 316
TOD 1 PGM WHICH GETS THE TIME FROM THE SYSTEM BY * FILE 316
'STORE CLOCK' INSTRUCTION AND PASSES IT TO * FILE 316
SUBPROGRAM CALLED "TODCNVRT". * FILE 316
* FILE 316
TODCNVRT 1 SUBPGM CONVERTS THE RESULTS OF THE 'STCK' * FILE 316
INSTRUCTION TO EBCDIC. LOGIC FROM MODULE * FILE 316
AMDPRSEG IN AMDPRDMP (WITH A FEW MODS) * FILE 316
MAKES PARAMETER PASSING EASIER. * FILE 316
* FILE 316
UADSORT 1 READ AND PRINT CONTENTS OF 'SYS1.UADS' BY * FILE 316
TRAVELING THROUGH THE RECORDS. * FILE 316
* FILE 316
UNIVERT 1 PGM TO CONVERT CARD DECK DATA BACK & FORTH * FILE 316
TO UNIVAC(FIELDATA). USES UNIVAC TRANSLATE * FILE 316
TABLES IN 2ND CSECT. * FILE 316
* FILE 316
USRGUIDE 1 THIS IS THE 2ISG USER'S GUIDE. HOPEFULLY * FILE 316
IT WILL GIVE YOU AN IDEA OF HOW ONE PLACE * FILE 316
WROTE ONE. * FILE 316
* FILE 316
VIOEXIT 1X ACF2 VIOLATION EXIT TO ALLOW USE OF BLP IN * FILE 316
CASES WHERE TMS FOREIGN TAPES NEED TO BE * FILE 316
READ. SEE CODE FOR EXPLANATION. * FILE 316
* FILE 316
VKILLER 1 SUBTASK FOR TAPEL. LETS YOU DO MULTI * FILE 316
TAPEL'S ON A NO. OF TAPES, THEN MAKE IT * FILE 316
QUIT. YOU TELL "KILL", TO KILL TAPEL !!!! * FILE 316
* FILE 316
ZEBCOMPR 1 A ZAP TO THE IBM UTILITY 'IEBCOMPR' TO * FILE 316
DISPLAY UNMATCHED RECORDS IN EBCDIC * FILE 316
INSTEAD OF HEX. WE MADE A COPY OF * FILE 316
IEBCOMPR, CALLED IT ZEBCOMPR AND ZAPPED * FILE 316
IT. * FILE 316
* FILE 316
ZMSG 1X PGM TAKES MESSAGE OUT OF PARM FIELD AND * FILE 316
DISPLAYS ON CONSOLE. NICE TO PUT IN JCL * FILE 316
PROCS TO NOTIFY OPERATORS OF PROBLEMS. * FILE 316
* FILE 316
ZTDUMPTP 1X GENERALIZED TAPE DUMPING FACILITY. PUT IT * FILE 316
IN AN AUTHORIZED LIBRARY. POWERFUL. SEE * FILE 316
COMMENTS IN CODE FOR FULL DETAILS. * FILE 316
* FILE 316
ZTSECURE 2X MAKES SURE NO DATA IS BEYOND THE 2 DOUBLE * FILE 316
EOF MARKS ON TAPE. DUMPS FIRST 3 BLOCKS * FILE 316
AND LAST BLK OF EVERY FILE. LEAPS OVER * FILE 316
DOUBLE END-OF-FILE MARKS & WRITES BINARY * FILE 316
PATTERN UNTIL HITS REFLECTIVE STRIP. * FILE 316
* FILE 316
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
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
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
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
is from Roland Schiradin of Eltville, Germany. * FILE 321
This file contains several programs: One is a * FILE 321
COBOL load module analyzer, which will tell you * FILE 321
what options a COBOL CSECT was compiled with. * FILE 321
Another is a started task tester, to check if a * FILE 321
certain started task is running, and to set a * FILE 321
condition code in a batch job as a result. * FILE 321
* FILE 321
Addition of a CICS CEMT interface for batch. * FILE 321
* FILE 321
ADDRESS: ROLAND SCHIRADIN * FILE 321
TAUSUSSTR 52 * FILE 321
65343 ELTVILLE, GERMANY * FILE 321
* FILE 321
PHONE: 49-6123-899708 * FILE 321
* FILE 321
EMAIL: ROLAND@SCHIRADIN.DE (fix) * FILE 321
SCHIRADI@TAP.DE (can be changed) * FILE 321
SCHIRADINR@ALTE-LEIPZIGER.DE (WORK) * FILE 321
* FILE 321
Roland Schiradin (July 2000) * FILE 321
* FILE 321
-------------------------------------------------------------- * FILE 321
* FILE 321
These programs are distributed on an as is, where is * FILE 321
basis, without expressed or implied warranty of any * FILE 321
kind. It is distributed in hope that it may save other * FILE 321
people some wheel re-inventing. * FILE 321
* FILE 321
-------------------------------------------------------------- * FILE 321
* FILE 321
Addition of an ISPF interface to Roland Schiradin's COBANAL * FILE 321
program, from Fritz Alber: * FILE 321
* FILE 321
COBOL ANALYSIS ISPF DIALOG * FILE 321
Supplement to CBT File 321 program COBANAL * FILE 321
developed by Roland Schiradin * FILE 321
* FILE 321
Fritz Alber * FILE 321
Albstr. 19 * FILE 321
D 72649 Wolfschlugen * FILE 321
TEL. 0049-7022/959234 * FILE 321
FAX. 0049-7022/959236 * FILE 321
* FILE 321
E-MAIL : Alber¹alber-edv.de * FILE 321
INTERNET: www.alber-edv.de * FILE 321
* FILE 321
------------------- Index --------------------- * FILE 321
* FILE 321
COBANAL This Program analyzes your Cobol-Load-Modules. * FILE 321
There is no need for the source. Support for * FILE 321
single programs also for a complete load-lib. * FILE 321
This program require the STRING macro from * FILE 321
FILE183. I have include the current versions * FILE 321
of STRING and STRINGXA. Thanks to Gilbert * FILE 321
Saint-Flour * FILE 321
* FILE 321
Full support for COBOL for OS/390 and VM * FILE 321
formally called COBOL for MVS and VM, * FILE 321
COBOL/370 or ADCYLE COBOl/370. Full support * FILE 321
for COBOL-II every version. Not much * FILE 321
support for COBOL-I. Not much support for C * FILE 321
and LE-enabled Assembler. * FILE 321
* FILE 321
If you have older or newer Cobol programs * FILE 321
please send the load modules to me at * FILE 321
Roland(at)Schiradin.de. I'll add some code * FILE 321
to support those Cobol-Versions. Put the * FILE 321
load module pds in TSO XMIT format. * FILE 321
* FILE 321
If you like to get the newest version of these * FILE 321
programs, please contact Roland(at)Schiradin.de * FILE 321
* FILE 321
You can find a nice ISPF interface for CobAnal * FILE 321
on File 330, which is also included here on * FILE 321
File 321. * FILE 321
* FILE 321
Last Change: July 2000 * FILE 321
* FILE 321
COBJCL A sample JCL for COBANAL * FILE 321
* FILE 321
Last Change: March 1998 * FILE 321
* FILE 321
STCCHECK This program check if a started task is * FILE 321
already active. This avoid abend U1800 if a * FILE 321
operator start the same CICS again. Please note * FILE 321
this works only on the same MVS-image, I'll add * FILE 321
somtimes code to check the SYSPLEX. * FILE 321
* FILE 321
//******************* EXECUTE CICS * FILE 321
//***************************************** * FILE 321
//STCCHECK EXEC PGM=STCCHECK,PARM='DCCA201' * FILE 321
//SYSPRINT DD SYSOUT=* * FILE 321
//SYSUDUMP DD SYSOUT=D * FILE 321
//***************************************** * FILE 321
//DCCSTRT IF (STCCHECK.RC = 0) THEN * FILE 321
//DCCA201 EXEC PROC=DCICSA * FILE 321
//EDCCSTRT ENDIF * FILE 321
* FILE 321
RC = 0 DCCA201 is not active * FILE 321
RC not 0 DCCA201 is active * FILE 321
* FILE 321
Last Change: March 1998 * FILE 321
* FILE 321
STRING Provides functions similar to PL/I's * FILE 321
PUT EDIT or COBOL's STRING. * FILE 321
* FILE 321
Taken from FILE183. * FILE 321
* FILE 321
EXCIJCL Sample JCL to invoke the * FILE 321
CICS-Batch-Interface * FILE 321
* FILE 321
Last Change: March 1999 * FILE 321
* FILE 321
EXCIRDO CSD for CICS 4.1 and higher * FILE 321
* FILE 321
Last Change: March 1999 * FILE 321
* FILE 321
EXCI The CEMT-Batch-Interface written in Cobol * FILE 321
Note: You need the EXCI-Stub (DFHEXLI) in * FILE 321
your BIND-Job !!!! Please specify EXCI and * FILE 321
COBOL3 as the precompiler option. * FILE 321
* FILE 321
Last Change: March 1999 * FILE 321
* FILE 321
EXCISE The CICS-Server-Program written in * FILE 321
Assembler. Please expand the program to * FILE 321
your needs. * FILE 321
* FILE 321
Last Change: March 1999 * FILE 321
* FILE 321
STRINGXA Dropped * FILE 321
* FILE 321
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
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
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
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
IS FROM JIM MARSHALL OF THE U.S. AIR FORCE, RETIRED. * FILE 326
THIS FILE CONTAINS THE COMPILER AND LIBRARY FOR * FILE 326
THE VANILLA OS/MVS FORTRAN H COMPILER AND LIBRARY * FILE 326
* FILE 326
JIM HAS RETIRED FROM THE AIR FORCE. HIS ADDRESS IS: * FILE 326
* FILE 326
JIM MARSHALL, US TREASURY * FILE 326
FINANCIAL MANAGEMENT SERVICE * FILE 326
PRINCE GEORGES PLAZA II - ROOM 400B * FILE 326
3700 EAST-WEST HIGHWAY * FILE 326
HYATTSVILLE, MD 20782 * FILE 326
202-874-8353 * FILE 326
* FILE 326
THIS FILE HAS BEEN UPDATED BY RICK FOCHTMAN OF * FILE 326
LISLE, ILLINOIS. 630-719-1545 * FILE 326
* FILE 326
THIS FILE HAS BEEN UPDATED TO INCLUDE A RE-LINKEDIT * FILE 326
OF ALL FORTRAN MODULES, USING THE DFP 3.1 LINKAGE * FILE 326
EDITOR. * FILE 326
* FILE 326
THESE MODULES HAVE BEEN RUN ON MVS/XA 2.2.3. * FILE 326
HOPEFULLY THEY SHOULD BE GOOD ON MVS/ESA RELEASES. * FILE 326
* FILE 326
RICK HAS BEEN VERY HELPFUL TO USERS OF FORTRAN, IN * FILE 326
THAT HE HAS MARKED ALL THE MODULES IN THEIR IDR * FILE 326
RECORDS, TO SAY WHETHER THEY BELONG TO FORTRAN G OR * FILE 326
FORTRAN H, COMPILER OR LIBRARY MODULE. YOU CAN * FILE 326
BROWSE THESE LOAD MODULES, AND SEE WHICH COMPONENT * FILE 326
THEY BELONG TO. * FILE 326
* FILE 326
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
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
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
is from Fritz Alber, and contains an ISPF interface * FILE 330
to the COBANAL program from Roland Schiradin that * FILE 330
is on File 321. In addition: * FILE 330
* FILE 330
This file also contains an ISPF application to * FILE 330
analyze the output from the CICS CSD extract * FILE 330
program, DFH$FORA. * FILE 330
* FILE 330
For more information about the CICS CSD extract * FILE 330
program, please see the CICS Customization Guide, * FILE 330
chapter "User programs for the system definition * FILE 330
utility". This application requires ISPF Version * FILE 330
4. * FILE 330
* FILE 330
Members having to do with the COBANAL interface * FILE 330
are prefixed COBA. Members having to do with the * FILE 330
CICS CSD extract interface are prefixed CCSD. * FILE 330
* FILE 330
The COBA application consist of 4 datasets. * FILE 330
Rexx library * FILE 330
Panel Library * FILE 330
Message and Skeleton Library * FILE 330
Table Libary * FILE 330
* FILE 330
The CCSD application consist of 5 datasets. * FILE 330
Rexx library * FILE 330
Panel Library * FILE 330
Message Library * FILE 330
Skeleton Library * FILE 330
Table Libary * FILE 330
* FILE 330
-------------------- ISPF application COBA ------------------ * FILE 330
* FILE 330
supplement to CBT File 321 * FILE 330
* FILE 330
COBA This Application analyzes the output from the * FILE 330
Cobol analysis program developed by Roland * FILE 330
Schiradin. * FILE 330
This application requires ISPF Version 4. * FILE 330
* FILE 330
The application consists of 4 datasets: * FILE 330
REXX library * FILE 330
Panel Library * FILE 330
Message and Skeleton Library * FILE 330
Table Libary * FILE 330
* FILE 330
You have to change member $COBA in the * FILE 330
REXX library * FILE 330
* FILE 330
See section/label Coba_Parms thru End_Coba_Parms. * FILE 330
* FILE 330
Please change the following variables to * FILE 330
your standards: * FILE 330
* FILE 330
ACCOUNT * FILE 330
CLASS * FILE 330
MSGCLASS * FILE 330
STEPLIB * FILE 330
ISPFHLQ * FILE 330
COBAAPPL * FILE 330
COBAHLQ * FILE 330
LLQCLIB * FILE 330
LLQPLIB * FILE 330
LLQMLIB * FILE 330
LLQSLIB * FILE 330
LLQTLIB * FILE 330
LLQTABL * FILE 330
* FILE 330
After these changes you can execute * FILE 330
procedure $COBA. * FILE 330
* FILE 330
First you'll see a selection panel to display * FILE 330
or create analysis tables. * FILE 330
* FILE 330
If you have any problems, comments or improvements * FILE 330
please contact Alber@alber-edv.de * FILE 330
* FILE 330
email: Fritz Alber * 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
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
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
IS FROM HARALD DENKER (VIA GILBERT SAINT-FLOUR) AND * FILE 333
CONTAINS AN MVS VERSION OF THE GZIP COMPRESS AND * FILE 333
DECOMPRESS UTILITY. THIS UTILITY USES THE LEMPEL-ZIV * FILE 333
COMPRESSION ALGORITHM AND IS WRITTEN IN C/370. * FILE 333
* FILE 333
THIS IS THE MVS VERSION OF GZIP VERSION 123, * FILE 333
PORTED TO MVS BY HARALD DENKER, AND COMPLETED BY * FILE 333
ROLAND SCHIRADIN. * FILE 333
* FILE 333
IT IS WRITTEN IN C/370 AND REQUIRES THE C/370 * FILE 333
RUN-TIME OR LANGUAGE ENVIRONMENT (LE). * FILE 333
* FILE 333
THE SOURCE AND LOAD-MODULE HAVE BEEN RETRIEVED IN * FILE 333
JUNE 1996 FROM FTP.WESTFALEN.DE/IBM_C370, MOSTLY * FILE 333
BY HARALD DENKER, BUT SOME OF THE JOB WAS COMPLETED * FILE 333
BY ROLAND SCHIRADIN. * FILE 333
* FILE 333
TO CREATE THE LOAD-MODULE, ISSUE THE FOLLOWING * FILE 333
COMMAND: * FILE 333
* FILE 333
RECEIVE INDA(FILE333.PDS(XMITLOAD)) * FILE 333
* FILE 333
FOR SUPPORT, PLEASE CONTACT HARALD DENKER OR ROLAND * FILE 333
SCHIRADIN. * FILE 333
* FILE 333
ADDRESS: HARALD DENKER * FILE 333
AM SCHOELZBACH 105 * FILE 333
46282 DORSTEN, GERMANY * FILE 333
* FILE 333
PHONE: +49 2362 23059 * FILE 333
* FILE 333
EMAIL: HARALD_DENKER@MS.MAUS.DE (<16 KB) * FILE 333
HARRY@HAL.WESTFALEN.DE (NO LIMIT) * FILE 333
* FILE 333
ADDRESS: ROLAND SCHIRADIN * FILE 333
STOCKBORNSTRASSE 10 * FILE 333
65343 ELTVILLE, GERMANY * FILE 333
* FILE 333
PHONE: 49-6123-899708 * FILE 333
* FILE 333
EMAIL: SCHIRADI@TAP.DE * FILE 333
0617123439-4095@T-ONLINE.DE (WORK) * FILE 333
ROLAND.SCHIRADIN@T-ONLINE.DE (WORK) * FILE 333
* FILE 333
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
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
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
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
IS FROM GILBERT SAINT-FLOUR OF AMS (Automated * FILE 338
(Migration Services) AND CONTAINS PROGRAMS AND * FILE 338
ENHANCEMENTS FOR RUNNING A P390 SYSTEM. * FILE 338
* FILE 338
EMAIL: GSF@IBM.NET * FILE 338
WEB PAGE: http://members.home.net/gsf (MAY REQUIRE * FILE 338
LOWER CASE) * FILE 338
* FILE 338
CONTENTS OF P390IPL.PDS * FILE 338
-------- -- ----------- * FILE 338
* FILE 338
CANCELU - CANCEL YOUR OWN TSO SESSION (possibly from * FILE 338
a remote location) * FILE 338
* FILE 338
HASP373 - SHOW ACTIVE JOBS AND TSO USERS ON * FILE 338
MASTER CONSOLE * FILE 338
* FILE 338
$LWILTIP - TIPS FROM LARRY WILLIAMS ON IMPROVING THE * FILE 338
P390'S PERFORMANCE * FILE 338
* FILE 338
P390IPL - AUTOMATE MVS IPL AND SHUTDOWN ON THE P390 * FILE 338
* FILE 338
SHUTDOWN - AUTOMATE MVS SHUTDOWN PROCEDURE ON THE P390 * FILE 338
* FILE 338
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
IS FROM ALFRED NYKOLYN AND ROLAND SCHIRADIN AND * FILE 340
CONTAINS A NEW PROGRAM CALLED DCM (DIRT CHEAP * FILE 340
MONITOR - UNRELATED TO THE DIRT CHEAP MONITOR * FILE 340
SYSTEM (DCMS) FROM THE OLD CBT TAPES). * FILE 340
* FILE 340
THE PURPOSE OF DCM IS TO REPORT ON STATISTICS * FILE 340
COLLECTED BY THE 7980-3 AND COMPATIBLE CONTROLLERS. * FILE 340
* FILE 340
EMAIL: ALFRED NYKOLYN - APN@ISTAR.CA * FILE 340
ROLAND SCHIRADIN - SCHIRADI@TAP.DE * FILE 340
* FILE 340
DCM - DIRT CHEAP MONITOR V0.8 * FILE 340
* FILE 340
7980-3 AND COMPATIBLE CONTROLLERS KEEP A GREAT DEAL OF * FILE 340
STATISTICS. GETTING THEM OUT IS ANOTHER STORY. IF YOU * FILE 340
HAVE EXTRA $$$, YOU CAN USE AZTEC; IF YOU ARE A * FILE 340
MASOCHIST, YOU USE IDCAMS. IN ORDER TO LEARN HOW THE * FILE 340
7980-3 WORKS, I WROTE DCM. HERE IS A SAMPLE SCREEN * FILE 340
(SQUEEZED DOWN AND ABBREVIATED). * FILE 340
* FILE 340
DIRT CHEAP MONITOR V0.8 * FILE 340
* FILE 340
DEVICES 0E00-0E3F SSID 0010 I/O RATES MEASURED FROM * FILE 340
VOLUME SYSLBB DEVADDR 0E08 SSCH RATE 30.5/S * FILE 340
PATHS 08 13 48 53 DUPLEXED: SECONDARY DEV E17 * FILE 340
CACHE: ACTIVE DFW: ACTIVE * FILE 340
* FILE 340
I/O TIME(MS) 4.6 PEND 0.5 DISC 1.2 CONN 2.9 * FILE 340
I/O 30.4/S READS 29.2/S WRITES 1.2/S * FILE 340
NORMAL 30.4/S READS 29.2/S WRITES 1.2/S * FILE 340
SEQL 0.0/S READS 0.0/S WRITES 0.0/S -SWITCHES-* FILE 340
CFW 0.0/S READS 0.0/S WRITES 0.0/S SD0: AB * FILE 340
DFW 1.2/S NORMAL 1.2/S SEQL 0.0/S SD1: AB * FILE 340
BYPASS 0.0/S INHIBIT 0.0/S SD2: AB * FILE 340
STAGES 2.1/S NORMAL 2.1/S SEQL 0.0/S SD3: AB * FILE 340
DESTAGES 0.0/S PREREADS 0.0/S CU SERIAL# 011717 * FILE 340
READ HIT% 94.9 NORMAL% 92.6 SEQL% 99.9 * FILE 340
CFW HIT% 0.0 READ% 0.0 WRITES% 0.0 * FILE 340
DFW HIT% 99.0 NORMAL% 99.0 SEQL% 78.3 * FILE 340
R/W RATIO 33.5 HITS/STAGE 14.2 RETRY% 0.0 * FILE 340
* FILE 340
CACHE INSTALLED 65536K * FILE 340
CACHE AVAILABLE 65136K * FILE 340
NVS INSTALLED 4096K * FILE 340
PINNED DATA 0K * FILE 340
* FILE 340
ENTER: SR, LR, SH, LH, ALL, ONL, AUTO, * FILE 340
, 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
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
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
IS A VTOCLIST PROGRAM FROM JOHN KALINICH OF THE * FILE 343
U.S. ARMY IN ST. LOUIS, MISSOURI. THIS PROGRAM * FILE 343
ORIGINALLY CAME FROM A UK G.U.I.D.E. TAPE, AND * FILE 343
WAS WRITTEN BY PETER HAVERCAN. IT HAS BEEN ENHANCED * FILE 343
FOR OPERATING SYSTEM IMPROVEMENTS SEVERAL TIMES, BY * FILE 343
JOHN KALINICH. THIS CODE CURRENTLY DOES NOT SUPPORT * FILE 343
INDEXED VTOC FREESPACE CALCULATIONS, BUT BESIDES THAT * FILE 343
IT WORKS FINE ON MODERN SYSTEMS. * FILE 343
* FILE 343
EMAIL: jkalinic@csc.com * FILE 343
* FILE 343
is a REXX EXEC from Joerg Berning to list the VTOC * FILE 344
of a disk pack, and display it under ISPF EDIT. It * FILE 344
is a handy dandy, quick method of displaying disk * FILE 344
extents. (NEW IMPROVED VERSION AS OF V-423.) * FILE 344
* FILE 344
>>>> This file has now been expanded to included <<<< * FILE 344
>>>> various other utilities from Joerg Berning, <<<< * FILE 344
>>>> which are described below. <<<< * FILE 344
* FILE 344
Private: * FILE 344
joerg.berning@gmx.net * FILE 344
(+49)6172/941525(-6 automatic answering machine) * FILE 344
D-61352 Bad Homburg * FILE 344
* FILE 344
Duty: * FILE 344
joerg_berning@de.sonymusic.com * FILE 344
(+49)69/13888-432 * FILE 344
D-60313 Frankfurt am Main * FILE 344
* FILE 344
POSTAL: JOERG BERNING * FILE 344
IN DEN LICHGAERTEN 3 * FILE 344
D-61352 BAD HOMBURG * FILE 344
GERMANY(HESSEN) * FILE 344
* FILE 344
----------------------------------------------------------- * FILE 344
* FILE 344
Thanks to Gilbert Saint-flour for letting me use his * FILE 344
disclaimer: * FILE 344
* FILE 344
Joerg Berning neither expresses nor implies any * FILE 344
warranty as to the fitness of these computer programs * FILE 344
for any function. The use of these programs or the * FILE 344
results therefrom is entirely at the risk of the user. * FILE 344
Consequently, the user may modify these programs in * FILE 344
any way he/she thinks fit. * FILE 344
* FILE 344
These programs are Freeware and may be freely copied. * FILE 344
They may be freely distributed to any other party on * FILE 344
condition that no inducement beyond reasonable * FILE 344
handling costs is offered or accepted by either side * FILE 344
for such distribution. * FILE 344
* FILE 344
I would be interested to hear of comments and/or * FILE 344
proposed enhancements. Please write to * FILE 344
joerg.berning(at)gmx.net. * FILE 344
* FILE 344
----------------------------------------------------------- * FILE 344
* FILE 344
The fun starts here: * FILE 344
* FILE 344
EditMacro Add () * 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
IS FROM RICK FOCHTMAN OF CHICAGO, ILLINOIS, AND * FILE 345
CONTAINS TWO ENQUEUE DISPLAY PROGRAMS, WHICH WILL * FILE 345
PROVE USEFUL, AS DESCRIBED BELOW. * FILE 345
* FILE 345
SINCE WE'VE GONE TO GRS, IN PLACE OF MIM, THERE WAS ONE * FILE 345
FEATURE OF MIM THAT WAS SORELY MISSED. MIM WOULD * FILE 345
EXPLAIN THE NATURE OF DATASET CONTENTIONS IN GREATER * FILE 345
DETAIL THAN THE INITIAL MESSAGES FROM GRS. TRUE, YOU * FILE 345
COULD GET THE DETAIL BY ISSUING THE "D GRS,C" COMMAND, * FILE 345
IF YOU MANAGED TO CATCH IT QUICK ENOUGH. WE DEEMED * FILE 345
THAT THIS WAS INSUFFICIENT. ATTACHED ARE THE SOLUTIONS * FILE 345
DEVELOPED HERE. ONE IS A STARTED TASK THAT CHECKS FOR * FILE 345
A CONTENTION SITUATION EACH MINUTE AND DISPLAYS * FILE 345
INFORMATION ABOUT IT. THE OTHER IS A MPF EXIT THAT * FILE 345
DISPLAYS THE SAME INFORMATION WHENEVER A DATASET * FILE 345
CONTENTION SITUATION IS ANNOUNCED VIE THE IEF099I * FILE 345
MESSAGE. * FILE 345
* FILE 345
THESE ARE VERY SIMPLE ROUTINES, WITHOUT A LOT OF BELLS * FILE 345
AND WHISTLES. BUT THEY WORK! THEY MIGHT NOT TELL US * FILE 345
HOW MANY MINUTES A JOB HAS BEEN WAITING FOR DATASETS, * FILE 345
BUT AT LEAST WE'LL KNOW IT'S STILL WAITING. * FILE 345
* FILE 345
YOUR SUGGESTIONS AND COMMENTS ARE WELCOME.... * FILE 345
* FILE 345
RICK FOCHTMAN * FILE 345
312-786-5772 WORK 630-719-1545 HOME * FILE 345
RICK.FOCHTMAN@BOTCC.COM WORK * FILE 345
RICKFOCHTMAN@COMPUSERVE.COM HOME * FILE 345
* FILE 345
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
IS THE MODLIST PROGRAM FROM RICK FOCHTMAN OF * FILE 347
CHICAGO, ILLINOIS. THIS PROGRAM LOOKS AT A LOAD * FILE 347
LIBRARY, AND TELLS YOU WHICH COMPILE-LINKEDIT * FILE 347
OPTIONS ANY COBOL MODULES WERE CREATED WITH. * FILE 347
* FILE 347
EMAIL: RICK.FOCHTMAN@BOTCC.COM * FILE 347
RICKFOCHTMAN@COMPUSERVE.COM * FILE 347
* FILE 347
PHONE: 312-786-5772 WORK * FILE 347
630-719-1545 HOME * FILE 347
* FILE 347
THE MODLIST PROGRAM WAS DEVELOPED AS A STOP-GAP MEASURE, * FILE 347
TO TRY AND KEEP A HANDLE ON OUR OS/VS COBOL TO COBOL II * FILE 347
CONVERSION PROJECT. THE ONLY KNOWN BUG LEFT IS IN * FILE 347
DEALING WITH MODULES THAT MAY LOAD ABOVE THE 16M LINE. * FILE 347
SOMETIMES THEY WORK OK; SOMETIMES NOT. * FILE 347
* FILE 347
THE OUTPUT FOR EACH LMOD STARTS WITH A LINE OF HYPHENS. * FILE 347
THE FIRST LINE BELOW THAT DETAILS THE LMOD INFO, * FILE 347
INCLUDING SOME LKED ATTRIBUTES. BELOW THAT ARE LINES * FILE 347
FOR EACH CSECT IN THE LMOD, MARKED BY CS-(NAME) FOR * FILE 347
EACH CSECT. WHERE POSSIBLE, COBOL COMPILER OPTIONS * FILE 347
THAT WERE IN EFFECT FOR THE CSECT ARE DETAILED. THE * FILE 347
VARIOUS COMPILERS THAT ARE NOW RECOGNIZED ARE ANS4, * FILE 347
OS/VS (LISTED AS VSR1) AND COBOL II (LISTED AS C2) * FILE 347
* FILE 347
THE PAN STAMP IS AN IN-HOUSE REQUIREMENT, SO THAT WE * FILE 347
CAN MATCH SOURCE WITH LMOD CODE. SINCE SOMEONE ELSE * FILE 347
MIGHT BE USING THE SAME MECHANISM, I'VE LEFT THAT CODE * FILE 347
INTACT. * FILE 347
* FILE 347
THIS IS A REPORT PROGRAM ONLY AND THEREFORE NEEDS ONLY * FILE 347
READ ACCESS TO ANY LOADLIB IT PROCESSES. * FILE 347
* FILE 347
USE AS YOU SEE FIT; BUT I'D APPRECIATE HAVING ANY MODS * FILE 347
SENT BACK TO ME, TO INCORPORATE IN LATER VERSIONS AS * FILE 347
NEEDED. * FILE 347
* FILE 347
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
is from Willy Jensen of Harders Jensen in Denmark, * FILE 349
and is a set of REXX execs to update the in-storage * FILE 349
copy of your ISPF Command Table, and to list its * FILE 349
entries. This is done for your ISPF session only, * FILE 349
and it is effective immediately. Very handy. * FILE 349
* FILE 349
email: "Harders Jensen" * FILE 349
* FILE 349
IS CURRENTLY EMPTY * FILE 350
* FILE 350
IS FROM KRISS DAVIS OF THE UNIVERSITY OF CHICAGO * FILE 351
AND CONTAINS TWO SMALL COBOL PROGRAMS WHICH LIST * FILE 351
THE CURRENTLY INSTALLED LE LEVEL. ONE PROGRAM * FILE 351
IS FOR BATCH, AND THE OTHER IS FOR CICS. ALSO * FILE 351
INCLUDED IN THIS FILE IS A C PROGRAM FROM ROLAND * FILE 351
SCHIRADIN OF ELTVILLE, GERMANY, WHICH DOES THE * FILE 351
SAME THING. * FILE 351
* FILE 351
EMAIL: KRISS DAVIS * FILE 351
EMAIL: ROLAND SCHIRADIN (ROLAND@SCHIRADIN.DE) * FILE 351
* FILE 351
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
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
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
IS FROM LIONEL DYCK OF KAISER PERMANENTE IN WALNUT * FILE 355
CREEK, CALIFORNIA. THIS FILE CONTAINS A PROGRAM * FILE 355
CALLED KONCAT, WHICH IS AN ASSEMBLER TSO COMMAND * FILE 355
TO CONCATENATE A NEW DATASET TO A DDNAME ALLOCATED * FILE 355
TO YOUR TSO SESSION. THIS PROGRAM WORKS FOR SWA * FILE 355
ABOVE THE LINE. * FILE 355
* FILE 355
THE PROGRAM WAS ORIGINALLY WRITTEN BY EDWARD * FILE 355
TISCHOFER AND MIKE WHALEY. * FILE 355
* FILE 355
LIONEL B. DYCK * FILE 355
KAISER PERMANENTE * FILE 355
25 NORTH VIA MONTE * FILE 355
WALNUT CREEK, CALIFORNIA 94598 * FILE 355
* FILE 355
IBMmail: USKFHEFH * FILE 355
internet: SYSLBD@NCAL.KAIPERM.ORG * FILE 355
lionel.b.dyck@dp.org * FILE 355
IBMlink: SYSLBD * FILE 355
phone: (925) 926-5332 * FILE 355
home page: http://www.geocities.com/lbdyck * FILE 355
* FILE 355
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
is from Carl Hafner of Steli, Inc. in Monroe, New * FILE 357
York. This file contains several utilities to * FILE 357
handle partitioned datasets. * FILE 357
* FILE 357
There are 5 utilities each with their own * FILE 357
documentation member plus a @README@ member * FILE 357
describing them. * FILE 357
* FILE 357
In brief, the 5 are PDS utilities: * FILE 357
* FILE 357
- PDSMATCH from CBTTAPE now with doc * FILE 357
- PDSGAS also from CBTTAPE also with new doc * FILE 357
- PDSPUNCH new to turn any PDS into a * FILE 357
into sequential file with IEBUPDTE ADD * FILE 357
header cards * FILE 357
- PDSLIST list program with fixes * FILE 357
- PDSGEN can generate delete, de-"gas" * FILE 357
or simple list of member names * FILE 357
* FILE 357
The members are named with the prefix "PDS" left * FILE 357
off. I've included the old version of this file * FILE 357
as OFFLOAD'ed (sequentialized) member OLDF357. * FILE 357
* FILE 357
Carl Hafner * FILE 357
Steli, Inc. * FILE 357
27 Half Hollow Turn * FILE 357
Monroe, NY 10950-4118 * FILE 357
* FILE 357
email: chafner@frontiernet.net * FILE 357
* FILE 357
File Contents: * FILE 357
* FILE 357
$$$NOTE 01.00 2000/03/15 20:17 26 SBGOLOB * FILE 357
@FILE357 01.08 2000/03/17 9:32 52 SBGOLOB * FILE 357
@README@ 01.01 2000/03/17 9:32 27 PDSUTIL * FILE 357
DEGAS 01.00 2000/03/14 8:39 22 PDSUTIL * FILE 357
PDSGAS 01.00 2000/03/14 8:39 919 PDSUTIL * FILE 357
PDSGAS$ 01.00 2000/03/14 8:39 15 PDSUTIL * FILE 357
PDSGAS# 01.00 2000/03/14 8:39 154 PDSUTIL * FILE 357
PDSGEN 01.00 2000/03/14 8:39 1344 PDSUTIL * FILE 357
PDSGEN$ 01.00 2000/03/14 8:39 25 PDSUTIL * FILE 357
PDSGEN# 01.00 2000/03/14 8:39 431 PDSUTIL * FILE 357
PDSLIST 01.00 2000/03/14 8:39 1939 PDSUTIL * FILE 357
PDSLIST$ 01.00 2000/03/14 8:39 15 PDSUTIL * FILE 357
PDSLIST# 01.00 2000/03/14 8:39 492 PDSUTIL * FILE 357
PDSMATC$ 01.00 2000/03/14 8:39 18 PDSUTIL * FILE 357
PDSMATC# 01.00 2000/03/14 8:39 170 PDSUTIL * FILE 357
PDSMATCH 01.00 2000/03/14 8:39 1147 PDSUTIL * FILE 357
PDSPUNC$ 01.00 2000/03/14 8:39 17 PDSUTIL * FILE 357
PDSPUNC# 01.00 2000/03/14 8:39 285 PDSUTIL * FILE 357
PDSPUNCH 01.00 2000/03/14 8:39 819 PDSUTIL * FILE 357
* FILE 357
IS SOURCE CODE FOR THE SYSLOG STORAGE PROGRAM * FILE 358
PACKAGE FROM ERIC BIELEFELD OF MILWAUKEE, WISCONSIN. * FILE 358
* FILE 358
- - - - - - - - - - - - - - - - - - - - - * FILE 358
* FILE 358
SUBJECT: SYSOUT WRITER UTILITY * FILE 358
FROM: ERIC BIELEFELD * FILE 358
* FILE 358
I DON'T KNOW IF YOU HAVE BEEN FOLLOWING IBM-MAIN * FILE 358
LATELY, BUT THERE HAS BEEN A DISCUSSION ON UTILITIES * FILE 358
FOR PUTTING SYSLOG ON TAPE, OR OTHER MEANS OF KEEPING * FILE 358
IT AROUND. WE HAVE A PUBLIC DOMAIN PROGRAM CALLED * FILE 358
SOUTSYS THAT I THINK SOME PEOPLE COULD USE. I THINK IT * FILE 358
WOULD BE A GOOD CANDIDATE FOR THE CBT TAPE. * FILE 358
* FILE 358
HERE IS A DESCRIPTION FROM THE INSTALL PDS THAT GIVES A * FILE 358
GOOD OVERVIEW OF THE PRODUCT. WE USE IT AT HARNISCHFEGER * FILE 358
TO KEEP ALL OF OUR MESSAGE CLASS OUTPUT AND SYSLOG. WE * FILE 358
KEEP IT ONLINE FOR 8 DAYS, AND THEN IT IS ARCHIVED TO * FILE 358
TAPE WHICH WE KEEP UNTIL IT IS 90 DAYS OLD. * FILE 358
* FILE 358
BASICALLY, THE SYSTEM USES AN EXIT TO THE EXTERNAL * FILE 358
WRITER TO WRITE ALL SYSOUT FOR THE CLASS CHOSEN TO A * FILE 358
SEQUENTIAL DISK FILE. IT KEEPS TRACK OF WHERE EVERY * FILE 358
FILE STARTS IN A VSAM FILE, AND WHEN THE SEQ. DISK * FILE 358
FILE IS FULL, COPIES IT TO A DIFFERENT FILE ON DISK AND * FILE 358
COMPRESSES IT. AFTER A PERIOD OF TIME SET BY THE USER, * FILE 358
EACH COMPRESSED SEQ. FILE IS MODDED ONTO TAPE. ISPF * FILE 358
PANELS ARE USED TO LOOK AT ANY SYSOUT IN THE SYSTEM. * FILE 358
DATA ON TAPE CAN BE PRINTED TO HELD OUTPUT, OR LOOKED * FILE 358
AT ONLINE, EXCEPT YOU HAVE TO WAIT FOR THE TAPE MOUNT. * FILE 358
* FILE 358
ERIC BIELEFELD * FILE 358
SR. MVS SYSTEMS PROGRAMMER * FILE 358
HARNISCHFEGER CORP. * FILE 358
MILWAUKEE, WI * FILE 358
414-385-6397 * FILE 358
EBIE@HII.COM * FILE 358
* FILE 358
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
IS FROM THE STATE OF WISCONSIN, WILSON STREET * FILE 360
REGIONAL COMPUTING CENTER WITH THE FOLLOWING MEMBERS * FILE 360
THIS FILE IS IN IEBUPDTE SYSIN FORMAT : * FILE 360
* FILE 360
ASMCMD THIS MEMBER IS THE JCL TO ASSEMBLE AND * FILE 360
LINKEDIT COMMAND INTO A LINKLIST * FILE 360
LIBRARY. * FILE 360
* FILE 360
ASMSPY THIS MEMBER IS THE JCL TO ASSEMBLE AND * FILE 360
LINKEDIT SPY INTO A LINKLIST LIBRARY. * FILE 360
* FILE 360
ASMSWP THIS MEMBER IS THE JCL TO ASSEMBLE AND * FILE 360
LINKEDIT SWAP INTO A LINKLIST LIBRARY. * FILE 360
* FILE 360
AUTH THIS MEMBER IS THE SOURCE FOR AUTH * FILE 360
MACRO TO ISSUE A USER SVC THAT GETS AND * FILE 360
RELEASES PROGRAM AUTHORIZATION FOR AN * FILE 360
ASSEMBLER PROGRAM. * FILE 360
* FILE 360
BEGIN THIS MEMBER IS THE SOURCE FOR BEGIN * FILE 360
MACRO TO DO STANDARD ENTRY LINKAGE IN * FILE 360
ASSEMBLER PROGRAMS. * FILE 360
* FILE 360
COMMAND THIS MEMBER IS THE SOURCE FOR COMMAND * FILE 360
VERSION 2.0. IT WAS ORIGINALLY TAKEN * FILE 360
FROM A FILE ON THE CBT TAPE. SEE THE * FILE 360
PROGRAM DOCUMENTATION FOR ADDITIONAL * FILE 360
COMMENTS ABOUT THE ORIGIN OF THIS CODE. * FILE 360
COMMAND IS USED BY SPY TO ISSUE * FILE 360
OPERATOR COMMANDS VIA SVC 34. I ADDED * FILE 360
THE SUPPORT FOR THE BEGIN, FINISH AND * FILE 360
AUTH MACROS. * FILE 360
* FILE 360
DISIMAGE IBM 3800 PRINTING SUBSYSTEM SUPPORT * FILE 360
UTILITY. THIS MEMBER WILL ALLOW YOU TO * FILE 360
CREATE AN IEBIMAGE SOURCE DECK FROM ANY * FILE 360
MEMBER OF SYS1.IMAGELIB (EXCEPT * FILE 360
COPYMOD'S) THAT WAS CREATED BY IEBIMAGE * FILE 360
IN THE FIRST PLACE. * FILE 360
* FILE 360
DISKMAP THIS MEMBER WILL LIST THE CONTENTS * FILE 360
OF A VTOC IN SEVERAL USEFUL FORMATS. * FILE 360
ORIGINAL PROGRAM WAS FROM CBT TAPE. * FILE 360
THIS VERSION HAS SEVERAL CHANGES * FILE 360
INCLUDING 3380 SUPPORT. * FILE 360
* FILE 360
DTYP2UNT THIS SUBROUTINE WILL CONVERT A UCB-TYPE * FILE 360
HEX DEVICE CODE TO A VALID UNIT NAME * FILE 360
USING THE SYSTEM DEVICE NAME TABLE. * FILE 360
* FILE 360
DYNAM THIS SUBROUTINE IS CALLED BY DYNAUTIL * FILE 360
TO DO DYNAMIC ALLOCATION AS NEEDED BY * FILE 360
ITS DRIVER. ORIGINALLY FROM THE * FILE 360
UNIVERSITY OF MANITOBA. * FILE 360
* FILE 360
DYNAUTIL DYNAUTIL IS A REENTRANT, REFRESHABLE, * FILE 360
AND REUSABLE ASSEMBLER LANGUAGE PROGRAM * FILE 360
THAT PROVIDES DYNAMIC ALLOCATION FOR * FILE 360
BATCH PROGRAMS AND UTILITIES. THIS IS * FILE 360
ACCOMPLISHED BY PASSING CONTROL CARD * FILE 360
IMAGES TO THE UNIVERSITY OF MANITOBA'S * FILE 360
DYNAM SVC 99 INTERFACE. DYNAUTIL CAN * FILE 360
RUN AS A FRONT-END TO A BATCH TASK OR * FILE 360
CAN BE CALLED BY A BATCH TASK DURING * FILE 360
ITS EXECUTION. * FILE 360
* FILE 360
DYNAUTLH THIS IS THE DOCUMENTATION FOR THE * FILE 360
DYNAUTIL PROGRAM. * FILE 360
* FILE 360
FINISH THIS MEMBER IS THE SOURCE FOR FINISH * FILE 360
MACRO TO DO STANDARD EXIT LINKAGE IN * FILE 360
ASSEMBLER PROGRAMS. * FILE 360
* FILE 360
IDCMSGEN ACCESS METHOD SERVICES (IDCAMS) SUPPORT * FILE 360
UTILITY. THIS PROGRAM WILL ALLOW YOU * FILE 360
TO CREATE AN IDCAMS SOURCE DECK FROM * FILE 360
MOST OBJECTS IN YOUR VSAM CATALOG. * FILE 360
* FILE 360
IEFACTRT SMF EXIT THAT PRODUCES MANY USEFUL * FILE 360
STATISTICS AND MESSAGES AT STEP AND JOB * FILE 360
END. THESE MESSAGES APPEAR IN AN * FILE 360
ABBREVIATED FORM IN THE JOBLOG AND IN A * FILE 360
MORE DETAILED FORM IN THE JOB MESSAGES * FILE 360
OUTPUT. * FILE 360
* FILE 360
IEFU84 SMF EXIT THAT DOES A GETMAIN FOR AN * FILE 360
AREA THAT BECOMES A LOCAL USER CVT. * FILE 360
THIS AREA IS MAPPED BY WSRCCCVT. * FILE 360
* FILE 360
IGC0023C A TYPE 3 SVC THAT IS INVOKED FROM THE * FILE 360
AUTH MACRO TO AUTHORIZE OR UN-AUTHORIZE * FILE 360
TSO COMMANDS, PROGRAMS, ETC. * FILE 360
* FILE 360
ISPTCM A MACRO (TCMGEN) AND A MODULE (ISPTCM) * FILE 360
THAT REPLACE THE DISTRIBUTED ISPF * FILE 360
MODULE. THIS MACRO AND MODULE WERE * FILE 360
WRITTEN IN RESPONSE TO APAR OZ64211. * FILE 360
SEE INFO/MVS ENTRY E130403 FOR * FILE 360
PARTICULARS. * FILE 360
* FILE 360
LASTIPL TSO COMMAND THAT USES THE LOCAL * FILE 360
USER CVT MAPPED BY WSRCCCVT TO * FILE 360
DISPLAY WHEN THE SYSTEM WAS * FILE 360
IPL'ED. * FILE 360
* FILE 360
PRINTOFF TSO COMMAND ORIGINALLY FROM THE CBT * FILE 360
TAPE AND HEAVILY MODIFIED FOR USE AT * FILE 360
WSRCC HAS SUPPORT FOR THE 3800 PRINTING * FILE 360
SUBSYSTEM VIA CHARS, TRC, MODIFY, * FILE 360
MODTRC, FLASH, FCOUNT, CGROUP AND BRUST * FILE 360
KEYWORDS. SOME PROBLEMS WITH THE 6670 * FILE 360
CODE HAS ALSO BEEN FIXED. * FILE 360
* FILE 360
PRINT0FF TSO HELP FOR THE MODIFIED PRINTOFF * FILE 360
COMMAND. * FILE 360
* FILE 360
SPY THIS MEMBER IS THE SOURCE FOR SPY * FILE 360
VERSION 3.1 WITH CROSS MEMORY SUPPORT * FILE 360
INCLUDED FOR MVS/SP 1.3. IT WAS * FILE 360
ORIGINALLY TAKEN FROM FILE 338 ON THE * FILE 360
CBT TAPE. SEE THE PROGRAM * FILE 360
DOCUMENTATION FOR ADDITIONAL COMMENTS * FILE 360
ABOUT THE ORIGIN OF THIS CODE. THE * FILE 360
VAST MAJORITY OF THE XM CODE CAME FROM * FILE 360
THE BANK OF NEW SOUTH WALES. I ADDED * FILE 360
THE CODE TO SUPPORT THE PFKEYS IN THE * FILE 360
3270 ENVIRONMEMT ALONG WITH THE BEGIN. * FILE 360
FINISH AND AUTH MACROS. * FILE 360
* FILE 360
SWAP THIS MEMBER IS THE SOURCE FOR SWAP * FILE 360
VERSION 4.5. IT WAS ORIGINALLY TAKEN * FILE 360
FROM A FILE ON THE CBT TAPE. SEE THE * FILE 360
PROGRAM DOCUMENTATION FOR ADDITIONAL * FILE 360
COMMENTS ABOUT THE ORIGIN OF THIS CODE. * FILE 360
I ADDED THE SUPPORT FOR THE BEGIN, * FILE 360
FINISH AND AUTH MACROS. * FILE 360
* FILE 360
UADS TSO COMMAND THAT WILL ALLOW THOSE USERS * FILE 360
WITH OPERATOR ABILITY TO DYNAMICALLY * FILE 360
CHANGE THEIR UADS ENTRIES IN THE PSCB. * FILE 360
ONCE CHANGED, IT WILL REMAIN IN EFFECT * FILE 360
ACROSS A RELOGON (UNLESS USING ACF2 IN * FILE 360
NOUADS MODE). * FILE 360
* FILE 360
UADSHELP TSO HELP FOR THE UADS COMMAND. * FILE 360
* FILE 360
VOLS TSO COMMAND TO LIST FREE SPACE ON ALL * FILE 360
OR SELECTED ONLINE DASD DEVICES. * FILE 360
VOLUME SELECTION INCLUDES DEVICETYPE, * FILE 360
ATTRIBUTE, VOLUME AND UCB. * FILE 360
* FILE 360
(FIXED FOR DYNAMIC UCB'S - G.GORAB 8/95) * FILE 360
(FIXED FOR 4-DIGIT UCB'S AND ALSO 3 DIGIT * FILE 360
UCB'S, BY GORDON B. HAMPTON - 04/98) * FILE 360
* FILE 360
SEVERAL OLD VERSIONS OF VOLS ARE ALSO * FILE 360
INCLUDED IN THIS FILE, TO MAKE SURE THAT * FILE 360
PEOPLE ON OLDER SYSTEMS CAN STILL USE IT. * FILE 360
* FILE 360
VOLSHELP TSO HELP FOR THE VOLS COMMAND. * FILE 360
* FILE 360
WSRCCCVT MACRO THAT MAPS THE LOCAL USER CVT THAT * FILE 360
IS GOTTEN AT IPL TIME BY IEFU84. A * FILE 360
LOCAL USER CVT IS VERY USEFUL FOR MANY * FILE 360
RANDOM USES, WE FIND MANY FOR OURS. * FILE 360
* FILE 360
ZSORTZ THIS SUBROUTINE WILL SORT AN IN-CORE * FILE 360
TABLE. ORIGINAL SOURCE UNKNOWN * FILE 360
(PROBABLY EARLY 1970'S SHARE TAPE (?)). * FILE 360
* FILE 360
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
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
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
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
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
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
contains two REXX execs from John Kalinich. * FILE 367
* FILE 367
ASCBS - Show all active address spaces * FILE 367
* FILE 367
TSURXS - Display active TSO Users * FILE 367
* FILE 367
>> EMAIL ADDRESS: jkalinic@csc.com * FILE 367
>> PHONE NUMBER : 314-331-4521 * FILE 367
* FILE 367
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
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
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
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
is from Ken MacKenzie of NatWest bank in England, * FILE 372
and contains a dynamic allocation program that is * FILE 372
faster than the ALLOC program which comes with * FILE 372
TSO. It's also a bit different, so you should * FILE 372
look to see if it's good for your purposes. * FILE 372
* FILE 372
1. DYNALLOC - The main (only) routine. * FILE 372
2. ASMTSTMP - A macro which is used to * FILE 372
insert a date/time stamp * FILE 372
into the load module. * FILE 372
* FILE 372
Contact information: * FILE 372
Home Email: ken.mackenzie@tesco.net * FILE 372
: ken.mackenzie@talk21.com * FILE 372
Work Email: ken.mackenzie@natwest.com * FILE 372
Work Phone: +44 (0) 20 7709 6365 (UK) * FILE 372
* FILE 372
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
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
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
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
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
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
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
IS CURRENTLY EMPTY * FILE 380
* FILE 380
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
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
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
IS FROM COMPUTER DATA SYSTEMS INC OF ROCKVILLE, * FILE 384
MARYLAND. THIS FILE IS IN IEBUPDTE SYSIN FORMAT * FILE 384
AND CONTAINS : * FILE 384
1. ISPF QUEUE FOR 1.3.4 * FILE 384
2. ISPF SPY * FILE 384
3. SEVERAL OTHER PROGRAMS * FILE 384
MEMBERS ARE : * FILE 384
1. $$DOC DESCRIBE ALL IN THIS FILE * FILE 384
2. PTFLIB SOURCES AND JCLS TO USE WITH SMPE CSI * FILE 384
(FINDFIX, SAS, ETC) * FILE 384
3. QISP136 SRCS, JCLS, FOR ISPF QUEUE OR TSO * FILE 384
QUE COMMAND FOR MVS 3.8 SP136 & BEFORE * FILE 384
4. SOURCE MISCELLANEOUS SOURCES FOR SEVERAL * FILE 384
PROGRAMS * FILE 384
* FILE 384
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
is from Salvador Carrasco and contains a collection * FILE 386
of REXX execs and other programs. * FILE 386
* FILE 386
Salvador Carrasco neither expresses nor implies any * FILE 386
warranty as to the fitness of these computer programs for * FILE 386
any function. The use of these programs or the results * FILE 386
therefrom is entirely at the risk of the user. * FILE 386
Consequently, the user may modify these programs in any * FILE 386
way he/she thinks fit. * FILE 386
* FILE 386
These programs are Freeware and may be freely copied. They * FILE 386
may be freely distributed to any other party on condition * FILE 386
that no inducement beyond reasonable handling costs is * FILE 386
offered or accepted by either side for such distribution. * FILE 386
* FILE 386
I would be interested to hear of comments and/or proposed * FILE 386
enhancements. Please write to the following address: * FILE 386
* FILE 386
EMAIL to the author at: * FILE 386
* FILE 386
Internet: salvador@redestb.es * FILE 386
* FILE 386
Visit my Web Page at http://www.redestb.es/personal/salvador * FILE 386
* FILE 386
$$$READM Readme Fisrt * FILE 386
$$INDEX You are reading this member now * FILE 386
$CHANGES Changes History * FILE 386
* FILE 386
@EQUS Equates Macro * FILE 386
@EQISPF Equates ISPF * FILE 386
@ISPFVD ISPF multi vdefine macro * FILE 386
* FILE 386
IGX00200 Ext-Svc authorization * FILE 386
* FILE 386
IRXF@DLY Rexx function - Delay * FILE 386
IRXF@EDM Rexx function - Edit and mask * FILE 386
IRXF@ENQ Rexx function - Enq/Deq * FILE 386
IRXF@MAT Rexx function - Match source/pattern * FILE 386
IRXF@MON Rexx function - Progress Barr * FILE 386
IRXF@SRT Rexx function - Calling Sort from Rexx * FILE 386
IRXF@U34 Rexx function - Read tape units UCBs * FILE 386
IRXF@VSK Rexx function - Vsam KSDS rexx interface * FILE 386
IRXF@WTO Rexx function - WTOR * FILE 386
IRXFLOC Rexx Package * FILE 386
IRXFLOC$ Rexx Package - Documentation * FILE 386
IRXFLOCJ Rexx Package - Compile job * FILE 386
IRXFMONI Progress Barr program. * FILE 386
IRXFMONP ISPF Panel for Progress Barr. * FILE 386
* FILE 386
ISFPSAM$ Spool Access Method - Documentation * FILE 386
ISFPSAMC Spool Access Method - Interface Rexx - S.A.M * FILE 386
ISFPSAMP Spool Access Method - Parm list macro * FILE 386
ISFPSAMR Spool Access Method - Main Module * FILE 386
ISFPSAM1 Spool Access Method - Rexx Example * FILE 386
* FILE 386
UTILMATC Utilities - Match Source/Pattern * FILE 386
* FILE 386
IS CURRENTLY EMPTY * FILE 387
* FILE 387
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
IS CURRENTLY EMPTY * FILE 389
* FILE 389
IS A JES2 5.X.0 VERSION OF QUEUE FROM JACK SCHUDEL * FILE 390
OF NERDC AT THE UNIVERSITY OF FLORIDA IN GAINESVILLE * FILE 390
FLORIDA. THIS IS HIS MODIFICATION FROM THE 4.3.0 * FILE 390
VERSION ON FILE 391, AND JACK CLAIMS THAT IT IS * FILE 390
MAY NEED A TWEAKING HERE AND THERE. HOWEVER, IT * FILE 390
WORKS. SEE HIS NOTES. CORRECTED BY SAM GOLOB SO * FILE 390
THAT THIS VERSION WILL ALSO WORK WHEN ASSEMBLED * FILE 390
AGAINST JES2 5.2.0 MACROS. THIS VERSION NOW WORKS * FILE 390
UNDER JES2 5.2.0 ALSO, AS WELL AS UNDER 5.1.0. * FILE 390
* FILE 390
is from Robert Ngan and is an assembler level * FILE 391
instruction tracing program called TRACE390. * FILE 391
* FILE 391
Documentation for this program is in member * FILE 391
$DOCTRAC. Member $EXTRACE, which contains a sample * FILE 391
of the output of this program, is in TSO XMIT * FILE 391
format, which becomes a sequential file with * FILE 391
RECFM=FB, LRECL=133, after TSO RECEIVE is done * FILE 391
to it, as the INDSN dataset name. * FILE 391
* FILE 391
Member $TRACDOC is in Word 97 format. In order to * FILE 391
read it, download it "binary" RECFM=FB,LRECL=80 * FILE 391
to a pc, and it should be readable. I tried it, * FILE 391
and it was ok. * FILE 391
* FILE 391
Address: * FILE 391
* FILE 391
Robert Ngan (October 1999) * FILE 391
CSC Financial Services Group, * FILE 391
Dallas, TX 75240 * FILE 391
* FILE 391
email: * FILE 391
* FILE 391
RobertNgan@compuserve.com * FILE 391
robngan@gte.net * FILE 391
Robert_Ngan@csc.com * FILE 391
* FILE 391
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://www.best.com/~ldw/mvs/ * FILE 392
* FILE 392
IS CURRENTLY EMPTY * FILE 393
* FILE 393
is from Jan Jakubek of Toronto, Ontario, Canada, * FILE 394
and contains a program to analyze space utilization * FILE 394
in a KSDS. The program has a statistical report * FILE 394
and a graphical report. * FILE 394
* FILE 394
(Nice. I've tried it. SG-09/99) * FILE 394
* FILE 394
JAN (JANEK) JAKUBEK * FILE 394
* FILE 394
Tel : 416-255-8807 (Canada) * FILE 394
Email: Jan.Jakubek@CGI.CA * FILE 394
* FILE 394
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
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
IS CURRENTLY EMPTY * FILE 397
* FILE 397
is from the contributor of File 171, which was * FILE 398
contributed semi-anonymously. All correspondence * FILE 398
concerning this file should go through Sam Golob, * FILE 398
and the support questions will be facilitated that * FILE 398
way. * FILE 398
* FILE 398
This file contains a macro called IBMMAC. This * FILE 398
macro calls other control block mapping macros, * FILE 398
but you don't have to remember their names. * FILE 398
That's the idea. * FILE 398
* FILE 398
For example, if you want to map a VTOC DSCB, you * FILE 398
don't have to remember that IBM's mapping macro * FILE 398
name is IECSDSL1, and that you have to code a 1, * FILE 398
2, 3, 4, 5, or 6 afterward, depending on the format * FILE 398
type you want mapped. With this macro, you only * FILE 398
have to code: IBMMAC VTOC=4 , or something * FILE 398
similar, depending on the format type you want. * FILE 398
* FILE 398
The original contributor's macro has been improved * FILE 398
by Robert Rosenberg. Bob Rosenberg's macro is now * FILE 398
included here as member IBMMAC, and the original * FILE 398
contributor's macro is also included, as member * FILE 398
IBMMACO. * FILE 398
* FILE 398
There are also two ISPF edit macros called IMAC * FILE 398
and IMACBLD from Dave Alcock included here, which * FILE 398
perform approximately the same function as the * FILE 398
assembler macro IBMMAC--that is, they allow you to * FILE 398
properly generate the coding of IBM macros, * FILE 398
without your having to know all the particulars. * FILE 398
IMACBLD uses the member HANDBOOK (from Gilbert * FILE 398
Saint-flour) to generate IMAC, which is the edit * FILE 398
macro that generates the IBM assembler macro coding. * FILE 398
* FILE 398
Sam Golob * FILE 398
P.O. Box 906 * FILE 398
Tallman, NY 10982-0906 * FILE 398
845-362-1996 * FILE 398
* FILE 398
email: sbgolob@attglobal.net and/or sbgolob@aol.com * FILE 398
* FILE 398
"Robert A. Rosenberg" * 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
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
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
IS CURRENTLY EMPTY * FILE 401
* FILE 401
IS CURRENTLY EMPTY * FILE 402
* FILE 402
IS CURRENTLY EMPTY * FILE 403
* FILE 403
IS FROM A COMPANY IN NEW ENGLAND, AND IS SOURCE FOR * FILE 404
TSSO TO BE RUN UNDER OS/390. THIS SOURCE WAS TAKEN * FILE 404
FROM THE VERSION OF TSSO ON FILE 403 AND MODIFIED. * FILE 404
AT THIS TIME, I GUESS YOU CAN CONSIDER THIS FILE TO * FILE 404
BE THE LATEST VERSION OF FREE TSSO. * FILE 404
* FILE 404
Note. For older versions of TSSO (Bellcore version), * FILE 404
please see Files 247, 248, 249 of the CBT Overflow * FILE 404
Tape. The mapping from the former files on this * FILE 404
tape is as follows: * FILE 404
* FILE 404
File 401 - Original Bellcore version ---> File 247 (Ovrflow) * FILE 404
File 402 - Dave Cartwright's updates ---> File 248 (Ovrflow) * FILE 404
File 403 - DC updates fitted to F401 ---> File 249 (Ovrflow) * FILE 404
File 404 - (This file) - File 403 updated to run on OS/390. * FILE 404
* FILE 404
Bill Godfrey's original version of TSSO is still * FILE 404
on File 306 of the CBT MVS Utilities Tape. * FILE 404
* FILE 404
The Time Sharing Subsystem Option (TSSO) is a * FILE 404
package designed to increase operator productivity * FILE 404
by automating tasks which need not be performed * FILE 404
manually. TSSO performs its function through three * FILE 404
integrated components. The Operator Productivity * FILE 404
Facility (OPF) extends the power of TSO to the * FILE 404
MVS operator's console. The Automated Operations * FILE 404
Facility (AOF) enhances an installation's * FILE 404
ability to control system events based on console * FILE 404
message traffic. An interface to the Network * FILE 404
Communication Control Facility (NCCF) allows the * FILE 404
network operator to use TSSO as a command processor, * FILE 404
issuing and receiving operating system commands at * FILE 404
the NCCF terminal. Note that NCCF is now an inte- * FILE 404
grated part of Netview. TSSO also enhances end-user * FILE 404
productivity by allowing end-user access to the MVS * FILE 404
Command Subsystem. A complete User's Guide, * FILE 404
including detailed installation instructions exists * FILE 404
in member UG43TERM in this file. * FILE 404
* FILE 404
A guide to the new features of TSSO Version 4, * FILE 404
Release 3 is in the member RELGDE43 in this file. * FILE 404
* FILE 404
Anyone with an interest in automated operations is * FILE 404
invited to look at TSSO as a software tool providing * FILE 404
many of the primitives required for common automated * FILE 404
operations tasks. These primitives include the * FILE 404
hilighting, lowlighting, replying and reacting to * FILE 404
operating system messages. This is in addition to * FILE 404
the ability to issue a command and retrieve the * FILE 404
response in CLIST variables. * FILE 404
* FILE 404
-------------------------------------------------------------- * FILE 404
* FILE 404
Note on Dave Cartwright's modifications: * FILE 404
* FILE 404
The purpose of these modifications is to allow TSSO * FILE 404
to handle automated message processing with multi- * FILE 404
line WTO's and to do other new functions. File 402 * FILE 404
has been merged into TSSO 4.3 by Guy Albertelli. So * FILE 404
it's probably best to ignore File 402 and install * FILE 404
File 404 instead, which is an OS/390 upgrade of the * FILE 404
former File 403. As noted above, the former Files * FILE 404
401 thru 403 have been moved to the CBT Overflow Tape. * FILE 404
* FILE 404
-------------------------------------------------------------- * FILE 404
* FILE 404
THIS FILE IS IN IEBUPDTE SYSIN FORMAT. * FILE 404
* FILE 404
QUESTIONS, PLEASE CONTACT Sam Golob: * FILE 404
NEW PHONE NUMBER: 845-362-1996 * FILE 404
* FILE 404
EMAIL: sbgolob@aol.com OR * FILE 404
sbgolob@attglobal.net * FILE 404
* FILE 404
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
IS CURRENTLY EMPTY * FILE 406
* FILE 406
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
CONTAINS A COPY OF DAVE COLE'S MACLIB, WHICH * FILE 408
IS NEEDED TO ASSEMBLE THE FOLLOWING PROGRAMS: * FILE 408
* FILE 408
DYNABLDL ON FILE 407 * FILE 408
XREFASM ON FILE 162 * FILE 408
SCHEDULE ON FILE 388 * FILE 408
COMPRSEQ ON FILE 226 * FILE 408
OFFLOAD ON FILE 225 * FILE 408
* FILE 408
DAVE COLE IS NOW AT COLE SOFTWARE IN AFTON, VIRGINIA. * FILE 408
* FILE 408
Dave Cole has updated most of his contributions, and * FILE 408
they are available for direct download from his web * FILE 408
site at www.colesoft.com. The following list of * FILE 408
his software is currently available there: * FILE 408
* FILE 408
Cole Software LLC's File Upload/Download Area * FILE 408
* FILE 408
The following shareware is available for download * FILE 408
* FILE 408
Filename Platform Description * FILE 408
asm2zap.zip OS/390 A utility for converting an * FILE 408
assembly listing into SUPERZAP * FILE 408
cards. * FILE 408
* FILE 408
blksptrk.zip OS/390 A TSO command that computes and * FILE 408
displays track capacities for any * FILE 408
IBM DASD device for any BLKSIZE, * FILE 408
with or without key fields. * FILE 408
* FILE 408
macros.zip OS/390 A set of Assembler/390 macros * FILE 408
needed for assembling the various * FILE 408
programs available from Cole * FILE 408
Software LLC. * FILE 408
* FILE 408
schedrun.zip OS/390 A set of MVS programs for * FILE 408
scheduling the execution of System * FILE 408
Operator Commands on an interval * FILE 408
or calander basis. Can be used to * FILE 408
control production scheduling. * FILE 408
* FILE 408
xrefasm.zip OS/390 A pair of programs for producing * FILE 408
master cross-reference listings * FILE 408
for multi-assembly programs. * FILE 408
* FILE 408
COLE SOFTWARE LLC * FILE 408
736 Fox Hollow Road Afton, VA 22920 * FILE 408
540-456-8210 540-456-6658: FAX * FILE 408
* FILE 408
E-MAIL : CSWstaff@cfw.com * FILE 408
INTERNET: http://www.colesoft.com * FILE 408
* FILE 408
COLE SOFTWARE WEB PAGE: HTTP://WWW.COLESOFT.COM * FILE 408
* FILE 408
contains the card image members associated with the * FILE 409
MXI package from Rob Scott, of Scott Enterprise * FILE 409
Consultancy, Ltd. in England. The MXI package is * FILE 409
a type of system monitor that can run under ISPF, * FILE 409
in batch, or it can be invoked under REXX. * FILE 409
* FILE 409
For up to date information please see the * FILE 409
SEC website : www.secltd.co.uk * FILE 409
* FILE 409
Any problems, comments or suggestions * FILE 409
please e-mail : info@secltd.co.uk * FILE 409
* FILE 409
--------------------------------------------------------------- * FILE 409
* FILE 409
Version 2.2a enhancements * FILE 409
* FILE 409
(1) Ability to issue operator commands * FILE 409
(2) Ability to change the swappability of any address * FILE 409
space * FILE 409
(3) Addition of the JOB() and ASID() keywords to the TCB * FILE 409
and CDE commands (ie they now work x-memory). * FILE 409
(4) Addition of a security table for authorized commands * FILE 409
(required if (1) and (2) exist!). * FILE 409
(5) Ability to list online channel paths * FILE 409
* FILE 409
--------------------------------------------------------------- * FILE 409
* FILE 409
MXI (MVS eXtended Information) is an ISPF-based application * FILE 409
that enables the MVS Systems Programmer to display important * FILE 409
configuration information about the active MVS system. * FILE 409
* FILE 409
Although primarily used online, MXI can be run in batch and * FILE 409
also has a REXX interface. * FILE 409
* FILE 409
Most of the displays can be filtered using ISPF-like masking * FILE 409
characters and many display fields are 'point-and-shoot'. * FILE 409
* FILE 409
MXI can display information about the following aspects of * FILE 409
the MVS system: * FILE 409
* FILE 409
APF, Linklist and LPA Datasets * FILE 409
Active Address Spaces * FILE 409
ASID Usage * FILE 409
Master and User Catalogs * FILE 409
Common Storage Usage by Address Space * FILE 409
Common Storage Subpool Usage * FILE 409
Orphaned Common Storage * FILE 409
CPU and LPAR Information * FILE 409
CA-1 Configuration * FILE 409
Coupling Facility Information * FILE 409
Online DASD and TAPE Volumes * FILE 409
Dynamic and Other System Exits * FILE 409
Enqueue Requests and Contention * FILE 409
GRS Resource Name Lists * FILE 409
HSM Request Queues * FILE 409
IPL and LOAD Information * FILE 409
Link Pack Directory Modules * FILE 409
Nucleus Modules * FILE 409
Memory Displays Including DSECT Mapping * FILE 409
MPF List Entries * FILE 409
Page and SMF Datasets * FILE 409
PARMLIB Statements and System Symbols * FILE 409
PPT Entries * FILE 409
Real and Auxiliary Storage Usage by Address Space * FILE 409
SMS Configuration and Modules * FILE 409
SMS Data, Management and Storage Classes * FILE 409
System Name/Token Entries * FILE 409
Subsystems * FILE 409
SVC Entries Including ESR Tables * FILE 409
Sysplex Information * FILE 409
XCF Members and Structures * FILE 409
VTAM Major Nodes * FILE 409
* FILE 409
Software Pre-requisites : * FILE 409
MVS/ESA Version 5 or * FILE 409
OS/390 * FILE 409
ISPF Version 3.5 or later * FILE 409
JES2 Version 5 and above * FILE 409
* FILE 409
Source Code Supplied : NO * FILE 409
Size 304K * FILE 409
* FILE 409
Scott Enterprise Consultancy Ltd. * FILE 409
Tel: +44 (0)181 408 3556 * FILE 409
* FILE 409
Index of Members in this dataset * FILE 409
-------------------------------- * FILE 409
$$INDEX This member * FILE 409
$GUIDE Short user guide * FILE 409
$INSTALL Instructions on how to install MXI from * FILE 409
this dataset and the load library * FILE 409
(supplied in File 410) * FILE 409
$INSTJCL Allocate runtime datasets and copy * FILE 409
members from this dataset into them. * FILE 409
$LIBDEF Example REXX exec to invoke MXI using * FILE 409
LIBDEFs. * FILE 409
$MXIXPT Instructions on how to code the MXI * FILE 409
exception rules. * FILE 409
$README Version and release notes * FILE 409
$SUPPORT Trouble shooting guide and where to * FILE 409
report problems. * FILE 409
$TECHSPC Technical overview * FILE 409
$XPTASM Sample JCL to Assemble and link the MXI * FILE 409
exception rules * FILE 409
MXICMDS Commands table * FILE 409
MXIRULE Macro used to generate exception rules * FILE 409
MXIXPT00 Sample exception rules table * FILE 409
MXIH* Help panels * FILE 409
MXIPANEL Main Panel * FILE 409
MXIPANE2 Alternate panel * FILE 409
MXIOPTS Screen options panel * FILE 409
MXIOPTL MXI settings panel * FILE 409
* FILE 409
------------------------------------------------------------- * FILE 409
* FILE 409
Version and Release Notes : * FILE 409
* FILE 409
2.2a * FILE 409
o Added an internal security table to control * FILE 409
authorized commands. * FILE 409
o Added the JOB() and ASID() keywords to the CDE * FILE 409
command to get JPAQ and TCB loaded modules of other * FILE 409
address spaces * FILE 409
o Added the JOB() and ASID() keywords to the TCB * FILE 409
command to get the TCB structure of other address * FILE 409
spaces * FILE 409
o Added the CHP command to list channel path information. * FILE 409
o Added the MAKE command to change address space * FILE 409
swapability. * FILE 409
o Added the / command to issue operator commands. * FILE 409
o Added the ONLY(JPAQ) keyword to the CDE command. * FILE 409
o The TYPE=DASD and TYPE=TASK exception rules now * FILE 409
support the use of pattern masks for volsers and * FILE 409
jobnames. * FILE 409
o The PRT command will use USERID if the TSO prefix is * FILE 409
null. * FILE 409
o Added the OMVS and RTLS statements to the PARM * FILE 409
command. * FILE 409
o Fixed the TAPE command storage creep problem. * FILE 409
o Fixed the SGRP command storage problem. * FILE 409
* FILE 409
2.1e * FILE 409
o Added the AGRP command to display SMS aggregate * FILE 409
groups. * FILE 409
o Added the UCB command to show the actual UCB * FILE 409
addresses of all devices. * FILE 409
o Added the CDE command to show the JPAQ and TCB * FILE 409
loaded modules. * FILE 409
o Added the ONLY() and NOT() keywords to the DASD * FILE 409
command. * FILE 409
o Added subsystem version information (via SSI-54) to * FILE 409
the SSI command. * FILE 409
o Added support for JES3. * FILE 409
o Added the UCB map to the MEM command. * FILE 409
o Changed the SGRP command to show all volumes * FILE 409
defined to the SMS storage group when the more * FILE 409
detailed display is shown. * FILE 409
o Changed the TAPE command to accept unit address * FILE 409
masking. * FILE 409
o Changed the SVC command to accept masking. * FILE 409
o Removed the authorized version of the CAT command. * FILE 409
o The command parsing routines have been changed so * FILE 409
that all commands that accept keywords do NOT have * FILE 409
to have the positional mask specified. * FILE 409
o Added SMS Status to the DASD display for a single * FILE 409
volume. * FILE 409
o Improved authority checking when running under ISPF * FILE 409
or REXX. * FILE 409
* FILE 409
2.1d * FILE 409
o Added the SORTXA and SORTXD commands to sort hex * FILE 409
values * FILE 409
o Added the JOB() and ASID() keywords to the DDNS * FILE 409
command to get allocated datasets for other address * FILE 409
spaces * FILE 409
o Added the TCB command * FILE 409
o Added the USP command * FILE 409
o Renamed the SMF command to SMFD * FILE 409
o Added new SMF command * FILE 409
o Added the A=asid form of the DA command * FILE 409
o Added the MAP command * FILE 409
o The SRCH command now presents a summary of matched * FILE 409
member(s) instead of each member * FILE 409
o The EDT command can now cope with more than 8000 * FILE 409
devices per unit name * FILE 409
o Show allocated jobnames and device types on the EDT * FILE 409
command * FILE 409
o Toggle ISPF 'Tab to point and shoot' setting * FILE 409
o Re-worked the HELP dialog * FILE 409
o MXIREXX now defaults to inlude screen headings * FILE 409
(titles) * FILE 409
o Added the 'NOTITLES' special parm to MXIREXX * FILE 409
o MXIREXX now correctly sets return codes * FILE 409
o Cater for null commands in MXIREXX (was giving 0C4 * FILE 409
abends) * FILE 409
o Fixed 0C6 abends when invalid input given to the SVC * FILE 409
or MEM comamnds * FILE 409
* FILE 409
2.1c * FILE 409
o Added the EXC command * FILE 409
o Added CPU% and SIO on the DA display * FILE 409
o ENQC command now displays both enqueue conflicts and * FILE 409
RESERVEs at the same time * FILE 409
o MPF command now recognises SUP(ALL) entries * FILE 409
o Allow SRCH command to be issued on the PARM display * FILE 409
o Adjust alignment in the CVT mapping for MEM @CVT * FILE 409
MAP(CVT) * FILE 409
o Allow NORMAL attribute to be assigned to * FILE 409
point-and-shoot fields * FILE 409
o Place 'Row n of n' message on ALL scrollable panels * FILE 409
o Assign a console key of MXI to E-MCS consoles and * FILE 409
ensure MigID is released * FILE 409
o Disallow LPAR info collection under VM * FILE 409
o Enhance RMF Diag204 validation * FILE 409
o Add support for 62-line screens * FILE 409
* FILE 409
2.1b * FILE 409
o Added the DA command * FILE 409
o Added the RS command * FILE 409
o Added the UIC command * FILE 409
o Added the SGRP() keyword to the DASD command * FILE 409
o Added EXCP counts to the DDNS command * FILE 409
o Enhancements to the DASD command displays * FILE 409
o Enhancements to the TAPE comamnd displays * FILE 409
o Show PARMLIB dsnames/vols/status with the PARM * FILE 409
command * FILE 409
o MXI now remembers current line in scrollable list * FILE 409
when screen refreshed * FILE 409
o MXI now keeps the sort order when screen refreshed * FILE 409
* FILE 409
2.1a * FILE 409
o Added the LLSU command * FILE 409
o Added the LLS command * FILE 409
o Added the CS command * FILE 409
o Added the CSR command * FILE 409
o Added the DCLS command * FILE 409
o Added the CA1 command * FILE 409
o Added the CAX keyword to the CAT command * FILE 409
o Added the LLS keyword to the LINK command * FILE 409
o Added APF fields for LINK and LPA command output * FILE 409
o Volser now displayed for LINK and LPA when DSCB * FILE 409
is OFF * FILE 409
o Added support for parm to be passed via ISPF SELECT * FILE 409
PGM(MXI) * FILE 409
o Fixed panel size for MXIHMSC2 * FILE 409
o Added the MXICMDS ISPF table to ensure PASSTHRU for * FILE 409
MXI commands * FILE 409
* FILE 409
contains the load modules associated with the MXI * FILE 410
package from Rob Scott, of Scott Enterprise * FILE 410
Consultancy, Ltd. in England. The MXI package is * FILE 410
a type of system monitor that can run under ISPF, * FILE 410
in batch, or it can be invoked under REXX. * FILE 410
* FILE 410
For more detailed description of this package, see * FILE 410
the documentation under File 409, and the members * FILE 410
starting with "$" in File 409 itself. * FILE 410
* FILE 410
For up to date information please see the * FILE 410
SEC website : www.secltd.co.uk * FILE 410
* FILE 410
Any problems, comments or suggestions * FILE 410
please e-mail : info@secltd.co.uk * FILE 410
* FILE 410
Scott Enterprise Consultancy Ltd. * FILE 410
Tel: +44 (0)181 408 3556 * FILE 410
* FILE 410
is from Rob Scott of Scott Enterprise Consultancy * FILE 411
in England, and contains source code for some of * FILE 411
his utilities. * FILE 411
* FILE 411
For up to date information please see the * FILE 411
SEC website : www.secltd.co.uk * FILE 411
* FILE 411
Any problems, comments or suggestions * FILE 411
please e-mail : info@secltd.co.uk * FILE 411
* FILE 411
SEC Utilities - File 411 and 412 * FILE 411
-------------------------------- * FILE 411
* FILE 411
Please note that pre-assembled and linked versions of * FILE 411
most of these utilities are available in CBT Tape File * FILE 411
412 which also includes the VTOCUTIL program. * FILE 411
* FILE 411
Index of Members in this dataset * FILE 411
-------------------------------- * FILE 411
CONFIGX$ Installation and usage documentation for * FILE 411
CONFIGXX * FILE 411
CONFIGXX Utility to construct a CONFIG member for * FILE 411
your active system * FILE 411
DELNOEN$ Installation and usage documentation for * FILE 411
DELNOENQ. * FILE 411
DELNOEN@ Sample JCL to assemble and link DELNOENQ. * FILE 411
DELNOENQ Assembler source for the DELNOENQ batch * FILE 411
utility. * FILE 411
IEFACTR$ Installation and usage notes for the * FILE 411
IEFACTRT exit. * FILE 411
IEFACTRT Assembler source for the IEFACTRT step * FILE 411
termination exit. * FILE 411
LISTSY$ Installation and usage documentation for * FILE 411
LISTSYM and VIEWSYM. * FILE 411
LISTSY@ Sample JCL to assemble and link LISTSYM. * FILE 411
LISTSYM Assembler source for the LISTSYM * FILE 411
external REXX function. * FILE 411
VIEWSYM REXX Edit macro to show possible use of * FILE 411
the LISTSYM external REXX function. * FILE 411
SLEE$ Installation and usage documentation for * FILE 411
SLEEP * FILE 411
SLEE@ Sample JCL to assemble and link SLEEP. * FILE 411
SLEEP Assembler source for the SLEEP external * FILE 411
REXX function. * FILE 411
STEMPUL$ Installation and usage documentation for * FILE 411
STEMPUSH and STEMPULL. * FILE 411
STEMPUL@ Sample JCL to assemble and link STEMPUSH * FILE 411
and STEMPULL. * FILE 411
STEMPULL Assembler source for the STEMPULL * FILE 411
external REXX function. * FILE 411
STEMPUSH Assembler source for the STEMPUSH * FILE 411
external REXX function. * FILE 411
VARYDAS$ Installation and usage documentation for * FILE 411
the VARYDASD utility. * FILE 411
VARYDASD Assembler source for utility to vary DASD * FILE 411
devices offline depending on the volser. * FILE 411
VTOCUTI$ Installation and usage documentation for * FILE 411
the VTOCUTIL utility (source not * FILE 411
supplied). Load module is supplied in * FILE 411
CBT Tape File 412. * FILE 411
* FILE 411
is from Rob Scott of Scott Enterprise Consultancy * FILE 412
in England, and contains load modules for his * FILE 412
utilities whose source code is on File 411, and * FILE 412
also for the VTOCUTIL program. * FILE 412
* FILE 412
For up to date information please see the * FILE 412
SEC website : www.secltd.co.uk * FILE 412
* FILE 412
Any problems, comments or suggestions * FILE 412
please e-mail : info@secltd.co.uk * FILE 412
* FILE 412
is from Ashley Street and contains a collection * FILE 413
of TSO and REXX utilities whose flavor is largely * FILE 413
borrowed from VM. So if you're a former VM'er who * FILE 413
has to work on TSO, this stuff is for you. It may * FILE 413
even be very useful, if you're not a former VM'er. * FILE 413
Very much worth a try.... * FILE 413
* FILE 413
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - * FILE 413
* FILE 413
FadH Software - TSO/Rexx utilities library. * FILE 413
* FILE 413
This library contains OBJECT code for various utilties, * FILE 413
installation JCL and sample execs. * FILE 413
* FILE 413
For advice/help or enhancement requests, please E-Mail * FILE 413
me at: a.street@btinternet.com * FILE 413
* FILE 413
For the latest updates and further information please * FILE 413
visit my Website. * FILE 413
* FILE 413
URL: http://www.btinternet.com/~ashleys/fadh_software.htm * FILE 413
* FILE 413
TSO/REXX functions * FILE 413
================== * FILE 413
PDSFLIST - *THE* alternative to ISPF 3.4 etc. * FILE 413
GLOBALV - Rexx Global variable function for TSO * FILE 413
SVC99DSN - A fast and easy alternative to TSO ALLOC * FILE 413
* FILE 413
MVS/TSO commands and utilities * FILE 413
============================== * FILE 413
TSGQUERY - TSO Query device command * FILE 413
TSGDEVCK - Device status checker for IPL's * FILE 413
TSGTSCAN - TSO based TAPE scan function * FILE 413
DENQ - TSO based ENQ display program * FILE 413
WHOSGOT - TSO based dataset allocation status utility * FILE 413
* FILE 413
Sample EXECS * FILE 413
============ * FILE 413
FLIST - Using the PDSFLIST rexx function * FILE 413
QUERY - using the TSGQUERY command * FILE 413
TAPESCAN - Ysing the TSGTSCAN command * FILE 413
* FILE 413
JCL/HELP files * FILE 413
============== * FILE 413
ASSREXX - JCL to assemble/Link-edit Rexx function * FILE 413
package (IRXFUSER) * FILE 413
FLISTHLP - Help file for PDSFLIST rexx function * FILE 413
IRXFUSER - Source for IRXFUSER * FILE 413
LKEDJCL - JCL to link-edit MVS/TSO utilties * FILE 413
* FILE 413
is from Rick Fochtman of Chicago, Illinois and * FILE 414
contains a batch program to convert printout from * FILE 414
machine control characters to ANSI control * FILE 414
characters. * FILE 414
* FILE 414
email: Rick.Fochtman@botcc.com * FILE 414
* FILE 414
IS CURRENTLY EMPTY * FILE 415
* FILE 415
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
IS CURRENTLY EMPTY * FILE 417
* FILE 417
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
is from David Rivers of Dignus in North Carolina, * FILE 419
and contains C language programs which were compiled * FILE 419
with the Dignus C Compiler whose output is OS/390 * FILE 419
MVS assembler language. Programs are presented * FILE 419
with C language source code, and the assembler * FILE 419
language program that results when the C source is * FILE 419
compiled with the Dignus compiler. * FILE 419
* FILE 419
Dave Rivers * FILE 419
Dignus, LLC * FILE 419
8924 Windjammer Drive * FILE 419
Raleigh, NC 27615 * FILE 419
phone: (919) 676-0847 * FILE 419
FAX: (919) 676-0847 * FILE 419
email: rivers@dignus.com * FILE 419
* FILE 419
Executable modules for these programs are provided * FILE 419
on File 420 of this tape. * FILE 419
* FILE 419
More information about the Dignus C Compiler can be * FILE 419
found at: http://www.dignus.com * FILE 419
* FILE 419
A full manual for these programs and all the * FILE 419
executable programs in the load module library * FILE 419
on File 420, can be found in member $DIGNUS on * FILE 419
this file. * FILE 419
* FILE 419
All copyright restrictions and stipulations * FILE 419
about programs found in Files 419 and 420, * FILE 419
are detailed in member $DIGNUS, under the * FILE 419
instructions for each program. * FILE 419
* FILE 419
This PDS contains two programs that are typically * FILE 419
available on UNIX systems, the `what' program and * FILE 419
the `grep' program. * FILE 419
* FILE 419
You should find the following: * FILE 419
* FILE 419
grep@c - The C source code for a grep clone, * FILE 419
originally taken from the DECUS * FILE 419
tape. Modified for running under * FILE 419
OS/390. * FILE 419
* FILE 419
grep@a - The assembly source generated * FILE 419
with the Systems/C compiler. * FILE 419
* FILE 419
what@c - The C source code for the `what' * FILE 419
program, from the Berkely * FILE 419
distribution. Modified for running * FILE 419
under OS/390 * FILE 419
* FILE 419
what@a - The assembly source generated * FILE 419
with the Systems/C compiler. * FILE 419
* FILE 419
We have included the assembly source for these programs * FILE 419
in case someone wants to "pull out" one of the routines * FILE 419
(particularly, the regular expression routines in grep) * FILE 419
for inclusion in other programs. You should be able to * FILE 419
extract the function, adjust the prologue/epilogue * FILE 419
correctly and include these in your own programs. The * FILE 419
code is non-rent, and uses R12 as the base register and * FILE 419
R13 as the frame base register. You should replace * FILE 419
DCCPRLG and DCCEPIL with the appropriate function * FILE 419
entry/exit macros. The FRAMESIZE parameter on DCCPRLG * FILE 419
indicates how much dynamic storage the routine will * FILE 419
need. * FILE 419
* FILE 419
However, you should be able to compile the C source with * FILE 419
other C compiler implementations for the mainframe. * FILE 419
* FILE 419
Also, if you want to download the executables, we have * FILE 419
them on our web site - http://www.dignus.com - and on * FILE 419
File 420 of this tape. * FILE 419
* FILE 419
Just what are these? * FILE 419
* FILE 419
GREP: * FILE 419
General Regular Expression Processor. * FILE 419
* FILE 419
Read a file, looking for lines that * FILE 419
match a specified pattern. * FILE 419
* FILE 419
WHAT: * FILE 419
Show what versions of object modules were used * FILE 419
to construct a file * FILE 419
* FILE 419
On some source management systems, it's * FILE 419
possible to embed an ID string in the * FILE 419
source which will then appear in the * FILE 419
object deck or load module for a * FILE 419
program. This ID usually contains the * FILE 419
file name, revisision number, check-in * FILE 419
date, etc... * FILE 419
* FILE 419
Thus, using WHAT, you can scan an object * FILE 419
deck, or load module, and be able to * FILE 419
determine just which version of the * FILE 419
source was used to build that object. * FILE 419
* FILE 419
From the Berkeley manual page: * FILE 419
* FILE 419
The what utility searches each specified * FILE 419
file for sequences of the form "@(#)" as * FILE 419
inserted by the source code control system. * FILE 419
It prints the remainder of the string following * FILE 419
this marker, up to a NUL character, newline, * FILE 419
double quote, ``>'' character, or backslash. * FILE 419
* FILE 419
The following option is available: * FILE 419
* FILE 419
-s Stop searching each file after the * FILE 419
first match. * FILE 419
* FILE 419
Exit status is 0 if any matches were found, * FILE 419
otherwise 1. * FILE 419
* FILE 419
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
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
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
IS FROM JEFF BROIDO OF BROIDO COMPUTER CONSULTING * FILE 423
OF NEW JERSEY. THIS FILE IS IN IEBUPDTE SYSIN * FILE 423
FORMAT AND CONTAINS THE FOLLOWING MEMBERS : * FILE 423
* FILE 423
$$$COJRB....ASSEMBLER MACRO FOR COPYRIGHT NOTICE * FILE 423
#CHECKDD....HELP MEMBER FOR CHECKDD * FILE 423
#CKDAY......HELP MEMBER FOR CKDAY * FILE 423
#CKM........HELP MEMBER FOR CKM * FILE 423
#CKMOUNT....HELP MEMBER FOR CKMOUNT * FILE 423
#CKO........HELP MEMBER FOR CKO * FILE 423
#CLRDAY.....HELP MEMBER FOR CLEARDAY * FILE 423
#LAA........HELP MEMBER FOR LAA * FILE 423
#QUOTE......HELP MEMBER FOR QUOTE * FILE 423
#TELL.......HELP MEMBER FOR TELL * FILE 423
BRODCAST....SOURCE CODE FOR PGM TO LOAD SYS1.BRODCAST * FILE 423
CHECKDD.....SOURCE CODE FOR PGM TO CHECK FOR ALLOCATED * FILE 423
FILENAMES * FILE 423
CKDAY.......SOURCE CODE FOR PGM TO CHECK FOR 1ST LOGON * FILE 423
OF THE DAY * FILE 423
CKM.........SOURCE CODE FOR PGM TO CHECK PRESENCE OF * FILE 423
MEMBER IN PDS * FILE 423
CKMOUNT.....SOURCE CODE FOR PGM TO CHECK A USER'S MOUNT * FILE 423
PRIVILEGE * FILE 423
CKO.........SOURCE CODE FOR PGM TO CHECK A USER'S * FILE 423
PRIVILEGES * FILE 423
CMAP........SOURCE CODE FOR PGM TO PRODUCE A CSA * FILE 423
STORAGE MAP * FILE 423
K...........ASSEMBLER MACRO * FILE 423
LAA.........SOURCE CODE FOR PGM TO PRODUCE AN EXPANDED * FILE 423
ALLOCATION LISTER * FILE 423
MAPSP.......SOURCE CODE FOR PGM TO PRODUCE MVS/SP * FILE 423
STORAGE MAP * FILE 423
MAPXA.......SOURCE CODE FOR PGM TO PRODUCE MVS/XA * FILE 423
STORAGE MAP * FILE 423
MERKNOW.....SOURCE CODE FOR SUPPORT ROUTINE FOR THE * FILE 423
NOW MACRO * FILE 423
NOW.........ASSEMBLER MACRO * FILE 423
OFF.........ASSEMBLER MACRO * FILE 423
ON..........ASSEMBLER MACRO * FILE 423
QUOTE.......SOURCE CODE FOR PGM TO READ * FILE 423
'QUOTE-OF-THE-DAY' * FILE 423
REGS........ASSEMBLER MACRO * FILE 423
SMAP........SOURCE CODE FOR PGM TO PRODUCE A STORAGE * FILE 423
MAP * FILE 423
TELL........SOURCE CODE FOR PGM FOR TELECONFERENCING * FILE 423
TSO COMMAND * FILE 423
TF..........ASSEMBLER MACRO * FILE 423
VPUT........ASSEMBLER MACRO * FILE 423
VTPUT.......ASSEMBLER MACRO * FILE 423
VWTPU.......ASSEMBLER MACRO * FILE 423
* FILE 423
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
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
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
IS A COPY OF THE IBM MACRO CALLED IHASTOW (THIS * FILE 427
MACRO IS NOT COPYRIGHTED). * FILE 427
* FILE 427
is from Lionel Dyck and Douglas Adams of Rockwell * FILE 428
International in Seal Beach, California. This file * FILE 428
contains programs to extract and display system * FILE 428
control block information. An older version of this * FILE 428
code can be found on File 022 of the CBT Overflow * FILE 428
Tape. This version comes from the SHARE diskettes * FILE 428
(SHARE 81). * FILE 428
* FILE 428
LIONEL B. DYCK * FILE 428
KAISER PERMANENTE * FILE 428
25 NORTH VIA MONTE * FILE 428
WALNUT CREEK, CALIFORNIA 94598 * FILE 428
* FILE 428
IBMmail: USKFHEFH * FILE 428
internet: SYSLBD@NCAL.KAIPERM.ORG * FILE 428
lionel.b.dyck@dp.org * FILE 428
IBMlink: SYSLBD * FILE 428
phone: (925) 926-5332 * FILE 428
home page: http://www.geocities.com/lbdyck * FILE 428
* FILE 428
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
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
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
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
is from Thierry Falissard of Paris, France, and * FILE 432
it contains a selection from things he has written * FILE 432
over many years. We hope you enjoy it. * FILE 432
* FILE 432
THE AUTHOR'S NOTE * FILE 432
================= * FILE 432
* FILE 432
I HAVE TRIED NOT TO DROWN YOU WITH OBSOLETE, OLD OR * FILE 432
USELESS MATERIAL. SO HERE YOU HAVE A (HOPEFULLY) * FILE 432
CLEVER SELECTION OF ALL THE STUFF I HAVE WRITTEN. * FILE 432
* FILE 432
THESE ARE PC-DOS OR WINDOWS UTILITIES : MGDOS MGWIN * FILE 432
PTKT. * FILE 432
* FILE 432
I WOULD BE INTERESTED TO HEAR OF SIGNIFICANT * FILE 432
ENHANCEMENTS OR INSTANCES WHERE THESE PROGRAMS HAVE * FILE 432
BEEN OF MAJOR BENEFIT (OR OTHERWISE), CONTACT : * FILE 432
* FILE 432
Thierry Falissard * FILE 432
tfalissard@compuserve.com * FILE 432
http://os390-mvs.hypermart.net * FILE 432
or * FILE 432
http://ourworld.compuserve.com/homepages/tfalissard * FILE 432
* FILE 432
STANDARD DISCLAIMER * FILE 432
=================== * FILE 432
* FILE 432
NEITHER THIERRY FALISSARD NOR ANY COMPANY ASSOCIATED * FILE 432
WITH HIM EXPRESS OR IMPLY ANY WARRANTY AS TO THE * FILE 432
FITNESS OF THESE COMPUTER PROGRAMS FOR ANY FUNCTION. * FILE 432
THE USE OF THESE PROGRAMS OR THE RESULTS THEREOF IS * FILE 432
ENTIRELY AT THE RISK OF THE USER. * FILE 432
* FILE 432
THESE PROGRAMS ARE DONATED TO THE PUBLIC DOMAIN AND * FILE 432
MAY BE FREELY COPIED. THEY MAY BE FREELY DISTRIBUTED * FILE 432
TO ANY OTHER PARTY ON CONDITION THAT NO INDUCEMENT * FILE 432
BEYOND REASONABLE HANDLING COSTS BE OFFERED OR * FILE 432
ACCEPTED FOR SUCH DISTRIBUTION. * FILE 432
* FILE 432
SOME PROGRAMS WERE PUBLISHED IN XEPHON'S MVS UPDATE * FILE 432
OR RACF UPDATE. SINCE XEPHON OFFER THEM FOR FREE ON * FILE 432
THEIR WEBSITE (WWW.XEPHON.COM), I CONSIDER THEM AS * FILE 432
PUBLIC. * FILE 432
* FILE 432
THESE PROGRAMS MAY BE MODIFIED IN ANY WAY THE USER * FILE 432
THINKS FIT BECAUSE USE OF THESE PROGRAMS IS ENTIRELY * FILE 432
AT THE RISK OF THE USER ANYWAY. * FILE 432
* FILE 432
LANGUAGE PROBLEMS * FILE 432
================= * FILE 432
* FILE 432
THE PROGRAMS ARE DELIVERED WITH COMMENTS IN EITHER ONE * FILE 432
OF 3 LANGUAGES : ENGLISH, FRENCH AND FRENGLISH (BAD * FILE 432
ENGLISH SPOKEN BY A FRENCHIE). SO... "EXCUSE MY * FILE 432
FRENCH"... * FILE 432
* FILE 432
CONTENTS * FILE 432
======== * FILE 432
* FILE 432
ALLSTOP - A TOOL TO STOP ALL RUNNING ADDRESS-SPACES * FILE 432
ASCBS - REXX TO LIST ALL ADDRESS-SPACES (FRENCH * FILE 432
COMMENTS) * FILE 432
CONSOLE - BRINGING THE MVS MASTER CONSOLE UNDER ISPF * FILE 432
(USES SVC 235 ; "LAST COMMAND" INFORMATION * FILE 432
PROBABLY FALSE ; DON'T CALL THE LOAD * FILE 432
"CONSOLE" * FILE 432
CONSOLEP - ISPF PANEL FOR "CONSOLE" PROGRAM * FILE 432
CONVERT - MACRO - CONVERTS FROM PACKED/DECIMAL/BINARY * FILE 432
TO PACKED/DECIMAL/BINARY * FILE 432
CONVRTP - REXX TO CONVERT CATALOG ENTRIES FROM 3480 TO * FILE 432
3490 - FRENCH COMMENTS * FILE 432
ERASETP - PROGRAM TO ERASE TAPE DATA (FOR SECURITY OR * FILE 432
TO EVAL. TAPE CAPACITY) * FILE 432
EXP - REXX TO COMPUTE EXPONENTIAL FUNCTION * FILE 432
(FRENGLISH COMMENTS) * FILE 432
EXTEND - MACRO - EXTENDS A BINARY ZONE TO DECIMAL * FILE 432
EXEMPLES - EXAMPLES OF ASSEMBLER CODING (EDUCATIONAL * FILE 432
PURPOSE) - FRENCH COMMENTS * FILE 432
ICHPWX01 - RACF NEW PASSWORD EXIT - FRENCH COMMENTS * FILE 432
IGGPRE00 - DADSM PRE-PROCESSING EXIT, CONTROLS ACCESS * FILE 432
TO VOLUME VIA A DEDICATED "ALLOC" RACF CLASS * FILE 432
- FRENCH COMMENTS * FILE 432
INTERCPT - MPF EXIT - USED TO REPLY TO MESSAGES, TO * FILE 432
ISSUE MVS COMMANDS OR TO SEND MESSAGES - * FILE 432
FRENCH COMMENTS * FILE 432
IRA200E - THIS MEMORY ZAP ALLOWS YOU TO CHANGE THE 70% * FILE 432
AND 85 % THRESHOLDS * FILE 432
JESLESS - JESLESS IN A NUTSHELL (HOW TO HAVE A LOGON * FILE 432
TSO WITHOUT JES). * FILE 432
LISTSMS - LISTING THE SMS CONFIGURATION * FILE 432
MGDOS - SHAREWARE "MEGACRYPT/DOS" - COPY IT TO PC * FILE 432
AND RENAME IT MGDOS.ZIP * FILE 432
MGWIN - SHAREWARE "MEGACRYPT/WINDOWS" - COPY IT TO * FILE 432
PC AND RENAME IT MGWIN.ZIP * FILE 432
NOTE : MGDOS AND MGWIN ARE FREE PARTS OF A LICENSED * FILE 432
PRODUCT : MEGACRYPT/MVS * FILE 432
MINISYST - THE JCL I USE FOR CREATING AN MVS MINI * FILE 432
SYSTEM (OS/390 V2R5) * FILE 432
MVSCMD - PROGRAM TO ISSUE ANY MVS OR JES2 IN BATCH - * FILE 432
A CLASSICAL - FRENCH * FILE 432
PREMIER - PRIME NUMBER TESTING (EDUCATIONAL PURPOSE) - * FILE 432
FRENCH COMMENTS * FILE 432
PRINTHX - MACRO FOR CONVERSION TO HEX - FRENCH COMMENTS * FILE 432
PROLOG - MACRO TO ENTER THE PROGRAM - NOT CLEVER, BUT * FILE 432
UNAVOIDABLE - FRENCH * FILE 432
PTKT - SHAREWARE "PTKTGEN" - COPY IT TO PC AND * FILE 432
RENAME IT PTKT.ZIP (IT IS A RACF PASSTICKET * FILE 432
GENERATOR FOR PC/DOS) * FILE 432
SHOWLPAR - DISPLAYS THE CURRENT PR/SM CONFIGURATION * FILE 432
(SEE "A BIT OF HISTORY") * FILE 432
SHOWMVS - JCL : MY WAY TO RUN SHOWMVS IN BATCH - * FILE 432
SHOWMVS R623D IN OBJ FORMAT * FILE 432
SMFJOBS - LIST ALL JOBS (BASED ON SMF TYPE 30 RECORDS) * FILE 432
- FRENCH COMMENTS * FILE 432
SRMSHOW - DISPLAYS CURRENT AND THRESHOLD VALUES OF * FILE 432
MAJOR SRM PARAMETERS MVS/XA * FILE 432
SUSEC - LISTING PROCESSORS IN THE COMPLEX AND THE * FILE 432
MIPS (MSU) AVAILABLE - REXX * FILE 432
SVC235 - YES, A MAGIC SVC | BUT WITH SOME BASIC * FILE 432
CONTROLS... * FILE 432
TPUTXMAS - FOR THE FUN - XMAS TREE DISPLAY ON TSO FOR * FILE 432
THE YEAR'S END... * FILE 432
VTOCR1 - PANEL USED BY VTOCREAD (SEE VTOCZAP) * FILE 432
VTOCZAP - JCL TO INSTALL "VTOCREAD". ENABLES YOU TO * FILE 432
ZAP THE VTOC THRU ISPF (NOT DIRECTLY, AN * FILE 432
AMASPZAP JCL IS GENERATED). SOURCE OF * FILE 432
VTOCREAD LOST * FILE 432
WEAKPASS - DISPLAYING RACF USERIDS WITH WEAK D.E.S. * FILE 432
PASSWORD (XEPHON) * FILE 432
WTOPUT - MACRO - ISSUES A WTO WITH MIXED LITTERALS * FILE 432
AND DATA ZONES * FILE 432
XTOD - MACRO - CONVERTS HUNDREDTHS OF SECOND * FILE 432
INTO 'HH:MM' * FILE 432
* FILE 432
is from Frank Clarke and contains a collection of * FILE 433
his REXX execs. * FILE 433
* FILE 433
email: Frank Clarke * FILE 433
* FILE 433
There are sixteen (16) routines in this set: ADDCMDS, * FILE 433
ALIST, ATTACH, BLOX, COMMANDS, FCXREF FIRSTIME, FTINIT, * FILE 433
LA, MEMBERS, PACKING, SQRT, SQUASH, TBLOOK, TRAPOUT, and * FILE 433
X2B. Some of these are subroutines or examples (FTINIT, * FILE 433
PACKING, TRAPOUT) and are not designed to run stand-alone. * FILE 433
The others (except BLOX) produce HELP text if the first * FILE 433
parameter is a "?"; BLOX shows its HELP text if -no- * FILE 433
parameters are passed. * FILE 433
* FILE 433
ADDCMDS splices a command table to the in-storage * FILE 433
copy of ISPCMDS. To update your command * FILE 433
list, just re-run; no need to leave ISPF, * FILE 433
and no need to be in TEST-mode. {ADDCMDS ?} * FILE 433
ALIST produces a scrollable list of the datasets * FILE 433
allocated to the specified DDNames. * FILE 433
{ALIST ?} * FILE 433
ATTACH another 'session-customizer', but this one * FILE 433
does it all. {ATTACH ?} * FILE 433
BLOX creates 8x7 block letters from text you * FILE 433
specify * FILE 433
COMMANDS display (and execute from) ISPCMDS. * FILE 433
FCXREF does a member-crossref by DDName {FCXREF ?} * FILE 433
FIRSTIME controls once-per-period executions * FILE 433
{FIRSTIME ?} * FILE 433
FTINIT subrtn; used by FIRSTIME * FILE 433
LA LISTA to the queue {LA ?} * FILE 433
MEMBERS memberlist to the queue {MEMBERS ?} * FILE 433
PACKING two example routines to pack and unpack * FILE 433
numbers. {example only; copy where needed} * FILE 433
SQRT Square root {SQRT ###} * FILE 433
SQUASH compose IEBCOPY JCL for the current dataset * FILE 433
{SQUASH ?} * FILE 433
TBLOOK examine any ISPF table {TBLOOK ?} * FILE 433
TRAPOUT subrtn; save TRACE output onto a file. Your * FILE 433
code must be ready to activate TRACE on * FILE 433
command; TRAPOUT reinvokes with "((TRACE R" * FILE 433
X2B hex-to-binary; used by BLOX * FILE 433
(DFLTHLQ has been retired.) * FILE 433
* FILE 433
is from Mark Zelden and contains his collection * FILE 434
of MVS utilities. * FILE 434
* FILE 434
Questions: Please email Mark Zelden - mzelden@flash.net * FILE 434
* FILE 434
Mark's MVS Utilities is also available on the web: * FILE 434
http://home.flash.net/~mzelden/mvsutil.html * FILE 434
* FILE 434
CLISTS / Edit Macros / Programs * FILE 434
--------------------------------------------------------------- * FILE 434
AMBCLIST - CLIST to invoke interactive AMBLIST with panel I/P * FILE 434
APFVER - REXX exec to verify APF list * FILE 434
ASIDLIST - ASM PGM to list ASIDs & MAXUSER/RSVSTRT/RSVNONR * FILE 434
BLKCLIST - CLIST to invoke BLKDISK command with panel input * FILE 434
CALC - REXX exec calculator * FILE 434
COLADD - Edit macro to add numbers from a column range * FILE 434
COLUTIL - Edit macro to manipulate columns * FILE 434
DB - Edit macro to delete lines from the cursor line * FILE 434
to the bottom line * FILE 434
DELDUPS - Edit macro to delete duplicate lines * FILE 434
DELDUPS2 - REXX duplicate record deletion program * FILE 434
DELNX - Edit macro to delete all of a certain string * FILE 434
DELX - Edit macro to delete everything but a certain * FILE 434
string * FILE 434
DT - Edit macro to delete lines from the cursor line * FILE 434
to the top line * FILE 434
EXCL - Edit macro to exclude all of certain string * FILE 434
FILL - Edit macro to fill columns with a character * FILE 434
FINDMOD - REXX exec (command) to find what library(s) a * FILE 434
module is in * FILE 434
FINDASYS - Sample search list for FINDMOD CLIST * FILE 434
INCL - Edit macro to include all of a certain string * FILE 434
INSLINE - Edit macro to insert a string after or before lines * FILE 434
IPLINFO - REXX exec to show various system information * FILE 434
JOBCHECK - ASM PGM to find if a JOB is active on the system * FILE 434
ISPCMDSA - CLIST to add temporary cmds to ISPF command table * FILE 434
KEYSWAP - REXX exec to swap PFKEYS 1-12 with PFKEYS 13-24 * FILE 434
LINEMAC - REXX exec - used with Doug Nadel's UMAC/LMAC PGM * FILE 434
LNKVER - REXX exec to verify LNKLST syntax and libs * FILE 434
LPROG - REXX exec - displays LNKLST, LPA list, & APF list * FILE 434
PREFIX - Edit macro to add a prefix to the front of a line * FILE 434
PREFIX2 - Edit macro to add a prefix to the front of a line * FILE 434
RACFUDEL - REXX exec to remove obsolete RACF users * FILE 434
RDATE - REXX date conversion routine * FILE 434
SUFFIX - Edit macro to add a suffix to the end of a line * FILE 434
TAPESTAK - REXX tape stacking program (works with CA-1) * FILE 434
TSOB - REXX exec (command) to browse o/p of any TSO cmd * FILE 434
TSOE - REXX exec (command) to edit o/p of any TSO cmd * FILE 434
XBROWSE - CLIST (command) to browse any dataset * FILE 434
XEDIT - CLIST (command) to edit any dataset * FILE 434
XEF - REXX exec to start eXtended Editor Facility dialog * FILE 434
XEFCLIST - eXtended Editor Facility mainline code * FILE 434
XLISTC - REXX (command) to LISTCAT ALL any dataset * FILE 434
XMEMLIST - CLIST (command) to bring up member list on any DSN * FILE 434
XVIEW - CLIST (command) to view any dataset * FILE 434
ZBROWSE - Edit macro to browse dataset that the cursor is on * FILE 434
ZEDIT - Edit macro to edit dataset that the cursor is on * FILE 434
ZVIEW - Edit macro to view dataset that the cursor is on * FILE 434
* FILE 434
* FILE 434
ISPF Panels * FILE 434
--------------------------------------------------------------- * FILE 434
AMBPANEL - Interactive AMBLIST panel for AMBCLIST * FILE 434
BLKPANEL - Interactive BLKDISK panel for BLKCLIST * FILE 434
XEFMENU - eXtended Editor Facility Main Menu * FILE 434
XEFHELP - eXtended Editor Facility Help Panel #1 * FILE 434
XEFHELP2 - eXtended Editor Facility Help Panel #2 * FILE 434
XEFHELP3 - eXtended Editor Facility Help Panel #3 * FILE 434
XEFHELP4 - eXtended Editor Facility Help Panel #4 * FILE 434
XEFINF - eXtended Editor Facility Dataset Info Panel-SEQ * FILE 434
XEFINFD - eXtended Editor Facility Dataset Info Panel-PDS * FILE 434
XEFINFE - eXtended Editor Facility Dataset Info Panel-PDSE * FILE 434
XEFINFP - eXtended Editor Facility Dataset Info Panel-PDS SMS * FILE 434
XEFINFS - eXtended Editor Facility Dataset Info Panel-SEQ SMS * FILE 434
* FILE 434
ISPF MESSAGEs * FILE 434
--------------------------------------------------------------- * FILE 434
XEF00 - eXtended Editor Facility Messages * FILE 434
* FILE 434
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
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
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
is from Dan Snyder of Columbus, Ohio and contains * FILE 438
his collection of structured assembler macros that * FILE 438
he developed for himself, over many years of coding. * FILE 438
* FILE 438
email: dsnyder@elektro.cmhnet.org * FILE 438
* FILE 438
------------------------------------------------------------- * FILE 438
* FILE 438
STRUCTURED MACROS * FILE 438
* FILE 438
These macros can help you create new programs and * FILE 438
modify existing code by supporting IF-THEN-ELSE logic * FILE 438
while requiring only a small learning curve from what * FILE 438
you already know about S/390 Assembler (assuming that * FILE 438
you do know it already). Each 'IF' statement can be * FILE 438
arbitrarily complex, and the 'IF' statements can be * FILE 438
nested as many levels as you might need. (Certainly, * FILE 438
no one would need more than 255 levels of nesting, * FILE 438
would he?) * FILE 438
* FILE 438
Each group of instructions that you want conditionally * FILE 438
executed would be headed by an 'IF' macro, and * FILE 438
terminated by an 'ENDIF' macro. * FILE 438
* FILE 438
In its simplest form, the operand of the 'IF' macro * FILE 438
consists of an op-code, the first operand address, * FILE 438
the second operand address, and a condition. These * FILE 438
four values must be enclosed within parentheses, and * FILE 438
following the operands must be a comma and the * FILE 438
statement terminating term 'THENDO'. * FILE 438
* FILE 438
The op-code may be any valid S/390 op-code that sets * FILE 438
the condition code. The first and second operands may * FILE 438
be any values that are valid for the instruction * FILE 438
being created. The condition, such as 'E' or 'NO', is * FILE 438
any value that can be used in creating an extended * FILE 438
mnemonic branch instruction (such as 'BE' or 'BNO'). * FILE 438
* FILE 438
If you choose 'E' as the condition, then the group of * FILE 438
instructions between the 'IF' and the 'ENDIF' will be * FILE 438
executed only if the condition code set by the * FILE 438
op-code and operands specified is a zero. * FILE 438
* FILE 438
In the following examples, the heading will indicate * FILE 438
the conditions in which the do-group will be * FILE 438
executed. In each case, an 'IF' statement determines * FILE 438
the conditions, and an 'ENDIF' statement terminates * FILE 438
the do-group. Comments either in the heading or on * FILE 438
the appropriate instructions will indicate the * FILE 438
details. * FILE 438
* FILE 438
Here is an example: * FILE 438
* FILE 438
IF (CLC,A,B,NE),THENDO * FILE 438
* FILE 438
The instructions between this 'IF' and its matching * FILE 438
'ENDIF' will be executed if the result of the 'CLC' * FILE 438
is a 1 or 2 (the not-equal condition). * FILE 438
* FILE 438
To execute the do-group if either one of two * FILE 438
conditions is true, the format is: * FILE 438
* FILE 438
IF (CLC,A,B,NE),OR,(CLC,C,D,NE),THENDO * FILE 438
* FILE 438
Alternate format: * FILE 438
72 * FILE 438
IF (CLC,A,B,NE),OR, C * FILE 438
(CLC,C,D,NE),THENDO * FILE 438
* FILE 438
(This will give you a small idea of what these macros * FILE 438
can do. For information about the more complicated * FILE 438
capabilities of the structured macros in this package, * FILE 438
please see member $$ALTDOC.) * FILE 438
* FILE 438
--------------------------------------------------------------- * FILE 438
* FILE 438
Dan initially submitted only the structured macros * FILE 438
that he wrote, to this tape. He has now submitted many * FILE 438
more macros. Below, we see the types of macros which * FILE 438
perform other categories of function, as well as the * FILE 438
ones which can be used to create structured assembler * FILE 438
programs. * FILE 438
* FILE 438
--------------------------------------------------------------- * FILE 438
* FILE 438
In the following list of macros, each one is assigned to * FILE 438
a category according to its intended use. Most of the * FILE 438
testing on these macros has been done in an environment * FILE 438
called 'Version 2', or '2nd Generation'. This * FILE 438
environment presents a programmer with a pseudo-COBOL * FILE 438
way of coding, and was created in the early 1990's as an * FILE 438
aid to getting programs going faster. The 'Version 1' * FILE 438
or '1st Generation' environment was created in the mid * FILE 438
1970's, and is somewhat more oriented toward Systems * FILE 438
Programming types of programming. * FILE 438
* FILE 438
If a macro is listed as being 'GENERAL', or general * FILE 438
purpose, then it is not part of either Version 1 or 2, * FILE 438
but it might not have been tested outside one of these * FILE 438
environments. * FILE 438
* FILE 438
What follows is a description of the categories that * FILE 438
these macros have been classified into: * FILE 438
* FILE 438
DIAGNOSTIC - The macro may be used in either Version 1 * FILE 438
or 2 programs, and is intended primarily as a diagnostic * FILE 438
aid in getting the program running correctly. Hopefully * FILE 438
the effort expended in using one or more of these * FILE 438
diagnostic macros will pay off in diagnosing the * FILE 438
progress of your program. * FILE 438
* FILE 438
GENERAL - Various utility macros that should provide * FILE 438
services required for typical programs. * FILE 438
* FILE 438
INTERNAL - These macros are typically used as common * FILE 438
service routines by other macros within this library. * FILE 438
They usually provide services that would not be useful * FILE 438
for use as open code macros (those coded within the * FILE 438
program itself). * FILE 438
* FILE 438
RUN-TIME-TOTALS - A set of general purpose macros that * FILE 438
might make it easier to create counters that can be * FILE 438
incremented at each of several places within a program, * FILE 438
and then at some point during program execution * FILE 438
(presumably during the finalization step of the * FILE 438
program), print out all of the accumulated counts with * FILE 438
one easy statement. * FILE 438
* FILE 438
STRUCTURED - Macros that control the conditional or * FILE 438
repetitive execution of a group of instructions * FILE 438
following the group-initiation macro and ending with a * FILE 438
group-terminating macro. * FILE 438
* FILE 438
1st Generation - A set of macros that provice standard * FILE 438
MVS interface and subroutine linkage conventions. * FILE 438
* FILE 438
2nd GENERATION - Another set of MVS interface and * FILE 438
subroutine linkage macros. * FILE 438
* FILE 438
What follows is an alphabetic listing of all of the * FILE 438
macro definitions included in the package, with its * FILE 438
identifying macro type: * FILE 438
* FILE 438
$AGOTO INTERNAL * FILE 438
$ASECT INTERNAL * FILE 438
$IA INTERNAL * FILE 438
$MENDDO1 INTERNAL * FILE 438
$MENDDO2 INTERNAL * FILE 438
$MGBLDEF INTERNAL * FILE 438
$MGFNAME INTERNAL * FILE 438
$MGPNAME INTERNAL * FILE 438
$WA INTERNAL * FILE 438
ADDR GENERAL * FILE 438
AFTER STRUCTURED * FILE 438
AN GENERAL * FILE 438
BEGTEST DIAGNOSTIC * FILE 438
BHE GENERAL * FILE 438
BLE GENERAL * FILE 438
COMBOX GENERAL * FILE 438
CONTINUE GENERAL * FILE 438
CPYPAR$E INTERNAL * FILE 438
CTE TEXT SEARCH * FILE 438
CTEB TEXT SEARCH * FILE 438
CVN GENERAL * FILE 438
CVXREGS DIAGNOSTIC * FILE 438
CVXWORD DIAGNOSTIC * FILE 438
DEFPGMID INTERNAL * FILE 438
DIAGMSG INTERNAL * FILE 438
DISPLAY DIAGNOSTIC * FILE 438
DIVISION 2ND GENERATION * FILE 438
DO STRUCTURED * FILE 438
DTM INTERNAL * FILE 438
DUMPMAIN DIAGNOSTIC * FILE 438
DUMPREGS DIAGNOSTIC * FILE 438
EDIT STRUCTURED * FILE 438
ELSE STRUCTURED * FILE 438
ELSEDO STRUCTURED * FILE 438
ELSEIF STRUCTURED * FILE 438
EM GENERAL * FILE 438
ENDAFTER STRUCTURED * FILE 438
ENDELSE STRUCTURED * FILE 438
ENDFIRST STRUCTURED * FILE 438
ENDIF STRUCTURED * FILE 438
ENDO STRUCTURED * FILE 438
ENDP 1ST GENERATION * FILE 438
ENDSECT 2ND GENERATION * FILE 438
ENDTEST DIAGNOSTIC * FILE 438
EPACK GENERAL * FILE 438
EQUATE GENERAL * FILE 438
EUNPK GENERAL * FILE 438
EVERY STRUCTURED * FILE 438
EXECUTE GENERAL * FILE 438
EXIT 2ND GENERATION * FILE 438
FINAL 2ND GENERATION * FILE 438
FIRST STRUCTURED * FILE 438
GO 1ST GENERATION * FILE 438
GOBACK 2ND GENERATION * FILE 438
GOTO 2ND GENERATION * FILE 438
HEXRTN DIAGNOSTIC (1ST GENERATION VERSION) * FILE 438
HROUTINE DIAGNOSTIC (2ND GENERATION VERSION) * FILE 438
I GENERAL * FILE 438
IF STRUCTURED * FILE 438
IP GENERAL * FILE 438
LEVELMSG INTERNAL * FILE 438
MACBOX GENERAL * FILE 438
NEXT STRUCTURED * FILE 438
PAR$E INTERNAL * FILE 438
PCALL 1ST GENERATION * FILE 438
PERFORM 2ND GENERATION * FILE 438
PRDEF GENERAL (1ST GENERATION VERSION) * FILE 438
PRINTER GENERAL (2ND GENERATION VERSION) * FILE 438
PROC 1ST GENERATION * FILE 438
PRTTABLE RUN-TIME-TOTALS * FILE 438
RETN 1ST OR 2ND GENERATION * FILE 438
RTTBEG RUN-TIME-TOTALS * FILE 438
RTTEND RUN-TIME-TOTALS * FILE 438
RTTENT RUN-TIME-TOTALS * FILE 438
RTTINCR RUN-TIME-TOTALS * FILE 438
RTTPRT RUN-TIME-TOTALS * FILE 438
RTTRESET RUN-TIME-TOTALS * FILE 438
SECONDEP 2ND GENERATION * FILE 438
SECTION 2ND GENERATION * FILE 438
SETCSECT INTERNAL * FILE 438
SETDEF INTERNAL * FILE 438
SETRC GENERAL * FILE 438
SETUP INTERNAL * FILE 438
STOP 1ST GENERATION * FILE 438
SYSUT1 1ST GENERATION * FILE 438
SYSUT2 1ST GENERATION * FILE 438
TAG GENERAL * FILE 438
THENDO STRUCTURED * FILE 438
TRACER DIAGNOSTIC * FILE 438
TRACER2 INTERNAL * FILE 438
TRC DIAGNOSTIC (1ST GENERATION ONLY) * FILE 438
TRSP GENERAL * FILE 438
VAL INTERNAL * FILE 438
VERSION INTERNAL * FILE 438
* FILE 438
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
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
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
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
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
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
is from Chris Kendon, and is an update of the old * FILE 445
UK GUIDE object deck disassembler. The code has * FILE 445
been taught XA and ESA instructions, and other * FILE 445
modern stuff. You'll enjoy playing with this. * FILE 445
* FILE 445
email: chris.kendon@pgen.com * FILE 445
* FILE 445
Chris Kendon, * FILE 445
Powergen, * FILE 445
PO Box 4, North P.D.O. * FILE 445
398 Coppice Road, * FILE 445
Arnold, * FILE 445
Nottingham, * FILE 445
NG5 7HX, * FILE 445
UK. * FILE 445
* FILE 445
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
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
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
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
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
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
is from Dan Dalby and contains a collection of his * FILE 452
programs and utilities. Dan retains ownership of * FILE 452
the programs, but has given permission for them to * FILE 452
be distributed on the CBT Tape. Please see the * FILE 452
general disclaimer information on File 001 of the * FILE 452
CBT Tape, and what it says regarding "owned files". * FILE 452
* FILE 452
This software may not be used, fully or in part, in a * FILE 452
commercial product or sold in any way. * FILE 452
* FILE 452
Description of the programs included here: * FILE 452
* FILE 452
---------------------------------------------------- * FILE 452
* FILE 452
Add to existing allocations (ADDTO) * FILE 452
Updated July 1, 1999 * FILE 452
* FILE 452
Many users want their own personal libraries to be * FILE 452
allocated in front of the libraries that are allocated * FILE 452
within the LOGON procedure. Normally, this means that * FILE 452
the user has to re-allocate the DD, specifying all of * FILE 452
the libraries with their own as the first library. If * FILE 452
the libraries that are in the LOGON procedure get * FILE 452
renamed or deleted due to maintenance, the user's * FILE 452
allocation fails, leaving them without that specific DD * FILE 452
allocated at ALL. With this command, you simply let * FILE 452
the LOGON procedure do it's thing, and in your initial * FILE 452
logon CLIST/REXX specify the libraries you want in * FILE 452
front. The re-allocation occurs, without the user * FILE 452
needing to know all the LOGON procedure's library * FILE 452
names. * FILE 452
* FILE 452
Note: ADDTO can NOT extend DDs that are OPEN. In other * FILE 452
words, ISPxLIB's can't be ADDTO'd once you are in ISPF. * FILE 452
* FILE 452
---------------------------------------------------- * FILE 452
* FILE 452
Fast Catalog List Command (CATL) * FILE 452
Updated July 2, 1999 * FILE 452
* FILE 452
The TSO LISTCAT command seems to gather every smidgen * FILE 452
of information necessary about a dataset, even if it is * FILE 452
not going to display it on your screen. This command * FILE 452
only gets the required information, making it quite a * FILE 452
bit faster. There are additional keywords to change how * FILE 452
CATL displays the output. Try the "SIDEWAYS" keyword on * FILE 452
a GDG base. * FILE 452
* FILE 452
---------------------------------------------------- * FILE 452
* FILE 452
List Dataset Information (LDS) * FILE 452
* FILE 452
This command lets you list information about your * FILE 452
libraries that you really can't get easily any other * FILE 452
way. Actually, until TSO/E, some of this information * FILE 452
wasn't available at all. * FILE 452
* FILE 452
---------------------------------------------------- * FILE 452
* FILE 452
DASD Pack Map (PACKMAP) * FILE 452
Updated July 2, 1999 * FILE 452
* FILE 452
Occasionally, you need to know the physical layout of a * FILE 452
volume. This utility generates a MAP for you. The * FILE 452
output report gives you the relative track, extent * FILE 452
length, extent number, CCHH and DCB information for * FILE 452
every dataset on the volume. The freespace extents and * FILE 452
VTOC information are also displayed in this report. * FILE 452
* FILE 452
---------------------------------------------------- * FILE 452
* FILE 452
PDS Rescue (PRU) * FILE 452
Updated November 24, 1999 * FILE 452
* FILE 452
Have you ever hit SAVE in ISPF when you meant to enter * FILE 452
CANCEL? I have. This utility allows you to get the * FILE 452
original member back. The original library is left * FILE 452
untouched, and a new library is created with all the * FILE 452
OLD members. Unfortunately, this does not work on PDSE * FILE 452
libraries, or after a PDS has been compressed. * FILE 452
* FILE 452
A REXX exec has been provided by one of the users of * FILE 452
this utility. This makes it easier than ever to recover * FILE 452
member(s). * FILE 452
* FILE 452
---------------------------------------------------- * FILE 452
* FILE 452
Return/Abend Code Generator (RETCODE) * FILE 452
Updated July 14, 1999 * FILE 452
* FILE 452
Need to test the "COND=" or "IF" logic of your batch * FILE 452
jobs? This tool lets you generate a step with any * FILE 452
return code or User/System ABEND code. * FILE 452
* FILE 452
---------------------------------------------------- * FILE 452
* FILE 452
Dynamic Steplib (STEPLIB) * FILE 452
Updated September 2, 1999 * FILE 452
* FILE 452
With the deficiencies of ISPLLIB, and the other * FILE 452
"tasklib" capabilities provided by IBM, sometimes you * FILE 452
really need a STEPLIB. I've found it easier to simply * FILE 452
forget the other facilities, and use STEPLIB * FILE 452
exclusively. This tool allows you to create, alter or * FILE 452
remove your STEPLIB at any time during the life of your * FILE 452
TSO session. * FILE 452
* FILE 452
---------------------------------------------------- * FILE 452
* FILE 452
User/System Symbols (USERINFO) * FILE 452
Updated April 2, 2000 * FILE 452
* FILE 452
Ever need to know your TSO terminal ID, the JES * FILE 452
subsystem you're running under or a raft of other system * FILE 452
or user related items within a CLIST or REXX? Of course, * FILE 452
in a REXX EXEC, you can bounce through control blocks, * FILE 452
but wouldn't it be easier to have it available in a * FILE 452
defined symbol. Actually, this tool was created way * FILE 452
back, before REXX was available, and CLIST was the way * FILE 452
to go. With USERINFO, the system and user information is * FILE 452
readily available in a &SYSxxxx variable. Simply invoke * FILE 452
the USERINFO program at the beginning of the CLIST, and * FILE 452
all these symbols magically appear. Recently, a user * FILE 452
needed to know what day of the week it was, so &SYSWDAY * FILE 452
was added. The system symbols defined in IEASYMxx as * FILE 452
well as the current RACF USER and GROUP names are now * FILE 452
available. * FILE 452
* FILE 452
If you'd like additional variables, and know the * FILE 452
control block location, simply Email me and I'll add * FILE 452
it. * FILE 452
* FILE 452
---------------------------------------------------- * FILE 452
* FILE 452
Who's Got my Dataset (WHOSGOT) * FILE 452
* FILE 452
When trying to edit or allocate a library, occasionally * FILE 452
you will get a "dataset in use" message. This tool * FILE 452
lets you ask the question... "WHO'S GOT MY FILE"? * FILE 452
* FILE 452
IS FROM PAUL A MOINIL OF J.R.C. COMPUTING CENTRE * FILE 453
IN ISPRA, ITALY. THIS FILE IS THE INDEX TO HIS * FILE 453
LARGE COLLECTION OF SOFTWARE WHICH IS ON FILES * FILE 453
454 THRU 459. AS SHIPPED TO THIS TAPE, HIS FILES * FILE 453
WERE CALLED SOURCE.FILE0 THROUGH SOURCE.FILE5. * FILE 453
THOSE FILES ARE MAPPED TO THE CBT TAPE FILES AS * FILE 453
FOLLOWS: * FILE 453
* FILE 453
SOURCE.FILE0 MAPS TO CBT TAPE FILE 454 * FILE 453
SOURCE.FILE1 MAPS TO CBT TAPE FILE 455 * FILE 453
SOURCE.FILE2 MAPS TO CBT TAPE FILE 456 * FILE 453
SOURCE.FILE3 MAPS TO CBT TAPE FILE 457 * FILE 453
SOURCE.FILE4 MAPS TO CBT TAPE FILE 458 * FILE 453
SOURCE.FILE5 MAPS TO CBT TAPE FILE 459 * FILE 453
* FILE 453
SOFTWARE WAS TESTED ON AN MVS/XA 2.2.3 SYSTEM, * FILE 453
BUT IT IS LIKELY THAT MUCH OF IT WORKS ON MVS/ESA. * FILE 453
SEE PAUL'S EXPLANATION IN THE $$$DOC MEMBER ON * FILE 453
THIS FILE. * FILE 453
* FILE 453
PAUL MOINIL HAS REWORKED MANY OF THE PROGRAMS * FILE 453
TAKEN FROM OTHER PLACES. SOMETIMES THE EVIDENCE * FILE 453
OF HIS WORK WAS OBVIOUSLY CONSIDERABLE. I HAVE * FILE 453
TRIED THIS TIME, TO INCLUDE HIS ENTIRE SUBMISSION. * FILE 453
(SAM GOLOB - 12/29/94) * FILE 453
* FILE 453
PAUL MOINIL HAS RETIRED FROM J.R.C. ON MAY 31, 1999 * FILE 453
HIS ADDRESS AND PHONE ARE NO LONGER VALID. * FILE 453
(ANTONIO COLOMBO - 06/01/1999) * FILE 453
* FILE 453
THERE IS ANOTHER CONTACT PERSON REGARDING THE * FILE 453
MATERIALS IN THIS PACKAGE. HE IS: * FILE 453
* FILE 453
ANTONIO COLOMBO * FILE 453
AMDAHL ITALIA S.P.A. * FILE 453
VIALE BRENTA, 16/18 * FILE 453
I-20139 MILANO * FILE 453
ITALY * FILE 453
+39(0332)786022 * FILE 453
OR +39(02)574741 AMDAHL OFFICE * FILE 453
EMAIL ANTONIO.COLOMBO@JRC.ORG * FILE 453
EMAIL AZC10@AMDAHL.COM * FILE 453
* FILE 453
MANY PRODUCTS HERE HAVE BEEN EXTRACTED FROM * FILE 453
PREVIOUS CBT TAPES (JUN84, FEB85, FEB86, FEB87, * FILE 453
FEB88, FEB89, MAY90, MAR91, MAR92 AND FEB93), * FILE 453
ADAPTED AND/OR ENHANCED TO OUR INSTALLATION NEEDS * FILE 453
OR FACILITIES. THE MATERIAL PROVIDED IN THIS FILE * FILE 453
HAS RUN ON O.S. SYSTEM MVS 3.8, SP 2.2.3 (MVS/XA). * FILE 453
* FILE 453
IS FROM PAUL A MOINIL OF J.R.C. COMPUTING CENTRE * FILE 454
IN ISPRA, ITALY. THIS FILE IS THE BASIC MATERIAL TO * FILE 454
HIS LARGE COLLECTION OF SOFTWARE WHICH IS ON FILES * FILE 454
454 THRU 459. * FILE 454
* FILE 454
THERE IS ANOTHER CONTACT PERSON REGARDING THE * FILE 454
MATERIALS IN THIS PACKAGE. HE IS: * FILE 454
* FILE 454
ANTONIO COLOMBO * FILE 454
AMDAHL ITALIA S.P.A. * FILE 454
VIALE BRENTA, 16/18 * FILE 454
I-20139 MILANO * FILE 454
ITALY * FILE 454
+39(0332)786022 * FILE 454
OR +39(02)574741 AMDAHL OFFICE * FILE 454
EMAIL ANTONIO.COLOMBO@JRC.ORG * FILE 454
EMAIL AZC10@AMDAHL.COM * FILE 454
* FILE 454
FILE NAME : ->.SOURCE.FILE0 (BASIC MATERIAL). * FILE 454
FOLLOWS A SUMMARY OF CONTENTS : * FILE 454
$$$DOC PRELIMINARY NOTES. * FILE 454
$AIRD ACCOUNTING INFORMATION RECORD DESCRIPTION (MACRO).* FILE 454
$CEPA SMF - COMMON EXIT PARAMETER AREA (MACRO). * FILE 454
$DEFREG REGISTERS EQUATES ASSEMBLER MACRO. * FILE 454
$FS GENERATE FULL SCREEN ORDERS AND FIELDS * FILE 454
(IBM 3270 DISPLAY) ASSEMBLER MACROS. * FILE 454
$HEDIT HEADER EDIT (BLOCKS LETTERS IN ASSEMBLY LISTINGS) * FILE 454
ASSEMBLER MACRO. * FILE 454
$IDENT MODULE IDENTIFICATION (MACRO). * FILE 454
$SIDTB SMF - SYSTEM ID'S FACTOR TABLE (MACRO). * FILE 454
$SORT GENERATE IN-LINE SORT ASSEMBLER MACRO. * FILE 454
$TEW$.. TSO EASY-WAY OF CODING (MACROS FACILITY). * FILE 454
$TSWXA TEST AND SWITCH ADDRESSING MODE MACRO. * FILE 454
$UJVT SMF - IEFUJV TABLES VECTOR (MACRO). * FILE 454
$XENT ENTER PROGRAM CONTROL ASSEMBLER MACRO. * FILE 454
$XRET RETURN PROGRAM CONTROL ASSEMBLER MACRO. * FILE 454
ALLOCGDG GDG DATA-SET DYNAMIC ALLOCATION TSO COMMAND. * FILE 454
AUTHC COMMAND AUTHORIZATION INTERFACE (TSO). * FILE 454
AUTHCTL EURATOM AUTHORITY CONTROL MODULE. * FILE 454
AUTHSVC AUTHORIZATION SVC FOR MVS (IGC00###). * FILE 454
BIG CREATE BLOCK CHARACTERS ISPF/PDF EDIT COMMAND. * FILE 454
BIGS CREATE SLANTED BLOCK CHAR. ISPF/PDF EDIT COMMAND. * FILE 454
BLOCK CREATE MULTI BLOCK CHAR. ISPF/PDF EDIT COMMAND. * FILE 454
CATS READ SEQUENTIALLY AN O.S. CATALOG ROUTINE. * FILE 454
CENTER CENTER ISPF/PDF EDIT COMMAND. * FILE 454
CNVCLIST CONVERT CLISTS VB-255 / FB-80. * FILE 454
COMPRESS COMPRESS ISPF/PDF EDIT COMMAND. * FILE 454
CONCAT CONCAT TSO COMMAND. * FILE 454
CONT SET CONTINUATION ISPF/PDF EDIT COMMAND. * FILE 454
CONTROL CONTROL ISPF/PDF EDIT COMMAND. * FILE 454
CP TSO : CP COMMANDS (VM). * FILE 454
CRY ENCRYPT/DECRYPT ISPF/PDF EDIT COMMAND. * FILE 454
CUT CUT DATA LINES ISPF/PDF EDIT COMMAND. (UPD 12/97) * FILE 454
DASCAN DIRECT-ACCESS UCB'S LOOKUP ROUTINE. * FILE 454
DAUNTY DIRECT-ACCESS UNIT TYPE ROUTINE. * FILE 454
DAVALL DIRECT-ACCESS VOLUME ALLOCATION ROUTINE. * FILE 454
DECONCAT DECONCAT TSO COMMAND. * FILE 454
DECRYPT DECRYPT ISPF/PDF EDIT COMMAND. * FILE 454
DTSO DISPLAY SOME CONTROL BLOCKS TSO COMMAND. * FILE 454
DTUR DSECT'S TABLES USE ROUTINE (DTUSE). * FILE 454
DVTYUN DEVICE TYPE TO UNIT NAME ROUTINE. * FILE 454
DYNALL DYNAMIC DATA-SET ALLOCATION ROUTINE. * FILE 454
DYNCC DYNAMIC CONCATENATION-DECONCATENATION ROUTINE. * FILE 454
EDITH EDIT HEADER ROUTINE. * FILE 454
EDITMACS LIST OF ADDITIONAL LOCAL ISPF EDIT MACROS. * FILE 454
EDMODE EDMODE ISPF/PDF EDIT COMMAND. * FILE 454
EDVIO ISPF EDIT IN A VIO DATA-SET. * FILE 454
ENCRYPT ENCRYPT ISPF/PDF EDIT COMMAND. * FILE 454
EOL SET CURSOR AT END LINE ISPF/PDF EDIT COMMAND. * FILE 454
ERASE TERMINAL ERASE SCREEN ROUTINE (TSO COMMAND). * FILE 454
EURACFT RACF DATA-SET ACCESS TEST TSO COMMAND. * FILE 454
EUSID SYSTEM VARIABLES CLIST TSO COMMAND. * FILE 454
EUSMF SMF VARIABLES CLIST TSO COMMAND. * FILE 454
EUSUB EURATOM SUBMIT PROGRAM. * FILE 454
FC FC ISPF/PDF EDIT COMMAND. * FILE 454
FILEINFO FILEINFO TSO COMMAND. * FILE 454
FILSPACE FILSPACE ROUTINE. * FILE 454
FINDMEM FINDMEM ROUTINE. * FILE 454
FIXJCL FIXJCL ISPF/PDF EDIT COMMAND. * FILE 454
FLOWJCL FLOWJCL ISPF/PDF EDIT COMMAND. * FILE 454
FSPACE DISPLAY FREE EXTENTS ON VOLUME(S). * FILE 454
FSRTN FULL-SCREEN SERVICE ROUTINES. * FILE 454
GACTN OBTAIN ACCOUNT NUMBER / PROGRAMMER'S NUMBER RTN. * FILE 454
GDGALLR GDGALLR ROUTINE. * FILE 454
GDGRESET GDG UTILITY PROGRAM. * FILE 454
GETPAN GETPAN ISPF/PDF EDIT COMMAND. * FILE 454
GFDATE GENERATE DATES ROUTINES. * FILE 454
GPARM OBTAIN PARM. FIELD ROUTINE. * FILE 454
GGUR GET GROUP'S USERIDS FROM RACF - ROUTINE. * FILE 454
GPARM OBTAIN PARM. FIELD ROUTINE. * FILE 454
GUAR GET USERID ACCOUNT FROM SYS1.UADS/TSO - ROUTINE. * FILE 454
ICFS READ SEQUENTIALLY AN ICF CATALOG ROUTINE. * FILE 454
INSORT INCORE SORT SUBROUTINE. * FILE 454
INTRDR ALLOCATE AN INTERNAL READER TSO COMMAND. * FILE 454
ISPCDSN DATA-SET SELECTION BY CURSOR FROM ISPF DISPLAY. * FILE 454
IXTOFMT5 INDEXED VTOC FORMAT-5 INTERFACE ROUTINE. * FILE 454
JB DISPLAY CPU - SRB (I/O) TIME. * FILE 454
JOBCARD JOBCARD ISPF/PDF EDIT COMMAND. * FILE 454
JOBS DISPLAY JOBS RUNNING IN THE SYSTEM TSO COMMAND. * FILE 454
LISTAX LISTAX TSO COMMAND. * FILE 454
LISTENQ LIST ENQ'S FOR A JOB OR USERID TSO COMMAND. * FILE 454
LISTNO LIST MANUAL'S MEMBERS PROGRAM. * FILE 454
LJUST LEFT JUSTIFY ISPF/PDF EDIT COMMAND. * FILE 454
LOCK TSO COMMAND TO LOCK TERMINAL. * FILE 454
LOGALLOC LOGALLOC TSO COMMAND. * FILE 454
MOVECOLS MOVE COLUMNS WITHIN DATA LINES ISPF/PDF EDIT CMD. * FILE 454
MREAD READ PO-MEMBERS ROUTINE. * FILE 454
OPCOM OPERATORS COMMUNICATIONS ROUTINE. * FILE 454
PARA PARA ISPF/PDF EDIT COMMAND. * FILE 454
PDREAD READ PARTITIONED DIRECTORY ROUTINE. * FILE 454
PDSW PARTITIONED DATA-SET WHERE FUNCTION TSO COMMAND. * FILE 454
PEDIT PEDIT ISPF/PDF EDIT COMMAND. * FILE 454
PLREAD READ PARTITIONED LOAD MODULE ROUTINE. * FILE 454
PLUG PLUG DATA INTO LINES ISPF/PDF EDIT COMMAND. * FILE 454
PSWR OBTAIN RACF PASSWORD TSO COMMAND. * FILE 454
RDCHK READ TAPE DATA-CHECK ROUTINE. * FILE 454
RESUME RESTORE ISPF/PDF EDIT COMMAND. * FILE 454
RGROUP CHANGE CURRENT RACF CONNECT GROUP. * FILE 454
RJUST RIGHT JUSTIFY ISPF/PDF EDIT COMMAND. * FILE 454
RPROT RACF PROTECTION TSO COMMAND. * FILE 454
RSVENQ DISPLAY RESOURCES ENQ'S RESERVE TSO COMMAND. * FILE 454
RTIME GET REMAINING CPU-SRB TIME ROUTINE. * FILE 454
R050A90 ENCIPHER-DECIPHER ROUTINE. * FILE 454
SCRSZ GET CURRENT SCREEN SIZE TSO COMMAND. * FILE 454
SKEL SKEL ISPF/PDF EDIT COMMAND. * FILE 454
SKELCHK CHECK ")SEL-)ENDSEL" ISPF/PDF EDIT COMMAND. * FILE 454
SLINE SET SEPARATION LINE ISPF/PDF EDIT COMMAND. * FILE 454
SRCHRPI SEARCH A REPLY PENDING IDENTIFICATION ROUTINE. * FILE 454
SSCMD SEND A SYSTEM COMMAND SUBROUTINE. * FILE 454
STCLOK CLOCK MEASUREMENT ROUTINE. * FILE 454
STRTEST STCLOK, TIME AND RTIME TEST PROGRAM. * FILE 454
SUJVTA SEARCH IEFUJV - UJVTABLE SUBROUTINE. * FILE 454
SUM SUM A COLUMN OF NUMBERS ISPF/PDF EDIT COMMAND. * FILE 454
TRAP TRAP ISPF/PDF EDIT COMMAND. * FILE 454
TSODSN DISPLAY DATA-SET ENQ'S TSO COMMAND. * FILE 454
TSOENQ DISPLAY DATA-SET ENQ'S CONFLICTS TSO COMMAND. * FILE 454
TXPRINT PRINT ROUTINE. * FILE 454
TXPUNCH PUNCH ROUTINE. * FILE 454
TXREAD READ ROUTINE. * FILE 454
TXSNAP SNAP DUMP ROUTINE. * FILE 454
UADS LIST SYS1.UADS TSO COMMAND. * FILE 454
UNIT DISPLAY INFORMATION ABOUT PHYSICAL DEVICES. * FILE 454
UNITS DISPLAY UNIT NAMES OF SYSTEM DEVICE NAME TABLE. * FILE 454
UPDTMACS UPDATE LIST OF ADDITIONAL LOCAL ISPF EDIT MACROS. * FILE 454
USERS DISPLAY USERS TSO COMMAND. * FILE 454
VGPSUB ISPF VGET-VPUT SUBROUTINE. * FILE 454
VREAD VARIABLE READ ROUTINE. * FILE 454
VTOCD VTOC DIRECT READ-WRITE ROUTINE. * FILE 454
VTOCQ VTOC QUICK SEQUENTIAL READ ROUTINE. * FILE 454
VTOCS VTOC SEQUENTIAL READ ROUTINE. * FILE 454
VTTCAM TEST TCAM OR VTAM RUNNING ROUTINE. * FILE 454
WAITR DISPLAY ENQ'S CONFLICTS FOR A JOB OR USERID. * FILE 454
WPC WPC TSO COMMAND. * FILE 454
XTC EXECUTE TSO COMMANDS AND/OR CLISTS. * FILE 454
ZOOM BROWSE JCL PROCEDURE ISPF/PDF EDIT COMMAND. * FILE 454
---------------- * FILE 454
I S P F WORLD : * FILE 454
---------------- * FILE 454
ALL MEMBERS NAMES STARTING BY PAJ... ARE ISPF MEMBERS WHICH * FILE 454
ALLOW YOU AN EASY WAY TO EXECUTE MANY OF THE DISTRIBUTED * FILE 454
COMMANDS, AS I.E. : * FILE 454
PAJPALL ISPF - DISPLAY DATA-SETS ALLOCATED TO TSO USER. * FILE 454
PAJPBLK ISPF - DISK BLOCK SIZES COMPUTATIONS. * FILE 454
PAJPBUMU ISPF - BROADCAST USER MESSAGES UNLOAD. * FILE 454
PAJPPOF ISPF - VTAM SECONDARY PROGRAM OPERATOR FACILITY. * FILE 454
PAJPVQ ISPF - GRS/ENQ DISPLAY. * FILE 454
THE MEMBERS NAMED CBOOK000, MBKS00, SBOOK0 AND ALL PBOOK... * FILE 454
ARE PART OF AN ISPF APPLICATION EXAMPLE GIVING YOU A * FILE 454
FACILITY TO MAINTAIN A SET OF IBM MANUALS LISTS. * FILE 454
* FILE 454
IS FROM PAUL A MOINIL OF J.R.C. COMPUTING CENTRE * FILE 455
IN ISPRA, ITALY. THIS FILE IS THE COMPLEMENTARY * FILE 455
MATERIAL TO HIS LARGE COLLECTION OF SOFTWARE WHICH * FILE 455
IS ON FILES 454 THRU 459. * FILE 455
* FILE 455
THERE IS ANOTHER CONTACT PERSON REGARDING THE * FILE 455
MATERIALS IN THIS PACKAGE. HE IS: * FILE 455
* FILE 455
ANTONIO COLOMBO * FILE 455
AMDAHL ITALIA S.P.A. * FILE 455
VIALE BRENTA, 16/18 * FILE 455
I-20139 MILANO * FILE 455
ITALY * FILE 455
+39(0332)786022 * FILE 455
OR +39(02)574741 AMDAHL OFFICE * FILE 455
EMAIL ANTONIO.COLOMBO@JRC.ORG * FILE 455
EMAIL AZC10@AMDAHL.COM * FILE 455
* FILE 455
FILE NAME : ->.SOURCE.FILE1 (COMPLEMENTARY MATERIAL). * FILE 455
FOLLOWS A SUMMARY OF CONTENTS : * FILE 455
* FILE 455
$$$DOC PRELIMINARY NOTES. * FILE 455
AGENDA AGENDA TSO COMMAND. * FILE 455
ARITH HEX/DECIMAL ARITHMETIC TSO COMMAND. * FILE 455
AUTOCI AUTOMATIC OPERATORS COMMANDS ISSUER. * FILE 455
BRODSCAN ANALYZE BROADCAST TSO DATA-SET. * FILE 455
CMPRSEQ SEQUENTIAL DATA-SETS COMPARISON. * FILE 455
CONAN OPERATOR CONSOLE ANALYSIS FACILITY. * FILE 455
DAHANDBK DATA AREA HANDBOOK GENERATOR PROGRAM. * FILE 455
DHC HEX/DECIMAL CALCULATOR (TSO). * FILE 455
IEBANTP ANALYZE/COPY TAPE/3480 UTILITY. * FILE 455
IMSLDS IMS LOG DATA-SET(S) PROGRAM/COMMAND. * FILE 455
IOPACK INPUT-OUTPUT PACKAGE ROUTINES. * FILE 455
RECOVER RECOVER DATA-SETS PROGRAM (SERVICE AIDS). * FILE 455
SEE SEE CURRENT ISPF PANEL. * FILE 455
SETCLOCK TOD CLOCK SYNCHRONIZER. * FILE 455
SHOWMVS PROGRAM/COMMAND. * FILE 455
STATDS A DISK DATA-SET STATISTICS PROGRAM. * FILE 455
VCOREZAP VIRTUAL CORE ZAP PROGRAM. * FILE 455
VSM VIRTUAL STORAGE MONITOR. * FILE 455
* FILE 455
IS FROM PAUL A MOINIL OF J.R.C. COMPUTING CENTRE * FILE 456
IN ISPRA, ITALY. THIS FILE IS THE ADDITIONAL * FILE 456
MATERIAL TO HIS LARGE COLLECTION OF SOFTWARE * FILE 456
WHICH IS ON FILES 454 THRU 459. * FILE 456
* FILE 456
THERE IS ANOTHER CONTACT PERSON REGARDING THE * FILE 456
MATERIALS IN THIS PACKAGE. HE IS: * FILE 456
* FILE 456
ANTONIO COLOMBO * FILE 456
AMDAHL ITALIA S.P.A. * FILE 456
VIALE BRENTA, 16/18 * FILE 456
I-20139 MILANO * FILE 456
ITALY * FILE 456
+39(0332)786022 * FILE 456
OR +39(02)574741 AMDAHL OFFICE * FILE 456
EMAIL ANTONIO.COLOMBO@JRC.ORG * FILE 456
EMAIL AZC10@AMDAHL.COM * FILE 456
* FILE 456
* FILE 456
FILE NAME : ->.SOURCE.FILE2 (ADDITIONAL MATERIAL). * FILE 456
FOLLOWS A SUMMARY OF CONTENTS : * FILE 456
* FILE 456
$$$DOC PRELIMINARY NOTES. * FILE 456
AIDINIT ACCOUNTING INFORMATION DATA-SET INIT. PROGRAM. * FILE 456
AIDLOAD ACCOUNTING INFORMATION DATA-SET LOAD PROGRAM. * FILE 456
AIDSYNC ACC. INF. DATA-SET SYNCHRONIZATION PROGRAM. * FILE 456
AIDUNLD ACCOUNTING INFORMATION DATA-SET UNLOAD PROGRAM. * FILE 456
AIDUPDT ACCOUNTING INFORMATION DATA-SET UPDATE PROGRAM. * FILE 456
AMRUTIL ASSEMBLER MACROS REFERENCES UTILITY. * FILE 456
AUT.. ACC. INF. DATA-SET MAINTENANCE (TSO). * FILE 456
CATLIST O.S. CATALOG LIST PROGRAM. * FILE 456
CLEAN DISKS CLEAN-UP MAINTENANCE PROCESSING PROGRAM. * FILE 456
COMPAK COMPARE TWO IEAPAK.. VERSIONS. * FILE 456
DEVTGEN GENERATE DEVICES TABLES (REC/TRK CAPACITIES). * FILE 456
ENQANAL ENQ'S ANALYSIS PROGRAM. * FILE 456
GDTUTIL GENERATE DSECT'S TABLES UTILITY. * FILE 456
HELPLIST TSO HELP DATA-SET LISTER. * FILE 456
ICFLIST ICF CATALOG LIST PROGRAM. * FILE 456
ICHCNX00 RACF - COMMAND PRE-PROCESSING EXIT. * FILE 456
ICHRCX01 RACF - RACHECK PRE-PROCESSING EXIT. * FILE 456
ICHRDSNT RACF - DATA-SET NAME TABLE. * FILE 456
ICHRIN03 RACF - STARTED PROCEDURES TABLE. * FILE 456
IEAVMXIT COMMUNICATIONS TASK EXIT. * FILE 456
IEFACTRT SMF - TERMINATION EXIT. * FILE 456
IEFUJI SMF - JOB INITIATION EXIT. * FILE 456
IEFUJV SMF - JOB VALIDATION EXIT. * FILE 456
IEFUSI SMF - STEP INITIATION EXIT. * FILE 456
IEFUTL SMF - TIME LIMIT EXIT. * FILE 456
IKJEFF10 TSO - SUBMIT EXIT ROUTINE. * FILE 456
JES2XIT LOCAL JES2 EXITS. * FILE 456
LMRUTIL LOAD MODULES REFERENCES UTILITY. * FILE 456
LTACC LIST ACCOUNTING INF. DATA-SET CONTENTS PROGRAM. * FILE 456
PDSPURGE PO DATA-SETS DIRECTORY CLEANUP PROGRAM. * FILE 456
PVSD PRINT VARIABLE SYSOUT DATA-SETS PROGRAM. * FILE 456
RACFXIT LOCAL RACF EXITS. * FILE 456
RENAMP RENAME PO DATA-SET MEMBERS TSO COMMAND. * FILE 456
RSMANAL RSM ANALYSIS PROGRAM. * FILE 456
SCHEDLOG SCHEDULE/SCHEDRUN LOG LIST PROGRAM. * FILE 456
SEEKANAL SEEK ANALYSIS PROGRAM. * FILE 456
SHUTDOWN OPERATOR GRACEFULL SERVICES TERMINATION. * FILE 456
SLABEL INITIALIZE 9-TRACKS TAPES VOLUMES. * FILE 456
SMFEXIT LOCAL SMF EXITS. * FILE 456
STRTEST STCLOK, TIME AND RTIME TEST PROGRAM. * FILE 456
TIEFUJV TEST IEFUJV SMF EXIT JCL SCAN PROGRAM. * FILE 456
TTCBRB TRACE ADDRESS SPACE TCB-RB'S CHAIN. * FILE 456
TUTOLIST TUTORIALS ISPF-PANELS LISTER. * FILE 456
UJVD TSO IEFUJV DISPLAY COMMAND. * FILE 456
UJVT TEST IEFUJV COMPUTATIONS PROGRAM. * FILE 456
UJVTABLE SMF - JOB VALIDATION EXIT TABLES. * FILE 456
VSMANAL VSM ANALYSIS PROGRAM. * FILE 456
VTOCANAL VTOC ANALYSIS PROGRAM. * FILE 456
YATIL LOOK IN A PO-DIRECTORY FOR A NAME EXISTENCE. * FILE 456
YPACK ACCOUNTING INF. DATA-SET SHORT PACKAGE ROUTINES. * FILE 456
ZPACK ACCOUNTING INF. DATA-SET FULL PACKAGE ROUTINES. * FILE 456
ZYDIAG ACCOUNTING INFORMATION DATA-SET DIAGNOSTICS. * FILE 456
* FILE 456
IS FROM PAUL A MOINIL OF J.R.C. COMPUTING CENTRE * FILE 457
IN ISPRA, ITALY. THIS FILE IS THE DEMO/GAMES * FILE 457
MATERIAL TO HIS LARGE COLLECTION OF SOFTWARE WHICH * FILE 457
IS ON FILES 454 THRU 459. * FILE 457
* FILE 457
THERE IS ANOTHER CONTACT PERSON REGARDING THE * FILE 457
MATERIALS IN THIS PACKAGE. HE IS: * FILE 457
* FILE 457
ANTONIO COLOMBO * FILE 457
AMDAHL ITALIA S.P.A. * FILE 457
VIALE BRENTA, 16/18 * FILE 457
I-20139 MILANO * FILE 457
ITALY * FILE 457
+39(0332)786022 * FILE 457
OR +39(02)574741 AMDAHL OFFICE * FILE 457
EMAIL ANTONIO.COLOMBO@JRC.ORG * FILE 457
EMAIL AZC10@AMDAHL.COM * FILE 457
* FILE 457
FILE NAME : ->.SOURCE.FILE3 (DEMO/GAMES MATERIAL). * FILE 457
FOLLOWS A SUMMARY OF CONTENTS : * FILE 457
* FILE 457
$$$DOC PRELIMINARY NOTES. * FILE 457
BLACKJK TSO BLACKJACK GAME. * FILE 457
DECIDER TRY IT ... PLAYER. * FILE 457
DIVER TRY IT ... PLAYER. * FILE 457
GDDM GDDM DEMONSTRATIONS. * FILE 457
JOTTO TRY IT ... PLAYER. * FILE 457
KALAH ANCIENT EGYPTIAN BOARD GAME. * FILE 457
KLINGON KLINGON (SPACE WAR) GAME. * FILE 457
LIFE TRY IT ... PLAYER. * FILE 457
LUNAR LUNAR LANDING SIMULATION. * FILE 457
POKER IBM 3270 DISPALY - SLOT MACHINE POKER GAME. * FILE 457
SEIKO FULL SCREEN DISPLAY CLOCK TIME. * FILE 457
SNAKE SYSTEM-NODE-ACTIVITY-KNOWLEDGE-EXIT. * FILE 457
STREK TSO FULL-SCREEN STAR-TREK GAME. * FILE 457
T3270FS IBM 3270 FULL-SCREEN TERMINAL TEST TSO COMMAND. * FILE 457
WORM WONDERFUL-ONLINE-RESPONSE-MONITOR. * FILE 457
* FILE 457
IS FROM PAUL A MOINIL OF J.R.C. COMPUTING CENTRE * FILE 458
IN ISPRA, ITALY. THIS FILE IS THE CBT EXTRACTED * FILE 458
MATERIAL TO HIS LARGE COLLECTION OF SOFTWARE WHICH * FILE 458
IS ON FILES 454 THRU 459. * FILE 458
* FILE 458
THERE IS ANOTHER CONTACT PERSON REGARDING THE * FILE 458
MATERIALS IN THIS PACKAGE. HE IS: * FILE 458
* FILE 458
ANTONIO COLOMBO * FILE 458
AMDAHL ITALIA S.P.A. * FILE 458
VIALE BRENTA, 16/18 * FILE 458
I-20139 MILANO * FILE 458
ITALY * FILE 458
+39(0332)786022 * FILE 458
OR +39(02)574741 AMDAHL OFFICE * FILE 458
EMAIL ANTONIO.COLOMBO@JRC.ORG * FILE 458
EMAIL AZC10@AMDAHL.COM * FILE 458
* FILE 458
FILE NAME : ->.SOURCE.FILE4 (CBT EXTRACTED MATERIAL). * FILE 458
* FILE 458
FOLLOWS A SUMMARY OF CONTENTS : * FILE 458
* FILE 458
$$$DOC PRELIMINARY NOTES. * FILE 458
CDSCB MODIFY A DATA-SET FORMAT-1 DSCB. * FILE 458
COMPARE COMPARE TSO COMMAND. * FILE 458
COMPAREB A MODIFIED VERSION OF THE YALE COMPARE PROGRAM. * FILE 458
CURESTA CURRENT REGION STATISTICS DISPLAY. * FILE 458
DIDOCS SIMULATE AN OS CONSOLE AT TSO TUBE. * FILE 458
DISASM ONE-PASS DISASSEMBLER PROGRAM. * FILE 458
DOPROG DOPROG/DOCP TSO COMMAND PROCESSOR. * FILE 458
DSNCHECK DSNCHECK TSO COMMAND. * FILE 458
DSNTAB DSNTAB ROUTINE. * FILE 458
ETPS EMERGENCY TELE-PROCESSING SERVICES. * FILE 458
HEL A TSO FULL-SCREEN HELP COMMAND. * FILE 458
INCORZAP MAIN STORAGE SUPERZAP SERVICE AID PROGRAM. * FILE 458
JCLFLOW JCLFLOW ISPF/PDF EDIT COMMAND. * FILE 458
LISTICAT LIST AN ICF CATALOG PROGRAM. * FILE 458
MEMSTAT MEMBER STATUS TSO COMMAND. * FILE 458
MODLOOK MODULE'S LOOK UP PROGRAM/COMMAND. * FILE 458
NOTICE BROADCAST NOTICES TSO COMMAND. * FILE 458
PACKLIST IEAPAK00 MEMBER GENERATOR PROGRAM. * FILE 458
PDFINIT DYNAMIC ALLOCATION COMMAND FOR ISPF/PDF. * FILE 458
PDSMATCH COMPARE DIRECTORIES OF TWO PO DATA-SETS. * FILE 458
POF VTAM SECONDARY PROGRAM OPERATOR FACILITY. * FILE 458
PSWSAMP SAMPLER TAKER PROGRAM FOR PACKLIST. * FILE 458
PUSE PAGEING UTILIZATION PROGRAM. * FILE 458
QSP THE QUEUE/SPOOL TSO COMMAND. * FILE 458
ROTATER 3800 PRINTER ROTATED 90 DEGREES CLOCKWISE. * FILE 458
SCHEDULE THE SCHEDULE/SCHEDRUN FACILITY PROGRAMS. * FILE 458
TO SEND A MESSAGE TO A USER. * FILE 458
WHATDSN WHATDSN TSO COMMAND. * FILE 458
XREFASM A GLOBAL CROSS-REFERENCE LISTING GENERATOR. * FILE 458
ZAP ZAP DATA-SET TSO COMMAND. * FILE 458
* FILE 458
IS FROM PAUL A MOINIL OF J.R.C. COMPUTING CENTRE * FILE 459
IN ISPRA, ITALY. THIS FILE IS THE SUPPLEMENTARY * FILE 459
MATERIAL TO HIS LARGE COLLECTION OF SOFTWARE WHICH * FILE 459
IS ON FILES 454 THRU 459. * FILE 459
* FILE 459
THERE IS ANOTHER CONTACT PERSON REGARDING THE * FILE 459
MATERIALS IN THIS PACKAGE. HE IS: * FILE 459
* FILE 459
ANTONIO COLOMBO * FILE 459
AMDAHL ITALIA S.P.A. * FILE 459
VIALE BRENTA, 16/18 * FILE 459
I-20139 MILANO * FILE 459
ITALY * FILE 459
+39(0332)786022 * FILE 459
OR +39(02)574741 AMDAHL OFFICE * FILE 459
EMAIL ANTONIO.COLOMBO@JRC.ORG * FILE 459
EMAIL AZC10@AMDAHL.COM * FILE 459
* FILE 459
FILE NAME : ->.SOURCE.FILE5 (SUPPLEMENTARY MATERIAL). * FILE 459
FOLLOWS A SUMMARY OF CONTENTS : * FILE 459
* FILE 459
$$$DOC PRELIMINARY NOTES. * FILE 459
DYLO DYLON/DYLOFF TSO COMMAND (SESSION LIBRARIES * FILE 459
DYNAMIC ALLOCATION). * FILE 459
SHADOW SHADOW/SHADUP ISPF APPLICATION (ENCRYPT/DECRYPT * FILE 459
DATA-SETS FACILITY). * FILE 459
SHORT SYSTEM SECTOR SHORT COMMUNICATION (ISPF). * FILE 459
TOPSEC DISPLAY TOP SECRET SHORT-WRITE-UP TSO COMMAND. * FILE 459
* FILE 459
IS FROM MR WILLIAM SMITH, FORMERLY OF SYNTEX IN * FILE 460
CALIFORNIA, AND CONTAINS A COPY OF THE CLIB FILE * FILE 460
FROM THE ISPF GUIDE TAPE. * FILE 460
* FILE 460
Address: William Smith * FILE 460
IBM * FILE 460
Storage Systems Division * FILE 460
5600 Cottle Road * FILE 460
Dept. W98A * FILE 460
Driver Build & Integration * FILE 460
Building 50, Room A382 * FILE 460
San Jose, CA 95193-0001 * FILE 460
(408) 256-1557 or * FILE 460
Tie Line 276-1557 * FILE 460
* FILE 460
email: smithwj@us.ibm.com * FILE 460
goldens@ibm.net * FILE 460
* FILE 460
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
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
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
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
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
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
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
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
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
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
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
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
is from Scott Finlayson, and contains a program to * FILE 473
check for all ASID's (address space id slots) that * FILE 473
have become non-reusable. The program displays the * FILE 473
list of non-reusable ASID's at the console, * FILE 473
together with the total number of ASID's defined, * FILE 473
and the total number still available. Tells you * FILE 473
when it's time to IPL. Useful if you're like our * FILE 473
shop and wait a long time between IPL's. Good for * FILE 473
a 24x7, or a pseudo 24x7 environment. * FILE 473
* FILE 473
Sample output for the program follows: * FILE 473
* FILE 473
NON-REUSEABLE ASIDS: 00487 00488 00489 00490 00491 00492 00493 * FILE 473
NON-REUSEABLE ASIDS: 00494 00496 00497 00498 00499 00500 00501 * FILE 473
NON-REUSEABLE ASIDS: 00502 00503 00504 00505 00506 00507 00508 * FILE 473
NON-REUSEABLE ASIDS: 00509 00510 00511 00512 * FILE 473
ASID MAX = 00528; ASIDS AVAILABLE = 00147; NON-REUSABLES = 00221* FILE 473
* FILE 473
CHKASVT can be run from TSO as well, as a command, * FILE 473
but it also puts its output to the system log, at * FILE 473
the same time. * FILE 473
* FILE 473
For support inquiries, please email Sam Golob, * FILE 473
sbgolob@attglobal.net or sbgolob@aol.com * FILE 473
* FILE 473
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
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
is an implementation of the LISP Language on MVS, * FILE 476
from Steve Bacher of Draper Laboratory in Cambridge, * FILE 476
Massachusetts. This package includes a compiler, * FILE 476
an interpreter, and an ISPF interface for the LISP * FILE 476
language. This is "industrial strength" LISP for * FILE 476
MVS. * FILE 476
* FILE 476
Steve Bacher * 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
º * 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
is from Brandon Hill and contains a program, * FILE 477
called AWSUTIL, which takes MVS data from either * FILE 477
disk or tape, and creates a "virtual tape file" * FILE 477
in AWS format. This file, which contains all the * FILE 477
data normally in a complete tape, can then be * FILE 477
electronically sent anywhere. You no longer have * FILE 477
to ship a physical tape. * FILE 477
* FILE 477
email: Brandon Hill * FILE 477
* FILE 477
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
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
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
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
* 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
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
* 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
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