Question

我正在使用需要添加记录的副本..

是否可以将记录移至副本记录，然后在COBOL中写出副本？如果是这样，有关如何执行此操作的任何参考？

我有这个代码（根据这个问题的答案），这是正常工作，但我被告知我不需要TRNREC94-OUT，我可以写TRNREC94字帖。当我尝试用“TRNREC94的WRITE REPORT-RECORD”替换B700-MOVE-RECORDS时。我得到一个错误，说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

这里有写声明格式的描述

IBM Cobol Write Statement

写一个Cobol字帖？

1 个答案: