COBOL语言数据类型转换方法
作者:习惯有你 日期:2007-05-15
计息是银行的一项重要业务,包括日常代理客户收、付计算客户利息和年度计息等。目前,这些工作大多数是在IBM ES9000主机的SAFE应用系统平台上进行,该系统联机程序和联机计息程序是用IBM 370汇编语言实现的。为方便汇编语言读写,在VSAM文件存储的数据中,数据存放格式进行了特殊的定义。如日期存放采用X(3)型,01年03月15日,存入EBCD码为X‘010315’。在进行年度计息时,为了实现各种复杂的运算工作,一般采用COBOL语言来实现各种运算。而采用COBOL语言读取X(3)型数据时,读出的是字符型数据,不能直接进行运算,必须转换为COBOL数据类型的数据后才能进行相应处理。如刚才的X‘010315’,需要转换为内部十进制数据X‘0010315C’。本文介绍一种用COBOL语言实现字符型X(3)与内部十进制数据相互转换的方法。
由X(3)型转换为内部十进制
由于日期数据总是大于零,在COBOL语言的工作单元节定义变量DATE-FIRST后,再追加定义COBOL语言的最小数据单元X‘000C’,即十进制12。由于重定义DATE-CASE为DATE-CHANGE后,DATE-CHANGE是原日期数据的1000倍,于是要在过程部将DATE-CHANGE除以1000。
首先,在COBOL程序WORKING-STORAGE SECTION. 中定义如下内容:
WORKING-STORAGE SECTION.
由X(3)型转换为内部十进制
由于日期数据总是大于零,在COBOL语言的工作单元节定义变量DATE-FIRST后,再追加定义COBOL语言的最小数据单元X‘000C’,即十进制12。由于重定义DATE-CASE为DATE-CHANGE后,DATE-CHANGE是原日期数据的1000倍,于是要在过程部将DATE-CHANGE除以1000。
首先,在COBOL程序WORKING-STORAGE SECTION. 中定义如下内容:
WORKING-STORAGE SECTION.
Tags: {216}{217}{218}
COBOL NOTES
作者:习惯有你 日期:2007-05-15
用法子句(USAGE子句) 使用用法(USAGE)子句可以使程序设计者自由选挥数据杯内存中的存放形式。譬如,数据项A和B是需要多次进行运算,如果用外部十进制形式则来回转换会大大降低运算速度,这时,可以选择A和B为定点二进制形式或内部浮点形式.如果数据项C和D轻加运算次数少,而且需要多次打印出C和D的结果,这时用外部十进制比较适合,因为它最适合打印的要求,不必再进行转换。 USAGE IS DISPLAY/COMP DISPLAY (标准数据形式。一个字节放一字符) COMP 定点二近制形式 COMP-1:内部短浮点形式 COMP-2:内部长浮点形式 COMP-3:内部十进制形式如果对组合项描述为某一种存放形式,则表示这个组合项的下属各初等项都是这 种形式。 USAGE子句指定的数据存放形式不应与PIC子句指定的数据类型矛盾.长、短浮点形式己确定了内存的长度,不应再用PIC子句. 用WRITE语句输出时,是直接按内存中存放数据形式输出(不加转换的).这是和用DISPLAY语句时不同的.
Tags: {216}
近两天做的项目
作者:习惯有你 日期:2007-05-15
问问自己成熟吗?
作者:习惯有你 日期:2007-05-10
有时候特很想问问自己这个问题.20出头的人,都徘徊在这条分界线上.但我自己毕竟没有别人看的那么彻底.
很多人说我做事情太过独断,一意孤行.想想这些年,硬着头皮做了不少这样的事.也有人说我有时候说话不太会为他人考虑.想想确实是的,连舅舅都说过.还有家里人都说我太过善良,容易上当.以前我认为,善良点不好么?难道非要那么坏一点才好么?现在回过头来想这句话,人不能太善良.似乎给我感觉人的一生就是小心翼翼的在两个极端中,那条小路上游走着.遇到左翼有障碍物的时候,我们就得选择往右靠.遇到障碍物把整条路堵住的时候,我们得学会跳过去.或许,这就是所谓的做人得有弹性吧.
这个年龄段,我们都太过急于成熟了,所以做出了一些冲动的事情.
也有很多朋友跟我讲,做人好难,下辈子一定做小鸟,在天空自由自在的飞翔.他们问,我回答说,下辈子我依旧选择做人.上帝说过,人来到这个世界上就是受罪的.
很多人说我做事情太过独断,一意孤行.想想这些年,硬着头皮做了不少这样的事.也有人说我有时候说话不太会为他人考虑.想想确实是的,连舅舅都说过.还有家里人都说我太过善良,容易上当.以前我认为,善良点不好么?难道非要那么坏一点才好么?现在回过头来想这句话,人不能太善良.似乎给我感觉人的一生就是小心翼翼的在两个极端中,那条小路上游走着.遇到左翼有障碍物的时候,我们就得选择往右靠.遇到障碍物把整条路堵住的时候,我们得学会跳过去.或许,这就是所谓的做人得有弹性吧.
这个年龄段,我们都太过急于成熟了,所以做出了一些冲动的事情.
也有很多朋友跟我讲,做人好难,下辈子一定做小鸟,在天空自由自在的飞翔.他们问,我回答说,下辈子我依旧选择做人.上帝说过,人来到这个世界上就是受罪的.
Tags: {214}{73}
58
作者:习惯有你 日期:2007-05-08
过了个愉快的五一。跟以前一样,老爸总是习惯的在假期快结束的时候来敲敲我。那天在去火车站的路上,又是老一套。假放完了,心该收收了。放假就放开的玩。跟以往不同的是后面句改成了,放完了就一心一意的工作。十几年都是这样,似乎在老爸的眼中我仍是个还在上学的孩子。需要大人们时不时提醒一二。自我感觉上班了,自己的事情就该自己管理了。但他们不这样认为。跟老爸不一样的是老妈,她依旧跟以前一样舍不得自己的儿子。儿行千里,母担忧。她就这样一个人。似乎这些年,我一直在外面辗转。也让老妈操了不少心。
今一上班,安排了位置。冥冥中感到自己以后的一切要从这一刻开始了。会有很多自己不懂的东西,会有自己很多不会处理的问题,会有很多难以预料的事情。
今一上班,安排了位置。冥冥中感到自己以后的一切要从这一刻开始了。会有很多自己不懂的东西,会有自己很多不会处理的问题,会有很多难以预料的事情。
Tags: {213}
昨天误了航班
作者:习惯有你 日期:2007-04-30
天哪!昨天的飞机我居然晚到.21:17赶到机场小姐说已经停止登机了.....焦躁啊!叫我改签.到了售票处再三询问,请求就是不让登机.说什么民航局的规定.我以前飞来飞去的也没见着有这个规定啊.汗啊~~~最后只好改签,重新买了张上航的,早上8点半起飞.旧票在一年内仍旧可以使用.也好也好.过年就不用愁买票了.唉~~~上天注定让我坐上航啊!
一直坐在浦东机场的三楼.感觉跟国内其他机场一个样.布局,设置,登机关口的设置.八九不离十.这么晚还在机场,这让我想起有了有年回国坐4点飞机,在机场等了4个小时.这次可是11个小时.我汗!不像国外的一些建筑设施,每幢都有自己的风格,有自己的调调.他们愿意去思考,去想如何设计既方便乘客又不失美观,且又不千篇一律.而国内的呢?就显然与之不同了.总喜欢按照规章制度去执行一些事情.还有,整齐化一比创新更重要,总是希望做出来的一些事,一个字不差的按要求完成.就行了,除此之外再看不出来,他们想到了些什么.这是国内外最大的文化差异.
马上5月的上海没想到还是这么冷.做在座位上我需要时不时站起来,走走.也驱驱睡意.人们都说等待的时候,时间过的最慢,我是深刻体会到过了.所以,我不喜欢迟到.唉~~再也不迟到了!!!!这还是生平第一次误飞机.好了,不多说了,正在梦乡的朋友们,你们睡的安逸啊~~~~
----------- 于30号凌晨 浦东机场 ---------------
一直坐在浦东机场的三楼.感觉跟国内其他机场一个样.布局,设置,登机关口的设置.八九不离十.这么晚还在机场,这让我想起有了有年回国坐4点飞机,在机场等了4个小时.这次可是11个小时.我汗!不像国外的一些建筑设施,每幢都有自己的风格,有自己的调调.他们愿意去思考,去想如何设计既方便乘客又不失美观,且又不千篇一律.而国内的呢?就显然与之不同了.总喜欢按照规章制度去执行一些事情.还有,整齐化一比创新更重要,总是希望做出来的一些事,一个字不差的按要求完成.就行了,除此之外再看不出来,他们想到了些什么.这是国内外最大的文化差异.
马上5月的上海没想到还是这么冷.做在座位上我需要时不时站起来,走走.也驱驱睡意.人们都说等待的时候,时间过的最慢,我是深刻体会到过了.所以,我不喜欢迟到.唉~~再也不迟到了!!!!这还是生平第一次误飞机.好了,不多说了,正在梦乡的朋友们,你们睡的安逸啊~~~~
----------- 于30号凌晨 浦东机场 ---------------
Tags: {211}{212}
闲暇时光
作者:习惯有你 日期:2007-04-27
昨晚坐在床上,便顺手拿了本<<读者文摘>>翻看起来.看了一篇文章<<画水彩画的少女>>讲男女情爱的.看完之后,忽然感觉到自己好久没有看看这些杂志了.认真回想一下,大概有近4年了吧.自己还上高中的时候是每期<<青年文摘>>必买的.很喜欢看里面的涉世之初,至情至爱这两个栏目.想到自己马上大学接触的会更多,担心自己处理不好.那会也正是青春朦胧时,也想多看看,明确自己的方向.也许是在那时,有了初步的世界观,对待任何事情有了自己的看法.也许是在那时对自己的以后有了整体的定位.
昨天坐在回来的班车上,看着一个个西装格履的人在自己面前.忽然觉得自己不再是以前那个不爱穿西裤的小男孩了.也不再是以前那个只喜欢穿运动鞋的小男生了.高一时,有堂语文课老师叫我们说下自己对社会环境的看法.我清楚的记得我当时说的是:当你无法改变环境的时候,你只有去适应它.
后来又看到了刘墉写的几篇文章,倍是亲切.自己买了他的很多书.<<飘泊的人生>>,<<萤窗小语>>,<<爱就注定了一生的漂泊>>,<<点一盏心灯>>都不错哦.推荐看看.
现在觉得,闲的时候看看书也挺好.
昨天坐在回来的班车上,看着一个个西装格履的人在自己面前.忽然觉得自己不再是以前那个不爱穿西裤的小男孩了.也不再是以前那个只喜欢穿运动鞋的小男生了.高一时,有堂语文课老师叫我们说下自己对社会环境的看法.我清楚的记得我当时说的是:当你无法改变环境的时候,你只有去适应它.
后来又看到了刘墉写的几篇文章,倍是亲切.自己买了他的很多书.<<飘泊的人生>>,<<萤窗小语>>,<<爱就注定了一生的漂泊>>,<<点一盏心灯>>都不错哦.推荐看看.
现在觉得,闲的时候看看书也挺好.
Tags: {209}{210}
[转]让有情人看一遍哭一遍的文章
作者:习惯有你 日期:2007-04-25
今天去了理发店
作者:习惯有你 日期:2007-04-24
下了班车,看见了个理发店,就埋头进去了。原本是打算回去在理理的但,感觉不大舒服,就去了。完了才知道,进的是永祺。完了回来洗了个澡,吃了饭,前两天没在家吃,自然该我洗碗。突然觉得像回到了以前在新的日子。自己决定闲暇时间,自己照顾自己,自己整理自己。唯一不同的是回来就有饭吃。
似乎过惯了一个人的生活,洗的衣服忘记去晒,洗好的衣服不想去叠。感觉不大像自己,但又不得不承认自己确实这么做着。心情不好的时候自己得学着调整自己,因为没什么人会在身边问着你,更不可能告诉老妈。老妈是个很单纯的人,心里藏不了事。这么多年过来,心脏不好,脊椎也不行。妈妈的身边也没什么能说话的人,外婆快80了,外公很早就走了,她身边唯一能述说的人只有我。她觉得我长大了,懂事了,能明白些事情了。在外婆这边,我在家还算很有威望的。所以时不时会跟我讲家里的事情。想听听我的看法,意见。一直以来,甚至买什么样的衣服都是要我来决定。所以,干脆节假日,过生日我都会给老妈买衣服。今天老妈跟我说,她想买个便宜的房子,以后老了自己住。我听了很心酸。我说不用买,以后老了跟我住,我来照顾你。老妈对我无私奉献了前半生,什么玩的都不会,只会顾家。我不知道这世上还有几个能像我妈一样。
理理发,洗下澡,整理下自己,让自己换个心情。我自己的事情都没有处理好。不管是工作,还是感情。都是未知。老妈一直跟我讲,一个人在外面不能太老实了,不要太善良了,总是担心我被。其实自己也是这样的,但在老妈面前总表现的很自信,觉得自己该站在她的面前为她遮挡些什么。
胡乱写了一通。不知道自己在写什么。
似乎过惯了一个人的生活,洗的衣服忘记去晒,洗好的衣服不想去叠。感觉不大像自己,但又不得不承认自己确实这么做着。心情不好的时候自己得学着调整自己,因为没什么人会在身边问着你,更不可能告诉老妈。老妈是个很单纯的人,心里藏不了事。这么多年过来,心脏不好,脊椎也不行。妈妈的身边也没什么能说话的人,外婆快80了,外公很早就走了,她身边唯一能述说的人只有我。她觉得我长大了,懂事了,能明白些事情了。在外婆这边,我在家还算很有威望的。所以时不时会跟我讲家里的事情。想听听我的看法,意见。一直以来,甚至买什么样的衣服都是要我来决定。所以,干脆节假日,过生日我都会给老妈买衣服。今天老妈跟我说,她想买个便宜的房子,以后老了自己住。我听了很心酸。我说不用买,以后老了跟我住,我来照顾你。老妈对我无私奉献了前半生,什么玩的都不会,只会顾家。我不知道这世上还有几个能像我妈一样。
理理发,洗下澡,整理下自己,让自己换个心情。我自己的事情都没有处理好。不管是工作,还是感情。都是未知。老妈一直跟我讲,一个人在外面不能太老实了,不要太善良了,总是担心我被。其实自己也是这样的,但在老妈面前总表现的很自信,觉得自己该站在她的面前为她遮挡些什么。
胡乱写了一通。不知道自己在写什么。
Tags: {205}{151}
再进酒吧
作者:习惯有你 日期:2007-04-21
昨天应以前在新的同学vivian之邀,一堆朋友去了据说是上海比较有名的余姚路68号MUSE.到了MUSE楼下,就看到两辆保时捷中间夹着辆灰色的法拉利。过不久,又一辆红色法拉利停在了前面。车上走下来的人是年轻人。当时,脑里什么都没想,也什么都不会想,眼睛直看着那辆车。记得以前在学校的时候就有学生开法拉利来上学,还是一黑人。发动机的声音的确,不能这么说,应该说确实很诱人,引诱着不自主的想去驾驶它。整个街道都被那声音所掩盖。人们都说上海人很有钱。我觉得应该是上海人做生意的多,自然生活水平就要高些。因为这个城市的地域决定了它的发展优势及潜力。于是,我又在幻想自己以后要是经济条件宽裕会是怎样一种生活方式?我不知道以后的生活会是怎样,但我能肯定的是我不属于这一类人。
进MUSE时是vivian的同事接的我.刚一进门就听了重低音的音乐.那样的环境又让我想起了有年12月31号在新一酒吧的那晚。声音巨大,很强节奏感的音乐,一堆人边喝酒,边跳。好象比上海这边跳的疯狂些。全场的人都无比投入的兴奋。也许是新年即将到来的缘故吧。可对于我们中国人来说,这仅是个元旦节而已。嘈杂的音乐,面对一些不熟悉的人,以至于自己有些放不开。看来,自己以后想出来做,还真的改改现在的性格。其实这个问题我早就考虑到过。觉得自己现在的性格不太适应这个社会,有些胆小,没了男人该有豪放。(这句话好象以前我说过,呵呵!)当时想着是一套,可到了真实环境里了却不行了。也许是要多练练吧。不过还好的是认识了些上海的朋友。我喜欢到哪都有朋友,都有贴心的朋友。每次回来都喜欢找朋友聚聚聊聊。
其实说来自己蛮喜欢热闹的。虽然51出游的计划取消,但还是想跟他们聚聚。这么多年走来,还遇到那么几个,也就够了。人嘛,要知足。
进MUSE时是vivian的同事接的我.刚一进门就听了重低音的音乐.那样的环境又让我想起了有年12月31号在新一酒吧的那晚。声音巨大,很强节奏感的音乐,一堆人边喝酒,边跳。好象比上海这边跳的疯狂些。全场的人都无比投入的兴奋。也许是新年即将到来的缘故吧。可对于我们中国人来说,这仅是个元旦节而已。嘈杂的音乐,面对一些不熟悉的人,以至于自己有些放不开。看来,自己以后想出来做,还真的改改现在的性格。其实这个问题我早就考虑到过。觉得自己现在的性格不太适应这个社会,有些胆小,没了男人该有豪放。(这句话好象以前我说过,呵呵!)当时想着是一套,可到了真实环境里了却不行了。也许是要多练练吧。不过还好的是认识了些上海的朋友。我喜欢到哪都有朋友,都有贴心的朋友。每次回来都喜欢找朋友聚聚聊聊。
其实说来自己蛮喜欢热闹的。虽然51出游的计划取消,但还是想跟他们聚聚。这么多年走来,还遇到那么几个,也就够了。人嘛,要知足。
Tags: {201}{184}
推荐国外10个很酷很实用的小网站
作者:习惯有你 日期:2007-04-18
第一,http://www.meebo.com 一个小暴发户网站,它现在收购了http://www.trillian.cc ,它把Yahoo! Messanger、Jabber、Gtalk、AIM、ICQ和MSN几款流行的即时通讯软件整合在一起,支持多款软件之间的信息互通。
第二,http://www.rememberthemilk.com 一个典型的web 2.0 网站。如果你经常忘记做事情,你就需要这个网站,它支持手机、邮件和即时通讯等工具的提醒定制功能。
第三,http://www.blinklist.com 这个网站很有可能被关闭了,这是一个书签管理网站,和del.icio.us是竞争关系。但是这个网站有很好的UI设计,一些独特的功能,是的del.icio.us黯然失色不少。经常浏览这个网站看看它有哪些新的功能。
第二,http://www.rememberthemilk.com 一个典型的web 2.0 网站。如果你经常忘记做事情,你就需要这个网站,它支持手机、邮件和即时通讯等工具的提醒定制功能。
第三,http://www.blinklist.com 这个网站很有可能被关闭了,这是一个书签管理网站,和del.icio.us是竞争关系。但是这个网站有很好的UI设计,一些独特的功能,是的del.icio.us黯然失色不少。经常浏览这个网站看看它有哪些新的功能。
Tags: {11}