SETコマンドにより、プログラムはHTTP応答プロトコルにHTTPヘッド・プロパティを入れることができます。
HTTPプロトコル名の値ペアは、2列の作業リストのエントリーとして渡されます。
SETコマンドは、HTTP応答を作成する最後のSENDコマンドの前にいつでも呼び出すことができます。
構文:
|
例
DEFINE FIELD(#PNME) TYPE(*CHAR) LENGTH(20)
DEFINE FIELD(#PVAL) TYPE(*CHAR) LENGTH(20)
DEF_LIST NAME(#PLST) FIELDS((#PNME) (#PVAL)) TYPE(*WORKING)
CHANGE FIELD(#PNME) TO('''X-Invoice''')
CHANGE FIELD(#PVAL) TO(T9300)
ADD_ENTRY TO_LIST(#PLST)
USE BUILTIN(JSM_COMMAND) WITH_ARGS('SET PROPERTY(*LIST) SERVICE_LIST(PNME,PVAL)') TO_GET(#JSMSTS #JSMMSG #PLST)