cobol

eclipse中corba环境的搭建

类似于：2，开发工具：Eclipse（这个不必说了吧，是一个公共开发平台，并可做为C、C＋＋、Cobol等语言的开发IDE，十分优良，强烈推荐）我用的是3.1的。3.0的也可以。
woshizy·2008-08-08 16:00

COBOL学习之初体验

我们公司是搞JAVA和.NET的,基本上除了这两样,没有第三方的语言了,又是搞外包的,现在外包行业竞争挺大的,公司本着"充实自己"的原则破例+吐血从广州请了一位COBOL资深人士来给我们一些人进行维期一个月的培训
rancedxk·2008-08-05 22:00

用Java编写Oracle存储过程

---->  1 介绍 Oracle 里可以使用多种语言来编写存储过程，比如 Pro*C/C++,PL/SQL,COBOL, 在 Oracle8i 开始支持用 Java 编写存储过程
tangbo645·2008-07-23 11:00

JAVA,像COBOL式死亡？？？

转自 http://www.ibm.com/developerworks/cn/java/j-cobol.html 作者：Ted Neward ([email protected]), 主管, Neward
lxdhdgss·2008-06-25 21:00

COBOL介绍

英文缩写:COBOL(CommonbusinessOrientedLanguage)中文译名:COBOL语言解释:一种适合于商业及数据处理的类似英语的程序设计语言。
ht082·2008-06-18 16:00

cobol文件操作

要在COBOL中使用文件，要在3个不同的部中放上信息。环境部，要有程序使用的每个文件的文件控制项目(FILE-CONTROL)。这个项目将程序中使用的文件名与程序外的实际文件联系起来。
ht082·2008-06-05 11:00

COBOL中的基本语法(转)

ACCEPT从键盘或其他输入设备读取数据。ACCEPTAFROMDEV.从DEV读取数据到A，也可以省略FROMDEV，表示从键盘读取。ACCEPTAFROMDATE/DAY/DAY-OF-WEEK/TIME.读取日期，表示为6个字符，如990909（1999年9月9日）。读取当前日期在年度（前2位）中为第几天（后3位），表示为6个字符，如1994年4月1日表示为94091。读取当前星期几，表示为
ht082·2008-05-09 09:00

精通COBOL－－16.9 小结

CICS通常以COBOL作为宿主语言，提供了界面功能和交互能力，因此在实际开发中应用十分广泛。本章首先讲解了CICS的基本概念及其编译处理过程。
cobol_os·2008-04-29 13:00

精通COBOL－－16.8 CICS中的队列

CICS中的队列相当于一块临时缓冲区，用于以队列的形式存放临时数据。在CICS的队列中提供两种数据组织机制。这两种机制分别为瞬时数据（TransientData）和临时存储（TemporaryStorage）。下面重点只介绍临时存储。当将数据写入临时存储队列中时，是通过WRITEQ命令实现的。例如，以下代码将把文件“TESTF”中的数据依次写入到临时存储队列之中：IDENTIFICATIONDIV
cobol_os·2008-04-29 13:00

精通COBOL－－16.7.2 写入文件

与使用READ命令读取文件相对应，可以使用WRITE命令将数据写入文件。不过通常是使用REWRITE命令对文件中的数据进行写入更新的。在使用REWRITE命令之前，需要通过READUPDATE命令指定更新数据所在的位置。同时，记录中的关键字是不可被更改的。以下代码反映了REWRITE命令的大致用法：IDENTIFICATIONDIVISION.PROGRAM-ID.FWRITEPG.*ENVIRO
cobol_os·2008-04-29 13:00

精通COBOL－－16.7.1 读取文件

因此，在相应的COBOL程序中不用手工定义和打开文件。
cobol_os·2008-04-29 13:00

精通COBOL－－16.6.2 MAP的创建

当前MAP主要是通过SDFⅡ（ScreenDefineFacilityⅡ）工具所创建的。SDFⅡ工具是z/OS上的一个可选产品。该产品自动生成MAP的源代码，实现了对于MAP所编即所见的功能。当然，在没有提供SDFⅡ工具的情况下，也可以手工编写源代码生成MAP。下面只重点介绍如何使用SDFⅡ工具创建MAP。此处所说的MAP，即包含有物理MAP，也包含有符号MAP。创建步骤通常如下：（1）配置MAP
cobol_os·2008-04-29 13:00

精通COBOL－－16.6.1 MAP的基本概念

MAP是形成基于CICS程序的界面的一个实体，主要由BMS（BasicMappingSupport）提供支持。MAP存放于MAPSET中，一个MAPSET可以存放一到多个MAP。不过通常情况下，一个MAPSET中仅存放一个MAP。因此，有时也可使用MAP指代其所在的MAPSET。同时，MAP实际上是分为两种类型的。其中一种类型为物理MAP，另一种类型为符号MAP。理解MAP的基本概念，关键是要理解
cobol_os·2008-04-29 13:00

精通COBOL－－16.5.1 使用LINK命令进行程序调用

使用LINK命令调用程序时，两程序将位于一个任务之下。同时，通过LINK命令中的选项COMMAREA可以实现在调用过程中的参数传递。例如，在以下程序PGMA中，将通过LINK命令调用程序PGMB。IDENTIFICATIONDIVISION.PROGRAM-ID.PGMA.*ENVIRONMENTDIVISION.*DATADIVISION.WORKING-STORAGESECTION.01COM
cobol_os·2008-04-29 13:00

精通COBOL－－16.3.7 获取CICS的日期信息

获取CICS的日期信息同获取时间信息比较类似。日期信息也是依次通过CICS的命令ASKTIME和FORMATTIME得到的。不过在FORMATTIME中，需要指明获取的为日期信息，同时设置日期信息的相应输出格式。例如，以下程序将用于获取日期信息：IDENTIFICATIONDIVISION.PROGRAM-ID.DATEPGM.*ENVIRONMENTDIVISION.*DATADIVISION.
cobol_os·2008-04-29 11:00

精通COBOL－－16.3.7 获取CICS的日期信息

获取CICS的日期信息同获取时间信息比较类似。日期信息也是依次通过CICS的命令ASKTIME和FORMATTIME得到的。不过在FORMATTIME中，需要指明获取的为日期信息，同时设置日期信息的相应输出格式。例如，以下程序将用于获取日期信息：IDENTIFICATIONDIVISION.PROGRAM-ID.DATEPGM.*ENVIRONMENTDIVISION.*DATADIVISION.
cobol_os·2008-04-29 11:00

精通COBOL－－16.3.6 获取CICS的时间信息

获取CICS的时间信息也是关于CICS的一项最基本的应用。该应用主要分为两步操作。其中第一步是通过ASKTIME得到时间的数据。第二步是通过FORMATTIME得到时间的格式。例如，以下代码将根据用户的请求而获得相应的时间信息：IDENTIFICATIONDIVISION.PROGRAM-ID.TIMEPGM.*ENVIRONMENTDIVISION.*DATADIVISION.WORKING-S
cobol_os·2008-04-29 10:00

精通COBOL－－16.3.5 获取CICS的终端信息

在第一节中曾讲到，每一个任务都有一个与之对应的EIB。CICS的终端信息正是通过EIB得到的。需要注意的是，由于任务可以在不同的终端上启动，因此得到的终端信息也是不同的。也就是说，终端信息是基于任务而言的，这点同每一任务中EIB的惟一性是相对应的。此处所说的终端信息，主要是指终端在CICS中的设备编号。终端编号是通过EIB中的信息EIBTRMID提供的。以下程序将直接通过EIBTRMID得到相应的
cobol_os·2008-04-29 10:00

精通COBOL－－16.3.3 输入过程中的异常处理

CICS中的异常处理有很多种情况，此处主要只针对在输入过程中的异常处理。异常处理是通过在相应的CICS命令中使用RESP选项实现的。RESP选项后为一个8位长度的有符号数，用以表明异常的种类。例如，以下代码在输入数据大于指定长度时，将对所抛出的异常进行处理。处理方式为在屏幕上输出相应提示信息。代码如下：IDENTIFICATIONDIVISION.PROGRAM-ID.RESPGM.*ENVIRO
cobol_os·2008-04-29 10:00

精通COBOL－－16.3.2 使用CICS进行输入输出

基于CICS的COBOL程序最基本的功能便是输入和输出。在CICS中，输入是通过RECEIVE命令实现的，而输出则是通过SEND命令实现的。下面分别予以讲解。
cobol_os·2008-04-29 10:00

精通COBOL－－16.3.2 使用CICS进行输入输出

基于CICS的COBOL程序最基本的功能便是输入和输出。在CICS中，输入是通过RECEIVE命令实现的，而输出则是通过SEND命令实现的。下面分别予以讲解。
cobol_os·2008-04-29 10:00

精通COBOL－－16.3.1 基本程序结构

基于CICS的COBOL程序同样是通过EXEC标识符将CICS命令嵌入其中的。
cobol_os·2008-04-29 10:00

精通COBOL－－16.1.3 CICS的基本操作

关于CICS的基本操作，首先需要清楚CICS的开启与关闭。作为一个子系统，CICS的开启和关闭都是通过在终端，或控制台输入相关命令实现的。在PCOM主界面登录CICS系统，则与登录TSO类似，通常是使用以下命令登录的：LCICSCICS的重启与JES2的重启类似，也是分为3种类型的重启的。关于这3种类型的重启的名称及方式分别如下：q冷启动：正常关闭CICS，并全新安装CICS。该重启方式将会清除某
cobol_os·2008-04-29 10:00

精通COBOL－－16.1.2 CICS中的交易和任务

交易（Transaction）和任务（Task）是CICS中的两个最基本的概念。这两个概念实际上也是基于CICS面向事务处理的特点而产生的。1．CICS中的交易在CICS中，一个交易是指一组相关联的操作序列或为了完成一个特定功能的一组步骤。交易通常产生于终端和数据库之间，属于一种应用过程。一个交易中既可能只有一个操作，也可能存在一组操作。例如，在ATM机上完成的取款过程便可视作一个交易，该交易所含
cobol_os·2008-04-29 10:00

精通COBOL－－16.1.1 CICS简介

CICS的全称为CustomerInformationControlSystem，即客户信息控制系统的意思。CICS最初为S/370上的一个程序产品，迄今已有将近40年的发展历史。CICS同DB2一样，也是支持多种操作系统的，但目前仍然主要用于大型机的操作系统z/OS。CICS在大型机上的版本依次经历了1.7版、2.1版、3.1.1版、3.1.2版、3.3版、4.1版等等。当CICS发展到5.x版
cobol_os·2008-04-29 10:00

精通COBOL－－11.4.2 被调用程序中参数的引用

被调用程序是在过程部标志PROCEDUREDIVISION后实现参数引用的。引用方式仍然是通过USING语句。实际上，这种引用方式在前面的被调用程序代码中已有所涉及。此处不妨以上一小节中的被调用程序为例，重点关注其对于参数的引用。该程序代码如下。IDENTIFICATIONDIVISION.PROGRAM-IDCALLED-PROG.AUTHERXXX.*ENVIRONMENTDIVISION.*
cobol_os·2008-04-29 10:00

精通COBOL－－11.3.1 主调用程序中参数的定义

当主调用程序进行子程序调用时，通常需要向子程序传递参数。主调用程序所传递的参数一般情况下，可以为在该程序内所定义的任何数据。通常，这些数据可以在主调用程序数据部的以下几个节中进行定义。q文件节：此时在FD语句下面进行定义，数据内容通过读取相关文件得到。q工作存储节：在该节内可直接进行定义，数据内容通过在程序的处理过程中得到。q连接节：在该节内的定义方式同在工作存储节类似，但数据内容通过其他程序所传
cobol_os·2008-04-29 10:00

精通cobol－－9.14.2 SEARCH ALL语句的实际应用

此处以一个图书管理系统对于读者的管理为例，讲解SEARCHALL语句在实际中的应用。对于读者数据而言，主要应包含读者的借书证号和读者的姓名这两项数据。假设表中只包含4名读者，则定义并初始化相应的索引表如下。01READERS-DATA.05FILLERPIC9(4)VALUE1002.05PICX(10)VALUE‘XIAOMING’.05PIC9(4)VALUE1005.05PICX(10)VA
cobol_os·2008-04-28 10:00

精通cobol－－9.14.1 SEARCH ALL语句的格式要求

SEARCHALL语句的语法格式同SEARCH语句比较类似。在SEARCHALL语句中，仍然主要包含所要查找的索引表表名、判断条件、以及满足条件后的处理过程。SEARCHALL语句只是在系统内部处理过程中与SEARCH语句不同。SEARCHALL语句的基本格式如下。SEARCHALLindexed-table-entryATENDdosomethingWHENconditiondosomethin
cobol_os·2008-04-28 10:00

精通cobol－－9.13.2 SEARCH语句的功能

SEARCH语句的功能实际上是实现对索引表中数据的顺序查找。SEARCH语句实现的功能步骤如下。qSEARCH语句从指定的索引处开始查找。若WHEN子句后的条件没有得到满足，则将索引变量相应增加一个数据单位。查找索引表中的下一条数据。同时继续判断WHEN子句后所列条件。q若WHEN子句后所列条件一旦满足，则停止查找。索引变量为当前满足条件的关键数据项所对应的索引值。q若直到该索引表中的最后一条数据
cobol_os·2008-04-28 10:00

精通cobol－－9.13.2 SEARCH语句的功能

SEARCH语句的功能实际上是实现对索引表中数据的顺序查找。SEARCH语句实现的功能步骤如下。qSEARCH语句从指定的索引处开始查找。若WHEN子句后的条件没有得到满足，则将索引变量相应增加一个数据单位。查找索引表中的下一条数据。同时继续判断WHEN子句后所列条件。q若WHEN子句后所列条件一旦满足，则停止查找。索引变量为当前满足条件的关键数据项所对应的索引值。q若直到该索引表中的最后一条数据
cobol_os·2008-04-28 10:00

精通cobol－－9.13.1 SEARCH语句的格式

在SEARCH语句中，主要需要包含所要查找的索引表表名、判断条件、以及满足条件后的处理过程。此处所说的判断条件通常包含两个。其中一个是由用户指定的判断条件，另一个则对应数据查找结束时的情况。SEARCH语句最基本的格式如下。SEARCHindexed-table-entryATENDdosomethingWHENconditiondosomethingelseEND-SEARCH.关于这段代码，有
cobol_os·2008-04-28 10:00

精通cobol－－9.12.2 使用SET语句对索引进行算术运算

对索引变量进行算术运算操作，仍然需要使用SET语句。以下依然结合上面定义的超市管理系统的索引表，通过几个小例子进行讲解。（1）假设STORE-NDX已存有数据。现要求以该索引变量为基准，其后偏移2位索引的进货商品编号。这里并不知道当前STORE-NDX中的数据为多少。因此，必须使用算术运算，直接将STORE-NDX加上2，再以此引用指定数据。代码如下。SETSTORE-NDXUPBY2.MOVES
cobol_os·2008-04-28 10:00

精通cobol－－9.12.1 使用SET语句对索引赋值

前面讲过，不能按照通常的方式，使用MOVE语句对索引变量赋值。对索引变量赋值，必须使用SET语句。下面结合几个小例子，具体谈谈如何使用SET语句进行赋值操作。（1）求取索引为3所对应的进货商品编号和名称。此处可以首先将索引变量STORE-NDX置为3。然后，再通过该索引变量引用所求数据，并将结果存入相应位置。代码如下。SETSTORE-NDXTO3./*这里使用SET语句对索引变量赋值*/MOVE
cobol_os·2008-04-28 10:00

精通cobol－－9.12 处理索引语句SET

前面已经讲到，对于索引表中的索引变量而言，是不能将其视作通常的变量进行处理的。如果要对索引变量进行操作，必须使用SET语句。使用SET语句对索引变量进行操作，大体上可以分为两大类型的操作。其中一种类型的操作是对其进行赋值操作，另一种是对其进行算术运算操作。下面结合一个实例分别对二者进行详细讲解。首先，以超市管理系统为基本模型。定义相应的索引表如下。01MARKET-TABLE.05STORE-IT
cobol_os·2008-04-28 10:00

精通cobol－－9.11.5 索引表和下标表的比较

为加深对索引表的理解，同时也对之前学习过的下标表作一个回顾，现将二者进行比较。索引表和下标表既有不同之处，也有相似之处，下面分别进行讲解。1．索引表和下标表的不同之处索引表和下标表主要有4点区别，以下分别讲解。（1）定义方式不同。依据前面学过的知识，对于下标表，除定义表的基本结构外，还要定义一个下标下标。定义下标表的代码通常如下。01sample-subscripted-table.05item-
cobol_os·2008-04-28 10:00

精通cobol－－9.11.4 索引表的内部存储结构

索引表的内部存储结构相对于下标表而言要相对复杂一些。在下标表中，数据的存储位置即下标的数值。而在索引表，数据的存储位置和索引数值往往并不一致，需要计算得到。对于索引表而言，其中的索引保存的是数据偏移量，而并不是数据实际存储位置。数据的实际存储位置，通过将索引变量除以每个数据的大小得到。下面以一个公司一周内的营业额为基本模型，讨论索引表的内部存储结构。首先，对该表进行定义及初始化，代码如下。01WE
cobol_os·2008-04-28 10:00

精通cobol－－9.11.4 索引表的内部存储结构

索引表的内部存储结构相对于下标表而言要相对复杂一些。在下标表中，数据的存储位置即下标的数值。而在索引表，数据的存储位置和索引数值往往并不一致，需要计算得到。对于索引表而言，其中的索引保存的是数据偏移量，而并不是数据实际存储位置。数据的实际存储位置，通过将索引变量除以每个数据的大小得到。下面以一个公司一周内的营业额为基本模型，讨论索引表的内部存储结构。首先，对该表进行定义及初始化，代码如下。01WE
cobol_os·2008-04-28 10:00

精通cobol－－9.11.3 索引的特点

理解索引表，最重要是要理解索引的概念。下面结合一个使用索引表定义的银行账户信息，具体分析索引的特点。定义该索引表的代码如下。01BANK-ACCOUNT-TABLE.05ACCOUNT-DATAOCCURS10TIMESINDEXEDBYACC-NDX.10ACCOUNT-NUMPIC9(9).10ACCOUNT-NAMEPICX(10).以上代码中，ACC-NDX即为该索引表的索引。对于ACC-
cobol_os·2008-04-28 10:00

精通cobol－－9.11.2 如何定义索引表

定义索引表，除了要指明表的名称，数据条目，重复次数外，还应包含一个索引变量。这里需要特别注意的是，索引变量只用指明，而不必进行定义。下面给出定义一个索引表的基本框架，代码如下。01sample-indexed-table.05item-listOCCURSx1TIMESINDEXEDBYdata-ndx./*此处指明索引变量*/10item-numPIC9(x2).10item-dataPICX(
cobol_os·2008-04-28 10:00

精通cobol－－9.9.3 查找效率

对于直接查找方式而言，知道了数据编号也就知道了数据存储位置。因此，查找次数都仅为1次。但实际上这种方式下并没进行实际的查找算法，因此不能从算法的角度分析其查找效率。对于顺序查找方式，这里分别从最好情况，最坏情况和平均情况分析其查找效率。不妨假设表中总数据量为n。q最好情况下，表中第一条数据即为所要查找的数据，查找次数为1。q最坏情况下，表中最后一条数据才为所要查找数据，查找次数为n。q平均情况下，
cobol_os·2008-04-28 09:00

精通cobol－－9.6.4 直接查找方式的适用范围

基于直接查找方式的表的特性就是表中数据的编号和存储位置是一一对应的。基于该项特性，直接查找方式主要有下面两点优势。一方面，基于直接查找方式的表不用另行存储数据编号，节省了程序空间；另一方面，直接查找方式是通过编号对数据进行直接查找的，提高了查找效率。然而，在实际的数据处理中有时还会遇到这样一种情况。即如果使用直接查找方式，需要定义大量的数据，而真正用到的却只占很小一部分。例如，对于一个网上电子商务
cobol_os·2008-04-28 09:00

精通cobol－－9.6.1 如何定义用于直接查找的表

在使用表进行数据查找时，首先应明确数据编号这个概念。数据编号是由人为指定的，用于代表相应数据的一种编号。编号通常为数字形式，也可看作一项数据，并不等同于下标。用于直接查找的表中数据的编号和存储位置是相同的，因此在定义该表中不必指定数据编号。数据的编号直接由其所在位置确定。因此，定义用于直接查找的表时往往只用包含一个条目，即数据的条目。例如，对于一个大学里全体人员的管理系统，可简单的将各人员的数据定
cobol_os·2008-04-28 09:00

精通cobol－－9.5.1 使用硬性编码方式初始化表

使用硬性编码方式初始化表，主要是通过VALUE语句实现的。VALUE跟在每个具体数据项之后（非数据条目）。VALUE语句指定的值也就是该数据的初始化值。对表中每个数据项初始化后，也就实现了对整个表的初始化。例如，对于保存一周７天的数据的表，通过硬性编码方式初始化代码如下。01WEEK-VALUES.05FILLERPICX(10)VALUE‘MONDAY’.05PICX(10)VALUE‘TUES
cobol_os·2008-04-28 09:00

学习COBOL1

1）标识部：提供程序的一般性文档说明。    PROGRAM-ID段包含程序名，是每个程序所必须的。    2）数据部：数据部提供程序变量的存放位置，对不同数据类型分成不同的节：    文件数据（FileSection）、静态数据（Working-StorageSession）、参数（LinkageSection）呵呵，点滴体会
我的blog·2008-04-23 21:00

工作快一年了，但觉得自己没什么进步，应不应该换个环境？

结果刚来的时候给我们培训主机COBOLJCLPLI等，后来又是什么CMMVBA等东西。就这样半年过去了，一个项目都没做。之前招的时候我们是做Java的，自己虽然技术不是很强，但在这半
evil850209·2008-04-23 13:00

工作快一年了，但觉得自己没什么进步，应不应该换个环境？

结果刚来的时候给我们培训主机COBOLJCLPLI等，后来又是什么CMMVBA等东西。就这样半年过去了，一个项目都没做。之前招的时候我们是做Java的，自己虽然技术不是很强，但在
evil850209·2008-04-23 13:00

精通cobol－－9.4.1 PERFORM VARYING语句的使用方法

PERFORMVARYING语句的基本格式如下所示。PERFORM…VARYING…FROM…BY…UNTIL…其中，“…”部分则是相应的变量，根据具体的不同情况而有所不同。qstatement变量：指进行处理过程的名称。qitem-sub变量：通常为表中数据对应的下标。qx1变量：通常指从表中的哪一个下标开始处理。qx2变量：通常指每次处理后对于下标的增量。qx3变量：通常指下标经过増量处理后达
cobol_os·2008-04-20 12:00

精通cobol－－9.3.2 使用OCCURS语句得到的表空间结构

这里需要说明的是，使用OCCURS语句只是避免了重复书写相类似的定义代码。OCCURS语句并没有压缩定义数据的存储空间。数据的存储空间大小和不使用OCCURS语句时，定义数据的存储空间大小是相同的。通过下面的图解可以更直观的说明这一点。首先，使用OCCURS语句定义一个普通结构的表，代码如下。01TEST-TABLE-TWO05TEST-ROWOCCURS3TIMES.10TEST-ITEM-ON
cobol_os·2008-04-18 10:00

精通cobol－－9.3.1 OCCURS语句的使用方法

OCCURS语句的语法格式如下。OCCURSnTIMES.其中，“n”为一个整型数据类型，指明了重复的次数。“TIMES”是该语句固定格式的一部分内容，不可任意指定。OCCURS语句用于在数据部的工作存储节定义表，并且OCCURS不能出现在01级数据类型后。例如，以下代码就错误地使用了OCCURS语句。01TEST-TABLE-ONEOCCURS5TIMES.←错误的用法05TEST-ITEM-O
cobol_os·2008-04-18 10:00
上一页 18 19 20 21 22 23 24 25 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他