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.

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

2475

---

Define sort?

1165

---

What is sort?

946

---

What is perform?

1087

---

What are fillers?

1029

---

Define perform?

991

---

How to update data area in cobol 400 program?

1043

---

What is input procedure?

990

---

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

997

---

Define redefine and its syntax?

966

---

How to detect record is locked in cobol/400?

970

---

Define redefine?

1116

---

Explain the syntax of sort?

968

---

What is sort? And its syntax?

1035

---

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

963

---