非 Db2 データを含むテンプレートの使用

01 ORDERS.
   02 ORDER-ID        PIC X(5).
   02 CUSTOMER-ID     PIC X(5).
   02 ORDER-DATE.
      03 ORDER-YEAR   PIC X(4).
      03 ORDER-MONTH  PIC X(2).
      03 ORDER-DAY    PIC X(2).
01 ITEM.
   02 PRODUCT-ID      PIC X(9).
   02 QUANTITY        PIC 9(4) BINARY.
   02 UNIT-COST       PIC 9(8) BINARY.

ORDER レコードには、次の 5 つのフィールドがあります: それは、ORDER-ID、CUSTOMER-ID、ORDER-YEAR、ORDER-MONTH、および ORDER-DAY です。ITEM レコードには、次の 3 つのフィールドがあります: それは、PRODUCT-ID、QUANTITY、および UNIT-COST です。

ORDER      DESCT
ORDERID    DS  CL9
CUSTOMERID DS  CL5
ORDERDATE  DS  0CL8
ORDERYEAR  DS  CL4
ORDERMONTH DS  CL2
ORDERDAY   DS  CL2
ITEM       DESCT
PRODUCTID  DS  CL9
QUANTITY   DS  H
UNITCOST   DS  F

DECLARE 1 ORDER,
          2 ORDER_ID       CHAR(9),
          2 CUSTOMER_ID    CHAR(5),
          2 ORDER_DATE,
            3 ORDER_YEAR   CHAR(4),
            3 ORDER_MONTH  CHAR(2),
            3 ORDER_DAY    CHAR(2);
DECLARE 1 ITEM,
          2 PRODUCT_ID     CHAR(9),
          2 QUANTITY       BIN(15),
          2 UNIT_COST      BIN(31);