IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Find library of PGM


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Ali_gezer

New User


Joined: 06 Apr 2021
Posts: 58
Location: argentina

PostPosted: Mon Jun 28, 2021 10:50 pm
Reply with quote

Hello, how are you?

Im strugling finding the code of certain pgm, I asked to system programmers of my company and they do not know where the source of the pgm is.

is there a way to find the library of the pgm to see its code?
I tried some tso commands that bring me a list of libraries but in my company there are hundreds of libraries.

Any clue?



Code:
//PASO12   EXEC  PGM=UTBXLIST     
//SYSPRINT DD  SYSOUT=*           
//SYSLST   DD  SYSOUT=*           
//SYSUT1   DD  DSN=&&BOMOVD64
[/code]

(the pgm is not in the clasical joblib, there no specification of any lib neither.

Code:
//PRBOxxxx JOB (01,BO,PR01,0000000,PPPPPPPP),'', 
//         USER=,CLASS=6,MSGCLASS=X,COND=(000,LT),   
//         RESTART=%%RESTART           
Back to top
View user's profile Send private message
sergeyken
Warnings : 2

Senior Member


Joined: 29 Apr 2008
Posts: 1189

PostPosted: Mon Jun 28, 2021 11:01 pm
Reply with quote

If nothing except the load module has left from your program, there is no way to automatically detect where it comes from...

To say nothing that the "program":
1) may be written in various languages, and/or
2) may consist of multiple parts (object modules), and/or
3) the load module name may have nothing in common with the object codes names, and source module names... - There is no strict requirement to strictly follow any naming agreements.
Back to top
View user's profile Send private message
Joerg.Findeisen

Active Member


Joined: 15 Aug 2015
Posts: 607
Location: Bamberg, Germany

PostPosted: Mon Jun 28, 2021 11:15 pm
Reply with quote

Get rid of the program as soon as possible. You will not find anyone who is able to maintain it and the source (as you see) will get lost. We have had same situations in the past.
Back to top
View user's profile Send private message
Ali_gezer

New User


Joined: 06 Apr 2021
Posts: 58
Location: argentina

PostPosted: Tue Jun 29, 2021 12:51 am
Reply with quote

Joerg.Findeisen wrote:
Get rid of the program as soon as possible. You will not find anyone who is able to maintain it and the source (as you see) will get lost. We have had same situations in the past.


actually this is a program that is active and in the productive environment but I to this time I have asked several people here in my company and noone can give me the code.

I thought that when no joblib was specified, the library was the default one but there is not the prgram neither.
Back to top
View user's profile Send private message
sergeyken
Warnings : 2

Senior Member


Joined: 29 Apr 2008
Posts: 1189

PostPosted: Tue Jun 29, 2021 1:10 am
Reply with quote

Ali_gezer wrote:
I thought that when no joblib was specified, the library was the default one but there is not the prgram neither.


1. The load modules library has not a minor relation to the source library(ies) where its modules have been compiled from.

2. In one of companies I was working for, they had 97 DSNAMES in the LINKLIST of "default" libraries used in case JOBLIB/STEPLIB is missing; not only SYS1.LINKLIB icon_lol.gif
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 2771
Location: NYC,USA

PostPosted: Tue Jun 29, 2021 1:27 am
Reply with quote

Why do you need source code ? If its a third party then you will never have it as you are trying to reverse engineering by then.

The AMBLIST could help you to get logs and possibly pseudo code, please try Google it and explore.
Back to top
View user's profile Send private message
Ali_gezer

New User


Joined: 06 Apr 2021
Posts: 58
Location: argentina

PostPosted: Tue Jun 29, 2021 2:47 am
Reply with quote

Some person told me that it was a purchased program, so it was natural that the code was hidden or something like that.

thanks.
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 2771
Location: NYC,USA

PostPosted: Tue Jun 29, 2021 3:37 am
Reply with quote

So you got the answer As I thought.
Back to top
View user's profile Send private message
Pedro

Global Moderator


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

PostPosted: Tue Jun 29, 2021 10:28 am
Reply with quote

Quote:
it was a purchased program

You have to look at your license. You might not even be allowed to try to reverse engineer it.

If you are having problems with it, contact the company that you purchased it from. Frequently, the load module will contain a declared constant with "Copyright Acme Corp" or something similar.
Back to top
View user's profile Send private message
Pedro

Global Moderator


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

PostPosted: Tue Jun 29, 2021 10:31 am
Reply with quote

Quote:
they do not know where the source of the pgm is

I think this is a frequent problem. Your site should audit all of your production load modules to make sure you have up-to-date source code, as well as macro libs, JCL, link edit statements, etc.
Back to top
View user's profile Send private message
Ali_gezer

New User


Joined: 06 Apr 2021
Posts: 58
Location: argentina

PostPosted: Tue Jun 29, 2021 11:45 pm
Reply with quote

THANKS TO ALL.
I have not nothing more to say other than say thank you, this forum is gold.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts SXP Tool for PL1 or Module library ma... PL/I & Assembler 0
No new posts Multiple find/replace on the same dat... DFSORT/ICETOOL 4
No new posts Cobol code- to find a string in a str... COBOL Programming 3
This topic is locked: you cannot edit posts or make replies. REXX to find /* Define and write the ... CLIST & REXX 5
No new posts Cant find hex value using IFTHEN=(WHEN DFSORT/ICETOOL 12
Search our Forums:

Back to Top