SIS Financial Aid SZAGG1 Changes

** 04/26/99   MC   MC0499 TEMP MOD TO NOT PROTECT THE 'DELETE' **
** made this mod so Fin Aid can delete FAM data of ID
** before SBA910 remove the ID from SIS

 4000-FS-050.
**
**
     MOVE TV-TYPE TO ZE-ELEM-NO.
     MOVE AG-INX TO ZE-OCCUR-N.
     PERFORM 9992-ZPUT THRU 9992-EXIT.
     MOVE 'P' TO ZE-WORK.
     PERFORM 9997-ZATT THRU 9997-EXIT.
**
**  IF THE AGGRAGATE TYPE IS NOT 'I'
**  CHANGE THE ATTRIBUTE FOR DELETE TO PROTECTED.
**
*    Mod begin
*                                                                 MC0499
*    IF AG-TYPE (AG-INX) NOT = 'I'                                MC0499
*        MOVE TV-AG-DELETE TO ZE-ELEM-NO                          MC0499
*        MOVE AG-INX TO ZE-OCCUR-N                                MC0499
*        MOVE AG-DELETE (AG-INX) TO ZE-WORK                       MC0499
*        PERFORM 9992-ZPUT THRU 9992-EXIT                         MC0499
*        MOVE 'P' TO ZE-WORK                                      MC0499
*        PERFORM 9997-ZATT THRU 9997-EXIT.                        MC0499
*
*    Mod end 
**
 4000-FS-060.
**
SIS Financial Aid In-House Changes
Last Modified: Tuesday, 28-Nov-2000 14:43:33 CST