0

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

是否可以将记录移动到字帖记录中，然后在 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.
4

1 回答 1

0

如果输出记录已经设置在工作存储中（与输出文件所需的格式相同），您可以执行

   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 写语句

于 2013-10-29T20:51:32.577 回答