Hmmm, eu geralmente uso ^ T (control-T) para ver 'quem sou eu' e $ SHOW US CWHII / FULL. Então atire para matar conforme necessário.
Se assumirmos que 'antigo' significa NÃO a sessão atual, então você escreve o seguinte:
$ type CLEAN_ME_UP.COM
$ ctx = ""
$ this = F$GETJPI( "", "PRCNAM" )
$ user = F$GETJPI( "", "USERNAME" )
$ node = F$GETJPI( "", "NODENAME" )
$ temp = F$CONTEXT( "PROCESS", ctx, "USERNAME", user, "EQL" )
$ temp = F$CONTEXT ("PROCESS", ctx, "NODENAME", node, "EQL")
$! IF F$TYPE( ctx ) .NES. "PROCESS_CONTEXT" THEN EXIT
$loop:
$ pid = F$PID( ctx )
$ IF pid .EQS. "" THEN EXIT
$ that = F$GETJPI( pid, "PRCNAM" )
$ IF this.EQS.that
$ THEN
$ WRITE SYS$OUTPUT pid, " new"
$ ELSE
$ WRITE SYS$OUTPUT pid, " old"
$ ENDIF
$ GOTO loop
- É claro que você deseja substituir o WRITE SYS $ OUTPUT por STOP / ID quando estiver satisfeito.
- Remova o contexto NODE se você quiser fazer isso para todos os processos mais antigos em cada nó.
- Considere F $ GETJPI ("", "LOGINTIM") se você realmente quiser usar "mais antigo" (filmar em pé?)
Felicidades, Hein
re-formatado:
$ ctx = ""
$ this = F$GETJPI( "", "PRCNAM" )
$ temp = F$CONTEXT( "PROCESS", ctx, "USERNAME", F$GETJPI("","USERNAME"), "EQL" )
$ temp = F$CONTEXT ("PROCESS", ctx, "NODENAME", F$GETJPI("","NODENAME"), "EQL")
$! IF F$TYPE( ctx ) .NES. "PROCESS_CONTEXT" THEN EXIT
$loop:
$ pid = F$PID( ctx )
$ IF pid .EQS. "" THEN EXIT
$ IF F$GETJPI( pid, "PRCNAM" ).NES.F$GETJPI("", "PRCNAM") THEN WRITE SYS$OUTPUT "STOP ",pid
$ GOTO loop