Habe es jetzt umgesetzt und bekomme aber einen Fehler.

Mein Rpg-Code
Code:
D PRVPGM          PR                  EXTPGM('PRVPGM')     
D  CALLER_                      10A   Options( *Omit )     
D  CALLED_                      10A   Options( *Omit )     
D*                                                         
D  CALLER_ID      S             10A                        
D  CALLED_ID      S             10A                        
      :
      :
IF CHGPGM = 'QDBUDR';                              
  CALLER_ID = 'QDBUDR';                            
  CALLED_ID = *BLANKS;                             
  CALLP(E) PRVPGM(CALLER_ID : CALLED_ID);          
  IF CALLED_ID <> *BLANKS AND %ERROR = *OFF;       
    CHGPGM = CALLED_ID;                            
  ELSE;                                            
    IF %ERROR;                                     
      CHGPGM = 'ERR:PRVPGM';                       
    ENDIF;                                         
  ENDIF;                                           
ENDIF;

Joblog
Code:
                              Modulquelle anzeigen                              
                                                                                
 Programm:   PRVPGM         Bibliothek:   SRCTST         Modul:   PRVPGM        
     14               DCL        VAR(&SENDER)   TYPE(*CHAR) LEN(80)             
     15  /* ---------------------------------------------------------------*/   
     16               SNDPGMMSG  MSG('TEST') TOPGMQ(*PRV (&CALLED)) MSGTYPE(*RQ 
     17                                                                         
     18               RCVMSG     PGMQ(*PRV (&CALLED)) MSGKEY(&MSGKEY) SENDER(&S 
     19                                                                         
     20               CHGVAR     VAR(&CALLER) VALUE(%SST(&SENDER 56 10))        
     21                                                                         
     22   ENDE:       ENDPGM                                                    
                                                                               
 
 
                        Weitere Nachrichteninformationen                        
                                                                               
 Nachrichten-ID . . . . :   CPA0702       Bewertung  . . . . . . :   99         
 Nachrichtenart . . . . :   Anfrage                                             
 Sendedatum . . . . . . :   17.08.10      Sendezeit  . . . . . . :   11:12:50   
                                                                               
 Nachricht . . . :   (C D I R) CPF2469 von Prozedur PRVPGM empfangen.           
 Ursache  . . . . :  Die ILE CL-Prozedur PRVPGM in Modul PRVPGM in Programm     
   PRVPGM in Bibliothek SRCTST stellte einen Fehler bei Anweisungsnummer        
   0000000116 fest. Der Nachrichtentext für CPF2469 ist: Fehler aufgetreten     
   beim Senden der Nachricht .  Die Taste F10 (falls verfügbar) oder den Befehl 
   DSPJOBLOG (Jobprotokoll anzeigen) verwenden, um die Nachrichten im           
   Jobprotokoll aufzulisten und eine ausführlichere Beschreibung der            
   Fehlerursache zu erhalten. Kann das Problem trotzdem nicht gelöst werden,    
   den technischen Dienst verständigen.                                         
 Fehlerbeseitigung:  Diese Abfragenachricht kann vermieden werden, indem die    
   Prozedur geändert wird. Nachrichten auf den Fehler hin überwachen (Befehl    
   MONMSG) und den Fehler in der Prozedur beheben. Um fortzufahren, einen       
                                                                   Weitere ...  
 Eingabetaste --> Weiter                                                        
 
   Öffnen von Teildatei ZPG001P in SEQONLY(*NO) geändert.               
   Abfrageoptionsdatei kann nicht abgerufen werden.                     
   Aufrufstapeleintrag nicht gefunden.                                  
   Fehler aufgetreten beim Senden der Nachricht .                       
   Funktionsprüfung. CPF2469 nicht überwacht durch PRVPGM bei Anweisung 
     0000000116, Instruktion X'0000'.                                   
   (C D I R) CPF2469 von Prozedur PRVPGM empfangen.                     
 ? I                                                                    
   Teildatei oder Kennsatz in Ausgangsdatei nicht gefunden oder         
     zurückgestellt.                                                    
   Wegen eines Fehlers Kopierbefehl beendet.                            
   Abfrageoptionsdatei kann nicht abgerufen werden.                     
   Abfrageoptionsdatei kann nicht abgerufen werden.                     
   1 Sätze aus Teildatei QDEFAULT kopiert.
Was habe ich falsch gemacht?
Feld CHGPGM wird über ein Srv-Pgm befüllt(Stackaufruf).