Answer Posted / amit mahajan

WORKING-STORAGE SECTION.
01 COUNTER PIC 99 VALUE ZEROES.
01 MAXLIMIT PIC 999 VALUE 100.
01 REM PIC 99 VALUE ZEROES.
01 QNT PIC 99 VALUE ZEROES.
01 NUM PIC 99 VALUE ZEROES.
01 I PIC 99.

PROCEDURE DIVISION.

PERFORM VARYING COUNTER FROM 2 BY 1 UNTIL COUNTER>=MAXLIMIT

MOVE 0 TO I

PERFORM VARYING NUM FROM 1 BY 1 UNTIL NUM > COUNTER
DIVIDE NUM INTO COUNTER GIVING QNT REMAINDER REM

IF REM=0
ADD 1 TO I
END-IF
END-PERFORM

IF I=2
DISPLAY COUNTER
END-IF
END-PERFORM

GOBACK.

Define redefine?

1184

---

What is sort? And its syntax?

1094

---

Explain the input procedure and output procedure?

962

---

What are fillers?

1103

---

What is input procedure?

1047

---

why icetool be used in programmer view?

2622

---

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

1053

---

What is perform?

1157

---

Explain the difference between section, paragraph and sentences?

1048

---

Explain the input procedure?

1006

---

Explain the difference between search and searchall?

919

---

What is redefine?

1336

---

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

1010

---

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

2532

---

How to detect record is locked in cobol/400?

1020

---