-
Query/400 automatisch aktuallisieren (bei Dateiänderung)
Hallo Forum,
wie kann ich am schönsten ein Update/Aktuallisierung eines Query programmtechnisch(CL/RPG) lösen?
Im Internet hätte ich folgenden Link gefunden:
http://iprodeveloper.com/rpg-programming/retrieve-query-file-information-security-level-40
Wir sind auf 7.1 und der Security Level ist 50.
lg
-
Hallo zusammen,
möchte mich der Frage anschliessen....könnte einen automatischen "PseudoUpdate" von Query's auch gut gebrauchen.
Bei Dateierweiterungen reicht ja das "Reingehen" mit 2=Ändern und dann sofort wieder mit F3 raus !
(vorausgesetzt man will in dem jeweiligen Query nicht auf neue Felder aus der Dateierweiterung zugreifen)
Bin echt mal gespannt !
Vg.
-
... 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
-
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
-
Zitat von 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
... 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
Similar Threads
-
By Zuther in forum IBM i Hauptforum
Antworten: 8
Letzter Beitrag: 21-04-15, 09:57
-
By UFi in forum IBM i Hauptforum
Antworten: 6
Letzter Beitrag: 16-06-14, 09:53
-
By JonnyRico in forum IBM i Hauptforum
Antworten: 2
Letzter Beitrag: 31-03-03, 16:21
-
By beebof in forum IBM i Hauptforum
Antworten: 4
Letzter Beitrag: 29-01-03, 07:26
-
By Koelch400 in forum IBM i Hauptforum
Antworten: 3
Letzter Beitrag: 11-12-02, 11:27
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks