拡張可能なグループの例

LANSA

拡張可能なグ ループの例


例1:

GROUP_BY (#XG_ADDR) FIELDS (#ADDR1 #ADDR2 #ADDR3)

FETCH  (*ALL *EXCLUDING #XG_ADDR *INCLUDING #ADDR1)

       FROM_FILE (CUSTMST)

 

例2:

GROUP_BY (#XG_GROUP1) FIELDS (#A #B #C)

GROUP_BY (#XG_GROUP2) FIELDS (#D #E #F)

SUBMIT    PROCESS (PROC01) FUNCTION (FUN01) 

          EXCHANGE (#XG_GROUP1 *SYSUAR1 #XG_GROUP2 *EXCLUDING #C #D) 

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