OOPS

Article View: bit.listserv.asm370

Article #1589

Back to bit.listserv.asm370 Previous Next

#1589

From: Peter Flass
Date: Tue, 31 Dec 1991 18:25

17 lines
1594 bytes

I forgot to engage my brain before peplying to the message requesting
code to get the reader start date and time. Hope this helps.
(control block displacements are for ESA 4.1.0)
TCBTCT  (TCB+x'A4') -> SMF Timing control table (TCT)
TCTJMR  (TCT+x'1C') -> Job management record (JMR)
I believe that the JMR entry time and date would be what you want.
JMRENTRY (JMR+x'08') - Entry time 1n 1/100's sec
JMREDATE (JMR+x'0C') - Entry date 0cYYDDDF
     - Pete

=====================================================================
= Peter Flass                               flass@nyslbd.gov        =
= Systems Programmer                        tel (518)458-5114       =
= NYS Legislative Bill Drafting Commission                          =
= 1450 Western Ave.                                                 =
= Albany, NY  12203                                                 =
=====================================================================

Technical Details

Message-ID: <ASM370%91123113092698@UCF1VM.BITNET>

Path: arc1-ca.pugleaf.net!gmdzi!ira.uka.de!yale.edu!jvnc.net!darwin.sura.net!paladin.american.edu!auvm!136.161.128.3!FLASS

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: fcdcb,b603ccb897b2fe2e,start
X-Google-Attributes: gidfcdcb,public
X-Google-ArrivalTime: 1991-12-31 10:25:48 PST
Path: arc1-ca.pugleaf.net!gmdzi!ira.uka.de!yale.edu!jvnc.net!darwin.sura.net!paladin.american.edu!auvm!136.161.128.3!FLASS
From: flass@136.161.128.3 (Peter Flass)
Newsgroups: bit.listserv.asm370
Subject: OOPS
Message-ID: <ASM370%91123113092698@UCF1VM.BITNET>
Date: 31 Dec 91 18:25:47 GMT
Sender: IBM 370 Assembly Programming Discussion List <ASM370@UGA.BITNET>
Lines: 17
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
Comments: To: ASM370%UCF1VM.BITNET@CUNYVM.CUNY.EDU