Program for move corresponding, COBOL Programming

PROGRAM FOR MOVE CORRESPONDING:

We have to write a simple program to demonstrate Move Corresponding.

identification division.

  program- id.

  environment division.

  data division.

  working-storage section.

  01  rec-1.

    02   sno   pic  9(2) value 11.

    02   name  pic  x(4) value "Ravi".

  01  rec-2.

    05   sno   pic  z(2).

    05   f    pic  x(10) value spaces.

              05   name   pic  x(4).

    05   f    pic  x(10) value spaces.

  procedure division.

  p-1.

    display(1 1) erase.  

    move corr rec-1 to rec-2.

    display rec-2.

    stop run.

Posted Date: 10/18/2012 2:04:01 AM | Location : United States







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

Write discussion on Program for move corresponding
Your posts are moderated
Related Questions
Non numeric: The nonnumeric literal is used in normal to output messages or headings. The Characters which are enclosed between " " constitute nonnumeric literal. The maximum

PROGRAM FOR RENAMES CLAUSE: identification division. program- id. environment division. data division. working-storage section. 01 emp.      02 empdet.

Illustration of Divide verb: (a) DIVIDE 5 INTO A. If the value of A is 20, then after execution of this statement the value of A will be 4. The older value of A will be los

Example of Perform statement: PERFORM BEGIN-CALCULATION THRU END-CALCULATION. Assume, BEGIN-CALCULATION and END-CALCULTION is paragraph names. The execution of the PERFORM

Numeric -   Literals : The numeric literal can be created with the help of digits only. It can have a sign (+ or -) and can also have a decimal point. If no sign is specifi

Illustration of Perform with varying option: A) Perform para-3 varying the k from 1 by 1 until k > 10. Here para-3 will be constantly executed 10 times (For k=1,2,3, .....1

DELETE STATEMENT: The format of the delete statement is as shown below: DELETE   file-name RECORD   [  ;   INVALID   KEY  imperative-statement  ] Whenever the ACCESS MOD

STATEMENTS FOR SEQUENTIAL FILES: A basic operation on a file includes the reading and writing of its records. Whenever the file is sequential, there are three verbs for the

INDEXED TABLES: The OCCURS clause that is used to define tables can optionally have an INDEXED phrase. This phrase involves the names of data items which are to be used as sub

Currency Sign - edit characters for numeric data: $ (Currency Sign): The single currency sign can appear at the leftmost place of a picture. In that situation the $ cha