Need Macro to open a Member in View Mode

pnkumar · New User Joined: 27 Oct 2005 Posts: 24

Hi ALL ,

Here is Very EXhaustive REXX Exercise i have ,Could any one help me in
in Design( how to do it ) and if possible Various REXX Utilites to Achive the following Task .

If i want to write a REXX Macro to view a Copybook Member inside a Cobol Program Member just by keeping Cursor on that Copybook??
Let us assume i have a Cobol Program(MYPGM) in one of My PDS TS.USER.PDS and in the Program MYPGM i have a copybook called AMBSRL ,so now if i put cursor on the Copybook(AMBSRL) in MYPGM and run the MACRO at Command line then it should open that Copybook in VIEW mode and after Pressing F3(BACK) ,we should return back to Program MYPGM.

Thanks in advance ,
Pallavi

superk · Posted: Tue Feb 14, 2006 9:03 pm

You don't have to write it. It's called ZOOM and it's an ISPF EDIT Macro (I have no idea what a REXX macro is) written in REXX that does just what you want. Most shops already have it, but if you don't, you should be able to locate the source code with some Internet searching.

mak_tcs · Posted: Tue Feb 14, 2006 9:13 pm

Hi Pallavi,

The task is not that exhaustive. It hardly includes 5-10 lines of Rexx code.

There is macro command which will give the content of Cursor pointed line. Parse the line and get the coppybook name. then there is a single macro which opens a dataset in either browse/view/edit mode. So use it to view your copybook PDS member. Simple!!!

Note: You try it and in the worst case i can give the code.

Thanks,
Mani

amitava · Active User Joined: 30 Oct 2005 Posts: 186 Location: India

Hi Pallavi,
I am sending you the sample code for your purpose. But the DSN where the copybook resides is hard-oded. Change it accordingly.

address ispexec "control errors return"
address ispexec
address isredit
"macro"

dsnname = AAAA.BBBB.CCCC.COPYLIB'
cpyname = ''
"(ros, cos) = cursor"
"(memline) = line .zcsr"

if(index(memline,'COPY') \= 0 & index(memline,'INCLUDE') \= 0) then
cpyname = word(memline,2)

if(substr(memline,1,4) = '-INC') then
cpyname = word(memline,2)

if(cpyname = '') then do
say 'S -> Cursor not in place...'
exit
end

address ispexec
"lminit dataid(dsid) dataset ('"dsnname"') enq(shr)"
"view dataid("dsid") member("cpyname")"
"lmclose dataid("dsid")"
"lmfree dataid("dsid")"
"end"
exit

Reema Naik · New User Joined: 24 Apr 2008 Posts: 5 Location: india

Hi Pallavi.

I am facing the same problem like yours. i want to create a REXX utility for opening a called program following CALL, its similar to what you wanted to create earlier for opening copybooks. In my case it is to open a Called Program.

eg:

CALL Prog2

Thanks in advance

Reema

krishnaa4u · New User Joined: 23 Oct 2008 Posts: 6 Location: Milan

Hi Amitava

Firstly many Thanks for supplying the code. But, when i am trying to exeute this in my environemnt, i wonder why the cursor is not working. I am getting the below error.

superk · Posted: Thu Nov 06, 2008 11:32 pm

Works OK for me. Double-check your code syntax:

Pedro · Posted: Thu Nov 06, 2008 11:41 pm

Vamsi, editor macros can only be run from within the editor! Please confirm you are in editor.

krishnaa4u · New User Joined: 23 Oct 2008 Posts: 6 Location: Milan

Hey Kevin n Pedro .. thanks for your quick replies. The culprit is the space in the below statement.

"(memline) = LINE .zcsr"

previously i was running the code with out any space between LINE and .ZCSR .

Now its running fine but have one more prob, this piece of code works if we have the includes in a dataset, but if they are in a library(we are using CA ELISPE), how can we executre this?

I am new to REXX and have just begun ... appreciate any help/pointers for the improvement of my knowledge in REXX.

Thanks in advance

superk · Posted: Fri Nov 07, 2008 4:16 pm

You have to use the CA-Elips utilities as documented in the product manuals.

krishnaa4u · New User Joined: 23 Oct 2008 Posts: 6 Location: Milan

Hi Kevin,

I resolved this problem by using 'AFOLIBR' but not with the CA Elips utility FAIR ... i got the manual for FAIR but it seems that the library should be preinstalled on my mainframe which i could not find. So, i achieved the fucntionality by calling the AFOLIBR program for finding the member of a Library.

Now that it is solved and running fine, i want the macro to be available to all my colleagues in my team. how can i achieve this? in which library should i keep this? i am able to run it in my environment as i kept the EXEC in the PDS 'myuserid.rexx.exec' and attached this to the SYSEXEC.
But, if all other users in my work environemnt have to use it .. what do i need to do?

dick scherrer · Posted: Wed Nov 12, 2008 8:53 pm

Hello,

Suggest you talk with your system support and have your code placed in a library that is already in the SYSEXEC concatenation. Most systems have a library where locally-written general-use execs are stored.

krishnaa4u · New User Joined: 23 Oct 2008 Posts: 6 Location: Milan

Hello,

I already contacted my system admin and he did the required work. Now, it is available to all others in my team.

Thanks for the support provided.

dick scherrer · Posted: Thu Nov 13, 2008 12:37 am

You're welcome - thanks for letting us know it is working

d

dbzTHEdinosauer · Posted: Thu Nov 13, 2008 1:38 pm

here is another approach.
Position the cursor over the copybook name and issue TSO VCPY.
It is not a macro,
so it will work with EDIT/VIEW and BROWSE or
on any screen surface
and issue TSO VCPY via a PF Key
(I use PF6 because I never use RCHANGE)
or type <TSO VCPY copybook> and position the cursor.

Obviously, you can add VCPY to the system command table;
then you don't need the TSO.

In my environment we have 14 environments
(actually 22 but I shortened the Rexx Script for this example),
and successive PF3 will move thru the different COPYBOOK Libs.
At the end of the Script (Final PF3 to return to source)
PF1 will list all the libraries where the copybook was found.