RPG

[monet]

Hallo ,

habe kurze Frage und Zwar:

in DB2 Datenbank habe eine Kunden-Tabelle!

Die Kunden –Nr. waren am Anfang manuell gegeben, daher sind viele Lücken entstanden!
wie gehen ich mit einem klein RPG Programme überprüfen, wie viel und welche Kunden -Nr noch frei sind!

Kunden – Nr. ist eindeutig

[tfroehlich]

Guten Tag,

wenn die Kundennummern nummerisch sind, könntest
Du die Differenz zwischen der letzten eingelesenen und jetzt gelesenen Kundennummer errechnen.

Programmlogig: Gruppenwechsel auf Kundenummer, somit
habe ich immer Vergleichsfelder

Bei alphanumerischen ???????

Gruss Thomas

[monet]

Die Kundennummern sind schon nummerisch !
über query (wrkqry) bekomme ich nur eine Auflistung!

[tfroehlich]

Hallo Monet,

ich meine schon ein RPG_Programm mit Programmlogig
Gruppenwechsel auf Kundennummer.

Beim Gruppenwechsel kannst Du die Kundennummer vorher
mit der jetztigen vergleichen und damit rechnen.

Am besten noch mit einer Printerfile die Werte dann
ausgeben.

Oder

anstatt Printerfile in eine neue Datei ausgeben,welche du dann
mit Query drucken kannst.

Gruss Thomas

[Fuerchau]

Die Anzahl der freien Nummern errechnet sich aus "AKTKDNR - PRVKDNR". Ist dieser Wert 1, ist die Kundennr lückenlos.

[BenderD]

Hallo ,

habe kurze Frage und Zwar:

in DB2 Datenbank habe eine Kunden-Tabelle!

Die Kunden ?Nr. waren am Anfang manuell gegeben, daher sind viele Lücken entstanden!
wie gehen ich mit einem klein RPG Programme überprüfen, wie viel und welche Kunden -Nr noch frei sind!

Kunden ? Nr. ist eindeutig

Die Anzahl bekommt man am einfachsten durch:
SELECT max(xyzID) - count(*) from xyzDatei

das Programm sieht mir eher nach einer Schulaufgabe aus, die man selber machen sollte.

mfg

Dieter Bender

[Fuerchau]

@Dieter
Naja, "Wieviele" hast du ja schon gelöst, aber nun "Welche" ?

[BenderD]

Hallo Baldur,

@Dieter
Naja, "Wieviele" hast du ja schon gelöst, aber nun "Welche" ?

zu meiner Schulzeit nicht soviele, da habe ich das mit 13 Jahren eingestellt. Selbige erinnerte mich daran, weil sie so richtig aus dem Leben gegriffen ist. Zudem ist selbiges Programm schneller und leichter geschrieben als jeder Arbeitshinweis es wäre.

mfg

Dieter