РЕШЕНО
Я обнаружил, что эта строка скрыта намного дальше, куда я перемещаю эти значения в выходной файл:
INSPECT OUT-RECORD REPLACING ALL X'00' BY ' '
, изменяя мой X'00 'на X'40', чтовот где я получаю загадочную «4».Я приписываю это моей первой версии Cobol пропавшего ";".
Спасибо Брюсу и анонимному пользователю user9835153 за помощь!
Мне нужна помощь со странным сценарием, с которым я никогда не сталкивался раньше.
В качестве входных данных у меня есть зонное десятичное число без знака, PIC 9 (3) .9 (6), и мне нужно записать его в набор данных как подписанный COMP-3, PIC S9 (3) V9(6).Это прекрасно работает для всех значений , за исключением случаев, когда нули окружают десятичную дробь на входе .В этом случае 0 перед десятичной дробью всегда изменяется на 4.
Пример: , когда входное значение равно 31.006261, оно записывается как +31.006261 (x'031006261C 'в фактическом выходе)файл).Но когда входное значение равно 30.006261, оно записывается в файл как +34.006261 (x'034006261C ').
Я не могу изменить способ ввода значения, но я могу изменить формат ввода.Я пробовал различные способы перемещения этого значения, в том числе: переход прямо к COMP-3 из ввода, переход к различным типам временных полей в рабочем хранилище, создание ввода символьным полем и переход к числовому (полностью игнорируя десятичное число),
Вот упрощенная версия того, что я делаю:
* Value 30.006261 is read into WS-IN-VAL from input file.
01 WS-IN-RECORD.
05 WS-IN-VAL PIC 9(3).9(6).
01 OUT-RECORD.
05 WS-OUT-VAL PIC S9(3)V9(6) COMP-3.
* Working Storage 01 area
05 WS-HOLD-VAL PIC 9(3)V9(6).
05 WS-DISP-VAL PIC +9(3).9(6).
MOVE WS-IN-VAL TO WS-HOLD-VAL.
MOVE WS-HOLD-VAL TO WS-OUT-VAL.
MOVE WS-OUT-VAL TO WS-DISP-VAL.
WRITE WS-OUT-RECORD.
DISPLAY 'VALUE IN: ' WS-IN-VAL.
DISPLAY 'HOLD VALUE: ' WS-HOLD-VAL.
DISPLAY 'VALUE OUT: ' WS-OUT-VAL.
DISPLAY 'FORMATTED: ' WS-DISP-VAL.
VALUE IN: 30.006261
HOLD VALUE: 030006261
VALUE OUT: 030006261
FORMATTED: +030.006261
Однако, когда я открываю выходной файл с HEX ON, вот что я получаю:
----+
04021
3066C
View of the file with a layout shows: +34.006261.
Это происходит КАЖДЫЙ раз, когда нули окружают десятичную дробь.Я использовал подмножество данных из 8 записей и изменил половину на 10.1xxxxx, а другую половину на 10.0xxxxx (x - это различные числа).Все записи 10.0xxxxx изменились на 14.0xxxxx, но записи 10.1xxxxx остались правильными.Сделал это с 20.x, 30.x, 40.x и т. Д. И получил те же результаты.
Я также пробовал COMPUTE вместо MOVE при переходе от неподписанного к подписанному - те же результаты.Как я уже упоминал ранее, я пробовал различные способы перемещения входных значений, но результаты всегда одинаковы.Я подумал, что, возможно, часть явного десятичного числа (x'4B ') каким-то образом помещается в верхний полубайт, поэтому я изменил ввод, чтобы прочитать его отдельно, и изменил его шестнадцатеричные значения на x'00', но это не сработалоили.Я совершенно потерян в том, что еще можно попробовать, и не могу найти никого, кто испытал это.
Есть какие-нибудь идеи или предложения относительно того, почему 0 перед десятичной дробью заменяется на 4?
Изменить 5/21/18 после предоставления предложения:
VALUE FROM FILE: 50.022287
VALUE AFTER MOVE: 050022287
VALUE AS COMP-3 (OUTPUT FLD): 050022287
OUTPUT DISPLAYED: +050.022287
VALUE IN FILE: +54.022287
Ноль перед десятичной дробью все еще изменяется после записи в набор данных.