Suchen:

Hallo zusammen,

vielen Dank für die guten Wünsche. Inzwischen habe ich ein neues Hobby gefunden: Gehfussball bei meinem Lieblingsverein, dem VfL Bochum. Beim Gehfussball (neudeutsch walking...

Guten Tag,
vor einem Jahr habe ich mit 71 Jahren meinen Vertrag nicht verlängert. Jetzt, einen Herzinfarkt und einen Schlaganfall später, habe ich beschlossen mich endgültig in den Ruhestand zu...

Danke

hat alles geklappt.

LG Hubert

Hallo Baldur,

aus einer Maschine mit V7R3, aktueller PRF Stand:


Hilfetext Notiz NOTE - Hilfetext
...

Guten Morgen,

in V7R3 ist die Textlänge auf 400 begrenzt. Jetzt habe ich gehört, dass es ein PTF gibt, das eine Textlänge bis 5000 ermöglicht. Kennt jemand dieses PTF?

Besten Dank im Voraus
...

Leider nicht.

Ich habe ein BNDDIR angelegt:

Objekt Art Bibliothek
MSPBH02 *MODULE *LIBL
BER_PRU *MODULE *LIBL
und versucht, das Programm zu...

Guten Tag,

wir haben ein Modul zur Prüfung, ob ein Benutzer bestimmte Funktionen benutzen darf. Es ist in RPGLE geschrieben. Das Modul heißt BERPRU_P. Darin ist die Prozedur ber_pru.


P...

Selbst IBMer sagen noch immer AS/400

Aber %split funktioniert jetzt.

Danke

So sieht es im Normalzustand aus:




Journal . . . . . . : XXXJRN

Angehängter Empfänger: XXXRCV8023
...

Guten Tag,

während ich Journalreceiver zurückspiele, werden einige davon gelöscht, bevor alle zurückgespielt sind und ich mit der Fehlersuche beginnen kann.
Vor dem Zurückspielen habe ich das...

Das PTF ist installiert und es funktioniert immer noch nicht.
Was muss jetzt noch gemacht werde?

Danke im Voraus
Hubert

Herzlichen Dank,

das PTF ist in der Tat nicht installiert. Werde ich mich drum kümmern müssen.

Viele Grüße
Hubert

Guten Morgen,

in der RPG Referenz wird die built in Funktion %SPLIT beschrieben:

%SPLIT (Split String into Substrings)
%SPLIT(string {: separators })
%SPLIT splits a string into an array of...

Dank Eurer Unterstützung funzt es, aber es gibt ein weiteres Problem: einige PDF Ausgaben werden in polnisch oder tschechisch benötigt. Was muss ich da bei der Überschreibung als CHRID angeben. Die...

Ich habe jetzt die CCSID 1141 direkt in der Überschreibung angegeben. Und es funzt.

Ich danke euch allen für die Tipps.

Hubert

Schade, das wars nicht. Auch nach dem Wechsel der CCSID auf 1141 wird dieses sonderbare Zeichen statt des Eurozeichens ins PDF aufgenommen.

Guten Tag,

wir haben bisher ein Spoolfile über ein externes Windows Programm in PDF umgewandelt. Jetzt soll ich das direkt auf der AS/400 machen. Das läuft auch richtig gut - nur das Euro Zeichen...

Nachdem ich im DSPF die Länge für SFLPGMQ auf 276 geändert habe bekam ich in CPF2479 gemeldet Aufrufstapeleintrag FAKDET_SFL,
Dann habe ich auch den Parameter in der Prozedurdefinition geändert und...

Ich habe beides versucht. Wenn ich den Stackcount auf 0 setze, geht die Nachricht an SNDCSV. Mit 1 geht sie an FAKDET_SFLPROCESS. Das WRITE MSGCTL habe in die entsprechende Prozedur gesetzt, was aber...

Ich vergaß noch zu schreiben, dass die Fehlermeldung beim WRITE MSGCTL ausgegeben wird. Das Senden der Nachricht funktioniert ja.

Die Prozedur SNDCSV wird aus FAKDET_SFLPROCESS aufgerufen, wenn dort F9 gedrückt wurde. Hier wird dann aus der angezeigten Subfile eine CSV Datei ins IFS geschrieben und per Email verschickt. Der...

Nach einem Neustart sieht der Aufrufstapel jetzt so aus:


Art Programm Anweisung Prozedur
QCMD QSYS /04FA ...

Guten Tag zusammen,

bei dem Versuch, eine MSG Subfile anzuzeigen, erhalte ich den Fehler CPF2479 (Aufrufstapeleintrag nicht gefunden.)

Die DDS Definition:

A R MSGSFL ...

Ich will keine PDF öffnen sondern eine Spoolfile, nämlich die Umwandlungsliste des Programms, das ich gerade gewandelt habe.

Aber Du hast mich jetzt auf eine Idee gebracht: Ich erzeuge aus der...

Es ist ein stinknormales Makro:

[wait app]
[wait inp inh]
[pf15]
[wait inp inh]
[wait app]
[wait inp inh]
"2
[tab field]

Sorry, aber das bringt mich leider nicht weiter.

In den Dateien (ich vermeide hier absichtlich den Begriff Datenbank) gibt es zahlreiche Redundanzen. Die Felder stehen teilweise in Relation zu...

Zur Erläuterung:
Ich muss umfangreiche Analysen durchführen, woher die Daten in etlichen Dateien kommen. Dazu habe ich ein Programm geschrieben, das in einer Subfile alle Felder einer Datei anzeigt....

Hallo zusammen,

kennt jemand eine Möglichkeit, wie ein Makro aus einem Programm aufgerufen werden kann?

Herzlichen Dank im Voraus.

Hubert

Klasse, das hat funktioniert. Jetzt ist der Bereich vom SFL leer und die Fehlmeldung wird auch angezeigt.

Vielen Dank

Die Anleitung von Brigitta nutze ich schon lange. Ich habe jetzt etwas rumprobiert (RPG heißt doch: Raten Programmieren Glauben) :rolleyes:

Das Displayfile besteht aus drei Teilen


...

Ja, INDARA ist auf Dateiebene angegeben.

Was genau soll ich am Listoutput prüfen? Vom Displayfile oder vom Programm?

Wenn SFLDSP = *OFF ist, sollte es doch grundsätzlich nicht angezeigt werden oder irre ich mich da?

Das Programm ist im Grunde sehr simpel:

sflclear();
write fuss; ...

Guten Morgen,

auch mit ausgeschaltetem SFLDSP bleibt eine Subfile beim nächsten WXFMT auf dem Bildschirm.
Die Kontrollsatz Defi

R LISTECTL SFLCTL(LISTESFL) ...

Danke!!!

Manchmal sieht man den Wald vor lauter Bäumen nicht.

Was soll falsch daran sein, einen geöffneten Cursor wieder zu schließen?

Guten Morgen,

mit folgendem Code


exec sql
declare csAuswert cursor for
Select * from auswert; ...

Hallo Baldur,

nein, das ist kein Schreibfehler. Das ANZARRAY (war korrekt definiert) wird ohne Komma ans Ende der Anweisung gestellt. Die Felder sind in der Struktur vorhanden. Trotzdem klappt es...

Habe ich schon gemacht. Hat mich aber auch nicht weitergebracht. Aus der Umwandlungsliste:


BUNDHERK 11 STRUCTURE
...

Guten Tag,

meine Abfrage sieht so aus:

exec sql
Declare csBundinfo cursor For
select
...

Danke Ihr zwei,

wir haben zu zweit gesucht, aber manchmal sieht den Wald vor lauter Bäumen nicht. Und kaum macht mans richtig, schon fuktionierts.

Einen schönen Tag noch
Hubert

Guten Tag,

bei einer embedded SQL Abfrage bkomme ich immer den SQLCODE -206


exec sql
select * into dsaufposp from aufposp
where apkomm = '22059' ...

Das hatte ich auch gefunden. In der Prozedurdefinition hatte ich das bereits angegeben.


D setsockopt PR 10I 0 ExtProc('qso_setsockopt98')
D socket_desc 10I 0...

Das Problem besteht darin, dass mit den Zeilen


flags = fcntl(sock: F_GETFL);
flags = %bitor(flags: O_NONBLOCK);
fcntl(sock: F_SETFL: flags);


der...

Guten Tag,

beim Versuch eine Socket Verbindung aufzubauen bekomme ich immer den Fehlercode 3430 ( Operation in progress) zurück. Ein Auszug aus dem Code ist hier:


D p_sockaddr S ...

Das Serviceprogramm scheint der Fehler zu sein. Manchmal gibt es einen Wert zurück, der auch in den ersten zwei Stellen Blanks (X'4040') hat. Dazu wird dan eine Feldlänge > 16000 zurückgegeben....

Die Definitionen im Service Programm sind:

H NoMain

*-------------------------------------------------------------------
* - RtvDspFDesc - Retrieve display file description...

Hallo Brigitta,

hat leider nichts gebracht. Weder INZ noch Array. Im Gegenteil: ich schreibe die Daten per SQL in eine Datei.
exec sql
insert into doku.DSPFFLD
...

Guten Tag,

ich versuche die Feldinformationen von Displayfiles zu lesen. Dazu habe ich im Netz die Source für ein Service Programm gefunden. Die Darin enthaltene Prozedur wird u.a. mit eine DS als...

ad a) Es ist die gleiche Fehlermeldung wie vorher
ad b) Ich habe das Programm auf der AS/400 erweitert, so dass die Informationen bereitgestellt werden, auch wenn ich sie nicht wirklich brauche.
...

Das hat leider auch nicht funktioniert, ich habe es jetzut anders gelöst.

Herzlichen Dank für die Mühe

Hubert

Hallo zusammen,

ich versuche einen Befehl aus einem Word Makro per VBA auf der iseries zu starten.

Dim strSelect, strBefehl As String
Dim rsObjekt As New ADODB.Recordset

strBefehl =...

Ich habe jetzt eine DFTROUTE angelegt und erreiche jetzt den Provider.
Vielen Dank und ein schönes Wochenende
Hubert

Einen Eintrag mit *DFTROUTE existiert nicht in den Leitwegeinträgen

Guten Tag zusammen,

wir haben unseren externen Mailprovider gewechselt und können diesen mit der AS400 nicht erreichen.
Dem alten Provider war eine feste IP zugeordnet, die auch in den...

Hallo zusammen,

ich möchte in der QSHELL Dateien mit Wildcards suchen.

qsh cmd('ls ''EKB 30893 19.11.2018.pdf''') bringt wie erwartet die Anzeige dieser Datei.

qsh cmd('ls ''EKB 30893...

Danke für die schnelle Antwort, hat geklappt.

Hubert

Hallo zusammen,

in dem Thread http://http://newsolutions.de/forum-systemi-as400-i5-iseries/threads/10599-SQL-Update-aus-zwei-Dateien-mit-3-Schl%C3%BCsselfeldern wurde das Thema ja ausführlich von...

Leider war ich krank, deshalb die späte Reaktion.
Der Zugriff schlägt nur von einem Rechner fehl. Da ist aber als IP die IP für WORKSTN eingetragen. Ich kann das nicht ändern. Auch wenn ich die...

Danke für den Tip. Manchmal sieht man den Wald vor lauter Bäumen nicht. Wie Du schon schreibst, ist es zwar keine Lösung für das OC Problem, aber zumindest kann ich dann die anderen wieder an die...

Hallo zusammen,

heute Morgen war unsere Maschine nicht funktionsfähig, weil ein Job in der Nachtverarbeitung abgeschmiert war. Das QINTER war nochn down. Der Zugriff über die OC war nicht möglich,...

Vielen Dank für die prompte Hilfe.

Hallo zusammen,

ich wollte am Wochenende zu unserem bestehenden RAID5 (6 Platten) eine Hot Spare Platte konfigurieren. Als ich eine Platte dazu aus dem RAID entfernen wollte, hat die Maschine den...

Genau so ist es. Dann werde ich wohl das Lesen der Dateien ändern müssen.

Vielen Dank für Eure Hilfe

Scott Klement sagt da was Anderes:

If something goes wrong, and the system is not able to open the file that we requested, it will return a value of -1 instead of a file descriptor.


c ...

Hallo Baldur,

ja, ich bin sicher, dass der zweite open nicht fehlschlägt.

Hier der (fast) vollständige Code:


Verzeichnis = '/mailing/' + VERCVP + '/';
lsDateiname...

Hallo zusammen,

ich versuche zwei Dateien im IFS zu lesen. Zunächst erstelle ich über die QSHELL ein Inhaltsverzeichnis des Verzeichnisses in eine Datei. Dann öffne ich diese Datei, um alle...

Hallo Baldur,

es ist mir schon peinlich: ein Kollege hatte eine neue Installation mit CA 7.1 auf dem neuen Server durchgeführt, ohne mich zu informieren und hatte kein Service Pack installiert....

Die Server sind beide in Deutsch und haben das gleiche Servicepack von CA. Einen Unterschied habe ich jetzt gefunden: auf dem alten Server ist Excel 32 Bit und auf dem neuen 64 Bit. Gibt es auch...

Wie gesagt, auf dem alten Server läuft es immer noch, nur auf dem neuen nicht und es betrifft nur eine Datei. Der Zugriff auf andere Dateien im selben Verzeichnis funktioniert einwandfrei. Die...

Guten Tag zusammen,

seit mehr als einem Jahr läuft bei uns ein VBA Script in Excel, das Daten aus der AS/400 liest und daraus einen Report generiert. Der Zugriff erfolgt über ODBC. Nachdem das...

Es gibt aber auch die Möglichkeit eine Alternative Konsole zu konfigurieren:

1. In der Emulation einen festen Namen angeben (z.B. ALTKONS)
2. ADDWSE SBSD(QCTL) WRKSTN(ALTKONS) AT(*SIGNON)

Vor...

Ich habe jetzt eine Information gefunden, dass SSL_INIT_Application statt SSL_INIT benutzt werden sollte. Ein Beispiel dazu habe ich auch gefunden und angepasst.


SSLInitApp_p =...

Danke, das war ein klasse Link. Jetzt hab ich zwar eine Fehlermeldung, die aber wenig aussagekräftig ist:

Die für ein Argument angegebene Adresse ist nicht korrekt.

Jetzt bin ich leider ganau...

Hallo zusammen,

ich muss eine SSL Verbindung zu einem Internet Server aufbauen; ist mein erster Versuch mit SSL. Aber schon beim SSL_INIT fliegt er aus der Kurve und gibt den Fehler "SSL_ERROR_IO"...

Das hatte ich bereits, hat aber nichts gebracht.

Ein Kollege hat mich mit einem anderen Tip überrascht: auf dem PC V6R1 installieren. Ich hab es ungläubig versucht und es hat funktioniert.

Hallo zusammen,

ich versuche verzweifelt, an einer 520 eine OPS Console anzuschließen.

Auf der AS/400 ging das noch glatt: im SST hab ich umstellen können auf LAN Konsole und die Konfiguration...

Eine Kleinigkeit fehlte noch im DBQ:



Nachdem ich das NAM=1; und das Komma an der ersten Stelle des QBQ klappte es tadellos.

Vielen Dank für die Hilfe

Hubert

Ich muss mehrere Dateien lesen, die teilweise in verschiedenen Bibliotheken stehen. Ich habe nach den Hinweisen, die ich bekommen habe, den Connection String angepasst:


strconn = "DRIVER={Client...

Dies war ja nur eine einzelne Abfrage; in dem Programm gibt es noch jede Menge. Und je nach Umgebung sind die Bibliotheksnamen unterschiedlich. Deshalb will ich ja auch über die LIBL zugreifen. Was...

Hallo zusammen,

ich verzweifle fast: in Excel habe ich einen ODBC Zugriff, der auf eine Bibliothek zugreifen will, die es nicht gibt. Der Name der Bibliothek, auf die er zugreifen will, entspricht...

Danke für die schnelle Hilfe.

Dann wird der Kunde wohl PTF's einspielen müssen.

Hallo zusammen,

auf unserer Maschine ist V6R1, auf der Kundenmaschine V5R3.

Ich will ein Programm übertragen, das beim Kompilieren als Zielrelease V5R3 angegeben hat. Ich sichere in ein SAVF...

Hallo zusammen,

ich habe irgend etwas im Hinterkopf, dass an einem Port eines Twinax Controllers maximal 6 der 7 verfügbaren Adressen gleichzeitig genutzt wqerden können. Ist das richtig?
...

Danke Baldur,

das wars. Manchmal sieht man eben den Wald vor lauter Bäumen nicht :o

Hubert

Hallo zusammen,

ich möchte aus einem RPG Programm eine FTP Übertragung machen. Die FTP Befehle stehen in der Datei QTEMP/FTP, als Antwortdatei verwende ich QTEMP/FTPPROT. Dazu habe ich diesen Code...

Ich hab ein ähnliches Problem so gelöst:

right('00' concat char(&VARIABLE), 2)

So viele 0en im String angegeben, wie ich Zeichen in der right - Funktion benötige, dann wird auch eine übergebene...

Danke für die vielen Hinweise, die ich leider nicht umsetzen kann. Es handelt sich um eine seit Jahren gewachsene Anwendung, die nicht "mal eben" redesignt werden kann. Der Fehler tritt auch an...

Tja, dann bleibt wohl doch nur Sysyphus - Arbeit.


Vielen Dank

Hallo zusammen,

wir haben ein Problem mit einer Satzsperre:

Sporadisch tritt der Fehler auf, dass ein Programm einen gesperrten Satz lesen will. Ich habe bisher keine Möglichkeit gefunden,...

Guten Morgen zusammen,

cih wollte es mir etwas einfacher machen, im PDM zwischen verschiedenen Umgebungungen (CURLIB, LIBL, QAUOOPT) zu wechseln und habe den PDM Start in ein CL gepackt. Bei jedem...

Leider steht die Maschine in Toronto und wird von dort administriert. Die Fehlermeldung wird vom System sofort mit 'C' beantwortet, da hab ich keine Chance zwischen zu kommen. Nach mehreren...

Leider hat auch RCLACTGRP nicht geholfen.

Das Programm nutzt mehrere Serviceprogramme. Jedes Programm hat seine eigene Activation Group. Die Activation Group des Serviceprogramms, in dem der...

Hallo zusammen,

ich habe ein Problem mit einem Serviceprogramm. Das Programm enthält mehrere Prozeduren. Wenn in einer Prozedur ein Fehler auftritt (in diesem Fall war es ein doppelter Schlüssel),...

Gib im Displayfile das Schlüsselwort SFLRCDNBR an. Vor dem nächsten Anzeigen des Subfiles schreibst Du die Record Nummer des gelesenen Satzes in das Feld, das Du mit dem Schlüsselwort SFLRCDNBR...

Danke, die variable Länge wars mit den "verschluckten" Zeichen. :o

Und jetzt geht's auch mit dem ftp - trotz CCS 37. Vielleicht hat sich FTP an den NULL's verschluckt.

Es ist integer definiert. Trotzdem hab ich mal versuchsweise mit 5U 0 gewandelt; dann gabs einen Laufzeitfehler.

Außerdem ist mir beim Prüfen der Daten aufgefallen, dass das File mit NULL beginnt...

Der Codeschnipsel zum Öffnen incl. Codepage Definition:


d CodePage s 10i 0 inz(1252)

* Define open...

Danke, das o_codepage wusste ich nicht.

Jetzt wird ein File mit einer anderen Codepage erstellt, aber nicht die 1252.

Ich habe jetzt folgendes versucht:

Die Daten in ein PF geschrieben und...

Ich habe es mit der Einstellung beim open versucht, aber ich bekomme immer nur die 37. An den Verzeichnissen selbst kann ich nichts ändern; die Maschine wird von mehreren Ländern genutzt und in...

Hallo zusammen,

nachdem ich im Forum die entsprechenden Beiträge durchforstet habe, konnte ich das Problem noch nicht lösen:

Ich erstelle auf der i5 ein Streamfile. Wenn ich das mit DSPLNK...