Displaying Version

[rickm]

How can i tell within a progress program, what version of progress i'm at?

For example i want to display Progress 9.1A10.

 

[Tony Winter]

Viewing Version Number

Rick,

Try the following:

MESSAGE "PROGRESS Version" PROVERSION.

Tony.

 

[rickm]

That just gives me 9.1A. I need the patch version too.

For example 9.1A10

Thanks

 

[Gabor Topor]

Hi Rick,

This also shows your patch level.

Regards,
Gabor

DEF VAR l-dlc AS CHAR.
DEF VAR l-version AS CHAR.
l-dlc = OS-GETENV("DLC").

&IF "" = "TTY" &THEN
INPUT THROUGH VALUE(l-dlc + "/version" ) NO-ECHO.
&ELSE
INPUT FROM VALUE(l-dlc + "/version").
&ENDIF

IMPORT UNFORMATTED l-version.
DISPLAY l-version FORMAT "X(60)".

 

[Gabor Topor]

Hi Rick,

The correct code is written below {&WINDOW-SYSTEM} was missing from it...

Gabor

DEF VAR l-dlc AS CHAR.
DEF VAR l-version AS CHAR.
l-dlc = OS-GETENV("DLC").

&IF "{&WINDOW-SYSTEM}" = "TTY" &THEN
INPUT THROUGH VALUE(l-dlc + "/version" ) NO-ECHO.
&ELSE
INPUT FROM VALUE(l-dlc + "/version").
&ENDIF

IMPORT UNFORMATTED l-version.
DISPLAY l-version FORMAT "X(60)".