Query/400 automatisch aktuallisieren (bei Dateiänderung)

[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