RE: DMPCLPGM - no output?

It works for me.

I created the shortest program possible:
PGM
DMPCLPGM
ENDPGM

Ran it and got a spool file (QPPGMDMP in QEZDEBUG)

I am at V7R2


Denis Robitaille
Chef de service TI - Solution d'entreprise
Infrastructure et opérations

CASCADES CENTRE DES TECHNOLOGIES
412 Marie Victorin
Kingsey falls(Québec) Canada J0A 1B0
Tél : 819 363 6100 Poste :52130
Cell : 819 352 9362



-----Message d'origine-----
De : MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] De la part de Paul Therrien
Envoyé : 17 mars 2017 10:38
À : 'Midrange Systems Technical Discussion' <midrange-l@xxxxxxxxxxxx>
Objet : RE: DMPCLPGM - no output?

I ran a simple cl with the DMPCLPGM and I still get nothing.
... I am going to read the link you gave me just a little bit more carefully.


Paul


-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Paul Therrien
Sent: Friday, March 17, 2017 10:32 AM
To: 'Midrange Systems Technical Discussion' <midrange-l@xxxxxxxxxxxx>
Subject: RE: DMPCLPGM - no output?

Yeah, I was just reading the link you gave me and it seemed that ...

-To obtain a CL dump, complete one of the following tasks:
-Run the Dump CL Program (DMPCLPGM) command. This command can only be used in a CL program or CL procedure and does not end the CL program or CL procedure.

...would be enough.

I am going to try a simple CL like yours and see if that works. I am wondering if being in a MONMSG block is somehow preventing the DMPCLPGM from performing as expected.


Paul


-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Rob Berendt
Sent: Friday, March 17, 2017 10:09 AM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Subject: Re: DMPCLPGM - no output?

I did read that wrong. I missed "one of the following".

This worked as intended on a 7.3 lpar with latest cume and groups

pgm
dcl &myvar *char 5
chgvar &myvar 'a'
dmpclpgm
endpgm

Variable Type Length Value
&MYVAR *CHAR 5 'a

Value in Hexadecimal
* . . . + . . . . 1
8140404040



Rob Berendt
--
IBM Certified System Administrator - IBM i 6.1 Group Dekko Dept 1600 Mail to: 2505 Dekko Drive
Garrett, IN 46738
Ship to: Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





From: Rob Berendt <rob@xxxxxxxxx>
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Date: 03/17/2017 10:03 AM
Subject: Re: DMPCLPGM - no output?
Sent by: "MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxx>



I may have read that wrong...


Rob Berendt