人世不平一劍消。天上鷹翔，夢里花凋。
胸中塊壘酒難澆，往事迢迢，難舍難拋。
造化無情愛更高。孤雁逐濤，暮暮朝朝。
南飛候鳥北歸巢，旗正飄飄，風正蕭蕭。
這個暑假過得好忙，項目，比賽，開學之后要到來的麻煩，這一切讓我有點亂，與剛讀研的那個暑假比，這個暑假更累，更難過，那個暑假雖然也是比賽，但是心里總報持著一種念像，對即將到來的研究生生活的念像，那個暑假每天晚上去游泳，即便烏云密布，電閃雷鳴，這個暑假晚上回寢室想著趕點項目，很苦，那個野雞小公司做事很不正規打亂仗，搞得人郁悶，錢也拖著。那個暑假最后有了一個好結果，我們得了獎，得了錢，這個暑假呢？我想要更好的結果。
擁有是很好，就怕行囊背不了。華工，為什么對你我感覺一切都是這么功利，為什么你這么缺少寬容與愛，為什么這么麻木刻板，為什么這么讓人喪失人性，讓人對你沒有留戀？
回到現狀，團隊精神，精神沒有人能夠教給你，只有自己領悟。團隊的成員即便不了解其他人，也要努力配合，努力為團隊多做點事情，團隊不是個人的團隊，是大家的團隊！這不是開玩笑說說，這不是大鍋飯！
回到自己，我在想，挑個好點的天氣，好好隨便走走，想想自己喜歡干的事情，然后淡淡的看讓我亂的事情，漠視它，讓自己回復。我還有很多喜歡干的事情需要去做。
大機學習進行到第二周，只有我，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也是那么的認真，也許他們并不能完全實現自己的方案，但他們的這種認真的態度是很值得我們學習的！記得毛主席說過“世上只怕認真二字”，是啊，只要我們認真的去準備，認真的去做，以這種態度和精神走下去，又何必在乎最后的結果呢，失敗了又有何妨呢？
?????也許過程比結果更重要，因為過程給了我們一種態度和精神，一種永遠永遠都不會出現在結果中的態度和精神！
?????加油吧，拼搏吧，相信我們，認真的走下去！