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
What is the syntax of sort?
why icetool be used in programmer view?
Define sort?
What is perform?
What is the syntax of redefine?
What is sort? And its syntax?
Explain the syntax of sort?
Explain how to detect record is locked in cobol/400? What is the solution for that?
What is sort?
Explain how to update data area in cobol 400 program?
Explain the difference between search and searchall?
How to update data area in cobol 400 program?
What is input procedure?
What are fillers? What is the actual use of fillers? With mall/simple example?
Explain the types of perform?