Answer Posted / vinay gautam

This is a working example of 1D arrey...
in last ex. o posted there was a comment line......


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)
End-Perform.
stop run.


Regards Vinay Gautam

Define perform?

990

---

What is perform?

1086

---

What is sort?

943

---

What is the actual use of fillers?

955

---

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

954

---

What is redefine?

1213

---

What is input procedure?

988

---

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

904

---

Explain the input procedure?

933

---

seqence numbers in cobol

3112

---

Define perform? And its types?

977

---

Define redefine?

1113

---

Define sort?

1162

---

How to detect record is locked in cobol/400?

970

---

Explain the difference between comp & comp-3?

950

---