2013-04-11 01:07:29 -07:00
|
|
|
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));
|
2014-01-17 05:32:22 +00:00
|
|
|
put skip list ('Byte length=', size(trim(SM)));
|
