文档章节

cobol学习之四字典案例

指尖残雪
 指尖残雪
发布于 2016/05/22 23:56
字数 453
阅读 15
收藏 0
点赞 2
评论 0

代码功能:

输入一个字母,输出相匹配的单词。

通过对定义好的数据进行重定义,对每个单词进行分割成第一个字母和后面的9个字母,使用循环进行匹配。

代码如下:

000010 IDENTIFICATION			DIVISION.
000020  PROGRAM-ID.			SAMPLE01-2.
000030 DATA				DIVISION.
000040  WORKING-STORAGE			SECTION.
000050  01  WORD-VALUES.
000060      03				PIC X(10) VALUE 'apple'.
000070      03				PIC X(10) VALUE 'black'.
000080      03				PIC X(10) VALUE 'cobol85'.
000090      03				PIC X(10) VALUE 'dog'.
000100      03				PIC X(10) VALUE 'eye'.
000110      03				PIC X(10) VALUE 'fault'.
000120      03				PIC X(10) VALUE 'good'.
000130      03				PIC X(10) VALUE 'head'.
000140      03				PIC X(10) VALUE 'idea'.
000150      03				PIC X(10) VALUE 'junior'.
000160      03				PIC X(10) VALUE 'king'.
000170      03				PIC X(10) VALUE 'love'.
000180      03				PIC X(10) VALUE 'medium'.
000190      03				PIC X(10) VALUE 'node'.
000200      03				PIC X(10) VALUE 'open'.
000210      03				PIC X(10) VALUE 'pig'.
000220      03				PIC X(10) VALUE 'quite'.
000230      03				PIC X(10) VALUE 'result'.
000240      03				PIC X(10) VALUE 'success'.
000250      03				PIC X(10) VALUE 'teacher'.
000260      03				PIC X(10) VALUE 'understand'.
000270      03				PIC X(10) VALUE 'version'.
000280      03				PIC X(10) VALUE 'world'.
000290      03				PIC X(10) VALUE 'xylophone'.
000300      03				PIC X(10) VALUE 'yes'.
000310      03				PIC X(10) VALUE 'zoo'.
000320      03				PIC X(10) VALUE '**error**'.
000330  01  WORD-TABLE REDEFINES  WORD-VALUES.
000340	    03  WORD-ITEM OCCURS 27 TIMES.
000350		05  FIRST-CHARACTER 	PIC X.
000360		05 			PIC X(9).
000370  01  WORD-INDEX			PIC 9(3).
000380  01  INPUT-CHARACTER		PIC X.
000390  01  REQUEST-MESSAGE		PIC X(42)
000400	    VALUE  'ENTER ONE CHARACTER OF ALPHABETIC-LOWER.=>'.
000410 PROCEDURE			DIVISION.
000411  DATA-INPUT			SECTION.
000412	   DISPLAY REQUEST-MESSAGE WITH NO ADVANCING.
000413	   ACCEPT  INPUT-CHARACTER.
000414	SEARCH-WORD			SECTION.
000415	   PERFORM TEST BEFORE
000416			VARYING WORD-INDEX FROM 1 BY 1
000417			UNTIL WORD-INDEX > 26
000418		IF INPUT-CHARACTER = FIRST-CHARACTER (WORD-INDEX)
000419		THEN 
000420		    EXIT PERFORM
000421		ELSE 
000422		    CONTINUE
000423		END-IF
000424	   END-PERFORM.
000425	WORD-OUTPUT			SECTION.
000426	   DISPLAY WORD-ITEM (WORD-INDEX).
000427	   EXIT PROGRAM.
000428 END PROGRAM SAMPLE01-2.

PERFORM 循环语句,对单词进行循环查找,如果找到和输入字母和里面定义好的相匹配的单词的第一个字母,就输出下标对应的单词,在cobol中下标从1开始

© 著作权归作者所有

共有 人打赏支持
指尖残雪
粉丝 7
博文 73
码字总数 0
作品 0
上海
后端工程师
新课程上线:Oracle数据库11gR2(之五):性能调优

购买Oracle数据库课程套餐,享八五折优惠!! Oracle数据库11g(第一季):开发与高级管理 http://edu.51cto.com/pack/view/id-1040.html Oracle数据库11g(第二季):备份恢复与性能优化 http...

collen7788 ⋅ 2017/04/07 ⋅ 0

COBOL 语言联合设计师 Jean Sammet 去世,终年 89 岁

《纽约时报》6月4日发表了 COBOL 编程语言的联合设计师 Jean Sammet 的讣告: Jean E. Sammet 于 5 月 20 日在马里兰去世,享年 89 岁。Jean E. Sammet 是 COBOL 语言最早的工程师和联合设计...

王练 ⋅ 2017/06/05 ⋅ 13

python学习笔记之线程

看了python的基础教程之后,基于实战学习,快速掌握的理念。找到了一本不错的python的渗透测试书。《python绝技》,说不错,那是因为一紧扣安全主题,二,作者直接实际案例开始,不会讲语法,...

melonking ⋅ 2017/10/19 ⋅ 0

玩转Google开源C++单元测试框架Google Test系列(gtest)(总)

前段时间学习和了解了下Google的开源C++单元测试框架Google Test,简称gtest,非常的不错。 我们原来使用的是自己实现的一套单元测试框架,在使用过程中,发现越来越多使用不便之处,而这样不...

元谷 ⋅ 2013/12/18 ⋅ 0

Python为什么这么火?

人生苦短,我用Python!对于学习Python的人来说肯定特别熟悉,当然这要归功于python强大的功能:它能把复杂的语言简单化,满足企业运维日常的数据分析和运维系统的管理,编写自动化运维平台,...

让往事随风 ⋅ 2016/05/03 ⋅ 2

DotNET企业架构应用实践-系统架构与性能-在业务中实例使用缓存与缓存查询-附上视频

回顾与说明 本文是DotNET企业架构应用实践系列中的一篇文章,同时也是一步一步教你使用AgileEAS.NET基础类库进行应用开发系统中的一篇文章,所以本文应该还有一个副标题“一步一步教你使用A...

agilelab ⋅ 2010/10/22 ⋅ 0

SonarQube COBOL 3.2 发布

SonarQube COBOL 3.2 发布了。 主要改进内容: Bug 修复: [COBOL-1320] - PerformThruProcedureNamingConvention: remove default for prefix [COBOL-1326] - A failure on a file should n......

达尔文 ⋅ 2016/09/23 ⋅ 0

信息收集之DNS信息收集 -- dnsmap

dnsmap 一款专门用于子域名爆破的工具,自带字典、也可指定字典,可根据网络状况调整发包速率,可扫描指定的IP。 基本用法: dnsmap domain [options] 选项: -w wordlist 指定域名字典文件 ...

董志勇 ⋅ 2017/10/25 ⋅ 0

打造自己的Android源码学习环境之四:下载Android源代码

打造自己的Android源码学习环境之四:下载Android源代码 下载android代码的全部指导来自:http://source.android.com/source/index.html。 如果你访问不了这个网址,可以看看这个链接。 注意...

u013553529 ⋅ 2017/02/05 ⋅ 0

CountVectorizer

CountVectorizer 关于文本特征提取,前面一篇文章TF-IDF介绍了HashingTF,本文将再介绍一种Spark MLlib的API CountVectorizer。 CountVectorizer 和 CountVectorizerModel 旨在帮助将文本文档...

rlnlo2pnefx9c ⋅ 2017/12/07 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

JavaScript零基础入门——(八)JavaScript的数组

JavaScript零基础入门——(八)JavaScript的数组 欢迎大家回到我们的JavaScript零基础入门,上一节课我们讲了有关JavaScript正则表达式的相关知识点,便于大家更好的对字符串进行处理。这一...

JandenMa ⋅ 今天 ⋅ 0

sbt网络问题解决方案

转自:http://dblab.xmu.edu.cn/blog/maven-network-problem/ cd ~/.sbt/launchers/0.13.9unzip -q ./sbt-launch.jar 修改 vi sbt/sbt.boot.properties 增加一个oschina库地址: [reposit......

狐狸老侠 ⋅ 今天 ⋅ 0

大数据,必须掌握的10项顶级安全技术

我们看到越来越多的数据泄漏事故、勒索软件和其他类型的网络攻击,这使得安全成为一个热门话题。 去年,企业IT面临的威胁仍然处于非常高的水平,每天都会看到媒体报道大量数据泄漏事故和攻击...

p柯西 ⋅ 今天 ⋅ 0

Linux下安装配置Hadoop2.7.6

前提 安装jdk 下载 wget http://mirrors.hust.edu.cn/apache/hadoop/common/hadoop-2.7.6/hadoop-2.7.6.tar.gz 解压 配置 vim /etc/profile # 配置java环境变量 export JAVA_HOME=/opt/jdk1......

晨猫 ⋅ 今天 ⋅ 0

crontab工具介绍

crontab crontab 是一个用于设置周期性被执行的任务工具。 周期性执行的任务列表称为Cron Table crontab(选项)(参数) -e:编辑该用户的计时器设置; -l:列出该用户的计时器设置; -r:删除该...

Linux学习笔记 ⋅ 今天 ⋅ 0

深入Java多线程——Java内存模型深入(2)

5. final域的内存语义 5.1 final域的重排序规则 1.对于final域,编译器和处理器要遵守两个重排序规则: (1)在构造函数内对一个final域的写入,与随后把这个被构造对象的引用赋值给一个引用...

江左煤郎 ⋅ 今天 ⋅ 0

面试-正向代理和反向代理

面试-正向代理和反向代理 Nginx 是一个高性能的反向代理服务器,但同时也支持正向代理方式的配置。

秋日芒草 ⋅ 今天 ⋅ 0

Spring 依赖注入(DI)

1、Setter方法注入: 通过设置方法注入依赖。这种方法既简单又常用。 类中定义set()方法: public class HelloWorldOutput{ HelloWorld helloWorld; public void setHelloWorld...

霍淇滨 ⋅ 昨天 ⋅ 0

马氏距离与欧氏距离

马氏距离 马氏距离也可以定义为两个服从同一分布并且其协方差矩阵为Σ的随机变量之间的差异程度。 如果协方差矩阵为单位矩阵,那么马氏距离就简化为欧氏距离,如果协方差矩阵为对角阵,则其也...

漫步当下 ⋅ 昨天 ⋅ 0

聊聊spring cloud的RequestRateLimiterGatewayFilter

序 本文主要研究一下spring cloud的RequestRateLimiterGatewayFilter GatewayAutoConfiguration @Configuration@ConditionalOnProperty(name = "spring.cloud.gateway.enabled", matchIfMi......

go4it ⋅ 昨天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部