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 redefine?

1334

---

seqence numbers in cobol

3164

---

What is sort? And its syntax?

1093

---

Explain the syntax of sort?

1042

---

Explain how to update data area in cobol 400 program?

1085

---

How to update data area in cobol 400 program?

1081

---

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

949

---

Explain the difference between search and searchall?

917

---

How to detect record is locked in cobol/400?

1020

---

What is input procedure?

1047

---

Explain the input procedure?

1006

---

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

1053

---

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

2529

---

Define redefine?

1183

---

Explain how to convert 2010/02/11 to m/dd/yyy.. With string and without string if any other method... Code?

1207

---