拡張可能なグループに関する特記事項

拡張可能なグループは、次のように定義することができます。

GROUP_BY   NAMED(#XG_CUST) FIELDS(#CUSTNO #CUSTNM #ADDR1 #ADDR2

                                  #POSTCD)

GROUP_BY   NAMED(#XG_PRKY) FIELDS(#GROUP #PRODNO)

GROUP_BY   NAMED(#XG_PROD) FIELDS(#XG_PRKY #DESC #CLASS #PRICE

                                  #BARCOD)

GROUP_BY   NAMED(#XG_ORD)  FIELDS(#XG_CUST #XG_PROD)

 

上記の拡張可能なグループは、次のように使用することができます。

FETCH      FIELDS(#XG_CUST) FROM_FILE(CUSMST)

FETCH      FIELDS(#XG_PROD) FROM_FILE(PRDMST) WITH_KEY(#XG_PRKY)

DISPLAY    FIELDS(#XG_ORD)

Ý 13.1.2 フィールド・グループおよび拡張可能なグループ