0.007/14/99 EVELYN SANDIN
1.0  PROGRAM NARRATIVE
     -----------------

         THIS SUB-PROGRAM WILL SCAN THE CTLQUART SEGMENTS ON THE CONTROL
     DATABASE AND RETURN SEVEN TERM CODES FOR USE BY THE CALLING
     PROGRAM.  THE SEVEN TERM CODES RETURNED WILL BE DETERMINED BASED ON
     THE VALUE OF THE CUMM-INFO-FLAG DATA ELEMENT STORED IN THE
     COLLEGE'S CTLQUART SEGMENTS.  THE TERM CODES FOR THE FOLLOWING
     PROCESSING POINTS WILL BE RETURNED:

       BEGINNING TERM ON STUDENT HISTORY DATABASE - GPA COMPS COMPLETE
       ENDING TERM ON STUDENT HISTORY DATABASE - GPA COMPS COMPLETE
       BEGINNING TERM ON STUDENT ACTIVE DATABASE - GPA COMPS COMPLETE
       ENDING TERM ON STUDENT ACTIVE DATABASE - GPA COMPS COMPLETE
       CURRENT TERM ON STUDENT ACTIVE DATABASE - GPA COMPS INCOMPLETE
       BEGINNING FUTURE TERM ON STUDENT ACTIVE DATABASE - GPA COMPS
                                                          INCOMPLETE
       ENDING FUTURE TERM ON STUDENT ACTIVE DATABASEGPA COMPS INCOMPLETE

     THE INFORMATION PASSED FROM THE CALLING MODULE TO THE SUB-PROGRAM
     CONSISTS OF THE FOLLOWING DATA ELEMENTS:

       01  (01 LEVEL DATA NAME)
      *
           05  UTL200-RETURN-CODE             PIC S9999V.
               88  UTL200-SUCCESSFUL           VALUE +0000.
               88  UTL200-CORRUPT-FLAG-SEQ     VALUE +0001.
               88  UTL200-DLI-CALL-ERROR-CTLQ  VALUE +0002.
               88  UTL200-BAD-FLAG-VALUE       VALUE +0003.
               88  UTL200-NO-CURR-TERM         VALUE +0004.
           SKIP3
           05  LINK-TERM-DATA.
               10  BEG-TERM-HIST.
                   15  BEG-TERM-HIST-YR        PIC XX.
                   15  BEG-TERM-HIST-Q-CD      PIC X.
               10  END-TERM-HIST.
                   15  END-TERM-HIST-YR        PIC XX.
                   15  END-TERM-HIST-Q-CD      PIC X.
               10  BEG-TERM-STU.
                   15  BEG-TERM-STU-YR         PIC XX.
                   15  BEG-TERM-STU-Q-CD       PIC X.
               10  END-TERM-STU.
                   15  END-TERM-STU-YR         PIC XX.
                   15  END-TERM-STU-Q-CD       PIC X.
               10  CURRENT-TERM.
                   15  CURRENT-TERM-YR         PIC XX.
                   15  CURRENT-TERM-Q-CD       PIC X.
               10  BEG-FUTURE-TERM.
                   15  BEG-FUTURE-TERM-YR      PIC XX.
                   15  BEG-FUTURE-TERM-Q-CD    PIC X.
               10  END-FUTURE-TERM.
                   15  END-FUTURE-TERM-YR      PIC XX.
                   15  END-FUTURE-TERM-Q-CD    PIC X.

        THE CALLING PROGRAM SHOULD CHECK THE RETURN CODE FOR THE
        FOLLOWING CONDITIONS:

          +0000 - THE SUBPROGRAM SUCCESSFULLY DETERMINED TERMS WITH NO
                  ERRORS.

          +0001 - ERROR - A CORRUPT CUMM-INFO-FLAG SEQUENCE WAS DETECTED
                  ON THE CTLQUART SEGMENTS.

          +0002 - ERROR - DLI CALL FAILED TO CONTROL DATABASE.

          +0003 - ERROR - UNKNOW CUMM-INFO-FLAG VALUDE DETECTED ON A
                  CTLQUART SEGMENT.

          +0004 - ERROR - UNABLE TO DETECT A CURRENT TERM IN ANY OF THE
                  CTLQUART SEGMENTS ON THE CONTROL DATABASE.

        THE FOLLOWING CALL STATEMENT IS USED TO INVOLKE SUPPROGRAM
        UTL200S:

          CALL 'UTL200S' USING (01 LEVEL DATA NAME)
                               (CONTROL DATABASE PCB MASK ADDRESS)

2.0  SAMPLE JCL: N/A
     ----------

3.0  JOB SETUP INSTRUCTIONS: N/A
     ----------------------

4.0  FILES: N/A
     -----

5.0  SPECIAL FEATURES
     ----------------
     5.1  CALLING PROGRAMS:
          1.  GRP580

     5.2  SUBPROGRAMS CALLED: N/A

     5.3  MESSAGE SEGMENT CODES: N/A

     5.4  SPECIAL OUTPUT MESSAGES: N/A

6.0  PROGRAM OPTIONS: N/A
     ----------------

7.0  PROGRAM CHANGE HISTORY:
     -----------------------

     7.1  VERSION NO:                4.41
          CHANGE DATE:               12/21/92
          PROGRAMMER NAME:           EVELYN SANDIN
          PROGRAM CHANGE REQUEST NO: 00009968
          DESCRIPTION OF CHANGE:     INITIAL RELEASE

     7.2  VERSION NO:                5.04
          CHANGE DATE:               09/14/93
          PROGRAMMER NAME:           EUGENE WALLO
          PROGRAM CHANGE REQUEST NO: 00012458
          DESCRIPTION OF CHANGE:
           - REVISED THE COPYLIB-MEMBER TEXT IN SECTION 1.0 OF THE
             DOCUMENTATION, TO REFLECT THE NEW VERSION OF MEMBER
             'UTL200WK'.
           - CHANGED THE REFERENCE OF "GRP320S" TO "UTL200S," IN SECTION
             1.0 OF THE DOCUMENTATION.

     7.3  VERSION NO:                V7.03
          CHANGE DATE:               04/15/98
          PROGRAMMER NAME:           BOB DODGE
          PROGRAM CHANGE REQUEST NO: 00018008
          DESCRIPTION OF CHANGE:
              MODIFIED FOR THE Y2K PROJECT.  CHANGES WERE MAKE TO THE
              INCREMENTING AND DECREMENTING OF THE TERM YEAR.