@CODENAME - Define character set

In compatibility mode, the @CODENAME statement is used to define the character set for global use.

Operation	Operands	F mode, L mode
@CODENAME	[name] [, FORCE= {  YES |  NO  } ]

name	Name of the character set that is to be defined. It must be known in XHCS. If it is an 8-bit character set or the 7-bit character set EDF03IRV then this character set is used. In interactive mode, it is also necessary for the character set to be supported by the employed terminal. Otherwise, the statement is rejected with the message EDT5259. If the character set is an ISO character set, a Unicode character set or a 7-bit character set other than EDF03IRV and if all the work files are empty and no file is open then processing switches automatically to Unicode mode in which the character set is defined for all the work files as in the case of the @MODE statement.
	When operation switches to Unicode mode as a result of the @CODENAME statement, the mechanism for the automatic selection of the communications character set is also activated (see section “Communications character set”). If the character set that is already defined is specified in the statement then the statement is ignored and no message is issued. If name is not specified then – if permitted – EDT's default character set is used (see section “Character sets”).
FORCE=NO	If FORCE=NO is specified or if the FORCE is not specified then it is only permissible to define the character set if all the work files are empty and no files are open for real processing.
FORCE=YES	Specifying FORCE=YES causes the character set to be switched even if one or more files are not empty or files are open. The data is not converted but is simply interpreted in the new character set. The display of the characters at the terminal changes accordingly. The new character set is also entered in the file's or library element's catalog entry if the work file is written back or an open file is closed. Specifying FORCE=YES has no effect on ISO character sets, Unicode character sets or 7-bit character sets other than EDF03IRV.