Answer Posted / xxx

Since I assume this is a COBOL question (and not JCL), I have tried below code.
-------------------------------------------------------

OPEN INPUT DASA
OPEN OUTPUT DASB DASC

INITIALIZE WS-NUM.
MOVE 'N' TO WS-EOF-SW.
READ DASA INTO WS-NUM
AT END MOVE 'Y' TO WS-EOF-SW
END-READ

PERFORM UNTIL WS-EOF-SW = 'Y'
DIVIDE WS-NUM BY 2 GIVING WS-Q REMAINDER WS-R
IF WS-R = 1
WRITE DASB-RCD FROM WS-NUM
ELSE
WRITE DASC-RCD FROM WS-NUM
END-IF
READ DASA INTO WS-NUM
AT END MOVE 'Y' TO WS-EOF-SW
END-READ
END-PERFORM


CLOSE DASA DASB DASC

STOP RUN
.

What is comp-1 and comp-2?

1283

---

What is Pic 9v99 Indicates in COBOL?

1344

---

What is cobol?

1294

---

Which division and paragraphs are mandatory for a COBOL program?

1335

---

What is link edit in cobol?

1271

---

input 1 input2 ouput1 output2 output 3 1 re 300 1 re 200 1 re 300 3 rc 500 1 re 200 2 rr 400 1 re 300 2 rr 400 1 rc 400 3 rc 500 1 rc 400 2 rr 700 2 rr 700 5 tt 900 5 tt 900 2 inputs r in flat file and output 1 is matched records,ouptput2 is unmatched of input1,output3 is unmatched of input2! how vl u get the output files using sequential order and to check with each and every records! let me know the procedure division ?

2357

---

1.give the details about WHEN OTHER. 2. how many form are available in evaluate.

2168

---

How to get the last record in vsam file in cluster? And how can you get the ksds file records into cobol program?

1234

---

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

1265

---

what is difference bt COND, REGION & TIME parameters at JOB & EXEC. give an exp.

9183

---

how to convert the recors form vsam file to db2 table tru file aid

3317

---

Explain what you understand by passing by value.

1204

---

Difference between cobol and cobol-ii?

1347

---

How do you get the data to code the BMS macro?

2016

---

What are all the divisions of a COBOL program?

1276

---