Answer Posted / ch.ranveer singh gurjar

you can try its give you 100% exact output...
above solution for file its for no
NOTE:USE RIGHT JCL AND RIGHT FORMAT INPUT AND OUTPUT FILE

by
CH. RANVEER SINGH GURJAR(ACS A XEROX)

IDENTIFICATION DIVISION.
PROGRAM-ID. 'OCCURS'.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INFILE ASSIGN TO DD1.
SELECT OUTFILE ASSIGN TO DD2.
DATA DIVISION.
FILE SECTION.
FD INFILE.
01 INREC.
05 IN-NUM PIC X(2).
05 FILLER PIC X(78).
FD OUTFILE.
01 OUTREC.
05 OUT-NUM PIC X(2).
05 FILLER PIC X(78).
WORKING-STORAGE SECTION.
01 WS-COUNT PIC 9(4).
01 EOF PIC X(1) VALUE 'N'.
01 ARRAY1.
05 ARREC OCCURS 1 TO 50 TIMES DEPENDING ON WS-COUNT.
10 AR-NUM PIC X(5).
PROCEDURE DIVISION.
MOVE 1 TO WS-COUNT.
OPEN INPUT INFILE.
OPEN OUTPUT OUTFILE.
PERFORM MOVE-RECORD UNTIL EOF = 'Y'.
PERFORM PARA1 UNTIL WS-COUNT = ZEROS
CLOSE INFILE.
CLOSE OUTFILE.
STOP RUN.
MOVE-RECORD.
READ INFILE AT END MOVE 'Y' TO EOF
NOT AT END
MOVE INREC TO ARREC(WS-COUNT)
DISPLAY WS-COUNT
ADD 1 TO WS-COUNT.
PARA1.
MOVE ARREC(WS-COUNT) TO OUTREC
WRITE OUTREC
SUBTRACT 1 FROM WS-COUNT.

What is perform what is varying?

1180

---

Are you comfortable in cobol or jcl?

1052

---

How do define dynamic array in cobol. how do you define single dimensional array and multidimensional array in your cobol?

1252

---

how do you reference the esds vsam file formats from cobol programs

1219

---

What kind of error is trapped by on size error option?

1250

---

if we display var1 then what will b displayed in below condition. 77 var1 pic s9(2) value -10. 77 var1 pic s9(2) value -11. " " " -12. " " " -13. -14 ... ... -19.

6594

---

EXPLAIN MAIN FRAME TESTING PROCESS...HOW TO FIX THE MAINFRAME BUGS?

2553

---

What are literals?

1141

---

what is the use of outrecord?

2223

---

What is the difference between comp and comp-3 usage?

1204

---

Name the divisions, which are available in a cobol program?

1238

---

how do you reference the ksds vsam file formats from cobol programs

1196

---

How to remove the spaces at the end of each record in the output file of variable length, via cobol program?

1173

---

What are all the divisions of a COBOL program?

1219

---

I have to write to a outfile where the number of records in that file should be the header of that file using IMS.. can anyone help me in this issue

2554

---