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