Query/400 automatisch aktuallisieren (bei Dateiänderung)

[BenderD]

... gab's schonmal:
http://newsolutions.de/forum-systemi...3460#post63460
Der postende Kollege hat seinerzeit damit hunderte von Queries aktualisiert, allerdings waren die Vorkehrungen und anschließenden Prüfungen nicht ganz trivial zu automatisieren. Meines Wissens läuft das unter SecLevel 50 nicht (da kann man nicht mehr ohne weiteres von der User domain auf Adressen der System domain zugreifen), aber da könnte eine Umgehung mit teporär niedriger Security, oder einer Maschine mit niedrigerem seclevel und save restore helfen.
Den lieben Kollegen können wir leider nicht mehr fragen, der ist auf tragische Weise tödlich verunglückt.

in memoriam Michael

D*B

[tarkusch]

Hallo,

ich habe das über die Systemantwortliste schlussendlich gelöst.

DCL VAR(&InqMsgRpy) TYPE(*CHAR) LEN(10)

/* Wert "Antwort auf Anfragenachricht(Inquiry message reply)" sichern */
RTVJOBA InqMsgRpy(&InqMsgRpy)

/* Eigene definierte Systemantwortliste einstellen */
/* ADDRPYLE SEQNBR(xxxx) MSGID(QRY1058) RPY('I') */
CHGJOB INQMSGRPY(*SYSRPYL)

RUNQRY QRY(…/…)

/* Wert "Antwort auf Anfragenachricht(Inquiry message reply)" wiederherstellen*/
CHGJOB INQMSGRPY(&InqMsgRpy)

ENDPGM

lg

[BenderD]

Hallo,

ich habe das über die Systemantwortliste schlussendlich gelöst.

DCL VAR(&InqMsgRpy) TYPE(*CHAR) LEN(10)

/* Wert "Antwort auf Anfragenachricht(Inquiry message reply)" sichern */
RTVJOBA InqMsgRpy(&InqMsgRpy)

/* Eigene definierte Systemantwortliste einstellen */
/* ADDRPYLE SEQNBR(xxxx) MSGID(QRY1058) RPY('I') */
CHGJOB INQMSGRPY(*SYSRPYL)

RUNQRY QRY(…/…)

/* Wert "Antwort auf Anfragenachricht(Inquiry message reply)" wiederherstellen*/
CHGJOB INQMSGRPY(&InqMsgRpy)

ENDPGM

lg

... hierzu sei angemerkt, dass man diesen Work around bei richtiger Vorgehensweise im reinen SQL Umfeld immer leicht vermeiden kann:
- alles greift ausschließlich auf Views zu
- eine View wird nie geändert
- für Erweiterungen gibt es eine neue View

soviel nur zu Problemen, die man nicht haben muss!!!

D*B