Cobol - I want to copy only even number records out of 50 i

[chennadi]

Hi,

I want to copy only even number records out of 50 in PS file. In this based on emp no it should be copy (empno records are like 1,2 .... 100).

Please provide me the correct solution.

[William Collins]

Have a "flag". Intial value is set off. Test the flag when each record is procesed: if off, set it on for the processng of the next record; if on, write the record, set it off for the processing of the next record.

[dhiraj]

Try it..

8000-Read-In-File
8000-exit.

1000-Perform-copy
1000-exit until End-of-file.

1000-Perform-Copy

8000-Read-In-File
8000-exit.

9000-write-out-file
9000-write-exit.

8000-Read-In-File
8000-exit.

1000-exit.