Logo 
Search:

Cobol Articles

Submit Article
Home » Articles » Cobol » Homework HelpRSS Feeds

PROGRAM THAT CREATES A RELATIVE FILE.IT ALSO PERFORMS INSERTION,DELETION,UPDATION AND PRINTING ON IT

Posted By: Reiner Fischer     Category: Cobol     Views: 3468

PROGRAM THAT CREATES A RELATIVE FILE.IT ALSO PERFORMS INSERTION,DELETION,UPDATION AND PRINTING ON IT.

Code for PROGRAM THAT CREATES A RELATIVE FILE.IT ALSO PERFORMS INSERTION,DELETION,UPDATION AND PRINTING ON IT in Cobol

      IDENTIFICATION DIVISION.
        PROGRAM-ID. STUOPE.
       
       ENVIRONMENT DIVISION.
        INPUT-OUTPUT SECTION.
         FILE-CONTROL.
          SELECT FILE1 ASSIGN TO DISK
          ORGANIZATION IS RELATIVE
          ACCESS IS DYNAMIC
          RELATIVE KEY IS INROLL-NO.

       DATA DIVISION.
        FD FILE1
           VALUE OF FILE-ID IS "STUDOP.DAT".
          01 WRFILE.
            05 FROLL-NO PIC 9(2).
            05 FNAME    PIC X(10).
            05 FTOT     PIC 9(2).

        WORKING-STORAGE SECTION.
         
         01 INROLL-NO PIC 9(2).
         01 WISH   PIC X VALUE "Y".
         01 CONTI  PIC 9 VALUE 0.
         01 CHA-NAME PIC X VALUE "N".
         01 CHA-TOT  PIC X VALUE "N".
         01 EOF PIC X VALUE "N".
         01 SCODE  PIC 9.
             88 INSRT  VALUE 1.
             88 UPDT   VALUE 2.
             88 DELET  VALUE 3.
             88 PRNREC VALUE 4.
        
        PROCEDURE DIVISION.
          BEGIN.
                  OPEN I-O FILE1.
                MENU.
                
                PERFORM UNTIL WISH="N" OR WISH="n" OR CONTI=1
                 
                 DISPLAY "1.INSERT A NEW RECORD"  
                 DISPLAY "2.UPDATE AN EXISTING RECORD"
                 DISPLAY "3.DELETE A RECORD"
                 DISPLAY "4.DISPLAY THE SPECIFIED RECORD"

             DISPLAY "ENTER YOUR CHOICE(1,2,3 OR 4)="WITH NO ADVANCING
                 ACCEPT SCODE

                 PERFORM SELPARA

                 DISPLAY "WANT TO CONTINUE?="WITH NO ADVANCING
                 ACCEPT WISH

               END-PERFORM.
               CLOSE FILE1.
               STOP RUN.

           SELPARA.
                 EVALUATE TRUE
                   WHEN INSRT 
                       PERFORM INS-PARA
                   WHEN UPDT 
                       PERFORM UPD-PARA
                  WHEN DELET
                       PERFORM DEL-PARA
                  WHEN PRNREC
                       PERFORM DISP-PARA
                  WHEN OTHER
                        DISPLAY "ENTER A VALID CHOICE"
                END-EVALUATE.

         INS-PARA.
                DISPLAY "ENTER THE ROLL-NUMBER="WITH NO ADVANCING.
                ACCEPT INROLL-NO.

                MOVE INROLL-NO TO FROLL-NO.

                DISPLAY "ENTER THE NAME="WITH NO ADVANCING.
                ACCEPT FNAME.

                DISPLAY "ENTER THE TOTAL MARKS="WITH NO ADVANCING.
                ACCEPT FTOT.

                WRITE WRFILE
                   INVALID KEY DISPLAY "ENTER A VALID ROLL NUMBER"
                   MOVE 1 TO CONTI
                   GO TO MENU
                END-WRITE.

            UPD-PARA.
                 
                 DISPLAY "ENTER THE ROLL NO="WITH NO ADVANCING.
                 ACCEPT INROLL-NO.
                 MOVE INROLL-NO TO FROLL-NO.
                 
                 READ FILE1.
                 
            DISPLAY "DO YOU WANT TO CHANGE NAME=?"WITH NO ADVANCING.
                ACCEPT CHA-NAME.

                IF CHA-NAME="Y" THEN
                   DISPLAY "ENTER THE NEW NAME="WITH NO ADVANCING
                   ACCEPT FNAME
                END-IF.

           DISPLAY "DO YOU WANT TO CHANGE MARKS?="WITH NO ADVANCING. 
                  ACCEPT CHA-TOT.

                IF CHA-TOT="Y" THEN
                    DISPLAY "ENTER THE TOTAL MARKS="WITH NO ADVANCING
                    ACCEPT FTOT
                END-IF.

                REWRITE WRFILE
                    INVALID KEY DISPLAY "THE KEY ALREADY EXISTS"
                    MOVE 1 TO CONTI
                    GO TO MENU
               END-REWRITE.

           DEL-PARA.
                 DISPLAY "ENTER THE THE ROLL-NO="WITH NO ADVANCING.
                 ACCEPT INROLL-NO.

                 MOVE INROLL-NO TO FROLL-NO.
                 DELETE FILE1
                     INVALID KEY DISPLAY "THE KEY DOES NOT EXIST"
                     MOVE 1 TO CONTI
                     GO TO MENU
                END-DELETE.

            DISP-PARA.
                 DISPLAY "ENTER THE ROLL-NO="WITH NO ADVANCING.
                 ACCEPT INROLL-NO.

                 MOVE INROLL-NO TO FROLL-NO.
                 READ FILE1       
                INVALID KEY DISPLAY "THE KEY DOES NOT EXIST"
                     MOVE 1 TO CONTI
                     GO TO MENU
                 END-READ.
      
                 DISPLAY  "ROLL-NO::"FROLL-NO.
                 DISPLAY  "NAME ::::"FNAME.
                 DISPLAY  "TOTAL MARKS:::"FTOT.

/*********************************************************************************************
OUTPUT
**********************************************************************************************/
NOTE:- THE FILE STUDINFO.DAT DOESNOT EXIST.WHEN IT IS RUN FOR THE FIRST TIME THE FIRST OPTION FOR INSERTION IS SELECTED AND RECORDS ARE ENTERED. 1.INSERT A NEW RECORD 2.UPDATE AN EXISTING RECORD 3.DELETE A RECORD 4.DISPLAY THE SPECIFIED RECORD ENTER YOUR CHOICE(1,2,3 OR 4)=1 ENTER THE ROLL-NUMBER=1 ENTER THE NAME=SHAILY ENTER THE TOTAL MARKS=35 WANT TO CONTINUE?=Y 1.INSERT A NEW RECORD 2.UPDATE AN EXISTING RECORD 3.DELETE A RECORD 4.DISPLAY THE SPECIFIED RECORD ENTER YOUR CHOICE(1,2,3 OR 4)=1 ENTER THE ROLL-NUMBER=2 ENTER THE NAME=ASMITA ENTER THE TOTAL MARKS=45 WANT TO CONTINUE?=Y 1.INSERT A NEW RECORD 2.UPDATE AN EXISTING RECORD 3.DELETE A RECORD 4.DISPLAY THE SPECIFIED RECORD ENTER YOUR CHOICE(1,2,3 OR 4)=1 ENTER THE ROLL-NUMBER=2 ENTER THE NAME=ADITI ENTER THE TOTAL MARKS=45 ENTER A VALID ROLL NUMBER NOTE:-RECORDS ARE ENTERED IN THE FILE. 1.INSERT A NEW RECORD 2.UPDATE AN EXISTING RECORD 3.DELETE A RECORD 4.DISPLAY THE SPECIFIED RECORD ENTER YOUR CHOICE(1,2,3 OR 4)=2 ENTER THE ROLL NUMBER=2 DO YOU WANT TO CHANGE NAME?=Y ENTER THE NEW NAME=SAM DO YOU WANT TO CHANGE MARKS?=Y ENTER THE MARKS=60 WANT TO CONTINUE?=N
  
Share: 



Reiner Fischer
Reiner Fischer author of PROGRAM THAT CREATES A RELATIVE FILE.IT ALSO PERFORMS INSERTION,DELETION,UPDATION AND PRINTING ON IT is from Frankfurt, Germany.
 
View All Articles

Related Articles and Code:


 
Please enter your Comment

  • Comment should be atleast 30 Characters.
  • Please put code inside [Code] your code [/Code].

 
No Comment Found, Be the First to post comment!