Using CLIST to invoke the message compiler

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                               */