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
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

I need help with a COBOL programming assingment. I have started the program but I need help completing the program. I have 5 errors. Here is the question. 10. Suppose your company

Sign - Picture clause: The numeric data item can be signed or unsigned. If a numeric data is regarded as unsigned then during the execution these unsigned data items are treat

PROGRAM FOR MOVE CORRESPONDING: We have to write a simple program to demonstrate Move Corresponding. identification division.   program- id.   environment division.

Structure of a COBOL Program: Every COBOL program should have the 4 divisions in the order in which they are specified below: 1. Identification division 2. Environment D

PROGRAM FOR SUBTRACT VERB: We have to write a simple program to elaborate the SUBTRACT verb. You can also use edit characters in the program. Identification division. Pr

Rules for Simple sort verb: The work file is to be defined by a sort elaboration entry (SD entry).The format of SD entry is as shown below. The rules below should be taken

SPECIAL-NAMES: This paragraph is used to associate some hardware names to the user-specified mnemonic names. This paragraph is elective in all compilers. The format of this pa

RESERVE clause: This clause indicates the number of buffers to be used for the file. Integer-1 specifies this number. ORGANIZATION/ACCESS clause: These two clause

Example of Write statement: Illustration: (i) WRITE TRANS-RECORD AFTER ADVANCING 3 LINES. This WRITE statement specified that the TRANS-RECORD is a record name of a fi