写一本 Cobol 字帖？答案

【问题标题】：Write a Cobol copybook?写一本 Cobol 字帖？
【发布时间】：2013-10-29 20:26:35
【问题描述】：

我正在使用需要添加记录的字帖..

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

我有这个代码（基于这个问题的答案），它工作正常，但是我被告知我不需要 TRNREC94-OUT，我可以只写 TRNREC94 字帖。当我尝试用“WRITE REPORT-RECORD FROM TRNREC94”替换 B700-MOVE-RECORD 时。我收到一条错误消息，指出 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.

【问题讨论】：

你需要向人们展示你已经尝试过的东西，如果你不这样做，你就会被否决并被告知阅读需求手册。
您需要参考字帖TRNREC94的内容。抄写本没有什么神奇之处。这可能是 01 记录描述。
谢谢@GilbertLeBlanc，就是这样。

标签： cobol copybook

【解决方案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

【讨论】：