Auspacken EBCDIC Verpackt Dezimalzahlen (COMP-3) in einer ASCII-Konvertierung

Question

I Jon Skeet's EBCDIC implementation in .NET bin mit einer VSAM-Datei im Binär-Modus mit FTP von einem Mainframe-System heruntergeladen zu lesen. Es funktioniert sehr gut zum Lesen/Schreiben in dieser Kodierung, aber es hat nichts, um gepackte Dezimalwerte zu lesen. Meine Datei enthält diese und ich muss sie entpacken (natürlich auf Kosten von mehr Bytes).

Wie kann ich das tun?

sind meine Felder als PIC S9(7)V99 COMP-3.

Answer 1

Ahh, BCD definiert. Honk, wenn Sie es in 6502 Montage verwendet haben.

Natürlich ist die beste Wette ist, die COBOL-MOVE tun, um die Arbeit für Sie zu lassen! Eine dieser Möglichkeiten kann helfen.

(Möglichkeit # 1) Angenommen, Sie haben Zugriff auf den Mainframe und den Quellcode, und die Ausgabedatei ist nur für Ihre Verwendung, ändern Sie das Programm, so verschiebt es nur den Wert zu einem unverpackten PIC S9 (7) V99.

(Möglichkeit # 2) Angenommen, es ist nicht so einfach (zB Datei wird für andere PGMS eingegeben oder kann den Code nicht ändern), können Sie ein anderes COBOL-Programm auf dem System schreiben, das diese Datei liest und eine andere schreibt . Schneiden Sie das Dateisatzlayout mit dem BCD aus und fügen Sie es in das neue Programm für Eingabe- und Ausgabedateien ein. Ändern Sie die Ausgabeversion so, dass sie nicht gepackt ist. Lesen Sie einen Datensatz, machen Sie einen "Umzug entsprechend", um die Daten zu übertragen, und schreiben Sie bis eof. Dann übertragen Sie , dass Datei.

(Möglichkeit # 3) Wenn Sie den Mainframe nicht berühren können, notieren Sie sich die Beschreibung im Artikel Sie in Ihrem Kommentar verknüpft. BCD ist relativ einfach. Es könnte so einfach wie diese (vb.net):

Private Function FromBCD(ByVal BCD As String, ByVal intsz As Integer, ByVal decsz As Integer) As Decimal 
    Dim PicLen As Integer = intsz + decsz 
    Dim result As Decimal = 0 
    Dim val As Integer = Asc(Mid(BCD, 1, 1)) 
    Do While PicLen > 0 
     result *= 10D 
     result += val \ 16 
     PicLen -= 1 
     If PicLen > 0 Then 
      result *= 10D 
      result += val Mod 16 
      PicLen -= 1 
      BCD = Mid(BCD, 2) 
     End If 
     val = Asc(Mid(BCD, 1, 1)) 
    Loop 
    If val Mod 16 = &HD& Then 
     result = -result 
    End If 
    Return result/CDec(10^decsz) 
End Function 

ich es mit ein paar Variationen dieses Aufrufs getestet:

MsgBox(FromBCD("@" & Chr(13 + 16), 2, 1)) 

Z. B. ist -40,1. Aber nur ein paar. Es könnte also immer noch falsch sein.

Also dann, wenn Ihre comp-3 beginnt, sagen wir, bei Byte 10 des Eingangssatzaufbau, das es lösen wäre: für die Anzahl der Bytes

dim valu as Decimal = FromBCD(Mid(InputLine,10,5), 7,2)) 

Anbetracht der Formeln aus der Datenumwandlungs Artikel in, und der # 9 die vor und nach der V.

das Ergebnis in einem Dezimal zu senden Rundungsfehler zu vermeiden. Esp, wenn es $$$ ist. Float & Double wird dir Kummer bereiten! Wenn Sie es nicht verarbeiten, ist sogar eine Zeichenfolge besser.

es natürlich könnte härter sein. Wo ich arbeite, ist der Mainframe 9 Bits pro Byte. Ernst. Das macht die ersten beiden Möglichkeiten so herausragend. Natürlich, was sie wirklich besser macht, ist die Tatsache, dass Sie vielleicht nur ein PC-Programmierer sind und das ist eine großartige Ausrede, um einen Mainframe-Programmierer dazu zu bringen, die Arbeit für Sie zu erledigen! Wenn Sie das Glück haben, dass die Option haben ...

Frieden, -Al