SIS Financial Aid SBA820 Changes

** 03/19/02   MC   MC0302 SUPPRESS PDL TRACKING DOC UPDATE 

** 12/15/98   MC   MC1298 NOTE NAME CHANGED FOR AU  



WORKING-STORAGE SECTION.
01  PROGRAM-CONTROL-DATA.
    03  PGM-ID              PIC X(06)          VALUE 'SBA820'.
    03  PGM-VERSION         PIC X(02)          VALUE '00'.
    03  PGM-LEVEL           PIC X(03)          VALUE '000'.
    03  PGM-SYSTEM          PIC X(26)          VALUE
...
...
***   MOD begin
**
     03  PROGRAM-SWITCHES.
         05  EOF-SW          PIC X(01)          VALUE 'N'.
         05  FIRST-READ      PIC X(01)          VALUE 'Y'.
         05  FIRST-TIME-SW   PIC X(01)          VALUE 'Y'.
         05  PM-FAG-MAX      PIC 9(02)          VALUE 10.
*        05  WS-PLUS-NOTE    PIC X(04)          VALUE 'PNPL'.     MC1298
         05  WS-PLUS-NOTE    PIC X(03)          VALUE 'PDL'.      MC1298
**
***   MOD end
***
 01  HOLD-LTRDATE-N          PIC 9(08)          VALUE ZEROES.
...
...
**   MOD begin
***
 01  BLANK-LINE.
     05  FILLER                       PIC X(80) VALUE SPACES.
 01  PROGRAM-HOLD-FIELDS.
     05  HOLD-FORM.
*        10  HOLD-FORM-NAME           PIC X(04) VALUE SPACES.     MC1298
         10  HOLD-FORM-NAME           PIC X(03) VALUE SPACES.     MC1298
         10  HOLD-FORM-NUM            PIC 9(01) VALUE ZERO.
     05  HOLD-PHONE.
         10  H-PHONE1                 PIC X(03) VALUE SPACES.
***  1st MOD ends

...

 2000-INPUT-045.
**
**    READ THE AAFILE FOR THE
**    SELECTED STUDENT.
**
...
**
**    DO NOT UPDATE TRACKING FILE FOR REPRINTS
**
**   IF SD-PN-PRINT-INDICATOR = 'P'                               MC0302
**       MOVE 'P' TO SD-PN-STAT                                   MC0302
**       PERFORM 4500-PERFORM-UPDATES.                            MC0302
**
     MOVE PM-DATE                TO   SD-PN-PRINT-DATE.
     MOVE 'O'                    TO   SD-PN-PRINT-INDICATOR.

*** 2nd MOD ends
SIS Financial Aid In-House Changes
Last Modified: Tuesday, 28-Nov-2000 14:41:11 CST