SET BDY(GLOBAL) /* FMIDSETs only in global. */.
UCLIN /* */.
REP FMIDSET(XXSET) /* Define FMIDSET name. */
FMID(FXX1102 /* Define function SYSMODs. */
/* JXX1121 left out. */
JXX1122 /* */
JXX1123 /* */
JXX1124) /* JXX1124 added. */
/* */.
ENDUCL /* */.
You
can also do the following: SET BDY(GLOBAL) /* FMIDSETs only in global. */.
UCLIN /* */.
DEL FMIDSET(XXSET) /* Define FMIDSET name. */
FMID(JXX1121) /* Delete JXX1121 from set. */
/* */.
ADD FMIDSET(XXSET) /* Define FMIDSET name. */
FMID(JXX1124) /* Add new FMID. */
/* */.
ENDUCL /* */.
The result in both cases is the same. The choice of which method to use most likely depends on the number of FMIDs defined in the FMIDSET.