You can pull the information from the XMIT dataset and then either present it to the user in a dialog, or act upon it directly. Here is a snippet that 'says' the original datasetname and user..
/* get xmit datasetname */
arg inda
say 'xmitda='inda
/* get xmit data */
queue 'END'
Call DoReceive
parse var resp.1 xmsg . srcds . srcuser .
say 'srcds='srcds
say 'srcuser='srcuser
exit 0
DoReceive:
p=prompt('on')
zz=outtrap('resp.')
"receive inda("inda")"
cc=rc
zz=outtrap('off')
p=prompt(p)
if cc<>0 then do n=1 to resp.0
say resp.n
end
return cc
Silent: zz=outtrap(word(arg(2) '$.',1))
address tso arg(1);zz=outtrap('off');return rc
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
