Using REXX to invoke the message compiler

To invoke the compiler as a REXX exec, code the following statements:

/* MESSAGE COMPILER INVOCATION EXEC */

"FREE DD(SYSUT1,SYSUT2,SYSPRINT)"

"ALLOC DD(SYSUT1) DSN(msg_pds) SHR"
"ALLOC DD(SYSUT2) DSN(msg_div_obj) OLD"
"ALLOC DD(SYSPRINT) DSN(*)"

"CALL 'SYS1.LINKLIB(CNLCCPLR)' (lang,dbcs)"

compiler_rc=rc

"FREE DD(MSGIN,MSGOUT,SYSPRINT)"

return(compiler_rc)

Note: For the variables msg_pds, msg_div_obj, lang, and dbcs, REXX substitutes values that you have assigned. For information on using REXX, see z/OS TSO/E REXX User's Guide.