写一本Cobol文案?

写一本Cobol文案?,cobol,copybook,Cobol,Copybook,我正在使用一个需要添加记录的复写本 是否可以将记录移动到copybook记录,然后用COBOL写出copybook? 如果是,有关于如何做到这一点的参考资料吗 我有这个代码(基于这个问题的答案),它工作正常,但是我被告知我不需要TRNREC94-OUT,我可以只写TRNREC94复印机。当我尝试将B700-MOVE-RECORDS替换为“WRITE REPORT-RECORD FROM TRNREC94”时,我收到一个错误,指出TRNREC94未定义为数据名,因此被丢弃。不知道从这里到哪里去

我正在使用一个需要添加记录的复写本

是否可以将记录移动到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,就这些。