COBOL HOME PAGE!!

COBOL PROGRAM : This program is basically designed for modeling agency purpose. You can use it for other purpose also by modifying the program.

Given:OUPUT is a printed report with names of all:

A. Blonde hair, blue-eyed males over 6 feet tall and weighing between 185 and 200 pounds.

B. Brown hair , brown-eyed females between 5 feet 2 inches and 5 feet6 inches and weighing between 110 and 125 pounds.

Other combination should not be printed.

No of posting: 1 Rating:

COBOL PROGRAM : This program is used to calculate compound interest. This program compute compound interest from records with following format.

Given:

No of posting: 1 Rating:

COBOL PROGRAM : Interactive program:This program displays a temperature conversion table on a screen. Compute and prints the Fahrenheit equivalent of all Celsius Temperature

At 10 degree intervals from 0 to 150 degrees.

Given:

FORMULA: CELSIUS = 5/9(FARHRENHEIT-32)

COBOL PROGRAM : This program is very good for maintaining customer records in shop .This program deals with the various aspect of maintaining records of customer.

Given:

A. If sales exceed $500.00 ,allow 5%discount.

B. If sales are between $100.00 and $500.00 allow 2% discount.

CUSTOMER-MASTER-RECORDS

CUSTOMER-TRANS-RECORDS

000010 @OPTIONS MAIN ,APOST
000020 IDENTIFICATION DIVISION.
000030 PROGRAM-ID. PAC8Q3.
000040 AUTHOR. PRITESH.
000050 ENVIRONMENT DIVISION.
000060 INPUT-OUTPUT SECTION.
000070 FILE-CONTROL.
000080                SELECT MODEL-MASTER ASSIGN TO 'C:\COBOL\P8-3.DAT'
000090                ORGANIZATION IS LINE SEQUENTIAL.
000100                SELECT MODEL-REPORT ASSIGN TO 'C:\COBOL\S8-3.DAT'
000110                ORGANIZATION IS LINE SEQUENTIAL.
000120  DATA DIVISION.
000130  FILE SECTION.
000140  FD MODEL-MASTER.
000150  01 INP-REC.
000160     05 NAME-IN                        PIC X(20).
000170     05 WEIGHT-IN                      PIC 999.
000180     05 HEIGHT-IN                      PIC 99.
000190     05 EYES-CODE-IN                   PIC 9.
000191     05 HAIR-CODE-IN                   PIC 9.
000193     05 SEX-CODE-IN                    PIC 9.
000200  FD MODEL-REPORT.
000210  01 OUT-REC                            PIC X(90).
000220  WORKING-STORAGE SECTION.
000230  01 MORE-RECORDS                 PIC X(3)   VALUE 'YES'.
000231  01 HL-HEADER1.
000232     05                          PIC X(40) VALUE SPACES.
000233     05                          PIC X(30) VALUE 'M O D E L  R E P O R T'.
000234     05                          PIC X(5) VALUE 'PAGE'.
000235     05 PAGE-OUT                 PIC 99.
000236     05 DATE-OUT.
000237        10 DAY-OUT              PIC 99.
000238        10                      PIC X VALUE '/'.
000239        10 MONTH-OUT            PIC 99.
000240        10                      PIC X VALUE '/'.
000241        10 YEAR-OUT             PIC 99.
000242 01 WS-DATE.
000243     05 WS-YEAR                 PIC 99.
000244     05 WS-MONTH                PIC 99.
000245     05 WS-DAY                  PIC 99.
000246 01 HL-HEADER2.
000247      05                          PIC X(10) VALUE SPACES.
000248      05                          PIC X(4) VALUE 'NAME'.
000249      05                          PIC X(19) VALUE SPACES.
000250      05                          PIC X(3) VALUE 'SEX'.
000251      05                          PIC X(4) VALUE SPACES.
000252      05                          PIC X(6) VALUE 'WEIGHT'.
000253      05                          PIC XX VALUE SPACES.
000254      05                          PIC X(6) VALUE 'HEIGHT'.
000255      05                          PIC XX VALUE SPACES.
000256      05                          PIC X(9) VALUE 'EYE COLOR'.
000257      05                          PIC X(2) VALUE SPACES.
000258      05                          PIC X(10) VALUE 'HAIR COLOR'.
000259      05                          PIC X(11) VALUE SPACES.
000260 01 DETAIL-LINE.
000261      05                          PIC X(10) VALUE SPACES.
000262      05 NAME-OUT                 PIC X(20) .
000263      05                          PIC X(4) VALUE SPACES.
000264      05 SEX-OUT                  PIC X.
000265      05                          PIC X(6) VALUE SPACES.
000266      05 WEIGHT-OUT               PIC X(3) .
000267      05                          PIC X(6) VALUE SPACES.
000268      05 HEIGHT-OUT               PIC XX .
000269      05                          PIC X(6) VALUE SPACES.
000270      05 EYES-CODE-OUT            PIC X(5).
000271      05                          PIC X(6) VALUE SPACES.
000272      05 HAIR-CODE-OUT            PIC X(6).
000273      05                          PIC X(13).
000274    PROCEDURE DIVISION.
000330     OPEN INPUT MODEL-MASTER     
000340          OUTPUT MODEL-REPORT
000341         PERFORM 100-DATE-ROUTINE
000351       PERFORM UNTIL MORE-RECORDS = 'NO'
000360        READ MODEL-MASTER
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 MODEL-MASTER
000431            MODEL-REPORT
000440      STOP RUN.
000460   100-DATE-ROUTINE.
000640          ACCEPT WS-DATE FROM DATE
000641          MOVE WS-DAY TO DAY-OUT
000642          MOVE WS-MONTH TO MONTH-OUT
000643          MOVE WS-YEAR TO YEAR-OUT
000644          WRITE OUT-REC FROM HL-HEADER1
000645          WRITE OUT-REC FROM HL-HEADER2.
000646  200-CALC-RTN.
000647         IF((HAIR-CODE-IN = 1) AND (EYES-CODE-IN = 1) AND ( HEIGHT-IN > 72) AND ((WEIGHT-IN > 185) AND (WEIGHT-IN < 200 )) AND ( SEX-CODE-IN = 'M'))
000650         MOVE NAME-IN TO NAME-OUT
000660         MOVE 'M' TO SEX-OUT
000661         MOVE WEIGHT-IN TO WEIGHT-OUT
000662         MOVE HEIGHT-IN TO HEIGHT-OUT
000663         MOVE EYES-CODE-IN TO EYES-CODE-OUT
000664         MOVE HAIR-CODE-IN TO HAIR-CODE-OUT
000665         WRITE OUT-REC FROM DETAIL-LINE
000666
000667         END-IF
000668                
000680        IF((HAIR-CODE-IN = 2) AND (EYES-CODE-IN = 2) AND (( HEIGHT-IN > 62) AND ( HEIGHT-IN < 66)) AND ((WEIGHT-IN > 110) AND (WEIGHT-IN < 125 )) AND ( SEX-CODE-IN = 'F'))
000681         MOVE NAME-IN TO NAME-OUT
000682         MOVE 'F' TO SEX-OUT
000683         MOVE WEIGHT-IN TO WEIGHT-OUT
000684         MOVE HEIGHT-IN TO HEIGHT-OUT
000685         MOVE EYES-CODE-IN TO EYES-CODE-OUT
000686         MOVE HAIR-CODE-IN TO HAIR-CODE-OUT
000687         WRITE OUT-REC FROM DETAIL-LINE
000688         END-IF.
000689        
000690

000010 @OPTIONS MAIN , APOST.   
000020 IDENTIFICATION DIVISION.
000030 PROGRAM-ID. PPC8.
000040 ENVIRONMENT DIVISION.
000050 INPUT-OUTPUT SECTION.
000060 FILE-CONTROL.
000070             SELECT CUSTOMER-TRANS ASSIGN TO 'C:\COBOL\TRANS.DAT'
000071             ORGANIZATION IS LINE SEQUENTIAL.
000080             SELECT CUSTOMER-MASTER ASSIGN TO 'C:\COBOL\MASTER.DAT'
000081             ORGANIZATION IS LINE SEQUENTIAL.
000090 DATA DIVISION. 
000100 FILE SECTION.
000110 FD CUSTOMER-TRANS.
000120 01 CUST-REC.
000130    05 IDENTIFICATION-DATA-IN            PIC X(35).
000131    05 SALES-AMOUNT-IN                   PIC 9(5)V99.
000132 FD CUSTOMER-MASTER .
000133 01 MASTER-REC.
000134    05 IDENTIFICATION-DATA-OUT           PIC X(35).
000135    05 SALES-AMOUNT-OUT                  PIC 9(5)V99.
000136    05 DISCOUNT-PERCENT-OUT              PIC 9(2)V99.
000137    05 DISCOUNT-AMOUNT-OUT               PIC 9(5)V99.
000138    05 NET-AMOUNT-OUT                    PIC 9(5)V99.
000139 WORKING-STORAGE SECTION. 
000230 01 ARE-THERE-MORE-REC  PIC XXX  VALUE 'YES'.
000240 PROCEDURE DIVISION.
000250 100-MAIN-MODULE.
000260     OPEN INPUT CUSTOMER-TRANS
000270          OUTPUT CUSTOMER-MASTER
000271     MOVE SPACES TO MASTER-REC 
000280     PERFORM UNTIL ARE-THERE-MORE-REC = 'NO '
000290          READ CUSTOMER-TRANS
000300          AT END 
000310                MOVE 'NO ' TO ARE-THERE-MORE-REC
000320          NOT AT END 
000330                PERFORM 200-CALC-ROUTINE
000340               END-READ
000350          END-PERFORM
000360          CLOSE CUSTOMER-TRANS                
000370                CUSTOMER-MASTER
000380          STOP  RUN.
000390   200-CALC-ROUTINE.
000400     MOVE IDENTIFICATION-DATA-IN TO IDENTIFICATION-DATA-OUT
000410     MOVE SALES-AMOUNT-IN TO SALES-AMOUNT-OUT
000420     IF SALES-AMOUNT-IN > 500.00
000430     MOVE  .05 TO DISCOUNT-PERCENT-OUT 
000431     END-IF
000432     IF SALES-AMOUNT-IN >= 100.00 AND <= 500.00
000433     MOVE  .02 TO DISCOUNT-PERCENT-OUT 
000434     END-IF
000435     IF SALES-AMOUNT-IN < 100.00
000436     MOVE  .01 TO DISCOUNT-PERCENT-OUT 
000437     END-IF
000440     COMPUTE DISCOUNT-AMOUNT-OUT =  SALES-AMOUNT-IN * DISCOUNT-PERCENT-OUT
000450     COMPUTE NET-AMOUNT-OUT = SALES-AMOUNT-OUT - DISCOUNT-AMOUNT-OUT
000460     WRITE MASTER-REC.

000010 @OPTIONS MAIN ,APOST
000020 IDENTIFICATION DIVISION.
000030 PROGRAM-ID. PPC9.
000040 AUTHOR. PRITESH.
000050 ENVIRONMENT DIVISION.
000060 INPUT-OUTPUT SECTION.
000070 FILE-CONTROL.
000080                SELECT ACCT-FILE ASSIGN TO 'C:\COBOL\P-7Q-4.DAT'
000090                ORGANIZATION IS LINE SEQUENTIAL.
000100                SELECT PRINT-FILE ASSIGN TO 'C:\COBOL\S-7Q-4.DAT'
000110                ORGANIZATION IS LINE SEQUENTIAL.
000120  DATA DIVISION.
000130  FILE SECTION.
000140  FD ACCT-FILE.
000141  01 ACCT-REC.
000142     05 ACCT-NO-IN                        PIC X(5).
000143     05 DEPOSITOR-NAME-IN                 PIC X(20).
000144     05 PRINCIPAL-IN                      PIC X(5).
000145     05 INTEREST-RATE-IN                  PIC V99.
000146     05 PERIOD-OF-INVESTMENT-IN           PIC 99.
000147     05                                   PIC X(45).
000150 FD PRINT-FILE.
000160 01 PRINT-REC                             PIC X(80).
000170
000230 WORKING-STORAGE SECTION.
000240 01 MORE-RECORDS                          PIC X(3)   VALUE 'YES'.
000241 01 HL-HEADER1.
000242     05                                  PIC X(40) VALUE SPACES
000251     05                                  PIC X(40) VALUE 'PRINCIPAL TABLE'.
000252 01 HL-HEADER2.
000253     05                                  PIC X(10) VALUE SPACES.
000254     05                                  PIC X(10) VALUE 'ACCT NO'.
000255     05 ACCT-NO-OUT                      PIC X(5).
000256 01 HL-HEADER3.
000257    05                                  PIC X(10) VALUE SPACES.
000258    05                                  PIC X(15) VALUE 'DEPOSITER NAME'.
000259    05 DEPOSITER-NAME-OUT               PIC X(20).
000260 01 HL-HEADER4.
000261    05                                  PIC X(10) VALUE SPACES.
000262    05                                  PIC X(10) VALUE 'PRINCIPAL'.
000263    05 PRINCIPAL-OUT                    PIC X(5).
000264 01 HL-HEADER5.
000265     05                                  PIC X(10) VALUE SPACES.
000266     05                                  PIC X(5) VALUE 'RATE'.
000267     05 RATE-OUT                         PIC .99.
000268 01 HL-HEADER6.
000269     05                                  PIC X(10) VALUE SPACES.
000270     05                                  PIC X(12) VALUE 'NO. OF YEARS'.
000271     05 PERIOD-OF-INVESTMENT-OUT         PIC Z9.
000272 01 HL-HEADER7.
000273     05                                  PIC X(27) VALUE SPACES.
000274     05                                  PIC X(13) VALUE 'YEAR'.
000275     05                                  PIC X(20) VALUE 'NEW BALANCE'.
000276     05                                  PIC X(20) VALUE 'ACCURED INTEREST'.
000277 01 DETAIL-LINE.
000278     05                                  PIC X(28) VALUE SPACES.
000279     05 YEAR-COUNTER-OUT                 PIC Z9.
000280     05                                  PIC X(10) VALUE SPACES.
000281     05 NEW-BALANCE-OUT                  PIC $ZZZ,ZZZ.99.
000282     05                                  PIC X(9) VALUE SPACES.
000283     05 ACCURED-INTEREST-OUT             PIC $ZZ,ZZZ.99.
000284
000290  PROCEDURE DIVISION.
000300     OPEN INPUT ACCT-FILE     
000310          OUTPUT PRINT-FILE
000320       PERFORM UNTIL MORE-RECORDS = 'NO'
000321       PERFORM 100-MOVE-ROUTINE
000322        READ ACCT-FILE
000340         AT END
000350          MOVE 'NO' TO MORE-RECORDS
000360        NOT AT END
000370          PERFORM 300-CALC-RTN
000380       END-READ
000390      END-PERFORM
000400      CLOSE ACCT-FILE
000410            PRINT-FILE
000420     STOP RUN.
000430  100-MOVE-ROUTINE.
000431     WRITE PRINT-REC FROM HL-HEADER1
000432            AFTER ADVANCING 5 LINES
000433     MOVE ACCT-NO-IN TO ACCT-NO-OUT
000434     MOVE DEPOSITOR-NAME-IN TO DEPOSITOR-NAME-OUT
000435     MOVE PRINCIPAL-IN TO PRINCIPAL-OUT
000436     MOVE INTEREST-RATE-IN TO INTEREST-RATE-OUT
000437     MOVE PERIOD-OF-INVESTMENT-IN TO PERIOD-OFINVESTMENT-OUT
000438     WRITE PRINT-REC FROM HL-HEADER2
000439     WRITE PRINT-REC FROM HL-HEADER3
000440     WRITE PRINT-REC FROM HL-HEADER4
000441     WRITE PRINT-REC FROM HL-HEADER5
000442     WRITE PRINT-REC FROM HL-HEADER6
000443     WRITE PRINT-REC FROM HL-HEADER7.
000444  200-CALC-ROUTINE.
000445
000446
000447
000448

No of posting: 1 Rating:

Fields	Size	Type	Decimal Position
ACCOUNT-NO	5	ALPHANUMERIC	0
DEPOSITER-NAME-IN	20	ALPHANUMERIC
PRINCIPLE-IN	5	NUMERIC	0
INTERST-IN	2	NUMERIC	2
PERIOD-OF-INVESTMENT	2	NUMERIC	0

Fields	Size	Type	Decimal Positon
IDENTIFYING-DATA	35	ALPHANUMERIC
SALES-AMOUNT	5	NUMERIC	2
DISCOUNT PRESENT	2	NUMERIC	2
DISCOUNT AMOUNT	5	NUMERIC	2
NET AMOUNT	5	NUMERIC	2

Fields	Size	Type	Decimal Postions
IDENTIFYING-DATA	35	ALPHANUMERIC
SALES-AMOUNT	5	NUMERIC	2