Dept of Computer Application COBOL Programming Lab

1. Earning Report
Program:
IDENTIFICATION DIVISION.
PROGRAM-ID. EARN.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT DEPOUT-FILE ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD DEPOUT-FILE
LABEL RECORD STANDARD
VALUE OF FILE-ID IS "DEP1.DAT".
01 OUT-REC PIC X(80).
WORKING-STORAGE SECTION.
77 CHO PIC A(2).
01 L1 PIC X(75) VALUE ALL "-".
01 H-1.
02 F PIC X(30) VALUE SPACES.
02 F PIC X(20) VALUE "EARNING REPORT ".
01 H-2.
02 F PIC X(30) VALUE SPACES.
02 F PIC X(14) VALUE ALL "-".
01 H-3.
02 F PIC X(6) VALUE "DEPNO".
02 F PIC X(6) VALUE SPACES.
02 F PIC X(9) VALUE "DEPNAME".
02 F PIC X(6) VALUE SPACES.
02 F PIC X(9) VALUE "EARNING".
02 F PIC X(3) VALUE SPACES.
02 F PIC X(6) VALUE "GRADE".
02 F PIC X(3) VALUE SPACES.
02 F PIC X(6) VALUE "TOTAL".
02 F PIC X(3) VALUE SPACES.

01 H-4.
02 DEPNO PIC 9(4).
02 F PIC X(8) VALUE SPACES.
02 DEPNAME PIC A(10).
02 F PIC X(5) VALUE SPACES.
02 EARNING PIC 9(5).
02 F PIC X(7) VALUE SPACES.
02 GRADE PIC A(3).
02 F PIC X(6) VALUE SPACES.
02 TOTAL PIC 9(6) VALUE ZERO.
02 F PIC X(3) VALUE SPACES.
PROCEDURE DIVISION.
MAIN-PARA.
OPEN OUTPUT DEPOUT-FILE.
WRITE OUT-REC FROM H-1.
WRITE OUT-REC FROM H-2.
WRITE OUT-REC FROM L1.
WRITE OUT-REC FROM H-3.
INPUT-PARA.
DISPLAY(5 10) ERASE.

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

DISPLAY(5 10) "ENTER YOUR DEPNO : ".

ACCEPT DEPNO.
DISPLAY(7 10) "ENTER YOUR DEPNAME : ".
ACCEPT DEPNAME.
DISPLAY(9 10) "ENTER MARK OF EARNING : ".
ACCEPT EARNING.
COMPUTE TOTAL = TOTAL + EARNING.
IF EARNING > 10000 MOVE "A" TO GRADE
ELSE IF EARNING > 7000 AND EARNING < 10000
MOVE "B" TO GRADE
ELSE IF EARNING < 7000 MOVE "C" TO GRADE.
WRITE OUT-REC FROM H-4.
DISPLAY(15 10) "DO U WANT TO ADD NEW RECORD (YES-Y/NO-N):".
ACCEPT CHO.
IF CHO = "Y" OR CHO = "y" GO TO INPUT-PARA
ELSE GO TO STOP-PARA.
STOP-PARA.
WRITE OUT-REC FROM L1.
CLOSE DEPOUT-FILE.
STOP RUN.

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

Output:

ENTER YOUR DEPNO : 1235

ENTER YOUR DEPNAME : BCA

ENTER MARK OF EARNING :200000

DO U WANT TO ADD NEW RECORD (YES-Y/NO-N): Y

ENTER YOUR DEPNO : 1236

ENTER YOUR DEPNAME : BBA

ENTER MARK OF EARNING :70000

DO U WANT TO ADD NEW RECORD (YES-Y/NO-N): Y

ENTER YOUR DEPNO : 1237

ENTER YOUR DEPNAME : Bsc

ENTER MARK OF EARNING : 30000

DO U WANT TO ADD NEW RECORD (YES-Y/NO-N): N

EARNING REPORT
--------------
---------------------------------------------------------------------------
DEPNO DEPNAME EARNING GRADE TOTAL
1235 BCA 0200000 A 0200000
1236 BBA 0070000 A 0270000
1237 Bsc 0030000 C 0300000

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

2. Price-list
Program:
IDENTIFICATION DIVISION.
PROGRAM-ID PRICE.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT PRICEOUT-FILE ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD PRICEOUT-FILE
LABEL RECORD STANDARD
VALUE OF FILE-ID IS "PRICE.TXT".
01 OUT-REC PIC X(75).
WORKING-STORAGE SECTION.
77 CHO PIC A(2).
01 L1 PIC X(80) VALUE ALL "-".
01 H-1.
02 F PIC X(30) VALUE SPACES.
02 F PIC X(10) VALUE "PRICE LIST".
01 H-2.
02 F PIC X(30) VALUE SPACES.
02 F PIC X(10) VALUE ALL "-".
01 H-3.
02 F PIC X(8) VALUE "ITEMNAME".
02 F PIC X(5) VALUE SPACES.
02 F PIC X(10) VALUE "ITEMCODE".
02 F PIC X(9) VALUE SPACES.
02 F PIC X(7) VALUE "OLDRATE".
02 F PIC X(9) VALUE SPACES.
02 F PIC X(7) VALUE "NEWRATE".
02 F PIC X(9) VALUE SPACES.
01 H-4.
02 ITEMNAME PIC A(7).
02 F PIC X(6) VALUE SPACES.
02 ITEMCODE PIC 9(8).
02 F PIC X(10) VALUE SPACES.
02 OLDRATE PIC 9(7).
02 F PIC X(9) VALUE SPACES.
02 NEWRATE PIC 9(7).
02 F PIC X(9) VALUE SPACES.
PROCEDURE DIVISION.
MAIN-PARA.
OPEN OUTPUT PRICEOUT-FILE.
WRITE OUT-REC FROM H-1.
WRITE OUT-REC FROM H-2.
WRITE OUT-REC FROM L1.
WRITE OUT-REC FROM H-3.
INPUT-PARA.
DISPLAY(10 10) ERASE.
DISPLAY(10 10) "ENTER ITEMNAME:".
ACCEPT ITEMNAME.
DISPLAY(12 10) "ENTER ITEMCODE:".
ACCEPT ITEMCODE.

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

DISPLAY(14 10) "ENTER OLDRATE:".

ACCEPT OLDRATE.
DISPLAY(16 10) "ENTER NEWRATE:".
ACCEPT NEWRATE.
WRITE OUT-REC FROM H-4.
DISPLAY(19 7) "DO U WANT TO ADD ONE MORE RECORD (Y/N): ".
ACCEPT CHO.
IF CHO = "Y" OR CHO = "y" GO TO DISP-PARA
ELSE GO TO STOP-PARA.
DISP-PARA.
GO TO INPUT-PARA.
STOP-PARA.
WRITE OUT-REC FROM L1.
CLOSE PRICEOUT-FILE.
STOP RUN.

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

Output:

ENTER ITEMNAME: HAMAM

ENTER ITEMCODE:1234

ENTER OLDRATE:17

ENTER NEWRATE:19

DO U WANT TO ADD ONE MORE RECORD (Y/N): Y

ENTER ITEMNAME: LIRIL

ENTER ITEMCODE:1235

ENTER OLDRATE:20

ENTER NEWRATE:25

DO U WANT TO ADD ONE MORE RECORD (Y/N): Y

ENTER ITEMNAME: LUX

ENTER ITEMCODE:123

ENTER OLDRATE:25

ENTER NEWRATE:30

DO U WANT TO ADD ONE MORE RECORD (Y/N): Y

PRICE LIST
----------
-------------------------------------------------------------------------------
ITEMNAME ITEMCODE OLDRATE NEWRATE
-------------------------------------------------------------------------------
HAMAM 00001234 0000017 0000019
LIRIL 00001235 0000020 0000025
LUX 00001236 0000025 0000030

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

3. Test Grade Report

Program:
IDENTIFICATION DIVISION.
PROGRAM-ID. GRADE.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT STDOUT-FILE ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD STDOUT-FILE
LABEL RECORD STANDARD
VALUE OF FILE-ID IS "GRADE.DAT".
01 OUT-REC PIC X(80).
WORKING-STORAGE SECTION.
77 CHO PIC A(2).
01 L1 PIC X(75) VALUE ALL "-".
01 H-1.
02 F PIC X(30) VALUE SPACES.
02 F PIC X(20) VALUE "TEST GRADE ".
01 H-2.
02 F PIC X(30) VALUE SPACES.
02 F PIC X(10) VALUE ALL "-".
01 H-3.
02 F PIC X(6) VALUE "NAME".
02 F PIC X(6) VALUE SPACES.
02 F PIC X(6) VALUE "ROLLNO".
02 F PIC X(6) VALUE SPACES.
02 F PIC X(6) VALUE "TEST-1".
02 F PIC X(3) VALUE SPACES.
02 F PIC X(6) VALUE "TEST-2".
02 F PIC X(3) VALUE SPACES.
02 F PIC X(6) VALUE "TEST-3".
02 F PIC X(3) VALUE SPACES.
02 F PIC X(6) VALUE "GRADE".
02 F PIC X(2) VALUE SPACES.
01 H-4.
02 NAME PIC A(10).
02 F PIC X(2) VALUE SPACES.
02 ROLLNO PIC 9(5).
02 F PIC X(7) VALUE SPACES.
02 TEST-1 PIC 9(3).
02 F PIC X(6) VALUE SPACES.
02 TEST-2 PIC 9(3).
02 F PIC X(6) VALUE SPACES.
02 TEST-3 PIC 9(3).
02 F PIC X(6) VALUE SPACES.
02 GRADES PIC A(2).
02 F PIC X(6) VALUE SPACES.
PROCEDURE DIVISION.
MAIN-PARA.
OPEN OUTPUT STDOUT-FILE.
WRITE OUT-REC FROM H-1.

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

WRITE OUT-REC FROM H-2.

WRITE OUT-REC FROM L1.
WRITE OUT-REC FROM H-3.
INPUT-PARA.
DISPLAY(5 10) ERASE.
DISPLAY(5 10) "ENTER YOUR NAME : ".
ACCEPT NAME.
DISPLAY(7 10) "ENTER YOUR ROLLNO : ".
ACCEPT ROLLNO.
DISPLAY(9 10) "ENTER MARK OF TEST-1 : ".
ACCEPT TEST-1.
DISPLAY(11 10) "ENTER MARK OF TEST-2 : ".
ACCEPT TEST-2.
DISPLAY(13 10) "ENTER MARK OF TEST-3 :".
ACCEPT TEST-3.
IF TEST-1 > 80 AND TEST-2 > 80 AND TEST-3 > 80
MOVE "A" TO GRADES
ELSE IF TEST-1 > 60 AND TEST-1 < 80 AND TEST-2 > 60 AND -
TEST-2 < 80 AND TEST-3 > 60 AND TEST-3 < 80
MOVE "B" TO GRADES.
WRITE OUT-REC FROM H-4.
DISPLAY(15 10) "DO U WANT TO ADD NEW RECORD (YES-Y/NO-N):".
ACCEPT CHO.
IF CHO = "Y" OR CHO = "y" GO TO INPUT-PARA
ELSE GO TO STOP-PARA.
STOP-PARA.
WRITE OUT-REC FROM L1.
CLOSE STDOUT-FILE.
STOP RUN.

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

Output:

ENTER YOUR NAME : FAIZAN

ENTER YOUR ROLLNO : 1090

ENTER MARK OF TEST-1 : 98

ENTER MARK OF TEST-2 : 96

ENTER MARK OF TEST-3 : 99

DO U WANT TO ADD NEW RECORD (YES-Y/NO-N): Y

ENTER YOUR NAME : MSM

ENTER YOUR ROLLNO : 1096

ENTER MARK OF TEST-1 : 72

ENTER MARK OF TEST-2 : 76

ENTER MARK OF TEST-3 : 73

DO U WANT TO ADD NEW RECORD (YES-Y/NO-N): Y

ENTER YOUR NAME : SADAM

ENTER YOUR ROLLNO : 1102

ENTER MARK OF TEST-1 : 50

ENTER MARK OF TEST-2 : 40

ENTER MARK OF TEST-3 : 30

DO U WANT TO ADD NEW RECORD (YES-Y/NO-N): N

TEST GRADE
----------
---------------------------------------------------------------------------
NAME ROLLNO TEST-1 TEST-2 TEST-3 GRADE
FAIZAN 01090 098 096 099 A
MSM 01096 072 076 073 B
SADAM 01102 050 040 030 C

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

4. Account Balance Report

Program:
IDENTIFICATION DIVISION.
PROGRAM-ID. AC.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT STDOUT-FILE ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD STDOUT-FILE
LABEL RECORD STANDARD
VALUE OF FILE-ID IS "ACB.DAT".
01 OUT-REC PIC X(80).
WORKING-STORAGE SECTION.
77 CHO PIC A(2).
01 L1 PIC X(80) VALUE ALL "-".
01 H-1.
02 F PIC X(30) VALUE SPACES.
02 F PIC X(17) VALUE "ACCOUNT BALANCE".
01 H-2.
02 F PIC X(30) VALUE SPACES.
02 F PIC X(15) VALUE ALL "-".
01 H-3.
02 F PIC X(6) VALUE "ACCNO".
02 F PIC X(6) VALUE SPACES.
02 F PIC X(6) VALUE "NAME".
02 F PIC X(6) VALUE SPACES.
02 F PIC X(8) VALUE "DEPOSIT".
02 F PIC X(6) VALUE SPACES.
02 F PIC X(10) VALUE "WITHDRAWN".
02 F PIC X(6) VALUE SPACES.
02 F PIC X(8) VALUE "BALANCE".
02 F PIC X(6) VALUE SPACES.
01 H-4.
02 ACCNO PIC 9(5) VALUE 38257.
02 F PIC X(7) VALUE SPACES.
02 NAME PIC A(10).
02 F PIC X(2) VALUE SPACES.
02 DEPOSIT PIC 9(7).
02 F PIC X(7) VALUE SPACES.
02 WITHDRAWN PIC 9(7).
02 F PIC X(9) VALUE SPACES.
02 BALANCE PIC 9(5) VALUE ZERO.
02 F PIC X(9) VALUE SPACES.
PROCEDURE DIVISION.
MAIN-PARA.
OPEN OUTPUT STDOUT-FILE.
WRITE OUT-REC FROM H-1.
WRITE OUT-REC FROM H-2.
WRITE OUT-REC FROM L1.

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

WRITE OUT-REC FROM H-3.

INPUT-PARA.
DISPLAY(7 10) ERASE.
DISPLAY(7 10) "ENTER YOUR NAME : ".
ACCEPT NAME.
DISPLAY(9 10) "ENTER YOUR DEPOSIT : ".
ACCEPT DEPOSIT.
DISPLAY(11 10) "ENTER YOUR WITHDRAWN : ".
ACCEPT WITHDRAWN.
IF WITHDRAWN = 0
COMPUTE BALANCE = BALANCE + DEPOSIT
ELSE COMPUTE BALANCE = BALANCE - WITHDRAWN.
WRITE OUT-REC FROM H-4.
DISPLAY(15 6) "DO U WANT TO ADD NEW RECORD (YES - Y / NO - N): ".
ACCEPT CHO.
IF CHO = "Y" OR CHO = "y" GO TO INPUT-PARA
ELSE GO TO STOP-PARA.
STOP-PARA.
WRITE OUT-REC FROM L1.
CLOSE STDOUT-FILE.
STOP RUN.

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

Output:

ENTER YOUR NAME : FAIZAN

ENTER YOUR DEPOSIT : 50000

ENTER YOUR WITHDRAWN : 0

DO U WANT TO ADD NEW RECORD (YES - Y / NO - N):Y

ENTER YOUR NAME : MEHFUZ

ENTER YOUR DEPOSIT : 0

ENTER YOUR WITHDRAWN : 10000

DO U WANT TO ADD NEW RECORD (YES - Y / NO - N):Y

ENTER YOUR NAME : THOUFIQ

ENTER YOUR DEPOSIT : 30000

ENTER YOUR WITHDRAWN : 0

DO U WANT TO ADD NEW RECORD (YES - Y / NO - N):N

ACCOUNT BALANCE
-----------------
--------------------------------------------------------------------------------
ACCNO NAME DEPOSIT WITHDRAWN BALANCE
38257 FAIZAN 0050000 0000000 50000
38257 MEHFUZ 0000000 0010000 40000
38257 THOUFIQ 0030000 0000000 70000

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

5. Ledger-Record validation
Program:
IDENTIFICATION DIVISION.
PROGRAM-ID. ERROR.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT ACFILE ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL.
SELECT OUTFILE ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD ACFILE
LABEL RECORDS ARE STANDARD
VALUE OF FILE-ID IS "ERR.TXT".
01 ACC-REC.
02 RC PIC X(2).
88 VALID-RC VALUE"LM".
02 ACC-NO.
03 FNO PIV X(5).
03 LNO ;IC X(3).
02 ACC-DESC.
03 FNAME PIC X.
03 REST-NAME PIC X(19).
02 ACC-TYPE PIC X.
88 VALID-ACC-TYPE VALUES ARE
'X''1''2''3''4''5''6'.
02 ACC-BALANCE PIC 9(8)V99.
FE OUTFILE
LABEL RECORDS ARE STANDARD
VALUE OF FILE-ID IS "ER.DAT".
01 OUTREC PIC X(80).
WORKING-STORAGE SECTION.
01 H1.
05 F PIC X(28) VALUE SPACES.
05 F PIC X(24) VALUE "LEDGER RECORD VALIDATION".
01 H11.
05 F PIC X(30) VLUE SPACES .
05 F PIC X(16) VALUE "AUDIT/ERRER LIST.
01 H2.
05 F PIC X(2) VALUE "RC".
05 F PIC X(3) VALUE SPACES.
05 F PIC X() VALUE "NUMBER".
05 F PIC X(5) VALUE SPACES.
05 F PIC X(11) VALUE 'DESCRIPTION".
05 F PIC X(10) VALUE SPACES.
05 F PIC X(2) VALUE "AT".
05 F PIC X(5) VALUE SPACES.
05 F PIC X(7) VALUE "BALANCE".
05 F PIC X(5) VALUE SPACES.

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

05 F PIC X(11) VALUE "ERRER CODES".

01 D-REC.
02 F PIC X(2) VALUE SPACES.
02 RC PIC X(2).
02 F PIC X(2) VALUE SPACES.
02 ACC-NO-O.
03 FNO-O PIC X(5).
03 LNO-O PIC X(3).
02 F PIC X(2) VALUE SPACES.
02 ACC-DESC-O.
03 FNAME PIC X.
03 REST-NAME PIC X(19).
02 F PIC X(2) VALUE SPACES.
02 ACC-TYPE PIC X.
02 F PIC X(2) VALUE SPACES.
02 ACC-BALANCE-O PIC Z(8).99.
02 F PIC X(2) VALUE SPACES.
02 ERR-CODE1 PIC X.
02 ERR-CODE2 PIC X.
02 ERR-CODE3 PIC X.
02 ERR-CODE4 PIC X.
02 ERR-CODE5 PIC X.
02 ERR-CODE6 PIC X.
01 BLANK-SPACE PIC X(80) VALUE SPACES.
77 CHI PIC X VALUE 'Y'.
77 EOF PIC X VALUE 'N'.
77 LINEUSED PIC 99 VALUE 0.
PROCEDURE DIVISION.
MAIN-PARA.
OPEN OUTPUT ACOUT-FILE.
PERFORM ACCEPT-PARA UNTIL CHI='N'.
CLOSE ACCOUNTFILE.
OPEN INPUT ACCOUNTFILE OUTPUT OUTFILE.
PERFORM HEAD-PARA.
READ ACCOUNTFILE AT END MOVE 'Y' TO EOF.
PERFORM VALIDATION-PARA UNTIL EOF='Y'.
CLISE ACCOUNTFILE OUTFILE.
STOP RUN.
ACCEPT-PARA.
DISPLAY "ENTER THE RECORD CODE".
ACCEPT RCC OF ACC-RC.
DISPLAY " ENTER THE ACCOUNT NUMBER".
ACCEPT ACC-NO OF ACC-REC.
DISPLAY "ENTER THE ACCOUNT DESCRIPTION".
ACCEPT ACC-DESC OF ACC-RC.
DISPLAY "ENTER THE ACCOUNT TYPE".
ACCEPT ACC-TYPE OF ACC-REC.
DISPLAY "ENTER THE ACCOUNT BALANCE".
ACCEPT ACC-BALANCE OF ACC-REC.
WRITE ACC-REC.
PERFORM DISP-PARA.
DISPLAY "DO YOU WANT TO CONTINUE Y/N.”
ACCEPT CHI.
HEAD-PARA.
WRITE OUT-REC FROM H1.
WRITE OUT-REC FROM BLANK-SPACE.
WRITE OUT-REC FROM H2.

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

ADD 3 TO LINEUSED.
VALIDATION-PARA.
IF NOT VALID-RC MOVE 'A' TO ERR-CODE1.
IF ACC-NO IS EQUAL TO SPACES
MOVE 'B' TO ERR-CODE2.
IF ACC-NO OF ACC-REC IS NUMERIC
MOVE 'C' TO ERR-CODE2.
IF ACC-DESC OF ACC-REC IS EQUAL TO SPACE
MOVE 'D' TO ERR-CODE4.
IF NOT VALID-ACC-TYPE MOVE 'E' TO ERR-CODE5.
INSPECT ACC-BALANCE
REPLACING LEADING SPACES BY ZEROS.
IF ACC-BALANCE IS NOR NUMERIC
MOVE 'F' TO ERR-CODE6.
MOVE RC OF ACC-REC TO RC OF D-REC.
MOVE ACC-NO TO ACC-NO-O OF D-REC.
MOVE ACC-DESC TO ACC-DESC-O OF D-REC.
MOVE ACC-TYPE OF ACC-REC TO ACC-TYPE OF D-REC.
MOVE ACC-BALANCE TO ACC-BALANCE-O OF D-REC.
WRITE OUT-REC FROM D-REC.
ADD 1 TO LINEUSED.
IF LINEUSED > 50
MOVE 0 TO LINEUSED
PERFORM HEAD-PARA.
MOVE SPACES TO ERR-CODE1,ERR-CODE2,ERR-CODE3,
ERR-CODE4,ERR-CODE5,ERR-CODE6.
READ ACCOUNTFILE AT END MOVE "Y" TO EOF.
DISP-PARA.
IF NOT VALID-REC
DISPLAY "YOUR RC NUMBER IS NOT VALID"
DISPLAY "ERROR CODE:A".
IF ACC-NO IS EQUAL TO SPACES
DISPLAY "ACCOUNT NUMBER IS BLANK"
DISPLAY "ERROR CODE:B".
IF ACC-NO OF ACC-REC IS NUMERIC
DISPLAY "YOUR AC NUMBER IS NOT NUMERIC"
DISPLAY "ERROR CODE:C".
IF ACC-DESC OF ACC-REC IS EQUAL TO SPACES
DISPLAY "YOUR AC DESCRIPTION IS BLANK"
DISPLAY "ERROR CODE:D".
IF NOT VALID-ACC-TYPE
DISPLAY "INVALID ACCOUNT TYPE"
DISPLAY "ERROR CODE:E".
INSPECT ACC-BALANCE
REPLACING LEADING SPACES BY ZEROS.
IF ACC-BALANCE IS NOT NUMERIC
DISPLAY "ACCOUNT BALANCE IS NOT NUMERIC"
DISPLAY "ERROR CODE:F".

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

Output:

ENTER THE RECORD CODE : LM

ENTER THE ACCOUNT NUMBER : 123

ENTER THE ACCOUNT DESCRIPTION : FDT

ENTER THE ACCOUNT TYPE : X

ENTER THE ACCOUNT BALANCE : 10000

DO YOU WANT TO CONTINUE Y/N: Y

ENTER THE RECORD CODE : BM

ENTER THE ACCOUNT NUMBER : GTR

ENTER THE ACCOUNT DESCRIPTION : ECR

ENTER THE ACCOUNT TYPE : Y

ENTER THE ACCOUNT BALANCE : KJDSF

DO YOU WANT TO CONTINUE Y/N: N

LEDGER RECORD VALIDATION

------------------------
RC NUMBER DESCRIPTION AT BALANCE ERROR CODE
-----------------------------------------------------------------------
LM 123 FDT X 10000 ABDE
BM GTR ECR Y KJDSF ABCDEF

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

6. Department –name look up

Program:
IDENTIFICATION DIVISION.
PROGRAM-ID. DEP.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT STDOUT-FILE ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD STDOUT-FILE
LABEL RECORD STANDARD
VALUE OF FILE-ID IS "DEP.TXT".
01 OUT-REC PIC X(75).
WORKING-STORAGE SECTION.
77 CHO PIC A(2).
01 L1 PIC X(75) VALUE ALL "-".
01 H-1.
02 F PIC X(30) VALUE SPACES.
02 F PIC X(23) VALUE "DEPARTMENT NAME LOOKUP".
01 H-2.
02 F PIC X(30) VALUE SPACES.
02 F PIC X(22) VALUE ALL "_".
01 H-3.
02 F PIC X(6) VALUE "NAME".
02 F PIC X(6) VALUE SPACES.
02 F PIC X(6) VALUE "DEPNO".
02 F PIC X(6) VALUE SPACES.
02 F PIC X(18) VALUE "DEPNAME".
02 F PIC X(4) VALUE SPACES.
02 F PIC X(6) VALUE "CITY".
02 F PIC X(6) VALUE SPACES.
01 H-4.
02 NAME PIC A(10).
02 F PIC X(2) VALUE SPACES.
02 DEPNO PIC 9(5).
02 F PIC X(7) VALUE SPACES.
02 DEPNAME PIC A(20).
02 F PIC X(2) VALUE SPACES.
02 CITY PIC A(9).
02 F PIC X(3) VALUE SPACES.
PROCEDURE DIVISION.
MAIN-PARA.
OPEN OUTPUT STDOUT-FILE.
WRITE OUT-REC FROM H-1.
WRITE OUT-REC FROM H-2.
WRITE OUT-REC FROM L1.
WRITE OUT-REC FROM H-3.
INPUT-PARA.
DISPLAY(5 10) ERASE.
DISPLAY(5 10) "ENTER YOUR NAME : ".
ACCEPT NAME.

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

DISPLAY(7 10) "ENTER YOUR DEPNO : ".

ACCEPT DEPNO.
IF DEPNO = 1000
MOVE "ADMINISTRATION" TO DEPNAME
MOVE "AMBUR" TO CITY
ELSE IF DEPNO = 2000
MOVE "PURCHASING" TO DEPNAME
MOVE "VELLORE" TO CITY
ELSE IF DEPNO = 3000
MOVE "PERSONNEL" TO DEPNAME
MOVE "CHENNAI" TO CITY
ELSE IF DEPNO = 4000
MOVE "ADVERTISING" TO DEPNAME
MOVE "MUMBAI" TO CITY.
WRITE OUT-REC FROM H-4.
DISPLAY(15 6) "DO U WANT TO ADD NEW RECORD (YES - Y / NO - N): ".
ACCEPT CHO.
IF CHO = "Y" OR CHO = "y" GO TO INPUT-PARA
ELSE GO TO STOP-PARA.
STOP-PARA.
WRITE OUT-REC FROM L1.
CLOSE STDOUT-FILE.
STOP RUN.

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

Output:

ENTER YOUR NAME : FAIZAN

ENTER YOUR DEPNO : 1000

U WANT TO ADD NEW RECORD (YES - Y / NO - N): Y

ENTER YOUR NAME : TANVEER

ENTER YOUR DEPNO : 4000

U WANT TO ADD NEW RECORD (YES - Y / NO - N): Y

ENTER YOUR NAME : MUZAFAR

ENTER YOUR DEPNO : 2000

U WANT TO ADD NEW RECORD (YES - Y / NO - N): N

DEPARTMENT NAME LOOKUP

----------------------
---------------------------------------------------------------------------
NAME DEPNO DEPNAME CITY
---------------------------------------------------------------------------
FAIZAN 01000 ADMINISTRATION AMBUR
TANVEER 04000 ADVERTISING MUMBAI
MUZAFAR 02000 PURCHASING VELLORE

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

7. Federal income tax computation

Program:
IDENTIFICATION DIVISION.
PROGRAM-ID. INCOMETAX.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INCOUT-FILE ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD INCOUT-FILE
LABEL RECORD ARE STANDARD
VALUE OF FILE-ID IS "IN.DAT".
01 OUT-REC PIC X(80).
WORKING-STORAGE SECTION.
77 CHO PIC A(2).
01 L1 PIC X(80) VALUE ALL "---".
01 H-1.
02 F PIC X(30) VALUE SPACES.
02 F PIC X(20) VALUE "INCOME TAX".
01 H-2.
02 F PIC X(30) VALUE SPACES.
02 F PIC X(12) VALUE ALL "---".
01 H-3.
02 F PIC X(8) VALUE "CUST-ID".
02 F PIC X(5) VALUE SPACES.
02 F PIC X(10) VALUE "CUST-NAME".
02 F PIC X(9) VALUE SPACES.
02 F PIC X(8) VALUE "ADDRESS".
02 F PIC X(4) VALUE SPACES.
02 F PIC X(6) VALUE "ANI".
02 F PIC X(7) VALUE SPACES.
02 F PIC X(7) VALUE "TAX".
02 F PIC X(7) VALUE SPACES.
01 H-4.
02 CUST-ID PIC 9(5).
02 F PIC X(8) VALUE SPACES.
02 CUST-NAME PIC X(15).
02 F PIC X(4) VALUE SPACES.
02 ADDRESS PIC X(8).
02 F PIC X(4) VALUE SPACES.
02 ANI PIC 9(9).
02 F PIC X(4) VALUE SPACES.
02 TAX PIC 9(8).
PROCEDURE DIVISION.
MAIN-PARA.
OPEN OUTPUT INCOUT-FILE.
WRITE OUT-REC FROM H-1.
WRITE OUT-REC FROM H-2.
WRITE OUT-REC FROM L1.

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

WRITE OUT-REC FROM H-3.

INPUT-PARA.
DISPLAY(10 10) ERASE.
DISPLAY(10 10) "ENTER CUST-ID =".
ACCEPT CUST-ID.
DISPLAY(12 10) "ENTER CUST-NAME =".
ACCEPT CUST-NAME.
DISPLAY(14 10) "ENTER ADDRESS =".
ACCEPT ADDRESS.
DISPLAY(16 10) "ENTER ANNUAL INCOME =".
ACCEPT ANI.
IF ANI > 100000 AND ANI < 500001
COMPUTE TAX = ANI * 10 / 100
ELSE IF ANI > 500000 AND ANI < 1000001
COMPUTE TAX = ANI * 12 / 100
ELSE IF ANI > 1000000 AND ANI < 1500001
COMPUTE TAX = ANI * 13 / 100
ELSE IF ANI > 1500000
COMPUTE TAX = ANI * 15 / 100.
WRITE OUT-REC FROM H-4.
DISPLAY(18 10) "DOES U WANT TO ADD ONE MORE REC: ".
ACCEPT CHO.
IF CHO = "Y" OR CHO = "y" GO TO INPUT-PARA
ELSE GO TO STOP-PARA.
STOP-PARA.
WRITE OUT-REC FROM L1.
CLOSE INCOUT-FILE.
STOP RUN.

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

Output:

ENTER CUST-ID = 1234

ENTER CUST-NAME = MSM

ENTER ADDRESS = VELLORE

ENTER ANNUAL INCOME = 500000

DOES U WANT TO ADD ONE MORE REC: Y

ENTER CUST-ID = 6789

ENTER CUST-NAME = TKF

ENTER ADDRESS = AMBUR

ENTER ANNUAL INCOME = 800000

DOES U WANT TO ADD ONE MORE REC: N

INCOME TAX
----------
--------------------------------------------------------------------------------
CUST-ID CUST-NAME ADDRESS ANI TAX
01234 MSM VELLORE 000500000 00050000
06789 TKF AMBUR 000800000 00096000

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

8. Sort and print earning file

Program:
IDENTIFICATION DIVISION.
PROGRAM-ID. SORT.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT EARNFILE ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL.
SELECT SORTFILE ASSIGN TO DISK
DATA DIVISION.
FILE SECTION.
FD EARNFILE
LABEL RECORD ARE STANDARD
VALUE OF FILE-ID IS "EARN.TXT".
01 INREC
02 LNAME PIC X(5).
02 FNAME PIC X(14).
02 PAYCODE PIC A.
02 HOURLY PIC 9(4).
02 PAYRATE PIC 9(5)V99.
02 YTD PIC 9(5)V99.
SD SORTFILE.
01 SORTREC.
02 SLNAME PIC X(5).
02 SAFNAME PIC X(14).
02 SPAYCODE PIC A.
02 SHOURLY PIC 9(4).
02 SPAYRATE PIC 9(5)V99.
02 SYTD PIC 9(5)V99.
WORKING-STORAGE SECTION.
77 CH PIC 9.
77 CCH PIC X.
01 H1.
02 F PIC X(30) VALUE SPACES.
02 F PIC X(30) VALUE "SORT AND PRINT EARNING REPORT".
01 H2.

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

02 F PIC X(8) VALUE "PAY-CODE".

02 F PIC X(9) VALUE SPACES.
02 F PIC X(8) VALUE "EARNING".
02 F PIC X(9) VALUE SPACES.
02 F PIC X(10) VALUE "FIRSTNAME".
02 F PIC X(9) VALUE SPACES.
02 F PIC X(10) VALUE "LASTNAME".
02 F PIC X(9) VALUE SPACES.
01 D-REC.
02 F PIC X(5) VALUE SPACES.
02 PAYCODE-O PIC A.
02 F PIC X(9) VALUE SPACES.
02 YTD-O PIC Z(5).99.
02 F PIC X(6) VALUE SPACES.
02 FNAME-O PIC X(14).
02 F PIC X(10) VALUE SPACES.
02 LNAME PIC X(5) VALUE.
PROCEDURE DIVISION.
MAIN-PARA.
DISPLAY(5 5) ERASE.
DISPLAY(5 5) "1-NEW RECORD".
DISPLAY(7 5) "2-SORT RECORD".
DISPLAY(8 5) "CHOICE=".
ACCEPT CH.
IF CH = 1 GO TO NAW-PARA.
IF CH =2 GO TO SORT-PARA.
NEW-PARA.
OPEN OUTPUT EARNFILE.
PERFORM IN-PARA UNTIL CCH = "N".
CLOSE EARNFILE.
GO TO MAIN-PARA.
SORT-PARA.
SORT SORTFILE ASCENDING KEY SPAYCODE,SFNAME USING EARNFILE -
GIVING EARNING.
OPEN INPUT EARNFILE.
DISPLAY (1 1) ERASE.
DISPLAY H1.
DISPLAY H2.
MOVE 5 TO LIN.
GO TO PARA-OUT.

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

IN-PARA.
DISPLAY(5 10) ERASE.
DISPLAY(7 10) "LAST NAME".
ACCEPT LNAME OF INREC.
DISPLAY(9 10) "ENTER FIRST NAME".
ACCEPT FNAME OF INREC.
DISPLAY(11 10) "ENTER PAY CODE".
DISPLAY(12 10) "H=HOUR M=MONTH: ".
ACCEPT PAYCODE OF INREC.
IF PAYCODE ="H"
DISPLAY (13 10) "ENETR PAY RATE:"
ACCEPT PAYRATE OF INREC
DISPLAY (14 10) "ENTER NO. HOURS WORKED:"
ACCEPT HOURLY OF INREC
COMPUTE YTD = HOURLY * PAYRATE
DISPLAY (15 10) "EARNING:", YTD
ELSE IF PAYCODE ="M"
DISPLAY(13 10) "ENTER EARNING"
ACCEPT YTD OF INREC.
WRITE INREC.
DISPLAY(15 10) "DO U WANT TO CONTINUE...".
ACCEPT CCH.
PARA-OUT.
READ EARNFILE AT END GO TO CLOSE-PARA.
MOVE PAYCODE TO PAYCODE-O.
MOVE YTD TO YTD-O.
MOVE FNAME TO FNAME-O.
MOVE LNAME TO LNAMEE-O.
DISPLAY D-REC.
ADD 1 TO REC1.
GO TO PARA-OUT.
CLOSE-PARA.
DISPLAY (20 10) "No. OF RECORDS :", REC1.
CLOSE EARNFILE.
STOP RUN.

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

Output:

ENTER FIRST NAME : IRFAN

ENTER LAST NAME: AHMED
ENTER PAY CODE
H=HOUR M=MONTH:H
PAY RATE: 200
NO. HOURS WORKED: 8
EARNING: 1600
DO U WANT TO CONTINUE...". : Y

ENTER FIRST NAME : SADAM

ENTER LAST NAME: HUSSAIN
ENTER PAY CODE
H=HOUR M=MONTH:H
PAY RATE: 500
NO. HOURS WORKED: 10
EARNING: 5000
DO U WANT TO CONTINUE...". : Y

ENTER FIRST NAME : THOUFIQ

ENTER LAST NAME: AHMED
ENTER PAY CODE
H=HOUR M=MONTH:M
ENTER EARNING: 15000
DO U WANT TO CONTINUE...". : N

SORT AND PRINT EARNING FILE

-----------------------------------------------
PAY-CODE EARNING FIRSTNAME LASTNAME
----------------------------------------------------------------------------------------
H 1600 IRFAN AHMED

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

H 5000 SADAM HUSSAIN

M 15000 THOUFIQ AHMED

9. Vehicle file maintenance

Program:
IDENTIFICATION DIVISION.
PROGRAM-ID. STDU.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT STDOUT-FILE ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD STDOUT-FILE
LABEL RECORD STANDARD
VALUE OF FILE-ID IS "STD.DAT".
01 OUT-REC PIC X(85).
WORKING-STORAGE SECTION.
77 CHO PIC A(2).
01 L1 PIC X(85) VALUE ALL "-".
01 H-1.
02 F PIC X(25) VALUE SPACES.
02 F PIC X(34) VALUE "VEHICLE FILE MAINTENANCE REPORT".
01 H-2.
02 F PIC X(25) VALUE SPACES.
02 F PIC X(34) VALUE ALL "-".
01 H-3.
02 F PIC X(25) VALUE SPACES.
02 F PIC X(30) VALUE "FIRST THREE SERVICES IS FREE ".
01 H-4.
02 F PIC X(6) VALUE "VID".
02 F PIC X(2) VALUE SPACES.
02 F PIC X(6) VALUE "VNAME".
02 F PIC X(6) VALUE SPACES.
02 F PIC X(6) VALUE "NSER".
02 F PIC X(6) VALUE SPACES.
02 F PIC X(5) VALUE "SAMT".
02 F PIC X(6) VALUE SPACES.
02 F PIC X(8) VALUE "LCHARGE".
02 F PIC X(6) VALUE SPACES.
02 F PIC X(9) VALUE "SPCHARGE".
02 F PIC X(6) VALUE SPACES.
02 F PIC X(6) VALUE "TOTAL".
02 F PIC X(6) VALUE SPACES.
01 H-5.
02 VID PIC 9(4).
02 F PIC X(4) VALUE SPACES.
02 VNAME PIC A(8).
02 F PIC X(4) VALUE SPACES.
02 NSER PIC 9(4).
02 F PIC X(8) VALUE SPACES.
02 SAMT PIC 9(4) VALUE ZERO.
02 F PIC X(7) VALUE SPACES.
02 LCHARGE PIC 9(4) VALUE ZERO.

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

02 F PIC X(10) VALUE SPACES.

02 SPCHARGE PIC 9(4) VALUE ZERO.
02 F PIC X(11) VALUE SPACES.
02 TOTAL PIC 9(8).
02 F PIC X(4) VALUE SPACES.
PROCEDURE DIVISION.
MAIN-PARA.
OPEN OUTPUT STDOUT-FILE.
WRITE OUT-REC FROM H-1.
WRITE OUT-REC FROM H-2.
WRITE OUT-REC FROM H-3.
WRITE OUT-REC FROM L1.
WRITE OUT-REC FROM H-4.
INPUT-PARA.
DISPLAY(5 10) ERASE.
DISPLAY(5 10) "ENTER YOUR VEHICLE ID : ".
ACCEPT VID.
DISPLAY(7 10) "ENTER YOUR VEHICLE NAME : ".
ACCEPT VNAME.
DISPLAY(10 5) "*** FIRST 3 SERVICES ARE FREE !! *** ".
DISPLAY(12 10) "ENTER YOUR NO.SERVICE : ".
ACCEPT NSER.
IF NSER < 4
COMPUTE SAMT = 0
COMPUTE LCHARGE = 0
COMPUTE SPCHARGE = 0
COMPUTE TOTAL = 0.
IF NSER > 3
COMPUTE SAMT = 500
COMPUTE LCHARGE = 150
COMPUTE SPCHARGE = 300
COMPUTE TOTAL = SAMT + LCHARGE + SPCHARGE.
WRITE OUT-REC FROM H-5.
DISPLAY(15 6) "DO U WANT TO ADD NEW RECORD (YES - Y / NO - N): ".
ACCEPT CHO.
IF CHO = "Y" OR CHO = "y" GO TO INPUT-PARA
ELSE GO TO STOP-PARA.
STOP-PARA.
WRITE OUT-REC FROM L1.
CLOSE STDOUT-FILE.
STOP RUN.

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

Output:

ENTER YOUR VEHICLE ID : 1234

ENTER YOUR VEHICLE NAME : YAMAHA

*** FIRST 3 SERVICES ARE FREE !!***

ENTER YOUR NO.SERVICE : 2

U WANT TO ADD NEW RECORD (YES - Y / NO - N): Y

ENTER YOUR VEHICLE ID : 1235

ENTER YOUR VEHICLE NAME : TVS

*** FIRST 3 SERVICES ARE FREE !!***

ENTER YOUR NO.SERVICE : 5

U WANT TO ADD NEW RECORD (YES - Y / NO - N): Y

ENTER YOUR VEHICLE ID : 1237

ENTER YOUR VEHICLE NAME : HERO

*** FIRST 3 SERVICES ARE FREE !!***

ENTER YOUR NO.SERVICE : 7

U WANT TO ADD NEW RECORD (YES - Y / NO - N): N

VEHICLE FILE MAINTENANCE REPORT

--------------------------------
*** FIRST THREE SERVICES IS FREE ***
--------------------------------------------------------------------------------
VID VNAME NSER SAMT LCHARGE SPCHARGE TOTAL
1234 YAMAHA 0002 0000 0000 0000 0000
1235 TVS 0005 0500 0150 0300 0950
1237 HERO 0007 0500 0150 0300 00950
-------------------------------------------------------------------------------

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

10. Student Grade inquiry

Program:
IDENTIFICATION DIVISION.
PROGRAM-ID. STDU.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT STDOUT-FILE ASSIGN TO DISK
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD STDOUT-FILE
LABEL RECORD STANDARD
VALUE OF FILE-ID IS "STD.DAT".
01 OUT-REC PIC X(80).
WORKING-STORAGE SECTION.
77 CHO PIC A(2).
01 L1 PIC X(80) VALUE ALL "-".
01 H-1.
02 F PIC X(30) VALUE SPACES.
02 F PIC X(20) VALUE "STUDENT MARKSHEET ".
01 H-2.
02 F PIC X(30) VALUE SPACES.
02 F PIC X(17) VALUE ALL "-".
01 H-3.
02 F PIC X(6) VALUE "NAME".
02 F PIC X(6) VALUE SPACES.
02 F PIC X(6) VALUE "ROLLNO".
02 F PIC X(6) VALUE SPACES.
02 F PIC X(3) VALUE "M1".
02 F PIC X(6) VALUE SPACES.
02 F PIC X(3) VALUE "M2".
02 F PIC X(6) VALUE SPACES.
02 F PIC X(6) VALUE "TOTAL".
02 F PIC X(6) VALUE SPACES.
02 F PIC X(6) VALUE "AVG".
02 F PIC X(6) VALUE SPACES.
02 F PIC X(6) VALUE "GRADE".
02 F PIC X(6) VALUE SPACES.
01 H-4.
02 NAME PIC A(10).
02 F PIC X(2) VALUE SPACES.
02 ROLLNO PIC 9(5).
02 F PIC X(6) VALUE SPACES.
02 M1 PIC 9(3).
02 F PIC X(6) VALUE SPACES.
02 M2 PIC 9(3).
02 F PIC X(6) VALUE SPACES.
02 TOTAL PIC 9(3).
02 F PIC X(9) VALUE SPACES.
02 AVG PIC 9(3).
02 F PIC X(9) VALUE SPACES.
02 GRADE PIC A(3).

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

02 F PIC X(9) VALUE SPACES.

PROCEDURE DIVISION.
MAIN-PARA.
OPEN OUTPUT STDOUT-FILE.
WRITE OUT-REC FROM H-1.
WRITE OUT-REC FROM H-2.
WRITE OUT-REC FROM L1.
WRITE OUT-REC FROM H-3.
INPUT-PARA.
DISPLAY(5 10) ERASE.
DISPLAY(5 10) "ENTER YOUR NAME : ".
ACCEPT NAME.
DISPLAY(7 10) "ENTER YOUR ROLLNO : ".
ACCEPT ROLLNO.
DISPLAY(9 10) "ENTER YOUR M1 : ".
ACCEPT M1.
DISPLAY(11 10) "ENTER YOUR M2 : ".
ACCEPT M2.
COMPUTE TOTAL = M1 + M2.
COMPUTE AVG = TOTAL / 2.
IF M1 > 75 AND M2 > 75
MOVE "A" TO GRADE
ELSE IF M1 > 50 AND M1 < 75 AND M2 > 50 AND M2 < 75
MOVE "B" TO GRADE
ELSE MOVE "F" TO GRADE.
WRITE OUT-REC FROM H-4.
DISPLAY(15 6) "DO U WANT TO ADD NEW RECORD (YES - Y / NO - N): ".
ACCEPT CHO.
IF CHO = "Y" OR CHO = "y" GO TO INPUT-PARA
ELSE GO TO STOP-PARA.
STOP-PARA.
WRITE OUT-REC FROM L1.
CLOSE STDOUT-FILE.
STOP RUN.

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

Output:

ENTER YOUR NAME : FAIZAN

ENTER YOUR ROLLNO : 1090

ENTER YOUR M1 : 99

ENTER YOUR M2 : 98

DO U WANT TO ADD NEW RECORD (YES - Y / NO - N): Y

ENTER YOUR NAME : SHAKEEL

ENTER YOUR ROLLNO : 1104

ENTER YOUR M1 : 75

ENTER YOUR M2 : 70

DO U WANT TO ADD NEW RECORD (YES - Y / NO - N): Y

ENTER YOUR NAME : ARUN

ENTER YOUR ROLLNO : 1072

ENTER YOUR M1 : 40

ENTER YOUR M2 : 49

DO U WANT TO ADD NEW RECORD (YES - Y / NO - N): N

STUDENT MARKSHEET
-----------------
------------------------------------------------------------------------------
NAME ROLLNO M1 M2 TOTAL AVG GRADE
FAIZAN 01090 099 098 197 098 A
SHAKEEL 01104 075 070 145 072 B
ARUN 01000 040 049 089 044 F

Mazharul Uloom College

Dept of Computer Application COBOL Programming Lab

Mazharul Uloom College