DBCSTAB プロシジャ

例2: DBCSTABプロシジャを使用した日本語変換テーブルの作成

要素:	PROC DBCSTABステートメントオプション: : TABLE= DATA= DBLANG= BASETYPE= VERIFY

プログラム

data ja_jpn;

length ibm jis euc pcibm $2.;

ibm='4040'x;

jis='2121'x;

euc='a1a1'x;

pcibm='8140'x; run;

proc dbcstab;

table=japanese;

data=ja_jpn;

dblang=japanese;

basetype=jis;

verify; run;

プログラムの説明

ja_jpnデータセットを定義します。

data ja_jpn;

指定したエンコーディングの長さを2に設定します。

length ibm jis euc pcibm $2.;

値4040をibmエンコーディングに代入します。

ibm='4040'x;

値2121をjisエンコーディングに代入します。

jis='2121'x;

値a1a1をeucエンコーディングに代入します。

euc='a1a1'x;

値8140をpcibmエンコーディングに割り当て、コードを実行します。

pcibm='8140'x; run;

DBCSTABプロシジャを呼び出します。

proc dbcstab;

japaneseという名前でテーブルを定義します。

table=japanese;

Ja_Jpnデータセットにアクセスします。

data=ja_jpn;

言語を日本語に設定します。

dblang=japanese;

jisエンコーディングを指定します。

basetype=jis;

無効なDBCSデータがないことを確認してから、プログラムを実行します。

verify; run;

SASログ

1 proc dbcstab 2 table=ja_jpn 3 data=work.ja_jpn 4 dblang=japanese 5 basetype=jis 6 verify; 7 run; NOTE:Base table for JIS created.NOTE:IBM table for JIS created.NOTE:PCIBM table for JIS created.NOTE:EUC table for JIS created.NOTE:Base table for IBM created.NOTE:JIS table for IBM created.NOTE:Base table for PCIBM created.NOTE:JIS table for PCIBM created.NOTE:Base table for EUC created.NOTE:JIS table for EUC created.NOTE:10 DBCS tables are generated.Each table has 1 DBCS characters.NOTE:Each table is 2 bytes in size.NOTE:Required table memory size is 612.NOTE:There were 1 observations read from the data set WORK.JA_JPN.