Sitzung A oder B oder ...??

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