External modul not found

Werner T — Sun, 26 Oct 2025 17:09:24 -0000

Hello

I'm calling a Rexx procedure that uses another external procedure. But it's not found.

Why?

My call: Regina.exe D:\Rexx\BaseTestRex.rex

regina rexx Directory-Check

Werner T — Sat, 18 Oct 2025 13:33:17 -0000

I'm still struggling with the problem that when calling a nonexistent function, only an error message appears, but none of the "signal on" exits are called.

Here's my short test code:

Call RXFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
Call SysLoadFuncs
Signal on Error Name FailExit
Signal on Syntax Name FailExit
Signal on Novalue Name FailExit
Signal on Failure Name FailExit

XD = SysIsFileDirectory("C:\Rexx")
say "no Failure"
say 7/0
Exit 0

FailExit:
say "FailExit aufgerufen"
Exit 999

Can anyone help?

The exit is called at 47/0.

By the way: has anyone called "SYSSLEEP(-1)" yet?

regina rexx Directory-Check

Werner T — Sat, 18 Oct 2025 09:00:12 -0000

Hi fpefep. Thanks for the tip about "stream." It works.

regina rexx Directory-Check

fpefpe — Fri, 17 Oct 2025 12:58:11 -0000

if you have the regina doc, then check stream( <file dir="">, 'c', 'fstat' ) </file>

fstat = stream( __dir, 'c', 'fstat' )
if fstat = ""
then type = "?"
else parse var fstat dnum inode perm nlinks user group size type .

"type" is the in the regina.pdf file

regina rexx Directory-Check

Werner T — Fri, 17 Oct 2025 05:31:18 -0000

When I Googled how to check whether a specific directory exists in Rexx, I was offered "SysIsFileDirectory." However, this function isn't available in my version 396W64 of Regina Rexx.

How can I perform the check without this function?

And how can I prevent my code from continuing to execute without aborting when calling a nonexistent function? I came across "Signal on Error" in my search, but that doesn't seem to work for me.

Returning a result from an external function

Paul van den Eertwegh — Wed, 15 Oct 2025 20:06:02 -0000

Rexx has a function VALUE to retrieve a variable whose name is in another variable.

This example

paul='Apfel'
werner='Banane'
apfel=1.23
banane=3.21
say paul value(paul)
say werner value(werner)

produces

Apfel 1.23
Banane 3.21

This might be an alternative for the 'interpret' construct.

Returning a result from an external function

Werner T — Wed, 15 Oct 2025 09:50:51 -0000

Hello Paul.

Thank you for your example. It helped me find a workable solution. If the called external routine isn't able to set variables in the calling module, then the calling routine must take over this part.

In the code I want to provide as a function, the parameter passed by Windows is split according to its "identifier" and placed into different variables. The names of these variables are passed when the subfunction is called, as is the parameter from Windows. The "identifier" is identical to the variable name.

With "Push," the name of the variable and its desired content are output. In the calling routine, the respective variable is filled with "Interpret."

In my demo version below, I omitted the Windows parameter and specified the names and their desired contents.

Unfortunately, I didn't immediately know how to display the contents of a variable if the variable name is contained in another variable: a loop through "MyVars" and then display all the data.

Translated from German by "Google Translate"

/ DemoMain /
RXQID = RXQueue('Create')
RXTmp = RXQueue('Set',RXQID)
MyVars = "Garden Haus Wiese"
Call DemoSub(MyVars)
QStem. = ''
Pull QStem.0 / Last in = First out /
do Loop1=QStem.0 by -1 to 1
Parse Pull QStem.Loop1
end
RXTmp = RXQueue('Delete',RXQID)
/
do Loop1=1 to QStem.0
say Loop1 QStem.Loop1
end
/
do Loop1 = 1 to QStem.0
Parse Var QStem.Loop1 Qin Qiv
Interpret Qin "=" Qiv
end
say Garden
do Loop1 = 1 to Garden.0;say Garden.Loop1;end
say Wiese
say Haus
exit

/ DemoSub /
Parse Arg Parm1 Parm2 Parm3
PCount = 0
PR = Pushit(Parm1 "Tomate,Gurke")
PR = Pushit(Parm1".1 Tomate")
PR = Pushit(Parm1".2 Gurke")
PR = Pushit(Parm1".0" 2)
PR = Pushit(Parm2 "Rettich")
PR = Pushit(Parm2".0" 0)
PR = Pushit(Parm3 "Blumen")
PR = Pushit(Parm3".0" 0)
PR = Pushit(PCount)
Return

Pushit: Procedure Expose PCount
Parse Arg Pushdata
PCount = PCount + 1
if DataType(Pushdata) ="NUM" then do
Push PushData
end
else do
Parse Var PushData PDN PDV
Push PDN "'"PDv"'"
end
Return PCount

Returning a result from an external function

Paul van den Eertwegh — Wed, 15 Oct 2025 09:18:23 -0000

Hi Werner, another observation.

The stem produkte. has 2 so-called 'tails': 'i' (counter) and 'name' or 'preis' (named field), i.e. produkte.1.name = 'Apfel', where i=1 and name='Apfel'.
But you use also variables 'name' and 'preis'. When using stems, the tail 'name' is replaced by it's value and then used as new tail name.
Dumping all vars at the end of sub (using 'call SysDumpVariables', built-in for ooRexx), I get:

Name=STEMNAME, Value='produkte.'
Name=NAME, Value='Kirsche'
Name=I, Value='4'
Name=PREIS, Value=' 2.30'
Name=ANZAHL, Value='3'
Name=PRODUKTE., Value='PRODUKTE.'
Name=PRODUKTE.3.Kirsche, Value='Kirsche'
Name=PRODUKTE.1.Apfel, Value='Apfel'
Name=PRODUKTE.2.Banane, Value='Banane'
Name=PRODUKTE.1. 1.30, Value='1.30'
Name=PRODUKTE.2. 1.80, Value='1.80'
Name=PRODUKTE.3. 2.30, Value='2.30'
Name=PRODUKTE.0, Value='3'

Surely, this is not what you want.
Better use different names for vars and tail, say

produkte.i.nam
produkte.i.pre

or so.

Returning a result from an external function

Paul van den Eertwegh — Wed, 15 Oct 2025 00:59:17 -0000

Hi Werner, from the manual

For all practical purposes, an external subroutine is conceptually equivalent to re-invoking the interpreter in a totally separated process.

So there are no variable name clashes. The subprogram is completely independent. As in your example, you may pass parameters and return a value. However, a stem cannot be passed nor returned, so in standard Classic Rexx there's no solution.

But rxqueue works!

Consider 2 programs:

-- main.rex
say 'main.rex'
que1=rxqueue('create')
que2=rxqueue('set',que1)
call sub
stem.=''
pull stem.0
do i=stem.0 by -1 to 1
   parse pull stem.i
end
do i=1 to stem.0
   say i stem.i
end
que3=rxqueue('delete',que1)
say 'main ended'
exit

and

-- sub.rex
say 'sub.rex'
push 'Apfel'
push 'Banane'
push 'Kirsche'
push 3
say 'sub ended'
return

Running main.rex gives

main.rex
sub.rex
sub ended
1 Apfel
2 Banane
3 Kirsche
main ended

I guess you got uppercase because you used 'pull' and not 'parse pull'.

Returning a result from an external function

Werner T — Tue, 14 Oct 2025 10:23:59 -0000

My Codes:

/ KIMain.rex /
say '--- KIMain gestartet ---'

anzahl = 3
stemname = 'produkte.'
produkte. = ""

/ Direkt call auf subprog.rex /
call 'KISub.rex' anzahl, stemname
say '--- KIMain: Rückgabe aus subprog ---'
say 'Anzahl Produkte:' produkte.0
produkte.0 = 3
do i = 1 to produkte.0
say i':' produkte.i.name '-> Preis:' produkte.i.preis
end
say '--- KIMain beendet ---'
exit 0

**
/ KISub.rex /**
parse arg anzahl, stemname
say '--- KISub gestartet ---'
say anzahl
say stemname
say 'Erzeuge' anzahl 'Produkte in Stem:' stemname
trace ?i
do i = 1 to anzahl
name = word('Apfel Banane Kirsche Orange Birne', i)
preis = format(0.8 + 0.5 * i, 2, 2)
interpret stemname || i || ".name = '" || name || "'"
interpret stemname || i || ".preis = " || preis
end

interpret stemname || '0 = ' || anzahl
say 'KISub: Fertig mit Füllen des Stems.'
say '--- KISub beendet ---'
return

Recent posts to Discussion

External modul not found

regina rexx Directory-Check

regina rexx Directory-Check

regina rexx Directory-Check

regina rexx Directory-Check

Returning a result from an external function

Returning a result from an external function

Returning a result from an external function

Returning a result from an external function

Returning a result from an external function