cobol

那你看看它缺什么安装包，然后，安装。

查书吧，百度文库里面有很多这方面资料的

只认识第一个，大型机，还可以，花旗招这方面人才。入门了也不难的，而且大型机学的就是JCL,COBOL等，一般做这方面的公司都招人的

GLOBOL就是一个全局变量，子程序和主程序都可以使用。EXTERNAL就是声明是个外部变量，不声明就当程序的内部变量处理。

这个用法是合法的

做任务的路过，我是不太懂啦，不过你有没有差过有什么类似拼错，重复赋值，大小写等的错误吗？

PIC S9(9) BINARY，相当于 PIC S9(9) COMP 都是二进制储存binary只是它的存储格式 只要没压缩就是定义的长度

在cobol中ZERO、ZEROS、ZEROES都是一样的。你的例子中，3中情况都是一样的：A 结果：0。 B 结果：000结果只决定于你定义变量的类型。 此外space、spaces、也是等同的。

那得分 9型 和X 型了，9型的初始值可是 0 而非SPACE

是一种精确数字数据类型。NUMERIC数据类型是一种精确数字数据类型，其精度在算术运算后保留到最小有效位，numeric是标准sql的数据类型，格式是numeric(m，n）。numeric(a，b)函数有两个参数，前面一个为总的位数，后面一个参数是小数点后的位数，例如numeric（5，2）是总位数为5，小数点后为2位的数，也就是说这个字段的整数位最大是3位。NUMERIC的注意事项：如果创建NUMERIC数据类型的列或变量，而且其精度或小数位数超过为数据库设置的精度和小数位数，则会按照数据库设置截断这些值。因此，如果发现在定义为NUMERIC的列或变量中的值被截断，需检查精度和小数位数使其不超过数据库选项设置。numeric和decimal数据类型的默认最大精度值是38，在Transact-SQL中，numeric与decimal数据类型在功能上等效。当数据值一定要按照指定精确存储时，可以用带有小数的decimal数据类型来存储数字。

能够判断的，如果是VSAM文件的检索文件，根据你传入的KEY ，判断STATUS。如果为23的话，表示无满足条件的记录。如果是顺序文件，读取之后，直接判断就行。

可以建一个临时空间 把读到的数据存起来 方便再次使用

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

子字符串字符串名（数字：数字）如STRING1(1:8)就是取字符串1，从第一位开始，的8个字符

你说的这些，在工作当中是不会去使用的，因为cobol主要是简单，让人一眼就看明白。因此根本不会使用这样的。想想其它方法吧，或者把要求说一下。我给你一个工作中的处理方法

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

回答1 没初期化这个变量就还没有开辟空间，不能够利用回答2 没有办法

楼上正解，说一下我的理解，cobol在数据部定义的数据是全部连贯存储的，所以下层要和列数要完全相同，但有的时候没有必要那么长，有时候涉及算法不能那么长，，用filler站位。

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

RPG是游戏程序吧，COBOL是商业系统使用程序。不是一个东西吧

一、cobol语言能， C语言能开发小型机程序，C主要是学的软件开发思想。二、大型机程序开发基本上都是用cobol语言三、因为，大型机就是结合cobol开发的，cobol离不开大型机，大型机也离不开cobol

专业好文档为您整理~谢谢使用~请双击清除页眉页脚~~~~更多精彩内容请关注本站~~~~~~~~~~~ 专业好文档为您整理~谢谢使用~请双击清除页眉页脚~~~~~~~~~~~~~~~ 如何搭建大型机COBOL 开发环境 安装COBOL4.1 root 用户登录 mkdir -p /opt/lib/cobol cd /opt/lib/cobol 将ocobol.tar 拷入该目录 tar xvf ocobol.tar ./install 屏幕显示： ．．．．．．．．．． Unpacking files ... Please enter the full pathname where the driver programs are to be installed. q(uit) or ; or RETURN for default(/usr/bin): (输入回车) 屏幕显示： ．．．．．．．．．． This product is protected using Micro Focus LMF. Would you like to install this facility now? (y/n) (输入y 回车) 屏幕显示： LMF installation complete cd /opt/lib/mflmf ./mflmcmd 屏幕显示： Micro Focus License Manager Command Line Interface -------------------------------------------------- 专业好文档为您整理~谢谢使用~请双击清除页眉页脚~~~~更多精彩内容请关注本站~~~~~~~~~~~ 专业好文档为您整理~谢谢使用~请双击清除页眉页脚~~~~~~~~~~~~~~~ Select the function you require from the list: License Install - Enter "I" (输入 I 回车) 屏幕显示： Ready to install license Enter the Serial Number part of the License Key: (输入ODCGG/A97/621221 回车) Enter the License Number part of the License Key: (输入01010 10000 014AB E6A0C 78FD 回车) 屏幕显示： License added ok 9. ./mflmman 环境配置，加在用户的.profile 文件中： # for COBOL environment variables -- BEGIN COBDIR=/opt/lib/cobol ; export COBDIR LD_LIBRARY_PATH=$COBDIR/coblib; export LD_LIBRARY_PATH PATH=$PATHCOBDIR/bin ; export PATH # for COBOL environment variables -- END

这个可能对你有帮助好运IBM主机程序开发工程师◆专业介绍：主机(MainFrame)作为计算机中的最顶级产品，由于其安全性(目前尚无黑客可以对其进行攻击)和高可靠性(目前号称全年宕机时间不超过5分钟)一直被用于金融，证券等行业。大型机不仅仅是一个硬件上的概念，它是硬件和专属软件的一个有机整体，是一套密不可分的封闭系统，如同IBM的As/400小型机系列一样，大型机也使用专门为其量身定做的专用软件，这种封闭系统在为大型机系统带来了高可靠性和安全性的同时也使得一般的计算机从业人员难以进入这一领域，一方面是在全球包括美国等发达国家在内，没有比较完善的社会性质的大型机系统培训，这与风起云涌的JAVA等开放开发平台的培训形成了鲜明的对比。◆工作前景：一直以来，主机的培训都采用类似于师傅带徒弟这种古老的形式，使得懂得主机业务的人很少能走上社会为广大受众群体进行相关的技术讲解，在网上我们可以经常性的看到Unix的论坛，却几乎找不到关于主机的论坛(不能说没有，但是大部分都是IBM等主机的软硬件厂商的官方论坛)；另外一个很重要的原因就是，主机是一种昂贵的系统，价值百万美元之巨，一般的培训学校是无法承受得起其高昂的硬件投资。以上的原因，造成了现在主机开发技术人员队伍的严重匮乏。一方面IBM公司及其合作伙伴对员工的需求有很大的缺口；另一方面，各大软件公司针对大型机的软件开发业务对懂得大型机的员工有很大的缺口。例如：IBM公司引入一个合格的大型机技术人员，公司对介绍人员有一次性3000元鼓励，由此可见IBM公司大型机技术人员的匮乏程度。相关企业还有：花旗银行、埃森哲、中软、柯莱特、华信、海辉等均通过猎头公司从全国招收相关技术人员。通常情况下，一个大型机技术人员的入职工资大约4000—6000元之间，而对于一个熟练的大型机技术人员的工资可达6000元—12000元之间，上海和北京等地的待遇更高。◆技术力量：目前学校已成功地联系了拥有主机的国外开发公司，并最终达成协议，采用租用的形式，为学校的主机培训提供了硬件保障。在这套系统中，学校能够提供的合法适用用户不超过50人（受所购买许可协议所限），校方有足够的维护经验能在整个培训期间保证它的高效稳定运行，由工作5年以上的大型机管理员来承担。◆师资力量：将聘请长期在国内知名大型机软件开发公司内部培训的讲师为大家进行主机系统培训授课（届时您将领略到知名公司培训教师的风采），我们还将提供全套电子教材，这些都是在市面上根本无法用钱来买到的东西。另外，学校建立一个关于主机的BBS平台，供大家在上面讨论技术。在这上面，学校会建立一个答疑区，专门为学员提供在线答疑，学校将安排一名培训老师值班，在最短的时间内为大家提供答案。◆课程设置：课程体系主要包含五大部分(十小项目)：主机的基本概念和JCL；Cobol和PL/I编程；DB2数据库；IMS和CICS。CourseTitleHourspermoleHours模块一主机技术课程280第一章：（单科学费3000.00,必修）56OS/390基本系统技能讲授24Z/OS和OS/390的基本系统技能操作32第二章：（单科学费3500.00）40IMS数据库应用程序24IMS数据库应用程序操作练习16第三章：（单科学费4000.00）72PL/I编程基础知识32COBOL编程基础知识40第四章：（参加前三科学习后，赠送，不单独招生）40DB2SQLWorkshop16OS/390DB2UDB应用程序编程WORKSHOP24第五章：（单科学费4500.00）72CICS基础知识讲授40CICS应用程序设计I32280◆招生对象：1.目前从事计算机非主机开发但想转向主机开发的在职人员；2.即将毕业的大学生。3.有意从事大型机项目开发工作，并希望进入企业的人士。◆培训课时及收费：共计280小时，周六周日全天，每周8小时*2天，在18周完成讲授。学费：12000元,可单科报名。IBM大型机培训IBM大型机是二十世纪六十年代发展起来的计算机系统。经过三十多年的不断更新，其稳定性和安全性在所有计算机系统中是首屈一指的。正是因为这方面的优点和强大的数据处理能力，到现在为止还没有其他的系统可以替代。由于成本巨大，使用大型机系统的一般是以政府、银行、保险公司和大型制造企业为主，这些公司和企业对信息的安全性和稳定性要求很高。将Mainframe作为后台服务器进行数据处理和资料库.而目前市场上大型机应用开发人才极其缺乏，为满足市场人才需要，IBM大中华区与大连软件园全面合作，首次面向社会推出大型机系列核心课程，为IBM及使用IBM大型机的企业定制培养大型机应用开发人才。培训目标1融入国际先进的IT理念，拓展开阔学员的视野，贴近软件企业发展的需求2紧跟IT技术的发展趋势，保持知识的同步更新，掌握全球先进的开发技术3凝聚IBM数十年内部员工的职业培训经验，奠定坚实的专业技术发展基础4职业化素质训练，工程项目管理实践体验，提高未来适应工作的能力5科学权威的评估认证，保证获得充足的市场竞争能力项目优势-师资队伍--由IBM公司有多年大型机工作经验的资深工程师及经过严格认证的教师授课-课程体系--由IBM公司根据数十年大型机开发和应用经验总结出的全球统一课程体系-硬件设施--独家采用IBM最新式大型机IBMeServerzSeries，全国范围内仅有5台用于教育培训，华北及东北地区仅此一台-学习平台--全部技术课程在IBM公司提供的IBM大型机平台上进行-使用教材--IBM全球统一全英文版培训教材。-教学环境--IBM英文教学资料和全球统一的网上课程辅导内容，对学员进入跨国公司提供国际化学习环境-就业保障--IBM公司及开展大型机业务的跨国公司的定点人才培养基地；软件园专业的人力资源解决方案中心常年为园区260多家IT企业提供人才服务

如下：对包括所有表元素的整个表赋给一个初值，这时可以对表的描述体上面一层的数据项赋一个初值即可。例1：01 TABLE VALUE IS ZERO。COBOL语言中的表（TABLE）类似于其他高级语言中的数组（ARRAY）。表中，序号称为下标，相对地址称为位标，下标和位标称为“出现号”。

楼上正解，说一下我的理解，cobol在数据部定义的数据是全部连贯存储的，所以下层要和列数要完全相同，但有的时候没有必要那么长，有时候涉及算法不能那么长，，用filler站位。

上更酷123查找答案吧。

每种语言都有它各自的特点，优点以及缺点，所以需要结合每个人的不同的情况才能更全面的分析以选择更适合学习的一个语言。总的来说一门编程语言的学习，需要掌握基本的语法、专有名词的概念等，在勤奋训练的基础上才能有所提升。

不出国能拿3000-3500,三级过了也在这个水平。如果过了2级会高个500左右.这是上海的水平,在大连的话会更低点.

建议去百度或GOOGLE搜索一下，看看有没有相关信息或资料可以帮你。

cobol一般用在大型机上编程，而现在这方面IBM是最有名的。因为大型机很贵，不是一般的企业能够支付的，所以学完一般就是进IBM这样的大公司，如果能进去时最好的。自我感觉得跳槽什么的有点难，毕竟大公司不是很多，也不好进。至于以后的发展，这个说都说不好的。

ANY 90~99 厂家定义 由上可知，文件操作时会发生错误，COBOL提供了检查错误和恢复I/O错误的公用地点。过程部开头应包括DECLARATIVES部分，放上出现错误时要执行的语句。 PROCEDURE DIVISION. DECLARATIVES. section-name SECTION. USE statement(出现错误时调用的节). paragraph-name. sentence... END DECLARATIVES. section-name SECTION. paragraph-name. sentence... USE AFTER STANDARD EXCEPTION/ERROR PROCEDURE ON file-name/INPUT/OUTPUT/I-O/EXTEND 只能在USE语句中指定一个文件，一种方式也只能有一个USE语句。如果既指定了文件，也指定了方式，则文件优先。 程序使用的所有文件要定义在数据部的第一节----文件节中。试试吧

去吧 英语ok 去那里都一样的 好多技术文档 都是英文的 还有google的解决方案 也是英文的

索引一般只有SEARCH时才使用,其他情况用下标足矣

有两种方法1 把B文件CLOSE 再 OPEN 然后 READ2 B文件创建成相对文件，然后利用相对文件的相对key读取我一般习惯使用1方法

你循环条件写错了，你把循环初始值设定为1每次减1所以你的下标为0。

fortran -- formula translation，汉语意思为公式翻译，该语言设计的初衷是让科学家们能有一种易读性高，易编写的高级程序语言。同时该语言也是世界上第一种计算机高级语言。

000010 IDENTIFICATION DIVISION. 000060 PROGRAM-ID. AKITA. 000070* 000080 ENVIRONMENT DIVISION. 000090 INPUT-OUTPUT SECTION. 000100 FILE-CONTROL. 000110 SELECT WINFILE1 ASSIGN TO FILE01-MSD 000120 ORGANIZATION IS SEQUENTIAL 000130 FILE STATUS WFSTS1. 000140 SELECT AVXFILE1 ASSIGN TO FILE02-FDU 000150 ORGANIZATION IS SEQUENTIAL 000160 FILE STATUS AFSTS1. 000170 I-O-CONTROL. 000180 APPLY EXCLUSIVE-MODE ON WINFILE1. 000190* 000200 DATA DIVISION. 000210 FILE SECTION. 000220 FD WINFILE1 000230 BLOCK CONTAINS 256 CHARACTERS 000240 LABEL RECORD IS STANDARD 000250 VALUE OF IDENTIFICATION IS "WINFILE01". 000260 01 WINREC. 000270 02 A1 PIC X(80). 000280 02 A2 PIC X(176). 000290 FD AVXFILE1 000300 BLOCK CONTAINS 240 CHARACTERS 000310 RECORD CONTAINS 80 CHARACTERS 000320 LABEL RECORD IS STANDARD 000330 VALUE OF IDENTIFICATION IS "SWPATCH". 000340 01 AVXREC PIC X(80). 000350* 000360 WORKING-STORAGE SECTION. 000370 01 WFSTS1 PIC X(02). 000380 01 AFSTS1 PIC X(02). 000390* 000400 01 EFLAG PIC X(03). 000410* 000420 PROCEDURE DIVISION. 000470 MPROG. 000480 OPEN OUTPUT WINFILE1 000490 INPUT AVXFILE1. 000500 MOVE "LOP" TO EFLAG. 000510 PERFORM UNTIL EFLAG = "END" 000520 READ AVXFILE1 000530 AT END 000540 MOVE "END" TO EFLAG 000550 NOT AT END 000560 MOVE AVXREC TO A1 000570 WRITE WINREC 000580 END-READ 000590 END-PERFORM. 000600 CLOSE WINFILE1 000610 AVXFILE1. 000620 STOP RUN.

用于数组。或者读取一个长record后用于切分该record中内容。

DATA DIVISION. FILE SECTION. FD READFILE LABEL RECORD IS OPEN-R,OPEN-S. 01 OPEN-R. 02 OPEN-FIR PIC X(6). 02 OPEN-SEC PIC X(6). 02 OPEN-THR PIC X(6). 01 OPEN-S PIC X(5). WORKING-STORAGE SECTION. 01 CNT PIC 9(2). PROCEDURE DIVISION. MOVE SPACE TO OPEN-R. MOVE SPACE TO OPEN-S. MOVE ZERO TO CNT. MOVE "NEWORD" TO OPEN-FIR. MOVE "SECOND" TO OPEN-SEC. MOVE "THRIDE" TO OPEN-THR. OPEN EXTEND READFILE. PERFORM VARYING CNT FROM 1 BY 1 UNTIL CNT IS GREATER THAN 10 IF CNT < 10 THEN WRITE OPEN-R AFTER ADVANCING 1 LINES ELSE CONTINUE END-IF END-PERFORM. MOVE "YUMEN" TO OPEN-S. WRITE OPEN-S AFTER ADVANCING 1 LINES CLOSE READFILE.你 DF 那 有两个 01 层 可能有重定义的 可能，两个 01层 共享的 同一内存地址，所以 赋值进去 会覆盖我给你稍微改了改 你看看 这样行不行，注意以后写程序的时候 初始化 很重要，记得 在 用到之前 初始化一下 你的变量！~

如果有值，则z位上会显示，如果没有，则z位上就不显示；

thur是调用一个程序段从哪里开始到哪里结束的意思COMP-3是指压缩二进制的定义

01 D1 PIC S99V9.01 D2 PIC S99V9.01 S1 PIC S99.01 Y1 PIC S99V9.01 R1 PIC S99V9.DIVIDE D1 INTO D2 GIVING S1 R1 COMPUTE Y1 = R1 - S1 * D2 Y1就是余数

cobol更老些吧~~

首先这两个文件要排好序，就那学校学生举例吧A学校2，3年级学生与B学校2，3年级学生的语文成绩来做match比较1。先把A，B学校学生信息当做两个文件，按照年级，班级，学号（假设这两个学校学号的编码方式相同）进行排序2。开始做match处理，首先分别从A,B中read一条数据，把排序KEY(年级，班级，学号)存到中间变量里去：WK-KEY-A,WK-KEY-B3。然后开始做循环处理 情况1：A,B 同班级同学号 判断WK-KEY-A=WK-KEY-B成立的话，做语文成绩比较，然后分别read A,B的下一条 情况2：A的某班级学生比B的同班级学生少 判断WK-KEY-A>WK-KEY-B成立的话(因为A的该班级学生少所以比B更快的读到下一个班级的第一个学号的学生信息)，此时B文件读取下一条再回到3。循环 情况2：B的某班级学生比A的同班级学生少 判断WK-KEY-A<WK-KEY-B成立的话(与情况2一样)，此时A文件读取下一条再回到3。循环直到两边文件都读完位置，程序结束

002490 WORKING-STORAGE SECTION. 002490，顺序号，对于程序的理解来说，无意义。工作存储节，在这里定义的都是程序执行过程中所要用到的中间变量。002490 01 SQLSVA GLOBAL. 这是个GROUP ITEM，谭浩强老师把它翻译为组合项，你可以理解为结构体，这个结构体的名字是SQLSVA，并且这个结构体是GLOBAL属性的，即全局可见，这种属性在一个文本中包含有多个程序时有用。01是层号，层号可以从01到49，数字越小，级别越高，像上面这段代码，01由下面的6个02层组合而成。002490 02 PIC 9(9) COMP-5 VALUE 6.elementary item，谭浩强老师把它翻译为初等项，你可以理解为结构体中的一个成员，这个成员是最基本的了，即这个成员不再由别的什么成员组合而成。这个成员不会被直接引用，所以把变量名的定义也省了，像上面的01 SQLSVA GLOBAL中，SQLSVA就是变量名，在程序中可以引用它，比如INITIALIZE SQLSVA.PIC 9(09)表示仅保存0和正数，可以保存的最大数值为十进制的999999999。COMP-5，二进制的一种存储类型，存储顺序和硬件机型有关，和COMP刚好相反，比如65534这个数值，如果定义为COMP，则在一般机器中，存储顺序为"FFFE",如果定义成COMP-5，存储顺序则为"FEFF"。VALUE 6表示初值为6。002490 02 PIC 9(9) COMP-5 VALUE 1. 同上，不再赘述，初值为1。002490 02 PIC 1(32) BIT SYNC VALUE B"00000101000000000000000010000001".PIC 1(32) BIT，表示位（BIT）长32，即4个字节，SYNC表示按机器字边界对齐，比如一般机器一个字长为4个字节，那么这个初等项要从字的边界处开始，这样可以避免这个4字节初等项的存储跨越两个字，因为机器从内存中取数据时一般一次取一个字，这样可以避免取两次，从而提高效率，在这个程序片断中，这样指定也许还有别的用意，因为这个初等项没有指定变量名，不能直接引用。VALUE B"00000101000000000000000010000001"表示初值是左边这一串二进制数值，即十六进制的“05000081”。002490 02 SQLSVA001 POINTER.SQLSVA001是个指针型的变量，在ANSI标准中,COBOL并不支持指针，但实际上很多编译器厂家都有此扩展。002490 02 PIC 9(9) COMP-5 VALUE 2.不再赘述。002490 02 PIC 1(32) BIT SYNC VALUE B"11111111000000000000000010000001"不再赘述,其初值为十六进制的"FF000081"。这段代码应该和SQL SERVER有关，不过我对SQL SERVER不熟，你可以查一下相关文档。

下边2循环什么的，不会说，定义自己查书，谭浩强的COBOL下册

一个9(4) value 1234，赋给一个X(3)的数据项，结果是多少？="123"一个X(4) value "1234"，赋给一个9(3)的数据项，结果是多少？=234

好像定义成Nchar就行了吧，没啥特殊处理吧。

文件状态内存储的是你对文件操作后的返回值打开文件时，写入问件时，关闭文件时都可以根据文件状态的值来判断操作是否成功，如果失败也可以根据文件状态判断失败原因。你可以在网上找找文件状态的返回值说明看看。。

我做了两年的cobol都不知道什么是cobol copybook

用go to跟别的程序不同，cobol编程经常用goto

对包括所有表元素的整个表赋给一个初值，这时可以对表的描述体上面一层的数据项赋一个初值即可。例1：01 TABLE VALUE IS ZERO.COBOL语言中的表（TABLE）类似于其他高级语言中的数组（ARRAY）。表中，序号称为下标，相对地址称为位标，下标和位标称为“出现号”。

不知道您的COBOL程序是用在什么环境下的？如果是大型机环境下，COBOL中用到的数据，一般都是通过数据集来存放，然后通过JCL来指定的。在一般DATASET或者VSAM中似乎都不存在您说的这个换行问题。您能描述得更具体点吗？

关键看你准备从事COBOL在许多大型数据处理和科学计算中还有比较宽的使用

第1题： 类型 字节1 字节2 字节3 字节4 字节5 9（5） 0 2 0 4 8 9（5） comp-3 02 04 8F 9（5） comp 8 0 0 s9(5) 0 2 0 4 8 zzzz9 (SPACE) 2 0 4 8 x(5) 2 0 4 8 (SPACE)

运行后，SOURCE-CHAR的值是‘ABCDE"；SHORT-CHAR是"ABC"；LONG-DATA是"ABCDE"后加两位low-value。第一行MOVE ‘ABCDE" TO SOURCE-CHAR.，运行后SOURCE-CHAR的值是"ABCDE"这没什么可说的；第二行，把"ABCDE"五个字符，move到一个X(3)的变量，只有前三位move了过去，后两位丢失，所以SOURCE-CHAR的值是“ABC”；第三行，LONG-DATA的初始值是7位low-value。把"ABCDE"五个字符，move到一个X(7)的变量，X(7)变量的前五位变成了"ABCDE"，后两位不变，仍是low-value。

日语的啊？还入力、出力、担当者……

除了历史原因以外，对于银行、证券等业务系统，并不需要丰富的计算方法，而是对于数据的处理有较高的要求。例如海量的数据处理，数据的输入输出格式等。而cobol，对各种类型的数据进行 收集、存储、传送、分类、排序、计算及打印报表、输出图象是它的强项。他简单的程序语言也便于开发和维护。这就叫术业有专攻。因此即使是新开发的系统，按需要有时候也要用cobol来开发。不仅仅是历史问题哦~ 另外还想说，银行什么的，也不是全都用cobol啊。 像核心系统，计算比较复杂的，很多银行都是用c。 而对于某些系统，如记账，清算，什么的，只是简单计算即可，只不过是用户数据量大，所以用cobol

程序开始的时候开，结束时候关就可以。中间程序处理的时候不用仅供参考

主机上的话，应该是以EBCDIC字符集比较

有好多种。。在主机上用JCL来编译执行。在PC上用工具，工具包括cobol85编译器，95编译器，IBM用的是workbench，上面有一个按钮，一编译就行。在者就是liunx或者unix上，有一个ttermpro，直接make就行。总是在PC机器上，只需要make就行，就可以编译了。在主机上需要sub一下JCL。全部自己码字的，希望楼主采纳。

COMPUTE1900-(1900/400)*400对于整数来说这样一条语句就可以求余了除的运算尽量不要用DIVIDEDIVIDE求余要用remainder

楼上的关于游标在cobol中的使用是正确的！在cobol程序中嵌入了sql语言的话，一般都保存为.pco文件。这样的cobol程序，需要调用数据库的命令将其转换为.cbl文件，将.cbl文件编译。在转换.pco文件的时候，也可以改变一些默认的设置，比如，默认的读取结束SQLCODE是1403，转换的时候也可以设置为0100。。。当然，这要看你程序中是如何判断的了

-都是符号位，数字型是以小数点位对齐，这种应该和z型一样属于表示型的定义。如果A定义成ZZZ9. B定义成9（4）.C定义成---9.D定义成+++9如果用135分别赋值，A显示成135，B显示成0135，C显示成135，D显示成135如果用+1分别赋值，A显示成1，B显示成0001，C显示成+1，D显示成+1如果用-13分别赋值，A显示成13，B显示成0013，C显示成-13，D显示成+1通过以上例子可以看出，二者都不可以显示符号，但是Z和-不会用0补位，9会有0。-可以显示正和负，+只能显示负。当然COBOL语言也分好些环境好些版本，以上都是我通过理论推倒的例子，并没有实际测试一下。欢迎留言纠正

有好多种。。在主机上用JCL来编译执行。在PC上用工具，工具包括cobol85编译器，95编译器，IBM用的是workbench，上面有一个按钮，一编译就行。在者就是liunx或者unix上，有一个ttermpro，直接make就行。总是在PC机器上，只需要make就行，就可以编译了。在主机上需要sub一下JCL。全部自己码字的，希望楼主采纳。

MF是大型机的简写,COBOL为大型机程序代码MF一般用于银行,保险等等需求大批量数据处理.现在的MF机器一般采用IBM,HP的大型机.而为MF大型机所运行的程序代码就是COBOL语言开发但COBOL只是程序,而程序与程序的合集才能组成一个业务流.所以MF还需要JCL或者SHELL来将程序进行串联执行

Cobol2002用的COBOL工具。COBOL开发工具没有免费的，因为现在做COBOL开发工具的只有国外，国内没有。在PC上用工具，工具包括cobol85编译器，95编译器，IBM用的是workbench。上面有一个按钮，一编译就行。在者就是liunx或者unix上，有一个ttermpro，直接make就行。总是在PC机器上，只需要make就行，就可以编译了。COBOL语言的主要特点是：COBOL程序将处理对象按一定方式组织成文件,记录在计算机的外部设备上。它通过对数据层次结构的描述，说明同一文件中数据项之间的联系，因而可在数据的任一层次进行检索和处理。接近英语自然语言。COBOL语言中大量采用普通英语词汇和句型，如描述性子句接近英语主表结构，操作性语句接近英语的祈使句。例如，把A和B两个数据项的内容相加,就写成ADD A TOB。因此COBOL程序看起来很像一篇用英语写的文章,学过英语的人很容易看懂。

COBOL常量分为数值常量（如100，-29），非数值常量（如"ABC"）和表意常量（如ZERO，SPACE，HIGH-VALUE，LOW-VALUE，QUOTE，ALL常量）。

你好！不一样RPG一般在As400平台上使用而cobol的开发平台更为广泛两者的语法结构区别也是很大的我的回答你还满意吗~~

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发环境载址

batch:指的是非人工操作，由计算机自动执行cobol编译好的可执行文件，类似于计划任务：到了 特定时间自动执行。执行时间一般在夜间。周期有，日次，周次，月次之分。online：指的是人工操作。一般是操作由带有画面的程序，直接操作画面上的各个控件。进而操作数据库等等。

*在屏幕的右下方显示当前记录在数据库的位置状态。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程序很简单//TEST01 EXEC=XXXXXXX(程序名），PARM=***//SYSPRINT DD SYSOUT=*......就可以了如果有参数的，就在后面加。parm＝。在程序中使用LINKAGE SECTION调用或者是程序中使用ACCEPT的话，就在程序中加//SYSIN DD *1234567890

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