Ich finde den Grund des Fehlers nicht, trotz der Recherche in diesem Forum.


Den kompletten Befehl kann ich auf der AS/400 absetzen,
aber im Programm tritt ein Fehler auf.
CRTSNDMDAV ACCOUNT(AS400)
TO('bernhard.tarkusch@gmail.com')
SUBJECT('Pgm-Fehlermeldung')
TEXT('Fehler(0013) im Programm
aufgetreten!')

Kann mir jemand einen Tip geben?
Code:
DQCMDEXEC         PR                  EXTPGM('QCMDEXC')                              
D CMDTXT                      1000A   CONST OPTIONS(*VARSIZE)                        
D CMDLEN                        15P 5 CONST                                          
D*                                                                                   
D CMDTXT          S           1000A                                                  
D CMDLEN          S             15P 5                                                
D HK              C                   Const('''')             Hochkomma 
D $$TEXT          S            512A                                                  
****************************************************************          
 * Hauptprogramm *MAIN                                                     
 ****************************************************************          
 /Free                                                                     
    $$Text = 'Fehler(0013) im Programm aufgetreten!';                      
    CMDTXT = 'CRTSNDMDAV ACCOUNT(AS400) TO(' + HK +                        
             'bernhard.tarkusch@gmail.com' + HK +                          
    ') SUBJECT(' + HK + 'Pgm-Fehlermeldung' + HK +                         
             ') TEXT(' + HK + '@TXT' + HK + ')';                           
    CMDTXT = %replace(%Trimr($$TEXT):CMDTXT:%scan('@TXT':CMDTXT):4);       
                                                                           
    MONITOR;                                                               
      QCMDEXEC(CMDTXT:CMDLEN);                                             
    ON-ERROR *ALL;                                                         
      Msgbox(PGMSDS);                                                      
    ENDMON;                                                                

    *INLR= *ON;      
    Return;
Gruß und Dank im Voraus

Tarki