Logo 
Search:

Cobol Articles

Submit Article
Home » Articles » Cobol » Homework HelpRSS Feeds

Program of job appl checking candidate is eligible if he / she is was born before 1960 ,is graduate 5 years of experience, is post graduate few expr

Posted By: Hannah Brown     Category: Cobol     Views: 4025

App a received for a job contain the data for candidate as
Position Desc.
1 - 15 name.
16 - 41 Address.
42 Category.
43 - 47 Degree code
( 1 - Graduate, 2 - Post Graduate, 0 - O/W)
48 - 49 Experience in years.
Given a record desc in a file for candidate data.
A candidate can do job if he / she is
was born before 1960.
is graduate 5 years of experience.
is post graduate few experience.

Code for Program of job appl checking candidate is eligible if he / she is was born before 1960 ,is graduate 5 years of experience, is post graduate few expr in Cobol

       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                 
  
Share: 



Hannah Brown
Hannah Brown author of Program of job appl checking candidate is eligible if he / she is was born before 1960 ,is graduate 5 years of experience, is post graduate few expr is from London, United Kingdom.
 
View All Articles

 
Please enter your Comment

  • Comment should be atleast 30 Characters.
  • Please put code inside [Code] your code [/Code].

 
No Comment Found, Be the First to post comment!