VSAM file handling

I have shared the COBOL programs for VSAM data sets. I hope the video will be helpful to refresh the VSAM file handlings. You can also view the JCL, COBOL, DB2 and interview questions and answers in this channel. Please feel free to provide your comments, like this video. ESDS WRITE OPERATION INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT INFILE1 ASSIGN TO AS-DD1 ORGANIZATION IS SEQUENTIAL ACCESS MODE IS SEQUENTIAL FILE STATUS IS FS1. DATA DIVISION. FILE SECTION. FD INFILE1. 01 IN-REC. 05 EMP-NO PIC 9(4). 05 EMP-NAME PIC X(10). 05 SALARY PIC 9(5). 05 FILLER PIC X(61). WORKING-STORAGE SECTION. 77 FS1 PIC XX. 77 CHN PIC X VALUE 'Y'. PROCEDURE DIVISION. MAIN-PARA. OPEN OUTPUT INFILE1. DISPLAY FS1. PERFORM WRITE-PARA UNTIL CHN = 'N'. CLOSE INFILE1. STOP RUN. WRITE-PARA. ACCEPT EMP-NO. ACCEPT EMP-NAME. ACCEPT SALARY. WRITE IN-REC. ACCEPT CHN. DISPLAY 'FILE STATUS ' FS1.