亚洲精品电影天堂网,亚洲欧洲在线播放,亚洲18在线天美

�q�个暑假

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

�q�个暑假�q�得好忙�Q�项目，比赛�Q�开学之后要到来的麻烦，�q�一切让我有点�ؕ�Q�与刚读研的那个暑假比，�q�个暑假更篏�Q�更难过�Q�那个暑假虽然也是比赛，但是心里��L��持着一�U�念像，对即��到来的研究生生�zȝ��念像�Q�那个暑假每天晚上去游泳�Q�即便乌云密布，�?sh��)闪雷鸣�Q�这个暑假晚上回寝室想着赶点��目�Q�很苦，那个野鸡��公司做事很不正规打�׃��Q�搞得�h郁闷�Q�钱也拖着。那个暑假最后有了一个好�l�果�Q�我们得了奖�Q�得了钱�Q�这个暑假呢�Q�我惌��更好的结果�?br />拥有是很好，��怕行囊背不了。华工，��Z��么对你我感觉一切都是这么功利，��Z��么你�q�么�~�少宽容与爱�Q��ؓ什么这么麻木刻板，��Z��么这么让��Z��׃�h性，让�h对你没有留恋�Q?br />回到现状�Q�团队精��，�_��没有��够教�l�你�Q�只有自己领�(zh��n)�。团队的成员即便不了解其他�h�Q�也要努力配合，努力为团队多做点事情�Q�团队不是个人的团队�Q�是大家的团队！�q�不是开玩笑说说�Q�这不是大锅饭！
回到自己�Q�我在想�Q�挑个好点的天气�Q�好好随便走赎ͼ��x��自己喜欢�q�的事情�Q�然后��E淡的看让我�ؕ的事情，漠视它，让自己回复。我�q�有很多喜欢�q�的事情需要去做�?br />

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

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

大机学习�q�行到第二周�Q�只有我�Q�tdy�q�有lw三个��在��l�学习大��Z��。李博博�H�然人间蒸发�Q�julyforce那边杨博和lyf都没有来了�?br />我不喜欢喊口��P��因�ؓ喊口可��张声势居多，对于说的话，立的�a��Q�敢不敢较真呢？
学到�W�二周，每天的联�p�逐步加难�Q�但模式都是一��L��Q�一个数据集输入�q�来�Q�他的布局是怎样的，��d��以后�q�行一定的处理�Q�然后打印到新的数据集里面去�?br />我们�l�箋上大��的几个�h中，lw是最勤勉的，每天都去听课�Q�我是第一周基本都��M��全天�Q�这一周上午都没去�Q�下午直接上机，tdy则相反，上周几乎没去�Q�这周一两次全天。不�q�到下午上机�Q�基本上学的也就搞清楚了。下面脓(chu��ng)一个这几天作业中的一个：
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%

因�ؓ太宽�Q�没有列全�?br />不得不提的是有次我提交了个死循环�Q�害得大家甚臛_��老师堵了半天不能提交作业�Q�我费了好大劲才把这个死循环�l�p掉�?br />那程序基本上参考lw的，不同的是他打到l(f��)og�w�过一劫，我直接打到文件了。。。。。�?br />
用多了大机终端会产生一个毛病，喜欢按F7,F8来翻屏幕�Q�喜�Ƣ按f3来退出。。。比如刚才我��是如此。。�?br />

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

17�U�家常菜竟然是健��h��?大家注意了，呵呵)(转蝲)-原�ؓtdy发表

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

1、葱菇鸡块（鸡肉�Q�芝麻）�Q�芝麻能滋补肝肾�Q�养血生��|�Q�润肠通便�Q�乌发。但与鸡
肉同食会中毒�Q�严重的中毒者会��M��。用甘草水煎服可�ȝ��?br />　　2、麻辣四季豆�Q�大蒜＋大葱�Q�：大蒜大葱都是强烈刺激肠道的食物，一起食用后易出
现腹痛、腹�ȝ��症状�?br />　　3、小��q��蛋拌豆腐�Q�豆腐＋��葱�Q�：�q�个大家应该都知道了吧！
　　4、香蕉酸�Ӟ��香蕉�Q�酸�Ӟ��Q�酸牛奶能降低胆固醇。空腹喝酸奶会因胃内的酸度太�?br />�Q��^酸菌在胃液里很难存活�Q�降低酸奶的保健作用。与香蕉同食则对�w�体健康无益
　　5、红枣带鱼粥�Q�红枣＋��|��葱）�Q�红枣性��^�Q�能滋补脾胃�Q�益气养血�Q�与��D��同食�?br />��D��消化不良�?br />　　6、五香茶叶蛋�Q�茶�Ӟ��鸡蛋�Q�：��茶中含有较多的单宁酸，单宁酸能使物质中的蛋�?br />质变成不易消化的凝固物质�Q�媄响�h体对蛋白质的吸收利用�?br />　　7、黄豆炖猪蹄�Q�猪�y�＋黄豆�Q�：黄豆膳食�U�维中的醛糖酸残基可与猪�y�中的矿物质�?br />成螯合物而干扰或降低��Z��对这些元素的吸收�?br />　　8、青椒牛肝（牛肝�Q�含�l�C的食物）�Q�因��果中的维生素C有很强的�q�原性，很容�?br />被牛肝中的铜��d��氧化�Q�而失�ȝ��理活性�?br />　　9、萝卜炖牛腩�Q�胡萝卜�Q�白萝卜�Q�：胡萝卜含有抗坏血酔R��Q�会破坏白萝卜的�l�生�?br />C�Q��两种萝卜的营��M�h(hu��n)值都大�ؓ降低�?br />　　10、红白萝卜木��x��Q�白萝卜�Q�木耻I��Q�萝卜性��^微寒�Q�具有清热解毒、健胃消食�?br />化痰止咳、顺气利�ѝ��生�z�止渴、补中安脏等功效。需注意萝卜与木耛_��食可能会得皮�?br />�?br />　　11、田螺酿肉（猪肉�Q�田螺）�Q�猪肉酸冷寒腻，田螺大寒�Q�二物同属凉性，易伤肠胃
�Q�因此不宜同食�?br />　　12、西�U�柿烩��^��|��西红柿＋��D��Q�：西红柿中的维生素C会对��D��中的铜元素的析放
产生抑制作用�?br />　　13、黑�p�米鸡（�p�米�Q�鸡�Q�：�p�米的主要功能是温补脾胃�Q�所以一些脾胃亏虚，常常
�Ҏ(gu��)��的�h吃了�Q�能起到很好的治疗效果。但与鸡肉同食会引�v�w�体不适�?br />　　14、红豆冬瓜鲫鱼汤�Q�鲫��|��冬瓜�Q�：鲫鱼性温味甘�Q�和胃补虚，消肿��L��Q�利水�?br />乻I��但若与冬瓜同食会使��n体脱水�?br />　　15、红黄沙拉（黄瓜�Q�西�U�柿�Q�：西红柿含大量�l�生素C�Q�有增强��Z��抉|��力、防��d��
血病、抗感染�{�作用。而黄瓜中含有�l�生素C分解�Ӟ��同食可��其中的维生素C遭到破坏�?br /> 16、酸辣黄瓜拌凉粉�Q�黄瓜＋辣椒�Q�：黄瓜含维生素C分解�Ӟ��会��辣椒中的�l�生素C
遭到破坏�Q�降低其营养价倹{�?br />　　17、菠菜豆腐羹�Q�菠菜＋豆腐�Q�：豆腐里含有氯化镁、硫酔R��q�两�U�物质，而菠菜中
则含有草酸，两种食物遇到一起可生成草酸镁和草酸钙，不能被�h体吸收�?br />

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

大话西游(COBOL�?-原�ؓtdy发表

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

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

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

今天七夕�Q�呵呵~~~~~`-原�ؓtdy发表

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

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

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

大机课上某�h“卖弄”，哈哈-原�ؓtdy发表

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

先解释一下：st155是我们的很牛的lightning同学
            st173是我们的很牛的Moment同学
呵呵~~~~~

研二版：

st155(16414556) 17:08:19
事啊�Q�我研二
ST171潘亮(258138703) 17:09:13
师兄�?br />徐超 ST182(18303965) 17:09:18
啊？你就是传说中的JAVA版的斑竹�Q?br />st155(16414556) 17:09:21
st155
st155(16414556) 17:09:23
我都做完了，�Ƣ迎大家�?br />
博一版：

st163(13238436) 17:08:19
事啊�Q�我博一
ST171潘亮(258138703) 17:09:13
师兄啊                                                                          �?br />徐超 ST182(18303965) 17:09:18
啊？你就是传说中的JAVA版的板斧�Q�                                                �?br />st163(13238436) 17:09:21
st163
st163(13238436) 17:09:23
我都做完了，�Ƣ迎大家看    �?br />

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

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

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

�l�于有helloworld的实力了�Q�哈�?br /> 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

嘿嘿�Q�helloworld�Q?br />
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的日志，觉得太便宜，像小学生议论文一��P��而且��L��我们我们�Q�但实际�q�没有给我当头一��，我也没有那种感受�Q�是不是一杆子全打��逃避问题呢？自己都不了解自己人的情况下�ؕ发议论，会让其他��得话不是�q�么��_��反映不了真实情况和心态，有点假。。�?br />对于技术，我个��Z��来都是不卑不亢的�Q�更不会盲目自信�Q�我的体会，在实际技术问题前面，唯一的审判官是现实，没有更多的感受，不是你生气沮丧激动痛苦这些非理性的东西能够改变的。何冉|��们每个�h各有各的特点�Q�技术能力等斚w��更不可一概而论�Q�真的�Q务来了，在很多地斚w��有协调和把握的问题，有的��担可能过重，有的人可能需要培��L��能达到状况，所以对所有�h��L��的下�l�论�Q�不仅是对团队其他�h不公�q�I��也是对自�׃��公��^�?br />另外不需要存在什么一定要有的某种��单托辞——“是我们不认真导致了一切”来对过��d��一个敷衍的�ȝ��Q�这�U��ȝ��没有��M��意义�Q�不如不�ȝ��Q�因为make nonsense。有问题不是拿个说法盖棺论定��p��决的�Q�问题��d��那里�Q�除非你真的了解它，去解军_��。由于第一�ơ的�l�验�Q�恰恰能够更了解每个人的特点�Q�具体事情具体方法。认真不认真表面看不出来�Q�要看做事的时候的表现�Q�如果板着脸就能赢得比赛，那是苦瓜脸比赛�?br />
�q�几天每天几乎都是全日制的上课，上午在西十二听课�Q�下午到软�g学院上机�Q�tdy�q�两天上午都没过来，下午来上机，不过�q�些只要一动手�Q�掌握得��很快，今天我们在大机终端上互相发消息聊天，概念��实太多�Q�而且心里��L��U�不甘的感觉�Q�学了两天了�Q�还不能写个helloworld。只是ispf里面创徏数据集阿�Q�增加拷贝移动成员阿�Q�编辑删除复制粘贴阿�Q�今天学了点jcl�Q�用DD实现数据集的建立�Q�基本上是教一点会一点，不过动手能力强的人学��h��实有优势，可以带动所有的人快速掌握�?br />
昨天下午lw��_��上一天的译ְ�觉得累了�Q�老了老了screen.width/2)this.style.width=screen.width/2;" border="0" />

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

7�?3号会议心�?原�ؓtdy发表

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

�q�次会议主要是每个队伍介�l�一下自��q��选题�Q�也许这�ơ会议�ƈ没有什么好记录的，但是唯一�l�我印象很深的是老师那番语重心长的话�?br /> 听完我们对的选题说明以及介绍�Q�老师当时随便问简单地了一些关于题目，然后语重心长的对我们��_��“我完全�怿�你们的技术，�q�个做出来是完全没什么问题的�Q�但是你们到底最后能否拿奖呢�Q�我觉得你们更多需要的是一�U�态度�Q�认真的态度�Q��?br /> 是啊�Q�老师的话��好象给我们当头一击，也许上次SOA的比赛我们就输在了态度问题上，我们�q�没有那么认真！大部分的旉��都在那嘻��d��哈的�Q�看看别人的队伍�Q�多么的认真�Q�跌倒了�Q�可以再爬�v来，但是我们�l�不能在同一个地方跌倒第2�ơ。看看今天，学弟们的准备都是那么的充分，做的ppt也是那么的认真，也许他们�q�不能完全实现自��q��Ҏ(gu��)��Q�但他们的这�U�认真的态度是很值得我们学习的！记得毛主席说�q�“世上只怕认真二字”，是啊�Q�只要我们认真的��d��备，认真的去做，以这�U�态度和精��走下去�Q�又何必在乎最后的�l�果呢，��p�|了又有何妨呢�Q?br /> 也许�q�程比结果更重要�Q�因��E�给了我们一�U�态度和精��，一�U�永�q�永�q�都不会出现在结果中的态度和精��！
加��a吧，拼搏吧，�怿�我们�Q�认真的��C��去！

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

亚洲精品电影天堂网,亚洲欧洲在线播放,亚洲18在线天美

�q�个暑假

17�U�家常菜竟然是健��h���?大家注意了，呵呵)(转蝲)-原�ؓtdy发表

大话西游(COBOL�?-原�ؓtdy发表

今天七夕�Q�呵呵~~~~~`-原�ؓtdy发表

大机课上某�h“卖弄”，哈哈-原�ؓtdy发表

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

大机学习中。。�?原�ؓlightning发表

7�?3号会议心�?原�ؓtdy发表

17�U�家常菜竟然是健��h��?大家注意了，呵呵)(转蝲)-原�ؓtdy发表