&&下载仅需要4金币
文件大小：0.20MB&&&
贡献者：flankerhill&&&
贡献时间：日&&&
COBOL代码格式化工具
相关标签：
同类热门源码
你可能喜欢
该用户的其它源码
所需金币：
文件大小：0.20MB
您当前剩余金币：0COBOL字符串的操作（四）-字符串的转换FUNCTION语句
字符串的转换是以原字符串的字符为基础进行的格式上的转换，并不对原字符进行替换。主要有两种转换方式：一种是对于由字母组成的字符串中字母大小写的转换方式；另一种是将由数字组成的字符串转换为具体数值。
1.FUNCTION 语句实现字符串中字母大小写的转换。
其关键之处是在该语句后加上LOWER-CASE,或者UPPER-CASE选项。
下面的代码使用LOWER-CASE选项，将字符串中的字母全部转换为小写格式。
DATA DIVISION.
WORKING-STORAGE SECTION.
01& SOURCE-STR&
01& NEW-STR&
PIC& X(5).
PROCEDURE DIVISION.
MOVE& 'AB-CDE'& TO
SOURCE-ATR.
DISPLAY SOURCE-STR.
DISPLAY FUNCTION LOWER-CASE(SOURCE-STR).
MOVE& 'Ab-Cde' TO SOURCE-STR.
DISPLAY SOURCE-STR.
DISPLAY FUNCTION LOWER-CASE(SOURCE-STR).
MOVE FUNCTION LOWER-CASE(SOURCE-STR) TO NEW-STR.
DISPLAY& NEW-STR.
DISPLAY& SOURCE-STR.
执行后为：
LOWER-CASE
只将字符串中的大写字母转换为对应的小写形式。对于字符串中原本为小写的字母字符，以及其他字符不做处理
LOWER-CASE
只是临时对其进行转换，转换后的结果只在该条语句有效。即LOWER-CASE并不将转换结果保存到原字符串中。若要保存转换后的字符串，通常使用MOVE
语句将其保存到一个新的字符串变量中。
与LOWER-CASE对应，UPPER-CASE是将字符串中的字母转换为对应的大写形式。
2.将字符串转换为具体数值
将字符串转换为具体数值将是字符串转换中用处很大的一种转换方式。转换成具体数值后，该数值同其他普通字符一样，可以参与算术运算了。同时，当需要从键盘输入相应数值时，也更加方面一些。
此处是通过在FUNCTION语句后面加上NUMVAL或者NUMVAL-C实现的。
下面使用NUMVAL的用法。
DATA DIVISION.
WORKING-STORAGE SECTION.
01& SOURCE-STR-1&
PIC& X(10).
01& SOURCE-STR-2&
PIC& X(10).
01& RESULT&
PIC& S99V99.
01& RESULT-DPL&
PIC& $$$.99.
PROCEDURE DIVISION.
& MOVE '-10.50' TO&
SOURCE-STR-1.
& MOVE '12.80'&
TO& SOURCE-STR-2.
COMPUTE RESULT =
&&&&&&&&&&
FUNCTION& NUMVAL(SOURCE-STR-1)
+&& FUNCTION&
NUMVAL(SOURCE-STR-2).
MOVE RESULT TO RESULT-DPL.
DISPLAY 'RESULT :',RESULT-DPL.
输出结果是：
RESULT :$2.30
FUNCTION NUMVAL
语句将以上两个变量中的字符串转换成具体数值。并将这两个具体数值相加后将结果存入RESULT变量中。RESULT
变量被定义为一个Signed Numbers符号类型数据，保存的是具体数值。
程序最后将RESULT变量中的具体数值MOVE到RESULT-DPL变量中以用于输出。RESULT-DPL变量被定义为一个Numeric
Edited Fields格式输出类型。因此，这里相当于又将具体数值转换回成了字符串。
NUMVAL-C相当于是NUMVAL的扩展。当原始字符串出现以下情况时，必须使用NUMVAL-C选项。
&原始字符串中有货币流通符号$。
&原始字符串中有分隔符逗号。
另外，无论NUMVAL还是NUMVAL-C都允许原字符串中出现正负号。并且，转换后的实际是指遵循原字符串中所指定的正负性。
当需要从键盘输入具体数值时，用FUNCTION
的输入方式会更加方便。假设输入数值所被保存的变量为INPUT-DATA，该变量定义如下。
01 INPUT-DATA PIC S999V99.
如令该变量中的数值通过键盘输入的语句如下。
ACCEPT& INPUT-DATA FROM CONSOLE
此时用户需要在键盘上输入的数据必须严格按照INPUT-DATA定义的格式来进行。例如，当用户需要输入2.50和-100.00这两个数值时，输入方式必须为：
当使用将字符串转换为具体数值的方式时，代码可以做如下更改。
01& INPUT-STR&
PIC& X(10).
01& INPUT-DATA PIC&
ACCEPT INPUT-STR FROM CONSOLE.
COMPUTE INPUT-DATA=FUNCTION NUMVAL(INPUT-STR).
只要如下输入方式即可：
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。IBM主机工程师 是干什么的? cobol是什么？
请讲解详细点儿，，需要面试准备
谢谢_百度知道
IBM主机工程师 是干什么的? cobol是什么？
请讲解详细点儿，，需要面试准备
提问者采纳
IBM主机工程师就是在大型机上开发，维护系统。主要使用cobol,jcl,asm等应用于主机的编程语言英文缩写: COBOL (Common business Oriented Language) 中文译名: COBOL语言 解
释: 一种适合于商业及数据处理的类似英语的程序设计语言。这种语言可使商业数据处理过程精确表达。COBOL（面向商业的通用语言，又称为企业管理语言、数据处理语言等，Common Business Oriented Langauge）是最早的高级编程语言之一，是世界上第一个商用语言。1 COBOL的历史1959年5月，五角大楼委托格雷斯·霍波（G.Hopper）博士领导一个委员会并由Rear Admiral Grace Hopper公司主持开发，并于1961年由美国数据系统语言协会公布。正式发布于1960年4月，称为Cobol－60，现在最新的版本是Cobol－2002。1963年，美国国家标准研究所(ANSI)进行了标准化，但是ANSI标准很少被遵循；因此，COBOL程序只是部分可移植的。2 COBOL的重要性经过40多年的不断修改、丰富完善和标准化，COBOL已发展为多种版本的庞大语言，在财会工作、统计报表、计划编制、情报检索、人事管理等数据管理及商业数据处理领域，都有着广泛的应用。COBOL的重要性可以用这句话来描述：世界上70％的数据都是用COBOL语言处理的，并且90％的ATM事务处理用的都是COBOL语言。每天在线处理的COBOL事务有300亿次。500强中有492家（包括全部的100强）使用了COBOL语言，目前在COBOL方面的投资已经超过3万亿美元，，据称用COBOL书写的程序超过了1000亿行，并且以每年大约50亿行代码的速度在增长。由于COBOL在商业领域的雄厚基础，而且COBOL主要是应用于银行、金融和会计行业等非常重要的商业数据处理领域。所以，即使对于具有相当经验的IT公司来说，重新编写COBOL语言的可靠的应用软件也是不实际或是从商业角度上并不可行的，而且还要花上很长的时间，只要大型机存在，COBOL就不会消失，即使是对电脑界产生巨大影响的“千年虫”（Y2K）也没有改变COBOL的命运。3 COBOL的特点COBOL是一种面向数据处理的、面向文件的、面向过程(POL)的高级编程语言，是一种功能很强而又极为冗长的语言。COBOL适合于具有循环处理周期的环境(例如打印工资支票)以及数据操纵量相当大的环境。COBOL主要应用于商业数据处理领域，对各种类型的数据进行收集、存储、传送、分类、排序、计算及打印报表、输出图象是它的强项。COBOL语法与英文很接近，即使不懂电脑的人也能看懂程序。强大的文件处理功能，大量的数据通常以文件的形式存储在磁盘上。仅提供了加、减、乘、除及乘方这五种简单的算术运算，因而不适于进行科学计算。未来的COBOL将支持XML等Web时代的新技术。4 COBOL的程序结构COBOL程序由4部(DIVISION)组成：IDENTIFICATION DIVISION.(标识部)、ENVIRONMENT DIVISION.(环境部)、DATA DIVISION.(数据部)、PROCEDURE DIVISION.(过程部)，而每个部又由若干节 (SECTION)组成。
提问者评价
其他类似问题
为您推荐：
cobol的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁请大神看下这段代码是什么意思，有什么用处？
window.addEvent('domready',function(){
var ReferObj =new Object();
$extend(ReferObj,{
serverTime:,
init:function(){
var FIRST_REFER=Cookie.get('S[FIRST_REFER]');
var NOW_REFER=Cookie.get('S[NOW_REFER]');
var nowDate=this.time=this.serverTime*1000;
if(!window.location.href.test('#r-')&&!document.referrer||document.referrer.test(document.domain))
if(window.location.href.test('#r-'))Cookie.dispose('S[N]');
if(!FIRST_REFER){
if(NOW_REFER){
this.writeCookie('S[FIRST_REFER]',NOW_REFER,this.getTimeOut(JSON.decode(NOW_REFER).DATE));
this.setRefer('S[FIRST_REFER]',Shop.set.refer_timeout);
this.setRefer('S[NOW_REFER]',Shop.set.refer_timeout);
this.createGUID();
getUid:function(){
var lf=window.location.href,pos=lf.indexOf('#r-');
return pos!=-1?lf.substr(pos+4):'';
getRefer:function(){
return document.referrer?document.referrer:'';
setRefer:function(referName,timeout){
var uid=this.getUid(),referrer=this.getRefer();
var data={'ID':uid,'REFER':referrer,'DATE':this.time};
if('S[NOW_REFER]'==referName){
var refer=JSON.decode(Cookie.get('S[FIRST_REFER]'));
if(uid!=''&&refer&&refer.ID==''){
var fdata={'ID':uid,'REFER':refer.REFER,'DATE':refer.DATE};
this.writeCookie('S[FIRST_REFER]',JSON.encode(fdata),this.getTimeOut(refer.DATE));
}else if(uid==''){
$extend(data,{'ID':refer.ID});
Cookie.set(referName,JSON.encode(data),{duration:(Shop.set.refer_timeout||15)});
getTimeOut:function(nowDate){
var timeout=nowDate+Shop.set.refer_timeout*24*;
var date=new Date(timeout);
writeCookie:function(key,value,timeout){
document.cookie=key+ '=' + value+'; expires=' + timeout.toGMTString();
createGUID:function(){
var GUID = (function(){
var S4=function(){
return (((1+Math.random())*0x10000)|0).toString(16).substring(1);
return (S4()+S4()+&-&+S4()+&-&+S4()+&-&+S4()+&-&+S4()+S4()+S4()).toUpperCase();
Cookie.set('S[N]',GUID,{duration:3650});
ReferObj.init();
window.addEvent('domready',function(){
var ReferObj =new Object();
$extend(ReferObj,{
serverTime:,
init:function(){
var FIRST_REFER=Cookie.get('S[FIRST_REFER]');
var NOW_REFER=Cookie.get('S[NOW_REFER]');
var nowDate=this.time=this.serverTime*1000;
if(!window.location.href.test('#r-')&&!document.referrer||document.referrer.test(document.domain))
if(window.location.href.test('#r-'))Cookie.dispose('S[N]');
if(!FIRST_REFER){
if(NOW_REFER){
this.writeCookie('S[FIRST_REFER]',NOW_REFER,this.getTimeOut(JSON.decode(NOW_REFER).DATE));
this.setRefer('S[FIRST_REFER]',Shop.set.refer_timeout);
this.setRefer('S[NOW_REFER]',Shop.set.refer_timeout);
this.createGUID();
getUid:function(){
var lf=window.location.href,pos=lf.indexOf('#r-');
return pos!=-1?lf.substr(pos+4):'';
getRefer:function(){
return document.referrer?document.referrer:'';
setRefer:function(referName,timeout){
var uid=this.getUid(),referrer=this.getRefer();
var data={'ID':uid,'REFER':referrer,'DATE':this.time};
if('S[NOW_REFER]'==referName){
var refer=JSON.decode(Cookie.get('S[FIRST_REFER]'));
if(uid!=''&&refer&&refer.ID==''){
var fdata={'ID':uid,'REFER':refer.REFER,'DATE':refer.DATE};
this.writeCookie('S[FIRST_REFER]',JSON.encode(fdata),this.getTimeOut(refer.DATE));
}else if(uid==''){
$extend(data,{'ID':refer.ID});
Cookie.set(referName,JSON.encode(data),{duration:(Shop.set.refer_timeout||15)});
getTimeOut:function(nowDate){
var timeout=nowDate+Shop.set.refer_timeout*24*;
var date=new Date(timeout);
看见“跪求”两个字就恶心。另外请不要把你自己的作业贴上来。从编写COBOL源代码，到实现程序结果，需要经历的哪些步骤？_百度知道
从编写COBOL源代码，到实现程序结果，需要经历的哪些步骤？
提问者采纳
首先写源码,然后编译,再链接,再运行不过COBOL是极其古老的计算机语言,现在很少有人用了
提问者评价
其他类似问题
为您推荐：
cobol的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁