Prüfen, ob ein Objekt existiert

[dschroeder]

Vielen Dank für eure Anworten.
Es geht um das Aufräumen einer Programmreferenzdatei, die mit DSPPGMREF ... *OUTFILE erzeugt wurde. Ich möchte alle Einträge löschen, zu denen es kein Objekt mehr gibt. In der Datei steht der Bibliotheksname und der Programmname, aber nicht der Objekttyp. Aber ich habe gerade festgestellt, dass es nur eine Handvoll Objekttypen sein kann: *PGM, *SRVPGM, *MODULE, *SQLPKG und *QRYDFN.
Ich werde deshalb einfach pro Objekt diese 5 Arten prüfen.
Aber auch nochmal Danke für das API. Dafür habe ich bestimmt auch noch mal Verwendung.

Nochmals Danke für eure Mühe.

Dieter

[Pikachu]

Was ist mit dem Feld WHOTYP (Objektart)?

SELECT WHLIB, WHPNAM, WHFNAM, WHLNAM, WHOTYP FROM QTEMP/PGMREF

[Fuerchau]

Wenn du doch schon das DSPPGMREF per OUTFILE machst, mach doch auch einen DSPOBJD der entsprechenden LIB's in eine OUTFILE.
Dann kannst du doch simple per SQL die beiden Dateien abgleichen ohne eine Zeile Code zu schreiben.

Alternativ erstelle doch die PGMREF einfach neu .

[andreaspr@aon.at]

Hallo,

keine ahnung ob es abhängig vom Release ist, aber bei mir (7.1) gibt es die Objektarten.
In kurzform: WHOBJT (P=Programm,...)
Und normal: WHOTYP (*PGM=Programm,...)

lg Andreas

[dschroeder]

Klar, das Feld WHOTYP gibt es bei mir auch. Aber das ist der Typ der verwendeten Objekte. Es geht mir um den Typ der verwendenden Objekte. Es geht mir um die "linke" Seite der Datei. Also um die Typen von WHLIB und WHPNAM.
Wir haben da eine Anwendung, mit der wir Programmreferenzen suchen können. Die Outfile von DSPPGMREF ist bei uns eine permanente Datei, die automatisch vom Wandlungsprogramm aktualisiert wid. So haben wir immer eine aktuelle Programmreferenzdatei, ohne jedesmal einen DSPPGMREF ausführen zu müssen. Aber wenn ein Programmierer ein Objekt einfach per CMD löscht, wird die Programmreferenzdatei natürlich nicht aktualisiert.
Deshalb der Aufräumjob.

Dieter

[Pikachu]

Wie wärs mit dem Feld WHSPKG?

[Fuerchau]

Dann ist die Liste der betroffenen Objekte genau 2 Einträge lang *PGM, *SRVPGM, da DSPPGMREF eben nur Programme bearbeitet.

Dann kannst du ja doch einen DSPOBJD der PGMLIB's machen und per SQL einen
delete from mypgmref where not exists (select * from myobjlst where fromnameundlib = tonameundlib)

[Pikachu]

Es könnte (je nach Release) auch ein SQL-Paket, ein Modul oder eine Query-Definition sein.

DSPPGMREF Objektart

[BenderD]

edit (nicht genau gelesen)
Anmerkung: ich würde das noch um DSPMOD *IMPORT und dspmod *EXPORT ergänzen, dann kriegt man noch die Prozedur Abhängigkeiten.

D*B

[dschroeder]

Vielen Dank an alle.
Wir machen das jetzt so, dass wir nur *PGM und *SRVPGM prüfen. Alle anderen Arten sind für uns nicht relevant, da uns nur wirkliche Programmreferenzen interessieren. Die Prozedurabhängigkeiten sind für uns nicht entscheidend, da wir pro Programmobjekt immer nur eine exportierte Prozedur haben.

Nochmals Danke,
Dieter

[BenderD]

... wie seid ihr denn auf diese abstruse Idee gekommen? Wenn man nur einen Entry Point hat, dann sind Hundsnormale Programme die bessere Wahl - da erspart man sich das ganze Gedöns mit binden und allem drum und dran.

D*B

[dschroeder]

Die Vorteile von Serviceprogrammen sind für uns:
- sprechende (lange) Namen
- Möglichkeit der Einbindung in Vergleichsanweisungen, z.B. if istBerechtigt(kun_nr);
- saubere Parametrierung (genau ein Rückgabewert)

Das andere "Gedöns" haben wir programmatisch gelöst. Für einen Entwickler bei uns ist es null Mehraufwand, ein Serviceprogramm zu schreiben. Unser Compileprogramm erkennt den Source als Serviceprogramm und setzt alle Wandlungsoptionen automatisch. Desweiteren wird automatisch eine Copy-Strecke für den Prototyp generiert und das Programm wird in einer Repository-Datenbanktabelle eingetragen. Wenn man das Serviceprogramm dann später in einem anderen Programm aufrufen will, schreibt man einfach den Aufrufcode hin. Man muss nichts weiter machen. Über ein selbstgeschriebenes Eclipse-Plugin im RDi wird aus dem Repository automatisch die benötigte Copy-Strecke für das Serviceprogramm ermittelt und oben im Code eingetragen.

Ich gebe dir aber natürlich Recht: Wenn wir das alles manuell machen müssten, hätten wir es sicherlich gelassen. Aber wir wollen keine Schwierigkeiten mit Änderungen in Programmsignaturen haben. Deshalb haben wir so viele kleine Programme.

Dieter