gepacktes num.Feld in ein Alphafeld umsetzen

[B.Hauser]

Ich vesuch verzweifelt ein gepacktes numerisches Feld in ein Alphafeld umzusetzen. jedoch bisher ohne erfolg.

hab schon diverse Versuche gestartet aber das was in meinem Alphafeld ankommt ist immer der Inhalt des gepackten Feldes.

Hat das jemand schonmal gemacht und kann mir einen tip geben. Dr.Google hat auch nichts produktives hervorgebracht.

Danke im Vorraus.

Hallo,

ich gehe davon aus, dass, wenn in dem gepackten Feld x'12345F' steht, Du in Deinem Alpha-Feld 12345 sehen willst.

Der einzige Weg sicher zustellen, dass numerische Felder in RPG gezont verwendet werden, ist, sie in eine Datenstruktur einzubinden.

Du definierst also eine Datenstruktur mit einem gezonten numerischen Feld, überlagerst dieses durch Dein Alpha-Feld.
Anschliessend füllst Du den gepackten numerischen Wert in das gezonte Feld (mit EVAL).

Alternativ könnten auch die Built-in-Funktionen %CHAR oder %EDITC verwendet werden.

Beispiel:

D DSAlpha         DS                                   
D  Numer                        10S 0                  
D  Alpha                        10A   overlay(Numer)   
                                                       
D Packed          S              5P 0 inz(12345)       
 *----------------------------------------------
 /Free                    
   Numer = Packed;        
   Dsply   Alpha;      

   EvalR Alpha = %TrimR(%Char(Packed));        
   Dsply   Alpha;  
                            
   EvalR Alpha = %TrimR(%EditC(Packed: 'Z'));  
   Dsply   Alpha;                              
   
   *InLR = *On;           
 /End-Free 

Birgitta