Sets the CURRENT-LANGUAGE variable for the current ABL session.
This example procedure uses the CURRENT-LANGUAGE function to find the current language, prompts the user to choose a new language, and then uses the CURRENT-LANGUAGE statement to reset and display the name of the new current language:
r-chglng.p
DEFINE VARIABLE cur-lang AS CHARACTER FORMAT "x(10)" VIEW-AS RADIO-SET RADIO-BUTTONS czech, "Czech", danish, "Danish", dutch, "Dutch", english, "English", french, "French", german, "German", hungar, "Hungarian", italian, "Italian", norweg, "Norwegian", polish, "Polish", portug, "Portuguese", swedish, "Swedish". cur-lang = IF CURRENT-LANGUAGE = "?" THEN "English" ELSE CURRENT-LANGUAGE. UPDATE cur-lang NO-LABELS. CURRENT-LANGUAGE = cur-lang. MESSAGE "New language is" CURRENT-LANGUAGE. |