home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Database / adm30.lha / ADM / ARexx / ADM-ARexxMakros.lha / Ausdruck / DruckeAlpha.adm < prev    next >
Encoding:
Text File  |  1996-03-08  |  2.0 KB  |  90 lines
  1. /* $VER: DruckeAlpha.adm 1.3 (8.3.96)
  2.    
  3.    Copyright 1995  Daniel Wicke, wicke@wpts0.physik.uni-wuppertal.de
  4.  
  5.    Druckt alphabetische Adreßliste (1 Zeile/Adresse).
  6.    Für ADM. 
  7.    
  8.    1.3: DATUM()-Funktion nun im Makro enthalten. (Jan Geissler)
  9.    
  10. */
  11. OPTIONS RESULTS
  12.  
  13. Kopfzeile='Alphabetisches Adressenverzeichnis'
  14. Kopfzeile=OVERLAY(DATUM(),Kopfzeile,87)
  15.  
  16. InitDrucker='#1p"zwwq'
  17. ExitDrucker=' '
  18.  
  19. MaxID=0
  20. Activatefirst
  21.  
  22. IF 1=OPEN('Drucker','PRT:','W') THEN
  23. DO
  24.    len=WRITEln('Drucker',InitDrucker||Kopfzeile)
  25.    len=WRITEln('Drucker','')
  26.    DO FOREVER
  27.       GETADDRESS Adresse
  28.       if RESULT=-1 then leave
  29.    
  30.       /*say Adresse.lastname Adresse.id Adresse.flags*/
  31.       Zeile=Adresse.lastname||", "Adresse.firstname
  32.       Zeile=OVERLAY(" "||Adresse.Address1,Zeile,31)
  33.       Zeile=OVERLAY(" "||Adresse.Postcode,Zeile,61)
  34.       Zeile=OVERLAY(" "||Adresse.City,Zeile,67)
  35.       Zeile=OVERLAY(" "||Adresse.Telephone,Zeile,91)
  36.       /*say Zeile*/
  37.  
  38.       len=writeln('Drucker',Zeile)
  39.    
  40.       ACTIVATENEXT
  41.       if RESULT=-1 then leave
  42.    END
  43.    len=WRITECH('Drucker',ExitDrucker)
  44.    len=CLOSE('Drucker')
  45. END
  46. ELSE
  47.    say "Konnte Drucker nicht öffnen."
  48.  
  49. EXIT
  50.  
  51. /* 
  52.    Unterprogramm zur Erzeugung des aktuellen Datums in deutscher Sprache
  53. */
  54.  
  55. DATUM:
  56.  
  57.    datum=date(sorted)
  58.  
  59.    year=left(datum,4)
  60.    month=substr(datum,5,2)
  61.    day=substr(datum,7,2)
  62.  
  63.    if(month=1)then
  64.       monthname="Januar"
  65.    else if(month=2)then
  66.       monthname="Februar"
  67.    else if(month=3)then
  68.       monthname="März"
  69.    else if(month=4)then
  70.       monthname="April"
  71.    else if(month=5)then
  72.       monthname="Mai"
  73.    else if(month=6)then
  74.       monthname="Juni"
  75.    else if(month=7)then
  76.       monthname="Juli"
  77.    else if(month=8)then
  78.       monthname="August"
  79.    else if(month=9)then
  80.       monthname="September"
  81.    else if(month=10)then
  82.       monthname="Oktober"
  83.    else if(month=11)then
  84.       monthname="November"
  85.    else if(month=12)then
  86.       monthname="Dezember"
  87.  
  88.  
  89.    RETURN right((0+day)||". "||monthname||" "||year,18)
  90.