Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

ISPF Edit Macro invocation
Goto page 1, 2  Next
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
anju subrahmanian

New User


Joined: 11 Jul 2010
Posts: 21
Location: Bangalore

PostPosted: Mon Jul 12, 2010 3:13 pm    Post subject: ISPF Edit Macro invocation
Reply with quote

Hi I have a rexx code(COMPILE) which will compile cobol program. Now I want this code to be invoked when I enter COMPILE on ISPF command line while I am editing a cobol program. My code is working if both my REXX code and cobol programs are in same PDS. If these two programs are in different PDS, then I get an error 'command COMPILE not found'. Is it possible to resolve this? (Basically I want my REXX code to be invoked from any PDS)
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Mon Jul 12, 2010 3:30 pm    Post subject: Re: REXX code invocation
Reply with quote

anju subrahmanian wrote:
Now I want this code to be invoked when I enter COMPILE on ISPF command line while I am editing a cobol program.


Then COMPILE has to be written as an ISPF Edit Macro, and stored in an appropriate (for your site) library.
Back to top
View user's profile Send private message
anju subrahmanian

New User


Joined: 11 Jul 2010
Posts: 21
Location: Bangalore

PostPosted: Mon Jul 12, 2010 3:45 pm    Post subject: Reply to: REXX code invocation
Reply with quote

Thanks for your reply Kevin, Is there a way we can find out this particular library?
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Jul 12, 2010 3:57 pm    Post subject:
Reply with quote

TSO ISRDDN - DD names usually SYSEXEC for REXX.

Talk to your site support people for comfirmation.
Back to top
View user's profile Send private message
anju subrahmanian

New User


Joined: 11 Jul 2010
Posts: 21
Location: Bangalore

PostPosted: Mon Jul 12, 2010 5:14 pm    Post subject:
Reply with quote

I have allocated my PDS where my REXX code resides to SYSEXEC. Alos used "ADDRESS ISREDIT 'MACRO'" in my REXX code. Even then REXX code is not geting invoked...........
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Jul 12, 2010 5:16 pm    Post subject:
Reply with quote

Probably line 16 of your code then.
Back to top
View user's profile Send private message
anju subrahmanian

New User


Joined: 11 Jul 2010
Posts: 21
Location: Bangalore

PostPosted: Mon Jul 12, 2010 5:33 pm    Post subject:
Reply with quote

expat, Could you please explain what you mean by 'line 16' here.........
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Jul 12, 2010 6:12 pm    Post subject:
Reply with quote

It was just a guess, because you have not posted anything of any use to try and find what the problem really is.

You say it doesn't work and that's it. No code, no messgaes, no nothing.
Back to top
View user's profile Send private message
anju subrahmanian

New User


Joined: 11 Jul 2010
Posts: 21
Location: Bangalore

PostPosted: Mon Jul 12, 2010 6:48 pm    Post subject:
Reply with quote

I think what I am trying to find out has nothing to do anything with the code. Please find below code(SAMPLE)

/***************REXX******************
ADDRESS ISREDIT 'MACRO'
SAY 'REXX IN EXECUTION.....'
RETURN

I want to execute 'SAMPLE' from edit mode of any dataset. Suppose my code is loacted in PDS 'xxx001.exec'. If I open any member in this PDS and enter 'SAMPLE' on ISPF command line, its working. But if go to any other PDS and do the same, i get message 'IKJ56500I COMMAND SAMPLE NOT FOUND'. Now I belive you will understand what I trying to achieve. Please let me know if you need any more clarification on this?
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Mon Jul 12, 2010 6:51 pm    Post subject:
Reply with quote

Quote:
I have allocated my PDS where my REXX code resides to SYSEXEC


obviously, you have not.
Back to top
View user's profile Send private message
anju subrahmanian

New User


Joined: 11 Jul 2010
Posts: 21
Location: Bangalore

PostPosted: Mon Jul 12, 2010 6:56 pm    Post subject:
Reply with quote

I have allocated my PDS where my REXX code resides, even after this no improvements. It behaves the same way.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Mon Jul 12, 2010 7:00 pm    Post subject:
Reply with quote

in every shop that I have worked,
they provided either
  • a group pds for user clists/rexx scripts
  • an easy, site standard way to allocate your personal pds to sysexec

often accomplished by proper naming standards - llq .clist, .rexx or .exec

I realize that you may have to communicate with someone at your site
to determine how one accomplishes this,
since you have not found anything in your site's documentation
(after, i am sure, a very thorough search on your part)
that informs you of the proper procedure.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Mon Jul 12, 2010 7:01 pm    Post subject:
Reply with quote

Quote:
I have allocated my PDS where my REXX code resides


again, no you are wrong.

or, excuse me, I could be wrong,
in which case you should initiate a problem ticket with IBM,
since you have done everything correctly,
it must be the operating system.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Mon Jul 12, 2010 7:15 pm    Post subject:
Reply with quote

and before you start whinning about my not being nice,
you may wish to consider the amount of information that you have provided,
other than the 'I did this correctly, and I did that correctly'.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Jul 12, 2010 7:22 pm    Post subject:
Reply with quote

And it also depends on how you allocated your PDS to SYSEXEC, how and where you enter the macro name from.

As said by both Dick and myself - you have told us absolutely nothing yet you expect answers from us.

So let's start with my question in this post.

How did you allocate your PDS to SYSEXEC.
Back to top
View user's profile Send private message
anju subrahmanian

New User


Joined: 11 Jul 2010
Posts: 21
Location: Bangalore

PostPosted: Mon Jul 12, 2010 7:31 pm    Post subject:
Reply with quote

Below is the code I use to allocate my pds to sysexec

"ALLOC FI(SYSEXEC) DA('XXXX01.DEL.REXX.EXEC',",
") SHR REUSE"
IF RC = 0 THEN
SAY 'SYSEXEC ALLOCATED'
ELSE
SAY 'SYSEXEC ALLOCATION FAILED'

When I do this my pds is getting allocated to SYSEXEC, but existing allocationa are gone.

Instead of this how can I allocate my pds to sysexec without losing existing allocations.
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2019
Location: Silicon Valley

PostPosted: Mon Jul 12, 2010 7:35 pm    Post subject: Reply to: ISPF Edit Macro invocation
Reply with quote

Quote:
If I open any member in this PDS and enter 'SAMPLE' on ISPF command line, its working.

This part does not make sense to me.
Back to top
View user's profile Send private message
anju subrahmanian

New User


Joined: 11 Jul 2010
Posts: 21
Location: Bangalore

PostPosted: Mon Jul 12, 2010 7:48 pm    Post subject:
Reply with quote

Below is sysexec allocation code (SETUP)

/***************REXX**************
"ALLOC FI(SYSEXEC) DA('XXXX01.DEL.REXX.EXEC',",
") SHR REUSE"
IF RC = 0 THEN
SAY 'SYSEXEC ALLOCATED'
ELSE
SAY 'SYSEXEC ALLOCATION FAILED'

Below is SAMPLE code

/***************REXX**************
ADDRESS ISREDIT 'MACRO PROCESS'
SAY 'REXX IN EXECUTION.....'
RETURN

Both these code are located in pds xxxx01.del.rexx.exc

First I executed SETUP code, then xxxx01.del.rexx.exc is allocated to SYSEXEC

Then in the same PDS I have a member TRIAL, I opened this menber TRIAL in view/edit mode and enterd SAMPLE on ISPF command line, then rexx code in member SAMPLE is executed and I am getting a display message 'REXX IN EXECUTION.....' which is from rexx code in SAMPLE.

Now if open a member dataset in any PDS other than xxxx01.del.rexx.exc
and enter SAMPLE in ISPF command line, I get a meesage 'IKJ56500I COMMAND SAMPLE NOT FOUND'

Here I have explained what all things I have done. I am not claiming that I have done everithing or I have done eerything correctly. Do I need to do anything other than what I have done so far, or is there anything wrong with what have done?

Anyway Thank you very much to expat and Dick Brenholtz
for all the information you provided so far.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Jul 12, 2010 7:55 pm    Post subject:
Reply with quote

I suggest that you use TRACE I when you execute your SETUP exec just to double check. What does ISRDDN show when you invoke it after the SETUP.
Back to top
View user's profile Send private message
anju subrahmanian

New User


Joined: 11 Jul 2010
Posts: 21
Location: Bangalore

PostPosted: Mon Jul 12, 2010 7:59 pm    Post subject:
Reply with quote

ISRDDN shows that my PDS is allocated to SYSEXEC, but system provided SYSEXEC allocations are gone once I allocate my PDS.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Goto page 1, 2  Next
Page 1 of 2

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts ISPF program to set SCRNAME prino TSO/ISPF 5 Fri Sep 30, 2016 2:18 pm
No new posts I am unable to use SWAPBAR ON command... mrsidhu12 TSO/ISPF 3 Thu Sep 01, 2016 1:10 pm
No new posts ISPF Tables Creation newsysprg TSO/ISPF 6 Wed Jul 13, 2016 2:21 pm
No new posts PCOMM macro to call another PCOMM macro boyti ko All Other Mainframe Topics 4 Tue Jul 12, 2016 4:30 pm
No new posts Send parameter for macro STIMERM from... Daniel Teolotitla PL/I & Assembler 13 Tue Jul 05, 2016 9:23 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us