Ooops! Very right, first variable passed to the REXX is the MSGID... So, my fixed suggestion for the REXX would be the same as Steve's => parse arg mtxt . mtxt Sorry for the confusion here.
I think SEND without the commas works (at least is has worked for me for at least a year now), but following the manuals is always a good idea. ------------------------------------------------------------------------------------------------------------------------------- *Lucas Rosalen* [email protected] / [email protected] http://br.linkedin.com/in/lrosalen 2018-05-16 19:44 GMT+02:00 Steve Horein <[email protected]>: > Actually, there will probably not be any issues after all. > I believe I was hung up from the earlier IEF878I message. > > PARSE VAR is deconstructing the variable named MTXT into two items: MSGID > and DSET. > In this case, MSGID will be assigned value 'IEF403I' and DSET will be > assigned value 'USR54LST - STARTED - TIME=07.54.54' > MTXT = DSET will reassign the value of MTXT to the value of DSET. > > It just seems redundant to reassign the variable MTXT to the value of an > already established variable DSET. > PARSE VAR MTXT MSGID MTXT > ...would accomplish the same thing, and eliminate the need for DSET > altogether. > > If the value of MSGID is not required for later use, this would be more > efficient: > PARSE VAR MTXT . MTXT > ... leveraging the PARSE placeholder described here: > https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/ > com.ibm.zos.v2r2.ikja300/placeh.htm > > > Passing the value of MTXT via the SEND command should be fine, *after* > adding a comma between USER() and NOW. > https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/ > com.ibm.zos.v2r2.ieag100/s1mess1.htm > > > > On Wed, May 16, 2018 at 11:36 AM, saurabh khandelwal < > [email protected]> wrote: > > > Hello Steve, > > > > I understood the meaning of placeholder and will use it to over come this > > issue > > > > But I couldn't understand how to solve issue in rexx code > > > > also believe you will not get the expected results in FDIREXXO when > > (re)assigning: > > MTXT = DSET > > > > Can you please explain this once. > > I am really sorry for asking basic query and thank you so much for help > > > > > > On Wed, May 16, 2018, 5:22 PM Steve Horein <[email protected]> > wrote: > > > > > I'll repeat the previous response for this problem, but change 'END OF' > > to > > > ' > > > USR54LST' > > > > > > You need to use placeholders described here to allow 'USR54LST' to be > > found > > > anywhere in the message: > > > https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/ > > > com.ibm.itnetviewforzos.doc_6.2.1/dqa_ata_place.htm > > > > > > Do you not have access to the documentation links? > > > I will assist in pointing you in the right direction to accomplish your > > > task. > > > I will NOT write the code to do so. > > > > > > I also believe you will not get the expected results in FDIREXXO when > > > (re)assigning: > > > MTXT = DSET > > > > > > ...but that is part of learning. > > > > > > > > > > > > > > > On Wed, May 16, 2018 at 12:13 AM, saurabh khandelwal < > > > [email protected]> wrote: > > > > > > > Hello Steve, > > > > > > > > hanks for your response and guiding me on this. I use Netview forum > > > before > > > > but nobody responded. So, I assumed that its inactive now. > > > > > > > > > > > > > > > > Basically, I want to capture below message for testing from syslog > > > > > > > > > > > > > > > > > > > --6----+----7----+----8----+----9----+----0----+----1----+-- > > --2----+----3- > > > > > > > > IEF403I USR54LST - STARTED - TIME=07.54.54 > > > > > > > > 635022 OTHWLD 0 0 0 0 > > > > > > > > IEF404I USR54LST - ENDED - TIME=07.55.23 > > > > > > > > -USR54LST ENDED. NAME- TOTAL TCB CPU TIME= > > .04 > > > > > > > > TOTAL ELAPSED TIME= .4 SUBSYS=JES2 > > > > > > > > $HASP395 USR54LST ENDED > > > > > > > > > > > > > > > > For this I coded automation table as below. > > > > > > > > > > > > > > > > IF MSGID = 'IEF403I' & TEXT = 'USR54LST' & TEXT = MTXT THEN > > > > > > > > EXEC(CMD('FDIREXXO' MTXT)) NETLOG(Y) SYSLOG(Y); > > > > > > > > > > > > > > > > And in FDIREXXO rexx looks as below. > > > > > > > > > > > > > > > > /* REXX */ > > > > > > > > TRACE I > > > > > > > > ARG MTXT > > > > > > > > PARSE VAR MTXT MSGID DSET > > > > > > > > DSET = STRIP(DSET) > > > > > > > > MTXT = DSET > > > > > > > > SAY 'DATASET NAME IS' DSET > > > > > > > > MVS "SEND '"MTXT"' USER(USR54) NOW" > > > > > > > > > > > > > > > > Basically I want to capture “USR54LST - STARTED - TIME=07.54.54” > > string > > > > and display to operator once we see MSGID = IEF403I and TEXT > =USR54LST > > > in > > > > syslog. > > > > > > > > > > > > > > > > But I don’t see any message related to this even in netview log > > > (netloga) . > > > > This indicate that we are unable to trap this message and nothing > > getting > > > > displayed to operator. > > > > > > > > > > > > > > > > Can you please help me correcting this. > > > > > > > > > > > > On Tue, May 15, 2018 at 4:17 AM, Steve Horein < > [email protected]> > > > > wrote: > > > > > > > > > First suggestion: Read and understand the documents found at the > > links > > > > > provided earlier: > > > > > > > > > > Specifics to NetView Rexx can be found here: > > > > > https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/ > > > > > com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm > > > > > > > > > > Specifics to NetView Automation can be found here: > > > > > https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/ > > > > > com.ibm.itnetviewforzos.doc_6.2.1/dqamst.htm > > > > > > > > > > Next suggestion, join the Tivoli NetView Yahoo group: > > > > > https://groups.yahoo.com/neo/groups/NetView/info > > > > > > > > > > There is a complimentary System Automation Yahoo group as well (but > > SA > > > > > hasn't entered the conversation): > > > > > https://groups.yahoo.com/neo/groups/SAUsers/info > > > > > > > > > > > > > > > Now, about your post... > > > > > > > > > > The Automation Table (AT) entry will likely not fire due to the > > second > > > > > condition looking for literal text "END OF": > > > > > > > > > > IF MSGID = 'IEF878I' > > > > > & TEXT = 'END OF' > > > > > & TEXT = MTXT > > > > > THEN > > > > > EXEC(CMD('FDIREXX' MTXT)) > > > > > NETLOG(Y) SYSLOG(Y) > > > > > ; > > > > > > > > > > The test as written is looking for the entirety of the TEXT value > to > > be > > > > > 'END OF' and nothing more. > > > > > This is impossible because TEXT also includes MSGID. > > > > > > > > > > You need to use placeholders described here to allow 'END OF' to be > > > found > > > > > anywhere in the message: > > > > > https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/ > > > > > com.ibm.itnetviewforzos.doc_6.2.1/dqa_ata_place.htm > > > > > > > > > > > > > > > This however is about as useful of testing condition IF "1" = "1", > > > since > > > > > message IEF878I always includes 'END OF' as part of the message > text, > > > > > according to MVS System Messages documentation. > > > > > > > > > > The other condition, resulting in the variable MTXT containing the > > > value > > > > of > > > > > TEXT is fine as written, but ultimately not required. > > > > > An automation procedure called from the AT has access to the > default > > > SAFE > > > > > named "*", which contains all attributes of the message triggering > > the > > > > > action. > > > > > The information contained in the SAFE can be accessed either > through > > a > > > > PIPE > > > > > SAFE stage or message functions, such as MSGID(), JOBNAME(), > JOBNUM() > > > > > > > > > > PIPE information: > > > > > https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/ > > > > > com.ibm.itnetviewforzos.doc_6.2.1/dqsmst.htm > > > > > > > > > > > > > > > Message functions: > > > > > https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/ > > > > > com.ibm.itnetviewforzos.doc_6.2.1/dqg_anv_msgprocinfo.htm > > > > > > > > > > > > > > > I would likely construct FDIREXX to include: > > > > > > > > > > 'PIPE SAFE *', > > > > > '|VAR MTXT' > > > > > > > > > > ...or if a MLWTO: > > > > > > > > > > 'PIPE SAFE *', > > > > > '|STEM MTXT.' > > > > > > > > > > Which leads to the contents of FDIREXX - > > > > > As written, I don't see much happening there, either: > > > > > > > > > > ARG MSGTXT > > > > > PARSE VAR MSGTXT MSGID 'TO 'DSET > > > > > DSET = STRIP(DSET) > > > > > MSGTX = DSET > > > > > SAY 'DATASET NAME IS' DSET > > > > > MVS "SEND 'MSGTX ' USER(OP117) NOW" > > > > > > > > > > The PARSE VAR statement will likely not produce the desire results, > > due > > > > to > > > > > explicit delimiter of the literal 'TO '. > > > > > I do not see the word (or string ending in) 'TO' anywhere in the > > > > > IEF878I message. > > > > > > > > > > If you want to isolate a specific word or token of the message, > that > > > can > > > > be > > > > > done in the AT, such as a condition that sets a variable that is > > passed > > > > to > > > > > your procedure (similar to your existing MTXT processing): > > > > > & TOKEN(8) = DSET > > > > > > > > > > Or if using the default SAFE inside FDIREXX, > > > > > DSET = MSGITEM(7) > > > > > > > > > > (TOKEN counts the MSGID as word 1, MSGITEM counts the MSGID as word > > 0) > > > > > > > > > > I don't believe your final message to the user will be as expected > > > > either. > > > > > After parsing MSGTXT to obtain DSET, you set the variable name > MSGTX > > to > > > > the > > > > > value of DSET, and (attempt) to pass that to the user. > > > > > > > > > > Due to the initial opening quote is double quote, everything inside > > is > > > > > interpreted by Rexx as a literal, including the presumed variable > > > > 'MSGTX', > > > > > until a closing double quote is encountered. > > > > > To correct that, you need to place a double quote after the first > > > single > > > > > quote to expose the variable to Rexx, followed by a double quote to > > > > resume > > > > > literal processing, followed by single quote and the remainder of > the > > > > > string: > > > > > > > > > > MVS "SEND '"MSGTX"' USER(OP117) NOW" > > > > > > > > > > (double, single, double,<variable>, double, single, double) > > > > > > > > > > However, since MSGTX was set to DSET, which was set to the literal > > > > > following 'TO ' in the IEF878I message, it is more than likely > DSET > > > will > > > > > be a null value, which I believe will return a SEND syntax error > > should > > > > all > > > > > the above be "corrected". > > > > > > > > > > I'll give you this one: > > > > > To make FDIREXX more flexible relating to the target of the SEND > > > command, > > > > > PIPE EDIT can be used to extract the ID of the job "owner": > > > > > > > > > > 'PIPE EDIT AUTHUSER 1', > > > > > '|VAR USERID' > > > > > > > > > > I encourage you to take the time and READ the documentation > provided > > by > > > > the > > > > > vendor. They provide it for a reason. > > > > > You will undoubtedly encounter discrepancies between documentation > > and > > > > > reality from time to time, but most vendors have support portals or > > > > > feedback forms that you use to identify such discrepancies. > > > > > > > > > > > > > > > > > > > > On Mon, May 14, 2018 at 11:29 AM, saurabh khandelwal < > > > > > [email protected]> wrote: > > > > > > > > > > > Hello Lucas, > > > > > > > > > > > > This code worked for me > > > > > > > > > > > > but I had to remove Address TSO from this rexx code to make it > > work . > > > > > > > > > > > > MVS "SEND 'FD FILE HAS BEEN RECEIVED' USER(USR54) NOW" > > > > > > > > > > > > I am really thankful to you and other group member to help me to > > > solve > > > > > this > > > > > > issue. > > > > > > > > > > > > Now, I setup my netview auto table > > > > > > > > > > > > IF MSGID = 'IEF878I' & TEXT = 'END OF' & TEXT = MTXT THEN > > > > > > EXEC(CMD('FDIREXX' MTXT)) NETLOG(Y) SYSLOG(Y); > > > > > > So, basically i am trying to trap the message like below from > > > > > > IEF878I END OF IEF877E FOR OP117603 STEP1 GO DLMTOKEN > > > > > > > > > > > > full message Message is > > > > > > > > > > > > ICH70001I OP117 LAST ACCESS AT 13:13:42 ON MONDAY, MAY 14, > > $HASP373 > > > > > > OP117603 STARTED - INIT A - CLASS A - SYS IEF403I OP117603 - > > STARTED > > > - > > > > > > TIME=13.18.16 IEF244I OP117603 STEP1 GO - UNABLE TO ALLOCATE 1 > > > UNIT(S) > > > > > 049 > > > > > > AT LEAST 1 OFFLINE UNIT(S) NEEDED. IEF877E OP117603 NEEDS 1 > UNIT(S) > > > 050 > > > > > FOR > > > > > > STEP1 GO DLMTOKEN FOR VOLUME BFL603 OFFLINE 0FBF : IEF878I END OF > > > > IEF877E > > > > > > FOR OP117603 STEP1 GO DLMTOKEN and now I am getting output in > > netview > > > > as > > > > > > below 3:59:36 C BR NETLOGA 4:01:11 " IEF877E OP117603 NEEDS 1 > > UNIT(S) > > > > > > 4:01:11 " FOR STEP1 GO DLMTOKEN 4:01:11 " FOR VOLUME BFL603 > > 4:01:11 " > > > > > > OFFLINE 4:01:11 " 0FBF 4:01:11 " : 4:01:11 E IEF878I END OF > IEF877E > > > FOR > > > > > > OP117603 STEP1 GO DLMTOKEN But now, my aim is to display this > whole > > > > > message > > > > > > to operator using send command upon getting msgid IEF878I and > text > > > > "END > > > > > > OF" > > > > > > Now, I coded rexx like below. > > > > > > > > > > > > ARG MSGTXT PARSE VAR MSGTXT MSGID 'TO 'DSET DSET = STRIP(DSET) > > > > > > MSGTX = DSET > > > > > > SAY 'DATASET NAME IS' DSET MVS "SEND 'MSGTX ' USER(OP117) NOW" > > > > > > But I am unable to see this message on my tso screen after this > > event > > > > > > trigger. > > > > > > > > > > > > Can anybody help. > > > > > > > > > > > > On Mon, May 14, 2018 at 11:11 AM, Lucas Rosalen < > > > > [email protected] > > > > > > > > > > > > wrote: > > > > > > > > > > > > > Hi Venkat, > > > > > > > > > > > > > > Could you try with the following code? > > > > > > > > > > > > > > ========================================== > > > > > > > /* REXX */ > > > > > > > > > > > > > > SAY 'HELLO WORLD!' > > > > > > > > > > > > > > "SEND 'FD FILE HAS BEEN RECEIVED' USER(USR54) NOW" > > > > > > > > > > > > > > EXIT > > > > > > > ========================================== > > > > > > > > > > > > > > > > > > > > > ------------------------------------------------------------ > > > > > > > ------------------------------------------------------------ > > ------- > > > > > > > *Lucas Rosalen* > > > > > > > [email protected] / [email protected] > > > > > > > http://br.linkedin.com/in/lrosalen > > > > > > > > > > > > > > > > > > > > > 2018-05-14 9:28 GMT+02:00 Werner Kuehnel < > > > > [email protected] > > > > > >: > > > > > > > > > > > > > > > Hello Venkat, > > > > > > > > this is how it works at our site: > > > > > > > > > > > > > > > > /*********************************************************** > > > > > > **********/ > > > > > > > > /* FUNCTION: submits job > > > > > */ > > > > > > > > /*********************************************************** > > > > > > **********/ > > > > > > > > 'SUBMIT NETV.CNM01.USER.CLIST(JCLMBR)' > > > > > > > > EXIT > > > > > > > > > > > > > > > > Just one apostrophe at the beginning and one at the end. No > > > ADDRESS > > > > > > TSO. > > > > > > > > Member JCLMBR contains the JCL. > > > > > > > > > > > > > > > > Hth, > > > > > > > > Werner > > > > > > > > > > > > > > > > -----Ursprüngliche Nachricht----- > > > > > > > > Von: IBM Mainframe Discussion List [mailto: > > [email protected]. > > > > EDU] > > > > > > Im > > > > > > > > Auftrag von venkat kulkarni > > > > > > > > Gesendet: Montag, 14. Mai 2018 06:27 > > > > > > > > An: [email protected] > > > > > > > > Betreff: Re: Netview Submit JCL > > > > > > > > > > > > > > > > Hello, > > > > > > > > > > > > > > > > This command didn't worked for me and getting same issue. > > > > > > > > > > > > > > > > On Sun, May 13, 2018, 11:21 PM Lucas Rosalen < > > > > > [email protected]> > > > > > > > > wrote: > > > > > > > > > > > > > > > > > Hi Venkat, > > > > > > > > > > > > > > > > > > What about using the syntax below? > > > > > > > > > > > > > > > > > > "MVS SEND 'your_message' USER(user) NOW" > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > ------------------------------ > ------------------------------ > > > > > > > > ------------------------------------------------------------ > > > > ------- > > > > > > > > > *Lucas Rosalen* > > > > > > > > > [email protected] / [email protected] > > > > > > > > > http://br.linkedin.com/in/lrosalen > > > > > > > > > > > > > > > > > > > > > > > > > > > 2018-05-13 20:50 GMT+02:00 Steve Horein < > > > [email protected] > > > > >: > > > > > > > > > > > > > > > > > > > And the man ate fish for a day > > > > > > > > > > > > > > > > > > > > On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni < > > > > > > > > > > [email protected]> wrote: > > > > > > > > > > > > > > > > > > > > > Hello Lucas, > > > > > > > > > > > > > > > > > > > > > > Your solution worked for me > > > > > > > > > > > > > > > > > > > > > > "SUBMIT 'USR1.REXX.CNTL(REXXJCL)'" . > > > > > > > > > > > > > > > > > > > > > > Now, I am trying to issue tso send command using this > > rexx > > > > as > > > > > > > below > > > > > > > > > > using > > > > > > > > > > > netview but i am getting below errror > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > /* REXX */ > > > > > > > > > > > > > > > > > > > > > > ADDRESS TSO > > > > > > > > > > > > > > > > > > > > > > SAY 'HELLO WORLD!' > > > > > > > > > > > > > > > > > > > > > > "SEND ''FD FILE HAS BEEN RECEIVED' USER(USR54) NOW'" > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > Error > > > > > > > > > > > > > > > > > > > > > > EF404I USR54 LC - ENDED - TIME=14.29.07 > > > > > > > > > > > > > > > > > > > > > > HELLO WORLD! > > > > > > > > > > > > > > > > > > > > > > 4 *-* "SEND ''FDI FILE HAS BEEN RECEIVED' USER( > > USR54 > > > ) > > > > > > > > > > > > > > > > > > > > > > +++ RC(-3) +++ > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > I am unable to find correct syntax for this. I didnt > find > > > > > > anything > > > > > > > in > > > > > > > > > > > manual . Can you please help. > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > On Sat, May 12, 2018 at 7:14 PM, Lucas Rosalen < > > > > > > > > > [email protected]> > > > > > > > > > > > wrote: > > > > > > > > > > > > > > > > > > > > > > > Try changing FDIREXX script to the following: > > > > > > > > > > > > > > > > > > > > > > > > /* REXX */ > > > > > > > > > > > > > > > > > > > > > > > > "SUBMIT 'USR1.REXX.CNTL(REXXJCL)'" > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > ------------------------------ > > > > ------------------------------ > > > > > > > > > > > > ------------------------------ > > > > ------------------------------ > > > > > > > > ------- > > > > > > > > > > > > *Lucas Rosalen* > > > > > > > > > > > > [email protected] / [email protected] > > > > > > > > > > > > http://br.linkedin.com/in/lrosalen > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > 2018-05-12 12:57 GMT-03:00 Steve Horein < > > > > > > [email protected] > > > > > > > >: > > > > > > > > > > > > > > > > > > > > > > > > > SUBMIT is a native NetView command, and you don't > > need > > > > (or > > > > > > > want) > > > > > > > > to > > > > > > > > > > use > > > > > > > > > > > > > ADDRESS TSO. > > > > > > > > > > > > > https://www.ibm.com/support/ > > > > knowledgecenter/SSZJDU_6.2.1/ > > > > > > > > > > > > > com.ibm.itnetviewforzos.doc_6.2.1/dqc_submit.htm > > > > > > > > > > > > > > > > > > > > > > > > > > Specifics to NetView Rexx can be found here: > > > > > > > > > > > > > https://www.ibm.com/support/ > > > > knowledgecenter/SSZJDU_6.2.1/ > > > > > > > > > > > > > com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > Specifics to NetView Automation can be found here: > > > > > > > > > > > > > https://www.ibm.com/support/ > > > > knowledgecenter/SSZJDU_6.2.1/ > > > > > > > > > > > > > com.ibm.itnetviewforzos.doc_6.2.1/dqamst.htm > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > On Sat, May 12, 2018 at 9:46 AM, venkat kulkarni < > > > > > > > > > > > > > [email protected] > > > > > > > > > > > > > > wrote: > > > > > > > > > > > > > > > > > > > > > > > > > > > Hello Group, > > > > > > > > > > > > > > > > > > > > > > > > > > > > We have requirement to trigger one Job upon > > receiving > > > > one > > > > > > msg > > > > > > > > id > > > > > > > > > > > like > > > > > > > > > > > > > > below in > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > netview automation table. > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > IF MSGID = 'IEF404I' THEN > > > > > > > > > > > > > > > > > > > > > > > > > > > > EXEC(CMD('FDIREXX')) NETLOG(Y) SYSLOG(Y); > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > in CNMCLST, we have FDIREXX member as below. > > > > > > > > > > > > > > > > > > > > > > > > > > > > sssssssssssssssssssssssssssssssssssssssssssssss > > > > > > > > > > > > > > > > > > > > > > > > > > > > BROWSE NETVIEW.CNMCLST(FDIREXX) - 01.08 > > > > > > > > > > > > > > > > > > > > > > > > > > > > ********************************* Top of Data ** > > > > > > > > > > > > > > > > > > > > > > > > > > > > /* REXX */ > > > > > > > > > > > > > > > > > > > > > > > > > > > > ADDRESS TSO > > > > > > > > > > > > > > > > > > > > > > > > > > > > SUBMIT 'USR1.REXX.CNTL(REXXJCL)' > > > > > > > > > > > > > > > > > > > > > > > > > > > > ******************************** Bottom of Data > > > > > > > > > > > > > > > > > > > > > > > > > > > > On this event trigger,I am getting below error > > > message > > > > in > > > > > > > > netview > > > > > > > > > > log > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > 13:35:50 - CNM493I DSITBL01 : #0000241 : FDIREXX > > > > > > > > > > > > > > > > > > > > > > > > > > > > 13:35:50 E IEF404I USR1LC - ENDED - TIME=13.35.50 > > > > > > > > > > > > > > > > > > > > > > > > > > > > 13:35:50 C 3 *-* SUBMIT > > > 'USR1.REXX.CNTL(REXXJCL)' > > > > > > > > > > > > > > > > > > > > > > > > > > > > 13:35:50 C +++ RC(-3) +++ > > > > > > > > > > > > > > > > > > > > > > > > > > > > 13:35:57 C BR NETLOGA > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > and JCL as below. > > > > > > > > > > > > > > > > > > > > > > > > > > > > USR1.REXX.CNTL(REXXJCL) - 01.04 > > > > > > > > > > > > > > > > > > > > > > > > > > > > ***************************** Top of Data > > ********** > > > > > > > > > > > > > > > > > > > > > > > > > > > > //USRSYS JOB (660),VENKAT,CLASS=A,NOTIFY=&SYSUID > > > > > > > > > > > > > > > > > > > > > > > > > > > > //STEP010 EXEC PGM=IKJEFT01,REGION=0M > > > > > > > > > > > > > > > > > > > > > > > > > > > > //SYSEXEC DD DSN=USR1.REXX.CNTL,DISP=SHR > > > > > > > > > > > > > > > > > > > > > > > > > > > > //SYSTSPRT DD SYSOUT=* > > > > > > > > > > > > > > > > > > > > > > > > > > > > //SYSTSIN DD * > > > > > > > > > > > > > > > > > > > > > > > > > > > > %SAMPLE > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > and rexx as below > > > > > > > > > > > > > > > > > > > > > > > > > > > > USR1.REXX.CNTL(SAMPLE) - 01.01 > > > > > > > > > > > > > > > > > > > > > > > > > > > > ***************************** Top of Dat > > > > > > > > > > > > > > > > > > > > > > > > > > > > /* REXX */ > > > > > > > > > > > > > > > > > > > > > > > > > > > > SAY 'HELLO WORLD!' > > > > > > > > > > > > > > > > > > > > > > > > > > > > **************************** Bottom of D > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > I am not sure, where I made any mistake in this > > > > process. > > > > > > > > > > > > > > > > > > > > > > > > > > > > Can you please help. > > > > > > > > > > > > > > > > > > > > > > > > > > > > ------------------------------ > > > > > > ------------------------------ > > > > > > > > > > > ---------- > > > > > > > > > > > > > > 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 > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > ------------------------------ > ------------------------------ > > > > > > ---------- > > > > > > > > > > > > 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 > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > ------------------------------ > > ------------------------------ > > > > > > > ---------- > > > > > > > > > > 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 > > > > > > > > > > > > > > > > > > > > > > > > > ------------------------------------------------------------ > > > > > ---------- > > > > > > > > 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 > > > > > > > > > > > > > > > > > > > > > > ------------------------------------------------------------ > > > > ---------- > > > > > > > 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 > > > > > > > > > > > > > > > > ------------------------------------------------------------ > > ---------- > > > > > 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 > > > > > > > > > > ---------------------------------------------------------------------- > > > 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 > > > > ---------------------------------------------------------------------- > 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
