ChatGPTの使用方法

2023年11月7日

World WideのLANSA技術フォーラムに投稿されたトピックと、日本のお客様からのお問い合わせへの回答の中から、皆様にお役に立つLANSAの開発テクニックやトラブルシュートに関する情報をご紹介します。

Contents

1. 質問
2. 回答

質問

LANSAでChatGPTは使えますか？

回答

下記は、ChatGPTで知られるOpenAIのChat APIを実行する、サーバーモジュールとサブルーチンのサンプルです。
#Callに質問を投げると#Responseに応答が返ってきます。
APIの実行はサーバーモジュールに限らず、RDMLXのプログラム（例：フォーム、再利用可能パーツ、ファンクション、WAM）から実行可能です。

APIキー

サンプルではAPIキーを外部リソースAPICFGから取得します。
サンプルの実行には、予め下記のJSONデータを持つ、外部リソースAPICFGを定義しておく必要があります。

{“key": “APIキー"}

サンプル

(1) サーバーモジュール

Begin_Com Role(*EXTENDS #PRIM_SRVM)

Define Field(#Call) Type(*NVARCHAR)
Define Field(#Response) Type(*NVARCHAR)

Define Field(#Header) Type(*NVARCHAR)
Define Field(#ErrorCode) Type(*NVARCHAR)
Define Field(#ErrorMessage) Type(*NVARCHAR)
Define Field(#Found) Type(*BOOLEAN)

Srvroutine Name(CallChat)
Field_Map For(*INPUT) Field(#Call) Parameter_Name(Call)
Field_Map For(*OUTPUT) Field(#Response) Parameter_Name(Response)

Field_Map For(*OUTPUT) Field(#ErrorCode) Parameter_Name(ErrorCode)
Field_Map For(*OUTPUT) Field(#ErrorMessage) Parameter_Name(ErrorMessage)

Define_Com Class(#XPRIM_HttpRequest) Name(#Request)
Define_Com Class(#XPRIM_JsonWriter) Name(#JsonWriter)
Define_Com Class(#XPRIM_RandomAccessJsonReader) Name(#JsonReader)
Define_Com Class(#XPRIM_ErrorInfo) Name(#ErrorInfo)

* Header
#JsonReader.SetSourceFile Path(#APICFG.FileName) Errorinfo(#ErrorInfo)
If Cond(#ErrorInfo.OK)
#Request.Options.AddHeader Name('Authorization’) Value('Bearer ' + #JsonReader.ReadStringWithPath( 'key’ ))
Endif

* Body
* {“model": “gpt-3.5-turbo", “messages": [{“role": “user", “content": “Hello!"}]}
#JsonWriter.SetOutputToHttpRequest Httprequest(#Request)
#JsonWriter.BeginObject
#JsonWriter.WriteString Name('model’) Value('gpt-3.5-turbo’)
#JsonWriter.BeginArray Name('messages’)
#JsonWriter.BeginObject
#JsonWriter.WriteString Name('role’) Value('user’)
#JsonWriter.WriteString Name('content’) Value(#Call)
#JsonWriter.EndObject
#JsonWriter.EndArray
#JsonWriter.EndObject

* Post
#request.DoPost Url('https://api.openai.com/v1/chat/completions’)
If (#request.Response.IsSuccessfulRequest)
If (#request.Response.IsSuccessHttpStatusCode)
* Response
#JsonReader.SetSourceHttpResponse Httpresponse(#Request.Response) Errorinfo(#ErrorInfo)
If Cond(#ErrorInfo.OK)
#JsonReader.BeginArrayWithName Name('choices’) Found(#Found)
Begin_Loop Using(#STD_NUM) To(#JsonReader.GetChildCount)
#JsonReader.BeginObjectAtIndex Index(#STD_NUM) Found(#Found)
If (#Found)
#JsonReader.BeginObjectWithName Name('message’) Found(#Found)
If Cond(#Found)
#Response := #JsonReader.ReadStringWithName( 'content’ )
#JsonReader.EndObject
Endif
#JsonReader.EndObject
Endif
End_Loop
#JsonReader.EndArray
Endif
Endif
Else
#ErrorCode := #Request.Response.ErrorCode
#ErrorMessage := #Request.Response.ErrorMessage
Endif
Endroutine

End_Com

(2) サブルーチン

Define Field(#Call) Type(*NVARCHAR)
Define Field(#Response) Type(*NVARCHAR)

Define Field(#Header) Type(*NVARCHAR)
Define Field(#ErrorCode) Type(*NVARCHAR)
Define Field(#ErrorMessage) Type(*NVARCHAR)
Define Field(#Found) Type(*BOOLEAN)

Subroutine Name(CallChat) Parms((#Call *RECEIVED) (#Response *RETURNED) (#ErrorCode *RETURNED) (#ErrorMessage *RETURNED))
* Header
#JsonReader.SetSourceFile Path(#APICFG.FileName) Errorinfo(#ErrorInfo)
If Cond(#ErrorInfo.OK)
#Request.Options.AddHeader Name('Authorization’) Value('Bearer ' + #JsonReader.ReadStringWithPath( 'key’ ))
Endif