PROCEDURE DIVISION.
MAIN SECTION.
MAIN000.
* Loading the dll
SET P-MYDLL TO ENTRY "mydll.dll".
* Check if loading was successfull
IF P-MYDLL-NUM = 0
DISPLAY "Failure loading mydll.dll"
STOP RUN.
* Now you can use all exported functions of mydll.dll
CALL "myfunction" USING ... RETURNING ...