How we can update data area in cobol 400 program?
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 create file in COBAL400
What are fillers?
Explain how to update data area in cobol 400 program?
What is sort? And its syntax?
Explain how to detect record is locked in cobol/400? What is the solution for that?
Define redefine?
Explain the syntax of redefine?
Arrays in COBOL/400
what is the difference between section,paragraph and sentences
Explain the difference between comp & comp-3?
What is the syntax of redefine?
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 * EVALUATE TRUE WHEN SQLCODE = +000 MOVE WS-COUNT TO Copybook field WHEN SQLCODE = +100 MOVE ZEROES TO Copybook field