home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 4: Phase Four / 17Bit_Phase_Four.iso / files / 3291.dms / 3291.adf / Rexx / makephonelist.ced < prev    next >
Encoding:
Text File  |  1994-08-16  |  1.3 KB  |  81 lines
  1. /* $Revision Header built automatically *************** (do not edit) ************
  2. **
  3. ** © Copyright by Dirk Federlein
  4. **
  5. ** File             : makephonelist.ced
  6. ** Created on       : Monday, 04.04.94 18:48:58
  7. ** Created by       : Dirk Federlein
  8. ** Current revision : V2.0
  9. **
  10. **
  11. ** Purpose
  12. ** -------
  13. **
  14. ** Gets all addresses stored in the running DFA's database and puts
  15. ** them in the current CED file. The different fields of the address
  16. ** are formatted into column.
  17. **
  18. ** The parts of the inserted addresses may be modified to suit your
  19. ** needs.
  20. **
  21. **
  22. ** Revision V2.0
  23. ** --------------
  24. ** created on Monday, 04.04.94 18:48:58  by  Dirk Federlein.   LogMessage :
  25. **     --- Initial release ---
  26. **
  27. *********************************************************************************/
  28.  
  29. options results
  30.  
  31. address 'rexx_ced'
  32.  
  33. tabchar = '09'X
  34. cr    = '0A'X
  35.  
  36. text cr
  37.  
  38. UP
  39.  
  40. /* Make sure that DFA is running */
  41.  
  42. if ~show(ports, DFA) then
  43. do
  44.     'okay1' 'You should have DFA running, if you' cr 'want to get an address from it!'
  45.      exit 0
  46. end
  47.  
  48.  
  49. address 'DFA' FIRST STEM ADR.
  50.  
  51. do while RC = 0
  52.     text ADR.ADDRESS.1
  53.     "Beg of line"
  54.     do i=1 to 20
  55.         RIGHT
  56.     end
  57.  
  58.     text ' '
  59.  
  60.     "Delete to EOL"
  61.  
  62.     text ADR.ADDRESS.2
  63.  
  64.     "beg of line"
  65.  
  66.     do i=1 to 40
  67.         RIGHT
  68.     end
  69.  
  70.     text ' '
  71.  
  72.     "Delete to EOL"
  73.  
  74.     text ADR.ADDRESS.10
  75.  
  76.     text cr
  77.     address 'DFA' next stem adr.
  78. end
  79.  
  80. exit
  81.