1

9(表示形式) とS9(展開された数値) の型について混乱しています。を使用してDB2ストアドプロシージャからコピーブックの出力を読んでいましたJava

* copy book
05 ABC PIC X(01).
05 XYZ PIC +9(09).

以下の Java コードを使用して、値を適切に読み取ることができました。数字の符号も、-または+

// java code 
cobolResults.subString(1,1);
cobolResults.subString(2,9);

コピーブックは、以下のようなアンパックされた数値を与えるように変更されました。

05 ABC PIC X(01).
05 XYZ PIC S9(09).

適切な記号で数値を読み取るための Java の正しいロジックが何であるかわかりませんか?

4

1 に答える 1

3

まず、Cobol Copybooks から Java クラスを生成するための IBM およびLegstarのパッケージがあります。私自身のパッケージJRecordも使用できますが、オンライン処理ではなくファイルを対象としています。

基本的に、フィールドの最後の文字は符号 + 数字を保持します。データはメインフレームから来ていると推測しています。したがって、US - Ebcdic (CP037 / IBM237) の場合、最後の桁は次のようになります。

          0 1 2 3 4 5 6 7 8 9
positive  { A B C D E F G H I
negative  } J K L M N O P Q R

したがって、+123 の場合は 00000012C (C = +3) になり、-123 は 00000012L になります。

さらに悪いことに、+0 と -0 は異なる EBCIDIC 方言と ASCII でも異なります。そのため、使用されている Ebcidic のバージョンを正確に把握するか、バイト レベルで変換を行う必要があります。

JRecord ConversionのfromZonedメソッドが変換を行います。

    private static int positiveDiff = 'A' - '1';
    private static int negativeDiff = 'J' - '1';

    private static char positive0EbcdicZoned = '{';
    private static char negative0EbcdicZoned = '}';

    public static String fromZoned(String numZoned) {
        String ret;
        String sign = "";
        char lastChar, ucLastChar;

        if (numZoned == null || ((ret = numZoned.trim()).length() == 0) || ret.equals("-")) {
            return "";
        }

        lastChar = ret.charAt(ret.length() - 1);
        ucLastChar = Character.toUpperCase(lastChar);


        switch (ucLastChar) {
        case 'A': case 'B': case 'C': 
            case 'D': case 'E': case 'F':
            case 'G': case 'H': case 'I':
            lastChar = (char) (ucLastChar - positiveDiff);
            break;
        case 'J': case 'K': case 'L':
        case 'M': case 'N': case 'O':
        case 'P': case 'Q': case 'R':
            sign = "-";
            lastChar = (char) (ucLastChar - negativeDiff);
            break;
        default:
            if (lastChar == positive0EbcdicZoned) {
                lastChar = '0';
            } else if (lastChar == negative0EbcdicZoned) {
                lastChar = '0';
                sign = "-";
            }           
        }
        ret = sign + ret.substring(0, ret.length() - 1) + lastChar;

         return ret;
    }

ただし、バイトレベルで行う方が簡単です。次のようにする必要があります（ただし、コードはテストされていません）。

    private static final byte HIGH_NYBLE = (byte) 0xf0;
    private static final byte LOW_NYBLE  = (byte) 0x0f;
    private static final byte ZONED_POSITIVE_NYBLE_OR = (byte) 0xCF;
    private static final byte ZONED_NEGATIVE_NYBLE_OR = (byte) 0xDF;
    private static final byte ZONED_NEGATIVE_NYBLE_VALUE = (byte) 0xD0;                        

    signByte = bytes[bytes.length - 1];

    negative = false;
    if (((byte) (signByte & HIGH_NYBLE)) == ZONED_NEGATIVE_NYBLE_VALUE) {
        negative = true;
    }

    long result = 0;
    for (int i = 0; i < bytes.length; i++) {
        result = result * 10 + (bytes[i] & LOW_NYBLE);
    }

    if (negative) {
       result = -1 * result;
    }
于 2015-08-12T23:01:08.327 に答える