/* $VER: Textformular_Ausfüllen.adm 1.0 (5.3.96)

   Fuellt ein ASCII-Textformular aus und übergibt es an einen
   Editor.

   Diese Funktion war in Versionen vor 3.0 in den Briefdruck
   eingebaut, wurde aber mangels Bezug zum Briefdruck abgeschafft.

   Mit diesem ARexx-Makro wird genau derselbe Zweck erreicht!

   Der Editor "ed" muss sich im Suchpfad befinden. Ansonsten muss
   unten der Pfad zum Editor eingestellt werden.

   Von Jan Geißler.
*/

OPTIONS RESULTS

/* --- Editor-Definition */

editor = "ed"


/* --- RexxReqTools-Library öffnen */

reqname = "rexxreqtools.library"
if ~show("L", reqname) then
  if ~addlib(reqname, 0, -30, 0) then do
     say reqname "not found!"
     EXIT
  end


/* --- Filerequester öffnen */

dir     = ""
rqtitle = "ASCII-Formular ausfüllen & bearbeiten"
file    = ""
ok      = "Ausfüllen!"
filename = rtfilerequest(dir,file,rqtitle,ok,'rtfi_flags=freqf_save',)
if filename = "" then do
  call rtezrequest("Keine Datei ausgewählt", "Abbruch")
  EXIT
end


/* --- Formular ausfüllen
       Dazu ADMs Druckausgabe in eine Datei umlenken
*/

SETPRINTER "ram:.temp"
oldprinter = RESULT
SAY filename
PRINTLETTER '"' || filename || '"'

if RESULT = "-1" then do
   call rtezrequest("Kann Datei nicht öffnen!", "Abbruch")
   exit
end
SETPRINTER oldprinter


/* --- Editieren mit dem Editor */

cmd = editor "ram:.temp"
address command cmd