Hello,
Thanks for your input. But I am surprised that I am still unable to see
required message on console. I started trace to isolate this and I didnt
find any issues but somehow its not working.
Netview table code.
IF MSGID = 'SVTM052I' THEN
EXEC(CMD('FIBREXX')) NETLOG(Y) SYSLOG(Y);
In our rexx we retrieve the full messge via:
/* REXX */
'PIPE SAFE * | STEM MSG.'
TODataset = Word( Msg.3,3 )
WTO.CONSNAME = 'CNDVMSTR'
WTO.DESC = '0100010000000000' /* WHITE */
WTO.DESC = '0010000000100000' /* RED */
WTO.MCSFLAG = '00000000'
WTO.TEXT = 'CONSOLE TEST MSG IS' TODataset
WTO
MVS "send 'FDI DATAST NAME IS "TODataset"',user=(AB55,AB54),logon"
exit
and output from netview log is
CNM493I DSITBL01 : #0000247 : FDIREXX
" SVTM052I STEP01 COPY TDNBK001( 31,976) PNODE=SIG.BA
<http://sig.ba/>
" SVTM052I FROM E2CP.ARDLY4M.ATCHNB.NBK.PS.G3971V00
" SVTM052I TO FDNBT.DATA.VPLUS.ATCH.G0610V00
" SVTM052I COMPLETED 00000000/SCPA000I
C 3 *-* 'PIPE SAFE * | STEM MSG.'
C >L> "PIPE SAFE * | STEM MSG."
C 4 *-* TODataset = Word( Msg.3,3 )
C >V> "SVTM052I TO FDNBT.DATA.VPLUS.ATCH.G06
C >L> "3"
C >F> "FDNBT.DATA.VPLUS.ATCH.G0610V00"
C 5 *-* WTO.CONSNAME ='CNDVMSTR'
C >L> "CNDVMSTR"
C 6 *-* WTO.DESC ='0010000000100000' /* RED */
C >L> "0010000000100000"
C 7 *-* WTO.DESC ='0100010000000000' /* WHITE */
C >L> "0100010000000000"
C 8 *-* WTO.MCSFLAG = '00000000'
C >L> "00000000"
C 9 *-* WTO.TEXT ='FDI CONSOLE DATASET IS' TODataset
C >L> "FDI CONSOLE DATASET IS"
C >V> "FDNBT.DATA.VPLUS.ATCH.G0610V00"
C >O> "FDI CONSOLE DATASET IS FDNBT.DATA.VPLUS.ATCH
C 10 *-* WTO
C >L> "WTO"
C 11 *-* mvs "send 'FDI DATAST NAME IS "TODataset"',user
C >L> "MVS"
C >L> "send 'FDI DATAST NAME IS "
C >O> "MVS send 'FDI DATAST NAME IS "
C >V> "FDNBT.DATA.VPLUS.ATCH.G0610V00"
C >O> "MVS send 'FDI DATAST NAME IS FDNBT.DATA.VPLU
C >L> "',user=(AB55,AB54),LOGON"
C >O> "MVS send 'FDI DATAST NAME IS FDNBT.DATA.VPLU
C 12 *-* exit
Please suggest, where I am missing to generate correct output.
On Sat, Jun 23, 2018 at 8:02 PM, Dale R. Smith <[email protected]>
wrote:
> On Sat, 23 Jun 2018 11:16:15 +0300, saurabh khandelwal <
> [email protected]> wrote:
>
> >Hello,
> >
> >I trigger event and below rexx should have been executed
> >
> >/* REXX */
> >
> >parse arg mtxt . mtxt
> >
> >WTO.CONSNAME = 'CNDVMSTR'
> >
> >WTO.DESC = '0100010000000000' /* WHITE */
> >
> >WTO.DESC = '0010000000100000' /* RED */
> >
> >WTO.MCSFLAG = '00000000'
> >
> >WTO.TEXT = 'CONSOLE TEST MSG IS' mtxt
> >
> >WTO.
> >
> >exit
> >
> >But, I checked with operator and they didn't receive any message on their
> >console. Are we missing anything in this.
>
> Remove the period from the last WTO before the EXIT. "WTO" is a command,
> "WTO." is not a command.
>
> A simple Google search for NETVIEW WTO found this as the first entry:
> https://www.ibm.com/support/knowledgecenter/en/SSZJDU_5.3.
> 0/com.ibm.itnetviewforzos.doc_5.3/dqcl2ms2171.htm
>
> Not sure if the NETVIEW manuals document what the DESC and MCSFLAG
> settings are. They are documented in the WTO MACRO definition:
> https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.
> 0/com.ibm.zos.v2r1.ieaa400/iea3a4_Description14.htm
>
> WTO.DESC is a variable that will be read by the WTO command. Since you
> have two of them in your REXX program, only the last one set will be used.
> In the description for WTO.DESC, it shows that you can code it as decimal
> numbers instead of binary, which would be more readable!
>
> Instead of coding WTO.DESC = '0100010000000000' you could code WTO.DESC =
> '(2,6)'. 2 and 6 mean "Immediate Action Required" and "Job Status". I
> don't know if that means the message will be displayed in "white".
>
> Instead of coding WTO.DESC = '0010000000100000' you could code WTO.DESC =
> '(3,11)'. 3 and 11 mean "Eventual Action Required" and "Critical Eventual
> Action Required". I don't know if that means the message will be displayed
> in "red".
>
> Instead of coding WTO.MCSFLAG = '00000000' you could code WTO.MCSFLAG =
> '(NOCPY)'
>
> If you have not done so already, please download and read, (or read
> online), the NETVIEW manuals!
>
> --
> Dale R. Smith
>
>
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
--
Thanks & Regards
Saurabh Khandelwal
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
