39 lines
931 B
COBOL
39 lines
931 B
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. PTEST05.
|
|
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.
|
|
CALL "STEST04" USING PARM01.
|
|
CALL "STEST04" USING PARM01.
|
|
STOP RUN.
|