PROCESS ADV,APOST,DYNAM,LIB,MAP,NODECK,OBJECT,OFFSET,OPT,RENT,XREF PROCESS LINECOUNT(80) IDENTIFICATION DIVISION. PROGRAM-ID. EDITFA02. AUTHOR. SAMSON. DATE-WRITTEN. JAN. 15, 1988. DATE-COMPILED. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * VERSION 595-01 * * * * UPDATED 12/01/1989 - PATTY O'CONNOR * * UPDATED 06/11/1990 - PATTY O'CONNOR * * UPDATED 11/28/1990 - PATTY O'CONNOR * * UPDATED 05/06/1991 - PATTY O'CONNOR * * UPDATED 02/19/1992 - PATTY O'CONNOR * * + CORRECTED CO CWS EDIT * * UPDATED 06/11/1992 - PATTY O'CONNOR * * UPDATED 06/04/1993 - PATTY O'CONNOR * * UPDATED 05/01/1994 - PATTY O'CONNOR * * UPDATED 03/17/1995 - JACKI STIRN * * + UPDATES FIELD NAMES * * + UPDATES ALL TOLERANCES TO $300 * * + DIRECT LOAN FLAGS DEFERRED TO 1996 * * * * UPDATED 01/04/1996 -JOHN BEINDORFF * * + INCREASE 4 FIELD SIZES * * + FROM 5 BYTES TO 6 BYTES * * + CONVERT TO COBOL II - (NOT YET) * * * * UPDATED 04/24/1997 -GEOFF BARSCH * * + ADDED A RESIDENCY EDIT * * + FOR PT GRANT AND GR GRANT * * UPDATED 01/20/1998 - RANDY RITCH * * + EXPAND ALL YEAR FIELDS TO 4 DIGITS * * + FOR Y2K COMPLIANCE * * UPDATED 09/10/2000 - SHARON SAMSON * * + EXPAND FILE TO 250 CHARACTERS * * + ADD GOS EDIT CHECKS * * UPDATED 04/11/2001 - PATTY O'CONNOR * * + UPDATE EDIT CHECKS FOR NEW POLICIES * * UPDATED 04/29/2002 - DJ COX (UNC) * * + UPDATE EDIT CHECKS FOR NEW POLICIES * * * * THIS PROGRAM RUNS EDIT CHECKS ON THE * * STUDENT FINANCIAL AID FILE * * ** 2000 FORMAT 250 CHARACTER RECORD * * ** 2001 FORMAT CALLED EDITFA01 * * ** 2002 FORMAT CALLED EDITFA02 * * 1. PRINTS A MATRIX OF ERROR RECORDS * * 2. PRINTS EXCEPTIONS LISTING OF RECORDS * * 3. GENERATES A FILE OF VALID RECORDS * * * * * * PARAMETER CARD: CC POSITION FIELD NAME * * -------------- ----------- ---------- * * EXCEPTION LIMIT 01-05 EX-PARM * * (VALUE OR 99999) * * PROCESS 07 ER-ONLY-PARM * * ('E'-EDIT * * 'R'-REPORT * * 'W'-WARNINGS * * ' '-BOTH) * * INSTITUTION CODE 09-12 INST-PARM * * YEAR 14-17 YR-PARM * * SEOG LIMIT 19-23 PR-SEOG-LIMIT * * CLEAP LIMIT 25-29 PR-CLEAP-LIMIT * * SLEAP LIMIT 31-35 PR-SLEAP-LIMIT * * STATE GRANT LIMIT 37-41 PR-CS-GRANT-LIMIT * * GRADUATE GRANT LIMIT 43-47 PR-GR-GRANT-LIMIT * * STAFFORD LIMIT 49-53 PR-STAFFORD-UG-LIMIT * * (UNDERGRAD) * * STAFFORD LIMIT 55-59 PR-STAFFORD-GR-LIMIT * * (GRAD) * * GOS LIMIT 61-65 PR-GOS-LIMIT * * PELL LIMIT 67-70 PR-PELL-LIMIT * * 150% NEED-BASED LIMIT 72-76 PR-NEED-BASED-GRANT * * PROGRAM DEBUGGING OPTION 80 PR-DEBUG-OPTION * * * * * * INPUT RECORD: CC POSITION FIELD NBR * * ------------ ----------- --------- * * CORE DATA * * RECORD-TYPE 001 1 * * INSTITUTION CODE 002-005 2 * * TERM 006 3 * * REPORT YEAR 007-010 4 * * STUDENT ID 011-019 5 * * SEX 020 6 * * BIRTH DATE (CCYYMMDD) 021-028 7 * * ETHNICITY 029 8 * * STUDENT LEVEL 030-031 9 * * TUITION CLASSIFICATION 032 10 * * FILLER (RESERVED) 033-036 11 * * ENROLLMENT DATA * * ENROLL STATUS 037 12 * * LEGAL STATUS 038 13 * * ENROLL DURATION 039-040 14 * * INCOME 041-046 15 * * FILLER (RESERVED) 047 16 * * BUDGET AMOUNT 048-053 17 * * RESOURCES (FAMILY CONTRIB) 054-059 18 * * FEDERAL DATA * * PELL 060-064 19 * * SEOG 065-069 20 * * WORK STUDY (FEDERAL) 070-074 21 * * FILLER (RESERVED) 075-079 22 * * PERKINS 080-084 23 * * OTHER FEDERAL 085-089 24 * * STATE DATA * * CLEAP 090-094 25 * * COLORADO STATE GRANT 095-099 26 * * WORK STUDY (STATE) 100-104 27 * * MERIT (UNDERGRAD) 105-109 28 * * GRADUATE GRANT 110-114 29 * * GRADUATE FELLOWSHIP 115-119 30 * * FILLER (RESERVED) 120-124 31 * * COLORADO NURSE 125-129 32 * * COLORADO CAT 130-134 33 * * FILLER (RESERVED) 135-139 34 * * OTHER DATA * * INSTITUTIONAL SCHOLARSHIP 140-144 35 * * FILLER (RESERVED) 145-149 36 * * INSTITUTIONAL FUND 1 150-154 37 * * INSTITUTIONAL FUND 2 155-159 38 * * OTHER SCHOLARSHIP 160-164 39 * * STAFFORD (SUB) LOAN 165-169 40 * * PLUS LOAN 170-174 41 * * STAFFORD (UNSUB) LOAN 175-179 42 * * LOAN (FEDERAL) 180-184 43 * * LOAN (OTHER) 185-189 44 * * FILLER (RESERVED) 190-192 45 * * OVERRIDE #1 (PRIMARY) 193 46 * * OVERRIDE #2 (SECONDARY) 194 47 * * MISCELLANEOUS DATA * * RESOURCES (PARENT CONTRIB) 195-200 48 * * GOVERNOR OPPORTUNITY SCHOL 201-205 49 * * FILLER (RESERVED) 206 50 * * HOUSEHOLD SIZE 207-208 51 * * NUMBER IN COLLEGE 209-210 52 * * FILLER (RESERVED) 211-215 53 * * SLEAP 216-220 54 * * GPA MERIT SELECTION 221-224 55 * * VETERANS BENEFITS 225-229 56 * * FAFSA FLAG 230 57 * * FILLER (RESERVED) 231-249 58 * * EXCEPTION FLAG 250 59 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * EJECT ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. IBM-4341. OBJECT-COMPUTER. IBM-4341. SPECIAL-NAMES. C01 IS TOP-OF-PAGE. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT CODES-IN ASSIGN TO UT-S-CODESFL. SELECT CODES-IN2 ASSIGN TO UT-S-CODESF2. SELECT DISK-IN ASSIGN TO UT-S-INFILE1. SELECT DISK-OUT ASSIGN TO UT-S-VALIDFL. SELECT ERRS-OUT ASSIGN TO UT-S-ERRFILE. UNC SELECT MEMO-OUT ASSIGN TO UT-S-MEMOFIL. SELECT PARM-IN ASSIGN TO UT-S-PARMTER. SELECT PRINT-OUT ASSIGN TO UT-S-PRINTER. UNC SELECT PRINT-OUT2 ASSIGN TO UT-S-PRINTER2. EJECT DATA DIVISION. FILE SECTION. FD CODES-IN LABEL RECORDS ARE OMITTED RECORDING MODE IS F RECORD CONTAINS 80 CHARACTERS BLOCK CONTAINS 0 RECORDS. 01 CODE-REC. 05 INST-AL PIC X(4). 05 FILLER PIC X. 05 CLEAP-AL PIC 9(7). 05 FILLER PIC X(68). FD CODES-IN2 LABEL RECORDS ARE OMITTED RECORDING MODE IS F RECORD CONTAINS 80 CHARACTERS BLOCK CONTAINS 0 RECORDS. 01 CODE2-REC. 05 INST-CODE PIC X(4). 05 FILLER PIC X(2). 05 FA-TYPE PIC X. 05 FILLER PIC X(10). 05 INST-NAME PIC X(35). 05 FILLER PIC X(7). 05 GOV-BD PIC X. 05 ALPHA-CD PIC X(2). 05 FILLER PIC X(18). FD DISK-IN LABEL RECORDS ARE OMITTED RECORDING MODE IS F RECORD CONTAINS 250 CHARACTERS BLOCK CONTAINS 0 RECORDS. 01 IN-REC. 05 CORE-IN. 10 RECORD-TYPE PIC X. 10 FILLER PIC X(35). 05 ENRL-IN PIC X(23). 05 FEDR-IN PIC X(30). 05 STATEIN PIC X(50). 05 OTHR-IN PIC X(55). 05 MISC-IN PIC X(56). FD DISK-OUT LABEL RECORDS ARE OMITTED RECORDING MODE IS F RECORD CONTAINS 250 CHARACTERS BLOCK CONTAINS 0 RECORDS. 01 OUT-REC PIC X(250). FD ERRS-OUT LABEL RECORDS ARE OMITTED RECORDING MODE IS F RECORD CONTAINS 250 CHARACTERS BLOCK CONTAINS 0 RECORDS. 01 ERR-REC PIC X(250). UNC FD MEMO-OUT UNC LABEL RECORDS ARE OMITTED UNC RECORDING MODE IS F UNC RECORD CONTAINS 132 CHARACTERS UNC BLOCK CONTAINS 0 RECORDS. UNC 01 MEMO-LINE PIC X(132). FD PARM-IN LABEL RECORDS ARE OMITTED RECORDING MODE IS F RECORD CONTAINS 80 CHARACTERS BLOCK CONTAINS 0 RECORDS. 01 PARM-REC. 05 EXC-PARM. 10 EX-PARM PIC 9(5). 05 FILLER PIC X. 05 ER-ONLY-PARM PIC X. 05 FILLER PIC X. 05 INST-PARM PIC X(4). 05 FILLER PIC X. 05 Y-P. 10 YR-PARM PIC 9(4). 05 FILLER PIC X. UNC 05 PR-SEOG-LIMIT PIC 9(5). UNC 05 FILLER PIC X. UNC 05 PR-CLEAP-LIMIT PIC 9(5). UNC 05 FILLER PIC X. UNC 05 PR-SLEAP-LIMIT PIC 9(5). UNC 05 FILLER PIC X. UNC 05 PR-CS-GRANT-LIMIT PIC 9(5). UNC 05 FILLER PIC X. UNC 05 PR-GR-GRANT-LIMIT PIC 9(5). UNC 05 FILLER PIC X. UNC 05 PR-STAFFORD-UG-LIMIT PIC 9(5). UNC 05 FILLER PIC X. UNC 05 PR-STAFFORD-GR-LIMIT PIC 9(5). UNC 05 FILLER PIC X. UNC 05 PR-GOS-LIMIT PIC 9(5). UNC 05 FILLER PIC X. UNC 05 PR-PELL-LIMIT PIC 9(4). UNC 05 FILLER PIC X. UNC 05 PR-NEED-BASED-GRANT PIC 9(5). UNC 05 FILLER PIC X(3). UNC 05 PR-DEBUG-OPTION PIC X. FD PRINT-OUT LABEL RECORDS ARE OMITTED RECORDING MODE IS F RECORD CONTAINS 132 CHARACTERS BLOCK CONTAINS 0 RECORDS. 01 PRINT-LINE PIC X(132). UNC FD PRINT-OUT2 UNC LABEL RECORDS ARE OMITTED UNC RECORDING MODE IS F UNC RECORD CONTAINS 132 CHARACTERS UNC BLOCK CONTAINS 0 RECORDS. UNC 01 PRINT-LINE2 PIC X(132). EJECT WORKING-STORAGE SECTION. UNC ****************************************************************** UNC *** DATE AREA *** UNC ****************************************************************** 01 WS-DATE. 05 WS-DATE-YR PIC 9(4). 05 WS-DATE-MO PIC 9(2). 05 WS-DATE-DAY PIC 9(2). EJECT UNC ****************************************************************** UNC *** ACCUMULATOR AREA *** UNC ****************************************************************** 01 PROGRAM-KOUNTS. UNC *----------------------------------------------------------------* * COUNTS FOR SUBTOTALS AND TOTALS * UNC *----------------------------------------------------------------* UNC 05 AWD-SUB-KOUNT PIC 9(5) VALUE 0. UNC 05 AWD-TOT-KOUNT PIC 9(5) VALUE 0. 05 ERR-PCT PIC 9V9(3) VALUE 0. UNC 05 ERR-SUB-KOUNT PIC 9(5) VALUE 0. 05 EX-KOUNT PIC 9(5) VALUE 0. 05 GOOD-KOUNT PIC 9(5) VALUE 0. UNC 05 OVER-KOUNT PIC 9(5) VALUE 0. UNC 05 OVR-SUB-KOUNT PIC 9(5) VALUE 0. UNC 05 OVR-PCT PIC 9V9(3) VALUE 0. 05 WARN-KOUNT PIC 9(5) VALUE 0. 05 WARN-PCT PIC 9V9(3) VALUE 0. UNC 05 WAR-SUB-KOUNT PIC 9(5) VALUE 0. UNC *----------------------------------------------------------------* UNC * COUNTS FOR ERRORS BY FIELD * UNC *----------------------------------------------------------------* 05 ERRER-1 PIC 9(5) VALUE 0. 05 ERRER-2 PIC 9(5) VALUE 0. 05 ERRER-3 PIC 9(5) VALUE 0. 05 ERRER-4 PIC 9(5) VALUE 0. 05 ERRER-5 PIC 9(5) VALUE 0. 05 ERRER-6 PIC 9(5) VALUE 0. 05 ERRER-7 PIC 9(5) VALUE 0. 05 ERRER-8 PIC 9(5) VALUE 0. 05 ERRER-9 PIC 9(5) VALUE 0. 05 ERRER-10 PIC 9(5) VALUE 0. 05 ERRER-11 PIC 9(5) VALUE 0. 05 ERRER-12 PIC 9(5) VALUE 0. 05 ERRER-13 PIC 9(5) VALUE 0. 05 ERRER-14 PIC 9(5) VALUE 0. 05 ERRER-15 PIC 9(5) VALUE 0. 05 ERRER-16 PIC 9(5) VALUE 0. 05 ERRER-17 PIC 9(5) VALUE 0. 05 ERRER-18 PIC 9(5) VALUE 0. 05 ERRER-19 PIC 9(5) VALUE 0. 05 ERRER-20 PIC 9(5) VALUE 0. 05 ERRER-21 PIC 9(5) VALUE 0. 05 ERRER-22 PIC 9(5) VALUE 0. 05 ERRER-23 PIC 9(5) VALUE 0. 05 ERRER-24 PIC 9(5) VALUE 0. 05 ERRER-25 PIC 9(5) VALUE 0. 05 ERRER-26 PIC 9(5) VALUE 0. 05 ERRER-27 PIC 9(5) VALUE 0. 05 ERRER-28 PIC 9(5) VALUE 0. 05 ERRER-29 PIC 9(5) VALUE 0. 05 ERRER-30 PIC 9(5) VALUE 0. 05 ERRER-31 PIC 9(5) VALUE 0. 05 ERRER-32 PIC 9(5) VALUE 0. 05 ERRER-33 PIC 9(5) VALUE 0. 05 ERRER-34 PIC 9(5) VALUE 0. 05 ERRER-35 PIC 9(5) VALUE 0. 05 ERRER-36 PIC 9(5) VALUE 0. 05 ERRER-37 PIC 9(5) VALUE 0. 05 ERRER-38 PIC 9(5) VALUE 0. 05 ERRER-39 PIC 9(5) VALUE 0. 05 ERRER-40 PIC 9(5) VALUE 0. 05 ERRER-41 PIC 9(5) VALUE 0. 05 ERRER-42 PIC 9(5) VALUE 0. 05 ERRER-43 PIC 9(5) VALUE 0. 05 ERRER-44 PIC 9(5) VALUE 0. 05 ERRER-45 PIC 9(5) VALUE 0. 05 ERRER-46 PIC 9(5) VALUE 0. 05 ERRER-47 PIC 9(5) VALUE 0. 05 ERRER-48 PIC 9(5) VALUE 0. 05 ERRER-49 PIC 9(5) VALUE 0. 05 ERRER-51 PIC 9(5) VALUE 0. 05 ERRER-52 PIC 9(5) VALUE 0. 05 ERRER-53 PIC 9(5) VALUE 0. 05 ERRER-54 PIC 9(5) VALUE 0. 05 ERRER-55 PIC 9(5) VALUE 0. 05 ERRER-56 PIC 9(5) VALUE 0. 05 ERRER-57 PIC 9(5) VALUE 0. 05 ERRER-58 PIC 9(5) VALUE 0. UNC 05 ERRER-59 PIC 9(5) VALUE 0. UNC 05 ERRER-60 PIC 9(5) VALUE 0. UNC *----------------------------------------------------------------* UNC * COUNTS FOR WARNINGS BY FIELD * UNC *----------------------------------------------------------------* UNC 05 WARNING-1 PIC 9(5) VALUE 0. 05 WARNING-2 PIC 9(5) VALUE 0. UNC 05 WARNING-3 PIC 9(5) VALUE 0. 05 WARNING-4 PIC 9(5) VALUE 0. UNC 05 WARNING-5 PIC 9(5) VALUE 0. 05 WARNING-6 PIC 9(5) VALUE 0. UNC 05 WARNING-7 PIC 9(5) VALUE 0. UNC 05 WARNING-8 PIC 9(5) VALUE 0. UNC 05 WARNING-9 PIC 9(5) VALUE 0. 05 WARNING-10 PIC 9(5) VALUE 0. UNC 05 WARNING-11 PIC 9(5) VALUE 0. UNC 05 WARNING-12 PIC 9(5) VALUE 0. UNC 05 WARNING-13 PIC 9(5) VALUE 0. UNC 05 WARNING-14 PIC 9(5) VALUE 0. UNC 05 WARNING-15 PIC 9(5) VALUE 0. UNC 05 WARNING-16 PIC 9(5) VALUE 0. UNC 05 WARNING-17 PIC 9(5) VALUE 0. 05 WARNING-18 PIC 9(5) VALUE 0. 05 WARNING-19 PIC 9(5) VALUE 0. 05 WARNING-20 PIC 9(5) VALUE 0. 05 WARNING-21 PIC 9(5) VALUE 0. 05 WARNING-22 PIC 9(5) VALUE 0. 05 WARNING-23 PIC 9(5) VALUE 0. 05 WARNING-24 PIC 9(5) VALUE 0. 05 WARNING-25 PIC 9(5) VALUE 0. 05 WARNING-26 PIC 9(5) VALUE 0. 05 WARNING-27 PIC 9(5) VALUE 0. 05 WARNING-28 PIC 9(5) VALUE 0. 05 WARNING-29 PIC 9(5) VALUE 0. 05 WARNING-30 PIC 9(5) VALUE 0. 05 WARNING-31 PIC 9(5) VALUE 0. 05 WARNING-32 PIC 9(5) VALUE 0. 05 WARNING-33 PIC 9(5) VALUE 0. 05 WARNING-34 PIC 9(5) VALUE 0. 05 WARNING-35 PIC 9(5) VALUE 0. 05 WARNING-36 PIC 9(5) VALUE 0. 05 WARNING-37 PIC 9(5) VALUE 0. 05 WARNING-38 PIC 9(5) VALUE 0. 05 WARNING-39 PIC 9(5) VALUE 0. 05 WARNING-40 PIC 9(5) VALUE 0. 05 WARNING-41 PIC 9(5) VALUE 0. 05 WARNING-42 PIC 9(5) VALUE 0. 05 WARNING-43 PIC 9(5) VALUE 0. 05 WARNING-44 PIC 9(5) VALUE 0. 05 WARNING-45 PIC 9(5) VALUE 0. 05 WARNING-46 PIC 9(5) VALUE 0. 05 WARNING-47 PIC 9(5) VALUE 0. UNC 05 WARNING-48 PIC 9(5) VALUE 0. UNC 05 WARNING-49 PIC 9(5) VALUE 0. UNC 05 WARNING-50 PIC 9(5) VALUE 0. UNC 05 WARNING-51 PIC 9(5) VALUE 0. UNC 05 WARNING-52 PIC 9(5) VALUE 0. UNC 05 WARNING-53 PIC 9(5) VALUE 0. UNC 05 WARNING-54 PIC 9(5) VALUE 0. UNC 05 WARNING-55 PIC 9(5) VALUE 0. UNC 05 WARNING-56 PIC 9(5) VALUE 0. UNC 05 WARNING-57 PIC 9(5) VALUE 0. UNC 05 WARNING-58 PIC 9(5) VALUE 0. UNC 05 WARNING-59 PIC 9(5) VALUE 0. UNC 05 WARNING-60 PIC 9(5) VALUE 0. UNC *----------------------------------------------------------------* UNC * COUNTS FOR OVERRIDES BY FIELD * UNC *----------------------------------------------------------------* UNC 05 OVRRIDE-1 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-2 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-3 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-4 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-5 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-6 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-7 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-8 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-9 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-10 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-11 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-12 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-13 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-14 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-15 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-16 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-17 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-18 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-19 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-20 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-21 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-22 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-23 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-24 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-25 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-26 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-27 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-28 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-29 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-30 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-31 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-32 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-33 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-34 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-35 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-36 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-37 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-38 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-39 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-40 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-41 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-42 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-43 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-44 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-45 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-46 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-47 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-48 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-49 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-50 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-51 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-52 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-53 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-54 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-55 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-56 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-57 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-58 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-59 PIC 9(5) VALUE 0. UNC 05 OVRRIDE-60 PIC 9(5) VALUE 0. UNC *----------------------------------------------------------------* UNC * COUNTS BY AID CATEGORY * UNC *----------------------------------------------------------------* 05 PELL-KOUNT PIC 9(5) VALUE 0. 05 SEOG-KOUNT PIC 9(5) VALUE 0. 05 F-WS-KOUNT PIC 9(5) VALUE 0. 05 PERKINS-KOUNT PIC 9(5) VALUE 0. 05 F-OT-KOUNT PIC 9(5) VALUE 0. 05 CLEAP-KOUNT PIC 9(5) VALUE 0. 05 SLEAP-KOUNT PIC 9(5) VALUE 0. 05 GOS-KOUNT PIC 9(5) VALUE 0. 05 C-SG-KOUNT PIC 9(5) VALUE 0. 05 C-WS-KOUNT PIC 9(5) VALUE 0. 05 UG-M-KOUNT PIC 9(5) VALUE 0. 05 GRGR-KOUNT PIC 9(5) VALUE 0. 05 GRFL-KOUNT PIC 9(5) VALUE 0. 05 NURSE-KOUNT PIC 9(5) VALUE 0. 05 CAT-KOUNT PIC 9(5) VALUE 0. 05 I-SC-KOUNT PIC 9(5) VALUE 0. 05 IF-1-KOUNT PIC 9(5) VALUE 0. 05 IF-2-KOUNT PIC 9(5) VALUE 0. 05 O-SC-KOUNT PIC 9(5) VALUE 0. 05 STAFFORD-KOUNT PIC 9(5) VALUE 0. 05 PLSLN-KOUNT PIC 9(5) VALUE 0. 05 STAFF-UN-KOUNT PIC 9(5) VALUE 0. 05 LN-F-KOUNT PIC 9(5) VALUE 0. 05 LN-O-KOUNT PIC 9(5) VALUE 0. UNC *----------------------------------------------------------------* * TOTAL-AREAS PER STUDENTS * UNC *----------------------------------------------------------------* 05 NEED PIC S9(6) VALUE +0. 05 CLEAP-DOL PIC 9(7) VALUE 0. 05 SLEAP-DOL PIC 9(7) VALUE 0. 05 GOS-DOL PIC 9(7) VALUE 0. 05 FEDR-DOL PIC 9(7) VALUE 0. 05 STAT-DOL PIC 9(7) VALUE 0. 05 OTHR-DOL PIC 9(7) VALUE 0. 05 LOAN-DOL PIC 9(7) VALUE 0. 05 SUM-AWARDS PIC S9(6) VALUE +0. 05 TOT-CLEAP PIC 9(7) VALUE 0. UNC *----------------------------------------------------------------* UNC * LIMIT AREAS - MAY CHANGE YEARLY * UNC *----------------------------------------------------------------* UNC 05 CLEAP-LIMIT PIC 9(5) VALUE 0. UNC 05 CSG-EFC-LIMIT PIC 9(5) VALUE 0. UNC 05 CS-GRANT-LIMIT PIC 9(5) VALUE 0. UNC 05 GOS-LIMIT PIC 9(5) VALUE 0. UNC 05 GR-GRANT-LIMIT PIC 9(5) VALUE 0. UNC 05 PELL-LIMIT PIC 9(4) VALUE 0. UNC 05 SEOG-LIMIT PIC 9(5) VALUE 0. UNC 05 SLEAP-LIMIT PIC 9(5) VALUE 0. UNC 05 STAFFORD-GR-LIMIT PIC 9(5) VALUE 0. UNC 05 STAFFORD-UG-LIMIT PIC 9(5) VALUE 0. UNC *----------------------------------------------------------------* UNC * MISCELLANEOUS CALCULATIONS * UNC *----------------------------------------------------------------* UNC 05 CSG-EFC-KOUNT PIC 9(5) VALUE 0. EJECT UNC ****************************************************************** UNC *** FLAG/INDICATOR/SWITCHES AREA *** UNC ****************************************************************** 01 PROGRAM-HOLD-AREAS. UNC *----------------------------------------------------------------* * FLAG AND COMPARE-FIELDS. * UNC *----------------------------------------------------------------* UNC 05 DEBUG-FLAG PIC X VALUE 'Y'. UNC 88 DEBUG-CODE VALUE 'Y'. UNC 88 NO-DEBUG-CODE VALUE 'N'. 05 ERR-FLAG1 PIC 9(2) VALUE 0. 05 ERR-FLAG2 PIC 9(2) VALUE 0. 05 ERR-FLAG3 PIC 9(2) VALUE 0. 05 ID-HOLD PIC 9(9) VALUE 0. UNC 05 INST-CODE-HOLD PIC X(4) VALUE SPACES. UNC 05 INST-NAME-HOLD PIC X(35) VALUE SPACES. 05 PER-CENT PIC 9(3)V9(3) VALUE 0. 05 TERM-HOLD PIC 9 VALUE 0. 05 WARN-FLAG PIC 9(2) VALUE 0. 05 YEAR PIC 9(4) VALUE 0. 01 PROGRAM-INDICATORS. 05 IS-THERE-A-REC PIC X(3) VALUE 'YES'. 88 THERE-IS-A-REC VALUE 'YES'. 88 THERE-ARE-NO-MORE-RECS VALUE 'NO '. 05 IS-THERE-AN-INST-CODE PIC X(3) VALUE 'YES'. 88 THERE-IS-AN-INST-CODE VALUE 'YES'. 88 THERE-ARE-NO-MORE-INST-CODES VALUE 'NO '. 05 IS-THERE-NEED PIC X(3) VALUE 'YES'. 88 NEED-BASED VALUE 'YES'. 88 NO-NEED-BASED-AWD VALUE 'NO '. 88 PELL-ONLY-NEED-BASED-AWD VALUE 'PEL'. 05 INSTITUTION-TYPE PIC X VALUE '4'. 88 FOUR-YR VALUE '4'. 88 TWO-YR VALUE '2'. 88 AVS VALUE 'A'. 88 PRIVATE VALUE '3'. 88 PROP VALUE 'P'. UNC 05 PARMS-FLAG PIC X VALUE 'Y'. UNC 88 GOOD-PARMS VALUE 'Y'. UNC 88 BAD-PARMS VALUE 'N'. EJECT UNC ****************************************************************** UNC *** TABLE AREA *** UNC ****************************************************************** 01 PROGRAM-TABLES. UNC *----------------------------------------------------------------* * SUBSCRIPTS * UNC *----------------------------------------------------------------* UNC 05 PROGRAM-SUBSCRIPTS. UNC 10 E PIC 9(5) VALUE 0. UNC 10 L PIC 9(5) VALUE 0. UNC 10 X PIC 9(5) VALUE 0. UNC 10 Y PIC 9(5) VALUE 0. UNC 10 Z PIC 9(5) VALUE 0. UNC *----------------------------------------------------------------* UNC * * UNC *----------------------------------------------------------------* 05 I-TABLE OCCURS 100 TIMES INDEXED BY I. 10 I-CODE PIC X(4). 10 I-NAME PIC X(35). UNC *----------------------------------------------------------------* UNC * * UNC *----------------------------------------------------------------* 05 ALLOC-TABLE OCCURS 75 TIMES INDEXED BY A. 10 A-INST PIC X(4). 10 A-CLEAP. 15 CLEAP-ALLOC PIC 9(7). UNC *----------------------------------------------------------------* UNC * ERRORS-TABLE (HARD-CODE) * UNC *----------------------------------------------------------------* 05 ERRORS-TABLE. 10 FILLER PIC X(35) VALUE 'E1 INST CD UNEXPECTED VALUE '. 10 FILLER PIC X(35) VALUE 'E2 INVALID DATE '. 10 FILLER PIC X(35) VALUE 'E3 DUPLICATE SSN '. 10 FILLER PIC X(35) VALUE 'E4 INVALID VALUE '. 10 FILLER PIC X(35) VALUE 'E5 NON-NUMERIC '. 10 FILLER PIC X(35) VALUE 'E6 CONFLICTING FIELDS '. 10 FILLER PIC X(35) VALUE 'E7 REQUIRED FOR NEED BASED RECIP. '. 10 FILLER PIC X(35) VALUE 'E8 AWARD PACKAGE EXCEEDS NEED '. 10 FILLER PIC X(35) VALUE 'E9 AWARD EXCEEDS LIMIT '. 10 FILLER PIC X(35) VALUE 'E10RESOURCES EXCEED BUDGET/NEED '. 10 FILLER PIC X(35) VALUE 'E11INVALID SSN '. UNC 10 FILLER PIC X(35) UNC VALUE 'E12GPA LESS THAN 3.000 '. UNC 10 FILLER PIC X(35) UNC VALUE 'E13CSG CONFLICT; EFC > 150% OF PELL'. UNC 05 E-TABLE REDEFINES ERRORS-TABLE OCCURS 13 TIMES. 10 ER-COND PIC X(3). 10 ER-DEFN PIC X(32). UNC *----------------------------------------------------------------* UNC * WARNING-TABLE (HARD-CODE) * UNC *----------------------------------------------------------------* 05 WARNIN-TABLE. 10 FILLER PIC X(35) VALUE 'W1 (RESERVED) '. 10 FILLER PIC X(35) VALUE 'W2 MISSING DATE (MONTH OR YR) '. 10 FILLER PIC X(35) VALUE 'W3 FILE NOT IN ID SORT ORDER '. 10 FILLER PIC X(35) VALUE 'W4 UNABLE TO PROCESS/MISSING INFO'. 10 FILLER PIC X(35) VALUE 'W5 POSSIBLE AGE ERROR '. 10 FILLER PIC X(35) VALUE 'W6 STUDENT LEVEL/AWARD TYPE PROB '. 10 FILLER PIC X(35) VALUE 'W7 NO ERROR - BUT NEED ACTUAL AW.'. 10 FILLER PIC X(35) VALUE 'W8 RESOURCES EXCEED NEED '. 10 FILLER PIC X(35) VALUE 'W9 GRAD TUIT UNAVAIL/NO EDIT PER '. 10 FILLER PIC X(35) VALUE 'W10 (RESERVED) '. 10 FILLER PIC X(35) VALUE 'W11 (RESERVED) '. UNC 10 FILLER PIC X(35) VALUE SPACES. UNC 10 FILLER PIC X(35) VALUE SPACES. UNC 05 W-TABLE REDEFINES WARNIN-TABLE OCCURS 13 TIMES. 10 WR-COND PIC X(3). 10 WR-DEFN PIC X(32). UNC *----------------------------------------------------------------* UNC * OVERRIDE-TABLE (HARD-CODE) * UNC *----------------------------------------------------------------* UNC 05 OVERRIDE-TABLE. UNC 10 FILLER PIC X(35) UNC VALUE 'O1 CHANGE IN PROGRAM LEVEL '. UNC 10 FILLER PIC X(35) UNC VALUE 'O2 SUMMER NEED CALCULATION '. UNC 10 FILLER PIC X(35) UNC VALUE 'O3 GOS STUDENT WHO ATTENDED SUMMER '. UNC 10 FILLER PIC X(35) UNC VALUE 'O4 BECAME RESIDENT IN 2ND SEMESTER '. UNC 10 FILLER PIC X(35) UNC VALUE 'O5 EXCHANGE STUD SHOWING NOT ENROLL'. UNC 10 FILLER PIC X(35) UNC VALUE 'O6 (RESERVED) '. UNC 10 FILLER PIC X(35) UNC VALUE 'O7 (RESERVED) '. UNC 10 FILLER PIC X(35) UNC VALUE 'O8 *** RESERVED FOR CCHE *** '. UNC 10 FILLER PIC X(35) VALUE SPACES. UNC 10 FILLER PIC X(35) VALUE SPACES. UNC 10 FILLER PIC X(35) VALUE SPACES. UNC 10 FILLER PIC X(35) VALUE SPACES. UNC 10 FILLER PIC X(35) VALUE SPACES. UNC 05 O-TABLE REDEFINES OVERRIDE-TABLE OCCURS 13 TIMES. UNC 10 OV-COND PIC X(3). UNC 10 OV-DEFN PIC X(32). UNC *----------------------------------------------------------------* UNC * FILE-TABLE (HARD-CODE) * UNC *----------------------------------------------------------------* 05 FILE-TABLE. UNC 10 FILLER PIC X(30) UNC VALUE 'RECORD TYPE '. 10 FILLER PIC X(30) VALUE 'INSTITUTION CODE '. 10 FILLER PIC X(30) UNC VALUE 'TERM '. UNC 10 FILLER PIC X(30) UNC VALUE 'REPORT YEAR '. 10 FILLER PIC X(30) VALUE 'STUDENT ID '. 10 FILLER PIC X(30) VALUE 'SEX '. 10 FILLER PIC X(30) VALUE 'DATE OF BIRTH (CCYYMMDD) '. 10 FILLER PIC X(30) VALUE 'ETHNICITY '. 10 FILLER PIC X(30) VALUE 'STUDENT LEVEL '. 10 FILLER PIC X(30) VALUE 'TUITION CLASSIFICATION '. UNC 10 FILLER PIC X(30) UNC VALUE '(RESERVED) '. 10 FILLER PIC X(30) VALUE 'ENROLLMENT STATUS '. 10 FILLER PIC X(30) VALUE 'LEGAL STATUS '. 10 FILLER PIC X(30) VALUE 'ENROLLMENT DURATION '. 10 FILLER PIC X(30) VALUE 'INCOME '. UNC 10 FILLER PIC X(30) UNC VALUE '(RESERVED) '. 10 FILLER PIC X(30) VALUE 'BUDGET AMOUNT '. 10 FILLER PIC X(30) VALUE 'RESOURCES-FAMILY CONTRIB '. 10 FILLER PIC X(30) VALUE 'PELL '. 10 FILLER PIC X(30) VALUE 'SEOG '. 10 FILLER PIC X(30) VALUE 'WORK STUDY - FEDERAL '. UNC 10 FILLER PIC X(30) UNC VALUE '(RESERVED) '. 10 FILLER PIC X(30) VALUE 'PERKINS LOAN '. 10 FILLER PIC X(30) VALUE 'OTHER FEDERAL '. 10 FILLER PIC X(30) VALUE 'CLEAP '. 10 FILLER PIC X(30) VALUE 'COLORADO STUDENT GRANT '. 10 FILLER PIC X(30) VALUE 'WORK STUDY - COLORADO '. 10 FILLER PIC X(30) VALUE 'MERIT (UNDERGRAD) '. 10 FILLER PIC X(30) VALUE 'COLORADO GRADUATE GRANT '. 10 FILLER PIC X(30) VALUE 'COLO. GRADUATE FELLOWSHIP '. UNC 10 FILLER PIC X(30) UNC VALUE '(RESERVED) '. 10 FILLER PIC X(30) VALUE 'COLORAOD NURSING GRANT '. 10 FILLER PIC X(30) VALUE 'COLORADO CATEGORICAL GRANT '. UNC 10 FILLER PIC X(30) UNC VALUE '(RESERVED) '. 10 FILLER PIC X(30) VALUE 'INSTITUTIONAL SCHOLARSHIP '. UNC 10 FILLER PIC X(30) UNC VALUE '(RESERVED) '. 10 FILLER PIC X(30) VALUE 'INSTITUTIONAL FUNDS 1 '. 10 FILLER PIC X(30) VALUE 'INSTITUTIONAL FUNDS 2 '. 10 FILLER PIC X(30) VALUE 'OTHER SCHOLARSHIP '. 10 FILLER PIC X(30) VALUE 'STAFFORD LOAN - SUB '. 10 FILLER PIC X(30) VALUE 'PLUS LOAN '. 10 FILLER PIC X(30) VALUE 'STAFFORD LOAN - UNSUB '. 10 FILLER PIC X(30) VALUE 'LOAN FEDERAL 1 '. 10 FILLER PIC X(30) VALUE 'OTHER LOANS '. UNC 10 FILLER PIC X(30) UNC VALUE '(RESERVED) '. UNC 10 FILLER PIC X(30) UNC VALUE 'OVERRIDE #1 (PRIMARY) '. UNC 10 FILLER PIC X(30) UNC VALUE 'OVERRIDE #2 (SECONDARY) '. UNC 10 FILLER PIC X(30) UNC VALUE 'RESOURCES (PARENT CONTRIB) '. 10 FILLER PIC X(30) VALUE 'GOVERNOR OPP SCHOL (GOS) '. UNC 10 FILLER PIC X(30) UNC VALUE '(RESERVED) '. 10 FILLER PIC X(30) VALUE 'HOUSEHOLD SIZE '. 10 FILLER PIC X(30) VALUE 'NUMBER IN COLLEGE '. UNC 10 FILLER PIC X(30) UNC VALUE '(RESERVED) '. 10 FILLER PIC X(30) VALUE 'SLEAP '. 10 FILLER PIC X(30) VALUE 'GPA MERIT SELECTION '. 10 FILLER PIC X(30) VALUE 'VETERANS BENEFITS '. 10 FILLER PIC X(30) VALUE 'FAFSA FLAG '. UNC 10 FILLER PIC X(30) UNC VALUE '(RESERVED) '. UNC 10 FILLER PIC X(30) UNC VALUE 'EXCEPTION FLAG '. 10 FILLER PIC X(30) VALUE 'OVER-AWARD BASED ON NEED '. UNC 05 F-TABLE REDEFINES FILE-TABLE OCCURS 60 TIMES. 10 FIELD PIC X(30). UNC *----------------------------------------------------------------* UNC * PRIMARY OVERRIDE TABLE * UNC *----------------------------------------------------------------* UNC * 05 OVERRIDE-PRIMARY-TABLE. UNC * 10 FILLER PIC X(25) UNC * VALUE ' PRIMARY OVERRIDE 1'. UNC * 10 FILLER PIC X(25) UNC * VALUE ' PRIMARY OVERRIDE 2'. UNC * 10 FILLER PIC X(25) UNC * VALUE ' PRIMARY OVERRIDE 3'. UNC * 10 FILLER PIC X(25) UNC * VALUE ' PRIMARY OVERRIDE 4'. UNC * 10 FILLER PIC X(25) UNC * VALUE ' PRIMARY OVERRIDE 5'. UNC * 10 FILLER PIC X(25) UNC * VALUE ' PRIMARY OVERRIDE 6'. UNC * 10 FILLER PIC X(25) UNC * VALUE ' PRIMARY OVERRIDE 7'. UNC * 10 FILLER PIC X(25) UNC * VALUE ' PRIMARY OVERRIDE 8'. UNC * 10 FILLER PIC X(25) UNC * VALUE ' TOTAL PRIMARY OVERRIDES'. UNC * 05 O-PRI-TABLE REDEFINES OVERRIDE-PRIMARY-TABLE UNC * OCCURS 9 TIMES. UNC * 10 O-PRI PIC X(25). UNC *----------------------------------------------------------------* UNC * SECONDARY OVERRIDE TABLE * UNC *----------------------------------------------------------------* UNC * 05 OVERRIDE-SECONDARY-TABLE. UNC * 10 FILLER PIC X(25) UNC * VALUE ' SECONDARY OVERRIDE 1'. UNC * 10 FILLER PIC X(25) UNC * VALUE ' SECONDARY OVERRIDE 2'. UNC * 10 FILLER PIC X(25) UNC * VALUE ' SECONDARY OVERRIDE 3'. UNC * 10 FILLER PIC X(25) UNC * VALUE ' SECONDARY OVERRIDE 4'. UNC * 10 FILLER PIC X(25) UNC * VALUE ' SECONDARY OVERRIDE 5'. UNC * 10 FILLER PIC X(25) UNC * VALUE ' SECONDARY OVERRIDE 6'. UNC * 10 FILLER PIC X(25) UNC * VALUE ' SECONDARY OVERRIDE 7'. UNC * 10 FILLER PIC X(25) UNC * VALUE ' SECONDARY OVERRIDE 8'. UNC * 10 FILLER PIC X(25) UNC * VALUE 'TOTAL SECONDARY OVERRIDES'. UNC * 05 O-SEC-TABLE REDEFINES OVERRIDE-SECONDARY-TABLE UNC * OCCURS 9 TIMES. UNC * 10 O-SEC PIC X(25). UNC *----------------------------------------------------------------* UNC * OVERRIDE-PRIMARY-KOUNT-TABLE * UNC *----------------------------------------------------------------* UNC 05 OVERRIDE-PRIMARY-KOUNT-TABLE OCCURS 9 TIMES. UNC 10 OP-KOUNT PIC 9(7) VALUE ZEROS. UNC *----------------------------------------------------------------* UNC * OVERRIDE-SECONDARY-KOUNT-TABLE * UNC *----------------------------------------------------------------* UNC 05 OVERRIDE-SECONDARY-KOUNT-TABLE OCCURS 9 TIMES. UNC 10 OS-KOUNT PIC 9(7) VALUE ZEROS. UNC *----------------------------------------------------------------* UNC * OVERRIDE-DESCRIPTION-TABLE * UNC *----------------------------------------------------------------* UNC 05 OVERRIDE-DESCRIPTION-TABLE. UNC 10 FILLER PIC X(55) VALUE UNC 'CHANGE IN PROGRAM LEVEL (UNDERGRAD FALL, GRAD SPRING)'. UNC 10 FILLER PIC X(55) VALUE UNC 'SUMMER NEED CALCULATION '. UNC 10 FILLER PIC X(55) VALUE UNC 'GOS STUDENT WHO ATTENDED SUMMER '. UNC 10 FILLER PIC X(55) VALUE UNC 'BECAME RESIDENT IN SECOND SEMESTER '. UNC 10 FILLER PIC X(55) VALUE UNC 'EXCHANGE STUDENT SHOWING AS NOT ENROLLED '. UNC 10 FILLER PIC X(55) VALUE SPACES. UNC 10 FILLER PIC X(55) VALUE SPACES. UNC 10 FILLER PIC X(55) VALUE UNC '*** RESERVED FOR CCHE *** '. UNC 05 O-TBL REDEFINES OVERRIDE-DESCRIPTION-TABLE UNC OCCURS 8 TIMES. UNC 10 O-MSG PIC X(55). EJECT UNC ****************************************************************** UNC *** PRINT AREA *** UNC ****************************************************************** UNC *----------------------------------------------------------------* UNC * PRINTER CONTROL (COUNTS, LIMITS, RECORDS, ETC.) * UNC *----------------------------------------------------------------* 01 PRINTER-CONTROL. 05 EX-LIMIT PIC 9(5) VALUE 0. 05 YR-HOLD PIC 9(4) VALUE 0. 05 KOUNT-IN PIC 9(5) VALUE 0. 88 FIRST-REC VALUE 1. 05 LINE-KOUNT PIC 9(3) VALUE 66. 05 LINE-KOUNT2 PIC 9(3) VALUE 66. UNC 05 LINE-KOUNTM PIC 9(3) VALUE 99. UNC 05 LINE-KOUNTN PIC 9(3) VALUE 99. 05 PAGE-SIZE PIC 9(3) VALUE 42. UNC 05 PAGE-SIZEM PIC 9(3) VALUE 70. UNC 05 PAGE-SIZEN PIC 9(3) VALUE 70. 05 PAGE-KOUNT PIC 9(5) VALUE 1. 88 FIRST-PAGE VALUE 1. 05 PAGE-KOUNT2 PIC 9(5) VALUE 1. 88 FIRST-PAGE2 VALUE 1. UNC 05 PAGE-KOUNTM PIC 9(5) VALUE 1. UNC 88 FIRST-PAGEM VALUE 1. UNC 05 PAGE-KOUNTN PIC 9(5) VALUE 1. UNC 88 FIRST-PAGEN VALUE 1. UNC *----------------------------------------------------------------* UNC * PRINT LAYOUTS * UNC *----------------------------------------------------------------* 01 PRINT-LINES. 05 D-BLANK. 10 FILLER PIC X(132) VALUE SPACES. 05 D-1. 10 FILLER PIC X(5) VALUE SPACES. 10 FILLER PIC X(125) VALUE ALL '-'. UNC 10 FILLER PIC X(2) VALUE SPACES. 05 D-2. 10 FILLER PIC X(5) VALUE SPACES. UNC 10 FILLER PIC X(127) VALUE ALL '-'. UNC *----------------------------------------------------------------* UNC * PRINT DETAIL * UNC *----------------------------------------------------------------* 05 E-1. 10 FILLER PIC X(5) VALUE SPACES. 10 FIELD-NO-OUT2. UNC 15 FIELD-NO-OUT PIC Z(2)9. 10 FILLER PIC X(2) VALUE SPACES. 10 CON-OUT PIC X(30) VALUE SPACES. 10 FILLER PIC X(2) VALUE ' |'. 10 FILLER PIC X(7) VALUE SPACES. UNC 10 ERROR-OUT. UNC 15 ERR-OUT PIC Z(4)9. 10 FILLER PIC X(2) VALUE ' |'. 10 FILLER PIC X(7) VALUE SPACES. UNC 10 WARNING-OUT. UNC 15 WAR-OUT PIC Z(4)9. 10 FILLER PIC X(2) VALUE ' |'. 10 FILLER PIC X(7) VALUE SPACES. UNC 10 OVRRIDE-OUT. UNC 15 OVR-OUT PIC Z(4)9. UNC 10 FILLER PIC X(2) VALUE ' |'. UNC 10 FILLER PIC X(7) VALUE SPACES. UNC 10 AWARD-OUT. UNC 15 AWD-OUT PIC Z(4)9. 10 FILLER PIC X(2) VALUE ' |'. 10 FILLER PIC X(3) VALUE SPACES. UNC 10 COMMENT-OUT. UNC 15 P-NUMERIC PIC Z(4)9. 15 P-COMMENT PIC X(23). UNC 10 FILLER PIC X(3) VALUE SPACES. 05 E-1A. 10 FILLER PIC X(5) VALUE SPACES. 10 ERC-OUT PIC X(3). 10 FILLER PIC X(2) VALUE SPACES. 10 ERD-OUT PIC X(32). UNC 10 FILLER PIC X VALUE SPACE. UNC 10 FILLER PIC X VALUE '|'. UNC 10 FILLER PIC X VALUE SPACE. 10 WRC-OUT PIC X(3). 10 FILLER PIC X(2) VALUE SPACES. 10 WRD-OUT PIC X(32). UNC 10 FILLER PIC X VALUE SPACE. UNC 10 FILLER PIC X VALUE '|'. UNC 10 FILLER PIC X VALUE SPACE. UNC 10 OVC-OUT PIC X(3). UNC 10 FILLER PIC X(2) VALUE SPACES. UNC 10 OVD-OUT PIC X(32). UNC 10 FILLER PIC X(10) VALUE SPACES. 05 E-1P. 10 FILLER PIC X(5) VALUE SPACES. 10 FILLER PIC X(3) VALUE SPACES. 10 FILLER PIC X(2) VALUE SPACES. 10 FILLER PIC X(30) VALUE 'ERROR/WARNING RATE '. 10 FILLER PIC X(2) VALUE ' |'. 10 FILLER PIC X(7) VALUE SPACES. 10 ERP-OUT PIC Z.9(3). 10 FILLER PIC X(2) VALUE ' |'. 10 FILLER PIC X(7) VALUE SPACES. 10 WRP-OUT PIC Z.9(3). 10 FILLER PIC X(3) VALUE ' | '. UNC 10 FILLER PIC X(6) VALUE SPACES. UNC 10 OVP-OUT PIC Z.9(3). UNC 10 FILLER PIC X(3) VALUE ' | '. 10 FILLER PIC X(45) VALUE 'BASED ON TOTAL RECORDS WITH ERRORS/WARNINGS '. UNC 10 FILLER PIC X(2) VALUE SPACES. UNC 05 E-1S. UNC 10 FILLER PIC X(32) VALUE SPACES. UNC 10 FILLER PIC X(10) VALUE 'SUBTOTALS:'. UNC 10 FILLER PIC X(7) VALUE SPACES. UNC 10 ERROR-OUT-SUB. UNC 15 ERR-OUT-SUB PIC Z(4)9. UNC 10 FILLER PIC X(9) VALUE SPACES. UNC 10 WARNING-OUT-SUB. UNC 15 WAR-OUT-SUB PIC Z(4)9. UNC 10 FILLER PIC X(9) VALUE SPACES. UNC 10 OVRRIDE-OUT-SUB. UNC 15 OVR-OUT-SUB PIC Z(4)9. UNC 10 FILLER PIC X(9) VALUE SPACES. UNC 10 AWARD-OUT-SUB. UNC 15 AWD-OUT-SUB PIC Z(4)9. UNC 10 FILLER PIC X(36) VALUE SPACES. 05 E-2. 10 W-OUT PIC X VALUE SPACE. 10 P-ICODE PIC X(4). 10 FILLER PIC X VALUE SPACE. 10 P-TERM PIC X. 10 FILLER PIC X VALUE '/'. 10 P-YEAR PIC X(4). 10 FILLER PIC X VALUE SPACE. 10 P-SSN PIC X(9). 10 FILLER PIC X VALUE SPACE. 10 P-SEX PIC X. 10 FILLER PIC X VALUE SPACE. 10 P-BIRMO PIC X(2). 10 FILLER PIC X VALUE '/'. 10 P-BIRDA PIC X(2). 10 FILLER PIC X VALUE '/'. 10 P-BIRYR PIC X(4). 10 FILLER PIC X VALUE SPACE. 10 P-ETHNIC PIC X. 10 FILLER PIC X VALUE SPACE. 10 P-LEVEL PIC X(2). 10 FILLER PIC X VALUE SPACE. 10 P-TUIT PIC X. 10 FILLER PIC X VALUE SPACE. 10 P-FAFSA PIC X. 10 FILLER PIC X(2) VALUE SPACE. 10 P-NCOL PIC X(2). 10 FILLER PIC X VALUE SPACE. 10 P-ENRL PIC X. 10 FILLER PIC X VALUE SPACE. 10 P-LEGL PIC X(2). 10 FILLER PIC X VALUE SPACE. 10 P-DURA PIC X(3). 10 FILLER PIC X VALUE SPACE. 10 P-INCM PIC X(6). 10 FILLER PIC X VALUE SPACE. 10 P-SIZE PIC X(2). 10 FILLER PIC X VALUE SPACE. UNC 10 P-BUDGET PIC X(6). 10 FILLER PIC X VALUE SPACE. 10 P-RESO-FC. 15 P-RESOURCE-FC PIC X(6). 10 FILLER PIC X(2) VALUE SPACES. 10 P-VET-BENEFIT PIC X(5). 10 FILLER PIC X(2) VALUE SPACES. UNC 10 P-AWARD16 PIC X(5). 10 FILLER PIC X VALUE SPACE. UNC 10 P-AWARD17 PIC X(5). 10 FILLER PIC X VALUE SPACE. UNC 10 P-AWARD18 PIC X(5). 10 FILLER PIC X VALUE SPACE. UNC 10 P-AWARD19 PIC X(5). 10 FILLER PIC X VALUE SPACE. UNC 10 P-AWARD20 PIC X(5). 10 FILLER PIC X(5) VALUE SPACES. 10 P-SUM PIC Z(3),Z(2)9. UNC 10 FILLER PIC X VALUE SPACE. 05 E-3. 10 FILLER PIC X(30) VALUE SPACES. 10 FILLER PIC X(16) VALUE 'CALCULATED NEED '. 10 P-NEED-AMT. 15 P-NEED PIC Z(5)9. 10 FILLER PIC X(8) VALUE SPACES. UNC 10 P-AWARD21 PIC X(5). 10 FILLER PIC X VALUE SPACE. UNC 10 P-AWARD22 PIC X(5). 10 FILLER PIC X VALUE SPACE. UNC 10 P-AWARD23 PIC X(5). 10 FILLER PIC X VALUE SPACE. UNC 10 P-AWARD24 PIC X(5). 10 FILLER PIC X VALUE SPACE. UNC 10 P-AWARD25 PIC X(5). 10 FILLER PIC X VALUE SPACE. UNC 10 P-AWARD26 PIC X(5). 10 FILLER PIC X VALUE SPACE. UNC 10 P-AWARD27 PIC X(5). 10 FILLER PIC X VALUE SPACE. UNC 10 P-AWARD28 PIC X(5). 10 FILLER PIC X VALUE SPACE. UNC 10 P-AWARD38 PIC X(5). 10 FILLER PIC X VALUE SPACE. UNC 10 P-AWARD40 PIC X(5). UNC 10 FILLER PIC X(13) VALUE SPACES. 05 E-4. 10 FILLER PIC X(53) VALUE SPACES. 10 FILLER PIC X(7) VALUE 'OTHER'. UNC 10 P-AWARD29 PIC X(5). 10 FILLER PIC X VALUE SPACE. UNC 10 P-AWARD30 PIC X(5). 10 FILLER PIC X VALUE SPACE. UNC 10 P-AWARD31 PIC X(5). 10 FILLER PIC X VALUE SPACE. UNC 10 P-AWARD32 PIC X(5). 10 FILLER PIC X VALUE SPACE. UNC 10 P-AWARD33 PIC X(5). 10 FILLER PIC X VALUE SPACE. UNC 10 P-AWARD34 PIC X(5). 10 FILLER PIC X VALUE SPACE. UNC 10 P-AWARD35 PIC X(5). 10 FILLER PIC X VALUE SPACE. UNC 10 P-AWARD36 PIC X(5). 10 FILLER PIC X VALUE SPACE. UNC 10 P-AWARD37 PIC X(5). UNC 10 FILLER PIC X VALUE SPACE. UNC 10 P-MERIT-GPA. UNC 15 P-AWARD41 PIC 9.9(3). UNC 10 FILLER PIC X(13) VALUE SPACES. UNC *----------------------------------------------------------------* * ERROR CODES CORRESPOND TO FIELD NUMBER ON IN-REC * UNC * EXAMPLE: EL-19 = PELL * UNC *----------------------------------------------------------------* 05 E-5. 10 FILLER PIC X(2) VALUE SPACES. 10 EL-2 PIC X(2). 10 FILLER PIC X(2) VALUE SPACES. 10 EL-3 PIC X(2). UNC 10 FILLER PIC X VALUE SPACE. 10 EL-4 PIC X(3). 10 FILLER PIC X(4) VALUE SPACES. 10 EL-5 PIC X(2). UNC 10 FILLER PIC X(4) VALUE SPACES. 10 EL-6 PIC X(2). UNC 10 FILLER PIC X(4) VALUE SPACES. 10 EL-7 PIC X(2). UNC 10 FILLER PIC X(5) VALUE SPACES. 10 EL-8 PIC X(2). UNC 10 FILLER PIC X VALUE SPACE. 10 EL-9 PIC X(2). UNC 10 EL-10 PIC X(2). UNC 10 EL-57 PIC X(2). UNC 10 FILLER PIC X(2) VALUE SPACES. UNC 10 EL-52 PIC X(2). 10 EL-12 PIC X(2). 10 EL-13 PIC X(2). UNC 10 FILLER PIC X(2) VALUE SPACES. 10 EL-14 PIC X(2). 10 FILLER PIC X(4) VALUE SPACES. 10 EL-15 PIC X(2). 10 FILLER PIC X(3) VALUE SPACES. UNC 10 EL-51 PIC X(2). 10 FILLER PIC X(3) VALUE SPACES. 10 EL-17 PIC X(3). UNC 10 FILLER PIC X(4) VALUE SPACES. 10 EL-18 PIC X(3). UNC 10 FILLER PIC X(4) VALUE SPACES. UNC 10 EL-56 PIC X(3). 10 FILLER PIC X(4) VALUE SPACES. 10 EL-19 PIC X(2). 10 FILLER PIC X(5) VALUE SPACES. 10 EL-20 PIC X(2). 10 FILLER PIC X(4) VALUE SPACES. 10 EL-21 PIC X(2). 10 FILLER PIC X(4) VALUE SPACES. 10 EL-23 PIC X(2). 10 FILLER PIC X(4) VALUE SPACES. 10 EL-24 PIC X(2). 10 FILLER PIC X(10) VALUE SPACES. 10 EL-45 PIC X(2). UNC 10 FILLER PIC X(2) VALUE SPACES. 05 E-6. 10 FILLER PIC X(61) VALUE SPACES. 10 EL-25 PIC X(2). 10 FILLER PIC X(4) VALUE SPACES. UNC 10 EL-26 PIC X(3). UNC 10 FILLER PIC X(3) VALUE SPACES. 10 EL-27 PIC X(2). 10 FILLER PIC X(4) VALUE SPACES. UNC 10 EL-28 PIC X(3). UNC 10 FILLER PIC X(3) VALUE SPACES. 10 EL-29 PIC X(2). 10 FILLER PIC X(4) VALUE SPACES. 10 EL-30 PIC X(2). 10 FILLER PIC X(4) VALUE SPACES. 10 EL-32 PIC X(2). 10 FILLER PIC X(4) VALUE SPACES. 10 EL-33 PIC X(2). 10 FILLER PIC X(4) VALUE SPACES. UNC 10 EL-49 PIC X(2). 10 FILLER PIC X(4) VALUE SPACES. UNC 10 EL-54 PIC X(2). UNC 10 FILLER PIC X(15) VALUE SPACES. 05 E-7. 10 FILLER PIC X(61) VALUE SPACES. 10 EL-35 PIC X(2). 10 FILLER PIC X(4) VALUE SPACES. 10 EL-37 PIC X(2). 10 FILLER PIC X(4) VALUE SPACES. 10 EL-38 PIC X(2). 10 FILLER PIC X(4) VALUE SPACES. 10 EL-39 PIC X(2). 10 FILLER PIC X(4) VALUE SPACES. 10 EL-40 PIC X(2). 10 FILLER PIC X(4) VALUE SPACES. 10 EL-41 PIC X(2). 10 FILLER PIC X(4) VALUE SPACES. 10 EL-42 PIC X(2). 10 FILLER PIC X(4) VALUE SPACES. 10 EL-43 PIC X(2). 10 FILLER PIC X(4) VALUE SPACES. 10 EL-44 PIC X(2). 10 FILLER PIC X(4) VALUE SPACES. UNC 10 EL-55 PIC X(3). UNC 10 FILLER PIC X(14) VALUE SPACES. UNC *----------------------------------------------------------------* UNC * PRINT HEADINGS * UNC *----------------------------------------------------------------* 05 H-1. UNC 10 H1-INST PIC X(35) VALUE SPACES. 10 FILLER PIC X(5) VALUE SPACES. UNC 10 H1-TITLE PIC X(57) VALUE ' EXCEPTION REPORT '. 10 FILLER PIC X(23) VALUE SPACES. 10 FILLER PIC X(5) VALUE 'PAGE '. UNC 10 H1-PAGE PIC Z(4)9. UNC 10 FILLER PIC X(2) VALUE SPACES. 05 H-1A. UNC 10 FILLER PIC X(10) VALUE SPACES. UNC 10 FILLER PIC X(27) VALUE 'ERROR CODES AND DEFINITIONS'. UNC 10 FILLER PIC X(6) VALUE SPACES. UNC 10 FILLER PIC X VALUE '|'. UNC 10 FILLER PIC X(6) VALUE SPACES. UNC 10 FILLER PIC X(29) VALUE 'WARNING CODES AND DEFINITIONS'. UNC 10 FILLER PIC X(4) VALUE SPACES. UNC 10 FILLER PIC X VALUE '|'. UNC 10 FILLER PIC X(6) VALUE SPACES. UNC 10 FILLER PIC X(30) VALUE 'OVERRIDE CODES AND DEFINITIONS'. UNC 10 FILLER PIC X(12) VALUE SPACES. UNC 05 H-1B. UNC 10 H1B-INST PIC X(35) VALUE SPACES. UNC 10 FILLER PIC X(5) VALUE SPACES. UNC 10 H1B-TITLE PIC X(57) VALUE SPACES. UNC 10 FILLER PIC X(23) VALUE SPACES. UNC 10 FILLER PIC X(5) VALUE 'PAGE '. UNC 10 H1B-PAGE PIC Z(4)9. UNC 10 FILLER PIC X(2) VALUE SPACES. UNC 05 H-1C. UNC 10 FILLER PIC X(40) VALUE SPACES. UNC 10 H1C-TITLE PIC X(57) VALUE SPACES. UNC 10 FILLER PIC X(23) VALUE SPACES. UNC 10 FILLER PIC X(5) VALUE 'PAGE '. UNC 10 H1C-PAGE PIC Z(4)9. UNC 10 FILLER PIC X(2) VALUE SPACES. 05 H-2. 10 FILLER PIC X(59) VALUE SPACES. 10 FILLER PIC X(2) VALUE 'OF'. UNC 10 FILLER PIC X(71) VALUE SPACES. 05 H-3. 10 FILLER PIC X(3) VALUE 'FY '. 10 H-YEAR PIC X(4). 10 FILLER PIC X(39) VALUE SPACES. 10 FILLER PIC X(28) VALUE ' FINANCIAL AID FILE '. UNC 10 FILLER PIC X(46) VALUE SPACES. UNC 10 H-DATE. UNC 15 H-DATE-MO PIC 9(2). UNC 15 FILLER PIC X VALUE '/'. UNC 15 H-DATE-DAY PIC 9(2). UNC 15 FILLER PIC X VALUE '/'. UNC 15 H-DATE-YR PIC 9(4). UNC 10 FILLER PIC X(2) VALUE SPACES. 05 H-4. 10 FILLER PIC X(36) VALUE SPACES. 10 FILLER PIC X(6) VALUE 'E T'. 10 FILLER PIC X(5) VALUE ' N'. 10 FILLER PIC X(2) VALUE SPACES. 10 FILLER PIC X(2) VALUE 'E'. 10 FILLER PIC X(3) VALUE 'L'. 10 FILLER PIC X(4) VALUE 'D'. 10 FILLER PIC X(7) VALUE SPACES. 10 FILLER PIC X(2) VALUE 'S'. UNC 10 FILLER PIC X(10) VALUE SPACES. 10 FILLER PIC X(13) VALUE SPACES. 10 FILLER PIC X(38) VALUE '<--------- A W A R D S --------->'. UNC 10 FILLER PIC X(4) VALUE SPACES. UNC 05 H-4B. UNC 10 FILLER PIC X VALUE SPACE. UNC 10 FILLER PIC X(7) VALUE 'STUDENT'. UNC 10 FILLER PIC X(5) VALUE SPACES. UNC 10 FILLER PIC X(8) VALUE 'OVERRIDE'. UNC 10 FILLER PIC X(111) VALUE SPACES. UNC 05 H-4C. UNC 10 FILLER PIC X(43) UNC VALUE '*** I N S T I T U T I O N D A T A ***'. UNC 10 FILLER PIC X(18) VALUE SPACES. UNC 10 FILLER PIC X(17) UNC VALUE 'R E S O U R C E S'. UNC 10 FILLER PIC X(6) VALUE SPACES. UNC 10 FILLER PIC X(3) VALUE 'CSG'. UNC 10 FILLER PIC X(45) VALUE SPACES. 05 H-5. 10 FILLER PIC X(23) VALUE SPACES. 10 FILLER PIC X(3) VALUE 'S '. 10 FILLER PIC X(10) VALUE SPACES. 10 FILLER PIC X(6) VALUE 'T L U'. 10 FILLER PIC X(5) VALUE ' F C'. 10 FILLER PIC X(2) VALUE SPACES. 10 FILLER PIC X(2) VALUE 'N'. 10 FILLER PIC X(3) VALUE 'E'. 10 FILLER PIC X(3) VALUE 'U'. 10 FILLER PIC X(8) VALUE SPACES. 10 FILLER PIC X(2) VALUE 'I'. UNC 10 FILLER PIC X(65) VALUE SPACES. UNC 05 H-5B. UNC 10 FILLER PIC X(3) VALUE SPACES. UNC 10 FILLER PIC X(2) VALUE 'ID'. UNC 10 FILLER PIC X(10) VALUE SPACES. UNC 10 FILLER PIC X(3) VALUE 'CAT'. UNC 10 FILLER PIC X(50) VALUE SPACES. UNC 10 FILLER PIC X(11) UNC VALUE 'DESCRIPTION'. UNC 10 FILLER PIC X(53) VALUE SPACES. UNC 05 H-5C. UNC 10 FILLER PIC X(3) VALUE SPACES. UNC 10 FILLER PIC X(3) VALUE 'NUM'. UNC 10 FILLER PIC X(2) VALUE SPACES. UNC 10 FILLER PIC X(4) VALUE 'NAME'. UNC 10 FILLER PIC X(36) VALUE SPACES. UNC 10 FILLER PIC X(10) VALUE 'STUDENT ID'. UNC 10 FILLER PIC X(3) VALUE SPACES. UNC 10 FILLER PIC X(9) VALUE 'FAM CONTR'. UNC 10 FILLER PIC X(3) VALUE SPACES. UNC 10 FILLER PIC X(5) VALUE '150 %'. UNC 10 FILLER PIC X(6) VALUE SPACES. UNC 10 FILLER PIC X(3) VALUE 'AMT'. UNC 10 FILLER PIC X(6) VALUE SPACES. UNC 10 FILLER PIC X(8) VALUE 'COMMENTS'. UNC 10 FILLER PIC X(31) VALUE SPACES. 05 H-6. 10 FILLER PIC X VALUE SPACE. 10 FILLER PIC X(4) VALUE 'INST'. 10 FILLER PIC X VALUE SPACE. 10 FILLER PIC X(6) VALUE 'REPORT'. 10 FILLER PIC X(11) VALUE SPACES. 10 FILLER PIC X(13) VALUE 'E BIRTH '. 10 FILLER PIC X(6) VALUE 'H E I'. 10 FILLER PIC X(7) VALUE ' A O '. 10 FILLER PIC X(2) VALUE 'R'. 10 FILLER PIC X(3) VALUE 'G'. 10 FILLER PIC X(3) VALUE 'R'. 10 FILLER PIC X(8) VALUE SPACES. 10 FILLER PIC X(2) VALUE 'Z'. 10 FILLER PIC X(9) VALUE SPACES. 10 FILLER PIC X(3) VALUE 'FAM'. 10 FILLER PIC X(4) VALUE SPACES. 10 FILLER PIC X(3) VALUE 'VET'. UNC 10 FILLER PIC X(46) VALUE SPACES. UNC 05 H-6B. UNC 10 FILLER PIC X VALUE SPACE. UNC 10 FILLER PIC X(7) VALUE ALL '-'. UNC 10 FILLER PIC X(5) VALUE SPACES. UNC 10 FILLER PIC X(8) VALUE ALL '-'. UNC 10 FILLER PIC X(47) VALUE SPACES. UNC 10 FILLER PIC X(11) VALUE ALL '-'. UNC 10 FILLER PIC X(53) VALUE SPACES. UNC 05 H-6C. UNC 10 FILLER PIC X(3) VALUE SPACES. UNC 10 FILLER PIC X(3) VALUE ALL '-'. UNC 10 FILLER PIC X(2) VALUE SPACES. UNC 10 FILLER PIC X(4) VALUE ALL '-'. UNC 10 FILLER PIC X(36) VALUE SPACES. UNC 10 FILLER PIC X(10) VALUE ALL '-'. UNC 10 FILLER PIC X(3) VALUE SPACES. UNC 10 FILLER PIC X(9) VALUE ALL '-'. UNC 10 FILLER PIC X(3) VALUE SPACES. UNC 10 FILLER PIC X(5) VALUE ALL '-'. UNC 10 FILLER PIC X(6) VALUE SPACES. UNC 10 FILLER PIC X(3) VALUE ALL '-'. UNC 10 FILLER PIC X(6) VALUE SPACES. UNC 10 FILLER PIC X(8) VALUE ALL '-'. UNC 10 FILLER PIC X(31) VALUE SPACES. 05 H-7. 10 FILLER PIC X VALUE SPACES. 10 FILLER PIC X(4) VALUE 'CODE'. 10 FILLER PIC X VALUE SPACES. 10 FILLER PIC X(6) VALUE 'PERIOD'. 10 FILLER PIC X VALUE SPACES. 10 FILLER PIC X(6) VALUE 'ID NO.'. 10 FILLER PIC X(4) VALUE SPACES. 10 FILLER PIC X(7) VALUE 'X DATE'. 10 FILLER PIC X(6) VALUE SPACES. 10 FILLER PIC X(6) VALUE 'N V T'. 10 FILLER PIC X(7) VALUE ' F L '. 10 FILLER PIC X(2) VALUE 'L'. 10 FILLER PIC X(3) VALUE 'L'. 10 FILLER PIC X(4) VALUE 'A'. 10 FILLER PIC X(6) VALUE 'INCOME'. UNC 10 FILLER PIC X VALUE SPACE. UNC 10 FILLER PIC X VALUE 'E'. 10 FILLER PIC X(3) VALUE SPACES. 10 FILLER PIC X(5) VALUE 'BUDGT'. 10 FILLER PIC X(2) VALUE SPACES. 10 FILLER PIC X(5) VALUE 'CONTR'. 10 FILLER PIC X(2) VALUE SPACES. 10 FILLER PIC X(5) VALUE 'BENFT'. 10 FILLER PIC X(2) VALUE SPACES. 10 FILLER PIC X(7) VALUE 'FEDERAL'. 10 FILLER PIC X(29) VALUE SPACES. 10 FILLER PIC X(5) VALUE 'AWARD'. UNC 10 FILLER PIC X VALUE SPACE. 05 H-7A. 10 FILLER PIC X(78) VALUE SPACES. 10 FILLER PIC X(12) VALUE SPACES. 10 FILLER PIC X(6) VALUE 'PELL'. 10 FILLER PIC X(6) VALUE 'SEOG'. 10 FILLER PIC X(6) VALUE 'WK-ST'. 10 FILLER PIC X(6) VALUE 'PERK'. 10 FILLER PIC X(6) VALUE 'OTHER'. 10 FILLER PIC X(5) VALUE SPACES. 10 FILLER PIC X(7) VALUE ' TOTAL'. 05 H-8. 10 FILLER PIC X(54) VALUE SPACES. 10 P-TYPE PIC X(6) VALUE 'STATE '. 10 FILLER PIC X(5) VALUE 'CLEAP'. UNC 10 FILLER PIC X VALUE SPACE. 10 FILLER PIC X(5) VALUE 'UGRNT'. UNC 10 FILLER PIC X VALUE SPACE. 10 FILLER PIC X(5) VALUE 'WK-ST'. UNC 10 FILLER PIC X VALUE SPACE. 10 FILLER PIC X(5) VALUE 'UMERT'. UNC 10 FILLER PIC X VALUE SPACE. 10 FILLER PIC X(5) VALUE 'GGRNT'. UNC 10 FILLER PIC X VALUE SPACE. 10 FILLER PIC X(5) VALUE 'GMERT'. UNC 10 FILLER PIC X VALUE SPACE. 10 FILLER PIC X(5) VALUE 'NURSE'. UNC 10 FILLER PIC X VALUE SPACE. 10 FILLER PIC X(5) VALUE 'CAT '. UNC 10 FILLER PIC X VALUE SPACE. 10 FILLER PIC X(5) VALUE 'GOS '. UNC 10 FILLER PIC X VALUE SPACE. 10 FILLER PIC X(5) VALUE 'SLEAP'. UNC 10 FILLER PIC X(13) VALUE SPACES. 05 H-9. 10 FILLER PIC X(54) VALUE SPACES. 10 FILLER PIC X(6) VALUE 'INST/'. 10 FILLER PIC X(4) VALUE 'SCHP'. 10 FILLER PIC X(2) VALUE SPACES. 10 FILLER PIC X(4) VALUE 'IF 1'. 10 FILLER PIC X(2) VALUE SPACES. 10 FILLER PIC X(4) VALUE 'IF 2'. 10 FILLER PIC X(2) VALUE SPACES. 10 FILLER PIC X(5) VALUE 'O-SCH'. UNC 10 FILLER PIC X VALUE SPACE. 10 FILLER PIC X(4) VALUE 'STAF'. 10 FILLER PIC X(2) VALUE SPACES. 10 FILLER PIC X(4) VALUE 'PLUS'. 10 FILLER PIC X(2) VALUE SPACES. 10 FILLER PIC X(5) VALUE 'STF-U'. UNC 10 FILLER PIC X VALUE SPACE. 10 FILLER PIC X(4) VALUE 'FL-1'. 10 FILLER PIC X(2) VALUE SPACES. 10 FILLER PIC X(4) VALUE 'OL-1'. 10 FILLER PIC X(2) VALUE SPACES. UNC 10 FILLER PIC X(5) VALUE 'GPA-M'. UNC 10 FILLER PIC X(13) VALUE SPACES. 05 H-10. 10 FILLER PIC X(10) VALUE SPACES. UNC 10 FILLER PIC X(5) VALUE 'FIELD'. UNC 10 FILLER PIC X(26) VALUE SPACES. UNC 10 FILLER PIC X VALUE '|'. UNC 10 FILLER PIC X(4) VALUE SPACES. 10 FILLER PIC X(6) VALUE 'ERRORS'. UNC 10 FILLER PIC X(3) VALUE SPACES. UNC 10 FILLER PIC X VALUE '|'. UNC 10 FILLER PIC X(3) VALUE SPACES. 10 FILLER PIC X(8) VALUE 'WARNINGS'. UNC 10 FILLER PIC X(2) VALUE SPACES. UNC 10 FILLER PIC X VALUE '|'. UNC 10 FILLER PIC X(2) VALUE SPACES. UNC 10 FILLER PIC X(9) VALUE 'OVERRIDES'. UNC 10 FILLER PIC X(2) VALUE SPACES. UNC 10 FILLER PIC X VALUE '|'. UNC 10 FILLER PIC X(2) VALUE SPACES. 10 FILLER PIC X(10) VALUE 'NO. AWARDS'. UNC 10 FILLER PIC X VALUE SPACE. UNC 10 FILLER PIC X VALUE '|'. UNC 10 FILLER PIC X(3) VALUE SPACES. UNC 10 FILLER PIC X(8) VALUE 'COMMENTS'. UNC 10 FILLER PIC X(23) VALUE SPACES. 05 H-1R. 10 FILLER PIC X VALUE SPACES. 10 FILLER PIC X(4) VALUE 'CODE'. 10 FILLER PIC X VALUE SPACES. 10 FILLER PIC X(4) VALUE 'PER.'. 10 FILLER PIC X VALUE SPACES. 10 FILLER PIC X(6) VALUE 'ID NO.'. 10 FILLER PIC X(4) VALUE SPACES. 10 FILLER PIC X(7) VALUE 'X DATE'. 10 FILLER PIC X(4) VALUE SPACES. 10 FILLER PIC X(6) VALUE 'N V T'. 10 FILLER PIC X(8) VALUE ' NAME'. 10 FILLER PIC X(3) VALUE SPACES. 10 FILLER PIC X(2) VALUE 'L'. 10 FILLER PIC X(3) VALUE 'L'. 10 FILLER PIC X(3) VALUE 'A'. 10 FILLER PIC X(7) VALUE 'INCOME'. 10 FILLER PIC X(2) VALUE 'E'. 10 FILLER PIC X(6) VALUE 'BUDGT'. 10 FILLER PIC X(7) VALUE 'RESRC'. 10 FILLER PIC X(7) VALUE 'LEAP'. 10 FILLER PIC X(9) VALUE 'FEDERAL'. 10 FILLER PIC X(8) VALUE 'STATE '. 10 FILLER PIC X(9) VALUE 'OTHER '. 10 FILLER PIC X(8) VALUE 'LOANS '. 10 FILLER PIC X(6) VALUE ' TOTAL'. UNC 10 FILLER PIC X(6) VALUE SPACES. UNC *----------------------------------------------------------------* UNC * PRINT GENERAL DESCRIPTIVE INFORMATION * UNC *----------------------------------------------------------------* 05 S-1. 10 FILLER PIC X(50) VALUE ' GENERAL INFORMATION ABOUT THE EXCEPTION REPORT'. 10 FILLER PIC X(50) VALUE ' - THE FINANCIAL AID FILE OF THE STUDENT UNIT-R'. 10 FILLER PIC X(30) VALUE 'ECORD DATA SYSTEM '. UNC 10 FILLER PIC X(2) VALUE SPACES. * 05 S-2. * 10 FILLER PIC X(50) * VALUE ' 1. THE EXCEPTION LINE IS PRINTED IN THE SAME '. * 10 FILLER PIC X(46) * VALUE 'SEQUENCE AS THE FINANCIAL AID FILE, WITH THE E'. * 10 FILLER PIC X(32) * VALUE 'XCEPTION OF PARENT CONTRIBUTION.'. 05 S-3. 10 FILLER PIC X(50) VALUE ' 1. ALL FIELDS ARE PRINTED EXCEPT RECORD CODE.'. UNC 10 FILLER PIC X(82) VALUE SPACES. 05 S-4. 10 FILLER PIC X(50) VALUE ' 2. DATE FIELDS HAVE EDIT MASKS OF "/" FOR EAS'. 10 FILLER PIC X(50) VALUE 'IER IDENTIFICATION ON EXCEPTION REPORT (NO CHANGE '. 10 FILLER PIC X(30) VALUE 'ON FILE). '. UNC 10 FILLER PIC X(2) VALUE SPACES. 05 S-5. 10 FILLER PIC X(50) VALUE ' 3. A "W" PRECEDES ANY RECORD IN WHICH ONLY WA'. 10 FILLER PIC X(50) VALUE 'RNINGS WERE IDENTIFIED. '. UNC 10 FILLER PIC X(32) VALUE SPACES. 05 S-6. 10 FILLER PIC X(50) VALUE ' 4. THE CODES THAT ARE PRINTED UNDER THE DATA '. 10 FILLER PIC X(50) VALUE 'ELEMENTS IDENTIFY INCORRECT DATA AND THE CORRESPON'. 10 FILLER PIC X(30) VALUE 'DING ERROR TYPE OR WARNING. '. UNC 10 FILLER PIC X(2) VALUE SPACES. 05 S-7. 10 FILLER PIC X(50) VALUE ' REFER TO THE TABLE ABOVE FOR THE DEFINITIO'. 10 FILLER PIC X(50) VALUE 'N OF THE CODES AND THE TYPE OF ERROR OR WARNING ID'. 10 FILLER PIC X(30) VALUE 'ENTIFIED. '. UNC 10 FILLER PIC X(2) VALUE SPACES. 05 S-8. 10 FILLER PIC X(50) VALUE ' 5. NEED BASED AWARD EDIT CHECK: FIN. AID REC'. 10 FILLER PIC X(38) VALUE 'IPIENTS DEFINED AS NEED BASED WILL BE '. 10 FILLER PIC X(30) VALUE 'EDITED FOR BUDGET AND INCOME: '. UNC 10 FILLER PIC X(14) VALUE SPACES. 05 S-9. 10 FILLER PIC X(50) VALUE ' 1. PELL '. UNC 10 FILLER PIC X(82) VALUE SPACES. 05 S-10. 10 FILLER PIC X(50) VALUE ' 2. SEOG '. UNC 10 FILLER PIC X(82) VALUE SPACES. 05 S-11. 10 FILLER PIC X(50) VALUE ' 3. FEDERAL WORK STUDY '. UNC 10 FILLER PIC X(82) VALUE SPACES. 05 S-12. 10 FILLER PIC X(50) VALUE ' 4. PERKINS LOAN '. UNC 10 FILLER PIC X(82) VALUE SPACES. 05 S-13. 10 FILLER PIC X(50) VALUE ' 5. COLORADO STUDENT GRANT '. UNC 10 FILLER PIC X(82) VALUE SPACES. 05 S-14. 10 FILLER PIC X(50) VALUE ' 6. CLEAP & SLEAP '. UNC 10 FILLER PIC X(82) VALUE SPACES. * 05 S-15. * 10 FILLER PIC X(50) * VALUE ' 7. COLORADO PART-TIME GRANT '. 05 S-16. 10 FILLER PIC X(50) VALUE ' 7. COLORADO GRADUATE GRANT '. UNC 10 FILLER PIC X(82) VALUE SPACES. 05 S-17. 10 FILLER PIC X(50) VALUE ' 8. GOS '. UNC 10 FILLER PIC X(82) VALUE SPACES. UNC 05 S-18. 10 FILLER PIC X(50) VALUE ' 9. STAFFORD LOAN - SUBSIDIZED '. UNC 10 FILLER PIC X(82) VALUE SPACES. UNC 05 S-19. UNC 10 FILLER PIC X(50) UNC VALUE ' 6. OVERRIDE CODES ARE PROVIDED AT THE RECORD '. UNC 10 FILLER PIC X(50) UNC VALUE 'LEVEL TO PRECLUDE SENDING A MEMO TO CCHE. EACH ST'. UNC 10 FILLER PIC X(32) UNC VALUE 'UDENT MAY HAVE UP TO TWO (2) '. UNC 05 S-20. UNC 10 FILLER PIC X(50) UNC VALUE ' CATEGORIES (POSITIONS 193-194). '. UNC 10 FILLER PIC X(82) VALUE SPACES. UNC 05 S-21. 10 FILLER PIC X(45) VALUE '*** PARAMETER "E" - THIS EDIT PROGRAM PRINTS'. 10 FILLER PIC X(18) VALUE ' ERRORS ONLY. ***'. UNC 10 FILLER PIC X(69) VALUE SPACES. UNC 05 S-22. 10 FILLER PIC X(45) VALUE '*** PARAMETER "W" - THIS EDIT PROGRAM PRINTS'. 10 FILLER PIC X(31) VALUE ' BOTH ERRORS AND WARNINGS. ***'. UNC 10 FILLER PIC X(56) VALUE SPACES. UNC 05 S-23. 10 FILLER PIC X(45) VALUE '*** PARAMETER "P" - THIS EDIT PROGRAM PRINTS'. 10 FILLER PIC X(18) VALUE ' ALL RECORDS. ***'. UNC 10 FILLER PIC X(69) VALUE SPACES. UNC 05 S-24. 10 FILLER PIC X(47) VALUE '*** BLANK PARAMETER - THIS EDIT PROGRAM PRINTS'. 10 FILLER PIC X(31) VALUE ' BOTH ERRORS AND WARNINGS. ***'. UNC 10 FILLER PIC X(54) VALUE SPACES. UNC *----------------------------------------------------------------* UNC * PRINT MEMO (OVERRIDE) INFORMATION * UNC *----------------------------------------------------------------* UNC 05 M-1. UNC 10 M1-STUDENT-ID PIC X(9) VALUE SPACES. UNC 10 FILLER PIC X(7) VALUE SPACES. UNC 10 M1-CATEGORY PIC X VALUE SPACE. UNC 10 FILLER PIC X(41) VALUE SPACES. UNC 10 M1-LITERAL PIC X(10) VALUE SPACES. UNC 10 FILLER PIC X(2) VALUE SPACES. UNC 10 M1-DESCRIPTION PIC X(62) VALUE SPACES. UNC 05 M-2. UNC 10 FILLER PIC X(16) VALUE SPACES. UNC 10 M2-CATEGORY PIC X VALUE SPACE. UNC 10 FILLER PIC X(41) VALUE SPACES. UNC 10 M2-LITERAL PIC X(10) VALUE SPACES. UNC 10 FILLER PIC X(2) VALUE SPACES. UNC 10 M2-DESCRIPTION PIC X(62) VALUE SPACES. UNC 05 M-3. UNC 10 FILLER PIC X(32) VALUE SPACES. UNC 10 M3-LITERAL PIC X(55) VALUE SPACES. UNC 10 FILLER PIC X(5) VALUE SPACES. UNC 10 M3-KOUNT PIC Z,Z(3),Z(2)9. UNC 10 FILLER PIC X(31) VALUE SPACES. UNC *----------------------------------------------------------------* UNC * PRINT NEED-BASED EXCEPTION REPORT * UNC *----------------------------------------------------------------* UNC 05 N-1. UNC 10 FILLER PIC X(2) VALUE SPACES. UNC 10 N1-INST-CODE PIC X(4) VALUE SPACES. UNC 10 FILLER PIC X(2) VALUE SPACES. UNC 10 N1-INST-NAME PIC X(35) VALUE SPACES. UNC 10 FILLER PIC X(6) VALUE SPACES. UNC 10 N1-STUDENT-ID PIC X(9) VALUE SPACES. UNC 10 FILLER PIC X(5) VALUE SPACES. UNC 10 N1-RES-FC PIC Z(4)9. UNC 10 FILLER PIC X(5) VALUE SPACES. UNC 10 N1-RES-FC-150-LIMIT PIC Z(4)9. UNC 10 FILLER PIC X(5) VALUE SPACES. UNC 10 N1-CSG-AMT PIC Z(4)9. UNC 10 FILLER PIC X(5) VALUE SPACES. UNC 10 N1-COMMENTS PIC X(39) VALUE ZEROS. UNC 05 N-2. UNC 10 FILLER PIC X(47) VALUE SPACES. UNC 10 FILLER PIC X(21) UNC VALUE 'TOTAL EXCEPTIONS FOR '. UNC 10 N2-INST-NAME PIC X(35) VALUE SPACES. UNC 10 FILLER PIC X(3) VALUE ' = '. UNC 10 N2-KOUNT PIC Z(2),Z(2)9. UNC 10 FILLER PIC X(20) VALUE SPACES. EJECT UNC ****************************************************************** UNC *** WORK RECORD AREA *** UNC ****************************************************************** 01 WORK-REC. 05 CORE-OUT. 10 RECORD-TYPE PIC X. 88 LEGITIMATE-EXCEPTION VALUE 'O'. 10 INST-CD-OUT. 15 INST-OUT PIC 9(4). 10 RP-TERM-OUT. 15 R-TERM. 20 TERM-OUT PIC 9. 15 R-YEAR. 20 YEAR-OUT PIC 9(4). 10 ID-OUT. 15 SSN PIC 9(9). 10 ID-OUT-CK REDEFINES ID-OUT. 15 SSN-3 PIC X(3). 15 SSN-6 PIC X(6). 10 SEX PIC X. 10 BIRTH-DT. 15 B-YR. 20 B-YEAR PIC 9(4). 15 B-MO. 20 B-MON PIC 9(2). 15 B-DAY PIC X(2). 10 ETHN. 15 ETHNIC PIC 9. 10 S-LVL. 15 STUD-LVL PIC 9(2). 88 UG VALUE 11 12 13 14 15 19 35 39. 88 GR VALUE 21 31 32 36. 10 TUIT-CL. 15 TUIT PIC 9. 10 FILLER PIC X(4). 05 ENRL-OUT. 10 ENR-CLASS. 15 ENR PIC 9. 88 ENROLLED VALUE 1 2 3. 10 LEG-CLASS. 15 LEG PIC 9. 10 ENR-DURAT. 15 DUR PIC 9(2). 10 INCOME. 15 INC PIC 9(6). * 10 BUD-SIZE. * 15 SIZ PIC 9. 10 FILLER PIC X. 10 BUDAMOUNT. 15 AMT PIC 9(6). 10 RESOURCES-FC. 15 RES-FC PIC 9(6). 05 FEDR-OUT. 10 PELL-F. 15 PELL PIC 9(5). 10 SEOG-F. 15 SEOG PIC 9(5). 10 WKST-F. 15 WS-F PIC 9(5). * 10 PDOUG-F. * 15 PDOUG PIC 9(5). 10 FILLER PIC X(5). 10 PERKINS-F. 15 PERKINS PIC 9(5). 10 OTHR-F. 15 OTHR PIC 9(5). 05 STATEOUT. 10 CLEAP-S. 15 CLEAP PIC 9(5). 10 CSGRANT. 15 C-SG PIC 9(5). 10 WKST-S. 15 WS-S PIC 9(5). 10 UGMERIT. 15 UG-MERIT PIC 9(5). 10 GRGRANT. 15 GR-GRANT PIC 9(5). 10 GRFELL. 15 GR-FELLOW PIC 9(5). * 10 CODIV. * 15 CO-DIV PIC 9(5). 10 FILLER PIC X(5). 10 CONURSE. 15 CO-NURSE PIC 9(5). 10 COCAT. 15 CO-CAT PIC 9(5). * 10 COPTGRT. * 15 CO-PTGRT PIC 9(5). 10 FILLER PIC X(5). 05 OTHR-OUT. 10 I-SCHLSH. 15 I-S PIC 9(5). * 10 I-EMPLMT. * 15 I-E PIC 9(5). 10 FILLER PIC X(5). 10 I-FUND1. 15 I-1 PIC 9(5). 10 I-FUND2. 15 I-2 PIC 9(5). 10 O-SCHLSH. 15 O-S PIC 9(5). 10 STAFFORD-O. 15 STAFFORD PIC 9(5). 10 PLS-LN. 15 PLSLN PIC 9(5). 10 STAFF-UN-O. 15 STAFF-UN PIC 9(5). 10 LOAN-F. 15 FL-1 PIC 9(5). 10 LOAN-O. 15 OL-1 PIC 9(5). UNC 10 FILLER PIC X(3). UNC 10 OVERRIDES. UNC 15 OR-1 PIC 9. UNC 15 OR-2 PIC 9. 05 MISC-OUT. 10 RESOURCES-PC. 15 RES-PC PIC 9(6). 10 GOS-S. 15 GOS PIC 9(5). 10 FILLER PIC X. 10 HOUSEHOLD-SIZE. 15 HOUSE-SZ PIC 9(2). 10 NUMBER-IN-COLLEGE. 15 COLLEGE-NUM PIC 9(2). 10 FILLER PIC X(5). 10 SLEAP-S. 15 SLEAP PIC 9(5). 10 GPA-MERIT-SELECTION. UNC 15 MERIT-GPA PIC 9V9(3). 10 VETERANS-BENEFITS. 15 VET-BENEFIT PIC 9(5). 10 FAFSA-FLAG. 15 FAFSA PIC 9. 88 FILED-FAFSA VALUE 1. UNC 10 FILLER PIC X(19). 10 EXCEPTION-FLAG PIC X. 88 VALID-EXCEPTION VALUE 'E'. EJECT PROCEDURE DIVISION. A001-MAIN-DRIVER. UNC ****************************************************************** UNC *** PERFORMS BASIC HOUSEKEEPING AND DRIVES INITIAL PROCESSING.*** UNC ****************************************************************** UNC PERFORM A100-OPEN-FILES THRU A100-EXIT. UNC PERFORM A200-REPORT-DATES THRU A200-EXIT. UNC PERFORM A500-READ-PARMS THRU A500-EXIT. UNC IF GOOD-PARMS UNC PERFORM A600-READ-CODES THRU A600-EXIT UNC PERFORM A700-READ-INPUT THRU A700-EXIT. UNC PERFORM A900-CLOSE-FILES THRU A900-EXIT. STOP RUN. EJECT UNC A100-OPEN-FILES. UNC ****************************************************************** UNC *** OPEN INPUT AND OUTPUT FILES FOR PROCESSING *** UNC *** DISK-IN EXTRACTED RECORD DATA *** UNC *** DISK-OUT *** UNC *** PARM-IN PROCESSING PARAMETERS *** UNC *** CODES-IN *** UNC *** CODES-IN2 *** UNC *** ERRS-OUT *** UNC *** PRINT-OUT REPORT OF AID ACTIVITY *** UNC *** PRINT-OUT2 REPORT OF NEED-BASED ACTIVITY *** UNC *** (PELL RELATED) *** UNC *** *** UNC *** RETURNS TO A001-MAIN-DRIVER. *** UNC ****************************************************************** UNC OPEN INPUT DISK-IN PARM-IN CODES-IN CODES-IN2 UNC OUTPUT DISK-OUT ERRS-OUT MEMO-OUT PRINT-OUT PRINT-OUT2. UNC A100-EXIT. UNC EXIT. UNC A200-REPORT-DATES. UNC ****************************************************************** UNC *** OBTAIN PROCESSING DATE FOR REPORT *** UNC *** *** UNC *** RETURNS TO A001-MAIN-DRIVER. *** UNC ****************************************************************** UNC CALL 'IGZEDT4' USING WS-DATE. UNC MOVE WS-DATE-MO TO H-DATE-MO UNC MOVE WS-DATE-DAY TO H-DATE-DAY UNC MOVE WS-DATE-YR TO H-DATE-YR UNC MOVE SPACES TO AWARD-OUT UNC COMMENT-OUT UNC ERROR-OUT UNC WARNING-OUT. UNC A200-EXIT. UNC EXIT. UNC A500-READ-PARMS. UNC ****************************************************************** UNC *** READ PROCESSING PARAMETERS FOR THIS RUN *** UNC *** *** UNC *** RETURNS TO A001-MAIN-DRIVER. *** UNC ****************************************************************** UNC READ PARM-IN UNC AT END DISPLAY 'NO PARAMETER CARD - CANNOT CONTINUE'. *================================================================* * LOAD EXC-PARM (EXCEPTION LIMIT PARM) * *================================================================* UNC INSPECT EXC-PARM REPLACING ALL SPACES BY '0'. UNC IF EX-PARM NUMERIC UNC AND EX-PARM > 0 UNC MOVE EX-PARM TO EX-LIMIT UNC ELSE UNC MOVE 99999 TO EX-LIMIT. UNC DISPLAY ' EX-PARM = >' EX-PARM '<'. *================================================================* * LOAD ER-ONLY-PARM (EDIT OR REPORT) * *================================================================* UNC IF ER-ONLY-PARM NOT = 'E' UNC AND ER-ONLY-PARM NOT = 'R' UNC DISPLAY '>>===> ER-ONLY-PARM CHANGED TO "R" FROM ' UNC ER-ONLY-PARM UNC MOVE 'R' TO ER-ONLY-PARM. UNC DISPLAY ' ER-ONLY-PARM = >' ER-ONLY-PARM '<'. *================================================================* * LOAD INST-PARM * *================================================================* UNC DISPLAY ' INST-PARM = >' INST-PARM '<'. *================================================================* * LOAD Y-P (REPORT YEAR PARM) * *================================================================* UNC INSPECT Y-P REPLACING ALL SPACES BY '0'. UNC IF Y-P NUMERIC UNC MOVE YR-PARM TO YR-HOLD. UNC DISPLAY ' YR-PARM = >' YR-PARM '<'. *================================================================* * CHECK SEOG LIMIT PARM; * * IF NUMERIC, LOAD DATA ELSE SET ABEND STATUS * *================================================================* UNC IF PR-SEOG-LIMIT NUMERIC UNC MOVE PR-SEOG-LIMIT TO SEOG-LIMIT UNC DISPLAY ' SEOG-LIMIT = >' SEOG-LIMIT '<' UNC MOVE 'Y' TO PARMS-FLAG UNC ELSE UNC DISPLAY 'INVALID SEOG-LIMIT - NOT NUMERIC' UNC MOVE 'N' TO PARMS-FLAG. *================================================================* * CHECK CLEAP LIMIT PARM; * * IF NUMERIC, LOAD DATA ELSE SET ABEND STATUS * *================================================================* UNC IF PR-CLEAP-LIMIT NUMERIC UNC MOVE PR-CLEAP-LIMIT TO CLEAP-LIMIT UNC DISPLAY ' CLEAP-LIMIT = >' CLEAP-LIMIT '<' UNC MOVE 'Y' TO PARMS-FLAG UNC ELSE UNC DISPLAY 'INVALID CLEAP-LIMIT - NOT NUMERIC' UNC MOVE 'N' TO PARMS-FLAG. *================================================================* * CHECK SLEAP LIMIT PARM; * * IF NUMERIC, LOAD DATA ELSE SET ABEND STATUS * *================================================================* UNC IF PR-SLEAP-LIMIT NUMERIC UNC MOVE PR-SLEAP-LIMIT TO SLEAP-LIMIT UNC DISPLAY ' SLEAP-LIMIT = >' SLEAP-LIMIT '<' UNC MOVE 'Y' TO PARMS-FLAG UNC ELSE UNC DISPLAY 'INVALID SLEAP-LIMIT - NOT NUMERIC' UNC MOVE 'N' TO PARMS-FLAG. *================================================================* * CHECK PR-CS-GRANT LIMIT PARM; * * IF NUMERIC, LOAD DATA ELSE SET ABEND STATUS * *================================================================* UNC IF PR-CS-GRANT-LIMIT NUMERIC UNC MOVE PR-CS-GRANT-LIMIT TO CS-GRANT-LIMIT UNC DISPLAY ' CS-GRANT-LIMIT = >' CS-GRANT-LIMIT '<' UNC MOVE 'Y' TO PARMS-FLAG UNC ELSE UNC DISPLAY 'INVALID CS-GRANT-LIMIT - NOT NUMERIC' UNC MOVE 'N' TO PARMS-FLAG. *================================================================* * CHECK PR-GR-GRANT LIMIT PARM; * * IF NUMERIC, LOAD DATA ELSE SET ABEND STATUS * *================================================================* UNC IF PR-GR-GRANT-LIMIT NUMERIC UNC MOVE PR-GR-GRANT-LIMIT TO GR-GRANT-LIMIT UNC DISPLAY ' GR-GRANT-LIMIT = >' GR-GRANT-LIMIT '<' UNC MOVE 'Y' TO PARMS-FLAG UNC ELSE UNC DISPLAY 'INVALID GR-GRANT-LIMIT - NOT NUMERIC' UNC MOVE 'N' TO PARMS-FLAG. *================================================================* * CHECK PR-STAFFORD-UG LIMIT PARM; * * IF NUMERIC, LOAD DATA ELSE SET ABEND STATUS * *================================================================* UNC IF PR-STAFFORD-UG-LIMIT NUMERIC UNC MOVE PR-STAFFORD-UG-LIMIT TO STAFFORD-UG-LIMIT UNC DISPLAY 'STAFFORD-UG-LIMIT = >' STAFFORD-UG-LIMIT '<' UNC MOVE 'Y' TO PARMS-FLAG UNC ELSE UNC DISPLAY 'INVALID STAFFORD-UG-LIMIT - NOT NUMERIC' UNC MOVE 'N' TO PARMS-FLAG. *================================================================* * CHECK PR-STAFFORD-GR LIMIT PARM; * * IF NUMERIC, LOAD DATA ELSE SET ABEND STATUS * *================================================================* UNC IF PR-STAFFORD-GR-LIMIT NUMERIC UNC MOVE PR-STAFFORD-GR-LIMIT TO STAFFORD-GR-LIMIT UNC DISPLAY 'STAFFORD-GR-LIMIT = >' STAFFORD-GR-LIMIT '<' UNC MOVE 'Y' TO PARMS-FLAG UNC ELSE UNC DISPLAY 'INVALID STAFFORD-GR-LIMIT - NOT NUMERIC' UNC MOVE 'N' TO PARMS-FLAG. *================================================================* * CHECK GOS LIMIT PARM; * * IF NUMERIC, LOAD DATA ELSE SET ABEND STATUS * *================================================================* UNC IF PR-GOS-LIMIT NUMERIC UNC MOVE PR-GOS-LIMIT TO GOS-LIMIT UNC DISPLAY ' GOS-LIMIT = >' GOS-LIMIT '<' UNC MOVE 'Y' TO PARMS-FLAG UNC ELSE UNC DISPLAY 'INVALID GOS-LIMIT - NOT NUMERIC' UNC MOVE 'N' TO PARMS-FLAG. *================================================================* * CHECK PELL LIMIT PARM; * * IF NUMERIC, LOAD DATA ELSE SET ABEND STATUS * *================================================================* UNC IF PR-PELL-LIMIT NUMERIC UNC MOVE PR-PELL-LIMIT TO PELL-LIMIT UNC DISPLAY ' PELL-LIMIT = >' PELL-LIMIT '<' UNC MOVE 'Y' TO PARMS-FLAG UNC ELSE UNC DISPLAY 'INVALID PELL-LIMIT - NOT NUMERIC' UNC MOVE 'N' TO PARMS-FLAG. *================================================================* * CHECK 150% NEED-BASED LIMIT (EFC TO PELL) * * IF NUMERIC, LOAD DATA ELSE SET ABEND STATUS * *================================================================* UNC IF PR-NEED-BASED-GRANT NUMERIC UNC MOVE PR-NEED-BASED-GRANT TO CSG-EFC-LIMIT UNC DISPLAY ' CSG-EFC-LIMIT = >' CSG-EFC-LIMIT UNC MOVE 'Y' TO PARMS-FLAG UNC ELSE UNC DISPLAY 'INVALID CSG-EFC-LIMIT NOT NUMERIC' UNC MOVE 'N' TO PARMS-FLAG. *================================================================* * CHECK DEBUG-OPTION; * * IF VALID, LOAD DATA ELSE DEFAULT TO 'N' * *================================================================* UNC IF PR-DEBUG-OPTION = 'Y' UNC OR 'N' UNC MOVE PR-DEBUG-OPTION TO DEBUG-FLAG UNC DISPLAY ' DEBUG-OPTION = >' PR-DEBUG-OPTION '<' UNC MOVE 'Y' TO PARMS-FLAG UNC ELSE UNC DISPLAY 'DEBUG-OPTION CHANGED TO "N"' UNC MOVE 'N' TO DEBUG-FLAG. UNC A500-EXIT. UNC EXIT. UNC A600-READ-CODES. UNC ****************************************************************** UNC *** READ INSTITUTION CODES FOR THIS RUN *** UNC *** *** UNC *** RETURNS TO A001-MAIN-DRIVER. *** UNC ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> A600-READ-CODES'. UNC READ CODES-IN2 UNC AT END MOVE 'NO ' TO IS-THERE-AN-INST-CODE. UNC IF THERE-IS-AN-INST-CODE UNC PERFORM B005-LOAD-INST-CODES THRU B005-EXIT UNC UNTIL THERE-ARE-NO-MORE-INST-CODES UNC ELSE UNC DISPLAY 'NO INST CODES LOADED'. UNC A600-EXIT. UNC EXIT. UNC A700-READ-INPUT. UNC ****************************************************************** UNC *** READ EXTRACTED DATA FOR PROCESSING *** UNC *** *** UNC *** RETURNS TO A001-MAIN-DRIVER. *** UNC ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> A700-READ-INPUT'. UNC READ DISK-IN UNC AT END MOVE 'NO ' TO IS-THERE-A-REC. UNC IF DEBUG-CODE UNC DISPLAY '>>+++> IS-THERE-A-REC = >' IS-THERE-A-REC '<'. UNC IF THERE-IS-A-REC UNC MOVE CORE-IN TO CORE-OUT UNC MOVE YEAR-OUT TO H-YEAR UNC IF R-TERM = '2' UNC COMPUTE YEAR = YEAR-OUT + 1 UNC MOVE YEAR TO H-YEAR. UNC IF THERE-IS-A-REC UNC PERFORM B010-CHECK THRU B010-EXIT UNC UNTIL THERE-ARE-NO-MORE-RECS. UNC IF THERE-ARE-NO-MORE-RECS UNC MOVE CSG-EFC-KOUNT TO N2-KOUNT UNC WRITE PRINT-LINE2 FROM N-2 AFTER ADVANCING 2. UNC PERFORM B030-PRINT-ERR-MATRIX THRU B030-EXIT. UNC WRITE PRINT-LINE FROM D-BLANK AFTER ADVANCING TOP-OF-PAGE. UNC PERFORM B040-PRINT-MEMO-TOTALS THRU B040-EXIT. UNC A700-EXIT. UNC EXIT. UNC A900-CLOSE-FILES. UNC ****************************************************************** UNC *** CLOSE ALL FILES *** UNC *** *** UNC *** RETURNS TO A001-MAIN-DRIVER. *** UNC ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> A900-CLOSE-FILES'. UNC CLOSE DISK-IN PARM-IN CODES-IN CODES-IN2 UNC DISK-OUT ERRS-OUT MEMO-OUT PRINT-OUT PRINT-OUT2. UNC A900-EXIT. UNC EXIT. EJECT B005-LOAD-INST-CODES. ****************************************************************** *** THIS MODULE LOADS THE INSTITUTION CODES AND *** *** THE INSTITUTION NAMES *** *** *** UNC *** RETURNS TO A600-READ-CODES. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> B005-LOAD-INST-CODES'. ADD 1 TO L. IF INST-CODE NOT NUMERIC NEXT SENTENCE ELSE MOVE INST-CODE TO I-CODE (L) MOVE INST-NAME TO I-NAME (L). READ CODES-IN2 AT END MOVE 'NO ' TO IS-THERE-AN-INST-CODE. UNC B005-EXIT. UNC EXIT. EJECT B010-CHECK. ****************************************************************** *** THIS MODULE MOVES THE CORE SECTION AND FINANCIAL AID *** *** SECTIONS OF THE INPUT RECORD TO THE WORK AREA. *** *** *** *** CHECKS FOR PRINT OR EDIT ROUTINE. *** *** *** *** READS THE NEXT RECORD. *** *** ----> MAIN LOOP MODULE <----- *** *** *** UNC *** RETURNS TO A700-READ-INPUT. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> B010-CHECK'. ADD 1 TO KOUNT-IN. MOVE CORE-IN TO CORE-OUT. MOVE ENRL-IN TO ENRL-OUT. MOVE FEDR-IN TO FEDR-OUT. MOVE STATEIN TO STATEOUT. MOVE OTHR-IN TO OTHR-OUT. MOVE MISC-IN TO MISC-OUT. *================================================================* * FIRST RECORD CHECK. * *================================================================* IF FIRST-REC UNC PERFORM E010-SEARCH-I-TABLE THRU E010-EXIT UNC PERFORM E011-DETERMINE-INST-TYPE THRU E011-EXIT IF ER-ONLY-PARM NOT = 'P' UNC PERFORM B020-PRINT-DEFINITION-TABLE THRU B020-EXIT. *================================================================* * PERFORM EDIT OR REPORT, DEPENDING ON PARAMETER * *================================================================* UNC IF ER-ONLY-PARM = 'R' AND EX-LIMIT > EX-KOUNT UNC PERFORM C020-PRINT THRU C020-EXIT ELSE UNC IF ER-ONLY-PARM NOT = 'P' UNC PERFORM C025-EDIT THRU C025-EXIT. READ DISK-IN AT END MOVE 'NO ' TO IS-THERE-A-REC. UNC IF DEBUG-CODE UNC DISPLAY '>>+++> IS-THERE-A-REC = >' IS-THERE-A-REC '<'. UNC B010-EXIT. UNC EXIT. EJECT B020-PRINT-DEFINITION-TABLE. ****************************************************************** *** THIS MODULE WRITES THE ERROR DEFINITION TABLE. *** *** *** *** RETURNS TO B010-CHECK. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> B020-PRINT-DEFINITION-TABLE'. UNC MOVE PAGE-KOUNT TO H1-PAGE. WRITE PRINT-LINE FROM H-1 AFTER ADVANCING TOP-OF-PAGE. WRITE PRINT-LINE FROM H-2 AFTER ADVANCING 1. WRITE PRINT-LINE FROM H-3 AFTER ADVANCING 1. WRITE PRINT-LINE FROM D-1 AFTER ADVANCING 3. WRITE PRINT-LINE FROM H-1A AFTER ADVANCING 1. WRITE PRINT-LINE FROM D-1 AFTER ADVANCING 1. UNC PERFORM C010-PRINT-ER-COND THRU C010-EXIT VARYING E FROM 1 BY 1 UNC UNTIL E > 13. WRITE PRINT-LINE FROM D-1 AFTER ADVANCING 1. WRITE PRINT-LINE FROM S-1 AFTER ADVANCING 3. * WRITE PRINT-LINE FROM S-2 AFTER ADVANCING 3. WRITE PRINT-LINE FROM S-3 AFTER ADVANCING 2. WRITE PRINT-LINE FROM S-4 AFTER ADVANCING 2. WRITE PRINT-LINE FROM S-5 AFTER ADVANCING 2. WRITE PRINT-LINE FROM S-6 AFTER ADVANCING 2. WRITE PRINT-LINE FROM S-7 AFTER ADVANCING 1. WRITE PRINT-LINE FROM S-8 AFTER ADVANCING 2. WRITE PRINT-LINE FROM S-9 AFTER ADVANCING 1. WRITE PRINT-LINE FROM S-10 AFTER ADVANCING 1. WRITE PRINT-LINE FROM S-11 AFTER ADVANCING 1. WRITE PRINT-LINE FROM S-12 AFTER ADVANCING 1. WRITE PRINT-LINE FROM S-13 AFTER ADVANCING 1. WRITE PRINT-LINE FROM S-14 AFTER ADVANCING 1. * WRITE PRINT-LINE FROM S-15 AFTER ADVANCING 1. WRITE PRINT-LINE FROM S-16 AFTER ADVANCING 1. WRITE PRINT-LINE FROM S-17 AFTER ADVANCING 1. UNC WRITE PRINT-LINE FROM S-18 AFTER ADVANCING 1. UNC WRITE PRINT-LINE FROM S-19 AFTER ADVANCING 1. UNC WRITE PRINT-LINE FROM S-20 AFTER ADVANCING 1. IF ER-ONLY-PARM = 'P' UNC WRITE PRINT-LINE FROM S-23 AFTER ADVANCING 4 ELSE IF ER-ONLY-PARM = 'E' UNC WRITE PRINT-LINE FROM S-21 AFTER ADVANCING 4 ELSE IF ER-ONLY-PARM = 'W' UNC WRITE PRINT-LINE FROM S-22 AFTER ADVANCING 4 ELSE UNC WRITE PRINT-LINE FROM S-24 AFTER ADVANCING 4. MOVE 66 TO LINE-KOUNT. ADD 1 TO PAGE-KOUNT. UNC B020-EXIT. UNC EXIT. EJECT B030-PRINT-ERR-MATRIX. ****************************************************************** *** PRINTS THE ERROR AND WARNING TABLE MATRIX FOR THE EDIT *** *** FIELDS CHECKED ON THE FINANCIAL AID FILE *** *** *** *** RETURNS TO A700-READ-INPUT *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> B030-PRINT-ERR-MATRIX'. UNC PERFORM C030-PRINT-LINE-ITEMS THRU C030-EXIT VARYING X FROM 1 BY 1 UNC UNTIL X > 60. UNC PERFORM D010-PRINT-SUBTOTALS THRU D010-EXIT. UNC MOVE 99 TO X. UNC PERFORM D001-PRINT-HEADINGS THRU D001-EXIT. MOVE SPACES TO ERC-OUT. MOVE SPACES TO FIELD-NO-OUT2. MOVE 'TOTAL RECORDS' TO CON-OUT. MOVE EX-KOUNT TO ERR-OUT. MOVE WARN-KOUNT TO WAR-OUT. UNC COMPUTE OVER-KOUNT = OP-KOUNT (9) + OS-KOUNT (9). UNC MOVE OVER-KOUNT TO OVR-OUT. UNC MOVE AWD-TOT-KOUNT TO AWD-OUT. MOVE KOUNT-IN TO P-NUMERIC. MOVE ' TOTAL RECORDS ' TO P-COMMENT. WRITE PRINT-LINE FROM E-1 AFTER ADVANCING 1. WRITE PRINT-LINE FROM D-1 AFTER ADVANCING 1. IF KOUNT-IN > 0 COMPUTE ERR-PCT = EX-KOUNT / KOUNT-IN COMPUTE WARN-PCT = WARN-KOUNT / KOUNT-IN UNC COMPUTE OVR-PCT = OVER-KOUNT / KOUNT-IN. MOVE ERR-PCT TO ERP-OUT. MOVE WARN-PCT TO WRP-OUT. UNC MOVE OVR-PCT TO OVP-OUT. WRITE PRINT-LINE FROM E-1P AFTER ADVANCING 1. WRITE PRINT-LINE FROM D-1 AFTER ADVANCING 1. UNC B030-EXIT. UNC EXIT. B040-PRINT-MEMO-TOTALS. ****************************************************************** *** PRINTS THE OVERRIDE TOTALS BY CATEGORY AND GRAND TOTALS *** *** TO THE MEMO SUMMARY PAGE *** *** *** *** RETURNS TO A700-READ-INPUT *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> B040-PRINT-MEMO-TOTALS'. UNC MOVE PAGE-KOUNTM TO H1B-PAGE. UNC MOVE ' MEMO OVERRIDE REPORT' TO H1B-TITLE. UNC WRITE MEMO-LINE FROM H-1B AFTER ADVANCING TOP-OF-PAGE. UNC WRITE MEMO-LINE FROM H-2 AFTER ADVANCING 1. UNC WRITE MEMO-LINE FROM H-3 AFTER ADVANCING 1. UNC MOVE SPACES TO MEMO-LINE. UNC WRITE MEMO-LINE AFTER ADVANCING 5. UNC PERFORM E025-SUM-PRIMARY-OVERRIDES THRU E025-EXIT UNC VARYING X FROM 1 BY 1 UNC UNTIL X > 9. UNC PERFORM E026-SUM-SECONDARY-OVERRIDES THRU E026-EXIT UNC VARYING X FROM 1 BY 1 UNC UNTIL X > 9. UNC B040-EXIT. UNC EXIT. EJECT C010-PRINT-ER-COND. ****************************************************************** *** THIS MODULE PRINTS THE ERROR AND WARNING CODES AND *** *** THE EXPLANATION OF EACH CODE. *** *** *** *** RETURNS TO B020-PRINT-DEFINITION-TABLE. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> C010-PRINT-ER-COND'. MOVE ER-COND (E) TO ERC-OUT. MOVE ER-DEFN (E) TO ERD-OUT. MOVE WR-COND (E) TO WRC-OUT. MOVE WR-DEFN (E) TO WRD-OUT. UNC MOVE OV-COND (E) TO OVC-OUT. UNC MOVE OV-DEFN (E) TO OVD-OUT. WRITE PRINT-LINE FROM E-1A AFTER ADVANCING 1. UNC C010-EXIT. UNC EXIT. EJECT C020-PRINT. ****************************************************************** *** THIS MODULE FORMATS THE OUTPUT LINE AND PRINTS THE RECORD.*** *** *** *** RETURNS TO B010-CHECK. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> C020-PRINT'. MOVE INST-CD-OUT TO P-ICODE. MOVE R-TERM TO P-TERM. MOVE R-YEAR TO P-YEAR. MOVE ID-OUT TO P-SSN. MOVE SEX TO P-SEX. MOVE B-MO TO P-BIRMO. MOVE B-DAY TO P-BIRDA. MOVE B-YR TO P-BIRYR. MOVE ETHN TO P-ETHNIC. MOVE S-LVL TO P-LEVEL. MOVE TUIT-CL TO P-TUIT. MOVE FAFSA-FLAG TO P-FAFSA. MOVE NUMBER-IN-COLLEGE TO P-NCOL. MOVE ENR-CLASS TO P-ENRL. MOVE LEG-CLASS TO P-LEGL. MOVE ENR-DURAT TO P-DURA. MOVE INCOME TO P-INCM. MOVE HOUSEHOLD-SIZE TO P-SIZE. UNC MOVE BUDAMOUNT TO P-BUDGET. MOVE RESOURCES-FC TO P-RESO-FC. MOVE VETERANS-BENEFITS TO P-VET-BENEFIT. UNC MOVE PELL-F TO P-AWARD16. UNC MOVE SEOG-F TO P-AWARD17. UNC MOVE WKST-F TO P-AWARD18. UNC MOVE PERKINS-F TO P-AWARD19. UNC MOVE OTHR-F TO P-AWARD20. UNC MOVE CLEAP-S TO P-AWARD21. UNC MOVE CSGRANT TO P-AWARD22. UNC MOVE WKST-S TO P-AWARD23. UNC MOVE UGMERIT TO P-AWARD24. UNC MOVE GRGRANT TO P-AWARD25. UNC MOVE GRFELL TO P-AWARD26. UNC MOVE CONURSE TO P-AWARD27. UNC MOVE COCAT TO P-AWARD28. UNC MOVE GOS-S TO P-AWARD38. UNC MOVE SLEAP-S TO P-AWARD40. UNC MOVE I-SCHLSH TO P-AWARD29. UNC MOVE I-FUND1 TO P-AWARD30. MOVE I-FUND2 TO P-AWARD31. UNC MOVE O-SCHLSH TO P-AWARD32. UNC MOVE STAFFORD-O TO P-AWARD33. UNC MOVE PLSLN TO P-AWARD34. UNC MOVE STAFF-UN-O TO P-AWARD35. UNC MOVE LOAN-F TO P-AWARD36. UNC MOVE LOAN-O TO P-AWARD37. IF LEGITIMATE-EXCEPTION DISPLAY 'SKIPPING RECORD WITH SSN OF ' ID-OUT ELSE INSPECT FEDR-OUT REPLACING ALL SPACES BY '0' INSPECT STATEOUT REPLACING ALL SPACES BY '0' INSPECT OTHR-OUT REPLACING ALL SPACES BY '0' INSPECT MISC-OUT REPLACING ALL SPACES BY '0' UNC PERFORM D027-NEED-ANALYSIS THRU D027-EXIT. MOVE 0 TO SUM-AWARDS. IF LINE-KOUNT > PAGE-SIZE UNC PERFORM D000-PRINT-HEADINGS THRU D000-EXIT. IF LEGITIMATE-EXCEPTION NEXT SENTENCE ELSE IF EX-LIMIT > EX-KOUNT * PRINT INFORMATION AND FEDERAL AWARDS WRITE PRINT-LINE FROM H-7A AFTER ADVANCING 1 WRITE PRINT-LINE FROM E-2 AFTER ADVANCING 1 * PRINT STATE AWARDS WRITE PRINT-LINE FROM H-8 AFTER ADVANCING 2 WRITE PRINT-LINE FROM E-3 AFTER ADVANCING 1 * PRINT INSTITUTION AWARDS WRITE PRINT-LINE FROM H-9 AFTER ADVANCING 2 WRITE PRINT-LINE FROM E-4 AFTER ADVANCING 1 WRITE PRINT-LINE FROM D-2 AFTER ADVANCING 1 ADD 1 TO EX-KOUNT ADD 9 TO LINE-KOUNT. UNC C020-EXIT. UNC EXIT. EJECT UNC C025-EDIT. ****************************************************************** *** THIS MODULE ACCESSES THE EDITS FOR CORE, *** *** ENROLLMENT, *** *** FEDERAL, *** *** STATE, *** *** INSTITUTION SECTIONS, *** *** ACCESSES NEED ANALYSIS MODULE, *** *** CHECKS INDICATORS TO PRINT EXCEPTIONS, *** *** UPDATES RECORD ERROR COUNT, *** *** RECORD WARNING COUNT, *** *** WRITES ERROR RECORD OR VALID RECORD DEPENDING *** *** ON ERROR CONDITIONS. *** *** *** *** RETURNS TO B010-CHECK. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> C025-EDIT'. INSPECT FEDR-OUT REPLACING ALL SPACES BY '0'. INSPECT STATEOUT REPLACING ALL SPACES BY '0'. INSPECT OTHR-OUT REPLACING ALL SPACES BY '0' UNC PERFORM D021-CORE-EDIT THRU D021-EXIT. UNC PERFORM D027-NEED-ANALYSIS THRU D027-EXIT. UNC PERFORM D022-ENRL-EDIT THRU D022-EXIT. UNC PERFORM D023-FEDR-EDIT THRU D023-EXIT. UNC PERFORM D024-STATE-EDIT THRU D024-EXIT. UNC PERFORM D025-INST-EDIT THRU D025-EXIT. UNC PERFORM D026-MISC-EDIT THRU D026-EXIT. UNC PERFORM D035-PROCESS-OVERRIDE THRU D035-EXIT. IF WARN-FLAG > 0 ADD 1 TO WARN-KOUNT. IF LEGITIMATE-EXCEPTION DISPLAY 'SKIPPING RECORD FOR SSN ' ID-OUT ELSE IF ERR-FLAG1 > 0 OR ERR-FLAG2 > 0 OR ERR-FLAG3 > 0 ADD 1 TO EX-KOUNT WRITE ERR-REC FROM WORK-REC. IF ERR-FLAG1 = 0 AND ERR-FLAG2 = 0 AND ERR-FLAG3 = 0 ADD 1 TO GOOD-KOUNT WRITE OUT-REC FROM WORK-REC. ****************************************************************** *** ROUTINE TO CHECK IF ERROR LIMIT SPECIFIED IS EXCEEDED. *** *** *** *** THIS IS DEPENDENT ON THE ERROR TYPE PARAMETER: *** *** W - PRINT WARNINGS AND ERRORS *** *** BLANK - PRINT WARNINGS AND ERRORS (DEFAULT) *** *** E - PRINT ERRORS ONLY *** ****************************************************************** *================================================================* * PRINTS ALL ERRORS, NO MATTER WHAT THE PARAMETER * *================================================================* IF LEGITIMATE-EXCEPTION DISPLAY 'SKIPPING RECORD FOR SSN ' ID-OUT ELSE IF EX-LIMIT > EX-KOUNT AND (ERR-FLAG1 > 0 OR ERR-FLAG2 > 0 OR ERR-FLAG3 > 0) UNC PERFORM D028-PRINT-EXCEPTION THRU D028-EXIT ELSE IF EX-LIMIT < (WARN-KOUNT + EX-KOUNT) NEXT SENTENCE ELSE *================================================================* * PRINTS WARNINGS IF PARAMETER = 'W' OR BLANK * *================================================================* IF (ER-ONLY-PARM = 'W' OR ER-ONLY-PARM = ' ') AND WARN-FLAG > 0 MOVE 'W' TO W-OUT UNC PERFORM D028-PRINT-EXCEPTION THRU D028-EXIT MOVE SPACES TO W-OUT. *================================================================* * PRINTS MEMO IF OVERRIDES PRESENT * *================================================================* UNC IF OR-1 > 0 UNC OR OR-2 > 0 UNC PERFORM C040-PRINT-MEMO-ITEMS THRU C040-EXIT UNC PERFORM D040-CHECK-OVERRIDES THRU D040-EXIT. *================================================================* * HOUSEKEEPING ROUTINE * *================================================================* UNC MOVE SPACES TO EL-2, UNC EL-3, UNC EL-4, UNC EL-5, UNC EL-6, UNC EL-7, UNC EL-8, UNC EL-9, UNC EL-10, UNC EL-12, UNC EL-13, UNC EL-14, UNC EL-15, UNC EL-17, P-BUDGET UNC EL-18, P-RESO-FC UNC EL-19, P-AWARD16 UNC EL-20, P-AWARD17 UNC EL-21, P-AWARD18 UNC EL-23, P-AWARD19 UNC EL-24, P-AWARD20 UNC EL-25, P-AWARD21 UNC EL-26, P-AWARD22 UNC EL-27, P-AWARD23 UNC EL-28, P-AWARD24 UNC EL-29, P-AWARD25 UNC EL-30, P-AWARD26 UNC EL-32, P-AWARD27 UNC EL-33, P-AWARD28 UNC EL-35, P-AWARD29 UNC EL-37, P-AWARD30 UNC EL-38, P-AWARD31 UNC EL-39, P-AWARD32 UNC EL-40, P-AWARD33 UNC EL-41, P-AWARD34 UNC EL-42, P-AWARD35 UNC EL-43, P-AWARD36 UNC EL-44, P-AWARD37 UNC EL-45, P-NEED-AMT UNC EL-49, P-AWARD38 UNC EL-51, P-SIZE UNC EL-52, P-NCOL UNC EL-54, P-AWARD40 UNC EL-55, P-MERIT-GPA UNC EL-56, P-VET-BENEFIT UNC EL-57, P-FAFSA. MOVE 0 TO ERR-FLAG1. MOVE 0 TO ERR-FLAG2. MOVE 0 TO ERR-FLAG3. MOVE 0 TO WARN-FLAG. UNC C025-EXIT. UNC EXIT. EJECT C030-PRINT-LINE-ITEMS. ****************************************************************** *** THIS MODULE MOVES THE FIELD AND THE CORRESPONDING ERROR *** *** AND WARNING COUNT TO THE MATRIX. *** *** *** *** RETURNS TO B030-PRINT-ERR-MATRIX. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> C030-PRINT-LINE-ITEMS'. MOVE X TO FIELD-NO-OUT. MOVE FIELD (X) TO CON-OUT. *================================================================* * RECORD TYPE * *================================================================* UNC IF X = 1 UNC PERFORM D001-PRINT-HEADINGS THRU D001-EXIT UNC MOVE SPACES TO ERROR-OUT UNC MOVE SPACES TO WARNING-OUT UNC MOVE SPACES TO OVRRIDE-OUT UNC MOVE SPACES TO AWARD-OUT UNC MOVE '*** NOT EDITTED ***' TO COMMENT-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * INSTITUTION CODE * *================================================================* UNC IF X = 2 UNC MOVE ERRER-2 TO ERR-OUT UNC ADD ERRER-2 TO ERR-SUB-KOUNT UNC MOVE WARNING-2 TO WAR-OUT UNC ADD WARNING-2 TO WAR-SUB-KOUNT UNC MOVE SPACES TO AWARD-OUT UNC IF ERRER-2 = 1 UNC MOVE 'INST CD INVALID -TOT FILE' TO COMMENT-OUT UNC GO TO C030-PRINT-MATRIX UNC ELSE UNC GO TO C030-PRINT-MATRIX. *================================================================* * TERM * *================================================================* UNC IF X = 3 UNC MOVE ERRER-3 TO ERR-OUT UNC ADD ERRER-3 TO ERR-SUB-KOUNT UNC MOVE WARNING-3 TO WAR-OUT UNC ADD WARNING-3 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-3 TO OVR-OUT UNC ADD OVRRIDE-3 TO OVR-SUB-KOUNT UNC MOVE SPACES TO AWARD-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * REPORT YEAR * *================================================================* UNC IF X = 4 UNC MOVE ERRER-4 TO ERR-OUT UNC ADD ERRER-4 TO ERR-SUB-KOUNT UNC MOVE WARNING-4 TO WAR-OUT UNC ADD WARNING-4 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-4 TO OVR-OUT UNC ADD OVRRIDE-4 TO OVR-SUB-KOUNT UNC MOVE SPACES TO AWARD-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * STUDENT ID * *================================================================* UNC IF X = 5 UNC MOVE ERRER-5 TO ERR-OUT UNC ADD ERRER-5 TO ERR-SUB-KOUNT UNC MOVE WARNING-5 TO WAR-OUT UNC ADD WARNING-5 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-5 TO OVR-OUT UNC ADD OVRRIDE-5 TO OVR-SUB-KOUNT UNC MOVE SPACES TO AWARD-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * SEX * *================================================================* UNC IF X = 6 UNC MOVE ERRER-6 TO ERR-OUT UNC ADD ERRER-6 TO ERR-SUB-KOUNT UNC MOVE WARNING-6 TO WAR-OUT UNC ADD WARNING-6 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-6 TO OVR-OUT UNC ADD OVRRIDE-6 TO OVR-SUB-KOUNT UNC MOVE SPACES TO AWARD-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * BIRTH DATE (CCYYMMDD) * *================================================================* UNC IF X = 7 UNC MOVE ERRER-7 TO ERR-OUT UNC ADD ERRER-7 TO ERR-SUB-KOUNT UNC MOVE WARNING-7 TO WAR-OUT UNC ADD WARNING-7 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-7 TO OVR-OUT UNC ADD OVRRIDE-7 TO OVR-SUB-KOUNT UNC MOVE SPACES TO AWARD-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * ETHNICITY * *================================================================* UNC IF X = 8 UNC MOVE ERRER-8 TO ERR-OUT UNC ADD ERRER-8 TO ERR-SUB-KOUNT UNC MOVE WARNING-8 TO WAR-OUT UNC ADD WARNING-8 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-8 TO OVR-OUT UNC ADD OVRRIDE-8 TO OVR-SUB-KOUNT UNC MOVE SPACES TO AWARD-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * STUDENT LEVEL * *================================================================* UNC IF X = 9 UNC MOVE ERRER-9 TO ERR-OUT UNC ADD ERRER-9 TO ERR-SUB-KOUNT UNC MOVE WARNING-9 TO WAR-OUT UNC ADD WARNING-9 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-9 TO OVR-OUT UNC ADD OVRRIDE-9 TO OVR-SUB-KOUNT UNC MOVE SPACES TO AWARD-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * TUITION CLASSIFICATION * *================================================================* UNC IF X = 10 UNC MOVE ERRER-10 TO ERR-OUT UNC ADD ERRER-10 TO ERR-SUB-KOUNT UNC MOVE WARNING-10 TO WAR-OUT UNC ADD WARNING-10 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-10 TO OVR-OUT UNC ADD OVRRIDE-10 TO OVR-SUB-KOUNT UNC MOVE SPACES TO AWARD-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * FILLER * *================================================================* UNC IF X = 11 UNC MOVE 'FILLER' TO CON-OUT UNC MOVE SPACES TO ERROR-OUT UNC MOVE SPACES TO WARNING-OUT UNC MOVE SPACES TO OVRRIDE-OUT UNC MOVE SPACES TO AWARD-OUT UNC MOVE 'RESERVED FOR FUTURE USE' TO COMMENT-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * ENROLLMENT STATUS * *================================================================* UNC IF X = 12 UNC PERFORM D010-PRINT-SUBTOTALS THRU D010-EXIT UNC PERFORM D001-PRINT-HEADINGS THRU D001-EXIT UNC MOVE ERRER-12 TO ERR-OUT UNC ADD ERRER-12 TO ERR-SUB-KOUNT UNC MOVE WARNING-12 TO WAR-OUT UNC ADD WARNING-12 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-12 TO OVR-OUT UNC ADD OVRRIDE-12 TO OVR-SUB-KOUNT UNC MOVE SPACES TO AWARD-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * LEGAL STATUS * *================================================================* UNC IF X = 13 UNC MOVE ERRER-13 TO ERR-OUT UNC ADD ERRER-13 TO ERR-SUB-KOUNT UNC MOVE WARNING-13 TO WAR-OUT UNC ADD WARNING-13 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-13 TO OVR-OUT UNC ADD OVRRIDE-13 TO OVR-SUB-KOUNT UNC MOVE SPACES TO AWARD-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * ENROLLMENT DURATION * *================================================================* UNC IF X = 14 UNC MOVE ERRER-14 TO ERR-OUT UNC ADD ERRER-14 TO ERR-SUB-KOUNT UNC MOVE WARNING-14 TO WAR-OUT UNC ADD WARNING-14 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-14 TO OVR-OUT UNC ADD OVRRIDE-14 TO OVR-SUB-KOUNT UNC MOVE SPACES TO AWARD-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * INCOME * *================================================================* UNC IF X = 15 UNC MOVE ERRER-15 TO ERR-OUT UNC ADD ERRER-15 TO ERR-SUB-KOUNT UNC MOVE WARNING-15 TO WAR-OUT UNC ADD WARNING-15 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-15 TO OVR-OUT UNC ADD OVRRIDE-15 TO OVR-SUB-KOUNT UNC MOVE SPACES TO AWARD-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * FILLER * *================================================================* UNC IF X = 16 UNC MOVE 'FILLER' TO CON-OUT UNC MOVE SPACES TO ERROR-OUT UNC MOVE SPACES TO WARNING-OUT UNC MOVE SPACES TO OVRRIDE-OUT UNC MOVE SPACES TO AWARD-OUT UNC MOVE 'RESERVED FOR FUTURE USE' TO COMMENT-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * BUDGET AMOUNT * *================================================================* UNC IF X = 17 UNC MOVE ERRER-17 TO ERR-OUT UNC ADD ERRER-17 TO ERR-SUB-KOUNT UNC MOVE WARNING-17 TO WAR-OUT UNC ADD WARNING-17 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-17 TO OVR-OUT UNC ADD OVRRIDE-17 TO OVR-SUB-KOUNT UNC MOVE SPACES TO AWARD-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * RESOURCES (FAMILY CONTRIBUTION) * *================================================================* UNC IF X = 18 UNC MOVE ERRER-18 TO ERR-OUT UNC ADD ERRER-18 TO ERR-SUB-KOUNT UNC MOVE WARNING-18 TO WAR-OUT UNC ADD WARNING-18 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-18 TO OVR-OUT UNC ADD OVRRIDE-18 TO OVR-SUB-KOUNT UNC MOVE SPACES TO AWARD-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * PELL * *================================================================* UNC IF X = 19 UNC PERFORM D010-PRINT-SUBTOTALS THRU D010-EXIT UNC PERFORM D001-PRINT-HEADINGS THRU D001-EXIT UNC MOVE ERRER-19 TO ERR-OUT UNC ADD ERRER-19 TO ERR-SUB-KOUNT UNC MOVE WARNING-19 TO WAR-OUT UNC ADD WARNING-19 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-19 TO OVR-OUT UNC ADD OVRRIDE-19 TO OVR-SUB-KOUNT UNC MOVE PELL-KOUNT TO AWD-OUT UNC ADD PELL-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * SEOG * *================================================================* UNC IF X = 20 UNC MOVE ERRER-20 TO ERR-OUT UNC ADD ERRER-20 TO ERR-SUB-KOUNT UNC MOVE WARNING-20 TO WAR-OUT UNC ADD WARNING-20 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-20 TO OVR-OUT UNC ADD OVRRIDE-20 TO OVR-SUB-KOUNT UNC MOVE SEOG-KOUNT TO AWD-OUT UNC ADD SEOG-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * WORK STUDY (FEDERAL) * *================================================================* UNC IF X = 21 UNC MOVE ERRER-21 TO ERR-OUT UNC ADD ERRER-21 TO ERR-SUB-KOUNT UNC MOVE WARNING-21 TO WAR-OUT UNC ADD WARNING-21 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-21 TO OVR-OUT UNC ADD OVRRIDE-21 TO OVR-SUB-KOUNT UNC MOVE F-WS-KOUNT TO AWD-OUT UNC ADD F-WS-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * FILLER * *================================================================* UNC IF X = 22 UNC MOVE 'FILLER' TO CON-OUT UNC MOVE SPACES TO ERROR-OUT UNC MOVE SPACES TO WARNING-OUT UNC MOVE SPACES TO OVRRIDE-OUT UNC MOVE SPACES TO AWARD-OUT UNC MOVE 'RESERVED FOR FUTURE USE' TO COMMENT-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * PERKINS * *================================================================* UNC IF X = 23 UNC MOVE ERRER-23 TO ERR-OUT UNC ADD ERRER-23 TO ERR-SUB-KOUNT UNC MOVE WARNING-23 TO WAR-OUT UNC ADD WARNING-23 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-23 TO OVR-OUT UNC ADD OVRRIDE-23 TO OVR-SUB-KOUNT UNC MOVE PERKINS-KOUNT TO AWD-OUT UNC ADD PERKINS-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * OTHER FEDERAL * *================================================================* UNC IF X = 24 UNC MOVE ERRER-24 TO ERR-OUT UNC ADD ERRER-24 TO ERR-SUB-KOUNT UNC MOVE WARNING-24 TO WAR-OUT UNC ADD WARNING-24 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-24 TO OVR-OUT UNC ADD OVRRIDE-24 TO OVR-SUB-KOUNT UNC MOVE F-OT-KOUNT TO AWD-OUT UNC ADD F-OT-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * CLEAP * *================================================================* UNC IF X = 25 UNC PERFORM D010-PRINT-SUBTOTALS THRU D010-EXIT UNC PERFORM D001-PRINT-HEADINGS THRU D001-EXIT UNC MOVE ERRER-25 TO ERR-OUT UNC ADD ERRER-25 TO ERR-SUB-KOUNT UNC MOVE WARNING-25 TO WAR-OUT UNC ADD WARNING-25 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-25 TO OVR-OUT UNC ADD OVRRIDE-25 TO OVR-SUB-KOUNT UNC MOVE CLEAP-KOUNT TO AWD-OUT UNC ADD CLEAP-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * COLORADO STATE GRANT * *================================================================* UNC IF X = 26 UNC MOVE ERRER-26 TO ERR-OUT UNC ADD ERRER-26 TO ERR-SUB-KOUNT UNC MOVE WARNING-26 TO WAR-OUT UNC ADD WARNING-26 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-26 TO OVR-OUT UNC ADD OVRRIDE-26 TO OVR-SUB-KOUNT UNC MOVE C-SG-KOUNT TO AWD-OUT UNC ADD C-SG-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * WORK STUDY (STATE) * *================================================================* UNC IF X = 27 UNC MOVE ERRER-27 TO ERR-OUT UNC ADD ERRER-27 TO ERR-SUB-KOUNT UNC MOVE WARNING-27 TO WAR-OUT UNC ADD WARNING-27 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-27 TO OVR-OUT UNC ADD OVRRIDE-27 TO OVR-SUB-KOUNT UNC MOVE C-WS-KOUNT TO AWD-OUT UNC ADD C-WS-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * MERIT (UNDERGRAD) * *================================================================* UNC IF X = 28 UNC MOVE ERRER-28 TO ERR-OUT UNC ADD ERRER-28 TO ERR-SUB-KOUNT UNC MOVE WARNING-28 TO WAR-OUT UNC ADD WARNING-28 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-28 TO OVR-OUT UNC ADD OVRRIDE-28 TO OVR-SUB-KOUNT UNC MOVE UG-M-KOUNT TO AWD-OUT UNC ADD UG-M-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * GRADUATE GRANT * *================================================================* UNC IF X = 29 UNC MOVE ERRER-29 TO ERR-OUT UNC ADD ERRER-29 TO ERR-SUB-KOUNT UNC MOVE WARNING-29 TO WAR-OUT UNC ADD WARNING-29 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-29 TO OVR-OUT UNC ADD OVRRIDE-29 TO OVR-SUB-KOUNT UNC MOVE GRGR-KOUNT TO AWD-OUT UNC ADD GRGR-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * GRADUATE FELLOWSHIP * *================================================================* UNC IF X = 30 UNC MOVE ERRER-30 TO ERR-OUT UNC ADD ERRER-30 TO ERR-SUB-KOUNT UNC MOVE WARNING-30 TO WAR-OUT UNC ADD WARNING-30 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-30 TO OVR-OUT UNC ADD OVRRIDE-30 TO OVR-SUB-KOUNT UNC MOVE GRFL-KOUNT TO AWD-OUT UNC ADD GRFL-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * FILLER * *================================================================* UNC IF X = 31 UNC MOVE 'FILLER' TO CON-OUT UNC MOVE SPACES TO ERROR-OUT UNC MOVE SPACES TO WARNING-OUT UNC MOVE SPACES TO OVRRIDE-OUT UNC MOVE SPACES TO AWARD-OUT UNC MOVE 'RESERVED FOR FUTURE USE' TO COMMENT-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * COLORADO NURSE * *================================================================* UNC IF X = 32 UNC MOVE ERRER-32 TO ERR-OUT UNC ADD ERRER-32 TO ERR-SUB-KOUNT UNC MOVE WARNING-32 TO WAR-OUT UNC ADD WARNING-32 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-32 TO OVR-OUT UNC ADD OVRRIDE-32 TO OVR-SUB-KOUNT UNC MOVE NURSE-KOUNT TO AWD-OUT UNC ADD NURSE-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * COLORADO CATEGORICAL * *================================================================* UNC IF X = 33 UNC MOVE ERRER-33 TO ERR-OUT UNC ADD ERRER-33 TO ERR-SUB-KOUNT UNC MOVE WARNING-33 TO WAR-OUT UNC ADD WARNING-33 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-33 TO OVR-OUT UNC ADD OVRRIDE-33 TO OVR-SUB-KOUNT UNC MOVE CAT-KOUNT TO AWD-OUT UNC ADD CAT-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * FILLER * *================================================================* UNC IF X = 34 UNC MOVE 'FILLER' TO CON-OUT UNC MOVE SPACES TO ERROR-OUT UNC MOVE SPACES TO WARNING-OUT UNC MOVE SPACES TO OVRRIDE-OUT UNC MOVE SPACES TO AWARD-OUT UNC MOVE 'RESERVED FOR FUTURE USE' TO COMMENT-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * INSTITUTIONAL SCHOLARSHIP * *================================================================* UNC IF X = 35 UNC PERFORM D010-PRINT-SUBTOTALS THRU D010-EXIT UNC PERFORM D001-PRINT-HEADINGS THRU D001-EXIT UNC MOVE ERRER-35 TO ERR-OUT UNC ADD ERRER-35 TO ERR-SUB-KOUNT UNC MOVE WARNING-35 TO WAR-OUT UNC ADD WARNING-35 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-35 TO OVR-OUT UNC ADD OVRRIDE-35 TO OVR-SUB-KOUNT UNC MOVE I-SC-KOUNT TO AWD-OUT UNC ADD I-SC-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * FILLER * *================================================================* UNC IF X = 36 UNC MOVE 'FILLER' TO CON-OUT UNC MOVE SPACES TO ERROR-OUT UNC MOVE SPACES TO WARNING-OUT UNC MOVE SPACES TO OVRRIDE-OUT UNC MOVE SPACES TO AWARD-OUT UNC MOVE 'RESERVED FOR FUTURE USE' TO COMMENT-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * INSTITUTIONAL FUND #1 * *================================================================* UNC IF X = 37 UNC MOVE ERRER-37 TO ERR-OUT UNC ADD ERRER-37 TO ERR-SUB-KOUNT UNC MOVE WARNING-37 TO WAR-OUT UNC ADD WARNING-37 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-37 TO OVR-OUT UNC ADD OVRRIDE-37 TO OVR-SUB-KOUNT UNC MOVE IF-1-KOUNT TO AWD-OUT UNC ADD IF-1-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * INSTITUTIONAL FUND #2 * *================================================================* UNC IF X = 38 UNC MOVE ERRER-38 TO ERR-OUT UNC ADD ERRER-38 TO ERR-SUB-KOUNT UNC MOVE WARNING-38 TO WAR-OUT UNC ADD WARNING-38 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-38 TO OVR-OUT UNC ADD OVRRIDE-38 TO OVR-SUB-KOUNT UNC MOVE IF-2-KOUNT TO AWD-OUT UNC ADD IF-2-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * OTHER SCHOLARSHIP * *================================================================* UNC IF X = 39 UNC MOVE ERRER-39 TO ERR-OUT UNC ADD ERRER-39 TO ERR-SUB-KOUNT UNC MOVE WARNING-39 TO WAR-OUT UNC ADD WARNING-39 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-39 TO OVR-OUT UNC ADD OVRRIDE-39 TO OVR-SUB-KOUNT UNC MOVE O-SC-KOUNT TO AWD-OUT UNC ADD O-SC-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * STAFFORD (SUB) LOAN * *================================================================* UNC IF X = 40 UNC MOVE ERRER-40 TO ERR-OUT UNC ADD ERRER-40 TO ERR-SUB-KOUNT UNC MOVE WARNING-40 TO WAR-OUT UNC ADD WARNING-40 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-40 TO OVR-OUT UNC ADD OVRRIDE-40 TO OVR-SUB-KOUNT UNC MOVE STAFFORD-KOUNT TO AWD-OUT UNC ADD STAFFORD-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * PLUS LOAN * *================================================================* UNC IF X = 41 UNC MOVE ERRER-41 TO ERR-OUT UNC ADD ERRER-41 TO ERR-SUB-KOUNT UNC MOVE WARNING-41 TO WAR-OUT UNC ADD WARNING-41 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-41 TO OVR-OUT UNC ADD OVRRIDE-41 TO OVR-SUB-KOUNT UNC MOVE PLSLN-KOUNT TO AWD-OUT UNC ADD PLSLN-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * STAFFORD (UNSUB) LOAN * *================================================================* UNC IF X = 42 UNC MOVE ERRER-42 TO ERR-OUT UNC ADD ERRER-42 TO ERR-SUB-KOUNT UNC MOVE WARNING-42 TO WAR-OUT UNC ADD WARNING-42 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-42 TO OVR-OUT UNC ADD OVRRIDE-42 TO OVR-SUB-KOUNT UNC MOVE STAFF-UN-KOUNT TO AWD-OUT UNC ADD STAFF-UN-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * LOAN (FEDERAL) * *================================================================* UNC IF X = 43 UNC MOVE ERRER-43 TO ERR-OUT UNC ADD ERRER-43 TO ERR-SUB-KOUNT UNC MOVE WARNING-43 TO WAR-OUT UNC ADD WARNING-43 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-43 TO OVR-OUT UNC ADD OVRRIDE-43 TO OVR-SUB-KOUNT UNC MOVE LN-F-KOUNT TO AWD-OUT UNC ADD LN-F-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * LOAN (OTHER) * *================================================================* UNC IF X = 44 UNC MOVE ERRER-44 TO ERR-OUT UNC ADD ERRER-44 TO ERR-SUB-KOUNT UNC MOVE WARNING-44 TO WAR-OUT UNC ADD WARNING-44 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-44 TO OVR-OUT UNC ADD OVRRIDE-44 TO OVR-SUB-KOUNT UNC MOVE LN-O-KOUNT TO AWD-OUT UNC ADD LN-O-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * FILLER * *================================================================* UNC IF X = 45 UNC MOVE 'FILLER' TO CON-OUT UNC MOVE SPACES TO ERROR-OUT UNC MOVE SPACES TO WARNING-OUT UNC MOVE SPACES TO OVRRIDE-OUT UNC MOVE SPACES TO AWARD-OUT UNC MOVE 'RESERVED FOR FUTURE USE' TO COMMENT-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * OVERRIDE #1 (PRIMARY) * *================================================================* UNC IF X = 46 UNC MOVE SPACES TO ERROR-OUT UNC MOVE SPACES TO WARNING-OUT UNC MOVE SPACES TO OVRRIDE-OUT UNC MOVE SPACES TO AWARD-OUT UNC MOVE '*** NOT EDITTED ***' TO COMMENT-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * OVERRIDE #2 (SECONDARY) * *================================================================* UNC IF X = 47 UNC MOVE SPACES TO ERROR-OUT UNC MOVE SPACES TO WARNING-OUT UNC MOVE SPACES TO OVRRIDE-OUT UNC MOVE SPACES TO AWARD-OUT UNC MOVE '*** NOT EDITTED ***' TO COMMENT-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * RESOURCES (PARENT CONTRIBUTION) ** EFC ** * *================================================================* UNC IF X = 48 UNC PERFORM D010-PRINT-SUBTOTALS THRU D010-EXIT UNC PERFORM D001-PRINT-HEADINGS THRU D001-EXIT UNC MOVE 'FILLER' TO CON-OUT UNC MOVE SPACES TO ERROR-OUT UNC MOVE SPACES TO WARNING-OUT UNC MOVE SPACES TO OVRRIDE-OUT UNC MOVE SPACES TO AWARD-OUT UNC MOVE 'RESERVED FOR FUTURE USE' TO COMMENT-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * GOVERNOR OPPORTUNITY SCHOLARSHIP (GOS) * *================================================================* UNC IF X = 49 UNC MOVE ERRER-49 TO ERR-OUT UNC ADD ERRER-49 TO ERR-SUB-KOUNT UNC MOVE WARNING-49 TO WAR-OUT UNC ADD WARNING-49 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-49 TO OVR-OUT UNC ADD OVRRIDE-49 TO OVR-SUB-KOUNT UNC MOVE GOS-KOUNT TO AWD-OUT UNC ADD GOS-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * FILLER * *================================================================* UNC IF X = 50 UNC MOVE 'FILLER' TO CON-OUT UNC MOVE SPACES TO ERROR-OUT UNC MOVE SPACES TO WARNING-OUT UNC MOVE SPACES TO OVRRIDE-OUT UNC MOVE SPACES TO AWARD-OUT UNC MOVE 'RESERVED FOR FUTURE USE' TO COMMENT-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * HOUSEHOLD SIZE * *================================================================* UNC IF X = 51 UNC MOVE ERRER-51 TO ERR-OUT UNC ADD ERRER-51 TO ERR-SUB-KOUNT UNC MOVE WARNING-51 TO WAR-OUT UNC ADD WARNING-51 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-51 TO OVR-OUT UNC ADD OVRRIDE-51 TO OVR-SUB-KOUNT UNC MOVE SPACES TO AWARD-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * NUMBER IN COLLEGE * *================================================================* UNC IF X = 52 UNC MOVE ERRER-52 TO ERR-OUT UNC ADD ERRER-52 TO ERR-SUB-KOUNT UNC MOVE WARNING-52 TO WAR-OUT UNC ADD WARNING-52 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-52 TO OVR-OUT UNC ADD OVRRIDE-52 TO OVR-SUB-KOUNT UNC MOVE SPACES TO AWARD-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * FILLER * *================================================================* UNC IF X = 53 UNC MOVE 'FILLER' TO CON-OUT UNC MOVE SPACES TO ERROR-OUT UNC MOVE SPACES TO WARNING-OUT UNC MOVE SPACES TO OVRRIDE-OUT UNC MOVE SPACES TO AWARD-OUT UNC MOVE 'RESERVED FOR FUTURE USE' TO COMMENT-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * SLEAP * *================================================================* UNC IF X = 54 UNC MOVE ERRER-54 TO ERR-OUT UNC ADD ERRER-54 TO ERR-SUB-KOUNT UNC MOVE WARNING-54 TO WAR-OUT UNC ADD WARNING-54 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-54 TO OVR-OUT UNC ADD OVRRIDE-54 TO OVR-SUB-KOUNT UNC MOVE SLEAP-KOUNT TO AWD-OUT UNC ADD SLEAP-KOUNT TO AWD-SUB-KOUNT UNC GO TO C030-PRINT-MATRIX. *================================================================* * GPA MERIT SELECTION * *================================================================* UNC IF X = 55 UNC MOVE ERRER-55 TO ERR-OUT UNC ADD ERRER-55 TO ERR-SUB-KOUNT UNC MOVE WARNING-55 TO WAR-OUT UNC ADD WARNING-55 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-55 TO OVR-OUT UNC ADD OVRRIDE-55 TO OVR-SUB-KOUNT UNC MOVE SPACES TO AWARD-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * VETERANS BENEFITS * *================================================================* UNC IF X = 56 UNC MOVE ERRER-56 TO ERR-OUT UNC ADD ERRER-56 TO ERR-SUB-KOUNT UNC MOVE WARNING-56 TO WAR-OUT UNC ADD WARNING-56 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-56 TO OVR-OUT UNC ADD OVRRIDE-56 TO OVR-SUB-KOUNT UNC MOVE SPACES TO AWARD-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * FAFSA FLAG * *================================================================* UNC IF X = 57 UNC MOVE ERRER-57 TO ERR-OUT UNC ADD ERRER-57 TO ERR-SUB-KOUNT UNC MOVE WARNING-57 TO WAR-OUT UNC ADD WARNING-57 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-57 TO OVR-OUT UNC ADD OVRRIDE-57 TO OVR-SUB-KOUNT UNC MOVE SPACES TO AWARD-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * FILLER * *================================================================* UNC IF X = 58 UNC MOVE 'FILLER' TO CON-OUT UNC MOVE SPACES TO ERROR-OUT UNC MOVE SPACES TO WARNING-OUT UNC MOVE SPACES TO OVRRIDE-OUT UNC MOVE SPACES TO AWARD-OUT UNC MOVE 'RESERVED FOR FUTURE USE' TO COMMENT-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * EXCEPTION FLAG * *================================================================* UNC IF X = 59 UNC MOVE SPACES TO ERROR-OUT UNC MOVE SPACES TO WARNING-OUT UNC MOVE SPACES TO OVRRIDE-OUT UNC MOVE SPACES TO AWARD-OUT UNC MOVE '*** NOT EDITTED ***' TO COMMENT-OUT UNC GO TO C030-PRINT-MATRIX. *================================================================* * OVERAWARD BASED ON NEED * *================================================================* UNC IF X = 60 UNC MOVE ERRER-60 TO ERR-OUT UNC ADD ERRER-60 TO ERR-SUB-KOUNT UNC MOVE WARNING-60 TO WAR-OUT UNC ADD WARNING-60 TO WAR-SUB-KOUNT UNC MOVE OVRRIDE-60 TO OVR-OUT UNC ADD OVRRIDE-60 TO OVR-SUB-KOUNT UNC MOVE SPACES TO AWARD-OUT. *================================================================* * ACTUAL PRINT OF DATA * *================================================================* UNC C030-PRINT-MATRIX. UNC IF DEBUG-CODE UNC DISPLAY '>>===> C030-PRINT-MATRIX'. WRITE PRINT-LINE FROM E-1 AFTER ADVANCING 1. WRITE PRINT-LINE FROM D-1 AFTER ADVANCING 1. UNC MOVE SPACES TO COMMENT-OUT. UNC MOVE 0 TO ERR-OUT. MOVE 0 TO WAR-OUT. UNC MOVE 0 TO OVR-OUT. UNC MOVE 0 TO AWD-OUT. ADD 2 TO LINE-KOUNT. UNC C030-EXIT. UNC EXIT. UNC C040-PRINT-MEMO-ITEMS. ****************************************************************** *** THIS MODULE MOVES THE FIELD AND THE CORRESPONDING *** *** DESCRIPTION TO THE MEMO-FILE *** *** *** *** RETURNS TO C025-EDIT *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> C040-PRINT-MEMO-ITEMS'. UNC MOVE ID-OUT TO M1-STUDENT-ID. UNC MOVE OR-1 TO M1-CATEGORY. UNC MOVE ' PRIMARY:' TO M1-LITERAL. UNC IF OR-1 = 0 UNC NEXT SENTENCE UNC ELSE UNC IF OR-1 > 0 UNC AND OR-1 < 6 UNC MOVE O-MSG (OR-1) TO M1-DESCRIPTION UNC ELSE UNC IF OR-1 = 8 UNC AND INST-PARM = '9999' UNC MOVE O-MSG (OR-1) TO M1-DESCRIPTION UNC ELSE UNC MOVE '*** UNKNOWN - PROBABLE ERROR ***' UNC TO M1-DESCRIPTION. UNC MOVE OR-2 TO M2-CATEGORY. UNC MOVE 'SECONDARY:' TO M2-LITERAL. UNC IF OR-2 = 0 UNC NEXT SENTENCE UNC ELSE UNC IF OR-2 > 0 UNC AND OR-2 < 6 UNC MOVE O-MSG (OR-2) TO M2-DESCRIPTION UNC ELSE UNC IF OR-2 = 8 UNC AND INST-PARM = '9999' UNC MOVE O-MSG (OR-2) TO M2-DESCRIPTION UNC ELSE UNC MOVE '*** UNKNOWN - PROBABLE ERROR ***' UNC TO M2-DESCRIPTION. UNC PERFORM D029-PRINT-MEMO THRU D029-EXIT. UNC C040-EXIT. UNC EXIT. UNC C050-PRINT-NEED-BASED. ****************************************************************** *** THIS MODULE MOVES NEED-BASED EXCEPTION DATA TO A REPORT *** *** *** *** RETURNS TO C025-EDIT *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> C050-PRINT-NEED-BASED'. UNC IF INST-CD-OUT = INST-CODE-HOLD UNC MOVE SPACES TO N1-INST-CODE UNC ELSE UNC MOVE INST-CD-OUT TO INST-CODE-HOLD UNC N1-INST-CODE. UNC IF H1-INST = INST-NAME-HOLD UNC MOVE SPACES TO N1-INST-NAME UNC ELSE UNC MOVE H1-INST TO INST-NAME-HOLD UNC N1-INST-NAME. UNC MOVE ID-OUT TO N1-STUDENT-ID. UNC MOVE RES-FC TO N1-RES-FC. UNC MOVE PR-NEED-BASED-GRANT TO N1-RES-FC-150-LIMIT. UNC MOVE C-SG TO N1-CSG-AMT. UNC IF (OR-1 = 2 UNC OR OR-2 = 2) UNC MOVE 'OVERRIDE #2' TO N1-COMMENTS UNC ELSE UNC MOVE SPACES TO N1-COMMENTS. UNC PERFORM D030-PRINT-NEED-BASED THRU D030-EXIT. UNC C050-EXIT. UNC EXIT. EJECT D000-PRINT-HEADINGS. ****************************************************************** *** THIS MODULE PRINTS THE REPORT AND COLUMN HEADINGS FOR *** *** THE EXCEPTION LIST. *** *** *** *** RETURNS TO D028-PRINT-EXCEPTION OR C020-PRINT. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D000-PRINT-HEADINGS'. UNC MOVE PAGE-KOUNT TO H1-PAGE. UNC IF DEBUG-CODE UNC DISPLAY '>>+++> PAGE-KOUNT = >' PAGE-KOUNT '<'. WRITE PRINT-LINE FROM H-1 AFTER ADVANCING TOP-OF-PAGE. WRITE PRINT-LINE FROM H-2 AFTER ADVANCING 1. WRITE PRINT-LINE FROM H-3 AFTER ADVANCING 1. WRITE PRINT-LINE FROM H-4 AFTER ADVANCING 2. WRITE PRINT-LINE FROM H-5 AFTER ADVANCING 1. WRITE PRINT-LINE FROM H-6 AFTER ADVANCING 1. WRITE PRINT-LINE FROM H-7 AFTER ADVANCING 1. ADD 1 TO PAGE-KOUNT. MOVE 0 TO LINE-KOUNT. UNC D000-EXIT. UNC EXIT. D001-PRINT-HEADINGS. ****************************************************************** *** THIS MODULE PRINTS THE REPORT HEADINGS ONLY. *** *** *** *** RETURNS TO B030-PRINT-ERR-MATRIX OR C030-PRINT-LINE-ITEMS.*** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D001-PRINT-HEADINGS'. UNC MOVE PAGE-KOUNT TO H1-PAGE. UNC IF DEBUG-CODE UNC DISPLAY '>>+++> PAGE-KOUNT = >' PAGE-KOUNT '<'. WRITE PRINT-LINE FROM H-1 AFTER ADVANCING TOP-OF-PAGE. WRITE PRINT-LINE FROM H-2 AFTER ADVANCING 1. WRITE PRINT-LINE FROM H-3 AFTER ADVANCING 1. UNC IF X = 1 UNC MOVE SPACES TO PRINT-LINE UNC MOVE '*** CORE DATA ***' TO PRINT-LINE UNC WRITE PRINT-LINE AFTER ADVANCING 3 UNC ELSE UNC IF X = 12 UNC MOVE SPACES TO PRINT-LINE UNC MOVE '*** ENROLLMENT DATA ***' TO PRINT-LINE UNC WRITE PRINT-LINE AFTER ADVANCING 3 UNC ELSE UNC IF X = 19 UNC MOVE SPACES TO PRINT-LINE UNC MOVE '*** FEDERAL DATA ***' TO PRINT-LINE UNC WRITE PRINT-LINE AFTER ADVANCING 3 UNC ELSE UNC IF X = 25 UNC MOVE SPACES TO PRINT-LINE UNC MOVE '*** STATE DATA ***' TO PRINT-LINE UNC WRITE PRINT-LINE AFTER ADVANCING 3 UNC ELSE UNC IF X = 35 UNC MOVE SPACES TO PRINT-LINE UNC MOVE '*** OTHER DATA ***' TO PRINT-LINE UNC WRITE PRINT-LINE AFTER ADVANCING 3 UNC ELSE UNC IF X = 48 UNC MOVE SPACES TO PRINT-LINE UNC MOVE '*** MISCELLANEOUS DATA ***' UNC TO PRINT-LINE UNC WRITE PRINT-LINE AFTER ADVANCING 3 UNC ELSE UNC IF X = 99 UNC MOVE SPACES TO PRINT-LINE UNC MOVE UNC '*** PROCESSING TOTALS ***' UNC TO PRINT-LINE UNC WRITE PRINT-LINE UNC AFTER ADVANCING 3. UNC WRITE PRINT-LINE FROM D-1 AFTER ADVANCING 2. WRITE PRINT-LINE FROM H-10 AFTER ADVANCING 1. WRITE PRINT-LINE FROM D-1 AFTER ADVANCING 1. ADD 1 TO PAGE-KOUNT. MOVE 0 TO LINE-KOUNT. UNC D001-EXIT. UNC EXIT. UNC D002-PRINT-MEMO-HEADINGS. ****************************************************************** *** THIS MODULE PRINTS THE REPORT AND COLUMN HEADINGS FOR *** *** THE MEMO (OVERRIDE) REPORT. *** *** *** *** RETURNS TO D029-PRINT-MEMO. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D002-PRINT-MEMO-HEADINGS'. UNC MOVE PAGE-KOUNTM TO H1B-PAGE. UNC MOVE ' MEMO OVERRIDE REPORT' TO H1B-TITLE. UNC WRITE MEMO-LINE FROM H-1B AFTER ADVANCING TOP-OF-PAGE. UNC WRITE MEMO-LINE FROM H-2 AFTER ADVANCING 1. UNC WRITE MEMO-LINE FROM H-3 AFTER ADVANCING 1. UNC WRITE MEMO-LINE FROM H-4B AFTER ADVANCING 2. UNC WRITE MEMO-LINE FROM H-5B AFTER ADVANCING 1. UNC WRITE MEMO-LINE FROM H-6B AFTER ADVANCING 1. UNC ADD 1 TO PAGE-KOUNTM. UNC MOVE 0 TO LINE-KOUNTM. UNC D002-EXIT. UNC EXIT. UNC D003-PRINT-NEED-BASED-HEADINGS. ****************************************************************** *** THIS MODULE PRINTS THE REPORT AND COLUMN HEADINGS FOR *** *** THE NEED-BASED REPORT. *** *** *** *** RETURNS TO D030-PRINT-NEED-BASED. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D003-PRINT-NEED-BASED-HEADINGS'. UNC MOVE PAGE-KOUNTN TO H1C-PAGE. UNC MOVE ' NEED-BASED EXCEPTION REPORT' TO H1C-TITLE. UNC WRITE PRINT-LINE2 FROM H-1C AFTER ADVANCING TOP-OF-PAGE. UNC WRITE PRINT-LINE2 FROM H-2 AFTER ADVANCING 1. UNC WRITE PRINT-LINE2 FROM H-3 AFTER ADVANCING 1. UNC WRITE PRINT-LINE2 FROM H-4C AFTER ADVANCING 2. UNC WRITE PRINT-LINE2 FROM H-5C AFTER ADVANCING 1. UNC WRITE PRINT-LINE2 FROM H-6C AFTER ADVANCING 1. UNC ADD 1 TO PAGE-KOUNTN. UNC MOVE 0 TO LINE-KOUNTN. UNC D003-EXIT. UNC EXIT. UNC D010-PRINT-SUBTOTALS. ****************************************************************** *** PRINTS THE SUBTOTALS FOR THE PRINT MATRIX *** ****************************************************************** UNC MOVE ERR-SUB-KOUNT TO ERR-OUT-SUB. UNC MOVE WAR-SUB-KOUNT TO WAR-OUT-SUB. UNC MOVE OVR-SUB-KOUNT TO OVR-OUT-SUB. UNC MOVE AWD-SUB-KOUNT TO AWD-OUT-SUB. UNC ADD AWD-SUB-KOUNT TO AWD-TOT-KOUNT. UNC WRITE PRINT-LINE FROM E-1S AFTER ADVANCING 3. UNC MOVE 0 TO ERR-SUB-KOUNT. UNC MOVE 0 TO WAR-SUB-KOUNT. UNC MOVE 0 TO OVR-SUB-KOUNT. UNC MOVE 0 TO AWD-SUB-KOUNT. UNC D010-EXIT. UNC EXIT. EJECT D021-CORE-EDIT. ****************************************************************** *** EDITS THE FOLLOWING FIELDS: INST-CD-OUT *** *** REPORT TERM *** *** REPORT YEAR *** *** ID NUMBER *** *** SEX *** *** BIRTH DATE *** *** ETHNICITY *** *** STUDENT LEVEL *** *** TUITION CLASSIFICATION *** *** *** *** RETURNS TO C025-EDIT. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D021-CORE-EDIT'. INSPECT CORE-OUT REPLACING ALL SPACES BY '0'. UNC IF DEBUG-CODE UNC DISPLAY '>>===>' UNC DISPLAY '>>===> INST-CD-OUT = >' INST-CD-OUT '<' UNC DISPLAY '>>===> R-TERM = >' R-TERM '<' UNC DISPLAY '>>===> R-YEAR = >' R-YEAR '<' UNC DISPLAY '>>===> ID-OUT = >' ID-OUT '<' UNC DISPLAY '>>???> ID-HOLD = >' ID-HOLD '<' UNC DISPLAY '>>===> SEX = >' SEX '<' UNC DISPLAY '>>===> BIRTH-DT = >' BIRTH-DT '<' UNC DISPLAY '>>===> ETHN = >' ETHN '<' UNC DISPLAY '>>===> S-LVL = >' S-LVL '<' UNC DISPLAY '>>===> TUIT-CL = >' TUIT-CL '<'. MOVE INST-CD-OUT TO P-ICODE. MOVE R-TERM TO P-TERM. MOVE R-YEAR TO P-YEAR. MOVE ID-OUT TO P-SSN. MOVE SEX TO P-SEX. MOVE B-MO TO P-BIRMO. MOVE B-DAY TO P-BIRDA. MOVE B-YR TO P-BIRYR. MOVE ETHN TO P-ETHNIC. MOVE S-LVL TO P-LEVEL. MOVE TUIT-CL TO P-TUIT. *================================================================* * ERROR IF TERM INVALID * *================================================================* UNC IF R-TERM = ('0' UNC OR '6' UNC OR '7' UNC OR '8') UNC MOVE ER-COND (2) TO EL-3 UNC ADD 1 TO ERRER-3. *================================================================* * ERROR IF YEAR INVALID VALUE OR NOT = PARAMETER YEAR * *================================================================* IF R-YEAR NOT NUMERIC OR (YEAR-OUT NOT = YR-HOLD AND YR-HOLD NOT = 0) UNC MOVE ER-COND (2) TO EL-4 UNC ADD 1 TO ERRER-4. *================================================================* * ERROR IF ID NOT NUMERIC * *================================================================* IF ID-OUT NOT NUMERIC UNC MOVE ER-COND (5) TO EL-5 ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-5 ELSE *================================================================* * ERROR IF ID INVALID VALUE * *================================================================* IF SSN < 1 UNC MOVE ER-COND (4) TO EL-5 ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-5 ELSE *================================================================* * ERROR IF DUPLICATE SSN * *================================================================* IF SSN = ID-HOLD AND TERM-OUT = TERM-HOLD UNC MOVE ER-COND (3) TO EL-5 ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-5 ELSE IF SSN < ID-HOLD UNC MOVE WR-COND (3) TO EL-5 ADD 1 TO WARN-FLAG UNC ADD 1 TO WARNING-5 MOVE SSN TO ID-HOLD MOVE TERM-OUT TO TERM-HOLD ELSE MOVE SSN TO ID-HOLD MOVE TERM-OUT TO TERM-HOLD. *================================================================* * IF FIRST THREE DIGITS OF ID ARE ZEROS, NOT A SOCIAL SECURITY * NUMBER. OUR INSTRUCTIONS STATE THAT ALL ASSIGNED NUMBERS * SHOULD START WITH '9'. *================================================================* IF SSN-3 = '000' MOVE '900' TO SSN-3. *================================================================* * ERROR IF SEX INVALID VALUE * *================================================================* IF SEX NOT = ' ' AND '1' AND '2' AND '0' UNC MOVE ER-COND (4) TO EL-6 ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-6. *================================================================* * ERROR IF BIRTH DATE NOT NUMERIC * *================================================================* IF BIRTH-DT NOT NUMERIC UNC MOVE ER-COND (5) TO EL-7 ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-7 ELSE *================================================================* * ERROR IF BIRTH-DT INVALID VALUE * *================================================================* UNC IF B-MON < 01 UNC OR B-MON > 12 UNC MOVE ER-COND (4) TO EL-7 ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-7 ELSE *================================================================* * WARNING IF COMPUTED AGE IS < 16 OR > 80. * *================================================================* IF (YR-PARM - B-YEAR) < 16 OR (YR-PARM - B-YEAR) > 80 OR B-YEAR > YR-PARM UNC MOVE WR-COND (5) TO EL-7 ADD 1 TO WARN-FLAG UNC ADD 1 TO WARNING-7 ELSE IF BIRTH-DT = '990101' DISPLAY 'BIRTHDATE IS DEFINED WRONG ' SSN. *================================================================* * ERROR IF ETHNICITY NOT NUMERIC * *================================================================* IF ETHN NOT NUMERIC UNC MOVE ER-COND (5) TO EL-8 ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-8 ELSE *================================================================* * ERROR IF ETHNICITY INVALID VALUE * *================================================================* IF ETHNIC > 6 UNC MOVE ER-COND (4) TO EL-8 ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-8 ELSE *================================================================* * ERROR IF IN-STATE TUITION STATUS AND NON-RESIDENT ALIEN. * *================================================================* IF ETHNIC = 1 AND TUIT = 1 UNC MOVE ER-COND (6) TO EL-8, EL-10 ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-8, ERRER-10. *================================================================* * ERROR IF STUDENT LEVEL NOT NUMERIC * *================================================================* IF S-LVL NOT NUMERIC UNC MOVE ER-COND (5) TO EL-9 ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-9 ELSE *================================================================* * ERROR IF STUDENT LEVEL NOT ONE OF THE ACCEPTED VALUES. * *================================================================* IF STUD-LVL NOT = (11 AND 12 AND 13 AND 14 AND 15 AND 19 AND 21 AND 31 AND 32 AND 35 AND 36 AND 39) UNC MOVE ER-COND (4) TO EL-9 ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-9. *================================================================* * ERROR IF TUITION CLASSIFICATION NOT NUMERIC * *================================================================* IF TUIT-CL NOT NUMERIC UNC MOVE ER-COND (5) TO EL-10 ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-10 ELSE *================================================================* * ERROR IF TUITION CLASSIFICATION VALUE OUT OF RANGE * *================================================================* IF TUIT < 1 OR > 2 UNC MOVE ER-COND (4) TO EL-10 ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-10. UNC D021-EXIT. UNC EXIT. EJECT D022-ENRL-EDIT. ****************************************************************** *** EDITS THE FOLLOWING FIELDS: ENROLLMENT CLASSIFICATION *** *** LEGAL CLASSIFICATION *** *** ENROLLMENT DURATION *** *** INCOME *** *** BUDGET AMOUNT *** *** RESOURCES-FC *** *** *** *** RETURNS TO C025-EDIT. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D022-ENRL-EDIT' UNC DISPLAY '>>===>' UNC DISPLAY '>>===> ENR-CLASS = >' ENR-CLASS '<' UNC DISPLAY '>>===> LEG-CLASS = >' LEG-CLASS '<' UNC DISPLAY '>>===> ENR-DURAT = >' ENR-DURAT '<' UNC DISPLAY '>>===> INCOME = >' INCOME '<' UNC DISPLAY '>>===> BUDAMOUNT = >' BUDAMOUNT '<' UNC DISPLAY '>>===>RESOURCES-FC = >' RESOURCES-FC '<'. INSPECT ENR-CLASS REPLACING ALL SPACES BY '0'. INSPECT LEG-CLASS REPLACING ALL SPACES BY '0'. INSPECT ENR-DURAT REPLACING ALL SPACES BY '0'. MOVE ENR-CLASS TO P-ENRL. MOVE LEG-CLASS TO P-LEGL. MOVE ENR-DURAT TO P-DURA. MOVE INCOME TO P-INCM. UNC MOVE BUDAMOUNT TO P-BUDGET. MOVE RESOURCES-FC TO P-RESO-FC. *================================================================* * ERROR IF ENROLLMENT CLASSIFICATION NOT NUMERIC * *================================================================* IF ENR-CLASS NOT NUMERIC MOVE 4 TO ENR MOVE ER-COND (5) TO EL-12 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-12 ELSE *================================================================* * ERROR IF ENROLLMENT CLASSIFICATION INVALID VALUE * *================================================================* IF ENR < 1 OR > 4 MOVE ER-COND (4) TO EL-12 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-12. IF ENR-CLASS = '4' NEXT SENTENCE ELSE *================================================================* * ERROR IF LEGAL CLASSIFICATION NOT NUMERIC * *================================================================* IF LEG-CLASS NOT NUMERIC MOVE '0' TO LEG-CLASS MOVE ER-COND (5) TO EL-13 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-13 ELSE IF NO-NEED-BASED-AWD NEXT SENTENCE ELSE *================================================================* * IF NEED-BASED RECIPIENTS, ERROR IF LEGAL CLASSIFICATION * * NOT '1' OR '2'. * * INCLUDES PELL-ONLY * *================================================================* IF LEG < 1 OR > 2 MOVE ER-COND (4) TO EL-13 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-13. *================================================================* * ERROR IF ENROLLMENT DURATION NOT NUMERIC * *================================================================* IF ENR-DURAT NOT NUMERIC MOVE 0 TO ENR MOVE ER-COND (5) TO EL-14 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-14 ELSE *================================================================* * ERROR IF ENROLLMENT DURATION INVALID VALID * *================================================================* IF DUR < 0 OR > 12 MOVE ER-COND (4) TO EL-14 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-14 ELSE *================================================================* * ERROR IF ENROLLMENT DURATION = 0 AND STUDENT ENROLLED. * *================================================================* IF DUR = 0 AND ENR NOT = 4 MOVE ER-COND (6) TO EL-14, EL-12 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-14, ERRER-12. *================================================================* * ERROR IF INCOME BLANK AND RECIPIENT OF NEED-BASED AID * *================================================================* IF ENR-CLASS = '4' NEXT SENTENCE ELSE IF (NEED-BASED OR PELL-ONLY-NEED-BASED-AWD) AND INCOME = SPACES MOVE ER-COND (7) TO EL-15 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-15. INSPECT INCOME REPLACING ALL SPACES BY '0'. *================================================================* * ERROR IF INCOME NOT NUMERIC * *================================================================* IF INCOME NOT NUMERIC MOVE ER-COND (5) TO EL-15 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-15. IF ENR-CLASS = '4' NEXT SENTENCE ELSE *================================================================* * ERROR IF BUDGET AMOUNT BLANK AND RECEIVED NEED-BASED AWARDS * * DOES NOT CHECK IF PELL-ONLY * *================================================================* IF NEED-BASED AND BUDAMOUNT = SPACES MOVE 0 TO AMT MOVE ER-COND (7) TO EL-17 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-17 ELSE *================================================================* * ERROR IF BUDGET AMOUNT 0 AND RECEIVED NEED-BASED AWARDS * * DOES NOT CHECK IF PELL-ONLY * *================================================================* IF NEED-BASED AND AMT = 0 MOVE ER-COND (7) TO EL-17 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-17. *================================================================* * ERROR IF RESOURCES-FC BLANK AND APPLICANT OF NEED-BASED AID. * * DOES NOT CHECK IF PELL-ONLY. * *================================================================* IF NEED-BASED AND RESOURCES-FC = SPACES MOVE ER-COND (7) TO EL-18 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-18. INSPECT RESOURCES-FC REPLACING ALL SPACES BY '0'. *================================================================* * ERROR IF RESOURCES-FAMILY CONTRIBUTION NOT NUMERIC * *================================================================* IF RESOURCES-FC NOT NUMERIC MOVE 0 TO RES-FC MOVE ER-COND (5) TO EL-18 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-18 ELSE *================================================================* * ERROR IF RESOURCES-FAMILY CONTRIBUTION INVALID VALUE * *================================================================* IF RES-FC < 0 OR > 999999 MOVE ER-COND (4) TO EL-18 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-18 ELSE *================================================================* * ERROR IF RESOURCES-FC EXCEEDS NEED * * DOES NOT CHECK IF PELL-ONLY * *================================================================* IF NEED-BASED AND AMT > 0 AND RES-FC > AMT MOVE ER-COND (10) TO EL-18, EL-17 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-18, ERRER-17. UNC D022-EXIT. UNC EXIT. EJECT D023-FEDR-EDIT. ****************************************************************** *** EDITS THE FOLLOWING FIELDS: PELL *** *** SEOG *** *** FEDERAL WORK STUDY *** *** PERKINS *** *** OTHER FEDERAL *** *** *** *** RETURNS TO C025-EDIT. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D023-FEDR-EDIT' UNC DISPLAY '>>===>' UNC DISPLAY '>>===> PELL-F = >' PELL-F '<' UNC DISPLAY '>>===> SEOG-F = >' SEOG-F '<' UNC DISPLAY '>>===> WKST-F = >' WKST-F '<' UNC DISPLAY '>>===> PERKINS-F = >' PERKINS-F '<' UNC DISPLAY '>>===> OTHR-F = >' OTHR-F '<'. UNC MOVE PELL-F TO P-AWARD16. UNC MOVE SEOG-F TO P-AWARD17. UNC MOVE WKST-F TO P-AWARD18. UNC MOVE PERKINS-F TO P-AWARD19. UNC MOVE OTHR-F TO P-AWARD20. *================================================================* * ERROR IF PELL NOT NUMERIC * *================================================================* IF PELL-F NOT NUMERIC MOVE ER-COND (5) TO EL-19 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-19 ELSE *================================================================* * ERROR IF PELL EXCEEDS LIMIT DETERMINED BY U.S. DEPT. OF * * EDUCATION * *================================================================* IF PELL < 0 OR > PELL-LIMIT MOVE ER-COND (9) TO EL-19 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-19 ELSE *================================================================* * ERROR IF PELL RECIPIENT IS NON-RESIDENT ALIEN. * *================================================================* IF ETHNIC = 1 AND PELL > 0 UNC MOVE ER-COND (6) TO EL-19, EL-8 ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-19, ERRER-8 ELSE *================================================================* * ERROR IF PELL RECIPIENT IS GRADUATE STUDENT * * NOTE: OVERRIDE CHECK IS PERFORMED FIRST * *================================================================* IF (GR OR STUD-LVL = 39) AND PELL > 0 MOVE ER-COND (6) TO EL-19, EL-9 ADD 1 TO ERR-FLAG2, ERR-FLAG1 ADD 1 TO ERRER-19, ERRER-9. *================================================================* * ERROR IF SEOG NOT NUMERIC * *================================================================* IF SEOG-F NOT NUMERIC MOVE ER-COND (5) TO EL-20 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-20 ELSE *================================================================* * ERROR IF SEOG EXCEEDS LIMIT * *================================================================* IF SEOG < 0 OR > SEOG-LIMIT MOVE ER-COND (9) TO EL-20 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-20 ELSE *================================================================* * ERROR IF SEOG RECIPIENT IS NON-RESIDENT ALIEN. * *================================================================* IF ETHNIC = 1 AND SEOG > 0 UNC MOVE ER-COND (6) TO EL-20, EL-8 ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-20, ERRER-8. *================================================================* * ERROR IF WORK STUDY (FEDERAL) NOT NUMERIC * *================================================================* IF WKST-F NOT NUMERIC MOVE ER-COND (5) TO EL-21 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-21 ELSE *================================================================* * ERROR IF WKST-F RECIPIENT IS NON-RESIDENT ALIEN. * *================================================================* IF ETHNIC = 1 AND WS-F > 0 UNC MOVE ER-COND (6) TO EL-21, EL-8 ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-21, ERRER-8. *================================================================* * ERROR IF PERKINS NOT NUMERIC * *================================================================* IF PERKINS-F NOT NUMERIC MOVE ER-COND (5) TO EL-23 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-23 ELSE *================================================================* * ERROR IF PERKINS EXCEEDS LIMIT * *================================================================* UNC IF (UG UNC AND PERKINS > 4000) UNC OR ((GR OR STUD-LVL = 39) UNC AND PERKINS > 6000) MOVE ER-COND (9) TO EL-23 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-23 ELSE *================================================================* * ERROR IF PERKINS NEGATIVE * *================================================================* IF PERKINS < 0 MOVE ER-COND (9) TO EL-23 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-23 ELSE *================================================================* * ERROR IF PERKINS RECIPIENT IS NON-RESIDENT ALIEN. * *================================================================* IF ETHNIC = 1 AND PERKINS > 0 UNC MOVE ER-COND (6) TO EL-23, EL-8 ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-23, ERRER-8. *================================================================* * ERROR IF OTHER (FEDERAL) NOT NUMERIC * *================================================================* IF OTHR-F NOT NUMERIC MOVE ER-COND (5) TO EL-24 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-24 ELSE *================================================================* * ERROR IF OTHR-F RECIPIENT IS NON-RESIDENT ALIEN. * *================================================================* IF ETHNIC = 1 AND OTHR > 0 UNC MOVE ER-COND (6) TO EL-24, EL-8 ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-24, ERRER-8. UNC D023-EXIT. UNC EXIT. EJECT D024-STATE-EDIT. ****************************************************************** *** EDITS THE FOLLOWING FIELDS: CLEAP *** *** COLORADO STATE GRANT *** *** WORK STUDY (STATE) *** *** MERIT (UNDERGRADUATE) *** *** GRADUATE GRANT *** *** GRADUATE FELLOWSHIP *** *** COLOADO NURSING GRANT *** *** COLOADO CATEGORICAL GRANT *** *** *** *** RETURNS TO C025-EDIT. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D024-STATE-EDIT' UNC DISPLAY '>>===>' UNC DISPLAY '>>===> CLEAP-S = >' CLEAP-S '<' UNC DISPLAY '>>===> CSGRANT = >' CSGRANT '<' UNC DISPLAY '>>===> WKST-S = >' WKST-S '<' UNC DISPLAY '>>===> UGMERIT = >' UGMERIT '<' UNC DISPLAY '>>===> GRGRANT = >' GRGRANT '<' UNC DISPLAY '>>===> GRFELL = >' GRFELL '<' UNC DISPLAY '>>===> CONURSE = >' CONURSE '<' UNC DISPLAY '>>===> COCAT = >' COCAT '<'. UNC DISPLAY '>>===> GOS-S = >' GOS-S '<' UNC DISPLAY '>>===> SLEAP-S = >' SLEAP-S '<'. UNC MOVE CLEAP-S TO P-AWARD21. UNC MOVE CSGRANT TO P-AWARD22. UNC MOVE WKST-S TO P-AWARD23. UNC MOVE UGMERIT TO P-AWARD24. UNC MOVE GRGRANT TO P-AWARD25. UNC MOVE GRFELL TO P-AWARD26. UNC MOVE CONURSE TO P-AWARD27. UNC MOVE COCAT TO P-AWARD28. UNC MOVE GOS-S TO P-AWARD38. UNC MOVE SLEAP-S TO P-AWARD40. *================================================================* * ERROR IF CLEAP NOT NUMERIC * *================================================================* IF CLEAP-S NOT NUMERIC MOVE ER-COND (5) TO EL-25 ADD 1 TO ERR-FLAG2 ADD 1 TO ERRER-25 ELSE IF CLEAP = 0 NEXT SENTENCE ELSE *================================================================* * ERROR IF CLEAP EXCEEDS LIMIT * *================================================================* IF CLEAP < 0 OR > CLEAP-LIMIT MOVE ER-COND (9) TO EL-25 ADD 1 TO ERR-FLAG2 ADD 1 TO ERRER-25 ELSE *================================================================* * ERROR IF CLEAP NEED PARAMETERS DO NOT MEET REQUIREMENTS * * NOTE: OVERRIDE CHECK IS PERFORMED FIRST * *================================================================* IF CLEAP > 0 AND ENROLLED AND ((DUR = 0) OR (((AMT - RES-FC) / DUR) < 100)) MOVE ER-COND (9) TO EL-25 ADD 1 TO ERR-FLAG2 ADD 1 TO ERRER-25 ELSE *================================================================* * ERROR IF CLEAP RECIPIENT IS GRADUATE STUDENT * *================================================================* IF (GR OR STUD-LVL = 39) AND CLEAP > 0 UNC MOVE ER-COND (6) TO EL-25, EL-9 ADD 1 TO ERR-FLAG2, ERR-FLAG1 UNC ADD 1 TO ERRER-25, ERRER-9 ELSE *================================================================* * ERROR IF CLEAP RECIPIENT IS OUT-OF-STATE STUDENT. * *================================================================* IF TUIT = 2 AND CLEAP > 0 UNC MOVE ER-COND (6) TO EL-25, EL-10 ADD 1 TO ERR-FLAG2, ERR-FLAG1 UNC ADD 1 TO ERRER-25, ERRER-10 ELSE *================================================================* * ERROR IF CLEAP RECIPIENT IS NON-RESIDENT ALIEN. * *================================================================* IF ETHNIC = 1 AND CLEAP > 0 UNC MOVE ER-COND (6) TO EL-25, EL-8 ADD 1 TO ERR-FLAG2, ERR-FLAG1 UNC ADD 1 TO ERRER-25, ERRER-8. *================================================================* * ERROR IF COLORADO STATE GRANT NOT NUMERIC * *================================================================* IF CSGRANT NOT NUMERIC MOVE ER-COND (5) TO EL-26 ADD 1 TO ERR-FLAG2 ADD 1 TO ERRER-26 ELSE *================================================================* * ERROR IF CSG NOT BLANK AND < 0 OR > CS-GRANT-LIMIT. * *================================================================* IF C-SG < 0 OR > CS-GRANT-LIMIT MOVE ER-COND (9) TO EL-26 ADD 1 TO ERR-FLAG2 ADD 1 TO ERRER-26 ELSE *================================================================* * ERROR IF CSG RECIPIENT IS GRADUATE STUDENT. * *================================================================* IF GR AND C-SG > 0 UNC MOVE ER-COND (6) TO EL-26, EL-9 ADD 1 TO ERR-FLAG2, ERR-FLAG1 UNC ADD 1 TO ERRER-26, ERRER-9 ELSE *================================================================* * ERROR IF CSG RECIPIENT IS OUT-OF-STATE STUDENT. * *================================================================* IF TUIT = 2 AND C-SG > 0 UNC MOVE ER-COND (6) TO EL-26, EL-10 ADD 1 TO ERR-FLAG2, ERR-FLAG1 UNC ADD 1 TO ERRER-26, ERRER-10 ELSE *================================================================* * ERROR IF CSG RECIPIENT IS NON-RESIDENT ALIEN. * *================================================================* IF ETHNIC = 1 AND C-SG > 0 UNC MOVE ER-COND (6) TO EL-26, EL-8 ADD 1 TO ERR-FLAG2, ERR-FLAG1 UNC ADD 1 TO ERRER-26, ERRER-8. *================================================================* * ERROR IF EFC > 150% OF PELL AND CSG > 0 * *================================================================* UNC IF RES-FC > PR-NEED-BASED-GRANT UNC IF C-SG > 0 UNC MOVE ER-COND (13) TO EL-26, EL-18 UNC ADD 1 TO ERR-FLAG2, ERR-FLAG1 UNC ADD 1 TO ERRER-26, ERRER-18 UNC PERFORM C050-PRINT-NEED-BASED THRU C050-EXIT. *================================================================* * ERROR IF WORK STUDY (STATE) NOT NUMERIC * *================================================================* IF WKST-S NOT NUMERIC MOVE ER-COND (5) TO EL-27 ADD 1 TO ERR-FLAG2 ADD 1 TO ERRER-27 ELSE *================================================================* * ERROR IF WKST-S RECIPIENT IS GRADUATE STUDENT * *================================================================* IF GR AND WS-S > 0 UNC MOVE ER-COND (6) TO EL-27, EL-9 ADD 1 TO ERR-FLAG2, ERR-FLAG1 UNC ADD 1 TO ERRER-27, ERRER-9 ELSE *================================================================* * ERROR IF WKST-S RECIPIENT IS OUT-OF-STATE STUDENT * *================================================================* IF TUIT = 2 AND WS-S > 0 UNC MOVE ER-COND (6) TO EL-27, EL-10 ADD 1 TO ERR-FLAG2, ERR-FLAG1 UNC ADD 1 TO ERRER-27, ERRER-10 ELSE *================================================================* * ERROR IF WKST-S RECIPIENT IS NON-RESIDENT ALIEN. * *================================================================* IF ETHNIC = 1 AND WS-S > 0 UNC MOVE ER-COND (6) TO EL-27, EL-8 ADD 1 TO ERR-FLAG2, ERR-FLAG1 UNC ADD 1 TO ERRER-27, ERRER-8. *================================================================* * ERROR IF UNDERGRAD MERIT NOT NUMERIC * *================================================================* IF UGMERIT NOT NUMERIC MOVE ER-COND (5) TO EL-28 ADD 1 TO ERR-FLAG2 ADD 1 TO ERRER-28 ELSE *================================================================* * ERROR IF UG MERIT RECIPIENT IS GRADUATE STUDENT * *================================================================* IF UG-MERIT > 0 AND GR UNC MOVE ER-COND (6) TO EL-28, EL-9 ADD 1 TO ERR-FLAG2, ERR-FLAG1 UNC ADD 1 TO ERRER-28, ERRER-9 ELSE *================================================================* * ERROR IF UG MERIT RECIPIENT IS NON-RESIDENT ALIEN * *================================================================* IF ETHNIC = 1 AND UG-MERIT > 0 UNC MOVE ER-COND (6) TO EL-28, EL-8 ADD 1 TO ERR-FLAG2, ERR-FLAG1 UNC ADD 1 TO ERRER-28, ERRER-8. *================================================================* * ERROR IF GRADUATE GRANT NOT NUMERIC * *================================================================* IF GRGRANT NOT NUMERIC MOVE ER-COND (5) TO EL-29 ADD 1 TO ERR-FLAG2 ADD 1 TO ERRER-29 ELSE *================================================================* * ERROR IF GRADUATE GRANT > GR-GRANT-LIMIT. * *================================================================* IF GR-GRANT > GR-GRANT-LIMIT MOVE ER-COND (9) TO EL-29 ADD 1 TO ERR-FLAG2 ADD 1 TO ERRER-29 ELSE *================================================================* * ERROR IF GRADUATE GRANT RECIPIENT IS UNDERGRADUATE. * *================================================================* IF GR-GRANT > 0 AND UG UNC MOVE ER-COND (6) TO EL-29, EL-9 ADD 1 TO ERR-FLAG2, ERR-FLAG1 ADD 1 TO ERRER-29, ERRER-9 ELSE *================================================================* * ERROR IF GR-GRT RECIPIENT IS OUT-OF-STATE STUDENT. * *================================================================* IF TUIT = 2 AND GR-GRANT > 0 UNC MOVE ER-COND (6) TO EL-29, EL-10 ADD 1 TO ERR-FLAG2, ERR-FLAG1 UNC ADD 1 TO ERRER-29, ERRER-10 ELSE *================================================================* * ERROR IF GR-GRANT RECIPIENT IS NON-RESIDENT ALIEN. * *================================================================* IF ETHNIC = 1 AND GR-GRANT > 0 UNC MOVE ER-COND (6) TO EL-29, EL-8 ADD 1 TO ERR-FLAG2, ERR-FLAG1 UNC ADD 1 TO ERRER-29, ERRER-8. *================================================================* * ERROR IF GRADUATE FELLOWSHIP NOT NUMERIC * *================================================================* IF GRFELL NOT NUMERIC MOVE ER-COND (5) TO EL-30 ADD 1 TO ERR-FLAG2 ADD 1 TO ERRER-30 ELSE *================================================================* * ERROR IF GRADUATE FELLOWSHIP RECIPIENT IS UNDERGRADUATE * *================================================================* IF GR-FELLOW > 0 AND S-LVL < 21 UNC MOVE ER-COND (6) TO EL-30, EL-9 ADD 1 TO ERR-FLAG2, ERR-FLAG1 UNC ADD 1 TO ERRER-30, ERRER-9. *================================================================* * ERROR IF COLORADO-NURSE NOT NUMERIC * *================================================================* IF CONURSE NOT NUMERIC MOVE ER-COND (5) TO EL-32 ADD 1 TO ERR-FLAG2 ADD 1 TO ERRER-32 ELSE *================================================================* * ERROR IF CO-NURSE RECIPIENT IS NON-RESIDENT ALIEN. * *================================================================* IF ETHNIC = 1 AND CO-NURSE > 0 UNC MOVE ER-COND (6) TO EL-32, EL-8 ADD 1 TO ERR-FLAG2, ERR-FLAG1 UNC ADD 1 TO ERRER-32, ERRER-8. *================================================================* * ERROR IF COLORADO-CAT NOT NUMERIC * *================================================================* IF COCAT NOT NUMERIC MOVE ER-COND (5) TO EL-33 ADD 1 TO ERR-FLAG2 ADD 1 TO ERRER-33. UNC D024-EXIT. UNC EXIT. EJECT D025-INST-EDIT. ****************************************************************** *** EDITS THE FOLLOWING FIELDS: INSTITUTION SCHOLARSHIP *** *** INSTITUTIONAL-1 FUNDS *** *** INSTITUTIONAL-2 FUNDS *** *** OTHER SCHOLARSHIP *** *** STAFFORD - SUBSIDIZED LOAN *** *** PLUS LOAN *** *** STAFFORD - UNSUBSIDIZED LOAN *** *** LOANS - FEDERAL *** *** OTHER LOANS *** *** *** *** RETURNS TO C025-EDIT. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D025-INST-EDIT' UNC DISPLAY '>>===>' UNC DISPLAY '>>===> I-SCHLSH = >' I-SCHLSH '<' UNC DISPLAY '>>===> I-FUND1 = >' I-FUND1 '<' UNC DISPLAY '>>===> I-FUND2 = >' I-FUND2 '<' UNC DISPLAY '>>===> O-SCHLSH = >' O-SCHLSH '<' UNC DISPLAY '>>===> STAFFORD-O = >' STAFFORD-O '<' UNC DISPLAY '>>===> PLSLN = >' PLSLN '<' UNC DISPLAY '>>===> STAFF-UN-O = >' STAFF-UN-O '<' UNC DISPLAY '>>===> LOAN-F = >' LOAN-F '<' UNC DISPLAY '>>===> LOAN-O = >' LOAN-O '<'. UNC MOVE I-SCHLSH TO P-AWARD29 UNC MOVE I-FUND1 TO P-AWARD30 MOVE I-FUND2 TO P-AWARD31 UNC MOVE O-SCHLSH TO P-AWARD32 UNC MOVE STAFFORD-O TO P-AWARD33 UNC MOVE PLSLN TO P-AWARD34 UNC MOVE STAFF-UN-O TO P-AWARD35 UNC MOVE LOAN-F TO P-AWARD36 UNC MOVE LOAN-O TO P-AWARD37. *================================================================* * ERROR IF INSTITUTION SCHOLARSHIP NOT NUMERIC * *================================================================* IF I-SCHLSH NOT NUMERIC MOVE ER-COND (5) TO EL-35 ADD 1 TO ERR-FLAG3 ADD 1 TO ERRER-35. *================================================================* * ERROR IF INSTITUTIONAL-1 FUNDS NOT NUMERIC * *================================================================* IF I-FUND1 NOT NUMERIC MOVE ER-COND (5) TO EL-37 ADD 1 TO ERR-FLAG3 ADD 1 TO ERRER-37. *================================================================* * ERROR IF INSTITUTIONAL-2 FUNDS NOT NUMERIC * *================================================================* IF I-FUND2 NOT NUMERIC MOVE ER-COND (5) TO EL-38 ADD 1 TO ERR-FLAG3 ADD 1 TO ERRER-38. *================================================================* * ERROR IF OTHER SCHOLARSHIP NOT NUMERIC * *================================================================* IF O-SCHLSH NOT NUMERIC MOVE ER-COND (5) TO EL-39 ADD 1 TO ERR-FLAG3 ADD 1 TO ERRER-39. *================================================================* * ERROR IF STAFFORD (SUB) LOAN NOT NUMERIC * *================================================================* IF STAFFORD-O NOT NUMERIC MOVE ER-COND (5) TO EL-40 ADD 1 TO ERR-FLAG3 ADD 1 TO ERRER-40 ELSE *================================================================* * ERROR IF STAFFORD RECIPIENT IS NON-RESIDENT ALIEN. * *================================================================* IF ETHNIC = 1 AND STAFFORD > 0 UNC MOVE ER-COND (6) TO EL-40, EL-8 ADD 1 TO ERR-FLAG3, ERR-FLAG1 UNC ADD 1 TO ERRER-40, ERRER-8 ELSE *================================================================* * NO MORE STAFFORD CHECKS ON PROPRIETARY SCHOOLS. * *================================================================* IF PROP NEXT SENTENCE ELSE *================================================================* * ERROR IF STAFFORD > CURRENT SPECIFIED LOAN LIMITS. * *================================================================* IF (STAFFORD > STAFFORD-UG-LIMIT AND S-LVL < 21) OR (STAFFORD > STAFFORD-GR-LIMIT AND S-LVL > 20) MOVE ER-COND (9) TO EL-40 ADD 1 TO ERR-FLAG3 ADD 1 TO ERRER-40. *================================================================* * ERROR IF PLUS LOAN NOT NUMERIC * *================================================================* IF PLSLN NOT NUMERIC MOVE ER-COND (5) TO EL-41 ADD 1 TO ERR-FLAG3 ADD 1 TO ERRER-41 ELSE *================================================================* * ERROR IF PLUS LOAN RECIPIENT IS NON-RESIDENT ALIEN. * *================================================================* IF ETHNIC = 1 AND PLSLN > 0 UNC MOVE ER-COND (6) TO EL-41, EL-8 ADD 1 TO ERR-FLAG3, ERR-FLAG1 UNC ADD 1 TO ERRER-41, ERRER-8. *================================================================* * ERROR IF STAFFORD (UNSUB) LOAN NOT NUMERIC * *================================================================* IF STAFF-UN-O NOT NUMERIC MOVE ER-COND (5) TO EL-42 ADD 1 TO ERR-FLAG3 ADD 1 TO ERRER-42 ELSE *================================================================* * ERROR IF STAFF-UNSUB RECIPIENT IS NON-RESIDENT ALIEN. * *================================================================* IF ETHNIC = 1 AND STAFF-UN > 0 UNC MOVE ER-COND (6) TO EL-42, EL-8 ADD 1 TO ERR-FLAG3, ERR-FLAG1 UNC ADD 1 TO ERRER-42, ERRER-8. *================================================================* * ERROR IF LOAN (FEDERAL) LOAN NOT NUMERIC * *================================================================* IF LOAN-F NOT NUMERIC MOVE ER-COND (5) TO EL-43 ADD 1 TO ERR-FLAG3 ADD 1 TO ERRER-43. *================================================================* * ERROR IF LOAN (OTHER) LOAN NOT NUMERIC * *================================================================* IF LOAN-O NOT NUMERIC MOVE ER-COND (5) TO EL-44 ADD 1 TO ERR-FLAG3 ADD 1 TO ERRER-44. UNC D025-EXIT. UNC EXIT. EJECT UNC D026-MISC-EDIT. ****************************************************************** *** EDITS THE FOLLOWING FIELDS: GOS *** *** HOUSEHOLD-SIZE *** *** NUMBER-IN-COLLEGE *** *** SLEAP *** *** MERIT-GPA *** *** VETERANS-BENEFITS *** *** FAFSA-FLAG *** *** *** *** RETURNS TO C025-EDIT OR C020-PRINT. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D026-MISC-EDIT' UNC DISPLAY '>>===>'. UNC INSPECT RESOURCES-PC REPLACING ALL SPACES BY '0'. UNC INSPECT GOS-S REPLACING ALL SPACES BY '0'. UNC INSPECT HOUSEHOLD-SIZE REPLACING ALL SPACES BY '0'. UNC INSPECT NUMBER-IN-COLLEGE REPLACING ALL SPACES BY '0'. UNC INSPECT SLEAP REPLACING ALL SPACES BY '0'. UNC INSPECT VETERANS-BENEFITS REPLACING ALL SPACES BY '0'. UNC INSPECT FAFSA-FLAG REPLACING ALL SPACES BY '0'. UNC IF DEBUG-CODE UNC DISPLAY '>>===>RESOURCES-PC = >' RESOURCES-PC '<' UNC DISPLAY '>>===> GOS-S = >' GOS-S '<'. *================================================================* * ERROR IF GOVERNORS OPPORTUNITY SCHOLARSHIP (GOS) NOT NUMERIC * *================================================================* UNC IF GOS-S NOT NUMERIC UNC MOVE ER-COND (5) TO EL-49 UNC ADD 1 TO ERR-FLAG2 UNC ADD 1 TO ERRER-49 UNC ELSE UNC IF GOS = 0 UNC NEXT SENTENCE UNC ELSE *================================================================* * ERROR IF GOS EXCEED LIMIT * *================================================================* UNC IF GOS < 0 UNC OR > GOS-LIMIT UNC MOVE ER-COND (9) TO EL-49 UNC ADD 1 TO ERR-FLAG2 UNC ADD 1 TO ERRER-49 UNC ELSE *================================================================* * ERROR IF GOS RECIPIENT IS GRADUATE STUDENT. * *================================================================* UNC IF (GR OR STUD-LVL = 39) UNC AND GOS > 0 UNC MOVE ER-COND (6) TO EL-49, EL-9 UNC ADD 1 TO ERR-FLAG2, ERR-FLAG1 UNC ADD 1 TO ERRER-47, ERRER-9 UNC ELSE *================================================================* * ERROR IF GOS RECIPIENT IS OUT-OF-STATE STUDENT. * *================================================================* UNC IF TUIT = 2 UNC AND GOS > 0 UNC MOVE ER-COND (6) TO EL-49, EL-10 UNC ADD 1 TO ERR-FLAG2, ERR-FLAG1 UNC ADD 1 TO ERRER-47, ERRER-10 UNC ELSE *================================================================* * ERROR IF GOS RECIPIENT IS NON-RESIDENT ALIEN * *================================================================* UNC IF ETHNIC = 1 UNC AND GOS > 0 UNC MOVE ER-COND (6) TO EL-49, EL-8 UNC ADD 1 TO ERR-FLAG2, ERR-FLAG1 UNC ADD 1 TO ERRER-47, ERRER-8. *================================================================* * DEFAULT VALUES FOR HOUSEHOLD-SIZE AND NUMBER-IN-COLLEGE ARE * * ESTABLISHED HERE PER CCHE IF VALID VALUES NOT PRESENT * *================================================================* UNC IF HOUSEHOLD-SIZE NOT NUMERIC UNC OR HOUSE-SZ = 0 UNC MOVE 2 TO HOUSE-SZ. UNC IF DEBUG-CODE UNC DISPLAY '>>===> HOUSE-SZ = >' HOUSE-SZ '<'. UNC MOVE HOUSEHOLD-SIZE TO P-SIZE. UNC * IF ENR-CLASS = '4' UNC * NEXT SENTENCE UNC * ELSE *================================================================* * ERROR IF HOUSEHOLD-SIZE NOT NUMERIC * * AND/OR HOUSEHOLD-SIZE = 0 WITH SUBMITTED FAFSA * * NOTE: COMMENTED OUT WITH ESTABLISHMENT OF DEFAULT VALUES * *================================================================* UNC * IF (HOUSEHOLD-SIZE NOT NUMERIC UNC * OR HOUSE-SZ = 0) UNC * AND FAFSA-FLAG = '1' UNC * MOVE ER-COND (6) TO EL-51, EL-57 UNC * ADD 1 TO ERR-FLAG1 UNC * ADD 1 TO ERRER-51, ERRER-57. UNC IF DEBUG-CODE UNC DISPLAY '>>===> COLLEGE-NUM = >' COLLEGE-NUM '<'. UNC IF NUMBER-IN-COLLEGE NOT NUMERIC UNC OR COLLEGE-NUM = 0 UNC MOVE 1 TO COLLEGE-NUM. UNC MOVE NUMBER-IN-COLLEGE TO P-NCOL. *================================================================* * ERROR IF NUMBER-IN-COLLEGE NOT NUMERIC * *================================================================* UNC * IF NUMBER-IN-COLLEGE NOT NUMERIC UNC * MOVE ER-COND (5) TO EL-52 UNC * ADD 1 TO ERR-FLAG1 UNC * ADD 1 TO ERRER-52 UNC * ELSE *================================================================* * ERROR IF NUMBER-IN-COLLEGE BLANK AND SUBMITTED FAFSA * *================================================================* UNC * IF COLLEGE-NUM = 0 UNC * AND FAFSA-FLAG = '1' UNC * MOVE ER-COND (6) TO EL-52, EL-57 UNC * ADD 1 TO ERR-FLAG1 UNC * ADD 1 TO ERRER-52, ERRER-57. *================================================================* * ERROR IF SLEAP NOT NUMERIC * *================================================================* UNC IF DEBUG-CODE UNC DISPLAY '>>===> SLEAP-S = >' SLEAP-S '<'. UNC IF SLEAP-S NOT NUMERIC UNC MOVE ER-COND (5) TO EL-54 UNC ADD 1 TO ERR-FLAG2 UNC ADD 1 TO ERRER-54 UNC ELSE UNC IF SLEAP = 0 UNC NEXT SENTENCE UNC ELSE *================================================================* * ERROR IF SLEAP NOT BLANK AND < 0 OR > SLEAP-LIMIT. * *================================================================* UNC IF SLEAP < 0 UNC OR > SLEAP-LIMIT UNC MOVE ER-COND (9) TO EL-54 UNC ADD 1 TO ERR-FLAG2 UNC ADD 1 TO ERRER-54 UNC ELSE *================================================================* * ERROR IF SLEAP NEED PARAMETERS DO NOT MEET REQUIREMENTS. * *================================================================* UNC IF ENROLLED UNC AND ((DUR = 0) UNC OR (((AMT - RES-FC) / DUR) < 100)) UNC MOVE ER-COND (9) TO EL-54 UNC ADD 1 TO ERR-FLAG2 UNC ADD 1 TO ERRER-54 UNC ELSE *================================================================* * ERROR IF SLEAP RECIPIENT IS GRADUATE STUDENT. * *================================================================* UNC IF (GR OR STUD-LVL = 39) UNC AND SLEAP > 0 UNC MOVE ER-COND (6) TO EL-54, EL-9 UNC ADD 1 TO ERR-FLAG2, ERR-FLAG1 UNC ADD 1 TO ERRER-54, ERRER-9 UNC ELSE *================================================================* * ERROR IF SLEAP RECIPIENT IS OUT-OF-STATE STUDENT. * *================================================================* UNC IF TUIT = 2 UNC AND SLEAP > 0 UNC MOVE ER-COND (6) TO EL-54, EL-10 UNC ADD 1 TO ERR-FLAG2, ERR-FLAG1 UNC ADD 1 TO ERRER-48, ERRER-10 UNC ELSE *================================================================* * ERROR IF SLEAP RECIPIENT IS NON-RESIDENT ALIEN. * *================================================================* UNC IF ETHNIC = 1 UNC AND SLEAP > 0 UNC MOVE ER-COND (6) TO EL-54, EL-8 UNC ADD 1 TO ERR-FLAG2, ERR-FLAG1 UNC ADD 1 TO ERRER-48, ERRER-8. *================================================================* * ERROR IF MERIT-GPA NUMERIC AND < 3.000 * *================================================================* UNC IF DEBUG-CODE UNC DISPLAY '>>===> MERIT-GPA = >' MERIT-GPA '<'. UNC IF MERIT-GPA NOT NUMERIC UNC NEXT SENTENCE UNC ELSE UNC IF MERIT-GPA < 3.000 UNC MOVE ER-COND (12) TO EL-55 UNC ADD 1 TO ERR-FLAG3 UNC ADD 1 TO ERRER-55. UNC MOVE MERIT-GPA TO P-AWARD41. *================================================================* * ERROR IF VETERANS-BENEFITS NOT NUMERIC * *================================================================* UNC IF VETERANS-BENEFITS NOT NUMERIC UNC MOVE 0 TO VET-BENEFIT UNC MOVE ER-COND (5) TO EL-56 UNC ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-56 UNC ELSE *================================================================* * ERROR IF VETERANS-BENEFITS INVALID VALUE * *================================================================* UNC IF VET-BENEFIT < 0 UNC OR > 99999 UNC MOVE ER-COND (4) TO EL-56 UNC ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-56. UNC IF DEBUG-CODE UNC DISPLAY '>>===> VET-BENEFIT = >' VET-BENEFIT '<'. UNC MOVE VETERANS-BENEFITS TO P-VET-BENEFIT. *================================================================* * ERROR IF FAFSA-FLAG NOT NUMERIC * *================================================================* UNC IF DEBUG-CODE UNC DISPLAY '>>===> FAFSA-FLAG = >' FAFSA-FLAG '<'. UNC IF FAFSA-FLAG NOT NUMERIC UNC MOVE ER-COND (5) TO EL-57 UNC ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-57 UNC ELSE *================================================================* * ERROR IF FAFSA-FLAG VALUE OUT OF RANGE * *================================================================* UNC IF FAFSA < 1 UNC OR > 2 UNC MOVE ER-COND (4) TO EL-52 UNC ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-52. UNC MOVE FAFSA-FLAG TO P-FAFSA. UNC D026-EXIT. UNC EXIT. EJECT D027-NEED-ANALYSIS. ****************************************************************** *** THIS MODULE CALCULATES THE AMOUNT OF STUDENT NEED BASED *** *** ON THE DIFFERENCE BETWEEN RESOURCES AND BUDGET FOR *** *** STUDENTS WITH NEED-BASED AWARDS ONLY. *** *** *** *** CALLS THE SUM-AWARDS MODULES, DEPENDING ON *** *** ENROLLED/NOT ENROLLED. *** *** *** *** RETURNS TO C025-EDIT OR C020-PRINT. *** ****************************************************************** IF ENR-CLASS NUMERIC AND ENR NOT = 4 UNC PERFORM E021-SUM-AWARDS THRU E021-EXIT ELSE UNC PERFORM E022-SUM-AWARDS THRU E022-EXIT. MOVE SUM-AWARDS TO P-SUM. *================================================================* * TEST TO DETERMINE: * * IF NEED-BASED AWARD, * * IF PELL IS THE ONLY NEED BASED AWARD, OR * * IF NO-NEED BASED AWARDS. * *================================================================* IF (PELL = 0 AND SEOG = 0 AND WS-F = 0 AND PERKINS = 0 AND CLEAP = 0 AND C-SG = 0 AND GR-GRANT = 0 AND STAFFORD = 0 AND SLEAP = 0 AND GOS = 0) MOVE 'NO ' TO IS-THERE-NEED ELSE IF ((PELL > 0) AND (SEOG = 0 AND WS-F = 0 AND PERKINS = 0 AND CLEAP = 0 AND C-SG = 0 AND GR-GRANT = 0 AND STAFFORD = 0 AND SLEAP = 0 AND GOS = 0)) MOVE 'PEL' TO IS-THERE-NEED ELSE MOVE 'YES' TO IS-THERE-NEED. *================================================================* * COMPUTE NEED FOR STUDENTS WITH NEED-BASED AWARDS. * *================================================================* INSPECT RESOURCES-FC REPLACING LEADING SPACES BY '0'. INSPECT BUDAMOUNT REPLACING LEADING SPACES BY '0'. IF NO-NEED-BASED-AWD MOVE 'N/A' TO P-NEED-AMT ELSE IF RESOURCES-FC NOT NUMERIC OR BUDAMOUNT NOT NUMERIC MOVE 0 TO NEED MOVE 'PROB' TO P-NEED-AMT ELSE IF RES-FC > AMT OR RES-FC = AMT MOVE 0 TO NEED MOVE 'NONE' TO P-NEED-AMT ELSE COMPUTE NEED = AMT - RES-FC MOVE NEED TO P-NEED. *================================================================* * PERFORM CHECK FOR OVERAWARDS ON STUDENTS WITH NEED-BASED AWARDS * EXCEPT IF THEY HAVE STAFFORD AND MERIT-ONLY AWARDS, OR * PELL-ONLY *================================================================* INSPECT ENR-CLASS REPLACING ALL SPACES BY '0'. IF PELL-ONLY-NEED-BASED-AWD NEXT SENTENCE ELSE IF ((STAFFORD > 0) AND (SEOG = 0 AND WS-F = 0 AND PERKINS = 0 AND CLEAP = 0 AND C-SG = 0 AND GR-GRANT = 0 AND SLEAP = 0 AND GOS = 0) AND (OTHR > 0 OR WS-S > 0 OR UG-MERIT > 0 OR GR-FELLOW > 0 OR CO-NURSE > 0 OR CO-CAT > 0 OR I-S > 0 OR O-S > 0)) NEXT SENTENCE ELSE IF NEED-BASED AND ENROLLED AND (WS-F > 0 OR WS-S > 0) UNC PERFORM E028-OVERAWARD-CHECK THRU E028-EXIT ELSE IF NEED-BASED AND ENROLLED UNC PERFORM E027-OVERAWARD-CHECK THRU E027-EXIT. MOVE 0 TO NEED, SUM-AWARDS. UNC D027-EXIT. UNC EXIT. EJECT D028-PRINT-EXCEPTION. ****************************************************************** *** THIS MODULE CHECKS FOR HEADINGS CONDITIONS AND PRINTS *** *** THE APPROPRIATE ERROR LINES. *** *** *** *** RETURNS TO C025-EDIT. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D028-PRINT-EXCEPTION'. IF LINE-KOUNT > PAGE-SIZE UNC PERFORM D000-PRINT-HEADINGS THRU D000-EXIT. WRITE PRINT-LINE FROM H-7A AFTER ADVANCING 1. WRITE PRINT-LINE FROM E-2 AFTER ADVANCING 1. IF ERR-FLAG1 > 0 OR WARN-FLAG > 0 WRITE PRINT-LINE FROM E-5 AFTER ADVANCING 1 ADD 1 TO LINE-KOUNT. WRITE PRINT-LINE FROM H-8 AFTER ADVANCING 2. WRITE PRINT-LINE FROM E-3 AFTER ADVANCING 1. IF ERR-FLAG2 > 0 WRITE PRINT-LINE FROM E-6 AFTER ADVANCING 1 ADD 1 TO LINE-KOUNT. WRITE PRINT-LINE FROM H-9 AFTER ADVANCING 2. WRITE PRINT-LINE FROM E-4 AFTER ADVANCING 1. IF ERR-FLAG3 > 0 WRITE PRINT-LINE FROM E-7 AFTER ADVANCING 1 ADD 1 TO LINE-KOUNT. WRITE PRINT-LINE FROM D-2 AFTER ADVANCING 1. ADD 9 TO LINE-KOUNT. MOVE ZERO TO ERR-FLAG1, ERR-FLAG2, ERR-FLAG3. UNC D028-EXIT. UNC EXIT. EJECT UNC D029-PRINT-MEMO. ****************************************************************** *** THIS MODULE CHECKS FOR HEADINGS CONDITIONS AND PRINTS *** *** THE APPROPRIATE ERROR LINES. *** *** *** *** RETURNS TO C025-EDIT. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D029-PRINT-MEMO'. UNC IF LINE-KOUNTM > PAGE-SIZEM UNC PERFORM D002-PRINT-MEMO-HEADINGS THRU D002-EXIT. UNC WRITE MEMO-LINE FROM M-1 AFTER ADVANCING 2. UNC WRITE MEMO-LINE FROM M-2 AFTER ADVANCING 1. UNC ADD 3 TO LINE-KOUNTM. UNC D029-EXIT. UNC EXIT. EJECT UNC D030-PRINT-NEED-BASED. ****************************************************************** *** THIS MODULE CHECKS FOR HEADINGS CONDITIONS AND PRINTS *** *** THE APPROPRIATE NEED-BASED EXCEPTION LINES *** *** *** *** RETURNS TO C025-EDIT. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D030-PRINT-NEED-BASED'. UNC IF INST-OUT = INST-CODE-HOLD UNC ADD 1 TO CSG-EFC-KOUNT UNC ELSE UNC MOVE CSG-EFC-KOUNT TO N2-KOUNT UNC WRITE PRINT-LINE2 FROM N-2 AFTER ADVANCING 2 UNC MOVE ZEROS TO CSG-EFC-KOUNT UNC ADD 1 TO CSG-EFC-KOUNT. UNC IF LINE-KOUNTN > PAGE-SIZEN UNC PERFORM D003-PRINT-NEED-BASED-HEADINGS THRU D003-EXIT. UNC WRITE PRINT-LINE2 FROM N-1 AFTER ADVANCING 1. UNC ADD 1 TO LINE-KOUNTN. UNC D030-EXIT. UNC EXIT. EJECT UNC D035-PROCESS-OVERRIDE. ****************************************************************** *** THIS MODULE CHECKS FOR OVERRIDES TO ERRORR CONDITIONS *** *** IDENTIFIED IN EDIT PARAGRAPHS *** *** *** *** RETURNS TO C025-EDIT. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D035-PROCESS-OVERRIDE' UNC DISPLAY ' =====================' UNC DISPLAY '>>===> SID = >' ID-OUT '<' UNC DISPLAY '>>===> OR-1 = >' OR-1 '<' UNC DISPLAY '>>===> OR-2 = >' OR-2 '<' UNC DISPLAY ' ' UNC DISPLAY '>>===> EL-8 = >' EL-8 '<' UNC DISPLAY '>>===> EL-9 = >' EL-9 '<' UNC DISPLAY '>>===> EL-10 = >' EL-10 '<' UNC DISPLAY '>>===> EL-17 = >' EL-17 '<' UNC DISPLAY '>>===> EL-18 = >' EL-18 '<' UNC DISPLAY '>>===> EL-19 = >' EL-19 '<' UNC DISPLAY '>>===> EL-25 = >' EL-25 '<' UNC DISPLAY '>>===> EL-26 = >' EL-26 '<' UNC DISPLAY '>>===> EL-27 = >' EL-27 '<' UNC DISPLAY '>>===> EL-28 = >' EL-28 '<' UNC DISPLAY '>>===> EL-29 = >' EL-29 '<' UNC DISPLAY '>>===> EL-45 = >' EL-45 '<' UNC DISPLAY '>>===> EL-49 = >' EL-49 '<' UNC DISPLAY '>>===> EL-54 = >' EL-54 '<'. UNC IF OR-1 = 0 UNC AND OR-2 = 0 UNC GO TO D035-EXIT. UNC IF OR-1 = 1 UNC PERFORM D036-OVERRIDE1-1 THRU D036-EXIT1-1. UNC IF OR-1 = 2 UNC PERFORM D036-OVERRIDE1-2 THRU D036-EXIT1-2. UNC IF OR-1 = 3 UNC PERFORM D036-OVERRIDE1-3 THRU D036-EXIT1-3. UNC IF OR-1 = 5 UNC PERFORM D036-OVERRIDE1-5 THRU D036-EXIT1-5. UNC IF OR-2 = 1 UNC PERFORM D037-OVERRIDE2-1 THRU D037-EXIT2-1. UNC IF OR-2 = 2 UNC PERFORM D037-OVERRIDE2-2 THRU D037-EXIT2-2. UNC IF OR-2 = 3 UNC PERFORM D037-OVERRIDE2-3 THRU D037-EXIT2-3. UNC IF OR-2 = 5 UNC PERFORM D037-OVERRIDE2-5 THRU D037-EXIT2-5. UNC D035-EXIT. UNC EXIT. EJECT UNC D036-OVERRIDE1-1. ****************************************************************** *** THIS MODULE CHECKS OVERRIDE 1 (OV-1) = 1 FOR POSSIBLE *** *** OVERRIDE CONDITIONS *** *** *** *** RETURNS TO DO35-PROCESS-OVERRIDE *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D036-OVERRIDE1-1'. UNC IF EL-8 = ER-COND (6) UNC MOVE OV-COND (1) TO EL-8 UNC ADD 1 TO OVRRIDE-8. UNC IF EL-9 = ER-COND (6) UNC MOVE OV-COND (1) TO EL-9 UNC ADD 1 TO OVRRIDE-9. UNC IF EL-10 = ER-COND (6) UNC MOVE OV-COND (1) TO EL-10 UNC ADD 1 TO OVRRIDE-10. UNC IF EL-19 = ER-COND (6) UNC MOVE OV-COND (1) TO EL-19 UNC ADD 1 TO OVRRIDE-19. UNC IF EL-25 = ER-COND (9) UNC MOVE OV-COND (1) TO EL-25 UNC ADD 1 TO OVRRIDE-25. UNC IF EL-26 = ER-COND (6) UNC MOVE OV-COND (1) TO EL-26 UNC ADD 1 TO OVRRIDE-26. UNC IF EL-27 = ER-COND (6) UNC MOVE OV-COND (1) TO EL-27 UNC ADD 1 TO OVRRIDE-27. UNC IF EL-28 = ER-COND (6) UNC MOVE OV-COND (1) TO EL-28 UNC ADD 1 TO OVRRIDE-28. UNC IF EL-29 = ER-COND (6) UNC MOVE OV-COND (1) TO EL-29 UNC ADD 1 TO OVRRIDE-29. UNC D036-EXIT1-1. UNC EXIT. EJECT UNC D036-OVERRIDE1-2. ****************************************************************** *** THIS MODULE CHECKS OVERRIDE 1 (OV-1) = 2 FOR POSSIBLE *** *** OVERRIDE CONDITIONS *** *** *** *** RETURNS TO DO35-PROCESS-OVERRIDE *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D036-OVERRIDE1-2'. UNC IF EL-9 = ER-COND (10) UNC MOVE OV-COND (2) TO EL-9 UNC ADD 1 TO OVRRIDE-9. UNC IF EL-17 = ER-COND (10) UNC MOVE OV-COND (2) TO EL-17 UNC ADD 1 TO OVRRIDE-17. UNC IF EL-18 = ER-COND (6) UNC OR EL-18 = ER-COND (10) UNC OR EL-18 = ER-COND (13) UNC MOVE OV-COND (2) TO EL-18 UNC ADD 1 TO OVRRIDE-18. UNC IF EL-26 = ER-COND (13) UNC MOVE OV-COND (2) TO EL-26 UNC ADD 1 TO OVRRIDE-26. UNC IF EL-45 = ER-COND (8) UNC MOVE OV-COND (2) TO EL-45 UNC ADD 1 TO OVRRIDE-45. UNC D036-EXIT1-2. UNC EXIT. EJECT UNC D036-OVERRIDE1-3. ****************************************************************** *** THIS MODULE CHECKS OVERRIDE 1 (OV-1) = 3 FOR POSSIBLE *** *** OVERRIDE CONDITIONS *** *** *** *** RETURNS TO DO35-PROCESS-OVERRIDE *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D036-OVERRIDE1-3'. UNC IF EL-49 = ER-COND (9) UNC MOVE OV-COND (3) TO EL-49 UNC ADD 1 TO OVRRIDE-49. UNC D036-EXIT1-3. UNC EXIT. EJECT UNC D036-OVERRIDE1-5. ****************************************************************** *** THIS MODULE CHECKS OVERRIDE 1 (OV-1) = 5 FOR POSSIBLE *** *** OVERRIDE CONDITIONS *** *** *** *** RETURNS TO DO35-PROCESS-OVERRIDE *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D036-OVERRIDE1-5'. UNC IF EL-54 = ER-COND (9) UNC MOVE OV-COND (5) TO EL-54 UNC ADD 1 TO OVRRIDE-54. UNC D036-EXIT1-5. UNC EXIT. EJECT UNC D037-OVERRIDE2-1. ****************************************************************** *** THIS MODULE CHECKS OVERRIDE 2 (OV-2) = 1 FOR POSSIBLE *** *** OVERRIDE CONDITIONS *** *** *** *** RETURNS TO DO35-PROCESS-OVERRIDE *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D037-OVERRIDE2-1'. UNC IF EL-8 = ER-COND (6) UNC MOVE OV-COND (1) TO EL-8 UNC ADD 1 TO OVRRIDE-8. UNC IF EL-9 = ER-COND (6) UNC MOVE OV-COND (1) TO EL-9 UNC ADD 1 TO OVRRIDE-9. UNC IF EL-10 = ER-COND (6) UNC MOVE OV-COND (1) TO EL-10 UNC ADD 1 TO OVRRIDE-10. UNC IF EL-19 = ER-COND (6) UNC MOVE OV-COND (1) TO EL-19 UNC ADD 1 TO OVRRIDE-19. UNC IF EL-25 = ER-COND (9) UNC MOVE OV-COND (1) TO EL-25 UNC ADD 1 TO OVRRIDE-25. UNC IF EL-26 = ER-COND (6) UNC MOVE OV-COND (1) TO EL-26 UNC ADD 1 TO OVRRIDE-26. UNC IF EL-27 = ER-COND (6) UNC MOVE OV-COND (1) TO EL-27 UNC ADD 1 TO OVRRIDE-27. UNC IF EL-28 = ER-COND (6) UNC MOVE OV-COND (1) TO EL-28 UNC ADD 1 TO OVRRIDE-28. UNC IF EL-29 = ER-COND (6) UNC MOVE OV-COND (1) TO EL-29 UNC ADD 1 TO OVRRIDE-29. UNC D037-EXIT2-1. UNC EXIT. EJECT UNC D037-OVERRIDE2-2. ****************************************************************** *** THIS MODULE CHECKS OVERRIDE 2 (OV-2) = 2 FOR POSSIBLE *** *** OVERRIDE CONDITIONS *** *** *** *** RETURNS TO DO35-PROCESS-OVERRIDE *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D037-OVERRIDE2-2'. UNC IF EL-9 = ER-COND (10) UNC MOVE OV-COND (2) TO EL-9 UNC ADD 1 TO OVRRIDE-9. UNC IF EL-17 = ER-COND (10) UNC MOVE OV-COND (2) TO EL-17 UNC ADD 1 TO OVRRIDE-17. UNC IF EL-18 = ER-COND (6) UNC OR EL-18 = ER-COND (10) UNC MOVE OV-COND (2) TO EL-18 UNC ADD 1 TO OVRRIDE-18. UNC IF EL-26 = ER-COND (13) UNC MOVE OV-COND (2) TO EL-26 UNC ADD 1 TO OVRRIDE-26. UNC IF EL-45 = ER-COND (8) UNC MOVE OV-COND (2) TO EL-45 UNC ADD 1 TO OVRRIDE-45. UNC D037-EXIT2-2. UNC EXIT. EJECT UNC D037-OVERRIDE2-3. ****************************************************************** *** THIS MODULE CHECKS OVERRIDE 2 (OV-2) = 3 FOR POSSIBLE *** *** OVERRIDE CONDITIONS *** *** *** *** RETURNS TO DO35-PROCESS-OVERRIDE *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D037-OVERRIDE2-3'. UNC IF EL-49 = ER-COND (9) UNC MOVE OV-COND (3) TO EL-49 UNC ADD 1 TO OVRRIDE-49. UNC D037-EXIT2-3. UNC EXIT. EJECT UNC D037-OVERRIDE2-5. ****************************************************************** *** THIS MODULE CHECKS OVERRIDE 2 (OV-2) = 5 FOR POSSIBLE *** *** OVERRIDE CONDITIONS *** *** *** *** RETURNS TO DO35-PROCESS-OVERRIDE *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D037-OVERRIDE2-5'. UNC IF EL-54 = ER-COND (9) UNC MOVE OV-COND (5) TO EL-54 UNC ADD 1 TO OVRRIDE-54. UNC D037-EXIT2-5. UNC EXIT. EJECT UNC D040-CHECK-OVERRIDES. ****************************************************************** *** THIS MODULE CHECKS FOR OVERRIDES AND COUNTS OCCURRENCES. *** *** *** *** RETURNS TO C025-EDIT. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> D040-CHECK-OVERRIDES'. UNC IF OR-1 = 8 UNC AND INST-PARM = '9999' UNC NEXT SENTENCE UNC ELSE UNC IF OR-1 < 1 UNC OR > 8 UNC NEXT SENTENCE UNC ELSE UNC ADD 1 TO OP-KOUNT (OR-1) UNC ADD 1 TO OP-KOUNT (9) UNC UNC IF DEBUG-CODE UNC DISPLAY '>>===> OP-KOUNT (' OR-1 ') = >' UNC OP-KOUNT (OR-1) '<' UNC DISPLAY '>>===> OP-KOUNT (9) = >' OP-KOUNT (9). UNC IF OR-2 = 8 UNC AND INST-PARM = '9999' UNC NEXT SENTENCE UNC ELSE UNC IF OR-2 < 1 UNC OR > 8 UNC NEXT SENTENCE UNC ELSE UNC ADD 1 TO OS-KOUNT (OR-2) UNC ADD 1 TO OS-KOUNT (9) UNC UNC IF DEBUG-CODE UNC DISPLAY '>>===> OS-KOUNT (' OR-2 ') = >' UNC OS-KOUNT (OR-2) '<' UNC DISPLAY '>>===> OS-KOUNT (9) = >' OS-KOUNT (9). UNC D040-EXIT. UNC EXIT. EJECT E010-SEARCH-I-TABLE. ****************************************************************** *** THIS MODULE SEARCHES THE INSTITUTION TABLE SEQUENTIALLY *** *** AND MOVES THE INSTITUTION NAME TO THE REPORT HEADER. *** *** *** *** RETURNS TO B010-CHECK. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> E010-SEARCH-I-TABLE'. SET I TO 1. SEARCH I-TABLE UNC AT END MOVE SPACES TO H1-INST UNC H1B-INST UNC N2-INST-NAME MOVE ER-COND (1) TO EL-2 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-2 WHEN INST-CD-OUT = I-CODE (I) UNC MOVE I-NAME (I) TO H1-INST UNC H1B-INST UNC N2-INST-NAME. UNC E010-EXIT. UNC EXIT. EJECT E011-DETERMINE-INST-TYPE. ****************************************************************** *** THIS MODULE DETERMINES TYPE OF INSTITUTION *** *** *** *** RETURNS TO B010-CHECK. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> E011-DETERMINE-INST-TYPE'. IF INST-CD-OUT = ('0496' OR '0500' OR '0502' OR '0504' OR '0510' OR '0518' OR '0519' OR '0524' OR '0532' OR '0533' OR '0535' OR '0536' OR '6057') MOVE '4' TO INSTITUTION-TYPE ELSE IF INST-CD-OUT = ('0491' OR '0492' OR '0497' OR '0501' OR '0505' OR '0507' OR '0508' OR '0509' OR '0511' OR '0514' OR '0520' OR '0522' OR '0525' OR '0528' OR '0544') MOVE '2' TO INSTITUTION-TYPE ELSE IF INST-CD-OUT = ('0494' OR '5124' OR '5127' OR '6109' OR '6326' OR '6415' OR '6545') MOVE 'A' TO INSTITUTION-TYPE ELSE IF INST-CD-OUT = ('0498' OR '0516' OR '0526' OR '0534') MOVE '3' TO INSTITUTION-TYPE ELSE MOVE 'P' TO INSTITUTION-TYPE. UNC E011-EXIT. UNC EXIT. EJECT E021-SUM-AWARDS. ****************************************************************** *** THIS MODULE ADDS TOTAL OF ALL DOLLARS AWARDED, *** *** INCREMENTS KOUNT OF NO. RECIPIENTS PER AWARD. *** *** *** *** RETURNS TO D027-NEED-ANALYSIS *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> E021-SUM-AWARDS'. MOVE 0 TO SUM-AWARDS. IF PELL-F NUMERIC ADD PELL TO SUM-AWARDS, FEDR-DOL IF PELL > 0 ADD 1 TO PELL-KOUNT. IF SEOG-F NUMERIC ADD SEOG TO SUM-AWARDS, FEDR-DOL IF SEOG > 0 ADD 1 TO SEOG-KOUNT. IF WKST-F NUMERIC ADD WS-F TO SUM-AWARDS, FEDR-DOL IF WS-F > 0 ADD 1 TO F-WS-KOUNT. IF PERKINS-F NUMERIC ADD PERKINS TO SUM-AWARDS, FEDR-DOL, LOAN-DOL IF PERKINS > 0 ADD 1 TO PERKINS-KOUNT. IF OTHR-F NUMERIC ADD OTHR TO SUM-AWARDS, FEDR-DOL IF OTHR > 0 ADD 1 TO F-OT-KOUNT. IF CLEAP-S NUMERIC ADD CLEAP TO SUM-AWARDS, STAT-DOL IF CLEAP > 0 ADD CLEAP TO CLEAP-DOL ADD 1 TO CLEAP-KOUNT. IF CSGRANT NUMERIC ADD C-SG TO SUM-AWARDS, STAT-DOL IF C-SG > 0 ADD 1 TO C-SG-KOUNT. IF WKST-S NUMERIC ADD WS-S TO SUM-AWARDS, STAT-DOL IF WS-S > 0 ADD 1 TO C-WS-KOUNT. IF UGMERIT NUMERIC ADD UG-MERIT TO SUM-AWARDS, STAT-DOL IF UG-MERIT > 0 ADD 1 TO UG-M-KOUNT. IF GRGRANT NUMERIC ADD GR-GRANT TO SUM-AWARDS, STAT-DOL IF GR-GRANT > 0 ADD 1 TO GRGR-KOUNT. IF GRFELL NUMERIC ADD GR-FELLOW TO SUM-AWARDS, STAT-DOL IF GR-FELLOW > 0 ADD 1 TO GRFL-KOUNT. IF CONURSE NUMERIC ADD CO-NURSE TO SUM-AWARDS, STAT-DOL IF CO-NURSE > 0 ADD 1 TO NURSE-KOUNT. IF COCAT NUMERIC ADD CO-CAT TO SUM-AWARDS, STAT-DOL IF CO-CAT > 0 ADD 1 TO CAT-KOUNT. IF I-SCHLSH NUMERIC ADD I-S TO SUM-AWARDS, OTHR-DOL IF I-S > 0 ADD 1 TO I-SC-KOUNT. *================================================================* * INSTITUTIONAL EMPLOYMENT IS NOT ADDED TO SUM-AWARDS * *================================================================* IF I-FUND1 NUMERIC ADD I-1 TO SUM-AWARDS, OTHR-DOL IF I-1 > 0 ADD 1 TO IF-1-KOUNT. IF I-FUND2 NUMERIC ADD I-2 TO SUM-AWARDS, OTHR-DOL IF I-2 > 0 ADD 1 TO IF-2-KOUNT. IF O-SCHLSH NUMERIC ADD O-S TO SUM-AWARDS, OTHR-DOL IF O-S > 0 ADD 1 TO O-SC-KOUNT. IF STAFFORD-O NUMERIC IF STAFFORD > 0 ADD STAFFORD TO SUM-AWARDS, LOAN-DOL ADD 1 TO STAFFORD-KOUNT. *================================================================* * PLUS LOAN IS NOT ADDED TO SUM-AWARDS. * *================================================================* IF PLSLN NUMERIC ADD PLSLN TO LOAN-DOL IF PLSLN > 0 ADD 1 TO PLSLN-KOUNT. IF STAFF-UN-O NUMERIC ADD STAFF-UN TO LOAN-DOL IF STAFF-UN > 0 ADD 1 TO STAFF-UN-KOUNT. IF LOAN-F NUMERIC ADD FL-1 TO SUM-AWARDS, LOAN-DOL IF FL-1 > 0 ADD 1 TO LN-F-KOUNT. IF LOAN-O NUMERIC ADD OL-1 TO LOAN-DOL IF OL-1 > 0 ADD 1 TO LN-O-KOUNT. UNC IF SLEAP-S NUMERIC UNC ADD SLEAP TO SUM-AWARDS, STAT-DOL UNC IF SLEAP > 0 UNC ADD SLEAP TO SLEAP-DOL UNC ADD 1 TO SLEAP-KOUNT. UNC IF GOS-S NUMERIC UNC ADD GOS TO SUM-AWARDS, STAT-DOL UNC IF GOS > 0 UNC ADD GOS TO GOS-DOL UNC ADD 1 TO GOS-KOUNT. UNC E021-EXIT. UNC EXIT. EJECT E022-SUM-AWARDS. ****************************************************************** *** THIS MODULE ADDS TOTAL OF ALL DOLLARS AWARDED EXCEPT: *** *** INSTITUTIONAL EMPLOYMENT *** *** PLUS LOAN *** *** *** *** RETURNS TO D027-NEED-ANALYSIS. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> E022-SUM-AWARDS'. MOVE 0 TO SUM-AWARDS. IF PELL-F NUMERIC ADD PELL TO SUM-AWARDS. IF SEOG-F NUMERIC ADD SEOG TO SUM-AWARDS. IF WKST-F NUMERIC ADD WS-F TO SUM-AWARDS. IF PERKINS-F NUMERIC ADD PERKINS TO SUM-AWARDS. IF OTHR-F NUMERIC ADD OTHR TO SUM-AWARDS. IF CLEAP-S NUMERIC ADD CLEAP TO SUM-AWARDS. UNC IF SLEAP-S NUMERIC UNC ADD SLEAP TO SUM-AWARDS. UNC IF GOS-S NUMERIC UNC ADD GOS TO SUM-AWARDS. IF CSGRANT NUMERIC ADD C-SG TO SUM-AWARDS. IF WKST-S NUMERIC ADD WS-S TO SUM-AWARDS. IF UGMERIT NUMERIC ADD UG-MERIT TO SUM-AWARDS. IF GRGRANT NUMERIC ADD GR-GRANT TO SUM-AWARDS. IF GRFELL NUMERIC ADD GR-FELLOW TO SUM-AWARDS. IF CONURSE NUMERIC ADD CO-NURSE TO SUM-AWARDS. IF COCAT NUMERIC ADD CO-CAT TO SUM-AWARDS. IF I-SCHLSH NUMERIC ADD I-S TO SUM-AWARDS. IF I-FUND1 NUMERIC ADD I-1 TO SUM-AWARDS. IF I-FUND2 NUMERIC ADD I-2 TO SUM-AWARDS. IF O-SCHLSH NUMERIC ADD O-S TO SUM-AWARDS. IF STAFFORD-O NUMERIC ADD STAFFORD TO SUM-AWARDS. IF LOAN-F NUMERIC ADD FL-1 TO SUM-AWARDS. IF LOAN-O NUMERIC ADD OL-1 TO SUM-AWARDS. UNC E022-EXIT. UNC EXIT. EJECT E025-SUM-PRIMARY-OVERRIDES. ****************************************************************** *** THIS MODULE PRINTS SUMMARY TOTALS FOR PRIMARY OVERRIDES. *** *** *** *** RETURNS TO B040-PRINT-MEMO-TOTALS. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> E025-SUM-PRIMARY-OVERRIDES'. UNC IF X = 1 UNC MOVE SPACES TO M-3 UNC MOVE 'PRIMARY:' TO M3-LITERAL UNC WRITE MEMO-LINE FROM M-3 AFTER ADVANCING 5 UNC MOVE '=======' TO M3-LITERAL UNC WRITE MEMO-LINE FROM M-3 AFTER ADVANCING 1. UNC IF OP-KOUNT (X) = 0 UNC AND X NOT = 9 UNC GO TO E025-EXIT. UNC IF X < 9 UNC MOVE O-MSG (X) TO M3-LITERAL UNC ELSE UNC MOVE ' ==> TOTAL OVERRIDES <==' TO M3-LITERAL. UNC MOVE OP-KOUNT (X) TO M3-KOUNT. UNC WRITE MEMO-LINE FROM M-3 AFTER ADVANCING 2. UNC E025-EXIT. UNC EXIT. E026-SUM-SECONDARY-OVERRIDES. ****************************************************************** *** THIS MODULE PRINTS SUMMARY TOTALS FOR SECONDARY OVERRIDES.*** *** *** *** RETURNS TO B040-PRINT-MEMO-TOTALS. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> E026-SUM-SECONDARY-OVERRIDES'. UNC IF X = 1 UNC MOVE SPACES TO M-3 UNC MOVE 'SECONDARY:' TO M3-LITERAL UNC WRITE MEMO-LINE FROM M-3 AFTER ADVANCING 5 UNC MOVE '=========' TO M3-LITERAL UNC WRITE MEMO-LINE FROM M-3 AFTER ADVANCING 1. UNC IF OS-KOUNT (X) = 0 UNC AND X NOT = 9 UNC GO TO E026-EXIT. UNC IF X < 9 UNC MOVE O-MSG (X) TO M3-LITERAL UNC ADD OS-KOUNT (X) TO OS-KOUNT (9) UNC ELSE UNC MOVE ' ==> TOTAL OVERRIDES <==' TO M3-LITERAL. UNC MOVE OS-KOUNT (X) TO M3-KOUNT. UNC WRITE MEMO-LINE FROM M-3 AFTER ADVANCING 2. UNC E026-EXIT. UNC EXIT. E027-OVERAWARD-CHECK. ****************************************************************** *** THIS MODULE ADJUSTS THE ACTUAL CALCULATED NEED TO *** *** ACCOMODATE THE $300 TOLERANCE AND TESTS THAT THE SUM OF *** *** AWARDS DOES NOT EXCEED NEED. *** *** *** *** RETURNS TO D027-NEED-ANALYSIS. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> E027-OVERAWARD-CHECK'. COMPUTE NEED = NEED + 300. IF NEED < SUM-AWARDS MOVE ER-COND (8) TO EL-45 ADD 1 TO ERR-FLAG1 UNC ADD 1 TO ERRER-60. UNC E027-EXIT. UNC EXIT. E028-OVERAWARD-CHECK. ****************************************************************** *** THIS MODULE ADJUSTS THE ACTUAL CALCULATED NEED TO *** *** ACCOMODATE THE $300 TOLERANCE FOR STUDENTS WITH CWS, AND *** *** TESTS THAT THE SUM OF AWARDS DOES NOT EXCEED NEED. *** *** *** *** RETURNS TO D027-NEED-ANALYSIS. *** ****************************************************************** UNC IF DEBUG-CODE UNC DISPLAY '>>===> E028-OVERAWARD-CHECK'. COMPUTE NEED = NEED + 300. IF NEED < SUM-AWARDS MOVE ER-COND (8) TO EL-45 ADD 1 TO ERR-FLAG1 ADD 1 TO ERRER-45. UNC E028-EXIT. UNC EXIT. ****************************************************************** **************** END OF PROGRAM EDITFA02 *********************** ******************************************************************