Question: how do I programmatically display the z/OS base OS encoding?
Scenario: I open a track with SAS support and want to provide installation specific information. Especially I want my SAS code to generate a small block which says:
[pre]
z/OS base encoding: EBCDIC1141
z/OS OE encoding: IBM-1047
SAS locale option: LOCALE=DE_DE
SAS encoding option: ENCODING=OPEN_ED-1141
[/pre]
For the last three elements I use the following code
[pre]
filename unixcmd pipe "locale charmap" ;
data _null_;
infile unixcmd; input;
call symput('OE_LOCALE',_infile_);
run ;
%put z/OS OE encoding : &OE_LOCALE ;
%put SAS locale option : %sysfunc(getoption(locale,keyword));
%put SAS encoding option : %sysfunc(getoption(encoding,keyword));
[/pre]
For the life of me however I can't find any SAS function, REXX function or TSO command that gives me the z/OS base encoding value. (*1)
(Believe me: where I am consulting right now - and I am happily doing so - z/OS base encoding is German, while z/OS Unix System Services aka Open Edition aka OE encoding is US english, SAS locale is DE_DE and SAS encoding is OPEN_ED-1141.)
Any ideas?
(*1) REXX function sysvar(sysplang)/sysvar(sysslang) does not provide the encoding value but rather the language chosen for TSO/E.