*&---------------------------------------------------------------------*
*& Report  Z_LEON_DENARD_ASSIGNMENT_7_1
*& Name: Leon Denard
*&---------------------------------------------------------------------*
*& Account #: GSU-013
*& Date: 03/27/12
*& Program: z_Leon_Denard_Assignment_7_1
*& Title: Colsultant Report
*& Description: Prints out how many students are enrolled each year and how many are allowed/over
*&---------------------------------------------------------------------*

REPORT  Z_LEON_DENARD_ASSIGNMENT_7_1.

PARAMETERS: degree type string, par_cona(4) type p, par_conb(4) type p, par_conc(4) type p, par_cond(4) type p, par_cone(4) type p, par_conf(4) type p.

DATA: per1(4) type p DECIMALS 2, per2(4) type p DECIMALS 2, per3(4) type p DECIMALS 2, per4(4) type p DECIMALS 2, per5(4) type p DECIMALS 2, per6(4) type p DECIMALS 2, student_total(3) type p, over1 type p, over2 type p, over3 type p, over4 type p,
      over5 type p, over6 type p.

CONSTANTS: t(29) TYPE c VALUE 'Total Number of Students:', con1(18) TYPE c VALUE 'Students in year 1', con2(18) TYPE c VALUE 'Students in year 2', con3(18) TYPE c VALUE 'Students in year 3', con4(18) TYPE c VALUE 'Students in year 4',
           con5(18) TYPE c VALUE 'Students in year 5', con6(18) TYPE c VALUE 'Students in year 6', p(1) TYPE c VALUE '%', year1(3) TYPE c VALUE '150', year2(3) TYPE c VALUE '100', year3(2) TYPE c VALUE '75', year4(2) TYPE c VALUE '50',
           year5(2) TYPE c VALUE '25', year6(2) TYPE c VALUE '25', invalid(58) TYPE c VALUE 'INVALID DEGREE PROGRAM - PLEASE ENTER A NEW DEGREE PROGRAM', overa(28) TYPE c VALUE 'Year 1 is over the limit by:',
           overb(28) TYPE c VALUE 'Year 2 is over the limit by:', overc(28) TYPE c VALUE 'Year 3 is over the limit by:', overd(28) TYPE c VALUE 'Year 4 is over the limit by:', overe(28) TYPE c VALUE 'Year 5 is over the limit by:',
           overf(28) TYPE c VALUE 'Year 6 is over the limit by:', dba(15) TYPE c VALUE 'Faculty of Arts', dbis(33) TYPE c VALUE 'Department of Information Systems', dbsc(30) TYPE c VALUE 'Department of Computer Science',
           dbba(33) TYPE c VALUE 'Department of Business'.

COMPUTE: student_total = par_cona + par_conb + par_conc + par_cond + par_cone + par_conf, per1 = ( par_cona / student_total ) * 100, per2 = ( par_conb / student_total ) * 100, per3 = ( par_conc / student_total ) * 100,
         per4 = ( par_cond / student_total ) * 100, per5 = ( par_cone / student_total ) * 100, per6 = ( par_conf / student_total ) * 100.

START-OF-SELECTION.

  CALL SCREEN 0001.

  IF dba = 'X'.
      WRITE: /, dba.
  ELSEIF dbis = 'X'.
      WRITE: /, dbis.
  ELSEIF dbsc = 'X'.
      WRITE: /, dbsc.
  ELSEIF dbba = 'X'.
      WRITE: /, dbba.
  ENDIF.