【正文】 VALUE LAST YTD . 008710 05 FILLER PIC X(20) VALUE AMOUNT PERCENT . 008800 05 FILLER PIC X(36) VALUE SPACE. 008900* 009000 01 CUSTOMERLINE. 009100 05 FILLER PIC X(2) VALUE SPACE. 009101 05 CLBRANCHNUMBER PIC X(2). 009102 05 FILLER PIC X(2) VALUE SPACE. 009103 05 CLBRANCHNAME PIC X(20). 009104 05 FILLER PIC X(4) VALUE SPACE. 009105 05 CLSALESREPNUMBER PIC X(2). 009106 05 FILLER PIC X(4) VALUE SPACE. 009107 05 CLCUSTOMERNUMBER PIC 9(5). 009200 05 FILLER PIC X(2) VALUE SPACE. 009300 05 CLCUSTOMERNAME PIC X(20). 009400 05 FILLER PIC X(3) VALUE SPACE. 009500 05 CLSALESTHISYTD PIC ZZ,. 009600 05 FILLER PIC X(4) VALUE SPACE. 009700 05 CLSALESLASTYTD PIC ZZ,. 009710 05 FILLER PIC X(4) VALUE SPACE. 009720 05 CLCHANGEAMOUNT PIC ZZ,. 009730 05 FILLER PIC X(3) VALUE SPACE. 009740 05 CLCHANGEPERCENT PIC . 009750 05 CLCHANGEPERCENTR REDEFINES CLCHANGEPERCENT PIC X(6). 009800 05 FILLER PIC X(29) VALUE SPACE. 009900* 010000 01 SALESREPTOTALLINE. 010100 05 FILLER PIC X(43) VALUE SPACE. 010110 05 FILLER PIC X(22) VALUE SALESRTP TOTAL. 010200 05 STLSALESTHISYTD PIC $$$,$$. 010300 05 FILLER PIC X(1) VALUE SPACE. 010400 05 STLSALESLASTYTD PIC $,$$$,$$. 010410 05 FILLER PIC X(3) VALUE SPACE. 010420 05 STLCHANGEAMOUNT PIC $$$,$$. 010430 05 FILLER PIC X(3) VALUE SPACE. 010440 05 STLCHANGEPERCENT PIC +++. 010450 05 STLCHANGEPERCENTR REDEFINES STLCHANGEPERCENT 010460 PIC X(6). 010500 05 FILLER PIC X(19) VALUE *. 010600* 010601 01 BRANCHTOTALLINE. 010602 05 FILLER PIC X(43) VALUE SPACE. 010603 05 FILLER PIC X(22) VALUE BRANCH TOTAL. 010604 05 BTLSALESTHISYTD PIC $$$,$$. 010605 05 FILLER PIC X(1) VALUE SPACE. 010606 05 BTLSALESLASTYTD PIC $,$$$,$$. 010607 05 FILLER PIC X(3) VALUE SPACE. 010608 05 BTLCHANGEAMOUNT PIC $$$,$$. 010609 05 FILLER PIC X(3) VALUE SPACE. 010610 05 BTLCHANGEPERCENT PIC +++. 010611 05 BTLCHANGEPERCENTR REDEFINES BTLCHANGEPERCENT 010612 PIC X(6). 010613 05 FILLER PIC X(19) VALUE *. 010614* 010615 01 GRANDTOTALLINE. 010616 05 FILLER PIC X(43) VALUE SPACE. 010617 05 FILLER PIC X(20) VALUE GRAND TOTAL. 010618 05 GTLSALESTHISYTD PIC $,$$$,$$. 010619 05 FILLER PIC X(1) VALUE SPACE. 010620 05 GTLSALESLASTYTD PIC $,$$$,$$. 010621 05 FILLER PIC X(1) VALUE SPACE. 010622 05 GTLCHANGEAMOUNT PIC $,$$$,$$. 010623 05 FILLER PIC X(3) VALUE SPACE. 010624 05 GTLCHANGEPERCENT PIC +++. 010625 05 GTLCHANGEPERCENTR REDEFINES GTLCHANGEPERCENT 010626 PIC X(6). 010627 05 FILLER PIC X(24) VALUE **. 010628* 010700 PROCEDURE DIVISION. 010800* 010810 CALL 39。. 004700 05 FIRSTEXECUTIONSWITCH PIC X VALUE Y. 004800 88 FIRSTEXECUTION VALUE Y. 004900 05 ALLRECORDSPROCESSEDSWITCH PIC X VALUE N. 005000 88 ALLRECORDSPROCESSED VALUE Y. 005100* 005200 01 FILESTATUSFIELDS. 005300 05 NEWMASTFILESTATUS PIC XX. 005400 88 NEWMASTSUCCESSFUL VALUE 00. 005500 05 ERRTRANFILESTATUS PIC XX. 005600 88 ERRTRANSUCCESSFUL VALUE 00. 005700* 005800 01 RECEIPTTRANSACTION. 005810 05 RTFLAG PIC 9. 005900 05 RTBRANCHNO PIC X(2). 005910 05 RTBRANCHNAME PIC X(20). 006000 05 RTSALENO PIC X(2). 006100 05 RTCUSTNO PIC X(5). 006200 05 RTCUSTNAME PIC X(20). 006300 05 RTDATALAST PIC 9(5)V99. 006400 05 RTDATATHIS PIC 9(5)V99. 006500* 006510 01 RECEIPTTRANSACTIONEDIT. 006520 05 RTBRANCHNOED PIC X(2). 006530 05 RTBRANCHNAMEED PIC X(20). 006540 05 RTSALENOED PIC X(2). 006550 05 RTCUSTNOED PIC X(5). 006551 05 RTCUSTNAMEED PIC X(20). 006552 05 RTDATALASTED PIC 9(5)V99. 006553 05 RTDATATHISED PIC 9(5)V99. 006570* 006600 01 WSOLDRECORD. 006700 05 ORBRANCHNO PIC X(2). 006800 05 ORBRANCHNAME PIC X(20). 006900 05 ORSALENO PIC X(2). 007000 05 ORCUSTNO PIC X(5). 007010 05 ORCUSTNAME PIC X(20). 007100 05 ORDATALAST PIC 9(5)V99. 007200 05 ORDATATHIS PIC 9(5)V99. 007600* 007700 PROCEDURE DIVISION. 007800* 007900 000UPDATEINVENTORYFILE. 008000* 008100* OPEN INPUT OLDMAST1 008110 OPEN INPUT RCTTRAN1 008200 OLDMAST1 008300 OUTPUT NEWMAST1 008400 ERRTRAN1 008410 CLOTRAN1. 008500 SORT SORTWORK1 008600 ON ASCENDING KEY SWBRANCHNO OF SORTWORKAREA 008610 SWSALENO OF SORTWORKAREA 008620 SWCUSTNO OF SORTWORKAREA 008700 INP