how to get Timestamp on load through REXX.



IBM's Command List programming language & Restructured Extended Executor

how to get Timestamp on load through REXX.

Postby Sohail_s » Fri Aug 17, 2012 10:57 am

Hi All,

I have a requirement to get the Timestamp from a load Module.

I got it with the AMBLIST REXX command.

ADDRESS TSO ,
"ALLOC FI(LOAD) DSORG(PO) SHR DSNAME"'('"'"inpds4"("newstr')'"'"')'
ADDRESS TSO ,
"ALLOC FI(SYSIN) NEW SPA(1,1) TR REUSE "
ADDRESS TSO ,
"ALLOC FI(SYSPRINT) NEW SPA(1,1) CYL REUSE"
DROP CTRL.
CTRL.1 = " LISTLOAD DDN=LOAD,MEMBER="newstr",OUTPUT=XREF "
CTRL.0 = 1
ADDRESS TSO,
"EXECIO * DISKW SYSIN (FINIS STEM CTRL."
ADDRESS LINKMVS "AMBLIST"

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sysprint collected from AMBLIST is as below.

000026 ***THE FOLLOWING ARE THE UNFORMATTED PDSE DIRECTORY ENTRY SECTIONS (PMAR AND PMARL)
000027 PMAR 001E0209 C2C00C12 00000000 1EB80000 00000000 00000000 00000000 0000
000028 PMARL 00520040 00000000 00070000 1EB80000 10000000 11A80000 54980000 01B40000
000029 01400000 00240000 011C0000 00070000 02F40001 00000000 1EB80000 00000000
000030 00002012 180F0182 447FC4F2 F8F4F0F2 F4C3
000031 0THIS PROGRAM OBJECT WAS ORIGINALLY PRODUCED BY 5695PMB01 AT LEVEL 01.12 ON 06/28/2012 AT 18:24:47
000032 0-----------------------------------------------------------------------------------------------------------------------------------------------

From the SYSPRINT i collected the TS on Line no 31. i found that actual TS (20120628182446040200) in the LOAD is one scond more than i got with AMBLIST.
I believe the TS which i got is the TS of Object module and not a Load module. So AMBLIST is used to get the object module TS? if so is there any utility to get the Load module TS.

Also the SYSPRINT is not same for all LOAD modules, in few i didn't found the TS at all.

Is there any other utility to get the TS from LOAD. your help will be much appreciated.

Thanks
Sohail_s
 
Posts: 2
Joined: Fri Aug 17, 2012 7:58 am
Has thanked: 0 time
Been thanked: 0 time

Re: how to get Timestamp on load through REXX.

 

Re: how to get Timestamp on load through REXX.

Postby steve-myers » Fri Aug 17, 2012 11:42 am

There is no time of day as an object deck attribute. Many compilers insert the time of day as text into the binary text, but this is not recognized by AMBLIST.

The load module time of day used by AMBLIST was not stored in the load module IDR data until some time in the 1990s when the Binder effectively replaced the Linkage Editor. Load modules created before this change, as well as load modules created by the old Linkage Editor (yes, it's still available!) do not have the time of day they were linked in the load module.
steve-myers
Global moderator
 
Posts: 1885
Joined: Thu Jun 03, 2010 6:21 pm
Has thanked: 4 times
Been thanked: 197 times


Return to CLIST & REXX

 


  • Related topics
    Replies
    Views
    Last post