/*
   $VER: Jump2.dsrx 1.0 (8.3.00) Copyright (c) Nils Görs.

  This script needs rexxreqtools- and rexxtricks.library.
*/

options results

PARSE ARG DSPort
IF DSPort = "" THEN DSPort = DIRSCANNER.1
address value DSPort

   IF ~SHOW('LIBRARIES','rexxreqtools.library') THEN
      IF ~ADDLIB('rexxreqtools.library',9,-30,0) THEN
         quit('Cannot open rexxreqtools.library!',10)
   IF ~SHOW('LIBRARIES','rexxtricks.library') THEN
      IF ~ADDLIB('rexxtricks.library',9,-30,0) THEN
         quit('Cannot open rexxtricks.library!',10)

SET LOCKGUI 1
Pattern = rtgetstring(,"Select Pattern",DSport,"_Ok|_Cancel")
IF pattern = "" THEN DO
	SET LOCKGUI 0
	EXIT
END

GET MATCH_CURS
IF result = -1 then curpos = 0
		else curpos = result
GET MATCH_AMM
amount = result

DO i = curpos + 1 TO amount-1
	GET MATCH_FILE i
	call RXTR_MATCHPATTERN(result,pattern,NOCASE)
	IF result = 1 THEN DO
		SET MATCH_CURS i
		LEAVE i
	END
END

SET LOCKGUI 0