Hi,
Is it possible to use super procedure with appserver ?
I made next little program, let's say main.p which is at client side (local) and driver.p which resides on appserver side.
So, from within main.p i connect to AppServer and run the driver procedure persistent, then i put it in the super-procedure chains as follows:
/* Connect Appserver and Load driver persistent */
ret = hAppSrv:CONNECT
("-AppService asbroker1 -H 10.1.2.9 -S 5162","","").
IF NOT ret THEN
RETURN ERROR "Failed to connect to AppServer".
ELSE DO:
RUN driver.p PERSISTENT SET hProc ON SERVER hAppSrv TRANSACTION DISTINCT.
END.
/* Run procedure which is locally defined in main.p */
IF VALID-HANDLE(hProc) THEN
DO:
THIS-PROCEDURE:ADD-SUPER-PROCEDURE(hProc).
RUN prcFillTT (OUTPUT hTempTable).
END.
/* internal proceure in main.p */
PROCEDURE prcFillTT:
DEF OUTPUT PARAMETER hTempTable AS CHAR NO-UNDO.
/* invoke super procedure prcFIlltt which resides on appserver */
RUN SUPER(OUTPUT hTempTable).
/*d*/ MESSAGE hTempTable.
END PROCEDURE.
When i run this i get next ERROR:
rocedure <procedure> has no SUPER procedure with internal procedure <internal-procedure>. (6439)
A RUN SUPER statement failed because the internal procedure was not found in any of the main procedure's SUPER procedures.
p
When i don't use super, so i call the internal procedure in driver.p immediately, then it runs.
Has it something to do with the fact that main.p doesn't now the path to driver.p which resides on appserver, error mentioned is:
procedure prcFilltt d:\temp\d23487cf.ab has no super procedure with internal procedure prcFilTT
Any clue ?
Thanx for any response,
Emmanuel.
:dead: :dead: :dead:
Is it possible to use super procedure with appserver ?
I made next little program, let's say main.p which is at client side (local) and driver.p which resides on appserver side.
So, from within main.p i connect to AppServer and run the driver procedure persistent, then i put it in the super-procedure chains as follows:
/* Connect Appserver and Load driver persistent */
ret = hAppSrv:CONNECT
("-AppService asbroker1 -H 10.1.2.9 -S 5162","","").
IF NOT ret THEN
RETURN ERROR "Failed to connect to AppServer".
ELSE DO:
RUN driver.p PERSISTENT SET hProc ON SERVER hAppSrv TRANSACTION DISTINCT.
END.
/* Run procedure which is locally defined in main.p */
IF VALID-HANDLE(hProc) THEN
DO:
THIS-PROCEDURE:ADD-SUPER-PROCEDURE(hProc).
RUN prcFillTT (OUTPUT hTempTable).
END.
/* internal proceure in main.p */
PROCEDURE prcFillTT:
DEF OUTPUT PARAMETER hTempTable AS CHAR NO-UNDO.
/* invoke super procedure prcFIlltt which resides on appserver */
RUN SUPER(OUTPUT hTempTable).
/*d*/ MESSAGE hTempTable.
END PROCEDURE.
When i run this i get next ERROR:
rocedure <procedure> has no SUPER procedure with internal procedure <internal-procedure>. (6439)
A RUN SUPER statement failed because the internal procedure was not found in any of the main procedure's SUPER procedures.
p
When i don't use super, so i call the internal procedure in driver.p immediately, then it runs.
Has it something to do with the fact that main.p doesn't now the path to driver.p which resides on appserver, error mentioned is:
procedure prcFilltt d:\temp\d23487cf.ab has no super procedure with internal procedure prcFilTT
Any clue ?
Thanx for any response,
Emmanuel.
:dead: :dead: :dead: