File1 has 100 records and file2 has 200 records i want to copy 50 records which r in both file into file3?
Submitted by: AdministratorFirst need to sort both files
READ FILE1
READ FILE2
PERFORM UNTIL EOF = 'Y'
IF FILE1-ID > FILE2-ID THEN
READ FILE2 AT END MOVE 'Y' TO EOF
ELSE IF FILE1-ID < FILE2-ID
READ FILE1 AT END MOVE 'Y' TO EOF
ELSE IF FILE1-ID = FILE2-ID
WRITE FILE3
READ FILE1 AT END MOVE 'Y' TO EOF
READ FILE2 AT END MOVE 'Y' TO EOF
END-PERFORM
Submitted by: Administrator
READ FILE1
READ FILE2
PERFORM UNTIL EOF = 'Y'
IF FILE1-ID > FILE2-ID THEN
READ FILE2 AT END MOVE 'Y' TO EOF
ELSE IF FILE1-ID < FILE2-ID
READ FILE1 AT END MOVE 'Y' TO EOF
ELSE IF FILE1-ID = FILE2-ID
WRITE FILE3
READ FILE1 AT END MOVE 'Y' TO EOF
READ FILE2 AT END MOVE 'Y' TO EOF
END-PERFORM
Submitted by: Administrator
Read Online IBM MainFrame Job Interview Questions And Answers
Top IBM MainFrame Questions
| ☺ | How do define Dynamic array in COBOL how do u define single dimensional array and multidimensional array in your COBOL? |
| ☺ | Can 88 level variable be declared in FD section? |
| ☺ | What is difference b/w file-aid tool and file-aid utility? |
| ☺ | How to handle -911 (deadlock) error in a db2 program so that the program will never abend? |
| ☺ | Suppose I have 1000 rows in a db2 table. I want to update first 100 records, How do I do it? |
Top Mainframe Technical Categories
| ☺ | IBM MainFrame Interview Questions. |
| ☺ | IBM AS400 Interview Questions. |
| ☺ | JCL Interview Questions. |
| ☺ | IMS DB Interview Questions. |
| ☺ | CICS Interview Questions. |
