At 04:27 PM 10/09/2009, Brice Yokem wrote:
>I have always said - Neil is a Genius...
Hardly Genius. I had great mentors in Bob Green, Stan Sieler and
David Greer. The only genius going on here is that I am finally
taking a days vacation tomorrow and going to relax.
Have a great weekend everyone. :)
Neil
>On Thu, 10 Sep 2009 09:55:58 -0700, Newton, Ernie
><[log in to unmask]> wrote:
>
> >That worked beautifully Neil.
> >
> >Thank you very much.
> >
> >Ernie
> >
> >-----Original Message-----
> >From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
>Behalf Of Neil Armstrong
> >Sent: Wednesday, September 09, 2009 6:01 PM
> >To: [log in to unmask]
> >Subject: Re: [HP3000-L] Suprtool question
> >
> >At 06:51 PM 09/09/2009, Newton, Ernie wrote:
> >Dear Ernie,
> >
> >All you need to do is let Suprtool know that run-date is in the
> >calendar format:
> >
> >item run-date,date,calendar
> >
> >So if you need to test for today once you put the item statement in
> >you can say:
> >
> >if run-date=$today
> >
> >Suprtool generates a date for today in the calendar format and does
> >the comparison.
> >
> >If you want to convert the date you can do the following:
> >
> >define num-date,1,4,double
> >ext num-date=$stddate(run-date)
> >
> >And for grins you can extract the bits of the field with a "bit" of
> >defining and bit extracts based on the format for the calendar format
> >which is defined as:
> >
> > {date (CALENDAR format): }
> > { 00:07 year since 1900 (e.g., 101 in 2001) }
> > { 07:09 day of year (e.g., 1 for Jan 1)
> >
> >define mydatebits,run-date,2,logical {make logical for bit extraction }
> >if mydatebits.(0:7) = 109 and mydatebits.(7:9) = 252
> >
> >Well the calendar date for today when looked at as an unsigned
> >logical will have a value of 56060 which converted to binary has a value of:
> > >=56060,b
> >Result=%(2)11011010 11111100
> >
> >So the first 7 bits make up 109 and the bits 7:9 makes up the day of
> >year, which if we use a simple conversion by adding up the bits we
> >get the day value:
> >
> > >=128+64+32+16+8+4
> >Result=252.0
> >
> >
> >
> >
> >Sincerely,
> >
> >
> >
> >Neil
> >
> >
> >
> >>Greetings,
> >>
> >>I have this dataset...
> >>
> >>Entry: Offset
> >> FILE-NO X6 1
> >> ITEM-NAME X16 7
> >> GROUP X8 23
> >> RUN-DATE I1 31
> >>
> >>
> >>The item RUN-DATE holds an 8-character date in the form of yyyymmdd
> >>but I can't
> >>get anything in a human-readable format. I've defined the item as noted in
> >>the manual, (2,integer), but nothing works.
> >>
> >>Is there any way to test that field for a date value such as =20090909?
> >>
> >>If I can extract it somehow, I could use a table and $LOOKUP, but
> >>even playing around
> >>with STExport provided nothing.
> >>
> >>Thanks,
> >>
> >>Ernie
> >>
> >>
> >>
> >>________________________________
> >>This message, including any attachments, is intended solely for the
> >>use of the named recipient(s) and may contain confidential and/or
> >>privileged information. Any unauthorized review, use, disclosure or
> >>distribution of this communication(s) is expressly prohibited. If
> >>you are not the intended recipient, please contact the sender by
> >>reply e-mail and destroy any and all copies of the original message.
> >>
> >>* To join/leave the list, search archives, change list settings, *
> >>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
> >
> >* To join/leave the list, search archives, change list settings, *
> >* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
> >
> >The Yolo County Office of Education has scanned this message for viruses
>and dangerous content
> >
> >
> >This message, including any attachments, is intended solely for the use of
>the named recipient(s) and may contain confidential and/or privileged
>information. Any unauthorized review, use, disclosure or distribution of this
>communication(s) is expressly prohibited. If you are not the intended
>recipient, please contact the sender by reply e-mail and destroy any and all
>copies of the original message.
> >
> >* To join/leave the list, search archives, change list settings, *
> >* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
>* To join/leave the list, search archives, change list settings, *
>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
