自已搞定了,需要在COBOL头上写上函数定义的代码(写成COPY句也可以),然后使用CALL就可以了。不过仍然不能做到CALL一个DLL中的多个导出函数,只能调用最前面定义的那个。
PROGRAM-ID. "C_TYPEDEFS" IS EXTERNAL.
77 C-TYPE-CHAR PIC X IS TYPEDEF.
77 C-TYPE-INT PIC S9(009) COMP-5
IS TYPEDEF.
ENTRY "C_DateCalc" USING
BY REFERENCE C-TYPE-CHAR
BY REFERENCE C-TYPE-CHAR
BY VALUE C-TYPE-INT
BY REFERENCE C-TYPE-CHAR
RETURNING C-TYPE-INT.
END PROGRAM "C_TYPEDEFS".
...
MOVE "20030101" TO DAA-PRM-INYYMMDD.
MOVE "1" TO DAA-PRM-KBN.
MOVE 3 TO W9-INT-VALUE.
CALL "C_DateCalc" USING DAA-PRM-INYYMMDD
DAA-PRM-KBN
W9-INT-VALUE
DAA-PRM-OTYYMMDD
RETURNING W9-RTN-VALUE.
DISPLAY DAA-PRM-OTYYMMDD UPON CONSOLE.
DISPLAY W9-RTN-VALUE UPON CONSOLE.
...