Suchen:

Ja das habe ich bisher auch so verstanden.
In den Dateien waren die Quellnamen nicht ident, aber mit IfNull() hatte ich dann das Problem.

Dankeschön hat toll geklappt

Hallo,

ich wollte automatisiert aus einem Feld wo das SqlStatement abgespeichert ist eine Kopie im QTemp zum Versenden erstellen.
Das Sqlstatement wird je nach Auswahl generisch erstellt.
Die...

Danke Vielmals Mihael.

Liebe Grüße

Danke,
dachte das ich im Srv-Pgm das mit Sql lösen könnte.
Aber der Fehler ist wieder : HTTP ERROR 404



wwBuffer = entryId;
Exec SQL ...

Hallo Fürchau,

das ist leider Neuland für mich.
Wie kann ich den Url-Encoder verwenden.

Ich stehe voll Blank da, könnten Sie mir Links empfehlen bzw. Literartur wo ich mich einlesen kann?
...

Hallo Liebes Forum,

ich habe eine Abfrage wo die entryid wie folgt aussieht:
AUT-E-99+ABT+20210521+1200+0-1504-0

leider bekomme ich da einen: HTTP ERROR 404
Welche URI-Pfadvorlage müsste ich...

Sorry, Jahresende ist es ein wenig stressig.
Danke für eure Bemühungen ich habe es jetzt auf 2 Parametern gesplittet und es klappt.

Weiters werde ich nach den Feiertagen auf jeden Fall das...

Danke Vielmals für euere Antworten,
Das Problem ist das ein Externes Pgm uns eine ID schickt die meist ein Integer ist.
Aber es kann sein das diese ID zusammengesetzt ist, dh. der Bindestrich.
...

Liebe Rpg-Community,

ich bin noch nicht sattelfest mit Web-Services.


http://xxx.yyy.com:10xxx/web/services/trpTID/AUT/10106782-1627114

Sobald ein Bindestrich im Parameter TRPID ist...

Danke für eure Posts.
Habe es mit RL probiert aber bei numerischen Werten konnte ich keinen Unterschied feststellen.
Ich habe jetzt als Überbrückung ein AlphaFeld herangezogen, welches ich dann in...

Hallo,

gibt es die Möglichkeit in der DDS zu definieren das der Cursor rechtbündig eingestellt wird?

Dank im Voraus

Tarki

ja habe ich schon.
iAccess schaut wundervoll aus, aber beim Einstieg lädt es jobs und anscheinend hängt sich die App dann gleich auf.

Nee Robi, an genau sowas hätte ich gedacht.
VPN aufbauen habe ich schon, aber die Mocha Software ist am Handy plump zu bedienen.
Dachte das es was einfacheres zu bedienen gäbe.
Sonst bleibt mir ja...

Hallo,

könnt ihr eigentlich Android-Apps empfehlen um Sysopr-Meldungen anzuzeigen bzw. zu beantworten.

Gruß

Tarki

Danke für eure Hilfe und Input.

Ich habe es nun wie folgt gelöst:



WITH LFDNBR (LEVEL)
AS (VALUES(10000)
UNION ALL ...

Ich habe die Personaldatei die hat den Key FINR/PENR und ist unique.

Dann gibt es eine Logische die den Key PENR hat und auch unique ist.

Mit dieser Statement habe ich eigentlich angefangen, aber die Nummern von 10475 bis 12000 sind frei und er leifert mir den wert 12002 zurück.


SELECT min(a.penr) + 1
FROM PERP a
left outer...

Für was steht 'x'?
Finr sind bei uns 3-stellig.
Wenn ich ein Join auf eine logische Datei die den Key PENR hat und unique ist, würde das funktionieren?

@ExAzubi: Mit Group by habe ich es...

Hallo,

ich habe aus dem Forum ein tolle Sql-Routine bekommen und die nächste freie Personalnummer zu ermitteln.
Es wird die nächste freie Nummer zwischen 10000 und 99999 gesucht.
Ich hatte...

Danke aufrichtig für die Hilfe.
Das Problem lag an meiner Datenstruktur, da hatte ich die falsche Reihenfolge :((
Das Coalesce habe ich eingefügt und ist wirklich sehr performant.

Leider hatte ich Debug-Modus eh vorher schon probiert aber da kann ich leider keinen Hinweis finden:


RPG-PGM:
Der Zugriffsplan der Abfrage wurde erneut erstellt.
****: Debug-Nachrichten für...

Hallo,

ich kann mein Sql mit STRSQL absetzen ohne Fehlermeldung:




SELECT
TBL1CDE AS CDE, // 16 A
TBL1FO# AS FO#, // 5, 0

LOL, kein Problem.
Wusste nicht das mit STRSQL gleich zum eintippen ist.
Dankeschön

Hallo,

wie kann ich mir eine Liste erstellen mit allen Druckern auf unserer AS400 mit IP-Adressen?
Wollte mir das in eine Datei kopieren:


DSPOBJD OBJ(*ALL)
...

Morgen,
sorry wen ich Nerven gekostet habe.
Mit dem Befehl Format habe ich gemeint das Problem behoben zu haben, da der Lösungsansatz mit
Create Table .. nicht funktioniert hat.

Aber...

Hi,

mit SQL Create Table habe ich es als erstes versucht.
Leider mag das das das externe (uralt)Pgm nicht.
Es muss ein DDS-File vorhanden sein.
Um mir die Kopiererei der Felder aus der...

Hallo,

Ich brauche einen 2.ten identischen DDS-File.
FILE B sollte die selben Felder Definitionen von FILE A übernehmen

Ich brauche diese 2 identische Datei da ich mit der QTEMP nicht arbeiten...

Morgen Frau Hauser,

ich lese Ihre Post immer sehr gerne, da sie für mich mit viel Wissen gespickt ist.
Ich wollte es nur erwähnen, da man in der heutigen Zeit meist das Positive, bzw. was man an...

Hallo,

hätte eine Frage dazu:
Ich bekomme bei folgenden Statement SqlCde=-305 SqlStt=22002(Anzeigervariable erforderlich) zurück.
In der Datenbank gibt es keinen Satz dazu.


VALUES(SELECT...

Moin,

ja das wollte ich auch so lösen, wusste nicht ob es "Eigenheiten" in der Form von Inputrename gibt.

lg

Hallo,

wie kann ich am besten das sicher in free wandeln bzw. kann mir wer Tipps geben?



FFILEIN IF F 128 DISK


IFILEIN SA 11 1 D6 2 D1 3 D1

Hallo,

danke vorab für eure Antworten.

Ich habe beide Arten von Label on bereits versucht(.. is ..; ... Text is ..).
Leider ohne Erfolg.

Ein Select (select feld1 as "Name", ...) wie es...

Hallo,

möchte einen Tempfile als CSV im IFS ablegen.

Den Tempfile erstelle ich mir mit den benötigten Feldern:
CREATE TABLE QTEMP/TEMPFILE AS
(SELECT FELD1, FELD2, FELD3, … FROM …)
WITH...

ja aber manchmal sind sie geschachtelt(Pmoch(Pmoch01 - Pmoch17), dh habe ich mich für das overlay entschieden.

Hallo,

bei uns werden DS beim Programmaufruf übergeben.
Ich bin gerade dabei das ich diese DS durchsehe und prüfe ob das ein 5, 0 Feld ist.
Diese würde ich dann referenzieren, damit ich im...

Danke für die ausführliche Informationen.

Danke, danke für die ausführliche Erklärung.

Sorry,

leider stehe ich völlig auf dem Schlauch mit "unterste Ebene".
Wie ist das gemeint. Dachte immer ifnull muss ganz am Anfang stehen.
Nullif hatte ich noch nicht in Verwendung.

Hallo,

wie müsste mein Statement aussehen, damit ich ungültige Daten(falsches Datum, Wert = 0) abfangen kann?
start_D = Dec 8,0



SELECT
IFNULL(Date(to_date(char(start_D), 'YYYYMMDD')) , ...

In der alten Datei ist die KDNNR nicht referenziert.
Wenn jetzt REF_KDNNR auch 5, 0 ist, ändert sich ja die nach chgpf der
Level identifier nicht.
Nehme ich da richtig an das ich dann auch keine...

Ich sollte Kundennummern auch anheben(5,0 dzt.) und wollte mir daher die Erweiterung der Bestellnummer als erstes vornehmen.

Leider ist hier nicht nach Plan vorgegangen worden da die Datei 1989...

Hallo,

ich habe diesbezüglich schon mal was gepostet, finde es aber leider nicht mehr in diesem Forum.

Bei uns steht eine Felderweiterung(Bestellnummern) an, da die Nummern ausgehen.
Dieses...

Leider ist Joblog unauffällig:


Inhalt der Teildatei EDIHLDFP in Datei EDIHLDFP in T_DTA gelöscht.
Umgebungsvariable ist nicht vorhanden. ...

Mit wrklnk bin ich bis zum Member gekommen.
Die neue Datei wurde mit CRTPF (opiton 14) erstellt.
Von den Objektberechtigungen sind beide Dateien auch gleich.

Hallo,

habe mir vor einiger Zeit ein CL geschrieben, was mit QSHELL von IFS in die Datei EDIMP01P ausliest.

Das Programm hat toll funktioniert.

Jetzt habe ich eine ähnliche Anforderung und...

Habe die von dir angegeben Variante getestet.

Hätte noch eine Frage:
Updates mit:
UPDDTA = QDZTD00001
SQL = QSQISE

gibt es sonst noch andere Ausnahmen die Updates machen können(außer...

Aufrufstappel ist:


Art Programm Anweisung Prozedur
QCMD QSYS /04FA
ADDLIBLE TSTPGM 2100 ...

Habe es jetzt umgesetzt und bekomme aber einen Fehler.

Mein Rpg-Code


D PRVPGM PR EXTPGM('PRVPGM')
D CALLER_ 10A Options( *Omit ) ...

Hallo Birgitta,

im Internet hast du folgendes zu QDBPUT/QDBUDR gepostet.


/*****************************************************************/
/* Object. . . . . . . . . : PRVPGM ...

Hallo Forum,

ich wollte mit Sql in einem Char-Feld die Kostenstelle ersetzen
Das Feld KST ist 4,0



KST = 54
EXEC SQL
UPDATE Tmp_FILE

@ Fürchau:In meiner Datei habe ich kein Timestamp-Feld.
Um mir das Alter Table zu sparen.

CURRENT TIMESTAMP hat funktioniert(hatte es so CURRENT_TIMESTAMP vorher versucht):

Danke

Hallo,

wollte mir eine Hilfstabelle erstellen, wo ich gerne auch einen Timestamp aufgenommen hätte.

Wie müsste ich hier das Feld TISTMP casten?



CREATE TABLE QTEMP/T_ARTIKEL AS ( ...

Danke an alle,

ich habe es nun so upgedatet:

update myfile
set oldKDN = 0
where hex(oldKDN) = '404040'

lg

Hallo,

das Feld ist nachträglich hinzugefügt worden.
Aber sicher ein schreibendes Programm nicht kompeliert worden.

Was ist eigentlich ein echter Null-Wert?
Der oben beschriebene Fall?

Wie...

Liebe Birgitta,

danke für die Anmerkungen, war mir leider nicht so bewusst.

Bisher habe ich null-Werte in der Datenbank mit upddta manipuliert.

Ginge das auch mit Sql damit ich die Werte mit...

OLDKDN ist in diesem Fall Numerisch.

ich habe mir eine Datei erstellt, wo in den Sourcen die Kundennummer vorkommt.
Manchmal kommt Sie Numerisch, manchmal auch Alpha.

Die Längen variieren auch...

Hi,

das hätte ich schon in der Where Klausel probiert.
Bekomme dann wieder die Meldung: Auswahlfehler für Feld OLDKDN

Hallo,

ich habe mir eine Datei erstellt, wo ich Kundennummer Vorkommen(Dateinname/Feldname/Art (Dec/char)) erfasst habe.

Diese lese ich native durch und stoppel mir Sql-Statement zusammen....

Danke, das war es.
Mit dem Libname habe ich das völlig übersehen

Brauche ich eigentlich den CMD dazu?

ich habe das Programm aufgerufen und bei mir ist immer

[/CODE]APIErrDS.QUSBAVL = 26
389
[/CODE]

Hätten Sie ein Beispiel von so einer Abfrage?

Hallo,

die aktuelle Bibliotheksliste kann ich mir ja mit Sql holen:


SELECT ORDINAL_POSITION AS POS, SYSTEM_SCHEMA_NAME AS LIBRARY,
TYPE, CAST(TEXT_DESCRIPTION AS CHAR(50)) AS TEXT
FROM...

Hallo,

Danke Aufrichtig für euren tollen Input von allen Seiten.
Da habe ich einiges zum Studieren.

Glg

Wie ist das gemeint?
Schreibe ich dann ein ServiceProgramm, welches das Java-Pgm aufruft?



D getExampleValue...
D PR 8F ExtProc(*JAVA:
D ...

Hallo,

Betrete hier Neuland und bin für jeden Tipp dankbar.

Wie kann ich von der AS400 AMQP send/receive machen?
Als AMQP Broker verwenden wir RabbitMQ.

Wollen das in Zukunft unser...

Danke für die rasche Hilfe.

Hallo,

habe bisher noch nichts mit 2 Record-Formaten zu tun gehabt.

Habe eine logische Datei ZAUFL1
Die Datei ZAUF1PS referenziert auch auf die Datei ZAUF1P.

Wie muss man diese 2 Formate...

Danke für die Unterstützung.
Ich habe versehentlich die Bezugszahl 34 benutzt die aber für CHANGE(34) vorgesehen war.

ich stürze beim write SUBFCTL1;

Beim Debuggen stürze ich beim 2. mal befüllen in der Clear Sufile Routine (write SUBFCTL1;)
Wie kann ich das Testen ob das SFLCLR funktioniert?

Ich mache aber ein Reset auf C1RNR.
Ich zähle ja auch das selber hoch.

Hallo,

mich plagt der selbige Fehler und ich werde nicht schlau draus.

Ich fülle einen Subfile über ein SqlStatement und der wird mir auch angezeigt.

Sobald ich im Sfl-Controller auf was...

Ja, war leider ein Tippfehler 55 <==> 99

Hallo,

ich hätte gerne einen Sourcecode bearbeitet und habe da noch einige Flecken die nicht automatisch in Free übernommen werden.

Stimmt hier meine Umsetzung? Welche Stolpersteine würde es...

Ist ausgezeichnet mit %kds.

Ich hatte bei dem anderen Programm glück da es sich um Alphafelder gehandelt hat.

Dankeschön

Hallo,

bekomme einen Fehler den ich nicht deuten kann.
Die Datei wurde nicht geändert und die Keyfelder stimmen auch überein:



*RNF7072 30 036169 KFLD bei Folgenummer 1436 ist CHAR,...

Morgen,

ich habe das api QMHSNDM ausprobiert:



// Message = 'Fehler aufgetreten! Test';
// QMHSNDM( *blanks
// : *blanks
// :...

Morgen,

Verzeihung den doppelten Post, dachte mir beim Forum Programmierung trifft das eher zu.

Danke für die Antwort.

Hallo,

ich hätte vor in ein Programm, das im Batch läuft, diverse Dateioperationen mittels Sql abzulösen.
Im Programm wird ja bei einem Write, bei einem doppelten Schlüssel, eine Nachricht an den...

Hallo,

ich hätte vor in ein Programm, das im Batch läuft, diverse Dateioperationen mittels Sql abzulösen.
Im Programm wird ja bei einem Write, bei einem doppelten Schlüssel, eine Nachricht an den...

Ich habe diesen Comand in einen Monitor-Anweisung.
Aber den ON-ERROR *ALL ruft er nicht auf.

Hallo,

beim Testen ist mir aufgefallen dass, die Fehlermeldung
TCP530F E-mail Address Invalid
nie auftritt obwohl ich eine falsche Mailadresse angegeben habe.



SNDSMTPEMM...

Danke vielmals, das war es.

Dieses Statement liefert eh keine Daten.

Das rekursive CTE von Pikachu liefert das gewünscht Ergebnis(echt Cool!).

@ Fürchau: Ich habe das Statement schrittweise auseinander genommen, aber das Ergebnis war immer der letzte Satz. ehrlich

Hallo,

ich habe alle Varianten ausprobiert, bekomme aber immer den letzten Satz geliefert.

Hallo Birgitta,

ich habe das Sqlstatement abgesetzt:



Select *
From BESTELLP
Start With B1BNR02 = 7635561
Connect By Prior B1BNR01 = B1BNR02

Danke vielmals,

Connect By Prior scheint die Lösung zu sein.
Werde mal sehen wie performant das ist.
lg

Sorry, aber mit der Formulierung habe ich mir schwer getan.
J
a ich muss mit der Nummer die ich ermittelt haben wieder weitermachen.
Schuss ist sobald die B1NR02 0 ist.
Der Primary-Key der Datei...

Mit dem Wert aus dem Feld B1NR02 chaine ich auf die BESTELLP und da steht entweder die Null drin oder ich muss mit der Nummer weitermachen.
Wie weit ich zurückgehen muss ist verschieden.

Hallo,

ich habe eine Bestelldatei(BESTELLP) die 2 relevante Felder(B1NR01, B1NR02) für mich hat.
Der Key von der Datei BESTELLP ist B1NR01.

Falls das Feld B1NR02 befüllt ist, müsste ich mit...

Hallo,

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

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

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:...

Oje, danke Vielmals für die rasche Antwort.

Hallo Frau Hauser,

ist es auch möglich im Select-Statement mehrere Dateien anzugeben?
Bekomme den Fehler SQL0511.



EXEC SQL
DECLARE CUR_C1 CURSOR FOR
SELECT T01.FIRMA, T01.PENR, T02.NAME

Hallo,


tut mir Leid für die ungenaue Fragestellung.


Eine Arbeitsgruppe ist durch das 1.Zeichen als $ und ID2 = *ZEROS gekennzeichnet.
Zu einer Arbeitsgruppe(ID1 = unique) gehören diverse...

Danke wie ich sehe muss ich die Auflistung direkt in RPG ausprogrammieren.

lg

Tarki

Ja, sorry Copy-Paste Fehler.

Morgen,

mein Wunsch wäre ein Sortierung.




SELECT ID1, WRKCDE, ID2 FROM W1WORK
WHERE W1LND = 'AT' AND W1TYP = '3'
ORDER BY BLFID, BLFGRPID