/*

    $VER: MultiView.pint 1.0 (27.8.95)

   Author:
    Matthias Scheler <tron@lyssa.owl.de>

   Updated for PINT (22.2.97):
    Magnus Heino (nd95mho@Student.HGS.SE)

   Function:
    Shows the file attached to a message with MultiView.

   History:
    0.1   initial version
    0.2   fixed header
    1.0   released with IntuiNews 1.3
    1.1   fixed problem with file or PubScreens names with spaces

   Requires:
    UMSServer 11.28 or newer
    ums.library 11.18 or newer

   Example for "ums.config":
    ( PINT.Rexx
	...
        "#?Message F2 MultiView.pint\n"
	...
    )

*/

/* Get TEMPORARY filename. */

OPTIONS RESULTS

GETTEMPFILENAME
IF RESULT="RESULT" THEN EXIT 5
TempFileName=RESULT

/* Get public screen name. */

'INFO SCREEN'
IF RESULT="RESULT" THEN EXIT 5
PubScreenName=RESULT

/* Call MultiView. */

SHELL COMMAND 'SYS:Utilities/MultiView "'||TempFileName||'" PUBSCREEN "'||PubScreenName||'"'