|
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 APIhttps://www.ibm.com/developerworks/community/blogs/b542d3ac-0785-4b6f-8e53-f72051460822/entry/is_debug_active_here_s_a_procedure_that_tells_you5?lang=en
--list
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.