How we can update data area in cobol 400 program?
- 12 Answers
- 36620 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 |
WHAT ALL THE CONDITIONES REQUIRED FOR USING OPEN OPCODE ON A FILE?
I like to know if possible to use %TRIM or any statement with prefiv "%" like RPG ile programs. thanks
What is input procedure?
write a cobol program to display prime numbers between 1 to 100?
Define sort?
What is comp?
How we can update data area in cobol 400 program?
Explain the input procedure?
How can i change the below code in SQL to cobol/400? EXEC SQL SELECT COUNT(*) INTO : WS-COUNT FROM Db file WHERE Field 1 = : WS-VAR AND Field 2 = : WS-USERID END-EXEC
How to Convert 2010/02/11 to m/dd/yyy.. with string and without string if any other method... code
How we create file in COBAL400
What is the syntax of redefine?
RPG400 
