语源科技BlogJava-轩辕隐天山

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

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

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

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

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

这个暑假

lightning — Thu, 03 Aug 2006 12:40:00 GMT

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

lightning 2006-08-03 20:40 发表评论

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

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 发表评论