Suchen:

Nachdem ich jetzt tiefer in das Thema eingestiegen bin und Dank der Antworten hier bin ich auch zwischenzeitlich der Meinung, dass der Index-Vorschlag keinen Sinn macht. Solange ich die Ursache nicht...

@Fuerchau:
Danke für das Feedback.
Ob der PrimaryIndex verwendet wird, habe ich mich dann auch gefragt.
Würde mich aber sehr wundern, wenn nicht.

@Birgitta:
Danke für die ausführliche Antwort...

Hallo zusammen,

wir haben eine SQL-Tabelle mit einem Primary-Key, für die der Index-Advisor einen Index-Vorschlag über die Primary-Key-Spalte vorschlägt (Empfehlungshäufigkeit 13 Mio).

Jetzt...

Ich arbeite gerne mit dem ACS-Debugger (IBM i Access Solutions). Hat eine grafische Oberfläche, ist aber nicht so überladen wie der RDi-Debugger.

Ich meinte auch performanter als meine Lösung mit der "mit sich selbst gejointen" Tabelle. Eine Tabelle mit den Werten 1 - 999 permanent anzulegen, könnte wirklich schneller sein, mit Birgittas...

Hallo Birgitta,

Deine Lösung für 6.1 gefällt mir und funktioniert auch sehr gut ... vorausgesetzt man ersetzt das "where" durch "on" ;-).

Die Lösung ist sicher auch performanter.

Vielen...

Danke so etwas Ähnliches hatte ich mir auch überlegt.

Habe gerade noch eine andere Lösung:

select min(LaufendeNummer) +1 from tabelle a where not exeists ( select * from tabelle b where .......

Das Problem ist folgendes:

In einer Tabelle gibt es unter anderem die Spalte LaufendeNummer.
Sie kann die Werte 1-999 enthalten. Jede Nummer kann nur einmal vorkommen. Nicht alle Werte sind...

Deine letzte Version der XML-Datei hat jetzt aber mit dem Element "satz" eine Ebene mehr.

Das passt dann mit der DS nicht mehr zusammen.

Oder hast du die DS oder path-Angabe zwischenzeitlich...

Pikachu war schneller, dann also CCSID.

Am Code kann ich keinen Fehler entdecken.
Ich tippe immer noch auf einen Fehler bei der Pfadangabe.

Kopier die Datei doch mal in

"IFS/Root/bib/"

und Aufruf mit Pfadangabe
...

Stimmt Deine Pfadangabe?

Wenn das Verzeichnis "bib" im root des IFS liegt musst Du noch ein "/" voranstellen:

'/bib/hadrxp1.xml'

Erst einmal scheint mir die XML-File nicht ganz valide zu sein.
Am besten mal in einen XML-Viewer laden, da lässt sich die Struktur auch einfacher ablesen.

Ein Problem beim Parsen sind sicher die...

Danke für den Link. Das bestätigt meine Vermutungen.

Danke für die Antwort. Leider war das noch nicht die Lösung. Die Verbindung schlägt immer noch fehl. :mad:

Wir haben mehrere PC's mit Windows XP, auf denen läuft der WDSC problemlos.

Auf einem neuen Rechner mit Windows 7 läuft der WDSC nicht. Er lässt sich starten, aber die Verbindung zur iseries...

Besser (und ohne Umwandlung) geht es mit dem WDSC. Man sieht welche Bezugszahlen wo verwendet werden.

Und Du kannst auch mit einem Klick in die jeweilige Programmzeile springen ... und am besten...

Wie Dieter bereits richtiggestellt hat, ist hier der Satz nach dem Update (SQL) noch gelockt, was auch so gewollt ist. Erst der Commit hebt die Sperre auf.

Danke Euch!

Die Aufregung war also umsonst. Der COMMIT funktioniert erfreulicherweise wie er soll.

Ich war in der falschen Ebene unterwegs.
Die Satzsperren-Anzeige hatte mir gefehlt.

VG...

Folgende Konstellation:

Programm A läuft in benannter Aktivierungsgruppe und ruft die Prozedur P eines Serviceprogramms auf, das in Aktivierungsgruppe *CALLER läuft.

Die Prozedur macht ein...

Da liegt der Hund wohl begraben.
Die Deklaration kommt aus einer Datenstruktur (Based), die als Feldreferenz dient.



D PI N
D p_meinevariable...
...

Aber hier handelt es sich um ein SQLRPGLE. Vermutlich ist es doch ein Bug.

Ok, so funktioniert es jetzt. Werde mir wohl angewöhnen müssen, übergebene Parameter erst einmal in lokale Variablen zu übertragen. Nicht schön, aber so funktioniert es wenigstens.



Das sollte...

Folgendes Problem:

Eine 10-stellige Integer-Variable wird einer RPG-Prozedur als Parameter übergeben.

Dort wird sie so auch angezeigt:



p_meinevariable: Ganze Zahl (10,0) CONST

Du hast recht, ich kann nicht einmal die aktuelle Version des Triggerprogramms neu erstellen, die Datei ist gelocked.

Damit hat sich die Umstellung im laufenden Betrieb erst einmal erledigt.
...

Ich habe ein Triggerprogramm (ILE mit benannter Aktivierungsgruppe X), das Tabelle A fortschreibt.
Jetzt soll Tabelle A durch Tabelle B ersetzt werden.

Was passiert, wenn ich die neue Version des...

Probier mal:



update xxa00 a set xares8 =

(select kansch from qrkustak b
where b.kdnr=a.xakdnr)

where exists

Nochmals danke an alle.
Jetzt hat's "geklickt". Ich habe erst einmal die ACTGRP des SRVPGM auf *CALLER geändert. Damit sollte der commit des steuernden Programms greifen und die inserts laufen.
...

Danke Euch, das ist wohl das Problem.

Ich habe den commit in das steuernde Programm (ACTGRP: QILE) gelegt, das SRVPGM lief aber nach wie vor in einer benannten ACTGRP.

Wenn ich es richtig...

Folgendes Problem:

Mithilfe eines SRVPGM werden Sätze in eine SQL-Tabelle geschrieben. Die Prozedur macht nichts anderes, als embedded einen Satz auszugeben, besteht also nur aus dem insert.
...

Ja ja, vermutlich auch ein Faschingsbier zuviel angezapft? ;-)
Spaß beiseite, so Tage gibt es.

Bist Du sicher, dass das aufgerufene CL-Programm interaktiv läuft, also nicht etwa einen SBMJOB...

Danke, jetzt ist alles klar.

Schöne Lösung, Birgitta.

Danke für die vielen, gewohnt schnellen Antworten.



Gefällt mir am besten und funktioniert auch noch :-).
Leider verstehe ich die Anweisung nicht. Was hat es mit '00010101' auf sich?

LG...

Stimmt, habe ich nicht bedacht.
Das vorherige aufaddieren ist eine gute Lösung, dann kann ich mir auch das Case-Geraffel sparen :-).

Danke

Danke, habe die Lösung gefunden:



...
(case when TimeNum >= 100000 then
TIME(SUBSTR(CHAR(TimeNum), 1, 2) || ':' || SUBSTR(CHAR(TimeNum), 3, 2) ||':'|| SUBSTR(CHAR(TimeNum), 5, 2))
else ...

Habe folgendes Problem:

Ich lese ein 6-stelliges numerisches Feld einer PF ein, und will es per SQL in ein Time-Feld einer SQL-Tabelle ausgeben.



Insert into ...
select ...
TIME(...

Erst einmal vielen Dank. Ich werde den STRDBMON aufsetzen. Entspricht das dem SQL Performance Monitor im iSeries Navigator?

Ich habe folgenden Effekt:

Ein RPG-Programm liest in einer Schleife eine Physische Datei
und gibt den Inhalt nach einigen rtrim und diversen Datumsprüfungen mit einem Insert (Embedded) in eine...

Das sehe ich auch so. Wenn man Programme direkt im WDSC erstellt, bekommt man die Fehler schön aufbereitet serviert und braucht normalerweise keine Umwandlungsliste mehr.

Das Problem ist gelöst. Vielen Dank für die vielen Antworten.

Der SQL-Fehler, der auf ein Problem des Überladens bzw. die Parameterübergabe hindeudete, war irreführend. Ein Aufruf der SP im...

PGM PARM(&PARM1 &PARM2)
DCL VAR(&PARM1) TYPE(*DEC) LEN(6 0)
DCL VAR(&PARM2) TYPE(*DEC) LEN(7 0)





Die...

Vielen Dank schonmal für die Hilfe.

Berechtigungen sind in Ordnung, die hatte ich nach Erstellen der Stored Procedure nachträglich vergeben.

Casten hat wie schon von Birgitta erwähnt nicht...

Nein, V5R4M0. (Das Forum will min. 20 Zeichen, jetzt müsste es passen)

Beim Versuch, ein CLP über eine Externe Stored Procedure aufzurufen, bekomme ich den Fehler:



SQL-Status: 42884
Vendorencode: -440
Nachricht: [SQL0440] Routine MYCLP in MYLIB mit angegebenen...

Danke, hat sich erledigt. War ein Berechtigungsproblem. Hätte ich auch gleich darauf kommen können.

Beim Versuch, über den iSeries Navigator ein neues Schema zu erstellen, bekomme ich den SQL-Code [SQL0601] .... der Art *LIB in *N bereits vorhanden.

Die Suche nach dem gleichnamigen Objekt auf...

Nach 1,5 Jahren Ratlosigkeit hat mein Kollege durch Zufall die Ursache des Problems entdeckt:

Wird eine Source per Drag & Drop in den LPEX-Editor gezogen, wird diese nach dem Schließen nicht mehr...

Habe etwas gefunden, ich muss es nur noch in RPG umschreiben:



Sub modulo11()
Dim Test$, i As Byte, Quer%, Prüf As Byte
Test = "64010093"
For i = 1 To Len(Test)
Quer =...

Hallo, bevor ich das Rad neu erfinde, frage ich hier einmal in die Runde, ob jemand schon einmal eine Prüfziffernberechnung (vorzugsweise Modulo 11) geschrieben hat, die er mir zur Verfügung stellen...

Es läuft!!! Habe eine RPG-Prozedur geschrieben, den Code der UDF in die Prozedur kopiert (embedded). Die Prozedur bekommt Tabellenname und Feld und gibt die ID zurück incl. commit. Das ganze ist...

Erst einmal vielen Dank für die umfangreiche Hilfe. Jetzt hab ich's wohl kapiert. *CALLER macht in dem Fall wirklich keinen Sinn. Leider lässt sich mit UPDSRVPGM die Aktivierungsgruppe der UDF nicht...

Die Tabelle ist erstellt, die UDF auch. Ein direkter erster Testaufruf der UDF embedded SQL aus RPG(OPM) hat prima funktioniert, die ID wird fortgeschrieben. Sorgen macht mir nur noch der Härtetest,...

Habe ich schon entdeckt. Das ist genau das, was ich brauche, super.

Eine Frage noch:
Die UDF GET_KEY schreibt erst eine neue, um eins erhöhte ID und liest diese im nächsten select-Statement aus...

@DBender:
Danke für den Fahrplan, so in etwa hatte ich mir das vorgestellt. Das Blocken lass ich erst einmal, aber auf den Rest werde ich mich jetzt stürzen.

@KingofKning:
Ich hatte auch schon...

Danke schon einmal für die Antworten.

@kuempi:
Wie Dieter Bender schon beantwortet hat, brauche ich eine eindeutige Referenz u.a. zur Verknüpfung mit anderen Tabellen.

@DBender:
Genau das...

Folgende Situation:
Das eindeutige Key-Feld einer PF hat den Nachteil, dass es aus einer laufenden Nummer und einer Auftragsnummer zusammengesetzt ist. Um Inhalt in Keyfeldern zukünftig zu...

Hallo fkeller,

wenn ich es richtig verstanden habe, bist Du in der SQL-Umgebung des Navigators und kopierst dort den kompletten Code in das Fenster und klickst "Ausführen-Alle"?

Falls ja, das...

Hallo fkeller,

ich weiß nicht, wo genau Du auf Ausführen klickst.

Die Erstellung einer Prozedur kann im iSeries Navigator mit dem Assistenten erfolgen. Für den Aufruf der Prozedur musst Du Dich...

Eine Vollautomatik gibt es leider nicht.
Es gibt aber ein paar hilfreiche Einstellungen.

Das erste ist das "Spaltenspezifische Editieren" (Benutzervorgaben-->Ferne Systeme --> iseries --> Lpex)....

Das hatte ich alles überprüft. Nur ein Objekt, und das wurde auch in der Umwandlungsliste ausgewiesen.

Habe den Fehler gefunden und er ist oberpeinlich :eek:

Man sollte eine geänderte LF auch...

Hallo chrisssiie,

man kann einen Änderungsvermerk hinterlegen, der dann automatisch hinzugefügt wird:

Fenster-Benutzervorgaben-Ferne Systeme-iseries-LPEXEditorParser
Geänderten Zeilen Kennung...

Hallo,

beim Versuch, ein 34. Key-Feld in einer KLIST aufzunehmen, bekomme ich bei der Umwandlung des RPG-Programms den Fehler *RNF7071 Anzahl KFLDs in KLIST überschreitet Anzahl Schlüsselfelder in...

Wir haben einige Produkte der Fa. Gräbert im Einsatz. Werde mich mal informieren. Vielleicht ist eine i5-Lösung gar nicht so schlecht. Zumindest wäre der Anwendungsentwicklung geholfen.

Besser spät als nie: Wir sind dabei, unsere RPG IV-Anwendungen zu Modularisieren. Technisch läuft noch alles nach Plan. Die steigende Anzahl von Modulen, Prozeduren, etc. zwingt uns nun zur...

Ich bleibe dann wohl bei der Variante Minuszeichen nach Betrag. Danke Fuerchau für die Unterstützung.

Danke für die schnelle Antwort. Gleitendes Minus ist genau das, was ich brauche. Leider fällt die Umwandlung auf die Nase:

EDTWRD('----.-0 , ') führt zu "CPD7528 Anzahl der dezimalen...

Wie kann ich im Printerfile mit EDTWRD eine negative Zahl darstellen ohne auf EDTCDE umzusteigen?

In den DDS-Handbüchern habe ich nur die Version gefunden:

EDTWRD(' . 0 , &-') ergibt z.B....

Ok, das funktioniert. Ist zwar noch nicht die erhoffte Lösung, aber ich kann erst einmal damit leben.
Danke.

... freue mich aber trotzdem über weitere Beiträge.

Habe folgendes Problem:
Nachdem ich im WDSC eine Teildatei editiert und wieder geschlossen habe, kann ich sie nicht mehr erneut öffnen. Weder über SEU auf der i5 noch innerhalb des WDSC.
Grund: Der...

Hey super! Es funktioniert. Danke Fuerchau. Die Antwort kam ja fast schneller als meine Anfrage :-).

Hallo zusammen,

gibt es eine Möglichkeit, die Anzahl der zu lesenden Datensätze beim select einzuschränken oder die maximale Anzahl der auszugebenden "Treffer" per Parameter mitzugeben? Habe...

Ich denke eine PF ist kein Aufwand und eine saubere Sache:

K Teilenummer
K Jahr
K Monat
Stückzahl

Zugriff über den Key aus Teil, Jahr, Monat.

Hey Xanas, super!
Es funktioniert. Das war der Klick der mir noch gefehlt hat. :)
Ok, etwas spät, da hast Du recht.... aber ich hab die Hoffnung an das Forum nie aufgegeben :D

Danke Dir!...

Wir lösen die Problematik mit einem zusätzlichen Parameter in der *entry-PLIST.

Die Verbindung hängt sich bei mir nicht auf und die Aktualisierungen laufen auch -dank neuer I5- recht zügig.
Es ist also kein Performance-Problem.

Entweder ist es wirklich noch ein Bug im...

Das Problem ist noch nicht gelöst.
Sieht so aus, als wäre ich der Einzige, der die Gliederung des LPEX-Editors im WDSC nutzt :confused:

Als Ergänzung habe ich nun den gleichen Effekt bei...

Ich hatte das gleiche Problem.
Allerdings habe ich nicht allzuviel Zeit mit der DDS-Suche verbracht, da wir bereits externe Software im Haus hatten,
die 2D-Barcodes auf der iSeries generieren kann...

1) Eine gute Doku habe ich hier gefunden.

2) Mit STRG-Leertaste, funktioniert allerdings nur innerhalb der "/FREE" "/END-FREE" -Anweisungen.

3) Im Editor: "Quelle" - "Alles in freies Format...

Hallo Alexander,

sollte normalerweise Bestandteil des 5722WDS sein.
Bei mir ist das Programm vorhanden, arbeite allerdings mit V5R3.

Wenn Du mit ein älteres Release hast, kannst Du im WDSC...

Hallo zusammen,
ich arbeite mit WDSC Version: 5.1.2.

Hier mein Problem:
Wenn ich versuche, die Gliederung zu einer RPGLE-Source zu aktualisieren, zeigt er konsequent eine alte Version einer...

Danke für die Antworten.

Ob mit oder ohne Schaum weiß ich auch nicht, ich weiß nur dass das Glas noch fast leer ist ;-)

Ich werde mein Glück erst einmal mit einem JAVA-Client versuchen, bevor...

Ich möchte aus einer AS400-Anwendung (RPGLE) einen Web Service via SOAP nutzen.
Eine genaue Dokumentation des WSDL und ein SOAP-Halbwissen ;) ist vorhanden.

Welche technischen Voraussetzungen...

Meines Wissens verträgt sich ON und WHERE nicht.
Lass das WHERE einfach weg, dafür ein AND dazu:

SELECT
ALL A.VERTRT, A.KUNNUM, D.BZ1, D.PLZ, D.ORT, A.ORDNUM, A.BELNUM,
A.DRKDAT, B.ASTNUM,...

Danke Dir!

Genau das hab ich gesucht.
:) :) :)

Sorry... war etwas unverständlich ausgedrückt.

Ich meine z.B. ENDIF, ENDDO, ENDSR, ENDSL,... die automatisch hinzugefügt werden.

Hallo zusammen,

ich bin vor einiger Zeit umgestiegen von CODE/400 zu WDSC 5.1.2 und bin erst einmal beeindruckt von der Funktionalität.

Hier die erste Frage (weitere werden sicher auch noch...

Vielen Dank! Genau das habe ich gesucht. :)

Natürlich auch vielen Dank an Brigitta Hauser für das gelungene Dokument!

Viele Grüße
Allrounder

Meine Frage wendet sich an die, die schon etwas länger in diesem Forum aktiv sind:

Ich habe hier vor längerer Zeit eine sehr gut beschriebene Anleitung zum Programmieren ohne Bezugszahlen, bzw....