* 06/06/00 MC ADJUST ALIGNMENT (MC0600)
**
** FORMAT OF THE LETTER
**
01 HOLD-MIL-TABLE.
...
01 MIL-AC.
* 03 FILLER PIC X(09) VALUE SPACES. MC0600
03 FILLER PIC X(04) VALUE SPACES. MC0600
03 FILLER PIC X(22) VALUE ALL 'X'.
03 FILLER PIC X(19) VALUE SPACES.
01 TRANS-LINE.
...
1200-PA-020.
ADD 1 TO NUM-PLU.
IF NUM-PLU > PLU-MAX
GO TO 1200-PA-040.
MOVE ALL 'X' TO MIL-RET-ADDR (1 7)
MIL-RET-ADDR (1 8)
MIL-RET-ADDR (1 9)
MIL-RET-ADDR (1 10)
MIL-RET-ADDR (1 11).
* MOVE MIL-ED TO MIL-RIGHT (1 17). MC0600
* MOVE MIL-AC TO MIL-RIGHT (1 22). MC0600
* MOVE ALL 'X' TO MIL-NAME (1 26) MC0600
* MIL-NAME (1 27) MC0600
* MIL-SID (1 27) MC0600
* MIL-NAME (1 28) MC0600
* MIL-NAME (1 29) MC0600
* MIL-NAME (1 30) MC0600
* SIG-SIG. MC0600
MOVE MIL-ED TO MIL-RIGHT (1 13). MC0600
MOVE MIL-AC TO MIL-LEFT (1 13). MC0600
MOVE ALL 'X' TO MIL-NAME (1 20) MC0600
MIL-NAME (1 21) MC0600
MIL-SID (1 21) MC0600
MIL-NAME (1 22) MC0600
MIL-NAME (1 23) MC0600
MIL-NAME (1 24) MC0600
SIG-SIG. MC0600
MOVE SIG-LINE TO MIL-LINE (1 82).
MOVE ALL 'X' TO TITLE-TITLE.
MOVE TITLE-LINE TO MIL-LINE (1 83).
* SET ML-INX TO 33. MC0600
SET ML-INX TO 27. MC0600
1200-PA-030.
SET ML-INX UP BY 1.
....
**
** HOLD ON TO OUR PLACE IN THE TRACKING SEGMENT
**
MOVE ST-TK TO HOLD-ST-TK.
**
IF ML-INX = 1
PERFORM 6100-REPORT-HEADERS THRU 6100-RH-EXIT
ELSE
* IF ML-INX NOT = 34 MC0600
IF ML-INX NOT = 28 MC0600
SET ML-INX UP BY 1.
**
** GET BACK TO OUR PLACE IN THE TRACKING SEGMENT
**
...
4020-PD-070.
MOVE AC-TM-MSG TO MIL-LINE (MP-INX, ML-INX).
SET ML-INX UP BY 1.
IF ML-INX > MM-MAX
ADD 1 TO PG-MAX
SET MP-INX UP BY 1
* SET ML-INX TO 34 MC0600
SET ML-INX TO 28 MC0600
IF MP-INX NOT > MP-MAX
PERFORM 6100-REPORT-HEADERS THRU 6100-RH-EXIT.
IF MP-INX > MP-MAX
...
...
**
MOVE SL-FT TO HOLD-ST-TK.
**
IF ML-INX = 1
PERFORM 6100-REPORT-HEADERS THRU 6100-RH-EXIT
ELSE
* IF ML-INX NOT = 34 MC0600
IF ML-INX NOT = 28 MC0600
SET ML-INX UP BY 1.
**
** GET BACK TO OUR PLACE IN THE TRACKING SEGMENT
**
MOVE HOLD-ST-TK TO SL-FT.
**
* IF ML-INX NOT = 34 MC0600
IF ML-INX NOT = 28 MC0600
SET ML-INX DOWN BY 1.
IF TRANS-SW NOT = 'Y'
...
...
**
** GET THE LONG DESCRIPTION FOR THE SCHOOL
**
MOVE SPACES TO AI-NOMINAL-KEY.
MOVE SL-FT-SCHOOL-CODE (SL-FT) TO AI-NK-SCHOOL-CODE.
MOVE RANDOM-READ TO AI-CMD.
MOVE AI-VIEW-INST TO A-DBMS-INFO.
PERFORM 8100-AI-IO.
IF AI-RTN = SUCCESSFUL
MOVE AI-NAME TO TRANS
ELSE
MOVE SL-FT-SCHOOL-CODE (SL-FT) TO TRANS.
**
MOVE TRANS-LINE TO MIL-LINE (MP-INX, ML-INX).
MOVE SPACES TO TRANS.
SET ML-INX UP BY 1.
IF ML-INX > MM-MAX
ADD 1 TO PG-MAX
SET MP-INX UP BY 1
* SET ML-INX TO 34 MC0600
SET ML-INX TO 28 MC0600
IF MP-INX NOT > MP-MAX
PERFORM 6100-REPORT-HEADERS THRU 6100-RH-EXIT.
IF MP-INX > MP-MAX
...
...
6100-RH-020.
MOVE RET-ADDRESS (RA-INX) TO MIL-RET-ADDR (MP-INX, ML-INX).
IF RA-INX < RA-MAX
ADD 1 TO RA-INX
SET ML-INX UP BY 1
GO TO 6100-RH-020.
**
** LINE 11 - LEFT SIDE
**
IF PM-OPTION1 = 'Y'
CALL 'ASNARI' USING ZE-WORK
MOVE ZE-WORK TO MIL-NAME (MP-INX, ML-INX).
**
** LINE 17 EDITTED DATE LINE MC0600
** LINE 17 EDITTED DATE LINE AND ACADEMIC YEAR MC0600
**
SET ML-INX TO 17.
MOVE EDIT-DATE TO MIL-RIGHT (MP-INX, ML-INX).
MOVE EDIT-YR-AWPD TO MIL-LEFT (MP-INX, ML-INX). MC0600
** MC0600
** LINE 22 ACADEMIC YEAR MC0600
** MC0600
* SET ML-INX TO 22. MC0600
* MOVE EDIT-YR-AWPD TO MIL-RIGHT (MP-INX, ML-INX). MC0600
**
** LINE 26 STUDENT NAME MC0600
** LINE 20 STUDENT NAME MC0600
**
* SET ML-INX TO 26. MC0600
SET ML-INX TO 20. MC0600
IF MP-INX = 1
MOVE PM-ADDRNAME TO PV-REQUESTED
MOVE AA-NAME TO PV-IN-NAME
MOVE AA-SEX TO PV-SEX
...
...
MOVE PV-OUT-NAME TO MIL-NAME (MP-INX, ML-INX).
**
** LINES 27 - 29 STREET, CITY, STATE, ZIP LINES MC0600
** LINES 21 - 23 STREET, CITY, STATE, ZIP LINES MC0600
**
* SET ML-INX TO 27.
SET ML-INX TO 21. MC0600
IF MP-INX = 1
MOVE AA-SID TO ZE-WORK
...
...
MOVE AWA-FORMATTED-LINE (4) TO MIL-NAME (MP-INX, ML-INX).
**
** LINE 34 FIRST LINE OF LETTER MC0600
** LINE 28 FIRST LINE OF LETTER MC0600
**
* SET ML-INX TO 34. MC0600
SET ML-INX TO 28. MC0600
IF MP-INX > 1
GO TO 6100-RH-EXIT.
IF TX-INX = 1
GO TO 6100-RH-EXIT.
MOVE 0 TO TEXT-SUB.
6100-RH-030.
SIS Financial Aid In-House Changes
Last Modified: Tuesday, 28-Nov-2000 14:40:32 CST
©1999 All Rights Reserved