SIS Financial Aid SBA890 Changes

** 10/26/00   MC   SCT MOD (MC1000) TO FIX END-OF-FILE PROBLEM

 2000-PR-030.
**
     MOVE SN-VIEW TO A-DBMS-INFO.
     PERFORM 8100-SN-IO.
     IF SN-RTN = END-OF-FILE                                      MC1000
        MOVE AA-SID TO HOLD-SID                                   MC1000
        GO TO 2000-PR-010.                                        MC1000
     IF SN-RTN NOT = SUCCESSFUL AND
        SN-RTN NOT = INVALID-KEY AND
        SN-RTN NOT = END-OF-FILE
         MOVE '2000-PR-030' TO ABORT-PARA
...
    MOVE SN-SID TO HOLD-SID.
    MOVE NEXT-READ TO SN-CMD.
    GO TO 2000-PR-030.
**
2000-PR-EXIT.
    EXIT.

SIS Financial Aid In-House Changes

Last Modified: Tuesday, 30-Jan-2001 10:03:06 CST