Google
オフコン練習帳内を検索
インターネット全体を検索

NECオフコン関連
オフコン一般
情報

[掲示板に戻る]

Re:１６進を１０進に変換する方法 ゼロ 2006-8-18 10:18
Re:１６進を１０進に変換する方法 江須扇 2006-8-19 7:35

4 Re:１６進を１０進に変換する方法
ゼロ 2006-8-18 10:18  [返信] [編集]

遅くなりましたが、江須扇様レスありがとうございました。


USAGE COMP-1を使用してレコード長、ブロック長、更新回数は問題なく１０進に変換できました。


01 FDF-RECORDSIZE　PIC X(2).　　：　内容　'0256'(h)
01 WORK-RECORDSIZE.
　02 WORK-RSIZ1　　PIC X(5).
　02 WORK-RSIZ2　　REDEFINES WORK-RSIZ1 USAGE COMP-1.

MOVE FDF-RECORDSIZE TO WORK-RSIZ2.


これで、WORK-RSIZ1の内容が’256d’になっていました。

USAGE COMP-1の仕組みがよく理解できていないので結果論ですが、１６進数→１０進数の変換は出来たようです。

問題になったのが第１〜第４エクステント開始終了アドレス。
これは上記の方法で変換するとまったく意味不明な値が帰ってきたので下記のような変換テーブルを作って１バイトづつ判断して内部１６進から外部１６進に変換しました。
あとは１６進→１０進への計算ルーチンを作って１０進にしました。
もっといい方法があるかもしれませんがこれしか思いつきませんでした。


01 H-TABLE  PIC X(16) VALUE ""00010203・・・0D0EOF"".
01 H-TBL　　REDEFINES H-TABLE PIC X(1) OCCURS 16 TIMES.
01 D-TABLE  PIC X(32) VALUE "00010203・・・0D0E0F".
01 D-TBL　　REDEFINES D-TABLE PIC X(2) OCCURS 16 TIMES.

5 Re:１６進を１０進に変換する方法
江須扇 2006-8-19 7:35  [返信] [編集]

>２バイト単位しか利用できませんが、USAGE COMP-1
>を利用したらいかがでしょうか？


という事で、４バイトの場合は、 USAGE COMP-2
を利用していただくこととなります。
但し、
COMP-1 が−３２７６８≦ｘ≦３２７６７
COMP-2 が−２１４７４８３６４８≦ｙ≦２１４７４８３６４７
となります。

詳しくは、ＣＯＢＯＬ言語説明書、２．４．３．４　データの表現形式
をご覧下さい。

BluesBB ©Sting_Band