so, vielen Dank
Hier meine Version:

Die Datei:
Code:
create Table  XXXX/DEV_IP
(DEV char (10) not null with default,
 IP char (15) not null with default)
Der Wächter:
Code:
H DECEDIT('0,')  DATEDIT(*DMY.)  ACTGRP('WCH')              
                                                               
D TYPE            S             10                             
D SESSION         S             10                             
D ERROR           S             10                             
D DATA            S           1000                             


 *---  für unseren Mailversand ---*                                                                
D/COPY QRPGSRC,CPP055PARM                                      
                                                               
C     *ENTRY        PLIST                                      
C                   PARM                    TYPE               
C                   PARM                    SESSION            
C                   PARM                    ERROR              
C                   PARM                    DATA               
C                   EVAL      DEV = %SUBST(DATA:33:10)         
 * Zum Testen, da es keine Job gibt, erzeugt MSGW der ignoriert werden kann  

C* **               call      'MKMSGW'                         
C* **               PARM                    DEV              10
C                   IF        %SUBST(DATA:5:7) = 'CPF1124'     
C                   CALL      'RTVDEVD'                        
C                   PARM                    DEV              10
C                   PARM                    IP               15      
C                                                                    
C/EXEC SQL DELETE FROM XXXX/DEV_IP WHERE DEV = :DEV              
C/END-EXEC                                                           
C/EXEC SQL INSERT INTO XXXX/DEV_IP VALUES(:DEV, :IP)             
C/END-EXEC                                                           
C                   ELSE                                             
C/EXEC SQL SET :IP = (SELECT IP FROM XXXX/DEV_IP WHERE DEV=:DEV) 
C/END-EXEC  

 * versenden einer mail im HTML Format (Externe Lösung)                                                         
C                   CLEAR                   P055PARM                 
C                   EVAL      P055ERPG = 'MAILTOC'                   
C                   EVAL      P055VPGM = 'WCHCPF'                    
C                   EVAL      P055SART = 'WCHCP'                     
 
C                   EVAL      P055BTR = 'Temporär gestoppter Job: ' +
C                              %SUBST(DATA:33:30)                    
C                   EVAL      P055TX01 = '<HTML>Job         ' +      
C                                          %SUBST(DATA:33:10) +      
C                                                      '<BR>' +      
C                             'vom User    ' +%SUBST(DATA:43:10) +   
C                                                         '<BR>' +         
C                             'mit der Nr.  ' +%SUBST(DATA:53:6)  +         
C                                                   '<BR>' +               
C                             'und der <h1>IP ' + IP + '</h1>'  +          
C                                                         '<BR>' +         
C                                                         '<BR>' +         
C                             'ist soeben in den temporären Stopp gelaufen'
C                   CALL      'MAILTOC'                                    
C                   PARM                    P055PARM                       
C                   ENDIF                                                  
                                                                           
C                   RETURN
Das Pgm RTVDEVD ist das Pgm von Herrn Raddatz


und der Watch
Code:
STRWCH SSNID(*GEN) WCHPGM(WCHCPF) WCHMSG((
CF5140) (CPF1124)) WCHMSGQ((*JOBLOG)) WCHJOB((*ALL/*ALL))