x = PROMPT() /* x is set to ON or OFF */
The PROMPT function overrides the NOPROMPT operand of the EXEC command,
but it cannot override a NOPROMPT operand in your TSO/E profile. To display your
profile, issue the PROFILE command. To change a profile from NOPROMPT to
PROMPT, issue:
PROFILE PROMPT
Using the SETLANG Function
You can use the SETLANG function to determine the language in which REXX
messages are currently being displayed and to optionally change the language. If
you do not specify an argument, SETLANG returns a 3-character code that
indicates the language in which REXX messages are currently being displayed.
Table 1 shows the language codes that replace the function call and the
corresponding language for each code.
You can optionally specify one of the language codes on the function call to change
the language in which REXX messages are displayed. In this case, SETLANG sets
the language to the code specified and returns the language code of the previous
language setting. The language codes you can specify on SETLANG depend on the
language features that are installed on your system.
Table 1. Language Codes for SETLANG Function That Replace the Function Call
Language
Code
Language
CHS Simplified Chinese
CHT Traditional Chinese
DAN Danish
DEU German
ENP US English-all uppercase
ENU US English-mixed case (uppercase and lowercase)
ESP Spanish
FRA French
JPN Japanese
KOR Korean
PTB Brazilian Portuguese
To find out the language in which REXX messages are currently being displayed,
issue the SETLANG function followed by empty parentheses:
curlang=SETLANG() /* curlang is set to the 3-character */
/* code of the current language setting. */
To set the language to Japanese for subsequent REXX message displays, issue the
SETLANG function followed by the 3-character code, JPN, enclosed within
parentheses:
oldlang=SETLANG(JPN) /* oldlang is set to the previous */
/* language setting. */
/* The current setting is set to JPN. */
TSO/E External Functions
Chapter 10. Using TSO/E External Functions 125
To Next Page
Loading...
Need help?
General
