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)