IDENTIFICATION DIVISION. PROGRAM-ID. ASSIGN-7. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT IN7 ASSIGN TO DISK ORGANIZATION IS LINE SEQUENTIAL. SELECT OUT7 ASSIGN TO DISK ORGANIZATION IS LINE SEQUENTIAL. DATA DIVISION. FILE SECTION. FD IN7 LABEL RECORDS ARE STANDARD VALUE OF FILE-ID IS \"IN7.TXT\". 01 IN7-REC. 05 NAME-IN PIC X(15). 05 ADD-IN PIC X(25). 05 CAT-IN PIC X(1). 05 DG-IN PIC 9(4). 05 EXP-IN PIC 9(2). 05 BOY-IN PIC 9(4). FD OUT7 LABEL RECORDS ARE STANDARD VALUE OF FILE-ID IS \"OUT7.TXT\". 01 OUTREC PIC X(80). WORKING-STORAGE SECTION. 77 ARE-THERE-MORE-REC PIC XXX VALUE \'YES\'. 01 H1. 05 STAR PIC X(80) VALUE ALL \'*\'. 01 H2. 05 NAME PIC X(4) VALUE \'NAME\'. 05 FILLER PIC X(7). 05 ADDRESS PIC X(10) VALUE \'ADDRESS\'. 05 FILLER PIC X(2). 05 CAT PIC X(3) VALUE \'SEX\'. 05 FILLER PIC X(2). 05 DG PIC X(12) VALUE \'DEGREE-CODE\'. 05 FILLER PIC X(2). 05 EXP PIC X(10) VALUE \'EXPERIENCE\'. 05 FILLER PIC X(2). 05 BOY PIC X(8) VALUE \'Birth Yr\'. 05 FILLER PIC X(2). 05 DIS PIC X(15) VALUE \'DISCRIPTION\'. 01 OUT7-REC. 05 NAME-OUT PIC X(15). 05 FILLER PIC X(2). 05 ADD-OUT PIC X(25). 05 FILLER PIC X(1). 05 CAT-OUT PIC X(1). 05 FILLER PIC X(1). 05 DG-OUT PIC 9(4). 05 FILLER PIC X(1). 05 EXP-OUT PIC 9(2). 05 FILLER PIC X(1). 05 BOY-OUT PIC 9(4). 05 FILLER PIC X(1). 05 DIS-OUT PIC X(10). PROCEDURE DIVISION. MAIN-PARA. OPEN INPUT IN7 OUTPUT OUT7. WRITE OUTREC FROM H1. WRITE OUTREC FROM H2. WRITE OUTREC FROM H1. READ IN7 AT END MOVE \'NO\' TO ARE-THERE-MORE-REC. PERFORM PARA-1 UNTIL ARE-THERE-MORE-REC = \'NO\'. CLOSE IN7. CLOSE OUT7. STOP RUN. PARA-1. MOVE NAME-IN TO NAME-OUT. MOVE ADD-IN TO ADD-OUT. MOVE CAT-IN TO CAT-OUT. MOVE DG-IN TO DG-OUT. MOVE EXP-IN TO EXP-OUT. MOVE BOY-IN TO BOY-OUT. IF (BOY > 1960) MOVE \"IN-VALID\" TO DIS-OUT IF (DG-IN = 1) IF (EXP-IN > 5 OR EXP-IN = 5) MOVE \"VALID\" TO DIS-OUT. IF (DG-IN = 2) OR (EXP-IN > 0) MOVE \"VALID\" TO DIS-OUT. WRITE OUTREC FROM OUT7-REC. READ IN7 AT END MOVE \'NO\' TO ARE-THERE-MORE-REC. Input:- Patel Krunal 20,Amarkunj Soc,ahmedabadM0001001982 Bhatt Rakesh Issanpur,ahmedabad M0002011959 Shah Nilesh Raipur,ahmedabad M0002071959 Patel Nirav maninagar,ahmedabad M0001081957 Output:- ******************************************************************************** NAME ADDRESS SEX DEGREE-CODE EXPERIENCE Birth Yr DISCRIPTION ******************************************************************************** Patel Krunal 20,Amarkunj Soc,ahmedabad M 0001 00 1982 IN-VALID Bhatt Rakesh Issanpur,ahmedabad M 0002 01 1959 VALID Shah Nilesh Raipur,ahmedabad M 0002 07 1959 VALID Patel Nirav maninagar,ahmedabad M 0001 08 1957 VALID