** 12/06/99 MC MC1299 SCT MOD PER MARY FRAN
** The loan id on 381 contains a wrong original stu SSN
** so Mary Fran told us to hard-coded these mods to avoid abends
**
** THIS IS THE MAIN PROCESSING ROUTINE FOR AWARD YEAR
** THE FOLLOWING KEYWORDS ARE USED:
**
2000-PR-005.
**
IF PM-YR = '1998'
PERFORM 2600-READ-98-SIDISB THRU
2600-R-98-EXIT.
IF WS-DIS8-REC-EOF = 'Y'
GO TO 2000-PR-EXIT.
....
****************************************************************
** CHECK IF THE ID ENTERED IS A PREVIOUS SID. **
****************************************************************
**
MOVE RANDOM-READ TO AA-CMD.
MOVE AA-VIEW-SSN TO A-DBMS-INFO.
**
PERFORM 8100-AA-IO.
IF AA-RTN NOT = SUCCESSFUL
MOVE RANDOM-READ TO A-CMD
MOVE AA-VIEW-PREV-SSN TO A-DBMS-INFO
MOVE DISB-SID TO A-KEY-ID
PERFORM 8100-AA-IO
IF DISB-SID = '582471508' MC1299
MOVE '587471508' TO DISB-SID MC1299
IF DISB-SID = '419190609' MC1299
MOVE '418190609' TO DISB-SID MC1299
IF AA-RTN NOT = SUCCESSFUL
PERFORM 11000-DBMS-ERROR
MOVE '2000-PR-005' TO ABORT-PARA
GO TO 9999-ABORT-ROUTINE.
...
2500-READ-00-SIDISB SECTION.
2500-R-00-005.
READ DIS0-FILE
AT END MOVE 'Y' TO WS-DIS0-REC-EOF
GO TO 2500-R-00-EXIT.
...
**
** SET THE KEY FOR READING THE AAFILE.
**
MOVE DIS0-LOAN-ID TO DISB-ID.
IF DISB-SID = '582471508' MC1299
MOVE '587471508' TO DISB-SID. MC1299
IF DISB-SID = '419190609' MC1299
MOVE '418190609' TO DISB-SID. MC1299
MOVE DISB-SID TO AA-NK-SID.
**
** SET THE PRINT FIELDS FROM THIS FILE.
**
...
2600-READ-01-SIDISB SECTION.
2600-R-01-005.
READ DIS1-FILE
AT END MOVE 'Y' TO WS-DIS1-REC-EOF
GO TO 2600-R-01-EXIT.
IF FILE-STAT-D1 NOT = '00' AND '10' AND '13' AND '04'
...
**
** SET THE KEY FOR READING THE AAFILE.
**
MOVE DIS1-LOAN-ID TO DISB-ID.
IF DISB-SID = '582471508' MC1299
MOVE '587471508' TO DISB-SID. MC1299
IF DISB-SID = '419190609' MC1299
MOVE '418190609' TO DISB-SID. MC1299
MOVE DISB-SID TO AA-NK-SID.
**
** SET THE PRINT FIELDS FROM THIS FILE.
...
2650-READ-99-SIDISB SECTION.
2650-R-99-005.
READ DIS9-FILE
AT END MOVE 'Y' TO WS-DIS9-REC-EOF
GO TO 2650-R-99-EXIT.
IF FILE-STAT-D9 NOT = '00' AND '10' AND '13' AND '04'
...
**
** SET THE KEY FOR READING THE AAFILE.
**
MOVE DIS9-LOAN-ID TO DISB-ID.
IF DISB-SID = '582471508' MC1299
MOVE '587471508' TO DISB-SID. MC1299
IF DISB-SID = '419190609' MC1299
MOVE '418190609' TO DISB-SID. MC1299
MOVE DISB-SID TO AA-NK-SID.
**
** SET THE PRINT FIELDS FROM THIS FILE.
**
...
SIS Financial Aid In-House Changes
Last Modified: Tuesday, 28-Nov-2000 14:41:53 CST
©1999 All Rights Reserved