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