Interview Questions Answers.ORG
Interviewer And Interviewee Guide
Interviews
Quizzes
Home
Quizzes
Interviews Mainframe Technical Interviews:CICSCLIST (Command List)IBM ADABASIBM AS400IBM AssemblerIBM COBOL400IBM COOLPLEXIBM DB400IBM MainFrameIBM MVSIBM NaturalIBM OS 2IBM OS390IBM QMFIBM QSAMIBM REXXIBM RPG400IBM SysplexIDMSIMS DBJCLMQ SeriesVSAM
Copyright © 2018. All Rights Reserved
IBM MainFrame Interview Question:
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
Copyright 2007-2024 by Interview Questions Answers .ORG All Rights Reserved.
https://InterviewQuestionsAnswers.ORG.
https://InterviewQuestionsAnswers.ORG.