Re: [TSO-REXX] Sdsf rexx

[Paul Gilmartin]

On Sat, 12 May 2018 16:02:26 -0500, Edward Gould wrote:
>> 
>> When I first encountered SPF panel definitions were RECFM=VB.  I coded some 
>> and
>> modified others.  I experienced conversion anguish when a later release went 
>> to
>> RECFM=FB.
>> 
>> IEBUPDTE is broken.  That doesn't forgive breaking other things to conform 
>> to its rules.
>
>Not disagreeing with you but I just do not see it being brought back from the 
>dead. I agree that there should be a replacement but I am not sure you could 
>get anyone to agree what a satisfactory replacement might be like. Maybe this 
>might be a good session at SHARE? You would have to generate some enthusiasm 
>and you might get enough people to form a committee.
>Personally I think it needs to be done, but there would be forces pulling at 
>the product from at least 2 or 3 angles, each would insist that they are 
>“right”.
>
Ironically, it already exists in z/OS: /bin/patch, but people are loath to use 
it --
perhaps they associate it with a 4-letter word.

Patch even supports RESTORE which IEBUPDTE never did.

-- gil

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: [TSO-REXX] Sdsf rexx

[Edward Gould]

> On May 11, 2018, at 10:25 AM, Paul Gilmartin 
> <000433f07816-dmarc-requ...@listserv.ua.edu> wrote:
> 
> When I first encountered SPF panel definitions were RECFM=VB.  I coded some 
> and
> modified others.  I experienced conversion anguish when a later release went 
> to
> RECFM=FB.
> 
> IEBUPDTE is broken.  That doesn't forgive breaking other things to conform to 
> its rules.
> 
> — gil

Gil,
Not disagreeing with you but I just do not see it being brought back from the 
dead. I agree that there should be a replacement but I am not sure you could 
get anyone to agree what a satisfactory replacement might be like. Maybe this 
might be a good session at SHARE? You would have to generate some enthusiasm 
and you might get enough people to form a committee.
Personally I think it needs to be done, but there would be forces pulling at 
the product from at least 2 or 3 angles, each would insist that they are 
“right”.
Ed


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: GETMAIN LOC=32

[Ed Jaffe]

On 5/6/2018 11:51 AM, Paul Edwards wrote:

Hi. I would like to submit an RFE to IBM to
support a LOC=32 parameter to GETMAIN,
giving 32-bit programs access to a full 4 GiB
instead of the current 2 GiB provided by
LOC=31.


Impossible. That area is not mapped by an STE in any current IBM Z 
hardware. You need a RTE (3rd) to get to it. That makes it "above the 
bar" storage.


Do what everyone else does. Use IARV64 REQUEST=GETSTOR with either 
USE2GTO32G=YES or USE2GTO64G=YES to acquire space in that area.


--
Phoenix Software International
Edward E. Jaffe
831 Parkview Drive North
El Segundo, CA 90245
http://www.phoenixsoftware.com/

This e-mail message, including any attachments, appended messages and the
information contained therein, is for the sole use of the intended
recipient(s). If you are not an intended recipient or have otherwise
received this email message in error, any use, dissemination, distribution,
review, storage or copying of this e-mail message and the information
contained therein is strictly prohibited. If you are not an intended
recipient, please contact the sender by reply e-mail and destroy all copies
of this email message and do not otherwise utilize or retain this email
message or any or all of the information contained therein. Although this
email message and any attachments or appended messages are believed to be
free of any virus or other defect that might affect any computer system into
which it is received and opened, it is the responsibility of the recipient
to ensure that it is virus free and no responsibility is accepted by the
sender for any loss or damage arising in any way from its opening or use.

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Heretic alert: I really detest TSO REXX (the language)

[Tony Thigpen]

The real question is:

Why are z/OS developers unable to lower themselves and ask the z/VSE 
developers to share their REXX VSAMIO code?


And, while they are at it, they could also borrow the REXX SORTSTEM 
function from z/VSE.


These have been there since 2003 (or earlier). The code can't be that 
different between the operating systems. I know the VSAMIO code 
(ARXVCSTB) is C based so it should just be a recompile.


Tony Thigpen

Farley, Peter x23353 wrote on 05/12/2018 12:53 PM:

Rexx does have several versions of VSAM support, though none from IBM.  Quoting 
from the website of the late Gilbert St. Fleur 
(http://gsf-soft.com/Documents/TSOVSAM.html):

Several RXVSAM programs are available, all of them are free:

1.Written and supported by Mark Winges, in file 268 of the CBT Tape. 
(http://cbttape.org/ftp/cbt/CBT268.zip)
2.Written and supported by Steven Scott, found here. 
(http://sourceforge.net/projects/rxvsam/)
3.There is a read-only VSAM function package, also called RXVSAM, in the VSAM 
section of the Xephon archives. (http://www.xephon.com/archives/a012a01.txt)
4. The EXECIOVS program, found on the HiLMAs web site, provides an EXECIO-like 
interface to VSAM data sets in REXX.

HTH

Peter

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of David Crayford
Sent: Friday, May 11, 2018 10:10 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Heretic alert: I really detest TSO REXX (the language)

EXTERNAL EMAIL

On 12/05/2018 6:23 AM, Tony Thigpen wrote:

Come comments on other posts:

David Crayford wrote on 05/11/2018 02:22 PM:

The fact that REXX does not have native support for VSAM
data sets is a shocking omission.

This is available on s/VSE.



z/VM and z/VSE seem to have lots of features that z/OS lacks, like pipes.


--


This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN




--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Problem with $BUFFER control block

[Jim Mulder]

   The $BUFFER macro contains this line:

* $Z22LCKP=64BCKPT  HJE77A0 140821 TJW:  Use MVS IOB DSECT*

 So I would guess that, starting with z.OS 2.2,  you need to include
the SYS1.MACLIB(IEZIOB)DSECT in your program. 


Jim Mulder z/OS Diagnosis, Design, Development, Test  IBM Corp. 
Poughkeepsie NY


> 
> I'm embarrassed to ask this question, but I've been over the same 
> ground many times to no avail. We have carried several SMF exits 
> from release to release without complications. In moving from z/OS 
> 2.1 to 2.3, we suddenly get an assembly error in $BUFFER that makes no 
sense:
> 
>9476  $BUFFER
> 18 9935+BUFIOBST DSXL(IOBLENG) Defin
> ASMA068S Length error - L(IOBLENG)
> ASMA435I Record 484 in SYS1.SHASMAC($BUFFER) on volume: R23DLB
>9941+TPBMXREC EQU   IOBINCAM,
> 1,C'C' Max R
> ASMA044E Undefined symbol - IOBINCAM
> ASMA435I Record 490 in SYS1.SHASMAC($BUFFER) on volume: R23DLB
>9942+IOBECBSV EQU   IOBINCAM+1,1 I/O 
C
> ASMA044E Undefined symbol - IOBINCAM
> ASMA435I Record 491 in SYS1.SHASMAC($BUFFER) on volume: R23DLB
>9943+TPBLCCC  EQU   IOBXTENT,
> 1,C'C' Last
> ASMA044E Undefined symbol - IOBXTENT
> ASMA435I Record 492 in SYS1.SHASMAC($BUFFER) on volume: R23DLB
>9944+TPBLCCAD EQU   IOBXTENT,
> 4,C'A' Addr
> ASMA044E Undefined symbol - IOBXTENT
> ASMA435I Record 493 in SYS1.SHASMAC($BUFFER) on volume: R23DLB
>9945+IOBXTENT EQU   IOBM,1,C'C' DEB e
> ASMA044E Undefined symbol - IOBM
> ASMA435I Record 494 in SYS1.SHASMAC($BUFFER) on volume: R23DLB
>9952+ ORG   BUFIOBST+
> (IOBSEEK-IOBDSEC
> ASMA080E Statement is unresolvable
> ASMA435I Record 501 in SYS1.SHASMAC($BUFFER) on volume: R23DLB
>   10013+ ORG   BUFIOBST+
> (IOBSEEK-IOBDSEC
> ASMA080E Statement is unresolvable
> ASMA435I Record 563 in SYS1.SHASMAC($BUFFER) on volume: R23DLB
> 5010085+HDBIDDSCL4'HDB' 
Eyecatche
> D810257+ DC0S((BUFSTART-
> BFPDSECT)-(B
> ASMA028E Invalid displacement
> ASMA435I Record 809 in SYS1.SHASMAC($BUFFER) on volume: R23DLB
> Assembler Done  9 Statements Flagged /  12 was Highest Severity Code
> 
> I can't understand the undefined symbols. I'm able to recreate the 
> 2.1 exit code using the 2.1 release libraries. Symbol  IOBLENG for 
> example  simply is not defined in the 2.3 release even though the 
> symbol is used. Am I missing something transparently obvious?



--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Problem with $BUFFER control block

[Jesse 1 Robinson]

I'm embarrassed to ask this question, but I've been over the same ground many 
times to no avail. We have carried several SMF exits from release to release 
without complications. In moving from z/OS 2.1 to 2.3, we suddenly get an 
assembly error in $BUFFER that makes no sense:

   9476  $BUFFER
18 9935+BUFIOBST DSXL(IOBLENG) Defin
ASMA068S Length error - L(IOBLENG)
ASMA435I Record 484 in SYS1.SHASMAC($BUFFER) on volume: R23DLB
   9941+TPBMXREC EQU   IOBINCAM,1,C'C' Max R
ASMA044E Undefined symbol - IOBINCAM
ASMA435I Record 490 in SYS1.SHASMAC($BUFFER) on volume: R23DLB
   9942+IOBECBSV EQU   IOBINCAM+1,1I/O C
ASMA044E Undefined symbol - IOBINCAM
ASMA435I Record 491 in SYS1.SHASMAC($BUFFER) on volume: R23DLB
   9943+TPBLCCC  EQU   IOBXTENT,1,C'C' Last
ASMA044E Undefined symbol - IOBXTENT
ASMA435I Record 492 in SYS1.SHASMAC($BUFFER) on volume: R23DLB
   9944+TPBLCCAD EQU   IOBXTENT,4,C'A' Addr
ASMA044E Undefined symbol - IOBXTENT
ASMA435I Record 493 in SYS1.SHASMAC($BUFFER) on volume: R23DLB
   9945+IOBXTENT EQU   IOBM,1,C'C' DEB e
ASMA044E Undefined symbol - IOBM
ASMA435I Record 494 in SYS1.SHASMAC($BUFFER) on volume: R23DLB
   9952+ ORG   BUFIOBST+(IOBSEEK-IOBDSEC
ASMA080E Statement is unresolvable
ASMA435I Record 501 in SYS1.SHASMAC($BUFFER) on volume: R23DLB
  10013+ ORG   BUFIOBST+(IOBSEEK-IOBDSEC
ASMA080E Statement is unresolvable
ASMA435I Record 563 in SYS1.SHASMAC($BUFFER) on volume: R23DLB
5010085+HDBIDDSCL4'HDB'Eyecatche
D810257+ DC0S((BUFSTART-BFPDSECT)-(B
ASMA028E Invalid displacement
ASMA435I Record 809 in SYS1.SHASMAC($BUFFER) on volume: R23DLB
Assembler Done  9 Statements Flagged /  12 was Highest Severity Code

I can't understand the undefined symbols. I'm able to recreate the 2.1 exit 
code using the 2.1 release libraries. Symbol  IOBLENG for example  simply is 
not defined in the 2.3 release even though the symbol is used. Am I missing 
something transparently obvious?

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office <= NEW
robin...@sce.com


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Heretic alert: I really detest TSO REXX (the language)

[Farley, Peter x23353]

Rexx does have several versions of VSAM support, though none from IBM.  Quoting 
from the website of the late Gilbert St. Fleur 
(http://gsf-soft.com/Documents/TSOVSAM.html):

Several RXVSAM programs are available, all of them are free:

1.Written and supported by Mark Winges, in file 268 of the CBT Tape. 
(http://cbttape.org/ftp/cbt/CBT268.zip)
2.Written and supported by Steven Scott, found here. 
(http://sourceforge.net/projects/rxvsam/)
3.There is a read-only VSAM function package, also called RXVSAM, in the VSAM 
section of the Xephon archives. (http://www.xephon.com/archives/a012a01.txt)
4. The EXECIOVS program, found on the HiLMAs web site, provides an EXECIO-like 
interface to VSAM data sets in REXX.

HTH

Peter

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of David Crayford
Sent: Friday, May 11, 2018 10:10 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Heretic alert: I really detest TSO REXX (the language)

EXTERNAL EMAIL

On 12/05/2018 6:23 AM, Tony Thigpen wrote:
> Come comments on other posts:
>
> David Crayford wrote on 05/11/2018 02:22 PM:
> > The fact that REXX does not have native support for VSAM
> > data sets is a shocking omission.
> This is available on s/VSE.
>

z/VM and z/VSE seem to have lots of features that z/OS lacks, like pipes.


--


This message and any attachments are intended only for the use of the addressee 
and may contain information that is privileged and confidential. If the reader 
of the message is not the intended recipient or an authorized representative of 
the intended recipient, you are hereby notified that any dissemination of this 
communication is strictly prohibited. If you have received this communication 
in error, please notify us immediately by e-mail and delete the message and any 
attachments from your system.


--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Netview Submit JCL

[Lucas Rosalen]

Try changing FDIREXX script to the following:

/* REXX */

"SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"


---
*Lucas Rosalen*
rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
http://br.linkedin.com/in/lrosalen


2018-05-12 12:57 GMT-03:00 Steve Horein :

> 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 <
> venkatkulkarn...@gmail.com
> > 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.
> >
> > sss
> >
> > BROWSENETVIEW.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 : #241 : 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=
> >
> > //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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
>
> --
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Netview Submit JCL

[Steve Horein]

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  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.
>
> sss
>
> BROWSENETVIEW.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 : #241 : 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=
>
> //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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Netview Submit JCL

[Bulent Dulger]

Hello Venkart,

You should actually be able to do that. User submitting that jcl needs to 
submit jcl and some TSO authorizations. Have you given right permission for 
that user? If not, please give them and try again? You can take help from your 
security administrators for them.

Best Regards

Bülent Dülger
Mainframe IT Specialist

ServiZ Information Technologies Inc.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of venkat kulkarni
Sent: Saturday, May 12, 2018 17:47
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Netview Submit JCL

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.

sss

BROWSENETVIEW.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 : #241 : 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=

//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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Netview Submit JCL

[venkat kulkarni]

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.

sss

BROWSENETVIEW.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 : #241 : 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=

//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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN

GSE UK Annual Conference

[Mark Wilson]

All,

The vendor invite letter and call for papers PDFs have been loaded onto the GSE 
UK Conference website.

Please take a look and let me know if you would like to participate.

http://conferences.gse.org.uk/vsinfo

Mark

GSE Information
Large Systems Working Group Chairman
www.lsx.gse.org.uk

GSE UK Conference Manager
www.gse.org.uk/tyc
Email: mark.wil...@gse.org.uk

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN