56 lines
1.3 KiB
COBOL
56 lines
1.3 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. test15.
|
|
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(5) 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 (test15) COB input :" F1 ":" F2 ":" F3-A ":" F4 ":".
|
|
|
|
CALL "test15a" USING F1 F2 F3 F4.
|
|
|
|
MOVE F3 TO F3-A.
|
|
DISPLAY "main (test15) 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 (test15) COB input :" F1 ":" F2 ":" F3-A ":" F4 ":".
|
|
|
|
CALL "test15b" USING F1 F2 F3 F4.
|
|
|
|
MOVE F3 TO F3-A.
|
|
DISPLAY "main (test15) COB return :" F1 ":" F2 ":" F3-A ":" F4 ":".
|
|
* ----------------------------------------
|
|
|
|
MOVE WS1 TO F3-A.
|
|
DISPLAY "main (test15) COB WS1=" F3-A ":".
|
|
|
|
STOP RUN.
|