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

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

     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)