home *** CD-ROM | disk | FTP | other *** search
- /* print.rexx
- * Example script for printing from ARexx
- * Copyright © 1995 Nils Bandener
- * $VER: print.rexx 2.2 (9.12.95)
- */
-
- Options Results
- Address FIASCO
-
- /* This is only an example!
- * In the "real world", you will have to
- * use the correct field IDs
- */
-
- F_GetFieldCont "Name"
- Name = Result
-
- F_GetFieldCont "Vorname"
- Vorname = Result
-
- F_GetFieldCont "Strasse"
- Strasse = Result
-
- F_GetFieldCont "Hausnummer"
- Hausnr = Result
-
- F_GetFieldCont "PLZ"
- PLZ = Result
-
- F_GetFieldCont "Ort"
- Ort = Result
-
- if open("f", "prt:", "write") then do
-
- call writeln("f", Vorname || " " || Name)
-
- call writeln("f", Strasse || " " || Hausnr)
-
- call writeln("f", PLZ || " " || Ort)
-
- call writeln("f", x2c(B)) /* Formfeed */
-
- call close("f")
-
- end
-