If you are trying to get a string containing the time in the variable hour,
you do not need to use DECIMAL.  The construct below
:SETVAR HOUR word(file_record),,-2)
Returns the variable HOUR as a string(type 2) which can be checked with:
:CALC TYPEOF(HOUR)
2, %2, #2.
:SHOWVAR HOUR
HOUR = 5

:HELP TYPEOF all will display the various possibilities.


Denys

-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf
Of Reggie Monroe
Sent: Wednesday, August 17, 2005 10:59 AM
To: [log in to unmask]
Subject: [HP3000-L] numeric expression

I seem to be getting the below error when using the decimal command. Do
anyone have an idea?


Regards

Reginald Monroe
Systems Engineering
Mercury Insurance - Information Technology
(714) 671-6753
[log in to unmask]




40 :SETVAR file_record ''
41 :SETVAR sess ''
42 :INPUT file_record < t1.files
43 :SHOWVAR file_record
44 FILE_RECORD = Y  5 PM
45
46 :SETVAR sess word(file_record)
47 :SETVAR ampm word(file_record,,-1)
48 :SHOWVAR ampm
49 AMPM = PM
50 :  SETVAR hour decimal(word(file_record,,-2))
51                       ^
52 A string operand was found in a numeric expression. (CIERR 9870) 53
REMAINDER OF JOB FLUSHED. 54 CPU sec. = 5.  elapsed min. = 1.  TUE, AUG
16, 2005,  8:58 PM.





This email and/or any files or attachments transmitted with it are
confidential and intended solely for the use of the individual or entity to
whom they are addressed, and may contain information that is privileged,
confidential and exempt from disclosure under applicable law. If you are not
the intended recipient, or the employee or agent responsible for delivering
the message to the intended recipient, you are hereby notified that any
dissemination, distribution or copying of this e-mail and/or any files or
attachments transmitted with it is strictly forbidden. If you have received
this email in error, please delete the e-mail and/or any files or
attachments, and also notify the system manager
([log in to unmask]) of the error. Please note that any views
or opinions presented in this email are solely those of the author and do
not necessarily represent those of the company. Finally, the recipient
should check this email and any attachments for the presence of viruses. The
company accepts no liability for any damage caused by any virus transmitted
by this email and/or any files or attachments transmitted with it.

* 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 *