IBM Mainframe Forum

Can anyone tell me how can i retrieve the timestamp of members in a given loadlibrary?

This webpage provides a lot of details for what you're looking for. Maybe you can write your process based on this information?

But What I need to do in my rexx exec is ask as input the name of loadlib then open each of the programs in that loadlib in browse mode and retrieve the timestamp and generate a report in flat file displaying program/memname and its corresponding timestamp. Now my problem is how do I retrieve the timestamp after I open the member in browse mode.

Hello,

Suggest you look into using AMBLIST.

My link shows how to use AMBLIST, and ISPF, to find the timestamp.

Why is it necessary to open the loadlib member with an ISPF Browse function first (something you failed to mention originally)? You seem to already know that you can't run an ISPF Edit macro against a dataset in Browse mode.

I tried amblist in my rexx exec. Thanks...that works.

I could get the details of amblist at http://publib.boulder.ibm.com/infocente ... amblst.htm. But when I am trying to run it through the rexx I am getting below error. Can some one tell me if this utility is available by default to use . If not How can I use it.Thanks.

Below is my rexx program:
ADDRESS TSO
"ALLOC FI(LOAD) DSORG(PO) SHR DSNAME('"testid.uat.LOAD"')"
"aLLOC FI(SYSIN) NEW SPA(1,1) TR REUSE "
"ALLOC FI(SYSPRINT) NEW SPA(1,1) CYL REUSE"

DROP CTRL.
CTRL.1 = " LISTLOAD DDN=LOAD,MEMBER="CONV1A1",OUTPUT=XREF "
CTRL.0 = 1
"EXECIO * DISKW SYSIN (FINIS STEM CTRL"
ADDRESS LINKMVS "AMBLIST"
/* "ADDRESS ISPEXEC "SELECT PGM(AMBLIST)"" */
/* "ISPEXEC SELECT PGM(AMBLIST)" */
ADDRESS TSO
"EXECIO * DISKR SYSPRINT(FINIS STEM AMBLINE. "





Error:
13 *-* ADDRESS LINKMVS "AMBLIST"
>>> "AMBLIST"
IEC141I 013-34,IGG0191I,Userid,LOGISPF,SYSIN,VIO , ,SYS10350.T153839.RA00
0.Userid.R0100013
System abend code 013, reason code 00000052.
Abend in host command AMBLIST or address environment routine LINKMVS.
IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=013 REASON CODE=00000034

Hello,

Did you read about the 013-34 or the iec141i?

Look here:
http://publibz.boulder.ibm.com/cgi-bin/ ... 2m791/3.69

I don't know if rexx can handle recfm=u datasets. Loadlibs are recfm=u.

Run amblist in batch.

Did you look up the S013-34 abend code in the manual (hint: check the IEC141 message).

I always submit a batch job to get the AMBLIST output.

The issue here is the SYSIN data set appears to have some combination of DCB attributes that data management can't handle. The manual is not very helpful about disclosing the exact problem. While you can run AMBLIST in your TSO session, interpreting its output using Rexx to read through the SYSPRINT data set from AMBLIST will not be very easy. I wold suggest you use the LISTIDR command, not the LISTLOAD command, in AMBLIST, too.