Jeff,
Thanks very much, I will try that. Going home now though, it's 4.30pm over here and that's it for me today!
From: "Jeff Lewis" <jeff@...>
Subject: RE: Re: 4GL Procedure - checking for Vantage
You could test this -
&IF DEFINED(CUR-COMP) = 0 &THEN
DEFINE NEW SHARED VAR CUR-COMP AS CHARACTER FORMAT "x(8)" NO-UNDO
INITIAL "YourComp".
&ELSE
DEFINE SHARED VAR CUR-COMP AS CHARACTER FORMAT "x(8)" NO-UNDO.
&ENDIF
MESSAGE CUR-COMP.
You could also define an INPUT in a RUN command to state from where you
are starting.
Jeff Lewis
Dir of Engineering
++ Andy Watts
++ Ripley Engineering Ltd
++ Tel: 01256-473940
++ Fax: 01256-479991
++ mailto: andy@...
Thanks very much, I will try that. Going home now though, it's 4.30pm over here and that's it for me today!
From: "Jeff Lewis" <jeff@...>
Subject: RE: Re: 4GL Procedure - checking for Vantage
You could test this -
&IF DEFINED(CUR-COMP) = 0 &THEN
DEFINE NEW SHARED VAR CUR-COMP AS CHARACTER FORMAT "x(8)" NO-UNDO
INITIAL "YourComp".
&ELSE
DEFINE SHARED VAR CUR-COMP AS CHARACTER FORMAT "x(8)" NO-UNDO.
&ENDIF
MESSAGE CUR-COMP.
You could also define an INPUT in a RUN command to state from where you
are starting.
Jeff Lewis
Dir of Engineering
++ Andy Watts
++ Ripley Engineering Ltd
++ Tel: 01256-473940
++ Fax: 01256-479991
++ mailto: andy@...