COBOL语法和文法(1)
作者:习惯有你 日期:2007-05-15
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.
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: COBOL
近两天做的项目
作者:习惯有你 日期:2007-05-15
问问自己成熟吗?
作者:习惯有你 日期:2007-05-10
有时候特很想问问自己这个问题.20出头的人,都徘徊在这条分界线上.但我自己毕竟没有别人看的那么彻底.
很多人说我做事情太过独断,一意孤行.想想这些年,硬着头皮做了不少这样的事.也有人说我有时候说话不太会为他人考虑.想想确实是的,连舅舅都说过.还有家里人都说我太过善良,容易上当.以前我认为,善良点不好么?难道非要那么坏一点才好么?现在回过头来想这句话,人不能太善良.似乎给我感觉人的一生就是小心翼翼的在两个极端中,那条小路上游走着.遇到左翼有障碍物的时候,我们就得选择往右靠.遇到障碍物把整条路堵住的时候,我们得学会跳过去.或许,这就是所谓的做人得有弹性吧.
这个年龄段,我们都太过急于成熟了,所以做出了一些冲动的事情.
也有很多朋友跟我讲,做人好难,下辈子一定做小鸟,在天空自由自在的飞翔.他们问,我回答说,下辈子我依旧选择做人.上帝说过,人来到这个世界上就是受罪的.
很多人说我做事情太过独断,一意孤行.想想这些年,硬着头皮做了不少这样的事.也有人说我有时候说话不太会为他人考虑.想想确实是的,连舅舅都说过.还有家里人都说我太过善良,容易上当.以前我认为,善良点不好么?难道非要那么坏一点才好么?现在回过头来想这句话,人不能太善良.似乎给我感觉人的一生就是小心翼翼的在两个极端中,那条小路上游走着.遇到左翼有障碍物的时候,我们就得选择往右靠.遇到障碍物把整条路堵住的时候,我们得学会跳过去.或许,这就是所谓的做人得有弹性吧.
这个年龄段,我们都太过急于成熟了,所以做出了一些冲动的事情.
也有很多朋友跟我讲,做人好难,下辈子一定做小鸟,在天空自由自在的飞翔.他们问,我回答说,下辈子我依旧选择做人.上帝说过,人来到这个世界上就是受罪的.
58
作者:习惯有你 日期:2007-05-08
过了个愉快的五一。跟以前一样，老爸总是习惯的在假期快结束的时候来敲敲我。那天在去火车站的路上，又是老一套。假放完了，心该收收了。放假就放开的玩。跟以往不同的是后面句改成了，放完了就一心一意的工作。十几年都是这样，似乎在老爸的眼中我仍是个还在上学的孩子。需要大人们时不时提醒一二。自我感觉上班了，自己的事情就该自己管理了。但他们不这样认为。跟老爸不一样的是老妈，她依旧跟以前一样舍不得自己的儿子。儿行千里，母担忧。她就这样一个人。似乎这些年，我一直在外面辗转。也让老妈操了不少心。
今一上班，安排了位置。冥冥中感到自己以后的一切要从这一刻开始了。会有很多自己不懂的东西，会有自己很多不会处理的问题，会有很多难以预料的事情。
今一上班，安排了位置。冥冥中感到自己以后的一切要从这一刻开始了。会有很多自己不懂的东西，会有自己很多不会处理的问题，会有很多难以预料的事情。
Tags: 五一小结
昨天误了航班
作者:习惯有你 日期:2007-04-30
天哪!昨天的飞机我居然晚到.21:17赶到机场小姐说已经停止登机了.....焦躁啊!叫我改签.到了售票处再三询问,请求就是不让登机.说什么民航局的规定.我以前飞来飞去的也没见着有这个规定啊.汗啊~~~最后只好改签,重新买了张上航的,早上8点半起飞.旧票在一年内仍旧可以使用.也好也好.过年就不用愁买票了.唉~~~上天注定让我坐上航啊!
一直坐在浦东机场的三楼.感觉跟国内其他机场一个样.布局,设置,登机关口的设置.八九不离十.这么晚还在机场,这让我想起有了有年回国坐4点飞机,在机场等了4个小时.这次可是11个小时.我汗!不像国外的一些建筑设施,每幢都有自己的风格,有自己的调调.他们愿意去思考,去想如何设计既方便乘客又不失美观,且又不千篇一律.而国内的呢?就显然与之不同了.总喜欢按照规章制度去执行一些事情.还有,整齐化一比创新更重要,总是希望做出来的一些事,一个字不差的按要求完成.就行了,除此之外再看不出来,他们想到了些什么.这是国内外最大的文化差异.
马上5月的上海没想到还是这么冷.做在座位上我需要时不时站起来,走走.也驱驱睡意.人们都说等待的时候,时间过的最慢,我是深刻体会到过了.所以,我不喜欢迟到.唉~~再也不迟到了!!!!这还是生平第一次误飞机.好了,不多说了,正在梦乡的朋友们,你们睡的安逸啊~~~~
----------- 于30号凌晨 浦东机场 ---------------
一直坐在浦东机场的三楼.感觉跟国内其他机场一个样.布局,设置,登机关口的设置.八九不离十.这么晚还在机场,这让我想起有了有年回国坐4点飞机,在机场等了4个小时.这次可是11个小时.我汗!不像国外的一些建筑设施,每幢都有自己的风格,有自己的调调.他们愿意去思考,去想如何设计既方便乘客又不失美观,且又不千篇一律.而国内的呢?就显然与之不同了.总喜欢按照规章制度去执行一些事情.还有,整齐化一比创新更重要,总是希望做出来的一些事,一个字不差的按要求完成.就行了,除此之外再看不出来,他们想到了些什么.这是国内外最大的文化差异.
马上5月的上海没想到还是这么冷.做在座位上我需要时不时站起来,走走.也驱驱睡意.人们都说等待的时候,时间过的最慢,我是深刻体会到过了.所以,我不喜欢迟到.唉~~再也不迟到了!!!!这还是生平第一次误飞机.好了,不多说了,正在梦乡的朋友们,你们睡的安逸啊~~~~
----------- 于30号凌晨 浦东机场 ---------------
闲暇时光
作者:习惯有你 日期:2007-04-27
昨晚坐在床上,便顺手拿了本<<读者文摘>>翻看起来.看了一篇文章<<画水彩画的少女>>讲男女情爱的.看完之后,忽然感觉到自己好久没有看看这些杂志了.认真回想一下,大概有近4年了吧.自己还上高中的时候是每期<<青年文摘>>必买的.很喜欢看里面的涉世之初,至情至爱这两个栏目.想到自己马上大学接触的会更多,担心自己处理不好.那会也正是青春朦胧时,也想多看看,明确自己的方向.也许是在那时,有了初步的世界观,对待任何事情有了自己的看法.也许是在那时对自己的以后有了整体的定位.
昨天坐在回来的班车上,看着一个个西装格履的人在自己面前.忽然觉得自己不再是以前那个不爱穿西裤的小男孩了.也不再是以前那个只喜欢穿运动鞋的小男生了.高一时,有堂语文课老师叫我们说下自己对社会环境的看法.我清楚的记得我当时说的是:当你无法改变环境的时候,你只有去适应它.
后来又看到了刘墉写的几篇文章,倍是亲切.自己买了他的很多书.<<飘泊的人生>>,<<萤窗小语>>,<<爱就注定了一生的漂泊>>,<<点一盏心灯>>都不错哦.推荐看看.
现在觉得,闲的时候看看书也挺好.
昨天坐在回来的班车上,看着一个个西装格履的人在自己面前.忽然觉得自己不再是以前那个不爱穿西裤的小男孩了.也不再是以前那个只喜欢穿运动鞋的小男生了.高一时,有堂语文课老师叫我们说下自己对社会环境的看法.我清楚的记得我当时说的是:当你无法改变环境的时候,你只有去适应它.
后来又看到了刘墉写的几篇文章,倍是亲切.自己买了他的很多书.<<飘泊的人生>>,<<萤窗小语>>,<<爱就注定了一生的漂泊>>,<<点一盏心灯>>都不错哦.推荐看看.
现在觉得,闲的时候看看书也挺好.
[转]让有情人看一遍哭一遍的文章
作者:习惯有你 日期:2007-04-25
今天去了理发店
作者:习惯有你 日期:2007-04-24
下了班车，看见了个理发店，就埋头进去了。原本是打算回去在理理的但，感觉不大舒服，就去了。完了才知道，进的是永祺。完了回来洗了个澡，吃了饭，前两天没在家吃，自然该我洗碗。突然觉得像回到了以前在新的日子。自己决定闲暇时间，自己照顾自己，自己整理自己。唯一不同的是回来就有饭吃。
似乎过惯了一个人的生活，洗的衣服忘记去晒，洗好的衣服不想去叠。感觉不大像自己，但又不得不承认自己确实这么做着。心情不好的时候自己得学着调整自己，因为没什么人会在身边问着你，更不可能告诉老妈。老妈是个很单纯的人，心里藏不了事。这么多年过来，心脏不好，脊椎也不行。妈妈的身边也没什么能说话的人，外婆快80了，外公很早就走了，她身边唯一能述说的人只有我。她觉得我长大了，懂事了，能明白些事情了。在外婆这边，我在家还算很有威望的。所以时不时会跟我讲家里的事情。想听听我的看法，意见。一直以来，甚至买什么样的衣服都是要我来决定。所以，干脆节假日，过生日我都会给老妈买衣服。今天老妈跟我说，她想买个便宜的房子，以后老了自己住。我听了很心酸。我说不用买，以后老了跟我住，我来照顾你。老妈对我无私奉献了前半生，什么玩的都不会，只会顾家。我不知道这世上还有几个能像我妈一样。
理理发，洗下澡，整理下自己，让自己换个心情。我自己的事情都没有处理好。不管是工作，还是感情。都是未知。老妈一直跟我讲，一个人在外面不能太老实了，不要太善良了，总是担心我被。其实自己也是这样的，但在老妈面前总表现的很自信，觉得自己该站在她的面前为她遮挡些什么。
胡乱写了一通。不知道自己在写什么。
似乎过惯了一个人的生活，洗的衣服忘记去晒，洗好的衣服不想去叠。感觉不大像自己，但又不得不承认自己确实这么做着。心情不好的时候自己得学着调整自己，因为没什么人会在身边问着你，更不可能告诉老妈。老妈是个很单纯的人，心里藏不了事。这么多年过来，心脏不好，脊椎也不行。妈妈的身边也没什么能说话的人，外婆快80了，外公很早就走了，她身边唯一能述说的人只有我。她觉得我长大了，懂事了，能明白些事情了。在外婆这边，我在家还算很有威望的。所以时不时会跟我讲家里的事情。想听听我的看法，意见。一直以来，甚至买什么样的衣服都是要我来决定。所以，干脆节假日，过生日我都会给老妈买衣服。今天老妈跟我说，她想买个便宜的房子，以后老了自己住。我听了很心酸。我说不用买，以后老了跟我住，我来照顾你。老妈对我无私奉献了前半生，什么玩的都不会，只会顾家。我不知道这世上还有几个能像我妈一样。
理理发，洗下澡，整理下自己，让自己换个心情。我自己的事情都没有处理好。不管是工作，还是感情。都是未知。老妈一直跟我讲，一个人在外面不能太老实了，不要太善良了，总是担心我被。其实自己也是这样的，但在老妈面前总表现的很自信，觉得自己该站在她的面前为她遮挡些什么。
胡乱写了一通。不知道自己在写什么。
再进酒吧
作者:习惯有你 日期:2007-04-21
昨天应以前在新的同学vivian之邀，一堆朋友去了据说是上海比较有名的余姚路68号MUSE.到了MUSE楼下，就看到两辆保时捷中间夹着辆灰色的法拉利。过不久，又一辆红色法拉利停在了前面。车上走下来的人是年轻人。当时，脑里什么都没想，也什么都不会想，眼睛直看着那辆车。记得以前在学校的时候就有学生开法拉利来上学，还是一黑人。发动机的声音的确，不能这么说，应该说确实很诱人，引诱着不自主的想去驾驶它。整个街道都被那声音所掩盖。人们都说上海人很有钱。我觉得应该是上海人做生意的多，自然生活水平就要高些。因为这个城市的地域决定了它的发展优势及潜力。于是，我又在幻想自己以后要是经济条件宽裕会是怎样一种生活方式？我不知道以后的生活会是怎样，但我能肯定的是我不属于这一类人。
进MUSE时是vivian的同事接的我.刚一进门就听了重低音的音乐.那样的环境又让我想起了有年12月31号在新一酒吧的那晚。声音巨大，很强节奏感的音乐，一堆人边喝酒，边跳。好象比上海这边跳的疯狂些。全场的人都无比投入的兴奋。也许是新年即将到来的缘故吧。可对于我们中国人来说，这仅是个元旦节而已。嘈杂的音乐，面对一些不熟悉的人，以至于自己有些放不开。看来，自己以后想出来做，还真的改改现在的性格。其实这个问题我早就考虑到过。觉得自己现在的性格不太适应这个社会，有些胆小，没了男人该有豪放。（这句话好象以前我说过，呵呵!）当时想着是一套，可到了真实环境里了却不行了。也许是要多练练吧。不过还好的是认识了些上海的朋友。我喜欢到哪都有朋友，都有贴心的朋友。每次回来都喜欢找朋友聚聚聊聊。
其实说来自己蛮喜欢热闹的。虽然51出游的计划取消，但还是想跟他们聚聚。这么多年走来，还遇到那么几个，也就够了。人嘛，要知足。
进MUSE时是vivian的同事接的我.刚一进门就听了重低音的音乐.那样的环境又让我想起了有年12月31号在新一酒吧的那晚。声音巨大，很强节奏感的音乐，一堆人边喝酒，边跳。好象比上海这边跳的疯狂些。全场的人都无比投入的兴奋。也许是新年即将到来的缘故吧。可对于我们中国人来说，这仅是个元旦节而已。嘈杂的音乐，面对一些不熟悉的人，以至于自己有些放不开。看来，自己以后想出来做，还真的改改现在的性格。其实这个问题我早就考虑到过。觉得自己现在的性格不太适应这个社会，有些胆小，没了男人该有豪放。（这句话好象以前我说过，呵呵!）当时想着是一套，可到了真实环境里了却不行了。也许是要多练练吧。不过还好的是认识了些上海的朋友。我喜欢到哪都有朋友，都有贴心的朋友。每次回来都喜欢找朋友聚聚聊聊。
其实说来自己蛮喜欢热闹的。虽然51出游的计划取消，但还是想跟他们聚聚。这么多年走来，还遇到那么几个，也就够了。人嘛，要知足。
Name:从新到新
