Variablen

[Bratmaxxe]

Moin zusammen,

anbei noch mal ne Frage:




D VAR_A S 2A
D VAR_X S 2A




Variable VAR_A hat den Wert '31'.

Ziel ist es nun, den Wert wie untenstehend zuzuweisen:




EVAL VAR_X = x'31'




Wie bekomme ich das mit RPG hin ?


Verzweifelte Grüße
Bratmaxxe

[christian_lettner]

versuchs mal damit:

eval var_x = 'x''' + var_a + ''''

müsste funktionieren, denke ich.

mfg Chris

[Fuerchau]

DAS ist ja sowas von falsch ;)

Um aus einem expandierten Hexwert (hier c'31' = x'F3F1') einen Hexwert zu erhalten (das Ziel hat dann nur 1 Byte), muss man eine C-Funktion bemühen (CVTCH) oder das Ganze in einer Schleife mit Tabelle selber umrechnen.

[KM]

Probier's mal mit der C-Funktion cvtch.

Gruß,
KM

[Bratmaxxe]

Hallo Chris,

danke für Deinen Beitrag.

Jetzt steht im String zwar das was ich brauche, jedoch als String und nicht als Hex-Variable - das ist ja genau mein Problem....

Gruß
Bratmaxxe

[Bratmaxxe]

Hi...

danke für die bisherigen Antworten !

eval var = x'31'

Wert sieht im Debug so aus:

--> VAR = ' '

wenn ich jetzt die cvtch Funktion aufrufe, hab ich in der Variable nachfolgenden Inhalt:

--> var = 'F3F1'


Wie bekomme ich das denn nun gebacken, dass das Zielfeld gleich den Wert

--> VAR = ' '

hat ?

Gruß
Bratmaxxe

[kuempi von stein]

sodele, dann gebe ich auch mal meinen Senf dazu.


C MOVE '1' *INLR
*
* ANMERKUNG KUEMPI NACH HEX12 KOMMT SPÄTER DIE GEWÜNSCHTE VAR
*
C MOVEL'31' HEX12 2
*
*----------------------------------------------------------------
* AUS HEXCODE (2-STELLIG) --> CHARACTER(1) MIT DEM CODE MACHEN
*----------------------------------------------------------------
*
C MOVELHEX12 HEX1 1
C MOVE HEX12 HEX2 1
*
C MOVE *LOVAL CHR1 1
C SELEC
C HEX1 WHEQ '1'
C BITON'3' CHR1
C HEX1 WHEQ '2'
C BITON'2' CHR1
C HEX1 WHEQ '3'
C BITON'23' CHR1
C HEX1 WHEQ '4'
C BITON'1' CHR1
C HEX1 WHEQ '5'
C BITON'13' CHR1
C HEX1 WHEQ '6'
C BITON'12' CHR1
C HEX1 WHEQ '7'
C BITON'123' CHR1
C HEX1 WHEQ '8'
C BITON'0' CHR1
C HEX1 WHEQ '9'
C BITON'03' CHR1
C HEX1 WHEQ 'A'
C BITON'02' CHR1
C HEX1 WHEQ 'B'
C BITON'023' CHR1
C HEX1 WHEQ 'C'
C BITON'01' CHR1
C HEX1 WHEQ 'D'
C BITON'013' CHR1
C HEX1 WHEQ 'E'
C BITON'012' CHR1
C HEX1 WHEQ 'F'
C BITON'0123' CHR1
C OTHER
C HEX1 IFNE '0'
C MOVE '?' CHR1
C GOTO EHEX
C END
C ENDSL
*
C SELEC
C HEX2 WHEQ '1'
C BITON'7' CHR1
C HEX2 WHEQ '2'
C BITON'6' CHR1
C HEX2 WHEQ '3'
C BITON'67' CHR1
C HEX2 WHEQ '4'
C BITON'5' CHR1
C HEX2 WHEQ '5'
C BITON'57' CHR1
C HEX2 WHEQ '6'
C BITON'56' CHR1
C HEX2 WHEQ '7'
C BITON'567' CHR1
C HEX2 WHEQ '8'
C BITON'4' CHR1
C HEX2 WHEQ '9'
C BITON'47' CHR1
C HEX2 WHEQ 'A'
C BITON'46' CHR1
C HEX2 WHEQ 'B'
C BITON'467' CHR1
C HEX2 WHEQ 'C'
C BITON'45' CHR1
C HEX2 WHEQ 'D'
C BITON'457' CHR1
C HEX2 WHEQ 'E'
C BITON'456' CHR1
C HEX2 WHEQ 'F'
C BITON'4567' CHR1
C OTHER
C HEX2 IFNE '0'
C MOVE '?' CHR1
C END
C ENDSL
*
* ANMERKUNG KUEMPI DSPLY ist nur für DEBUG EINGEBAUT
*
C EHEX TAG
C 'NURSO' DSPLY
C RETRN

[Bratmaxxe]

Hi Kuempi !

super, genau das was ich brauchte - die Woche ist gerettet ;)

Vielen lieben Dank
Gruß
Bratmaxxe