7.95.2 PERSIST の使用例

以下の例では、セッションが正常に開始されると、ユーザー ID が保持されます。これにより、後続の SRVROUTINES は追加の FIELD_MAP を作成せずにユーザーにアクセスできるようになります。

Persist Fields(#gUserID)
 
* Signin routine. If the user id is valid, the session will be activated
Srvroutine Name(Signin)
Field_Map For(*Input) Field(#User)
Field_Map For(*Input) Field(#Password)
Field_Map For(*Output) Field(#io$sts) Parameter_Name(Status)
 
#User := #User.Uppercase
 
If (#Com_owner.VerifyUser( #User #Password ))
 
#Com_owner.StartSession
#io$sts := OK
#gUserID := #User
 
Else
 
#io$sts := ER
 
Endif
 
Endroutine