[ |../../index.htm#lansa/lansa048_2430.htm]
Visual LANSA フレームワーク ガイド > アドバンスド・トピック > ユーザー、グループおよびセキュリティ > シナリオ > シナリオ:IBM i Webサーバー > UFU0001 を修正してカスタマイズ

UFU0001 を修正してカスタマイズ

シナリオ:IBM i Webサーバー

前提条件

設定

標準ユーザーをフレームワークに登録

UFU0001 を修正して、HTTP サーバーにログオンして、標準ユーザーに切り替わるユーザーを代表するフレームワークのユーザー・プロファイル ("typical user") を検索できるようにします。(検出されなかったユーザーにはデフォルトの標準ユーザーを割り当てることができます)。 
この検索はユーザー・プロファイルのデータベース・ファイルを使って実行するか、フレームワークの "typical users" が IBM i グループのプロファイルと同じであるという前提で、ユーザーの IBM i グループ・プロファイルにアクセスする CL プログラムを呼び出して実行します。
自分のバージョンの UFU0001のRDML では次のようになります。
CALL PGM(GETGRPPRF) PARM(#CHK_USER #GRPPRF) EXIT_USED(*NEXT) MENU_USED(*NEXT)                                        
CHANGE #CHK_USER #GRPPRF
CHANGE #CHK_VALP 'FALSE'
 
CLプログラムGETGRPPRFは、以下のようなものです。
PGM        PARM(&USRPRF &GRPPRF)                                    
DCL &GRPPRF *CHAR 10                                                
DCL &USRPRF *CHAR 10                                                
             RTVUSRPRF  USRPRF(&USRPRF) GRPPRF(&GRPPRF)             
ENDPGM                                                              
また、UFU0001を修正して、ユーザーをこれから変わろうとする"typical user"ではなく、ログオンしたままのタイプで表示することができます。
change #CHK_VUSER *WEBUSER 
 
UFU0001 の自分のバージョンをコンパイルします。
フレームワークが自分のバージョンの UFU0001 を使用するように変更するには、(フレームワーク ) --> (プロパティ...) --> \[Web/Ramp 詳細\] タブを表示します。  オプション IIP - ユーザーサインオンのファンクション名にファンクション名を指定します。
[ !worddavaf485e25f57cd86bb5b0fc63f3f1b1cc.png|height=32,width=32! |../../index.htm#lansa/lansa048_2430.htm]