cobol的PERFORM UNTIL.....循环里,怎样跳出本次循环呢?相当于c里的continue的作用.

COBOL（CommonBusinessOrientedLanguage）是数据处理领域最为广泛的程序设计语言，是第一个广泛使用的高级编程语言。在企业管理中，数值计算并不复杂，但数据处理信息量却很大。为专门解决经企管理问题，美国的一些计算机用户于1959年组织设计了专用于商务处理的计算机语言COBOL,并于1961年美国数据系统语言协会公布。经不断修改、丰富完善和标准化，目前COBOL已发展为多种版本。

cobol是一种普通的编程语言，和c，dephi类似，需要编译后运行。而jcl并不能算一种编程语言，和window下的批处理，unix下的shell感觉差不多。jcl:在大型服务器系统中，当用户需要使用计算机完成某项任务时，用户必须准备一个作业流(Job Stream)。作业流中包含一个或多个作业（Job）。作业是用户在完成该任务时要求计算机所做工作的集合。与COBOL等一般的编程语言不同，作业控制语言JCL（Job Control Language）是用户与操作系统的接口。用户通过JCL的相应语句来与操作系统通讯，获得作业所需的资源等，按自己的意图来控制作业的执行。

COBOL语言，是一种面向过程的高级程序设计语言，主要用于数据处理,是目前国际上应用最广泛的一种高级语言。COBOL是英文Common Business-Oriented Language的缩写,原意是面向商业的通用语言。它采用 300多个英语单词作为保留字，以一种接近于英语书面语言的形式来描述数据特性和数据处理过程,因而便于理解和学习。COBOL语言是专门为企业管理而设计的高级语言，可用于统计报表、财务会计、计划编制、作业调度、情报检索和人事管理等方面。

cobol?十分古老的语言,已经被人们遗忘了多年的了,近来有没有什么变化我不知道.

COBOL英文缩写: COBOL (Common business Oriented Language) 中文译名: COBOL语言 解 释: 一种适合于商业及数据处理的类似英语的程序设计语言。这种语言可使商业数据处理过程精确表达。 COBOL（面向商业的通用语言，又称为企业管理语言、数据处理语言等，Common Business Oriented Langauge）是最早的高级编程语言之一，是世界上第一个商用语言。 翻译：English abbreviation: COBOL (Common business Oriented Language)English translation: COBOL LanguageExplanation: a suitable commercial and data processing procedures similar to the English language. This language allows precise expression of commercial data processing.COBOL (Common Business Oriented Language, also known as enterprise management language, data processing and language, Common Business Oriented Langauge) is the first high-level programming language is one of the world"s first commercial language. ..COBOL的历史 1959年5月，五角大楼委托格雷斯·霍波（G.Hopper）博士领导一个委员会并由Rear Admiral Grace Hopper公司主持开发，并于1961年由美国数据系统语言协会公布。正式发布于1960年4月，称为Cobol－60。 1968年美国国家标准委员会ANSI又通过了新的标准ANSI COBOL X.3.23-1968。 1972年国际标准化组织ISO将其作为ISO COBOL-72。1974年ANSI对COBOL-68作出了修订扩充，形成了ANSI COBOL X3.23-1974，随后1978年ISO采用其形成ISO COBOL-78，后来又提出了ANSI X3.23-85，增加了很多结构化程序设计的内容，ISO标准ISO1989:1985也采用了该标准。COBOL标准还在不断地改进和完善，最新的标准COBOL 2002主体已经于2002年12月出版，其他部分还在不断地完善之中。现在最新的版本是Cobol－2002。 1963年，美国国家标准研究所(ANSI)进行了标准化，但是ANSI标准很少被遵循；因此，COBOL程序只是部分可移植的。翻译：The history of COBOLIn May 1959, the Pentagon commissioned格雷斯霍波(G. Hopper) by a committee led by Dr. Rear Admiral Grace Hopper led the development of the company, and in 1961 by the American Association of Data Systems Languages. Officially released in April 1960, known as the Cobol-60.1968, American National Standards Institute ANSI has adopted a new standard ANSI COBOL X.3.23-1968.1972 International Organization for Standardization ISO as ISO COBOL-72. 1974 Nian ANSI pairs of COBOL-68 was amended in expanded form ANSI COBOL X3.23-1974, following its formation in 1978, ISO using ISO COBOL-78, and later proposed ANSI X3.23-85, increased the number of structured programming content, ISO standard ISO1989: 1985 also adopted the standard. COBOL standards are continuing to improve and perfect the latest standard COBOL 2002 subjects have been published in December 2002, other parts are still being constantly improved. Now, its latest version of Cobol-2002.In 1963, the American National Standards Institute (ANSI) has standardized, but the ANSI standard are rarely followed; so, COBOL programs only partially portable.COBOL的重要性 经过40多年的不断修改、丰富完善和标准化，COBOL已发展为多种版本的庞大语言，在财会工作、统计报表、计划编制、情报检索、人事管理等数据管理及商业数据处理领域，都有着广泛的应用。 COBOL的重要性可以用这句话来描述：世界上70％的数据都是用COBOL语言处理的，并且90％的ATM事务处理用的都是COBOL语言。每天在线处理的COBOL事务有300亿次。500强中有492家（包括全部的100强）使用了COBOL语言，目前在COBOL方面的投资已经超过3万亿美元，，据称用COBOL书写的程序超过了1000亿行，并且以每年大约50亿行代码的速度在增长。 由于COBOL在商业领域的雄厚基础，而且COBOL主要是应用于银行、金融和会计行业等非常重要的商业数据处理领域。所以，即使对于具有相当经验的IT公司来说，重新编写COBOL语言的可靠的应用软件也是不实际或是从商业角度上并不可行的，而且还要花上很长的时间，只要大型机存在，COBOL就不会消失，即使是对电脑界产生巨大影响的“千年虫”（Y2K）也没有改变COBOL的命运。翻译：The importance of COBOL After 40 years of constant change, rich sound and standardization, COBOL has evolved into multiple versions of a large language, accounting, statistical reporting, planning, information retrieval, personnel management, data management and business data processing , all have a wide range of applications. The importance of COBOL can use these words to describe: The World"s 70% of the data is to use COBOL language processing, and 90% of ATM transactions are used in COBOL language. COBOL matters dealt with every day online 300 million times. 500 There are 492 (including all of the 100) uses the COBOL language COBOL investments currently has more than three trillion U.S. dollars, allegedly written in COBOL programs with more than one hundred billion rows, and about 50 per year 100 million lines of code at the rate of growth. Since COBOL strong foundation in the commercial sphere, and COBOL is mainly used in banking, finance and accounting industries are very important business data processing. Therefore, even for considerable experience in IT companies, rewriting COBOL language, the application of reliable software is not practical or not feasible from a business point of view, but also spend a very long time, as long as there is mainframe , COBOL will not disappear, even for the computer industry a tremendous impact on the "millennium bug" (Y2K) did not change the fate of COBOL.COBOL的特点 COBOL是一种面向数据处理的、面向文件的、面向过程(POL)的高级编程语言，是一种功能很强而又极为冗长的语言。 COBOL适合于具有循环处理周期的环境(例如打印工资支票)以及数据操纵量相当大的环境。COBOL主要应用于商业数据处理领域，对各种类型的数据进行收集、存储、传送、分类、排序、计算及打印报表、输出图象是它的强项。 COBOL语法与英文很接近，即使不懂电脑的人也能看懂程序。 强大的文件处理功能，大量的数据通常以文件的形式存储在磁盘上。 仅提供了加、减、乘、除及乘方这五种简单的算术运算，因而不适于进行科学计算。 未来的COBOL将支持XML等Web时代的新技术。翻译：The characteristics of COBOLCOBOL is a data-oriented processing, file-oriented, process-oriented (POL) high-level programming language, is a feature very strong but extremely lengthy language.COBOL for the processing cycle with the cycle of the environment (for example, print pay checks) as well as a large amount of data manipulation environment. COBOL is mainly used in commercial data processing, for various types of data collection, storage, transmission, classification, sorting, calculation and printing reports, the output image is its strength.COBOL grammar and English is very close, even if people do not understand the computer program can read.Powerful document processing capabilities, large amounts of data are usually in the form of files stored on disk.Provided only add, subtract, multiply, divide, and involution of these five simple arithmetic operations, and thus not suitable for scientific computing.COBOL will support the future of XML and other Web era of new technologies.COBOL的程序结构 COBOL程序由4部(DIVISION)组成：IDENTIFICATION DIVISION.(标识部)、ENVIRONMENT DIVISION.(环境部)、DATA DIVISION.(数据部)、PROCEDURE DIVISION.(过程部)，而每个部又由若干节 (SECTION)组成。 IDENTIFICATION DIVISION. “PROGRAM-ID”（程序识别ID）、“AUTHOR”（作者名）、“DATE-WRITTEN”（编写日期），这些并直接不影响程序的执行，而是程序的注释 信息。程序注释可以采用任何语言书写，COBOL编译器可以接受。ENVIRONMENT DIVISION. 用于记载程序可以被运行的计算机环境。“ENVIRONMENT DIVISION.”部包括“CONFIGURATION SECTION”环境节和“INPUT-OUTPUT SECTION”输入输出节。DATA DIVISION. 用于定义和声明程序所要使用的变量及其他数据。程序要使用的全部变量和数据必须在这里定义。“DATA DIVISION.”部主要包含“FILE SECTION.”和“WORKING-STORAGE SECTION.”节。 如果程序要通过参数接收数据，那么使用“LINKAGE SECTION”来声明。 COBOL的数据种类 COBOL程序的数据，主要有以下3种： 变量（Variables） 常量(Literals) 表意常量（FigurativeConstants）变量和常量自不必说，说说表意常量。使用有特定意思的多个词组合成一个常量的代名词。好处是便于编码人员识别。比如：HIGH-VALUES、LOW-VALUES等可以表达一定意思的名称作为常量代名词。 COBOL变量类型 COBOL的基本变量类型，有以下三种： 数值型（Numeric） 英文字符型（AlphaNumeric） 英文字符串型（Alphabetic） PROCEDURE DIVISION 用于容纳程序的实际处理代码。需要传入参数时，采用“PROCEDURE DIVISION USING 引数名[，参数名...]”的方式。 因为前3个DIVISION都是注释，却又必须，只到第4个DIVISION“PROCEDURE DIVISION”才真正涉及程序代码，这样的繁琐规定使得COBOL被批评为开场白像老太太裹脚布。但是，基于这样的4个DIVISION的明确记述等的严格形式，COBOL也被公认是可读性强的语言。另外，COBOL的保留字数量庞大，字数过长的保留字太多是COBOL的特征之一。 目前Cobol 就业市场包含以下两种类型： 第一，在旧的 Cobol 代码和新程序之间充当桥梁，这种工作要求人们懂 Cobol，懂那些老 Cobol 程序员所依赖的商业逻辑，同时动新的编程语言，如 Java。 第二是维护旧的 Cobol 代码，并编写新的 Cobol 代码。翻译：COBOL program structure of COBOL programs from the four (DIVISION) composed of: IDENTIFICATION DIVISION. (ID Department), ENVIRONMENT DIVISION. (Ministry of the Environment), DATA DIVISION. (Data Division), PROCEDURE DIVISION. (The process of Department), and each department also by a number of sections (SECTION) component. IDENTIFICATION DIVISION. "PROGRAM-ID" (identification process ID), "AUTHOR" (author name), "DATE-WRITTEN" (write the date), which do not directly affect the program execution, but the program notes the information. Program notes written in any language can be used, COBOL compiler is acceptable. ENVIRONMENT DIVISION. Recorded program can be used to run computer environment. "ENVIRONMENT DIVISION." Department, including "CONFIGURATION SECTION" Environment Day and "INPUT-OUTPUT SECTION" input-output section. DATA DIVISION. Definitions and declarations for procedures to be used for variables and other data. Program to use all the variables and data must be defined here. "DATA DIVISION." Department consists mainly of "FILE SECTION." And "WORKING-STORAGE SECTION." Festival. If the program is to pass parameters to receive data, then use the "LINKAGE SECTION" to the statement. COBOL data types of COBOL program data, mainly in the following three kinds: variables (Variables) Constants (Literals) ideographic constant (FigurativeConstants) variables and constant self-Needless to say, talk about the ideographic constant. Use of a specific meaning of a constant synthesis of a number of phrases synonymous. The advantage of facilitating coders identified. For example: HIGH-VALUES, LOW-VALUES, etc. can express a certain meaning of the name as synonymous with a constant. COBOL variable type of the basic variable types of COBOL, the following three ways: numeric (Numeric) English character (AlphaNumeric) English string (Alphabetic) PROCEDURE DIVISION is used to accommodate the actual processing procedure code. Need to pass parameters using "PROCEDURE DIVISION USING argument name [, parameter names ...]" way. Because the former are three DIVISION notes, but must be only to the first 4 DIVISION "PROCEDURE DIVISION" really involved in the program code, such as red tape makes COBOL has been criticized for his opening remarks, like the old lady bindings. However, based on these four DIVISION such a clear account of the strict form, COBOL has also been recognized as readable language. In addition, COBOL reserved words large number of long words is a COBOL reserved word too much one of the characteristics. Cobol job market at present contains the following two types: first, in the old Cobol code and to act as a bridge between the new procedures, this kind of work requires people to understand Cobol, understand those old Cobol programmers rely on business logic, while moving the new programming languages such as Java. The second is to maintain the old Cobol code, and the preparation of new Cobol code.

大机一般有欧美企业的开发，使用英语，以及日本企业的开发，使用日语。一般这些企业要么是银行，要么是保险公司，所以核心业务也跟这些相关。就业前景来说，学大机cobol(mainframe)的人没java,.net多，所以相对会比这些开发的人的工资要多。但是因为做大机项目的公司不多，跳槽的话选择也会窄。目前，我在苏州做大机，上海issc也呆过。相对来说，做cobol与做c/c++的区别不大，关键看自己的喜好。无论是cobol,c/c++，你工作经验有个5，6年，月薪过万肯定是有的。打字不易，如满意，望采纳。

我在看到银行是这个系统做的

cobol在银行领域应用较多，是一门极其古老的计算机语言，恐怕已经没有发展，这门语言偏向于数值计算。编程语言大提相同的，如果是工作需要，掌握一门语言也没什么太费精力的说法。

接触多的就是COBOL-74和COBOL-85.

FD C1-FILE BLOCK CONTAINS 10 RECORDS RECORD IS VARYING IN SIZE FROM 1 TO 756 CHARACTERS DEPENDING ON WK-C1-LENG LABEL RECORD STANDARD VALUE OF IDENTIFICATION IS C1-EFN. 01 C1-REC. 03 C1-REC-CONTENTS PIC X(756).没有直接可变的、、、

这个真心不懂。

COBOL的应用范围相对较小，主要还是银行、保险、证券等行业，尤其以银行的IT部门的需求量最大，非银行的软件公司做COBOL很多也是为银行做外包。COBOL仅从语言角度，个人认为比Java要容易得多，但是如果要做的好，和业务知识结合很重要，而且需要和DB2、CICS的知识结合起来，这就要学的非常深入才行了，如果你只是还在大学，我觉得先知道点COBOL的语法层面的东西应该是够了，大机的东西光看书不好理解，还是要工作之后才慢慢熟悉。近两年国内银行有平台转大机的趋势，所以COBOL的需求量或许会好点，但是今后也有云计算等因素，可能用大机的趋势会减弱，这个不太好判断，但是COBOL短期内肯定还会有一定市场的，而且从薪资方面来说，如果是去银行IT部门，应该不会比普通软件公司拿得少。我建议主要还是看兴趣，不是每个人都对大机有兴趣，Java的需求量大，COBOL市场窄，如果选COBOL建议直接进银行或今后转银行。

Cobol不是很难，有没有Java或者C++基础都无所谓，不过最好需要有IBM大型机的基础，这样上手会快一些。你可以先找找大型机基础的书看看，最好还能有一个能够使用的大型机系统的模拟器，现在最常见的是z/OS Demo 1.6。虽然z/OS已经除了v1.11了，但是Demo用1.6就足够了。另外，要学Cobol必须会JCL语句，JCL也是大型机基础之一。总的来说，你想学好Cobol要注意下面几点：1. 必须初步了解大型机的系统的基本操作。2. 对大型机的Dataset(不是数据库，是大型机存储文件的基本单位，类似于WIndows的文件和文件夹)有了解。3. 掌握JCL的使用4. 掌握基本的大机上的DB2和CICS的使用如果能够有人教你，三个月肯定能学会，快的话一两个月也可以。基础一定要打牢，否则Cobol编译出错你很难纠正的。祝你好运了！

没有可比性，应用领域不一样、、

全部解释？？？ 我说下大概吧WORKING-STORAGE SECTION --------------工作节（数据等定义都在此）FF是个数组，长度为7。01 F VALUE "12060708091011". 05 FF PIC 99 OCCURS 7. ---------99 表示2位表明FF（1）= 12 FF（2）= 06 依次类推0000X. ------------段名 COMPUTE A = FF ( I ). ------------ IF E = Y GO 0000Y. ADD 1 TO I. ------I类加 IF I > 7 COMPUTE I = 1. DIVIDE E BY 4 GIVING T REMAINDER B.-----------E/4 商付给T 余数给B IF E < Y AND B = 0 ADD 1 TO I. IF I > 7 COMPUTE I = 1. ADD 1 TO E.GO 0000X. --------GOTO语句 说实话你这个程序很不规范阿。。。唉

只学了基本语法 几乎找不到 Java到后面 用不到多少基本语法了

fangyede的意识啊

没听说有什么区分码？

　　COBOL（CommonBusinessOrientedLanguage）是数据处理领域最为广泛的程序设计语言，是第一个广泛使用的高级编程语言。在企业管理中，数值计算并不复杂，但数据处理信息量却很大。为专门解决经企管理问题，美国的一些计算机用户于1959年组织设计了专用于商务处理的计算机语言COBOL,并于1961年美国数据系统语言协会公布。经不断修改、丰富完善和标准化，目前COBOL已发展为多种版本。

cobol即Common Business-Oriented Language ，是一种面向过程的高级程序语言，为专门解决经企管理问题，美国的一些计算机用户于1959年组织设计了专用于商务处理的计算机语言COBOL,并于1961年美国数据系统语言协会公布。经不断修改、丰富完善和标准化，目前COBOL已发展为多种版本。

我空间里有cobol的练习里面有很多实例

cobol程序中涉及到的全部数据都要在数据部进行说明，一种方法可以直接把数据的定义写在数据部里，另一种方法可以把数据的定义写在另一个与源程序不同的文件中，在需要的时候可以用copy语法把这个文件包含到源文件的数据部里，经常把第二种方法简称copy句。

没有发展路子越来越窄，前些年对日行业用的还比较多，比如野村证券等。在国内，只有大一点的金融机构才会使用IBM大型机 ，才有cobol开发的需求。比如中国银行，建设银行。但银行近些年也开始走自主开发方向，也就是说不去使用外包公司的开发人员。

如果你是说式样书里面的BREAK的话一般是说KEY BREAK，就是有些处理在某几个字段组成的KEY是相同的情况下面不重复做比方说key是班级+学号 那么如果想把该学生的学籍信息补充完整，而该学生各科成绩分别为一条记录的话，就可以先按班级学号SORT（排序）（如果是文件的话），然后就可以通过判断前一条数据的KEY和新读入的一条数据的KEY是否一致来做处理，一致的话就是没有BREAK，当然不需要去重复读取学生学籍的信息了，只需要将前一条取出来的学籍信息写出去即可，不一致的话就是BREAK了，那就去取得新的一条数据对应的学籍信息，保存下来，将当前数据写出去，读下一条，做循环就可以了另外,团IDC网上有许多产品团购,便宜有口碑

IDENTIFICATIONDIVISION.PROGRAM-ID.99CHENFA.ENVIRONMENTDIVISION.DATADIVISION.WORKING-STORAGESECTION.77IPIC99.77JPIC99.77KPIC99.77IIPICZ9.77JJPICZ9.77KKPICZ9.PROCEDUREDIVISION.DISPLAY"THISPROGRAMISWRITTENBYJIANGBI."PERFORMVARYINGIFROM1BY1UNTILI>9PERFORMVARYINGJFROM1BY1UNTILJ>ICOMPUTEK=J*IMOVEITOIIMOVEJTOJJMOVEKTOKKDISPLAYJJ"*"II"="KK""WITHNOADVANCINGEND-PERFORMDISPLAY""END-PERFORM.STOPRUN.

楼上回答的很好！

这个是COBOL开发中经常用到的开发语，COBOL在处理一本程序时有时会有入力项目和出力项目等等，这里比如说处理job的功能是有一个文件做各种处理后生成另外一个文件，那么会将文件的入力项目（其实就是输入一条数据所包含的各个字段）经过一系列的逻辑处理将最终的数据即各个出力项目（其实就是输出一条数据所包含的各个字段）生成到所要的文件里。不知道有没有说清楚？

太多了，留个邮箱吧，给你发本电子书

1.你的这两个变量要是字符型的话就是左对齐，要是数值型就是右对齐。假如你这个是字符型，那结果就是‘123 "，123和两个空格。如果是数值型就是00123.2.PERFORM......UNTIL.......先判断UNTIL条件。在调用。当条件满足是停止调用。3.PERFORM循环里有控制判断先后的关键字，BEFORE（默认）：先判断后执行。 AFTER：先执行后判断。4.AT END 是读到最后一条后，在读取一次，然后执行AT END后的操作。也就是你说的最后一条记录的下一条。

‘-"

cobol

谭浩强的cobol很不错 还有pdf的文件 如果有需要可以发给你 至于练习题 比较少 面试的题目还是不少的。

选用cobol，中行的核心业务系统就是cobol其他我了解也不是很多

DIVIDE T1 BY 400 GIVING R REMAINDER X.得到的R是商,X就是所要的余数了

cobol是大型计算机编程言，，，，，，适用于IBM ZOS主机和AIX中型机系统下的程序编写，和C，JAVA一样，都是程序语言，根本不是什么企业管理用的东东。。。不知道谁跟你乱说的，抽他吧。。。SAP是ERP软件的一种，是企业管理用的软件套件，包含不同模块适用于不同需求（财务管理，库存管理，客户关系管理，人力管理等等）。要选好点的企业管理软件，优先看自己钱包鼓不鼓，没个4,5百万别想了，买不起的。

fortran 和 cobol 是两种不同的编程语言

不可以的，只能定义在这里,而且include进来的copy文要用到sql文中的话也要定义在这里

COBOL语言，是一种面向过程的高级程序设计语言，主要用于数据处理,是目前国际上应用最广泛的一种高级语言。COBOL是英文Common Business-Oriented Language的缩写,原意是面向商业的通用语言。它采用 300多个英语单词作为保留字，以一种接近于英语书面语言的形式来描述数据特性和数据处理过程,因而便于理解和学习。COBOL语言是专门为企业管理而设计的高级语言，可用于统计报表、财务会计、计划编制、作业调度、情报检索和人事管理等方面。

可以。cobol注释可以写在任何列中。编译器不检查注释行的语法和对待它的文档。 注释入口是鉴定区划的可选段落的条目。

主要优点就是对于数据的处理。其他的如界面什么的就不可以了。

调用COBOL程序很简单//TEST01 EXEC=XXXXXXX(程序名），PARM=***//SYSPRINT DD SYSOUT=*......就可以了如果有参数的，就在后面加。parm＝。在程序中使用LINKAGE SECTION调用或者是程序中使用ACCEPT的话，就在程序中加//SYSIN DD *1234567890

前端COBOL（CommonBusinessOrientedLanguage）是数据处理领域最为广泛的程序设计语言，是第一个广泛使用的高级编程语言。在企业管理中，数值计算并不复杂，但数据处理信息量却很大。为专门解决经企管理问题，于1959年，由美国的一些计算机用户组织设计了专用于商务处理的计算机语言COBOL,并于1961年美国数据系统语言协会公布。经不断修改、丰富完善和标准化，目前COBOL已发展为多种版本。

cobol程序中涉及到的全部数据都要在数据部进行说明，一种方法可以直接把数据的定义写在数据部里，另一种方法可以把数据的定义写在另一个与源程序不同的文件中，在需要的时候可以用copy语法把这个文件包含到源文件的数据部里，经常把第二种方法简称copy句。

*在屏幕的右下方显示当前记录在数据库的位置状态。EXEC SQL SELECT COUNT(*) INTO :RECORD-COUNT-PSENDMAPFROM CVTIOPRWHERE (TABLE_NO = :H-TABLE-NOAND SEQ_NO > :H-SEQ-NO)OR TABLE_NO > :H-TABLE-NOEND-EXEC.EXEC CICS ENTER TRACEID(10) FROM(RECORD-COUNT-PSENDMAP)END-EXEC.IF(RECORD-COUNT-PSENDMAP <= 10)MOVE "...底部" TO LOCATTROELSEMOVE "更多..." TO LOCATTROEND-IF.EXEC SQL OPEN CURSOR_PREPARE END-EXEC.MOVE "_____" TO PRITBNOI.PERFORM VARYING I FROM 1 BY 1 UNTIL I > 10 OR SQLCODE = 1403 EXEC SQL FETCH CURSOR_PREPARE INTO:H-TABLE-NO, :H-SEQ-NO, :H-TARGET-CODE, :H-DESCRIPTION END-EXEC*对取到的数据记录逐项地显示在指定位置上。MOVE SQLCODE TO SQLCODE-LMOVE SQLCODE-L(5:5) TO SQLCODE-LEXEC CICS ENTER TRACEID(23) FROM(SQLCODE-L) END-EXECEXEC CICS ENTER TRACEID(24) FROM(H-TABLE-NO) END-EXECEXEC CICS ENTER TRACEID(25) FROM(H-SEQ-NO) END-EXECEXEC CICS ENTER TRACEID(26) FROM(H-DESCRIPTION)END-EXECEXEC CICS ENTER TRACEID(27) FROM(H-CONCAT-TBNO-SEQNO)END-EXECIF(SQLCODE NOT = 1403)MOVE "_" TO PRMOPT(I) MOVE H-TABLE-NO TO PRMTBN(I)MOVE DFHBMASF TO PRMTBNA(I) MOVE H-SEQ-NO TO PRMSEQ(I)MOVE DFHBMASF TO PRMSEQA(I)MOVE H-TARGET-CODE TO PRMTGN(I)MOVE DFHBMASF TO PRMTGNA(I)MOVE H-DESCRIPTION TO PRMDSC(I)MOVE DFHBMASF TO PRMDSCA(I)ELSECOMPUTE I = I - 1END-IFEND-PERFORM. *对于数据记录不满10行,未填写数据的记录区以空格代替。PERFORM VARYING H FROM I BY 1 UNTIL H > 10 MOVE SPACES TO PRMOPT(H) MOVE SPACES TO PRMTBN(H) MOVE SPACES TO PRMSEQ(H) MOVE SPACES TO PRMTGN(H) MOVE SPACES TO PRMDSC(H) END-PERFORM. *记录下当前数据记录的起始和结束位。 MOVE PRMTBN(1) TO COMM-CURR-FIRST-TABLE. MOVE PRMSEQ(1) TO COMM-CURR-FIRST-SEQ.IF(RECORD-COUNT-PSENDMAP > 10)MOVE H-TABLE-NO TO COMM-CURR-LAST-TABLEMOVE H-SEQ-NO TO COMM-CURR-LAST-SEQEND-IF.*将第一行记录的数据编码显示在数据编码检索位置上。 MOVE PRMTBN(1) TO PRITBNOI. EXEC SQL CLOSE CURSOR_PREPARE END-EXEC.

cobol

我就说点我知道的，（c->cobol)int ，short等->9型或者s9型 z9型等char -> x型

COBOL一般在IBM大型机OS390,使用MVS系统运行.IBM的中型机AS400也可以运行COBOL.另外一些公司开发了PC的模拟系统,使用Micro Focus的compiler可以把COBOL程序在WINDOW或UNIX系统上运行，有些甚至可以在VB．NET上运行

-或者推荐用windows 平台cobol发环境载址