JCL and COBOL Scenario based question

In this video, I have explained the scenario-based question for Mainframe developer. I have implemented the logic using JCL and COBOL programs. //SYSIN DD * JOINKEYS FILE=F1,FIELDS=(1,10,A),SORTED JOINKEYS FILE=F2,FIELDS=(1,10,A),SORTED JOIN UNPAIRED,F1,F2 REFORMAT FIELDS=(F1:1,10,F2:1,10,?) OPTION COPY OUTFIL FNAMES=F1ONLY,INCLUDE=(21,1,CH,EQ,C'1'), BUILD=(1,10,70X) OUTFIL FNAMES=F2ONLY,INCLUDE=(21,1,CH,EQ,C'2'), BUILD=(11,10,70X) OUTFIL FNAMES=BOTH,INCLUDE=(21,1,CH,EQ,C'B'), BUILD=(1,10,70X) /* PROCEDURE DIVISION. PERFORM OPEN-PARA PERFORM PROCESS-PARA UNTIL WS-IEOF = 'Y' AND WS-IEOF2 ='Y' PERFORM CLOSE-PARA STOP RUN . OPEN-PARA. OPEN INPUT TSTFIL1 OPEN INPUT TSTFIL2 OPEN OUTPUT TSTFILE3 OPEN OUTPUT TSTFILE4 OPEN OUTPUT TSTFILE5 READ TSTFIL1 AT END MOVE 'Y' TO WS-IEOF NOT AT END MOVE 'N' TO WS-IEOF END-READ READ TSTFIL2 AT END MOVE 'Y' TO WS-IEOF2 NOT AT END MOVE 'N' TO WS-IEOF2 END-READ . PROCESS-PARA. IF WS-IEOF = 'N' OR WS-IEOF2 = 'N' DISPLAY 'READ INPUT FIL2IF:' WS-STA2 IF IEMPNO IS GREATER THAN IEMPNO2 IF WS-IEOF2 = 'N' DISPLAY 'HELLO1' MOVE FILE2-REC TO FILE4-REC WRITE FILE4-REC READ TSTFIL2 AT END MOVE 'Y' TO WS-IEOF2 NOT AT END MOVE 'N' TO WS-IEOF2 END-READ ELSE MOVE FILE1-REC TO FILE3-REC WRITE FILE3-REC READ TSTFIL1 AT END MOVE 'Y' TO WS-IEOF NOT AT END MOVE 'N' TO WS-IEOF END-READ END-IF DISPLAY 'READ INPUT FIL2IF:' WS-STA2 ELSE IF IEMPNO IS LESS THAN IEMPNO2 DISPLAY 'HELLO2' IF WS-IEOF = 'N' MOVE FILE1-REC TO FILE3-REC WRITE FILE3-REC READ TSTFIL1 AT END MOVE 'Y' TO WS-IEOF NOT AT END MOVE 'N' TO WS-IEOF END-READ ELSE MOVE FILE2-REC TO FILE4-REC WRITE FILE4-REC READ TSTFIL2 AT END MOVE 'Y' TO WS-IEOF2 NOT AT END MOVE 'N' TO WS-IEOF2 END-READ END-IF ELSE IF IEMPNO = IEMPNO2 MOVE FILE1-REC TO FILE5-REC WRITE FILE5-REC READ TSTFIL1 AT END MOVE 'Y' TO WS-IEOF NOT AT END MOVE 'N' TO WS-IEOF END-READ READ TSTFIL2 AT END MOVE 'Y' TO WS-IEOF2 END-READ READ TSTFIL2 AT END MOVE 'Y' TO WS-IEOF2 NOT AT END MOVE 'N' TO WS-IEOF2 END-READ END-IF END-IF END-IF END-IF . CLOSE-PARA. CLOSE TSTFIL1 CLOSE TSTFIL2 CLOSE TSTFILE3 CLOSE TSTFILE4 CLOSE TSTFILE5