Expandable Group Examples

Example 1:

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

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

       FROM_FILE (CUSTMST)

Example 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)