当我们尝试使用 CBL_EXEC_RUN_UNIT 从 prog A 调用 prog B 时,我们试图从程序 A 异步调用程序 B,它给出以下错误
error code: 203, pc=43, call=1, seg=0 203 CALL parameter not supplied
Prog A:
procedure division.
00.
display "INSIDE PROGRAM CALLPRG".
string w-prog-name delimited by size
" " delimited size
w-a w-b delimited by size
into w-work
initialize flags run-unit-id stack-size
call "CBL_EXEC_RUN_UNIT" using w-work
by value 11
by reference run-unit-id
by value stack-size flags
returning status-code
prog B:
working-storage section.
01 C pic 9(03).
linkage section.
01 A pic 9(02).
01 B pic 9(02).
procedure division using a b.
00.
display "INSIDE PROGRAM ADDTWO".
display a.
display b.
add a b giving C.
display "SUM IS ".
display c.
display "EXITING PROGRAM ADDTWO".
ex. exit.
我们正在使用微焦点 COBOL。