Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

     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)