写一本 Cobol 文案

Question

我正在使用一个需要添加记录的文案。

是否可以将记录移动到副本记录，然后在 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.                  

Answer 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

这里有一个关于 write 语句格式的描述

IBM Cobol Write Statement