In order to trap the message properly:
1. Make sure IEF403I does not have AUTO(NO) in MPFLSTxx
2. The condition below will never be satisfied because TEXT is the COMPLETE
message, not only part of it
IF MSGID = 'IEF403I' & TEXT = 'USR54LST' & TEXT = MTXT THEN
EXEC(CMD('FDIREXXO' MTXT)) NETLOG(Y) SYSLOG(Y);
You may want to change it to something like:
IF MSGID = 'IEF403I' & TEXT = .'USR54LST'. & TEXT = MTXT THEN
EXEC(CMD('FDIREXXO' MTXT)) NETLOG(Y) SYSLOG(Y);
(here the dots are placeholders for text before and after string USR54LST)
Or something like:
IF MSGID = 'IEF403I' & TOKEN(2) = 'USR54LST' & TEXT = MTXT THEN
EXEC(CMD('FDIREXXO' MTXT)) NETLOG(Y) SYSLOG(Y);
(here the TOKEN(2) is used to check for the 2nd word in the entire message
- TOKEN(1) is the message ID)
Then, after you trapped the message:
1. In FDIREXXO, you are parsing MTXT (which only contains the message text,
not the MSGID) to MSGID and DSET variables, so the parsing does not look
good
In current script, you will have:
MSGID = USR54LST
DSET = - STARTED - TIME=07.54.54
MTXT = - STARTED - TIME=07.54.54
Maybe something like the following script would work better:
/* rexx */
trace i
parse arg mtxt
SAY 'DATASET NAME IS' MTXT
MVS "SEND '"MTXT"' USER(USR54) NOW"
exit
Here you would have:
MSGID =
DSET =
MTXT = USR54LST - STARTED - TIME=07.54.54
Good luck!
-------------------------------------------------------------------------------------------------------------------------------
*Lucas Rosalen*
[email protected] / [email protected]
http://br.linkedin.com/in/lrosalen
2018-05-16 13:36 GMT-03:00 saurabh khandelwal <[email protected]>:
> 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
