Skip to main content
Question

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

  • April 12, 2023
  • 2 replies
  • 1 view
Kevin Hond

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?

    2 replies

    Michael Archuleta
    • Michael Archuleta
    • Participating Frequently
    • 9 replies
    • April 13, 2023

    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?

          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)

    D
    • David Robertshaw
    • New Participant
    • 4 replies
    • October 17, 2023

    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?

    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


    Terms & ConditionsAccessibility statement