文档章节

cobol学习之四字典案例

指尖残雪
 指尖残雪
发布于 2016/05/22 23:56
字数 453
阅读 16
收藏 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开始

本文转载自:http://blog.csdn.net/bq1073100909/article/details/41148659

共有 人打赏支持
指尖残雪
粉丝 7
博文 73
码字总数 0
作品 0
上海
后端工程师
COBOL 语言联合设计师 Jean Sammet 去世,终年 89 岁

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

王练
2017/06/05
1K
13
WiFi破解这个技术很普通!Python几行代码就可以做到!进来就学会

是不是还在为WiFi密码发愁,甚至有时候还忘掉自己家的WiFi密码,没关系,今天我给大家带来几个破解WiFi密码的案例!我先说明下这个东西一点都不高端,甚至看起来有点糟糕,而且用的是单线程~...

糖宝lsh
08/18
0
0
玩转Google开源C++单元测试框架Google Test系列(gtest)(总)

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

元谷
2013/12/18
0
0
Python为什么这么火?

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

让往事随风
2016/05/03
509
2
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
446
0

没有更多内容

加载失败,请刷新页面

加载更多

python生成HTML报告

# -*- coding=utf-8 -*-# author=zyqimport timeclass Template(object): '''html报告''' HTML_TEMP=''' <!DOCTYPE html> <html lang="en"> <head......

小白兔_球球
4分钟前
0
0
模型融合资料汇总

https://blog.csdn.net/u012526003/article/details/79109418https://blog.csdn.net/willduan1/article/details/73618677https://blog.csdn.net/wstcjf/article/details/77989963?utm_so......

KYO4321
6分钟前
0
0
热更步骤

根据官方文档: http://docs.cocos.com/creator/manual/zh/advanced-topics/hot-update.html version_generator.js文件放到项目根目录下 注意步骤的顺序: 1.构建 2.根据构建目录运行下面命令...

Valiancer
6分钟前
0
0
小程序重写CheckBox样式

CheckBox /* 重写 checkbox 样式 *//* 未选中的 背景样式 */checkbox .wx-checkbox-input{ border-radius: 50%; width: 40rpx; height: 40rpx;}/* 选中后的 背景样式...

originDu
11分钟前
0
0
mysql自动安装脚本

[root@localhost_04 ~]# cat mysql.sh #!/bin/bash# "################检查本机安装mysql的基本条件########################"echo "Checking  user :"d=`id -u`if [ $d ......

芬野de博客
24分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部