gepacktes num.Feld in ein Alphafeld umsetzen

[Souljumper]

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.

[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

[Souljumper]

Danke für die Antwort.

Ich hab allerdings das Problem das ich die Information per %subst aus einer anderen Datenstruktur abgreifen muss. das heist ich muss es ja erst in einem alphafeld zwischenspeichern, da der compiler sonst einen Abbruchfehler bringt wenn ich per %subst in ein numerisches Feld kopieren möchte.

Schiebe ich dann das Alphafeld per move befehl wieder in gepacktes feld steht in dem gepackten feld '000000' drin.

Ich komme also gar nicht so weit ihren Löschungsschritt auszuprobieren da ich mir den Wert schon vorher zerschoßen hab.

 c				   evalr	 wpack2 = %subst(csdta:cspos:cslen)  
 c				   move	  wpack2		packed				
 c				   eval	  nummer = packed					 
 c				   evalR	 Alpha = %trimR(%char(packed))	   
 c				   evalR	 Alpha = %trimR(%editc(packed:'Z'))

wpack2 ist alpahnumerisch.

[Fuerchau]

Wie im obigen Beispiel definiere ein gep. Feld in entsprechender Größe und überlageres es mit dem Alpha-Feld:

d ds
d Num 11p 2
d Alp 6 overlay(Num)

eval Alp = %subst(...)

In "Num" steht dein Wert (falls der Inhalt auch korrekt ist).
Dies sind eher "verbotene" Methoden.

[B.Hauser]

Ich hab allerdings das Problem das ich die Information per %subst aus einer anderen Datenstruktur abgreifen muss.

Hallo,

wenn der numerische Wert immer an der gleichen Stelle steht, dann lege einfach eine Datenstruktur an, in der der numerische Wert als gepacktes Feld definiert wird:
(Du brauchst Dich nicht mit irgendwelchen SUBSTRINGS herumzuärgern)

Beispiel:

D MyDS            DS                                                     
D   Anfang                       5A                                      
D   Packed                       5P 0                                    
D   Ende                         5A                                      
                                                                         
D   Text          S             13A   inz(x'E7E7E7E7E712345FE7E7E7E7E7') 
 *------------------------------------------------------
 /Free
    MyDS = Text;
    Dsply Packed;
    *InLR = *On;
 /End-Free 

Wenn die Start-Position und Länge variabel sind wird es komplizierter. Am einfachsten ist, man konvertiert den String in eine Hexadezimale Darstellung und greift dann die numerischen Werte ab. Die Konvertierung in Hex-Werte ist am einfachsten mit der SQL-Funktion HEX.

Beispiel:

D Packed          S             11P 0                                   
                                                                        
D   Text          S             13A   inz(x'E7E7E7E7E712345FE7E7E7E7E7')
D   AlphaHex      S             26A                                     
D   AlphaNum      S             26A                                     
                                                                        
D   Start         S              3U 0                                   
D   StartHex      S              3U 0                                   
D   Len           S              3U 0                                   
D   LenHex        S              3U 0                                   
D   Sign          S              1A        
 *---------------------------------------------------------
C/Exec SQL                                                    
C+ Set :AlphaHex = Hex(:Text)                                 
C/End-Exec                                                    
 /Free                                                        
    Start    = 6;                                             
    Len      = 3;                                             
    StartHex = Start * 2 - 1;                                 
    LenHex   = Len * 2;                                       
    AlphaNum = %Subst(AlphaHex: StartHex: LenHex - 1);        
    Packed   = %Dec(%Trim(AlphaNum): 11: 0);                  
    Sign     = %Subst(AlphaHex: StartHex + LenHex - 1: 1);    
    If Sign  = 'D';                                           
       Packed -= Packed;                                      
    Endif;
    Dsply Packed;                                                    
    *InLR    = *On;                                           
 /End-Free 

Birgitta

[Souljumper]

Wie im obigen Beispiel definiere ein gep. Feld in entsprechender Größe und überlageres es mit dem Alpha-Feld:

d ds
d Num 11p 2
d Alp 6 overlay(Num)

eval Alp = %subst(...)

In "Num" steht dein Wert (falls der Inhalt auch korrekt ist).
Dies sind eher "verbotene" Methoden.

Danke, das hat mir schon etwas weiter geholfen, allerdings renn ich jetzt immer auf einen Dezimaldatenfehler, hier der code:

d zoned		   ds								 
d nummer						30p 0				
d alpha						 14A   overlay(nummer)

Hat es einen bestimmten Grund warum mich der compiler zwingt da Alphafeld maximal halb so groß wie das gepackte Feld sein zu lassen?!

c	 d420		  begsr									   
c				   eval(h)   wcslen = cslen / 2				
c				   evalR	 alpha = %subst(csdta:cspos:wcslen) /*Bis hierher alles ok*/
c				   evalR	 Alpha = %trimR(%char(nummer))	 /*dezimaldatenfehler*
c				   evalR	 Alpha = %trimR(%editc(nummer:'Z'))

Zum dedzimaldat. fehler siehe Anhang.

[Fuerchau]

SO einfach ist es nun auch wieder nicht !
Der evalR füllt nach links mit x'40' auf !!!
Dann "30p 0" belegt 16 Bytes !!!

Mach dir ein Hilfsfeld:
d Hex0 16 inz(*loval)

Dann mach den
evalR = Hex0 + %subst(.....)

[Souljumper]

Ahhhh, ok danke. es klappt jetzt!

Vielen Dank an alle die mir geholfen haben .