Author: R.Kaeferboeck
Subject: Calling procedure with multiple entries contained in fetchab
Posted: Fri Jan 27, 2017 3:33 pm (GMT 5.5)
Hi,
let's suppose I have this fetchable:
and I want to call that fetchable from my main-program like that:
Compile is ok, but linking fails. How can I solve the problem? Is something wrong with the declares of the ext entries? Is it possible at all?
Regards,
Reinhard
Subject: Calling procedure with multiple entries contained in fetchab
Posted: Fri Jan 27, 2017 3:33 pm (GMT 5.5)
Hi,
let's suppose I have this fetchable:
| Code: |
MYFETCH: PROC(PAR1, PAR2, PAR3) OPTIONS(FETCHABLE); DCL (PAR1, PAR2) BIN FIXED(31) PARM; DCL (PAR3) PTR PARM; RETURN; ENTRY1: ENTRY(PAR1, PAR2) RETURNS(BIN FIXED); RETURN(0); ENTRY2: ENTRY(PAR3) RETURNS(BIT(1)); RETURN('1'B); ENTRY3: ENTRY(); RETURN; END MYFETCH; |
and I want to call that fetchable from my main-program like that:
| Code: |
TEST: PROC OPTIONS(MAIN); IF '0'B THEN FETCH MYFETCH; DCL ENTRY1 EXT ENTRY(BIN FIXED(31), BIN FIXED(31)) RETURNS(BIN FIXED); DCL ENTRY2 EXT ENTRY(PTR) RETURNS(BIT(1)); DCL ENTRY3 EXT ENTRY(); DCL BF BIN FIXED(31); DCL BV BIT(1); BF = ENTRY1(0,0); BV = ENTRY2(NULL()); END TEST; |
Compile is ok, but linking fails. How can I solve the problem? Is something wrong with the declares of the ext entries? Is it possible at all?
Regards,
Reinhard
