Release Notes: Item 1106-01

Ability-to-Benefit Fields (with User Guide updates)

This release item adds the capacity to enter and store "Ability to Benefit" data in FINANCIER and to export it to COD.

The ATB data elements mandated for COD reporting are added as fields in the WW-STUDENT file:

WW-ST-ATB-CODE (A2) - ATB Code, means by which ATB was determined
WW-ST-ATB-STATE (A2) - State code, for ATB determination by state process
WW-ST-ATB-ADM (A2) - Test Administrator, for ATB determination by test completion
WW-ST-ATB-TEST (A2) - Test Code, for ATB determination by test completion
WW-ST-ATB-DATE (D) - Completion Date, for ATB determination by test completion or state process

A corresponding control field, WW-ST-ATB-YEAR (A4), indicates the aid year for which the information is to be reported to COD, and serves as a flag to indicate that ATB information is complete and ready to export. These fields are added to the Student Demographic screen, approximately where the FFELP Preferred Lender has been. (The Preferred Lender field is eliminated from the screen but remains in the data base.)

To record ATB data, fill in the ATB Code and other fields appropriate to the code, as the information becomes available. When the student's data is complete, supply the ATB Year; this indicates to the Federal Grant and Direct Loan Export processes that the information is ready to go to COD. The Export programs are modified to ensure that the ATB aid year is the one being processed, and to export the ATB fields in Pell, TEACH, and DL originations, beginning with aid year 2011-12 (XML schema 3.0d). (There are no changes to the Import processes.)

Implementation Notes

This item is required at all client sites, but may already have been implemented at some institutions. Please verify your source code.
Load the updated modules from the SYSTRANS file in the attached zip file, or apply source changes manually.

Check all the Student file-related objects (WWSxxxxx) for customization before deciding whether to replace or manually update them. In particular, the modules WWSTDNTD, WWSTDNTO, WWSTDNTS, WWSTDNTT and WWSTDNTV are likely to be heavily customized, and we expect you will apply line changes to these items. We include them in the SYSTRANS file primarily to serve as examples, as it may be helpful for reference purposes to see the objects whole.

The updated modules are:
- WFDLE12B
- WFDLE12D
- WFDLN12B
- WFFLE12B
- WFFLE12D
- WFFLR12B
- WFPER12N
- WFTCR12N
- WWSDEMOM
- WWSDEMOZ
- WWSTDNCD
- WWSTDNCO
- WWSTDNCS
- WWSTDNCT
- WWSTDNCV
- WWSTDNID
- WWSTDNIO
- WWSTDNMD
- WWSTDNMO
- WWSTDNTB
- WWSTDNTD
- WWSTDNTO
- WWSTDNTS
- WWSTDNTT
- WWSTDNTV
Modify the PREDICT definition for the WW-STUDENT file/userview and WW-STUDENT-CMP userview to include the new fields:
```
    GR 1 WW-STUDENT-ATTRIBUTES                                    BQ
     ....    
       2 WW-ST-LENDER                     A        9.0            CB N
add->  2 WW-ST-ATB-YEAR                   A        4.0            GT N
add->  2 WW-ST-ATB-STATE                  A        2.0            GU N
add->  2 WW-ST-ATB-CODE                   A        2.0            GV N
add->  2 WW-ST-ATB-ADMN                   A        2.0            GW N
add->  2 WW-ST-ATB-TEST                   A        2.0            GX N
add->  2 WW-ST-ATB-DATE                   D                       GY N
       2 WW-ST-SPECIAL                    A       20.0            CC N
```
Modify the ADABAS file definition for the WW-STUDENT file:
- Add field WW-ST-ATB-YEAR as Len 4, Format A
- Add field WW-ST-ATB-STATE as Len 2, Format A
- Add field WW-ST-ATB-CODE as Len 2, Format A
- Add field WW-ST-ATB-ADMN as Len 2, Format A
- Add field WW-ST-ATB-TEST as Len 2, Format A
- Add field WW-ST-ATB-DATE as Format D
Note: We have inserted the new fields in logical locations in the file. However, the placement and level of the new field in your ADABAS file will not affect FINANCIER's handling of the data it contains, so you may add it at the end of the file if that is more convenient at your location. Your ADABAS shortname may differ from ours.
Regenerate the DDM for WW-STUDENT and WW-STUDENT-CMP userviews.
Using the Dictionary Import program (WCDICIMB), load the Dictionary input file in the attached zip file. The Dictionary updates include field definitions for the new WW-STUDENT fields.
Modify JCL in the Federal Grant Export jobs WFFLREXJ and WFFLEXPJ for 2011-12 to accommodate increased record length of 448 (Work File 2). Modify JCL in the Direct Loan Export jobs WFDLNEXJ and WFDLEXPJ for 2011-12 to accommodate increased record length of 838 (Work File 2). (While it appears that the DL work files are decreased in length, the 838 figure is correct; the previous length was overstated.)
Perform a CATALL to ensure all programs affected by the file changes are updated.
Print the changed pages and User Guide update instructions in the zip file.

Source Changes: WFDLE12B

     002775 01 #STU-DEP-OUT
     002780   02 #STU-DEP-S(A22) INIT <'<DependencyStatusCode>'>
     002785   02 #STU-DEP (A1)
     002790   02 #STU-DEP-E(A23) INIT <'</DependencyStatusCode>'>
     002795   02 #FILLER (A54)
add->       *
add->       01 #ATB-CODE-OUT
add->         02 #ATB-CODE-S   (A22) INIT <'<AbilityToBenefitCode>'>
add->         02 #ATB-CODE     (A2)
add->         02 #ATB-CODE-E   (A23) INIT <'</AbilityToBenefitCode>'>
add->         02 #FILLER       (A53)
add->       01 #ATB-ADMN-OUT
add->         02 #ATB-ADMN-S   (A39) 
add->                          INIT <'<AbilityToBenefitTestAdministratorCode>'>
add->         02 #ATB-ADMN     (A2)
add->         02 #ATB-ADMN-E   (A40) 
add->                          INIT <'</AbilityToBenefitTestAdministratorCode>'>
add->         02 #FILLER       (A19)
add->       01 #ATB-TEST-OUT
add->         02 #ATB-TEST-S   (A26) INIT <'<AbilityToBenefitTestCode>'>
add->         02 #ATB-TEST     (A2)
add->         02 #ATB-TEST-E   (A27) INIT <'</AbilityToBenefitTestCode>'>
add->         02 #FILLER       (A45)
add->       01 #ATB-DATE-OUT
add->         02 #ATB-DATE-S   (A32) INIT <'<AbilityToBenefitCompletionDate>'>
add->         02 #ATB-DATE     (A10)
add->         02 #ATB-DATE-E   (A33) INIT <'</AbilityToBenefitCompletionDate>'>
add->         02 #FILLER       (A25)
add->       01 #ATB-STATE-OUT
add->         02 #ATB-STATE-S  (A27) INIT <'<AbilityToBenefitStateCode>'>
add->         02 #ATB-STATE    (A2)
add->         02 #ATB-STATE-E  (A28) INIT <'</AbilityToBenefitStateCode>'>
add->         02 #FILLER       (A43)
     002800 *
     002805 * DISB BLOCK
     002810 01 #DISB-START-OUT
     002815   02 #DISB-NBR-S(A22)    INIT <'<Disbursement Number=@'>
     002820   02 #DISB-NBR (N2)
     002825   02 #DISB-NBR-E(A2)     INIT <'@>'>
     002830   02 #FILLER (A74)

     003600                #AWDAMT-OUT #LOAN-NBR-OUT #LOANID-OUT
     003605                #LOAN-CREATE-OUT #HPPA-OUT #ADDL-UNS-OUT
     003610                #STU-OVP-OUT #STU-DEP-OUT
add->                      #ATB-CODE-OUT #ATB-ADMN-OUT #ATB-TEST-OUT 
add->                      #ATB-DATE-OUT #ATB-STATE-OUT
     003615 *
     003620  PERFORM LOANTYPE-SETUP
     003625  PERFORM STUDENT-SETUP
     003630  PERFORM LOAN-INFO-SETUP
     003635  PERFORM AWARD-SETUP

     004805   IF #E-ORIG-ADDL-UNS-ELIG = 'Y'
     004810     MOVE 'true' TO #ADDL-UNS-ELIG
     004815   ELSE
     004820     MOVE 'false' TO #ADDL-UNS-ELIG
     004825   END-IF
add->         MOVE #E-ORIG-ATB-CODE                       TO #ATB-CODE
add->         MOVE #E-ORIG-ATB-ADMN                       TO #ATB-ADMN
add->         MOVE #E-ORIG-ATB-TEST                       TO #ATB-TEST
add->         MOVE EDITED #E-ORIG-ATB-DATE(EM=YYYY-MM-DD) TO #ATB-DATE
add->         MOVE #E-ORIG-ATB-STATE                      TO #ATB-STATE
     004830 *
     004835   WRITE WORK FILE 3 VARIABLE #AWD-TAG-OUT
     004840   WRITE WORK FILE 3 VARIABLE #LOANKEY-OUT
     004845   WRITE WORK FILE 3 VARIABLE #AWDYR-OUT
     004850   IF #CPS-TRAN NE ' '
     004855     WRITE WORK FILE 3 VARIABLE #CPSTRAN-OUT
     004860     ADD 1 TO #XML-COUNTER
     004865   END-IF
     004870   WRITE WORK FILE 3 VARIABLE #AWDAMT-OUT
     004875   IF #STU-DEP NE ' '
     004880     WRITE WORK FILE 3 VARIABLE #STU-DEP-OUT
     004885   END-IF
     004890   WRITE WORK FILE 3 VARIABLE #STU-OVP-OUT
add->       *
add->         IF #ATB-CODE NE ' '
add->           WRITE WORK FILE 3 VARIABLE #ATB-CODE-OUT
add->           WRITE WORK FILE 3 VARIABLE #ATB-ADMN-OUT
add->           WRITE WORK FILE 3 VARIABLE #ATB-TEST-OUT
add->           WRITE WORK FILE 3 VARIABLE #ATB-DATE-OUT
add->           WRITE WORK FILE 3 VARIABLE #ATB-STATE-OUT
add->           ADD 5 TO #XML-COUNTER
add->         END-IF
add->       *
     004895   WRITE WORK FILE 3 VARIABLE #LOAN-NBR-OUT
     004900   WRITE WORK FILE 3 VARIABLE #LOANID-OUT
     004905   WRITE WORK FILE 3 VARIABLE #LOAN-CREATE-OUT

Source Changes: WFDLE12D

     3 #E-ORIG-STU-DEF-OVP              A          1 /* AWRD <DefaultOverpayCo
     3 #E-ORIG-STU-DEP                  A          1 /* AWRD <DependencyStatus
     3 #E-ORIG-STU-CLASS                A          1 /* AWRD <StudentLevelCode
add->3 #E-ORIG-ATB-CODE                 A          2 /* AWRD <AbilityToBenefit
add->3 #E-ORIG-ATB-ADMN                 A          2 /* AWRD <ATBTestAdministt
add->3 #E-ORIG-ATB-TEST                 A          2 /* AWRD <ATBTestCode>
add->3 #E-ORIG-ATB-DATE                 D            /* AWRD <ATBCompletionDat
add->3 #E-ORIG-ATB-STATE                A          2 /* AWRD <ATBStateCode>
     3 #E-ORIG-PAR-SSN                  A          9 /* PERS <SSN>
     3 #E-ORIG-PAR-DOB                  D            /* PERS <BirthDate>
     3 #E-ORIG-PAR-LAST                 A         16 /* PERS <LastName>

Source Changes: WFDLN12B

     000080 DEFINE DATA
     000085   GLOBAL USING WWGDA
     000090 *
     000095   LOCAL USING WWREQIBD
add->         LOCAL USING WWSTDNCD /* Passed to object subprogram
add->         LOCAL USING WWSTDNCR /* Passed to object subprogram
     000100   LOCAL USING WFLOAPPD /* Passed to object subprogram
     000105   LOCAL USING WFLOAPPR /* Passed to object subprogram

     002440   MOVE #HOLD-FUNCTION TO WWAOBJ.#FUNCTION
     002445 END-SUBROUTINE /* CALL-OBJECT-LOANTYPE
add->       *
add->       ***********************************************************************
add->       DEFINE SUBROUTINE CALL-OBJECT-STUDENT
add->       ***********************************************************************
add->         /*
add->         /* Call WW-STUDENT-CMP file object subprogram
add->         CALLNAT 'WWSTDNCO' WW-GDA
add->                  WWSTDNCD
add->                  WWSTDNCD-ID
add->                  WWSTDNCR
add->                  WWAOBJ
add->       END-SUBROUTINE /* CALL-OBJECT-STUDENT
     002450 *
     002455 ***********************************************************************
     002460 DEFINE SUBROUTINE CALL-OBJECT-TABLE
     002465 ***********************************************************************
     002470   /*
     002475   /* Call WW-TABLE file object subprogram
     002480   CALLNAT 'WWTABLEO' WW-GDA
--------
     004750 ***********************************************************************
     004755 DEFINE SUBROUTINE LOAD-COMMON-DATA
     004760 ***********************************************************************
      ....
     004895   MOVE WFISW12D.#AD-STRT  TO #E-ORIG-STU-AD-STRT
     004900   MOVE WFISW12D.#AD-CITY  TO #E-ORIG-STU-AD-CITY
     004905   MOVE WFISW12D.#AD-STATE TO #E-ORIG-STU-AD-STATE
     004910   MOVE WFISW12D.#AD-ZIP   TO #E-ORIG-STU-AD-ZIP
add->         /*
add->         RESET WWSTDNCD
add->         MOVE ##FAO-ID TO WWSTDNCD.WF-FAO
add->         MOVE ##STUDENT-ID TO WWSTDNCD.WW-STUDENT-ID
add->         MOVE 'GET' TO WWAOBJ.#FUNCTION
add->         PERFORM CALL-OBJECT-STUDENT
add->         IF WWSTDNCD.WW-ST-ATB-YEAR = ##AID-YEAR
add->             MOVE WWSTDNCD.WW-ST-ATB-STATE TO #E-ORIG-ATB-STATE
add->             MOVE WWSTDNCD.WW-ST-ATB-CODE  TO #E-ORIG-ATB-CODE
add->             MOVE WWSTDNCD.WW-ST-ATB-ADMN  TO #E-ORIG-ATB-ADMN
add->             MOVE WWSTDNCD.WW-ST-ATB-TEST  TO #E-ORIG-ATB-TEST
add->             MOVE WWSTDNCD.WW-ST-ATB-DATE  TO #E-ORIG-ATB-DATE
add->         END-IF
     004915   /*
     004920   PERFORM AIDYEAR-REC-VERIFY
     004925   PERFORM READ-CALENDAR

Source Changes: WFFLE12B

     003680 01 #ENR-OUT
     003690   02 #ENR-DT-S     (A16) INIT <'<EnrollmentDate>'>
     003700   02 #ENR-DT       (A10)
     003710   02 #ENR-DT-E     (A17) INIT <'</EnrollmentDate>'>
     003720   02 #FILLER       (A57)
add->       *
add->       01 #ATB-CODE-OUT
add->         02 #ATB-CODE-S   (A22) INIT <'<AbilityToBenefitCode>'>
add->         02 #ATB-CODE     (A2)
add->         02 #ATB-CODE-E   (A23) INIT <'</AbilityToBenefitCode>'>
add->         02 #FILLER       (A53)
add->       01 #ATB-ADMN-OUT
add->         02 #ATB-ADMN-S   (A39) 
add->                          INIT <'<AbilityToBenefitTestAdministratorCode>'>
add->         02 #ATB-ADMN     (A2)
add->         02 #ATB-ADMN-E   (A40) 
add->                          INIT <'</AbilityToBenefitTestAdministratorCode>'>
add->         02 #FILLER       (A19)
add->       01 #ATB-TEST-OUT
add->         02 #ATB-TEST-S   (A26) INIT <'<AbilityToBenefitTestCode>'>
add->         02 #ATB-TEST     (A2)
add->         02 #ATB-TEST-E   (A27) INIT <'</AbilityToBenefitTestCode>'>
add->         02 #FILLER       (A45)
add->       01 #ATB-DATE-OUT
add->         02 #ATB-DATE-S   (A32) INIT <'<AbilityToBenefitCompletionDate>'>
add->         02 #ATB-DATE     (A10)
add->         02 #ATB-DATE-E   (A33) INIT <'</AbilityToBenefitCompletionDate>'>
add->         02 #FILLER       (A25)
add->       01 #ATB-STATE-OUT
add->         02 #ATB-STATE-S  (A27) INIT <'<AbilityToBenefitStateCode>'>
add->         02 #ATB-STATE    (A2)
add->         02 #ATB-STATE-E  (A28) INIT <'</AbilityToBenefitStateCode>'>
add->         02 #FILLER       (A43)
add->       *
     003730 01 #AEI-OUT
     003740   02 #AEI-S        (A32) INIT <'<AdditionalEligibilityIndicator>'>
     003750   02 #AEI          (A5)
     003760   02 #AEI-E        (A33) INIT <'</AdditionalEligibilityIndicator>'>
     003770   02 #FILLER       (A30)

     005110                 #AWARD-YR-OUT #CPSTRAN-OUT #AWD-AMT-OUT
     005120                 #AWARD-UPD-OUT #AWARD-ID-OUT #AWARD-NUM-OUT
     005130                 #YR-COL-OUT #COST-OUT #VERSTAT-OUT #ENR-OUT
add->                       #ATB-CODE-OUT #ATB-ADMN-OUT #ATB-TEST-OUT 
add->                       #ATB-DATE-OUT #ATB-STATE-OUT
     005140                 #AEI-OUT
     005150   PERFORM TRANSLATE-QUOTES-TO-HEX
     005160 *
     005170   PERFORM STUDENT-SETUP

     007090   MOVE #E-ORIG-VER-STATUS                     TO #VERSTAT
     007100   MOVE EDITED #E-ORIG-ENR-DATE(EM=YYYY-MM-DD) TO #ENR-DT
add->         MOVE #E-ORIG-ATB-CODE                       TO #ATB-CODE
add->         MOVE #E-ORIG-ATB-ADMN                       TO #ATB-ADMN
add->         MOVE #E-ORIG-ATB-TEST                       TO #ATB-TEST
add->         MOVE EDITED #E-ORIG-ATB-DATE(EM=YYYY-MM-DD) TO #ATB-DATE
add->         MOVE #E-ORIG-ATB-STATE                      TO #ATB-STATE
     007110   IF #E-ORIG-AEI = 'Y'
     007120      MOVE 'true' TO #AEI
     007130   ELSE
     007140      MOVE 'false' TO #AEI
     007150   END-IF

     007420   WRITE WORK FILE 3 VARIABLE #ENR-OUT
     007430   ADD 1 TO #XML-COUNTER
add->       *
add->         IF #ATB-CODE NE ' '
add->           WRITE WORK FILE 3 VARIABLE #ATB-CODE-OUT
add->           WRITE WORK FILE 3 VARIABLE #ATB-ADMN-OUT
add->           WRITE WORK FILE 3 VARIABLE #ATB-TEST-OUT
add->           WRITE WORK FILE 3 VARIABLE #ATB-DATE-OUT
add->           WRITE WORK FILE 3 VARIABLE #ATB-STATE-OUT
add->           ADD 5 TO #XML-COUNTER
add->         END-IF
     007440 *
     007450   IF #PELL
     007460     WRITE WORK FILE 3 VARIABLE #AEI-OUT
     007470     ADD 1 TO #XML-COUNTER

Source Changes: WFFLE12D

     3 #E-ORIG-ENR-DATE                 D            /* AWRD <EnrollmentDate>
     3 #E-ORIG-PMT-RSN                  A          2 /* AWRD <EligPaymentReaso
     3 #E-ORIG-HS-PROG                  A          6 /* AWRD <RigorousHSProgra
     3 #E-ORIG-CIP                      A          7 /* AWRD <ProgramCIPCode>
add->3 #E-ORIG-ATB-CODE                 A          2 /* AWRD <AbilityToBenefit
add->3 #E-ORIG-ATB-ADMN                 A          2 /* AWRD <ATBTestAdministt
add->3 #E-ORIG-ATB-TEST                 A          2 /* AWRD <ATBTestCode>
add->3 #E-ORIG-ATB-DATE                 D            /* AWRD <ATBCompletionDat
add->3 #E-ORIG-ATB-STATE                A          2 /* AWRD <ATBStateCode>
     2 #EXPORT-DISBURSEMENT                          (12)
     3 #E-DISB-NUMBER                   N          2 /* DISB <Disbursemnt Numb
     3 #E-DISB-SEQ                      N          2 /* DISB <DisbrsmtSequence

Source Changes: WFFLR12B

     000150 DEFINE DATA
     000160   GLOBAL USING WWGDA
     000170 *
     000180   LOCAL USING WWREQIBD /* Input parameter PDA
add->         LOCAL USING WWSTDNCD /* Passed to object subprogram
add->         LOCAL USING WWSTDNCR /* Passed to object subprogram
     000190   LOCAL USING WFCPS12D /* Passed to object subprogram
     000200   LOCAL USING WFCPS12R /* Passed to object subprogram

     001820     /* Set up student information in print line
     001830     RESET #PRINT-LINE #ERROR-LINE
     001840     MOVE ##SID TO #PRT-STUDENT-ID #ERR-STUDENT-ID
     001850     MOVE ##COMP-NAME TO #PRT-STUDENT-NAME #ERR-STUDENT-NAME
     001860     MOVE WFCPS12D.WF-CP-FED-ID3 TO #PRT-FED-TRAN #ERR-FED-TRAN
     001870     /*
add->           RESET WWSTDNCD
add->           MOVE ##FAO-ID TO WWSTDNCD.WF-FAO
add->           MOVE ##STUDENT-ID TO WWSTDNCD.WW-STUDENT-ID
add->           MOVE 'GET' TO WWAOBJ.#FUNCTION
add->           PERFORM CALL-OBJECT-STUDENT
     001880     RESET WFFED12D
     001890     MOVE ##FAO-ID TO WFFED12D.WF-FAO
     001900     MOVE ##STUDENT-ID TO WFFED12D.WW-STUDENT-ID
     001910     MOVE 'GET' TO WWAOBJ.#FUNCTION
     001920     PERFORM CALL-OBJECT-FEDERAL
     001930     PERFORM EXTRACT-ISIR-ID-1112 WFISW12D
     001940     RESET #REPORT-PELL #REPORT-TEACH
     001950     /*
     001960     IF #INPUT-FMT(1) = 'Y'
     001970       CALLNAT 'WFPER12N' WW-GDA WWREQIBD WFPEL12D
     001980                          WWTABLED WWTABLED-ID
add->                                WWSTDNCD WWSTDNCD-ID
     001990                          WFCPS12D WFCPS12D-ID
     002000                          WFFED12D WFFED12D-ID
     002010                          WFISW12D
     002020                          #REPORT-PELL  #ACCUMULATORS
     002030                          #PRINT-LINE   #ERROR-LINE
     002040     END-IF
     002050     /*
     002060     IF #INPUT-FMT(4) = 'Y'
     002070       CALLNAT 'WFTCR12N' WW-GDA WWREQIBD WFTCH12D
     002080                          WWTABLED WWTABLED-ID
add->                                WWSTDNCD WWSTDNCD-ID
     002090                          WFCPS12D WFCPS12D-ID
     002100                          WFFED12D WFFED12D-ID
     002110                          WFISW12D
     002120                          #REPORT-TEACH #ACCUMULATORS
     002130                          #PRINT-LINE   #ERROR-LINE
     002140     END-IF

     003150            WFFED12R
     003160            WWAOBJ
     003170 END-SUBROUTINE /* CALL-OBJECT-FEDERAL
add->       *
add->       ***********************************************************************
add->       DEFINE SUBROUTINE CALL-OBJECT-STUDENT
add->       ***********************************************************************
add->         /*
add->         /* Call WW-STUDENT-CMP file object subprogram
add->         CALLNAT 'WWSTDNCO' WW-GDA
add->                  WWSTDNCD
add->                  WWSTDNCD-ID
add->                  WWSTDNCR
add->                  WWAOBJ
add->       END-SUBROUTINE /* CALL-OBJECT-STUDENT
     003180 *
     003190 ***********************************************************************
     003200 DEFINE SUBROUTINE CALL-OBJECT-TABLE
     003210 ***********************************************************************

Source Changes: WFPER12N

     000150 DEFINE DATA
     000160   GLOBAL USING WWGDA
     000170   PARAMETER USING WWPDA
     000180   PARAMETER USING WWREQIBD
     000190   PARAMETER USING WFPEL12D
     000200   PARAMETER USING WWTABLED
add->         PARAMETER USING WWSTDNCD
     000210   PARAMETER USING WFCPS12D
     000220   PARAMETER USING WFFED12D
     000230   PARAMETER USING WFISW12D

     004040     DECIDE FOR FIRST CONDITION
     004050       WHEN #REPORT-ORIG AND NOT #REPORT-DISB
     004060         MOVE 'ORIG' TO #E-ORIG-UPDATE
     004070       WHEN NOT #REPORT-ORIG AND #REPORT-DISB
     004080         MOVE 'DISB' TO #E-ORIG-UPDATE
     004090       WHEN NONE
     004100         MOVE 'BOTH' TO #E-ORIG-UPDATE
     004110     END-DECIDE
     004120     /*
add->           IF #REPORT-ORIG AND WWSTDNCD.WW-ST-ATB-YEAR = ##AID-YEAR
add->             MOVE WWSTDNCD.WW-ST-ATB-STATE TO #E-ORIG-ATB-STATE
add->             MOVE WWSTDNCD.WW-ST-ATB-CODE  TO #E-ORIG-ATB-CODE
add->             MOVE WWSTDNCD.WW-ST-ATB-ADMN  TO #E-ORIG-ATB-ADMN
add->             MOVE WWSTDNCD.WW-ST-ATB-TEST  TO #E-ORIG-ATB-TEST
add->             MOVE WWSTDNCD.WW-ST-ATB-DATE  TO #E-ORIG-ATB-DATE
add->           END-IF
     004130     MOVE WFCPS12D.WF-CP-RP-AEI TO #E-ORIG-AEI
     004140     MOVE WFCPS12D.WF-CP-FED-ID3 TO #E-ORIG-FEDID-TRAN
     004150     IF #PELL-ELIG NE 'Y'
     004160       MOVE WFCPS12D.WF-CP-RP-A-FED-TRAN TO #E-ORIG-FEDID-TRAN
     004170     END-IF

Source Changes: WFTCR12N

     000150 DEFINE DATA
     000160   GLOBAL USING WWGDA
     000170   PARAMETER USING WWPDA
     000180   PARAMETER USING WWREQIBD
     000190   PARAMETER USING WFTCH12D
     000200   PARAMETER USING WWTABLED
add->         PARAMETER USING WWSTDNCD
     000210   PARAMETER USING WFCPS12D
     000220   PARAMETER USING WFFED12D
     000230   PARAMETER USING WFISW12D

     006910     MOVE #GRANT-ID TO #E-ORIG-GRANT-ID
     006920     MOVE 2 TO #E-ORIG-GRANT-NUM
     006930     /*
add->           IF #REPORT-ORIG AND WWSTDNCD.WW-ST-ATB-YEAR = ##AID-YEAR
add->             MOVE WWSTDNCD.WW-ST-ATB-STATE TO #E-ORIG-ATB-STATE
add->             MOVE WWSTDNCD.WW-ST-ATB-CODE  TO #E-ORIG-ATB-CODE
add->             MOVE WWSTDNCD.WW-ST-ATB-ADMN  TO #E-ORIG-ATB-ADMN
add->             MOVE WWSTDNCD.WW-ST-ATB-TEST  TO #E-ORIG-ATB-TEST
add->             MOVE WWSTDNCD.WW-ST-ATB-DATE  TO #E-ORIG-ATB-DATE
add->           END-IF
     006940     MOVE WFCPS12D.WF-CP-FED-ID3 TO #E-ORIG-FEDID-TRAN
     006950     MOVE #CUR-T2-YR-COL   TO #E-ORIG-YR-COL
     006960     MOVE #CUR-T2-ENR-DATE TO #E-ORIG-ENR-DATE
     006970     MOVE #CUR-T2-AWARD    TO #E-ORIG-AWARD

Map Change: WWSDEMOM

Insert new line just above addresses and delete line at bottom of map. Replace FFELP Lender information (one line) with ATB information (two lines).


     MMMMMMMMMM               - Demographic Information -                 MMMMMMMMM

     Student:  XXXXXXXXX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  XXXXXXXXXXXXXXXXXXXX
               XXXX   XX  XXXXXXXXXXXXXXXXXXXX

      Name:    XXXXXXXXXXXXXXXXXXXX  XXXXXXXXXXXXXXXXXXXX  X  XXX  XXXX   Update
                      (Last)               (First)        (M)(Suf)(Ttle)   prev? X

      StudentID:  XXXXXXXXX SSN: XXXXXXXXXXX   Inst PIN: XXXX Alien reg: XXXXXXXXX
      Birthdate: XXXXXXXXXX Sex: X VetTyp: X   Driv Lic:   XX XXXXXXXXXXXXXXXXXXXX
      Prv Nm: XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   PerkinsMPN: XXXXXXXXXXXXXXXXXXXXXXX
      Sp: XXXXXXXXX Par: XXXXXXXXX XXXXXXXXX   Direct MPNs:  XXXXXXXXXXXXXXXXXXXXX
      Special:          XXXXXXXXXXXXXXXXXXXX                 XXXXXXXXXXXXXXXXXXXXX
del->                                          FFELP Lender:             XXXXXXXXX
add->                                          ATB: AidYear: XXXX  St: XX  Adm: XX     
add->                                            Date: XXXXXXXXXX  Cd: XX  Tst: XX	
      Addresses:
         XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
         XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
         XXXXXXXXXXXXXXXXXXXX  XX XXXXXXXXXX   XXXXXXXXXXXXXXXXXXXX  XX XXXXXXXXXX
         XXXXXXXXXXXXXXX  Ph#: XXXXXXXXXXXXX   XXXXXXXXXXXXXXX  Ph#: XXXXXXXXXXXXX
      Electronic mail address:  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
del->

Source Changes: WWSDEMOZ

     000460   DECIDE ON FIRST VALUE OF #FUNCTION
     000470     VALUE LOAD
      ....
     000550       IF WWSTDNTD.WW-ST-DOB NE INIT-DATE
     000560         MOVE EDITED WWSTDNTD.WW-ST-DOB (EM=MM/DD/YYYY)
     000570            TO WWSTDNTS.WW-ST-DOB
     000580       END-IF
add->             IF WWSTDNTD.WW-ST-ATB-DATE NE INIT-DATE
add->               MOVE EDITED WWSTDNTD.WW-ST-ATB-DATE (EM=MM/DD/YYYY)
add->                  TO WWSTDNTS.WW-ST-ATB-DATE
add->             END-IF
     000590       IF WWSTDNTD.WW-ST-AD1-PHONE NE 0
     000600         MOVE EDITED WWSTDNTD.WW-ST-AD1-PHONE (EM=' ('999')'999-9999)

     000730     VALUE EDIT
      ....
del->004850           WHEN ST-LENDER-CV MODIFIED OR
del->004860                ST-LENDER-F
del->004870                 ASSIGN #FILE-FIELD = 'WWSTDNTD.WW-ST-LENDER'
del->004880                 ASSIGN #VALUE = WWSTDNTD.WW-ST-LENDER
del->004890                 ASSIGN #FIELD-POS = POS(WWSTDNTD.WW-ST-LENDER)
del->004900                 RESET INITIAL #EDIT-MASK
del->004910                 RESET INITIAL #BLANK-SUB
del->004920                 PERFORM CALL-EDITOR WWVALLDA
del->004930                 IF NOT #VALID-VALUE OR NOT #VALID-MASK
del->004940                   ASSIGN ST-LENDER-F = TRUE
del->004950                   MOVE HI-LITE-ATTR TO ST-LENDER-CV
del->004960                 ELSE
del->004970                   MOVE NORMAL-ATTR TO ST-LENDER-CV
del->004980                   RESET INITIAL ST-LENDER-F
del->004990                   ASSIGN STUDENT-LOGICAL = TRUE
del->005000                   /*
del->005010                   /* Value may have leading underscores removed
del->005020                   IF WWSTDNTD.WW-ST-LENDER NE #VALUE
del->005030                     ASSIGN WWSTDNTD.WW-ST-LENDER = #VALUE
del->005040                     MOVE #VALUE TO WWVALLDA.#VALU(#VALU-SUB)
del->005050                   END-IF
del->005060                 END-IF
add->                 WHEN ST-ATB-YEAR-CV MODIFIED OR
add->                      ST-ATB-YEAR-F
add->                       ASSIGN #FILE-FIELD = 'WWSTDNTD.WW-ST-ATB-YEAR'
add->                       ASSIGN #VALUE = WWSTDNTD.WW-ST-ATB-YEAR
add->                       ASSIGN #FIELD-POS = POS(WWSTDNTD.WW-ST-ATB-YEAR)
add->                       RESET INITIAL #EDIT-MASK
add->                       RESET INITIAL #BLANK-SUB
add->                       PERFORM CALL-EDITOR WWVALLDA
add->                       IF NOT #VALID-VALUE OR NOT #VALID-MASK
add->                         ASSIGN ST-ATB-YEAR-F = TRUE
add->                         MOVE HI-LITE-ATTR TO ST-ATB-YEAR-CV
add->                       ELSE
add->                         MOVE NORMAL-ATTR TO ST-ATB-YEAR-CV
add->                         RESET INITIAL ST-ATB-YEAR-F
add->                         ASSIGN STUDENT-LOGICAL = TRUE
add->                         /*
add->                         /* Value may have leading underscores removed
add->                         IF WWSTDNTD.WW-ST-ATB-YEAR NE #VALUE
add->                           ASSIGN WWSTDNTD.WW-ST-ATB-YEAR = #VALUE
add->                           MOVE #VALUE TO WWVALLDA.#VALU(#VALU-SUB)
add->                         END-IF
add->                       END-IF
add->                 WHEN ST-ATB-STATE-CV MODIFIED OR
add->                      ST-ATB-STATE-F
add->                       ASSIGN #FILE-FIELD = 'WWSTDNTD.WW-ST-ATB-STATE'
add->                       ASSIGN #VALUE = WWSTDNTD.WW-ST-ATB-STATE
add->                       ASSIGN #FIELD-POS = POS(WWSTDNTD.WW-ST-ATB-STATE)
add->                       RESET INITIAL #EDIT-MASK
add->                       RESET INITIAL #BLANK-SUB
add->                       PERFORM CALL-EDITOR WWVALLDA
add->                       IF NOT #VALID-VALUE OR NOT #VALID-MASK
add->                         ASSIGN ST-ATB-STATE-F = TRUE
add->                         MOVE HI-LITE-ATTR TO ST-ATB-STATE-CV
add->                       ELSE
add->                         MOVE NORMAL-ATTR TO ST-ATB-STATE-CV
add->                         RESET INITIAL ST-ATB-STATE-F
add->                         ASSIGN STUDENT-LOGICAL = TRUE
add->                         /*
add->                         /* Value may have leading underscores removed
add->                         IF WWSTDNTD.WW-ST-ATB-STATE NE #VALUE
add->                           ASSIGN WWSTDNTD.WW-ST-ATB-STATE = #VALUE
add->                           MOVE #VALUE TO WWVALLDA.#VALU(#VALU-SUB)
add->                         END-IF
add->                       END-IF
add->                 WHEN ST-ATB-CODE-CV MODIFIED OR
add->                      ST-ATB-CODE-F
add->                       ASSIGN #FILE-FIELD = 'WWSTDNTD.WW-ST-ATB-CODE'
add->                       ASSIGN #VALUE = WWSTDNTD.WW-ST-ATB-CODE
add->                       ASSIGN #FIELD-POS = POS(WWSTDNTD.WW-ST-ATB-CODE)
add->                       RESET INITIAL #EDIT-MASK
add->                       RESET INITIAL #BLANK-SUB
add->                       PERFORM CALL-EDITOR WWVALLDA
add->                       IF NOT #VALID-VALUE OR NOT #VALID-MASK
add->                         ASSIGN ST-ATB-CODE-F = TRUE
add->                         MOVE HI-LITE-ATTR TO ST-ATB-CODE-CV
add->                       ELSE
add->                         MOVE NORMAL-ATTR TO ST-ATB-CODE-CV
add->                         RESET INITIAL ST-ATB-CODE-F
add->                         ASSIGN STUDENT-LOGICAL = TRUE
add->                         /*
add->                         /* Value may have leading underscores removed
add->                         IF WWSTDNTD.WW-ST-ATB-CODE NE #VALUE
add->                           ASSIGN WWSTDNTD.WW-ST-ATB-CODE = #VALUE
add->                           MOVE #VALUE TO WWVALLDA.#VALU(#VALU-SUB)
add->                         END-IF
add->                       END-IF
add->                 WHEN ST-ATB-ADMN-CV MODIFIED OR
add->                      ST-ATB-ADMN-F
add->                       ASSIGN #FILE-FIELD = 'WWSTDNTD.WW-ST-ATB-ADMN'
add->                       ASSIGN #VALUE = WWSTDNTD.WW-ST-ATB-ADMN
add->                       ASSIGN #FIELD-POS = POS(WWSTDNTD.WW-ST-ATB-ADMN)
add->                       RESET INITIAL #EDIT-MASK
add->                       RESET INITIAL #BLANK-SUB
add->                       PERFORM CALL-EDITOR WWVALLDA
add->                       IF NOT #VALID-VALUE OR NOT #VALID-MASK
add->                         ASSIGN ST-ATB-ADMN-F = TRUE
add->                         MOVE HI-LITE-ATTR TO ST-ATB-ADMN-CV
add->                       ELSE
add->                         MOVE NORMAL-ATTR TO ST-ATB-ADMN-CV
add->                         RESET INITIAL ST-ATB-ADMN-F
add->                         ASSIGN STUDENT-LOGICAL = TRUE
add->                         /*
add->                         /* Value may have leading underscores removed
add->                         IF WWSTDNTD.WW-ST-ATB-ADMN NE #VALUE
add->                           ASSIGN WWSTDNTD.WW-ST-ATB-ADMN = #VALUE
add->                           MOVE #VALUE TO WWVALLDA.#VALU(#VALU-SUB)
add->                         END-IF
add->                       END-IF
add->                 WHEN ST-ATB-TEST-CV MODIFIED OR
add->                      ST-ATB-TEST-F
add->                       ASSIGN #FILE-FIELD = 'WWSTDNTD.WW-ST-ATB-TEST'
add->                       ASSIGN #VALUE = WWSTDNTD.WW-ST-ATB-TEST
add->                       ASSIGN #FIELD-POS = POS(WWSTDNTD.WW-ST-ATB-TEST)
add->                       RESET INITIAL #EDIT-MASK
add->                       RESET INITIAL #BLANK-SUB
add->                       PERFORM CALL-EDITOR WWVALLDA
add->                       IF NOT #VALID-VALUE OR NOT #VALID-MASK
add->                         ASSIGN ST-ATB-TEST-F = TRUE
add->                         MOVE HI-LITE-ATTR TO ST-ATB-TEST-CV
add->                       ELSE
add->                         MOVE NORMAL-ATTR TO ST-ATB-TEST-CV
add->                         RESET INITIAL ST-ATB-TEST-F
add->                         ASSIGN STUDENT-LOGICAL = TRUE
add->                         /*
add->                         /* Value may have leading underscores removed
add->                         IF WWSTDNTD.WW-ST-ATB-TEST NE #VALUE
add->                           ASSIGN WWSTDNTD.WW-ST-ATB-TEST = #VALUE
add->                           MOVE #VALUE TO WWVALLDA.#VALU(#VALU-SUB)
add->                         END-IF
add->                       END-IF
add->                 WHEN ST-ATB-DATE-CV MODIFIED OR
add->                      ST-ATB-DATE-F
add->                       ASSIGN #FILE-FIELD = 'WWSTDNTS.WW-ST-ATB-DATE'
add->                       ASSIGN #VALUE = WWSTDNTS.WW-ST-ATB-DATE
add->                       ASSIGN #FIELD-POS = POS(WWSTDNTS.WW-ST-ATB-DATE)
add->                       ASSIGN #EDIT-MASK = 'MM/DD/YYYY'
add->                       RESET INITIAL #BLANK-SUB
add->                       PERFORM CALL-EDITOR WWVALLDA
add->                       IF NOT #VALID-VALUE OR NOT #VALID-MASK
add->                         ASSIGN ST-ATB-DATE-F = TRUE
add->                         MOVE HI-LITE-ATTR TO ST-ATB-DATE-CV
add->                       ELSE
add->                         MOVE NORMAL-ATTR TO ST-ATB-DATE-CV
add->                         RESET INITIAL ST-ATB-DATE-F
add->                         ASSIGN STUDENT-LOGICAL = TRUE
add->                         IF #VALUE = SPACE
add->                           RESET WWSTDNTD.WW-ST-ATB-DATE
add->                                 WWSTDNTS.WW-ST-ATB-DATE
add->                         ELSE
add->                           MOVE EDITED #VALUE TO
add->                              WWSTDNTD.WW-ST-ATB-DATE (EM=MMDDYYYY)
add->                           MOVE EDITED WWSTDNTD.WW-ST-ATB-DATE
add->                             (EM=MM/DD/YYYY) TO
add->                               WWSTDNTS.WW-ST-ATB-DATE
add->                         END-IF
add->                         IF #VALU-SUB > 0
add->                           MOVE WWSTDNTS.WW-ST-ATB-DATE TO
add->                             WWVALLDA.#VALU(#VALU-SUB)
add->                         END-IF
add->                       END-IF
     005070           WHEN ST-G-MPN-CV MODIFIED OR
     005080                ST-G-MPN-F

Source Changes: WWSTDNCD

     2 WW-STUDENT-ATTRIBUTES                         /*
     ....
     3 WW-ST-LENDER                     A          9 /*
add->3 WW-ST-ATB-YEAR                   A          4 /*
add->3 WW-ST-ATB-STATE                  A          2 /*
add->3 WW-ST-ATB-CODE                   A          2 /*
add->3 WW-ST-ATB-ADMN                   A          2 /*
add->3 WW-ST-ATB-TEST                   A          2 /*
add->3 WW-ST-ATB-DATE                   D            /*
     3 WW-ST-SPECIAL                    A         20 /*

Source Changes: WWSTDNCO

     000810     02 WW-STUDENT-ATTRIBUTES
      ....
     000910       03 WW-ST-LENDER
add->             03 WW-ST-ATB-YEAR
add->             03 WW-ST-ATB-STATE
add->             03 WW-ST-ATB-CODE
add->             03 WW-ST-ATB-ADMN
add->             03 WW-ST-ATB-TEST
add->             03 WW-ST-ATB-DATE
     000920       03 WW-ST-SPECIAL

Source Changes: WWSTDNCS

     2 WW-STUDENT-CMP-SHADOW-FILE                    /*
     ....
     3 WW-ST-AT-SRC                     A         20 /*
add->3 WW-ST-ATB-DATE                   A         10 /*
     3 WW-ST-AD1-SRC                    A         20 /*

     2 STUDENT-CMP-LOGICALS                          /* WW-STUDENT-CMP Edit Lo
     ....
     3 ST-LENDER-F                      L            /* WW-ST-LENDER
add->3 ST-ATB-YEAR-F                    L            /* WW-ST-ATB-YEAR
add->3 ST-ATB-STATE-F                   L            /* WW-ST-ATB-STATE
add->3 ST-ATB-CODE-F                    L            /* WW-ST-ATB-CODE
add->3 ST-ATB-ADMN-F                    L            /* WW-ST-ATB-ADMN
add->3 ST-ATB-TEST-F                    L            /* WW-ST-ATB-TEST
add->3 ST-ATB-DATE-F                    L            /* WW-ST-ATB-DATE
     3 ST-SPECIAL-F                     L            /* WW-ST-SPECIAL

     2 STUDENT-CMP-CNTL-VARS                         /* WW-STUDENT-CMP Control
     ....
     3 ST-LENDER-CV                     C            /* WW-ST-LENDER
add->3 ST-ATB-YEAR-CV                   C            /* WW-ST-ATB-YEAR
add->3 ST-ATB-STATE-CV                  C            /* WW-ST-ATB-STATE
add->3 ST-ATB-CODE-CV                   C            /* WW-ST-ATB-CODE
add->3 ST-ATB-ADMN-CV                   C            /* WW-ST-ATB-ADMN
add->3 ST-ATB-TEST-CV                   C            /* WW-ST-ATB-TEST
add->3 ST-ATB-DATE-CV                   C            /* WW-ST-ATB-DATE
     3 ST-SPECIAL-CV                    C            /* WW-ST-SPECIAL

Source Changes: WWSTDNCT

     000950       ST-LENDER-CV                     /* WW-ST-LENDER
add->             ST-ATB-YEAR-CV                   /* WW-ST-ATB-YEAR
add->             ST-ATB-STATE-CV                  /* WW-ST-ATB-STATE
add->             ST-ATB-CODE-CV                   /* WW-ST-ATB-CODE
add->             ST-ATB-ADMN-CV                   /* WW-ST-ATB-ADMN
add->             ST-ATB-TEST-CV                   /* WW-ST-ATB-TEST
add->             ST-ATB-DATE-CV                   /* WW-ST-ATB-DATE
     000960       ST-SPECIAL-CV                    /* WW-ST-SPECIAL

Source Changes: WWSTDNCV

     3 ST-LENDER-CV                     C            /* WW-ST-LENDER
add->3 ST-ATB-YEAR-CV                   C            /* WW-ST-ATB-YEAR
add->3 ST-ATB-STATE-CV                  C            /* WW-ST-ATB-STATE
add->3 ST-ATB-CODE-CV                   C            /* WW-ST-ATB-CODE
add->3 ST-ATB-ADMN-CV                   C            /* WW-ST-ATB-ADMN
add->3 ST-ATB-TEST-CV                   C            /* WW-ST-ATB-TEST
add->3 ST-ATB-DATE-CV                   C            /* WW-ST-ATB-DATE
     3 ST-SPECIAL-CV                    C            /* WW-ST-SPECIAL

Source Changes: WWSTDNID

     2 WW-STUDENT-ATTRIBUTES                         /*
     ....
     3 WW-ST-LENDER                     A          9 /*
add->3 WW-ST-ATB-YEAR                   A          4 /*
add->3 WW-ST-ATB-STATE                  A          2 /*
add->3 WW-ST-ATB-CODE                   A          2 /*
add->3 WW-ST-ATB-ADMN                   A          2 /*
add->3 WW-ST-ATB-TEST                   A          2 /*
add->3 WW-ST-ATB-DATE                   D            /*
     3 WW-ST-SPECIAL                    A         20 /*

Source Changes: WWSTDNIO

     000810     02 WW-STUDENT-ATTRIBUTES
      ....
     000910       03 WW-ST-LENDER
add->             03 WW-ST-ATB-YEAR
add->             03 WW-ST-ATB-STATE
add->             03 WW-ST-ATB-CODE
add->             03 WW-ST-ATB-ADMN
add->             03 WW-ST-ATB-TEST
add->             03 WW-ST-ATB-DATE
     000920       03 WW-ST-SPECIAL

Source Changes: WWSTDNMD

     2 WW-STUDENT-ATTRIBUTES                         /*
     ....
     3 WW-ST-LENDER                     A          9 /*
add->3 WW-ST-ATB-YEAR                   A          4 /*
add->3 WW-ST-ATB-STATE                  A          2 /*
add->3 WW-ST-ATB-CODE                   A          2 /*
add->3 WW-ST-ATB-ADMN                   A          2 /*
add->3 WW-ST-ATB-TEST                   A          2 /*
add->3 WW-ST-ATB-DATE                   D            /*
     3 WW-ST-SPECIAL                    A         20 /*

Source Changes: WWSTDNMO

     000810     02 WW-STUDENT-ATTRIBUTES
      ....
     000910       03 WW-ST-LENDER
add->             03 WW-ST-ATB-YEAR
add->             03 WW-ST-ATB-STATE
add->             03 WW-ST-ATB-CODE
add->             03 WW-ST-ATB-ADMN
add->             03 WW-ST-ATB-TEST
add->             03 WW-ST-ATB-DATE
     000920       03 WW-ST-SPECIAL

Source Changes: WWSTDNTB

     003460     VALUE 'WW-ST-LENDER'
     003470       ASSIGN #FILE-FIELD = 'WWSTDNTD.WW-ST-LENDER'
     003480       ASSIGN #VALUE = BATCH-TRAN.DATA-VALUE
     003490       PERFORM CALL-EDIT-ROUTINE
     003500       IF NOT #VALID-VALUE OR NOT #VALID-MASK
     003510         ASSIGN REJECT-TRANS = TRUE
     003520       ELSE
     003530         ASSIGN WWSTDNTD.WW-ST-LENDER = #VALUE
     003540       END-IF
add->           VALUE 'WW-ST-ATB-YEAR'
add->             ASSIGN #FILE-FIELD = 'WWSTDNTD.WW-ST-ATB-YEAR'
add->             ASSIGN #VALUE = BATCH-TRAN.DATA-VALUE
add->             PERFORM CALL-EDIT-ROUTINE
add->             IF NOT #VALID-VALUE OR NOT #VALID-MASK
add->               ASSIGN REJECT-TRANS = TRUE
add->             ELSE
add->               ASSIGN WWSTDNTD.WW-ST-ATB-YEAR = #VALUE
add->             END-IF
add->           VALUE 'WW-ST-ATB-STATE'
add->             ASSIGN #FILE-FIELD = 'WWSTDNTD.WW-ST-ATB-STATE'
add->             ASSIGN #VALUE = BATCH-TRAN.DATA-VALUE
add->             PERFORM CALL-EDIT-ROUTINE
add->             IF NOT #VALID-VALUE OR NOT #VALID-MASK
add->               ASSIGN REJECT-TRANS = TRUE
add->             ELSE
add->               ASSIGN WWSTDNTD.WW-ST-ATB-STATE = #VALUE
add->             END-IF
add->           VALUE 'WW-ST-ATB-CODE'
add->             ASSIGN #FILE-FIELD = 'WWSTDNTD.WW-ST-ATB-CODE'
add->             ASSIGN #VALUE = BATCH-TRAN.DATA-VALUE
add->             PERFORM CALL-EDIT-ROUTINE
add->             IF NOT #VALID-VALUE OR NOT #VALID-MASK
add->               ASSIGN REJECT-TRANS = TRUE
add->             ELSE
add->               ASSIGN WWSTDNTD.WW-ST-ATB-CODE = #VALUE
add->             END-IF
add->           VALUE 'WW-ST-ATB-ADMN'
add->             ASSIGN #FILE-FIELD = 'WWSTDNTD.WW-ST-ATB-ADMN'
add->             ASSIGN #VALUE = BATCH-TRAN.DATA-VALUE
add->             PERFORM CALL-EDIT-ROUTINE
add->             IF NOT #VALID-VALUE OR NOT #VALID-MASK
add->               ASSIGN REJECT-TRANS = TRUE
add->             ELSE
add->               ASSIGN WWSTDNTD.WW-ST-ATB-ADMN = #VALUE
add->             END-IF
add->           VALUE 'WW-ST-ATB-TEST'
add->             ASSIGN #FILE-FIELD = 'WWSTDNTD.WW-ST-ATB-TEST'
add->             ASSIGN #VALUE = BATCH-TRAN.DATA-VALUE
add->             PERFORM CALL-EDIT-ROUTINE
add->             IF NOT #VALID-VALUE OR NOT #VALID-MASK
add->               ASSIGN REJECT-TRANS = TRUE
add->             ELSE
add->               ASSIGN WWSTDNTD.WW-ST-ATB-TEST = #VALUE
add->             END-IF
add->           VALUE 'WW-ST-ATB-DATE'
add->             ASSIGN #FILE-FIELD = 'WWSTDNTD.WW-ST-ATB-DATE'
add->             ASSIGN #VALUE = BATCH-TRAN.DATA-VALUE
add->             ASSIGN #EDIT-MASK = 'MM/DD/YYYY'
add->             PERFORM CALL-EDIT-ROUTINE
add->             IF NOT #VALID-VALUE OR NOT #VALID-MASK
add->               ASSIGN REJECT-TRANS = TRUE
add->             ELSE
add->               IF #VALUE = SPACE
add->                 RESET WWSTDNTD.WW-ST-ATB-DATE
add->               ELSE
add->                 MOVE EDITED #VALUE-MASK TO
add->                   WWSTDNTD.WW-ST-ATB-DATE (EM=MMDDYYYY)
add->               END-IF
add->               IF #VALU-SUB > 0
add->                 MOVE EDITED WWSTDNTD.WW-ST-ATB-DATE
add->                   (EM=MM/DD/YYYY) TO
add->                     WWVALLDA.#VALU(#VALU-SUB)
add->               END-IF
add->             END-IF
     003550     VALUE 'WW-ST-SPECIAL'
     003560       ASSIGN #FILE-FIELD = 'WWSTDNTD.WW-ST-SPECIAL'
     003570       ASSIGN #VALUE = BATCH-TRAN.DATA-VALUE
     003580       PERFORM CALL-EDIT-ROUTINE
     003590       IF NOT #VALID-VALUE OR NOT #VALID-MASK
     003600         ASSIGN REJECT-TRANS = TRUE
     003610       ELSE
     003620         ASSIGN WWSTDNTD.WW-ST-SPECIAL = #VALUE
     003630       END-IF

Source Changes: WWSTDNTD

     2 WW-STUDENT-ATTRIBUTES                         /*
     ....
     3 WW-ST-LENDER                     A          9 /*
add->3 WW-ST-ATB-YEAR                   A          4 /*
add->3 WW-ST-ATB-STATE                  A          2 /*
add->3 WW-ST-ATB-CODE                   A          2 /*
add->3 WW-ST-ATB-ADMN                   A          2 /*
add->3 WW-ST-ATB-TEST                   A          2 /*
add->3 WW-ST-ATB-DATE                   D            /*
     3 WW-ST-SPECIAL                    A         20 /*

Source Changes: WWSTDNTO

     000810     02 WW-STUDENT-ATTRIBUTES
      ....
     000910       03 WW-ST-LENDER
add->             03 WW-ST-ATB-YEAR
add->             03 WW-ST-ATB-STATE
add->             03 WW-ST-ATB-CODE
add->             03 WW-ST-ATB-ADMN
add->             03 WW-ST-ATB-TEST
add->             03 WW-ST-ATB-DATE
     000920       03 WW-ST-SPECIAL

Source Changes: WWSTDNTS

     2 WW-STUDENT-SHADOW-FILE                        /*
     ....
     3 WW-ST-AT-SRC                     A         20 /*
add->3 WW-ST-ATB-DATE                   A         10 /*
     3 WW-ST-AD1-SRC                    A         20 /*

     2 STUDENT-LOGICALS                              /* WW-STUDENT Edit Logica
     ....
     3 ST-LENDER-F                      L            /* WW-ST-LENDER
add->3 ST-ATB-YEAR-F                    L            /* WW-ST-ATB-YEAR
add->3 ST-ATB-STATE-F                   L            /* WW-ST-ATB-STATE
add->3 ST-ATB-CODE-F                    L            /* WW-ST-ATB-CODE
add->3 ST-ATB-ADMN-F                    L            /* WW-ST-ATB-ADMN
add->3 ST-ATB-TEST-F                    L            /* WW-ST-ATB-TEST
add->3 ST-ATB-DATE-F                    L            /* WW-ST-ATB-DATE
     3 ST-SPECIAL-F                     L            /* WW-ST-SPECIAL

     2 STUDENT-CNTL-VARS                             /* WW-STUDENT Control Var
     ....
     3 ST-LENDER-CV                     C            /* WW-ST-LENDER
add->3 ST-ATB-YEAR-CV                   C            /* WW-ST-ATB-YEAR
add->3 ST-ATB-STATE-CV                  C            /* WW-ST-ATB-STATE
add->3 ST-ATB-CODE-CV                   C            /* WW-ST-ATB-CODE
add->3 ST-ATB-ADMN-CV                   C            /* WW-ST-ATB-ADMN
add->3 ST-ATB-TEST-CV                   C            /* WW-ST-ATB-TEST
add->3 ST-ATB-DATE-CV                   C            /* WW-ST-ATB-DATE
     3 ST-SPECIAL-CV                    C            /* WW-ST-SPECIAL

Source Changes: WWSTDNTT

     000950       ST-LENDER-CV                     /* WW-ST-LENDER
add->             ST-ATB-YEAR-CV                   /* WW-ST-ATB-YEAR
add->             ST-ATB-STATE-CV                  /* WW-ST-ATB-STATE
add->             ST-ATB-CODE-CV                   /* WW-ST-ATB-CODE
add->             ST-ATB-ADMN-CV                   /* WW-ST-ATB-ADMN
add->             ST-ATB-TEST-CV                   /* WW-ST-ATB-TEST
add->             ST-ATB-DATE-CV                   /* WW-ST-ATB-DATE
     000960       ST-SPECIAL-CV                    /* WW-ST-SPECIAL

Source Changes: WWSTDNTV

     3 ST-LENDER-CV                     C            /* WW-ST-LENDER
add->3 ST-ATB-YEAR-CV                   C            /* WW-ST-ATB-YEAR
add->3 ST-ATB-STATE-CV                  C            /* WW-ST-ATB-STATE
add->3 ST-ATB-CODE-CV                   C            /* WW-ST-ATB-CODE
add->3 ST-ATB-ADMN-CV                   C            /* WW-ST-ATB-ADMN
add->3 ST-ATB-TEST-CV                   C            /* WW-ST-ATB-TEST
add->3 ST-ATB-DATE-CV                   C            /* WW-ST-ATB-DATE
     3 ST-SPECIAL-CV                    C            /* WW-ST-SPECIAL