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
Rules of read statements: The next record is identified according to the rules as shown below: (i) Whenever the READ NEXT statement is the initial statement to be executed

Introduction to COBOL: In the year 1959, a new language named the COBOL ( CO mmon B usiness O riented L anguage) was introduced remembering the business purpose application

I uploaded a file from PC to Mainframe, variable LRCL 256. In my COBOL program I defined it as FD INPUT-FILE LABEL RECORDS ARE OMITTED BLOCK CONTAINS 0 RECORDING MODE

REWRITE statement: The REWRITE statement is used to update the existing record in a disk file. The normal format is as shown below: REWRIE  record-name  [  FROM      ide

/ (Slash Insertion): The edit character slash (/) also termed as virgule or stroke, may appear anyplace in the picture. When used, it will be inserted. More than one slash can

Abbreviation: The Consecutive relational conditions in a compound condition can be abbreviated in many cases as shown: (i) When the subjects in the consecutive relational c

Rules for constructing an Arithmetic Expression: The rules for constructing an arithmetic expression are as shown below: (i) When an arithmetic expression specifies a calcu

Illustration of if- else statement: IF OK-BALANCE NEXT SENTENCE ELSE MOVE 2 BALANCE-CODE In this illustration, the OK-BALANCE is a condition name. No action is specific if

PROGRAM FOR PERFORM ...UNTIL We have to write a program to find the sum of "n" natural numbers. Identification division. Program- id. PerfUntil. Environment division.

WRITE statement: The WRITE statement for tape and sequential-disk files has the syntax shown below. WRITE            record-name      [  FROM    identifier   ] As a resu