Program for indexed sequential file creation , COBOL Programming

PROGRAM FOR INDEXED SEQUENTIAL FILE CREATION:

We have to write a program to create an Indexed Sequential File in a dynamic mode for Student particulars. Suppose just 3 fields: rno(Roll Number), cl (Class) and m(Mark). Read the file and display the records.

identification division.

program- id.

environment division.

input-output section.

file-control.

  select stu- file assign to disk

  organization is indexed

  access mode is dynamic

  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  cl pic x(4).

  02  m  pic 9(3).

working-storage section.

01  ans pic x value space.

01  a-rno pic 9(3) value 0.

01  fs  pic x(2) value spaces.

procedure division.

p-1.

  open i-o  stu-file.

    if fs = "30"

      open output stu-file

      close stu-file

      open i-o stu-file.

  perform g-w-para until ans = 'n'.

  go to p-2.

g-w-para.

  display(1 1) erase.

  display "Enter Data :".

  accept rno.

  accept cl.

  accept m.

  write stu-rec invalid key

      display "Record Exists!".

  display "Continue [y/n] : ".

  accept ans.

p-2.

  display(1 1) erase.

  display(3 5) "Give Roll No : ".

         accept a-rno.

         move a-rno to rno.

  read stu- file  key is rno

    invalid key 

        display(10 5) "No Record Found"

        go to c-para.

    display(5 5) "Rno = " rno.

    display(7 5) "Class = " cl.

    display(9 5) "Mark = " m.

      c-para.

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

    accept ans.

    if ans = 'y' or 'Y' go to p-2.

    close stu-file.

    stop run.

Posted Date: 10/18/2012 1:23:43 AM | Location : United States







Related Discussions:- Program for indexed sequential file creation , Assignment Help, Ask Question on Program for indexed sequential file creation , Get Answer, Expert's Help, Program for indexed sequential file creation Discussions

Write discussion on Program for indexed sequential file creation
Your posts are moderated
Related Questions
Illustration of Divide verb: (a) DIVIDE 5 INTO A. If the value of A is 20, then after execution of this statement the value of A will be 4. The older value of A will be los

77 level used for- It is Elementary level item. it Cannot be subdivisions of other items or cannot be qualified, or they can be subdivided themselves.

PROGRAM FOR INVENTORY  We have to write a program to update the inventory file. Consider 2 files,viz, invfile an tranfile. Invfile has 3 fields pno,name,qty. Tranfile has 3 fil

NONSTANDARD CLAUSES: The various clauses explained above are as per the ANSI standard. Also, most compilers provide for additional nonstandard clauses to meet the specific nec

Configuration Section: This section holds an overall specification of the computer used for the purpose of the compilation and execution of the program. There are in all 3 par

CONDITIONS-NAME CONDITION:   The condition name is an entity which itself is a condition and these can have either a true or false value. Though, a condition name cannot be d

PROGRAM FOR PERFORM - THRU: We have to write a program to elaborate PERFORM ...THRU statement Identification division. Program- id.  Perfthru. Environment division.

Group Item as Operand in the Relational Condition: Whenever an operand of a relational condition is the group item, the item is then considered to be an alphanumeric field. Th

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 t

Selection of file Organization: While designing a file, the programmer should select an appropriate association for a file. The order in which the choice is to be made is as s