Answer Posted / d karthik

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 i pic 9(3).
01 j pic 9(3).
01 c pic 9(2).
01 d pic 9(2).
01 r pic 9(2).
01 n pic 9(3).
PROCEDURE DIVISION.
accept n.
perform varying i from 1 by 1 until i > n
move 0 to c
perform varying j from 1 by 1 until j > i
divide i by j giving d remainder r
if r = 0
add 1 to c
end-if
end-perform
if c = 2
display i
end-if
end-perform.


STOP RUN.

What is comp?

1089

---

Explain the difference between section, paragraph and sentences?

907

---

Explain the input procedure and output procedure?

861

---

What is perform?

1048

---

Explain the input procedure?

885

---

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

892

---

Explain the types of perform?

930

---

Define redefine?

1050

---

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

860

---

seqence numbers in cobol

3051

---

What is the syntax of redefine?

893

---

why icetool be used in programmer view?

2511

---

How to update data area in cobol 400 program?

985

---

Explain how to update data area in cobol 400 program?

960

---

What is sort?

896

---