/*
  JumpToLink.zprx V1.1
*/


/* Soll das rexxtricks-ListView-Fenster genutzt werden falls mehrere
   Empfänger gefunden wurden? */
Listview = "Nein"

OPTIONS RESULTS

/* ------ von welchem ZP Port wurde das Script aufgerufen ? ------ */
PARSE ARG zpPort
IF zpPort == "" THEN
   zpPort = "ZPoint"
ADDRESS VALUE zpPort


MESSAGEINFO ID
 MessID = result

FINDHEADER "DISKUSSION-IN" ALL
 origBoard = RESULT

IF INDEX(origBoard,",") ~= 0 THEN DO

ListView=UPPER(Listview)

IF ~SHOW('LIBRARIES','rexxtricks.library') THEN DO
   IF ~ADDLIB('rexxtricks.library',10,-30,0) THEN DO
      SAY 'Kann die <rexxtricks.library> nicht öffnen!'
      EXIT(10)
   END
END

origBoard.bak=TRANSLATE(origBoard," ",",")
num=WORDS(origBoard.bak)
liste.0 = num
Do i = 1 to num
 liste.i = WORD(origBoard.bak,i)
END

fenster.title   = 'Bitte Brett auswählen'
fenster.height  = 200
fenster.width   = 100
fenster.font    = 'SCREEN'
fenster.sort    = 'FALSE'
fenster.multiselect = 'FALSE'
fenster.pubscreen = zpPort

	IF ListView = "JA" THEN DO

		IF ~RXTR_VIEWLIST(liste,fenster,destvar) THEN EXIT
			ELSE origBoard=destvar.1
	END
	ELSE origBoard=liste.1
END

BOARDMENU

JUMPTOBOARD "NAME="origBoard
ENTERBOARD

JUMPTOMESSAGE "ID="MessID
SHOWSELECTED
/*EOS*/