Suchen:

Hallo,

Java interpretiert den \ (Backslash) in String Objekten als
Escape Zeichen; deshalb am besten immer duplizieren
\\dir1\\dir2\\file.txt



Gruß

Ich bin auch schon ganz gespannt,
bitte unbedingt mitteilen wer das Rennen gemacht hat.

Gruß

Torsten

Ich bin auch der Meinung, dass ein AS400-Java Buch wenig hilfreich ist. Aus meiner Erfahrung liegen die Probleme, den
Umstieg von der 'klassischen' RPG Programmierung auf JAVA Entwicklung zu...

Dass einige Beiträge verlorengegangen sind: OK, Schwamm drüber.

Aber dass ich auch noch meinem wertvoll erarbeiteten Status als PowerUser verloren habe, das ist schon bitter.


Ohne...

SAVSECDTA DEV(*SAVF) ....

Gruß

Torsten

wenn das Word Dokument nur einen statischen Inhalt hat, könnte man ein
Overlay draus machen, den Rechnungsdruck auf AFP umstellen
und auf einer leltzten leeren Seite der Rechnung das Overlay...

SYSTEM CONFIGURATION LIST:

STRSST
1
7
F6

("nur" die Hardware im Überblick ...)

was bringt denn isConnected() in der hey ho Zeile zurück ?

poste doch mal den Code, oder ist das aus urherberrechtlichen Gründen nicht möglich ?

falls der connect nicht klappt, sollte im StackTrace sowas auftauchen:

java.sql.SQLException: The application server rejected the connection.(Password is incorrect.)


Gruss

Torsten

zumindest den Nachrichtentext kann man
aus dem msgf QEJB/QEJBMSGF auslesen ...

Gruss

Torsten

Hallo Dirk,

ich würde es so angehen:
Den Strassennamen in Token unterteilen
(Funktion strtok in Q2CLE); das erste Token, das mit 0-9 anfängt, wäre dann die
Hausnummer.

Gruss aus dem...

Es gibt eine Objektart *jobscde, also
WRKOBJ OBJ(*ALL/*ALL) OBJTYPE(*JOBSCD)

Gruss

Torsten

Management Central ist im OperationsNavigator unter netzwerk/server/tcp-ip zu finden.

Oder endtcpsvr *MGTC vom Bildschirm.

Hallo Robert,

ich denke das liegt nicht an den Abrechnungsdaten, sondern an nicht
committeten Transaktionen. In meinem Fall lag das Problem am Management Central Job, der zwei Files in der...

...
lässt sich mit etwas Aufwand 'zu Fuss'
über Sockets lösen. Im RPG Programm
den Port 80 des HttpServers öffen und
den HTTP-Request als String zusammen-
basteln und zum Server...

- getColumnLabel liefert bei mir leider auch immer nur den Feldnamen, auch
wenn extended Metadatata auf true steht,
das scheint noch ein Bug zu sein.

- für die Menüstruktur bieten sich...

http://www.alphaworks.ibm.com/tech/xle

sieht ganz vielversprechend aus ...

Gruss

Torsten

Unter

http://www.insistence.de/

findet sich auch ein umlautfähiges Progrämmchen ...

Gruß

Torsten

Rufst du die Daten aus EXCEL über MS Query ab ?
Dann wird der TimeOut Wert wahrscheinlich hier gesetzt (analog zu MS ACCESS), leider habe ich MS QUERY nicht installiert, kann also nicht sagen wo ......

Hallo,

prüf doch mal den Systemwert QQRYTIMLMT ob ein TimeOut gesetzt ist ...

Gruß

Torsten

Hallo,

die Tabelle läßt sich am besten per SQL editieren. Es gibt nicht 'die besten'
Einstellungen, sonst bräuchte man ja keine
Tabelle, um die Einstellungen zu ändern.
Je nach eingesetzter...

Hallo,

RMVJRNCHG.
Mach dich am besten erstmal in einer Testumgebung damit vertraut, weil man
auch einiges verschlimmbesseren kann ...

Gruß

Torsten

Hallo Alex,
das sollte eigentlich so funktionieren,
welche Exception wird denn geworfen ?
Etwa
(An undefined column name was detected)?

Gruß

Torsten

Hallo,

bei den connection properties kann eine komma-getrennte Aufzählung von libs mit-
gegeben werden, sieh am besten noch mal
in der ToolBox Doku nach, weil zwischen einigen properties auch...

CALLPRC

Gruß

Torsten

Hallo,

prüf mal den Wert für QUERY_TIME_LIMIT in
der Tabelle QAQQINI ....

Gruß

Torsten

Hoppla,
in der 1. Zeile muß es STDOUT heissen ...

Hallo Frank,

probier's mal so (oder so ähnlich):

CRTPF FILE(QTEMP/STDIN) RCDLEN(128)
OVRDBF FILE(STDOUT) TOFILE(QTEMP/STDOUT) OVRSCOPE(*JOB)
QSH CMD('java KlapptJetzt')

Gruß

Hallo Heinrich,

ja, wir setzen 5.1 ein, wie es in füheren Version aussieht, weiss ich leider nicht mehr, sorry.

Gruß

Torsten

Hallo Andreas,

ich habe vor längerer Zeit mal ein kleines MI
Programm geschrieben, das Modell und Prozessorgruppe zurückgibt, das könnte ich dir bei Bedarf zumailen.
Möglich, dass es...

- OP's Navigator
- Benutzerverwaltung
- Eigenschaften des Benutzers
- Funktionsspektrum
- Anwendungen
- Rechte vergeben oder entziehen

Gruß

Torsten

Hallo Nili,

ich vermute deine Klasse heisst Test.class und befindet sich im Package test.
Dann sollte sich Test.class im Verzeichnis
../test befinden und der Aufruf aus der Shell so lauten:
...

Hallo Guter,

wie sieht's hiermit aus:

- OP's Navigator
- Benutzerverwaltung
- Eigenschaften des Benutzers
- Funktionsspektrum
- Anwendungen
- Rechte für Datenübertragung entziehen

Hallo Sven,

der Treiber wird einfach ins IFS kopiert z.B (/home/lib/xyz.jar) und in den classpath mit aufgenommen (wenn es wirklich ein Klasse IV Treiber ist, fuktioniert das).
Beispiele für die...

1. Vorsicht beim Ändern des Systemwertes !
Das wirkt dann wirklich global für alle PF's,
wenn ich richtig verstanden habe, sollen nur nach Frankreich zu übertragende Files mit der franz. CCSID...

Was mir an CODE/400 gut gefallen hat, ist
der Vergleich von 2 Files (Unterschiede werden graphisch gezeigt). Ansonsten kommt man mit SEU auf der AS400 noch am schnellsten zum Ziel, zumindest bei RPG...

CHGPF CCSID(nnn)

Gruß

Torsten

z.B.

BEGIN
DECLARE CURSE CURSOR WITH RETURN FOR
SELECT * FROM mylib.myTable
WHERE myCol = 'A' ;
OPEN CURSE ;
END

Gruß

Hallo Sven,

leider muß wirklich das Lizenzprogramm

5722ST1 *COMPATIBLE DB2 Query Mgr and SQL DevKit installiert sein , um SP in der SPL
erstellen zu können. (nicht ganz billig)

Der ILE...

Die Unterschiede waren bei uns marginal. Theoretisch sollte die 1. Variante schneller sein (generierter C - Code), wesentlicher ist aber die Qualität der verwendeten SQL Statements. Auf relativ...

In einer Collection werden alle neuen (mit create table) erzeugten Tabellen journalisiert, wenn das nicht klappt, ist etwas faul.
Existiert ein Journal QSQJRN in der Collection?
Hängt ein JRNRCV...

Hallo, sieh dir einfach mal den
Parameter OVRSCOPE beim OVRDBF an
(Default ist *actgrp) ...

Gruß

Torsten

Bei mir hat der Austausch von jt400.jar gegen jt400Native.jar im Klassenpfad geholfen.
(JDK1.3 mit Group PTF#: SF99069-09 V5R1M0 May 09, 2002).
Bei dem 2. Classpath macht mich stutzig, dass...

Hat jemand Erfahrung mit der Stabilität des AS400 - ToolBox Connection-Pools oder mit anderen Connection-Pool Implementierungen ?(ich möchte ungern das Rad neu erfinden ...).

Bonusfrage: Wo ist...

In PRTF's geht das auch ohne Overlays
(Schlüsselwort BOX, beschieben im DDS Handbuch). Voraussetzung ist PSF/400 und
ein AFP-fähiger Drucker (DEVTYPE(*AFPDS) muß
beim CRTPRTF angegeben werden) ......

Geht über einen SQL-ALIAS:

CREATE ALIAS myLib/anders FOR mylib/"xxx.sav"

dann
select * from mylib/anders

Gruß

Torsten

...
ich denke, das das über WAS nicht konfigurierbar ist, da das aufgerufene
Programm über den HostServer Job QZRCSRVS
aufgerufen wird , und zunächst mit dessen Libl läuft. Ich habe mir so...

In der Terminalsitzung:

- Bearbeiten
- Einstellungen
- Beenden ...
Beenden der Sitzung bestätigen checken

(V5R1M0, SP SI02795)

Gruß

Unter
http://www.alphaworks.ibm.com/tech/xml4rpg

findet sich ein XML Parser für RPGLE (DOM + SAX).

Gruß

Torsten

http://publib.boulder.ibm.com/pubs/html/as400/v4r4/ic2924/info/java//rzaid/ntvfrm.htm

Allerdings kann die Swing- oder AWT Oberfläche nicht über den 5250 Datenstrom dargestellt werden, d.h. alle...

Hm,

echo $? zeigt bei mir genau den Integerwert,
der bei System.exit() als Argument übergeben
wird.
Auch wenn die JVM als BCHI Job läuft werden ja alle Ausgaben wieder an die Shell...

Hoppla,

es muß natürlich heißen

echo $?

Gruß

Torsten

Hallo,
so gehts:

QSHELL aufrufen und das Programm ausführen;
nach Beendigung $? auslesen:
echo &?
jetzt müßte der returnCode angezeigt werden.

Wenn das funktioniert (und das sollte es...

Entweder die Tabelle journalisieren
(spricht irgendwas dagegen ?), oder
bei der Compilierung COMMIT(*NONE) angeben.

Gruß

Torsten

Ganz so dramatisch würde ich es nicht sehen ...

Sicherlich sind mehrfache Verschachtelungen wie im obigen Beispiel ziemlich fehleranfällig (deadlocks), dennoch spricht eigentlich wenig gegen einen...

Hallo Guenter,

der Treiber muss erst mal registriert werden:

DriverManager.registerDriver(new com.ibm.as400.access.AS400JDBCDriver());

Wenn Du die Namenseigenschaften auf SQL setzt
(wie in...

Ich behelfe mir z.B so, dass ich mit DSPJRN ein Outfile erstelle, das dann mit einem kleinen RPG Programm gelesen wird. Die zu prüfende Tabelle wird im RPG Programm als extern definierte Datenstrukur...

Das Tool kommt ja mit enem CMD (CPYSPLFPDF),
der ein gleichnamiges CL-Programm als CPP hat. In dem CL Programm wird dann das JAVA PGM per QSH aufgerufen (mit dem entsprechenden classpath). Das CL...

Wie gesagt, statt JT400.jar sollte
jt400native.jar eingebunden werden
(Auch beim CRTJVAPGM).

Also zunächst im CL Programm CPYSPLFPDF in der Variable &JAVA JT400native.jar in den
Klassenpfad...

SE,

das Problem läßt sich lösen, wenn statt
JT400.JAR JT400Native.JAR in den classpath
mit aufgenommen wird. (Das Progrämmchen läuft dann auch etwas schneller ...).
JT400Native.jar befindet...

Hat irgendjemand schon Erfahrungen mit dem
Wechsel von Token Ring nach Ethernet auf der
AS400 gemacht? Irgendwelche Stolperfallen,
Tips, Tricks, Literaturhinweise ?

Danke im Voraus

Torsten

Ist das Problem erst nach der Compilierung der RPG Programme aufgetreten ?
Wenn ja, kann eine Ursache sein, daß im RPG - Programm keine H-Zeile codiert wurde. In dem Fall sucht der Compiler nach...

Vielleicht noch zwei andere Gedanken zu dem Problem:

Wenn der 1. Aufruf per QSH oder JAVA auf der AS400 erfolgt, der zweite über JT400, der dritte via CL und JAVA cmd (wenn ich das alles richtig...

5722SS1 (Opt. 30) *COMPATIBLE OS/400 - QShell Interpreter

Gruß

Torsten

ich würde die Datei als extern beschrieben
stehen lassen, dann muß nur das Satzformat
umbenannt werden (rename QTXTSRC:RECORD)

Gruß

Torsten

Hallo HoSchie,

z.B so:

select trim(name) !! ', ' !! trim(vorname) from table

Gruß

Torsten

z.B so (alpha = Feldname)

select case when alpha = ' '
then 0
else
int(alpha)
end
from table_a

Je nach Zahlenformat des...

Hallo Reinhold,

...
Where status='I' and datum8 > 0 and datum8 in(select datum8 from lib.file1)
...

oder

Where status='I' and datum8 in(select datum8 from lib.file1) and datum8 > 0

Reinhold,

ohne das '>0' ist die SQL Abfrage ja schon abgeschlossen. Es fehlt noch der Feldname, der gegen '>0' verglichen werden soll.
(Entweder im Subselect oder im 1. Teil der Abfrage): ... and...

unter http://www.sourceretrieval.com

wird ein decompile service angeboten.
Ich habe allerdings keine Erfahrungen über Zuverlässigkeit, Preise etc.

Gruß

Torsten

Ja, QSNBEEP (wird über das SRVPGM QSNAPI eingebunden. Als Parameter reichen für den
Beep zweimal binär 0 und ein Null Pointer für
die Fehlerstruktur aus.

z.B.

***************** Datenanfang...

Das ist richtig, mit Security Level 30 ist
ein SignOn ohne Profil und Password möglich
(z. B. durch Einrichten einer entsprechenden Subsystembeschreibung), aber sollte das hier im Detail...

Nein, ich meine eigentlich die Eigenschaften des NetServer Dienstes. Wenn hier 0 steht, können unter >gewissen Umständen< ungültige Datagramme erzeugt werden. (Ist bei uns mal aufgetaucht).

Zitat...

Das Problem könnte auch durch eine falsche
Codepage in den NetServer Attributen verursacht sein, was ist denn da eingetragen ?

Gruß

Torsten

Vermutlich ist in der ODBC Datenquelle unter (Packages) Extended Dynamic Support eingestellt, wodurch SQL-Packages erzeugt werden (Objekttyp *SQLPKG). Ist das Package voll, wird genau diese Meldung...

Wenn die SQL Namenskonvention verwendet wird
(Collection.table), werden Objekte generell mit *PUBLIC *EXCLUDE erzeugt.
Bei der Verwendung von Systemnamenskonventionen (Library/file)wird,
wie Du...

z. B.

UPDATE t1 SET f1 = (select f2 from t2 where
t2.f3 = t1.f4)
WHERE exists(select f2 from t2 where
t2.f3 = t1.f4)

f3 und f4 sind die JoinFelder aus beiden Tabellen, f1 das upzudatende (!)...

Hoppla,

im exists muß vor der Joinbedingung natürlich auch noch ein Wert zurückgegeben werden : where exists( select feld from where <Joinbedingung> ).

Das war so schon richtig, hänge aber noch

... where exists(>deine Joinbedingung<) an die Abfrage dran, um zu verhindern, daß bei nicht-paarigen Sätzen NULL zurückgegeben wird.

Gruß

Torsten

Ja, aber erst ab V4R5 (round).
Vorher kann man sich so (oder so ähnlich) behelfen:

select decimal((>ausdruck<) + 0,005 , 5 , 2)
from filexyz.

In diesem Fall wird auf 2 Dezimalstellen...

Hallo Reinhold,

es wäre für mich (vielleicht auch für andere)
interessant zu erfahren, wie die ersten Erfahrungen mit V5 (Stabilität, Performance etc.) aus der Praxis sind.

Gruß

Torsten

...
löschen funktioniert analog:
DROP PROCEDURE procedurename

Gruß

Torsten

...
der Commitmode hängt ganz von deiner Client Anforderung ab, ich denke aber *CHG
(read uncommitted) ist generell keine schlechte Wahl.

Bei meiner jetztigen Treiberversion gelangt man auf der...

Ich vermute, der Zugriff läuft über den CA ODBC Treiber.

Die Verwendung von Transaktionen setzt zunächst voraus, daß der gewünschte Committlevel gesetzt wird (erfolgt als Einstellung im Treiber)....

Das Freeware-Tool heißt RTVQRYF und ist ein kleines MI Programm, das für die Parameter qryName, qryLib eine Struktur aller Inputfiles und - soweit vorhanden - der Ausgabedatei zurückgibt. Hat in...

Das stimmt für den Fall das der Benutzer ausreichende Rechte für den CHGJOB hat und den SIGNOFF Command prompten kann.
Mit entsprechenden Rechten ist es natürlich möglich (fast) alle Spuren zu...

Die Länge der 'Online-Zeit' läßt sich durch Aktivierung von Job-Accounting ermitteln (Systemwert QACGLVL auf *JOB setzen, vorher
das Journal QSYS/QACGJRN anlegen). Über DSPJRN des Journales in ein...

könnte man so (oder so ähnlich, je nach Format des numerischen Feldes) machen:

SELECT date(substring(digits(num8) , 1 , 4)
!! '-' !! substring(digits(num8) , 5 , 2)
!! '-' !!...

Unter http://www.alphaworks.ibm.com/tech/xml4rpg
befindet sich ein XML Parser für RPG (in Form von API's); Ansonsten sind die V5.R1 Announcements vielversprechend (XML extender für DB2/400)

Gruß...

Die generierten Class - Files können nur nur
auf einem 'grafikfähigem' Client genutzt werden, also nicht auf der AS400 (5250 Datenstrom ...). Es gibt allerdings ein Konstrukt namens Remote-AWT, das...

Der C Compiler ist nicht umbedingt erforderlich, unter V4R4 werden als Sprachoptionen für den Parameter Language
beim Create Procedure C, CL, COBOL, COBOLLE,
C++, FORTRAN, PLI,
REXX, RPG,...

Auf die Gefahr hin, schwer von Begriff zu sein - warum ist das Ausgangsformt wichtig?
Intern wird das Datum sowieso 4stellig als
Offset von irgendeinem Basisdatum gespeichert, und kann bei Abruf...

z. B. so:

create view lib/view1 AS SELECT feld1, feld2 FROM table1, table2 WHERE
table1.feldName = table2.feldName
Gruß

Torsten

<BLOCKQUOTE><font...

Geht es wirklich um das Datumsformat beim CREATE TABLE (???) oder vielmehr um das Ausgabeformat (select ...) oder Eingabeformat (insert ...) des Datum Feldes ?

Torsten

<BLOCKQUOTE><font...

Funktioniert so leider nicht (z.B. ist der 31.12.2001 (Montag) der Beginn der KW 01 des Jahres 2002).

Die 1. Kalenderwoche eines Jahres ist meiner Meinung nach durch die Woche definiert, in der...

Möglicherweise sind hier zwei Sachen durcheinander geraten: Journalisierung ist
Voraussetzung für Transaktionskontrolle (SET TRANSACTION ...) nicht jedoch für Satzsperren.
Satzsperren werden zwar...

... HIT Software (http://www.hitsw.com)
bietet einen Treiber an. Voraussetzungen:
OS400 ab V2.R2 und installiertes TCP-IP auf der AS400.

Auf der AS400 muß weiter nichts installiert werden; die JDBC - Treiberklassen befinden sich im IFS unter
/QIBM/ProdData/HTTP/Public/jt400/lib

(JT400.JAR bzw. JT400.ZIP). Eins der beiden Archive...