Gepackter Wert nach Binär konvertieren

[Heyden]

Hallo Miteinander,

mein Problem: gepackte Werte nach Binär konvertieren(in RPG). Cobol-Compiler ist auch nicht auf der Maschine. Wer kann hier helfen.

Gruss

S. heyden

[B.Hauser]

Hallo,

Du definiertst einfach ein Feld mit 3I 0, 5I 0, 10I 0 oder 20I 0 und schiebst die gepackten Werte darein. Eventuell kannst Du das Integerfeld in einer Datenstruktur hinterlegen und durch ein Alpha-Feld überlagern:

D MyPack          S              9P 0 inz(123456)  
       
D DSInt           DS                                      
D   MyChar                       4A                       
D   MyInt                       10I 0 Overlay(MyChar)     
 /Free
   MyInt = MyPack;
   Dsply MyChar;
   *InLR = *On;
 /End-Free 

Birgitta

[Robi]

Was genau wilst du machen ?

Typ 'B'
D DS
D ##ALF 1 2
D ##BIN 1 2B 0 <- heist binär

D GPCKT S 2P 0

einfach per Move nach ##alf

oder 'richtig' binär als '01100101' ???

Robi

[Heyden]

Erstmal Dank für die Hilfe.
Ich habe nachstehende Lösung gefunden. Dann klappt es auch mit SambaPlus.

Gruss

Stefan Heyden

D DS_Feld DS
D DS_Fld_A 1 8
D DS_Fld_N 1 8P 2

D BinFeld S 8 INZ(X'0000000000000000')

c move ds_fld_A BinFeld