COBOL HOME PAGE!!

COBOL PROGRAM : This program is basically designed to determine the energy efficiency of each taxi in the fleet as well as entire fleet.

Given:

1-10 vehicle identification

11-20 Vehicle description

21-24 Miles traveled

25-28 Gallons of gas used

Program indicates the miles per gallon for each taxi and fleet as whole.

No of posting: 3 Rating:

COBOL PROGRAM : This program prints sales total from disks records for each of five transaction days.

Given:

1There is disk record for each sale made by a salesperson.

2.Records are sequenced by day number.

No of posting: 3 Rating:

COBOL PROGRAM : This program calculates total amount and amount due from the sales records.

Given:

1-5 ACCT-NO-IN

6-25 CUST-NAME-IN

26-30 AMT1-IN

31-35 AMT2-IN

36-40 DISCOUNT

COBOL PROGRAM : This program print the input of program in specific format.

Given:

CUST-FILE RECORDS

000010 @OPTIONS MAIN ,APOST
000020 IDENTIFICATION DIVISION.
000030 PROGRAM-ID. PAC7Q4.
000040 AUTHOR. PRITESH.
000050 ENVIRONMENT DIVISION.
000060 INPUT-OUTPUT SECTION.
000070 FILE-CONTROL.
000080                SELECT TAXI-FILE ASSIGN TO 'C:\COBOL\P-7Q-4.DAT'
000090                ORGANIZATION IS LINE SEQUENTIAL.
000100                SELECT ENERGY-FILE ASSIGN TO 'C:\COBOL\S-7Q-4.DAT'
000110                ORGANIZATION IS LINE SEQUENTIAL.
000120  DATA DIVISION.
000130  FILE SECTION.
000140  FD TAXI-FILE.
000150  01 TAXI-REC.
000160     05 VEHICLE-IDENTIFICATION-IN         PIC X(5).
000161     05 VEHICLE-DESCRIPTION-IN            PIC X(10).
000162     05 MILES-TRAVELED-IN                 PIC 9(5).
000163     05 GAS-USED-IN                       PIC 99V99.
000164
000170 FD ENERGY-FILE.
000210 01 ENERGY-REC                            PIC X(55).
000220 WORKING-STORAGE SECTION.
000230 01 MORE-RECORDS                          PIC X(3)   VALUE 'YES'.
000240 01 WS-ENERGY.
000250     05 WS-MILES-PER-GALLON                PIC 9(4)V99 VALUE ZERO.
000260     05                                    PIC X(4).
000270     05 WS-TOTAL                           PIC 9(6)V99 VALUE ZERO.
000280  PROCEDURE DIVISION.
000330     OPEN INPUT TAXI-FILE     
000340          OUTPUT ENERGY-FILE
000350       PERFORM UNTIL MORE-RECORDS = 'NO'
000360        READ TAXI-FILE
000370         AT END
000380          MOVE 'NO' TO MORE-RECORDS
000390        NOT AT END
000400          PERFORM 200-CALC-RTN
000410       END-READ
000420      END-PERFORM
000430      CLOSE TAXI-FILE
000440            ENERGY-FILE
000450     STOP RUN.
000460  200-CALC-RTN.
000470     COMPUTE WS-MILES-PER-GALLON = MILES-TRAVELED-IN / GAS-USED-IN
000471     ADD WS-MILES-PER-GALLON TO WS-TOTAL
000472     WRITE ENERGY-REC FROM WS-ENERGY.
000480

000010 @OPTIONS MAIN ,APOST
000020 IDENTIFICATION DIVISION.
000030 PROGRAM-ID. PC9.
000040 AUTHOR. PRITESH.
000050 ENVIRONMENT DIVISION.
000060 INPUT-OUTPUT SECTION.
000070 FILE-CONTROL.
000080                SELECT SALES-FILE ASSIGN TO 'C:\COBOL\PA9.DAT'
000090                ORGANIZATION IS LINE SEQUENTIAL.
000100                SELECT OUTPUT-FILE ASSIGN TO 'C:\COBOL\SA9.DAT'
000110                ORGANIZATION IS LINE SEQUENTIAL.
000120  DATA DIVISION.
000130  FILE SECTION.
000140  FD SALES-FILE.
000150  01 SALE-REC.
000160     05 IN-SALESPERSON-NO               PIC 9(2).
000170     05 IN-DAY-NO                       PIC 9.
000180     05 IN-SALES-AMOUNT                 PIC 9(4)V99.
000190        
000200  FD OUTPUT-FILE.
000210  01 OUT-REC                            PIC X(80).
000220  WORKING-STORAGE SECTION.
000260  01 WORK-AREAS.
000270     05 ARE-THERE-MORE-REC               PIC X VALUE 'Y'.
000280     05 FIRST-RECORD                    PIC X VALUE 'Y'.
000290     05 WS-HOLD-DAY                     PIC X VALUE ZEROS.
000300     05 WS-TOTAL-SALES                  PIC 9(5)V99 VALUE ZEROS.
000301 01 HEADER1.
000302     05                 PIC X(3) VALUE 'DAY'.
000303     05                 PIC X(7) VALUE SPACES.
000304     05                 PIC X(12) VALUE ' TOTAL SALES'.
000305     05                 PIC X(58) VALUE SPACES.
000306 01 HEADER2.
000307     05 DAY-OP         PIC XXX.
000308     05                PIC X(7).
000309     05 TOTAL-SALES    PIC $99,999.99.
000310  PROCEDURE DIVISION.
000320     OPEN INPUT SALES-FILE     
000330          OUTPUT OUTPUT-FILE
000331          WRITE OUT-REC FROM HEADER1
000332          PERFORM UNTIL ARE-THERE-MORE-REC = 'N'
000333           READ SALES-FILE
000334               AT END 
000335                   MOVE 'N' TO ARE-THERE-MORE-REC
000336               NOT AT END
000337                   PERFORM 200-DETAIL-RTN
000340               END-READ
000341             END-PERFORM
000342          PERFORM 600-END-OF-JOB-RTN
000350        STOP RUN.
000380   200-DETAIL-RTN.
000390       EVALUATE TRUE
000400          WHEN FIRST-RECORD = 'Y'
000410               MOVE IN-DAY-NO TO WS-HOLD-DAY
000420               MOVE 'N' TO FIRST-RECORD
000430          WHEN IN-DAY-NO NOT = WS-HOLD-DAY
000431               PERFORM 300-CONTROL-BREAK
000432      END-EVALUATE.
000433
000434     EVALUATE IN-DAY-NO
000435             WHEN 1 MOVE 'MON' TO DAY-OP
000436             WHEN 2 MOVE 'TUE' TO DAY-OP
000437             WHEN 3 MOVE 'WED' TO DAY-OP
000438             WHEN 4 MOVE 'THR' TO DAY-OP
000439             WHEN 5 MOVE 'FRI' TO DAY-OP
000440             WHEN 6 MOVE 'SAT' TO DAY-OP
000441             WHEN 7 MOVE 'SUN' TO DAY-OP
000442     END-EVALUATE.
000443     ADD IN-SALES-AMOUNT TO WS-TOTAL-SALES.
000444   300-CONTROL-BREAK.
000454        MOVE WS-TOTAL-SALES TO TOTAL-SALES
000464        WRITE OUT-REC FROM HEADER2
000474        MOVE ZEROS TO WS-TOTAL-SALES
000484        MOVE IN-DAY-NO TO WS-HOLD-DAY.
000485  600-END-OF-JOB-RTN.
000486        CLOSE SALES-FILE
000489              OUTPUT-FILE.
000494

000010 @OPTIONS MAIN ,APOST
000020 IDENTIFICATION DIVISION.
000030 PROGRAM-ID. PPC4-S7.
000040 AUTHOR. PRITESH.
000050 ENVIRONMENT DIVISION.
000060 INPUT-OUTPUT SECTION.
000070 FILE-CONTROL.
000080                SELECT TRANSACTION-FILE ASSIGN TO 'C:\COBOL\P4-7.DAT'
000090                ORGANIZATION IS LINE SEQUENTIAL.
000100                SELECT MASTER-FILE ASSIGN TO 'C:\COBOL\S4-7.DAT'
000130                ORGANIZATION IS LINE SEQUENTIAL.
000140  DATA DIVISION.
000150  FILE SECTION.
000160  FD TRANSACTION-FILE.
000170  01 TRANS-FILE.
000180     05 ACCT-NO-IN                     PIC X(5).
000181     05                                PIC X.
000190     05 CUST-NAME-IN                   PIC X(20).
000200     05 AMT1-IN                        PIC 9(3)V99.
000201     05                                PIC X.
000210     05 AMT2-IN                        PIC 9(3)V99.
000211     05                                PIC X.
000220     05 DISCOUNT-AMT-IN                PIC 9(3)V99.
000270  FD MASTER-FILE.
000280  01 OUT-REC.
000290     05 ACCT-NO-OUT                     PIC X(5).
000300     05 CUST-NAME-OUT                   PIC X(20).  
000310     05 TOTAL-OUT                       PIC 9999V99.
000320     05 AMT-DUE-OUT                     PIC 9999V99.
000330     05                                 PIC X(3).
000370
000380  WORKING-STORAGE SECTION.
000390  01 MORE-RECORDS                    PIC X(3)   VALUE 'YES'.
000391  01 WS-TOTAL-OUT                    PIC 9999V99 VALUE ZERO.
000392  01 WS-AMT-DUE-OUT                  PIC 9999V99 VALUE ZERO.
000400   
000410  PROCEDURE DIVISION.
000420     OPEN INPUT TRANSACTION-FILE     
000430          
000440          OUTPUT MASTER-FILE
000450         PERFORM UNTIL MORE-RECORDS = 'NO '
000460           READ TRANSACTION-FILE
000470            AT END 
000490             MOVE 'NO ' TO MORE-RECORDS
000500        NOT END 
000510             PERFORM 200-CALC-ROUTINE
000520       END-READ
000530       END-PERFORM
000540
000550     CLOSE TRANSACTION-FILE
000560           MASTER-FILE
000580     STOP RUN.
000590 200-CALC-ROUTINE.
000600     MOVE ACCT-NO-IN TO ACCT-NO-OUT
000610     MOVE CUST-NAME-IN TO CUST-NAME-OUT
000611     COMPUTE WS-TOTAL-OUT = AMT1-IN + AMT2-IN
000612     COMPUTE WS-AMT-DUE-OUT = WS-TOTAL-OUT - DISCOUNT-AMT-IN
000613     MOVE WS-TOTAL-OUT TO TOTAL-OUT
000614     MOVE WS-AMT-DUE-OUT TO AMT-DUE-OUT
000620     WRITE OUT-REC.

000010 @OPTIONS MAIN , APOST.
000011 IDENTIFICATION DIVISION.
000012 PROGRAM-ID. TRANSACTIONREPORT.
000013 ENVIRONMENT DIVISION.
000014 INPUT-OUTPUT SECTION.
000015 FILE-CONTROL.
000016          SELECT COST-FILE ASSIGN TO 'C:\COBOL\ASSIGNMENT1.DAT'
000017          ORGANIZATION IS LINE SEQUENTIAL.
000018          SELECT REPORT-OUT ASSIGN TO 'C:\COBOL\SOLUTION1.DAT'
000019          ORGANIZATION IS LINE SEQUENTIAL.
000020 DATA DIVISION.
000021 FILE SECTION.
000022 FD COST-FILE.                     
000023 01 COST-REC.
000024     05 INTIAL1-IN      PIC X.
000025     05 INITIAL2-IN     PIC X.
000026     05 LAST-NAME-IN    PIC X(10).
000027     05 MONTH-OF-TRANSACTION-IN                 PIC XX.
000028     05 YEAR-OF-TRANSACTION-IN               PIC XX.
000029     05 TRANSACTION-AMOUNT-IN               PIC 9(6).
000030 FD REPORT-OUT.                
000031 01 OUT-REPORT-REC              PIC X(132).
000032 WORKING-STORAGE SECTION.
000033 01 WS-WORK-AREAS.
000034     05 ARE-THERE-MORE-REC       PIC X(3)  VALUE 'YES'.
000049 01 HL-HEADER-1.
000050    05                           PIC X(5)  VALUE SPACES.
000051    05                           PIC X(4)  VALUE 'NAME'.
000052    05                           PIC X(6)  VALUE SPACES.
000053    05                           PIC X(19) VALUE 'DATE OF TRANSACTION'.
000054    05                           PIC X(3)  VALUE SPACES.
000055    05                           PIC X(21) VALUE 'AMOUNT OF TRANSACTION'.
000056 01 WS-DETAIL-REC.
000057    05                              PIC X(5) VALUE SPACES.
000058    05 WS-INITIAL1-OUT              PIC X.
000059    05                              PIC X VALUE '.'.
000060    05 WS-INITIAL2-OUT              PIC X.
000061    05                              PIC X VALUE '.'.
000062    05 WS-LAST-NAME-OUT             PIC X(10).
000063    05                              PIC X(6) VALUE SPACES.
000064    05 WS-MONTH-OF-TRANSACTION-OUT  PIC X(2).
000065    05                              PIC X VALUE '/'.
000066    05 WS-YEAR-OF-TRANSACTION-OUT   PIC X(2).
000067    05                              PIC X(14) VALUE SPACES.
000068    05 WS-TRANSACTION-AMOUNT-OUT    PIC $ZZZZZZ.
000069    05                              PIC X(57) VALUE SPACES.
000070 
000074 PROCEDURE DIVISION.
000075 100-MAIN-MODULE.
000076     OPEN INPUT COST-FILE
000077          OUTPUT REPORT-OUT
000078          WRITE OUT-REPORT-REC FROM HL-HEADER-1
000079     PERFORM UNTIL ARE-THERE-MORE-REC = 'NO '
000080            READ COST-FILE
000081              AT END
000082                   MOVE 'NO ' TO ARE-THERE-MORE-REC
000083             NOT AT END
000084                     PERFORM 200-CALC-RTN
000085             END-READ
000086      END-PERFORM
000087      CLOSE COST-FILE
000088           REPORT-OUT
000089      STOP RUN.
000090
000091    200-CALC-RTN.
000114        MOVE SPACES TO WS-DETAIL-REC
000115       
000116        MOVE INTIAL1-IN TO WS-INITIAL1-OUT
000155        MOVE INITIAL2-IN TO WS-INITIAL2-OUT
000160        MOVE LAST-NAME-IN TO WS-LAST-NAME-OUT
000170        MOVE MONTH-OF-TRANSACTION-IN TO WS-MONTH-OF-TRANSACTION-OUT
000180        MOVE YEAR-OF-TRANSACTION-IN TO WS-YEAR-OF-TRANSACTION-OUT
000190        MOVE TRANSACTION-AMOUNT-IN TO WS-TRANSACTION-AMOUNT-OUT
000200        WRITE OUT-REPORT-REC FROM WS-DETAIL-REC.

No of posting: 1 Rating:

Posting :1

Fields	Size	Type	Decimal Position
DAY-NO	1	ALPHANUMERIC
SALESPERSON-NO	3	ALPHANUMERIC
SALES-AMOUNT	5	NUMERIC	2

Fields	Size	Type	Decimal Positon
INITIAL 1	1	ALPHANUMERIC
INITIAL 2	1	ALPHANUMERIC	2
LAST NAME	10	ALPHANUMERIC	2
MONTH OF TRANSACTION	2	ALPHANUMERIC	2
YEAR OF TRANSACTION	2	ALPHANUMERIC	2
TRANSACTION	6	ALPHANUMERIC