strsql überwachen

[dibe]

Habe das soeben mal ausprobiert,
Aufgerufen wird das ExitPgm nun beim select aus strsql.
Die Parameter verstehe ich nicht, oder die sind falsch.
Ich habe nur

 DEDBDBFAE00       DS                                                       
 D*                                             QDBE Opn DB File Array Entry
 D EDBDBEFN02              1     10                                         
 D*                                             QDBE File Name              
 D EDBDBELN01             11     20                                         
 D*                                             QDBE Library Name           
 D EDBDBEMN01             21     30                                         
 D*                                             QDBE Member Name            
 D EDBQDBER01             31     32                                         
 D*                                             QDBE Reserved               
 D EDBEDBFT01             33     36I 0                                      
 D*                                             QDBE DB File Type           
 D EDBDBEUP01             37     40I 0                                      
 D*                                             QDBE Underlying Physical    
 D EDBBEOIO01             41     41                                         
 D*                                             QDBE Open Input Opt         
 D EDBBEOOO01             42     42                                         
 D*                                             QDBE Open Output Opt        
 D EDBBEOUO01             43     43 

EVAL EDBDBFAE00                          
EDBDBEFN02 OF EDBDBFAE00 = '        DB'  
EDBDBELN01 OF EDBDBFAE00 = 'OP0100    '  
EDBDBEMN01 OF EDBDBFAE00 = '        DS'  
EDBQDBER01 OF EDBDBFAE00 = 'P_'          
EDBEDBFT01 OF EDBDBFAE00 = -640552384    
EDBDBEUP01 OF EDBDBFAE00 = 1077991639    
EDBBEOIO01 OF EDBDBFAE00 = 'C'           
EDBBEOOO01 OF EDBDBFAE00 = 'K'           
EDBBEOUO01 OF EDBDBFAE00 = '7'           
EDBBEODO01 OF EDBDBFAE00 = '4' 

ich habe hier ein BSP gefunden.

Aber wenn das 'alles' ist, kann ich damit nix anfangen!

das Sql Stmt fehlt!
Die Info, das ein Update oder Delete gemacht werden soll als '1' oder '0'
hilft gar nicht, wenn ich keine Herkunft (welches Pgm macht das) habe
Und das über den Job zu ermitteln, bei JEDEM Dateizugriff?
Nicht wirklich!

Schade.
Noch einer eine Idee?
Danke
DiBe

[Fuerchau]

Die Begründung für so eine Aufgabe finde ich da schon seltsam.
Das bestätigt da schon, dass Programmierer bereits in der Biebel erwähnt wurden: "...denn sie wissen nicht was sie tun.";-).
Ich würde da schon eher im Ansatz sicherstellen dass die Umgebung stimmt.

Was die Parameter angeht, so sind diese u.U. vom falschen Release. Online gibts da bestimmt neuere Definitionen.

Ansonsten frag ich mal jemanden, der sich explizit auskennt.

Und was die API's angeht:
https://www.ibm.com/support/knowledg...ajrmstexdb.htm

da finde ich auch keine Programminformation.
Du kannst ja auch mal das NDB-API probieren.

Ebenso einfach ist das Auslesen der Stackinformation. Das habe ich auch schon mal im Trigger gemacht da der tatsächliche Auslöser (eben nicht QDBPUT) gesucht wurde.

[BenderD]

ich habe hier ein BSP gefunden.

Noch einer eine Idee?
Danke
DiBe

... einfach das Programm abpinseln, das sieht so aus, dass es funktionieren sollte!!!

D*B,
der sich fragt, wofür es Objekt Security gibt.

[holgerscherer]

der sich fragt, wofür es Objekt Security gibt.

Klar:
weils schee is

[dibe]

ist das bei Euch anders?

Die Entwickler arbeiten in der Testumgebung, biegen sich Datein so hin, um die neuen Funktionen zu testen, mal mehr mal weniger.
Hektischer Tag, anruf aus der Fachabteilung, irgendwas geht nicht.
Wechsel in die Produktionsumgebung, ausprobieren, ok, alles i.o. Anwender hatte 'irgendwas' vergessen/nicht beachtet. TelKo, zum nächsten übernächsten oder vergangenen Projekt.
Dazu noch schnell etwas nachsehen, irgend eine Auswertung auf Echtdaten.
Aus Gewohnheit die Echtdaten mit Bibliothek abgefragt. (Liblist zeigt noch auf Echt Daten)
Dann endlich Ruhe,
update Datei set Feld = Wert where ...
xxx Sätze aus Datei in LIB ECHT geändert. MIST

Passiert 1 mal im Jahr, ist aber (fast) immer sehr ärgerlich.
Wie erzwingt Ihr die Disziplin?

Dietlinde Beck

[andreaspr@aon.at]

Genau, du bekommst nur die Infos:
* Job
* Libs und Tabellen
* Action (insert, delete, update, select)
Die restlichen Infos muss man sich separat ermitteln.

[Fuerchau]

Die Disziplin bedeutet, dass es für Echt und Test tatsächlich getrennte Umgebungen gibt, die ein Ummelden erzwingen (Testuser, Echtuser).
Über die erwähnte Objektsicherheit komme ich eben nur an die Testdaten als Testuser und umgekehrt.
Dies mag zwar lästig sein, aber sicher und einfach ist es doch mal eben eine weitere Sitzung aufzumachen (im Zweifel geht immernoch Systemanfrage 1) und sich in die richtige Umgebung zu setzen.
Und Firmen, die nicht unbedingt mit dem Geld geizen müssen richten zusätzlich noch eine LPAR als Testumgebung ein. Außer Platten kostet das nichts.

[Fuerchau]

So, habe nun die Bestätigung bekommen:

"Das geht nur über die Schnittstelle
QIBM_QDB_OPN

Den STRSQL bekommen sie eigentlich gar nicht mit, aber alle Befehle.

Aber die Schnittstelle ist sehr kritisch, da sie bei allen Programmen
aufgerufen wird, die nicht aus der QSYS kommen."

[dibe]

Vielen Dank für Eure Antworten!
Dietlinde Beck

[KingofKning]

ist das bei Euch anders?


Wie erzwingt Ihr die Disziplin?

Was helfen kann ist die Bildschirmfarbe zu ändern.
Sprich Entwicklung im entspannten grün und das Echtsystem in rot.

[Fuerchau]

@KingofKning
Ach, wechselt bei euch die Hintergrundfarbe beim CHGLIBL?
Dann stell das doch mal hier vor;-).

[KingofKning]

Es ging um Disziplin, und CHGLIBL ist das dann halt nicht.

GG 3964