OS/RPG(32K)*V1M10 RPGECLG RPG 10/12/72 PAGE 0001
H EXAMP8
H*
H* PRINT STUDENT GRADE REPORT
H*
001 FSTMASTR UP F 250 250R 7KI 2 DISK14 S
002 FRAF IRE F5000 50 7 ETAPE S
003 FTABLE IT F 80 80 ETAPE S
004 FREPORT O F 132 132 OF LPRINTER
005 E RAF STMASTR
006 E TABLE TABCNR 1 120 5 ATABCNA 51
007 LREPORT 101 6012
008 ISTMASTR AA 01 1 CA
009 I OR 91 1 CD
010 I 9 43 NAME
011 I 136 1410CN1N 11
012 I 136 140 CN1
013 I P 142 1442CN1G
014 I 145 1500CN2N 12
015 I 145 149 CN2
016 I P 151 1532CN2G
017 I 154 1590CN3N 13
018 I 154 158 CN3
019 I P 160 1622CN3G
020 I 163 1680CN4N 14
021 I 163 167 CN4
022 I P 169 1712CN4G
023 I 172 1770CN5N 15
024 I 172 176 CN5
025 I P 178 1802CN5G
026 I 181 1860CN6N 16
027 I 181 185 CN6
028 I P 187 1892CN6G
029 I 190 1950CN7N 17
030 I 190 194 CN7
031 I P 196 1982CN7G
032 I 199 2040CN8N 18
033 I 199 203 CN8
034 I P 205 2072CN8G
035 I P 208 2102GPA
C*
C* FOR EACH COURSE IN THE STUDENT RECORD WHICH CONTAINS A COURSE
C* NUMBER, COMPUTE EARNED GRADE POINTS AND ACCUMULATE ATTEMPTED
C* HOURS AND GRADE POINTS
C*
036 C 01 Z-ADD0 THOURS 30
037 C 01 Z-ADD0 TGPTS 52
C*
038 C 01 SETOF 21
039 C 01N11 CN1 LOKUPTABCNR TABCNA 51 21
040 C 01 21 MOVE TABCNA CRSHRS 10
------------------------------------------------------------------------------------------------------------------------
OS/RPG(32K)*V1M10 RPGECLG RPG 10/12/72 PAGE 0002
041 C 01 21 THOURS ADD CRSHRS THOURS
042 C 01 21 CN1G MULT CRSHRS GPTS 52
043 C 01 21 TGPTS ADD GPTS TGPTS
C*
044 C 01 SETOF 21
045 C 01N12 CN2 LOKUPTABCNR TABCNA 51 21
046 C 01 21 MOVE TABCNA CRSHRS
047 C 01 21 THOURS ADD CRSHRS THOURS
048 C 01 21 CN2G MULT CRSHRS GPTS
049 C 01 21 TGPTS ADD GPTS TGPTS
C*
050 C 01 SETOF 21
051 C 01N13 CN3 LOKUPTABCNR TABCNA 51 21
052 C 01 21 MOVE TABCNA CRSHRS
053 C 01 21 THOURS ADD CRSHRS THOURS
054 C 01 21 CN3G MULT CRSHRS GPTS
055 C 01 21 TGPTS ADD GPTS TGPTS
C*
056 C 01 SETOF 21
057 C 01N14 CN4 LOKUPTABCNR TABCNA 51 21
058 C 01 21 MOVE TABCNA CRSHRS
059 C 01 21 THOURS ADD CRSHRS THOURS
060 C 01 21 CN4G MULT CRSHRS GPTS
061 C 01 21 TGPTS ADD GPTS TGPTS
C*
062 C 01 SETOF 21
063 C 01N15 CN5 LOKUPTABCNR TABCNA 51 21
064 C 01 21 MOVE TABCNA CRSHRS
065 C 01 21 THOURS ADD CRSHRS THOURS
066 C 01 21 CN5G MULT CRSHRS GPTS
067 C 01 21 TGPTS ADD GPTS TGPTS
C*
068 C 01 SETOF 21
069 C 01N16 CN6 LOKUPTABCNR TABCNA 51 21
070 C 01 21 MOVE TABCNA CRSHRS
071 C 01 21 THOURS ADD CRSHRS THOURS
072 C 01 21 CN6G MULT CRSHRS GPTS
073 C 01 21 TGPTS ADD GPTS TGPTS
C*
074 C 01 SETOF 21
075 C 01N17 CN7 LOKUPTABCNR TABCNA 51 21
076 C 01 21 MOVE TABCNA CRSHRS
077 C 01 21 THOURS ADD CRSHRS THOURS
078 C 01 21 CN7G MULT CRSHRS GPTS
079 C 01 21 TGPTS ADD GPTS TGPTS
C*
080 C 01 SETOF 21
081 C 01N18 CN8 LOKUPTABCNR TABCNA 51 21
082 C 01 21 MOVE TABCNA CRSHRS
083 C 01 21 THOURS ADD CRSHRS THOURS
------------------------------------------------------------------------------------------------------------------------
OS/RPG(32K)*V1M10 RPGECLG RPG 10/12/72 PAGE 0003
084 C 01 21 CN8G MULT CRSHRS GPTS
085 C 01 21 TGPTS ADD GPTS TGPTS
C*
C* COMPUTE FINAL GRADE POINT AVERAGE
C*
086 C 01 TGPTS DIV THOURS GPA H
087 OSTMASTR D 01
088 O GPA 210P
089 OREPORT H 201 1P
090 O OR OF
091 O 34 'STUDENT GRADE REPORT'
092 O D 1 01
093 O GPA 55 ' 0. '
094 O NAME 40
------------------------------------------------------------------------------------------------------------------------
OS/RPG(32K)*V1M10 RPGECLG RPG 10/12/72 PAGE 0004
SYMBOL TABLES
RESULTING INDICATORS
ADDRESS RI ADDRESS RI ADDRESS RI ADDRESS RI ADDRESS RI ADDRESS RI ADDRESS RI
000004 U1 000005 U2 000006 U3 000007 U4 000008 U5 000009 U6 00000A U7 00000B U8 000011 OF 000014 1P 000015 LR 000016 00 000017 01 000021 11 000022 12 000023 13 000024 14 000025 15 000026 16 000027 17 000028 18 00002B 21 000071 91 00007A L0 000085 H0 000086 H1 000087 H2 000088 H3 000089 H4 00008A H5 00008B H6 00008C H7 00008D H8 00008E H9
FIELD NAMES
ADDRESS FIELD ADDRESS FIELD ADDRESS FIELD ADDRESS FIELD ADDRESS FIELD
000183 CONTD ENTRY 000138 TABCNR 000150 TABCNA 00018A NAME 0001AD CN1N 0001B1 CN1 0001B6 CN1G 0001B9 CN2N 0001BD CN2 0001C2 CN2G 0001C5 CN3N 0001C9 CN3 0001CE CN3G 0001D1 CN4N 0001D5 CN4 0001DA CN4G 0001DD CN5N 0001E1 CN5 0001E6 CN5G 0001E9 CN6N 0001ED CN6 0001F2 CN6G 0001F5 CN7N 0001F9 CN7 0001FE CN7G 000201 CN8N 000205 CN8 00020A CN8G 00020D GPA 000210 THOURS 000212 TGPTS 000215 CRSHRS 000216 GPTS
LITERALS
ADDRESS LITERAL ADDRESS LITERAL ADDRESS LITERAL
000219 0 00021A STUDENT GRADE REPORT 00022E ½½À.½½
009 91 IES213I
011 CN1N IES216I
014 CN2N IES216I
017 CN3N IES216I
020 CN4N IES216I
023 CN5N IES216I
026 CN6N IES216I
029 CN7N IES216I
032 CN8N IES216I
IES213I WARNING - RESULTING INDICATOR IS UNREFERENCED.
IES216I WARNING - FIELD NAME IS UNREFERENCED.
MEMORY MAP
INPUT/OUTPUT INTERCEPT 001F54
RECORD ADDRESS FILE 001F7C
------------------------------------------------------------------------------------------------------------------------
OS/RPG(32K)*V1M10 RPGECLG RPG 10/12/72 PAGE 0005
CHAINING 000238 TABLE (INPUT AND OUTPUT) 000250 DETERMINE RECORD TYPE 0023B8 DATA SPECIFICATION 0020B4 GET INPUT RECORD 002608 DETAIL CALCULATIONS 0027D4 TOTAL CALCULATIONS 002D78 DETAIL LINES 002E52 TOTAL LINES 002D90 INPUT/OUTPUT REQUEST BLOCKS POINTER 003D98 LOCATION OF DCB POINTERS 002F60 INPUT/OUTPUT INTERFACE ROUTINES 003350 TABLE LOOK UP 003E1C LINE COUNTER 002FB0 LINE COUNTER TABLE 003330 WORK AREA POINTER 0042F8 OVERFLOW BYPASS 002E46 TABLE(ASSEMBLE 4) 002F04 OVERFLOW LINES 002DBA LINKAGE PROGRAM 003FB0
PROGRAM LENGTH 00441D
*STATISTICS* SOURCE RECORDS = 95
*OPTIONS IN EFFECT* LOAD, NODECK, LIST, NOSEQN
'END OF COMPILATION'
------------------------------------------------------------------------------------------------------------------------
F128-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED XREF,LIST,LET
DEFAULT OPTION(S) USED - SIZE=(131072,18432)
CROSS REFERENCE TABLE
CONTROL SECTION ENTRY
NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME LOCATION
EXAMP8 00 441D
CONTD 183
LOCATION REFERS TO SYMBOL IN CONTROL SECTION LOCATION REFERS TO SYMBOL IN CONTROL SECTION
ENTRY ADDRESS 3FB0 TOTAL LENGTH 4420
****RPG DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
------------------------------------------------------------------------------------------------------------------------
STUDENT GRADE REPORT
LARRY H. ALAN 3.58
JIM O. AUSTIN 2.86
LOUIS E. AUSTIN 3.22
ROBERT I. BARBER 3.00
HELEN C. BENSON 2.79
CALVIN B. BRYANT 2.87
ROLAND F. BRYANT 2.92
ANN H. BURNETT 2.22
EVERETT H. BURNETT 2.17
ERNIE S. CHILDRESS 2.14
NELSON E. CHILDRESS 2.00
CYBIL M. CONLEY 3.14
TOM T. COOK 2.31
BETTY P. DRAKE 2.17
RUSSELL S. ERICKSON 2.31
DAWN I. FITZGERALD 2.59
RUTH H. FRANKLIN 2.46
TED A. FRANKLIN 2.33
JOAN L. GARLAND 3.00
RICHARD A. GARLAND 2.50
RONALD M. GARLAND 2.09
LARRY C. GERBLICK 2.17
ERNIE E. GLASSMAN 3.00
ELIZABETH W. GLOVER 2.33
KIMBERLY G. GLOVER 3.08
CHARLES K. HALL 2.42
ERNIE A. HALL 2.00
WILLIAM K. HALL 2.71
RICHARD O. HAMMOND 1.83
LOUISE W. HARMON 2.43
JACK S. HASTINGS 2.33
MARGUERITE K. HASTINGS 3.00
PETER H. HASTINGS 2.25
SAMANTHA I. HASTINGS 3.25
ARNOLD O. HILLFORD 2.50
MARGUERITE N. HILLFORD 3.34
HOWARD B. HODGES 2.25
RONALD I. HODGES 2.76
HEATHER J. HORTON 1.57
SAMANTHA B. HORTON 3.10
JOHN J. JACKSON 1.55
MARILYN W. JACOBY 2.46
JILL K. JENNINGS 1.58
ROLAND D. JOHNSON 2.75
CALVIN D. LABROIE 2.67
SAMANTHA D. LABROIE 2.00
EVELYN C. LANDERS 2.40
LUCY B. LANDERS 2.09
WANDA I. LARUE 2.92
YOLANDA C. LARUE 3.21
CINDY O. MCKAY 2.59
DANIEL R. MCKAY 2.33
TED R. MCKAY 3.71
SARAH V. MCKENZIE 3.00
ZELDA E. MCKENZIE 2.56
CINDY D. MCQUEEN 2.92
CAITLIN I. MEEHAN 2.00
JACK D. MEEHAN 3.33
------------------------------------------------------------------------------------------------------------------------
STUDENT GRADE REPORT
JIM N. MEEHAN 1.95
CLARA T. MORENO 2.79
HEATHER J. MORENO 2.31
TED D. MULL 2.33
TAMMY T. NEWBURY 2.75
BETTY J. NEWTON 1.74
DEBRA A. NEWTON 2.74
CINDY E. NOELKE 3.22
DIANE G. NOELKE 2.83
JANET F. NORRIS 2.50
TAMMY L. NORRIS 2.86
HANNAH E. NORTON 2.69
JACOB K. PARKER 2.45
LOUISE L. PARKER 2.90
ARNOLD W. PARRISH 2.44
EVERETT R. PARRISH 2.59
VIRGINIA A. PETERSON 3.09
LUCY I. POWERS 2.26
EVERETT I. RAMSEY 2.46
LAURIE B. REED 2.34
BEVERLY L. RICHARDS 2.78
MIKE T. RICHARDS 2.41
CALVIN B. RODGERS 2.09
THELMA I. RODGERS 2.74
BOB A. SCHAEFER 2.78
KATHRYN I. SCHWAB 3.00
JOSEPH R. SMITH 3.00
JANET V. TEASDALE 2.56
LAURIE N. TEASDALE 2.40
JOSEPH H. THATCHER 3.07
BRENDA F. TUCKER 3.17
KAREN A. TUCKER 2.67
EVERETT K. VANACKER 2.42
PATTY S. VANACKER 2.33
LARRY V. WEAVER 2.00
CLIFF N. WHITE 3.57
JACOB T. WINSTON 2.29
LARRY W. WINSTON 2.43
SHARON T. YAEGER 1.83
------------------------------------------------------------------------------------------------------------------------
