Program Compilation in COBOL
Instructions:
1. Form a group with 10 members
2. For each problem, make a COBOL program from Identification Division to
Procedure Division.
3. Make also a structured flowchart for each problem.
4. Place the hard copy of the following (for each problem) in a short sliding
folder.
a. Copy of the Problem
b. COBOL Program Source Code
c. Structured Flowchart
d. Sample Input File
e. Sample Output File
5. Place the soft copy of the following in a CD.
a. COBOL Program (.cob)
b. Input File (.txt)
c. Output File (.txt)
6. Place the sliding folder and the CD in a short plastic envelope.
7. Deadline of submission is on January 5, 2010.
Note: Long quiz on January 5, 2010
Coverage:
Lesson 1-5
Complete COBOL Program (Identification – Data Division)
Structured Flowchart
PROBLEM # 1
Given: Worker’s File
INPUT FORMAT:
PROVINCIA WORKER’S WORKER’S STATUS
L CODE NUMBER NAME CODE
(PROVCD) (WNO) (WNAME) (STATCD)
X X(7) X(25) X
NOTE:
1. Records are arranged according to PROVINCIAL CODE.
2. There are only 3 possible values for PROVINCIAL CODE: ‘A’ for
“ANTIPOLO” ; ‘B’ for “BACOLOD”; ‘C’ for “CEBU”.
3. There are only 2 possible values for STATUS CODE: ‘P’ for
“PERMANENT”; and ‘T’ for “TEMPORARY”.
REQUIRED:
For each record print the WORKER’S NUMBER, WORKER’S NAME and STATUS
NAME. For a break in PROVINCIAL CODE, print the PROVINCIAL NAME and the
TOTAL NO. OF WORKER for that province. At the end of file, print the TOTAL
NO. OF CHIKA WORKERS, and the TOTAL NUMBER OF PERMANENT &
TEMPORARY.
OUTPUT LAYOUT:
CHIKA CORPORATION
Kalokohan City
WORKER’S REPORT
WORKER’S NUMBER WORKER’S NAME
STATUS NAME
(WNO-OUT) (WNAME-OUT)
X(9)
.
.
.
PROVINCIAL NAME: _____________________________
TOTAL NO. OF WORKERS: 9,999
.
.
.
TOTAL NO. OF CHIKA WORKERS: 99,999
TOTAL NO. OF PERMANENT: 9,999
TOTAL NO. OF TEMPORARY: 9,999
PROBLEM # 2
GIVEN: STUDENT FILE
INPUT FORMAT:
YEAR CODE COURSE CODE STUDENT STUDENT STATUS TYPE
NUMBER NAME
9 X(2) 9(5)
X(25) X
NOTE:
1. Records are arranged sequentially according to YEAR CODE.
2. There are only 4 possible values for YEAR CODE:
YEAR CODE YEAR LEVEL
1 FRESHMAN
2 SOPHOMORE
3 JUNIOR
4 SENIOR
3. There are only 2 possible values for COURSE CODE:
COURSE CODE COURSE NAME
IT BSIT
CS BSCS
4. There are only 2 possible values for STATUS TYPE:
STATUS TYPE STATUS NAME
R REGULAR
I IRREGULAR
REQUIRED:
For every record, print the COURSE NAME, STUDENT NUMBER,
STUDENT NAME, and STATUS NAME. For a break in YEAR CODE,
Print the YEAR LEVEL and the TOTAL NO. OF STUDENTS for that year.
At the end of file, print the TOTAL NO. OF BSIT and BSCS students.
OUTPUT LAYOUT:
POLYTECHNIC UNIVERSITY OF THE PHILIPPINES
COLLEGE OF COMPUTER MANAGEMENT AND INFORMATION TECHNOLOGY
STA. MESA, MANILA
ENROLLMENT REPORT
COURSE STUDENT STUDENT
STATUS
NAME NUMBER NAME
NAME
X(4) 9(5) X(25)
X(9)
YEAR LEVEL: __________________________
TOTAL NO. OF STUDENTS: 9,999
TOTAL NO. OF BSIT STUDENTS: 99,999
TOTAL NO. OF BSCS STUDENTS: 99,999
PROBLEM # 3
GIVEN: Employee’s File
INPUT FORMAT:
DEPARTME
EMPLOYEE EMPLOYEE
NT SEX CODE
NUMBER NAME
CODE
X X(10) X(25) X
NOTE:
1. Records are arranged according to DEPARTMENT CODE.
2. There are only 4 possible values for DEPARTMENT CODE: ‘A’ for
“ACCOUNTING”; ‘E’ for ‘PERSONNEL’; ‘C’ for “COMPUTER”; and ‘S’ for
“SALES” Department.
3. There are only 2 possible values for STATUS CODE: ‘P’ for “PERMANENT”; and
‘T’ for “TEMPORARY”.
4. There are only 2 possible values for SEX CODE: ‘M’ for “MALE”; & ‘F’ for
“FEMALE”.
REQUIRED:
1. Print only the employees whose STATUS NAME is “Permanent”. Print also the
EMPLOYEE NUMBER, EMPLOYEE NAME and SEX NAME.
2. For a change in DEPARTMENT CODE, print the DEPARTMENT NAME and the
TOTAL NO. OF EMPLOYEES for the said department.
3. At the end of file, print the TOTAL NO. OF MALE and TOTAL NO. OF FEMALE;
and print also the TOTAL NO. OF RECORDS PRINTED.
OUTPUT LAYOUT:
CHIKA NA NAMAN CORPORATION
Kalokohan City
EMPLOYEE’S REPORT
EMPLOYEE EMPLOYEE STATUS NAME
SEX NAME
NUMBER NAME
.
.
.
DEPARTMENT NAME: _______________________
TOTAL NO. OF EMPLOYEES: 9,999
.
.
.
TOTAL NO. OF MALE: 9,999
TOTAL NO. OF FEMALE: 9,999
TOTAL NO. OF CHIKA EMPLOYEES: 99,999
PROBLEM # 4
Given: Worker’s File
INPUT FORMAT:
PROVINCIA WORKER’S WORKER’S SEX
L CODE NUMBER NAME CODE
(PROVCD) (WNO) (WNAME) (SEX)
X X(7) X(25) X
NOTE:
1. Records are arranged according to PROVINCIAL CODE.
2. There are only 3 possible values for PROVINCIAL CODE: ‘A’ for
“ANTIPOLO”; ‘B’ for “BACOLOD”; ‘C’ for “CEBU”.
REQUIRED:
For each record print the WORKER’S NUMBER, WORKER’S NAME and SEX
NAME. For a break in PROVINCIAL CODE, print the PROVINCIAL NAME and the
TOTAL NO. OF MALE & FEMALE WORKERS. At the end of file, print the TOTAL
NO. OF WORKERS.
OUTPUT LAYOUT:
CHIKA PA RIN CORPORATION
Kalokohan City
WORKER’S REPORT
WORKER’S NUMBER WORKER’S NAME
SEX NAME
(WNO-OUT) (WNAME-OUT)
X(6)
.
.
.
PROVINCIAL NAME: _________________________
TOTAL NO. OF MALE: 9,999
TOTAL NO. OF FEMALE: 9,999
.
.
.
TOTAL NO. OF WORKERS: 99,999
PROBLEM # 5
GIVEN: Faculty File
INPUT FORMAT:
DEPARTMENT FACULTY FACULTY STATUS
SEX CODE
CODE NUMBER NAME CODE
XX X(10) X(25) X
X
NOTE:
1. Records are arranged according to DEPARTMENT CODE.
2. There are only 2 possible values for DEPARTMENT CODE: ‘CS’ for “COMP.
SCI.”; and ‘IT’ for “INFO. TECH.” Department.
3. There are only 3 possible values for STATUS CODE: ‘R’ for “REGULAR”; & ‘T’
for “TEMPORARY” and ‘P’ for “PART TIME”.
4. There are only 2 possible values for SEX CODE: ‘M’ for “MALE”; & ‘F’ for
“FEMALE”.
REQUIRED:
1. Print FACULTY NUMER, FACULTY NAME, STATUS NAME and SEX NAME.
2. For a change in DEPARTMENT CODE, print the DEPARTMENT NAME and the
TOTAL NO. OF REGULAR, TEMPORARY and PART TIME faculty. Print also the
TOTAL NO. OF MALE and TOTAL NO. OF FEMALE for each department.
3. At the end of file, print the TOTAL NO. OF FACULTY of the college.
OUTPUT LAYOUT:
PUP
CCMIT
Sta. Mesa, Manila
FACULTY REPORT
FACULTY FACULTY STATUS NAME
SEX NAME
NUMBER NAME
.
.
.
DEPARTMENT NAME: __________________
TOTAL NO. OF REGULAR: 99
TOTAL NO. OF TEMPORARY: 99
TOTAL NO. OF PART TIME: 99
TOTAL NO. OF MALE : 99
TOTAL NO. OF FEMALE: 99
TOTAL NO. OF FACULTY: 9, 999
