轩辕隐天山

技术交流

语源科技BlogJava 首页 新随笔 联系 聚合 管理
  16 Posts :: 0 Stories :: 5 Comments :: 0 Trackbacks

2006年8月3日 #

人世不平一剑消。天上鹰翔,梦里花凋。
胸中块垒酒难浇,往事迢迢,难舍难抛。

造化无情爱更高。孤雁逐涛,暮暮朝朝。
南飞候鸟北归巢,旗正飘飘,风正萧萧。

posted @ 2006-08-03 21:08 lightning 阅读(571) | 评论 (0)编辑 收藏

这个暑假过得好忙,项目,比赛,开学之后要到来的麻烦,这一切让我有点乱,与刚读研的那个暑假比,这个暑假更累,更难过,那个暑假虽然也是比赛,但是心里总报持着一种念像,对即将到来的研究生生活的念像,那个暑假每天晚上去游泳,即便乌云密布,电闪雷鸣,这个暑假晚上回寝室想着赶点项目,很苦,那个野鸡小公司做事很不正规打乱仗,搞得人郁闷,钱也拖着。那个暑假最后有了一个好结果,我们得了奖,得了钱,这个暑假呢?我想要更好的结果。
拥有是很好,就怕行囊背不了。华工,为什么对你我感觉一切都是这么功利,为什么你这么缺少宽容与爱,为什么这么麻木刻板,为什么这么让人丧失人性,让人对你没有留恋?
回到现状,团队精神,精神没有人能够教给你,只有自己领悟。团队的成员即便不了解其他人,也要努力配合,努力为团队多做点事情,团队不是个人的团队,是大家的团队!这不是开玩笑说说,这不是大锅饭!
回到自己,我在想,挑个好点的天气,好好随便走走,想想自己喜欢干的事情,然后淡淡的看让我乱的事情,漠视它,让自己回复。我还有很多喜欢干的事情需要去做。


posted @ 2006-08-03 20:40 lightning 阅读(237) | 评论 (0)编辑 收藏

大机学习进行到第二周,只有我,tdy还有lw三个人还在继续学习大机了。李博博突然人间蒸发,julyforce那边杨博和lyf都没有来了。
我不喜欢喊口号,因为喊口号虚张声势居多,对于说的话,立的言,敢不敢较真呢?
学到第二周,每天的联系逐步加难,但模式都是一样的,一个数据集输入进来,他的布局是怎样的,读入以后进行一定的处理,然后打印到新的数据集里面去。
我们继续上大机课的几个人中,lw是最勤勉的,每天都去听课,我是第一周基本都去了全天,这一周上午都没去,下午直接上机,tdy则相反,上周几乎没去,这周一两次全天。不过到下午上机,基本上学的也就搞清楚了。下面贴一个这几天作业中的一个:
000001       ***********************
 000002        IDENTIFICATION DIVISION.
 000003        PROGRAM-ID.    MONEY
 000004        AUTHOR.        LIGHTNING
 000005       ***********************
 000006        ENVIRONMENT DIVISION.
 000007        INPUT-OUTPUT SECTION.
 000008        FILE-CONTROL.
 000009             SELECT IN-FILE ASSIGN TO SYSIN.
 000010             SELECT PRINT-FILE ASSIGN TO SYSOUT.
 000011       ***********************
 000012        DATA DIVISION.
 000013        FILE SECTION.
 000014        FD IN-FILE
 000015             RECORDING MODE IS F
 000016             LABEL RECORDS ARE STANDARD
 000017             BLOCK CONTAINS 0 RECORDS
 000018             RECORD CONTAINS 80 CHARACTERS.
 000019        01 SALE-RECORD.
 000020           05  SALES-NUMBER         PIC X(5).
 000021           05  FILLER               PIC X(3).
 000022           05  CUSTOMER-NAME        PIC X(15).
 000023           05  SALE-AMOUNT          PIC 9999V99.
 000024           05  PAYMENT-AMOUNT       PIC 9999V99.
 000025           05  STATE-TAX-RATE       PIC 99.
 000026           05  ORDER-TYPE           PIC X(3).
 000027           05  FILLER               PIC X(40).
 000028        FD PRINT-FILE
 000029             RECORDING MODE IS F
 000030             LABEL RECORDS ARE OMITTED
 000031             RECORD CONTAINS 132 CHARACTERS.
 000032        01 PRINT-LINE               PIC X(132).
 000033        WORKING-STORAGE SECTION.
 000034        01 EOF-FLAG                 PIC X(1) VALUE 'N'.
 000035        01 LINE-COUNT               PIC 999 VALUE 0.
 000036        01 CURRENT-DATE.
 000037           05  CURRENT-YEAR        PIC 99 VALUE 0.
 000038           05  CURRENT-MONTH       PIC 99 VALUE 0.
 000039           05  CURRENT-DAY         PIC 99 VALUE 0.
 000040        01 CAPTION-LINE1.
 000041           05 THEDATE.
 000042              10 MYYEAR            PIC 99.
 000043              10 FILLER            PIC X VALUE '/'.
 000044              10 MYMONTH           PIC 99.
 000045              10 FILLER            PIC X VALUE '/'.
 000046              10 MYDAY             PIC 99.
 000047           05 FILLER                PIC X(18) VALUE SPACES.
 000048           05 FILLER                PIC X(15)
 000049              VALUE                 'MEGA-MUSIC,INC.'.
 000050           05 FILLER                PIC X(40) VALUE SPACES.
 000051        01 CAPTION-LINE2.
 000052           05 FILLER                PIC X(23) VALUE SPACES.
 000053           05 FILLER                PIC X(18)
 000054              VALUE                 'DAILY SALES REPORT'.
 000055           05 FILLER                PIC X(39) VALUE SPACES.
 000056        01 HEADER-LINE1.
 000057           05 FILLER                PIC X(8)
 000058              VALUE                 'SALE    '.
 000059           05 FILLER                PIC X(17)
 000060              VALUE                 'CUSTOMER         '.
 000061           05 FILLER                PIC X(6)
 000062              VALUE                 'SALE  '.
 000063           05 FILLER                PIC X(6)
 000064              VALUE                 'TAX   '.
 000065           05 FILLER                PIC X(10)
 000066              VALUE                 'SALES     '.
 000067           05 FILLER                PIC X(10)
 000068              VALUE                 'TAX       '.
 000069           05 FILLER                PIC X(7)
 000070              VALUE                 'DISC.  '.
 000071           05 FILLER                PIC X(10)
 000072              VALUE                 'TOTAL     '.
 000073           05 FILLER                PIC X(11)
 000074              VALUE                 'PAYMENT    '.
 000075           05 FILLER                PIC X(7)
 000076              VALUE                 'BALANCE'.
 000077           05 FILLER                PIC X(3) VALUE SPACES.
 000078        01 HEADER-LINE2.
 000079           05 FILLER                PIC X(8)
 000080              VALUE                 'NUMBER  '.
 000081           05 FILLER                PIC X(17)
 000082              VALUE                 'NAME             '.
 000083           05 FILLER                PIC X(6)
 000084              VALUE                 'TYPE  '.
 000085           05 FILLER                PIC X(6)
 000086              VALUE                 'RATE  '.
 000087           05 FILLER                PIC X(10)
 000088              VALUE                 'AMOUNT    '.
 000089           05 FILLER                PIC X(10)
 000090              VALUE                 'AMOUNT    '.
 000091           05 FILLER                PIC X(7)
 000092              VALUE                 '       '.
 000093           05 FILLER                PIC X(10)
 000094              VALUE                 'AMOUNT    '.
 000095           05 FILLER                PIC X(11)
 000096              VALUE                 '           '.
 000097           05 FILLER                PIC X(7)
 000098              VALUE                 '       '.
 000099           05 FILLER                PIC X(3) VALUE SPACES.
 000100        01 HEADER-LINE3.
 000101           05 FILLER                PIC X(8)
 000102              VALUE                 '        '.
 000103           05 FILLER                PIC X(17)
 000104              VALUE                 '                 '.
 000105           05 FILLER                PIC X(6)
 000106              VALUE                 '      '.
 000107           05 FILLER                PIC X(6)
 000108              VALUE                 '      '.
 000109           05 FILLER                PIC X(10)
 000110              VALUE                 '          '.
 000111           05 FILLER                PIC X(10)
 000112              VALUE                 '          '.
 000113           05 FILLER                PIC X(7)
 000114              VALUE                 '       '.
 000115           05 FILLER                PIC X(10)
 000116              VALUE                 'DUE       '.
 000117           05 FILLER                PIC X(11)
 000118              VALUE                 '           '.
 000119           05 FILLER                PIC X(7)
 000120              VALUE                 '       '.
 000121           05 FILLER                PIC X(3) VALUE SPACES.
 000122        01 TATEMP                   PIC 9999V99.
 000123        01 DISCTEMP                 PIC 99.
 000124        01 TADTEMP                  PIC 9999V99.
 000125        01 DETAIL-LINE.
 000126           05 SALE-NO               PIC X(8).
 000127           05 CUS-NAME              PIC X(17).
 000128           05 SALE-TYPE             PIC X(6).
 000129           05 TAX-RATE              PIC 99.
 000130           05 FILLER                PIC X(4) VALUE SPACES.
 000131           05 SALES-AMOUNT          PIC $$$$$.99.
 000132           05 FILLER                PIC X(2) VALUE SPACES.
 000133           05 TAX-AMOUNT            PIC $$$$9.99.
 000134           05 FILLER                PIC XX VALUE SPACES.
 000135           05 DISC                  PIC $$9.99.
 000136           05 FILLER                PIC X VALUE SPACES.
 000137           05 TOTAL-AMOUNT          PIC $$$$$.99.
 000138           05 FILLER                PIC XX VALUE SPACES.
 000139           05 PAYMENT               PIC $$$$$.99.
 000140           05 FILLER                PIC XX VALUE SPACES.
 000141           0