Barbara,

Just curious you don't use dsitbl01 anymore or am I dating myself .....lol

Scott ford
www.identityforge.com

On Aug 8, 2012, at 1:08 AM, Barbara Nitz <[email protected]> wrote:

> Mark,
> 
>> No we don't, and that was one of the options I was looking at yesterday.
> 
> use this one. You will need to change the name of the netview console(s) 
> according to your naming conventions. You will also have to decide if you 
> want to suppress them from hardcopy and joblog, just remove the statements.
> 
> *        Purpose:
> *        Suppress messages completely from hardcopy log
> *        Suppress messages being sent to a NetView
> *        console from both hardcopy log and joblog
> *        CTXTCNME: Consname to which msg is being routed
> *
> MPFEXIT1 START
> MPFEXIT1 AMODE 31
> MPFEXIT1 RMODE ANY
>         USING MPFEXIT1,R12
>         BAKR  R14,0
>         LR    R12,R15
>         B     WORK
>         DC    C'MPFEXIT1-&SYSDATE-&SYSTIME'
> WORK     L     R5,0(R1)                ADRESS  PARAMETER-LIST
>         USING CTXT,R5
>         L     R6,CTXTCNMP             get Console Name Pointer
>         OI    CTXTSFB1,CTXTSNHC       no hardcopy
>         OI    CTXTRFB2,CTXTRNHC       force no hardcopy
>         OI    CTXTPFB2,CTXTPNHC       force no hardcopy
>         USING CTXTCNME,R6             maps console name
>         CLI   CTXTCNME,C'N'           NETVIEW-CONSOLE ?
>         BNE   NOSUPP                  no, so no suppression
>         OI    CTXTRFB2,CTXTRNHC       force no hardcopy
>         OI    CTXTERF3,CTXTESJL       suppress from joblog
>         DROP  R5
>         DROP  R6
> NOSUPP   PR
>         LTORG
>         IEZVX100                   Installation Exit Parm List
> R1       EQU   1
> R5       EQU   5
> R6       EQU   6
> R12      EQU   12
> R14      EQU   14
> R15      EQU   15
>         END
> 
> Barbara
> 
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to