IP einer ACS / CA Sitzung auslesen [Archiv] - Seite 2

Fuerchau

26-10-22, 14:52

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 (https://www.ibm.com/support/pages/utility-display-ipv4-address-clients-connected-server-jobs-running-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 (https://www.ibm.com/docs/en/i/7.2?topic=services-netstat-job-info-view)

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

dibe

26-10-22, 16:07

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))

Fuerchau

26-10-22, 18:06

Hast du mal geprüft, ob die NETSTAT_JOB_INFO View vorhanden ist? Das macht es doch einfacher.
Ich finde, da steht alles drin, sogar der User, der sich an der IP angemeldet hat.

dibe

27-10-22, 08:18

Hallo Herr Fuerchau,
nein das hatte ich noch nicht geprüft, aber ich werde mir das ansehen, vielen dank!

Dietlinde Beck