[
|../../index.htm#lansa/tgub9_001.htm]
現在地:
拡張可能なグループは、次のように定義することができます。
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)
[
|../../index.htm#lansa/tgub9_001.htm]