The SET command allows the program to include HTTP header properties in the HTTP response protocol.
The HTTP property name value pairs are passed as entries in a two-column working list.
The SET command can be called any time before the last SEND command that creates the HTTP response.
Syntax:
|
Example
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)