Answer Posted / 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.

What is sort?

1025

---

Explain the input procedure and output procedure?

962

---

I like to know if possible to use %TRIM or any statement with prefiv "%" like RPG ile programs. thanks

2531

---

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

949

---

Define redefine?

1184

---

How to detect record is locked in cobol/400?

1020

---

What are fillers? What is the actual use of fillers? With mall/simple example?

1053

---

Explain the difference between comp & comp-3?

1022

---

What is output procedure?

1077

---

why icetool be used in programmer view?

2621

---

What is the actual use of fillers?

1013

---

Explain the input procedure?

1006

---

Explain the types of perform?

1098

---

What are fillers?

1103

---

How to update data area in cobol 400 program?

1081

---