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)".