UWSCでデバッグ出力を行う関数

UWSCでデバッグする時はPRINTデバッグをするのがメインかと思います。
しかし、デバッグ情報が邪魔になるときがあると思います。
デバッグかどうかで出力有無を変えたいですよね。
こんなときにこの関数を定義してあげると良いです

関数定義

MODULE Debug
    Procedure Print(str, debug = TRUE)
        IFB VARTYPE(debug, VAR_BOOLEAN)
            GETTIME()
            Dim date = G_TIME_YY4 + "/" + G_TIME_MM2 + "/" + G_TIME_DD2 + " " + G_TIME_HH2 + ":" + G_TIME_NN2 + ":" + G_TIME_ss2
            PRINT  date + " " + str
        ENDIF
    Fend
ENDMODULE

使い方

以下のように呼び出せばOKです。

Debug.Print("デバッグ出力")


Debug.Print("何も出ない", FALSE)