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
 

 

Locating the source code.

 
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
Raghur

New User


Joined: 18 Mar 2016
Posts: 9
Location: India

PostPosted: Mon Apr 04, 2016 2:29 pm    Post subject: Locating the source code.
Reply with quote

Hi All,

I am trying to develop a REXX tool which will extract all the programs used in a set of jobs (around 1500 jobs).

I have tried the standard coding procedure by considering the various scenarios, but the execution is taking a very long time which is literally hanging out my session.

My shop has the DCMS/XREF analysis tool. The DCMS/XREF tool is very fast in extracting the results but can be used only on a single component at a time.
I was trying to get the source code of this tool, so that I can iterate it on my job list and get the results, but failed to do so.

The XREF tool in my shop is as below:

ADDRESS ISPEXEC "SELECT CMD(%XREFIN)"
ADDRESS ISPEXEC "VGET (ISPLLIB ISPMLIB ISPPLIB ISPSLIB ISPTLIB)"
ADDRESS ISPEXEC "SELECT PGM(GSXR0108) NEWAPPL(XREF) PASSLIB"
ADDRESS ISPEXEC "SELECT CMD(%XREFOUT)"

Now, I want to know where this GSXR0108 resides?
Any advice on how to find this is highly appreciated. icon_smile.gif

Thanks in Advance!!
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Mon Apr 04, 2016 2:39 pm    Post subject: Reply to: Locating the source code.
Reply with quote

Code:
 ADDRESS ISPEXEC "SELECT PGM(GSXR0108) NEWAPPL(XREF) PASSLIB"


since GSXR0108 is a program I doubt that You will be able to look at the source

anyway try ...
split the screen
type
Code:
TSO ISRDDN

type
Code:
m GSXR0108


it should tell in which library GSXR0108 resides
( if the library is still allocated )

or ask Your support
Back to top
View user's profile Send private message
Raghur

New User


Joined: 18 Mar 2016
Posts: 9
Location: India

PostPosted: Mon Apr 04, 2016 3:06 pm    Post subject:
Reply with quote

Hi enrico,

I guess my shop does not have isrddn.

When I type TSO ISRDDN on my command line, it says "COMMAND ISRDDN NOT FOUND".

Do you have any other alternative??

Thanks in Advance!!
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1712
Location: UK

PostPosted: Mon Apr 04, 2016 5:51 pm    Post subject:
Reply with quote

ISRDDN is a basic part of TSO/ISPF. You must have typed it wrongly or it is in a command list that is not available to you.. Check with your support.

Rexx will be slow as it is interpreted - but not that slow unless you have coded it wrongly. The program you are seeking is compiled/assembled. If it is owned by your company then the source will, possibly, be available. Again, check with your support. If it is from a thord paty then it will probablyh be copyrighted and you will not have the source and it will be proprietary and any attempt to reverse engineer the load module would be illegal.

Finally, why not write your exec to simply repeat your xref any number of times?
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1238
Location: Richfield, MN, USA

PostPosted: Mon Apr 04, 2016 6:58 pm    Post subject:
Reply with quote

You might try TSO ISRFIND but that might result in the same error msg.
Back to top
View user's profile Send private message
Raghur

New User


Joined: 18 Mar 2016
Posts: 9
Location: India

PostPosted: Mon Apr 04, 2016 7:44 pm    Post subject: Reply to: Locating the source code.
Reply with quote

Hi Nic,

I have TSO ISRFIND working for me, but not TSO ISRDDN (no typing mistake there, but I guess it is available in a different command list.)

When I have checked for the source using TSO ISRFIND, it threw me a number of datasets, but none of them had the source. Those libraries only had members with the string "GSXR0108" in them.

Regarding the third party ownership, yes this is an IBM tool, so I think it is copyrighted.

And, you have guessed it right, I did think of reverse engineering initially, but then backed off keeping the copyright in mind.

Finally, do you have any references where I can code an exec to use xref multiple times, cause I have never seen that before.

The XREF tool is a pretty complicated tool though.

The source code generates PANEL1, which prompts the user for an input and then further displays another panel PANEL2 asking for the specifics and then displays the results in another panel PANEL3.

I only need the job portion in this tool which I had provided in the attachments. I will provide the job name as the input and need the program names as the output.

All this happens in a single source (it might be calling other sources from here.) So, do you think what you are saying can still be done?

I will be really glad if it can be done!!

Thanks in Advance!!
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1712
Location: UK

PostPosted: Mon Apr 04, 2016 10:09 pm    Post subject:
Reply with quote

Please do not post attachments - a simple cut'n'paste (using the code tags) would be sufficient, is easier, takes less screen real estate etc etc
Back to top
View user's profile Send private message
Raghur

New User


Joined: 18 Mar 2016
Posts: 9
Location: India

PostPosted: Mon Apr 04, 2016 11:35 pm    Post subject: Reply to: Locating the source code.
Reply with quote

I am really sorry for that.... I just wanted to make sure that my question is explained in detail...
So, any suggestions???
Back to top
View user's profile Send private message
daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 645
Location: Pennsylvania

PostPosted: Mon Apr 04, 2016 11:45 pm    Post subject:
Reply with quote

You could check for the BATCH option offered by the utility.

There may be an option from the Main menu.

Once you get a Job submitted, you have JCL you can modify to query on multiple modules.

When all else fails, read the manual. icon_wink.gif
Back to top
View user's profile Send private message
Raghur

New User


Joined: 18 Mar 2016
Posts: 9
Location: India

PostPosted: Tue Apr 05, 2016 12:03 am    Post subject: Reply to: Locating the source code.
Reply with quote

Is there a way where I can provide inputs to panel without entering keys from the keyboard ??

For example, if I execute the xref tool and the Panel 1 is displayed.
Can I provide input 'PBST400D' as shown in the first attachment through Rexx and direct it to Panel 2 instead of entering the value through the keyboard and then pressing enter.. ?

Thanks in advance!!
Back to top
View user's profile Send private message
daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 645
Location: Pennsylvania

PostPosted: Tue Apr 05, 2016 12:17 am    Post subject:
Reply with quote

Quote:
Is there a way where I can provide inputs to panel without entering keys from the keyboard ??


Perhaps, but I am not sure where that will get you (not very far).

I think as though you already have a design and a plan.

Based on this statement of yours:
Quote:

I am trying to develop a REXX tool which will extract all the programs used in a set of jobs (around 1500 jobs).


I really believe you should re-asses your design, and use the batch approach. With this, you can supply your Job list to your JCL, and get a report in the output (either sysout or a dataset).

I have not worked with your particular product, but have done something similar with another.
Back to top
View user's profile Send private message
Raghur

New User


Joined: 18 Mar 2016
Posts: 9
Location: India

PostPosted: Tue Apr 05, 2016 12:39 am    Post subject:
Reply with quote

Hi Dave,

The only reason that I am not very inclined to the batch processing option is that
1. The report generated through the batch processing is very huge (for 1500 jobs and I need to get all the scenarios covered as there are also legacy codes written in 1970's which can get pretty messy sometimes) and processing it to get the required results will take a lot of time.
2. On the other hand, the xref tool in my shop is really fast (in the order of micro seconds and is 100% accurate). If I can somehow get the inputs into the panels then there is a healthy chance that I can iterate the process and get my thing done.

Any suggestions in that direction will help me a lot...
Back to top
View user's profile Send private message
daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 645
Location: Pennsylvania

PostPosted: Tue Apr 05, 2016 12:54 am    Post subject:
Reply with quote

I am suggesting using YOUR XREF tool in BATCH mode.

You should be able to get the results written to a dataset.

You can pass that through your SORT utility and create any output you need.

In order to accomplish it the way you desire, you need to trace though each program and panel to see what data is passed and how, and what programs and panels are called.

I am done giving suggestions.

The cover of the book says to me: I want to do it one way and one way only. I will only accept suggestion for that way.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Tue Apr 05, 2016 5:54 am    Post subject: Reply to: Locating the source code.
Reply with quote

Quote:
extract all the programs used in a set of job


I think you should call SUPERC to search for 'PGM='.
Back to top
View user's profile Send private message
Raghur

New User


Joined: 18 Mar 2016
Posts: 9
Location: India

PostPosted: Tue Apr 05, 2016 7:30 am    Post subject:
Reply with quote

Hi Pedro,

It is not that straight forward. There are ims programs too where the load is used as a parameter to a proc for executing it and many other such scenarios.

If anybody can suggest me how to pass input data from one screen to an ispf panel's input fields displayed in another screen, it would be helpful. It will also help me reuse the existing tool.

Thanks in advance!!!
Back to top
View user's profile Send private message
PeterHolland

Global Moderator


Joined: 27 Oct 2009
Posts: 2422
Location: Netherlands, Amstelveen

PostPosted: Tue Apr 05, 2016 2:21 pm    Post subject:
Reply with quote

I understand DCMS/XREF is monitoring a system and putting all the data into a database. So that's why queries are very fast. I also understand there is a batch utility to create reports from that database.

I suggest you consult your manuals and/or the DCMS/XREF support people.
Back to top
View user's profile Send private message
Pedro

Senior Member


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

PostPosted: Tue Apr 05, 2016 7:32 pm    Post subject: Reply to: Locating the source code.
Reply with quote

Quote:
how to pass input data


It seems like you know what your search arguments are. My suggestion is to use SUPERC to search for them. Call SUPERC multiple times if you need to.

I cannot provide advice for DCMS/XREF as I am not familiar with it.
Back to top
View user's profile Send private message
daveporcelan

Active Member


Joined: 01 Dec 2006
Posts: 645
Location: Pennsylvania

PostPosted: Tue Apr 05, 2016 7:34 pm    Post subject:
Reply with quote

Quote:
I also understand there is a batch utility to create reports from that database.


Oh Peter, that is not what the OP has asked for. icon_sad.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am
No new posts IDEAL - Code Retrieval yugendran CA Products 0 Fri Nov 25, 2016 3:27 pm
This topic is locked: you cannot edit posts or make replies. Need to code a Rexx PGM sundaram.naveen CLIST & REXX 18 Thu Oct 06, 2016 6:45 pm
No new posts Need Help in understanding what is th... mainakdalal PL/I & Assembler 9 Mon Oct 03, 2016 8:03 pm
No new posts Problem Compiling cobol code with Cob... amitc23 COBOL Programming 2 Wed Aug 24, 2016 1:50 pm


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