Suchen:

Ein Auftrag kann beliebige Zeilen Text haben. In meinem Beispiel besteht Auftrag 4711 aus 3 Zeilen Text. Ich möchte wissen, welche Aufträge den identischen Text haben. Und zwar identisch in der...

Die Antwort von Birgitta trifft die Sache auf den Kopf. Danke dafür.
LISTAGG war mir nicht bekannt. Funktioniert aber super. So kann ich herausfinden welche Texte im ganzen doppelt sind. Es reicht...

Hallo Zusammen,
ich schreibe Auftragstexte in eine Datei.
Felder sind: Auftragsnummer, Text
4711 Zeile1
4711 Zeile2
4711 Zeile3
4712 Zeile1
4713 Zeile1
4713 Zeile2
...

Hallo in die Runde!

ich möchte auf der AS/400 einen SQL SELECT absetzen, der mir Daten aus einer MS-SQL Datenbank abfragen soll.

Mit ADDRDBDIRE RDB(WINPERSO1 SQL) RMTLOCNAME('10.1.1.66' *IP)...

Genial. Hat funktioniert. Vielen Dank.

Hallo Zusammen,

ich brauche mal einen Gedankenanstoß für eine SQL Abfrage.

Tabelle:
Kunde, Jahr, Umsatz

Ich möchte eine Auflistung aller Kunden eines Jahres absteigend nach Umsatz (also der...

ACTGRP(*NEW) hatte ich auch schon überlegt. Allerdings fehlte mit der Parameter im Befehl CRTSQLRPGI. Habe das jetzt aber in die Control-Options geschrieben und dann funktioniert es. Das Programm...

Gibt es keine Möglichkeit, bei Beendigung der Main Procedure das Programm aus dem Speicher rauszubekommen?

Hallo,

ich erstelle meine RPG-Programme seit einiger Zeit zyklusfrei (also mit main und pi, ohne *inlr). Jetzt fällt mir auf, dass beim zweiten Programmaufruf die Programmfelder oder...

Danke für die Hilfe. Ich hatte tatsächlich das GOUP BY in meinem Beitrag vergessen. Im Original hatte ich es natürlich drin. Die Lösung ist, dass ich die Istkosten vorher in der WITH Anweisung...

Ich möchte aus 2 verschiedenen Dateien jeweils Summen bekommen, unabhängig wieviele Sätze mit gleichem Schlüssel in den jeweiligen Dateien stehen

Tabelle1:
Nummer, Position, Sollkosten
...

Ich habe eine Datei mit einem Datums und einem Zeitfeld (leider getrennt). Ich möchte den Satz ermitteln, der die letzte Zeitmarke hat.
Mit max(char(datum) concat '-' concat char(zeit))...

Code durch
dcl-ds nullds;
nullflg int(5) dim(50);
END-DS;
ergänzt. Und die FETCH-Anweisung durch :NULLDS ergänzt. Jetzt kann ich das Programm nicht umwandeln,...

Hallo in die Runde,

ich habe eine SQL VIEW, welche in einigen Feldern NULL-Werte enthält

Ich möchte diesen VIEW jetzt im RPG mit embedded SQL verarbeiten. Bei den Sätzen mit NULL-Werten kommt...

Vielen Dank. Ich wußte, dass es nicht schwer sein konnte. :-)

Ich habe eine Tabelle mit mehreren "Datümsern" :-)
02.01.2017
15.01.2017
20.01.2017
02.02.2017
03.02.2017
18.03.2017
19.03.2017
15.04.2017
28.04.2017

danke für die Hilfe. Da hätte ich auch selbst drauf kommen können. Der Befehl RUNRMTCMD läuft jetzt durch. Ich bekomme keine Fehlermeldung. Allerdings wird die Script-Datei offensichtlich nicht...

Danke für die Info aber mein STRPCCMD sieht folgendermaßen aus:
STRPCCMD PCCMD('wscript w:\weberei\konkart\se.vbs' +
*BCAT &MODUS *BCAT &PFAD_QS *TCAT &NAME +
...

Hallo Robi,

STRPCCMD kann bei mir nicht im Batch ausgeführt werden. Kann ich das umgehen?

Ich rufe aus einem CL-Programm, welches in einer 5250-Emulation läuft, eine .BAT Datei auf. Dazu nutze ich STRPCCMD. In der BAT-Datei wird eine Excel-Datei ausgedruckt. Das funktioniert auch alles...

Hallo,

An einem Bildschirm in der Produktion ist immer ein allgemeinr Benutzer LAGER angemeldet. Dieser öffnet ein RPG-Programm, welches Prozesse anzeigt, die von einem Benutzer mit Password...

Noch eine Anmerkung/Frage? Wie entscheidend ist in diesem Zusammenhang der Systemwert QCHRID? Der steht bei mir auf 697/273. Muß der vielleicht 695/1141 sein?

Klappt leider auch nicht. Es wird immer noch kein Eurosymbol gedruckt. Als RMTPRTQ hatte ich bisher immer 'portLF1' eingetragen. Aber auch mit COM1 funktionierts nicht anders. Die Zeile mit dem...

Hallo,

ich verwende einen Zebra 140 per Remote Outq an der AS/400. Wird über IP-Adresse angesprochen.

Outq Beschreibung:
MFRTYPMDL(*WSCSTCONT132)
WSCST(QSYS/QWPDEFAULT)

Alle Drucke...

Ich brauche die Bezugszahlen auch nur noch als Fehlerbezugszahl für Bildschirmfelder. Was meinst Du mit "kann man anders lösen" ?

früher konnte man ebenfalls mit
movea *in(61) bez5
if bez5 = *all'1'
mehrere in einer reihe liegende bezugszahlen abfragen. heute geht das leider auch nur in der schleife oder mit
if *in61...

Außerdem ist zu beachten, dass das Feld "ind" als 3 0 Feld deklariert werden muß, da es am ende der schleife den wert 100 hat. ;:)

Hallo,

im RPG/400 konnte ich mit der Anweisung
movea *all'0' *in(50)
alle Bezugszahlen >=50 mit einer Anweisung auf 0 setzen.

Wie geht so etwas im Freeformat.

DANKE und Gruß

Kennt jemand in RPG (am besten free) eine Routine um Dezimalstunden (z.B. 7,75) zu einem Zeitmarkenfeld zu addieren?. Wie bekomme ich am einfachsten heraus, dass es sich dabei um 7 Stunden und 45...

Hallo,

ich möchte eine Do-Schleife im Freeformat cordieren.

Do 5
....
enddo

warum kann ich bei FOR nur ein feld und keine Ganzzahl eingeben?

Hast mich auf eine Idee gebracht. Ganz so funktionierte es nicht, daher habe ich den Quellcode noch etwas verändert.

h nomain
0002.00...

Hallo Zusammen,
ich möchte mit RPG ein 8-stelliges Alphafeld in ein Dezimalfeld (9,2) übertragen. In dem Alphafeld kann linksbündig eine Zahl stehen. Allerdings mit bis zu 2 Nachkommastellen (also...