Hexadezimaldarstellung von Nummern

[Dschainers]

Hallo, ich habe folgendes Problem:
ich möchte z.B. die Zahl 50672 hexadezimal in einem Datensatz abspeichern, das Feld soll 3stellig alpha sein.
Der Hex Wert lautet: '00 C5 F0'.

Eine Routine die den Hex Wert ermittelt habe ich bereits.

Die Zahl ändert sich laufend.

Wie kann ich den 6-stelligen Hexwert in ein 3stelliges Alphafeld bringen??

Programmiersprache ist RPG.

[B.Hauser]

Wie wär's damit?
Nachem MyDec in Int übernommen wurde steht in Alpha1: 00C5F0

D MyDec           S              7P 0 inz(50672)              
                                                              
D DSHex           DS                                          
D   Int                         10I 0                         
D   Alpha                        4A   Overlay(Int)            
D    Alpha1                      3A   Overlay(Alpha: 2)       

 /Free
     Int = MyDec;
     *InLR = *On;
 /End-Free 

Birgitta

[Dschainers]

Vielen Dank, ich werd's versuchen

[Pikachu]

Oder so:

D HEX3            S              3A              
D HEX4            DS                             
D  NUM                          10I 0 INZ(50672) 
D                                                
C                   MOVE      HEX4          HEX3 
C                   MOVE      *ON           *INLR

[Dschainers]

Super, hat alles geklappt.
Vielen Dank B.Hauser