セッションを終了します
EndSession メソッドは、現在のセッションを終了するために使用されます。 Session (* Required) で定義された SrvRoutines はもはや実行できません。1つを実行しようとすると、 Failed イベントがクライアントで発生します。
この例では、サインオンとサインオフのためのルーチンを備えたシンプルなセッションサーバーモジュールを示します。 SessionIdentifier(PRIM_SRVM) は、そのサーバーモジュールが他のモジュールと組み合わせて使用することができ、共有できるデータを永続化に指定されています。
Begin_Com Role(*EXTENDS #PRIM_SRVM) SessionIdentifier(Personnel) Define Field(#gUserID) Type(*Char) Length(40) Persist Fields(#gUserID) Srvroutine Name(Signin) Field_Map For(*Input) Field(#User) Field_Map For(*Output) Field(#Result) If (#Com_owner.VerifyUser( #User )) #Com_owner.StartSession Timeout(240) #Result := OK #gUserID := #User Else #Result := ER Endif Endroutine Mthroutine Name(VerifyUser) Access(*Private) Define_Map For(*Input) Class(#xDemoAlpha128) Name(#User) Define_Map For(*Result) Class(#xDemoBoolean) Name(#Result) * Test for a valid user Endroutine Srvroutine Name(Signoff) Session(*Required) #Com_owner.EndSession Endroutine End_Com
2018 - V14SP1