図 1 は、REPLACING オプションを指定しない、形式 2 の COPY ステートメントを説明しています。
5722WDS V5R4M0 060210 LN IBM ILE COBOL TESTLIB/STRTEXTD I-SERIES1 06/02/15 11:27:50 Page 2
STMT PL SEQNBR -A 1 B..+....2....+....3....+....4....+....5....+....6....+....7..IDENTFCN S コピー名 変更日付
11 000100 FD CUST-MASTER.
12 000200 01 CUSTOMER-RECORD.
000300*
000400* COPY DDS W I T H O U T REPLACING OPTION
000500*
13 000600 COPY DDS-CUSMST OF TESTLIB-CUSMSTP.
+000001* I-O FORMAT:CUSMST FROM FILE CUSMSTP OF LIBRARY TESTLIB CUSMST
+000002* ORDER HEADER RECORD CUSMST
14 +000003 05 CUSMST. CUSMST
15 +000004 06 CUST PIC X(5). CUSMST
+000005* CUSTOMER NUMBER CUSMST
16 +000006 06 NAME PIC X(25). CUSMST
+000007* CUSTOMER NAME CUSMST
17 +000008 06 ADDR PIC X(20). CUSMST
+000009* CUSTOMER ADDRESS CUSMST
18 +000010 06 CITY PIC X(20). CUSMST
+000011* CUSTOMER CITY CUSMST
19 +000012 06 STATE PIC X(2). CUSMST
+000013* STATE CUSMST
20 +000014 06 ZIP PIC S9(5) COMP-3. CUSMST
+000015* ZIP CODE CUSMST
次の図は、REPLACING オプションを指定する、形式 2 の COPY ステートメントを示します。
5722WDS V5R4M0 060210 LN IBM ILE COBOL TESTLIB/STRTEXTD I-SERIES1 06/02/15 11:27:50 Page 2
STMT PL SEQNBR -A 1 B..+....2....+....3....+....4....+....5....+....6....+....7..IDENTFCN S コピー名 変更日付
30 001000 FD CUST-MASTER.
31 001100 01 CUSTOMER-RECORD.
001200*
001300* COPY DDS W I T H REPLACING OPTION
001400*
32 001500 COPY DDS-CUSMST OF TESTLIB-CUSMSTP
33 001600 REPLACING NAME BY ADDR-LINE-1
34 001700 ADDR BY ADDR-LINE-2
35 001800 CITY BY ADDR-LINE-3.
+000001* I-O FORMAT:CUSMST FROM FILE CUSMSTP OF LIBRARY TESTLIB CUSMST
+000002* ORDER HEADER RECORD CUSMST
36 +000003 05 CUSMST. CUSMST
37 +000004 06 CUST PIC X(5). CUSMST
+000005* CUSTOMER NUMBER CUSMST
38 +000006 06 ADDR-LINE-1 PIC X(25). CUSMST
+000007* CUSTOMER NAME CUSMST
39 +000008 06 ADDR-LINE-2 PIC X(20). CUSMST
+000009* CUSTOMER ADDRESS CUSMST
40 +000010 06 ADDR-LINE-3 PIC X(20). CUSMST
+000011* CUSTOMER CITY CUSMST
41 +000012 06 STATE PIC X(2). CUSMST
+000013* STATE CUSMST
42 +000014 06 ZIP PIC S9(5) COMP-3. CUSMST
+000015* ZIP CODE CUSMST