Datensatz aus Trigger vor write (oder auch update) ändern

[DKSPROFI]

Moin,


das mit den /36 Daten kenne ich leider zur genüge. Damit kämpfen wir auch, die Dateien enthalten alles was so eine /36 Datei enthalten kann:

• Satzarten
  
• undefiniertes, von dem keiner mehr was weiss
  
• Datumsangaben in allen Variationen und (Un-) Gültigkeiten
  
• blanks in gepackten Felder und gezonten Feldern usw.
  
  

Sollte dir die genaue interne Struktur bekannt sein, dann versuche folgendes: Triggerprogramm anklemmen, das Programm mach dann eine Korrektur mit SQL update /36 Datei set substr(Feld , von , länge) = : Neuer Wert.


Ist sicherlich nicht schön, aber funzt gut.

mfg

DKSPROFI

[Peet]

Moin,


das mit den /36 Daten kenne ich leider zur genüge. Damit kämpfen wir auch, die Dateien enthalten alles was so eine /36 Datei enthalten kann:

• Satzarten
  
• undefiniertes, von dem keiner mehr was weiss
  
• Datumsangaben in allen Variationen und (Un-) Gültigkeiten
  
• blanks in gepackten Felder und gezonten Feldern usw.
  
  

Sollte dir die genaue interne Struktur bekannt sein, dann versuche folgendes: Triggerprogramm anklemmen, das Programm mach dann eine Korrektur mit SQL update /36 Datei set substr(Feld , von , länge) = : Neuer Wert.


Ist sicherlich nicht schön, aber funzt gut.

mfg

DKSPROFI

Die Strukturen der Dateien habe ich.
Ich schiebe den Satz in eine DS ohne Felder und prüfe dann im von-bis Bereich der num. Felder den Inhalt auf x'40' oder auch x'00'.
Wenn fehlerhaft, korrigiere ich den von-bis Bereich und schiebe die DS ohne Felder in die DS für die extern beschriebene Datei, bevor ich den Satz schreibe.

Vg.

[Fuerchau]

Wenn du das im Trigger machst, kannst du dir die Schieberei ja sparen.
Die Triggerinfo übergibt dir eine relative Adresse zum Puffer.
Somit kannst du folgendes tun:

dcl-s basBI pointer;
dcl-s basAI pointer;

dcl-ds BI based(basBI);
end-ds;

dcl-ds AI based(basAI);
end-ds;

basBI = %addr(Triggerinfo) + Triggerinfo.OrigOffset;
basAI = %addr(Triggerinfo) + Triggerinfo.NewOffset;

Somit kannst du auch mehrere Strukturen auf derselben Adresse basieren lassen:

dcl-ds BIChar based(basBI);
end-ds;

dcl-ds AIChar based(basAI);
end-ds;

D.h., in AIChar prüfst du, und in AI schreibst du.

[Peet]

Wenn du das im Trigger machst, kannst du dir die Schieberei ja sparen.
Die Triggerinfo übergibt dir eine relative Adresse zum Puffer.
Somit kannst du folgendes tun:

dcl-s basBI pointer;
dcl-s basAI pointer;

dcl-ds BI based(basBI);
end-ds;

dcl-ds AI based(basAI);
end-ds;

basBI = %addr(Triggerinfo) + Triggerinfo.OrigOffset;
basAI = %addr(Triggerinfo) + Triggerinfo.NewOffset;

Somit kannst du auch mehrere Strukturen auf derselben Adresse basieren lassen:

dcl-ds BIChar based(basBI);
end-ds;

dcl-ds AIChar based(basAI);
end-ds;

D.h., in AIChar prüfst du, und in AI schreibst du.

Cool :=) Danke. Vg.