Answer Posted / satyabrata nanda

Logic:
01 Var.
05 VarX Pic 9(2) Value zeros.
05 QNT Pic 9(2) value zeros.
05 REM Pic 9(2) value zeros.
05 CNT Pic 9(2) value zeros.
Procedure Div.

Display ' Enter VarX = '
Accept VarX.
If VarX = '1'
Display 'Prime no'
Else
Perform varying CNT from 2 by 1 until CNT >= VarX
Divide CNT into VarX giving QNT reminder REM
If rem > zero
Display 'Prime No'
Else
Display 'Not Prime'
End-if
End-if.

What is input procedure?

1006

---

Explain the difference between search and searchall?

875

---

What are fillers?

1043

---

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

2493

---

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

973

---

Define perform?

1012

---

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

912

---

How to detect record is locked in cobol/400?

981

---

How to update data area in cobol 400 program?

1053

---

Explain the syntax of sort?

983

---

Explain the output procedure?

1047

---

Explain the types of perform?

1021

---

Explain the difference between section, paragraph and sentences?

991

---

Explain the difference between comp & comp-3?

984

---

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

971

---