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.

Explain the output procedure?

573

---

What is output procedure?

541

---

Define sort?

581

---

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

500

---

Explain how to update data area in cobol 400 program?

574

---

---

Explain the difference between section, paragraph and sentences?

505

---

What is sort?

531

---

Explain the syntax of sort?

557

---

What is the actual use of fillers?

499

---

What is input procedure?

578

---

Explain the input procedure and output procedure?

517

---

What is sort? And its syntax?

665

---

why icetool be used in programmer view?

2138

---

What is redefine?

551

---

How to detect record is locked in cobol/400?

536

---