Написать тетрадь Кобола?
Я использую тетрадь, в которую нужно добавить записи...
Можно ли переместить записи в запись тетради, а затем выписать тетрадь на языке COBOL? Если это так, какие-либо ссылки о том, как это сделать?
У меня есть этот код (основанный на ответе на этот вопрос), который работает правильно, однако мне сказали, что мне не нужен TRNREC94-OUT, что я могу просто написать тетрадь TRNREC94. Когда я попытался заменить B700-MOVE-RECORDS на "ЗАПИСАТЬ ОТЧЕТ-ЗАПИСЬ ОТ TRNREC94". Я получаю сообщение об ошибке, говорящее, что TRNREC94 не был определен как имя данных и был отброшен. Не уверен, куда идти отсюда..
WORKING-STORAGE SECTION.
COPY TRNREC94.
01 TRNREC94-OUT.
05 REC-94-TYPE-OUT PIC X(2).
05 REC-94-POLICY-NUMBER-OUT PIC X(8).
05 FILLER PIC X(5).
05 REC-94-PARISH-CODE-OUT PIC X(3).
05 FILLER PIC X(1).
05 REC-94-TERRITORY-CODE-OUT PIC X(1).
05 FILLER PIC X(60).
...
...
B700-MOVE-RECORDS.
MOVE REC-94-TYPE TO REC-94-TYPE-OUT
MOVE REC-94-POLICY-NUMBER TO REC-94-POLICY-NUMBER-OUT
MOVE REC-94-PARISH-CODE TO REC-94-PARISH-CODE-OUT
MOVE REC-94-TERRITORY-CODE TO REC-94-TERRITORY-CODE-OUT
WRITE REPORT-RECORD FROM TRNREC94-OUT.
1 ответ
Если выходная запись уже установлена в рабочем хранилище (в том же формате, который требуется для выходного файла), вы можете сделать
write Output-Record from source-record
Но более вероятный случай - вам придется перемещать поля одно за другим в выходную запись:
Move field-1 to output-field-1
Move field-2 to output-field-2
......
Move field-n to output-field-n
Write Output-Record
Здесь есть описание формата записи оператора