Probier mal so:

DSPF
PHP-Code:
R MSGIDF                                              
  MSG           80A    10 10MSGID(MSG0001 QTEMP/MSGID) 
CLP
PHP-Code:
PGM                                                  
DCL        VAR(&T1)  TYPE(*CHAR) LEN(1) VALUE(X'29') 
DCL        VAR(&T2)  TYPE(*CHAR) LEN(1) VALUE(X'20') 
DCL        VAR(&MSG) TYPE(*CHAR) LEN(80)             
DCLF       FILE(MSGID)                               
MONMSG     MSGID(CPF0000)                            
CRTMSGF    MSGF(QTEMP/MSGID)                         
CHGVAR     VAR(&MSG) VALUE(&T1 *CAT 'Text' *CAT &T2) 
RMVMSGD    MSGID(MSG0001) MSGF(QTEMP/MSGID)          
ADDMSGD    MSGID(MSG0001) MSGF(QTEMP/MSGID) MSG(&MSG)
SNDRCVF    RCDFMT(MSGIDF)                            
ENDPGM 
Farben Hex Codes siehe hier.