Dim objCustomer As Object Dim strLocation As String Dim strNameAbrev As String strLocation = "101" strNameAbrev = "SPORT" 'create an instance of the invoicing object On Error GoTo ErrorHandler1 Set objCustomer = CreateObject("Customer.Invoicing.1") 'invoke the CreateCustomerID method On Er...
COBOL中的非数值类型可分为两类:布尔值和日期/时间。 布尔值 PIC X(1):一个字符,通常用于表示True/False。 日期/时间 PIC 9(6):一个六位数字,格式为YYMMDD。 PIC 9(8):一个八位数字,格式为YYYYMMDD。 PIC 9(10):一个十位数字,格式为YYYYMMDDHH。
DIVIDE total BY count GIVING average,remainder. 这将计算“total”除以“count”的商和余数,并将商保存在名为“average”的变量中,将余数保存在名为“remainder”的变量中。 以上是一些COBOL基本动词的介绍,程序员可以结合各自的业务需求,合理运用这些动词来编写高效、可读性强的COBOL代码。
下面通过例子来详细讲解条件语句的使用。 IF 语句 IF AGE > 18 DISPLAY "可以投票" ELSE DISPLAY "不可以投票" END-IF 这段代码先判断变量 AGE 是否大于 18,如果是,则显示 “可以投票”;否则显示 “不可以投票”。 EVALUATE 语句 EVALUATE SCORE WHEN 90 THRU 100 DISPLAY "优秀" WHEN 80 THRU 89 DISPLAY...
数字项目(PACK 形式) ⑵处理标准 ① 输入文件以 50 记录/存储块为单位输出 ② 单价,采购数量,采购额以 PACK 形式输出 ③ 采购额用下列公式求出 采购额 = 单价 * 采购数量 1 IDENTIFICATION 2.2 IDENTIFICATION DIVISION IDENTIFICATION DIVISION 被叫做标识部, COBOL 第一个记述的 DIVISION 这里, 是 要记述的是...
COBOL 中的变量(1) COBOL-基本语法(1) COBOL-内部排序 COBOL是一种大型商业应用程序的语言,很多企业使用COBOL来处理其核心业务。内部排序是COBOL中一个非常重要的功能,可以对数组或表格中的数据进行排序,提高程序运行效率和数据处理能力。 排序算法 COBOL内部排序支持多种排序算法,包括冒泡排序、选择排序、插入排序、...
1.1COBOL发展概况 COBOL是一个高级程序设计语言，1960由CODASYL委员会(ConferenceonDataSystemsLanguages)提出。以后，新的COBOL标准由美国国家标准组织（ANSI）负责 ANSI推出的3个COBOL标准:1968,1974和1985.目前，关于面向对象的COBOL标准正在制定.COBOL是如下单词的简写（COmmonBusinessOrientedLanguage）.COBOL...
大型机学习002--大型机介绍及COBOL(1)大型机 是一种计算机(personal computer/minicomputer/mainframe/supercomputer) 大型机的优点: 高速(皮秒级,10^-12) 专注于大型数据的处理和数据存储 高度的安全性 批处理(BATCH PROCESS) 我们要学的: /COBOL(Common Business-Oriented Language面向商业的通用语言) /JCL(Job ...
1、COBOL简介 COBOL是Common Business-Oriented Language(公用面向商业的语言)的缩写。 COBOL针对商业世界使用,是真正商用应用程序开发的首选语言(过去如此,未来...呵呵)。它自60年代初就开始广泛应用于计算机应用领域(商业和其他领域)。COBOL程序服务于政府、银行、运输系统、制造业及批发系统的日常工作中。 COBOL...
系统标签: cobol语言教程初级简介开发 【最新+免费】COBOL语言初级教程(1)--COBOL简介其他开发语言 技术,【最新+免费】COBOL语言初级教程(1)--COBOL简介其他开发语言 技术, 君,已阅读到文档的结尾了呢~~ 立即下载相似精选,再来一篇 24260568 分享于2012-06-08 19:02...