JCL and COBOL Scenario based question

[@dhanasekar1781]

Thanks for the videos.

[@Jashu0819]

Thank you.. Very useful stuff

[@iiwowiis5354]

I am glad that the video is useful!

[@deepakchandra8865]

Thanks for making such useful videos... Requesting you to make videoes regularly ...

[@iiwowiis5354]

Thanks for your comment Deepak Chandra. I will post the videos regularly.

[@deepakchandra8865]

Thanks!!!😊

[@MrAkshay80]

Can you share the jcl to compile the cobol program?

[@iiwowiis5354]

Let us assume the key values from both the input files are as follows: File1 File2 1 1 2 3 3 5 then the logic would be: Read file1 Read file2 1st time: 1 = 1 . matched record. read next record from File1 and File2 2nd time: 2 < 3 . Key value 2 is present only in File1 but not available in File2. so, record 2 from File1 is moved to the output file (Unmatched from File1) Read next record of File1 3rd time: 3 = 3 . matched record. read next record from File1 and File2 4th time: 3 < 5 . If File1-EOF = 'Y', move file2 to output file Move 5 to output file (Unmatched from File2)

[@arunachalasiva5787]

Could you elaborate on this by showing records matching with the logic and how it write to out file. Thanks in advance

[@iiwowiis5354]

Thanks for asking. I have updated the matching logic in the generic comment section.

[@iiwowiis5354]

COBOL Logic: PROCESS-PARA. IF WS-IEOF = 'N' OR WS-IEOF2 = 'N' IF File1 > File2 IF File2-EOF = 'N' Write File2 to Output file (Present only in File2) Read File2 ELSE MOVE FILE1 To output file (Present only in File1 ) Read File1 END-IF ELSE IF File1 < File2 IF File1-EOF = 'N' MOVE FILE1 to output file( Present only in File1) Read File1 ELSE MOVE FILE2 to output file(Present only in File2) Read File2 END-IF ELSE IF IEMPNO = IEMPNO2 MOVE FILE1 to output file (Matched record) Read File1 Read File2 END-READ

[@muhafeezsayyed2175]

Can you please teach me mainframe course

[@kuruvamallesh4472]

Hi Sir can you provide cobol code in comment section.

[@iiwowiis5354]

I have just updated the COBOL code in the description section.