This is a snippet of code we have to get PH object versions :-

   if setvar(fcode,finfo(fname,'fcode'))=641 or fcode=642 or fcode=643
      # Read first record of the Powerhouse object file #
      input _ < !FNAME
      ############################################
      # Isolate PH version details ...           #
      setvar _ "![ord(str(_,14,1))*100+ord(str(_,18,1))]" +str(_,3,1)
                     +ltrim(str(_,5,4))
      ############################################
      echo ![str("QUICKQUIZ QTP  ",(fcode mod 10)*5-4,5)] PH!_ : !fname
endif




Internet
[log in to unmask]@RAVEN.UTC.EDU - 27/09/2002 21:40


Veuillez répondre à [log in to unmask]

Envoyé par :      [log in to unmask]

Pour : HP3000-L

cc :


Objet :     Re: FW: MPE/iX scripting.


Robert,

Try the following:

setvar p1 ![STR(_line,39,2)]
setvar p2 ![STR(_line,49,2)]
setvar p3 ![STR(_line,12,2)]
setvar p4 ![STR(_line,24,2)]
setvar vers "![DECIMAL($!p1)].![DECIMAL($!p2)]![chr($!p3)]![chr($!p4)]"
      OR if your prefer the 'echo' statement:
echo ![DECIMAL($!p1)].![DECIMAL($!p2)]![chr($!p3)]![chr($!p4)]
      OR
echo !vers


Regards
Paul Christidis





In response to John Penny, and others, for 'a snippet of code, please, like
what are yuh trying to do?'.

The snippet of code:

:fcopy from=ed014s.prog;to=;hex;subset=0,1 > temp1
:print temp1;start=5;end=5 > temp2
:input _line < temp2
:echo
![str(_line,39,2)].![str(_line,49,2)]![str(_line,12,2)]![str(_line,24,2)]

Executing the above 'snippet' generated the following: 08.134437
The output needs to be in the following format: 8.19D7

What I am trying to do:

The file, ed014s.prog, is one of many compiled PowerHouse Quick Screens
that
we have. I need to check which version of PowerHouse, we currently use two,
was used to compile them.

regards,

Robert W.Mills
Systems Development Manager
Windsong Services
(01689) 870622 x3005


* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *






This message and any attachments (the "message") is
intended solely for the addressees and is confidential. 
If you receive this message in error, please delete it and 
immediately notify the sender. Any use not in accord with 
its purpose, any dissemination or disclosure, either whole 
or partial, is prohibited except formal approval. The internet
can not guarantee the integrity of this message. 
BNP PARIBAS (and its subsidiaries) shall (will) not 
therefore be liable for the message if modified. 

                ---------------------------------------------

Ce message et toutes les pieces jointes (ci-apres le 
"message") sont etablis a l'intention exclusive de ses 
destinataires et sont confidentiels. Si vous recevez ce 
message par erreur, merci de le detruire et d'en avertir 
immediatement l'expediteur. Toute utilisation de ce 
message non conforme a sa destination, toute diffusion 
ou toute publication, totale ou partielle, est interdite, sauf 
autorisation expresse. L'internet ne permettant pas 
d'assurer l'integrite de ce message, BNP PARIBAS (et ses
filiales) decline(nt) toute responsabilite au titre de ce 
message, dans l'hypothese ou il aurait ete modifie.

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *