呼び出される側に COMMON DEF FN A,B OUT C,D END のようなものを作り、 呼び出し元から、呼び出せば、通常のDEFと同じ引数の受け渡しになるので、それで出来ると思います。