形式 2 の COPY ステートメントで REPLACING 句を使用する場合の考慮事項

レベル番号を含め、生成された COBOL ソースを置き換えるには、REPLACING 句を使用できます。 (詳細は REPLACING 句を参照してください。) ただし、以下の例外に注意する必要があります。

図 1 は、REPLACING オプションを指定しない、形式 2 の COPY ステートメントを説明しています。

図 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 ステートメントを示します。

図 2. 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