/*
 * Script für WRITE V3.525 © 1993 Tim Teulings
 * Dieses Script zeigt den Umgang mit dem SETREXXVAR- und
 * GETREXXVAR-Befehl
 *
 * Mit dem SETREXXVAR- und GETREXXVAR-Befehl lasen ganzen Zeilen oder Buffer direkt
 * ohne Umweg über den Parser, welche ja mit einer internen 256 Zeichen
 * Begrenzung arbeitet, auslesen und schreiben.
 *
 */

IF ~show('P',"WRITE")
THEN DO
 say 'Dieses Script läuft nur, wenn WRITE bereits gestartet wurde !'
 exit 10
END

ADDRESS "WRITE"

OPTIONS RESULTS

'VERSIONCHECK 40000 "RexxVar.wrx"'
IF RC~=0 THEN DO
  exit 10
END

'ASK "Wollen sie eine Zeile,oder\neinen Buffer auslesen ?" "_Zeile|_Buffer"'

TYP = Result

IF TYP = 0 THEN DO
  'GetNumber "Welche Zeile möchten sie haben ?" 1'
  VAL = Result
END
ELSE DO
  'GetNumber "Welchen Buffer möchten sie haben ?" 0'
  VAL = Result
END

SETREXXVAR Test TYP VAL
IF RC=0 THEN DO
  say Test
  drop Test
END
ELSE DO
'MESSAGEOK "SETREXXVAR gab einen Fehler zurück !"'
END

'ASK "Wollen sie den ganzen\nText auslesen ?" "_Ja|_NEIN !"'
IF Result = 0 THEN DO
  'GETVAR "_Length"'
  Length = Result

  DO x = 1 TO Length
    SETREXXVAR Zeile 0 x
    say Zeile
    drop Zeile
  END
END