Software and Services for Financial Aid
WolffPack differences report |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
*S****C 0000***********************************************************************
*S****C 0000* WolffPack, Inc.
*S****C 0000* Copyright 1995 - 2003
*S****C 0000* LDA: WWVALLDA WolffPack, Inc.
*S****C 0000* System: FINANCIER All rights reserved.
*S****C 0000*
*S****C 0000***********************************************************************
*S****DS 0000 1WWVALLDA
*S****C 0000* /* Used during value and/or
*S****C 0000* /* edit mask validation
*S****DK 0000A 29 2#FILE-FIELD /* Used to store field title
*S****DK 0000A 60 2#VALUE /* Used to store content of
*S****C 0000* /* field
*S****DK 0000N18.2 2#VALUE-TMP
*S****DK 0000A 20 2#VALUE-MASK
*S****DK 0000A 20 2#EDIT-MASK /* Used to store edit mask
*S****DK 0000P 3 2#BLANK-SUB /* Used for blank/numeric fields
*S****DS 0000 2#VALIDATION-LOGICALS
*S****DK 0000L 3#VALID-VALUE
*S****DK 0000L 3#VALID-MASK
*S****DK 0000L 3#FAIL-EDIT
*S****DK 0000L 3#BLANK-NUMERIC
*S****DK 0000L 3#TRIAL-CALC
*S****DK 0000I 4 2#FIELD-POS
*S****DK 0000I 4 2#MARK-FIELD /* Used to indicate first
*S****C 0000* /* field in error
*S****C 0000* /*
*S****C 0000* /*
*S****DK 0000P 3 2#VALU-SUB /* Used to store current
*S****CK 0000* /* occurence of field in
*S****CK 0000* /* process of being editted
*S****C 0000* /*
*S****DS 0000 2#MODIFIED-LOGICALS /* Logicals indicating data was
*S****C 0000* /* modified, reset after update
*S****C 0000* /* occurs
*S****DK 0000L 3#DATA-MODIFIED /* Overall logical
*S****C 0000* /*
*S****C 0000* /* Array is used to store info
*S****C 0000* /* concerning fields which
*S****C 0000* /* have passed edits
*S****DS I1 0000 2#UTILITY-ARRAY (100)
*S****DK 0000A 8 3#FILE
*S****DK 0000A 20 3#FIELD
*S****DK 0000A 50 3#VALU
*S****DK 0000A 3 3#SAR-FLD-NO
*S****DK 0000A 3 3#DSL-FLD-NO
*S****DK 0000A 3 3#DPL-FLD-NO
*S****DK 0000A 10 3#FEDERAL-VALUE
*S****DK I2 0000A 1 3#UTILITY-FLAG (6) /* Used to store field
*S****C 0000* /* utility flags
*S****C 0000*
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
*S****C 0 ***********************************************************************
*S****C 0 * WolffPack, Inc.
*S****C 0 * Copyright 1995 - 2003
*S****C 0 * LDA: WWVALLDA WolffPack, Inc.
*S****C 0 * System: FINANCIER All rights reserved.
*S****C 0 *
*S****C 0 ***********************************************************************
*S****DS 0 1WWVALLDA
*S****C 0 * /* Used during value and/or
*S****C 0 * /* edit mask validation
*S****DK 0 A 29 2#FILE-FIELD /* Used to store field title
*S****DK 0 A 60 2#VALUE /* Used to store content of
*S****C 0 * /* field
*S****DK 0 N18.2 2#VALUE-TMP
*S****DK 0 A 20 2#VALUE-MASK
*S****DK 0 A 20 2#EDIT-MASK /* Used to store edit mask
*S****DK 0 P 3 2#BLANK-SUB /* Used for blank/numeric fields
*S****DS 0 2#VALIDATION-LOGICALS
*S****DK 0 L 3#VALID-VALUE
*S****DK 0 L 3#VALID-MASK
*S****DK 0 L 3#FAIL-EDIT
*S****DK 0 L 3#BLANK-NUMERIC
*S****DK 0 L 3#TRIAL-CALC
*S****DK 0 I 4 2#FIELD-POS
*S****DK 0 I 4 2#MARK-FIELD /* Used to indicate first
*S****C 0 * /* field in error
*S****C 0 * /*
*S****C 0 * /*
*S****DK 0 P 3 2#VALU-SUB /* Used to store current
*S****C 0 * /* occurence of field in
*S****C 0 * /* process of being editted
*S****C 0 * /*
*S****DS 0 2#MODIFIED-LOGICALS /* Logicals indicating data was
*S****C 0 * /* modified, reset after update
*S****C 0 * /* occurs
*S****DK 0 L 3#DATA-MODIFIED /* Overall logical
*S****C 0 * /*
*S****C 0 * /* Array is used to store info
*S****C 0 * /* concerning fields which
*S****C 0 * /* have passed edits
*S****DS I1 0 2#UTILITY-ARRAY (100)
*S****DK 0 A 8 3#FILE
*S****DK 0 A 20 3#FIELD
*S****DK 0 A 50 3#VALU
*S****DK 0 A 3 3#SAR-FLD-NO
*S****DK 0 A 3 3#DSL-FLD-NO
*S****DK 0 A 3 3#DPL-FLD-NO
*S****DK 0 A15 3#FEDERAL-VALUE
*S****DK I2 0 A 1 3#UTILITY-FLAG (6) /* Used to store field
*S****C 0 * /* utility flags
*S****C 0 *
|