On 1/9/2012 4:03 PM, Paul Gilmartin wrote:
On 1/9/2012 3:43 PM, Steve Comstock wrote:
So, I guess the sequence is:
slgr R3,R5
slbgr R2,R4
and, again, I can store the value into one of the
16 byte areas I have allocated, for example:
stmg R2,R3,datetimen
then call CONVTOD, something like:
convtod convval=datetimen,etodval=twork, x
timetype=dec,datetype=yyyymmdd
but does this really return an interval?
I think you want STCKCONV, the inverse of CONVTOD. But that's
meaningful only if you consider all intervals as beginning on
January 1, 1900.
-- gil
Hmmm. I don't mind the intervals beginning at 1/1/1900: they
will all be quite short and be in a single run of a program.
The general logic is:
TIME STCKE
( time stcke,datetimes,linkage=system,mf=(e,tlist) )
STCKCONV 'time' output into 'timestart'
( stckconv stckeval=datetimes,convval=timestart,timetype=dec, x
datetype=yyyymmdd,mf=(e,slist) )
.
.
.
TIME STCKE
( time stcke,datetimen,linkage=system,mf=(e,tlist) )
STCKCONV 'time' output into 'timeend'
( stckconv stckeval=datetimen,convval=timeend,timetype=dec, x
datetype=yyyymmdd,mf=(e,slist) )
calculate interval:
( lmg R2,R5,datetimen pick up end times then start times
slgr R3,R5
slbgr R2,R4
stmg R2,R3,datetimen )
convert interval to format for editing:
( convtod convval=datetimen,etodval=timestart,timetype=dec, x
datetype=yyyymmdd,mf=(e,clist) )
There's some edit work at various points, but this seems to be
working fine. I was using Convtod based on an earlier thread
on this list.
--
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-355-2752
http://www.trainersfriend.com
* To get a good Return on your Investment, first make an investment!
+ Training your people is an excellent investment
* Try our tool for calculating your Return On Investment
for training dollars at
http://www.trainersfriend.com/ROI/roi.html
