Answer Posted / pradeep

It will execute only 10 Times only

See Below Code

IDENTIFICATION DIVISION.
PROGRAM-ID. MOVEPGM.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-COUNT PIC 9(2).
PROCEDURE DIVISION.
A1000-MAIN-PARA.
MOVE 10 TO WS-COUNT
PERFORM PARA-X WS-COUNT TIMES.
STOP RUN.
PARA-X.
DISPLAY "TEST1".
MOVE 5 TO WS-COUNT.

Output Looks like this:

COMMAND INPUT ===>
********************************* TOP OF DATA *****
TEST1
TEST1
TEST1
TEST1
TEST1
TEST1
TEST1
TEST1
TEST1
TEST1
******************************** BOTTOM OF DATA ***

How to change size of Initial number of records to *NOMAX for ALL PF files from perticular library, how can I do that

3211

---

How to print 10 to 1 if the input have only 10 digit number?

1243

---

) How do u handle errors in BMS macro

2011

---

Write a program to explain size error.

1176

---

how do you reference the rrds file formats from cobol programs

1550

---

Define cobol?

1371

---

i want to learn mainframe..any websites and material to learn from basic..? my mail id : rajeswaribe2010@gmail.com

2202

---

how to move the records from file to array table. give with code example

2652

---

i need a small 3d program using inline and outline.

2193

---

Differentiate cobol and cobol-ii. (Most of our programs are written in cobolii, so, it is good to know, how, this is different from cobol)?

1097

---

how to access the file from prodution from changeman tool and to submit a file to production

7515

---

What are the pertinent COBOL commands?

3150

---

What is difference between static and dynamic call in cobol?

1359

---

There are 5 fields and 1000 records in a file. Unload it into an array. Write the syntax for declaration and how will you unload it.

1414

---

Why occurs cannot be used in 01 level in COBOL?

1150

---