<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:st1="urn:schemas-microsoft-com:office:smarttags" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 11 (filtered medium)">
<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style>
<![endif]--><o:SmartTagType
namespaceuri="urn:schemas-microsoft-com:office:smarttags" name="country-region"/>
<o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags"
name="place"/>
<!--[if !mso]>
<style>
st1\:*{behavior:url(#default#ieooui) }
</style>
<![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
{font-family:"Copperplate Gothic Light";
panose-1:2 14 5 7 2 2 6 2 4 4;}
@font-face
{font-family:r_ansi;
panose-1:2 11 6 9 2 2 2 2 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;}
p
{mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
font-size:12.0pt;
font-family:"Times New Roman";}
span.EmailStyle18
{mso-style-type:personal-reply;
font-family:Arial;
color:blue;
font-weight:normal;
font-style:normal;
text-decoration:none none;}
@page Section1
{size:21.0cm 842.0pt;
margin:70.9pt 70.9pt 70.9pt 70.9pt;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=EN-US link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><font size=2 color=blue face=Arial><span style='font-size:
11.0pt;font-family:Arial;color:blue'>Hi John,<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Arial><span style='font-size:
11.0pt;font-family:Arial;color:blue'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Arial><span style='font-size:
11.0pt;font-family:Arial;color:blue'>In QTP, this routine will add a fraction
to a VMSdate temporary. The bit of Quiz helps to see what’s
happening with the timestamp. The samples run on VMS 7.10 G.<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>set proc lim 100<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>run TEST_RUN<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>glob temp G_TODAY vmsdate init
vmstimestamp<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>request TEST_DATE<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>access *eof_test<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>temp T_INCREMENT num<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>item T_INCREMENT init .000001<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>temp T_COUNT num<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>item T_COUNT count<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>temp T_STAMP vmsdate<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>item T_STAMP init
G_TODAY
&<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>
= date(T_INCREMENT, T_STAMP)<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>subfile date_test keep include
t_stamp, t_count<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>go<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Arial><span style='font-size:
11.0pt;font-family:Arial;color:blue'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Arial><span style='font-size:
11.0pt;font-family:Arial;color:blue'>QUIZ:_<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>acc *date_test<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>sho ite<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>define d_time num =
dateextract(t_stamp, time)<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>report t_stamp d_time pic
'^^:^^:^^.^^^' t_count pic '^^^'<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>go<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Arial><span style='font-size:
11.0pt;font-family:Arial;color:blue'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Arial><span style='font-size:
11.0pt;font-family:Arial;color:blue'>Results:-<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Arial><span style='font-size:
11.0pt;font-family:Arial;color:blue'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'>
T_STAMP D_TIME
T_COUNT<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'> 16/08/2005
6:50:20.940 1<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'> 16/08/2005
6:50:21.020 2<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'> 16/08/2005
6:50:21.100 3<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'> 16/08/2005
6:50:21.180 4<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'> 16/08/2005
6:50:21.260 5<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'> 16/08/2005
6:50:21.340 6<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'> 16/08/2005
6:50:21.420 7<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'> 16/08/2005
6:50:21.500 8<o:p></o:p></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="r_ansi"><span
style='font-size:10.0pt;font-family:r_ansi'> 16/08/2005
6:50:21.580 9<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Arial><span style='font-size:
11.0pt;font-family:Arial;color:blue'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Arial><span style='font-size:
11.0pt;font-family:Arial;color:blue'>The size of the increment can be tuned to
give smaller or intervals.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Arial><span style='font-size:
11.0pt;font-family:Arial;color:blue'><o:p> </o:p></span></font></p>
<div>
<p class=MsoNormal><font size=2 color=blue face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:blue'>Regards,</span></font><font color=blue><span
style='color:blue'><o:p></o:p></span></font></p>
<p class=MsoNormal><font size=3 color=blue face="Times New Roman"><span
style='font-size:12.0pt;color:blue'> <o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 color=blue face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:blue'>Derek Fyfield</span></font><font
color=blue><span style='color:blue'><o:p></o:p></span></font></p>
<p class=MsoNormal><st1:country-region w:st="on"><st1:place w:st="on"><font
size=1 color=maroon face="Copperplate Gothic Light"><span style='font-size:
7.5pt;font-family:"Copperplate Gothic Light";color:maroon'>Bahrain</span></font></st1:place></st1:country-region><font
size=1 color=maroon face="Copperplate Gothic Light"><span style='font-size:
7.5pt;font-family:"Copperplate Gothic Light";color:maroon'> HO </span></font><font
color=blue><span style='color:blue'><o:p></o:p></span></font></p>
<p class=MsoNormal><font size=1 color=maroon face="Copperplate Gothic Light"><span
style='font-size:7.5pt;font-family:"Copperplate Gothic Light";color:maroon'>SMS
Development & Report Writing</span></font><font color=blue><span
style='color:blue'><o:p></o:p></span></font></p>
<p class=MsoNormal><font size=1 color=maroon face="Copperplate Gothic Light"><span
style='font-size:7.5pt;font-family:"Copperplate Gothic Light";color:maroon'>x3718</span></font><o:p></o:p></p>
</div>
<div>
<div class=MsoNormal align=center style='text-align:center'><font size=3
face="Times New Roman"><span style='font-size:12.0pt'>
<hr size=2 width="100%" align=center tabindex=-1>
</span></font></div>
<p class=MsoNormal><b><font size=2 face=Tahoma><span style='font-size:10.0pt;
font-family:Tahoma;font-weight:bold'>From:</span></font></b><font size=2
face=Tahoma><span style='font-size:10.0pt;font-family:Tahoma'> John Stires
[mailto:pencarver@sbcglobal.net] <br>
<b><span style='font-weight:bold'>Sent:</span></b> Monday, August 15, 2005 6:12
PM<br>
<b><span style='font-weight:bold'>To:</span></b> powerh-l@lists.sowder.com<br>
<b><span style='font-weight:bold'>Subject:</span></b> Modifying a VMSTIMESTAMP
in a field</span></font><o:p></o:p></p>
</div>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'><o:p> </o:p></span></font></p>
<div>
<div>
<p><font size=2 color=blue face="Times New Roman"><span style='font-size:10.0pt;
color:blue'>Due to a system problem, a number of records were not created when
they should have been created. Now we are trying to create
these missing records for that date that have a time stamp for
that day. The value normally placed in that field is VMSTIMESTAMP which
is normally never manipulated or displayed. When we went with the
VMSTIMESTAMP value field, I told my boss that we would never be able to look at
it or manipulate it; all it would do was to force records into a
chronological order and make the indexes unique. To that end, we are
having only minor duplicate problems that we are handling during the batch
process that creates these records.<o:p></o:p></span></font></p>
<p><font size=2 color=blue face="Times New Roman"><span style='font-size:10.0pt;
color:blue'>Now, we have a number of records to create, in the hundreds, but
need to have an appropriate value for the VMSTIMESTAMP for a day in the past.
We can take another record containing a time stamp for that day. So far so
good. Then if we could increment the time component by some
value, we do not care what, so long as it ends up still for that day
and we are not creating duplicate indexed records...a bad thing to do with
unique indexes. I know that the smallest increment coming out of a VMSTIMESTAMP
is 100th of a second, but what do I have to add to be in that ball park
is the question.<o:p></o:p></span></font></p>
<p><font size=2 color=blue face="Times New Roman"><span style='font-size:10.0pt;
color:blue'>Does anyone have anything in their bag of tricks that you can
come up with that may be of some help??? We are running on OpenVMS
6.2 with 7.10e6 PowerHouse with an RDB database.<o:p></o:p></span></font></p>
<p><font size=2 color=blue face="Times New Roman"><span style='font-size:10.0pt;
color:blue'>Thanks for any help anyone can give.<o:p></o:p></span></font></p>
<p><font size=2 color=blue face="Times New Roman"><span style='font-size:10.0pt;
color:blue'>John<o:p></o:p></span></font></p>
</div>
</div>
</div>
</body>
</html>
<BR>
<BR>
<P><I><FONT SIZE=2 FACE="Arial">This message and any attachments (the 'message') is intended solely for the addressees and is confidential. If you receive this message in error, please delete it and immediately notify the sender. Any use not in accord with its purpose, any dissemination or disclosure, either whole or partial, is prohibited, except with formal approval. The Internet cannot guarantee the integrity of this message. Orbit (and its subsidiaries) shall therefore not be liable for the message, if modified. Orbit accepts no liability for any damage caused by any error or virus transmitted by this email.</FONT></I></P>
<BR>
<BR>