人世不平一剑消。天上鹰翔，梦里花凋。
胸中块垒酒难浇，往事迢迢，难舍难抛。
造化无情爱更高。孤雁逐涛，暮暮朝朝。
南飞候鸟北归巢，旗正飘飘，风正萧萧。
这个暑假过得好忙，项目，比赛，开学之后要到来的麻烦，这一切让我有点乱，与刚读研的那个暑假比，这个暑假更累，更难过，那个暑假虽然也是比赛，但是心里总报持着一种念像，对即将到来的研究生生活的念像，那个暑假每天晚上去游泳，即便乌云密布，电闪雷鸣，这个暑假晚上回寝室想着赶点项目，很苦，那个野鸡小公司做事很不正规打乱仗，搞得人郁闷，钱也拖着。那个暑假最后有了一个好结果，我们得了奖，得了钱，这个暑假呢？我想要更好的结果。
拥有是很好，就怕行囊背不了。华工，为什么对你我感觉一切都是这么功利，为什么你这么缺少宽容与爱，为什么这么麻木刻板，为什么这么让人丧失人性，让人对你没有留恋？
回到现状，团队精神，精神没有人能够教给你，只有自己领悟。团队的成员即便不了解其他人，也要努力配合，努力为团队多做点事情，团队不是个人的团队，是大家的团队！这不是开玩笑说说，这不是大锅饭！
回到自己，我在想，挑个好点的天气，好好随便走走，想想自己喜欢干的事情，然后淡淡的看让我乱的事情，漠视它，让自己回复。我还有很多喜欢干的事情需要去做。
大机学习进行到第二周，只有我，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
啊？你就是传说中的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也是那么的认真，也许他们并不能完全实现自己的方案，但他们的这种认真的态度是很值得我们学习的！记得毛主席说过“世上只怕认真二字”，是啊，只要我们认真的去准备，认真的去做，以这种态度和精神走下去，又何必在乎最后的结果呢，失败了又有何妨呢？
也许过程比结果更重要，因为过程给了我们一种态度和精神，一种永远永远都不会出现在结果中的态度和精神！
加油吧，拼搏吧，相信我们，认真的走下去！