LSP_COBOL_Tutorial for BCA Students of M G University

COBOL TUTORIAL FOR BCA STUDENTS OF M G UNIVERSITY

LAB EXCERCISES AND SOLUTIONS (CYCLE -I)

Given the sex and age of a number of people. Write a COBOL program to calculate the number of Males and Female and also calculate the number of males in the age group 25 and 35. Show the output in a neat format.

                        
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SEX-AGE.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.
       OBJECT-COMPUTER.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  AGE   PIC 99.
       01  SEX   PIC X.
       01  N     PIC 99.
       01  NOM   PIC 99 VALUE IS 0.
       01  NOF   PIC 99 VALUE IS 0.
       01  GRP   PIC 99 VALUE IS 0.
       PROCEDURE DIVISION.
       MAIN-PARA.
           DISPLAY "ENTER THE NUMBER OF PEOPLE".
           ACCEPT N.
           PERFORM PROCESS-PARA N TIMES.
           PERFORM DISP-PARA.
           STOP RUN.
       PROCESS-PARA.
           DISPLAY "ENTER THE AGE : ".
           ACCEPT AGE.
           DISPLAY "ENTER THE SEX : ".
           ACCEPT SEX.
           IF SEX = "F"
              COMPUTE NOF = NOF + 1
           ELSE
              COMPUTE NOM = NOM + 1
              IF AGE NOT< 25 AND AGE NOT> 35
                 COMPUTE GRP = GRP + 1.
       DISP-PARA.
           DISPLAY "      R E S U L T".
           DISPLAY "=======================".
           DISPLAY "  No. of Males : " NOM.
           DISPLAY " No. of Female : " NOF.
           DISPLAY "Group Strength : " GRP.
           DISPLAY "=======================".

COBOL TUTOR - Home