|
declare WS widechar (13) initial ('Hello world.');
|
|
put ('Character length=', length (WS));
|
|
put skip list ('Byte length=', size(WS));
|
|
|
|
declare SM graphic (13) initial ('Hello world');
|
|
put ('Character length=', length(SM));
|
|
put skip list ('Byte length=', size(trim(SM)));
|