１６進を１０進に変換する方法
1:１６進を１０進に変換する方法
ゼロ 08/05 08:59
ＳＹＳ＠ＦＤＦ内よりデータを抜き出してファイルを管理するデータベースを作りたいと思ったのですが、肝心な部分（更新回数、更新日等）が１６進の為にそのままでは利用できませんでした。

ＣＯＢＯＬで１６進から１０進に変換する方法を教えてもらえないでしょうか？

ＣＯＢＯＬを利用する以外の方法でもかまいませんのでお願いします。




2:Re:１６進を１０進に変換する方法
江須扇 08/05 18:14
はじめましてゼロさん、江須扇と申します。



２バイト単位しか利用できませんが、USAGE COMP-1

を利用したらいかがでしょうか？



全く違う利用例ですがこの掲示板の１８１番にUSAGE COMP-1

を使ったＣＯＢＯＬリストが載っております。




3:Re:１６進を１０進に変換する方法
ちょっと前までA-VXユーザ 08/17 23:18
USAGE COMP-1 って、２進数ですね。

１６進数は、４bits表現で、０〜９，Ａ〜Ｆですよね。

きっと間違っていないと思いますが、ちょっと気になって、



余計なお世話だったかな？



以上
4:Re:１６進を１０進に変換する方法
ゼロ 08/18 10:18



USAGE COMP-1


01 FDF-RECORDSIZEPIC X(2).'0256'(h)
01 WORK-RECORDSIZE.
02 WORK-RSIZ1PIC X(5).
02 WORK-RSIZ2REDEFINES WORK-RSIZ1 USAGE COMP-1.

MOVE FDF-RECORDSIZE TO WORK-RSIZ2.


WORK-RSIZ1256d

USAGE COMP-1����

�怨���
�����V蜉
��



01 H-TABLE  PIC X(16) VALUE ""000102030D0EOF"".
01 H-TBLREDEFINES H-TABLE PIC X(1) OCCURS 16 TIMES.
01 D-TABLE  PIC X(32) VALUE "000102030D0E0F".
01 D-TBLREDEFINES D-TABLE PIC X(2) OCCURS 16 TIMES.


5:Re:１６進を１０進に変換する方法
江須扇 08/19 07:35
>２バイト単位しか利用できませんが、USAGE COMP-1
>を利用したらいかがでしょうか？


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

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

6:Re:[5]:１６進を１０進に変換する方法
江須扇 08/19 16:49
ご指摘の通りですね。

COMP-1場合、
−３２７６８≦ｘ≦３２７６７
となり、上１桁目のビットは負をあらわすので、
１６進数を単純に１０進数に戻せない場合があると言うことですね。

例えば、

02 REI1 USAGE IS COMP-1
02 REI1-ANS PIC 9(5)

IF REI1 < 0
   THEN COMPUTE REI1-ANS = REI1 + 65536
   ELSE MOVE REI1 TO REI1-ANS
END-IF

等の工夫が必要という事ですね。


２バイトまでしか使えないので、
４バイトの場合はCOMP-2を使いますがこれも
−２１４７４８３６４８≦ｙ≦２１４７４８３６４７
なので

02 REI2 USAGE IS COMP-2
02 REI2-ANS PIC 9(10)

IF REI2 < 0
   THEN COMPUTE REI2-ANS = REI2 + 4294967296
   ELSE MOVE REI2 TO REI2-ANS
END-IF

６バイトの場合は

02 REI3.
  03 REI31 USAGE IS COMP-1
  03 REI32 USAGE IS COMP-2
02 REI31-ANS PIC 9(05)
02 REI32-ANS PIC 9(10)
02 REI3-ANS  PIC 9(15)

IF REI31 < 0
   THEN COMPUTE REI31-ANS = REI31 + 65536
   ELSE MOVE REI31 TO REI31-ANS
END-IF
IF REI32 < 0
   THEN COMPUTE REI32-ANS = REI32 + 4294967296
   ELSE MOVE REI32 TO REI32-ANS
END-IF
COMPUTE REI3-ANS = REI31-ANS * 4294967296 + REI32-ANS

等の作業が必要と言うことでしょうか？

7:Re:[5]:１６進を１０進に変換する方法
ゼロ 08/22 13:02
ありがとうございます、希望通りの結果を得ることができました。

プログラムもすっきりして大満足です。



上１桁が負を表すってことをすっかり忘れていました、２進数なんて２０年近く前に情報処理二種の試験勉強した依頼なんで。



次の課題はデータのデータ上に直接持っていないデータの追加可能件数をどうやって求めるか頭をひねってみようと思います。
前次1-新書板
BluesBB ©Sting_Band