スクリプト間の引数のテスト

スクリプト間で引数の受け渡しのテスト。

呼ぶ方.uws

PRINT "パターン１：パラメータをつけて呼び出す"
call .\呼ばれる方.uws("パラメータ1","パラメータ2")

PRINT "パターン２：パラメータの２番目が欠落"
call .\呼ばれる方.uws("パラメータ1")

PRINT "パターン３：パラメータをつけない"
call .\呼ばれる方.uws()

PRINT "パターン４：パラメータに空文字で呼び出す"
call .\呼ばれる方.uws("","パラメータ2")

PRINT "パターン５：パラメータをNULLで呼び出す"
call .\呼ばれる方.uws(NULL,"パラメータ2")

PRINT "パターン６：パラメータをEMPTYで呼び出す"
call .\呼ばれる方.uws(EMPTY,"パラメータ2")

呼ばれる方.uws

tab = CHR($09)

IFB PARAM_STR[0] = "" THEN
	PRINT tab + "パラメータ１は空文字です。"
ELSEIF PARAM_STR[0] = NULL THEN
	PRINT tab + "パラメータ１はNULLです。"
ELSEIF PARAM_STR[0] = EMPTY THEN
	PRINT tab + "パラメータ１はEMPTYです。"
ELSE
	PRINT tab + "パラメータ１は[" + PARAM_STR[0] + "]です。"
ENDIF

IFB PARAM_STR[1] = "" THEN
	PRINT tab + "パラメータ２は空文字です。"
ELSEIF PARAM_STR[1] = NULL THEN
	PRINT tab + "パラメータ２はNULLです。"
ELSEIF PARAM_STR[1] = EMPTY THEN
	PRINT tab + "パラメータ２はEMPTYです。"
ELSE
	PRINT tab + "パラメータ２は[" + PARAM_STR[1] + "]です。"
ENDIF

PRINT ""

出力結果

パターン１：パラメータをつけて呼び出す

	パラメータ１は[パラメータ1]です。

	パラメータ２は[パラメータ2]です。
パターン２：パラメータの２番目が欠落

	パラメータ１は[パラメータ1]です。

	パラメータ２は空文字です。
パターン３：パラメータをつけない

	パラメータ１は空文字です。

	パラメータ２は空文字です。
パターン４：パラメータに空文字で呼び出す

	パラメータ１は空文字です。

	パラメータ２は[パラメータ2]です。
パターン５：パラメータをNULLで呼び出す

	パラメータ１はNULLです。

	パラメータ２は[パラメータ2]です。
パターン６：パラメータをEMPTYで呼び出す

	パラメータ１は空文字です。

	パラメータ２は[パラメータ2]です。

結論

• パラメータを省略すると空文字として渡される。(デフォルトでは省略になっているので空文字として渡されている)
• NULLで渡すときちんとNULLとして渡る(空文字とは別物として扱われるみたい)
• EMPTY はから文字として渡される。（ところでEMPTYって何？）

ということで、明示的にNULLを渡してあげるとNULLとして渡ることがわかりました。
それ以外は渡さないと空文字として渡ってしまうんですね。
ところでEMPTYってなんなんでしょうか？空文字って意味？
ヘルプを見ても「値の無い状態を示す」としか書いてないのでいまいち…。

＜組込み定数＞

　TRUE     // 1

　FALSE    // 0

　NULL     // ヌルポインタ

  EMPTY　  // 値の無い状態を示す

　NOTHING  // オブジェクトの無い状態を示す

NULLとNOTHINGが共存してるのも分かりづらっちゃぁ分かりづらいですね。
注意していかないと。