Page History
[ 
|../../index.htm#lansa/lansa048_2485.htm]
Visual LANSA フレームワーク ガイド > アドバンスド・トピック > IIP(Imbedded Interface Point：組み込みインターフェース・ポイント) > 組み込みインターフェース・ポイントが提供するもの > インスタンス・レベルの独自のセキュリティ検証の追加 > avCheckInstanceAuthのサンプル
...
| Info |
|---|
これは、VLF-ONE にはあてはまりません。 |
UF_SYSTM(またはそれに相当)のavCheckInstanceAuthユーザーIIPのサンプル：
Mthroutine Name(avCheckInstanceAuth) Options(*Redefine)
* ==> Define_Map For(*input) Class(#std_obj) Name(#UserProfile)
* ==> Define_Map for(*input) class(#vf_eltxts) Name(#ObjectType)
* ==> Define_Map For(*input) Class(#vf_elidn) Name(#BusObjectName)
* ==> Define_Map For(*input) Class(#vf_elidn) Name(#CmdObjectName) mandatory(' ')
* ==> Define_Map For(*output) Class(#std_Bool) Name(#ReturnCode)
* ==> Define_Map for(*output) class(#std_TextL) Name(#UserAuthInformation) mandatory(' ')
...
*
...
==
...
> Define_map for(*input)
...
class(#vf_elXAK1)
...
Name(#AKey1)
* ==> Define_map for(*input) class(#vf_elXAK2) Name(#AKey2)
* ==> Define_map for(*input) class(#vf_elXAK3) Name(#AKey3)
* ==> Define_map for(*input) class(#vf_elXAK4) Name(#AKey4)
* ==> Define_map for(*input) class(#vf_elXAK5) Name(#AKey5)
* ==> Define_map for(*input) class(#vf_elXNK1) Name(#NKey1)
* ==> Define_map for(*input) class(#vf_elXNK2) Name(#NKey2)
* ==> Define_map for(*input) class(#vf_elXNK3) Name(#NKey3)
* ==> Define_map for(*input) class(#vf_elXNK4) Name(#NKey4)
* ==> Define_map for(*input) class(#vf_elXNK5) Name(#NKey5)
...
Set Com(#ReturnCode) Value(OK)
...
Define Field(#UF_WKOBJT) Reffld(#VF_ELIDN)
Define Field(#UF_WKOBJ1) Reffld(#VF_ELIDN)
Define Field(#UF_WKOBJ2) Reffld(#VF_ELIDN)
...
Change Field(#UF_WKOBJT) To('#OBJECTTYPE.VALUE')
Change Field(#UF_WKOBJ1) To('#BusObjectName.VALUE')
Change Field(#UF_WKOBJ2) To('#CmdObjectName.VALUE')
...
Case Of_Field(#UF_WKOBJT)
When Value_Is('= BUSINESS_OBJECT')
...
Case Of_Field(#UF_WKOBJ1)
When Value_Is('= EMPLOYEES')
...
Case Of_Field(#UF_WKOBJ2)
When Value_Is('= SKILLS')
* フレームワークにより起動され、
* コマンド・タブの表示位置を決定
If Cond('#AKEY1.VALUE *eq A1002')
Set Com(#ReturnCode) Value(ER)
Endif
When Value_Is('= VIDEO')
* フレームワークにより起動され、
* コマンド・タブの表示位置を決定
If Cond('#AKEY1.Value *eq A1001')
Set Com(#ReturnCode) Value(ER)
Endif
when '= *blanks'
* このルーチンはフィルターから起動され、
* インスタンスリストにエントリーを
* 追加するかどうかを決定
If Cond('#AKEY1.Value *eq A1003')
Set Com(#ReturnCode) Value(ER)
Endif
Endcase
Endcase
...
Endcase
...
Endroutine
...