-
Sitzung A oder B oder ...??
Hallo zusammen,
wenn der Anwender sich an der AS/400 anmeldet, soll automatisch ein Programm anlaufen - aber nur auf der Sitzung A, nicht für weitere Sitzungen.
Wie kann ich denn die Sitzung abfragen,
geht das mit irgendeinem CL-Befehl ??
Anette
-
Zitat von Anette
....Wie kann ich denn die Sitzung abfragen,
geht das mit irgendeinem CL-Befehl ??
Hello Anette,
ich denke, da ist Handarbeit (=Programmierung) angesagt.
Allerdings haben solche Systeme die unangenehme Eigenschaft, z.B. bei Absturz der Session den "Zähler" nicht zurückzusetzen.
Um das alles sauber in den Griff zu bekommen, muss man schon viel Energie reinstecken.
k.
Zusatz: es gab mal son Minitool IFACTUSR, müsste ich mal in mich gehen/suchen....
-
Hi,
Wenn ihr feste Sitzungsnamen habt kannst du doch den JOBNamen abfragen. Ein CL als Startpgm hinter den User, call EXTRAPGM nur wenn JOBNAME DSPxx oder QPADEV00xx ...
Robi
-
Sodele, ich nochmal.
Das Tool finde ich nicht mehr, aber es gibt nen API der analog zu WRKUSRJOB arbeitet.
Ich denke Dein Freund wäre:
List Signed-On Users (QEZLSGNU) API
k.
und noch ein Zusatz:
es gibt schon ein Listing von Scott Klement.. hier
http://www.as400network.com/isnetfor...p?t-42596.html
ganz nach unten scrollen...
und formatiert dann hier:
http://www.iseriesnetwork.com/isnetf...ad.php?t=42596
k.
-
Nun, es gibt da eine ganz einfache Möglichkeit.
Für jeden Benutzér gibt es eine MSGQ in der QUSRSYS die eigentlich automatisch für Zustellung Break zugeordnet wird.
Dies geschieht eigentlich automatisch und kann nur einmal durchgeführt werden.
Mittels "CHGMSGQ MSGQ(AktUser) DLVRY(*BREAK)" kann dies auch per CLP durchgeführt werden.
Bei "MONMSG CPF2451" ist dies die mindestens 2. Anmeldung.
Der AktUser kann per RTVJOBA ermittelt werden.
Allerdings:
Wird dies 1. Sitzung abgemeldet und eine 3. Sitzung gestartet kann die MSGQ natürlich wieder zugeordnet werden, was ja durchaus beabsichtigt sein kann.
-
Zitat von Anette
Hallo zusammen,
wenn der Anwender sich an der AS/400 anmeldet, soll automatisch ein Programm anlaufen - aber nur auf der Sitzung A, nicht für weitere Sitzungen.
Hallo Anette,
Du müsstest festlegen:
a) soll dieser Job nur auf einer Sitzung mit einem bestimmten Namen laufen? (RTVJOBA wäre hier Dein Freund)
b) soll dieser Job für die *erste* Sitzung des Users laufen (Handarbeit mit WRKUSRJOB OUTPUT(*PRINT) JOBTYPE(*INTERACT) oder API)
c) soll dieser Job nur einmal am Tag laufen?
d) ...
-h
-
Hallo,
ich meine Variante B, der Job soll nur auf der ersten Sitzung laufen, feste Sitzungsnamen haben wir auch nicht.
Danke für die Antworten, leider bin ich überfordert damit. Ich hab mir eingebildet, dass man mithilfe CL die Sitzung rauskriegen kann ... aber dem scheint ja nicht so zu sein. Ich werde es mit Fuerchaus Vorschlag probieren oder hat sonst noch jemand eine Idee ?
Gruß
Anette
-
Zitat von Anette
Ich hab mir eingebildet, dass man mithilfe CL die Sitzung rauskriegen kann ...
Hallo Anette, selbst mit CL und "altmodischen" Methoden geht das...
mal so aus dem Kopf getippt:
PHP-Code:
PGM
DCLF FILE(QTEMP/QPDSPSBJ)
DCL VAR(&GRAFZAHL) TYPE(*DEC) LEN(5) VALUE(0)
WRKUSRJOB STATUS(*ACTIVE) OUTPUT(*PRINT)
JOBTYPE(*INTERACT)
CPYSPLF FILE(QPDSPSBJ) TOFILE(QTEMP/QPDSPSBJ) +
SPLNBR(*LAST)
DLTSPLF FILE(QPDSPSBJ) SPLNBR(*LAST)
loopy:
RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(AUSIST))
IF COND(%SST(&QPDSPSBJ 39 5) *EQ 'INTER') +
THEN(CHGVAR VAR(&GRAFZAHL) +
VALUE(&GRAFZAHL +1))
GOTO CMDLBL(LOOPY)
ausist:
IF COND(&GRAFZAHL = 1) THEN(SNDMSG MSG('Das ist +
der erste Job!') TOUSR(*REQUESTER))
ENDPGM
Vor dem Umwandeln:
PHP-Code:
CRTPF QTEMP/QPDSPSBJ RCDLEN(132)
Similar Threads
-
By lossin in forum IBM i Hauptforum
Antworten: 8
Letzter Beitrag: 10-05-06, 09:57
-
By jogisarge in forum IBM i Hauptforum
Antworten: 6
Letzter Beitrag: 06-03-06, 08:03
-
By mfriedland in forum IBM i Hauptforum
Antworten: 32
Letzter Beitrag: 29-06-05, 09:26
-
By areichelt in forum IBM i Hauptforum
Antworten: 2
Letzter Beitrag: 07-12-04, 14:02
-
By steinkohl in forum IBM i Hauptforum
Antworten: 1
Letzter Beitrag: 17-06-04, 12:44
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks