IP einer ACS / CA Sitzung auslesen

[dibe]

Guten Tag.
um Netzwerkausfälle besser zu analysieren sollen wir dem Anbieter IP Informationen der betroffenen Sitzungen melden.

kann ich diese IP-Adressen auslesen?

Dietlinde Beck

[Edefauler]

Wenn du das entsprechende Device schon kennst, dann ganz einfach mit DSPDEVD.
'DSPDEVD QPADEVxxxx' so in der Art.

[dibe]

Ich weis nur den Job (Vollständig)
Der ist auf DSC gegangen und hat CPF5140 gesendet.
Das habe ich mit STRWCH und einem kleinen PGM abgefangen.
Hier habe ich den JOB mit User und Nr.
Der Job IST interaktiv.
Von dem brauche ich die IP.

[Edefauler]

Ist es bei dir nicht so, dass der JOBNAME gleich der verwendeten DEVICE ist? Dann hast doch schon alles was du brauchst.

[Edefauler]

Ich sehe gerade, dass ich so ein ähnliches Watcher-CL-PGM schon mal geschrieben habe- wie kann ich dir das am besten zukommen lassen? Email?

...Kommando zurück- ich hatte damals die CPIB682 überwacht- hier hatte sich die IP direkt auslesen lassen. Mein PGM nützt dir somit leider nix.

[dibe]

Danke, du hast recht!
Der Jobname ist das Device, ich haben mich von dem QPADEVxxxx verwirren lassen, entschuldigung.

Den Watcher habe ich schon länger fertig, ich müsste nur noch einen RTVDEVD (den es ja nicht gibt) zum auslesen der IP haben. ggf gibt es da SQL's?

oder machst du dspdevd nach *print und liest das aus
oder ein API?

Wenn es nicht zu groß ist, ggf hier posten, dann haben alle was davon?

Danke
DiBe

[Edefauler]

Hab meinen obigen Beitrag gerade editiert- mein PGM nützt dir nix.

Meine API- & SQL-Kenntnis ist seeehr bescheiden. Ich müsste auf dspdevd *print zurückgreifen.

Evtl. weiß ja sonst einer aus dem Forum mehr?

Gerne
Ede

[Fuerchau]

Wenn der Job noch läuft bzw. das Joblog da ist, steht die Verbindung ganz am Anfang des Joblogs.

[Robi]

https://groups.google.com/g/comp.sys...EdIXHAgY?pli=1

da ist ein Beispiel von Thomas Raddatz

[dibe]

Erst mal vielen Dank Euch.

Das Pgm von Herrn Raddatz funktioniert erstmal sehr gut, aber in dem Watch von mir nicht.
Wenn die Jobs auf DSC stehen haben sie keine IP im Wrkdevd.
Das hilft mir also nicht.

Ich müsste also beim anmelden die IP ermitteln, in eine Tabelle schreiben und im fehlerfall auslesen.
Oder kennt Ihr (Frau Hauser?) eine SystemTabelle, in der diese Info steht?

Dibe

[Fuerchau]

Ok, im Dialog-Joblog steht die IP nicht mehr, beim alten CA wurde diese wohl von der Emulation mitgesendet.
Hier gibts ein Dokument für eine mögliche Lösung:
Utility to Display the IPv4 Address of Clients Connected to Server Jobs Running on IBM i

Per Netstat findet man die aktuellen Jobs mit den Remoteadressen für Port 23.
Dafür gibts die SQL-View:
NETSTAT_JOB_INFO view - IBM Documentation

Beim Start eines Dialogs mit dem eigenen Jobnamen einen "insert into logfile select * from ..." ausführen.

[dibe]

so, vielen Dank
Hier meine Version:

Die Datei:

create Table  XXXX/DEV_IP
(DEV char (10) not null with default,
 IP char (15) not null with default)

Der Wächter:

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

STRWCH SSNID(*GEN) WCHPGM(WCHCPF) WCHMSG((
CF5140) (CPF1124)) WCHMSGQ((*JOBLOG)) WCHJOB((*ALL/*ALL))