How we can update data area in cobol 400 program?
Answer Posted / mahendran
we can update data area inCOBOL400 by 3 ways
#1
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.
#2 Built the command chgdtaara cmd and use QCMDEXC to
execute it.
#3 Built the command chgdtaara cmd and use QCAPCMD to
execute it.
| Is This Answer Correct ? | 1 Yes | 2 No |
Post New Answer View All Answers
What is input procedure?
What is comp?
What is the syntax of redefine?
why icetool be used in programmer view?
Explain the syntax of sort?
seqence numbers in cobol
What is output procedure?
How to detect record is locked in cobol/400? What is the solution for that?
Define redefine?
Explain what all the conditiones required for using open opcode on a file?
Define perform? And its types?
Explain how to detect record is locked in cobol/400? What is the solution for that?
What are fillers?
I like to know if possible to use %TRIM or any statement with prefiv "%" like RPG ile programs. thanks
Explain the input procedure?