home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / comms / misc / rf911215.lha / test.rexx < prev    next >
OS/2 REXX Batch file  |  1991-11-10  |  738b  |  41 lines
  1. /*
  2.  *        Test of rexxflow.library
  3.  */
  4.  
  5. DT_DELETE = 208
  6. DT_TRUNCATE = 176
  7.  
  8. call addlib("rexxflow.library", 0, -30, 0)
  9.  
  10. call SetOutbound("work:welmat/rexxflow")
  11.  
  12. myaddress.domain = "Fidonet"
  13. myaddress.zone = 1
  14. myaddress.net = 163
  15. myaddress.node = 206
  16. myaddress.point = 8
  17.  
  18. /* wrt above, I want my nightly poll to occur uneventfully :-) */
  19.  
  20. call SetDefaultAddress(myaddress)
  21.  
  22. work_detail = FindDetail(myaddress)
  23. say work_detail
  24.  
  25. say AddWork(work_detail, "alpha", DT_TRUNCATE)
  26. say AddWork(work_detail, "beta", DT_DELETE)
  27.  
  28. call DumpOutbound("")
  29.  
  30. call ScanDetail(work_detail, huge_list)
  31.  
  32. do i = 1 until i = huge_list.numnodes
  33.     say huge_list.i.filename
  34.     say huge_list.i.asname
  35.     say huge_list.i.flags
  36.     say " "
  37.     end
  38.  
  39. call remlib("rexxflow.library")
  40.  
  41.