IDENTIFICATION DIVISION. PROGRAM-ID. P1. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT INFILE ASSIGN TO DISK ORGANIZATION IS LINE SEQUENTIAL. SELECT OUTFILE ASSIGN TO DISK ORGANIZATION IS LINE SEQUENTIAL. DATA DIVISION. FILE SECTION. FD INFILE VALUE OF FILE-ID IS \"STRSTUD.DAT\". 01 INREC. 05 INRNO PIC X(2). 05 INNAME PIC X(20). 05 INADDRESS PIC X(50). FD OUTFILE VALUE OF FILE-ID IS \"STRSTUD.RPT\". 01 OUTREC PIC X(130). WORKING-STORAGE SECTION. 01 HEAD1 PIC X(80) VALUE \" DETAILS OF STUDENT\". 01 DETAILS. 05 O-RNO PIC X(2). 05 PIC XX. 05 O-NAME PIC X(20). 05 PIC XX. 05 ADR-STREET PIC X(15). 05 PIC XX. 05 ADR-CITY PIC X(15). 05 PIC XX. 05 ADR-STATE PIC X(10). 05 PIC XX. 05 ADR-CODE PIC X(5). 01 EOF PIC X VALUE \"Y\". PROCEDURE DIVISION. PARA1. OPEN INPUT INFILE. OPEN OUTPUT OUTFILE. WRITE OUTREC FROM HEAD1. PERFORM UNTIL EOF=\"N\" READ INFILE AT END MOVE \"NO\" TO EOF NOT AT END PERFORM UNSTR END-READ END-PERFORM CLOSE INFILE. CLOSE OUTFILE. STOP RUN. UNSTR. MOVE INRNO TO O-RNO MOVE INNAME TO O-NAME UNSTRING IN ADDRESS DELIMITED BY \'/\' INTO ADR-STREET ADR-CITY ADR-STATE ADR-CODE END-UNSTRING WRITE OUTREC FROM DETAILS. INPUT FILE : STUDENT.DAT ********************************** 01HARSHAD GEDIYA NIRNAYNAGARCHANDLODIYAAHMEDABAD 02BHAVIKA NURTANNAGARBARODAGUJARAT32584 17HARSHAD GEDIYA NIRNAYNAGARAHMEDABADGUJARAT38241 11SHASHANK DESAI NARANPURAAHMEDABADGUJARAT38245 55HEMAL SHETH NAVRNGPURAAHMEDABADGUJARAT38257 OUTPUT FILE:- STUDENT.RPT *************************** DETAILS OF STUDENT 01 AMISH THHCKER NARAYAN NAGAR/NARNPURIYA/GUJARAT/38241 02 BHAVIKA NURTAN NAGAR/BARODA/GUJARAT/32584 17 HARSHAD GEDIYA NIRNAY NAGAR/AHMEDABAD/GUJARAT/38241 11 SHASHANK DESAI NARANPURA/AHMEDABAD/GUJARAT/38245 55 HEMAL SHETH NAVRNGPURA/AHMEDABAD/GUJARAT/38257