COBOL2002 言語 拡張仕様編
DATA DIVISION.
:
WORKING-STORAGE SECTION.
01 A PIC X(2).
01 B PIC 9(3).
01 C.
05 D PIC X.
05 E PIC 9(5).
01 F.
05 G OCCURS 10 INDEXED H PIC X(4).
PROCEDURE DIVISION.
:
U. CALL 'SUB1' USING B C. …(1)
:
V. CALL 'SUB2' USING A F. …(2)
DATA DIVISION.
:
LINKAGE SECTION.
01 K PIC 9(3).
01 L PIC X(2).
01 M.
05 N OCCURS 10 INDEXED O PIC X(4).
01 P.
05 Q PIC X.
05 R PIC 9(5).
PROCEDURE DIVISION.
:
X. ENTRY 'SUB1' USING K P. …(3)
:
Y. ENTRY 'SUB2' USING L M. …(4)
All Rights Reserved. Copyright (C) 2003, 2017, Hitachi, Ltd.