WORKING-STORAGE SECTION. 01 COUNTER

write a cobol program to display prime numbers between 1 to 100?

Question Posted / amit mahajan

5 Answers
30321 Views
Cap Gemini, NISA, I also Faced
E-Mail Answers

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.

Is This Answer Correct ?

6 Yes

4 No

Post New Answer View All Answers

Please Help Members By Posting Answers For Below Questions

What is redefine?

1119

What is the syntax of redefine?

890

Explain the input procedure?

881

What is input procedure?

950

Explain the output procedure?

966

What is perform?

1047

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

1086

Explain the input procedure and output procedure?

857

Define sort?

1097

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

932

What is comp?

1087

Explain the difference between section, paragraph and sentences?

906

Define redefine and its syntax?

914

What is output procedure?

934

Explain the types of perform?

925