$ if p1 .eqs. "" then p1 = "ENGLISH"
$ p1 = f$edit(p1, "UPCASE,TRIM")
$ if p1 .eqs. "ENGLISH"
$ then define/nolog lang "en_US.ISO88591"
$      copy decw$examples:fileview_english.dat fileview.dat
$      copy decw$examples:fileview_english.uid fileview.uid
$ endif
$ if p1 .eqs. "FRENCH"
$ then define/nolog lang "fr_FR.ISO88591"
$      copy decw$examples:fileview_french.dat fileview.dat
$      copy decw$examples:fileview_french.uid fileview.uid
$ endif
$ if p1 .eqs. "GERMAN"
$ then define/nolog lang "en_US.ISO88591"
$      copy decw$examples:fileview_german.dat fileview.dat
$      copy decw$examples:fileview_german.uid fileview.uid
$ endif
$ purge/nolog fileview.dat,fileview.uid
$
$ fileview = "$decw$examples:fileview"
$ fileview -ok
$
$ exit