Sitzung A oder B oder ...??

[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.
Wie kann ich denn die Sitzung abfragen,
geht das mit irgendeinem CL-Befehl ??

Anette

[kuempi von stein]

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

[Robi]

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

[kuempi von stein]

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.

[Fuerchau]

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.

[holgerscherer]

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

[Anette]

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

[holgerscherer]

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:

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:

CRTPF QTEMP/QPDSPSBJ RCDLEN(132)