TEXT PFILEIO C  é åTEXTVERWTP æåVSTOP `89:FIFO CÏM 1MASKEN TXT|~ˆŠå0300100 DRK%z¬åRECHNENB 5­®MASKEN TXT0€Š¥¦§® STAMM DATDz } ~ 0200008 DRK¡å0300110 DRKÏSTAMM DATXå C=000DBOT TT# T2TT(   ·daten.Neue Felder k|nnen an die Satzbeschreibung und den.----Datenbereich beliebig angeh{ngt werden. Au~er bei.Zahlen- oder Schl}sselfeldern kann die L{nge der Fel- Ý  : t einf}gen "Damen und Herren". wenn datei:Satz.ANREDE-KZ = 1  : t einf}gen "Herr " datei:Satz.ANSPR-PART. wenn datei:Satz.ANREDE-KZ = 2  : t einf}gen "Frau " datei:Satz.ANSPR-PART. r}cksprung. Œverzweigung. springe Operation#|ffnen#schlie~en#lesen-ohne#lesen-mit#n{chst-les-mit#n{chst-les-ohne#}berschreiben#schreiben#l|schen#start-nicht-kleiner#freigeben#vorigen-lesen#start-gr|~er.fehler-r}cksprung. r}cksprung Fehler-marke..**************************************************************************** ½|ffnen.\ffnen einer TPS-Datei d datei |ffnen Datei Status fehler-r}cksprung. r}cksprung..****************************************************************************  ‡.****************************************************************************n{chst-les-ohne.Der n{chste Satz wird gelesen. ¼.****************************************************************************vorigen-lesen.In TPS-Dateien kann auf einen vorhergehenden Satz.zur}ck positioniert werden.  d d datei setzen Datei. d positioniere r}ckw{rts fehler-r}cksprung. springe satz-lesen.  q=000BBOT TT# T2TT( .Keine [nderungen vornehmen.programm datei offen mit Operation Feld-nr Fehler-marke.argumente..--------Operation.Nummer der auszuf}hrenden Dateioperation.Feld-nr.Feldnummer eines Schl}sselfeldes.Fehler-markemarke.R}cksprung bei Fehlern w{hrend einer Dateioperation. ŒSchl}ssel.KUNDEN-NRzahl#<010>.- .SUCHNAMEtext#<020>.- .LANDtext#<003>.- .PLZzahl#<005>. i.der ver{ndert werden. Sind Felder in der Satzbeschrei-.bung verschoben, neue Felder eingef}gt, oder sind [n-.derungen an Zahlenfeldern vorgenommen worden, mu~ die.Datei mit dem Programm "DTUMSETZ" umgesetzt werden..Sind neue Schl}ssel eingef}gt worden, m}ssen die.Schl}ssel mit dem Programm "DTSCHLUE" neu erstellt ÌKurzname.()#<10>2"KUNDEN-NR"2"SUCHNAME"2"NAME1"2"NAME2"2"NAME3"2"STRASSE"2"LAND"2"PLZ"2"ORT"2"TELEFON"2"TELEX"2"TELETEX"2"ANSPR-PART"2"ANREDE-KZ". ²-0030BOT TT# T2TT( ............................................................................... dies ist das Programm anschrift. z-fzs = Zeilenschaltungprogramm p1 offen._anfang. wenn datei:Satz.NAME1 : t einf}gen datei:Satz.NAME1 z-fzs. wenn datei:Satz.NAME2 : t einf}gen datei:Satz.NAME2 z-fzs. wenn datei:Satz.NAME3 : t einf}gen datei:Satz.NAME3 z-fzs. Satz.KUNDEN-NRzahl#<010>.- .SUCHNAMEtext#<020>.- .NAME1text#<030>.- .NAME2text#<030>.- .NAME3text#<030>.- .STRASSEtext#<030>.- .LANDtext#<003>.- .PLZzahl#<005>.- .ORTtext#<030>.- .TELEFONtext#<020>.- .TELEXtext#<020>.- .TELETEXtext#<030>.- .ANSPR-PARTtext#<030>.- .ANREDE-KZzahl#<001>. à wenn datei:Satz.STRASSE : t einf}gen datei:Satz.STRASSE z-fzs. t einf}gen z-fzs. wenn datei:Satz.LAND : t einf}gen datei:Satz.LAND "-". t einf}gen datei:Satz.PLZ " " datei:Satz.ORT z-fzs. r}cksprung................................................................................ dies ist das Programm anrede. z-fzs = Zeilenschaltungprogramm p2 offen._anfang. t einf}gen z-fzs. wenn datei:Satz.ANREDE-KZ = 0 ô  : t einf}gen "Sehr geehrte Damen und Herren," z-fzs. wenn datei:Satz.ANREDE-KZ = 1  : t einf}gen "Sehr geehrter Herr " datei:Satz.ANSPR-PART "," z-fzs. wenn datei:Satz.ANREDE-KZ = 2  : t einf}gen "Sehr geehrte Frau " datei:Satz.ANSPR-PART "," z-fzs. r}cksprung................................................................................ dies ist das Programm kurzanrede. z-fzs = Zeilenschaltungprogramm p3 offen._anfang. wenn datei:Satz.ANREDE-KZ = 0 ‘.Inhaltsverzeichnis. - Programmkopf=Seite 2. (Nicht [nderbar). - Datenbereich=Seite 3. ([nderbar). - Dateioperationen=Seite 4. ([nderbar). - Dateioperationen (Fortsetzung)=Seite 5. ([nderbar). - Programme "anschrift" "anrede" "kurzanrede"=Seite 6. (Nur vorhanden, wenn beim Generieren erstellt). ([nderbar)  L=002ABOT TT# T2TT( . Beschreibung des Programm-Bereiches:. Hier folgen die Programmabschnitte, die bestimmte Dateibehandlungen. durchf}hren. Anhand der aus den TPS-Programmen }bergebenen Opera-. tionsnummer wird weiter verzweigt und die entsprechende Dateibehand-  ïProgramme.()#<10>2"anschrift"2"anrede"2"kurzanrede"2" "2" "2" "2" "2" "2" "2" ".Funktion-a.()nummer#2 1 7 8 99.Gro~schreibung.()nummer#2 7 99.Schl}sselfelder.()nummer#1 2 7 8.Anzahlfeldernummer#14.Anzahlschl}sselnummer#4.Datei-nrzahl#<3>.Applikation2" ".Schl}ssel-nrnummer.Statusnummer.Dateidatei#<10>2"KUNDEN"#satz2Satz#schl}ssel2KUNDEN-NR2SUCHNAME2LAND2PLZ. ë. lung durchgef}hrt. Sollen weitere Dateibehandlungen zus{tzlich defi-. niert werden, darf eine neue Marke bei der Marke "verzweigung" nicht. zwischen die Bestehenden eingef}gt, sondern darf nur angeh{ngt. werden.  lschlie~en.Schlie~en einer TPS-Datei d datei setzen Datei. d datei schlie~en. r}cksprung. Y=0024BOT TT# T2TT( .****************************************************************************lesen-ohne.Direktes lesen eines Satzes mit einem Schl}ssel. d datei setzen Datei. d positioniere Satz.(Feld-nr) fehler-r}cksprung.satz-lesen. d lesen Satz. r}cksprung. ¡.werden. Schl}sseldefinitionen d}rfen nicht verk}rzt.werden. Sind sie dennoch verk}rzt worden, mu~ das.Programm "DTUMSETZ" aufgerufen werden. e d datei setzen Datei. d positioniere vorw{rts fehler-r}cksprung. springe satz-lesen.  C=004BBOT TT# T2TT(  ð.****************************************************************************lesen-mit.Weitere, noch freie Markenn{chst-les-mit.}berschreiben.schreiben.l|schen.start-nicht-kleiner.freigeben.start-gr|~er.