当前位置: 首页 > 知识库问答 >
问题:

写Cobol字帖?

吕霍英
2023-03-14

我有这段代码(基于这个问题的答案),它工作正常,但是我被告知我不需要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.                  

共有1个答案

江洲
2023-03-14

如果输出记录已经在工作存储中设置(与输出文件所需的格式相同),则可以执行

   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语句格式的描述

 类似资料:
  • 本节介绍与COBOL Framework相关的各种模拟测试。 您可以在本地计算机上下载这些示例模拟测试,并在方便时离线解决。 每个模拟测试都提供一个模拟测试密钥,让您自己验证最终得分和评分。 .B, .answer-sheet{ display:none !important; } .Q a{ pointer-events: none; cursor: default; } COBOL Mock

  • 亲爱的读者,这些COBOL Interview Questions专门设计用于让您了解在面试COBOL Programming Language时可能遇到的问题的性质。 根据我的经验,优秀的面试官在你的面试中几乎不打算提出任何特别的问题。 通常问题从主题的一些基本概念开始,然后它们继续基于进一步的讨论和你回答的内容: 您对COBOL了解多少? COBOL代表面向公共业务的语言。 美国国防部在一次会

  • 编译COBOL程序 为了使用JCL以批处理模式执行COBOL程序,需要编译程序并使用所有子程序创建加载模块。 JCL在执行时使用加载模块而不是实际程序。 在使用JCLLIB或STEPLIB执行时,将加载库连接并提供给JCL。 有许多主机编译器实用程序可用于编译COBOL程序。 一些公司公司使用像Endevor这样的变更管理工具,它可以编译和存储程序的每个版本。 这在跟踪对程序所做的更改时很有用。

  • 属于。也是。 我在表中有一个字段,我希望将其值移到另一个字段中,该字段应包含的值。和都是字母数字字段。请建议合适的方法来实现这一点。

  • COBOL bridge for NodeJS 可以让你在 Node.js 里面运行 COBOL 代码。 代码示例: // Dependenciesvar Cobol = require("cobol");// Execute some COBOL snippetsCobol(function () { /*       IDENTIFICATION DIVISION.       PROGRAM

  • 如何使用RecordEditor从Cobol Copybook生成Java~JRecord代码来读/写二进制EBCDIC大型机文件。 这是一个问题和答案,试图防止一些糟糕/误导性的问题被问到或答案可以指出。