Letzten Satz aus Datei lesen

[Dw4rf79]

Hallo zusammen,
ich soll aus einem Table den "letzten" Satz, sprich den Satz mit der höchsten Adressnummer auslesen. Diese Adressnummer soll bei Neuanlage einer Adresse um eins erhöht werden.
Kann mir jemand sagen, wo der Fehler in PrcMaxAdrNr liegt?


Table


0002.00 CREATE TABLE YYPERR
0003.00
0004.00 (PERMANDA CHAR (05) WITH DEFAULT ' ' ,
0005.00 PERFIRMA CHAR (03) WITH DEFAULT ' ' ,
0006.00 PERADRNR NUMERIC (4 , 0) WITH DEFAULT 0 ,
0007.00 PERANRED CHAR (04) WITH DEFAULT ' ' ,
0008.00 PERTITEL CHAR (20) WITH DEFAULT ' ' ,
0009.00 PERVNAME CHAR (20) WITH DEFAULT ' ' ,
0010.00 PERNNAME CHAR (20) WITH DEFAULT ' ' ,
0011.00 PERSTRAS CHAR (36) WITH DEFAULT ' ' ,
0012.00 PERPLZ CHAR (20) WITH DEFAULT ' ' ,
0013.00 PERORT CHAR (20) WITH DEFAULT ' ' ,
0014.00 PERLAND CHAR (20) WITH DEFAULT ' ' ,
0015.00 PERTEL CHAR (20) WITH DEFAULT ' ' ,
0016.00 PERFAX CHAR (20) WITH DEFAULT ' ' ,
0017.00 PERMOBIL CHAR (20) WITH DEFAULT ' ' ,
0018.00 PERMAIL CHAR (36) WITH DEFAULT ' ' ,
0019.00 PERLOEKZ CHAR (1) WITH DEFAULT ' ' ,
0020.00 PERAENKZ CHAR (1) WITH DEFAULT ' ' ,
0021.00 PERUSER CHAR (10) WITH DEFAULT ' ' ,
0022.00 PERPROGR CHAR (10) WITH DEFAULT ' ' ,
0023.00
0024.00 PRIMARY KEY (PERMANDA, PERADRNR) );
RPG-Prog
0074.01 *-----Hoechste vorhandene Adressnummer ermitteln
0074.02 d PrcMaxAdrNr PR 4 0
0074.03


0149.00 d GDsUeb DS
0150.00 d GAnManda 5A
0151.00 d GAnLoeKz 1A
0152.00 d GNuAdrNr 4 0
0153.00 d GAnNName 20A
0154.00 d GAnOrt 20A
0155.00 d GAnTel 20A
0160.00 c KeyYyPerp KList
0161.00 c KFld ExManda
0162.00 c KFld GNuAdrNr
0163.00
0164.00 c move *date Gsysdat


0172.01 * Adressnummer bei Neuanlage festlegen:
0172.02 c callp PrcMaxAdrNr
0173.00 c eval GNuAdrNr = PrcMaxAdrNr


0709.00 *------------------------------------------------------------------
0710.00 * PrcMaxAdrNr
0711.00 *------------------------------------------------------------------
0712.00 p PrcMaxAdrNr B
0713.00 d PrcMaxAdrNr PI 4 0
0714.00
0715.00 d LNuAdrNr s 4s 0 inz(2)
0718.00
0719.00 c KeyYyPerp KList
0720.00 c KFld ExManda
0721.00 c KFld GNuAdrNr
0727.00
0730.00 c eval GNuAdrNr = *HIVAL
0730.01 c
0731.00 c KeyYyPerp setgt YyPerp
0732.00 c KeyYyPerp readpe(n) YyPerp
0732.03 c
0733.00 c if %eof(YyPerp)
0734.00 c eval GNuAdrNr = *zero
0735.00 c else
0736.00 c eval GNuAdrNr = PerAdrNr + 1
0737.00 c endif
0737.01 c
0737.02 c*** Wert für Adressnummer zuweisen ***
0737.03 c eval LNuAdrNr = GNuAdrNr
0737.04
0737.05 c*** Testwert für Adressnummer ***
0737.06 c* eval LNuAdrNr = 111
0737.07
0741.00 c return LNuAdrNr
0742.00
0743.00 p PrcMaxAdrNr E

MfG Dw4rf79

[B.Hauser]

Hallo,

ich würde beim Rückwärtslesen nur einen Teilschlüssel (EXMANDA) verwenden.



0719.00 c KeyYyPerp KList
0720.00 c KFld ExManda
0721.00 c KFld GNuAdrNr
0727.00
0730.00 c eval GNuAdrNr = *HIVAL
0730.01 c
0731.00 c KeyYyPerp setgt YyPerp
0732.00 c ExManda readpe(n) YyPerp

Birgitta

[Dw4rf79]

Danke für die schnelle Antwort. Mit nur einem Teilschlüssel hat die Prozedur auch direkt gemacht, was sie sollte :)

MfG Dw4rf79