Answer Posted / chandrababu

Please use below code to display prime number between 1 and N


0001.00 IDENTIFICATION DIVISION.
0002.00 PROGRAM-ID. COBOL31.
0003.00 AUTHOR. DURGA400.
0003.01 DATA DIVISION.
0003.02 WORKING-STORAGE SECTION.
0003.03 77 VAR PIC 9(3) VALUE 2.
0003.04 77 NUM PIC 9(3).
0003.05 77 REM PIC 99.
0003.06 77 REM1 PIC 99.
0003.07 77 QNT PIC 99.
0003.08 77 CNT PIC 99.
0004.00 PROCEDURE DIVISION.
0005.01 ACCEPT NUM.
0005.13 PERFORM 100-PARA TEST AFTER UNTIL VAR > NUM.
0005.14 100-PARA.
0005.15 IF VAR = 2
0005.16 DISPLAY "PRIME NUMBER " VAR
0005.17 ELSE
0005.19 PERFORM 200-PARA VARYING CNT FROM 2 BY 1 UNTIL CNT >= VAR
0005.20 DISPLAY "PRIME NUMBER " VAR
0005.21 END-IF.
0005.22 COMPUTE VAR = VAR + 1.
0005.25 999-END.
0005.26 STOP RUN.
0005.27 HALT.
0005.28 200-PARA.
0005.29 DIVIDE VAR BY CNT GIVING QNT REMAINDER REM
0005.30 IF REM = 0
0005.31 COMPUTE VAR = VAR + 1
0005.32 GO TO 100-PARA
0005.33 END-IF.
****************** End of data ************


Regards,
Chandrababu

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

968

---

What is the syntax of sort?

905

---

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

1151

---

Explain the input procedure?

951

---

What is output procedure?

1008

---

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

2489

---

seqence numbers in cobol

3124

---

What is comp?

1160

---

Explain the difference between comp & comp-3?

982

---

What are fillers?

1040

---

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

1010

---

What is the actual use of fillers?

967

---

Explain the output procedure?

1046

---

What is sort?

962

---

Explain the syntax of sort?

983

---