还剩2页未读,继续阅读
文本内容:
库存零件管理系统COBOL程序代码表示如下IDENTIFICATIONDIVISION.PROGRAM-ID.COBZUOYE.ENVIRONMENTDIVISION.INPUT-OUTPUTSECTION.FILE-CONTROL.SELECTINVENTORY-FILEASSIGNTOINV-DATA.SELECTREPORT-FILEASSIGNTOP-FILE.DATADIVISION.FILESECTION.FDINVENTORY-FILELABELRECORDISSTANDARD.01PART-RECORD.02PART-NUMBERPIC
94.02QTY-ON-HANDPIC
94.02PRICE-EACHPIC99V
99.FDREPORT-FILELABELRECORDISSTANDARD.01REP-LINE.02FILLERPICX.02REP-RECPICX
80.WORKING-STORAGESECTION.01PAGE-HEADING-LINE.02FILLERPICX20VALUESPACE.02FILLERPICX16VALUEINVENTORYREPORT.01COLUMN-HEADING-LINE.02FILLERPICX.02FILLERPICX8VALUEPARTNUM.02FILLERPICX5VALUESPACES.02FILLERPICX16VALUEQUANTITYONHAND.02FILLERPICX5VALUESPACES.02FILLERPICX10VALUEPRICEEACH.02FILLERPICX5VALUESPACES.02FILLERPICX6VALUEAMOUNT.01END-OF-JOB-LINE.02FILLERPICX23VALUESPACES.02FILLERPICX16VALUEENDOFREPORT.01DETAIL-LINE.02FILLERPICX3VALUESPACES.02PART-NUMBERPIC
94.02FILLERPICX13VALUESPACES.02QTY-ON-HANDPICZ
4.02FILLERPICX13VALUESPACES.02PRICE-EACHPIC
999.
99.02FILLERPICX4VALUESPACES.02INVENTORY-VALUEPIC
97.
99.PROCEDUREDIVISION.OPEN-LINE.OPENINPUTINVENTORY-FILEOUTPUTREPORT-FILE.MOVESPACETOREP-LINE.O-HEADING-LINE.WRITEREP-LINEFROMPAGE-HEADING-LINEAFTER
1.WRITEREP-LINEFROMCOLUMN-HEADING-LINEAFTER
2.MOVESPACESTOREP-LINE.WRITEREP-LINEAFTER
1.READ-RECORD.READINVENTORYFILEATENDGOTOJOB-END.MULTIPLYQTY-ON-HANDOFPART-RECORDBYPRICE-EACHOFPART-RECORDGIVINGINVENTORY-VALUE.MOVECORRPART-RECORDTODETAIL-LINE.WRITEREP-LINEFROMDETAIL-LINEAFTER
1.GOTOREAD-RECORD.JOBEND.WRITEREP-LINEFROMEND-OF-JOB-LINEAFTER
2.CLOSEINVENTORY-FILEREPORT-FILE.STOPRUN.JCL语句输入数据00001WANGXIAOTA0001M10000YX00002ZHANGMING0002F9900YX00003MENGZHENG0003F8900YX输入程序如下图所示SHUREU输入JCL语句如下所示执行程序如下图所示MAXCC=0建立表,对表中数据初始化,如下图所示。