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


Please Help Members By Posting Answers For Below Questions

Explain the types of perform?

597


What is the syntax of sort?

604


Explain the output procedure?

666


Explain how to update data area in cobol 400 program?

672


How to detect record is locked in cobol/400?

623






Explain the input procedure?

606


What is redefine?

624


Define perform?

595


Explain the difference between comp & comp-3?

625


What is perform?

619


What are the types of perform?

643


seqence numbers in cobol

2732


How to detect record is locked in cobol/400? What is the solution for that?

603


What are fillers?

606


What is the syntax of redefine?

613