On 3/27/2020 8:35 AM, Farley, Peter x23353 wrote:
Switching to SYSMDUMP for future 64-bit batch application dumps in production
jobs will also involve the Storage and Operations teams at a company, since
provision for storing (and perhaps keeping archives of) SYSMDUMP files for
resolving hard-to-find errors will certainly require increased and perhaps even
dedicated disk space and archival rules. Operations teams will need
instruction and guidance from the Storage teams about what to do when / if
SYSMDUMP disk space is filled up and the application team hasn't got a valid
dump to interpret. These are not trivial (or cheap) processes and procedures
to put into place in large organizations.
What we do is *always* specify //SYSMDUMP DD SYSOUT=* in a job.
That gives you potentially a different dump for every instance that
fails and guarantees you know which dump went with which run. The
typical storage-based allocation is a single data set that gets
overwritten each time. Lame at best. Unworkable at its worst.
When you take a dump (which is not the predominant case by any means),
all that's used is SPOOL space. If you don't need that run, you cancel
the job. If you need it, you keep it and extract the dump contents to a
RECFM=FBS LRECL=4160 data set.
We use an (E)JES CAI plug-in for this so a single line command extracts
the data and initializes it in IPCS. It's likely similar scripting can
be performed for other "SPOOL browse" interfaces as well.
| /* REXX ******************************************************/
| /* */
| /* This REXX is for the (E)JES More with Less for Less Demo */
| /* */
| /* It extracts a SYSMDUMP to a data set and adds it to your */
| /* IPCS inventory. */
| /* */
| /* Written by Ed Jaffe: August 13, 2009 */
| /* Last changed: August 13, 2009 */
| /* */
| /*END OF SPECIFICATIONS***************************************/
|
| IPCMDUMP:
|
| call EJES#UPQ
| "ispexec vget (objtype dsn) shared"
|
| if RIGHT(objtype,2) <> "DD" then do
| say "IPCMDUMP: This function supported only for data sets"
| return 8
| end
|
| RC = OUTTRAP('outline.')
| "delete '"dsn"'"
| RC = OUTTRAP('off')
|
| RC = EJES#UEX("RECFM(FBS) MSGSUPP" ,
| "SPACEPRI(100) SPACESEC(100) SPACETYP(CYL)")
| if RC > 0 then exit RC
|
| "%BLSCDDIR"
| delstack
| queue "ADDDUMP DATASET('"dsn"')"
| queue "END"
| queue ""
| "IPCS"
|
| return 0
--
Phoenix Software International
Edward E. Jaffe
831 Parkview Drive North
El Segundo, CA 90245
https://www.phoenixsoftware.com/
--------------------------------------------------------------------------------
This e-mail message, including any attachments, appended messages and the
information contained therein, is for the sole use of the intended
recipient(s). If you are not an intended recipient or have otherwise
received this email message in error, any use, dissemination, distribution,
review, storage or copying of this e-mail message and the information
contained therein is strictly prohibited. If you are not an intended
recipient, please contact the sender by reply e-mail and destroy all copies
of this email message and do not otherwise utilize or retain this email
message or any or all of the information contained therein. Although this
email message and any attachments or appended messages are believed to be
free of any virus or other defect that might affect any computer system into
which it is received and opened, it is the responsibility of the recipient
to ensure that it is virus free and no responsibility is accepted by the
sender for any loss or damage arising in any way from its opening or use.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
