写一本Cobol文案?
我正在使用一个需要添加记录的复写本 是否可以将记录移动到copybook记录,然后用COBOL写出copybook? 如果是,有关于如何做到这一点的参考资料吗 我有这个代码(基于这个问题的答案),它工作正常,但是我被告知我不需要TRNREC94-OUT,我可以只写TRNREC94复印机。当我尝试将B700-MOVE-RECORDS替换为“WRITE REPORT-RECORD FROM TRNREC94”时,我收到一个错误,指出TRNREC94未定义为数据名,因此被丢弃。不知道从这里到哪里去写一本Cobol文案?,cobol,copybook,Cobol,Copybook,我正在使用一个需要添加记录的复写本 是否可以将记录移动到copybook记录,然后用COBOL写出copybook? 如果是,有关于如何做到这一点的参考资料吗 我有这个代码(基于这个问题的答案),它工作正常,但是我被告知我不需要TRNREC94-OUT,我可以只写TRNREC94复印机。当我尝试将B700-MOVE-RECORDS替换为“WRITE REPORT-RECORD FROM 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.
如果输出记录已设置在工作存储器中(与输出文件所需的格式相同),则可以执行以下操作
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
这里有对write语句格式的描述
您需要向人们展示您所做的尝试,如果您不这样做,您将获得否决票,并被告知阅读需求手册。您需要参考copybook TRNREC94的内容。抄写本没有什么神奇之处。这可能是一个01记录的描述。谢谢@GilbertLeBlanc,就这些。