You can obtain a CL procedure dump during procedure processing.
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.
To obtain a CL procedure dump, do one of the following:
CHGMSGD MSGID(CPA0702) MSGF(QCPFMSG) DFT(D)
Changing the message default causes a dump to be printed under any of the following conditions:
1 5722SS1 V5R3M0 040201 Control Language MYLIB/DUMPER SYSNAME 05/06/00 11:05:032 Page 1 Job name . . . . . . . . : DSP043 User name . . . . . . : SMITH 3 Job number . . . . . . : 01329 3 Program name . . . . . . : DUMP4 Library . . . . . . . : MYLIB4 Statement . . . . . . . : 1200 5 Module name . . . . . . : DUMP Procedure name . . . : DUMP Messages Message 6 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 7 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 * * * * *
If a decimal variable contains decimal data that is not valid, the character and hexadecimal values are printed as *CHAR variables.
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.
If a variable is declared as TYPE(*LGL), it is shown on the dump as *CHAR with a length of 1.
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.