× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.