65 lines
2.2 KiB
COBOL
65 lines
2.2 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. TEST15I.
|
|
AUTHOR. Bernard GIROUD.
|
|
INSTALLATION. Tiny Cobol Compiler Project.
|
|
DATE-WRITTEN. 05-AUG-2000.
|
|
DATE-COMPILED.
|
|
SECURITY. NONE.
|
|
|
|
ENVIRONMENT DIVISION.
|
|
* INPUT-OUTPUT SECTION.
|
|
* FILE-CONTROL.
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
|
|
WORKING-STORAGE SECTION.
|
|
01 PARM01 PIC X(20) VALUE "ABCDEFGHIJ0123456789".
|
|
01 PARM02.
|
|
05 FILLER PIC X(4) VALUE "ABCD".
|
|
05 FILLER PIC X VALUE LOW-VALUE.
|
|
01 PARM03.
|
|
05 FILLER PIC X(4) VALUE "0123".
|
|
05 FILLER PIC X VALUE LOW-VALUE.
|
|
01 PARM04.
|
|
05 FILLER PIC X(4) VALUE "EFGH".
|
|
05 FILLER PIC X VALUE LOW-VALUE.
|
|
01 PARM05.
|
|
05 FILLER PIC X(4) VALUE "4567".
|
|
05 FILLER PIC X VALUE LOW-VALUE.
|
|
01 RES1.
|
|
05 EPARM02 PIC X(4).
|
|
05 EPARM03 PIC X(4).
|
|
05 EPARM04 PIC X(4).
|
|
05 EPARM05 PIC X(4).
|
|
|
|
PROCEDURE DIVISION.
|
|
DISPLAY "--------------------------------------------------".
|
|
DISPLAY "main (test15i) COB input : PARM01=" PARM01 ":".
|
|
CALL "TEST15J" USING PARM01.
|
|
DISPLAY "C002:(" PARM01 "):(9876543210JIHGFEDCBA):"
|
|
"Call by reference x(20).".
|
|
DISPLAY "main (test15i) COB return : PARM01=" PARM01 ":".
|
|
|
|
DISPLAY "--------------------------------------------------".
|
|
DISPLAY "main (test15i) COB input : PARM01=" PARM01 ":".
|
|
MOVE "ABCDEFGHIJ0123456789" TO PARM01.
|
|
CALL "TEST15J" USING BY CONTENT PARM01.
|
|
DISPLAY "C004:(" PARM01 "):(ABCDEFGHIJ0123456789):"
|
|
"Call by content x(20).".
|
|
DISPLAY "main (test15i) COB return : PARM01=" PARM01 ":".
|
|
|
|
DISPLAY "--------------------------------------------------".
|
|
DISPLAY "main (test15i) COB input : PARM02=" PARM02 ": PARM03="
|
|
PARM03 " PARM04=" PARM04 ": PARM05=" PARM05.
|
|
CALL "STEST910" USING PARM02 BY CONTENT PARM03
|
|
BY REFERENCE PARM04 BY CONTENT PARM05.
|
|
MOVE PARM02 TO EPARM02.
|
|
MOVE PARM03 TO EPARM03.
|
|
MOVE PARM04 TO EPARM04.
|
|
MOVE PARM05 TO EPARM05.
|
|
DISPLAY "C005:(" RES1 "):(AB9D0123EF9H4567):"
|
|
"Call by ref and by content in alternance x(4).".
|
|
DISPLAY "main (test15i) COB return : PARM02=" PARM02 ": PARM03=" PARM03 ":"
|
|
PARM03 " PARM04=" PARM04 ": PARM05=" PARM05.
|
|
STOP RUN.
|