Hello Steve, Still didnt work. I think something should be taken care while having pipe command in rexx.
Below are two example, in first one this process is working and another one is not.. The only difference between two is pipe commands Please suggest. 1) Working. CNM493I DSITBL01 : #0000250 : FDIREXX1 IEF403I AB54LST - E IEF403I AB54LST - STARTED - TIME=07.19.45 C 3 *-* parse arg mtxt . mtxt C >>> "IEF403I" C >.> "AB54LST" C >>> "- STARTED - TIME=07.19.45" C 4 *-* /* say 'AB54LST Job STARTED at' mtxt */ C 5 *-* /* mvs "send 'AB54LST JOB "mtxt"',user=(AB54) C 6 *-* /* mvs "send 'CONSOLE OUTPUT DISPLAY "mtxt"',C C 7 *-* WTO.CONSNAME = 'CNDVMSTR' C >L> "CNDVMSTR" C 8 *-* WTO.DESC = '0100010000000000' /* WHITE */ C >L> "0100010000000000" C 9 *-* WTO.DESC = '0010000000100000' /* RED */ C >L> "0010000000100000" C 10 *-* WTO.MCSFLAG = '00000000' C >L> "00000000" C 11 *-* WTO.TEXT = 'CONSOLE TEST MSG IS' mtxt C >L> "CONSOLE TEST MSG IS" C >V> "- STARTED - TIME=07.19.45" C >O> "CONSOLE TEST MSG IS - STARTED - TIME=07.19.4 C 12 *-* WTO C >L> "WTO" C 13 *-* exit > CONSOLE TEST MSG IS - STARTED - TIME=07.19.45 2) Not working - 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 On Sun, Jun 24, 2018 at 1:03 PM, saurabh khandelwal < [email protected]> wrote: > You mean, console name should be blank. > > On Sun, Jun 24, 2018, 1:01 PM Steve Horein <[email protected]> wrote: > >> Set >> WTO.CONSNAME = ' ' >> >> >> On Sun, Jun 24, 2018 at 1:30 AM saurabh khandelwal < >> [email protected]> wrote: >> >>> 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 >>> >> -- Thanks & Regards Saurabh Khandelwal ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
