[ 
|../../index.htm#lansa/dsnbi_0185.htm]
現在地:
制御言語 (CL) のスケルトン
LANSA データ・ライブラリのソースファイル DC@F28 に以下のサンプルのソースコードが提供されています。この名前は通常 DC@DTALIB です。
/=================================================================/ / 標準組み込み関数提供者の免責事項 / /=================================================================/ / + 提供者名 : XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + + BIF 機能は非常にパワフルで、LANSA で生成されたアプリケーションに対し 非常にオープンなインターフェースとなっています。 + + ゆえに、ユーザー定義組み込み関数を定義する場合、 もしくは、代理店提供の組み込み関数を購入する場合も、 自身のシステムに構築したすべての LANSA アプリケーションの 整合性、利便性、セキュリティ、保守性、移植性に与える影響に対する 責任はすべてお客様自身にあります。 + + 製品の代理店（ベンダー）により組み込み関数の定義や保守のサポート が提供される可能性はありますが、その場合でもこのベンダーには その機能に関する責任や法的な義務はありません。 + /=================================================================/ / プログラム基本情報 / /=================================================================/ / + Copyright : XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX, 1991. + + プログラム名 : XXXXXXX + + 組み込み関数名 : XXXXXXXXXXXXXXXXXXXX + + 作成日 : DD/DD/DD + + 作者名 : XXXXXXXXXXXXXX + + 説明 : XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + / /=================================================================/ / プログラム修正履歴 / /=================================================================/ / + 参照 日付 修正者氏名 修正内容 + -- -- ---------- ---------------------------- + NNNNN DD/DD/DD XXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + NNNNN DD/DD/DD XXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + NNNNN DD/DD/DD XXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX + / /=================================================================/ / エントリー パラメータ リスト仕様 / /=================================================================/ / + 固定パラメータ (すべての組み込み関数) + --------------------------------------- + DC@IDS :標準の情報データ構造 + DC@EDS :標準の交換データ構造 + PR@IDS : 標準のプロセス情報データ構造 + 変数の引数と戻り値 (DC@F48 定義より) ------------------------------------------------------------ + B$###n : 組み込み関数 引数/戻り値 記述し番号 n + B@###n : 組み込み関数 引数/戻り値 値番号 n + / /=================================================================/ BI@P###: PGM PARM(&DC@IDS &DC@EDS &PR@IDS) /=================================================================/ / 変数の宣言 / /=================================================================/ DCL VAR(&DC@IDS) TYPE(*CHAR) LEN(1024) DCL VAR(&DC@EDS) TYPE(*CHAR) LEN(1024) DCL VAR(&PR@IDS) TYPE(*CHAR) LEN(1024) DCL VAR(&$PGMNM) TYPE(*CHAR) LEN(10) DCL VAR(&PR@PGM) TYPE(*CHAR) LEN(10) DCL VAR(&PR
[ |../../index.htm#lansa/dsnbi_0185.htm]