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 are fillers? What is the actual use of fillers? With mall/simple example?

933

---

Explain the difference between search and searchall?

812

---

Explain the syntax of redefine?

856

---

seqence numbers in cobol

3047

---

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

2420

---

Define redefine?

1048

---

Define perform? And its types?

929

---

How to detect record is locked in cobol/400?

916

---

What are fillers?

974

---

What is the actual use of fillers?

892

---

What is comp?

1087

---

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

888

---

Define redefine and its syntax?

914

---

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

1087

---

Explain the input procedure and output procedure?

858

---