文档章节

cobol学习之七逆向输出

指尖残雪
 指尖残雪
发布于 2016/05/22 23:56
字数 238
阅读 11
收藏 0

输入:0123456789

输出:9876543210

严格要求10位,cobol必须严格要求位数。

代码如下:

000010 IDENTIFICATION                 DIVISION.
000020  PROGRAM-ID.                   STUDY6-103.
000030 ENVIRONMENT                    DIVISION.
000040 DATA                           DIVISION.
000050  WORKING-STORAGE                       SECTION.
000060 01                             W-DATA PIC X(10).
000070 01 W-DATA-1 REDEFINESW-DATA.
000080       03                         WA PIC X.
000090       03                         WB PIC X.
000100       03                         WC PIC X.
000110       03                         WD PIC X.
000120       03                         WE PIC X.
000130       03                         WF PIC X.
000140       03                         WG PIC X.
000150       03                         WH PIC X.
000160       03                         WI PIC X.
000170       03                         WJ PIC X.
000180 01 W-DATA-2.
000190       03                         WJ PIC X.
000200       03                         WI PIC X.
000210       03                         WH PIC X.
000220       03                         WG PIC X.
000230       03                         WF PIC X.
000240       03                         WE PIC X.
000250       03                         WD PIC X.
000260       03                         WC PIC X.
000270       03                         WB PIC X.
000280       03                         WA PIC X.
000290 PROCEDURE                      DIVISION.
000300     ACCEPT W-DATA.
000310     MOVE <span style="color:#cc0000;">CORR</span> W-DATA-1 TO W-DATA-2.
000320     DISPLAY W-DATA-2.
000330     STOP RUN.
000340


此次主要联系CORR的用法,如果不加的话会前后一致的赋值,输出结果和输入一样,加上以后会按照相同名称赋值。

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

共有 人打赏支持
指尖残雪
粉丝 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
商用编程语言--COBOL

COBOL(面向商业的通用语言,又称为企业管理语言、数据处理语言等,Common Business Oriented Langauge)是最早的高级编程语言之一,是世界上第一个商用语言。 COBOL是一种面向数据处理的、面...

匿名
2009/04/12
10.8K
1
神经网络中 BP 算法的原理与 Python 实现源码解析

最近这段时间系统性的学习了BP算法后写下了这篇学习笔记,因为能力有限,若有明显错误,还请指出 目录 什么是梯度下降和链式求导法则 神经网络的结构 BP算法中的执行流程(前向传递和逆向更新...

曾梓华
2017/05/18
0
0
Linux系统Oracle 12cR2 RAC集群安装与维护管理(12.2)专题

风哥Linux系统Oracle 12cR2 RAC集群安装与维护管理(12.2)专题包括内容: Oracle数据库12cR2(项目实战之一):在Windows上安装Oracle12.2 Oracle数据库12cR2(项目实战之五):Oracle12.2 ...

风哥Oracle
06/29
0
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
446
0

没有更多内容

加载失败,请刷新页面

加载更多

MySQL SQL 常见用法

某字段重复记录 select a.fieldA from tableA a group by a.fieldA having count(a.fieldA)>1;==select * from (select a.fieldA, count(1) as faCount from tableA a group......

园领T
59分钟前
1
0
如何使用 iptables 和 firewalld 工具来管理 Linux 防火墙规则

以下是如何使用 iptables 和 firewalld 工具来管理 Linux 防火墙规则。 防火墙 防火墙是一组规则。当数据包进出受保护的网络区域时,进出内容(特别是关于其来源、目标和使用的协议等信息)会...

linuxprobe16
今天
1
0
发生系统错误 5 拒绝访问

1、使用命令net start *开启一个服务的时候,出现发生系统错误5,拒绝访问。 解决:切换到管理员模式执行此命令即可。

fang_faye
今天
1
0
devops 成长路线

https://36kr.com/p/5157249.html

swingcoder
今天
1
0
Java内存区域的划分和异常

行时数据区域 JVM在运行Java程序时候会将内存划分为若干个不同的数据区域。 程序计数器 线程私有。可看作是当前线程所执行的字节码的行号指示器,字节码解释器的工作是通过改变这个计数值来读...

架构师springboot
今天
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部