<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html lang="en-us" xml:lang="en-us"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <meta name="security" content="public" /> <meta name="Robots" content="index,follow" /> <meta http-equiv="PICS-Label" content='(PICS-1.1 "http://www.icra.org/ratingsv02.html" l gen true r (cz 1 lz 1 nz 1 oz 1 vz 1) "http://www.rsac.org/ratingsv01.html" l gen true r (n 0 s 0 v 0 l 0) "http://www.classify.org/safesurf/" l gen true r (SS~~000 1))' /> <meta name="DC.Type" content="task" /> <meta name="DC.Title" content="Obtain a procedure dump" /> <meta name="abstract" content="You can obtain a CL procedure dump during procedure processing." /> <meta name="description" content="You can obtain a CL procedure dump during procedure processing." /> <meta name="DC.subject" content="obtaining, program dump, program, dump, CL procedure, obtaining dump" /> <meta name="keywords" content="obtaining, program dump, program, dump, CL procedure, obtaining dump" /> <meta name="DC.Relation" scheme="URI" content="crpro.htm" /> <meta name="DC.Relation" scheme="URI" content="../rzajq/controldefaultreply.htm" /> <meta name="DC.Relation" scheme="URI" content="../cl/dmpclpgm.htm" /> <meta name="copyright" content="(C) Copyright IBM Corporation 1998, 2006" /> <meta name="DC.Rights.Owner" content="(C) Copyright IBM Corporation 1998, 2006" /> <meta name="DC.Format" content="XHTML" /> <meta name="DC.Identifier" content="pdump" /> <meta name="DC.Language" content="en-us" /> <!-- All rights reserved. Licensed Materials Property of IBM --> <!-- US Government Users Restricted Rights --> <!-- Use, duplication or disclosure restricted by --> <!-- GSA ADP Schedule Contract with IBM Corp. --> <link rel="stylesheet" type="text/css" href="./ibmdita.css" /> <link rel="stylesheet" type="text/css" href="./ic.css" /> <title>Obtain a procedure dump</title> </head> <body id="pdump"><a name="pdump"><!-- --></a> <!-- Java sync-link --><script language="Javascript" src="../rzahg/synch.js" type="text/javascript"></script> <h1 class="topictitle1">Obtain a procedure dump</h1> <div><p>You can obtain a CL procedure dump during procedure processing. </p> <div class="section"> <p>The CL procedure dump consists of a listing of all messages on the procedure's message queue and the values of all variables used in the procedure. This information may be useful in determining the cause of a problem affecting procedure processing.</p> <p>To obtain a CL procedure dump, do one of the following: </p> <ul><li>Run the <span class="cmdname">Dump CL Program (DMPCLPGM)</span> command. This command can only be used in a CL procedure and does not end the CL procedure.</li> <li>Enter D in response to inquiry message CPA0701 or CPA0702. The system sends this message whenever it receives an unmonitored escape message from a CL procedure. If the program is running in an interactive job, the system sends the message to the job's external message queue. If the program is running as a batch job, the system sends the message to the system operator message queue, QSYSOPR.</li> <li>Specify INQMSGRPY(*SYSRPYL) for the job. The IBM-supplied system reply list specifies a reply of D for message CPA0702 or CPA0701. The system will print a dump if it receives one of the inquiry messages.</li> <li>Change the default reply for message CPA0701 or CPA0702 from C (cancel program) to D (dump procedure). This prints a procedure dump whenever a function check occurs in a CL procedure. To change the default, enter the following command: <pre>CHGMSGD MSGID(CPA0702) MSGF(QCPFMSG) DFT(D)</pre> <div class="note"><span class="notetitle">Note:</span> The security officer, or another user with update authority to the QCPFMSG file, must enter the CHGMSGD command.</div> </li> </ul> <p>Changing the message default causes a dump to be printed under any of the following conditions: </p> <ul><li>The system operator message queue is in default mode and the message is sent from a batch job.</li> <li>The display station user presses the Enter key without typing a response, causing the message default to be used.</li> <li>INQMSGRPY(*DFT) is specified for the job.</li> </ul> <div class="fignone"><pre> <span><strong>1</strong></span> 5722SS1 V5R3M0 040201 Control Language MYLIB/DUMPER SYSNAME 05/06/00 11:05:03<span><strong>2</strong></span> Page 1 Job name . . . . . . . . : DSP04<span><strong>3</strong></span> User name . . . . . . : SMITH <span><strong>3</strong></span> Job number . . . . . . : 01329 <span><strong>3</strong></span> Program name . . . . . . : DUMP<span><strong>4</strong></span> Library . . . . . . . : MYLIB<span><strong>4</strong></span> Statement . . . . . . . : 1200 <span><strong>5</strong></span> Module name . . . . . . : DUMP Procedure name . . . : DUMP Messages Message <span><strong>6</strong></span> Message From To Time ID Sev Type Text Program Inst Program Inst 110503 CPC2102 00 COMP Library LARRY created. QLICRLIB *N DUMP *N 110503 CPF2110 40 ESC Library MOE not found. QLICLLIB *N DUMP *N Variables <span><strong>7</strong></span> Variable Type Length Value Value in Hexadecimal *...+....1....+....2....+ * . . . + . . . . 1 . . . . + . . . . 2 . . . . + &ABC *CHAR 10 'ONE ' D6D5C540404040404040 &XYZ *CHAR 10 'TWO ' E3E6D640404040404040 * * * * * E N D O F D U M P * * * * *</pre> </div> <dl><dt class="dlterm"><span>1</span></dt> <dd>The program number, release, modification level and date of i5/OS™.</dd> <dt class="dlterm"><span>2</span></dt> <dd>The date and time the dump was printed.</dd> <dt class="dlterm"><span>3</span></dt> <dd>The fully qualified name of the job in which the procedure was running.</dd> <dt class="dlterm"><span>4</span></dt> <dd>The name and library of the program.</dd> <dt class="dlterm"><span>5</span></dt> <dd>The number of the statement running when the dump was taken. If the command is a nested command, the statement number is that of the outer command.</dd> <dt class="dlterm"><span>6</span></dt> <dd>Each message on the call message queue, including the time the message was sent, message ID, severity, type, text, sending program and instruction number, and receiving program and instruction number.</dd> <dt class="dlterm"><span>7</span></dt> <dd>All variables declared in the procedure, including variable name, type, length, value, and hexadecimal value. <p>If a decimal variable contains decimal data that is not valid, the character and hexadecimal values are printed as *CHAR variables.</p> <p>If the value for the variable cannot be located, *NOT ADDRESSABLE is printed. This can occur if the CL procedure is used in a command processing program for a command that has a parameter with either TYPE(*NULL) or PASSVAL(*NULL) specified, or if RTNVAL(*YES) was specified for the parameter and a return variable is not coded on the command.</p> <p>If a variable is declared as TYPE(*LGL), it is shown on the dump as *CHAR with a length of 1.</p> </dd> </dl> </div> </div> <div> <div class="familylinks"> <div class="parentlink"><strong>Parent topic:</strong> <a href="crpro.htm" title="A CL source procedure must be compiled into a module and bound into a program before it can be run.">Compile CL procedures</a></div> </div> <div class="relinfo"><strong>Related information</strong><br /> <div><a href="../rzajq/controldefaultreply.htm">Controlling the default reply to the query governor inquiry message</a></div> <div><a href="../cl/dmpclpgm.htm">Dump CL Program (DMPCLPGM) command</a></div> </div> </div> </body> </html>