44 lines
1.1 KiB
COBOL
44 lines
1.1 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. TEST07.
|
|
ENVIRONMENT DIVISION.
|
|
|
|
CONFIGURATION SECTION.
|
|
SPECIAL-NAMES.
|
|
DECIMAL-POINT IS COMMA.
|
|
* INPUT-OUTPUT SECTION.
|
|
* FILE-CONTROL.
|
|
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
|
|
WORKING-STORAGE SECTION.
|
|
01 TEST1 PIC Z.Z(3).ZZ9,9(2).
|
|
01 TEST2 PIC AA-9(7).X(3)/99.
|
|
01 VAR PIC X(20) VALUE "Hello from cobol!".
|
|
01 VAR1 PIC X(20) VALUE "Subroutine in cobol".
|
|
01 RESULT PIC X(20) VALUE SPACES.
|
|
|
|
PROCEDURE DIVISION.
|
|
|
|
* display "This program don't run without receiving " NO ADVANCING
|
|
* display "struct fld_desc as argument."
|
|
|
|
display spaces.
|
|
display "Will call a subroutine in Cobol".
|
|
display "-------------------------------".
|
|
call "COBSUB" USING VAR1 RESULT.
|
|
display "---- Returned from cobsub -----".
|
|
display "RETURNED: [" RESULT "]".
|
|
display spaces.
|
|
display "Will call a subroutine in C".
|
|
display "---------------------------".
|
|
call "subrot" USING VAR.
|
|
display "---- Returned from subrot -----".
|
|
display spaces.
|
|
|
|
|
|
* CALL "picExpand" USING TEST1.
|
|
* CALL "picExpand" USING TEST2.
|
|
99-END.
|
|
STOP RUN.
|