TRANSFER Programming Manual

Sample Agent Program Code
Designing and Writing an Agent
069138, Update 1 to 040970 Tandem Computers Incorporated 10–25
311 MOVE "INBOX" TO uow-usv-folder-name.
312
313 **********************************************************************
314 * ISSUE THE SEND *
315 **********************************************************************
316
317 MOVE 2 TO ih-uows-to-process.
318 MOVE -2 TO ih-request-code.
319
320 SEND ih-ipc-hdr, uow-ack-ack-receipt-uow uow-usv-unsave-item-uow,
321 TO "TISERV"
322 REPLY CODE 0, 1, 2 YIELDS
323 ih-ipc-hdr,
324 rsp-ack-ack-receipt-rsp, rsp-usv-unsave-item-rsp,
325 CODE 3 YIELDS ih-ipc-hdr.
326
327
328 800-set-return-code.
329
330 MOVE 0 TO ag-rep-error-return.
331 MOVE SPACES TO ag-rep-error-msg.
332
333
334 900-exit.
335
336 EXIT PROGRAM.