人世不平一劍消。天上鷹翔，夢里花凋。
胸中塊壘酒難澆，往事迢迢，難舍難拋。
造化無情愛更高。孤雁逐濤，暮暮朝朝。
南飛候鳥北歸巢，旗正飄飄，風正蕭蕭。
這個暑假過得好忙，項目，比賽，開學之后要到來的麻煩，這一切讓我有點亂，與剛讀研的那個暑假比，這個暑假更累，更難過，那個暑假雖然也是比賽，但是心里總報持著一種念像，對即將到來的研究生生活的念像，那個暑假每天晚上去游泳，即便烏云密布，電閃雷鳴，這個暑假晚上回寢室想著趕點項目，很苦，那個野雞小公司做事很不正規打亂仗，搞得人郁悶，錢也拖著。那個暑假最后有了一個好結果，我們得了獎，得了錢，這個暑假呢？我想要更好的結果。
擁有是很好，就怕行囊背不了。華工，為什么對你我感覺一切都是這么功利，為什么你這么缺少寬容與愛，為什么這么麻木刻板，為什么這么讓人喪失人性，讓人對你沒有留戀？
回到現狀，團隊精神，精神沒有人能夠教給你，只有自己領悟。團隊的成員即便不了解其他人，也要努力配合，努力為團隊多做點事情，團隊不是個人的團隊，是大家的團隊！這不是開玩笑說說，這不是大鍋飯！
回到自己，我在想，挑個好點的天氣，好好隨便走走，想想自己喜歡干的事情，然后淡淡的看讓我亂的事情，漠視它，讓自己回復。我還有很多喜歡干的事情需要去做。
大機學習進行到第二周，只有我，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?????????? 05 BALANCE?????????????? PIC $$$$9.99.
?000142?????????? 05 FILLER??????????????? PIC X(2) VALUE SPACES.
?000143??????? 01 ALL-PRINT1.
?000144?????????? 05 FILLER??????????????? PIC X(25)
?000145????????????? VALUE 'TOTAL SALES AMOUNT:????? '.
?000146?????????? 05 ALL-AMOUNTP?????????? PIC $$$,$$$.99.
?000147??????? 01 ALL-AMOUNT?????????????? PIC 99999V99 VALUE 0.
?000148??????? 01 ALL-PRINT2.
?000149?????????? 05 FILLER??????????????? PIC X(25)
?000150????????????? VALUE 'AVERAGE SALES AMOUNT:??? '.
?000151?????????? 05 ALL-DUE-AMOUNTP?????? PIC $$$,$$$.99.
?000152??????? 01 ALL-DUE-AMOUNT?????????? PIC 99999V99 VALUE 0.
?000153??????? 01 INSTORE-COUNT??????????? PIC 9999 VALUE 0.
?000154??????? 01 CATA-COUNT?????????????? PIC 9999 VALUE 0.
?000155??????? 01 INTER-COUNT????????????? PIC 9999 VALUE 0.
?000156??????? 01 ALL-PRINT3.
?000157?????????? 05 FILLER??????????????? PIC X(30)
?000158????????????? VALUE '% OF SALES IN STORES:???????? '.
?000159?????????? 05 PERINSTORE??????????? PIC 99.
?000160?????????? 05 FILLER??????????????? PIC X VALUE '%'.
?000161??????? 01 ALL-PRINT4.
?000162?????????? 05 FILLER??????????????? PIC X(30)
?000163????????????? VALUE '% OF SALES THROUGH CATALOG:?? '.
?000164?????????? 05 PERCATA?????????????? PIC 99.
?000165?????????? 05 FILLER??????????????? PIC X VALUE '%'.
?000166??????? 01 ALL-PRINT5.
?000167?????????? 05 FILLER??????????????? PIC X(30)
?000168????????????? VALUE '% OF SALES OVER THE INTERNET: '.
?000169?????????? 05 PERINTER????????????? PIC 99.
?000170?????????? 05 FILLER??????????????? PIC X VALUE '%'.
?000171?????? ******************************
?000172??????? PROCEDURE DIVISION.
?000173???????????? OPEN INPUT??? IN-FILE
?000174????????????????? OUTPUT?? PRINT-FILE
?000175???????????? ACCEPT CURRENT-DATE FROM DATE.
?000176???????????? MOVE CURRENT-DAY TO MYDAY
?000177???????????? MOVE CURRENT-MONTH TO MYMONTH
?000178???????????? MOVE CURRENT-YEAR TO MYYEAR
?000179???????????? WRITE PRINT-LINE FROM CAPTION-LINE1
?000180???????????? WRITE PRINT-LINE FROM CAPTION-LINE2
?000181???????????? WRITE PRINT-LINE FROM HEADER-LINE1
?000182???????????? WRITE PRINT-LINE FROM HEADER-LINE2
?000183???????????? WRITE PRINT-LINE FROM HEADER-LINE3
?000184???????????? READ IN-FILE
?000185??????????????? AT END MOVE 'Y' TO EOF-FLAG
?000186???????????? END-READ.
?000187???????????? PERFORM 100-PRO1 UNTIL EOF-FLAG = 'Y'
?000188???????????? MOVE ALL-AMOUNT TO ALL-AMOUNTP
?000189???????????? COMPUTE ALL-DUE-AMOUNT = ALL-DUE-AMOUNT / LINE-COUNT
?000190???????????? MOVE ALL-DUE-AMOUNT TO ALL-DUE-AMOUNTP
?000191???????????? COMPUTE PERINSTORE = (INSTORE-COUNT * 100) / LINE-COUNT.
?000192???????????? COMPUTE PERCATA = (CATA-COUNT * 100) / LINE-COUNT.
?000193???????????? COMPUTE PERINTER = (INTER-COUNT * 100) / LINE-COUNT.
?000194???????????? WRITE PRINT-LINE FROM ALL-PRINT1
?000195???????????? WRITE PRINT-LINE FROM ALL-PRINT2
?000196???????????? WRITE PRINT-LINE FROM ALL-PRINT3
?000197???????????? WRITE PRINT-LINE FROM ALL-PRINT4
?000198???????????? WRITE PRINT-LINE FROM ALL-PRINT5
?000199???????????? CLOSE IN-FILE
?000200????????????? PRINT-FILE
?000201???????????? STOP RUN.
?000202??????? 100-PRO1.
?000203??????????? COMPUTE LINE-COUNT = LINE-COUNT + 1.
?000204??????????? MOVE? SALES-NUMBER TO SALE-NO
?000205??????????? MOVE? CUSTOMER-NAME TO CUS-NAME
?000206??????????? MOVE? SALE-AMOUNT TO SALES-AMOUNT
?000207??????????? MOVE? PAYMENT-AMOUNT TO PAYMENT
?000208??????????? MOVE? STATE-TAX-RATE TO TAX-RATE
?000209??????????? MOVE? ORDER-TYPE TO SALE-TYPE
?000210??????????? EVALUATE ORDER-TYPE
?000211?????????????? WHEN 'STO'
?000212?????????????????? ADD 1 TO INSTORE-COUNT
?000213?????????????? WHEN 'NET'
?000214?????????????????? ADD 1 TO INTER-COUNT
?000215?????????????? WHEN 'CAT'
?000216?????????????????? ADD 1 TO CATA-COUNT
?000217??????????? COMPUTE TATEMP = (SALE-AMOUNT * (TAX-RATE / 100)).
?000218??????????? COMPUTE ALL-AMOUNT = ALL-AMOUNT + SALE-AMOUNT.
?000219??????????? MOVE? TATEMP TO TAX-AMOUNT.
?000220??????????? IF (SALE-AMOUNT > 100)
?000221?????????????? MOVE 20 TO DISCTEMP
?000222??????????? ELSE
?000223?????????????? MOVE 0 TO DISCTEMP.
?000224??????????? MOVE DISCTEMP TO DISC.
?000225??????????? COMPUTE TADTEMP = SALE-AMOUNT + TATEMP -
?000226???????????????????? DISCTEMP.
?000227??????????? MOVE TADTEMP TO TOTAL-AMOUNT
?000228??????????? COMPUTE ALL-DUE-AMOUNT = ALL-DUE-AMOUNT + TADTEMP.
?000229??????????? COMPUTE BALANCE = TADTEMP - PAYMENT-AMOUNT.
?000230??????????? WRITE PRINT-LINE FROM DETAIL-LINE
?000231??????????? READ IN-FILE
?000232??????????????????? AT END MOVE 'Y' TO EOF-FLAG
?000233??????????? END-READ.
06/08/02????????????????? MEGA-MUSIC,INC.
?????????????????????? DAILY SALES REPORT
SALE??? CUSTOMER???????? SALE? TAX?? SALES???? TAX?????? DISC.? TOTAL???? PAYMEN
NUMBER? NAME???????????? TYPE? RATE? AMOUNT??? AMOUNT?????????? AMOUNT
??????????????????????????????????????????????????????????????? DUE
43521?? JESSE JAMES????? STO?? 06????? $23.00???? $0.00?? $0.00?? $23.00??? $20.
43522?? MARY MCGUIRE???? NET?? 00???? $130.00???? $0.00? $20.00? $110.00?? $130.
43523?? GEORGE JONES???? STO?? 05????? $82.93???? $0.00?? $0.00?? $82.93??? $87.
43524?? MARTHA STEWART?? CAT?? 07???? $211.27??? $14.78? $20.00? $206.05?? $206.
43525?? LORI LUNDY?????? NET?? 04????? $49.53??? $14.78?? $0.00?? $64.31??? $50.
43526?? JOHN CANDY?????? CAT?? 07???? $427.65??? $29.93? $20.00? $437.58?? $427.
43527?? RICHARD GREEN??? STO?? 05????? $13.25??? $29.93?? $0.00?? $43.18??? $20.
43528?? BEV CRUSHER????? NET?? 00??? $1589.99??? $29.93? $20.00 $1599.92? $1569.
43529?? G.G. LIDDY?????? STO?? 07????? $39.95??? $29.93?? $0.00?? $69.88??? $42.
43530?? HENRY FONDA????? STO?? 08????? $59.45??? $29.93?? $0.00?? $89.38??? $55.
43531?? BRENDA WALLS???? NET?? 00????? $94.99??? $29.93?? $0.00? $124.92?? $110.
43532?? GENIE BOYD?????? CAT?? 07?????? $9.95???? $0.69?? $0.00?? $10.64??? $10.
43533?? BON SCOTT??????? STO?? 06????? $14.95???? $0.69?? $0.00?? $15.64??? $15.
TOTAL SALES AMOUNT:?????? $2,746.91
AVERAGE SALES AMOUNT:?????? $221.34
% OF SALES IN STORES:???????? 46%
% OF SALES THROUGH CATALOG:?? 23%
% OF SALES OVER THE INTERNET: 30%
因為太寬，沒有列全。
不得不提的是有次我提交了個死循環，害得大家甚至彭老師堵了半天不能提交作業，我費了好大勁才把這個死循環給p掉。
那程序基本上參考lw的，不同的是他打到log躲過一劫，我直接打到文件了。。。。。。
用多了大機終端會產生一個毛病，喜歡按F7,F8來翻屏幕，喜歡按f3來退出。。。比如剛才我就是如此。。。
?????1、蔥菇雞塊（雞肉＋芝麻）：芝麻能滋補肝腎，養血生津，潤腸通便，烏發。但與雞
肉同食會中毒，嚴重的中毒者會死亡。用甘草水煎服可治療。
2、麻辣四季豆（大蒜＋大蔥）：大蒜大蔥都是強烈刺激腸道的食物，一起食用后易出
現腹痛、腹瀉等癥狀。
3、小蔥皮蛋拌豆腐（豆腐＋小蔥）：這個大家應該都知道了吧！
4、香蕉酸奶（香蕉＋酸奶）：酸牛奶能降低膽固醇。空腹喝酸奶會因胃內的酸度太強
，乳酸菌在胃液里很難存活，降低酸奶的保健作用。與香蕉同食則對身體健康無益
5、紅棗帶魚粥（紅棗＋魚＋蔥）：紅棗性平，能滋補脾胃，益氣養血，與魚蔥同食會
導致消化不良。
6、五香茶葉蛋（茶葉＋雞蛋）：濃茶中含有較多的單寧酸，單寧酸能使物質中的蛋白
質變成不易消化的凝固物質，影響人體對蛋白質的吸收利用。
7、黃豆燉豬蹄（豬蹄＋黃豆）：黃豆膳食纖維中的醛糖酸殘基可與豬蹄中的礦物質合
成螯合物而干擾或降低人體對這些元素的吸收。
8、青椒牛肝（牛肝＋含維C的食物）：因為蔬果中的維生素C有很強的還原性，很容易
被牛肝中的銅離子氧化，而失去生理活性。
9、蘿卜燉牛腩（胡蘿卜＋白蘿卜）：胡蘿卜含有抗壞血酸酶，會破壞白蘿卜的維生素
C，使兩種蘿卜的營養價值都大為降低。
10、紅白蘿卜木耳湯（白蘿卜＋木耳）：蘿卜性平微寒，具有清熱解毒、健胃消食、
化痰止咳、順氣利便、生津止渴、補中安臟等功效。需注意蘿卜與木耳同食可能會得皮炎
。
11、田螺釀肉（豬肉＋田螺）：豬肉酸冷寒膩，田螺大寒，二物同屬涼性，易傷腸胃
，因此不宜同食。
12、西紅柿燴平魚（西紅柿＋魚肉）：西紅柿中的維生素C會對魚肉中的銅元素的析放
產生抑制作用。
13、黑糯米雞（糯米＋雞）：糯米的主要功能是溫補脾胃，所以一些脾胃虧虛，常常
腹瀉的人吃了，能起到很好的治療效果。但與雞肉同食會引起身體不適。
14、紅豆冬瓜鯽魚湯（鯽魚＋冬瓜）：鯽魚性溫味甘，和胃補虛，消腫去毒，利水通
乳，但若與冬瓜同食會使身體脫水。
15、紅黃沙拉（黃瓜＋西紅柿）：西紅柿含大量維生素C，有增強機體抵抗力、防治壞
血病、抗感染等作用。而黃瓜中含有維生素C分解酶，同食可使其中的維生素C遭到破壞。
????16、酸辣黃瓜拌涼粉（黃瓜＋辣椒）：黃瓜含維生素C分解酶，會使辣椒中的維生素C
遭到破壞，降低其營養價值。
17、菠菜豆腐羹（菠菜＋豆腐）：豆腐里含有氯化鎂、硫酸鈣這兩種物質，而菠菜中
則含有草酸，兩種食物遇到一起可生成草酸鎂和草酸鈣，不能被人體吸收。
???今天COBOL課上彭老師突然來了一段大話西游，COBOL版，太贊了，發出來大家見識一下，呵呵。
????曾經有這么一個COBOL語句擺在我的面前，可惜我上課的時候沒聽，考試的時候考到了，但是不會做，后悔莫及。。。。。。如果老天在給我一次機會，我一定在上課的時候不睡覺，認真聽講，搞懂那個詭異的COBOL語句?
??已經1點了，31號了，7月的最后一天了，七夕，中國的情人節，祝福一下，希望有情人都成眷屬，有點俗氣
?????蠻奇怪，30號上午到下午都登陸不進blogcn，本來想來發發酸的，呵呵，可能是人品問題吧，始終都登不近來，sigh......
?????30號休息，好久都沒有這樣的假期了，從7月初準備考試到考試完了實習到上大機一直到30號終于可以好好的放松一下了，上午瘋狂的睡了一把，到10點多才起來，因為beta過來了，呵呵，不好意思不起床了，然后到11點多吃完飯后上了一下bbs后又接著睡，從1點睡到2點10分的時候被鬧鐘吵醒了，太faint了，今天居然忘了關鬧鐘，迷迷糊糊中以為是有人call我了，沒管什么，直接按了C鍵，繼續睡覺，睡到了3點才起來，起來后感覺還是比較疲憊，汗，好久都沒這么好好的休息了，哈哈~~~~~~
??????7月的最后一天了，時間真的是猶于白駒過隙，一去就不復返了，這個月什么事都沒做好，總想做點什么，但是到最后總是沒做好，sigh......addoil，也許我還年輕，我還要繼續努力，將奮斗進行到底！今天上午8點半繼續大機課，第二階段COBOL，呵呵，和師兄們一起，體驗學習IBM的大型機。
先解釋一下：st155是我們的很牛的lightning同學
????????????st173是我們的很牛的Moment同學
呵呵~~~~~
研二版：
st155(16414556)?17:08:19
事啊，我研二
ST171潘亮(258138703)?17:09:13
師兄啊
徐超?ST182(18303965)?17:09:18
??？你就是傳說中的JAVA版的斑竹？
st155(16414556)?17:09:21
st155
st155(16414556)?17:09:23
我都做完了，歡迎大家看
博一版：
st163(13238436)?17:08:19
事啊，我博一
ST171潘亮(258138703)?17:09:13
師兄啊???????????????????????????????????????????????????????????????????????????
徐超?ST182(18303965)?17:09:18????????????????????????????????????????????????????
?。磕憔褪莻髡f中的JAVA版的板斧？?????????????????????????????????????????????????
st163(13238436)?17:09:21?????????????????????????????????????????????????????????
st163????????????????????????????????????????????????????????????????????????????
st163(13238436)?17:09:23?????????????????????????????????????????????????????????
我都做完了，歡迎大家看?????
終于有helloworld的實力了，哈哈
?000001?//ST155XX?JOB?,'LIGHTNING',MSGLEVEL=(1,1),MSGCLASS=C,CLASS=C,
?000002?//?NOTIFY=ST155
?000003?//STEP1?EXEC?PGM=IEBGENER
?000004?//SYSPRINT?DD?SYSOUT=*
?000005?//SYSUT1?DD?*
?000006?43521???JESSE?JAMES????00230000200006STO?
?000007?43522???MARY?MCGUIRE???01300001300000NET
?000008?43523???GEORGE?JONES???00829300870805STO
?000009?43524???MARTHA?STEWART?02112702060607CAT
?000010?43525???LORI?LUNDY?????00495300500004NET
?000011?43526???JOHN?CANDY?????04276504276507CAT?
?000012?43527???RICHARD?GREEN??00132500200005STO
?000013?43528???BEV?CRUSHER????15899915699900NET
?000014?43529???G.G.?LIDDY?????00399500427507STO
?000015?43530???HENRY?FONDA????00594500550008STO
?000016?43531???BRENDA?WALLS???00949901100000NET?
?000017?43532???GENIE?BOYD?????00099500100007CAT
?000018?43533???BON?SCOTT??????00149500158506STO
?000019?//SYSUT2?DD?DSN=ST155.SRC.ALL,DISP=(,CATLG),VOL=SER=USER02,
?000020?//?SPACE=(TRK,(2,1)),RECFM=FB,LRECL=80,DSORG=PS,UNIT=3390?
?000021?//SYSIN?DD?DUMMY
?000022?//ST155PPP?JOB?,'LIGHTNING',MSGLEVEL=(1,1),MSGCLASS=C,
?000023?//?CLASS=C,NOTIFY=ST155
?000024?//STEP2?EXEC?PGM=IEBGENER
?000025?//SYSPRINT?DD?SYSOUT=*
?000026?//SYSUT1?DD?DSN=?ST155.SRC.ALL,DISP=(OLD),UNIT=3390
?000027?//SYSUT2?DD?DSN=ST155.ALLFOLD,DISP=(,CATLG),SPACE=(TRK,(10,5,20)),
?000028?//?LRECL=80,RECFM=FB,VOL=SER=USER02,UNIT=3390,DSORG=PO
?000029?//SYSIN?DD?*
?000030???GENERATE?MAXNAME=3,MAXGPS=2?
?000031???MEMBER?NAME=MEM1
?000032??????????RECORD?IDENT=(5,'43524',1)
?000033???MEMBER?NAME=MEM2
?000034??????????RECORD?IDENT=(5,'43530',1)
?000035???MEMBER?NAME=MEM3
?000036?//ST155PTP?JOB?,'LIGHTNING',MSGLEVEL=(1,1),MSGCLASS=B,?
?000037?//?CLASS=B,NOTIFY=ST155
?000038?//STEP3?EXEC?PGM=IEBPTPCH
?000039?//SYSPRINT?DD?SYSOUT=*
?000040?//SYSUT1?DD?DSN=ST155.ALLFOLD,DISP=(OLD),UNIT=3390
?000041?//SYSUT2?DD?SYSOUT=*
?000042?//SYSIN?DD?*?
?000043???PRINT?MAXNAME=3,MAXFLDS=3,TYPORG=PO
?000044???MEMBER?NAME=MEM1
?000045???MEMBER?NAME=MEM2
?000046???MEMBER?NAME=MEM3
嘿嘿，helloworld：
000001?//ST155XX?JOB?,'LIGHTNING',MSGLEVEL=(1,1),MSGCLASS=C,CLASS=C,
?000002?//?NOTIFY=ST155
?000003?//STEP1?EXEC?PGM=IEBGENER
?000004?//SYSPRINT?DD?SYSOUT=*
?000005?//SYSUT1?DD?*
?000006?????????????HELLO?WORLD!
?000007????????HAHAHAHAHAHAHAHAHAHHAHA
?000008????????IIIIIIIIIIIIIIIIIIIIIIII
?000009?????????????????IIIIIII
?000010?????????????????IIIIIII??????????????S
?000011?????????????????IIIIIII
?000012?????????????????IIIIIII
?000013?????????????????IIIIIII
?000014?????????????????IIIIIII
?000015??????IIIIIIIIIIIIIIIIIIIIIIIIIIIII
?000016?//SYSUT2?DD?DSN=ST155.TEST.ABC,DISP=(,CATLG),VOL=SER=USER02,
?000017?//?SPACE=(TRK,(2,1)),RECFM=FB,LRECL=80,DSORG=PS,UNIT=3390
?000018?//SYSIN?DD?DUMMY
看了tdy的日志，覺得太便宜，像小學生議論文一樣，而且總是我們我們，但實際并沒有給我當頭一棒，我也沒有那種感受，是不是一桿子全打翻逃避問題呢？自己都不了解自己人的情況下亂發議論，會讓其他人覺得話不是這么說，反映不了真實情況和心態，有點假。。。
對于技術，我個人認為從來都是不卑不亢的，更不會盲目自信，我的體會，在實際技術問題前面，唯一的審判官是現實，沒有更多的感受，不是你生氣沮喪激動痛苦這些非理性的東西能夠改變的。何況我們每個人各有各的特點，技術能力等方面更不可一概而論，真的任務來了，在很多地方都有協調和把握的問題，有的人負擔可能過重，有的人可能需要培養才能達到狀況，所以對所有人輕易的下結論，不僅是對團隊其他人不公平，也是對自己不公平。
另外不需要存在什么一定要有的某種簡單托辭——“是我們不認真導致了一切”來對過去做一個敷衍的總結，這種總結沒有任何意義，不如不總結，因為make?nonsense。有問題不是拿個說法蓋棺論定就解決的，問題總在那里，除非你真的了解它，去解決它。由于第一次的經驗，恰恰能夠更了解每個人的特點，具體事情具體方法。認真不認真表面看不出來，要看做事的時候的表現，如果板著臉就能贏得比賽，那是苦瓜臉比賽。
這幾天每天幾乎都是全日制的上課，上午在西十二聽課，下午到軟件學院上機，tdy這兩天上午都沒過來，下午來上機，不過這些只要一動手，掌握得就很快，今天我們在大機終端上互相發消息聊天，概念確實太多，而且心里總有種不甘的感覺，學了兩天了，還不能寫個helloworld。只是ispf里面創建數據集阿，增加拷貝移動成員阿，編輯刪除復制粘貼阿，今天學了點jcl，用DD實現數據集的建立，基本上是教一點會一點，不過動手能力強的人學起來確實有優勢，可以帶動所有的人快速掌握。
昨天下午lw說，上一天的課就覺得累了，老了老了
???這次會議主要是每個隊伍介紹一下自己的選題，也許這次會議并沒有什么好記錄的，但是唯一給我印象很深的是老師那番語重心長的話。
????聽完我們對的選題說明以及介紹，老師當時隨便問簡單地了一些關于題目，然后語重心長的對我們說：“我完全相信你們的技術，這個做出來是完全沒什么問題的，但是你們到底最后能否拿獎呢？我覺得你們更多需要的是一種態度，認真的態度！”
?????是啊，老師的話就好象給我們當頭一擊，也許上次SOA的比賽我們就輸在了態度問題上，我們并沒有那么認真！大部分的時間都在那嘻嘻哈哈的，看看別人的隊伍，多么的認真，跌倒了，可以再爬起來，但是我們絕不能在同一個地方跌倒第2次?？纯唇裉?，學弟們的準備都是那么的充分，做的ppt也是那么的認真，也許他們并不能完全實現自己的方案，但他們的這種認真的態度是很值得我們學習的！記得毛主席說過“世上只怕認真二字”，是啊，只要我們認真的去準備，認真的去做，以這種態度和精神走下去，又何必在乎最后的結果呢，失敗了又有何妨呢？
?????也許過程比結果更重要，因為過程給了我們一種態度和精神，一種永遠永遠都不會出現在結果中的態度和精神！
?????加油吧，拼搏吧，相信我們，認真的走下去！
pampas回家了，不過后來知道他被洪水阻擋了。
我們到ibm中心，我很主動地打開了機器，后來我們幾個人都開機了，被王老師批了，一為我們未經允許開機，二為我們沒有告訴她pampas回家了，我看著王老師的眼睛，卻不覺得有很多愧疚感，似乎我美劇看多了吧，不喜歡這樣那樣的規則，除非真地了解其緣由。
后來跟lw議論，我覺得年輕人不該有太多既定框框，雖然他也同意，但是他說像我們這么大的人去了公司，差不多上面已經不允許我們犯錯了。我說還是要找到適合自己的位置阿。
心想，正如去美國的tang跟我說的，年輕沒幾年了，不要一直壓抑著，趕快做點自己喜歡的事情。
我們經過討論，決定我們做銀行的，lw他們做證券的，這樣也不會看到一樣的被砍掉一個隊。
吳老師也表達了他的擔心，我們大機方面沒有基礎，時間問題，然后銀行之類的，評委很容易問倒我們。
但是我和lw都覺得，我們以往見到的比賽，學生不可能做到那么現實和專業，其實主要是還是一種炒作，多種技術的結合，華麗的外表，就夠了。
雖然據說大機學習還是很耗時間，但是接觸接觸不是壞事，這甚至比得個獎的意義更大，我想hh，還有我小姨，爸都是銀行的，這方面只有要個別做到比較專業就差不多了吧。
還沒有用心開始找金融的同學，只是在武大群上喊了一嗓子，不知道能否加人，名都報上去了。不加的話，人家憑什么幫我們呢。
我和劉偉沖到ibm中心，吳老師跟我們談那兩個給我們定的題目，總體跟之前說的一樣，主要突出我們的長處。
一個是數據挖掘，一個是外掛似的，之前tdy給眾老師去了郵件，表達了他對這兩個題目的看法，跟吳老師的相去甚遠，不過他積極的行動方式受到了眾老師的青睞。
后來我跟lw根王老師一起聽大二的同樣參加主機大賽本科4人團隊討論他們的題目，他們學過cobol，但是別的也沒有學過，其實看來我們的差距并不是很大，不過我覺得雖然只有大二，但他們團隊很有樣子，暑假也都不回家在這里比賽，很有激情，也都很聰明！
我們看到了ibm的規則和要求還有評委列表，據王老師介紹，很多都是給他們培訓的。。。而且據說要在大機上現場演示。不過想想，給王老師他們培訓的人來評我們這些跟著王老師他們一輩教出來的學生，就是師祖評徒孫阿。。。
我們考慮了一下，覺得我們還是應該換題，還是要搞大機mis，因為根據ibm的風格和上次的教訓，覺得似乎這種選擇更合宜。
一伙人沖到ibm中心，王老師讓我給她帶炒面，本來是包子，在我一再詢問包子就行了嗎的情況下，王芬老師終于改主意對自己好點選擇炒面，我就買了炒面和一個包子，libo說一看就是沒有談過女生的，mm怎么吃得了這么多。我說王老師這種高能型的mm消耗大，這點絕對不是問題。事情果然如果所料。。。
王老師正在給學生講解他那個錯誤，那個終端極其簡陋，80x24，好像全是大寫字母，每一行前面都是看不懂的數字代號，然后好像分析了很多才得出某部分代碼寫錯了的結論，看來這種古老而原始的東西確實有夠麻煩，后來我上去體驗了一把，總體感覺是不好用。
王老師告訴我們根據我們兩個隊的特點給我們定了兩個題目，一個日志分析，一個在線幫助，突出我們的長處，隱藏我們的弱處，我們弱處就是根本沒有碰過大機，據王老師說搞這個東西確實很枯燥，說像我這么跳的人是肯定不適合的，不過我還是像嘗試一把，借著培訓的機會學這么一套東西。喜不喜歡也要學過才知道啊。
?
第一次會議概要
為了更好的推進主機大賽，學校IBM中心定于2006年7月10日上午9:00在IBM技術中心202實驗室開會。由于開會的那天凌晨2點世界杯決賽，呵呵，意大利vs法國，我們當時看球賽就看到了5點多，后來早上沒能及時到那里去，大概遲到了1個多小時?
?按要求是每個對都要做報告介紹一下自己對的選題及隊員情況的，當時做報告的ppt事先也沒怎么認真準備，到IBM中心后發現我們隊一個人都沒去，哈哈，只看到Julyforce的2個人在最后面，沒精打采的，估計也是剛去那邊不久。后來聽了一個隊伍的報告，覺得他們講的也蠻簡單的，我的心理也就不那么慌了，畢竟我做了ppt，呵呵。那個隊伍講完后，老師就問我們隊伍來了沒，估計那個是最后一個隊伍了，然后我們又是第一個，于是我就上去將我們的情況簡單的描述了一番。后來我們隊的指導老師仔細的問了一下我們隊的選題情況，說實話，在這之前我們也只是碰了個頭，簡單的討論了一下選題?
?
????后話：SOA比賽失敗了，我覺得我們應該仔細的思考一下了，其實我們的確有些地方做的不夠。首先在寫文檔上就比別人晚了許多，然后平時在一起討論的也不夠深入，和指導老師的溝通也不夠。希望我們能在以后的比賽中克服以上不足的地方，認認真真的好好的做一下，相信付出是有收獲的！