Robert Mills submitted a sript that retrieves the Reflection version.
I have the following code in our logon script, which works for all Reflection versions that I have used.
It also works for QCTerm and may work for other termulators.
=======================================================
if hpjobtype = "S"
set echo=off
input termulator_ver;prompt="!'esc_'*s12347^";wait=2
set echo=on
setvar termulator_ver ups(ltrim(rtrim(termulator_ver)))
if str(termulator_ver,1,3) = "JAV"
setvar termulator_type "JAVELIN"
setvar termulator_code "JAV" &
+ltrim(rtrim(rht(termulator_ver,-8)))
elseif str(termulator_ver,1,6) = "QCTERM"
setvar termulator_type "QCTERM"
setvar termulator_code "QCT" &
+ltrim(rtrim(rht(termulator_ver,-9)))
elseif str(termulator_ver,1,4) = "MS92"
setvar termulator_type "MS92"
setvar termulator_code "MS92"
elseif pos(lft(termulator_ver,1),"HIWM") > 0 &
and str(termulator_ver,2,1) = "0" &
and pos(str(termulator_ver,3,1),"12347") > 0 &
and pos(str(termulator_ver,4,1),"-+/*") > 0
setvar termulator_type "REFLECTION"
setvar termulator_code "RF" &
+str(termulator_ver,1,1) &
+str(termulator_ver,5,3)
setvar rf_ver termulator_ver
endif
endif
=======================================================
HTH.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|