Re: CONVTOD Help

2017-04-21 Thread Peter Relson
>They don't help. They also add an >astonishment factor if you ever end up in AR mode. Actually, for references in the primary address space, index register notation provides an opportunity for better performance because it does not require setting of the corresponding AR. But for clarity, the m

Re: CONVTOD Help

2017-04-20 Thread Pieter Wiid
t: Thursday, April 20, 2017 3:56 PM To: ASSEMBLER-LIST@LISTSERV.UGA.EDU Subject: Re: CONVTOD Help On 2017-04-20, at 14:14, Charles Mills wrote: > Is this routine run millions of times? Is performance important? If so > > LAR4,THATCLOK Address save area > LG

Re: CONVTOD Help

2017-04-20 Thread Martin Truebner
>> Yes, if you really wanted to make life H3ll on your successors you could use and if the 16 regs are not enough you could equate to another set like this R1 EQU 5 R2 EQU 8 and so on and (opending the exptra pack): R17 EQU 4

Re: CONVTOD Help

2017-04-20 Thread Charles Mills
ISTSERV.UGA.EDU Subject: Re: CONVTOD Help On 2017-04-20, at 17:22, Charles Mills wrote: > Not sure what your question is? > > - Does using index registers as opposed to base registers hurt performance? > Maybe. Who knows anymore. "It depends." They don't help. They also a

Re: CONVTOD Help

2017-04-20 Thread Paul Gilmartin
On 2017-04-20, at 17:22, Charles Mills wrote: > Not sure what your question is? > > - Does using index registers as opposed to base registers hurt performance? > Maybe. Who knows anymore. "It depends." They don't help. They also add an > astonishment factor if you ever end up in AR mode. > Oops

Re: CONVTOD Help

2017-04-20 Thread Charles Mills
y, April 20, 2017 3:56 PM To: ASSEMBLER-LIST@LISTSERV.UGA.EDU Subject: Re: CONVTOD Help On 2017-04-20, at 14:14, Charles Mills wrote: > Is this routine run millions of times? Is performance important? If so > > LAR4,THATCLOK Address save area > LGGR7,0(R4)

Re: CONVTOD Help

2017-04-20 Thread Farley, Peter x23353
cate it is unused. Peter -Original Message- From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On Behalf Of Paul Gilmartin Sent: Thursday, April 20, 2017 6:56 PM To: ASSEMBLER-LIST@LISTSERV.UGA.EDU Subject: Re: CONVTOD Help On 2017-04-20, at 14:14, Charles Mills

Re: CONVTOD Help

2017-04-20 Thread Paul Gilmartin
On 2017-04-20, at 14:14, Charles Mills wrote: > Is this routine run millions of times? Is performance important? If so > > LAR4,THATCLOK Address save area > LGGR7,0(R4)Load address into 64 bit register > > is doing things the hard way. Why not just LG GR7,THATCLOK? S

Re: CONVTOD Help

2017-04-20 Thread Ward, Mike S
Will follow your recommendations. Thanks -Original Message- From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On Behalf Of Charles Mills Sent: Thursday, April 20, 2017 3:15 PM To: ASSEMBLER-LIST@LISTSERV.UGA.EDU Subject: Re: CONVTOD Help Is this routine run

Re: CONVTOD Help

2017-04-20 Thread Charles Mills
: ASSEMBLER-LIST@LISTSERV.UGA.EDU Subject: Re: CONVTOD Help You don't need to clear R6 before doing DSGR. That's the whole point of the SINGLE Pieter -Original Message- From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On Behalf Of Ward, Mike S Sent

Re: CONVTOD Help

2017-04-20 Thread Pieter Wiid
ubject: Re: CONVTOD Help Thanks for the help everyone. I used a combination of Tony's, Peter's, and Aldo's routines to do my routine. It also led me to do further study of these instructions in the poop. I believe this is working. STCKE THATCLOK LAR4,TH

Re: CONVTOD Help

2017-04-20 Thread Ward, Mike S
15GR64 -Original Message- From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On Behalf Of Tony Harminc Sent: Monday, April 10, 2017 11:09 AM To: ASSEMBLER-LIST@LISTSERV.UGA.EDU Subject: Re: CONVTOD Help On 10 April 2017 at 11:38, Ward, Mike S wrote: > H

Re: OT CONVTOD Help

2017-04-12 Thread John McKown
On Wed, Apr 12, 2017 at 2:00 PM, Paul Gilmartin < 0014e0e4a59b-dmarc-requ...@listserv.uga.edu> wrote: > On 2017-04-12, at 11:36, John McKown wrote: > > > > IBM needs to implement the "industry standard" Olson time zone > processing. > > https://en.wikipedia.org/wiki/Tz_database > > > z/OS and

Re: OT CONVTOD Help

2017-04-12 Thread Paul Gilmartin
On 2017-04-12, at 11:36, John McKown wrote: > > IBM needs to implement the "industry standard" Olson time zone processing. > https://en.wikipedia.org/wiki/Tz_database > z/OS and z/VM seem to harbor significant NIH rancor toward Olson. -- gil

Re: OT CONVTOD Help

2017-04-12 Thread Gary Weinhold
I think this follow-on discussion is what makes this a good SHARE topic. There must be others that struggle with this and are not aware of all the inconsistencies in support/tools. Gary Weinhold Senior Application Architect DATAKINETICS | Data Performance & Optimization Phone: +1.613.523.55

Re: OT CONVTOD Help

2017-04-12 Thread Paul Gilmartin
On 2017-04-12, at 11:27, Farley, Peter x23353 wrote: > And one could also ask for full support of and regular automatic updates of > the tz database, which AFAIK is not present at all in z/OS Unix. > It's there in Java. Only. But updates are not automatic; the sysadmin must run a utility. Wo

Re: OT CONVTOD Help

2017-04-12 Thread John McKown
1:17 PM > To: ASSEMBLER-LIST@LISTSERV.UGA.EDU > Subject: Re: OT CONVTOD Help > > On 2017-04-12, at 10:41, esst...@juno.com wrote: > > > Should this be a topic for SHARE ? > > A Share presentation discussing time/date manipulation STCK, STCKE, > CONVTOD, etc. ? > > &g

Re: OT CONVTOD Help

2017-04-12 Thread Farley, Peter x23353
, April 12, 2017 1:17 PM To: ASSEMBLER-LIST@LISTSERV.UGA.EDU Subject: Re: OT CONVTOD Help On 2017-04-12, at 10:41, esst...@juno.com wrote: > Should this be a topic for SHARE ? > A Share presentation discussing time/date manipulation STCK, STCKE, CONVTOD, > etc. ? > The conspic

Re: OT CONVTOD Help

2017-04-12 Thread Paul Gilmartin
On 2017-04-12, at 10:41, esst...@juno.com wrote: > Should this be a topic for SHARE ? > A Share presentation discussing time/date manipulation STCK, STCKE, CONVTOD, > etc. ? > The conspicuous lack in STCKCONV and CONVTOD (and Rexx) is support for timezones. -- gil

OT CONVTOD Help

2017-04-12 Thread esst...@juno.com
Should this be a topic for SHARE ? A Share presentation discussing time/date manipulation STCK, STCKE, CONVTOD, etc. ? -- Original Message -- From: Paul Gilmartin <0014e0e4a59b-dmarc-requ...@listserv.uga.edu> To: ASSEMBLER-LIST@LISTSERV.UGA.EDU Subject: Re: CONVTOD Hel

Re: CONVTOD Help

2017-04-11 Thread Farley, Peter x23353
M To: ASSEMBLER-LIST@LISTSERV.UGA.EDU Subject: Re: CONVTOD Help On 2017-04-11, at 15:48, Farley, Peter x23353 wrote: > A shorter approach would be to use the actual 1970-01-01 00:00:00 epoch date > in STCKE format: > > X'007D91048BCA' > > Subtract that value from th

Re: CONVTOD Help

2017-04-11 Thread Paul Gilmartin
On 2017-04-11, at 15:48, Farley, Peter x23353 wrote: > A shorter approach would be to use the actual 1970-01-01 00:00:00 epoch date > in STCKE format: > > X'007D91048BCA' > > Subtract that value from the first 64 bits of STCKE and then divide by > F'160' to get seconds since the Unix e

Re: CONVTOD Help

2017-04-11 Thread Farley, Peter x23353
GA.EDU] On Behalf Of aldo.cro...@csebo.it Sent: Tuesday, April 11, 2017 7:19 AM To: ASSEMBLER-LIST@LISTSERV.UGA.EDU Subject: Rif: Re: Rif: Re: CONVTOD Help the value: X1972DC XL8'0008126D60E46000' taken from POP v2.2 pdf pag 7-315 (shifted right 12 bits) A1970DC FL8&#

Rif: Re: Rif: Re: CONVTOD Help

2017-04-11 Thread aldo . crosio
the value: X1972DC XL8'0008126D60E46000' taken from POP v2.2 pdf pag 7-315 (shifted right 12 bits) A1970DC FL8'6307200' 2*365*24*60*60 number of seconds between 1970-01-01-00: 00: 00 and 1972-01-01-00: 00: 00 the routine is reentrant, works without a base register and has n

Rif: Re: Rif: Re: CONVTOD Help

2017-04-11 Thread aldo . crosio
IBM Mainframe Assembler List scritti il 11/04/2017 12:21:31 > Keven Hall > Inviato da: IBM Mainframe Assembler List > > 11/04/2017 12:21 > > Per favore, rispondere a > IBM Mainframe Assembler List > > Per > > ASSEMBLER-LIST@LISTSERV.UGA.EDU, > > CC >

Re: Rif: Re: CONVTOD Help

2017-04-11 Thread Keven Hall
Taking no chances with the second Program Return, eh? K3n > On Apr 11, 2017, at 02:38, aldo.cro...@csebo.it wrote: > > > example Cobol program that calls a routine. > the routine returns a field containing two subfields (binary of 64 bits) > that contain the seconds since 01.01.1972 (the fir

Rif: Re: CONVTOD Help

2017-04-11 Thread aldo . crosio
example Cobol program that calls a routine. the routine returns a field containing two subfields (binary of 64 bits) that contain the seconds since 01.01.1972 (the first) and from 01.01.1979 (the second). IDENTIFICATION DIVISION. PROGRAM-ID.PRd1970. ENVIRONMENTDIVISI

Re: CONVTOD Help

2017-04-10 Thread Paul Gilmartin
On 2017-04-10, at 10:08, Tony Harminc wrote: > ... > STCK DWORD S/370 clock in IBM TOD units (bit 51 = 1uS) > LMR14,R15,DWORD TOD CLOCK UNITS in R14,R15 > SRDL R14,12 MICROSECONDS SINCE JAN 1, 1900 > ... > Of course the

Re: CONVTOD Help

2017-04-10 Thread Paul Gilmartin
On 2017-04-10, at 10:15, Ward, Mike S wrote: > > ... If you want to have truly accurate results, including all the leap > seconds baggage (Hi Gil), ... > And that depends on your notion of "truly accurate". If you want physical time, *ignore* CVTLSO. If you want IT-style time, subtract CVTLSO.

Re: CONVTOD Help

2017-04-10 Thread Ward, Mike S
Thanks you so much. -Original Message- From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On Behalf Of Tony Harminc Sent: Monday, April 10, 2017 11:09 AM To: ASSEMBLER-LIST@LISTSERV.UGA.EDU Subject: Re: CONVTOD Help On 10 April 2017 at 11:38, Ward, Mike S wrote

Re: CONVTOD Help

2017-04-10 Thread Ward, Mike S
January 1, 1970 00:00:00 GMT -Original Message- From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On Behalf Of Paul Gilmartin Sent: Monday, April 10, 2017 10:57 AM To: ASSEMBLER-LIST@LISTSERV.UGA.EDU Subject: Re: CONVTOD Help On 2017-04-10, at 09:38, Ward, Mike

Re: CONVTOD Help

2017-04-10 Thread Tony Harminc
On 10 April 2017 at 11:38, Ward, Mike S wrote: > Hello, list friends. I was wondering if one of you could give me a little help with a time problem that I have not been able to solve. I have the need to provide the number of seconds since 1970 for a project that I'm working on. I have been using a

Re: CONVTOD Help

2017-04-10 Thread Ward, Mike S
Thanks to all who replied. It has given me plenty to research. Thank you. -Original Message- From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On Behalf Of Ward, Mike S Sent: Monday, April 10, 2017 10:39 AM To: ASSEMBLER-LIST@LISTSERV.UGA.EDU Subject: CONVTOD

Re: CONVTOD Help

2017-04-10 Thread Gary Weinhold
Right, my mistake (at least I got the number of bits correct)... Gary Weinhold Senior Application Architect DATAKINETICS | Data Performance & Optimization Phone: +1.613.523.5500 x216 Email: weinh...@dkl.com [http://www.dkl.com/wp-content/uploads/2015/07/dkl_logo.png]

Re: CONVTOD Help

2017-04-10 Thread Paul Gilmartin
On 2017-04-10, at 09:55, Gary Weinhold wrote: > Also in the PoOP, the doubleword stored by STCK, when shifted right logically > by 3 bytes is a binary value in microseconds. ... > ITYM 3 nybbles. -- gil

Re: CONVTOD Help

2017-04-10 Thread Paul Gilmartin
On 2017-04-10, at 09:38, Ward, Mike S wrote: > Hello, list friends. I was wondering if one of you could give me a little > help with a time problem that I have not been able to solve. I have the need > to provide the number of seconds since 1970 for a project that I'm working > on. I have been

Re: CONVTOD Help

2017-04-10 Thread Gary Weinhold
Also in the PoOP, the doubleword stored by STCK, when shifted right logically by 3 bytes is a binary value in microseconds. So loaded in a pair of registers and shift right double logical by 12 bits gives you a value from which you can subtract the TOD in microseconds of 1970. Note that the S

Re: CONVTOD Help

2017-04-10 Thread Martin Truebner
POP (the book of books) has that number for certain dates based on 1900- you should be able to use that (I checked it has 1.1. 1972) and the value for two years Martin

CONVTOD Help

2017-04-10 Thread Ward, Mike S
Hello, list friends. I was wondering if one of you could give me a little help with a time problem that I have not been able to solve. I have the need to provide the number of seconds since 1970 for a project that I'm working on. I have been using a combination of the STCK and the CONVTOD to try