SJLennon
6 lines
215 B
Plaintext
6 lines
215 B
Plaintext
PGM
|
|
DCL VAR(&MSG) TYPE(*CHAR) LEN(200)
|
|
GETOBJUSR OBJECT(QIWS/QCUSTCDT) TYPE(*FILE) MSGFLD(&MSG)
|
|
SNDMSG MSG(&MSG) TOUSR(*REQUESTER)
|
|
ENDPGM
|