Suchen:

huch, stimmt genau ... ;)
hab´s geändert.

Zum Verbergen oder Anzeigen bestimmter Felder in einer Displayfile kannst du mit DSPATR(ND) arbeiten.

hier ein bißchen Codegeschnipsel:


DSPF:
A CF08(08...

um an den zweitgroßten Satz zu kommen, muss Du nur ein Mal Positionieren und dann zwei Mal mit readP lesen, also:



/free
setGT *hival DATW111; // positionieren am Ende der Datei
readP...

Hallo KM,

schon mal diesen Weg hier ausprobiert?
IBM i Support: Software Technical Document : 530661234

Grüße
Kathrin

Wenn ich davon ausgehe, dass die Tabelle wie folgt aussieht:

OBJEKT LFDNR
Alpha 1
Alpha 2
Alpha 3
Beta 1
Beta 2Dann bekommst du...

genau, nachfolgende Verkettungen müsstest du in einem separatem Statement angeben.

;)
Grüße, Kathrin alias woki

natürlich geht das auch mit den 11 Zeilen Quellcode zum füllen von d_zbb :D
hier mit 3 Zeilen:
evalR d_zbb = %char(#_rem);
evalR %subst(d_zbb:1:3) = %char(#_rest) + ':';
d_zbb...

aber warum machst du es so kompliziert?
so wie ich verstanden habe, steht in #_rest die Stunden und in #_rem die Minuten. Das soll alles in d_zbb mit dem Format hh:mm geschrieben werden. Deine...

%subst(d_zbb:4:2) = '0' + %char(#_rem);
ohne Leerzeichen hinter der 0.

unter anderem hier: Program Status Data Structure - MidrangeWiki

du must das in 2 Schritten machen:
1. setze 4. Position von d_zbb
2. setze 5. Position von d_zbb

%subst(d_zbb:4:1) = '0';
%subst(d_zbb:5:1) = %char(#_rem);

Beide Anweisingen in einem...

Bei den foldenfen Statements
%subst(d_zbb:4:1) = '0' + %char(#_rem);
%subst(d_zbb:4:1) = '0' + %subst(d_zbb:5:1) = %char(#_rem);
füllst du ja nur die 4. Position (4:1), und das mit einem Wert,...

warum machst du es nicht so:
rechtsbündig füllen mit
evalR d_zbb = %char(#_rem);
und dann ggf. links mit Nullen auffüllen mit
d_zbb = %xlate(' ':'0':d_zbb);

warum machst du es nicht so:
1. lösche "lib/sql001" wenn vorhanden
cnn.Execute "DROP TABLE IF EXISTS lib.sql001"
2. erstelle "lib/sql001" neu
cnn.Execute "CREATE TABLE lib.sql001(...)"

Hallo Eric,

versuch es mal so:


Option Explicit
Sub as400_SQL()
Dim cnn As ADODB.Connection
Dim CallCmd As String
Dim SQL As String

-- hat sich erledigt..

und hier fertiger programmcode von Bryan Dietz: http://home.roadrunner.com/~jbmmdietz/dsparp.html

hier eine mögliche Lösung von Scott Klement: midrange.com -- RPG400-L -- Re: MAC Address

Use PHP on System i Part 1 and Part 2

Hier noch ein paar Infos zur sysdummy1:
ist die DB2-Tabelle SYSIBM.SYSDUMMY1 noch state-of-the-art

dann muß es so aussehen:
CallPgm = 'call pgm(Prog) parm(X''0' + %subst(Feld:10:6) + 'F'')'

Eine kleine Beschribung findest du auch hier: http://publib.boulder.ibm.com/infocenter/iseries/v5r4/index.jsp?topic=/books_web/c092508665.htm

wahrscheinlich nicht die eleganteste Lösung, aber es müßte funktionieren:


select a.produkt, (select b.preis
from preistabelle as b
where b.produkt = a.produkt
and b.lfnr in...

wahrscheinlich nicht die eleganteste Lösung, aber es müßte funktionieren:


select a.produkt, (select b.preis
from preistabelle as b
where b.produkt = a.produkt
and b.lfnr in...

Hier 2 Artikel zu dem Thema:
The Four Hundred - Admin Alert: Curing Access-to-ODBC Blues
The Four Hundred Admin Alert: Feedback on ODBC Errors and WebSphere Express Installs

Wenn Commit immediate = *NONE gesetzt ist, wird ODBC jede Datei updaten. Egal ob es ein Datei-Journal gibt oder nicht.

damit ;) :


d sqlStatement s 1024 inz('')
d myPgmVar s 128

/free
myPgmVar = 'MyFeld1'; ...

Das bekommst du mit execute immediate hin:



/free
varFeldName = 'SaNr';
varFeldWert = SaNr;
varSQLStatement = 'SELECT SaName From SATEP01 Where ' + varFeldName + ' = ' + varFeldWert;...

Richtig, 9 Stellen numerisch, davon 0 Dezimalstellen, initialisiert mit dem Wert 5.
*inlr = *on bewirkt, daß das Programm beendet wird (last record indicator)
Genau, das ist eine einfache...

Hier ein RPG-Quelltext mit Prozedur nach deinem Beispiel:


*---------------------------------------------------------------*
* Main * ...

Um was für ein Programm handelt es sich denn? Um ein RPG-Programm??

Beispiele für dynamisches SQL findest du hier im Forum:
-Stichwort EXECUTE IMMEDIATE mit SQL Befehl als String in einer...

ich denke da mußt du mit dynamischen SQL-Statements arbeiten. Weißt du denn an einer stelle des Programms (nicht im SQL-Statement), um welche Felder es sich handelt?

@schmidtke72
Vielen Dank für das Angebot, ich werde es auf jeden Fall vormerken!

habe das programm mit CHGPGM USRPRF(*OWNER) geändert. Vielen Dank!

Hallo,

in einem Programm wird eine logische Datei mit folgendem Befehl in der QTEMP erstellt:

CrtLF File(QTemp/DateiL)
SRCFILE(LiblSrc/QDDSSRC)
Aut(*ALL)
Option(*NOSRC *NOLIST)Hier Bricht...

Meinst du vielleicht:

1. Sortierung

Select FeldA, FeldB, FeldC, ...
From TabelleA
Where ...
Order by 1 asc, 2 desc2. Sortierung

Select FeldA, FeldB, FeldC, ...

Könntest du den Befehl zum Umwandeln bitte einmal posten?



Geh hier bitte mit dem Zeiger auf die Fehlermeldung und drücke F1,
jetzt kannst du dir die detaillierte Fehlermeldung anschauen. Wenn...

Hast du das Programm mit den Optionen OUTPUT(*Print) und DBGVIEW(*ALL) umgewandelt?

Das sehe ich auch so... :cool:

Langsam aber sicher nervt es. Die Kommentare sind reiner SPAM.

@E305GL
Deine Kommentare (Werbung) sind wohl besser hier aufgehoben.

Dann müßte es so aussehen:



Update TableA as a
Set a.Preis = (Select min(b.Preis) <- Wahlweise min/max/avg
From TableB as b
Where b.TeileNr = a.TeileNr
...

Oder auch:



SELECT (Select count(1)
From MyTable as b
Where b.NR = a.NR
and b.ANZ < a.ANZ + 1),
a.NR, a.ANZ, a.WERT ...

Update TableA as a
Set a.Preis = (Select b.Preis
From TableB as b
Where b.TeileNr = a.TeileNr)
Where exists (Select 1
From TableB as b
...

Vielen Dank, habe den OVRDBF-Befehl protokolliert und ungültige Daten gefunden.

Hallo Forum,

in einem RPG-Programm habe ich mehrere OVRDBF-Befehle, die ich per QCMDEXEC absetzte, diedes Programm bricht immer nach einiger Zeit ab.
Auszug aus dem Jobprotokoll:


CPD0104...

Zum Potenzieren kannst du im ILE ** verwenden:
a ** b = c
2 ** 3 = 8
9 ** (1/2) = 3

Bei RPG III ist es meiner Meinung nach nicht möglich.

Ich würde es so machen, wie Fuerchau es in seinem 2. Vorschlag beschrieben hat:
Nimm den Artikelstamm als Primärdatei und verknüpfe diese mit den 3 Umsatzdateien.

Könnte das hier passen?

IBM - IBM Rational 7.0 Release areas only support single language when created from CD media or ISO

Hilft dir das hier vielleicht weiter?
Debugging SQL procedures (Integrated iSeries Debugger)

>>-ROUND--(--expression-1--,--expression-2--)------------------><

expression–1
An expression that returns a value of any built-in numeric, character-string, or graphic-string data type. A...

schau mal hier:
IBM - DSPSIZ(*DS3 *DS4) Causes Message CPD7817 and Message CPD7812 on a Subfile

Geburtsjahr: 1981
Berufserfahrung: 3 Jahre
in ungekündigter Stellung sucht neue Herausforderung, gerne in Baden-Wüttemberg

- Eingenständige Projektarbeit
- Mitarbeit in Projekten
-...

:confused:
Könntest du mir bitte ein SQL-Statement vorgeben?
Mit welchen Join zwischen Kunden- und Artikeltabelle soll ich arbeiten??
Sorry...

Hallo Forum,

ich habe folgendes Problem:

Kunden:

4711
4712

Artikel:

Habs nach ca. 5 weiteren Test hinbekommen, so läufts:

Masterprogramm:

FTEST71213 O E PRINTER OFLIND(Overflow01)
*
Dj ...

Die Reihenfolge stimmt. Aber ich kriege es nicht hin, daß ich die erste Seite aus dem ersten Programm und die folgenden Seiten aus dem 2. Programm zusammen geklammert sind. ich habe etwas...

Ja.

Wie mache ich das denn :confused:

Liebe Forumsmitglieder,

ich beschäftige mich gerade mit dem STAPLE-Befehl.
Ich habe eine Druckdatei SHARE(*YES) mit der ich von 2 Programmen aus arbeiten möchte.
Aus Programm 1 wird eine Art...

Versuch es mal hiermit:



insert into jrnanz/SOURCES1
SELECT 1 , 1 ,' A ' concat WHFLDI concat ' ...

hmmm - langsam weiß ich nicht mehr, was ich machen soll.....
Ich habe eine Java-Klasse SprachServer und einen Thread namens SprachServerThread.
Diese sind in den .java-Dateien SprachServer.java und...

Mit diesem Zusatz

export -s CLASSPATH=/QIBM/ProdData/HTTP/Public/jt400/lib/jt400.jar
vor dem Wandeln klapp es......

Hallo Forum,

ich versuche mich mit den ersten Java-Testprogrämmchen auf der AS/400.
Ich habe mir das GetConnections.java-Programm aus dem Redbook iSeries: IBM Developer Kit for Java angeschaut...

Wie wäre es mit current date - 7 day?

Genau das habe ich gesucht, vielen Dank!!:cool:

Oder gibt es eine andere Möglichkeit, als auf die RRN zu gehen und diese auszuwerten??

QuellenDatei
KeyFeld1 KeyFeld2
4711 4715

Zieldatei
RRN KeyFeld KZFeld
1 4711 0
2 4712 1
3 4713 2
4 4714 0

Ich möchte nicht die Differenz aller Datensätze sondern nur derer, die KZFeld = 0 sind.

Hallo Forum,

ich habe ein Problem mit einem SQL-Statement.
Ich habe 2 Werte aus eine QuellenDatei und greife damit 2 mal auf eine ZielDatei zu.


Select a.KeyFeld1, a.KeyFeld2
...

Super, das war's!!! :D

Ich möchte nicht für jeden Monat einen Datensatz, sondern die Anzahl der Rechnungen für jeden Monat in einem Datensatz.
Als Beispiel hier der die Summes des Warenwerts für jeden Monat und...

Hallo Forum,
dieses Thema hat mir schon weitergeholfen, ich habe aber noch folgendes Problem:

Mit diesem SQL-Statement bekomme ich die Anzahl der Rechnungen pro Kunde für das Jahr 2006

...

Das habe ich mir auch schon überlegt, ist zwar unschön, aber was solls...
Ich habe gehofft, daß es eine andere Lösung gibt.
Vielen Dank für die Antwort!

Hallo Forum,
ist es bei SQL/400 möglich in einer Where-Klausel mehrere Felder mit dem Ergebnis einer Subselect-Abfrage zu vergleichen?

Bei ORACLE sieht das dann so aus:


select *
from xyz...

Ausporobiert und es klappt: Danke für den Tipp!

Code400 und VisualAge gibt es wohl, damit arbeite ich auch - dort habe ich aber nichts mit dem Free-Format gesehen, außer in der Hilfe :D
Demnächst bekommen wir das Update auf 6.0 - dann wird´s...

Wir haben die WDSC-Version 5.1.0.3 -> hier habe ich es leider nicht gefunden....
Na ja, vielleicht gibts das dann nach dem Update - aber danke für die Hilfe!

Super, ihr habt mir geholfen!!
Kann ich irgenwo im Internet eine Einführung in Free-RPG oder die Grundlagen finden?

Hallo,
ich befasse mich in den letzten Tagen ein wenig mit dem Free-Format-RPG.
Allerding weiß ich nicht so recht wie ich einen Chain über eine Datei machen soll, bzw. die ich den Key definiere,...

Ich bekomme eine Fehlermeldung:



Nachricht . . . : Kopieranforderung für Datei PMR23030 in QGPL
fehlgeschlagen. ...

Wie kann ich eine Spooldatei in einer SAVF sichern?

Hallo Forum,

ich habe ein Problem mit dem Ausdrucken von Pagesegmenten.
Ich kann zwar ein und das selbe Pagesegment zigmal auf einer Seite ausdrucken, aber
bei unterschiedlichen Pagesegmenten...

Hallo,
ich habe eine Frage bzgl. Queries:
Ist es hier möglich eine COUNT DISTINCT-Funktion wie bei SQL einzubauen?

genau das war es, vielen Dank!!!!! :D

Meine Dateien sehen folgendermaßen aus:

RBPSRC/QQMQRYSRC
KR_LIZARQ


H QM4 05 Q 01 E V W E R 01 03 05/02/06 11:46
V 1001 050 Lizenzabrechnung ...

Vielen Dank!
Mit %trim hatte ichs schon probiert, aber das hat einen Fehler ergeben. Mit trim noch nicht.
Gibt es irgendwo eine Hilfe vielleicht ein RedBook über embeddet Sql in RPG?

Ich versuche in einer Datei mittels des Namens eine dazugehörige Nummer herauszufinden.
Das Statement würde interaktiv so aussehen:

SELECT nummer, name
FROM datei
WHERE name like...

Super, vielen Dank, ich habe diesen Teil eingebaut:

c+ and (:PROGD0 = ' ' or PROGPW = :PROGD0)
c+ and (:AUSFD0 = ' ' or AUSFPW = :AUSFD0)
c+ and (:IDNRD0= ' ' or IDNRPL = :IDNRD0)
c+ and...

Mein Problem ist es, eine Art Filter zu Programmieren.
Das passiert in einem SQLRPGLE-Programm. Die Daten werden an ein VARPG-Programm weitergegeben und dort in einer Subfile abgefragt.
Im...

Versuchs doch mal in der VARPGDE-YahooGroup.

Ich habe den Fehler gefunden, so klappts:



if PROGD0 <> ' '
eval cmd = %trim(cmd) + PROG + '''' + PROGD0 +''''
endif ...

Hallo,
Ich führe in einem PGM ein Embedded SQL Statement (ich arbeite mit eienm Cursor) aus,
das mir leider kein Ergebnis zurückliefert.



SqlStm = 'SELECT PROGPW, AUSFPW, IDNRPL, ANGBPL, ...

Programmierer sucht neuen Tätigkeitsbereich (Festanstellung) in Raum NRW bzw Niedersachsen.
Geburtsjahr : 1981

- Ausbildung zur Informatikkauffrau
- Erfahrungen als Programmierer, u.a. AS/400
-...

Vielen Dank, Peter!

Hast mir sehr geholfen!!


LG
Kathrin

Und was bewirkt das RTVUSRPRF? Muß man Parameter übergeben, außer der dem User-Namen?

Sorry, was ist ein CLLE??

Hallo,

gibt es vielleicht ein API, mit dem ich abfragen kann, welchen Gruppen ein User zugeordnet ist?
Oder gibt es eine ander Möglichkeit, außer APIs?

Vielen Dank im Vorraus,
Kathrin

Danke... bin blutiger Anfänger :(
aber habe es nun gefunden.

Ich programmiere mit VARPG...