CHAPTER 7 各部之间的关系及程序举例

一.各部之间的关系: 

二.程序举例: 
例1: 
读入一组产品销售记录,每读入一个记录,计算出销售总额(数量X单价).然后打印出该产品的全部数据.数据形式如下:

1  9  9  2  1  2  3  1  0  0  0  0  0  1  A  A  A  A  0  1  0  0  5  0  0  0 
1  9  9  3  1  2  3  1  1  0  0  0  0  1  B  B  B B  0  2  0  0  6  0  0  0 
-------------------------  -----------------   ------------  ------------  ----------- 
         DATE                PRODCODE     CUST        AMT        PRICE 
程序如下: 
IDENTIFICATION       DIVISION. 
PROGRAM-ID.             PEXAM1 
ENVIRONMENT          DIVISION. 
CONFIGRATION         SECTION. 
INPUT-OUTPUT          SECTION. 
FILE-CONTROL. 
        SELECT     INPUT-FILE         ASSIGN    TO     FILE1 
                           ORGANIZATION                    IS      SEQUENCIAL 
                           ACCESS    MODE                    IS      SEQUENCIAL 
                           FILE-STATUS                          IS     WS-INPUT-FILE-STATUS. 
        SELECT    OUTPUT-FILE        ASSIGN  TO     P-FILE 
                           ORGANIZATION                    IS      SEQUENCIAL 
                           ACCESS    MODE                    IS      SEQUENCIAL 
                           FILE-STATUS                          IS     WS-OUTPUT-FILE-STATUS. 
DATA                           DIVISION. 
FILLE                           SECTION. 
FD      INPUT-FILE       LABEL     RECORD    IS     STANDARD. 
01       IN-REC. 
           05      DATE            PIC    9(8).  
           05      PROD-CODE  PIC    9(6). 
           05      CUSTOMER-CODE  PIC    X(4). 
           05      QUANTITY  PIC    9(4). 
           05      UNIT-PRICE     PIC    9(4). 
FD      OUTPUT-FILE       LABEL     RECORD    IS     STANDARD. 
01       OUT-REC. 
           05      DATE            PIC    9999B99B99.  
           05      FILLER   PIC    X(5). 
           05      PROD-CODE  PIC    9(6). 
           05      FILLER   PIC    X(5).  
           05      CUSTOMER-CODE PIC    X(4). 
           05      FILLER   PIC    X(5). 
           05      QUANTITY  PIC    ZZZ9. 
           05      FILLER   PIC    X(5).           
           05      UNIT-PRICE           PIC    $(5). 
           05      FILLER          PIC    X(5). 
           05      SALES-VALUE      PIC    $(8).

WORKING-STORAGE                SECTION. 
01       WS-VARIBLES. 
           05      WS-INPUT-FILE-STATUS  PIC    9(2). 
                     88       WS-INPUT-FILE-SUCCESSFUL         VALUE     0. 
                     88       WS-INPUT-FILE-EOF                          VALUE    23. 
           05      WS-OUTPUT-FILE-STATUS PIC    9(2). 
                     88       WS-OUTPUT-FILE-SUCCESSFUL     VALUE     0.    
PROCEDURE                                DIVISION.

A000-MAIN. 
          PERFORM         A100-OPEN-FILES          
          PERFORM         R000-READ-FILE             
          PERFORM         A200-PROCESS-RECORD UNTIL WS-INPUT-FILE-EOF 
          PERFORM         A300-CLOSE-FILES            
          STOP RUN 
          . 
A000-EXIT. 
          EXIT 
          . 

A100-OPEN-FILES. 
           OPEN INPUT        INPUT-FILE 
                          OUTPUT    OUTPUT-FILE 
           IF     NOT           WS-INPUT-FILE-SUCCESSFUL      
 DISPLAY   ‘INPUT-FILE              OPEN     NOT   SUCCESSFUL’    UPON    CONSOLE 
 PERFORM  Z000-ABEND 
          END-IF  
           IF     NOT            WS-OUTPUT-FILE-SUCCESSFUL      
 DISPLAY   ‘OUTPUT-FILE         OPEN      NOT   SUCCESSFUL’    UPON    CONSOLE 
 PERFORM  Z000-ABEND       
           END-IF  
          . 
A200-PROCESS-RECORD. 
           INITIALIZE  OUT-REC 
           MOVE           CORR         IN-REC     TO           OUT-REC 
           COMPUTE   SALES-VALUE   =  QUANTITY  OF  IN-REC   *   UNIT-PRICE   OF   OUT-REC 
           PERFORM   W000-WRITE-FILE  
           PERFORM    R000-READ-FILE     
           . 
A300-CLOSE-FILE. 
           CLOSE         INPUT-FILE           
                                 OUTPUT-FILE 
           . 
R000-READ-FILE. 
           READ  INPUT-FILE 
           IF     NOT   WS-INPUT-FILE-SUCCESSFUL   AND  NOT    WS-INPUT-FILE-EOF   
 DISPLAY   ‘INPUT-FILE  READ NOT   SUCCESSFUL’    UPON    CONSOLE 
 PERFORM  Z000-ABEND            THRU      Z000-EXIT 
           END-IF 
          . 

W000-WRITE-FILE. 
           WRITE  OUT-REC         AFTER     1 
           IF     NOT   WS-OUTPUT-FILE-SUCCESSFUL     
 DISPLAY   ‘OUTPUT-FILE  WRITE  NOT   SUCCESSFUL’    UPON    CONSOLE 
 PERFORM  Z000-ABEND  
           END-IF 
           . 
Z000-ABEND. 
          DISPLAY   ‘PROGRAM   ABEND !’    UPON    CONSOLE 
          PERFORM  A300-CLOSE-FILES          THRU    A300-EXIT 
          MOVE         16                                         TO         RETURN-CODE 
          GOBACK 
          . 

输出的数据形式如下: 
1992 12 31     000001     AAAA      100      $5000      $500000

1993 12 31     100001     BBBB       200      $6000      $1200000 


例2: 
Program : INVI300    Update  inventory   file (random) 
                           

File	Description	Use
VALTRAN	Valid inventory transaction  file	Input
INVMAST	Inventory  master  file	Update
ERRTRAN	Unmatched inventory transaction file	Output

  
Process specifications 
        This program updates an inventory master file (INVMAST) based on the data in a sequential 
file of valid inventory transaction records (VALTRAN). The inventory master file is indexed  by item number and updated randomly.

 

        If the program finds a master record with the same item number as a transaction, it uses the 
transaction data to update the master record .It does this by increasing the on hand quantity 
in the master record by the receipt quantity in the transaction record. 
        If the program cannot find a master record for a transaction, it writes the transaction record on 
the file of error transactions (ERRTRAN). The record format format for ERRTRAN is same as 
for VALTRAN.

The basic processing requirements are:

1. Read a transaction record.

2. Read the master record with the same item number as in the transaction record.

3. If the master  record is found , update and rewrite the matching master record.

4. If the transaction is not found , write the transaction record on the file of error  transactions. 

程序如下: 
IDENTIFICATION DIVISION. 
PROGRAM-ID. INV1300.

ENVIRONENT  DIVISON. 
INPUT-OUTPUT  SECTION. 
FILE-CONTROL. 
        SELECT  VALTRAN    ASSIGN  TO   SYS020-AS-VALTRAN. 
        SELECT  INVMAST     ASSIGN  TO   SYS021-INVMAT 
              ORGANIZATION IS  INDEXED 
              ACCESS                 IS    RANDOM 
              RECORD KEY       IS   MR-ITEM-NO 
              FILE STATUS        IS   INVMAST-ERROR-CODE. 
         SELECT  ERRTRAN    ASSIGN  TO   SYS022-AS-ERRTRAN. 

DATA  DIVISION. 
FILE  SECTION. 
FD    VALTRAN 
         LABEL  RECORDS  ARE  STANDARD. 
01     VALID-TRANSACTION-AREA  PIC  X(21). 
FD    INVMAST 
         LABEL RECORDS  ARE  STANDARD. 
01     MASTER-RECORD-AREA. 
         05   MR-ITEM-NO  PIC  X(5). 
         05   FILLER   PIC  X(45). 
FD    ERRTRAN 
         LABEL  RECORDS ARE STANDARD. 
01     ERROR-TRANSACTION  PIC  X(21). 
WORKING-STORAGE SECTION. 
01    SWITCHES. 
        05    VALTRAN-EOF-SWITCH PIC  X   VALUE  ‘N’. 
                88    VALTRAN-EOF                                  VALUE  ‘Y’. 
        05    MASTER-FOUND-SWITCH PIC  X. 
                88    MASTER-FOUND                               VALUE  ‘Y’.

01    FILE-STATUS-FIELD. 
        05    INVMAST-ERROR-CODE PIC  X(2).

01    INVENTROY-TRANSACTION-RECORD. 
        05    IT-ITEM-NO  PIC  X(5). 
        05    IT-VENOR-NO  PIC  X(5). 
        05    IT-RECEIPT-DATE  PIC  X(6). 
        05    IT-RECEIPT-QUANTITY             PIC  S9(5). 
01    INVENTORY-MASTER-RECORD. 
        05    IM-DESCRIPTIVE-DATA. 
                10    IM-ITEM-NO  PIC  X(5). 
                10    IM-ITEM-DESC  PIC  X(20). 
                10    IM-UNIT-COST  PIC  S9(3)V9(2). 
                10    IM-UNIT-PRICE         PIC  S9(3)V9(2). 
        05    IM-INVENTORY-DATA. 
                10    IM-REORDER-POINT PIC  S9(5). 
                10    IM-ON-HAND  PIC  S9(5). 
                10    IM-ON-ORDER  PIC  S9(5).   
PROCEDURE DIVISION. 
A000-UPDATE-INVENTORY-FILE. 
         OPEN             INPUT        VALTRAN 
                                I-O               INVMAST 
                                OUTPUT     ERRTRAN 
         PERFORM    B000-PROCESS-INVENTORY-TRAN      THRU     B000-EXIT 
                                UNTIL         VALTRAN-EOF 
         CLOSE                  VALTRAN 
                   INVMAST 
                   ERRTRAN 
         DISPLAY      ‘PROGRAM   INV1300  NORMAL  END’ 
         GOBACK. 
B000-PROCESS-INVENTORY-TRAN. 
        PERFORM                      B100-READ-INVENTORY-TRAN               
        IF      NOT                       VALTRAN-EOF 
                  PERFORM            B200-READ-INVENTORY-MASTER          
                  IF     MASTER-FOUND 
                           PERFORM   B300-UPDATE-INVENTORY-MASTER     
                  ELSE 
                           PERFORM   B400-WRITE-ERROR-TRAN                        
                  END-IF 
        END-IF. 
B000-EXIT. 
        EXIT. 
                   
B100-READ-INVENTRORY-TRAN. 
        READ   VALTRAN        INTO    INVENTORY-TRANSACTION-RECORD 
                     AT   END           MOVE  ‘Y’         TO        VALTRAN-EOF-SWITCH. 
B100-EXIT. 
        EXIT.

B200-READ-INVENTORY-MASTER. 
        MOVE   IT-ITEM-NO                                    TO         MR-ITEM-NO 
        READ    INVMASST                                      INTO    INVENTORY-MASTER-RECORD 
        IF           INVMAST-ERROR-CODE              = ‘00’ 
                      MOVE  ‘Y’                                        TO         MASTER-FOUND-SWITCH 
        ELSE    
                      MOVE  ‘N’                                        TO         MASTER-FOUND-SWITCH 
        END-IF.

B300-UPDATE-INVENTORY-MASTER. 
        ADD     IT-RECEIPT-QUANTITY                TO          IM-ON-HAND 
        REWRITE  MASTER-RECORD-AREA       FROM    INVENTORY-MASTER-RECORD 
        IF          INVMAST-ERROR-CODE              NOT       =   ‘00’ 
                     DISPLAY   ‘ INV1300  REWRITE   INVMAST ERROR . ITEM  NUMBER = ’ IM-ITEM-NO 
                     DISPLAY   ‘ FILE  STATUS    = ’    INVMAST-ERROR-CODE 
                     MOVE  ‘Y’                                         TO         VALTRAN-EOF-SWITH 
        END-IF. 
B300-EXIT. 
        EXIT.

B400-WRITE-ERROR-TRAN. 
        WRITE   ERROR-TRANSACTION                FROM   INVENTORY-TRANSACTION-RECORD. 
B400-EXIT. 
        EXIT.      
       IDENTIFICATION DIVISION. 
       PROGRAM-ID.    PROGRAM3. 
       
       ENVIRONMENT DIVISION. 
      
       DATA DIVISION. 
       WORKING-STORAGE SECTION.

       01  WS-RESP    PIC S9(8)  COMP.    
           88  WS-RESP-NORMAL   VALUE  0.

       01  PGM3COM. 
    05  CUST-NO  PIC  9(8). 
    05  PGM3-OUT. 
                        10  PGM3-RETURN-CODE PIC  X(2). 
               88  PGM3-SUCCESSFUL                    VALUE '  '. 
                                88  PGM3-CUST-NBR-ERR                VALUE '01'. 
                88  PGM3-CUST-NOT-FND               VALUE '02'.  
         10  PGM3-AC   PIC  9(5). 
         10  PGM3-BAL   PIC  9(11).   

 01  MASTER-RECORD. 
       05  MASTER-KEY      PIC  9(8). 
       05  CUST-NAME    PIC  X(20). 
       05  CHECK-AC    PIC  9(5). 
       05  BAL    PIC  9(11).           
LINKAGE SECTION.