27 lines
880 B
Plaintext
27 lines
880 B
Plaintext
PGM
|
|
|
|
/* Basic test, using a library as the object to report on */
|
|
/* Return both a message and a file */
|
|
|
|
DCL VAR(&MSG) TYPE(*CHAR) LEN(200)
|
|
|
|
GETOBJUSR OBJECT(lennons1/tgtstkp) TYPE(*file) +
|
|
MSGFLD(&MSG) RETFILE(*YES) member(Backup)
|
|
|
|
SNDMSG MSG(&MSG) TOUSR(*REQUESTER)
|
|
QRY FILE(QTEMP/GETOBJUP)
|
|
|
|
GETOBJUSR OBJECT(lennons1/tgtstkp) TYPE(*file) +
|
|
MSGFLD(&MSG) RETFILE(*YES) member(TGTSTKP)
|
|
|
|
SNDMSG MSG(&MSG) TOUSR(*REQUESTER)
|
|
QRY FILE(QTEMP/GETOBJUP)
|
|
|
|
GETOBJUSR OBJECT(lennons1/tgtstkp) TYPE(*file) +
|
|
MSGFLD(&MSG) RETFILE(*YES)
|
|
|
|
SNDMSG MSG(&MSG) TOUSR(*REQUESTER)
|
|
QRY FILE(QTEMP/GETOBJUP)
|
|
|
|
ENDPGM
|