DTAARA, MSG und CL

[Pikachu]

Vielleicht in etwa so?

NAME muß natürlich durch den jeweiligen Datei- bzw. Datenbereichsnamen ersetzt werden.

PGM                                                      
DCL        VAR(&MSG)   TYPE(*CHAR) LEN(512)              
DCL        VAR(&MSGQ)  TYPE(*CHAR) LEN(10)               
DCL        VAR(&TEXT)  TYPE(*CHAR) LEN(50)               
DCL        VAR(&FIRMA) TYPE(*CHAR) LEN(3)                
MONMSG     MSGID(CPF0000)                                
                                                         
RTVJOBA    JOB(&MSGQ)                                    
RTVOBJD    OBJ(NAME) OBJTYPE(*FILE) TEXT(&TEXT)          
CHGVAR     VAR(&FIRMA) VALUE(%SST(&TEXT 8 3))            
CHGVAR     VAR(&MSG) VALUE('Sie arbeiten aktuell in +    
                            Firma' *BCAT &FIRMA *CAT '!')
SNDBRKMSG  MSG(&MSG) TOMSGQ(&MSGQ)                       
CRTDTAARA  DTAARA(NAME) TYPE(*CHAR) LEN(100)             
CHGDTAARA  DTAARA(NAME (1 3))  VALUE(&FIRMA)             
RTVDTAARA  DTAARA(NAME (1 3)) RTNVAR(&FIRMA)             
IF         COND(&FIRMA *EQ '890') THEN(DO)               
SNDBRKMSG  MSG(OK) TOMSGQ(&MSGQ)                         
ENDDO                                                    
ENDPGM