-
Rechenoperation aus Alpha String
Problem -> Ich möchte gerne eine Rechen operation variabelhalten und eine rechenoperation zu einem alpha string zusammenfügen um später damit rechnen zu können ist so was möglich ich bitte um vorschläge bzw. mögliche lösungen.
&L = Länge in mm z.B. 2100
&B = Breite in mm z.B. 21
&H = Stärke in mm z.B. 14
&VEP = Stück im Paket z.B. 10
Rechen OPERATION
&L x &B x &VEP / 1000000 = XXX,XX QM Deckfläche
Rechen OPERATION
&L x &B x &H x &VEP / 10000000 = X,XXX CBM * Volumen
operation wird als Alpha String zusammengestellt es mussl variabel definierbar bleiben *
(z.B. für flächen berechnung, volumen berechnung....) *
BEISPIEL
operation = '2100 x 121 x 10 / 1000000'
ERGEBNIS 2,54 Quadratmeter
-
Hallo,
gib Er mal zwei konkrete Beispiele.
k.
-
Mit SQL ist fast alles möglich, allerdings benötigt man dazu eine Datei mit mindestens 1 Satz:
select meine_Formel from myfile
Das Ganze kann man dann per Prepare und Statement-Cursor jederzeit ausführen.
Z.B.:
select 12*3+4/3.123 as erg from myfile
-
Beispiele habe ich angehängt mit Bild aus der source hat es nicht geklapt. gruss
siehe Beispiel oben Danke und gruss an alle
-
Ok
wie kann ich es im RPG anbinden oder als parameter übergeben??
-
also
1) ich erstelle mein String(rechenoperation im Alpha format 200 Stellen alpha)
2) schreibe in eine Datei
3) Dann wird SQL ausgeführt
wo bekomme ich ergebnis, wie kann ich es einfach anbinden??
-
Zitat von Fuerchau
Mit SQL ist fast alles möglich, allerdings benötigt man dazu eine Datei mit mindestens 1 Satz:
select meine_Formel from myfile
......
Hello,
habe mal gesucht und gefunden.
Wie wäre es mit:
select meine_Formel from sysibm/sysdummy1
?
Das war doch so ne Zombiedatei die man für sowas missbrauchen kann?
Gruss
kuempi
-
d MyStmt s 512
d MyErg s 30p 9
c/exec sql set options commit=*none
c/end-exec
c/exec sql
c+ declare cursor mycursor for statement mystmt
c/end-exec
c eval mystmt = 'select ' + Formel + ' from myfile'
c/exec sql
c+ prepare mystmt for :mystmt
c/end-exec
c if sqlcode <> *zero
c* Fehler in Formel
c endif
c/exec sql
c+ open mycursor
c/end-exec
c/exec sql
c+ fetch mycursor into :myerg
c/end-exec
c/exec sql
c+ close mycursor
c/end-exec
Die Syntax der SQL-Befehle habe ich jetzt leider nicht genau im Kopf.
Die Pseudo-Datei mit 1 Satz benötigst du nur, damit überhaupt 1 Satz und somit dein Ergebnis berechnet wird.
-
0417.65 C eval formel = '2100 * 121 * 10 / 1000000' *
0417.68 c/exec sql set option commit=*none
0417.69 c/end-exec
0417.70 c/exec sql
0417.71 c+ declare mycursor cursor for mystmt
0417.72 c/end-exec
0417.73 c eval mystmt = 'select ' + %trim(Formel)
0417.74 c + ' from myfile'
0417.75 C*
0417.76 c/exec sql
0417.77 c+ prepare mystmt from :mystmt
0417.78 c/end-exec
0417.79 c* if sqlcode <> *zero
0417.80 c* Fehler in Formel
0417.81 c* endif
0417.82 c/exec sql
0417.83 c+ open mycursor
0417.84 c/end-exec
0417.85 c/exec sql
0417.86 c+ fetch mycursor into :myerg 0417.87 c/end-exec *
0417.88 c/exec sql *
0417.89 c+ close mycursor *
0417.90 c/end-exec *
0417.91 C z-add myerg win309 30 9 *
Wenn ich es so wie oben ausführe bekomme ich als ergebnis immer 0
bitte um hilfe
-
Du musst den SQLCOD auswerten !
Probiere den Select erst mal per STRSQL aus.
Hast du die Datei "myfile" mit 1 Satz auch angelegt ?
Das kannst du auch per CRTPF und UPDDTA, ansonsten per SQL mit CREATE TABLE und INSERT.
-
Zitat von Fuerchau
Du musst den SQLCOD auswerten !
Probiere den Select erst mal per STRSQL aus.
Hast du die Datei "myfile" mit 1 Satz auch angelegt ?
Das kannst du auch per CRTPF und UPDDTA, ansonsten per SQL mit CREATE TABLE und INSERT.
ich hatte kein satz im myfile. Jetzt geht es. Aber ergebnis immer ohne nachkomma stellen ergebnisfeld ist mit 30,9 definiert??
-
SQL optimiert da manchmal unglücklich.
In obigem Fall wird reine Ganzzahlenarithmetik verwendet.
Probiere mal verschiedene Varianten per STRSQL:
2100.0 * 121.0 * 10.0 / 1000000.0
ggf. ist auch ein Casting erforderlich, e.g.:
dec(2100, 11, 2) ...
Similar Threads
-
By e_sichert in forum IBM i Hauptforum
Antworten: 4
Letzter Beitrag: 07-11-06, 15:25
-
By edig in forum NEWSboard Programmierung
Antworten: 5
Letzter Beitrag: 07-07-06, 10:51
-
By codierknecht in forum NEWSboard Programmierung
Antworten: 5
Letzter Beitrag: 03-07-06, 15:25
-
By cheffe1008 in forum NEWSboard Programmierung
Antworten: 7
Letzter Beitrag: 16-05-06, 07:45
-
By TomWaf in forum NEWSboard Programmierung
Antworten: 4
Letzter Beitrag: 12-05-06, 09:07
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks