This is a collection zaps that may or may not be useful.
The usual disclaimers apply to all code samples (including the zaps).
Warning: Always take a copy of the target module before zapping.
AMASPZAP may be restricted at your shop. Please consult your site System Programmer before continuing with zapping anything.
|
| ||
| Making IEBPTPCH print alphabetically | ||
|
//STEP1 EXEC PGM=AMASPZAP //SYSPRINT DD SYSOUT=* //SYSLIB DD DISP=SHR,DSN=SYS1.LINKLIB //SYSIN DD * NAME IEBPTPCH IEBPPCH1 VER nnnn D502,7008,7014 REP nnnn D507,7000,700C * * For Version 1.11.0 (FMID HBB7750) * VER 12FC D502,7008,7014 REP 12FC D507,7000,700C * * For Version 7.3.1 (FMID HBB77E0) * VER 1310 D502,7008,7014 REP 1310 D507,7000,700C |
Out of the box IBM's print/punch utility (IEBPTPCH) prints a PDS in TTRR order. This zap
will change that so that is print alphabetically. The nnnn value will be different depending on the version of IEBPTPCH in use. We recommend running a DUMPT of the IEBPPCH1 CSECT and searching for '7008'. Then make sure that the '7014' follows it. That will be at the offset you need to zap. Remember that you will need to refresh LLA before the change takes effect. |
|
|
|
||
| View Any Job Using TSO 3.8 | ||
|
//STEP1 EXEC PGM=AMASPZAP //SYSPRINT DD SYSOUT=* //SYSLIB DD DSN=SYS1.LINKLIB,DISP=SHR //SYSIN DD * DUMPT IKJEFF53 IKJEFF53 NAME IKJEFF53 IKJEFF53 VER 00A4 9508,A000 CLI 0(R10),X'08' VER 00A8 4770,C13C BE 13C(R12) REP 00A8 47F0,C13C B 13C(R12) * * For Version 2.5.0 (FMID HBB77D0) * VER 0054 9508,A000 CLI 0(R10),X'08' VER 0058 4770,C19E BE 19E(R12) REP 0058 47F0,C19E B 19E(R12) |
Although many sites now use SDSF to view job output, and, hopefully, it is secured by a security system sometimes
it is required to use the old fashioned TSO option 3.8 to view output (SDSF may be down etc.). The problem here
is that, out of the box, TSO option 3.8 will only allow the user to look at jobs that start with the TSO userid.
This ZAP gets around that restriction. Obviously this could be a major security issue at some sites and therefore you may want to either add more code to do some additional security checking, or back out the zap after use. This Zap fits IKJEFF53 as shipped with FMID HBB7750 (z/OS 1.11) but the module itself is fairly static these days and you should be able to work out the zap for other FMIDs. This second Zap fits IKJEFF53 as shipped with FMID HBB77D0 (z/OS 2.5.0). If you would like us to work the zap out for you simply forward us a DUMPT of the IKJEFF53 module and we will ship the Zap back to you. Remember that you may need to refresh LLA before the change takes effect. |
|
|
|
||
| Put Date and Time Information on IEBUPDTE Log | ||
|
The Zap is really a little too long to place here but you can see the Zap
here.
Here is an example of the output generated by applying this Zap. SDSF OUTPUT DISPLAY IEBUPDTE JOB00595 DSID 101 LINE 1 COLUMNS 02- 81 COMMAND INPUT ===> SCROLL ===> CSR SYSIN DATE 20218 NEW MASTER TIME 15:57:02 ./ ADD NAME=$$$INDEX *********************************************************************** * Member * Type * Description * *********************************************************************** * $$$INDEX * Doc * ===> This member <=== * * ASLPARMC * BAL * Source code for ASLPARMC. * The items in red are the ones that are added by this Zap. |
IEBUPDTE can be used to reload an offloaded PDS. It is an IBM utility that is available on every z/OS site.
IEBUPDTE, out of the box, does not put date and time information on it's output log. This may not be a big issue in these days of electronic storage but this Zap will add the date (in yyjjj format) and time to the output headers. The first step to achieve this is to expand the existing IEBUPDTE to make room for the extra code. The supplied sample JCL (available here) does the expand of the load module and then Zaps the new code in. This Zap fits IEBUPDTE as shipped with FMID HBB7750 (z/OS 1.11) and through to at least FMID HBB77E0 (z/OS 7.3.1). * If you would like us to work the zap out for other FMIDS simply forward us a DUMPT of the IEBUPDTE module and we will ship the Zap back to you. Remember that you may need to refresh LLA before the change takes effect. |
|
|
|
||
