The following example shows invoking the FLMCMD NOPROM service to set the member FLM01EQU as non-promotable. Using the REBUILD parameter causes all the build maps containing FLM01EQU to be rebuilt when promoted.

For more information, see the NOPROM service in Chapter 15.

/*REXX*/
/*-------------------------------------------------------------------*/
/*                                                                   */
/* FLMCMD NOPROM command                                             */
/*                                                                   */
/*-------------------------------------------------------------------*/
trace n
 /* allocate FLMMSG DSN */
 PARSE ARG PROJECT ALTPROJ GROUP TYPE MEMBER SVCPARM

ADDRESS TSO
msgdsn = "'"||USERID()||".TEMP.FLMMSG'"
X=MSG('OFF')
IF SYSDSN(msgdsn) <> "OK" THEN DO
   "ALLOC FI(AAAMSGS) DATASET("msgdsn") ",
        "UNIT(SYSDA) TRACKS SPACE(5 5) ",
        "LRECL(80) BLKSIZE(3120) RECFM(F B) DSORG(PS) ",
        "NEW CATALOG "
   "FREE FI(AAATEMP)"
END
"FREE FI(FLMMSGS) "
X=MSG('ON')
"ALLOC FI(FLMMSGS) DATASET("msgdsn") SHR REUSE"

PROJECT="SCLMPROJ"
ALTPROJ="SCLMPROJ"
GROUP  ="DEV1"
TYPE   ="SOURCE"
MEMBER ="FLM01EQU"
SVCPARM="REBUILD"

"FLMCMD NOPROM,"PROJECT","ALTPROJ","GROUP","TYPE","MEMBER",",
         ","SVCPARM",FLMMSGS"

 "ISPEXEC BROWSE DATASET("msgdsn")"
return