Могу ли я спросить, каково использование ключевого слова REDEFINES в COBOL? Я не могу понять ручное определение.
В чем смысл следующего кода?
01 WS_CHARGE_TXT_8X PIC X(08) VALUE "10000000".
01 WS_CHARGE_NUM_8 REDEFINES WS_CHARGE_TXT_8X.
05 WS_CHARGE_8 PIC 9(05)V9(03).
Спасибо!
В основном Redefines повторно использует пробелы, поэтому в приведенном выше примере WS_CHARGE_TXT_8X и WS_CHARGE_8 будут указывать на один и тот же блок памяти. Это позволяет взглянуть на блок памяти по-разному, в этом случае переменную можно рассматривать как текст PIC X и числовой PIC S9 со знаком. -8X - -8 в имени переменной просто стилистически указывают на то, что переменная передается другому типу или формату другим программистам.
В приведенном выше примере
Если вы переместили 123.456 в WS_CHARGE_8 значение WS_CHARGE_TXT_8X "00123456".
Более полезный пример
03 Birth-Date-YYYYMMDD pic 9(8).
03 filler redefines Birth-Date-YYYYMMDD.
05 Birth-Date-YYYY pic 9(4).
05 Birth-Date-MM pic 99.
05 Birth-Date-DD pic 99.
В этом случае вы можете получить доступ ко всей дате рождения-ГГГГММДД или году/месяцу/дню отдельно (Дата рождения-ГГГГ и т.д.).
Это аналогично объединению в 'C'. Он экономит рабочее пространство хранения и операторы MOVE, а также полезен для переноса массивов PIC (X) или доступа к повторяющимся полям в виде массива. В случае OP создается числовой тип для содержимого char поля прототипа.
A REDEFINES позволяет другое описание данных для хранения, которое уже определено.
Это может означать, что там могут храниться совсем другие данные.
05 RL-AGENT-DATA.
...
05 RL-CUSTOMER-DATA REDEFINES RL-AGENT-DATA.
...
Или дать описание, которое позволяет использовать часть данных, как в примере Брюса.
Или использовать кусок данных, который является одним и тем же, но для другой цели:
05 INPUT-AMOUNT PIC X(10).
05 INPUT-AMOUNT-NUMERIC REDEFINES PIC 9(8)V99.
Все, что находится в INPUT-AMOUNT, можно сообщить без проблем, но только если оно является допустимым числовым (посредством testng его для NUMERIC), используется INPUT-AMOUNT-NUMERIC для какой-либо цели.
Обратите внимание, что каждый 01, следующий за первым под FD, является "неявным REDEFINES".
Обратите внимание, что элементы в LINKAGE SECTION имеют эффект "переопределения" "чего-то", хотя, если адрес данных из программы CALLing, определение часто совпадает с определением оригинала и обычно по крайней мере, соответствуют PICtures оригинала.