Re: Detect in debug mode from CL

[Bruce Vining <bruce.vining@xxxxxxxxx>]

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