Answer / swapnil

USING AN OCCURS CLAUSE WE MOVE RECORD FROM ONE PS FILE TO
ANOTHER PS

Answer / vaneesh

MOVE 0 TO WS-COUNTER
MOVE N TO END-OF-FILE

PERFORM 1000-COPY-PARAGRAPH UNTILL (WS-COUNTER = 100 OR END-
OF-FILE = 'Y'.

100-COPY-PARAGRAPH.
READ INPUT FILE
AT END MOVE Y TO END-OF-FILE
NOT AT END MOVE IN-REC TO OUT-REC
ADD +001 TO WS-COUNTER.
1000-EXIT.
EXI.

Answer / mahendra.ch

1st way to copy records to an other ps.

open input in-file
output out-file.
perform until end-of-file = 'y'
read in-file
at at end move 'y' to end-of-file
not at end
move in-rec to out-rec
write out-rec
end-read
end-perform.
close in-file.
close out-file.


2st way to copy records to an other ps.

we can copy the records by using file-aid tool also.

Why occurs cannot be used in 01 level in COBOL?

0 Answers   Arigo Infotech,

---

Can you REWRITE a record in an ESDS file? Can you DELETE a record from it?

6 Answers   ABC, IBM, Mphasis, Wipro,

---

What is SQL Code -904 and -903 in DB2 And how to handle it?

1 Answers   IBM,

---

how we can edit records in vsam data set and non vsam data sets

2 Answers   ACS,

---

give the examples of strings in cobol

1 Answers   IBM,

---

what is the use of comp2 ? where can we use it with example ?

3 Answers   Covansys,

---

What are literals?

0 Answers  

---

We are using the searching a table which is indexed, once the key is found, how can we get the occurance at which the key was found.

1 Answers  

---

i have a requrement in A as viswa!@#$%&^**reddy i need to move viswareddy in B without junk values pls say how to do ths reply fast

4 Answers   L&T,

---

how to transfer the file from pc to mainframe??

5 Answers   TCS,

---

Can we use icetool in cobol program?

3 Answers  

---

please..could u give an example about USAGE IS POINTER ..and explain why and when we use it ?

0 Answers   EDS,

---