Interested to Buy Any Domain ? << Click Here >> for more details...
have in 100 records in a flat file i want to move records
like 1,3,5,7,9,11,.. to Output file1 and
2,4,6,8,10,12,14 .. records moved to Output file2..Pls
Provide real time answer..
- 5 Answers
- 12817 Views
- TCS, I also Faced
- E-Mail Answers
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
.
| Is This Answer Correct ? | 4 Yes | 0 No |
Post New Answer View All Answers
What is report-item in COBOL?
What are different data types in cobol?
What are the access modes of START statement?
How do you code cobol to access a parameter that has been defined in jcl? And do you code the parm parameter on the exec line in jcl?
i want a program using by if, evaluate , string, unstring, perform, occurs?
What are all the divisions of a COBOL program?
How to fetch 1000 error records from VSAM file(Eg: 1000000 records present) while getting SOC7 abend ?
What is perform what is varying?
How do you differentiate between cobol and cobol-ii?
What is the use of intialize verb?
What is a report item?
What is rmode(any) ?
what is difference bt COND, REGION & TIME parameters at JOB & EXEC. give an exp.
how to move the records from file to array table. give with code example
What are the different rules to perform a Search?
