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?

1053

---

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

2532

---

Define redefine?

1184

---

Explain the difference between search and searchall?

919

---

What is the actual use of fillers?

1014

---

What is input procedure?

1047

---

Explain the types of perform?

1099

---

Explain the input procedure and output procedure?

962

---

What are the types of perform?

1109

---

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

1010

---

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

1209

---

Define perform? And its types?

1059

---

Explain the output procedure?

1076

---

seqence numbers in cobol

3164

---

why icetool be used in programmer view?

2622

---