How we can update data area in cobol 400 program?

Answer Posted / kk

please try this.


IDENTIFICATION DIVISION.
PROGRAM-ID. DATAAREA1.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
DATA-AREA IS OTHER-DATA-AREA.

INPUT-OUTPUT SECTION.
FILE-CONTROL.
01 W-DATA1.
05 DATA1 PIC X(100).
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATA11 PIC A(100).
PROCEDURE DIVISION.
MOVE "JKL" TO DATA11.
MOVE "JKL" TO DATA11.
DISPLAY DATA11 UPON OTHER-DATA-AREA
FOR "DATA1" LIBRARY "NAGARED1".
ACCEPT DATA-VALUE FROM DATA-AREA
FOR "DATA1" LIBRARY "NAGARED1".
STOP RUN.

Is This Answer Correct ?    14 Yes 3 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

How to update data area in cobol 400 program?

579


What are the types of perform?

571


seqence numbers in cobol

2664


What is sort?

534


Explain the difference between comp & comp-3?

549






Explain the syntax of sort?

561


Explain the input procedure and output procedure?

521


Define perform? And its types?

506


Explain the difference between section, paragraph and sentences?

511


What are fillers?

531


Explain the input procedure?

539


How to detect record is locked in cobol/400?

540


Explain the output procedure?

579


What is the syntax of redefine?

538


What is comp?

551