To invoke the compiler as a CLIST, code the following statements:
PROC 0
FREE DD(SYSUT1,SYSUT2,SYSPRINT) /* FREE DD'S */
ALLOC DD(SYSUT1) DSN('msg_pds') SHR /* ALLOC INPUT - INSTALL MESSAGE FILE */
ALLOC DD(SYSUT2) DSN('msg_div_obj') OLD /* ALLOC OUTPUT - VSAM DATA SET */
ALLOC DD(SYSPRINT) DSN(*) /* ALLOC SYSPRINT */
CALL 'SYS1.LINKLIB(CNLCCPLR)' ('lang,dbcs') /* CALL MESSAGE COMPILER */
SET &RCODE = &LASTCC /* SET RETURN CODE */
FREE DD(SYSUT1,SYSUT2,SYSPRINT) /* FREE FILES */
EXIT CODE(&RCODE) /* EXIT */