Also im Moment ist es so, dass er mir zwar nicht mehr abstürzt (da ich nach dem CALL auf das RPG noch den CPF0000 hat) aber an den ENDRQS springt er mir nicht. Also greift auch irgendwie die CPF1907 nicht, obwohl ich sie im JOBLOG sehe. Ich hab dann mal den CPF0000 zum ENDRQS springen lassen. Allerdings steht im &KEY auch nichts vernünftiges drin.

So sieht der Quellcode im Moment aus
PHP-Code:
PGM        PARM(&PI@RESULT &PI@PRCI)

DCL        VAR(&PI@RESULT) TYPE(*CHAR) LEN(1)
DCL        VAR(&PI@PRCI) TYPE(*CHAR) LEN(3)
DCL        VAR(&KEY) TYPE(*CHAR) LEN(4)                                                                               

SNDPGMMSG  MSG('-') TOPGMQ(*EXT) MSGTYPE(*RQS)                         
RCVMSG     KEYVAR(&KEY) PGMQ(*EXT) MSGTYPE(*RQS) RMV(*NO)                                                                                     
STRCMTCTL  LCKLVL(*CHG) CMTSCOPE(*JOB)                                 
MONMSG     MSGID(CPF8351)                                                                                                                     
CHGJOB     DEVRCYACN(*MSG)                                                                                                                    
CALL       PGM(PBS30R) PARM(&PI@RESULT &PI@PRCI)                       
MONMSG     MSGID(CPF1907) EXEC(GOTO CMDLBL(ENDRQS))                    
MONMSG     MSGID(CPF0000)                                                                                                                     
CHGJOB     DEVRCYACN(*ENDJOB)                                                                                         
             
RCLRSC                                 
ENDCMTCTL
MONMSG     MSGID(CPF8350)                                        
ENDRQS:      RMVMSG     MSGKEY(&KEY)   
ENDPGM:      ENDPGM