Program for screen section with files, COBOL Programming

PROGRAM FOR SCREEN SECTION WITH FILES:

identification division.

  program- id.

  environment division.

         input-output section.

  file-control.

    select stu- file assign to disk

    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   name  pic x(20).

           02   mark  pic 9(3).

  working-storage section.

          01   ans  pic  x value space.

  01   eof  pic  x value space.

  01   fs   pic  x(2) value spaces.

  screen section.

          01 get-screen.

              02   line 3 column 5 value "Name : ".

       02   line 3 column 15   pic x(5)

                          to  name auto bell reverse-video.

              02   line 5 column 5 value "Mark : ".

       02   line 5 column 15  pic 9(3) to mark bell blink.

              02   line 7 column 5 value "Continue [y/n] : ".

       02   column  plus 3  pic x to ans  bell blink.

    01 b-screen.

              02  blank screen.

          01 put-screen.

              02   line 3 column 25 value "Name : " highlight.

       02   column plus 2 pic x(20) from name blink.

              02   line 5 column 25 value "Mark : "  blink.

              02   column plus 2 pic 9(3) from mark underline.

        procedure division.

  p-1.

        display b-screen.

        open output stu-file.

        display " File Staus Value  ... Exhibit ... display..".

        exhibit fs.

        display fs.

        display " Press a Key!".

        accept ans.

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

        close stu-file.

 

        move space to ans.

        open input stu-file.

        read stu- file at end move 'y' to eof.

                  perform disp-para until eof  = 'y'.

        close stu-file.

        stop run.

        g-w-para.

        display b-screen.

        display get-screen.

        accept get-screen.

        write stu-rec.

        disp-para.     

        display (1 1) erase.

                  display put-screen.

        display (15 5) "Press any Key ! ".

        accept ans.

        read stu- file at end move 'y' to eof.

Posted Date: 10/18/2012 2:03:02 AM | Location : United States







Related Discussions:- Program for screen section with files, Assignment Help, Ask Question on Program for screen section with files, Get Answer, Expert's Help, Program for screen section with files Discussions

Write discussion on Program for screen section with files
Your posts are moderated
Related Questions
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:

How do i write a simple cobol programming that works

cobol program for generate a eb bill

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

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

Valid and Invalid Word - Cobol words: Valid Word             Invalid Word & Reason emp-sal                  -pay   ( it starts with a hyphen)  TOTAL MARK (blank space em

Name the divisions in a COBOL program are given below DENTIFICATION DIVISION DATA DIVISION ENVIRONMENT DIVISION PROCEDURE DIVISION.

COMPUTE VERB: The COMPUTE verb is very powerful. All the evaluations performed by the other 4 verbs can also be completed easily by using the COMPUTE verb. Its normal format i

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

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