I'm not sure which message(s) you are looking for, and I'm not familiar with PIPElines in NetView.
That said, this should get you closer. In PIPElines environment with which I am familiar, this would be my first recommendation: "pipe (listerr) SAFE * | STEM MSG. | cons" "... | cons" writes the stream data to the console. Unlike *NIX piping, the default is not to write to the console. LISTERR allows PIPE to display error messages. OREXXMan JCL is the buggy whip of 21st century computing. Stabilize it. Put Pipelines in the z/OS base. Would you rather process data one character at a time (Unix/C style), or one record at a time? IBM has been looking for an HLL for program products; REXX is that language. On Sun, Jun 24, 2018 at 8:40 AM, saurabh khandelwal < [email protected]> wrote: > Hello All, > > I still have same issue when i use pipe command in rexx and I don't get > message on console. But when I don't use pipe command on console, then I > get message on console. > > Details are below. > > 1) Doesnt work. It means that we don't get messages on console. > > > ****************Netview automation table ****************************** > ******* > > IF MSGID = 'SVTM052I' THEN > > EXEC(CMD('FDIREXX')) NETLOG(Y) SYSLOG(Y); > > > > > > BROWSE NETVIEW.CNMCLST(FDIREXX) - 01.17 Line 00000000 > > ********************************* Top of Data ********************** > > /* REXX */ > > trace i > > '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 = 'FDI' TODataset > > WTO > > mvs "send 'FDI DATAST NAME IS "TODataset"',user=(TS06,OP117),LOGON" > > exit > > > > > > Netview Log > > > 2) Solution works .It means that we get messages on console. > > > ****************Netview automation table ****************************** > ******* > > IF MSGID = 'IEF403I' & TEXT = .'OP117LST'. & TEXT = MTXT THEN > > EXEC(CMD('FDIREXX1 'MTXT)) NETLOG(Y) SYSLOG(Y); > > > > /* REXX */ > > trace i > > parse arg mtxt . mtxt > > WTO.CONSNAME = ' ' > > WTO.DESC = '0100010000000000' /* WHITE */ > > WTO.DESC = '0010000000100000' /* RED */ > > WTO.MCSFLAG = '00000000' > > WTO.TEXT = 'CONSOLE TEST MSG IS' mtxt > > WTO > > exit > > > > > > Netview log > > > > - 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 > > > On Fri, Jun 22, 2018 at 9:15 PM, saurabh khandelwal < > [email protected]> wrote: > > > Thanks for reply. > > > > I looked at netview command manual and found "WTO.TEXT" can be used for > > this purpose. But I am not sure, how do I incorporate this into this > case. > > > > 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 ) > > mvs "send 'FIB DATASET NAME IS "TODataset"',CON=CNDVMSTR" > > > > in this rexx, where do I need to add WTO.TEXT to display TODataset as > > WTO message on operator console. > > > > Can anybody suggest to implement this change. > > > > > > > > On Fri, Jun 22, 2018 at 5:15 PM, Lucas Rosalen <[email protected]> > > wrote: > > > >> Right tool for the right job. > >> > >> Read about WTO (REXX) command in Netview commands manual. > >> > >> ------------------------------------------------------------ > >> ------------------------------------------------------------------- > >> *Lucas Rosalen* > >> [email protected] / [email protected] > >> http://br.linkedin.com/in/lrosalen > >> > >> > >> 2018-06-22 6:31 GMT+02:00 saurabh khandelwal < > [email protected] > >> >: > >> > >> > Hello Group, > >> > > >> > > >> > /* REXX */ > >> > > >> > 'PIPE SAFE * | STEM MSG.' > >> > > >> > > >> > > >> > TODataset = Word( Msg.3,3 ) > >> > > >> > mvs "send 'My console name is "TODataset"',CN=CNDVMSTR" > >> > > >> > exit > >> > > >> > > >> > We used CN operand with send command to send message to operator > >> console > >> > and now i receive output as required. > >> > > >> > But this message is visible in green color which get disappeared as > >> other > >> > message comes on console. > >> > > >> > But, I would like to have these message in white color ( not sure if > we > >> can > >> > say as WTO), so that until operator intervention, these message will > be > >> on > >> > console itself. > >> > > >> > > >> > Can you please suggest, how can i achieve this > >> > > >> > ------------------------------------------------------------ > ---------- > >> > 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 > >> > > > > > > > > -- > > 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 > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
