PxPlus User Forum

Twitter Twitter Twitter

Author Topic: error 17 on program file  (Read 1704 times)

Cees Trip

  • Member
  • **
  • Posts: 8
    • View Profile
    • Company website
error 17 on program file
« on: September 11, 2018, 07:49:52 AM »
Hi,

I'am getting a error 17 while trying to do a perform located on a windows machine.
I copied the program "VLB903C" to the directory C:\USR\PVX125\WINDX\
When I try to perform or load the programm I get an error 17.
I could use som help.
LET WDX$="[WDX]C:\USR\PVX125\WINDX\"
PERFORM WDX$+"VLB903C;GRID_VULLEN"
- personal is not the same as important - Terry Pratchett

EVa

  • Gold Member
  • ****
  • Posts: 54
    • View Profile
    • EDIAS
Re: error 17 on program file
« Reply #1 on: September 11, 2018, 07:59:33 AM »
When I try to perform or load the programm I get an error 17.
I could use som help.
LET WDX$="[WDX]C:\USR\PVX125\WINDX\"
PERFORM WDX$+"VLB903C;GRID_VULLEN"

You can't PERFORM programs on the WindX workstation but you can CALL them.


Regards,

Eric Vanpaeschen
EDIAS Support

Cees Trip

  • Member
  • **
  • Posts: 8
    • View Profile
    • Company website
Re: error 17 on program file
« Reply #2 on: September 12, 2018, 04:32:58 AM »
OK, Eric. To bad. I was looking for a way to start a nomads panel serverside an within this panel performing a program on a windows/windx client machine with all variables shared.
- personal is not the same as important - Terry Pratchett

EVa

  • Gold Member
  • ****
  • Posts: 54
    • View Profile
    • EDIAS
Re: error 17 on program file
« Reply #3 on: September 12, 2018, 06:29:54 AM »
Although I don't think this is a good idea, there's a way to get all server variables in the WindX session.  On the server, run this code:

0001 LET abc=123; LET abc$="abc" ! test variables
0010 OPEN (1)"[wdx]*memory*;xyzzy"
0020 DUMP (1)
0030 PRINT (1)"! DONE",'-B'
0040 CALL "[wdx]*windx.utl;get_num","ffn("+QUO+"*memory*;xyzzy"+QUO+")",chan
0050 IF chan<=0 THEN STOP
0060 CALL "[wdx]read",chan

The 'read' program on the WindX side looks like this:

0010 ENTER x ! PRINT PTH(x)
0030 LET L$=RCD(x,IND=0,ERR=DONE)
0040 WHILE 1; PRINT L$
0050 LET L$=RCD(x,ERR=*BREAK); WEND
0060 DONE: EXIT

You want to 'execute L$' at line 45.  Be carefull with global variables as you can destroy WindX variables that you really shouldn't touch.


Eric Vanpaeschen
EDIAS Support