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
How to update data area in cobol 400 program?
What are the types of perform?
seqence numbers in cobol
What is sort?
Explain the difference between comp & comp-3?
Explain the syntax of sort?
Explain the input procedure and output procedure?
Define perform? And its types?
Explain the difference between section, paragraph and sentences?
What are fillers?
Explain the input procedure?
How to detect record is locked in cobol/400?
Explain the output procedure?
What is the syntax of redefine?
What is comp?