Sitzung A oder B oder ...??

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