This item corrects an omission in release item 1104-02. The 1104-02 modifications removed obsolete ACG and SMART counters from the #ACCUMULATORS parameter group in WFFLR12B, but not from the called subprograms WFPER12N and WFTCR12N, causing a NAT0936 error (mismatch in passed parameters) when the Federal Grant Export job was executed. FPER12N and WFTCR12N are updated to remove the obsolete parameters.
Also, a typographic error in WFPER12N for exporting the student address is corrected.
000270 PARAMETER
000280 01 #ACCUMULATORS
000290 02 #STUDENT-COUNT(P7)
000300 02 #P-STNT-COUNT (P7)
000310 02 #P-AWRD-TOTAL (P13.2)
000320 02 #P-AWRD-NET (P13.2)
000330 02 #P-DISB-TOTAL (P13.2)
000340 02 #P-DISB-NET (P13.2)
del->000350 02 #A-STNT-COUNT (P7)
del->000360 02 #A-AWRD-TOTAL (P13.2)
del->000370 02 #A-AWRD-NET (P13.2)
del->000380 02 #A-DISB-TOTAL (P13.2)
del->000390 02 #A-DISB-NET (P13.2)
del->000400 02 #S-STNT-COUNT (P7)
del->000410 02 #S-AWRD-TOTAL (P13.2)
del->000420 02 #S-AWRD-NET (P13.2)
del->000430 02 #S-DISB-TOTAL (P13.2)
del->000440 02 #S-DISB-NET (P13.2)
000450 02 #T-STNT-COUNT (P7)
000470 02 #T-AWRD-NET (P13.2)
000480 02 #T-DISB-TOTAL (P13.2)
000490 02 #T-DISB-NET (P13.2)
003870 MOVE WFISW12D.#NM-LAST TO #E-ORIG-LAST
003880 MOVE WFISW12D.#NM-FIRST TO #E-ORIG-FIRST
003890 MOVE WFISW12D.#NM-MI TO #E-ORIG-MI
003900 MOVE ##SID TO #E-ORIG-STUDENT-ID
003910 /*
del->003920 MOVE WFISW12D.#AD-STRT TO #E-ORIG-AD-STATE
add-> MOVE WFISW12D.#AD-STRT TO #E-ORIG-AD-STRT
003930 MOVE WFISW12D.#AD-CITY TO #E-ORIG-AD-CITY
003940 MOVE WFISW12D.#AD-STATE TO #E-ORIG-AD-STATE
003950 MOVE WFISW12D.#AD-ZIP TO #E-ORIG-AD-ZIP
000270 PARAMETER
000280 01 #ACCUMULATORS
000290 02 #STUDENT-COUNT(P7)
000300 02 #P-STNT-COUNT (P7)
000310 02 #P-AWRD-TOTAL (P13.2)
000320 02 #P-AWRD-NET (P13.2)
000330 02 #P-DISB-TOTAL (P13.2)
000340 02 #P-DISB-NET (P13.2)
del->000350 02 #A-STNT-COUNT (P7)
del->000360 02 #A-AWRD-TOTAL (P13.2)
del->000370 02 #A-AWRD-NET (P13.2)
del->000380 02 #A-DISB-TOTAL (P13.2)
del->000390 02 #A-DISB-NET (P13.2)
del->000400 02 #S-STNT-COUNT (P7)
del->000410 02 #S-AWRD-TOTAL (P13.2)
del->000420 02 #S-AWRD-NET (P13.2)
del->000430 02 #S-DISB-TOTAL (P13.2)
del->000440 02 #S-DISB-NET (P13.2)
000450 02 #T-STNT-COUNT (P7)
000460 02 #T-AWRD-TOTAL (P13.2)
000470 02 #T-AWRD-NET (P13.2)
000480 02 #T-DISB-TOTAL (P13.2)
000490 02 #T-DISB-NET (P13.2)