Find the Compile time stamp of a COBOL load module

feellikeneo · New User Joined: 19 Mar 2007 Posts: 73 Location: Chennai

Is there any way to find the Compile time stamp of a COBOL load module?

Cheers,
Neo

feellikeneo · New User Joined: 19 Mar 2007 Posts: 73 Location: Chennai

I know we can do it in COBOL using the "WHEN-COMPILED" registry. But for me calling the COBOL from REXX and getting the result passed from COBOL to load again will be a tedious process cos I may need to find compile time stamp of atleast 200 modules in a single run of REXX.

So is there any way to find this without using the COBOL "WHEN-COMPILED" registry.

superk · Posted: Mon Aug 27, 2007 6:09 pm

This website has a example of AMBLIST output. Looks to me like it will give you the date and time that the load module was created.

Craq Giegerich · Posted: Mon Aug 27, 2007 6:11 pm

feellikeneo · New User Joined: 19 Mar 2007 Posts: 73 Location: Chennai

Hi Craq,

Can you explain more with some examples.

I can find it if I browse through the load. But how can we find this via a program say REXX.

I am not aware of "AMBLIST" that you refer to. Explain with an example please.

Thanks,
Neo

Craq Giegerich · Posted: Mon Aug 27, 2007 7:10 pm

dbzTHEdinosauer · Posted: Mon Aug 27, 2007 7:30 pm

chapter 15 of this manual IEA2V150 or GA22-7589-07 /OS V1R6.0 MVS Diagnosis: Tools and Service Aids.

or go to IBM Server Library Server and search for GA22-7589 to obtain the z/OS version that you are running. AMBLIST has not changed much, so the first link should get you going.

jz1b0c · Posted: Tue Aug 28, 2007 2:39 am

Hi,

I am not sure if this helps you..

//AMBLIST1 JOB (8550,030A,20,30),'AMBLIST JOB',
// CLASS=A,MSGCLASS=T,NOTIFY=&SYSUID
//*
//AS10 EXEC PGM=AMBLIST
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//STEPLIB DD DSN=SYS1.LINKLIB,DISP=SHR
//MYLOAD DD DSN=JZ1B0C.LOADLIB,DISP=SHR
//SYSIN DD *
LISTIDR DDN=MYLOAD,MEMBER=JZMEMBR
/*
//*

I got the date the program is compiled...

This is how the output
===

THIS LOAD MODULE WAS PRODUCED BY LINKAGE EDITOR 5695PMB01
AT LEVEL 01.08 ON DAY 239 OF YEAR 2007 AT 16:12:17

feellikeneo · New User Joined: 19 Mar 2007 Posts: 73 Location: Chennai

Hi Dude,
Your following code worked perfectly,

dbzTHEdinosauer · Posted: Thu Aug 30, 2007 2:31 pm

feellikeneo,

had you spent 2 minutes going thru the manual you would have found that

feellikeneo · New User Joined: 19 Mar 2007 Posts: 73 Location: Chennai

Hi Dick,

Yes. That would give me all modules in the data set..

But in my case, my dataset will contain 1000's of load modules and I have to pick some 200 modules. These 200 modules will be obtained from a REXX program (based on some criteria).

Thanks dude..

feellikeneo · New User Joined: 19 Mar 2007 Posts: 73 Location: Chennai

I just found some webpage related to this.

http://home.flash.net/~mzelden/mvsutil.html

I am going through this and keep you ppl posted if I strike something related to my requirement.

feellikeneo · New User Joined: 19 Mar 2007 Posts: 73 Location: Chennai

The above link that i gave contains some materials on CLIST.
I do not know how to interpret that.

Can anybody pls help

Cheers,
Neo

dbzTHEdinosauer · Posted: Fri Aug 31, 2007 6:11 pm

feellikeneo,

why don't you explain what the criteria is, or on what the criteria will be based, to determine which module you wish to extract the compile time info.

you started this thread with a bland question, then rejected any offers by continually rephrasing your requirements. Learn to ask questions intelligently. by this time most viewers of this thread are just waiting to see what new inanity you will come up with next.

feellikeneo · New User Joined: 19 Mar 2007 Posts: 73 Location: Chennai

sorry for not being clear..

I have 3 DSN containing the load modules. These three DSN does have some modules in common. Actually one DSN will be LOAD library, one DBRM lib and one more will be list of modules obtained from a SYSIBM table.

I will run a rexx macro to identify what are all the modules which is common in all the three DSN. Among the common one's I have to find the compile timestamp of those modules.

Hope I am clear now. Please let me know if u have any more questions

Sorry dbz...

CICS Guy · Posted: Mon Sep 03, 2007 4:28 pm

Geez.....

In the time you have spent trying to find an automatic REXX method, a quick pass of AMBLIST and sort would have given your answer (last Tuesday)......

feellikeneo · New User Joined: 19 Mar 2007 Posts: 73 Location: Chennai

good idea dude..
but i need some professional approach.. AMBLIST and SORT will obviously give results.. But my idea was to avoid the usage of JCL here..

William Thompson · Posted: Mon Sep 03, 2007 5:12 pm

Sometimes, the fastest solution comes from the crudest approach....

feellikeneo · New User Joined: 19 Mar 2007 Posts: 73 Location: Chennai

TG Murphy · Posted: Tue Sep 04, 2007 11:39 pm

This is not terribly helpful but I wrote a Rexx program a few years back that extracts the compile/date from the load module itself. Input to this utility is a load library and it will do all the modules in the library - or just a subset (ie. just those modules that start with ABC).

Works with BMS mapsets as well.

Useful utility.

The only problem with my solution is that it was reverse-engineered. I eyeballed the load module and figured out where to look. So - best I can say is that it works for our modules but perhaps not yours...

However - perhaps useful for you to know it can be done...

feellikeneo · New User Joined: 19 Mar 2007 Posts: 73 Location: Chennai

Hi Murphy,

Could you please provide me the REXX code that you used. May be I can see if I can tweak it and use it for mine.

Thanks a lot dude,

Cheers,
Neo