/* Demonstrates passing arguments to REXX programs */

options Failat 0
options results

arg sender netz
if sender="SYSOP" then sender=netz

crlf = '0D 0A'X
cr = '0D'X
lf = '0A'X
del ='08'X

servername="BAMP"

defpfad="Euromail:"

if open(default,defpfad||'KM.defaults','R') =0 then do
	print "Konnte "||defpfad||"KM.defaults leider nicht finden!"
	print "Abbruch"
	call ende
	end

s=open(default,defpfad||'KM.defaults','R') =1 then
	Listpfad=readln(default)
	Protopfad=readln(default)
	Kontopfad=readln(default)
	brettsys=readln(default)
	brettpoi=readln(default)
	sig0=readln(default)
	sig1=readln(default)
	sig2=readln(default)
	sig3=readln(default)
	sig4=readln(default)
	sig5=readln(default)
	sig6=readln(default)
	sig7=readln(default)
	sig8=readln(default)
	sig9=readln(default)
	sig10=readln(default)
	sig11=readln(default)
	dtext0=readln(default)
	dtext1=readln(default)
	dtext2=readln(default)
	dtext3=readln(default)
	dtext4=readln(default)
	dtext5=readln(default)
	psline1=readln(default)
	psline2=readln(default)
	psline3=readln(default)
	psline4=readln(default)
	psline5=readln(default)
	i=close(default)

call date

if open(deffile,Listpfad || '','R') =0 then do
say "Konnte "||Listpfad||" nicht oeffnen/finden !"
call ende
end
c=open(deffile,Listpfad || '','R') =1 then
do forever
	line=readln(deffile)
	parse VAR line name '*' system '*' emon '*' ejahr '*' gebuehr '*' ename
	upper name
	if name=sender then call mail
	if length(line)<1 then leave
end
c=close(deffile)

say 'KontoMaster V1.0 (c) 1991 by Bernhard Merten'
say 'Fehler:0'
ende:
exit

mail:
parse VAR emon emon1 '-' emon2 '-' emon3 '-' emon4 '-' emon5 
parse VAR gebuehr gebuehr1 '-' gebuehr2 '-' gebuehr3 '-' gebuehr4 '-' gebuehr5 
emon=emon1

call emonat
if open(konto,Kontopfad||sender||'-Konto','R') =0 then do
say "Konnte "||Kontopfad||sender||"-Konto nicht oeffnen/finden !"
call ende
end
a=open(konto,Kontopfad||sender||'-Konto','R') =1 then

if open(msgtxt,'ram:text', 'W')=0 then do
print "Konnte ram:text nicht oeffnen/finden !"
print "Abbruch"
call ende
end
i=open(msgtxt,'ram:text','W')=0 then

i=WRITELN(msgtxt,''||cr)
i=WRITELN(msgtxt,' Kontabrechnung vom '||time||' um '||zeit' Uhr.' ||cr)
i=WRITELN(msgtxt,' Berechnungszeitraum ab '||monatb||' '||ejahr||' bis einschliesslich '||monat||' '||jahrb||crlf||cr)
if system="System" then do
i=WRITELN(msgtxt,' Systemname     : '||sender||cr)
i=WRITELN(msgtxt,' Systembetreuer : '||ename||cr)
end
if system="Point" then do
i=WRITELN(msgtxt,' Kontostand von '||sender||cr)
i=WRITELN(msgtxt,' Status:Point'||cr)
end
if system="User" then do
i=WRITELN(msgtxt,' Kontostand von '||sender||cr)
i=WRITELN(msgtxt,' Status:User'||cr)
end
i=WRITELN(msgtxt,' ----------------------------------------------------------------------' || cr)
i=WRITELN(msgtxt,' Nummer   Einzahlungsdatum   Hoehe des Betrages     Info'||cr)
i=WRITELN(msgtxt,' -------+------------------+--------------------+----------------------' ||cr)
text="0"
betragb="000"
betrags="0"
betragc1="0"
betragc2="0"
betragc3="0"
betragc4="0"
betragc5="0"
betragd="0"
betragd2="0"
betragd3="0"
betragd4="0"
betragd5="0"
do forever
	kl=readln(konto)
	parse VAR kl nr '.' taga '.' mona '.' jahra '.' betraga '.' info
	if info="Spende" then betrags=betrags+betraga
	if info="Nutzungsgebuehren" then betragb=betragb+betraga
	if length(kl)<1 then leave
oldinfo=info
i=writeln(msgtxt,'   ' || nr || '  |     ' || taga || '.' || mona || '.' || jahra || '     |      '|| betraga || '.- DM      |  ' || info ||cr)
i=WRITELN(msgtxt,' -------+------------------+--------------------+----------------------' ||cr)
end
a=close(konto)
if betrags>0 then do
i=WRITELN(msgtxt,'' || crlf || cr)
i=WRITELN(msgtxt,'          ******************************************************'|| cr)
if betrags<100 then i=WRITELN(msgtxt,'          *          Deine Spendenbeitraege : '||betrags||'.- DM          *'|| cr)
if betrags>100 then i=WRITELN(msgtxt,'          *          Deine Spendenbeitraege : '||betrags||'.- DM         *'|| cr)
i=WRITELN(msgtxt,'          * Dafuer moechte ich mich bei Dir herzlich bedanken. *'|| cr)
i=WRITELN(msgtxt,'          *                                                    *'|| cr)
i=WRITELN(msgtxt,'          ******************************************************'|| cr)
end

call rechnen

i=WRITELN(msgtxt,'' || crlf || cr)
i=WRITELN(msgtxt,'               '||dtext0||'  '||betragb||' .- DM'|| cr)
if system="Point" then do
i=WRITELN(msgtxt,'               '||dtext1||' -'||betragc1||' .- DM'|| cr)
i=WRITELN(msgtxt,'               '||dtext2||' -'||betragc2||' .- DM'|| cr)
i=WRITELN(msgtxt,'               '||dtext3||' -'||betragc3||' .- DM'|| cr)
i=WRITELN(msgtxt,'               '||dtext4||' -'||betragc4||' .- DM'|| cr)
i=WRITELN(msgtxt,'               '||dtext5||' -'||betragc5||' .- DM'|| cr)
end
if system="System" then do
i=WRITELN(msgtxt,'               '||dtext1||' -'||betragc1||' .- DM'|| cr)
end
if system="User" then do
i=WRITELN(msgtxt,'               '||dtext1||' -'||betragc1||' .- DM'|| cr)
i=WRITELN(msgtxt,'               '||dtext2||' -'||betragc2||' .- DM'|| cr)
i=WRITELN(msgtxt,'               '||dtext3||' -'||betragc3||' .- DM'|| cr)
i=WRITELN(msgtxt,'               '||dtext4||' -'||betragc4||' .- DM'|| cr)
i=WRITELN(msgtxt,'               '||dtext5||' -'||betragc5||' .- DM'|| cr)
end
i=WRITELN(msgtxt,'                                            -----------'|| cr)
i=WRITELN(msgtxt,'               Kontostand                  : '||betragd||' .- DM'|| cr)
i=WRITELN(msgtxt,'' || crlf || cr)

if text=0 then do
end

if text=1 then do
i=WRITELN(msgtxt,text1||crlf|| cr)
i=WRITELN(msgtxt,text2||crlf|| cr)
i=WRITELN(msgtxt,text3|| cr)
i=WRITELN(msgtxt,text4|| cr)
i=WRITELN(msgtxt,text5|| cr)
i=WRITELN(msgtxt,text6|| cr)
i=WRITELN(msgtxt,text7|| cr)
i=WRITELN(msgtxt,text8||crlf|| cr)
i=WRITELN(msgtxt,text9|| cr)
i=WRITELN(msgtxt,text10||crlf|| cr)
end

i = writeln(msgtxt,''|| cr)
i = writeln(msgtxt,sig8|| cr)
i = writeln(msgtxt,sig9|| cr)
i = writeln(msgtxt,sig10||crlf||cr)
i = writeln(msgtxt,sig11||crlf||cr)
if psline1~="none" then do
i=writeln(msgtxt,'=============================================================================='||crlf||cr)
i=writeln(msgtxt,psline1||cr)
if psline2~="none" then i=writeln(msgtxt,psline2||cr)
if psline3~="none" then i=writeln(msgtxt,psline3||cr)
if psline4~="none" then i=writeln(msgtxt,psline4||cr)
if psline5~="none" then i=writeln(msgtxt,psline5||cr)
i=writeln(msgtxt,''|| cr)
i=writeln(msgtxt,'=============================================================================='||crlf||cr)
end
i = writeln(msgtxt,'--'|| cr)
i = writeln(msgtxt,'Orgin:KontoMaster V1.0 (c) 1991 by Bernhard Merten'|| cr)
i = close(msgtxt)

return

rechnen:
gebuehr="0"
if ejahr=jahrb then do
endmon1="0"
endmon2="0"
endmon3="0"
endmon4="0"
endmon5="0"

endmon1=monb-emon
endmon2=monb-emon2
endmon3=monb-emon3
endmon4=monb-emon4
endmon5=monb-emon5

if endmon1="ENDMON" then endmon1=0
if endmon2="ENDMON" then endmon2=0
if endmon3="ENDMON" then endmon3=0
if endmon4="ENDMON" then endmon4=0
if endmon5="ENDMON" then endmon5=0

betragc1=endmon1*gebuehr1
betragc2=endmon2*gebuehr2
betragc3=endmon3*gebuehr3
betragc4=endmon4*gebuehr4
betragc5=endmon5*gebuehr5

betragd1=betragb-betragc1
betragd2=betragd1-betragc2
betragd3=betragd2-betragc3
betragd4=betragd3-betragc4
betragd=betragd4-betragc5

gebuehr=gebuehr+gebuehr1
gebuehr=gebuehr+gebuehr2
gebuehr=gebuehr+gebuehr3
gebuehr=gebuehr+gebuehr4
gebuehr=gebuehr+gebuehr5

if betragd<0 then do
text=1
text1=" Du liegst mit Deinem Konto im Rueckstand."
betrage=betragd-betragd-betragd
text2=" Bitte ueberweise "||betrage||".- DM auf das folgende Konto."
text3="                  Bankverbindung der "||servername
text4=sig1
text5=sig2
text6=sig3
text7=sig4
text8=sig5
text9=sig6
text10=sig7
end
end

return

date:

address command "date >ram:datetemp"
if open(dfile,"ram:datetemp",'R')=0 then do
print "Konnte \a2ram:datetemp\a0 nicht oeffnen/finden !"
print "Abbruch"
call ende
end
s=open(dfile,"ram:datetemp",'R')
thedate=readln(dfile)
s=close(dfile)
parse VAR thedate . dt .
parse var dt 1 tagb 3 . 4 month 7 . 8 jahrb
if month ="Jan" then do
monb=1
monat="Januar"
end
if month='Feb' then do
monb=2
monat="Februar"
end
if month='Mar' then do
monb=3
monat="Maerz"
end
if month='Apr' then do
monb=4
monat="April"
end
if month='May' then do
monb=5
monat="Mai"
end
if month='Jun' then do
monb=6
monat="Juni"
end
if month='Jul' then do
monb="7"
monat="Juli"
end
if month='Aug' then do
monb=8
monat="August"
end
if month='Sep' then do
monb=9
monat="September"
end
if month='Oct' then do
monb=10
monat="Oktober"
end
if month='Nov' then do
monb=11
monat="November"
end
if month='Dec' then do
monb=12
monat="Dezember"
end
time=tagb||'.'||monb||'.19'||jahrb
zeit=right(thedate,8)
monj=monb
monb=monb+1
return

emonat:
if emon=1 then do
monatb="Januar"
end
if emon=2 then do
monatb="Februar"
end
if emon=3 then do
monatb="Maerz"
end
if emon=4 then do
monatb="April"
end
if emon=5 then do
monatb="Mai"
end
if emon=6 then do
monatb="Juni"
end
if emon=7 then do
monatb="Juli"
end
if emon=8 then do
monatb="August"
end
if emon=9 then do
monatb="September"
end
if emon=10 then do
monatb="Oktober"
end
if emon=11 then do
monatb="November"
end
if emon=12 then do
monatb="Dezember"
end
return