79 lines
2.4 KiB
HTML
79 lines
2.4 KiB
HTML
|
|
||
|
|
<!doctype html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||
|
|
<html>
|
||
|
|
<head><META http-equiv="Content-Type" content="text/html; charset=utf-8">
|
||
|
|
<title>Dump CL Program (DMPCLPGM)</title>
|
||
|
|
<link rel="stylesheet" type="text/css" href="../rzahg/ic.css">
|
||
|
|
</head>
|
||
|
|
<body bgcolor="white">
|
||
|
|
<script language="Javascript" src="../rzahg/synch.js" type="text/javascript"></script>
|
||
|
|
<a name="DMPCLPGM.Top_Of_Page"></a>
|
||
|
|
<h2>Dump CL Program (DMPCLPGM)</h2>
|
||
|
|
<table width="100%">
|
||
|
|
<tr>
|
||
|
|
<td valign="top" align="left"><b>Where allowed to run: </b>
|
||
|
|
<ul><li>Batch program (*BPGM)</li>
|
||
|
|
<li>Interactive program (*IPGM)</li>
|
||
|
|
</ul><b>Threadsafe: </b>Yes
|
||
|
|
</td>
|
||
|
|
<td valign="top" align="right">
|
||
|
|
<a href="#DMPCLPGM.PARAMETERS.TABLE">Parameters</a><br>
|
||
|
|
<a href="#DMPCLPGM.COMMAND.EXAMPLES">Examples</a><br>
|
||
|
|
<a href="#DMPCLPGM.ERROR.MESSAGES">Error messages</a></td>
|
||
|
|
</tr>
|
||
|
|
</table>
|
||
|
|
|
||
|
|
<div> <a name="DMPCLPGM"></a>
|
||
|
|
<p>The Dump CL Program (DMPCLPGM) command dumps variables (used in the CL program in which the command is processed) and all messages on the program's message queue to a spooled printer file (QPPGMDMP).
|
||
|
|
</p>
|
||
|
|
<p>There are no parameters for this command.
|
||
|
|
</p>
|
||
|
|
</div>
|
||
|
|
<table width="100%">
|
||
|
|
<tr><td align="right"><a href="#DMPCLPGM.Top_Of_Page">Top</a></td></tr>
|
||
|
|
</table>
|
||
|
|
<hr size="2" width="100%">
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<h3><a name="DMPCLPGM.PARAMETERS.TABLE">Parameters</a></h3>None<br>
|
||
|
|
|
||
|
|
<table width="100%">
|
||
|
|
<tr><td align="right"><a href="#DMPCLPGM.Top_Of_Page">Top</a></td></tr>
|
||
|
|
</table>
|
||
|
|
</div>
|
||
|
|
<hr size="2" width="100%">
|
||
|
|
<div><h3><a name="DMPCLPGM.COMMAND.EXAMPLES">Examples</a> </h3>
|
||
|
|
<p>
|
||
|
|
<pre>
|
||
|
|
PGM
|
||
|
|
DCL . . .
|
||
|
|
DCL . . .
|
||
|
|
MONMSG MSGID(CPF9999) EXEC(GOTO DUMP)
|
||
|
|
:
|
||
|
|
RETURN
|
||
|
|
DUMP: DMPCLPGM
|
||
|
|
ENDPGM
|
||
|
|
</pre>
|
||
|
|
</p>
|
||
|
|
<p>This CL procedure monitors for the function check message CPF9999. If a function check occurs in the procedure, control is passed to the command at label DUMP. This causes a dump of the program's message queue and causes the procedure's variables to be printed. This dump can be used to determine the cause of the function check.
|
||
|
|
</p>
|
||
|
|
</div>
|
||
|
|
<table width="100%">
|
||
|
|
<tr><td align="right"><a href="#DMPCLPGM.Top_Of_Page">Top</a></td></tr>
|
||
|
|
</table>
|
||
|
|
<hr size="2" width="100%">
|
||
|
|
<div><h3><a name="DMPCLPGM.ERROR.MESSAGES">Error messages</a> </h3>
|
||
|
|
<p><b><u>*ESCAPE Messages</u></b>
|
||
|
|
</p>
|
||
|
|
<dl>
|
||
|
|
<dt><b>CPF0570</b></dt>
|
||
|
|
<dd>Unable to dump CL program &1 in &2.
|
||
|
|
</dd>
|
||
|
|
</dl>
|
||
|
|
</div>
|
||
|
|
<table width="100%">
|
||
|
|
<tr><td align="right"><a href="#DMPCLPGM.Top_Of_Page">Top</a></td></tr>
|
||
|
|
</table>
|
||
|
|
</body>
|
||
|
|
</html>
|