-- ------------------------------------------------------------------ --
-- Sample Tso Receive and Delete Commands                             --
-- ------------------------------------------------------------------ --
x = Prompt("on")
Queue "dsn(db2i29.clist)"
Address Tso "Receive indsn(fix1)"
Queue "dsn(db2i29.ispflib)"
Address Tso "Receive indsn(fix2)"
Queue "dsn(db2i29.load)"
Address Tso "Receive indsn(fix3)"
Address Tso "Delete fix1"
Address Tso "Delete fix2"
Address Tso "Delete fix3"
-- *** End of Routine