This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Pages: 1 [2]
16
Programming / Re: journal files size issue
« on: November 08, 2018, 05:09:43 AM »
Why don't you manually copy the 314 server file to the other system ?
17
Programming / Re: error 17 on program file
« 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
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
18
Programming / Re: error 17 on program file
« 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
Pages: 1 [2]