COBOL上機(jī)-HELLO文件拷貝

《COBOL商業(yè)編程技術(shù)》1時(shí)間2023年月 日成績(jī)1試驗(yàn)要求：LOLSYSINInstreamData或者通過和用戶交互來實(shí)現(xiàn)數(shù)據(jù)的輸入。程序?qū)崿F(xiàn)文件的簡(jiǎn)潔復(fù)制。試驗(yàn)步驟及結(jié)果：LAB1COBOL源程序的編譯連接。以運(yùn)行編譯好的程序成功運(yùn)行，結(jié)果輸出如下LAB2COBOL源程序如下IDENTIFICATIONDIVISION.PROGRAM-ID.CALC1000.*DIVISION.INPUT-OUTPUTSECTION.*FILESECTION.WORKING-STORAGESECTION.77END-OF-SESSION-SWITCHPICX“N“.77SALES-AMOUNTPIC9(5)V99.77SALES-TAXPICZ,ZZZ.99.*PROCEDUREDIVISION.000-CALCULATE-SALES-TAX.UNTILEND-OF-SESSION-SWITCH=“Y“.DISPLAY“ENDOFSESSION.“.STOPRUN.*100-CALCULATE-ONE-SALES-TAX.DISPLAY“ “.DISPLAY“TOENDPROGRAM,ENTER0.“.DISPLAY“TOCALCULATESALESTAX,ENTERTHESALESAMOUNT.“.ACCEPTSALES-AMOUNT.IFSALES-AMOUNT=ZEROMOVE“Y“TOEND-OF-SESSION-SWITCHELSECOMPUTESALES-TAXROUNDED=SALES-AMOUNT*.0785DISPLAY“SALESTAX=“SALES-TAX.編譯連接運(yùn)行及結(jié)果InstreamData來輸入數(shù)據(jù)。10000、202300000000，所以循3次。具體如圖：9(5)V99,0???LAB3要復(fù)制的數(shù)據(jù)集內(nèi)容如圖：COBOL源程序編寫標(biāo)識(shí)部和環(huán)境部：-文件把握段將源程序內(nèi)部文件和外部文件聯(lián)系起來。SYSPTSYSOPTJCLDD名。數(shù)據(jù)部定義了文件的數(shù)據(jù)格式和用到的參數(shù)DATADIVISION.FILESECTION.FDIN-FILERECORDCONTAINS80CHARACTERSRECORDINGMODEISFDATARECORDISSTU-IN.01STU-IN.05SID PIC9(9).05NON1 PICX.05NAME PICX(6).05NON2 PICX.05GRADE PIC999V9.FDOUT-FILERECORDCONTAINS80CHARACTERSRECORDINGMODEISFDATARECORDISSTU-OUT.01STU-OUT.05SID PIC9(9).05NON1 PICX.05NAME PICX(6).05NON2 PICX.05GRADE PIC999V9.WORKING-STORAGESECTION.77END-SWITCHPICX VALUE“N“.77N PIC99 VALUE ZERO.*過程部編譯連接和運(yùn)行的JCL依次如圖執(zhí)行成功，復(fù)制完成的文件如圖SDSF輸出如下：解答：疑問：為什么N〔copy次數(shù)〕為6？解答：試驗(yàn)心得：通過本次試驗(yàn)把握了—COBOL的源程序根本組成；編譯連接和運(yùn)行的JCL編寫；TSO命令運(yùn)行編譯好的程序；—文件操作的根本要素：OPEN