RE: [U2] UV Timed INPUT

2009-03-15 Thread Keith Johnson [DATACOM]
David Norman asked for a timed input for Universe. There is a program to replicate the Unidata timed input at http://www.pickwiki.com/cgi-bin/wiki.pl?InputWait --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] UV Timed INPUT

2009-03-15 Thread Norman, David (Health)
Thanks to all who've posted suggestions for this. I never fail to be surprised by the wealth of knowledge that this group possesses, and the good-natured willingness to share and help. I'm sure that I will be able to resolve my problem from the interesting code posted. Thanks again,

{Blocked Content} RE: [U2] UV Timed INPUT

2009-03-13 Thread Norman, David (Health)
. -- Date: Thu, 12 Mar 2009 10:45:47 +0100 From: Brian Leach br...@brianleach.co.uk Subject: RE: [U2] UV Timed INPUT David try the following: FUNCTION TimedInput(Period, Value) $OPTIONS PICK Now = Time() Loop Input n,-1 Until n Or ((Time() - Now) Period) Do Nap 50 Repeat

RE: [U2] UV Timed INPUT

2009-03-13 Thread Baker Hughes
David, Not sure what you need to accomplish, Brian's offer looks promising. You might also try INPUTIF. I use it in status screens. got the idea from my days working with computer aided dispatch. ACT='' LOOP INPUTIF YOUR.WISH THEN BEGIN CASE CASE UPCASE(YOUR.WISH)

RE: [U2] UV Timed INPUT

2009-03-12 Thread Ken Wallis
David, UniData has a FOR or WAITING clause on the INPUT statement which lets you do exactly this. I'm not sure what the UniVerse equivalent would be. Certainly you wouldn't normally want to be in a tight loop looking for input with INPUT,-1 or INPUTIF, or blocked by a SLEEP when input was

RE: [U2] UV Timed INPUT

2009-03-12 Thread Larry Hiscock
Does UV support the WAITING clause on the INPUT statement? In UD you can do: INPUT VAR WAITING 30 ELSE ... END Larry Hiscock Western Computer Services -Original Message- From: owner-u2-us...@listserver.u2ug.org [mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Norman, David

RE: [U2] UV Timed INPUT

2009-03-12 Thread Les Hewkin
Subject: RE: [U2] UV Timed INPUT Does UV support the WAITING clause on the INPUT statement? In UD you can do: INPUT VAR WAITING 30 ELSE ... END Larry Hiscock Western Computer Services -Original Message- From: owner-u2-us...@listserver.u2ug.org [mailto:owner-u2-us...@listserver.u2ug.org

RE: [U2] UV Timed INPUT

2009-03-12 Thread Brian Leach
David try the following: FUNCTION TimedInput(Period, Value) $OPTIONS PICK Now = Time() Loop Input n,-1 Until n Or ((Time() - Now) Period) Do Nap 50 Repeat If Not(n) Then Result = @False End Else Input Value Result = @True End RETURN(Result) as in: PROGRAM TestInput $OPTIONS PICK

RE: [U2] UV Timed INPUT

2009-03-12 Thread Nick Gettino
...@infor.com | www.enroute911.com -Original Message- From: owner-u2-us...@listserver.u2ug.org [mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Brian Leach Sent: Thursday, March 12, 2009 5:46 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] UV Timed INPUT David try the following

Re: [U2] UV Timed INPUT

2009-03-12 Thread Norman, David (Health)
Thanks to all for the responses; yes the UniData INPUT ... WAITING looks like it would be great but it doesn't exist on UniVerse. I'm still battling with the basic problem of trying to intercept a partially entered string after a certain time. If typing has started but Enter hasn't been pressed to

RE: [U2] UV Timed INPUT

2009-03-12 Thread Hona, David
Message- From: owner-u2-us...@listserver.u2ug.org [mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Norman, David (Health) Sent: Friday, 13 March 2009 11:38 AM To: u2-users@listserver.u2ug.org Subject: Re: [U2] UV Timed INPUT Thanks to all for the responses; yes the UniData INPUT

RE: [U2] UV Timed INPUT

2009-03-12 Thread Womack, Adrian
March 2009 9:38 AM To: u2-users@listserver.u2ug.org Subject: Re: [U2] UV Timed INPUT Thanks to all for the responses; yes the UniData INPUT ... WAITING looks like it would be great but it doesn't exist on UniVerse. I'm still battling with the basic problem of trying to intercept a partially entered

Re: [U2] UV Timed INPUT

2009-03-11 Thread Jacques G.
I'm typing this from memory: TM.LIMIT = 5 ;* 5 second time limit DT.START = DATE() TM.START = TIME() LOOP IF INPUT XX,-1 THEN INPUT VAR ELSE TM.PASSED = (DATE() - DT.START) * 86400 TM.PASSED += (TIME() - TM.START) IF TM.PASSED TM.LIMIT THEN EXIT END REPEAT - Original

RE: [U2] UV Timed INPUT

2009-03-11 Thread Bernard Lubin
I think what you are looking for is the INPUTIF statement. We have used this statement for the same type of process. Regards Bernard Lubin -Original Message- From: owner-u2-us...@listserver.u2ug.org [mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Norman, David (Health)

Re: [U2] UV Timed INPUT

2009-03-11 Thread Louis Windsor
I think this process will hog the processor. I would imagine you would need a SLEEP' si the loop. Louis - Original Message - From: Jacques G. jacque...@yahoo.com To: u2-users@listserver.u2ug.org Sent: Thursday, March 12, 2009 1:24 PM Subject: Re: [U2] UV Timed INPUT I'm typing