Answer Posted / vinay gautam

working-storage section.
77 index1 pic 9 value 1.
01 week value 'montuewedthufrisatsun'.
03 days pic x(3) occurs 7 times indexed by idx.
procedure division.
perform varying index1 from 1 by 1 until index1 >= 8
display days(Index1)
compute index1 = index1 + 1
end-perform.
stop run.

What is perform?

535

---

Define sort?

581

---

How to detect record is locked in cobol/400?

538

---

Explain the difference between comp & comp-3?

545

---

Explain the syntax of sort?

559

---

---

Explain the difference between section, paragraph and sentences?

510

---

Explain the output procedure?

573

---

Explain how to update data area in cobol 400 program?

575

---

What is the syntax of redefine?

535

---

What is sort?

531

---

How to update data area in cobol 400 program?

579

---

What are the types of perform?

567

---

Explain the input procedure and output procedure?

517

---

Explain what all the conditiones required for using open opcode on a file?

503

---

Define redefine and its syntax?

542

---