MultiValue Tools

 View Only

 New to Wintegrate scripting (cannot find the answer in either the winthost or wintscrt manuals

Kevin Hond's profile image
Kevin Hond posted 04-12-2023 11:44

I cannot see how to retrieve information returned from a script into my basic program. For example:
SCRIPT  = 'width = Field(WindowPos(0),",",3)'
CALL WIN.COMSUB(SCRIPT)
how do I get the returned information back into my Unidata basic program?

Michael Archuleta's profile image
PARTNER Michael Archuleta

      CALL WIN.EVAL('SystemMetrics(1):"*":SystemMetrics(0):"*":WindowPos(0):"*":Get(Columns):"*":Get(Lines):"*":Version:"*":Seri
al:"*":Get(Font):"*":Get(ExtraLineSpace)',SYSMET)
      DEPTH = FIELD(SYSMET,'*',1) ; WIDTH = FIELD(SYSMET,'*',2) ; WINDOWPOS = FIELD(SYSMET,'*',3) ; NCOLUMNS = FIELD(SYSMET,'*',
4) ; NLINES = FIELD(SYSMET,'*',5) ; VERSION = FIELD(SYSMET,'*',6) ; SERIAL = FIELD(SYSMET,'*',7) ; FONT = FIELD(SYSMET,'*',8) ;
XTRALINE = FIELD(SYSMET,'*',9)

David Robertshaw's profile image
David Robertshaw

Hi Kevin,

There's a supplied subroutine WIN.LICINFO which retreives the licese information from the PC. This show how it can be done.

David