PACKET anschrsteuerfunktionenfuerzusammengesetzteanschreibenDEFINES 
zusammengesetztesanschreiben,naechsteszusammengesetztesanschreiben:LET 
niltext="",nildatum="01.01.00";LET nproc=1,eingangsbildschirm=2;LET 
vorwaertstaste="a";LET tupelstackgroesse=10;LET druckmeldnr=125,
existiertnichtnr=126,leermeldnr=127,endemeldnr=128,weitereangabenr=129,
nichterstellbarmeldnr=130;TEXT VAR druckmeld:="",anschreibentext;LET meldkz=
"#";INT VAR dateinummer,aktuellerindex,anzgeftupel;BOOL VAR einzelbearbeitung
;PROC zusammengesetztesanschreiben(INT CONST aktuellerinx,BOOL CONST 
anschreibenzeigen,peinzelbearbeitung,BOOL PROC sonderwerteundueberpruefungauf
erstellbarkeit,BOOL PROC pruefespeziell,TEXT PROC druckdatei):ROW 10TEXT VAR 
schluesselsve1,schluesselsve2;INT VAR i;vorbereitungen;IF einzelbearbeitung
THEN einzelanschreibenELSE anschreibenfuerbestandFI .anschreibenfuerbestand:
IF leererbestandTHEN meldeleerenbestand;zurueckzumeingangsbildschirmELSE 
bearbeiteallediesesbestandesFI .bearbeiteallediesesbestandes:IF 
anschreibenzeigenTHEN erstenbearbeitenELSE anschreibenleseschleife(BOOL PROC 
sonderwerteundueberpruefungauferstellbarkeit,BOOL PROC pruefespeziell,TEXT 
PROC druckdatei);meldeendederbrieferstellung;zurueckzumeingangsbildschirmFI .
erstenbearbeiten:BOOL VAR erstellbar:=TRUE ;BOOL VAR bestandleer:=FALSE ;
erstellbar:=sonderwerteundueberpruefungauferstellbarkeit;IF erstellbarTHEN 
bearbeitenzumzeigenELSE REP IF anzgeftupel=0THEN anzgeftupel:=
tupelstackgroesse;multisucc(aktuellerindex,anzgeftupel)FI ;IF anzgeftupel<>0
THEN multisucc;anzgeftupelDECR 1;bestandleer:=NOT pruefespeziellELSE 
bestandleer:=TRUE FI UNTIL bestandleerCOR 
sonderwerteundueberpruefungauferstellbarkeitPER ;IF NOT bestandleerTHEN 
bearbeitenzumzeigenELSE zurueckzumeingangsbildschirm;
meldeendederbrieferstellungFI FI .bearbeitenzumzeigen:IF einzelbearbeitung
CAND NOT sonderwerteundueberpruefungauferstellbarkeitTHEN 
meldenichterstellbar;zurueckzumeingangsbildschirmELSE anschreibentext:=
druckdatei;editierebriefFI .einzelanschreiben:direktlesen;IF gefundenTHEN IF 
eindeutigTHEN datenlesen;IF anschreibenzeigenTHEN bearbeitenzumzeigenELSE 
einzelbriefschreiben;zurueckzumeingangsbildschirmFI ELSE 
meldeanforderunggenauererangaben;return(1)FI ELSE meldenichtgefunden;return(1
)FI .vorbereitungen:dateinummer:=dateinr(primdatid(aktuellerinx));
aktuellerindex:=aktuellerinx;einzelbearbeitung:=peinzelbearbeitung;
meldungstext(druckmeldnr,druckmeld);setzesonderwerteschulkenndaten;.
direktlesen:gesetztenschluesselsichern(schluesselsve1);anzgeftupel:=2;
multisearchforward(aktuellerindex,anzgeftupel).gefunden:IF anzgeftupel=0THEN 
FALSE ELSE multisucc;pruefespeziellFI .eindeutig:anzgeftupel=1COR 
naechsterungleich.naechsterungleich:gesetztenschluesselsichern(schluesselsve2
);multisucc;IF NOT pruefespeziellTHEN TRUE ELSE FOR iFROM 1UPTO anzkey(
dateinummer)REP IF schluesselsve1[i]=""COR (feldtyp(dateinummer+i)=datumfeld
CAND schluesselsve1[i]=nildatum)THEN LEAVE naechsterungleichWITH FALSE FI ;
IF schluesselsve2[i]<>wert(dateinummer+i)THEN LEAVE naechsterungleichWITH 
TRUE FI PER ;FALSE FI .datenlesen:stackentry(1).einzelbriefschreiben:IF NOT 
sonderwerteundueberpruefungauferstellbarkeitTHEN meldenichterstellbarELSE 
briefschreibenFI .meldenichtgefunden:standardmeldung(existiertnichtnr,niltext
).meldeanforderunggenauererangaben:standardmeldung(weitereangabenr,niltext).
meldenichterstellbar:standardmeldung(nichterstellbarmeldnr,sonderwert(
indexadressat)+meldkz).meldeendederbrieferstellung:standardmeldung(endemeldnr
,niltext).zurueckzumeingangsbildschirm:enter(nproc).leererbestand:anzgeftupel
:=tupelstackgroesse;multisearchforward(aktuellerindex,anzgeftupel);IF 
anzgeftupel<>0THEN multisucc;anzgeftupelDECR 1;NOT pruefespeziellELSE TRUE 
FI .meldeleerenbestand:standardmeldung(leermeldnr,niltext).briefschreiben:
anschreibentext:=druckdatei;print(anschreibentext);standardmeldung(
druckmeldnr,sonderwert(indexadressat)+meldkz);forget(anschreibentext,quiet).
END PROC zusammengesetztesanschreiben;PROC gesetztenschluesselsichern(ROW 10
TEXT VAR schluesselsve):INT VAR i;FOR iFROM 1UPTO anzkey(dateinummer)REP 
schluesselsve[i]:=wert(dateinummer+i)PER ENDPROC gesetztenschluesselsichern;
PROC anschreibenleseschleife(BOOL PROC sonderwerteundueberpruefungauf
erstellbarkeit,BOOL PROC pruefespeziell,TEXT PROC druckdatei):BOOL VAR 
schluss:=FALSE ;vorlesen;leseschleife.leseschleife:WHILE NOT schlussREP IF 
sonderwerteundueberpruefungauferstellbarkeitTHEN briefschreibenELSE 
standardmeldung(nichterstellbarmeldnr,sonderwert(indexadressat)+meldkz)FI ;
lesenPER .lesen:IF anzgeftupel=0THEN anzgeftupel:=tupelstackgroesse;multisucc
(aktuellerindex,anzgeftupel)FI ;satzlesen.vorlesen:anzgeftupel:=
tupelstackgroesse;multisearchforward(aktuellerindex,anzgeftupel);satzlesen.
satzlesen:IF anzgeftupel<>0THEN multisucc;anzgeftupelDECR 1;schluss:=NOT 
pruefespeziellELSE schluss:=TRUE FI .briefschreiben:anschreibentext:=
druckdatei;print(anschreibentext);standardmeldung(druckmeldnr,sonderwert(
indexadressat)+meldkz);forget(anschreibentext,quiet).END PROC 
anschreibenleseschleife;PROC editierebrief:editiere(anschreibentext,
vorwaertstaste,FALSE )END PROC editierebrief;PROC 
naechsteszusammengesetztesanschreiben(BOOL PROC 
sonderwerteundueberpruefungauferstellbarkeit,BOOL PROC pruefespeziell,BOOL 
CONST drucken,TEXT PROC druckdatei):BOOL VAR bestandleer:=FALSE ;IF drucken
THEN print(anschreibentext);standardmeldung(druckmeld#nr,#,sonderwert(
indexadressat)+meldkz)FI ;forget(anschreibentext,quiet);IF einzelbearbeitung
THEN enter(eingangsbildschirm)ELSE REP IF anzgeftupel=0THEN anzgeftupel:=
tupelstackgroesse;multisucc(aktuellerindex,anzgeftupel)FI ;IF anzgeftupel<>0
THEN multisucc;anzgeftupelDECR 1;bestandleer:=NOT pruefespeziellELSE 
bestandleer:=TRUE FI UNTIL bestandleerCOR 
sonderwerteundueberpruefungauferstellbarkeitPER ;IF NOT bestandleerTHEN 
anschreibentext:=druckdatei;return(nproc)ELSE standardmeldung(endemeldnr,
niltext);enter(eingangsbildschirm)FI FI END PROC 
naechsteszusammengesetztesanschreiben;END PACKET 
anschrsteuerfunktionenfuerzusammengesetzteanschreiben;