语源科技BlogJava-红茶团队

追梦人

tdy — Wed, 09 Aug 2006 04:56:00 GMT

让青春吹动了你的长发让它牵引你的梦
不知不觉这红尘的历史已记取了你的笑容
红红心中蓝蓝的天是个生命的开始
春雨不眠隔夜的你曾空独眠的日子

让青春娇艳的花朵绽开了深藏的红颜
飞去飞来的满天的飞絮是幻想你的笑颜
秋来春去红尘中谁在宿命里安排
冰雪不语寒夜的你那难隐藏的光彩

看我看一眼吧莫让红颜守空枕
青春无悔不死永远的爱人

让流浪的足迹在荒漠里写下永久的回忆
飘去飘来的笔迹是深藏激情你的心语
前尘后世轮回中谁在宿命里徘徊
痴情笑我凡俗的人世终难解的关怀

突然听到了这首很老的歌，呵呵，感觉我们每个人都是一个追梦人，每个人心中都有那么一些梦想，从小时候到现在，不论是爱情亦或是别的。也许我们要耗尽整个青春才能实现我们心中的梦想，但是我们绝不会后悔，因为我们那种青春的激情和奋斗拼搏的精神是永存的！

tdy 2006-08-09 12:56 发表评论

仙剑奇侠传3外传问情篇诗歌之一剪梅

lightning — Thu, 03 Aug 2006 13:08:00 GMT

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

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

lightning 2006-08-03 21:08 发表评论

大机培训继续，两团队仅三人坚持学习大机

lightning — Thu, 03 Aug 2006 11:28:00 GMT

大机学习进行到第二周，只有我，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来退出。。。比如刚才我就是如此。。。

lightning 2006-08-03 19:28 发表评论

17种家常菜竟然是健康杀手(大家注意了，呵呵)(转载)-原为tdy发表

lightning — Thu, 03 Aug 2006 11:10:00 GMT

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、菠菜豆腐羹（菠菜＋豆腐）：豆腐里含有氯化镁、硫酸钙这两种物质，而菠菜中
则含有草酸，两种食物遇到一起可生成草酸镁和草酸钙，不能被人体吸收。

lightning 2006-08-03 19:10 发表评论

大话西游(COBOL版)-原为tdy发表

lightning — Thu, 03 Aug 2006 11:09:00 GMT

今天COBOL课上彭老师突然来了一段大话西游，COBOL版，太赞了，发出来大家见识一下，呵呵。
曾经有这么一个COBOL语句摆在我的面前，可惜我上课的时候没听，考试的时候考到了，但是不会做，后悔莫及。。。。。。如果老天在给我一次机会，我一定在上课的时候不睡觉，认真听讲，搞懂那个诡异的COBOL语句 screen.width/2)this.style.width=screen.width/2;" border="0" />

lightning 2006-08-03 19:09 发表评论

今天七夕，呵呵~~~~~`-原为tdy发表

lightning — Thu, 03 Aug 2006 11:08:00 GMT

  已经1点了，31号了，7月的最后一天了，七夕，中国的情人节，祝福一下，希望有情人都成眷属，有点俗气screen.width/2)this.style.width=screen.width/2;" border="0" />
     蛮奇怪，30号上午到下午都登陆不进blogcn，本来想来发发酸的，呵呵，可能是人品问题吧，始终都登不近来，sigh......
     30号休息，好久都没有这样的假期了，从7月初准备考试到考试完了实习到上大机一直到30号终于可以好好的放松一下了，上午疯狂的睡了一把，到10点多才起来，因为beta过来了，呵呵，不好意思不起床了，然后到11点多吃完饭后上了一下bbs后又接着睡，从1点睡到2点10分的时候被闹钟吵醒了，太faint了，今天居然忘了关闹钟，迷迷糊糊中以为是有人call我了，没管什么，直接按了C键，继续睡觉，睡到了3点才起来，起来后感觉还是比较疲惫，汗，好久都没这么好好的休息了，哈哈~~~~~~
      7月的最后一天了，时间真的是犹于白驹过隙，一去就不复返了，这个月什么事都没做好，总想做点什么，但是到最后总是没做好，sigh......addoil，也许我还年轻，我还要继续努力，将奋斗进行到底！今天上午8点半继续大机课，第二阶段COBOL，呵呵，和师兄们一起，体验学习IBM的大型机。

lightning 2006-08-03 19:08 发表评论

大机课上某人“卖弄”，哈哈-原为tdy发表

lightning — Thu, 03 Aug 2006 11:07:00 GMT

先解释一下：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
我都做完了，欢迎大家看

lightning 2006-08-03 19:07 发表评论

两天学习，jcl现在的成果，嘿嘿-原为lightning发表

lightning — Thu, 03 Aug 2006 11:06:00 GMT

终于有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

lightning 2006-08-03 19:06 发表评论

大机学习中。。。-原为lightning发表

lightning — Thu, 03 Aug 2006 11:05:00 GMT

看了tdy的日志，觉得太便宜，像小学生议论文一样，而且总是我们我们，但实际并没有给我当头一棒，我也没有那种感受，是不是一杆子全打翻逃避问题呢？自己都不了解自己人的情况下乱发议论，会让其他人觉得话不是这么说，反映不了真实情况和心态，有点假。。。
对于技术，我个人认为从来都是不卑不亢的，更不会盲目自信，我的体会，在实际技术问题前面，唯一的审判官是现实，没有更多的感受，不是你生气沮丧激动痛苦这些非理性的东西能够改变的。何况我们每个人各有各的特点，技术能力等方面更不可一概而论，真的任务来了，在很多地方都有协调和把握的问题，有的人负担可能过重，有的人可能需要培养才能达到状况，所以对所有人轻易的下结论，不仅是对团队其他人不公平，也是对自己不公平。
另外不需要存在什么一定要有的某种简单托辞——“是我们不认真导致了一切”来对过去做一个敷衍的总结，这种总结没有任何意义，不如不总结，因为make nonsense。有问题不是拿个说法盖棺论定就解决的，问题总在那里，除非你真的了解它，去解决它。由于第一次的经验，恰恰能够更了解每个人的特点，具体事情具体方法。认真不认真表面看不出来，要看做事的时候的表现，如果板着脸就能赢得比赛，那是苦瓜脸比赛。

这几天每天几乎都是全日制的上课，上午在西十二听课，下午到软件学院上机，tdy这两天上午都没过来，下午来上机，不过这些只要一动手，掌握得就很快，今天我们在大机终端上互相发消息聊天，概念确实太多，而且心里总有种不甘的感觉，学了两天了，还不能写个helloworld。只是ispf里面创建数据集阿，增加拷贝移动成员阿，编辑删除复制粘贴阿，今天学了点jcl，用DD实现数据集的建立，基本上是教一点会一点，不过动手能力强的人学起来确实有优势，可以带动所有的人快速掌握。

昨天下午lw说，上一天的课就觉得累了，老了老了screen.width/2)this.style.width=screen.width/2;" border="0" />

lightning 2006-08-03 19:05 发表评论

7月23号会议心得-原为tdy发表

lightning — Thu, 03 Aug 2006 11:05:00 GMT

   这次会议主要是每个队伍介绍一下自己的选题，也许这次会议并没有什么好记录的，但是唯一给我印象很深的是老师那番语重心长的话。
    听完我们对的选题说明以及介绍，老师当时随便问简单地了一些关于题目，然后语重心长的对我们说：“我完全相信你们的技术，这个做出来是完全没什么问题的，但是你们到底最后能否拿奖呢？我觉得你们更多需要的是一种态度，认真的态度！”
     是啊，老师的话就好象给我们当头一击，也许上次SOA的比赛我们就输在了态度问题上，我们并没有那么认真！大部分的时间都在那嘻嘻哈哈的，看看别人的队伍，多么的认真，跌倒了，可以再爬起来，但是我们绝不能在同一个地方跌倒第2次。看看今天，学弟们的准备都是那么的充分，做的ppt也是那么的认真，也许他们并不能完全实现自己的方案，但他们的这种认真的态度是很值得我们学习的！记得毛主席说过“世上只怕认真二字”，是啊，只要我们认真的去准备，认真的去做，以这种态度和精神走下去，又何必在乎最后的结果呢，失败了又有何妨呢？
     也许过程比结果更重要，因为过程给了我们一种态度和精神，一种永远永远都不会出现在结果中的态度和精神！
     加油吧，拼搏吧，相信我们，认真的走下去！

lightning 2006-08-03 19:05 发表评论

第三次概要(写作业似的。。。)-原为lightning发表

lightning — Thu, 03 Aug 2006 11:02:00 GMT

我和刘伟冲到ibm中心，吴老师跟我们谈那两个给我们定的题目，总体跟之前说的一样，主要突出我们的长处。
一个是数据挖掘，一个是外挂似的，之前tdy给众老师去了邮件，表达了他对这两个题目的看法，跟吴老师的相去甚远，不过他积极的行动方式受到了众老师的青睐。
后来我跟lw根王老师一起听大二的同样参加主机大赛本科4人团队讨论他们的题目，他们学过cobol，但是别的也没有学过，其实看来我们的差距并不是很大，不过我觉得虽然只有大二，但他们团队很有样子，暑假也都不回家在这里比赛，很有激情，也都很聪明！
我们看到了ibm的规则和要求还有评委列表，据王老师介绍，很多都是给他们培训的。。。而且据说要在大机上现场演示。不过想想，给王老师他们培训的人来评我们这些跟着王老师他们一辈教出来的学生，就是师祖评徒孙阿。。。
我们考虑了一下，觉得我们还是应该换题，还是要搞大机mis，因为根据ibm的风格和上次的教训，觉得似乎这种选择更合宜。

lightning 2006-08-03 19:02 发表评论

第二次会议概要-原为lightning发表

lightning — Thu, 03 Aug 2006 11:01:00 GMT

一伙人冲到ibm中心，王老师让我给她带炒面，本来是包子，在我一再询问包子就行了吗的情况下，王芬老师终于改主意对自己好点选择炒面，我就买了炒面和一个包子，libo说一看就是没有谈过女生的，mm怎么吃得了这么多。我说王老师这种高能型的mm消耗大，这点绝对不是问题。事情果然如果所料。。。
王老师正在给学生讲解他那个错误，那个终端极其简陋，80x24，好像全是大写字母，每一行前面都是看不懂的数字代号，然后好像分析了很多才得出某部分代码写错了的结论，看来这种古老而原始的东西确实有够麻烦，后来我上去体验了一把，总体感觉是不好用。
王老师告诉我们根据我们两个队的特点给我们定了两个题目，一个日志分析，一个在线帮助，突出我们的长处，隐藏我们的弱处，我们弱处就是根本没有碰过大机，据王老师说搞这个东西确实很枯燥，说像我这么跳的人是肯定不适合的，不过我还是像尝试一把，借着培训的机会学这么一套东西。喜不喜欢也要学过才知道啊。

lightning 2006-08-03 19:01 发表评论

第一次会议纪要-原为tdy发表

lightning — Thu, 03 Aug 2006 11:00:00 GMT

第一次会议概要

为了更好的推进主机大赛，学校IBM中心定于2006年7月10日上午9:00在IBM技术中心202实验室开会。由于开会的那天凌晨2点世界杯决赛，呵呵，意大利vs法国，我们当时看球赛就看到了5点多，后来早上没能及时到那里去，大概迟到了1个多小时 screen.width/2)this.style.width=screen.width/2;" border="0" /> 按要求是每个对都要做报告介绍一下自己对的选题及队员情况的，当时做报告的ppt事先也没怎么认真准备，到IBM中心后发现我们队一个人都没去，哈哈，只看到Julyforce的2个人在最后面，没精打采的，估计也是刚去那边不久。后来听了一个队伍的报告，觉得他们讲的也蛮简单的，我的心理也就不那么慌了，毕竟我做了ppt，呵呵。那个队伍讲完后，老师就问我们队伍来了没，估计那个是最后一个队伍了，然后我们又是第一个，于是我就上去将我们的情况简单的描述了一番。后来我们队的指导老师仔细的问了一下我们队的选题情况，说实话，在这之前我们也只是碰了个头，简单的讨论了一下选题 screen.width/2)this.style.width=screen.width/2;" border="0" />
后话：SOA比赛失败了，我觉得我们应该仔细的思考一下了，其实我们的确有些地方做的不够。首先在写文档上就比别人晚了许多，然后平时在一起讨论的也不够深入，和指导老师的沟通也不够。希望我们能在以后的比赛中克服以上不足的地方，认认真真的好好的做一下，相信付出是有收获的！

lightning 2006-08-03 19:00 发表评论

开始搬运

lightning — Thu, 03 Aug 2006 10:48:00 GMT

搬运了阿

lightning 2006-08-03 18:48 发表评论

我们几个都写在blogcn上了，这里只有李博一个人在写，汗...............

tdy — Fri, 28 Jul 2006 12:14:00 GMT

哈哈，到时候我们把2个blog合一下就可以了。

tdy 2006-07-28 20:14 发表评论

所谓的“大型机”

李博博 — Tue, 25 Jul 2006 15:30:00 GMT

学习大型机两天了，每天都在忙碌着吸取这一新领域的知识
虽然辛苦，也好是蛮多收获的。记得，初次通过终端登入主机，一切都是那么新鲜，和陌生。经过一阵的忙乱，也开始对整个系统有了自己的理解。系统虽然使用没有window那么方便好用，但是整个系统的缜密性还是让我有了新的认识
明天就要看实际的大机，虽然一直以来都是远程登录，但明天的近距离接触，我还是充满着期待

李博博 2006-07-25 23:30 发表评论

大机课要开了

李博博 — Sun, 23 Jul 2006 14:59:00 GMT

序号	课程	时间安排
1	.IBM 主机操作系统概述	7 月 24 日－ 7 月 29 日
2	COBOL for MVS Coding Fundamentals	7 月 31 日－ 8 月 5 日
3	CICS transaction Server for OS/390 Introduction SDF II for MVS	8 月 6 日－ 8 月 11 日
4	DB2 Application Programming	8 月 13 日－ 8 月 18 日
7	综合实验	8 月 19 日－ 8 月 23 日

明天就要开始忙碌的课程听讲了。
从很早之前就听到过学校的S390，但一直都是徘徊在她的身边，未敢亲临。终于，暑假有了这次和她之间的亲密接触，心里还是激动和荣幸的。
虽说，一个月的课程很多，需要学的也很累，但我坚信这样的暑假是充实的。
好了，明天早起站位去...

李博博 2006-07-23 22:59 发表评论

喝酒...

李博博 — Thu, 20 Jul 2006 15:47:00 GMT

学生生活的惬意就是可以随时找出一些哥们儿去海喝一把

这种方式不像社会上的社交应酬，纯粹为了自娱自乐，可以喝得酣畅淋漓。今天算是我们几个哥们儿第二次坐在一起端起酒杯了，其实喝酒更多的是找个空间和时间大家一起聊聊。往往聊得东西更能拉近彼此之间的距离

刘伟来自于陕西宝鸡，一个纯粹的北方兄弟，很能侃。从他的口中可以听到很多奇闻轶事。今天还是头回听他讲他高中的经历，一个血雨腥风的年代。谁能想到这小子原来也曾混迹一方，高中就有赌钱的历史，听得我们一愣一愣的，高潮莫过于说起他赌钱抽老千的经历。这些都和他斯文的外表形成鲜明的对比。

老黄，Java版的版大，为人比较腼腆和孩子气。说得最多也是高中的光辉岁月，言语中也涉及到了诸多妹妹，哈哈，年轻人的谈论往往会提到些许昔时的青梅竹马。

我，给他们将了我的goddness——她。好久没有她的音信，也是从去年一个朋友那里知道她已嫁为人妇了，但是还是有一些伤感。在我印象中，她永远是16岁的模样，扎了一个长长的马尾辫，眉前留着刘海。也就是几年前，我还曾曾偷偷送她去火车站，看她上车北上；也偷偷给她说我对她的爱意，其实那时只是让她知道，而非接受。此刻或许，她正在大洋彼岸过她需要的生活，拿着她的dollar。一直期待着，有一天能和她再次相见，像一个老朋友一样叙说儿时的往事

李博博 2006-07-20 23:47 发表评论

酒

tdy — Sun, 16 Jul 2006 13:20:00 GMT

爱喝酒的人说酒是粮食精，越喝越年轻，呵呵，不知道是真的还是假的，暂且认为这是他们为自己喝酒找的一个理由吧 :) 其实有时候想想酒也是一种好东西，高兴的时候想喝，不爽的时候也想喝。高兴的时候要把自己心中的无比喜悦表达出来，就大口大口的喝，来者不拒，一口一口的喝，最后笑着倒下 :)不爽的时候希望自己把不爽的事情忘掉，希望自己能麻木一点，也要大口大口的喝，而且要拉着别人喝，边说边倾诉，呵呵，最后迷迷糊糊的嘴里说着一些自己都不知道的东西就倒下了 :) 今天我们几个人也去喝酒了，呵呵，但既没有什么高兴的事也没有什么不爽的事，就几个人聚集在一起喝啊，侃啊，呵呵，就像是久别重逢的兄弟一样，那种感觉那种气氛真的让人感觉很爽，呵呵。也许酒精的作用并不只是用来麻痹神经的吧，至少“一壶浊酒喜相逢，古今多少事都付谈笑中”，也许以前的所有事都并不重要，因为我们付出了自己的努力和精力，虽然失败并不是我们所期望的，但是我们会吸取经验教训，绝不会在跌倒的地方再次跌倒！ Blacktea, we think, we do, and we make it!

tdy 2006-07-16 21:20 发表评论