Program for master file maintenance , COBOL Programming

PROGRAM FOR MASTER FILE MAINTENANCE:

We have to write a program to keep the stu-file for which a record has just 2 fields,viz., rno(Roll Number) and name(Student Name). Give the provisions to add, modify, delete the records in the file

identification division.

  program- id.

  environment division.

  input-output section.

  file-control.

    select stu- file assign to disk

    organization is indexed

    access mode is random

    record key is rno

    file status is fs.

  data division.

  file section.

  fd stu- file

    label records are standard

    value of file- id is "stu.dat".

  01 stu-rec.

    02 rno pic 9(3).

    02 name pic x(20).

working-storage section.

01 fs pic x(2) value spaces.

01 ans pic x value space.  

01 ch pic 9 value 0.

procedure division.  

open-para.

  open i-o stu-file.

  if fs = "30"

      open output stu-file

      close stu-file

      open i-o stu-file.

  p-1.

    display(1 1) erase.

    display(3 5) "Main Menu".

    display(5 5) "1 to Add".

    display(7 5) "2 to Modify".

    display(9 5) "3 to Delete".

    display(11 5) "4 to Exit".

    display(13 5) "Your Choice [1..4] : ".

    accept ch.

    if ch < 0 or ch > 4 go to p-1.

    go to add-para modi-para del-para exit-para

      depending on ch.

  add-para.

    display(1 1) erase.

    display(3 5) "Rno : ".

    accept rno.

    display(5 5) "Name : ".

    accept name.

    write stu-rec invalid key display(15 5) "Error!".

    display(20 5) "Continue Add Records [y/n] : ".

    accept ans.

    if ans = "y" go to add-para else go to p-1.

  modi-para.

    display(1 1) erase.

    display(3 5) "Enter Roll no to Modify".

    accept rno.

    read stu- file key is rno 

      invalid key display(13 5) "No Record Found"

            go to c-para.

    display(5 5) "Rno = " rno.

    display(7 5) "Name = " name.

    display(9 5) "Sure to Modify [y/n] : ".

    accept ans.

    if ans  = 'y'

      display(1 1) erase

      display(5 5) "Name : "

      accept name

            rewrite stu-rec.

  c-para.

    display(15 5) "Continue Modification [y/n] : ".

    accept ans.

    if ans = 'y' go to modi-para else go to p-1.

  del-para.

          display(1 1) erase.

    display(3 5) "Enter Roll no to Delete".

    accept rno.

    read stu- file key is rno 

    invalid key display(13 5) "No Record Found"

          go to c-para1.

  display(5 5) "Rno = " rno.

  display(7 5) "Name = " name.

  display(9 5) "Sure to Delete [y/n] : ".

  accept ans.

  if ans  = 'y'

    delete stu- file record.

c-para1.

  display(15 5) "Continue  Deletion  [y/n] : ".

  accept ans.

  if ans = 'y' go to del-para else go to p-1.

exit-para.

  close stu-file.

  stop run.

Posted Date: 10/18/2012 2:06:45 AM | Location : United States







Related Discussions:- Program for master file maintenance , Assignment Help, Ask Question on Program for master file maintenance , Get Answer, Expert's Help, Program for master file maintenance Discussions

Write discussion on Program for master file maintenance
Your posts are moderated
Related Questions
Literals: The actual values can too appear in a program. These values are termed as literals. For illustration, the statement MOVE 0 TO TOTAL indicates that the value zero wil


Character Set: To study any language, first one should know the alphabets of the language and they are termed as character set in general. There are 50 different characters in

Example of Perform statement: PERFORM BEGIN-CALCULATION THRU END-CALCULATION. Assume, BEGIN-CALCULATION and END-CALCULTION is paragraph names. The execution of the PERFORM

RULES OF MOVE VERB:  The Data movement is managed by the rules which are as shown below: (a) The contents of the identifier - 1 or the value of the literal - 1 is moved to

SUBTRACT VERB: The SUBTRACT verb is used to subtract one, or the sum of two or more numbers from one or more numbers and to store the result. The form of the SUBTRACT verb

RULES FOR INDEXED TABLES: The rules of indexing a table with an INDEXED phrase are as shown below: (1) If indexing is completed for any one level of a table, then indexing

LEVEL NUMBERS: The COBOL makes use of the level number concept to explain the hierarchical data structure. A level number is a 2 digit number. The permitted level numbers a

READ STATEMENT: The aim of this verb is to make available the next logical record from the input file. It is important to note the meaning of the "next" logical record in the

Concept of a two-dimensional table: Concept of a two-dimensional table can be easily extended to tables having three or more dimensions. The Handling of tables up to three dim