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 input procedure?

975

---

What is the syntax of redefine?

913

---

What is the actual use of fillers?

929

---

What is sort?

918

---

What are the types of perform?

982

---

What is redefine?

1163

---

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

875

---

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

925

---

Explain the output procedure?

998

---

What is sort? And its syntax?

1009

---

Define redefine and its syntax?

940

---

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

969

---

What are fillers?

1000

---

What is output procedure?

967

---

Explain the syntax of sort?

950

---