Page History

...

それでは、呼び出しのステータスを表示するための再利用可能パーツ ExternalServiceInvocationStatus を作成してみましょう。この再利用可能パーツは、すべてのサービスで利用します。
Image Modified

この新規再利用可能パーツに次のコードを入れます。

Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_OBJT)

   * OK & ErrorMessage 値を保持する変数
   Define_Com Class(#PRIM_BOLN) Name(#gOK)
   Define_Com Class(#PRIM_DC.UnicodeString) Name(#gErrorMessage)

   * プロパティ: OK & ErrorMessage
   Define_Pty Name(OK) Get(*AUTO #gOK) Set(*AUTO #gOK)
   Define_Pty Name(ErrorMessage) Get(*AUTO #gErrorMessage) Set(*AUTO #gErrorMessage)

   * OK ステータス & エラー・メッセージを HTTP 応答オブジェクトから読み込むルーチン
   Mthroutine Name(FromHttpResponse)
      Define_Map For(*INPUT) Class(#XPRIM_HttpResponse) Name(#HttpResponse) Pass(*BY_REFERENCE)
      Define_Com Class(#XPRIM_RandomAccessJsonReader) Name(#Json)

      * プロパティ初期化
      #gOK := False
      #gErrorMessage := ''

      * 応答があるかどうか確認…
      If (#HttpResponse.IsSuccessfulRequest)

         * 応答 JSON の読み込み
         #Json.SetSourceHttpResponse HttpResponse(#HttpResponse)

         * 要求が OK ステータス・コードを返したかどうか確認
         If (#HttpResponse.IsSuccessHttpStatusCode)
            #gOK := True
         Else

            * JSON 応答からエラー・メッセージを読み込む
            #gErrorMessage := #Json.ReadStringWithName( 'errorMessage' )
         Endif
      Else
         #gErrorMessage := #HttpResponse.ErrorMessage
      Endif
   Endroutine
End_Com

...