Program for screen section, COBOL Programming

PROGRAM FOR SCREEN SECTION:

 identification division.

  program- id.

  environment division.

  data division.

  working-storage section.

  01  a pic 9(2) value 0.

  01  b pic 9(2) value 0.

  01  c  pic 9(3) value 123.

screen section.

01   b-screen.

  02  blank screen.

01   screen1.

    02   line 3 column 5  pic 9(2) to a auto bell. 

    02   line 5 column 5 pic 9(2) to b auto bell.

01   screen2.

   02   line 7 column 5  pic 9(2) from a blink reverse-video.

   02   line 9 column 5 pic 9(2) from b highlight blink.

procedure division.

p0.

       display b-screen.

p1.

  display screen1.

  accept screen1.

  display screen2.

  compute c = a + b.

  display " ".

  display " c = " c.

  display "Using exhibit".

  exhibit c.

  stop run.

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







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

Write discussion on Program for screen section
Your posts are moderated
Related Questions
IF ... ELSE STATEMENT: We are familiar with an easy form of the IF statement. The common form of the IF statement is as shown below: Each of the statement-1 and statem

File- Section &Working-Storage Section: a) FILE SECTION: The FILE SECTION includes the explanation of all data items that must be read from or written onto some external

BLANK WHEN ZERO: BLANK WHEN ZERO is an editing clause that may be used along with a picture. This will set the whole data item to blanks of its value is equal to zero. Though,

Program for Sequential File Creation & Rewriting  We have to write a program to create a Length file with just two fields: l (Length) and l-c (Length-Code). Add a few records.

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

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

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.

Second form of Divide verb: The second form of this verb is as shown below: In this situation the identifier-1 or numeric- literal-1 will be divided by identifier-2 or

PROGRAM FOR IF :   We have to write a program to check whether the given number is ODD or EVEN. Identification division. Program- id. Ifst. Environment division.

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