74 lines
1.8 KiB
COBOL
74 lines
1.8 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. test25.
|
|
AUTHOR. D.Essex.
|
|
DATE-WRITTEN. December 5, 1999.
|
|
* REMARKS.
|
|
* Test to call C program from COBOL program.
|
|
*
|
|
ENVIRONMENT DIVISION.
|
|
DATA DIVISION.
|
|
*
|
|
WORKING-STORAGE SECTION.
|
|
|
|
* 01 F1 PIC X(1).
|
|
01 F1.
|
|
05 F1-A PIC X(5).
|
|
05 F1-B PIC X(1).
|
|
01 F2 PIC 9(2).
|
|
01 F3 PIC 9(4) COMP.
|
|
01 F3-A PIC 9(2).
|
|
01 F4 PIC 9(3).
|
|
01 WS1 PIC 9(2) COMP VALUE 23.
|
|
|
|
PROCEDURE DIVISION.
|
|
|
|
* ----------------------------------------
|
|
MOVE '=====0' TO F1.
|
|
MOVE 6 TO F2.
|
|
MOVE 8 TO F3.
|
|
MOVE 11 TO F4.
|
|
|
|
MOVE F3 TO F3-A.
|
|
DISPLAY "main (test25) COB input :" F1 ":" F2 ":" F3-A ":" F4 ":".
|
|
|
|
CALL "test25a" USING F1 F2 F3 F4.
|
|
|
|
MOVE F3 TO F3-A.
|
|
DISPLAY "main (test25) COB return :" F1 ":" F2 ":" F3-A ":" F4 ":".
|
|
* ----------------------------------------
|
|
* The following code can be used on the MinGW platform.
|
|
* It may work on Cygwin but has not been tested.
|
|
|
|
* MOVE '0=====' TO F1.
|
|
* MOVE 7 TO F2.
|
|
* MOVE 9 TO F3.
|
|
* MOVE 33 TO F4.
|
|
|
|
* MOVE F3 TO F3-A.
|
|
* DISPLAY "main (test25) COB input :" F1 ":" F2 ":" F3-A ":" F4 ":".
|
|
|
|
* CALL WINAPI "test25c" USING F1 F2 F3 F4.
|
|
|
|
* MOVE F3 TO F3-A.
|
|
* DISPLAY "main (test25) COB return :" F1 ":" F2 ":" F3-A ":" F4 ":".
|
|
* ----------------------------------------
|
|
MOVE '0=====' TO F1.
|
|
MOVE 7 TO F2.
|
|
MOVE 9 TO F3.
|
|
MOVE 33 TO F4.
|
|
|
|
MOVE F3 TO F3-A.
|
|
DISPLAY "main (test25) COB input :" F1 ":" F2 ":" F3-A ":" F4 ":".
|
|
|
|
CALL "test25b" USING F1 F2 F3 F4.
|
|
|
|
MOVE F3 TO F3-A.
|
|
DISPLAY "main (test25) COB return :" F1 ":" F2 ":" F3-A ":" F4 ":".
|
|
* ----------------------------------------
|
|
|
|
MOVE WS1 TO F3-A.
|
|
DISPLAY "main (test25) COB WS1=" F3-A ":".
|
|
DISPLAY "RETURN-CODE = " RETURN-CODE
|
|
|
|
STOP RUN.
|