<rt id="bn8ez"></rt>
<label id="bn8ez"></label>

  • <span id="bn8ez"></span>

    <label id="bn8ez"><meter id="bn8ez"></meter></label>

    軒轅隱天山

    技術(shù)交流

    BlogJava 首頁(yè) 新隨筆 聯(lián)系 聚合 管理
      16 Posts :: 0 Stories :: 5 Comments :: 0 Trackbacks

    大機(jī)學(xué)習(xí)進(jìn)行到第二周,只有我,tdy還有l(wèi)w三個(gè)人還在繼續(xù)學(xué)習(xí)大機(jī)了。李博博突然人間蒸發(fā),julyforce那邊楊博和lyf都沒(méi)有來(lái)了。
    我不喜歡喊口號(hào),因?yàn)楹翱谔?hào)虛張聲勢(shì)居多,對(duì)于說(shuō)的話(huà),立的言,敢不敢較真呢?
    學(xué)到第二周,每天的聯(lián)系逐步加難,但模式都是一樣的,一個(gè)數(shù)據(jù)集輸入進(jìn)來(lái),他的布局是怎樣的,讀入以后進(jìn)行一定的處理,然后打印到新的數(shù)據(jù)集里面去。
    我們繼續(xù)上大機(jī)課的幾個(gè)人中,lw是最勤勉的,每天都去聽(tīng)課,我是第一周基本都去了全天,這一周上午都沒(méi)去,下午直接上機(jī),tdy則相反,上周幾乎沒(méi)去,這周一兩次全天。不過(guò)到下午上機(jī),基本上學(xué)的也就搞清楚了。下面貼一個(gè)這幾天作業(yè)中的一個(gè):
    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%



    因?yàn)樘珜挘瑳](méi)有列全。
    不得不提的是有次我提交了個(gè)死循環(huán),害得大家甚至彭老師堵了半天不能提交作業(yè),我費(fèi)了好大勁才把這個(gè)死循環(huán)給p掉。
    那程序基本上參考lw的,不同的是他打到log躲過(guò)一劫,我直接打到文件了。。。。。。

    用多了大機(jī)終端會(huì)產(chǎn)生一個(gè)毛病,喜歡按F7,F8來(lái)翻屏幕,喜歡按f3來(lái)退出。。。比如剛才我就是如此。。。

    posted on 2006-08-03 19:28 lightning 閱讀(538) 評(píng)論(1)  編輯  收藏

    Feedback

    # re: 大機(jī)培訓(xùn)繼續(xù),兩團(tuán)隊(duì)僅三人堅(jiān)持學(xué)習(xí)大機(jī) 2006-08-09 11:21 tdy
    死循環(huán),呵呵,太厲害了,addoil :)  回復(fù)  更多評(píng)論
      


    只有注冊(cè)用戶(hù)登錄后才能發(fā)表評(píng)論。


    網(wǎng)站導(dǎo)航:
     
    主站蜘蛛池模板: 免费女人高潮流视频在线观看 | 亚洲最大的成人网站| 免费毛片a线观看| 亚洲av成人无码久久精品| 国产一区二区免费视频| 亚洲爱情岛论坛永久| 最近中文字幕大全免费视频| 久久精品国产亚洲av水果派| 91精品国产免费| 亚洲va在线va天堂va手机| 成年在线观看网站免费| 亚洲色精品三区二区一区| 国产伦精品一区二区三区免费下载| 香港一级毛片免费看| 亚洲精品国产综合久久一线| 中文字幕免费观看视频| 久久亚洲精品人成综合网| 无码永久免费AV网站| 国产成人精品久久亚洲高清不卡| 国产成人涩涩涩视频在线观看免费| 国产亚洲精品2021自在线| 亚洲午夜福利AV一区二区无码| 久久精品免费一区二区三区| 久久综合亚洲色HEZYO社区| 四虎www成人影院免费观看| 青娱乐在线免费观看视频| 亚洲va久久久噜噜噜久久男同| 亚洲毛片在线免费观看| 亚洲av无码专区在线电影天堂 | 免费一级毛片在级播放| 在线观看片免费人成视频播放| 91亚洲精品视频| 国产免费黄色大片| 久久久久免费精品国产| 中文字幕亚洲情99在线| 亚洲色婷婷六月亚洲婷婷6月| 亚洲免费网站在线观看| 免费夜色污私人影院网站| 亚洲网红精品大秀在线观看| 免费看美女被靠到爽的视频| 免费精品久久天干天干|