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
SIGN CONDITION:   The sign condition establishes whether or not the algebraic value of an operand is negative, positive or zero. The operand can be either the numeric identif

ADD and SUBTRACT CORRESPONDING: The CORRESPONDING option can also used with the ADD and SUBTRACT verbs. The following are some of the formats of these verbs with the CORRESPON

FILE STATUS clause: This clause has been involved in the above syntax for completeness. The ORGANIZATION, REVERSE, ACCESS and STATUS clause can be specified in any order.

READ STATEMENTS: The common format for the read statements is as shown bellow. Format 1: READ file-name RECORD [ INTO   identifier ] [  ;  AT   END     imperative-s

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

Data Names and Identifiers:   The Data name provides reference to the storage space in the memory where the real value is stored. This value takes part in the operation whene

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:

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

FILE-CONTROL paragraph for the relative files: The normal format for the SELECT clause for a relative file is as shown below. SELECT  file-name  ASSIGN  TO  implementor-nam

Floating Insertion   The currency symbol ($) can emerge in multiples on the left-hand side of the picture. In this situation the character will be treated in similar way as t