Substring aus nummerischen Feld

[beegee]

Hallo Forum,

gibt es die Möglichkeit in RPG mit einer Built-In-Function eine gewisse Anzahl von Stellen aus einem nummerischen Feld zu extrahieren ?

Konkret: ich möchte aus einem 8/0 Num-Feld, den Wert der Stellen 3 und 4 haben.

Lg

[Pikachu]

Siehe hier.

[Khholm]

in Free Form geht das so:

string = %subst(%editc(zahl):'X'):3:2);

[beegee]

in Free Form geht das so:

string = %subst(%editc(zahl):'X'):3:2);

Nicht in Freeform, sondern "normal" und das Ergebnis soll kein String sein, sondern ein nummerisches Feld

[schmidde]

d Struc ds
D Zahl 8s 0
D Teil 2s 0 overlay(Zahl:3)

[Pikachu]

EVAL NUM2 = %ABS(%REM(%INT(NUM/100):100))

[schmidde]

EVAL NUM2 = %ABS(%REM(%INT(NUM/100):100))

Hallo Pikachu,

Du hast 2 Nullen vergessen:

EVAL NUM2 = %ABS(%REM(%INT(NUM/10000):100))

[Pikachu]

Kommt drauf an, welche Stellen 3 und 4 gemeint sind.

[Fuerchau]

Naja, es gibt wie immer viele Wege:

eval num2 = %dec(%subst(%editc(mynum:'X'):Ab:Len):Len:0);

Ab = ab Stelle
Len = Anzahl Stellen

[B.Hauser]

eval num2 = %dec(%subst(%editc(mynum:'X'):Ab:Len):Len:0);

Ab = ab Stelle
Len = Anzahl Stellen

Len darf allerdings keine Variable sein, allenfalls eine Konstante, da die Werte für die Parameter 2 und 3 in der Built-In-Function %DEC() zur Compile-Zeit bekannt sein müssen.

Birgitta

[Fuerchau]

Hab ich irgendwas von Variablen erwähnt ?
Ist doch nur Syntaxbeispiel.

Im Handbuch steht

%DEC(numeric or character expression{: precision:decimal places})

Wobei auch erst aus dem Text hervorgeht, dass es variabel nicht geht.
Ich kann es aber ohne Fehler variabel gestalten:

D MyPos 5I 0
D MyLen 5I 0

eval num2 = %dec(%subst(%editc(MyNum:'X'):MyPos:MyLen):31:0);

Das Gemeine hier ist, dass MyNum ja nicht variabel ist und somit Variabilität sich (fast) erübrigt.

Wobei, wenn ich die Syntax ansehe:
eval num2 = %dec(%subst(%editc(MyNum:'X'):MyPos:MyLen));
ja auch geht.