Suchen:

Das klingt vielversprechend,
aber selbst für eine SQL UDF funktioniert es bei mir leider nicht:





Die Fehlermeldung bleibt identisch:

Danke für die Idee,

Du hast Recht, konstant setzen kannst du das nicht.
Dann lässt sich das Programm nicht einmal wandeln.
Das mach ich aber auch nicht. ich ermittle innerhalb der Programms...

Hallo zusammen,

ich verschlüssel zwei Felder einer Datei mit
set encryption password = password;


Im Anschluss schreibe ich sie mit encrypt weg.
Damit ich sie immer enspannt lesen kann, ohne...

Hallo zusammen,

Kennt jemand eine Möglichkeit die vorgefertigten Fehlermeldungen (zB CPF) in verschiedenen Sprachen auszugeben?

Vielen Dank :)

Danke euch Beiden!

Das von Pikachu muss ich noch prüfen.

Ansonsten hab ich das Problem jetzt tatsächlich mit nem dmpobj umgangen:

DMPOBJ OBJ(LIB/PGM) OBJTYPE(*QRYDFN)

CPYSPLF...

Hallo zusammen,

ich möchte gern die alten Querys mit Hilfe einer Programms in SQL Befehle umbauen.
So weit so gut, wenn da nicht die verschiedenen Outputs wären.

Bisher geh ich wie folgt vor:...

Hallo zusammen,

ich habe eine SQL Function, die mir eine gesamte Row einer Table zurückgeben soll.


create or replace function mylib.dummyfunction
( Wert1 numeric(2))
Returns table (Return1...

Hallo zusammen,

ich habe ein SQLRPGLE mit Folgendem Input:

dcl-ds inputDS qualified;
dcl-ds Messages dim(20);
Text char(150);
Rank zoned(2);
end-ds;
Record likeds(record);

Das hat leider auch nicht geholfen.



Mit diesem Split klappt es! Ich versuche noch heraus zu finden,
weshalb meine Function da Probleme bereitet.

Mein Problem ist aber behoben, vielen Dank!

Eine Tabelle mit Varchar:


RETURNS TABLE (ITEM VARCHAR(8000))



Das war auch mein erster Versuch, leider vergeblich.

Das hat mich schon weiter gebracht!


select id, Trennung from Beispiel, lateral (select item as Trennung from Table(split( Text, ';')) a) a
funktioniert!

Leider kann ich mit dem Ergebnis...

Eben diese Verknüpfung möchte mir nicht gelingen... :/



Wie so oft ist die Spalte einfach schon gegeben und ich hab keinen Einfluss drauf - ich muss jetzt entknoten :P

Hallo zusammen!

ich habe eine SQL Function Split, die einen String in mehrere Zeilen spaltet:

select * from table(split( 'AA;BB;CC' , ';')) a

Aus String 'AA;BB;CC'
wird also:
AA
BB

Hallo,

Vielen Dank euch! so funktioniert es. '../../Gruppennummer'

Scheinbar kann man mi ../ jeweils immer eine Ordnung nach oben wechseln.

Viele Grüße,

Daniel

Hallo zusammen,

ich möchte gerne aus einer XML mit diesem Aufbau:


<Gruppe>
<Gruppennummer>5 <<!--</font-->Gruppennummer>
<Angestellte>
<Namen>
<Vorname>Max...

Dankeschön euch beiden! ich hatte wirklich einfach versucht den String vor dem + zu schließen, das war mein Fehler.

'wert'+
'restvomwert'

funktioniert nicht.

'wert+
restvomwert'

Hallo zusammen,

ich habe einen XML Aufruf mit recht langem path, den ich gern im SQLRPGLE
ausführen möchte.
Leider ist die Quelle nicht komplett free und ich muss mich an die Zeilenbegrenzung...

Das hab ich nicht detailreich genug beschrieben, sorry.
Das CL gehört nicht uns, da kann ich erstmal nicht so schnell dran.
Das Problem sind die beiden oben zitierten Zeilen im CL. Es gibt schon...

Die Schleife ist im RPG und beeinhaltet den Aufruf des CL. Ansetzen muss ich meinen Breakpoint hinter dem CL. Durch den "Abbruch" des CL bleibt der Debug leider jedes Mal innerhalb des CL stehen....

Hallo zusammen,

ich debugge im RDI per Service-Eingangspunkt ein Programm.
Dieses wiederum ruft diverse Unterprogramme auf.
Eines dieser Unterprogramme ist ein CL, welches folgende Stelle...

Mein letztendliches Ziel ist es, eine packed Zahl auszulesen.


D $$_Var S 100A Based(Pointereins)
D Feld5 S 5P 0 Based(pointer)
D AFeld5 S ...

ich benötige von Länge 1-63 je ein Feld.
Je nach Durchlauf muss ich dann eins davon füllen.
ich möchte mir halt sparen 63 mal zu sagen: wenn X = 1...N dann füll Feld1...N.
Bei gleicher Feldgröße...

Hallo *all,

ich habe Folgendes:


c if digits = 1 c eval AFeld1 = %subst($$_Var:1:byteleng)
c eval pointer...

Für recht einfach gehaltene XML geht beides relativ flott.
Lesen:

exec sql set option commit=*CHG;
exec sql declare Cursorname cursor for ...

Achsoo, ja dafür hab ich bereits ein Feld vorgesehen. Danke

Ja, genau das. Ich bleibe bei mehreren Dateien (habt mich im anderen Post überzeugt), aber möchte über nur einen Trigger gehen. Funktioniert auch soweit ich das bisher überblicken kann (Hab noch...

Hallo,

wenn ich das richtig verstanden hab suchst du Felder, die in den Dateien voneinander abweichen.
So müsste das funktionieren:

evtl. musst du etwas genauer definieren welche Unterschiede...

Hallo zusammen, danke für eure Tips.
habe es jetzt so gelöst, dass ich den ersten Trigger auf ein AlphaFeld mappe, den Substring in ein neues Alphafeld schiebe, darauf einen neuen Pointer setze und...

Danke BenderD, ich schau es mir an.
Die Version für den Fall, dass sich die Keys ändern oder weshalb?

Danke euch Beiden! Nein das ist nicht für ein record image (das wäre zu schön :D).
Wir versuchen jetzt mal beide Methoden. Eine Subprocedure soll es eh werden, versuche sinnvolle Abschnitte immer so...

Also das Problem ist, dass wir diese Werte aus einem Pointer bekommen. Char und Zoned können wir umsetzen, an packed hakt es.

Genau, ne passende Zuweisung suchen wir.

Nein Sequence ist auch raus. Wenn dann wie du sagst "richtig" mit Key.

ja, das mit den Generatoren habe ich auch überlegt! Gute Idee :)

@BenderD Naja wie du sagst, die Menge an Daten ist zu groß. Vieles brauche ich einfach nicht.
@Fuerchau Du hast Recht, von der RRN Lösung sind wir ab.

Hallo zusammen,

ich versuche Byte-Werte wieder in das Packed Format zu überführen.
Dafür habe ich Folgendes versucht:


D DS_Test DS ...

Ja, so ähnlich soll das werden. Leider passt ein Journal nicht ganz.

Den geänderten Wert der bestehenden Datei vor & nach dem update.

Meinte mehr "anlegen".
Der Trigger auf eine der bestehenden Dateien löst aus, ermittelt anhand des Dateinamens die Keyfelder, kettet diese zusammen und schreibt bzw. löscht damit den Satz der neuen...

Naja das Zumüllen versuchen wir über Trigger zu vermeiden.
Ich sehe das Problem einfach in der Fülle der Dateien, die dann erstellt werden müssten.
Kann nicht mal eben mehrere hundert neue...

Denke darauf wird es hinaus laufen.
Auslesen geht über Umweg QADBILFI & View mit Hilfe des Dateinamens ja auch.
Hatte halt gehofft über die RRN eine schönere Lösung zu erreichen.



Das wäre...

@Pikachu So in etwa, Sie enthält andere Daten die in keiner Datei vorhanden sind, aber dennoch satzspezifisch.

@Fuerchau In diesem Fall gibt es gar keine Verbindung. Nur den Fall, dass zu jedem...

Das sind einfach zu viele Schlüssel.
Dankeschön für deine Vorschläge und Zeit!
Ich denke, wir müssen da noch mal überlegen.

Genau das ist mein Problem. Zwischen A, B und den Restlichen gibt es keinen Bezug.

Datei A und B sind schon vorhanden. Es geht auch um wesentlich mehr als diese beiden Dateien.
Datei C soll Satzbezogen Infos pro Datei enthalten.

Sprich Datei A und B brauchen keine Beziehung...

Nein da hab ich mich vllt falsch ausgedrückt.
Es geht mir um Datei C. Die soll halt bestimmte Informationen aus A und B enthalten.

Noch gibt es das mit der RRN ja nicht.
Werde mich nach euren deutlichen Worten auch davor hüten :D.
Möchte halt letztendlich Folgendes abbilden:
Datei A hat die Keys Firma, Auftrag, Position....

Dankeschön,
habs befürchtet.
hin- und herkopieren etc. hätte man ja noch über Trigger abfangen können.
Es geht halt darum, viele Dateien mit verschiedenen Keys zu verlinken.
Schön gewesen wäre...

Hallo,

du kannst über den Key (Auftragsnummer) ein where not exists einbinden, dann läuft das Ganze.
select A.Auftragsnummer from Datei A where A.Artikel-Hauptgruppe = 'Lohn' and not exists ...

Hallo zusammen,

ich überlege einen Satz anhand von Dateiname und RRN zu identifizieren.
Leider ist mir aufgefallen, dass RGZPFM keine Trigger auslöst.
Gibt es trotzdem eine Möglichkeit zu...

Stimmt, Satz 10 sei fehlerhaft!
Dankeschön!
Kann es helfen, in der View dann per where alle Sätze auszuschließen in denen das Datum ungültig ist bzw in den Fällen ein Standard Datum zu vergeben?

Danke für die Antworten!

Also Date ist es definitiv, denn will ich den Wert in Numeric casten bekomme ich den Fehler:
CAST von DATE in NUMERIC nicht unterstützt.

Vllt ist noch wichtig zu...

Hallo zusammen,

ich versuche alle Daten eines bestimmten Bereichs per SQL zu lesen.

Meine Idee war:


das funktioniert leider jedoch nicht: Auswahlfehler für Feld *N.

Die Lösung die ich kenne, wäre die Skripte aus dem IFS in eine DS oder Datei einzulesen und dann aus dem Programm die CL Befehle mit STRSQH CMD('BEFEHL') abzusetzen.

@Robi Danke für die Info. Ich mach das momentan per alias auf die Teildatei, da bekomm ich die Felder auch angezeigt.
@Fuerchau Alles klar! Hatte gehofft dem entgehen zu können....

Noch eine Frage in Gleicher Sache:

wenn ich im klassischen Editor F3 gedrückt habe, gab es immer die Option
"Teildatei neu anordnen".
Gibt es diesen Befehl einzeln? Kennt den jmd.?

Super, Dankeschön!

Für diese Anforderung reicht mir momentan mein:

Hab da nur einfache RPGLE oder SQLRPG Programme die ihre ACTGRP ggf. auch in der H Bestimmung haben. Ich ändere lediglich eine...

Hallo zusammen,

spricht etwas dagegen "normale" RPGLE Sourcen mit CRTSQLRPGI zu wandeln?
Ich bau mir da gerade eine Art Automatismus und frage mich, ob die Typ-Unterscheidung
überhaupt notwendig...

Oben rechts im Remote System Explorer gibt es den Reiter Gliederung, der dir deine Felder, Prozeduren usw. auflistet. 3 Felder neben dem Kopf des Reiters sind zwei gelbe Pfeile.
Da kannst du...

achso, ja das stimmt.
Hab ich vllt nicht gut aufgeschrieben.

Ich hab mich jetzt doch für ein Bindeverzeichnis entschieden.
Es wäre sonst kompliziert, sich jedes Mal zu merken,
mit welchem...

Ich hab da mal was gebastelt was dir vllt hilft:

Prototyp:


Variablen:


Aufruf:

ich werde die Groß und Kleinschreibung anpassen.
PR und PI passen jedoch zusammen, die Datenstrukturen heißen zwar unterschiedlich, sind aber identisch. Das verwende ich öfter in so einer...

F9 sagt:


Ich hab CRTBNDRPG verwendet.

ich denke CRTRPGMOD war der wichtige Schritt den ich vergessen hatte.
Ich werde jetzt mal versuchen das auf diese Art zu erstellen.
Dankeschön

Dankeschön,
hab das ausprobiert, es läuft aber auf das Gleiche raus

Ich frage mich, wie er auf den Namen kommt?
Muss ich in dem aufrufenden Programm das Serviceprogramm angeben?
Vllt bei der Wandlung oder so etwas?

Hallo zusammen,
ich versuche Prozeduren, die ich in einem Programm, welches als Serviceprogramm und
Modul gewandelt ist, von einem zweiten Programm aus aufzurufen.
Ich bekomme folgenden Fehler:
...

Wenn du das SQL sowieso dynamisch zusammenstellst, kannst du dann nicht
"select * from meinelib.meinedatei" schreiben,
statt
"select * from meinedatei"?
Oder irre ich?

oh noch besser! vielen Dank

Guten Tag zusammen,

ich habe auf unserem System (7.1) eine View erstellt.
Diese baut unter anderem ein Datum zusammen,
doch sobald ich über das Jahr 2040 hinaus komme, wird das Datum nicht mehr...

achso :D
habs ausprobiert, das funktioniert auch:

dcl-ds ds_auftrag;
firma zoned(2);
sparte zoned(1);
verkaufshaus zoned(2);
auftrag zoned(4);
end-ds;

Bei uns mit 7.1 funktioniert das.
Meine DS schaut so aus:
dcl-ds ds_auftrag qualified inz;
zon_fld1 zoned(9);...

Hallo Zusammen,
auch wenn 5 Jahre später, ich bekomme einen ähnlichen Fehler.
Funktionsfehler X'1720' in Maschineninstruktion.

Vor dem Fehler findet sich im Joblog aber zusätzlich:...

Vielen Dank für die Ratschläge,
ich werde das so mal umsetzen, die Funktionen kannte ich zum Großteil noch nicht.
"Ansonsten vermisse ich im Auftrag_Cursor die Where-Einschränkung auf den Kunden." ...

Es mag auch noch etwas länger gedauert haben.
Die Stunde war nur ein Schätzwert, jedoch werden die Einträge im Protokoll mit der Zeit in immer kürzeren Abschnitten geschrieben (ohne Batch).
Es...

Guten Tag zusammen,

kann mir jemand erklären warum ein Programm, welches quasi nur SQLs ausführt,
im Submit je Abfrage um ein Vielfaches schneller ist als per call?
Mit etwas...

Welchen Eintrag nehm ich da denn vor, wenn ich nur Source Änderungen abfangen möchte?
Veruscht habe ich:
QAUDCTL --> *OBJAUD
und dann CHGOBJAUD auf die entsprechende QRPGSRC.
Da scheint er...

geht das evtl über die shell?
hab bei google was zu "stat" gefunden, funktioniert aber nicht auf der Maschine.
da ich ja Pfad und Datei kenne, die ich prüfen möchte, wäre das ne schöne Funktion,...

okay vielen Dank.
Das mit dem Audit Journal muss ich mir dann mal anschauen.
Sowohl Spool als auch Option 2 ersetzen sind für mich leider keine Optionen,
da die Source ja auch ohne Wandlung...

Hallo zusammen,

ich habe mir ein Programm gebastelt, dass mir per dspfd mit *mbrlist
alle Member einer Source ausgibt.
Danach geh ich mit einem SQL da drüber und such mir alle raus die am...

Vielen Dank!
Jetzt übersetzt er auch die 9999

Hallo zusammen,

ich habe 3 Felder (Jahr, Monat, Tag) und möchte die als ein Datumsfeld im SQL ausgeben.
Versucht habe ich: date(digits(JAHR)!!'-'!!digits(MONAT)!!'-'!!digits(TAG) as Datum
Dabei...

Stimmt!
Da hab ich das Problem wohl rückwärts angegangen und das einfachste übersehen,
Danke

Genial, das hat funktioniert!
bei meinen Versuchen fehlte mir das "Else NULL",
da ich dachte "ansonsten mach nichts".
Vielen Dank

Dankeschön für die Antwort!
Ja, Ich fand das auch überflüssig,
doch leider ist das die Anforderung.
Im schlimmsten Fall muss ich wohl die XML nachträglich
durchsuchen und entsprechende Stellen...

deklariert werden soll der Cursor auch in dem Module, wie BenderD schrieb.
Ich hab da auch was zum laufen gebracht und mich von Copystrecken wieder getrennt.
Aber entgültig zufrieden bin ich noch...

Guten Abend zusammen,

momentan versuche ich aus einer Tabelle per embedded SQL eine XML-Datei zu erzeugen.
Das funktioniert bisher auch wunderbar, jedoch möchte ich nun vermeiden, dass Werte die...

Hm klar, mit den Logischen ist das keine Ideallösung,
aber ich hatte angedacht das optional zu regeln, so dass Leute die sich mit Views noch nicht wohl fühlen weiter diese benutzen können und Andere...

Nunja bisher laufen sämtliche Programme auf Logischen.
Egal, ob 1 Satz gelesen wird oder 25 Millionen.
Für zukünftige Programme wollte ich das halt generell auf diese Art auslagern.
Wenn ein...

Stimmt, der Aufruf klaut Einiges.
Wenn ich innerhalb der Prozedur alle Sätze fetche sind es noch 11Sekunden.

Die Grundidee war jedoch das read auf die Logische auszulagern, um alle Dateizugriffe...

Hallo,
habe jetzt alles hinbekommen.
Meine Prozedur zum Lesen sieht wie folgt aus:


Bei ungefähr 600.000 Sätzen benötige ich ungefähr 38 Sekunden.
Native IO schafft das Ganze in 3-7 Sekunden....

Das erklärt einiges!
Dann darf ich da den SQLCode einfach noch nicht abfragen.
Perfekt.
Dankeschön!

Dankeschön euch!
Unabhängig von der Lösung habe ich jetzt das Problem, dass mein "declare" scheinbar
keinerlei Beachtung vom Compiler findet.

Vor dem declare kann ich sqlcode beliebig setzen...

Genau das versuche ich zu basteln.
Allerdings möchte ich kein setll/read verwenden, da ich nach verschiedenen alten logischen Dateien lesen möchte. Momentan war mein Ansatz den Namen der logischen...

Alles klar,
dankeschön - aber schade.
Bleibt mir der Cursor denn erhalten,
wenn ich diese "externe" Prozedur mehrfach aus dem Selben Programm aufrufe?

Hallo zusammen,

ist es möglich einen SQL Cursor als Ein- Ausgabe einer Prozedur zu nutzen?
Ich versuche momentan in einem Serviceprogramm per SQL einen Satz zu lesen,
diesen dann zurück zu geben...

Ja super,
das hatte ich mir auch überlegt.
Lag wahrscheinlich nur daran, dass ich noch auf das alte Objekt zugegriffen habe?
Dankeschön!

Dankeschön!
Habs inzwischen wie vorgeschlagen gelöst.
Ich gebe direkt das Char Feld zurück.
Das funktioniert jetzt einwandfrei.

Eine letzte Frage habe ich noch.
In meinem Serviceprogramm habe...

Dankeschön Fuerchau,
hab den Groß-/Kleinschreibungsfehler entdeckt

Hallo nochmal,

habe den Fehler lokalisiert:
" D test PR * extproc('pr_art800')"
muss einfach groß geschrieben werden:
" D test PR * ...

Guten Tag zusammen,

ich versuche aus einem Programm "PAR801" eine Prozedur eines Serviceprogramms
"PAR999" anzusprechen, bekomme jedoch beim Wandeln von "PAR801" folgende
Fehlernachricht:
"...

Dankeschön für die Tipps!

Ist es auch möglich tiefer verschachtelte XMLs in eine PF zu schreiben?
Also dass ich in Customer noch Customer1 habe und er mir die Werter zu jedem Customer Satz...