- Community Home
- >
- Servers and Operating Systems
- >
- Operating Systems
- >
- Operating System - OpenVMS
- >
- DCL Question
Categories
Company
Local Language
Forums
Discussions
Forums
- Data Protection and Retention
- Entry Storage Systems
- Legacy
- Midrange and Enterprise Storage
- Storage Networking
- HPE Nimble Storage
Discussions
Discussions
Discussions
Forums
Forums
Discussions
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
- BladeSystem Infrastructure and Application Solutions
- Appliance Servers
- Alpha Servers
- BackOffice Products
- Internet Products
- HPE 9000 and HPE e3000 Servers
- Networking
- Netservers
- Secure OS Software for Linux
- Server Management (Insight Manager 7)
- Windows Server 2003
- Operating System - Tru64 Unix
- ProLiant Deployment and Provisioning
- Linux-Based Community / Regional
- Microsoft System Center Integration
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Community
Resources
Forums
Blogs
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО04-11-2008 09:26 AM
тАО04-11-2008 09:26 AM
Solved! Go to Solution.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО04-11-2008 09:33 AM
тАО04-11-2008 09:33 AM
Re: DCL Question
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО04-11-2008 09:34 AM
тАО04-11-2008 09:34 AM
Re: DCL Question
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО04-11-2008 10:02 AM
тАО04-11-2008 10:02 AM
Re: DCL Question
$ week = 0
$ this_month = f$cvtime(,,"MONTH")
$loop:
$ week = week + 1
$ days = week * 7
$ if this_month.eqs.f$cvtime("-''days'-",,"MONTH") then goto loop
$ write sys$output "Today is ", f$cvtime(,,"WEEKDAY"), " number : ", week
$ exit
hth,
Hein.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО04-11-2008 10:03 AM
тАО04-11-2008 10:03 AM
Solution$ day = f$cvtime(,,"DAY")
$ week = (day-1)/7 + 1
Which returns the week number for the current day. If you want the week number for the upcoming Thursday if today is not Thurdsay then just add a loop.
$ I = -1
$LP:
$ I = I+1
$ DATE = F$CVTIME("+''I'-","ABSOLUTE","DATE")
$ IF F$CVTIME(DATE,,"WEEKDAY").NES."Thursday" THEN -
$ GOTO LP
$ DAY = F$CVTIME(DATE,,"DAY")
$ WEEK = (DAY-1)/7 + 1
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО04-11-2008 10:28 AM
тАО04-11-2008 10:28 AM
Re: DCL Question
if it is Thursday, then current Thursday is of course simply
write sys$output f$cvtime(,,"DAY")+6)/7
The "next Thursday" is:
$ days_till_next_thursday = f$loc(f$ext(0,2,f$cvt(,,"WEEKDAY")),"xxWeTuMoSuSaFrTu")/2
$ write sys$output "Next Thursday is Thursday number : ", -
(6+f$cvt("+''days_till_next_thursday'-",,"DAY"))/7
Next Thursday is Thursday number : 3
Drop the "xx" depending on how you want to deal with cotay being a Thursday or not.
Hein.