Re: Detect in debug mode from CL

Pgm
Dcl Var(&Value) Type(*Char) Len(10)
Dcl Var(&ErrCod) Type(*Char) Len(16)
Dcl Var(&BytPrv) Type(*INT) Len(4) +
Stg(*Defined) DefVar(&ErrCod 1)
Dcl Var(&BytRtn) Type(*Int) Len(4) +
Stg(*Defined) DefVar(&ErrCod 5)
Dcl Var(&MsgID) Type(*Char) Len(7) +
Stg(*Defined) DefVar(&ErrCod 9)
ChgVar Var(&BytPrv) Value(16)
CallPrc Prc('QteRetrieveDebugAttribute') +
Parm(('*UPDPROD ') (&Value) (&ErrCod))
Select
When Cond(&BytRtn *NE 0) Then( +
If Cond(&MsgID *EQ 'CPF9541') Then( +
SndPgmMsg Msg('Not in debug') +
ToPgmQ(*Ext)))
Else ( +
SndPgmMsg MsgID(CPF9898) MsgF(QCPFMSG) +
MsgDta(&MsgID) ToPgmQ(*Ext))
When Cond(&Value *EQ '*YES') Then( +
SndPgmMsg Msg('Debugging with update') +
ToPgmQ(*Ext))
When Cond(&Value *EQ '*NO') Then( +
SndPgmMsg Msg('Debugging without update') +
ToPgmQ(*Ext))
Otherwise Cmd( +
SndPgmMsg Msg('Unexpected &Value found') +
ToPgmQ(*Ext))
EndSelect
EndPgm

On Fri, Jan 18, 2019 at 2:24 PM Jack Callahan <jjcllhn@xxxxxxxxx> wrote:

Barbara Morris posted an example using the QteRetrieveDebugAttribute API

https://www.ibm.com/developerworks/community/blogs/b542d3ac-0785-4b6f-8e53-f72051460822/entry/is_debug_active_here_s_a_procedure_that_tells_you5?lang=en

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

--
Thanks and Regards,
Bruce
931-505-1915
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com