Erkennen, in welchem Task/Interpreter das Modul aufgerufen wurde

Hallo,
glaube nicht, dass da eine neue Instanz erzeugt wird.

Ich würde da den bequemen Weg gehen und das Modul kopieren, und
aus dem SPS.SUB die Kopie aufrufen. Dann hat man halt zwei Protokolle.
Sehe da keine halbwegs vernünftige Möglichkeit das anderweitig in den Griff zu bekommen.

Wird das Modul aus dem SPS.SUB aufgerufen, dann kann es unterbrochen
werden (u.U. mehrmals) so dass es dann aus dem Hauptprogramm während
dieser Zeit nochmal aufgerufen wird (u.U. mehrmals).

Man könnte höchstens was mit einer Art Semaphoren versuchen, also im SPS.SUB
eine Variable setzen, bevor das Modul aufgerufen wird, danach diese wieder
zurücksetzen.
Im Hauptprogramm vor dem Aufruf des Moduls warten, bis die Variable zurückgesetzt ist,
dann eine andere Variable setzen, Modul aufrufen, Variable wieder zurücksetzen.
Jetzt kommt die Ergänzung im SPS.SUB: Das Modul nicht aufrufen, wenn diese vom
Hauptprogramm gesetzte Variable gesetzt ist.

Hört sich schon nicht so übersichtlich an, ist dann im SPS.SUB nicht so schön zu
realisieren da man nicht einfach warten sollte, bis das Modul frei ist.

Gruss Hermann

Du kannst in der SPS VIA
$pro_ip.name_C(hauptlauf)
oder
$pro_ip.name(vorlauf)
prüfen wo sich der prozesszeiger gerade befindet
und je nach dem fallunterscheiden.
Rückgabe ist ein String zb "R1/UnterprogrammXXX.SCR"

Hallo zum Beispiel in der Art:

global deffct int hallo(iCaller :out)
  decl int iCaller ; 1 = Roboter - 2 = submit
  $Timer_Flag[1] = TRUE
  $Timer_Stop[1] =False
  repeat
    ; wait  for semaphor timeout
    if (iCaller == 2 and iTakeSem <> 0) then
      Return 0 ; dont idle sps.sub, if cannot catch semaphore
    endif
  until ((iTakeSem == 0) OR $Timer_Flag[1])
  switch iTakeSem
    case 0
      iTakeSem = iCaller ; catch semaphore
      WAIT SEC 2
      iTakeSem = 0 ; release semaphore
      return 1 ; sucessfull
    case iCaller
      ; semaphore allready taken - shold actually never happen
      iTakeSem = 0 ; release semaphore   
      Return 2
    default
      ; semaphore taken by an other task
      ; semaphore is timed out
      Return 0
  endswitch
endfct

Im sps.sub auf den semaphore warten waere wohl nicht ganz gluechlich. Muesste halt dort behandelt werden.

Gruss Stefan