-
Free-RPG
Hallo an Alle,
ich mache grade meine ersten Gehversuche in Free-RPG und bin dabei auf eine Frage gestossen:
wie schreibt man den Befehl "move" oder "movel" in free-rpg ?
ich habe den Befehl folgendermassen geschrieben:
/free
move felda feldb
/end-free
felda = charakter
feldb = dezimal
das akzeptiert der Converter aber nicht und meldet: Für die Operation EVAL wird ein Zuordnungsoperator erwartet.
Wer kann mir bitte bei der Syntax für diese Befehle helfen ?
Wir haben OS400 V5R2M0 im Einsatz.
Bin für jeden Tipp dankbar.
Liebe Grüße, Marc
[Dieser Beitrag wurde von Gimli am 03. März 2003 editiert.]
-
hallo marc
ist eigentlich einfach
/free
eval feldb = felda;
evalr feldb = felda;
/end-free
bei der eval-operation kannst du eval auch weg lassen
/free
feldb= felda;
/end-free
zur not hätte ich da noch das rpg-handbuch als pdf-file (ca. 3,5 mb)
tschau
ronald
-
Hallo Ronald,
danke für Deine schnelle Antwort, leider ist das Problem nicht ganz so einfach. Felda ist ein charakter-Feld und Feldb ein dezimal-Feld. Daher funktioniert der eval nicht.
Aus diesem Grund versuche ich ja den move.
-
Hallo Marc,
soviel ich weiß (ich habe leider noch kein V5) wird MOVE im Free-Format nicht unterstützt.
Zur Umwandlung von Charakter-Werten in Numerische-Werte gibt es aber seit V5R2 die neue Funktion %DEC. Umgekehrt geht es mit der Funktion %INT.
Ich hoffe das hilft dir weiter.
Jo
-
Hallo,
zuerst einmal, MOVE, MOVEL und MOVEA wird es in RPG Free Format NICHT geben.
EVAL/EVALR kann nur für gleiche oder compatible Datentypen verwendet werden.
Für die Umsetzung von numerisch nach alpha können folgende Built-In-Funktionen verwendet werden:
%Char(), %EditC(), %EditW()
Die Umsetzung von alpha nach numerisch ist erst ab Release V5R2M0 mit folgenden Built-In-Funktionen möglich:
%Dec()/%DecH(), %Int()/%IntH(), %Uns()/%UnsH()
Werden ungültige Werte übertragen wird der Status 105 ausgegeben.
Kann über Built-In-Funktion %Status oder ON-Error in einer Monitor-Group abgefragt werden.
Ansonsten hast Du noch die Möglichkeit mit Datenstrukturen zu arbeiten, d.h. das alpha-Feld überlagert das numerische Feld.
Birgitta
-
ups, wieder nur die hälfte gelesen. dann muss es heißen
/free
eval felda = %char(feldb);
/end-free
um nur ein beispiel zu nennen
ronald
[Dieser Beitrag wurde von malzusrex am 03. März 2003 editiert.]
-
Danke an Euch beiden :-)
Die %dec Funktion hat mir geholfen.
Similar Threads
-
By loeweadolf in forum NEWSboard Programmierung
Antworten: 6
Letzter Beitrag: 14-03-08, 06:21
-
By Fucasdreh in forum NEWSboard Server Job
Antworten: 0
Letzter Beitrag: 10-01-07, 13:12
-
By mgraskamp in forum NEWSboard Programmierung
Antworten: 13
Letzter Beitrag: 16-02-06, 16:01
-
By loeweadolf in forum NEWSboard Programmierung
Antworten: 7
Letzter Beitrag: 25-01-05, 07:43
-
By loeweadolf in forum NEWSboard Programmierung
Antworten: 3
Letzter Beitrag: 12-07-04, 09:27
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