How we can update data area in cobol 400 program?
- 12 Answers
- 35753 Views
- Accenture, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / sudarshan
Using DISPLAY - change data area
Using Accept - retrieve data area
| Is This Answer Correct ? | 45 Yes | 6 No |
Answer / siva
Either DISPLAY keywords in COBOL-400 we can update the data
area.
For example
MOVE 'bbbb' TO GP-FILLER.
DISPLAY GP-FILLER UPON OTHER-DATA-AREA
FOR "SKDTAARA" LIBRARY "QGPL".
| Is This Answer Correct ? | 19 Yes | 2 No |
Answer / 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 |
Answer / naveen krishna t
by using DISPLAY keyword in COBOL-400 we can update the
data area.
| Is This Answer Correct ? | 14 Yes | 7 No |
Answer / sanjiv
Program type must be SQLCBLLE
Process Apost Flag(1) Date Time Timestamp.
Identification Division.
Program-Id. DATAAREA.
Environment Division.
Configuration Section.
Special-Names.
DATA-AREA is DtaArea.
Data Division.
Working-Storage Section.
77 Data-Value Pic X(1024) Value
'WORKING STORAGE BEGINS HERE'.
Procedure Division.
A000.
Display Data-value Upon DtaArea for 'DTADATA'.
Accept Data-value From DtaArea for 'DTADATA'.
Stop Run.
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / 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 |
Answer / rahul
RTVDTAATA through CLP program pass the parameter to cobol
400 program define in special names & working storage
field.
| Is This Answer Correct ? | 2 Yes | 9 No |
Type DSPDTAARA in the command line to see the value set for
the data area.
If the value is what you need for your CL, then fine else
type CHGDTAARA in the command line.
After pressing enter, type the name of data area, library
name in which data area is present and type the new value
inside single quotes. Press enter and type DSPDTAARA command
again to make sure that data area value is updated.
| Is This Answer Correct ? | 1 Yes | 12 No |
How we can update data area in cobol 400 program?
Code how to read 5th element of the array?
How to detect record is locked in cobol/400?
what is the difference between comp & comp-3?
I like to know if possible to use %TRIM or any statement with prefiv "%" like RPG ile programs. thanks
Explain how to convert 2010/02/11 to m/dd/yyy.. With string and without string if any other method... Code?
Explain the input procedure?
write a cobol program to display prime numbers between 1 to 100?
What is perform?
01 A PIC 9. 01 B PIC 99V1. 01 C PIC 99. MOVE 1 TO A. MOVE 0.2 TO B. COMPUTE C ROUNDED TO 3/3 + A.
why icetool be used in programmer view?
what is INPUT PROCEDURE and OUTPUT PROCEDURE?
RPG400 
