home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / dfa_birthdays / english / dfa / rexx / duplicate < prev   
Text File  |  1999-09-14  |  2KB  |  47 lines
  1. /* duplicate for DFA
  2. ** by Ralf Keber
  3. ** 14.07.97
  4. ** 
  5. ** Discription
  6. ** -------
  7. ** a simple function:
  8. ** the current address is duplicated
  9. **
  10. *************************************/
  11.  
  12. quote = '22'X
  13. CR    = '0A'X
  14.  
  15. options results
  16.  
  17. if ~show(ports, DFA) then exit
  18.  
  19. if ~show('L',"rexxreqtools.library") then addlib('rexxreqtools.library',0,-30,0)
  20. fonttag="rt_font=courier.font/13"
  21.  
  22. address 'DFA' GETCURRENT STEM P.
  23.  
  24. text=P.ADDRESS.1||" "||P.ADDRESS.2
  25.  
  26. if RC ~= 0 then exit
  27.  
  28. call rtezrequest( text||CR||"duplicate?", "yes|no", , fonttag)
  29.         
  30. if result=0 then exit
  31.  
  32. FLAGSTRING = ""
  33. if p.ADDRESS.16=1 then FLAGSTRING = FLAGSTRING 'GROUP1'
  34. if p.ADDRESS.17=1 then FLAGSTRING = FLAGSTRING 'GROUP2'
  35. if p.ADDRESS.18=1 then FLAGSTRING = FLAGSTRING 'GROUP3'
  36. if p.ADDRESS.19=1 then FLAGSTRING = FLAGSTRING 'GROUP4'
  37. if p.ADDRESS.20=1 then FLAGSTRING = FLAGSTRING 'GROUP5'
  38. if p.ADDRESS.21=1 then FLAGSTRING = FLAGSTRING 'GROUP6'
  39. if p.ADDRESS.22=1 then FLAGSTRING = FLAGSTRING 'GROUP7'
  40. if p.ADDRESS.23=1 then FLAGSTRING = FLAGSTRING 'GROUP8'
  41.  
  42. ADDRESS 'DFA' 'NEW' 'SALUTATION='quote||P.ADDRESS.0||quote 'FIRST='quote||P.ADDRESS.1||quote 'NAME='quote||P.ADDRESS.2||quote 'CO='quote||P.ADDRESS.3||quote 'STREET='quote||P.ADDRESS.4||quote 'ZIP='quote||P.ADDRESS.5||quote 'CITY='quote||P.ADDRESS.6||quote 'STATE='quote||P.ADDRESS.7||quote 'COUNTRY='quote||P.ADDRESS.8||quote 'BIRTHDAY='quote||P.ADDRESS.9||quote 'PHONE='quote||P.ADDRESS.10||quote 'FAX='quote||P.ADDRESS.11||quote  'EMAIL1='quote||P.ADDRESS.12||quote 'EMAIL2='quote||P.ADDRESS.13||quote 'EMAIL3='quote||P.ADDRESS.14||quote 'COMMENT='quote||P.ADDRESS.15||quote 'EXTERNAL='quote||P.ADDRESS.25||quote FLAGSTRING
  43.  
  44. ADDRESS 'DFA' SORT
  45.  
  46. exit
  47.