!!!!!!*--> zugehöriges Infoprogramm: PLVEVG1 00030099 * IDENTIFICATION DIVISION. PROGRAM-ID. PLVEV46. * *----------------------------------------------------------------* * * * PLVEV46 O N L I N E - D C - Programm * * * *----------------------------------------------------------------* * * * Verfasser: STUTTGARTER VERSICHERUNG * * * * Erstellt : Lepold Projekt : Vertragsdatenbank * * Datum : 12.94 * * * * Geprüft : ___________ Datum : MM.JJ * * * * Kurzbeschreibung: * * Neuzugang Teile von E, E-ZWP und EB (außerdem Anzeige von * * EB-VP, E-VP-Ausloes und EBK-Grbverh ) * * _________________________________________________________ * * * * * * Returncodes: * * _________________________________________________________ * * * * * / *----------------------------------------------------------------* * * * A E N D E R U N G S N A C H W E I S * * * *----------------------------------------------------------------* 220420* <=== Kennung der Source-Änderung RZ-Auftrag: RLVE2006 * *----------------------------------------------------------------* * Anlass ! - Beitragsbefreiung mit 2 VPs * * ! - Anpassungen wegen neuem Cobol-Compiler * * --------!----------------------------------------------------- * * Änderer ! 523/13 Süßenbach am: 22.04.2020 * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * A E N D E R U N G S N A C H W E I S * * * *----------------------------------------------------------------* 280317* <=== Kennung der Source-Änderung Rzauftr: RLVES274* *----------------------------------------------------------------* * Anlass ! - Vorbelegung Überrisiken wegen BMI-Zuschlag * * --------!----------------------------------------------------- * * Änderer ! 523/20 Schlachter am: 28.03.2017 * *----------------------------------------------------------------* 281216* <=== Kennung der Source-Änderung Rzauftr: RLVES263* *----------------------------------------------------------------* * Anlass ! - Bausteinauswahl-Muss ausgebaut, da es keinen * * ! Beitragserhalt mehr gibt * * ! - CDIAWVPF statt CDIAWVP (ohne Nachweise) * * --------!----------------------------------------------------- * * Änderer ! 523/20 Schlachter am: 28.12.2016 * *----------------------------------------------------------------* 200515* <=== Kennung der Source-Änderung Rzauftr: RLVES128* *----------------------------------------------------------------* * Anlass ! - Vorbelegung Verb.Beitrag * * --------!----------------------------------------------------- * * Änderer ! 523/20 Schlachter am: 20.05.2015 * *----------------------------------------------------------------* 121114* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Fehler Test E-Antrag * * Geber ! vom: *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE1434 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Aufruf Gesamtplausi EB-VP analog * * anlass ! Standardmaske * * ----------!-------------------------------------------- * * Geändert ! 523/13 Süßenbach am: 12.11.2014 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * A E N D E R U N G S N A C H W E I S * * * *----------------------------------------------------------------* 280314* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Frau Wirth * * Geber ! vom: *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVEK007 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Einfuehren neues Modul PLVEMI7 * * anlass ! Ermitteln Standard Tarifgruppe * * ----------!-------------------------------------------- * * Geändert ! 523/21 Klein am: 28.03.2014 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* 131112* <=== Kennung der Source-Änderung | Rz-Auftrag : RLVE1271 * *----------------------------------------------------------------* * Anlass ! - Textanpassung Beitragsbefreiung * * ! + Inv-Bfr --> Btg-Bfr * * ! + Inv-Beitragsbefreiung für * * ! --> Beitragsbefreiung für * * -----------!-------------------------------------------- * * Änderer ! 523/20 Schlachter am: 13.11.2012 * *----------------------------------------------------------------* 290312* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: gebrochene Dauern * * geber ! vom: 03/2012 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVEMBCR Projekt: _____ Aktivität : ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Plausi E(Rest)-Schnittstelle: * * anlass ! - Versicherungsbeginn aufgenommen. * * ! - Abruf-Art aufgenommen. * * ! - Abruf-Termin aufgenommen. * * ! - Anpassung Oberflächen wegen gebr. Dauern * * ----------!-------------------------------------------- * * geändert ! 520/97 Bauß am: 29.03.2012 * * geändert ! 523/13 Süßenbach am: 23.03.2012 * *----------------------------------------------------------------* / *----------------------------------------------------------------* 221211* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: TG2012 * * geber ! vom: 08.2011 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVD5155 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Einbau Plausi Sonvergart * * anlass ! * * ----------!-------------------------------------------- * * Geändert ! 522/16 Weiß am: 22.12.2011 * * Geprüft ! 52X/XX am: TT.MM.JJJJ * *--------------------------------------------------------------- * / *----------------------------------------------------------------* 131211* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Frau Wörn * * geber ! vom: 12.2011 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE1139 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Vorbelegung ZWP-Daten angepasst * * anlass ! * * ----------!-------------------------------------------- * * Geändert ! 523/13 Süßenbach am: 13.12.2011 * * Geprüft ! 52X/XX am: TT.MM.JJJJ * *--------------------------------------------------------------- * / *--------------------------------------------------------------- * 171111* <=== Kennung der Source-Änderung * *--------------------------------------------------------------- * * Auftrag- ! von: Tarifgeneration 2012 * * geber ! vom: 11/2011 * *--------------!------------------------------------------------ * * Rz-Auftrag ! RLVE1136 Projekt: _____ Aktivität: ______ * *--------------!------------------------------------------------ * * Änderungs- ! Vorbelegung der Tarifgruppe in AVE und LVP * * anlass ! * * ----------!-------------------------------------------- * * Geändert ! 521/73 Süßenbach am: 17.11.2011 * * Geprüft ! am: * *--------------------------------------------------------------- * / *--------------------------------------------------------------- * 220911* <=== Kennung der Source-Änderung * *--------------------------------------------------------------- * * Auftrag- ! von: Tarifgeneration 2012 * * geber ! vom: 08.09.2011 * *--------------!------------------------------------------------ * * Rz-Auftrag ! RLVE1132 Projekt: _____ Aktivität: ______ * *--------------!------------------------------------------------ * * Änderungs- ! - in AVE, LVP Eingabe der externen Tarifgruppe * * anlass ! zu dieser wird die eigentliche Tarifgruppe * * ! ermittelt * * ! (DBM: weiterhin Eingabe der eigentlichen TG) * * ! - Einzelplausi EB wurde nicht mit den aktuellen* * ! Eingaben der führenden Relationen versorgt * * ! ==> MDB-Upd. auf führende Relation vorgezogen* * ----------!-------------------------------------------- * * Geändert ! 521/73 Süßenbach am: 22.09.2011 * * Geprüft ! am: * *--------------------------------------------------------------- * / *----------------------------------------------------------------* * * * A E N D E R U N G S N A C H W E I S * * * *----------------------------------------------------------------* 090611* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: * * geber ! vom: 06/2011 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVEMBCB * *--------------!-------------------------------------------------* * Änderungs- ! - Plausi E (Rest) um Tarifgruppe erweitert. * * anlass ! - Maskenfeld Tarifgruppe eingeführt. * *----------------------------------------------------------------* * Geändert ! 520/97 Bauß am: 09.06.2011 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * Ä n d e r u n g s n a c h w e i s * * * *----------------------------------------------------------------* 110809* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Frau Buck * * Geber ! vom: 08/2009 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE0934 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Einbau Gesamtplausi EBP * * anlass ! * * ----------!---------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 11.08.2009 * * geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * Ä n d e r u n g s n a c h w e i s * * * *----------------------------------------------------------------* 230209* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herr Lepold/Süßenbach * * Geber ! vom: 12/2008 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVEV789 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Ersetzen PLVEM29 durch PLVEMT5 * * anlass ! - interne Bausteintabelle auf 30 erw * * ! - CLVEM62 erweitert * * ----------!---------------------------------------------- * * Geändert ! 321/24 Elke Zürn am: 02/2009 * * geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* *----------------------------------------------------------------* 300908* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herr Lepold * * Geber ! vom: 08.05.2008 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVED812 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Notes-DB ! LV-Allgemein Auftrag: VERWALT032 ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Ersetzen CICS-Link-Aufruf durch dynamische * * anlass ! Calls * * ----------!---------------------------------------------- * * Geändert ! 321/22 Deininger am: 06.10.2008 * * geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* *----------------------------------------------------------------* 260608* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: TAR2008-01 * * geber ! vom: 06.2008 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVEA200 Projekt: ____ Aktivität: ____ * *--------------!-------------------------------------------------* * Änderungs- ! Copyerweiterung CLVET63 Tabelle TLVEBHVU * * anlass ! Nur Compile! * * ----------!-------------------------------------------- * * geändert ! 321/18 Schmidt, Petra am: 26.06.2008 * * geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* *----------------------------------------------------------------* 151007* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: intern * * geber ! vom: * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE0736 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - W-Ind-Parameter und W-Ind-Parameter-Bfr * * anlass ! binär definiert, da sie so auch in PLVEV48 * * ! angepasst und dort aus dem MDB gelesen werden* * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 15.10.2007 * * geprüft ! 3xx/xx am: xx.xx.xxxx * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * Ä n d e r u n g s n a c h w e i s * * * *----------------------------------------------------------------* 070307* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: intern * * geber ! vom: * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE0721 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Vorbereitung für eine spätere MDB-Optimierung: * * anlass ! Erweiterung CLVETBFR um Anzahl Tab-Elemente, * * ! um Rest der Tabelle mit Spaces zu füllen * * ! --> jetzt nur Compile! * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 07.03.2007 * * geprüft ! 3xx/xx am: xx.xx.xxxx * *----------------------------------------------------------------* / * *----------------------------------------------------------------* * * * Ä n d e r u n g s n a c h w e i s * * * *----------------------------------------------------------------* 291106* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: * * geber ! vom: * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVD1320 Projekt: _____ Aktivität : ______ * *--------------!-------------------------------------------------* * Änderungs- ! - unbenutzen Code ausgesternt, wegen Löschen * * anlass ! alter Programme * * ----------!-------------------------------------------- * * geändert ! 321/19 Vogt, Susanne am: 29.11.2006 * * geprüft ! 32x/xx am: TT.MM.JJJJ * *----------------------------------------------------------------* *----------------------------------------------------------------* 241006* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herrn Weidemann * * Geber ! vom: 10/2006 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE0686 Projekt: LVE__ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Zwangs-Auswahl Überrisiken nur bei BG- * * anlass ! relevanten Bausteinen der Generation 2006 * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 24.10.2006 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / * *----------------------------------------------------------------* * * * Ä n d e r u n g s n a c h w e i s * * * *----------------------------------------------------------------* 250806* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: BERUF002 * * Geber ! vom: 07/2006 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE0663 Projekt: LVE__ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Vorbereitung für Plausi Perseigkombi: * * anlass ! Erweiterung CLVEME8/M07 um Realzustand des * * ! Bausteins * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 25.08.2006 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / * *----------------------------------------------------------------* * * * Ä n d e r u n g s n a c h w e i s * * * *----------------------------------------------------------------* 240706* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Frau Buck * * geber ! vom: 05/2006 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVEMBZ6 Projekt: ____ Aktivität: ____ * *--------------!-------------------------------------------------* * Änderungs- ! - Plausi E durch neue Plausi E(Rest) ersetzt. * * anlass ! - Fehlerhandling angepasst. * * ! + Fehler-Nr -> Fehler * * ! + W-Fehlertext -> W-Fehlertext-Gesamt * * ! + BDV-Fehler -> Meldung * * ! + BDV-Kein-Fehler -> Not Meldung * * ----------!-------------------------------------------- * * geändert ! 320/97 Bauß am: 24.07.2006 * * geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / * / * *----------------------------------------------------------------* * * * Ä n d e r u n g s n a c h w e i s * * * *----------------------------------------------------------------* 030506* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herrn Weidemann, Herrn Lepold * * geber ! vom: 05/2006 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE Projekt: ____ Aktivität: ____ * *--------------!-------------------------------------------------* * Änderungs- ! - Bausteinplausi für Beitrags-befreienden * * anlass ! Baustein * * ! - wenn Personendaten ausgewählt werden soll, * * ! keine Prüfung, ob weitere Bausteinauswahl * * ! - Prüfung BG-Relevanz korrigiert * * ! - TLVEPLAU über Zugriffsmodul lesen * * ----------!-------------------------------------------- * * geändert ! 321/13 Süßenbach am: 03.05.2006 * * geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / * *----------------------------------------------------------------* * * * Ä n d e r u n g s n a c h w e i s * * * *----------------------------------------------------------------* 210406* <=== Kennung der Source-Änderung * 040406* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herrn Lepold/Herr Weidemann/Frau Buck * * geber ! vom: 30.03.2006 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVEA155 Projekt: ____ Aktivität: ____ * *--------------!-------------------------------------------------* * Änderungs- ! - Beitragsbefreiungsbausteinzuordnung im Neuzu-* * anlass ! gang * * 210406: ! - Aufruf Gesamtplausi EB-VP für Berufsgruppen * * 240406: ! - bei BG-relevanten-Bausteinen müssen * * ! Überrisiken ausgewählt werden * * 240406: ! - zusätzliche Auswahl für Personendaten * * ----------!-------------------------------------------- * * geändert ! 321/18 Schmidt, Petra am: 31.03.2006 * * geändert ! 321/22 Deininger am: 21.04.2006 * * geändert ! 321/13 Süßenbach am: 24.04.2006 * * geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* *----------------------------------------------------------------* 090306* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herrn Lepold * * geber ! vom: 01.2006 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVEA152 Projekt: ____ Aktivität: ____ * *--------------!-------------------------------------------------* * Änderungs- ! - Copyerweiterung CLVET63 Tabelle TLVEBHVU * * anlass ! - Vorbelegung ZWPART und ZWP-Prozentsatz * * ----------!-------------------------------------------- * * geändert ! 321/18 Schmidt, Petra am: 09.03.2006 * * geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* *----------------------------------------------------------------* 210206* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herrn Reuther * * Geber ! vom: 01/2006 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE Projekt: LVE__ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Einführung Berufsgruppen * * anlass ! ==> Erweiterung CLVEM07 * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 21.02.2006 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * A E N D E R U N G S N A C H W E I S * * * *----------------------------------------------------------------* 250106* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herrn Reuther * * geber ! vom: 01/2006 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE0608 Projekt: LVE__ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Einführung Berufsgruppen * * anlass ! ==> Änderung der Copystrecken CLVELVP, * * ! CLVELBVP, CLVEZD2, CLVEZE3 (nur Compile!)* * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 25.01.2006 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * Ä n d e r u n g s n a c h w e i s * * * *----------------------------------------------------------------* 150605* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herrn Lepold____________ * * geber ! vom: 06/2005 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVEO520 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Ausbau Abfrage Baust-Gruppe = fonds usw. * * anlass ! ->generelle Vorbelegung bei ZWP mit GRV___ * * ----------!-------------------------------------------- * * Geändert ! 321/14 Hartmann, C. am: 15.06.2005 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / 140205* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herrn Lepold____________ * * geber ! vom: 02/2005 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVEO517 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Abfrage neuer ZWP-Felder * * anlass ! ________________________________________ * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 14.02.2005 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * Ä n d e r u n g s n a c h w e i s * * * *----------------------------------------------------------------* 090205* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herrn Lepold____________ * * geber ! vom: 02/2005 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVEO518 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Erweiterung CLVEM02 (nur Compile!)______ * * anlass ! ________________________________________ * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 09.02.2005 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * Ä n d e r u n g s n a c h w e i s * * * *----------------------------------------------------------------* 190105* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herrn Lepold * * Geber ! vom: 01/2005 * *--------------!-------------------------------------------------* * RZ-Auftrag ! RLVE0512 Projekt: Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Erweiterung CLVELZWP * * anlass ! * * ----------!-------------------------------------------------* * Geändert ! 321/13 Süßenbach am: 19.01.2005 * * Geprüft ! 32x/xx am: tt.mm.jjjj * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * Ä n d e r u n g s n a c h w e i s * * * *---------------------------------------------------------------- 280904* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: U-Kasse * * geber ! vom: 09/2004 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE0463 Projekt: _____ Aktivität : ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Vorbelegung unverfallbare Ansprüche unnötig * * anlass ! * * ----------!-------------------------------------------- * * geändert ! 321/13 Süßenbach am: 28.09.2004 * * geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * Ä n d e r u n g s n a c h w e i s * * * *----------------------------------------------------------------* 060904* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herrn Lepold * * geber ! vom: 06.09.2004 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE0462 Projekt: ____ Aktivität: ____ * *--------------!-------------------------------------------------* * Änderungs- ! Erweiterung des Zugriffmoduls fuer Tabelle * * anlass ! TLVEBHVU um Fillerbereich, Ersetzen des * * ! Zugriffprogramms PLVET51 durch PLVET63 * * ----------!-------------------------------------------- * * geändert ! 127/35 Vogt am: 06.09.2004 * * geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* 290104* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Frau Lenz ____________ * * geber ! vom: 01/2004 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE0410 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Korrektur der Änderung vom 27.01.2004: * * anlass ! Fachgebiet in CLVEM06 wurde nicht beschickt * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 29.01.2004 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * Ä n d e r u n g s n a c h w e i s * * * *----------------------------------------------------------------* 270104* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herrn Lepold____________ * * geber ! vom: 01/2004 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE0407 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - in CLVEM06 Fachgebiet durchgehend mit Inhalt * * anlass ! aus MDB-Variablen 'FACHGEBIET' füllen * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 27.01.2004 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / * *----------------------------------------------------------------* * * * A E N D E R U N G S N A C H W E I S * * * *----------------------------------------------------------------* 160104* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herrn Lepold____________ * * Geber ! vom: 01/2004 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE0404 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Änderung CLVEM01: Folge-Verarbeitung * * anlass ! und Kalkzpkt-zu-Prodfaebtr statt * * anlass ! Eintritts- und Meldeereignis (nur Compile!) * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 16.01.2004 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * Ä n d e r u n g s n a c h w e i s * * * *----------------------------------------------------------------* 051203* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herrn Lepold____________ * * geber ! vom: 05.12.2003 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE0341 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Erweiterung CLVEM06 um Fachgebiet (statt * * anlass ! Plausi-Kz), Verkaufsbezeichnung ausgebaut * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 05.12.2003 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * Ä n d e r u n g s n a c h w e i s * * * *----------------------------------------------------------------* 280503* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: PLUS * * Geber ! vom: 05/2003 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE* Projekt: Leben Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - INV-BFR Kürzel durch Auslösereignis ersetzt * * anlass ! - Löschen alter Änderungsnachweise * * ----------!-------------------------------------------- * * Geändert ! 321/20 Liess, M. am: 28.05.2003 * * Geprüft ! 3xx/xx am: xx.xx.xxxx * *----------------------------------------------------------------* / 010403* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: FOK (Fondsverwaltung) * * Geber ! vom: 03/2003 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RFOK0217 Projekt: Leben Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Für Vorsorge-Tarife und von Vorsorge- * * anlass ! Übernommenen Tarifen die ZWP-Vorbelegung * * ! mit PROZ und 5 machen, bei FOK-Tarifen * * ! wird GRV vorbelegt * * ----------!-------------------------------------------- * * Geändert ! 321/15 Eckhardt, B. am: 01.04.2003 * * Geprüft ! 3xx/xx am: xx.xx.xxxx * *----------------------------------------------------------------* / 100602* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herrn Häußler___________ * * geber ! vom: 06/2002 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE0224 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Erweiterung CLVEM06 für Plausi Art Ein- * * anlass ! rechnung Fälligkeitsbeitrag (nur Compile!) * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 10.06.2002 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * A E N D E R U N G S N A C H W E I S * * * *----------------------------------------------------------------* 140502* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herrn Lepold * * Geber ! vom: 05/2002 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE0219 Projekt: Riester Aktivität: _____ * *--------------!-------------------------------------------------* * Änderungs- ! - Erweiterung TLVEBHVU um Zertifikations- * * anlass ! nummer (nur Compile!) * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 14.05.2002 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * A E N D E R U N G S N A C H W E I S * * * *----------------------------------------------------------------* 300701* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Euro * * Geber ! vom: 30.07.2001 * *--------------!-------------------------------------------------* * Rz-Auftrag ! _______ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Schnittstelle von Plausi E um __________ * * anlass ! K-Abgang erweitert. ____________________ * * ----------!-------------------------------------------- * * Geändert ! 340/97 Bauß am: 30.07.2001 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * A E N D E R U N G S N A C H W E I S * * * *----------------------------------------------------------------* 200301* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: EURO * * Geber ! vom: * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVP0126 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Plausi der Währung * * anlass ! * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 20.03.2001 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * A E N D E R U N G S N A C H W E I S * * * *----------------------------------------------------------------* 280201* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: EURO * * Geber ! vom: * *--------------!-------------------------------------------------* * Rz-Auftrag ! _______ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - TLVEBAUH durch TLVEBHVU ersetzt * * anlass ! * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 28.02.2001 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * A E N D E R U N G S N A C H W E I S * * * *----------------------------------------------------------------* 271100* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: EURO * * Geber ! vom: * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVP0076 Projekt: Euro_ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Währung in CLVEM42 füllen * * anlass ! * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 27.11.2000 * * Geprüft ! xxx/xx am: xx.xx.xxxx * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * A E N D E R U N G S N A C H W E I S * * * *----------------------------------------------------------------* 121000* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Euro * * Geber ! vom: 07/2000 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVEHZ92 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Währung auf Maske anzeigen * * anlass ! * * ----------!-------------------------------------------- * * Geändert ! 321/12 Zeller am: 12.10.2000 * * Geprüft ! * *----------------------------------------------------------------* / *----------------------------------------------------------------* 250800* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Buck * * Geber ! vom: 25.08.2000 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVEMB97 Projekt: Euro_ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Erweiterung der Schnittstelle CLVEM42 wegen* * anlass ! Plausi Leistungsbez und Währungsfeld. * * ----------!-------------------------------------------- * * Geändert ! 340/97 Bauß am: 25.08.2000 * * Geprüft ! xxx/xx am: xx.xx.xxxx * *----------------------------------------------------------------* / 170800* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herrn Lepold____________ * * Geber ! vom: 17.08.2000 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVP0054 Projekt: Euro_ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - CLVEM01 um Währung erweitert__________ * * anlass ! ________________________________________ * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 17.08.2000 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / * *----------------------------------------------------------------* * * * Ä n d e r u n g s n a c h w e i s * * * *----------------------------------------------------------------* 140800* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: intern * * Geber ! vom: * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVP0052 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Vorgangstyp im Übergabebereich von PLVEM01 * * anlass ! füllen * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 14.08.2000 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / * *----------------------------------------------------------------* * * * Ä n d e r u n g s n a c h w e i s * * * *----------------------------------------------------------------* 120700* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herrn Maurer * * geber ! vom: 11.07.2000 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVP0046 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Parameter des Beitragsbefreienden Bausteins * * anlass ! konnten nicht eingegeben werden * * anlass !==> Fehlerkorrektur beim Ermitteln der laufenden * * anlass ! Nummer des befreienden Bausteins * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 12.07.2000 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / * *----------------------------------------------------------------* * * * Ä n d e r u n g s n a c h w e i s * * * *----------------------------------------------------------------* 260500* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herrn Weidemann_________ * * geber ! vom: 24.05.2000 * *--------------!-------------------------------------------------* * Rz-Auftrag ! ________ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Bei Fondsgebundener LV ZWP-Art mit 'PROZ' * * anlass ! und 5% vorbelegen * * ----------!-------------------------------------------- * * Geändert ! 321/11 Lepold am: 26.05.2000 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / * *----------------------------------------------------------------* 130400* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Lepold__________________ * * Geber ! vom: 13.04.2000 * *--------------!-------------------------------------------------* * Rz-Auftrag ! _______ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Maske eurofähig gemacht.________________ * * anlass ! ________________________________________ * * ----------!-------------------------------------------- * * Geändert ! 340/97 Bauß am: 13.04.2000 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* 040400* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herrn Weidemann_________ * * geber ! vom: 04.04.2000 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVP0027 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Bei Fondsgebundener LV ZWP-Art mit 'PROZ' * * anlass ! vorbelegen * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 04.04.2000 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / * *----------------------------------------------------------------* 070200* <=== KENNUNG DER SOURCE-ÄNDERUNG * *----------------------------------------------------------------* * AUFTRAG- ! VON: Herrn Lepold * * GEBER ! VOM: * *--------------!-------------------------------------------------* * RZ-AUFTRAG ! ________ PROJEKT: _____ AKTIVITÄT: ______ * *--------------!-------------------------------------------------* * ÄNDERUNGS- ! - Schnittstellenänderung CLVEM42 * * ANLASS ! * * ----------!-------------------------------------------- * * GEÄNDERT ! 340/97 Bauß AM: 24.01.2000 * * GEPRÜFT ! 32X/XX AM: TT.MM.JJJJ * *----------------------------------------------------------------* / * 291099* <=== KENNUNG DER SOURCE-ÄNDERUNG * *----------------------------------------------------------------* * AUFTRAG- ! VON: Hr. Heim * GEBER ! VOM: 29.10.1999 * *--------------!-------------------------------------------------* * RZ-AUFTRAG ! ________ PROJEKT: _____ AKTIVITÄT: ______ * *--------------!-------------------------------------------------* * ÄNDERUNGS- ! Abbruch, wenn Auswahlnummern größer der * * ANLASS ! Tabellengröße * * ----------!-------------------------------------------- * * GEÄNDERT ! 321/11 Lepold AM: 29.10.1999 * * GEPRÜFT ! 32X/XX AM: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* 051099* <=== KENNUNG DER SOURCE-ÄNDERUNG * *----------------------------------------------------------------* * AUFTRAG- ! VON: Lepold__ * GEBER ! VOM: * *--------------!-------------------------------------------------* * RZ-AUFTRAG ! ________ PROJEKT: _____ AKTIVITÄT: ______ * *--------------!-------------------------------------------------* * ÄNDERUNGS- ! - Änderungen vom 280999 müssen noch * * ANLASS ! einmal nach Prod. * * ----------!-------------------------------------------- * * GEÄNDERT ! 340/97 Bauß AM: 05.10.1999 * * GEPRÜFT ! 32X/XX AM: TT.MM.JJJJ * *----------------------------------------------------------------* / * *----------------------------------------------------------------* 280999* <=== KENNUNG DER SOURCE-ÄNDERUNG * *----------------------------------------------------------------* * AUFTRAG- ! VON: ________ * GEBER ! VOM: * *--------------!-------------------------------------------------* * RZ-AUFTRAG ! ________ PROJEKT: _____ AKTIVITÄT: ______ * *--------------!-------------------------------------------------* * ÄNDERUNGS- ! - PLVEM06 MDB frei gemacht. * * ANLASS ! - Update LVE-Sonvergart-Neu korrigiert * * ----------!-------------------------------------------- * * GEÄNDERT ! 340/97 Bauß AM: 28.09.1999 * * GEPRÜFT ! 32X/XX AM: TT.MM.JJJJ * *----------------------------------------------------------------* / * *----------------------------------------------------------------* 140499* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: 14.4.1999 * *--------------!-------------------------------------------------* * Rz-Auftrag ! _______ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! K-P-Schalter für Plausi PLVEM06 angepasst, * * anlass ! damit Neuzugang funktioniert. * * ----------!-------------------------------------------- * * Geändert ! 340/97 Bauß am: 14.04.1999 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / 140399* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: 14.4.1999 * *--------------!-------------------------------------------------* * Rz-Auftrag ! _______ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! keine Zusatzversicherungen mehr möglich nach * * anlass ! Einführung der TLVEBKK-Plausi * * ----------!-------------------------------------------- * * Geändert ! 341/11 Lepold am: 14.03.1999 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* 180299* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Buck * * Geber ! vom: 02/1999 * *--------------!-------------------------------------------------* * Rz-Auftrag ! _______ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Aufruf PLVEM02 über Zwischenprg. PLVEME6 * * anlass ! PLVD45N dynamisch rufen. * * ----------!-------------------------------------------- * * Geändert ! 340/97 Bauß am: 18.02.1999 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* 300998* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: 08/1998 * *--------------!-------------------------------------------------* * Rz-Auftrag ! _______ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! DB-Erweiterung für Kapitalerträge, KESt und * * anlass ! Fremddaten; Compile wegen Änderung CLVELB * * ----------!-------------------------------------------- * * Geändert ! 321/11 Lepold am: 30.09.1998 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* 070798* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: 07/1998 * *--------------!-------------------------------------------------* * Rz-Auftrag ! ________ Projekt: Leben Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Ausbau Vorbelegung Beg-Rhythmus-ZWP * * anlass ! * ----------!-------------------------------------------- * * Geändert ! 321/19 Eckhardt,E am: 07.07.1998 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* 300498* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: 04/1998 * *--------------!-------------------------------------------------* * Rz-Auftrag ! ________ Projekt: Leben Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Vorbelegung Versionskennzeichen * * anlass ! ________________________________________ * * ----------!-------------------------------------------- * * Geändert ! 321/11 Lepold am: 30.04.1998 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * Ä n d e r u n g s n a c h w e i s * * * *----------------------------------------------------------------* 160498* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: * *--------------!-------------------------------------------------* * Rz-Auftrag ! ________ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Umbenennen Auslösereignis INV in BU * * anlass ! ________________________________________ * * ----------!-------------------------------------------- * * Geändert ! 321/11 Lepold am: 16.04.1998 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * Ä n d e r u n g s n a c h w e i s * * * *----------------------------------------------------------------* 040298* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: 12/1997 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE9816 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Statt Buz-Beitragsbefreiung sind nun als * * anlass ! Eingabe die Invaliditätsbeitragsbefreiungen * * ! (Buz, Euz und Buz+) möglich * * ! Dazu Erweiterung der Copystrecke CLVETBFR * * ! - PTABZGM durch PTABZGMS ersetzt * * ----------!-------------------------------------------- * * Geändert ! 321/15 Eckhardt, B. am: 04.02.1998 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / 020298* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: 12/1997 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE9815 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Erweiterung CLVEM07 um Kennzeichen für * * anlass ! abgegangene Bausteinen (nur Compile!) * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 02.02.1998 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * A E N D E R U N G S N A C H W E I S * * * *----------------------------------------------------------------* *----------------------------------------------------------------* 211197* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: * *--------------!-------------------------------------------------* * Rz-Auftrag ! ________ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - CLVEM42 erweitert * anlass ! * ----------!-------------------------------------------- * * Geändert ! 321/19 Eckhardt,E am: 21.11.1997 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* 230797* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: * *--------------!-------------------------------------------------* * Rz-Auftrag ! ________ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! toter Programmcode ("Ermitteln-Anzahl", * * anlass ! "Aufruf-PLVEM48") entfernt * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 23.07.1997 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * A E N D E R U N G S N A C H W E I S * * * *----------------------------------------------------------------* 100797* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: * *--------------!-------------------------------------------------* * Rz-Auftrag ! ________ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Erweiterung CLVEM42 wegen neuer allgemeiner * * anlass ! Bausteinplausi * * ----------!-------------------------------------------- * * Geändert ! 321/11 Lepold am: 10.07.1997 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / * *----------------------------------------------------------------* 130697* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: 05.1997 * *--------------!-------------------------------------------------* * Rz-Auftrag ! _______ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Erweiterung Übergabe CLVEM06 wegen Plausi * * anlass ! der Abrufdauer und Vertragsgruppenart * * ----------!-------------------------------------------- * * Geändert ! 321/11 Lepold am: 13.06.1997 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* 120697* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Herrn Lepold * * Geber ! vom: * *--------------!-------------------------------------------------* * Rz-Auftrag ! RAVE9701 Projekt: ___ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Prüfung, ob Zusatzversicherungen vorhanden, * * anlass ! berichtigt (vgl. Kennung 270597) * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 12.06.1997 * * Geprüft ! 321/xx am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * A E N D E R U N G S N A C H W E I S * * * *----------------------------------------------------------------* 220597* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: * * Geber ! vom: * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE9736 Projekt: ___ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Übergabebereich von PLVEM12 um Ausgabefeld * * anlass ! T-Art-Vertragsgruppe erweitert * * ----------!-------------------------------------------- * * Geändert ! 321/15 Eckhardt, B. am: 22.05.1997 * * Geprüft ! 321/xx am: TT.MM.JJJJ * *----------------------------------------------------------------* / * *----------------------------------------------------------------* 020597* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: 05.1997 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RAVE9701 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Abfrage, ob Bausteinbeginn gefüllt * * anlass ! (LVE-EB wird bei Einstieg in AVE mit * * ! Hauptbaustein und Baulfdnr versorgt!) * * ! - Vorbelegen ZWP-Daten * * ! - zusätzliche Variablen zur Steuerung der TF * * ! (Achtung Logik ist falsch Lepold 26.5.1997) * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 02.05.1997 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * A E N D E R U N G S N A C H W E I S * * * *----------------------------------------------------------------* 210497* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: 01.1997 * *--------------!-------------------------------------------------* * Rz-Auftrag ! _______ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Erweiterung CLVEM01 um Abruffelder * * anlass ! ________________________________________ * * ----------!-------------------------------------------- * * Geändert ! 321/11 Lepold am: 21.04.1997 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* 180497* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * geber ! vom: * *--------------!-------------------------------------------------* * RZ-Auftrag ! Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Copiestrecke CLVEM42 erweitert * * anlass ! * ----------!-------------------------------------------------* * geändert ! 321/19 Eckhardt, E. am: 18.04.1997 * * geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / * *----------------------------------------------------------------* 100497* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * geber ! vom: * *--------------!-------------------------------------------------* * RZ-Auftrag ! Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - variable Fehlertexte auf Maske bringen * * anlass ! von CLVEM01, CLVEM02, CLVEM06, CLVEM07 * * ! CLVEM42 * * ----------!-------------------------------------------------* * geändert ! 321/15 Eckhardt, B. am: 10.04.1997 * * geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / * 080497* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Weidemann * * geber ! vom: * *--------------!-------------------------------------------------* * RZ-Auftrag ! Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - variable Fehlertexte auf Maske bringen * * anlass ! von PLVEM06 * * ----------!-------------------------------------------------* * geändert ! 321/19 Eckhardt, E. am: 08.04.1997 * * geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / * *----------------------------------------------------------------* 120397* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: * * geber ! vom: * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE9667 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Copystrecke CLVEM02 um variable * anlass ! Fehlertexte erweitert * * ----------!-------------------------------------------- * * geändert ! 321/15 Eckhardt, B. am: 12.03.1997 * * geprüft ! 321/?? am: * *----------------------------------------------------------------* / 270297* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * geber ! vom: * *--------------!-------------------------------------------------* * RZ-Auftrag ! RLVE9662 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Copystrecke CLVEM01 um variable * * anlass ! Fehlertexte erweitert * * ----------!-------------------------------------------------* * geändert ! 321/15 Eckhardt, B. am: 27.02.1997 * * geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / * 100297* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE9710 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Copystrecke CLVEM07 um variable Fehlertexte * * anlass ! erweitert * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 10.02.1997 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * A E N D E R U N G S N A C H W E I S * * * *----------------------------------------------------------------* 070297* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: *--------------!-------------------------------------------------* * Rz-Auftrag ! _______ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Copystrecke CLVEM06 um variable Fehlertexte * * anlass ! erweitert * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 07.02.1997 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * A E N D E R U N G S N A C H W E I S * * * *----------------------------------------------------------------* 041296* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: 12 *--------------!-------------------------------------------------* * Rz-Auftrag ! _______ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Erweiterung des Übergabebereichs von * * anlass ! PLVEM42 * * ----------!-------------------------------------------- * * Geändert ! 321/19 Eckhardt, E. am: 04.12.1996 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / 141196* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: 11.1996 * *--------------!-------------------------------------------------* * Rz-Auftrag ! _______ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Ausbau Aufruf PLVEM68 * * anlass ! * * ----------!-------------------------------------------- * * Geändert ! 321/19 Eckhardt, E. am: 14.11.1996 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* 211096* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: 07.1996 * *--------------!-------------------------------------------------* * Rz-Auftrag ! _______ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Initialisieren W-Ind-Parameter-Alpha u. -Num * * anlass ! für Maske sontige Parameter * * ----------!-------------------------------------------- * * Geändert ! 321/11 Lepold am: 21.10.1996 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* 260996* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: ________________________ * * Geber ! vom: TT.MM.JJJJ * *--------------!-------------------------------------------------* * Rz-Auftrag ! ________ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! neue Plausi in PLVEM42 für Personen in * * anlass ! Zusatzversicherungen * * ----------!-------------------------------------------- * * Geändert ! 321/11 Lepold am: 26.09.1996 * * Geprüft ! 321/19 Eckhardt,E. am: 26.09.1996 * *----------------------------------------------------------------* / *----------------------------------------------------------------* 230796* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: ________________________ * * Geber ! vom: TT.MM.JJJJ * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVE9618 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Übergabebereich von PLVEM01 um Fachgebiet * * anlass ! erweitert * * ----------!-------------------------------------------- * * Geändert ! 321/13 Süßenbach am: 23.07.1996 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* * * * A E N D E R U N G S N A C H W E I S * * * *----------------------------------------------------------------* 290296* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: 12.1995 * *--------------!-------------------------------------------------* * Rz-Auftrag ! _______ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Bestandsgruppe bausteinabhängig * * anlass ! versorgen auf spätere Maske verlagert * * ! Kalkulationszeitpunkt versorgt * * ----------!-------------------------------------------- * * Geändert ! 321/15 Lepold am: 29.02.1996 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* 090296* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: 12.1995 * *--------------!-------------------------------------------------* * Rz-Auftrag ! _______ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Umbenennung Verwendung-Ueberschuss in * * anlass ! Uebsystem (ohne Änderungsnachweis) * * ----------!-------------------------------------------- * * Geändert ! 321/15 Lepold am: 09.02.1996 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* 060296* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: 12.1995 * *--------------!-------------------------------------------------* * Rz-Auftrag ! _______ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Compile wegen Erweiterung CLVEM01 * * anlass ! Fehlerabfragen nach Aufruf PLVEM01 nur für * * ! geprüfte Felder * * ----------!-------------------------------------------- * * Geändert ! 321/15 Lepold am: 06.02.1996 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* 020296* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * geber ! vom: 12.95 * *--------------!-------------------------------------------------* * Rz-Auftrag ! _______ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Änderung Copy CLVEM06 * * anlass ! Fehlerabfrage nach Aufruf PLVEM06 nur für * * ! geprüfte Felder * * ----------!-------------------------------------------- * * geändert ! 321/15 Lepold am: 02.02.1996 * * geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* 180196* <=== Kennung der 1. Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * geber ! vom: 01.1996 * *--------------!-------------------------------------------------* * Rz-Auftrag ! ________ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Änderung wegen erweiterter Plausi für Beg- * * anlass ! Bau * * ----------!-------------------------------------------- * * geändert ! 321/15 Lepold am: 18.01.1996 * * geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* 121295* <=== Kennung der 1. Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * geber ! vom: 12.1995 * *--------------!-------------------------------------------------* * Rz-Auftrag ! ________ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Eingabe weitere ZWP-Daten geht bei Baustein- * * anlass ! Loop verloren * * ----------!-------------------------------------------- * * geändert ! 321/15 Lepold am: 12.12.1995 * * geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* 231195* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * geber ! vom: 23.11.1995 * *--------------!-------------------------------------------------* * Rz-Auftrag ! ________ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Eingabe Person für BUZ-Beitragsbefreiung * * anlass ! schon auf dieser Maske * * ----------!-------------------------------------------- * * geändert ! 321/15 Lepold am: 23.11.1995 * * geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* 021195* <=== Kennung der Source-Änderung * 161195* <=== Kennung der 2. Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * geber ! vom: 09.95 * *--------------!-------------------------------------------------* * Rz-Auftrag ! RLVEV068 Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! - Änderung Feld K-Lsteinschr-Rizu in * * anlass ! K-Beitrag-Faell-Prod-Abw * * ! - In DBM-NEU und LVP-NEU soll Cursor nicht * * ! positioniert werden. * * ----------!-------------------------------------------- * * geändert ! 321/15 Lepold am: 02.11.1995 * * geändert ! 321/13 Süßenbach am: 16.11.1995 * * geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* 041095* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt * * Geber ! vom: 15.09.1995 * *--------------!-------------------------------------------------* * HLMS-Grund ! _______ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Änderung Übergabe für PLVEM06, M42 (Leseart * * anlass ! muß von außen übergeben werden) * * ----------!-------------------------------------------- * * Geändert ! 321/15 Lepold am: 04.10.1995 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* 060995* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: DLV * * Geber ! vom: 06.1995 * *--------------!-------------------------------------------------* * HLMS-Grund ! _______ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! VVmitstueko auch auf Maske * * anlass ! Beitrag 0 wird nicht mehr angezeigt * * ----------!-------------------------------------------- * * Geändert ! 321/15 Lepold am: 06.09.1995 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* 170795* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: DLV * * Geber ! vom: 06.1995 * *--------------!-------------------------------------------------* * HLMS-Grund ! _______ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Einbau neue Relation EB-Erw für DLV * * anlass ! ________________________________________ * * ----------!-------------------------------------------- * * Geändert ! 321/15 Lepold am: 17.07.1995 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* 030795* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: Projekt Leben * * Geber ! vom: 06.1995 * *--------------!-------------------------------------------------* * HLMS-Grund ! _______ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Steuerung AVE, LVP nicht aufgrund von * * anlass ! SYSPARM sondern über MDB-Variable FACHGEBIET * * ----------!-------------------------------------------- * * Geändert ! 321/15 Lepold am: 03.07.1995 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / *----------------------------------------------------------------* 160695* <=== Kennung der Source-Änderung * *----------------------------------------------------------------* * Auftrag- ! von: ________________________ * * Geber ! vom: TT.MM.JJJJ * *--------------!-------------------------------------------------* * HLMS-Grund ! _______ Projekt: _____ Aktivität: ______ * *--------------!-------------------------------------------------* * Änderungs- ! Um nach Fehlererkennung aus M42 erkennen * * anlass ! zu koennen, welcher BST einen Fehler hat. * * ! Copy-Strecke CLVEM42 wurde ergaenzt. * * ----------!-------------------------------------------- * * Geändert ! 340/ST am: 16.06.1995 * * Geprüft ! 32X/XX am: TT.MM.JJJJ * *----------------------------------------------------------------* / ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. Decimal-Point is Comma. DATA DIVISION. * WORKING-STORAGE SECTION. LSTEDT* nicht mehr benötigt * LSTEDT* COPY CDIAECA SUPPRESS. / COPY CMDBCAU. / COPY CDIAOPID. / COPY CDIAWRK1. / COPY MLVEV46 REPLACING MLVEV46 BY MAP-AREA. * COPY DFHBMSCA SUPPRESS. / *----------------------------------------------------------------* * * * Working-Storage Anwendung - PLVEV46 Beginn * * * *----------------------------------------------------------------* * * Wenn mit VSAM gearbeitet wird bitte Stern entfernen * * COPY CVSDEF. * *--->Programminterne Zwischenfelder * 01 W-Fehlertext-Gesamt Pic X(30) Value Space. 01 Fehlertext1 Pic X(30) Value Space. 01 Fehlertext2 Pic X(30) Value Space. 01 Fehlertext3 Pic X(30) Value Space. 01 Indizes. 05 Ind1 Pic S9(04) Binary Value Zero. 05 Ind2 Pic S9(04) Binary Value Zero. 05 Ind-Bau Pic S9(04) Binary Value Zero. 05 Ind-ZV Pic S9(04) Binary Value Zero. 01 Zwischenfelder. 05 W-Baulfdnr Pic 99 Value Zero. 05 W-Baulfdnr-Neu Pic 99 Value Zero. 05 W-Anz-Bausteine Pic 9(02). 05 W-Ordnungsbegriff. 10 W-BI Pic X(2) Value Space. 10 W-Punkt Pic X(1) Value '.'. 10 W-Nummer Pic X(8) Value Space. 10 W-OB-Rest Pic X(29) Value Space. 05 W-Ordnungsbegriff-Auswahl1. 10 W-Nr Pic X(2) Value Space. 10 W-OB-Rest-Erst1. 15 W-OB-Rest-Erst1-Loesch Pic X Value Space. 15 W-OB-Rest-Erst1-Leer Pic X(37) Value Space. 05 W-Ordnungsbegriff-Folge. 10 W-VNR-Folge Pic X(11) Value Space. 10 W-OB-Rest Pic X(29) Value Space. 05 W-VNR1. 10 W-BI Pic X(2) Value Space. 10 W-VNR-Rest Pic X(8) Value Space. 05 W-VNR2. 10 W-BI Pic X(2) Value Space. 10 Pic X(1) Value '.'. 10 W-VNR-Rest Pic X(8) Value Space. 05 W-Tab-Datum. 10 W-Tab-Datum-JH Pic 99 Value Zero. 10 W-Tab-Datum-JJ Pic 99 Value Zero. 10 W-Tab-Datum-MM Pic 99 Value Zero. 10 W-Tab-Datum-TT Pic 99 Value Zero. 05 W-Tab-Datum-Num Redefines W-Tab-Datum Pic 9(8). 05 W-Datum1. 10 W-Datum-JJJJ Pic X(4) Value Space. 10 W-Datum-MM Pic X(2) Value Space. 10 W-Datum-TT Pic X(2) Value Space. 05 W-Datum1-num Redefines W-Datum1 Pic 9(8). 05 W-Datum2. 10 W-Datum-TT Pic X(2) Value Space. 10 Pic X(1) Value '.'. 10 W-Datum-MM Pic X(2) Value Space. 10 Pic X(1) Value '.'. 10 W-Datum-JJJJ Pic X(4) Value Space. 05 W-Baustein-Neu Pic X(8) Value Space. 05 W-Baustein-Btrbfrend Pic X(8) Value Space. 05 W-Baustein-HV Pic X(8) Value Space. 05 W-Baulfdnr-HV Pic 9(2) Value Zero. 220420 05 W-Bausteingruppe Pic X(10) Value Space. 05 W-Text Pic X(40) Value Space. 05 W-Anzfaeproj-Alpha Pic X(3) Value Space. 05 W-Anzfaeproj Redefines W-Anzfaeproj-Alpha Pic 999. 05 W-Beitrag-Alpha Pic X(14) Value Space. 05 W-Beitrag Redefines W-Beitrag-Alpha Pic S9(12)V99. 05 W-Betrag-Alpha Pic X(17) Value Space. 05 W-Betrag Redefines W-Betrag-Alpha Pic S9(15)V99. 05 W-Proz-Alpha Pic X(3) Value Space. 05 W-Proz Redefines W-Proz-Alpha Pic 999. 05 W-Proz-ZWP-Alpha Pic X(5) Value Space. 05 W-Proz-ZWP Redefines W-Proz-ZWP-Alpha Pic 999V99. 05 W-Ausloesereignis Pic X(3) Value Space. 05 W-Bart-VP-Muss Pic X(4) Value Space. 05 W-Ausloesereignis-Muss Pic X(3) Value Space. 05 W-Leseart Pic X Value Space. 01 W-VP-Ausl-Ausw-Muss. Copy CLVEVPAM. 01 W-Tab-LVE-EB-neu. 03 W-Tab-LVE-EB-neu-Ende Pic S9(04) Binary. 88 BDV-LVE-EB-neu-Ende-Ok Value Is 0 Thru 30. 03 W-LVE-EB-neu Occurs 30 Times Indexed By W-Ind-EB. COPY CLVELB. 01 Konstanten. 05 K-TLVEPLAU Pic X(8) Value 'TLVEPLAU'. 05 K-Max-Feld-Anz Pic 9(2) Value 5. 05 K-Max-Riart Pic 9(1) Value 5. 05 W-Bfr-Text Pic X(40) Value 'Beitragsbefreiung für'. 220420 05 K-Bausteingruppe-TZV Pic X(10) Value 'TZV-ZU-INV'. 05 Klein-Schr Pic X(30) Value 'abcdefghijklmnopqrstuvwxyzäöü'. 05 Gross-Schr Pic X(30) Value 'ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜ'. Copy CLVEANZ. Copy CLVEFLD. * *--->Bedingungsvariablen * 01 Bedingungsvariablen. 05 BDV-Eingabe-Schalter Pic X Value 'N'. 88 BDV-Eingabe Value 'J'. 88 BDV-keine-Eingabe Value 'N'. 05 BDV-Gefunden Pic X Value ' '. 88 BDV-Gefunden-Ja Value ' '. 88 BDV-Gefunden-Nein Value 'N'. 05 BDV-EB Pic X Value ' '. 88 BDV-EB-Ja Value ' '. 88 BDV-EB-Nein Value 'N'. 05 BDV-EB-VP Pic X Value ' '. 88 BDV-EB-VP-Ja Value ' '. 88 BDV-EB-VP-Nein Value 'N'. 05 BDV-EB-Erw Pic X Value ' '. 88 BDV-EB-Erw-Ja Value ' '. 88 BDV-EB-Erw-Nein Value 'N'. 05 BDV-E-VP Pic X Value ' '. 88 BDV-E-VP-Ja Value ' '. 88 BDV-E-VP-Nein Value 'N'. 05 BDV-E-VP-Risiko Pic X Value ' '. 88 BDV-E-VP-Risiko-Ja Value ' '. 88 BDV-E-VP-Risiko-Nein Value 'N'. 05 BDV-Aen Pic X Value 'N'. 88 BDV-Aen-Ja Value ' '. 88 BDV-Aen-Nein Value 'N'. 05 BDV-Einzel Pic X Value 'N'. 88 BDV-Einzel-Ja Value ' '. 88 BDV-Einzel-Nein Value 'N'. 05 BDV-Gesamt Pic X Value 'N'. 88 BDV-Gesamt-Ja Value ' '. 88 BDV-Gesamt-Nein Value 'N'. 05 BDV-ZWP-Upd Pic X Value 'N'. 88 BDV-ZWP-Upd-Ja Value ' '. 88 BDV-ZWP-Upd-Nein Value 'N'. 05 BDV-Ris-Upd Pic X Value 'N'. 88 BDV-Ris-Upd-Ja Value ' '. 88 BDV-Ris-Upd-Nein Value 'N'. 05 Bdv-Zusver Pic X Value 'N'. 88 Bdv-Zusver-ja Value Space. 88 Bdv-Zusver-nein Value 'N'. 05 Schalter-ZWP-Erlaubt Pic X Value Space. 88 Bdv-ZWP-Erlaubt-ja Value 'J'. 88 Bdv-ZWP-Erlaubt-nein Value 'N'. 05 Schalter-TG-Std-erlaubt Pic X Value 'N'. 88 BDV-TG-Std-erlaubt-ja Value 'J'. 88 BDV-TG-Std-erlaubt-nein Value 'N'. 05 Bdv-Personendaten Pic X Value 'N'. 88 Bdv-Personendaten-ja Value Space. 88 Bdv-Personendaten-nein Value 'N'. 05 Bdv-Verb-Beitrag-Vorb Pic X Value 'N'. 88 Bdv-Verb-Beitrag-Vorb-Ja Value 'J'. 88 Bdv-Verb-Beitrag-Vorb-Nein Value 'N'. 05 Bdv-Verb-Beitrag-neu Pic X Value 'N'. 88 Bdv-Verb-Beitrag-neu-Ja Value 'J'. 88 Bdv-Verb-Beitrag-neu-Nein Value 'N'. 05 Bdv-Erste-Eingabe Pic X Value 'N'. 88 Bdv-Erste-Eingabe-Ja Value 'J'. 88 Bdv-Erste-Eingabe-Nein Value 'N'. 05 Bdv-Ueberrisiko-gleich Pic X Value 'N'. 88 Bdv-Ueberrisiko-gleich-Ja Value 'J'. 88 Bdv-Ueberrisiko-gleich-Nein Value 'N'. / * / *---------------------------------------------------------------* * Übergabebereich für Modul zum Lesen von Tabelle TLVEIBAU * *---------------------------------------------------------------* 01 Uebergabe-PLVET15. Copy CLVET15. / *---------------------------------------------------------------* * Übergabebereich für Modul zum Lesen von Tabelle TLVEPLAU * *---------------------------------------------------------------* 01 Uebergabe-PLVET18. Copy CLVET18. 01 Uebergabe-PLVET73. Copy CLVET73. / / * *--->Übergabebereich für Ermitteln Ausloesereignis * 01 Uebergabe-PLVDQI. Copy CLVD4QI. / * *--->Übergabebereich für Lesen Relation BAUSTEIN * 01 Uebergabe-PLVDRY. Copy CLVD4RY. / * *--->Übergabebereich für Zwischenprogramm Plausi E(Rest) * 01 Uebergabe-PLVEMP1. Copy CLVEMO8. / / * *--->Übergabebereich für Plausimodul E-ZWP * 01 Uebergabe-PLVEM02. Copy CLVEM02. / * *--->Übergabebereich für Plausimodul EB * 01 Uebergabe-PLVEM06. Copy CLVEM06. / * *--->Übergabebereich für Plausimodul PLVEM07 * 01 Uebergabe-PLVEM07. Copy CLVEM07. / * *--->Übergabebereich für Ermitteln VP's mit Risikodaten * 01 Uebergabe-PLVEM09. Copy CLVEM09. / * *--->Übergabebereich Aufbau Tabelle Auslöseereignisse pro VP * 01 Uebergabe-PLVEM17. Copy CLVEM17 Replacing Ind-EB By M17-Ind-EB Ind-EBVP By M17-Ind-EBVP Ind-Ausl By M17-Ind-Ausl Ind-Ris By M17-Ind-Ris. / * *--->Übergabebereich für PLVEMT5: * ermittelt HV-Baustein * 01 Uebergabe-PLVEMT5. Copy CLVEMT5. / * *--->Übergabebereich für Gesamtplausimodul EB * 01 Uebergabe-PLVEM42. Copy CLVEM42. / * *--->Übergabebereich für Gesamtplausimodul EB-VP * 01 Uebergabe-PLVEM43. Copy CLVEM43. / * *--->Übergabebereich für Gesamtplausimodul EBP * 01 Uebergabe-PLVEM44. Copy CLVEM44. / * *--->Übergabebereich für PLVEM54 (Löschen bausteinabhängige * Relationen) * 01 Uebergabe-PLVEM54. Copy CLVEM54. / * *--->Übergabebereich für PLVEM62 (Lesen Grundbetragsverhältnisse * zur HV gemäß Leistungsbez) * 01 Uebergabe-PLVEM62. Copy CLVEM62. / * *--->Übergabebereich zum Prüfen Grundbetragsverhältnisse * 01 Uebergabe-PLVEM67. Copy CLVEM67. * *--->Vorbelegen Überrisiko * 01 Uebergabe-PLVEM6D. Copy CLVEM6D Replacing Ind-EB By M6D-Ind-EB Ind-EB-VP By M6D-Ind-EB-VP Ind-E-VP-PM By M6D-Ind-E-VP-PM. *----------------------------------------------------------------* * Übergabebereich für PLVET51: * * Lesen TLVEBHVU - währungsunabhängige Attribute zur HV * *----------------------------------------------------------------* 01 Uebergabe-PLVET63. COPY CLVET63. *----------------------------------------------------------------* * Dynamische Programmnamen * *----------------------------------------------------------------* 01 Dynamische-Programm-Namen. 05 PLVDRY-Dynamisch Pic X(08) Value 'PLVD47Y'. 05 PLVEME6-Dynamisch Pic X(08) Value 'PLVEME6'. 05 PLVDQI-dynamisch Pic X(08) Value 'PLVD46I'. 05 PLVEME7-Dynamisch Pic X(08) Value 'PLVEME7'. 05 PLVEM07-Dynamisch Pic X(08) Value 'PLVEM07 '. 05 PLVEM09-dynamisch Pic X(08) Value 'PLVEM09'. 05 PLVEMT5-Dynamisch Pic X(08) Value 'PLVEMT5 '. 05 PLVEM17-dynamisch Pic X(08) Value 'PLVEM17'. 05 PLVEM42-dynamisch Pic X(08) Value 'PLVEM42'. 05 PLVEM43-Dynamisch Pic X(08) Value 'PLVEM43 '. 05 PLVEM44-Dynamisch Pic X(08) Value 'PLVEM44 '. 05 PLVEM54-dynamisch Pic X(08) Value 'PLVEM54'. 05 PLVEM62-dynamisch Pic X(08) Value 'PLVEM62'. 05 PLVEM67-dynamisch Pic X(08) Value 'PLVEM67'. 05 PLVEM6D-dynamisch Pic X(08) Value 'PLVEM6D'. 05 PLVET15-Dynamisch Pic X(08) Value 'PLVET15'. 05 PLVET18-Dynamisch Pic X(08) Value 'PLVET18'. 05 PLVET63-Dynamisch Pic X(08) Value 'PLVET63 '. 05 PLVET73-Dynamisch Pic X(08) Value 'PLVET73 '. 05 PLVEMP1-Dynamisch Pic X(08) Value 'PLVEMP1 '. 05 PLVEZL5-Dynamisch Pic X(08) Value 'PLVEZL5 '. / * *--->Datenbereiche für MDB * 01 LVE-VNR-Neu. Copy CLVELNR. 01 LVE-E-Fachgebiet. Copy CLVELFG. 01 LVE-E-Neu. Copy CLVEL. 01 LVE-E-Eingabe-Neu. Copy CLVELE. 01 LVE-E-Math-Neu. Copy CLVELM. 01 LVE-Sonvergart-Neu. Copy CLVELSON. / 01 LVE-E-ZWP-Neu. Copy CLVELZWP. / 01 LVE-E-VP-Neu. Copy CLVELVP. / 01 LVE-E-VP-Risiko. Copy CLVELVR. / 01 LVE-E-VP-Risiko-Neu. Copy CLVELVR. / 01 LVE-VP-Bfr-Neu. Copy CLVELVPB. / 01 LVE-EB-Neu. Copy CLVELB. / 01 LVE-EBK-Grbverh-neu. Copy CLVELBKG. / 01 LVE-EB-VP-Neu. Copy CLVELBVP. / *--> In CLVEINDP sind die Indices binär definiert; Programme, die * mit diesem Programm kommunizieren, entsprechend angepasst! 01 W-Ind-Parameter. Copy CLVEINDP Replacing Ind-Alt By W-Ind-alt Ind-neu By W-Ind-neu. 01 W-Ind-Parameter-Bfr. Copy CLVEINDP Replacing Ind-Alt By W-Ind-Bfr-alt Ind-neu By W-Ind-Bfr-neu. / 01 LVE-EB-Erw-Neu. Copy CLVELBW. / 01 LVE-EB-Alt-Neu. Copy CLVETB. 01 LVE-E-VP-PM-Neu. Copy CLVEZL5 Replacing Ind-Rel By Ind-E-VP-PM. 01 Ueber-CLVEMDBZ. Copy CLVEMDBZ. 01 Baustein-Bfr-Tabelle. Copy CLVETBFR. 01 Ueberschriften-Zeile. Copy CLVEMUB. * *----------------------------------------------------------------* * Working-Storage Anwendung - PLVEV46 Ende * *----------------------------------------------------------------* / LINKAGE SECTION. * COPY CMDBSYSV. / LSTEDT* nicht mehr benötigt * LSTEDT* COPY CMDBMAIN. / *----------------------------------------------------------------* * Linkage Section Anwendung - PLVEV46 Beginn * *----------------------------------------------------------------* * * wenn mit ADABAS gearbeitet werden soll bitte Stern entfernen * COPY CADATWA. * *----------------------------------------------------------------* * Linkage Section Anwendung - PLVEV46 Ende * *----------------------------------------------------------------* / PROCEDURE DIVISION. * *----------------------------------------------------------------* * Programm-Steuerung * *----------------------------------------------------------------* * Steuerung. Perform Init-From-Master Evaluate True When From-Master Set From-Init To True Perform Erst-Verarbeitung When From-Receive Set From-User To True Perform Folge-Verarbeitung End-Evaluate Perform Return-To-Master Continue. / *----------------------------------------------------------------* * * * Steuerung Erst-Verarbeitung Anwendung PLVEV46 * * * *----------------------------------------------------------------* Erst-Verarbeitung. Perform Initialisieren-Erst If Meldung Then Continue Else Perform Lesen-Ordnungsbegriff-Erst End-If If Meldung Then Continue Else Perform Fuellen-Maske-E-VP-Neu End-If If Meldung Then Continue Else Perform Zwischenspeichern-Bausteine End-If If Meldung Then Continue Else Perform Ermitteln-HV-Baustein End-If If Meldung Then Continue Else Perform Copy-MDB End-If If Meldung or BDV-EB-Nein Then Continue Else EXEC MDB VGET VNAME ('LVE-EB-TABELLE') VDATA (LVE-EB-TABELLE) VDLEN (LENGTH OF LVE-EB-TABELLE) END-EXEC Evaluate true When Var-Not-Found Perform Fuellen-Maske-EB When MDBOK Perform Fuellen-Maske-EB-Tabelle When other Continue End-Evaluate End-If If BDV-EB-VP-Nein Then Continue Else Perform Fuellen-Maske-EB-VP-Neu Until BDV-EB-VP-Nein End-If Evaluate true When IBFRTXT-I = Space Move DFHBMPRO to IBFRVP-A Move DFHDFHI to IBFRVP-H Move Space to IBFRVP-I When BDV-E-VP-Nein Continue When IBFRVP-I = Space Perform Vorbelegen-VP-Bfr When other Continue End-Evaluate If Meldung Then Continue Else If IZWP-I = Space Or Low-Value Then Perform Vorbelegen-ZWP-Daten Else Continue End-If End-If If Meldung Then Continue Else If IVB-I = Space Or Low-Value Then If Bdv-Verb-Beitrag-neu-Ja Then If Bdv-Verb-Beitrag-Vorb-Ja Or Bdv-Fachgebiet-DBM Of LVE-E-Fachgebiet And Bdv-Erste-Eingabe-Ja Then Perform Vorbelegen-Verb-Beitrag If Meldung Then Continue Else Perform Aktualisieren-Schalter End-If Else If T-Status-Beitrag-Faell-Prod of LVE-E-Neu = 'G' Then Move 'N' to IVB-I Else Move 'J' to IVB-I End-If End-If Else If T-Status-Beitrag-Faell-Prod of LVE-E-Neu = 'G' Then Move 'N' to IVB-I Else Move 'J' to IVB-I End-If End-If Else Continue End-If End-If If Meldung Then Continue Else Perform Auswahl-Ueri-bei-BG-Relevanz End-If If Meldung Then Continue Else Perform Lesen-Verh-zur-HV End-If If Meldung Then Continue Else Perform Pruefen-Verh End-If * Perform Fuellen-Maske-Text If Meldung Then Continue Else Perform Update-Ordnungsbegriff-Erst End-If If Meldung Then Perform Update-Sysfnr Else If BDV-Fachgebiet-DBM Of LVE-E-Fachgebiet Or BDV-Fachgebiet-LVP Of LVE-E-Fachgebiet Then Continue Else Move Cursor To IPFAE-L End-If End-If Continue. / *----------------------------------------------------------------* * * * Steuerung Folge-Verarbeitung Anwendung PLVEV46 * * * *----------------------------------------------------------------* Folge-Verarbeitung. Perform Initialisieren-Folge If Meldung Then Continue Else Perform Lesen-Ordnungsbegriff-Folge End-If If Meldung Then Continue Else Perform Update-Ordnungsbegriff-alt End-If If Meldung Then Continue Else Perform Bearbeiten-Tabelle End-If If BDV-EB-VP-Nein Then Continue Else Perform Fuellen-Maske-EB-VP-Neu Until BDV-EB-VP-Nein End-If Evaluate true When IBFRTXT-I = Space Move DFHBMPRO to IBFRVP-A Move DFHDFHI to IBFRVP-H Move Space to IBFRVP-I When BDV-E-VP-Nein Continue When IBFRVP-I = Space Perform Vorbelegen-VP-Bfr When other Continue End-Evaluate If Meldung Then Continue Else Perform Delete-MDB-EB-abhaengig End-If If Meldung Then Continue Else Perform Varying Ind1 from 1 by 1 Until Ind1 > 8 or Meldung If T-Baustein of LVE-EB-Tabelle (Ind1) not = Space and T-Baulfdnr of LVE-EB-Tabelle (Ind1) = Zero Then Perform Ergaenzen-Tabelle Else Continue End-If If T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind1) not = Space and T-Baulfdnr-Btrbfrend of LVE-EB-Tabelle (Ind1) = Zero Then Perform Ergaenzen-Tabelle-Btrbfrend Else Continue End-If End-Perform If IVB-L = Zero Then Continue Else Perform Varying Ind1 from 1 by 1 Until Ind1 > 8 or Meldung Move Space to K-Zeile-Aufgerufen of LVE-EB-Tabelle (Ind1) End-Perform End-If Perform Varying Ind1 from 1 by 1 Until Ind1 > 8 or Meldung or IBFRVP-L = Zero If T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind1) not = Space Then Move Space to K-Zeile-Aufgerufen of LVE-EB-Tabelle (Ind1) Else Continue End-If End-Perform Perform Varying Ind1 from 1 by 1 Until Ind1 > 8 or Meldung If IBBEG-L (Ind1) = Zero Then Continue Else Move Space to K-Zeile-Aufgerufen of LVE-EB-Tabelle (Ind1) End-If End-Perform Perform Varying Ind1 from 2 by 1 Until Ind1 > 8 or Meldung or IBAU-I (Ind1) = Space If IBBEG-I (Ind1) = Space Then Move IBBEG-I (1) to IBBEG-I (Ind1) Else Continue End-If End-Perform If Meldung Then Continue Else EXEC MDB VUPD VNAME ('LVE-EB-TABELLE') VDATA (LVE-EB-TABELLE) VDLEN (LENGTH OF LVE-EB-TABELLE) END-EXEC Perform Check-Fehler End-If End-If * Perform Fuellen-Maske-Text If Meldung Then Continue Else Perform Plausi-Allg End-If If Meldung Then Continue Else Perform Update-MDB-E End-If If Meldung Then Continue Else Perform Plausi-Baustein Varying Ind1 from 1 by 1 Until Ind1 > 8 or IBAU-I (Ind1) = Space or Meldung End-If Perform Varying Ind1 from 1 by 1 Until Ind1 > 8 or Meldung If T-Baustein-Btrbfrend (Ind1) not = Space Then Perform Plausi-Baustein-Bfr Else Continue End-If End-Perform If Meldung Or IPERS-I = 'J' Then Continue Else Perform Varying Ind1 from 1 by 1 Until Ind1 > 8 or Meldung If T-Baustein-Btrbfrend (Ind1) not = Space Then Perform Plausi-EB-VP-Bfr Else Continue End-If End-Perform End-If If Meldung Then Continue Else Perform Vorbelegen-Zuschlag End-If If Meldung Then Continue Else Perform Update-MDB End-If If Meldung Then Continue Else Perform Zwischenspeichern-Bausteine End-If If Meldung Then Continue Else Perform Auswahl-Ueri-bei-BG-Relevanz End-If If Meldung Then Continue Else Perform Plausi-Baustein-Erw Varying Ind1 from 1 by 1 Until Ind1 > 8 or IBAU-I (Ind1) = Space or Meldung End-If If Meldung Then Continue Else Perform Pruefen-ob-Eingabe End-If * If Meldung or BDV-Eingabe If Meldung Then Continue Else Perform Auswahl End-If Evaluate true When Meldung Continue When Ret-Enter and BDV-Aen-Ja Perform Update-Ordnungsbegriff-Folge When Ret-Enter If IPERS-I = 'J' Then Continue Else Perform Plausi-Baustein-Gesamt End-If If Meldung Or IPERS-I = 'J' Then Continue Else Perform Gesamtplausi-EBP Varying Ind1 from 1 by 1 Until Ind1 > 8 or IBAU-I (Ind1) = Space or Meldung End-If If Meldung Or IPERS-I = 'J' Then Continue Else Perform Gesamtplausi-EB-VP Varying Ind1 from 1 by 1 Until Ind1 > 8 or IBAU-I (Ind1) = Space or Meldung End-If If Meldung Or IPERS-I = 'J' Then Continue Else Perform Varying Ind1 from 1 by 1 Until Ind1 > 8 or Meldung If T-Baustein-Btrbfrend (Ind1) not = Space Then Perform Plausi-Ges-EBP-Bfr Else Continue End-If End-Perform End-If If Meldung Or IPERS-I = 'J' Then Continue Else Perform Varying Ind1 from 1 by 1 Until Ind1 > 8 or Meldung If T-Baustein-Btrbfrend (Ind1) not = Space Then Perform Plausi-Ges-EB-VP-Bfr Else Continue End-If End-Perform End-If If Meldung or BDV-Eingabe Then Continue Else Perform Update-Ordnungsbegriff-Folge End-If When other Continue End-Evaluate If Meldung Then Perform Update-Sysfnr Else Continue End-If Continue. / * *----------------------------------------------------------------* * Init From Master * *----------------------------------------------------------------* * Init-From-Master. COPY CDIAINI1. * Wenn mit ADABAS gearbeitet werden soll bitte Stern entfernen * EXEC CICS ADDRESS TWA (ADDRESS OF TWA) * END-EXEC Continue. / *----------------------------------------------------------------* * Fehler-Ausgang * *----------------------------------------------------------------* LSTEDT* neues Errorhandling * LSTEDT* COPY CDIAERR. Continue. / *----------------------------------------------------------------* * Return to Master * *----------------------------------------------------------------* * COPY CDIARET1. Continue. / *----------------------------------------------------------------* * Getmain for MDB is full * *----------------------------------------------------------------* * COPY CMDBFULL. Continue. / *----------------------------------------------------------------* * Aufruf des VSAM-Zugriff-Moduls * *----------------------------------------------------------------* * * wenn mit VSAM gearbeitet wird bitte Stern entfernen * * COPY CVSCALL. Continue. / *----------------------------------------------------------------* * Unterroutinen Anwendung PLVEV46 * *----------------------------------------------------------------* * *----------------------------------------------------------------* * Initialisieren für Erst-Verarbeitung * *----------------------------------------------------------------* Initialisieren-Erst. Initialize Baustein-Bfr-Tabelle Set BDV-EB-VP-Ja to true Set BDV-EB-Erw-Ja to true Set BDV-E-VP-Ja to true Move Space to IBFRTXT-I Move Space to IBFRVP-I Perform Varying Ind1 from 1 by 1 Until Ind1 > 8 Inspect IBAU-I (Ind1) Converting Low-Value to Space Inspect IBNR-I (Ind1) Converting Low-Value to Space Inspect IBFR-I (Ind1) Converting Low-Value to Space Inspect IOFUM-I (Ind1) Converting Low-Value to Space End-Perform If Meldung Then Continue Else EXEC MDB VPOS VNAME ('LVE-EB-VP-NEU') VPOS (1) END-EXEC If Var-Not-Found or Var-Top-or-Bot Then Set BDV-EB-VP-Nein to true Else Perform Check-Fehler End-If End-If If Meldung Then Continue Else EXEC MDB VPOS VNAME ('LVE-EB-ERW-NEU') VPOS (1) END-EXEC If Var-Not-Found or Var-Top-or-Bot Then Set BDV-EB-Erw-Nein to true Else Perform Check-Fehler End-If End-If If Meldung Then Continue Else EXEC MDB VPOS VNAME ('LVE-E-VP-NEU') VPOS (1) END-EXEC If Var-Not-Found or Var-Top-or-Bot Then Set BDV-E-VP-Nein to true Else Perform Check-Fehler End-If End-If If Meldung Then Continue Else EXEC MDB VGET VNAME ('BDV-RIS-UPD') VDATA (BDV-RIS-UPD) VDLEN (LENGTH OF BDV-RIS-UPD) END-EXEC Evaluate true When Var-Not-Found Continue When MDBOK If BDV-Ris-Upd-Ja Then Move 'J' to IRISJ-I Else Continue End-If When other Continue End-Evaluate End-If If Meldung Then Continue Else EXEC MDB VGET VNAME ('FACHGEBIET') VDATA (LVE-E-Fachgebiet) VDLEN (LENGTH OF LVE-E-FACHGEBIET) END-EXEC Perform Check-Fehler End-If If Meldung Then Continue Else EXEC MDB VGET VNAME ('UEBERSCHRIFT') VDATA (LVE-CLVEMUB) VDLEN (LENGTH OF LVE-CLVEMUB) END-EXEC If Var-Not-Found Then Initialize LVE-CLVEMUB Else Perform Check-Fehler End-If End-If If Meldung Then Continue Else Move I-Ueberschrift (2) to IUEB-I End-If If Meldung Then Continue Else Perform Ermitteln-Leseart End-If If Meldung Then Continue Else Initialize LVE-VP-Bfr-Neu EXEC MDB VGET VNAME ('LVE-VP-BFR-NEU') VDATA (LVE-VP-BFR-NEU) VDLEN (LENGTH OF LVE-VP-BFR-NEU) END-EXEC If Var-Not-Found Then Continue Else Perform Check-Fehler End-If If Meldung Then Continue Else Move T-BART-VP of LVE-VP-Bfr-Neu to IBFRVP-I End-If End-If If Meldung Then Continue Else EXEC MDB VGET VNAME ('BDV-VERB-BEITRAG-VORB') VDATA (BDV-VERB-BEITRAG-VORB) VDLEN (LENGTH OF BDV-VERB-BEITRAG-VORB) END-EXEC Perform Check-Fehler End-If If Meldung Then Continue Else EXEC MDB VGET VNAME ('BDV-VERB-BEITRAG-NEU') VDATA (BDV-VERB-BEITRAG-NEU) VDLEN (LENGTH OF BDV-VERB-BEITRAG-NEU) END-EXEC If Var-Not-Found Then Set Bdv-Verb-Beitrag-Neu-Ja To True Else Perform Check-Fehler End-If End-If If Meldung Then Continue Else Set Bdv-Erste-Eingabe-Ja To True EXEC MDB VPOS VNAME ('LVE-E-EINGABE-NEU') VPOS (1) END-EXEC If Var-Not-Found or Var-Top-or-Bot Then Continue Else Perform Check-Fehler If Meldung Then Continue Else EXEC MDB VGET VNAME ('LVE-E-EINGABE-NEU') VDATA (LVE-E-EINGABE-NEU) VDLEN (LENGTH OF LVE-E-EINGABE-NEU) END-EXEC Perform Check-Fehler End-If If Meldung Then Continue Else EXEC MDB VNEXT VNAME ('LVE-E-EINGABE-NEU') END-EXEC If Var-Top-or-Bot Then Continue Else Set Bdv-Erste-Eingabe-Nein To True Perform Check-Fehler End-If End-If End-If End-If Continue. / *----------------------------------------------------------------* * Ermitteln der Leseart für Produktzugriffe * *----------------------------------------------------------------* Ermitteln-Leseart. Move Datum-TT to W-Tab-Datum-TT Move Datum-MM to W-Tab-Datum-MM Move Datum-JJ to W-Tab-Datum-JJ Move DateJH to W-Tab-Datum-JH EXEC MDB VGET VNAME ('LVE-E-MATH-NEU') VDATA (LVE-E-MATH-NEU) VDLEN (LENGTH OF LVE-E-MATH-NEU) END-EXEC Perform Check-Fehler If Meldung Then Continue Else Move K-Leseart of LVE-E-Math-Neu to W-Leseart End-If Continue. / *----------------------------------------------------------------* * Lesen Ordnungsbegriff aus MDB * *----------------------------------------------------------------* Lesen-Ordnungsbegriff-Erst. EXEC MDB VGET VNAME (SYSID4) VDATA (W-Ordnungsbegriff) VDLEN (LENGTH OF W-ORDNUNGSBEGRIFF) END-EXEC Perform Check-Fehler If Meldung Then Continue Else EXEC MDB VGET VNAME ('LVE-E-NEU') VDATA (LVE-E-NEU) VDLEN (LENGTH OF LVE-E-NEU) END-EXEC Perform Check-Fehler End-If If Meldung Then Continue Else Move T-VNR of LVE-E-NEU to W-VNR1 Move Corr W-VNR1 to W-VNR2 Move W-VNR2 to VNR-I Move T-Waehrung of LVE-E-Neu to IWAEHR-I If R-Beitrag-Faell-Prod of LVE-E-Neu = Zero Then Move Space to IPFAE-I Else Move R-Beitrag-Faell-Prod of LVE-E-NEU to IPFAE-P End-If If D-Vers-Beginn of LVE-E-NEU = Zero Then Continue Else Move D-Vers-Beginn of LVE-E-NEU to W-Datum1-num Move Corr W-Datum1 To W-Datum2 Move W-Datum2 to IVBEG-I End-If End-If If Meldung Then Continue Else EXEC MDB VGET VNAME ('LVE-VNR-NEU') VDATA (LVE-VNR-NEU) VDLEN (LENGTH OF LVE-VNR-NEU) END-EXEC Perform Check-Fehler End-If If Meldung Then Continue Else EXEC MDB VGET VNAME ('BDV-ZWP-UPD') VDATA (BDV-ZWP-UPD) VDLEN (LENGTH OF BDV-ZWP-UPD) END-EXEC If not MDBOK or BDV-ZWP-Upd-Nein Then Continue Else Move 'J' to IZWPERG-I End-If End-If If Meldung Then Continue Else Move T-Name-VN of LVE-VNR-Neu to VNNAM1-I If T-VNR of LVE-VNR-Neu = W-VNR1 Then Continue Else Move 6078 to Fehler End-If End-If If Meldung Then Continue Else EXEC MDB VGET VNAME ('LVE-E-ZWP-NEU') VDATA (LVE-E-ZWP-NEU) VDLEN (LENGTH OF LVE-E-ZWP-NEU) END-EXEC Perform Check-Fehler End-If If Meldung Then Continue Else Move K-ZWP of LVE-E-ZWP-Neu to IZWP-I Move T-ZWPArt of LVE-E-ZWP-Neu to IZWPA-I If R-Prozind-ZWP of LVE-E-ZWP-Neu = Zero Then Continue Else Move R-Prozind-ZWP of LVE-E-ZWP-Neu to IZWPP-P End-If If K-ZWP of LVE-E-ZWP-Neu not = Space Then Perform Pruefen-weitere-ZWP-Daten Else Continue End-If End-If Continue. / / *---------------------------------------------------------------* * Prüfen, ob weitere ZWP-Daten vorhanden sind * *---------------------------------------------------------------* Pruefen-weitere-ZWP-Daten. If ( K-ZWP of LVE-E-ZWP-Neu = 'N' and R-Beitrag-Anf-ZWP of LVE-E-ZWP-Neu = Zero and R-Widerrzaehl-ZWP of LVE-E-ZWP-Neu = Zero and T-Rhythmus-ZWP of LVE-E-ZWP-Neu = Zero And K-Faehig-ZWP of LVE-E-ZWP-Neu = 'J' And R-Beitrag-Hoechst-ZWP of LVE-E-ZWP-Neu = Zero) or ( K-ZWP of LVE-E-ZWP-Neu = 'J' and R-Beitrag-Anf-ZWP of LVE-E-ZWP-Neu = Zero and R-Widerrzaehl-ZWP of LVE-E-ZWP-Neu = Zero and T-Rhythmus-ZWP of LVE-E-ZWP-Neu = '01' And K-Faehig-ZWP of LVE-E-ZWP-Neu = 'J' And R-Beitrag-Hoechst-ZWP of LVE-E-ZWP-Neu = Zero) Then Continue Else Move 'J' to IZWPERG-I Move DFHBMPRO to IZWPERG-A Move DFHDFHI to IZWPERG-H End-If Continue. / *----------------------------------------------------------------* * Füllen Felder für versicherte Person bzw. ob Risikodaten * * vorhanden * *----------------------------------------------------------------* Fuellen-Maske-E-VP-Neu. Initialize Eingabe-Bereich Of LVE-CLVEM09 Move T-VNR of LVE-E-Neu to T-VNR of LVE-CLVEM09 Perform Aufruf-PLVEM09 If Fehlernummer of LVE-CLVEM09 = Zero Then Perform Varying Ind1 from 1 by 1 Until Ind1 > K-Anz-LVE-E-VP Or T-Bart-VP of LVE-CLVEM09 (Ind1) = Space If K-Risiko of LVE-CLVEM09 (Ind1) = Space Then Continue Else Move T-BART-VP of LVE-CLVEM09 (Ind1) to IRISI-I (Ind1) Move 'J' to IRISJ-I Move DFHBMPRO to IRISJ-A Move DFHDFHI to IRISJ-H End-If End-Perform Else Move Fehlernummer of LVE-CLVEM09 to Fehler Move Cursor to IRISI-L (1) Move DFHREVRS to IRISI-H (1) End-If Continue. / *---------------------------------------------------------------* * bei BG-relevanten Bausteinen muss Maske mit Überrisiken * * ausgewählt werden * *---------------------------------------------------------------* Auswahl-Ueri-bei-BG-Relevanz. Perform Varying Ind-Bau From 1 By 1 Until Meldung Or IRISJ-I = 'J' Or Ind-Bau > W-Tab-LVE-EB-neu-Ende Perform Pruefen-BG-relevant End-Perform Continue. / *---------------------------------------------------------------* * Prüfen, ob Baustein BG-relevant * *---------------------------------------------------------------* Pruefen-BG-relevant. Move T-Baustein Of W-LVE-EB-neu (Ind-Bau) To LVET15-SCHL-Baustein Move 'BERUFSKLASSE' To LVET15-SCHL-Art-Gruppe Move W-Tab-Datum-num To LVET15-TAB-Datum Set LVET15-BDV-FIND To True Perform Aufruf-PLVET15 Evaluate True When LVET15-BDV-Kein-Fehler Initialize LVET18-EINGABE-BEREICH Move LVET15-T-Gruppe-Baustein (1) To LVET18-SCHL-Feldname Move 'LVE-RELEVANT' To LVET18-SCHL-Inhalt Move W-Tab-Datum-num To LVET18-TAB-Datum Set LVET18-BDV-FIND To True Perform Aufruf-PLVET18 Evaluate True When LVET18-BDV-Kein-Fehler Perform Ermittle-Generation-Baustein When LVET18-BDV-Kein-TAB-Eintrag Continue When Other Move LVET18-Fehler To Fehler Move LVET18-Fehlertext To W-Fehlertext-Gesamt End-Evaluate When LVET15-Bdv-kein-Tab-Eintrag Continue When other Move LVET15-Fehler To Fehler Move LVET15-Fehlertext To W-Fehlertext-Gesamt End-Evaluate Continue. / *---------------------------------------------------------------* * Aufruf PLVET15: Zugriffsmodul für Tabelle TLVEIBAU * *---------------------------------------------------------------* Aufruf-PLVET15. Call PLVET15-Dynamisch Using DFHEIBLK Uebergabe-PLVET15 End-Call Continue. / *---------------------------------------------------------------* * Aufruf PLVET18: Zugriffsmodul für Tabelle TLVEPLAU * *---------------------------------------------------------------* Aufruf-PLVET18. Call PLVET18-Dynamisch Using DFHEIBLK Uebergabe-PLVET18 End-Call Continue. / *----------------------------------------------------------------* * Baustein-Generation ermitteln * *----------------------------------------------------------------* Ermittle-Generation-Baustein. Initialize LVET15-Eingabe-Bereich Set LVET15-BDV-Find To True Move T-Baustein In W-LVE-EB-neu (Ind-Bau) To LVET15-Schl-Baustein Move 'GENERATION' To LVET15-Schl-Art-Gruppe Move W-Tab-Datum-num To LVET15-Tab-Datum Perform Aufruf-PLVET15 Evaluate True When LVET15-BDV-KEIN-FEHLER Perform Pruefe-Generation-TLVEPLAU When LVET15-BDV-KEIN-TAB-EINTRAG Continue When Other Move LVET15-Fehler To Fehler Move LVET15-Fehlertext To W-Fehlertext-Gesamt End-Evaluate Continue. / *---------------------------------------------------------------* * Bausteingeneration aus TLVEPLAU prüfe * *---------------------------------------------------------------* Pruefe-Generation-TLVEPLAU. Initialize LVET18-Eingabe-Bereich Move 'GENERATION-JAHR' To LVET18-SCHL-Feldname Move LVET15-T-GRUPPE-BAUSTEIN (1) To LVET18-SCHL-Inhalt Move W-Tab-Datum-num To LVET18-TAB-Datum Set LVET18-BDV-FIND To True Perform Aufruf-PLVET18 If LVET18-BDV-Kein-Fehler Then If LVET18-T-BESCHREIBUNG (1) = 2006 Then Move 'J' To IRISJ-I Else Continue End-If Else Move LVET18-Fehler To Fehler Move LVET18-Fehlertext To W-Fehlertext-gesamt End-If Continue. / *----------------------------------------------------------------* * Kopieren bausteinabhängige Relationen in neue Schicht * *----------------------------------------------------------------* Copy-MDB. Perform Vpos-LVE-EB-neu If BDV-EB-Nein Then Continue Else EXEC MDB VCOPY VNAME ('LVE-EB-NEU') VNLEN (10) VID (' ') VILEN (0) VDATA (LVE-EB-NEU) VDLEN (LENGTH OF LVE-EB-NEU) END-EXEC Perform Check-Fehler End-If Continue. / *----------------------------------------------------------------* * Füllen der Maske mit Bausteindaten * *----------------------------------------------------------------* Fuellen-Maske-EB. Move 1 to Ind-ZV Perform Fuellen-Maske-EB-Neu Until BDV-EB-Nein or Ind-Bau > 8 or Meldung If Meldung Then Continue Else Perform Vpos-LVE-EB-neu End-If Perform Fuellen-Maske-EB-Bfr-Neu Until BDV-EB-Nein or Meldung If Meldung Then Continue Else Perform Vpos-LVE-EB-neu End-If Perform Fuellen-Maske-EB-Vor-Neu Until BDV-EB-Nein or Meldung If Meldung Then Continue Else Perform Vpos-LVE-EB-neu End-If Continue. / *----------------------------------------------------------------* * Füllen der Maske mit Bausteindaten * *----------------------------------------------------------------* Fuellen-Maske-EB-Neu. EXEC MDB VGET VNAME ('LVE-EB-NEU') VDATA (LVE-EB-NEU) VDLEN (LENGTH OF LVE-EB-NEU) END-EXEC Perform Check-Fehler If Meldung or T-Baubart of LVE-EB-Neu = 'BFR' Then Continue Else If T-Baustein of LVE-EB-Neu = W-Baustein-HV And T-Baulfdnr of LVE-EB-Neu = W-Baulfdnr-HV Then Move 1 To Ind1 Move DFHBMPRO to IBAU-A (Ind1) IBBEG-A (Ind1) Move DFHDFHI to IBAU-H (Ind1) IBBEG-H (Ind1) Else Add 1 To Ind-ZV Move Ind-ZV To Ind1 End-If Move Ind1 to NR-P (Ind1) Move T-Baustein of LVE-EB-Neu to IBAU-I (Ind1) Move T-Baulfdnr of LVE-EB-Neu to IBNR-I (Ind1) If D-Beg-Bau Of LVE-EB-neu = Zero Then Continue Else Move D-Beg-Bau of LVE-EB-Neu to W-Datum1 Move Corr W-Datum1 to W-Datum2 Move W-Datum2 to IBBEG-I (Ind1) End-If Move T-Baustein of LVE-EB-Neu to T-Baustein of LVE-EB-Tabelle (Ind1) Move T-Baulfdnr of LVE-EB-Neu to T-Baulfdnr of LVE-EB-Tabelle (Ind1) Move 'J' to K-Zeile-Aufgerufen of LVE-EB-Tabelle (Ind1) Add 1 to Ind1 End-If If Meldung Then Continue Else EXEC MDB VNEXT VNAME ('LVE-EB-NEU') END-EXEC Perform Check-Ende-MDB-EB-Neu End-If Continue. / *----------------------------------------------------------------* * Füllen der Maske mit Betragsbefreiungshinweisen * *----------------------------------------------------------------* Fuellen-Maske-EB-Bfr-Neu. EXEC MDB VGET VNAME ('LVE-EB-NEU') VDATA (LVE-EB-NEU) VDLEN (LENGTH OF LVE-EB-NEU) END-EXEC Perform Check-Fehler If Meldung or T-Baubart of LVE-EB-Neu not = 'BFR' Then Continue Else Perform Varying Ind1 from 1 by 1 Until Ind1 > 8 If T-Baustein-Bez of LVE-EB-Neu = IBAU-I (Ind1) and T-Baulfdnr-Bez of LVE-EB-Neu = IBNR-I (Ind1) Then 220420 Perform Pruefen-Bfr-Baustein 220420 If Meldung 220420 Then 220420 Continue 220420 Else Perform Ermitteln-Leistungsausl-Ereign 220420 End-If 220420 If Meldung 220420 Then 220420 Continue 220420 Else Move W-Ausloesereignis to IBFR-I (Ind1) Perform Unterscheidungsmerkmal Move W-Bfr-Text to IBFRTXT-I Move T-Baustein of LVE-EB-Neu to T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind1) Move T-Baulfdnr of LVE-EB-Neu to T-Baulfdnr-Btrbfrend of LVE-EB-Tabelle (Ind1) Move IBFR-I (Ind1) to T-Ausloesereignis of LVE-EB-Tabelle (Ind1) Move IOFUM-I (Ind1) To T-OFFUM of LVE-EB-Tabelle (Ind1) 220420 End-If Else Continue End-If End-Perform End-If If Meldung Then Continue Else EXEC MDB VNEXT VNAME ('LVE-EB-NEU') END-EXEC Perform Check-Ende-MDB-EB-Neu End-If Continue. / *----------------------------------------------------------------* * * *----------------------------------------------------------------* 220420 Pruefen-Bfr-Baustein. Move Space To W-Bausteingruppe Initialize LVET15-EINGABE-BEREICH Move T-Baustein Of LVE-EB-neu To LVET15-SCHL-Baustein Move 'STAT-UNTER' To LVET15-SCHL-Art-Gruppe Move W-Tab-Datum-num To LVET15-TAB-Datum Set LVET15-BDV-FIND To True Perform Aufruf-PLVET15 Evaluate True When LVET15-BDV-KEIN-FEHLER Move LVET15-T-GRUPPE-BAUSTEIN (1) To W-Bausteingruppe When LVET15-BDV-KEIN-TAB-EINTRAG Continue When Other Move LVET15-FEHLER To Fehler Move LVET15-Fehlertext To W-Fehlertext-Gesamt End-Evaluate Continue. / *----------------------------------------------------------------* * Ermitteln leistungsausloesendes Ereignis * *----------------------------------------------------------------* Ermitteln-Leistungsausl-Ereign. Initialize W-Ausloesereignis Move Low-Value to Uebergabe-PLVDQI Move T-Baustein of LVE-EB-Neu to LVDQI-Schl-Baustein of Uebergabe-PLVDQI Move '1' to LVDQI-Schl-Zustand of Uebergabe-PLVDQI Move 'J' to LVDQI-Einzel-Ereignis of Uebergabe-PLVDQI Move W-Leseart to LVDQI-Leseart of Uebergabe-PLVDQI Perform Aufruf-PLVDQI Evaluate true When LVDQI-Meldung Move LVDQI-Fehler to Fehler When LVDQI-Ausloesereignis (2) not = Low-Value 220420 And W-Bausteingruppe Not = K-Bausteingruppe-TZV * 6235: #1: LKOMPAUSLOES Zugriffsfehler Move 6235 to Fehler Move 'PLVEV46#' to W-Fehlertext-Gesamt Move Cursor to IBFR-L (Ind1) Move DFHREVRS to IBFR-H (Ind1) When other Move LVDQI-Ausloesereignis (1) to W-Ausloesereignis End-Evaluate Continue. / Unterscheidungsmerkmal. Perform Browse-PLVET73 If LVET73-BDV-KEIN-FEHLER Then If LVET73-TAB-ENDE = 1 Then Move LVET73-T-OFFEN-UMERKMAL (1) To IOFUM-I (Ind1) Else Set LVET73-IND To 1 Search LVET73-TAB-Zeile At End Move Spaces To IOFUM-I (Ind1) When LVET73-T-BFRDBAUSTEIN (LVET73-Ind) = T-Baustein of LVE-EB-Neu Move LVET73-T-OFFEN-UMERKMAL (LVET73-Ind) To IOFUM-I (Ind1) End-Search End-If Else Continue End-If Continue. / *----------------------------------------------------------------* * Füllen der Baustein-Bfr-Tabelle mit Vorgängerhinweisen * *----------------------------------------------------------------* Fuellen-Maske-EB-Vor-Neu. EXEC MDB VGET VNAME ('LVE-EB-NEU') VDATA (LVE-EB-NEU) VDLEN (LENGTH OF LVE-EB-NEU) END-EXEC Perform Check-Fehler If Meldung or T-Baustein-Vor of LVE-EB-Neu = Space Then Continue Else Perform Varying Ind1 from 1 by 1 Until Ind1 > 8 If T-Baustein of LVE-EB-Neu = T-Baustein of LVE-EB-Tabelle (Ind1) and T-Baulfdnr of LVE-EB-Neu = T-Baulfdnr of LVE-EB-Tabelle (Ind1) Then Move T-Baustein-Vor of LVE-EB-Neu to T-Baustein-Vor of LVE-EB-Tabelle (Ind1) Move T-Baulfdnr-Vor of LVE-EB-Neu to T-Baulfdnr-Vor of LVE-EB-Tabelle (Ind1) Else Continue End-If End-Perform Perform Varying Ind1 from 1 by 1 Until Ind1 > 8 If T-Baustein of LVE-EB-Neu = T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind1) and T-Baulfdnr of LVE-EB-Neu = T-Baulfdnr-Btrbfrend of LVE-EB-Tabelle (Ind1) Then Move T-Baustein-Vor of LVE-EB-Neu to T-Baustein-Btrbfrend-Vor of LVE-EB-Tabelle (Ind1) Move T-Baulfdnr-Vor of LVE-EB-Neu to T-Baulfdnr-Btrbfrend-Vor of LVE-EB-Tabelle (Ind1) Else Continue End-If End-Perform End-If If Meldung Then Continue Else EXEC MDB VNEXT VNAME ('LVE-EB-NEU') END-EXEC Perform Check-Ende-MDB-EB-Neu End-If Continue. / *----------------------------------------------------------------* * Füllen der Maske mit Bausteindaten aus interner Tabelle * *----------------------------------------------------------------* Fuellen-Maske-EB-Tabelle. Move 1 To Ind-ZV Perform Varying Ind-Bau from 1 by 1 Until Ind-Bau > 8 or Meldung If T-Baustein of LVE-EB-Tabelle (Ind-Bau) not = Space Then If T-Baustein of LVE-EB-Tabelle (Ind-Bau) = W-Baustein-HV And T-Baulfdnr of LVE-EB-Tabelle (Ind-Bau) = W-Baulfdnr-HV Then Move 1 To Ind1 Move DFHBMPRO to IBAU-A (Ind1) IBBEG-A (Ind1) Move DFHDFHI to IBAU-H (Ind1) IBBEG-H (Ind1) Else Add 1 To Ind-ZV Move Ind-ZV To Ind1 End-If Move Ind1 to NR-P (Ind1) Move T-Baustein of LVE-EB-Tabelle (Ind1) to IBAU-I (Ind1) Move T-Baulfdnr of LVE-EB-Tabelle (Ind1) to IBNR-I (Ind1) If T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind1) = Space Then Continue Else Move T-Ausloesereignis of LVE-EB-Tabelle (Ind1) to IBFR-I (Ind1) Move T-OFFUM of LVE-EB-Tabelle (Ind1) to IOFUM-I (Ind1) Move W-Bfr-Text to IBFRTXT-I End-If Else Continue End-If End-Perform Perform Fuellen-Maske-EB-Tabelle-Neu Until BDV-EB-Nein or Meldung Continue. / *----------------------------------------------------------------* * Füllen der Maske mit Bausteindaten für Tabelle * *----------------------------------------------------------------* Fuellen-Maske-EB-Tabelle-Neu. EXEC MDB VGET VNAME ('LVE-EB-NEU') VDATA (LVE-EB-NEU) VDLEN (LENGTH OF LVE-EB-NEU) END-EXEC Perform Check-Fehler Perform Varying Ind1 from 1 by 1 Until Ind1 > 8 If IBAU-I (Ind1) = T-Baustein of LVE-EB-Neu and IBNR-I (Ind1) = T-Baulfdnr of LVE-EB-Neu Then If D-Beg-Bau Of LVE-EB-neu = Zero Then Continue Else Move D-Beg-Bau of LVE-EB-Neu to W-Datum1 Move Corr W-Datum1 to W-Datum2 Move W-Datum2 to IBBEG-I (Ind1) End-If Else Continue End-If End-Perform If Meldung Then Continue Else EXEC MDB VNEXT VNAME ('LVE-EB-NEU') END-EXEC Perform Check-Ende-MDB-EB-Neu End-If Continue. / *----------------------------------------------------------------* * Füllen der Maske mit versicherten Personen * *----------------------------------------------------------------* Fuellen-Maske-EB-VP-Neu. EXEC MDB VGET VNAME ('LVE-EB-VP-NEU') VDATA (LVE-EB-VP-NEU) VDLEN (LENGTH OF LVE-EB-VP-NEU) END-EXEC If not MDBOK Then Move 5045 to Fehler Set BDV-EB-VP-Nein to true Else Perform Varying Ind2 from 1 by 1 Until Ind2 > 8 or IBAU-I (Ind2) = Space Evaluate true When T-Baustein of LVE-EB-VP-Neu not = IBAU-I (Ind2) or T-Baulfdnr of LVE-EB-VP-Neu not = IBNR-I (Ind2) Continue When T-Kalkperson of LVE-EB-VP-Neu = 'A' Move T-BART-VP of LVE-EB-VP-Neu to OVPA-I (Ind2) When T-Kalkperson of LVE-EB-VP-Neu = 'B' Move T-BART-VP of LVE-EB-VP-Neu to OVPB-I (Ind2) When T-Kalkperson of LVE-EB-VP-Neu = 'C' Move T-BART-VP of LVE-EB-VP-Neu to OVPC-I (Ind2) When other Continue End-Evaluate End-Perform Perform Varying Ind2 from 1 by 1 Until Ind2 > 8 or IBFRVP-I not = Space or From-User Evaluate true When T-Baustein of LVE-EB-VP-Neu not = T-Baustein-Btrbfrend (Ind2) or T-Baulfdnr of LVE-EB-VP-Neu not = T-Baulfdnr-Btrbfrend (Ind2) Continue When T-Kalkperson of LVE-EB-VP-Neu = 'A' Move T-BART-VP of LVE-EB-VP-Neu to IBFRVP-I When other Continue End-Evaluate End-Perform End-If If not MDBOK Then Continue Else EXEC MDB VNEXT VNAME ('LVE-EB-VP-NEU') END-EXEC Perform Check-Ende-MDB-EB-VP-Neu End-If Continue. / *----------------------------------------------------------------* * Vorbelegen VP für Beitragsbefreiung, wenn nur eine VP * *----------------------------------------------------------------* Vorbelegen-VP-Bfr. EXEC MDB VGET VNAME ('LVE-E-VP-NEU') VDATA (LVE-E-VP-NEU) VDLEN (LENGTH OF LVE-E-VP-NEU) END-EXEC Perform Check-Fehler If Meldung Then Continue Else Move T-BART-VP of LVE-E-VP-Neu to IBFRVP-I EXEC MDB VNEXT VNAME ('LVE-E-VP-NEU') END-EXEC Perform Check-Ende-MDB-E-VP-Neu If Meldung or BDV-E-VP-Nein Then Continue Else Move Space to IBFRVP-I End-If End-If Continue. / *----------------------------------------------------------------* * Vorbelegung der ZWP-Daten: * * - Baustein ZWP-fähig ==> ZWP = 'J', ZWP-Art = 'GRV' * * - Baustein nicht ZWP-fähig ==> ZWP = 'N' * *----------------------------------------------------------------* Vorbelegen-ZWP-Daten. If Meldung Or W-Baustein-HV = Space Then Continue Else Perform Pruefen-ZWP-Erlaubt If Meldung Then Continue Else If Bdv-ZWP-Erlaubt-ja Then Move 'J' To IZWP-I If LVET63-T-ZWPART-STD (1) = Space Then Move Space To IZWPA-I Move 'N' To IZWP-I Else Move LVET63-T-ZWPART-STD (1) To IZWPA-I If LVET63-T-ZWPPROZ-STD (1) = Zeroes Then Continue Else Move LVET63-T-ZWPPROZ-STD (1) To IZWPP-P End-If End-If Else Move 'N' To IZWP-I End-If End-If End-If Continue. / *----------------------------------------------------------------* * Vorbelegung, ob mit verbindlichem Beitrag gerechnet werden * * soll * *----------------------------------------------------------------* Vorbelegen-Verb-Beitrag. If Meldung Or W-Baustein-HV = Space Then Continue Else Initialize LVET63-Eingabe-Bereich Set LVET63-Bdv-Find To True Move W-Baustein-HV To LVET63-Schl-Baustein-HV Move W-Tab-Datum-Num To LVET63-Tab-Datum Perform Aufruf-PLVET63 If LVET63-Fehlernummer = Zero Then If LVET63-T-Verb-Beitrag (1) = 'J' Then Move 'J' To IVB-I Else Move 'N' To IVB-I End-If Else Move LVET63-Fehlernummer To Fehler Move LVET63-Fehlertext To W-Fehlertext-Gesamt End-If End-If Continue. / *----------------------------------------------------------------* * Vorbelegung nur bei erstem Aufruf der Maske * *----------------------------------------------------------------* Aktualisieren-Schalter. Set Bdv-Verb-Beitrag-Neu-Nein To True EXEC MDB VINS VNAME ('BDV-VERB-BEITRAG-NEU') VDATA (BDV-VERB-BEITRAG-NEU) VDLEN (LENGTH OF BDV-VERB-BEITRAG-NEU) END-EXEC Perform Check-Fehler Continue. / / * Prüfen, ob für Hauptbaustein Standard-Tarifgruppe erlaubt * * Perform Aufruf-PLVET98 / / *---------------------------------------------------------------* * Bausteine aus Relation LVE-EB-neu in Tabelle speichern * *---------------------------------------------------------------* Zwischenspeichern-Bausteine. Initialize W-Tab-LVE-EB-neu W-Anz-Bausteine Perform Vpos-LVE-EB-neu Perform Varying Ind-Bau From 1 By 1 Until ( Meldung Or Bdv-EB-nein) Add 1 To W-Tab-LVE-EB-Neu-Ende If BDV-LVE-EB-Neu-Ende-ok Then EXEC MDB VGET VNAME ('LVE-EB-NEU') VDATA (W-LVE-EB-neu (Ind-Bau) ) VDLEN (Length Of W-LVE-EB-neu (Ind-Bau) ) END-EXEC Perform Check-Fehler Else Move 2824 To Fehler Move 'V46#W-Tab-LVE-EB-Neu' To W-Fehlertext-gesamt End-If If Meldung Then Continue Else If T-Baubart of W-LVE-EB-neu (Ind-Bau) = 'UEB' Then Continue Else Add 1 to W-Anz-Bausteine End-If EXEC MDB VNEXT VNAME ('LVE-EB-NEU') END-EXEC Perform Check-Ende-MDB-EB-neu End-If End-Perform Continue. / *---------------------------------------------------------------* * Bausteine gemäß Bausteinverwendung ermitteln * *---------------------------------------------------------------* Vpos-LVE-EB-neu. Set BDV-EB-Ja To True EXEC MDB VPOS VNAME ('LVE-EB-NEU') VPOS (1) END-EXEC If Var-Not-Found Or Var-Top-Or-Bot Then Set Bdv-EB-nein To True Else Continue End-If Continue. / *---------------------------------------------------------------* * Ermitteln HV-Baustein * *---------------------------------------------------------------* Ermitteln-HV-Baustein. Initialize Eingabe-Bereich Of LVE-CLVEMT5 Move W-Leseart To T-Leseart Of LVE-CLVEMT5 Move K-Abgang Of LVE-E-Neu To K-Abgang Of LVE-CLVEMT5 Move W-Tab-LVE-EB-neu-Ende To Tab-EB-Ende Of LVE-CLVEMT5 Perform Varying Ind-Bau From 1 By 1 Until Ind-Bau > W-Tab-LVE-EB-neu-Ende Move T-Baustein Of W-LVE-EB-neu (Ind-Bau) To T-Baustein Of LVE-CLVEMT5 (Ind-Bau) Move T-Baulfdnr Of W-LVE-EB-neu (Ind-Bau) To T-Baulfdnr Of LVE-CLVEMT5 (Ind-Bau) Move K-Abgang Of W-LVE-EB-neu (Ind-Bau) To K-Abgang-Baustein Of LVE-CLVEMT5 (Ind-Bau) Move T-Baubart Of W-LVE-EB-neu (Ind-Bau) To T-Baubart Of LVE-CLVEMT5 (Ind-Bau) Move T-Baustein-Bez Of W-LVE-EB-neu (Ind-Bau) To T-Baustein-Bez Of LVE-CLVEMT5 (Ind-Bau) Move T-Baulfdnr-Bez Of W-LVE-EB-neu (Ind-Bau) To T-Baulfdnr-Bez Of LVE-CLVEMT5 (Ind-Bau) End-Perform Perform Aufruf-PLVEMT5 Evaluate True When Fehlernummer Of LVE-CLVEMT5 = 6489 * kein oder mehr als 1 HV-Baustein vorhanden Move Space To W-Baustein-HV Move Zero To W-Baulfdnr-HV When BDV-Meldung Of LVE-CLVEMT5 Move Fehlernummer Of LVE-CLVEMT5 To Fehler Move Fehlertext Of LVE-CLVEMT5 To W-Fehlertext-gesamt When Other Move T-Baustein-HV Of LVE-CLVEMT5 To W-Baustein-HV Move T-Baulfdnr-HV Of LVE-CLVEMT5 To W-Baulfdnr-HV End-Evaluate Continue. / Aufruf-PLVEMT5. Call PLVEMT5-dynamisch Using DFHEIBLK Uebergabe-PLVEMT5 End-Call Continue. / *----------------------------------------------------------------* * Prüfen, ob für Hauptbaustein ZWP erlaubt * *----------------------------------------------------------------* Pruefen-ZWP-erlaubt. Initialize Schalter-ZWP-erlaubt LVET63-Eingabe-Bereich Set LVET63-Bdv-Find To True Move W-Baustein-HV To LVET63-Schl-Baustein-HV Move W-Tab-Datum-Num To LVET63-Tab-Datum Perform Aufruf-PLVET63 If LVET63-Fehlernummer = Zero Then If LVET63-Bdv-ZWP (1) Then Set Bdv-ZWP-Erlaubt-ja To True Else Continue End-If Else Move LVET63-Fehlernummer To Fehler Move LVET63-Fehlertext To W-Fehlertext-Gesamt End-If Continue. *----------------------------------------------------------------* * Aufruf PLVET63: * * Tabellenzugriffsmodul für TLVEBHVU * *----------------------------------------------------------------* Aufruf-PLVET63. Call PLVET63-dynamisch Using DFHEIBLK LVE-CLVET63 Continue. / *----------------------------------------------------------------* * Lesen Grundbetragsverhältnisse zur HV * *----------------------------------------------------------------* Lesen-Verh-zur-HV. Initialize Eingabe-Bereich of LVE-CLVEM62 Move T-VNR of LVE-E-Neu to T-VNR of LVE-CLVEM62 Move W-Leseart to K-Leseart of LVE-CLVEM62 Move K-Abgang of LVE-E-Neu to K-Abgang of LVE-CLVEM62 Perform Varying Ind1 from 1 by 1 Until Ind1 > 8 or IBAU-I (Ind1) = Space Move Ind1 to Tab-EB-Ende of LVE-CLVEM62 Move IBAU-I (Ind1) to T-Baustein of LVE-CLVEM62 (Ind1) Move IBNR-I (Ind1) to T-Baulfdnr of LVE-CLVEM62 (Ind1) Perform Fuellen-Bausteindaten-M62 Move 1 to Ind2 IF OVPA-I (Ind1) = Space or Low-Value Then Continue Else Move OVPA-I (Ind1) to T-BART-VP of LVE-CLVEM62 (Ind1, Ind2) Move 'A' to T-Kalkperson of LVE-CLVEM62 (Ind1, Ind2) Add 1 to Ind2 End-If IF OVPB-I (Ind1) = Space or Low-Value Then Continue Else Move OVPB-I (Ind1) to T-BART-VP of LVE-CLVEM62 (Ind1, Ind2) Move 'B' to T-Kalkperson of LVE-CLVEM62 (Ind1, Ind2) Add 1 to Ind2 End-If IF OVPC-I (Ind1) = Space or Low-Value Then Continue Else Move OVPC-I (Ind1) to T-BART-VP of LVE-CLVEM62 (Ind1, Ind2) Move 'C' to T-Kalkperson of LVE-CLVEM62 (Ind1, Ind2) Add 1 to Ind2 End-If Compute Tab-Bart-VP-Ende of LVE-CLVEM62 (Ind1) = Ind2 - 1 End-Compute End-Perform Perform Aufruf-PLVEM62 Evaluate true When Fehlernummer of LVE-CLVEM62 = Zero Perform Fuellen-Verh-zur-HV When Fehlernummer of LVE-CLVEM62 = 6283 Continue When other Move Fehlernummer of LVE-CLVEM62 to Fehler Move Fehlertext of LVE-CLVEM62 to W-Fehlertext-gesamt End-Evaluate Continue. / *----------------------------------------------------------------* * Füllen Bausteindaten für PLVEM62 * *----------------------------------------------------------------* Fuellen-Bausteindaten-M62. Set W-Ind-EB To 1 Search W-LVE-EB-neu At End Continue When W-Ind-EB > W-Tab-LVE-EB-neu-Ende Continue When T-Baustein of W-LVE-EB-neu (W-Ind-EB) = IBAU-I (Ind1) And T-Baulfdnr of W-LVE-EB-neu (W-Ind-EB) = IBNR-I (Ind1) Move K-Abgang of W-LVE-EB-neu (W-Ind-EB) to K-Abgang-Baustein of LVE-CLVEM62 (Ind1) Move T-Baubart of W-LVE-EB-neu (W-Ind-EB) to T-Baubart of LVE-CLVEM62 (Ind1) Move T-Baustein-Bez of W-LVE-EB-neu (W-Ind-EB) to T-Baustein-Bez of LVE-CLVEM62 (Ind1) Move T-Baulfdnr-Bez of W-LVE-EB-neu (W-Ind-EB) to T-Baulfdnr-Bez of LVE-CLVEM62 (Ind1) End-Search Continue. / *----------------------------------------------------------------* * Füllen Maskentexte * *----------------------------------------------------------------* Fuellen-Verh-zur-HV. Perform Varying Ind1 from 1 by 1 Until Ind1 > Tab-EB-Ende of LVE-CLVEM62 Perform Varying Ind2 from 1 by 1 Until Ind2 > 8 or IBAU-I (Ind2) = Space If T-Baustein of LVE-CLVEM62 (Ind1) = IBAU-I (Ind2) and T-Baulfdnr of LVE-CLVEM62 (Ind1) = IBNR-I (Ind2) Then Move R-Verh-Grundbetrag-zur-HV of LVE-CLVEM62 (Ind1) to OVPRO-P (Ind2) Else Continue End-If End-Perform End-Perform Continue. / *----------------------------------------------------------------* * Prüfen Verhältnisse auf bausteinintern und gegen HV * *----------------------------------------------------------------* Pruefen-Verh. Initialize Eingabe-Bereich Of LVE-CLVEM67 Move T-VNR of LVE-E-Neu to T-VNR of LVE-CLVEM67 Move W-Leseart to K-Leseart of LVE-CLVEM67 Perform Aufruf-PLVEM67 Evaluate true When Fehlernummer of LVE-CLVEM67 = Zero Continue When Fehlernummer of LVE-CLVEM62 = 6283 Continue When other Move Fehlernummer of LVE-CLVEM67 to Fehler End-Evaluate Continue. / * Perform Text-Ermitteln / / * Perform Aufruf-PLVET18 / *----------------------------------------------------------------* * Update des Ordnungsbegriffes * *----------------------------------------------------------------* Update-Ordnungsbegriff-Erst. Move Space to W-Ordnungsbegriff-Auswahl1 EXEC MDB VUPD VNAME (SYSID4) VDATA (W-Ordnungsbegriff-Auswahl1) VDLEN (LENGTH OF W-ORDNUNGSBEGRIFF-AUSWAHL1) END-EXEC Perform Check-Fehler If Meldung Then Continue Else EXEC MDB VINS VNAME ('LVE-EB-TABELLE') VDATA (LVE-EB-TABELLE) VDLEN (LENGTH OF LVE-EB-TABELLE) END-EXEC Perform Check-Fehler End-If Continue. / *----------------------------------------------------------------* * Initialisieren für Folge-Verarbeitung * *----------------------------------------------------------------* Initialisieren-Folge. Move VNR-I to W-VNR2 Move Corr W-VNR2 to W-VNR1 Inspect IPFAE-I Converting Low-Value to Space Inspect IVB-I Converting Low-Value to Space Inspect IZWP-I Converting Low-Value to Space Inspect IZWPA-I Converting Low-Value to Space Inspect IZWPP-I Converting Low-Value to Space Inspect IZWPERG-I Converting Low-Value to Space Inspect IRISJ-I Converting Low-Value to Space Inspect IPERS-I Converting Low-Value to Space Inspect IBFRVP-I Converting Low-Value to Space Inspect IPFAE-I Converting Klein-Schr to Gross-Schr Inspect IVB-I Converting Klein-Schr to Gross-Schr Inspect IZWP-I Converting Klein-Schr to Gross-Schr Inspect IZWPA-I Converting Klein-Schr to Gross-Schr Inspect IZWPP-I Converting Klein-Schr to Gross-Schr Inspect IZWPERG-I Converting Klein-Schr to Gross-Schr Inspect IRISJ-I Converting Klein-Schr to Gross-Schr Inspect IPERS-I Converting Klein-Schr to Gross-Schr Inspect IBFRVP-I Converting Klein-Schr to Gross-Schr Move Space to IBFRTXT-I Move DFHUNDLN to IPFAE-H Move DFHUNDLN to IVB-H Move DFHUNDLN to IZWP-H Move DFHUNDLN to IZWPA-H Move DFHUNDLN to IZWPP-H Move DFHUNDLN to IBFRVP-H Move DFHBMUNP to IBFRVP-A If IZWPERG-A = DFHBMPRO Then Continue Else Move DFHUNDLN to IZWPERG-H End-If If IRISJ-A = DFHBMPRO Then Continue Else Move DFHUNDLN to IRISJ-H End-If Move IPFAE-I to W-Beitrag-Alpha Evaluate true When W-Beitrag numeric Move W-Beitrag to IPFAE-P When IPFAE-I = Space Continue When other Continue End-Evaluate Move IZWPP-I to W-Proz-ZWP-Alpha Evaluate true When W-Proz-ZWP numeric and W-Proz-ZWP = Zero Move Space to IZWPP-I When W-Proz-ZWP numeric Move W-Proz-ZWP to IZWPP-P When IZWPP-I = Space Continue When other Continue End-Evaluate Perform Varying Ind1 from 1 by 1 Until Ind1 > 8 If IBAU-A (Ind1) = DFHBMPRO Then Move DFHDFHI to IBAU-H (Ind1) Else Move DFHUNDLN to IBAU-H (Ind1) End-If Move DFHDFHI to IBNR-H (Ind1) Move DFHUNDLN to IBFR-H (Ind1) Move DFHUNDLN to IOFUM-H (Ind1) Move DFHDFHI to OVPRO-H (Ind1) If IBBEG-A (Ind1) = DFHBMPRO Then Move DFHDFHI to IBBEG-H (Ind1) Else Move DFHUNDLN to IBBEG-H (Ind1) End-If Inspect IBAU-I (Ind1) Converting Low-Value to Space Inspect IBNR-I (Ind1) Converting Low-Value to Space Inspect IBFR-I (Ind1) Converting Low-Value to Space Inspect IOFUM-I (Ind1) Converting Low-Value to Space Inspect OVPRO-I (Ind1) Converting Low-Value to Space Inspect IBBEG-I (Ind1) Converting Low-Value to Space Inspect IBAU-I (Ind1) Converting Klein-Schr to Gross-Schr Inspect IBNR-I (Ind1) Converting Klein-Schr to Gross-Schr Inspect IBFR-I (Ind1) Converting Klein-Schr to Gross-Schr Inspect IOFUM-I (Ind1) Converting Klein-Schr to Gross-Schr End-Perform Set BDV-EB-VP-Ja to true Set BDV-E-VP-Ja to true Perform Vpos-LVE-EB-neu If Meldung Then Continue Else EXEC MDB VPOS VNAME ('LVE-EB-VP-NEU') VPOS (1) END-EXEC If Var-Not-Found or Var-Top-or-Bot Then Set BDV-EB-VP-Nein to true Else Perform Check-Fehler End-If End-If If Meldung Then Continue Else EXEC MDB VPOS VNAME ('LVE-E-VP-NEU') VPOS (1) END-EXEC If Var-Not-Found or Var-Top-or-Bot Then Set BDV-E-VP-Nein to true Else Perform Check-Fehler End-If End-If If Meldung Then Continue Else EXEC MDB VGET VNAME ('LVE-EB-TABELLE') VDATA (LVE-EB-TABELLE) VDLEN (LENGTH OF LVE-EB-TABELLE) END-EXEC Perform Check-Fehler End-If If Meldung Then Continue Else Perform Lesen-E-VP-PM-Neu End-If If Meldung Then Continue Else EXEC MDB VGET VNAME ('FACHGEBIET') VDATA (LVE-E-Fachgebiet) VDLEN (LENGTH OF LVE-E-FACHGEBIET) END-EXEC Perform Check-Fehler End-If If Meldung Then Continue Else If Meldung Then Continue Else Perform Ermitteln-Leseart End-If Continue. / *----------------------------------------------------------------* * Lesen Ordnungsbegriff aus MDB * *----------------------------------------------------------------* Lesen-Ordnungsbegriff-Folge. EXEC MDB VGET VNAME ('LVE-VNR-NEU') VDATA (LVE-VNR-NEU) VDLEN (LENGTH OF LVE-VNR-NEU) END-EXEC Perform Check-Fehler If Meldung Then Continue Else If T-VNR of LVE-VNR-Neu = W-VNR1 Then Continue Else Move 6078 to Fehler End-If End-If If Meldung Then Continue Else EXEC MDB VGET VNAME ('LVE-E-NEU') VDATA (LVE-E-NEU) VDLEN (LENGTH OF LVE-E-NEU) END-EXEC Perform Check-Fehler End-If Continue. / *----------------------------------------------------------------* * alten Ordnungsbegriff mit Versicherungsnummer beschicken * *----------------------------------------------------------------* Update-Ordnungsbegriff-alt. Move T-Vnr In LVE-Vnr-neu (1 : 2) To W-BI Of W-Ordnungsbegriff Move T-Vnr In LVE-Vnr-neu (3 : 8) To W-Nummer Of W-Ordnungsbegriff EXEC MDB VUPD VNAME (SYSID5) VDATA (W-Ordnungsbegriff) VDLEN (Length Of W-Ordnungsbegriff) END-EXEC Perform Check-Fehler Continue. / *----------------------------------------------------------------* * * *----------------------------------------------------------------* Lesen-E-VP-PM-Neu. Initialize Eingabe-Bereich Of LVE-CLVEMDBZ Set Bdv-MDB-Neu Of LVE-CLVEMDBZ To True Call PLVEZL5-dynamisch Using DFHEIBLK LVE-CLVEMDBZ LVE-E-VP-PM-Neu End-Call If Fehlernummer Of LVE-CLVEMDBZ = Zero Then Continue Else Move Fehlernummer Of LVE-CLVEMDBZ To Fehler Move Fehlertext Of LVE-CLVEMDBZ To W-Fehlertext-Gesamt End-If Continue. / *----------------------------------------------------------------* * Bearbeiten Bausteintabelle * *----------------------------------------------------------------* Bearbeiten-Tabelle. * *--->Auffüllen Tabelle und Versorgen mit Nummern * Move 1 to Ind2 Perform Varying Ind1 from 1 by 1 Until Ind1 > 8 If IBAU-I (Ind1) not = Space Then Move Ind2 to NR-P (Ind2) Move IBAU-I (Ind1) to IBAU-I (Ind2) T-Baustein of LVE-EB-Tabelle (Ind2) Move IBNR-I (Ind1) to IBNR-I (Ind2) If IBNR-I (Ind1) = Space Then Move Zero to T-Baulfdnr of LVE-EB-Tabelle (Ind2) Else Move IBNR-I (Ind1) to T-Baulfdnr of LVE-EB-Tabelle (Ind2) End-If Move OVPRO-I (Ind1) to OVPRO-I (Ind2) Move IBFR-I (Ind1) to IBFR-I (Ind2) If IBFR-I (Ind1) = Space Then Continue Else Move W-Bfr-Text to IBFRTXT-I Move IBFR-I (Ind1) to T-Ausloesereignis of LVE-EB-Tabelle (Ind2) End-If Move IOFUM-I (Ind1) to IOFUM-I (Ind2) If IOFUM-I (Ind1) = Space Then Continue Else If IBFR-I (Ind1) = Space Then Move Cursor to IBFR-L (Ind1) Move DFHREVRS to IBFR-H (Ind1) Move 0415 to Fehler Else Continue End-If Move IOFUM-I (Ind1) to T-OFFUM of LVE-EB-Tabelle (Ind2) End-If Move IBBEG-I (Ind1) to IBBEG-I (Ind2) Move Space to OVPA-I (Ind2) Move Space to OVPB-I (Ind2) Move Space to OVPC-I (Ind2) If IBNR-I (Ind1) = Space Then Continue Else Move T-Baustein-Vor of LVE-EB-Tabelle (Ind1) to T-Baustein-Vor of LVE-EB-Tabelle (Ind2) Move T-Baulfdnr-Vor of LVE-EB-Tabelle (Ind1) to T-Baulfdnr-Vor of LVE-EB-Tabelle (Ind2) End-If If IBFR-I (Ind1) not = Space Then Perform Bearbeiten-Tabelle-Bfr Else Move Space to T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind2) Move Zero to T-Baulfdnr-Btrbfrend of LVE-EB-Tabelle (Ind2) Move Space to T-Ausloesereignis of LVE-EB-Tabelle (Ind2) Move Space to T-OFFUM of LVE-EB-Tabelle (Ind2) Move T-Baustein-Btrbfrend-Vor of LVE-EB-Tabelle (Ind1) to T-Baustein-Btrbfrend-Vor of LVE-EB-Tabelle (Ind2) Move T-Baulfdnr-Btrbfrend-Vor of LVE-EB-Tabelle (Ind1) to T-Baulfdnr-Btrbfrend-Vor of LVE-EB-Tabelle (Ind2) End-If Add 1 to Ind2 Else Continue End-If End-Perform * *--->Löschen des Rests der Tabelle * Perform Until Ind2 > 8 Move Space to NR-I (Ind2) Move Space to IBAU-I (Ind2) Move Space to IBNR-I (Ind2) Move Space to OVPRO-I (Ind2) Move Space to IBFR-I (Ind2) Move Space to IOFUM-I (Ind2) Move Space to IBBEG-I (Ind2) Move Space to OVPA-I (Ind2) Move Space to OVPB-I (Ind2) Move Space to OVPC-I (Ind2) Initialize EB-Tabelle of LVE-EB-Tabelle (Ind2) Add 1 to Ind2 End-Perform Continue. / *----------------------------------------------------------------* * Bearbeiten Beitragsbefreiung in Bausteintabelle * *----------------------------------------------------------------* Bearbeiten-Tabelle-Bfr. Perform Plausi-Bfr Evaluate true When Meldung Continue When IBNR-I (Ind1) = Space Move W-Baustein-Btrbfrend to T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind2) When T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind1) = W-Baustein-Btrbfrend Move T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind1) to T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind2) Move T-Baulfdnr-Btrbfrend of LVE-EB-Tabelle (Ind1) to T-Baulfdnr-Btrbfrend of LVE-EB-Tabelle (Ind2) Move T-Ausloesereignis of LVE-EB-Tabelle (Ind1) to T-Ausloesereignis of LVE-EB-Tabelle (Ind2) Move T-OFFUM of LVE-EB-Tabelle (Ind1) to T-OFFUM of LVE-EB-Tabelle (Ind2) Move T-Baustein-Btrbfrend-Vor of LVE-EB-Tabelle (Ind1) to T-Baustein-Btrbfrend-Vor of LVE-EB-Tabelle (Ind2) Move T-Baulfdnr-Btrbfrend-Vor of LVE-EB-Tabelle (Ind1) to T-Baulfdnr-Btrbfrend-Vor of LVE-EB-Tabelle (Ind2) When other Move W-Baustein-Btrbfrend to T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind2) *--> damit laufende Nummer des beitragsbefreienden Bausteins * neu bestimmt wird, laufende Nummer auf Null setzen Move Zero to T-Baulfdnr-Btrbfrend of LVE-EB-Tabelle (Ind2) Move T-Baustein-Btrbfrend-Vor of LVE-EB-Tabelle (Ind1) to T-Baustein-Btrbfrend-Vor of LVE-EB-Tabelle (Ind2) Move T-Baulfdnr-Btrbfrend-Vor of LVE-EB-Tabelle (Ind1) to T-Baulfdnr-Btrbfrend-Vor of LVE-EB-Tabelle (Ind2) End-Evaluate Continue. / *----------------------------------------------------------------* * Ermitteln Beitragsbefreiungsbaustein * *----------------------------------------------------------------* Plausi-Bfr. If IOFUM-I (Ind1) = Space Then Perform Browse-PLVET73 If LVET73-BDV-KEIN-FEHLER Then If LVET73-TAB-ENDE = 1 Then Move LVET73-T-OFFEN-UMERKMAL (1) To IOFUM-I (Ind1) Move LVET73-T-BFRDBAUSTEIN (1) To W-Baustein-Btrbfrend Else Move 0415 to Fehler Move Cursor to IOFUM-L (Ind1) Move DFHREVRS to IOFUM-H (Ind1) End-If Else Continue End-If Else Perform Find-PLVET73 End-If Continue. / Browse-PLVET73. Initialize LVET73-Eingabe-Bereich Set LVET73-BDV-BROWSE To True Move W-Tab-Datum-Num To LVET73-TAB-DATUM Move T-Baustein of LVE-EB-Tabelle (Ind1) To LVET73-SCHL-BFRTBAUSTEIN Move IBFR-I (Ind1) To LVET73-SCHL-AUSLOESEREIGNIS Perform Aufruf-PLVET73 If LVET73-BDV-KEIN-FEHLER Then Continue Else Move LVET73-FEHLERNUMMER to Fehler Move LVET73-FEHLERTEXT to W-Fehlertext-Gesamt Move Cursor to IBFR-L (Ind1) Move DFHREVRS to IBFR-H (Ind1) End-If Continue. / Find-PLVET73. Initialize LVET73-Eingabe-Bereich Set LVET73-BDV-Find To True Move W-Tab-Datum-Num To LVET73-TAB-DATUM Move T-Baustein of LVE-EB-Tabelle (Ind1) To LVET73-SCHL-BFRTBAUSTEIN Move IBFR-I (Ind1) To LVET73-SCHL-AUSLOESEREIGNIS Move IOFUM-I (Ind1) To LVET73-SCHL-OFFEN-UMERKMAL Perform Aufruf-PLVET73 Evaluate True When LVET73-BDV-KEIN-FEHLER Move LVET73-T-BFRDBAUSTEIN (1) To W-Baustein-Btrbfrend When LVET73-BDV-KEIN-TAB-EINTRAG Move 1261 to Fehler String 'V46#' Delimited By Size LVET73-SCHL-AUSLOESEREIGNIS Delimited By Size LVET73-SCHL-OFFEN-UMERKMAL Delimited By Size '#Btg-Bfr' Delimited By Size Into W-Fehlertext-Gesamt End-String Move Cursor to IBFR-L (Ind1) Move DFHREVRS to IBFR-H (Ind1) Move DFHREVRS to IOFUM-H (Ind1) When Other Move LVET73-FEHLERNUMMER to Fehler Move LVET73-FEHLERTEXT to W-Fehlertext-Gesamt Move Cursor to IBFR-L (Ind1) Move DFHREVRS to IBFR-H (Ind1) Move DFHREVRS to IOFUM-H (Ind1) End-Evaluate Continue. / *----------------------------------------------------------------* * bausteinabhängige MDB-Variablen löschen * *----------------------------------------------------------------* Delete-MDB-EB-abhaengig. Perform Delete-Initialisieren Perform Delete-MDB-EB Until BDV-EB-Nein or Meldung If Meldung Then Continue Else Initialize Eingabe-Bereich Of LVE-CLVEM54 Move W-VNR1 to T-VNR of LVE-CLVEM54 Perform Aufruf-PLVEM54 If Fehlernummer of LVE-CLVEM54 = Zero Then Continue Else Move Fehlernummer of LVE-CLVEM54 to Fehler End-If End-If Continue. / *----------------------------------------------------------------* * Initialisieren vor Löschen * *----------------------------------------------------------------* Delete-Initialisieren. Perform Vpos-LVE-EB-neu Continue. / *----------------------------------------------------------------* * Löschen * *----------------------------------------------------------------* Delete-MDB-EB. EXEC MDB VGET VNAME ('LVE-EB-NEU') VDATA (LVE-EB-NEU) VDLEN (LENGTH OF LVE-EB-NEU) END-EXEC Perform Check-Fehler If Meldung Then Continue Else Set BDV-Gefunden-Nein to true Perform Varying Ind1 from 1 by 1 Until Ind1 > 8 or BDV-Gefunden-Ja If ( T-Baustein of LVE-EB-Tabelle (Ind1) = T-Baustein of LVE-EB-Neu and T-Baulfdnr of LVE-EB-Tabelle (Ind1) = T-Baulfdnr of LVE-EB-Neu ) or ( T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind1) = T-Baustein of LVE-EB-Neu and T-Baulfdnr-Btrbfrend of LVE-EB-Tabelle (Ind1) = T-Baulfdnr of LVE-EB-Neu ) Then Set BDV-Gefunden-Ja to true Else Continue End-If End-Perform If BDV-Gefunden-Ja Then Continue Else EXEC MDB VDEL VNAME ('LVE-EB-NEU') VDATA (LVE-EB-NEU) VDLEN (LENGTH OF LVE-EB-NEU) END-EXEC Perform Check-Fehler End-If End-If If Meldung Then Continue Else EXEC MDB VNEXT VNAME ('LVE-EB-NEU') END-EXEC Perform Check-Ende-MDB-EB-Neu End-If Continue. / *----------------------------------------------------------------* * Ergänzen laufende Nummer der Bausteine * *----------------------------------------------------------------* Ergaenzen-Tabelle. Move 1 to W-Baulfdnr Move 1 to Ind2 Perform Until W-Baulfdnr > 98 or Ind2 > 8 Evaluate true When T-Baustein of LVE-EB-Tabelle (Ind1) = T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind2) and T-Baulfdnr-Btrbfrend of LVE-EB-Tabelle (Ind2) = W-Baulfdnr Move 1 to Ind2 Add 1 to W-Baulfdnr When Ind1 = Ind2 Add 1 to Ind2 When T-Baustein of LVE-EB-Tabelle (Ind1) not = T-Baustein of LVE-EB-Tabelle (Ind2) and T-Baustein of LVE-EB-Tabelle (Ind1) not = T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind2) Add 1 to Ind2 When T-Baustein of LVE-EB-Tabelle (Ind1) = T-Baustein of LVE-EB-Tabelle (Ind2) and T-Baulfdnr of LVE-EB-Tabelle (Ind2) = W-Baulfdnr Move 1 to Ind2 Add 1 to W-Baulfdnr When other Add 1 to Ind2 End-Evaluate End-Perform If W-Baulfdnr > 98 Then Move 0202 to Fehler Else Move W-Baulfdnr to T-Baulfdnr of LVE-EB-Tabelle (Ind1) IBNR-I (Ind1) End-If Continue. / *----------------------------------------------------------------* * Ergänzen laufende Nummer der beitragsbefreienden Bausteine * *----------------------------------------------------------------* Ergaenzen-Tabelle-Btrbfrend. Move 1 to W-Baulfdnr Move 1 to Ind2 Perform Until W-Baulfdnr > 98 or Ind2 > 8 Evaluate true When T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind1) = T-Baustein of LVE-EB-Tabelle (Ind2) and T-Baulfdnr of LVE-EB-Tabelle (Ind2) = W-Baulfdnr Move 1 to Ind2 Add 1 to W-Baulfdnr When Ind1 = Ind2 Add 1 to Ind2 When T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind1) not = T-Baustein of LVE-EB-Tabelle (Ind2) and T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind1) not = T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind2) Add 1 to Ind2 When T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind1) = T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind2) and T-Baulfdnr-Btrbfrend of LVE-EB-Tabelle (Ind2) = W-Baulfdnr Move 1 to Ind2 Add 1 to W-Baulfdnr When other Add 1 to Ind2 End-Evaluate End-Perform If W-Baulfdnr > 98 Then Move 0202 to Fehler Else Move W-Baulfdnr to T-Baulfdnr-Btrbfrend of LVE-EB-Tabelle (Ind1) End-If Continue. / *----------------------------------------------------------------* * Plausi der allgemeinen Daten * *----------------------------------------------------------------* Plausi-Allg. Perform Plausi-E If Meldung Then Continue Else Perform Plausi-E-ZWP End-If Continue. / *----------------------------------------------------------------* * Plausi der Vertragsdaten * *----------------------------------------------------------------* Plausi-E. Initialize Eingabe-Bereich Of Uebergabe-PLVEMP1 Move W-VNR1 To T-VNR Of Uebergabe-PLVEMP1 Move 'J' To K-P-Beitrag-Faell-Prod Of Uebergabe-PLVEMP1 K-P-Sta-Beitrag-Faell-Prod Of Uebergabe-PLVEMP1 Perform Fuellen-Plausi-E-Rest Call PLVEMP1-Dynamisch Using DFHEIBLK Uebergabe-PLVEMP1 End-Call If Fehlernummer Of Uebergabe-PLVEMP1 = Zero Then Continue Else Move Fehlernummer Of Uebergabe-PLVEMP1 To Fehler Move Fehlertext Of Uebergabe-PLVEMP1 To W-Fehlertext-Gesamt End-If If Fehlernummer-E Of Uebergabe-PLVEMP1 (1) = Zero Or Meldung Then Continue Else Perform Setzen-Fehler-E-Rest End-If Continue. / *---------------------------------------------------------------* * Füllen Übergabebereich für Plausimodul * *---------------------------------------------------------------* Fuellen-Plausi-E-Rest. *--->Füllen alte Daten *--->Füllen neue Daten (mit setzen Standardwerte) If IPFAE-I = Space Then Move Zero To R-Beitrag-Faell-Prod Of Uebergabe-PLVEMP1 (2) Else Move IPFAE-P To R-Beitrag-Faell-Prod Of Uebergabe-PLVEMP1 (2) End-If If IVB-I = 'N' Then Move 'G' To T-Status-Beitrag-Faell-Prod Of Uebergabe-PLVEMP1 (2) Else Move Space To T-Status-Beitrag-Faell-Prod Of Uebergabe-PLVEMP1 (2) Move R-Beitrag-Faell-Prod Of Uebergabe-PLVEMP1 (2) To R-Beitrag-Faell-Prod-Exakt Of Uebergabe-PLVEMP1 (2) End-If Continue. / *---------------------------------------------------------------* * Setzen der Fehlermeldungen * *---------------------------------------------------------------* Setzen-Fehler-E-Rest. Move Fehlernummer-E Of Uebergabe-PLVEMP1 (1) To Fehler Move Fehlertext-E Of Uebergabe-PLVEMP1 (1) To W-Fehlertext-Gesamt Perform Varying Ind1 From 1 By 1 Until Ind1 > K-Max-Feld-Anz Or R-Feldnr Of Uebergabe-PLVEMP1 (1, Ind1) = Zero Move R-Feldnr Of Uebergabe-PLVEMP1 (1, Ind1) To R-Feldnr Of LVE-CLVEFLD (1) Evaluate True When BDV-Feld-Sta-Btrg-FaellP Of LVE-CLVEFLD (1) Move Cursor To IVB-L Move DFHREVRS To IVB-H When BDV-Feld-Btrg-Faell-Prod Of LVE-CLVEFLD (1) Move Cursor To IPFAE-L Move DFHREVRS To IPFAE-H When Other Continue End-Evaluate End-Perform Continue. / * Plausi der Sondervergünstigungsart * * Perform Aufruf-PLVEMW2 / *----------------------------------------------------------------* * Plausi der ZWP-Daten * *----------------------------------------------------------------* Plausi-E-ZWP. Perform Fuellen-Uebergabe-Plausi-E-ZWP Perform Aufruf-PLVEM02 If Fehler-Nummer of LVE-CLVEM02 = Zero Then Continue Else Move Fehler-Nummer of LVE-CLVEM02 to Fehler Move Fehlertext of LVE-CLVEM02 to W-Fehlertext-Gesamt End-If If ( Fehler-ZWP of LVE-CLVEM02 = Zero and Fehler-Beitrag-Anf-ZWP of LVE-CLVEM02 = Zero and Fehler-ZWPArt of LVE-CLVEM02 = Zero and Fehler-Prozind-ZWP of LVE-CLVEM02 = Zero and Fehler-Rhythmus-ZWP of LVE-CLVEM02 = Zero and Fehler-Beg-Rhythmus-ZWP of LVE-CLVEM02 = Zero and Fehler-Widerrzaehl-ZWP of LVE-CLVEM02 = Zero and Fehler-Faehig-ZWP of LVE-CLVEM02 = Zero and Fehler-Roet-ZWP of LVE-CLVEM02 = Zero and Fehler-Roet-Beitrag-Anf-ZWP of LVE-CLVEM02 = Zero and Fehler-Roet-ZWPArt of LVE-CLVEM02 = Zero and Fehler-Roet-Prozind-ZWP of LVE-CLVEM02 = Zero and Fehler-Roet-Rhythmus-ZWP of LVE-CLVEM02 = Zero and Fehler-Roet-Beg-Rhythmus-ZWP of LVE-CLVEM02 = Zero ) or Meldung Then Continue Else Perform Setzen-Fehlermeldung-E-ZWP End-If Continue. / *---------------------------------------------------------------* * Füllen Übergabebereich für Plausimodul * *---------------------------------------------------------------* Fuellen-Uebergabe-Plausi-E-ZWP. Initialize Eingabe-Bereich Of LVE-CLVEM02 Move W-VNR1 to T-VNR of LVE-CLVEM02 Move All 'N' to Pruefbedingungen of LVE-CLVEM02 Move 'J' to K-P-ZWP of LVE-CLVEM02 K-P-ZWPArt of LVE-CLVEM02 K-P-Prozind-ZWP of LVE-CLVEM02 * *--->Füllen alte Daten * * *--->Füllen neue Daten (mit setzen Standardwerte) * Move IZWP-I to K-ZWP of LVE-CLVEM02 (2) Move IZWPA-I to T-ZWPArt of LVE-CLVEM02 (2) If IZWPP-I not = Space Then Move IZWPP-P to R-Prozind-ZWP of LVE-CLVEM02 (2) Else Move Zero to R-Prozind-ZWP of LVE-CLVEM02 (2) End-If Continue. / *---------------------------------------------------------------* * Setzen der Fehlermeldungen * *---------------------------------------------------------------* Setzen-Fehlermeldung-E-ZWP. If Fehler-Prozind-ZWP of LVE-CLVEM02 not = Zero Then Move Fehler-Prozind-ZWP of LVE-CLVEM02 to Fehler Move Fehlertext-Prozind-ZWP of LVE-CLVEM02 to W-Fehlertext-Gesamt Move Cursor to IZWPP-L Move DFHREVRS to IZWPP-H Else Continue End-If If Fehler-ZWPArt of LVE-CLVEM02 not = Zero Then Move Fehler-ZWPArt of LVE-CLVEM02 to Fehler Move Fehlertext-ZWPArt of LVE-CLVEM02 to W-Fehlertext-Gesamt Move Cursor to IZWPA-L Move DFHREVRS to IZWPA-H Else Continue End-If If Fehler-ZWP of LVE-CLVEM02 not = Zero Then Move Fehler-ZWP of LVE-CLVEM02 to Fehler Move Fehlertext-ZWP of LVE-CLVEM02 to W-Fehlertext-Gesamt Move Cursor to IZWP-L Move DFHREVRS to IZWP-H Move DFHREVRS to IZWP-H Else Continue End-If Continue. / *----------------------------------------------------------------* * Plausi der bausteinabhängigen Daten * *----------------------------------------------------------------* Plausi-Baustein. Initialize Eingabe-Bereich Of LVE-CLVEM06 Move All 'N' to Pruefbedingungen of LVE-CLVEM06 Move 'J' to K-P-Baustein of LVE-CLVEM06 K-P-Baulfdnr of LVE-CLVEM06 K-P-Beg-Bau of LVE-CLVEM06 Perform Fuellen-Uebergabe-Plausi-EB Perform Aufruf-PLVEM06 If Fehler-Nummer of LVE-CLVEM06 = Zero Then Continue Else Move Fehler-Nummer of LVE-CLVEM06 to Fehler Move Fehlertext of LVE-CLVEM06 to W-Fehlertext-Gesamt End-If If Meldung or ( Fehler-Baustein of LVE-CLVEM06 = Zero and Fehler-Baulfdnr of LVE-CLVEM06 = Zero and Fehler-Beg-Bau of LVE-CLVEM06 = Zero and Fehler-Anzfaeproj of LVE-CLVEM06 = Zero and Fehler-Sonvergart of LVE-CLVEM06 = Zero and Fehler-ZWP of LVE-CLVEM06 = Zero and Fehler-BI of LVE-CLVEM06 = Zero and Fehler-VVmitstueko of LVE-CLVEM06 = Zero ) Then Continue Else Perform Setzen-Fehlermeldung-EB End-If Continue. / *---------------------------------------------------------------* * Füllen Übergabebereich für Plausimodul * *---------------------------------------------------------------* Fuellen-Uebergabe-Plausi-EB. Move W-VNR1 to T-VNR of LVE-CLVEM06 Move T-Fachgebiet of LVE-E-Fachgebiet to T-Fachgebiet of LVE-CLVEM06 Move W-Leseart to K-Leseart of LVE-CLVEM06 * *--->Füllen alte Daten * * *--->Füllen neue Daten (mit setzen Standardwerte) * Move IBAU-I (Ind1) to T-Baustein of LVE-CLVEM06 (2) Move IBNR-I (Ind1) to T-Baulfdnr of LVE-CLVEM06 (2) Move IBBEG-I (Ind1) to W-Datum2 Move Corr W-Datum2 to W-Datum1 Move W-Datum1 to D-Beg-Bau of LVE-CLVEM06 (2) Move '1' to T-Realzust of LVE-CLVEM06 (2) Continue. / *---------------------------------------------------------------* * Setzen der Fehlermeldungen * *---------------------------------------------------------------* Setzen-Fehlermeldung-EB. If Fehler-Beg-Bau of LVE-CLVEM06 not = Zero and Fehler-Beg-Bau of LVE-CLVEM06 not = 2814 Then Move Fehler-Beg-Bau of LVE-CLVEM06 to Fehler Move Fehlertext-Beg-Bau of LVE-CLVEM06 to W-Fehlertext-Gesamt Move Cursor to IBBEG-L (Ind1) Move DFHREVRS to IBBEG-H (Ind1) Else Continue End-If If Fehler-Baulfdnr of LVE-CLVEM06 not = Zero Then Move Fehler-Baulfdnr of LVE-CLVEM06 to Fehler Move Fehlertext-Baulfdnr of LVE-CLVEM06 to W-Fehlertext-Gesamt Move Cursor to IBNR-L (Ind1) Move DFHREVRS to IBNR-H (Ind1) Else Continue End-If Evaluate true When Fehler-Baustein of LVE-CLVEM06 = Zero Continue When Fehler-Baustein of LVE-CLVEM06 = 6283 Continue When other Move Fehler-Baustein of LVE-CLVEM06 to Fehler Move Fehlertext-Baustein of LVE-CLVEM06 to W-Fehlertext-Gesamt Move DFHREVRS to IBAU-H (Ind1) End-Evaluate If Fehler-ZWP of LVE-CLVEM06 not = Zero Then Move Fehler-ZWP of LVE-CLVEM06 to Fehler Move Fehlertext-ZWP of LVE-CLVEM06 to W-Fehlertext-Gesamt Move DFHREVRS to IBAU-H (Ind1) Else Continue End-If If Fehler-BI of LVE-CLVEM06 not = Zero Then Move Fehler-BI of LVE-CLVEM06 to Fehler Move Fehlertext-BI of LVE-CLVEM06 to W-Fehlertext-Gesamt Move DFHREVRS to IBAU-H (Ind1) Else Continue End-If If Fehler-VVmitstueko of LVE-CLVEM06 not = Zero Then Move Fehler-VVmitstueko of LVE-CLVEM06 to Fehler Move Fehlertext-VVmitstueko of LVE-CLVEM06 to W-Fehlertext-Gesamt Else Continue End-If Continue. / *----------------------------------------------------------------* * Gesamtplausi EB-VP * *----------------------------------------------------------------* Gesamtplausi-EB-VP. Initialize Eingabe-Bereich Of LVE-CLVEM43 Move IBAU-I (Ind1) to T-Baustein of LVE-CLVEM43 Move IBNR-I (Ind1) to T-Baulfdnr of LVE-CLVEM43 Perform Fuellen-Uebergabe-Plausi-EB-VP Perform Aufruf-PLVEM43 If Fehlernummer of LVE-CLVEM43 = Zero Then Continue Else Move Fehlernummer of LVE-CLVEM43 to Fehler Move Fehlertext of LVE-CLVEM43 to W-Fehlertext-Gesamt End-If If Meldung or ( Fehler-EBVP of LVE-CLVEM43 = Zero And Fehler-ZWP of LVE-CLVEM43 = Zero And Fehler-Reinalt of LVE-CLVEM43 = Zero And Fehler-Teinalt of LVE-CLVEM43 = Zero) Then Continue Else Perform Setzen-Fehlermeldung-Ges-EB-VP End-If Continue. / *---------------------------------------------------------------* * Füllen Übergabebereich für Plausimodul * *---------------------------------------------------------------* Fuellen-Uebergabe-Plausi-EB-VP. Move W-VNR1 to T-VNR of LVE-CLVEM43 Move All 'N' to Pruefbedingungen of LVE-CLVEM43 Move 'J' to K-P-EBVP of LVE-CLVEM43 K-P-ZWP of LVE-CLVEM43 K-P-Reinalt of LVE-CLVEM43 K-P-Teinalt of LVE-CLVEM43 Continue. / *---------------------------------------------------------------* * Setzen der Fehlermeldungen * *---------------------------------------------------------------* Setzen-Fehlermeldung-Ges-EB-VP. If Fehler-EBVP of LVE-CLVEM43 not = Zero Then Move Fehler-EBVP of LVE-CLVEM43 to Fehler Move Fehlertext-EBVP of LVE-CLVEM43 to W-Fehlertext-Gesamt Move DFHREVRS to IBAU-H (Ind1) Else Continue End-If If Fehler-ZWP of LVE-CLVEM43 not = Zero Then Move Fehler-ZWP of LVE-CLVEM43 to Fehler Move Fehlertext-ZWP of LVE-CLVEM43 to W-Fehlertext-Gesamt Move DFHREVRS to IBAU-H (Ind1) IZWP-H Move Cursor to IZWP-L Else Continue End-If If Fehler-Reinalt of LVE-CLVEM43 not = Zero Then Move Fehler-Reinalt of LVE-CLVEM43 to Fehler Move Fehlertext-Reinalt of LVE-CLVEM43 to W-Fehlertext-Gesamt Move DFHREVRS to IBAU-H (Ind1) Move Cursor to IBAU-L (Ind1) Else Continue End-If If Fehler-Teinalt of LVE-CLVEM43 not = Zero Then Move Fehler-Teinalt of LVE-CLVEM43 to Fehler Move Fehlertext-Teinalt of LVE-CLVEM43 to W-Fehlertext-Gesamt Move DFHREVRS to IBAU-H (Ind1) Move Cursor to IBAU-L (Ind1) Else Continue End-If Continue. / *----------------------------------------------------------------* * Aufruf Plausimodul PLVEM43 * *----------------------------------------------------------------* Aufruf-PLVEM43. Copy CDIAWVPF. Call PLVEM43-dynamisch Using DFHEIBLK Uebergabe-PLVEM43 End-Call Copy CDIARVP. Continue. / *----------------------------------------------------------------* * Gesamtplausi EBP * *----------------------------------------------------------------* Gesamtplausi-EBP. Initialize Eingabe-Bereich of LVE-CLVEM44 Move IBAU-I (Ind1) to T-Baustein of LVE-CLVEM44 Move IBNR-I (Ind1) to T-Baulfdnr of LVE-CLVEM44 Perform Fuellen-Uebergabe-Plausi-EBP Perform Aufruf-PLVEM44 If Fehler-Nummer of LVE-CLVEM44 = Zero Then Continue Else Move Fehler-Nummer of LVE-CLVEM44 to Fehler Move Fehlertext of LVE-CLVEM44 to W-Fehlertext-Gesamt End-If If Meldung or ( Fehler-Verh-Parameter of LVE-CLVEM44 = Zero and Fehler-Parameter-Allg of LVE-CLVEM44 = Zero ) Then Continue Else Perform Setzen-Fehlermeldung-Ges-EBP End-If Continue. / *---------------------------------------------------------------* * Füllen Übergabebereich für Plausimodul * *---------------------------------------------------------------* Fuellen-Uebergabe-Plausi-EBP. Move All 'N' to Pruefbedingungen of LVE-CLVEM44 Move 'J' to K-P-VERH-PARAMETER of LVE-CLVEM44 K-P-PARAMETER-ALLG of LVE-CLVEM44 Continue. / *---------------------------------------------------------------* * Setzen der Fehlermeldungen * *---------------------------------------------------------------* Setzen-Fehlermeldung-Ges-EBP. If FEHLER-VERH-PARAMETER of LVE-CLVEM44 Not = Zero Then Move FEHLER-VERH-PARAMETER of LVE-CLVEM44 to Fehler Move FEHLERtext-VERH-PARAMETER of LVE-CLVEM44 to W-Fehlertext-Gesamt Move DFHREVRS to IBAU-H (Ind1) Else Continue End-If If FEHLER-PARAMETER-ALLG of LVE-CLVEM44 Not = Zero Then Move FEHLER-PARAMETER-ALLG of LVE-CLVEM44 to Fehler Move FEHLERtext-PARAMETER-ALLG of LVE-CLVEM44 to W-Fehlertext-Gesamt Move DFHREVRS to IBAU-H (Ind1) Else Continue End-If Continue. / *----------------------------------------------------------------* * Aufruf Plausimodul PLVEM44 * *----------------------------------------------------------------* Aufruf-PLVEM44. Copy CDIAWVPF. Call PLVEM44-dynamisch Using DFHEIBLK Uebergabe-PLVEM44 End-Call Copy CDIARVP. Continue. / *----------------------------------------------------------------* * Plausi des Beitragsbefreiungs-Bausteins * *----------------------------------------------------------------* Plausi-Baustein-Bfr. Initialize Eingabe-Bereich Of LVE-CLVEM06 Move All 'N' to Pruefbedingungen of LVE-CLVEM06 Move 'J' to K-P-Baustein of LVE-CLVEM06 K-P-Baulfdnr of LVE-CLVEM06 K-P-Beg-Bau of LVE-CLVEM06 Perform Fuellen-Ueberg-Plausi-EB-Bfr Perform Aufruf-PLVEM06 If Fehler-Nummer of LVE-CLVEM06 = Zero Then Continue Else Move Fehler-Nummer of LVE-CLVEM06 to Fehler Move Fehlertext of LVE-CLVEM06 to W-Fehlertext-Gesamt End-If If Meldung or ( Fehler-Baustein of LVE-CLVEM06 = Zero and Fehler-Baulfdnr of LVE-CLVEM06 = Zero and Fehler-Beg-Bau of LVE-CLVEM06 = Zero and Fehler-Anzfaeproj of LVE-CLVEM06 = Zero and Fehler-Sonvergart of LVE-CLVEM06 = Zero and Fehler-ZWP of LVE-CLVEM06 = Zero and Fehler-BI of LVE-CLVEM06 = Zero and Fehler-VVmitstueko of LVE-CLVEM06 = Zero ) Then Continue Else Perform Setzen-Fehlermeldung-EB-Bfr End-If Continue. / *---------------------------------------------------------------* * Füllen Übergabebereich für Plausimodul * *---------------------------------------------------------------* Fuellen-Ueberg-Plausi-EB-Bfr. Move W-VNR1 to T-VNR of LVE-CLVEM06 Move T-Fachgebiet of LVE-E-Fachgebiet to T-Fachgebiet of LVE-CLVEM06 Move W-Leseart to K-Leseart of LVE-CLVEM06 * *--->Füllen alte Daten * * *--->Füllen neue Daten (mit setzen Standardwerte) * Move T-Baustein-Btrbfrend (Ind1) to T-Baustein of LVE-CLVEM06 (2) Move T-Baulfdnr-Btrbfrend (Ind1) to T-Baulfdnr of LVE-CLVEM06 (2) Perform Varying Ind2 From 1 By 1 Until ( Ind2 > 8 Or IBAU-I (Ind2) = Space) If IBAU-I (Ind2) = T-Baustein Of EB-Tabelle (Ind1) And IBNR-I (Ind2) = T-Baulfdnr Of EB-Tabelle (Ind1) Then Move Ind2 To Ind-Bau Move IBBEG-I (Ind2) to W-Datum2 Move Corr W-Datum2 to W-Datum1 Move W-Datum1 to D-Beg-Bau of LVE-CLVEM06 (2) Else Continue End-If End-Perform Move '1' to T-Realzust of LVE-CLVEM06 (2) Continue. / *---------------------------------------------------------------* * Setzen der Fehlermeldungen * *---------------------------------------------------------------* Setzen-Fehlermeldung-EB-Bfr. If Fehler-Beg-Bau of LVE-CLVEM06 not = Zero and Fehler-Beg-Bau of LVE-CLVEM06 not = 2814 Then Move Fehler-Beg-Bau of LVE-CLVEM06 to Fehler Move Fehlertext-Beg-Bau of LVE-CLVEM06 to W-Fehlertext-Gesamt Move Cursor to IBBEG-L (Ind-Bau) Move DFHREVRS to IBBEG-H (Ind-Bau) IBFR-H (Ind-Bau) If IOFUM-I (Ind-Bau) = Space Then Continue Else Move DFHREVRS to IOFUM-H (Ind-Bau) End-If Else Continue End-If If Fehler-Baulfdnr of LVE-CLVEM06 not = Zero Then Move Fehler-Baulfdnr of LVE-CLVEM06 to Fehler Move Fehlertext-Baulfdnr of LVE-CLVEM06 to W-Fehlertext-Gesamt Move Cursor to IBFR-L (Ind-Bau) Move DFHREVRS to IBFR-H (Ind-Bau) Else Continue End-If Evaluate true When Fehler-Baustein of LVE-CLVEM06 = Zero Continue When Fehler-Baustein of LVE-CLVEM06 = 6283 Continue When other Move Fehler-Baustein of LVE-CLVEM06 to Fehler Move Fehlertext-Baustein of LVE-CLVEM06 to W-Fehlertext-Gesamt Move Cursor to IBFR-L (Ind-Bau) Move DFHREVRS to IBFR-H (Ind-Bau) If IOFUM-I (Ind-Bau) = Space Then Continue Else Move DFHREVRS to IOFUM-H (Ind-Bau) End-If End-Evaluate If Fehler-ZWP of LVE-CLVEM06 not = Zero Then Move Fehler-ZWP of LVE-CLVEM06 to Fehler Move Fehlertext-ZWP of LVE-CLVEM06 to W-Fehlertext-Gesamt Move Cursor to IBFR-L (Ind-Bau) Move DFHREVRS to IBFR-H (Ind-Bau) If IOFUM-I (Ind-Bau) = Space Then Continue Else Move DFHREVRS to IOFUM-H (Ind-Bau) End-If Else Continue End-If If Fehler-BI of LVE-CLVEM06 not = Zero Then Move Fehler-BI of LVE-CLVEM06 to Fehler Move Fehlertext-BI of LVE-CLVEM06 to W-Fehlertext-Gesamt Move Cursor to IBFR-L (Ind-Bau) Move DFHREVRS to IBFR-H (Ind-Bau) If IOFUM-I (Ind-Bau) = Space Then Continue Else Move DFHREVRS to IOFUM-H (Ind-Bau) End-If Else Continue End-If If Fehler-VVmitstueko of LVE-CLVEM06 not = Zero Then Move Fehler-VVmitstueko of LVE-CLVEM06 to Fehler Move Fehlertext-VVmitstueko of LVE-CLVEM06 to W-Fehlertext-Gesamt Else Continue End-If Continue. / *----------------------------------------------------------------* * Plausi der Person für Beitragsbefreiung * *----------------------------------------------------------------* Plausi-EB-VP-Bfr. Perform Uebergabe-Plausi-Bfr-EB-VP Perform Aufruf-PLVEM07 If Fehlernummer of LVE-CLVEM07 = Zero Then Continue Else Move Fehlernummer of LVE-CLVEM07 to Fehler Move Fehlertext of LVE-CLVEM07 to W-Fehlertext-Gesamt End-If If ( Fehler-Baustein of LVE-CLVEM07 = Zero and Fehler-BART-VP of LVE-CLVEM07 = Zero and Fehler-Kalkperson of LVE-CLVEM07 = Zero ) or Meldung Then Continue Else Perform Setzen-Fehlermeldung-EB-VP-Bfr End-If Continue. / *----------------------------------------------------------------* * Übergabebereich für Plausimodul füllen * *----------------------------------------------------------------* Uebergabe-Plausi-Bfr-EB-VP. Initialize Eingabe-Bereich Of LVE-CLVEM07 Move W-VNR1 to T-VNR of LVE-CLVEM07 Move W-Leseart to K-Leseart of LVE-CLVEM07 Move All 'N' to Pruefbedingungen of LVE-CLVEM07 Move 'J' to K-P-Baustein of LVE-CLVEM07 K-P-Baulfdnr of LVE-CLVEM07 K-P-BART-VP of LVE-CLVEM07 K-P-Kalkperson of LVE-CLVEM07 * *--->Füllen alte Daten * Vorerst nicht sinnvoll * * *--->Füllen neue Daten * Move T-Baustein-Btrbfrend (Ind1) to T-Baustein of LVE-CLVEM07 (2) Move T-Baulfdnr-Btrbfrend (Ind1) to T-Baulfdnr of LVE-CLVEM07 (2) Move '1' to T-Realzust of LVE-CLVEM07 (2) Move IBFRVP-I to T-BART-VP of LVE-CLVEM07 (2) Move 'A' to T-Kalkperson of LVE-CLVEM07 (2) Continue. / *----------------------------------------------------------------* * Aufruf Plausimodul PLVEM07 * *----------------------------------------------------------------* Aufruf-PLVEM07. Copy CDIAWVPF. Call PLVEM07-dynamisch Using DFHEIBLK Uebergabe-PLVEM07 End-Call Copy CDIARVP. Continue. / *----------------------------------------------------------------* * Setzen der Fehlermeldungen * *----------------------------------------------------------------* Setzen-Fehlermeldung-EB-VP-Bfr. If Fehler-Kalkperson of LVE-CLVEM07 not = Zero Then Move Fehler-Kalkperson of LVE-CLVEM07 to Fehler Move Fehlertext-Kalkperson of LVE-CLVEM07 to W-Fehlertext-Gesamt Move Cursor to IBFRVP-L Move DFHREVRS to IBFRVP-H Else Continue End-If If Fehler-BART-VP of LVE-CLVEM07 not = Zero Then Move Fehler-BART-VP of LVE-CLVEM07 to Fehler Move Fehlertext-BART-VP of LVE-CLVEM07 to W-Fehlertext-Gesamt Move Cursor to IBFRVP-L Move DFHREVRS to IBFRVP-H Else Continue End-If If Fehler-Baustein of LVE-CLVEM07 not = Zero Then Move Fehler-Baustein of LVE-CLVEM07 to Fehler Move Fehlertext-Baustein of LVE-CLVEM07 to W-Fehlertext-Gesamt Move Cursor to IBFRVP-L Move DFHREVRS to IBFRVP-H Move DFHREVRS to IBFR-H (Ind1) Else Continue End-If Continue. / *----------------------------------------------------------------* * Gesamtplausi EBP für Beitragbefreiungsbaustein * *----------------------------------------------------------------* Plausi-Ges-EBP-Bfr. Initialize Eingabe-Bereich of LVE-CLVEM44 Move T-Baustein-Btrbfrend (Ind1) to T-Baustein of LVE-CLVEM44 Move T-Baulfdnr-Btrbfrend (Ind1) to T-Baulfdnr of LVE-CLVEM44 Perform Fuellen-Uebergabe-Plausi-EBP Perform Aufruf-PLVEM44 If Fehler-Nummer of LVE-CLVEM44 = Zero Then Continue Else Move Fehler-Nummer of LVE-CLVEM44 to Fehler Move Fehlertext of LVE-CLVEM44 to W-Fehlertext-Gesamt End-If If Meldung or ( Fehler-Verh-Parameter of LVE-CLVEM44 = Zero and Fehler-Parameter-Allg of LVE-CLVEM44 = Zero) Then Continue Else Perform Setzen-Fehler-Ges-EBP-Bfr End-If Continue. / *---------------------------------------------------------------* * Setzen der Fehlermeldungen * *---------------------------------------------------------------* Setzen-Fehler-Ges-EBP-Bfr. If Fehler-Verh-Parameter of LVE-CLVEM44 not = Zero Then Move Fehler-Verh-Parameter of LVE-CLVEM44 to Fehler Move Fehlertext-Verh-Parameter of LVE-CLVEM44 to W-Fehlertext-Gesamt Move Cursor to IBFR-L (Ind1) Move DFHREVRS to IBFR-H (Ind1) Else Continue End-If If Fehler-Parameter-Allg of LVE-CLVEM44 not = Zero Then Move Fehler-Parameter-Allg of LVE-CLVEM44 to Fehler Move Fehlertext-Parameter-Allg of LVE-CLVEM44 to W-Fehlertext-Gesamt Move Cursor to IBFR-L (Ind1) Move DFHREVRS to IBFR-H (Ind1) Else Continue End-If Continue. / *----------------------------------------------------------------* * Gesamtplausi EB-VP für Beitragbefreiungsbaustein * *----------------------------------------------------------------* Plausi-Ges-EB-VP-Bfr. Initialize Eingabe-Bereich Of LVE-CLVEM43 Move T-Baustein-Btrbfrend (Ind1) to T-Baustein of LVE-CLVEM43 Move T-Baulfdnr-Btrbfrend (Ind1) to T-Baulfdnr of LVE-CLVEM43 Perform Fuellen-Uebergabe-Plausi-EB-VP Perform Aufruf-PLVEM43 If Fehlernummer of LVE-CLVEM43 = Zero Then Continue Else Move Fehlernummer of LVE-CLVEM43 to Fehler Move Fehlertext of LVE-CLVEM43 to W-Fehlertext-Gesamt End-If If Meldung or Fehler-EBVP of LVE-CLVEM43 = Zero Then Continue Else Perform Setzen-Fehler-Ges-EB-VP-Bfr End-If Continue. / *---------------------------------------------------------------* * Setzen der Fehlermeldungen * *---------------------------------------------------------------* Setzen-Fehler-Ges-EB-VP-Bfr. If Fehler-EBVP of LVE-CLVEM43 not = Zero Then Move Fehler-EBVP of LVE-CLVEM43 to Fehler Move Fehlertext-EBVP of LVE-CLVEM43 to W-Fehlertext-Gesamt Move Cursor to IBFRVP-L Move DFHREVRS to IBFRVP-H Move DFHREVRS to IBFR-H (Ind1) Else Continue End-If Continue. / * Plausi der Vertragsdaten * * Perform Fuellen-Plausi-E-Erw / / * Perform / *----------------------------------------------------------------* * Plausi der bausteinabhängigen Daten * *----------------------------------------------------------------* Plausi-Baustein-Erw. Initialize Eingabe-Bereich Of LVE-CLVEM06 Move All 'N' to Pruefbedingungen of LVE-CLVEM06 Move 'J' to K-P-Baustein of LVE-CLVEM06 K-P-Beg-Bau of LVE-CLVEM06 K-P-Anzfaeproj of LVE-CLVEM06 K-P-Sonvergart of LVE-CLVEM06 K-P-Art-Vertragsgruppe of LVE-CLVEM06 K-P-ZWP of LVE-CLVEM06 K-P-BI of LVE-CLVEM06 K-P-VVmitstueko of LVE-CLVEM06 K-P-Realzust of LVE-CLVEM06 Perform Fuellen-Uebergabe-Plausi-EB Perform Aufruf-PLVEM06 If Fehler-Nummer of LVE-CLVEM06 = Zero Then Continue Else Move Fehler-Nummer of LVE-CLVEM06 to Fehler Move Fehlertext of LVE-CLVEM06 to W-Fehlertext-Gesamt End-If If Meldung or ( Fehler-Baustein of LVE-CLVEM06 = Zero and Fehler-Baulfdnr of LVE-CLVEM06 = Zero and Fehler-Beg-Bau of LVE-CLVEM06 = Zero and Fehler-Anzfaeproj of LVE-CLVEM06 = Zero and Fehler-Sonvergart of LVE-CLVEM06 = Zero and Fehler-Art-Vertragsgruppe of LVE-CLVEM06 = Zero and Fehler-ZWP of LVE-CLVEM06 = Zero and Fehler-BI of LVE-CLVEM06 = Zero and Fehler-VVmitstueko of LVE-CLVEM06 = Zero ) Then Continue Else Perform Setzen-Fehlermeldung-EB-Erw End-If Continue. / *---------------------------------------------------------------* * Setzen der Fehlermeldungen * *---------------------------------------------------------------* Setzen-Fehlermeldung-EB-Erw. Evaluate true * *------->Umsetzen der Fehlernummer erforderlich, da sonst * Reihenfolge der Plausis falsch * When Fehler-Beg-Bau of LVE-CLVEM06 = 2814 Move 2769 to Fehler Move Cursor to IBBEG-L (1) Move DFHREVRS to IBBEG-H (1) Move DFHREVRS to IBBEG-H (Ind1) When Fehler-Beg-Bau of LVE-CLVEM06 not = Zero Move Fehler-Beg-Bau of LVE-CLVEM06 to Fehler Move Fehlertext-Beg-Bau of LVE-CLVEM06 to W-Fehlertext-Gesamt Move Cursor to IBBEG-L (Ind1) Move DFHREVRS to IBBEG-H (Ind1) When other Continue End-Evaluate If Fehler-Baustein of LVE-CLVEM06 not = Zero Then Move Fehler-Baustein of LVE-CLVEM06 to Fehler Move Fehlertext-Baustein of LVE-CLVEM06 to W-Fehlertext-Gesamt Move DFHREVRS to IBAU-H (Ind1) Else Continue End-If If Fehler-Sonvergart of LVE-CLVEM06 not = Zero Then Move Fehler-Sonvergart of LVE-CLVEM06 to Fehler Move Fehlertext-Sonvergart of LVE-CLVEM06 to W-Fehlertext-Gesamt Move DFHREVRS to IBAU-H (Ind1) Else Continue End-If If Fehler-Art-Vertragsgruppe of LVE-CLVEM06 not = Zero Then Move Fehler-Art-Vertragsgruppe of LVE-CLVEM06 to Fehler Move Fehlertext-Art-Vertragsgruppe of LVE-CLVEM06 to W-Fehlertext-Gesamt Move DFHREVRS to IBAU-H (Ind1) Else Continue End-If If Fehler-Anzfaeproj of LVE-CLVEM06 not = Zero Then Move Fehler-Anzfaeproj of LVE-CLVEM06 to Fehler Move Fehlertext-Anzfaeproj of LVE-CLVEM06 to W-Fehlertext-Gesamt Move DFHREVRS to IBAU-H (Ind1) Else Continue End-If If Fehler-ZWP of LVE-CLVEM06 not = Zero Then Move Fehler-ZWP of LVE-CLVEM06 to Fehler Move Fehlertext-ZWP of LVE-CLVEM06 to W-Fehlertext-Gesamt Move DFHREVRS to IBAU-H (Ind1) Else Continue End-If If Fehler-BI of LVE-CLVEM06 not = Zero and Not Meldung Then Move Fehler-BI of LVE-CLVEM06 to Fehler Move Fehlertext-BI of LVE-CLVEM06 to W-Fehlertext-Gesamt Move DFHREVRS to IBAU-H (Ind1) Else Continue End-If If Fehler-VVmitstueko of LVE-CLVEM06 not = Zero Then Move Fehler-VVmitstueko of LVE-CLVEM06 to Fehler Move Fehlertext-VVmitstueko of LVE-CLVEM06 to W-Fehlertext-Gesamt Else Continue End-If Continue. / *----------------------------------------------------------------* * Gesamtplausi der bausteinabhängigen Daten * *----------------------------------------------------------------* Plausi-Baustein-Gesamt. 220420* Initialize LVE-CLVEM42 220420 Initialize 220420 Eingabe-Bereich of LVE-CLVEM42 Move W-VNR1 to T-VNR of LVE-CLVEM42 If BDV-Fachgebiet-AVE Of LVE-E-Fachgebiet Then Set BDV-Plausi-AVE of LVE-CLVEM42 to true Else Set BDV-Plausi-LVE of LVE-CLVEM42 to true End-If Move W-Leseart to K-Leseart of LVE-CLVEM42 Move T-Waehrung of LVE-E-neu to T-Waehrung of LVE-CLVEM42 Move All 'N' to Pruefbedingungen of LVE-CLVEM42 Move 'J' to K-P-HV-BS-vorhanden of LVE-CLVEM42 K-P-BS-doppelt of LVE-CLVEM42 K-P-Beginne-gleich of LVE-CLVEM42 K-P-Komponenten-definiert of LVE-CLVEM42 K-P-Personen-definiert of LVE-CLVEM42 K-P-Personen-ZV of LVE-CLVEM42 K-P-Parameter-definiert of LVE-CLVEM42 K-P-Beitrag-Faell-Prod of LVE-CLVEM42 K-P-EBP-BPKP of LVE-CLVEM42 K-P-EBP-BPVJ of LVE-CLVEM42 K-P-Realzust of LVE-CLVEM42 K-P-Beg-Realzust of LVE-CLVEM42 K-P-Baustein-Gen of LVE-CLVEM42 K-P-Baustein-Allg of LVE-CLVEM42 K-P-Bfr-Bez of LVE-CLVEM42 K-P-Bfr-vorhanden of LVE-CLVEM42 K-P-Bfr-doppelt of LVE-CLVEM42 K-P-Leistungsbez of LVE-CLVEM42 Perform Aufruf-PLVEM42 If Fehlernummer of LVE-CLVEM42 = Zero Then Continue Else Move Fehlernummer of LVE-CLVEM42 to Fehler Move Fehlertext of LVE-CLVEM42 to W-Fehlertext-Gesamt End-If If Meldung or ( Fehler-HV-BS-vorhanden of LVE-CLVEM42 = Zero and Fehler-BS-doppelt of LVE-CLVEM42 = Zero and Fehler-Beginne-gleich of LVE-CLVEM42 = Zero and Fehler-Komponenten-definiert of LVE-CLVEM42 = Zero and Fehler-Personen-definiert of LVE-CLVEM42 = Zero and Fehler-Personen-ZV of LVE-CLVEM42 = Zero and Fehler-Parameter-definiert of LVE-CLVEM42 = Zero and Fehler-Beitrag-Faell-Prod of LVE-CLVEM42 = Zero and Fehler-Beitrag-Faell-Prod-Ex of LVE-CLVEM42 = Zero and Fehler-EBP-BPKP of LVE-CLVEM42 = Zero and Fehler-EBP-BPVJ of LVE-CLVEM42 = Zero and Fehler-Realzust of LVE-CLVEM42 = Zero and Fehler-Beg-Realzust of LVE-CLVEM42 = Zero and Fehler-Baustein-Gen of LVE-CLVEM42 = Zero and Fehler-Baustein-Allg of LVE-CLVEM42 = Zero and Fehler-Bfr-Bez of LVE-CLVEM42 = Zero and Fehler-Bfr-vorhanden of LVE-CLVEM42 = Zero and Fehler-Leistungsbez of LVE-CLVEM42 = Zero and Fehler-Bfr-doppelt of LVE-CLVEM42 = Zero ) Then Continue Else If Fehler-HV-BS-vorhanden of LVE-CLVEM42 = Zero Then Continue Else Move Fehler-HV-BS-vorhanden of LVE-CLVEM42 to Fehler Move Fehlertext-HV-BS-vorhanden of LVE-CLVEM42 to W-Fehlertext-Gesamt End-If If Fehler-BS-doppelt of LVE-CLVEM42 = Zero Then Continue Else Move Fehler-BS-doppelt of LVE-CLVEM42 to Fehler Move Fehlertext-BS-doppelt of LVE-CLVEM42 to W-Fehlertext-Gesamt End-If If Fehler-Beginne-gleich of LVE-CLVEM42 = Zero Then Continue Else Move Fehler-Beginne-gleich of LVE-CLVEM42 to Fehler Move Fehlertext-Beginne-gleich of LVE-CLVEM42 to W-Fehlertext-Gesamt End-If If Fehler-Komponenten-definiert of LVE-CLVEM42 = Zero Then Continue Else Move Fehler-Komponenten-definiert of LVE-CLVEM42 to Fehler Move Fehlertext-Komponenten-def of LVE-CLVEM42 to W-Fehlertext-Gesamt End-If If Fehler-Personen-definiert of LVE-CLVEM42 = Zero Then Continue Else Move Fehler-Personen-definiert of LVE-CLVEM42 to Fehler Move Fehlertext-Personen-def of LVE-CLVEM42 to W-Fehlertext-Gesamt End-If If Fehler-Parameter-definiert of LVE-CLVEM42 = Zero Then Continue Else Move Fehler-Parameter-definiert of LVE-CLVEM42 to Fehler Move Fehlertext-Parameter-def of LVE-CLVEM42 to W-Fehlertext-Gesamt End-If If Fehler-Personen-ZV of LVE-CLVEM42 = Zero Then Continue Else Move Fehler-Personen-ZV of LVE-CLVEM42 to Fehler Move Fehlertext-Personen-ZV of LVE-CLVEM42 to W-Fehlertext-Gesamt End-If If Fehler-Baustein-Gen of LVE-CLVEM42 = Zero Then Continue Else Move Fehler-Baustein-Gen of LVE-CLVEM42 to Fehler Move Fehlertext-Baustein-Gen of LVE-CLVEM42 to W-Fehlertext-Gesamt End-If If Fehler-Baustein-Allg of LVE-CLVEM42 = Zero Then Continue Else Move Fehler-Baustein-Allg of LVE-CLVEM42 to Fehler Move Fehlertext-Baustein-Allg of LVE-CLVEM42 to W-Fehlertext-Gesamt End-If If Fehler-Beitrag-Faell-Prod of LVE-CLVEM42 = Zero Then Continue Else Move Fehler-Beitrag-Faell-Prod of LVE-CLVEM42 to Fehler Move Fehlertext-BTG-Faell-Prod of LVE-CLVEM42 to W-Fehlertext-Gesamt Move Cursor to IPFAE-L Move DFHREVRS to IPFAE-H End-If If Fehler-EBP-BPKP of LVE-CLVEM42 = Zero Then Continue Else Move Fehler-EBP-BPKP of LVE-CLVEM42 to Fehler Move Fehlertext-EBP-BPKP of LVE-CLVEM42 to W-Fehlertext-Gesamt End-If If Fehler-EBP-BPVJ of LVE-CLVEM42 = Zero Then Continue Else Move Fehler-EBP-BPVJ of LVE-CLVEM42 to Fehler Move Fehlertext-EBP-BPVJ of LVE-CLVEM42 to W-Fehlertext-Gesamt End-If If Fehler-Realzust of LVE-CLVEM42 = Zero Then Continue Else Move Fehler-Realzust of LVE-CLVEM42 to Fehler Move Fehlertext-Realzust of LVE-CLVEM42 to W-Fehlertext-Gesamt End-If If Fehler-Beg-Realzust of LVE-CLVEM42 = Zero Then Continue Else Move Fehler-Beg-Realzust of LVE-CLVEM42 to Fehler Move Fehlertext-Beg-Realzust of LVE-CLVEM42 to W-Fehlertext-Gesamt End-If If Fehler-Bfr-Bez of LVE-CLVEM42 = Zero Then Continue Else Move Fehler-Bfr-Bez of LVE-CLVEM42 to Fehler Move Fehlertext-Bfr-Bez of LVE-CLVEM42 to W-Fehlertext-Gesamt End-If If Fehler-Bfr-doppelt of LVE-CLVEM42 = Zero Then Continue Else Move Fehler-Bfr-doppelt of LVE-CLVEM42 to Fehler Move Fehlertext-Bfr-doppelt of LVE-CLVEM42 to W-Fehlertext-Gesamt End-If If Fehler-Bfr-vorhanden of LVE-CLVEM42 = Zero Then Continue Else Move Fehler-Bfr-vorhanden of LVE-CLVEM42 to Fehler Move Fehlertext-Bfr-vorhanden of LVE-CLVEM42 to W-Fehlertext-Gesamt End-If If Fehler-Leistungsbez of LVE-CLVEM42 = Zero Then Continue Else Move Fehler-Leistungsbez of LVE-CLVEM42 to Fehler Move Fehlertext-Leistungsbez of LVE-CLVEM42 to W-Fehlertext-Gesamt End-If Perform Setzen-Fehlermeldung-EB-Ges Varying Ind1 from 1 by 1 Until Ind1 > 20 or T-Baustein of LVE-CLVEM42 (Ind1) = Space End-If Continue. / *----------------------------------------------------------------* * Setzen Hinweise auf fehlerhafte Bausteine * *----------------------------------------------------------------* Setzen-Fehlermeldung-EB-Ges. Perform Varying Ind2 from 1 by 1 Until Ind2 > 8 Evaluate true When T-Baustein of LVE-EB-Tabelle (Ind2) = T-Baustein of LVE-CLVEM42 (Ind1) and T-Baulfdnr of LVE-EB-Tabelle (Ind2) = T-Baulfdnr of LVE-CLVEM42 (Ind1) and Fehler-Beginne-gleich of LVE-CLVEM42 = 2769 Move Cursor to IBBEG-L (Ind2) Move DFHREVRS to IBBEG-H (Ind2) When T-Baustein of LVE-EB-Tabelle (Ind2) = T-Baustein of LVE-CLVEM42 (Ind1) and T-Baulfdnr of LVE-EB-Tabelle (Ind2) = T-Baulfdnr of LVE-CLVEM42 (Ind1) Move DFHREVRS to IBAU-H (Ind2) When T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind2) = T-Baustein of LVE-CLVEM42 (Ind1) and T-Baulfdnr-Btrbfrend of LVE-EB-Tabelle (Ind2) = T-Baulfdnr of LVE-CLVEM42 (Ind1) and Fehler-Beginne-gleich of LVE-CLVEM42 = 2769 Move DFHREVRS to IBFR-H (Ind2) When T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind2) = T-Baustein of LVE-CLVEM42 (Ind1) and T-Baulfdnr-Btrbfrend of LVE-EB-Tabelle (Ind2) = T-Baulfdnr of LVE-CLVEM42 (Ind1) Move DFHREVRS to IBFR-H (Ind2) When other Continue End-Evaluate End-Perform Continue. / *----------------------------------------------------------------* * * *----------------------------------------------------------------* Vorbelegen-Zuschlag. Initialize W-VP-Ausl-Ausw-Muss Set Ind-VP-Ausl-Ausw To 1 Perform Vpos-LVE-E-VP-neu Perform Until BDV-E-VP-Nein Or Meldung Perform Vget-LVE-E-VP-neu If Meldung Then Continue Else If T-Bart-VP Of LVE-E-VP-neu = Space Then Continue Else Perform Ermitteln-gueltige-Ausl-pro-VP End-If If Meldung Then Continue Else Perform Ermitteln-Zuschlag-VP End-If End-If If Meldung Then Continue Else Perform Vnext-LVE-E-VP-neu End-If End-Perform Continue. / *---------------------------------------------------------------* 02282914 * gültige Auslösereignisse zur bestimmten VP aus Vertrag * 02283014 * ermitteln * 02283114 *---------------------------------------------------------------* 02283214 Ermitteln-gueltige-Ausl-pro-VP. Initialize Eingabe-Bereich Of LVE-CLVEM17 Move T-Vnr Of LVE-E-Neu To T-Vnr Of LVE-CLVEM17 Move T-Bart-VP Of LVE-E-VP-neu To T-Bart-VP Of LVE-CLVEM17 Set M17-Ind-EB To 1 Perform Varying Ind1 From 1 By 1 Until Ind1 > 8 Or T-Baustein Of LVE-EB-Tabelle (Ind1) = Space Move T-Baustein Of LVE-EB-Tabelle (Ind1) To T-Baustein Of LVE-CLVEM17 (M17-Ind-EB) Move T-Baulfdnr Of LVE-EB-Tabelle (Ind1) To T-Baulfdnr Of LVE-CLVEM17 (M17-Ind-EB) * Im Neuzugang ist das Abgangs-Kennzeichen nicht gefüllt * und der Realzustand immer 1 Move Space To K-Abgang Of LVE-CLVEM17 (M17-Ind-EB) Move '1' To T-Realzust Of LVE-CLVEM17 (M17-Ind-EB) Add 1 To Tab-Rel-Ende-EB Of LVE-CLVEM17 Set M17-Ind-EB Up By 1 If T-Baustein-Btrbfrend Of LVE-EB-Tabelle (Ind1) = Space Then Continue Else Move T-Baustein-Btrbfrend Of LVE-EB-Tabelle (Ind1) To T-Baustein Of LVE-CLVEM17 (M17-Ind-EB) Move T-Baulfdnr-Btrbfrend Of LVE-EB-Tabelle (Ind1) To T-Baulfdnr Of LVE-CLVEM17 (M17-Ind-EB) Move Space To K-Abgang Of LVE-CLVEM17 (M17-Ind-EB) Move '1' To T-Realzust Of LVE-CLVEM17 (M17-Ind-EB) Add 1 To Tab-Rel-Ende-EB Of LVE-CLVEM17 Set M17-Ind-EB Up By 1 End-If End-Perform Set M17-Ind-EBVP To 1 Perform Vpos-LVE-EB-VP-neu Perform Until BDV-EB-VP-Nein Or Meldung Perform Vget-LVE-EB-VP-neu If Meldung Then Continue Else Move T-Baustein Of LVE-EB-VP-neu To T-Baustein-EBVP Of LVE-CLVEM17 (M17-Ind-EBVP) Move T-Baulfdnr Of LVE-EB-VP-neu To T-Baulfdnr-EBVP Of LVE-CLVEM17 (M17-Ind-EBVP) Move T-Bart-VP Of LVE-EB-VP-neu To T-Bart-VP-EBVP Of LVE-CLVEM17 (M17-Ind-EBVP) Move T-Kalkperson Of LVE-EB-VP-neu To T-Kalkperson Of LVE-CLVEM17 (M17-Ind-EBVP) Add 1 To Tab-Rel-Ende-EBVP Of LVE-CLVEM17 Set M17-Ind-EBVP Up By 1 Perform Vnext-LVE-EB-VP-neu End-If End-Perform If Meldung Then Continue Else Move W-Leseart To K-Leseart Of LVE-CLVEM17 Perform Aufruf-PLVEM17 If Fehlernummer Of LVE-CLVEM17 = Zero Then Continue Else Move Fehlernummer Of LVE-CLVEM17 To Fehler Move Fehlertext Of LVE-CLVEM17 To W-Fehlertext-Gesamt End-If End-If Continue. 02282714 / 02282814 *---------------------------------------------------------------* * * *---------------------------------------------------------------* Vpos-LVE-EB-VP-neu. Set BDV-EB-VP-Ja To True EXEC MDB VPOS VNAME ('LVE-EB-VP-NEU') VPOS (1) END-EXEC If Var-Not-Found Or Var-Top-Or-Bot Then Set Bdv-EB-VP-nein To True Else Perform Check-Fehler End-If Continue. / *---------------------------------------------------------------* * * *---------------------------------------------------------------* Vget-LVE-EB-VP-neu. EXEC MDB VGET VNAME ('LVE-EB-VP-NEU') VDATA (LVE-EB-VP-NEU) VDLEN (LENGTH OF LVE-EB-VP-NEU) END-EXEC Perform Check-Fehler Continue. / *---------------------------------------------------------------* * * *---------------------------------------------------------------* Vnext-LVE-EB-VP-neu. EXEC MDB VNEXT VNAME ('LVE-EB-VP-NEU') END-EXEC Perform Check-Ende-MDB-EB-VP-Neu Continue. / *---------------------------------------------------------------* * * *---------------------------------------------------------------* Vpos-LVE-E-VP-neu. Set BDV-E-VP-Ja To True EXEC MDB VPOS VNAME ('LVE-E-VP-NEU') VPOS (1) END-EXEC If Var-Not-Found Or Var-Top-Or-Bot Then Set Bdv-E-VP-nein To True Else Perform Check-Fehler End-If Continue. / *---------------------------------------------------------------* * * *---------------------------------------------------------------* Vget-LVE-E-VP-neu. EXEC MDB VGET VNAME ('LVE-E-VP-NEU') VDATA (LVE-E-VP-NEU) VDLEN (LENGTH OF LVE-E-VP-NEU) END-EXEC Perform Check-Fehler Continue. / *---------------------------------------------------------------* * * *---------------------------------------------------------------* Vnext-LVE-E-VP-neu. EXEC MDB VNEXT VNAME ('LVE-E-VP-NEU') END-EXEC Perform Check-Ende-MDB-E-VP-Neu Continue. / *---------------------------------------------------------------* * * *---------------------------------------------------------------* Ermitteln-Zuschlag-VP. Perform Varying M17-Ind-Ausl From 1 By 1 Until T-Ausloesereignis-A Of LVE-CLVEM17 (M17-Ind-Ausl) = Space Or M17-Ind-Ausl > K-ANZ-LVE-E-VP-AUSLOES Of LVE-CLVEANZ Or Meldung Perform Varying M17-Ind-Ris From 1 By 1 Until T-Riart Of LVE-CLVEM17 (M17-Ind-Ausl, M17-Ind-Ris) = Space Or M17-Ind-Ris > K-Max-Riart Or Meldung Perform Ermitteln-Zuschlag-VP-Riart End-Perform End-Perform Continue. / *---------------------------------------------------------------* * * *---------------------------------------------------------------* Ermitteln-Zuschlag-VP-Riart. Initialize Eingabe-Bereich Of LVE-CLVEM6D Move T-Vnr Of LVE-E-NEU To T-Vnr Of LVE-CLVEM6D Move W-Tab-Datum-num To Tab-Datum Of LVE-CLVEM6D Move T-Bart-VP Of LVE-E-VP-Neu To T-Bart-VP Of LVE-CLVEM6D Move T-Ausloesereignis-A Of LVE-CLVEM17 (M17-Ind-Ausl) To T-Ausloesereignis Of LVE-CLVEM6D Move T-Riart Of LVE-CLVEM17 (M17-Ind-Ausl , M17-Ind-Ris) To T-Riart Of LVE-CLVEM6D Set M6D-Ind-EB To 1 Perform Varying Ind1 From 1 By 1 Until Ind1 > 8 Or T-Baustein Of LVE-EB-Tabelle (Ind1) = Space Move T-Baustein Of LVE-EB-Tabelle (Ind1) To T-Baustein Of LVE-CLVEM6D (M6D-Ind-EB) Add 1 To Tab-Ende-EB Of LVE-CLVEM6D Set M6D-Ind-EB Up By 1 If T-Baustein-Btrbfrend Of LVE-EB-Tabelle (Ind1) = Space Then Continue Else Move T-Baustein-Btrbfrend Of LVE-EB-Tabelle (Ind1) To T-Baustein Of LVE-CLVEM6D (M6D-Ind-EB) Add 1 To Tab-Ende-EB Of LVE-CLVEM6D Set M6D-Ind-EB Up By 1 End-If End-Perform Set M6D-Ind-EB-VP To 1 Perform Vpos-LVE-EB-VP-neu Perform Until BDV-EB-VP-Nein Or Meldung Perform Vget-LVE-EB-VP-neu If Meldung Then Continue Else Move T-Bart-VP Of LVE-EB-VP-neu To T-Bart-VP-EB-VP Of LVE-CLVEM6D (M6D-Ind-EB-VP) Move R-Reinalt Of LVE-EB-VP-neu To R-Reinalt Of LVE-CLVEM6D (M6D-Ind-EB-VP) Add 1 To Tab-Ende-EB-VP Of LVE-CLVEM6D Set M6D-Ind-EB-VP Up By 1 Perform Vnext-LVE-EB-VP-neu End-If End-Perform Move Tab-Rel-Ende Of LVE-E-VP-PM-Neu To Tab-Ende-E-VP-PM Of LVE-CLVEM6D Set M6D-Ind-E-VP-PM To 1 Perform Varying Ind-E-VP-PM From 1 By 1 Until Ind-E-VP-PM > Tab-Rel-Ende Of LVE-E-VP-PM-Neu Move T-Bart-VP Of LVE-E-VP-PM-Neu (Ind-E-VP-PM) To T-Bart-VP-PM Of LVE-CLVEM6D (M6D-Ind-E-VP-PM) Move T-Merkmal Of LVE-E-VP-PM-Neu (Ind-E-VP-PM) To T-Merkmal Of LVE-CLVEM6D (M6D-Ind-E-VP-PM) Move T-Auspraegung-Num Of LVE-E-VP-PM-Neu (Ind-E-VP-PM) To T-Auspraegung-Num Of LVE-CLVEM6D (M6D-Ind-E-VP-PM) Move T-Auspraegung-Alpha Of LVE-E-VP-PM-Neu (Ind-E-VP-PM) To T-Auspraegung-Alpha Of LVE-CLVEM6D (M6D-Ind-E-VP-PM) Set M6D-Ind-E-VP-PM Up By 1 End-Perform Perform Aufruf-PLVEM6D If Fehlernummer Of LVE-CLVEM6D = Zero Then Evaluate True When Bdv-Ueberrisiko-Manuell Of LVE-CLVEM6D * Werte liegen außerhalb der berücksichtigen Grenzen, * es muss manuell ein Zuschlag festgelegt werden Move 'J' To IRISJ-I Perform Erstellen-VP-Ausl-Auswahl-Muss When Bdv-Ueberrisiko-Vorbelegt-Ja Of LVE-CLVEM6D Perform Pruefen-Ueberrisiko-gleich If Bdv-Ueberrisiko-gleich-Ja Then Continue Else Move 'J' To IRISJ-I Perform Erstellen-VP-Ausl-Auswahl-Muss End-If When Bdv-Ueberrisiko-Null Of LVE-CLVEM6D Perform Pruefen-Ueberrisiko-neu When Other Continue End-Evaluate Else Continue End-If Continue. / *----------------------------------------------------------------* * Prüfen, ob das Überrisiko den Wert der Vorbelegung hat * *----------------------------------------------------------------* Pruefen-Ueberrisiko-gleich. Set Bdv-Ueberrisiko-gleich-Nein To True Set Bdv-E-VP-Risiko-Ja To True EXEC MDB VPOS VNAME ('LVE-E-VP-RISIKO-NEU') VPOS (1) END-EXEC If Var-Not-Found Or Var-Top-or-Bot Then Set BDV-E-VP-Risiko-Nein to true Else Perform Check-Fehler End-If Perform Until BDV-E-VP-Risiko-Nein Or Bdv-Ueberrisiko-gleich-Ja Or Meldung EXEC MDB VGET VNAME ('LVE-E-VP-RISIKO-NEU') VDATA (LVE-E-VP-RISIKO-NEU) VDLEN (LENGTH OF LVE-E-VP-RISIKO-NEU) END-EXEC Perform Check-Fehler If Meldung Then Continue Else If T-Bart-VP Of LVE-E-VP-Risiko-Neu = T-Bart-VP Of LVE-CLVEM6D And T-Ausloesereignis Of LVE-E-VP-Risiko-Neu = T-Ausloesereignis Of LVE-CLVEM6D And T-Riart Of LVE-E-VP-Risiko-Neu = T-Riart Of LVE-CLVEM6D And R-Ueberrisiko-R Of LVE-E-VP-Risiko-Neu = R-Ueberrisiko Of LVE-CLVEM6D Then Set Bdv-Ueberrisiko-gleich-Ja To True Else Continue End-If EXEC MDB VNEXT VNAME ('LVE-E-VP-RISIKO-NEU') END-EXEC Perform Check-Ende-MDB-E-VP-Risiko End-If End-Perform Continue. / *----------------------------------------------------------------* * Wenn eine Vorbelegung eines Ueris erfolgt, * * muss das Ausloesereignis auf der Maske ausgewählt werden * *----------------------------------------------------------------* Erstellen-VP-Ausl-Auswahl-Muss. Set Bdv-Gefunden-Nein To True Perform Varying Ind1 From 1 By 1 Until Ind1 > Tab-VP-Ausl-Ausw-Muss-Ende Or Bdv-Gefunden-Ja If T-Bart-VP Of LVE-CLVEM6D = T-Bart-Ausw Of Tab-VP-Ausl-Ausw-Muss (Ind1) And T-Ausloesereignis Of LVE-CLVEM6D = T-Ausloesereignis-Ausw Of Tab-VP-Ausl-Ausw-Muss (Ind1) Then Set Bdv-Gefunden-Ja To True Else Continue End-If End-Perform If Bdv-Gefunden-Ja Then Continue Else Add 1 To Tab-VP-Ausl-Ausw-Muss-Ende If BDV-VP-Ausl-Ausw-Muss-Ende-OK Then Move T-Bart-VP Of LVE-CLVEM6D To T-Bart-Ausw Of Tab-VP-Ausl-Ausw-Muss (Ind-VP-Ausl-Ausw) Move T-Ausloesereignis Of LVE-CLVEM6D To T-Ausloesereignis-Ausw Of Tab-VP-Ausl-Ausw-Muss (Ind-VP-Ausl-Ausw) Set Ind-VP-Ausl-Ausw Up By 1 Else Move 0978 To Fehler End-If End-If Continue. / *----------------------------------------------------------------* * Wenn im MDB zu VP, Ausloesereignis und Risikoart * * ein Überrisiko da ist, muss die Überrisikenmaske dazu * * auch ausgewählt werden, da dies in diesem Fall eigentlich * * Null sein müsste * *----------------------------------------------------------------* Pruefen-Ueberrisiko-neu. Set BDV-E-VP-Risiko-Ja To True EXEC MDB VPOS VNAME ('LVE-E-VP-RISIKO-NEU') VPOS (1) END-EXEC If Var-Not-Found Or Var-Top-or-Bot Then Set BDV-E-VP-Risiko-Nein to true Else Perform Check-Fehler End-If Perform Until BDV-E-VP-Risiko-Nein Or Meldung EXEC MDB VGET VNAME ('LVE-E-VP-RISIKO-NEU') VDATA (LVE-E-VP-RISIKO-NEU) VDLEN (LENGTH OF LVE-E-VP-RISIKO-NEU) END-EXEC Perform Check-Fehler If Meldung Then Continue Else If T-Bart-VP Of LVE-E-VP-Risiko-Neu = T-Bart-VP Of LVE-CLVEM6D And T-Ausloesereignis Of LVE-E-VP-Risiko-Neu = T-Ausloesereignis Of LVE-CLVEM6D And T-Riart Of LVE-E-VP-Risiko-Neu = T-Riart Of LVE-CLVEM6D Then Move T-Bart-VP Of LVE-E-VP-Risiko-Neu To W-Bart-VP-Muss Move T-Ausloesereignis Of LVE-E-VP-Risiko-Neu To W-Ausloesereignis-Muss Perform Ergaenzen-VP-Ausl-Auswahl-Muss Else Continue End-If EXEC MDB VNEXT VNAME ('LVE-E-VP-RISIKO-NEU') END-EXEC Perform Check-Ende-MDB-E-VP-Risiko End-If End-Perform Continue. / *----------------------------------------------------------------* * * *----------------------------------------------------------------* Ergaenzen-VP-Ausl-Auswahl-Muss. Set Bdv-Gefunden-Nein To True Perform Varying Ind1 From 1 By 1 Until Ind1 > Tab-VP-Ausl-Ausw-Muss-Ende Or Bdv-Gefunden-Ja If W-Bart-VP-Muss = T-Bart-Ausw Of Tab-VP-Ausl-Ausw-Muss (Ind1) And W-Ausloesereignis-Muss = T-Ausloesereignis-Ausw Of Tab-VP-Ausl-Ausw-Muss (Ind1) Then Set Bdv-Gefunden-Ja To True Else Continue End-If End-Perform If Bdv-Gefunden-Ja Then Continue Else Add 1 To Tab-VP-Ausl-Ausw-Muss-Ende If BDV-VP-Ausl-Ausw-Muss-Ende-OK Then Move W-Bart-VP-Muss To T-Bart-Ausw Of Tab-VP-Ausl-Ausw-Muss (Ind-VP-Ausl-Ausw) Move W-Ausloesereignis-Muss To T-Ausloesereignis-Ausw Of Tab-VP-Ausl-Ausw-Muss (Ind-VP-Ausl-Ausw) Set Ind-VP-Ausl-Ausw Up By 1 Else Move 0978 To Fehler End-If End-If Continue. / *----------------------------------------------------------------* * Prüfen, ob Baustein ausgewählt wurde * *----------------------------------------------------------------* Auswahl. EXEC MDB VGET VNAME (SYSID4) VDATA (W-Ordnungsbegriff-Auswahl1) VDLEN (LENGTH OF W-ORDNUNGSBEGRIFF-AUSWAHL1) END-EXEC Perform Check-Fehler If Meldung Then Continue Else Perform Pruefen-Auswahl End-If Continue. / *----------------------------------------------------------------* * Prüfen der Auswahl und setzen Ordnungsbegriff für Weiter- * * verarbeitung * *----------------------------------------------------------------* Pruefen-Auswahl. Set BDV-Einzel-Nein to true Set BDV-Gesamt-Nein to true Evaluate true When not Ret-Enter Move 0145 to Fehler When W-Ordnungsbegriff-Auswahl1 = Space or W-Ordnungsbegriff-Auswahl1 (1:11) = VNR-I Move Space to W-Ordnungsbegriff-Folge Move VNR-I to W-VNR-Folge Set BDV-Aen-Nein to true If IPERS-I = 'J' Then Continue Else Perform Varying Ind2 from 1 by 1 Until Ind2 > 8 or Meldung If T-Baustein of LVE-EB-Tabelle (Ind2) not = Space and K-Zeile-Aufgerufen of LVE-EB-Tabelle (Ind2) = Space Then Move 2793 to Fehler Move DFHREVRS to IBAU-H (Ind2) Else Continue End-If End-Perform End-If If Meldung Then Continue Else Perform Setzen-Schalter End-If When W-Nr numeric and W-OB-Rest-Erst1 = Space Move W-Nr to Ind1 If NR-I (Ind1) not numeric or Ind1 > 8 Then Move 0069 to Fehler Else Set Bdv-Einzel-ja to true If Meldung Then Continue Else Move Space to W-Ordnungsbegriff-Folge Move VNR-I to W-VNR-Folge 220420 Move 'J' 220420 to K-Zeile-Aufgerufen 220420 of LVE-EB-Tabelle (Ind1) Set BDV-Aen-Ja to true Perform Setzen-Schalter End-If 220420 If Meldung 220420 Then 220420 Continue 220420 Else 220420 Perform Fuellen-LVE-EB-Aenderung 220420 End-If End-If When other Move 0069 to Fehler End-Evaluate Continue. / *----------------------------------------------------------------* * Setzen Schalter für Transaktionsfolgensteuerung * *----------------------------------------------------------------* Setzen-Schalter. EXEC MDB VINS VNAME ('BDV-AEN') VDATA (BDV-AEN) VDLEN (LENGTH OF BDV-AEN) END-EXEC Perform Check-Fehler If Meldung Then Continue Else EXEC MDB VINS VNAME ('BDV-EINZEL') VDATA (BDV-EINZEL) VDLEN (LENGTH OF BDV-EINZEL) END-EXEC Perform Check-Fehler End-If If Meldung Then Continue Else If IZWPERG-I = 'J' Then Set BDV-ZWP-Upd-Ja to true Else Set BDV-ZWP-Upd-Nein to true End-If EXEC MDB VINS VNAME ('BDV-ZWP-UPD') VDATA (BDV-ZWP-UPD) VDLEN (LENGTH OF BDV-ZWP-UPD) END-EXEC Perform Check-Fehler End-If If Meldung Then Continue Else If IRISJ-I = 'J' Then Set BDV-Ris-Upd-Ja to true Else Set BDV-Ris-Upd-Nein to true End-If EXEC MDB VINS VNAME ('BDV-RIS-UPD') VDATA (BDV-RIS-UPD) VDLEN (LENGTH OF BDV-RIS-UPD) END-EXEC Perform Check-Fehler End-If If Meldung Then Continue Else If IPERS-I = 'J' Then Set BDV-Personendaten-Ja to true Else Set BDV-Personendaten-Nein to true End-If EXEC MDB VINS VNAME ('BDV-PERS') VDATA (BDV-Personendaten) VDLEN (LENGTH OF BDV-Personendaten) END-EXEC Perform Check-Fehler End-If If Meldung Then Continue Else EXEC MDB VINS VNAME ('BDV-GESAMT') VDATA (BDV-GESAMT) VDLEN (LENGTH OF BDV-GESAMT) END-EXEC Perform Check-Fehler End-If 220420*--> Baustein an Folgeprogramme nur weitergeben, 220420* wenn Baustein ausgewählt wurde 220420* (daher weitgehend in eigenen Paragrafen verlagert) 220420* 220420* If Meldung 220420* Then 220420* Continue 220420* Else 220420* Initialize LVE-EB-Aenderung 220420* 220420* Move 'J' 220420* to K-Zeile-Aufgerufen of LVE-EB-Tabelle (Ind1) 220420* 220420* Move IBAU-I (Ind1) 220420* to T-Baustein of LVE-EB-Aenderung (2) 220420* 220420* If IBNR-I (Ind1) = Space 220420* Then 220420* Move Zero 220420* to T-Baulfdnr of LVE-EB-Aenderung (2) 220420* Else 220420* Move IBNR-I (Ind1) 220420* to T-Baulfdnr of LVE-EB-Aenderung (2) 220420* End-If 220420* 220420* EXEC MDB VINS 220420* VNAME ('LVE-EB-AENDERUNG') 220420* VDATA (LVE-EB-Aenderung) 220420* VDLEN (LENGTH OF LVE-EB-AENDERUNG) 220420* END-EXEC 220420* 220420* Perform Check-Fehler 220420* End-If If Meldung Then Continue Else EXEC MDB VUPD VNAME ('LVE-EB-TABELLE') VDATA (LVE-EB-TABELLE) VDLEN (LENGTH OF LVE-EB-TABELLE) END-EXEC Perform Check-Fehler End-If If Meldung Then Continue Else Perform Pruefen-ob-Zusatzbausteine End-If If Meldung Then Continue Else EXEC MDB VINS VNAME ('BDV-ZUSVER') VDATA (Bdv-ZUSVER) VDLEN (LENGTH OF Bdv-Zusver) END-EXEC Perform Check-Fehler End-If Continue. / *---------------------------------------------------------------* * *---------------------------------------------------------------* 220420 Fuellen-LVE-EB-Aenderung. Initialize LVE-EB-Aenderung Move IBAU-I (Ind1) to T-Baustein of LVE-EB-Aenderung (2) If IBNR-I (Ind1) = Space Then Move Zero to T-Baulfdnr of LVE-EB-Aenderung (2) Else Move IBNR-I (Ind1) to T-Baulfdnr of LVE-EB-Aenderung (2) End-If EXEC MDB VINS VNAME ('LVE-EB-AENDERUNG') VDATA (LVE-EB-Aenderung) VDLEN (LENGTH OF LVE-EB-AENDERUNG) END-EXEC Perform Check-Fehler Continue. / *---------------------------------------------------------------* * * Anzahl der Bausteine (ohne Üb-Bausteine) wurde ermittelt * * * * Wenn Anzahl der Bausteine > 1 * * Dann * * Zusatzbausteine vorhanden * * Sonst * * Vertrag besitzt keine Zusatzbausteine * * Ende-Wenn * *---------------------------------------------------------------* Pruefen-ob-Zusatzbausteine. If W-Anz-Bausteine > 1 Then Set Bdv-Zusver-ja To True Else Set Bdv-Zusver-nein To True End-If Continue. / *----------------------------------------------------------------* * Prüfen, ob Eingabe gemacht * *----------------------------------------------------------------* Pruefen-ob-Eingabe. Set BDV-keine-Eingabe to true Perform Varying Ind1 from 1 by 1 Until Ind1 > 8 If IBAU-L (Ind1) > Zero or IBFR-L (Ind1) > Zero or IOFUM-L (Ind1) > Zero or IBBEG-L (Ind1) > Zero Then Set BDV-Eingabe to true Else Continue End-If End-Perform If IPFAE-L > Zero or IVB-L > Zero or IRISJ-L > Zero or IZWP-L > Zero or IZWPA-L > Zero or IZWPP-L > Zero or IZWPERG-L > Zero or IPERS-L > Zero or IBFRVP-L > Zero Then Set BDV-Eingabe to true Else Continue End-If Continue. / *----------------------------------------------------------------* * Update der geänderten Daten im MDB * *----------------------------------------------------------------* Update-MDB. If Meldung Then Continue Else Perform Update-MDB-E-ZWP End-If If Meldung Then Continue Else Perform Varying Ind1 from 1 by 1 Until Ind1 > 8 or T-Baustein of LVE-EB-Tabelle (Ind1) = Space Perform Update-MDB-EB If Meldung or T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind1) = Space Then Continue Else Perform Update-MDB-EB-Bfr End-If End-Perform End-If If Meldung or IBFRVP-I = Space Then Continue Else Perform Update-MDB-VP-Bfr End-If If Meldung Then Continue Else Perform Update-MDB-VP-Ausl-Ausw-Muss End-If Continue. / *----------------------------------------------------------------* * Update der geänderten Vertragsdaten im MDB * *----------------------------------------------------------------* Update-MDB-E. EXEC MDB VGET VNAME ('LVE-E-NEU') VDATA (LVE-E-Neu) VDLEN (LENGTH OF LVE-E-NEU) END-EXEC Perform Check-Fehler If Meldung Then Continue Else Move R-Beitrag-Faell-Prod Of Uebergabe-PLVEMP1 (2) to R-Beitrag-Faell-Prod of LVE-E-Neu Move R-Beitrag-Faell-Prod-Exakt Of Uebergabe-PLVEMP1 (2) to R-Beitrag-Faell-Prod-Exakt of LVE-E-Neu Move T-Status-Beitrag-Faell-Prod Of Uebergabe-PLVEMP1 (2) to T-Status-Beitrag-Faell-Prod of LVE-E-Neu EXEC MDB VUPD VNAME ('LVE-E-NEU') VDATA (LVE-E-Neu) VDLEN (LENGTH OF LVE-E-NEU) END-EXEC Perform Check-Fehler End-If Continue. / / *----------------------------------------------------------------* * Update der geänderten ZWP-Daten im MDB * *----------------------------------------------------------------* Update-MDB-E-ZWP. EXEC MDB VGET VNAME ('LVE-E-ZWP-NEU') VDATA (LVE-E-ZWP-Neu) VDLEN (LENGTH OF LVE-E-ZWP-NEU) END-EXEC Perform Check-Fehler If Meldung Then Continue Else Move K-ZWP of LVE-CLVEM02 (2) to K-ZWP of LVE-E-ZWP-Neu Move T-ZWPArt of LVE-CLVEM02 (2) to T-ZWPArt of LVE-E-ZWP-Neu Move R-Prozind-ZWP of LVE-CLVEM02 (2) to R-Prozind-ZWP of LVE-E-ZWP-Neu If K-ZWP of LVE-E-ZWP-Neu = 'J' Then If T-Rhythmus-ZWP of LVE-E-ZWP-Neu = Zero Then Move 01 to T-Rhythmus-ZWP of LVE-E-ZWP-Neu Else Continue End-If * *------------->Achtung ZWP-Rhythmusbeginn wird immer angepaßt * Else Move Zero to T-Rhythmus-ZWP of LVE-E-ZWP-Neu End-If If K-Faehig-ZWP of LVE-E-ZWP-Neu = Space Then Move 'J' to K-Faehig-ZWP of LVE-E-ZWP-Neu Else Continue End-If EXEC MDB VUPD VNAME ('LVE-E-ZWP-NEU') VDATA (LVE-E-ZWP-Neu) VDLEN (LENGTH OF LVE-E-ZWP-NEU) END-EXEC Perform Check-Fehler End-If Continue. / *----------------------------------------------------------------* * Update der geänderten Bausteindaten im MDB * *----------------------------------------------------------------* Update-MDB-EB. Set BDV-Gefunden-Nein to true Perform Vpos-LVE-EB-neu Perform Suchen-EB Until Meldung or BDV-EB-Nein or BDV-Gefunden-Ja Evaluate true When Meldung Continue When BDV-Gefunden-Ja Perform Update-EB When other Perform Insert-EB End-Evaluate Continue. / *----------------------------------------------------------------* * Suchen, ob Baustein schon im MDB vorhanden * *----------------------------------------------------------------* Suchen-EB. EXEC MDB VGET VNAME ('LVE-EB-NEU') VDATA (LVE-EB-NEU) VDLEN (LENGTH OF LVE-EB-NEU) END-EXEC Perform Check-Fehler Evaluate true When Meldung Continue When T-Baustein of LVE-EB-Neu = T-Baustein of LVE-EB-Tabelle (Ind1) and T-Baulfdnr of LVE-EB-Neu = T-Baulfdnr of LVE-EB-Tabelle (Ind1) Set BDV-Gefunden-Ja to true When other EXEC MDB VNEXT VNAME ('LVE-EB-NEU') END-EXEC Perform Check-Ende-MDB-EB-Neu End-Evaluate Continue. / *----------------------------------------------------------------* * Update Baustein im MDB * *----------------------------------------------------------------* Update-EB. Perform Fuellen-EB-Daten EXEC MDB VUPD VNAME ('LVE-EB-NEU') VDATA (LVE-EB-NEU) VDLEN (LENGTH OF LVE-EB-NEU) END-EXEC Perform Check-Fehler Continue. / *----------------------------------------------------------------* * Insert Baustein im MDB * *----------------------------------------------------------------* Insert-EB. Initialize LVE-EB-Neu Perform Fuellen-EB-Daten EXEC MDB VINS VNAME ('LVE-EB-NEU') VDATA (LVE-EB-NEU) VDLEN (LENGTH OF LVE-EB-NEU) END-EXEC Perform Check-Fehler Continue. / *----------------------------------------------------------------* * Füllen Bausteindaten * *----------------------------------------------------------------* Fuellen-EB-Daten. Move T-Baustein of LVE-EB-Tabelle (Ind1) to T-Baustein of LVE-EB-Neu Move T-Baulfdnr of LVE-EB-Tabelle (Ind1) to T-Baulfdnr of LVE-EB-Neu Move T-Baustein-Vor of LVE-EB-Tabelle (Ind1) to T-Baustein-Vor of LVE-EB-Neu Move T-Baulfdnr-Vor of LVE-EB-Tabelle (Ind1) to T-Baulfdnr-Vor of LVE-EB-Neu Move D-Vers-Beginn of LVE-E-Neu to D-Kalkzpkt-Baustein of LVE-EB-Neu Move IBBEG-I (Ind1) to W-Datum2 Move Corr W-Datum2 to W-Datum1 Move W-Datum1 to D-Beg-Bau of LVE-EB-Neu D-Beg-Realzust of LVE-EB-Neu Move '1' to T-Realzust of LVE-EB-Neu Move 'G' to T-Status-Beitrag-Faell-Bau of LVE-EB-Neu Move Space to T-Status-DK of LVE-EB-Neu * *--->im Neuzugang wird immer mit der optimalsten SUM-Version * gearbeitet * Perform Vorbelegen-Version Continue. / *----------------------------------------------------------------* * Vorbelegen des Versionskennzeichens bei neuem Baustein * *----------------------------------------------------------------* Vorbelegen-Version. Move Low-Value To Uebergabe-PLVDRY Move T-Baustein of LVE-EB-Neu To LVDRY-Baustein Move W-Leseart To LVDRY-BDV-Leseart Perform Aufruf-PLVDRY Evaluate true When LVDRY-Meldung Move LVDRY-Fehler to Fehler When LVDRY-SUMVersion = '4' Set BDV-SUM4 of LVE-EB-Neu to true When other Set BDV-SUM5 of LVE-EB-Neu to true End-Evaluate Continue. / *----------------------------------------------------------------* * Update der geänderten Bausteindaten im MDB für Beitrags- * * befreiung * *----------------------------------------------------------------* Update-MDB-EB-Bfr. Set BDV-Gefunden-Nein to true Perform Vpos-LVE-EB-neu Perform Suchen-EB-Bfr Until Meldung or BDV-EB-Nein or BDV-Gefunden-Ja Evaluate true When Meldung Continue When BDV-Gefunden-Ja Perform Update-EB-Bfr When other Perform Insert-EB-Bfr End-Evaluate Continue. / *----------------------------------------------------------------* * Suchen, ob Baustein schon im MDB vorhanden * *----------------------------------------------------------------* Suchen-EB-Bfr. EXEC MDB VGET VNAME ('LVE-EB-NEU') VDATA (LVE-EB-NEU) VDLEN (LENGTH OF LVE-EB-NEU) END-EXEC Perform Check-Fehler Evaluate true When Meldung Continue When T-Baustein of LVE-EB-Neu = T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind1) and T-Baulfdnr of LVE-EB-Neu = T-Baulfdnr-Btrbfrend of LVE-EB-Tabelle (Ind1) Set BDV-Gefunden-Ja to true When other EXEC MDB VNEXT VNAME ('LVE-EB-NEU') END-EXEC Perform Check-Ende-MDB-EB-Neu End-Evaluate Continue. / *----------------------------------------------------------------* * Update Baustein im MDB * *----------------------------------------------------------------* Update-EB-Bfr. Perform Fuellen-EB-Bfr-Daten EXEC MDB VUPD VNAME ('LVE-EB-NEU') VDATA (LVE-EB-NEU) VDLEN (LENGTH OF LVE-EB-NEU) END-EXEC Perform Check-Fehler Continue. / *----------------------------------------------------------------* * Insert Baustein im MDB * *----------------------------------------------------------------* Insert-EB-Bfr. Initialize LVE-EB-Neu Perform Fuellen-EB-Bfr-Daten EXEC MDB VINS VNAME ('LVE-EB-NEU') VDATA (LVE-EB-NEU) VDLEN (LENGTH OF LVE-EB-NEU) END-EXEC Perform Check-Fehler Continue. / *----------------------------------------------------------------* * Füllen Bausteindaten für Beitragsbefreiung * *----------------------------------------------------------------* Fuellen-EB-Bfr-Daten. Move T-Baustein-Btrbfrend of LVE-EB-Tabelle (Ind1) to T-Baustein of LVE-EB-Neu Move T-Baulfdnr-Btrbfrend of LVE-EB-Tabelle (Ind1) to T-Baulfdnr of LVE-EB-Neu Move T-Baustein-Btrbfrend-Vor of LVE-EB-Tabelle (Ind1) to T-Baustein-Vor of LVE-EB-Neu Move T-Baulfdnr-Btrbfrend-Vor of LVE-EB-Tabelle (Ind1) to T-Baulfdnr-Vor of LVE-EB-Neu Move 'BFR' to T-Baubart of LVE-EB-Neu Move T-Baustein of LVE-EB-Tabelle (Ind1) to T-Baustein-Bez of LVE-EB-Neu Move T-Baulfdnr of LVE-EB-Tabelle (Ind1) to T-Baulfdnr-Bez of LVE-EB-Neu Move D-Vers-Beginn of LVE-E-Neu to D-Kalkzpkt-Baustein of LVE-EB-Neu Move IBBEG-I (Ind1) to W-Datum2 Move Corr W-Datum2 to W-Datum1 Move W-Datum1 to D-Beg-Bau of LVE-EB-Neu D-Beg-Realzust of LVE-EB-Neu Move '1' to T-Realzust of LVE-EB-Neu Move 'G' to T-Status-Beitrag-Faell-Bau of LVE-EB-Neu Move Space to T-Status-DK of LVE-EB-Neu * *--->im Neuzugang wird immer mit der optimalsten SUM-Version * gearbeitet * Perform Vorbelegen-Version Continue. / *----------------------------------------------------------------* * Update der VP, für die BUZ-Beitragsbefreiung vereinbart * *----------------------------------------------------------------* Update-MDB-VP-Bfr. EXEC MDB VGET VNAME ('LVE-VP-BFR-NEU') VDATA (LVE-VP-BFR-NEU) VDLEN (LENGTH OF LVE-VP-BFR-NEU) END-EXEC Evaluate true When MDBOK Move IBFRVP-I to T-BART-VP of LVE-VP-Bfr-Neu EXEC MDB VUPD VNAME ('LVE-VP-BFR-NEU') VDATA (LVE-VP-BFR-Neu) VDLEN (LENGTH OF LVE-VP-BFR-NEU) END-EXEC Perform Check-Fehler When Var-Not-Found Move IBFRVP-I to T-BART-VP of LVE-VP-Bfr-Neu EXEC MDB VINS VNAME ('LVE-VP-BFR-NEU') VDATA (LVE-VP-BFR-Neu) VDLEN (LENGTH OF LVE-VP-BFR-NEU) END-EXEC Perform Check-Fehler When other Move 5045 to Fehler End-Evaluate Continue. / *----------------------------------------------------------------* * Update für Mussauswahl auf Überrisikenmaske * *----------------------------------------------------------------* Update-MDB-VP-Ausl-Ausw-Muss. EXEC MDB VUPD VNAME ('TAB-VP-AUSL-AUSW-MUSS') VDATA (TAB-VP-AUSL-AUSW-MUSS) VDLEN (LENGTH OF TAB-VP-AUSL-AUSW-MUSS) END-EXEC Evaluate true When MDBOK Continue When Var-Not-Found EXEC MDB VINS VNAME ('TAB-VP-AUSL-AUSW-MUSS') VDATA (TAB-VP-AUSL-AUSW-MUSS) VDLEN (LENGTH OF TAB-VP-AUSL-AUSW-MUSS) END-EXEC Perform Check-Fehler When other Move 5045 to Fehler End-Evaluate Continue. / *----------------------------------------------------------------* * Update des Ordnungsbegriffes * *----------------------------------------------------------------* Update-Ordnungsbegriff-Folge. EXEC MDB VUPD VNAME (SYSID4) VDATA (W-Ordnungsbegriff-Folge) VDLEN (LENGTH OF W-ORDNUNGSBEGRIFF-FOLGE) END-EXEC Perform Check-Fehler If Meldung Then Continue Else EXEC MDB VINS VNAME ('W-IND-PARAMETER') VDATA (W-IND-PARAMETER) VDLEN (LENGTH OF W-IND-PARAMETER) END-EXEC Perform Check-Fehler End-If If Meldung Then Continue Else EXEC MDB VINS VNAME ('W-IND-PARAMETER-BFR') VDATA (W-IND-PARAMETER-BFR) VDLEN (LENGTH OF W-IND-PARAMETER-BFR) END-EXEC Perform Check-Fehler End-If If Meldung Then Continue Else EXEC MDB VINS VNAME ('W-IND-PARAMETER-ALPHA') VDATA (W-IND-PARAMETER) VDLEN (LENGTH OF W-IND-PARAMETER) END-EXEC Perform Check-Fehler End-If If Meldung Then Continue Else EXEC MDB VINS VNAME ('W-IND-PARAMETER-ALPHA-BFR') VDATA (W-IND-PARAMETER-BFR) VDLEN (LENGTH OF W-IND-PARAMETER-BFR) END-EXEC Perform Check-Fehler End-If If Meldung Then Continue Else EXEC MDB VINS VNAME ('W-IND-PARAMETER-NUM') VDATA (W-IND-PARAMETER) VDLEN (LENGTH OF W-IND-PARAMETER) END-EXEC Perform Check-Fehler End-If If Meldung Then Continue Else EXEC MDB VINS VNAME ('W-IND-PARAMETER-NUM-BFR') VDATA (W-IND-PARAMETER-BFR) VDLEN (LENGTH OF W-IND-PARAMETER-BFR) END-EXEC Perform Check-Fehler End-If If Meldung Then Continue Else Set Ret-Exit to true End-If Continue. / *----------------------------------------------------------------* * Unterprogrammaufrufe * *----------------------------------------------------------------* Aufruf-PLVET73. Call PLVET73-Dynamisch Using DFHEIBLK Uebergabe-PLVET73 End-Call Continue. Aufruf-PLVDQI. Call PLVDQI-dynamisch Using DFHEIBLK Uebergabe-PLVDQI End-Call Continue. Aufruf-PLVDRY. Call PLVDRY-Dynamisch Using DFHEIBLK Uebergabe-PLVDRY Continue. Aufruf-PLVEM02. *Aufruf über Zwischenprogramm PLVEME6 COPY CDIAWVPF. Call PLVEME6-dynamisch USING DFHEIBLK Uebergabe-PLVEM02 End-Call COPY CDIARVP. Continue. Aufruf-PLVEM06. Copy CDIAWVPF. Call PLVEME7-Dynamisch Using DFHEIBLK Uebergabe-PLVEM06 End-Call Copy CDIARVP. Continue. Aufruf-PLVEM09. Copy CDIAWVPF. Call PLVEM09-dynamisch Using DFHEIBLK Uebergabe-PLVEM09 End-Call Copy CDIARVP. Continue. Aufruf-PLVEM17. Call PLVEM17-dynamisch Using DFHEIBLK Uebergabe-PLVEM17 End-Call Continue. Aufruf-PLVEM42. Copy CDIAWVPF. Call PLVEM42-dynamisch Using DFHEIBLK Uebergabe-PLVEM42 End-Call Copy CDIARVP. Continue. Aufruf-PLVEM54. Copy CDIAWVPF. Call PLVEM54-dynamisch Using DFHEIBLK Uebergabe-PLVEM54 End-Call Copy CDIARVP. Continue. Aufruf-PLVEM62. Copy CDIAWVPF. Call PLVEM62-dynamisch Using DFHEIBLK Uebergabe-PLVEM62 End-Call Copy CDIARVP. Continue. Aufruf-PLVEM67. Copy CDIAWVPF. Call PLVEM67-dynamisch Using DFHEIBLK Uebergabe-PLVEM67 End-Call Copy CDIARVP. Continue. / Aufruf-PLVEM6D. Call PLVEM6D-dynamisch Using DFHEIBLK Uebergabe-PLVEM6D End-Call Continue. / *----------------------------------------------------------------* * allgemeine Routinen * *----------------------------------------------------------------* Check-Fehler. If not MDBOK Then Move 5045 to Fehler Else Continue End-If Continue. Check-Ende-MDB-EB-Neu. Evaluate true when MDBOK Continue when VAR-TOP-OR-BOT Set BDV-EB-Nein to true when other Perform Check-Fehler End-Evaluate Continue. Check-Ende-MDB-EB-VP-Neu. Evaluate true when MDBOK Continue when VAR-TOP-OR-BOT Set BDV-EB-VP-Nein to true when other Perform Check-Fehler End-Evaluate Continue. Check-Ende-MDB-E-VP-Neu. Evaluate true when MDBOK Continue when VAR-TOP-OR-BOT Set BDV-E-VP-Nein to true when other Perform Check-Fehler End-Evaluate Continue. Check-Ende-MDB-E-VP-Risiko. Evaluate true when MDBOK Continue when VAR-TOP-OR-BOT Set BDV-E-VP-Risiko-Nein To True when other Perform Check-Fehler End-Evaluate Continue. Update-Sysfnr. EXEC MDB VUPD VNAME (SYSFNR) VDATA (FEHLER) VDLEN (LENGTH OF FEHLER) END-EXEC 220420* If W-Fehlertext-Gesamt = Space 220420* Then 220420* Continue 220420* Else Unstring W-Fehlertext-Gesamt Delimited by '#' Into Fehlertext1 Fehlertext2 Fehlertext3 End-Unstring 220420* If Fehlertext1 = Space 220420* Then 220420* Continue 220420* Else EXEC MDB VINS VNAME(SYSFPARM) VID('#1') VDATA(Fehlertext1) VDLEN(Length of Fehlertext1) END-EXEC 220420* End-If 220420* If Fehlertext2 = Space 220420* Then 220420* Continue 220420* Else EXEC MDB VINS VNAME(SYSFPARM) VID('#2') VDATA(Fehlertext2) VDLEN(Length of Fehlertext2) END-EXEC 220420* End-If 220420* If Fehlertext3 = Space 220420* Then 220420* Continue 220420* Else EXEC MDB VINS VNAME(SYSFPARM) VID('#3') VDATA(Fehlertext3) VDLEN(Length of Fehlertext3) END-EXEC 220420* End-If 220420* End-If Continue. / *----------------------------------------------------------------* * Programm-Ende * *----------------------------------------------------------------* * Programm-Ende. Goback.