Julian date (Chuck Lowe)

Tue Mar 16 12:21:07 CDT 2010

Thanks Ken. 
 I'm sure we'll be on the HP until were dragged kicking and screaming.
The other sites in our company are on a different platform , vendor and
different language all together. But I do heed you comment about OS
portability.  

-----Original Message-----
From:
powerh-l-bounces+chuck.j.lowe=questdiagnostics.com at lists.sowder.com
[mailto:powerh-l-bounces+chuck.j.lowe=questdiagnostics.com at lists.sowder.
com] On Behalf Of powerh-l-request at lists.sowder.com
Sent: Tuesday, March 16, 2010 1:00 PM
To: powerh-l at lists.sowder.com
Subject: powerh-l Digest, Vol 58, Issue 15

Send powerh-l mailing list submissions to
	powerh-l at lists.sowder.com

To subscribe or unsubscribe via the World Wide Web, visit
	http://lists.sowder.com/mailman/listinfo/powerh-l
or, via email, send a message with subject or body 'help' to
	powerh-l-request at lists.sowder.com

You can reach the person managing the list at
	powerh-l-owner at lists.sowder.com

When replying, please edit your Subject line so it is more specific than
"Re: Contents of powerh-l digest..."

Today's Topics:

   1. RE:Julian date (Ken Langendock)

----------------------------------------------------------------------

Message: 1
Date: Mon, 15 Mar 2010 13:03:33 -0400
From: "Ken Langendock" <ken.langendock at rogers.com>
Subject: RE: Julian date
To: <powerh-l at lists.sowder.com>
Message-ID: <004601cac461$7237ece0$56a7c6a0$@langendock at rogers.com>
Content-Type: text/plain; charset="us-ascii"

The problem with using an HP system variable is the code becomes
non-portable.

If you are planning on porting this application down the road at any
time.I suggest NOT using any O/S variables.

Ken

From: powerh-l-bounces+ken.langendock=rogers.com at lists.sowder.com
[mailto:powerh-l-bounces+ken.langendock=rogers.com at lists.sowder.com] On
Behalf Of Lowe, Chuck J
Sent: March 15, 2010 12:36 PM
To: Pickering, John (NORBORD); Ken at Langendock.com;
powerh-l at lists.sowder.com
Subject: [Bulk] RE: [Bulk] Julian date

Thanks guys. 

John, I'm going with Ken's version.  I need the actual Julian day, 074
for today's date. His solution gives me that in D-CurrentDay.  

The option you give is for reporting only.  I need to store it in a
batch header record with QTP. 

Unless you can tell me how to do that in your version. 

Either way, I appreciate both answers. 

PS.  Just found out there is a system variable set   HPDOY that will
also
give me it. 

GLO TEMP JULIAN-DAY     ZON*03 INIT NCON(GETSYSTEMVAL("HPDOY")[1:3])

  _____  

From: Pickering, John (NORBORD) [mailto:John.Pickering at norbord.com]
Sent: Monday, March 15, 2010 11:18 AM
To: Ken at Langendock.com; Lowe, Chuck J; powerh-l at lists.sowder.com
Subject: RE: [Bulk] Julian date

There is likely no need for Ken's complicated conversion logic!

Just define your date item as type "jdate" and Powerhouse will convert
to Julian format. If you are converting from a century included date
then you'll need to use the removecentury function. As in:

>define d-julian-date jdate = removecentury(sysdate)

>report sysdate d-julian-date format yyddd

Note that any date may be displayed in any format. Even a jdate will be
displayed in the dictionary's default format so you'll probably need to
include the format option.

JWP

  _____  

From: powerh-l-bounces+john.pickering=norbord.com at lists.sowder.com
[mailto:powerh-l-bounces+john.pickering=norbord.com at lists.sowder.com] On
Behalf Of Ken Langendock
Sent: Monday, March 15, 2010 11:12 AM
To: 'Lowe, Chuck J'; powerh-l at lists.sowder.com
Subject: RE: [Bulk] Julian date

Try this

; Julian Date Calculations

  DEFINE D-CurrentYY CHARACTER * 2 &

       = ASCII(SYSDATE,8)[3:2]

  DEFINE D-JanuaryFirst DATE &

       = NCONVERT(ASCII(SYSDATE,8)[1:4] + "0101")

  DEFINE D-CurrentDay CHARACTER * 3 &

       = ASCII(DAYS(SYSDATE) &

       - DAYS(D-JanuaryFirst) + 1,3)

  DEFINE D-JulianDate CHARACTER * 5 &

       = D-CurrentYY &

       + D-CurrentDay

From: powerh-l-bounces+ken.langendock=rogers.com at lists.sowder.com
[mailto:powerh-l-bounces+ken.langendock=rogers.com at lists.sowder.com] On
Behalf Of Lowe, Chuck J
Sent: March 15, 2010 10:59 AM
To: powerh-l at lists.sowder.com
Subject: [Bulk] Julian date

I must be having a bad day.  Can anyone give me the code to find out the
Julian date for a day .  I.e. February 2nd would be 33.  In QTP would be
preferable. 

Thanks!

Please think about resource conservation before you print this message

------------------------------------------
The contents of this message, together with any attachments, are
intended only for the use of the person(s) to which they are addressed
and may contain confidential and/or privileged information. Further, any
medical information herein is confidential and protected by law. It is
unlawful for unauthorized persons to use, review, copy, disclose, or
disseminate confidential medical information. If you are not the
intended recipient, immediately advise the sender and delete this
message and any attachments.
Any distribution, or copying of this message, or any attachment, is
prohibited. 

No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 9.0.733 / Virus Database: 271.1.1/2748 - Release Date: 03/15/10
03:33:00

------------------------------------------
The contents of this message, together with any attachments, are
intended only for the use of the person(s) to which they are addressed
and may contain confidential and/or privileged information. Further, any
medical information herein is confidential and protected by law. It is
unlawful for unauthorized persons to use, review, copy, disclose, or
disseminate confidential medical information. If you are not the
intended recipient, immediately advise the sender and delete this
message and any attachments.
Any distribution, or copying of this message, or any attachment, is
prohibited. 

No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 9.0.733 / Virus Database: 271.1.1/2748 - Release Date: 03/15/10
03:33:00

-------------- next part --------------
An HTML attachment was scrubbed...
URL:
http://lists.sowder.com/pipermail/powerh-l/attachments/20100315/3e4a7bfd
/attachment.html 

------------------------------

--
= = = = = = = = = = = = = = = = = = = = = = = = = = = = Mailing list:
powerh-l at lists.sowder.com
Subscribe: &quot;subscribe&quot; in message body to
powerh-l-request at lists.sowder.com
Unsubscribe: &quot;unsubscribe &lt;password&gt;&quot; in message body to
powerh-l-request at lists.sowder.com
http://lists.sowder.com/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.
Add 'site:lists.sowder.com powerh-l' to your search terms to search the
list archive at Google.

End of powerh-l Digest, Vol 58, Issue 15
****************************************
------------------------------------------
The contents of this message, together with any attachments, are
intended only for the use of the person(s) to which they are
addressed and may contain confidential and/or privileged
information. Further, any medical information herein is
confidential and protected by law. It is unlawful for unauthorized
persons to use, review, copy, disclose, or disseminate confidential
medical information. If you are not the intended recipient,
immediately advise the sender and delete this message and any
attachments. Any distribution, or copying of this message, or any
attachment, is prohibited.