Satisfactory Academic Progress Equation

This is a hold/release demonstration equation to verify satisfactory academic progress for a student.

Line Number	Equation Keyword	Operand Type	Operand	Comment
1	SKIP			Satisfactory Academic Progress Check
2	FIND FIRST	Local Variable	FOUND_STDNT_AID_ATRBT
3		Table	STDNT_AID_ATRBT
4		Keyed Global Equal	EMPLID
5		Keyed Global Equal	INSTITUTION
6		Keyed Global Equal	AID_YEAR
7		Keyed Global Equal	TABLE_ID
8	END FIND
9	IF
10	NOT
11		Local Variable	FOUND_STDNT_AID_ATRBT
12	Then
13	Message	String	No row in STDNT_AID_ATRBT
14		String	for key values
15		Global Variables	EMPLID
16		Global Variable	INSTITUTION
17		Global Variable	AID_YEAR
18		Global Variable	TABLE_ID
19	END MESSAGE
20	ASSIGN	Global Variable	RESULT
21		String	FAILED
22	END ASSIGN
23	ASSIGN	Global Variable	HR_MSG_SET_NBR
24		String	14432
25	END ASSIGN
26	ASSIGN	Global Variable	HR_MSG_NBR
27		String	00001
28	END ASSIGN
29	RETURN
30	END IF
31	IF
32		Table	STDNT_AID_ATRBT
33		Field	SAT_ACADEMIC_PRG
34	=
35		Prompted Value	Y
36	OR
37		Table	STDNT_AID_ATRBT
38		Field	SAT_ACADEMIC_PRG
39	=
40		Prompted Value	P
41	THEN
42	ASSIGN	Global Variable	RESULT
43		String	PASS
44	END ASSIGN
45	ELSE
46	ASSIGN	Global Variable	HR_MSG_SET_NBR
47		String	14432
48	END ASSIGN
49	ASSIGN	Global Variable	HR_MSG_NBR
50		String	00002
51	END ASSIGN
52	ASSIGN	Global Variable	RESULT
53		String	FAILED
54	END ASSIGN
55	END IF