[NEWSboard IBMi Forum]

Thema: Free-RPG

  1. #1
    Registriert seit
    Jul 2002
    Beiträge
    43

    Question 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.]

  2. #2
    Registriert seit
    May 2002
    Beiträge
    1.121

    Post

    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

  3. #3
    Registriert seit
    Jul 2002
    Beiträge
    43

    Post


    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.

  4. #4
    Registriert seit
    Jan 2003
    Beiträge
    118

    Post

    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

  5. #5
    Registriert seit
    Aug 2001
    Beiträge
    2.869

    Post

    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
    Birgitta Hauser

    Anwendungsmodernisierung, Beratung, Schulungen, Programmierung im Bereich RPG, SQL und Datenbank
    IBM Champion seit 2020 - 4. Jahr in Folge
    Birgitta Hauser - Modernization - Education - Consulting on IBM i

  6. #6
    Registriert seit
    May 2002
    Beiträge
    1.121

    Post

    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.]

  7. #7
    Registriert seit
    Jul 2002
    Beiträge
    43

    Post


    Danke an Euch beiden :-)

    Die %dec Funktion hat mir geholfen.

Similar Threads

  1. Datum-Konvertierung free rpg
    By loeweadolf in forum NEWSboard Programmierung
    Antworten: 6
    Letzter Beitrag: 14-03-08, 07:21
  2. Frei Porn Site!
    By Fucasdreh in forum NEWSboard Server Job
    Antworten: 0
    Letzter Beitrag: 10-01-07, 14:12
  3. Mehrere Bezugszahlen auf *off in Free RPG
    By mgraskamp in forum NEWSboard Programmierung
    Antworten: 13
    Letzter Beitrag: 16-02-06, 17:01
  4. FREE RPG .. TESTN
    By loeweadolf in forum NEWSboard Programmierung
    Antworten: 7
    Letzter Beitrag: 25-01-05, 08:43
  5. Free Rpg Zeitdauer errechnen
    By loeweadolf in forum NEWSboard Programmierung
    Antworten: 3
    Letzter Beitrag: 12-07-04, 10:27

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • You may not post attachments
  • You may not edit your posts
  •