OS/RPG(32K)*V1M10 EXAMPLE5 RPG 02/10/73 PAGE 0001
H
H*
H* BUILD FILE TO PRODUCE CLASS ROSTER REPORT
H*
001 FSTMASTR IPE F 250 250 7KI 2 DISK14 S
002 FROSTER O F4800 48 DISK14 S
003 FREPORT O F 132 132 LPRINTER
004 LREPORT 101 6012
005 ISTMASTR AA 01 1 CA
006 I OR 02 1NCA
007 I 2 8 IDENT
008 I 9 43 NAME
009 I 136 1410CN1N 11
010 I 136 141 CN1
011 I 145 1500CN2N 12
012 I 145 150 CN2
013 I 154 1590CN3N 13
014 I 154 159 CN3
015 I 163 1680CN4N 14
016 I 163 168 CN4
017 I 172 1770CN5N 15
018 I 172 177 CN5
019 I 181 1860CN6N 16
020 I 181 186 CN6
021 I 190 1950CN7N 17
022 I 190 195 CN7
023 I 199 2040CN8N 18
024 I 199 204 CN8
C*
C* CALL ASSEMBLER SUBROUTINE TO BUILD SORT NAME
C*
025 C 01 MOVE ' ' SNAME 35
026 C 01 EXIT EX5SUB
027 C RLABL NAME 35
028 C ULABL SNAME 35
C*
C* COUNT STUDENT RECORDS AND RECORDS WRITTEN
C*
029 C 01 STCNT ADD 1 STCNT 30
030 C 01N11 OUTCNT ADD 1 OUTCNT 30
031 C 01N12 OUTCNT ADD 1 OUTCNT
032 C 01N13 OUTCNT ADD 1 OUTCNT
033 C 01N14 OUTCNT ADD 1 OUTCNT
034 C 01N15 OUTCNT ADD 1 OUTCNT
035 C 01N16 OUTCNT ADD 1 OUTCNT
036 C 01N17 OUTCNT ADD 1 OUTCNT
037 C 01N18 OUTCNT ADD 1 OUTCNT
038 OROSTER D 01N11
039 O SNAME 48
040 O IDENT 13
------------------------------------------------------------------------------------------------------------------------
OS/RPG(32K)*V1M10 EXAMPLE5 RPG 02/10/73 PAGE 0002
041 O CN1 6
042 O D 01N12
043 O SNAME 48
044 O IDENT 13
045 O CN2 6
046 O D 01N13
047 O SNAME 48
048 O IDENT 13
049 O CN3 6
050 O D 01N14
051 O SNAME 48
052 O IDENT 13
053 O CN4 6
054 O D 01N15
055 O SNAME 48
056 O IDENT 13
057 O CN5 6
058 O D 01N16
059 O SNAME 48
060 O IDENT 13
061 O CN6 6
062 O D 01N17
063 O SNAME 48
064 O IDENT 13
065 O CN7 6
066 O D 01N18
067 O SNAME 48
068 O IDENT 13
069 O CN8 6
070 OREPORT H 201 1P
071 O 33 'RECORD EXTRACT'
072 O 19 'COURSE ROSTER '
073 O T 32 LR
074 O STCNT Z 7
075 O 24 'STUDENT RECORDS '
076 O 28 'READ'
077 O T 1 LR
078 O OUTCNTZ 7
079 O 23 'ROSTER RECORDS '
080 O 30 'WRITTEN'
------------------------------------------------------------------------------------------------------------------------
OS/RPG(32K)*V1M10 EXAMPLE5 RPG 02/10/73 PAGE 0003
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 000014 1P 000015 LR 000016 00 000017 01 000018 02 000021 11 000022 12 000023 13 000024 14 000025 15 000026 16 000027 17 000028 18 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
000127 IDENT 00012E NAME ENTRY 000151 CN1N 000155 CN1 00015B CN2N 00015F CN2 000165 CN3N 000169 CN3 00016F CN4N 000173 CN4 000179 CN5N 00017D CN5 000183 CN6N 000187 CN6 00018D CN7N 000191 CN7 000197 CN8N 00019B CN8 0001A4 EX5SUB EXTRN 0001A8 SNAME EXTRN 0001AC STCNT 0001AE OUTCNT
LITERALS
ADDRESS LITERAL ADDRESS LITERAL ADDRESS LITERAL
0001B0 0001B1 1 0001B2 RECORD EXTRACT 0001C0 COURSE ROSTER 0001CE STUDENT RECORDS 0001DE READ 0001E2 ROSTER RECORDS 0001F1 WRITTEN
006 02 IES213I
009 CN1N IES216I
011 CN2N IES216I
013 CN3N IES216I
015 CN4N IES216I
017 CN5N IES216I
019 CN6N IES216I
021 CN7N IES216I
023 CN8N IES216I
IES213I WARNING - RESULTING INDICATOR IS UNREFERENCED.
IES216I WARNING - FIELD NAME IS UNREFERENCED.
MEMORY MAP
INPUT/OUTPUT INTERCEPT 0001FC
TABLE (INPUT AND OUTPUT) 0001F8
------------------------------------------------------------------------------------------------------------------------
OS/RPG(32K)*V1M10 EXAMPLE5 RPG 02/10/73 PAGE 0004
DETERMINE RECORD TYPE 00049C DATA SPECIFICATION 000224 GET INPUT RECORD 0006EC DETAIL CALCULATIONS 0008B8 TOTAL CALCULATIONS 0009B0 DETAIL LINES 000AC6 TOTAL LINES 0009C8 INPUT/OUTPUT REQUEST BLOCKS POINTER 001C98 LOCATION OF DCB POINTERS 000E38 INPUT/OUTPUT INTERFACE ROUTINES 001250 LINE COUNTER 000E88 LINE COUNTER TABLE 001230 WORK AREA POINTER 002048 OVERFLOW BYPASS 000A9C TABLE(ASSEMBLE 4) 000C6C OVERFLOW LINES 000A3E LINKAGE PROGRAM 001CFC
PROGRAM LENGTH 002169
*STATISTICS* SOURCE RECORDS = 81
*OPTIONS IN EFFECT* LOAD, NODECK, LIST, NOSEQN 'END OF COMPILATION' ------------------------------------------------------------------------------------------------------------------------
F64-LEVEL LINKAGE EDITOR OPTIONS SPECIFIED XREF,LIST,LET
DEFAULT OPTION(S) USED - SIZE=(196608,65536)
IEW0000 INCLUDE ALCMOD
CROSS REFERENCE TABLE
CONTROL SECTION ENTRY
NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME LOCATION
RPGOBJ 00 2169
NAME 12E
EX5SUB 2170 A4
SNAME 21EA
LOCATION REFERS TO SYMBOL IN CONTROL SECTION LOCATION REFERS TO SYMBOL IN CONTROL SECTION
1A4 EX5SUB EX5SUB 1A8 SNAME EX5SUB
2210 NAME RPGOBJ
ENTRY ADDRESS 1CFC
TOTAL LENGTH 2218
****RPG DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
AUTHORIZATION CODE IS 0.
------------------------------------------------------------------------------------------------------------------------
COURSE ROSTER RECORD EXTRACT
97 STUDENT RECORDS READ
379 ROSTER RECORDS WRITTEN
------------------------------------------------------------------------------------------------------------------------
PAGE 0001
0110010025654LABROIE, SAMANTHA D
0310020025654LABROIE, SAMANTHA D
0415030025654LABROIE, SAMANTHA D
0515040025654LABROIE, SAMANTHA D
0110030034591CHILDRESS, NELSON E
0221020034591CHILDRESS, NELSON E
1210010034591CHILDRESS, NELSON E
1210020034591CHILDRESS, NELSON E
1414010040736GLOVER, ELIZABETH W
1414020040736GLOVER, ELIZABETH W
1414030040736GLOVER, ELIZABETH W
0115010043415JOHNSON, ROLAND D
1310110043415JOHNSON, ROLAND D
1310120043415JOHNSON, ROLAND D
1320110043415JOHNSON, ROLAND D
0110020054796RICHARDS, MIKE T
0310030054796RICHARDS, MIKE T
0415010054796RICHARDS, MIKE T
0515040054796RICHARDS, MIKE T
0110010072697NORTON, HANNAH E
0310020072697NORTON, HANNAH E
0415030072697NORTON, HANNAH E
0515040072697NORTON, HANNAH E
0115010099174MCQUEEN, CINDY D
0910110099174MCQUEEN, CINDY D
0910120099174MCQUEEN, CINDY D
0910210099174MCQUEEN, CINDY D
0110010120756MCKENZIE, SARAH V
0310020120756MCKENZIE, SARAH V
0415030120756MCKENZIE, SARAH V
0515040120756MCKENZIE, SARAH V
1414010136491REED, LAURIE B
1414020136491REED, LAURIE B
1414030136491REED, LAURIE B
0110010139894HASTINGS, SAMANTHA I
0110020139894HASTINGS, SAMANTHA I
0110030139894HASTINGS, SAMANTHA I
0221020139894HASTINGS, SAMANTHA I
0115010141670GARLAND, RICHARD A
1210010141670GARLAND, RICHARD A
1210020141670GARLAND, RICHARD A
1210030141670GARLAND, RICHARD A
0110020152570HORTON, HEATHER J
0310030152570HORTON, HEATHER J
0415010152570HORTON, HEATHER J
0515040152570HORTON, HEATHER J
0110020166305MORENO, HEATHER J
0310030166305MORENO, HEATHER J
0415010166305MORENO, HEATHER J
0515040166305MORENO, HEATHER J
0115010176560HILLFORD, ARNOLD O
0830110176560HILLFORD, ARNOLD O
0830120176560HILLFORD, ARNOLD O
0830130176560HILLFORD, ARNOLD O
0310010190433NOELKE, CINDY E
0310020190433NOELKE, CINDY E
0310030190433NOELKE, CINDY E
0110010194091NEWTON, DEBRA A
0310020194091NEWTON, DEBRA A
------------------------------------------------------------------------------------------------------------------------
PAGE 0002
0415030194091NEWTON, DEBRA A
0515040194091NEWTON, DEBRA A
0110020202663HAMMOND, RICHARD O
0310030202663HAMMOND, RICHARD O
0415040202663HAMMOND, RICHARD O
0910110202663HAMMOND, RICHARD O
0115010208198MEEHAN, JACK D
0220010208198MEEHAN, JACK D
0220020208198MEEHAN, JACK D
0221010208198MEEHAN, JACK D
0110030223563SCHWAB, KATHRYN I
0221020223563SCHWAB, KATHRYN I
1310110223563SCHWAB, KATHRYN I
1310120223563SCHWAB, KATHRYN I
0110010243012NOELKE, DIANE G
0110020243012NOELKE, DIANE G
0110030243012NOELKE, DIANE G
0115010243012NOELKE, DIANE G
0110030243815MEEHAN, JIM N
0221020243815MEEHAN, JIM N
1414010243815MEEHAN, JIM N
1414020243815MEEHAN, JIM N
0110010244106WINSTON, JACOB T
0310020244106WINSTON, JACOB T
0415030244106WINSTON, JACOB T
0515040244106WINSTON, JACOB T
0115010285887VANACKER, EVERETT K
1310110285887VANACKER, EVERETT K
1310120285887VANACKER, EVERETT K
1320110285887VANACKER, EVERETT K
0110020289051BURNETT, ANN H
0310030289051BURNETT, ANN H
0415040289051BURNETT, ANN H
0910110289051BURNETT, ANN H
0110010291088CHILDRESS, ERNIE S
0310020291088CHILDRESS, ERNIE S
0415030291088CHILDRESS, ERNIE S
0515040291088CHILDRESS, ERNIE S
0110020297566ALAN, LARRY H
0310030297566ALAN, LARRY H
0415040297566ALAN, LARRY H
1011010297566ALAN, LARRY H
0830110306654RODGERS, CALVIN B
0830120306654RODGERS, CALVIN B
0830130306654RODGERS, CALVIN B
0830310306654RODGERS, CALVIN B
0110010318326PARKER, LOUISE L
0310020318326PARKER, LOUISE L
0415030318326PARKER, LOUISE L
0515040318326PARKER, LOUISE L
1310110322868NORRIS, JANET F
1310120322868NORRIS, JANET F
1320110322868NORRIS, JANET F
1320120322868NORRIS, JANET F
0115010331623LANDERS, LUCY B
1310110331623LANDERS, LUCY B
1310120331623LANDERS, LUCY B
1320110331623LANDERS, LUCY B
0110030342751JACOBY, MARILYN W
------------------------------------------------------------------------------------------------------------------------
PAGE 0003
0220010342751JACOBY, MARILYN W
0220020342751JACOBY, MARILYN W
0310040342751JACOBY, MARILYN W
0110020356637TUCKER, KAREN A
0310030356637TUCKER, KAREN A
0415040356637TUCKER, KAREN A
1210010356637TUCKER, KAREN A
0910110358768PARRISH, EVERETT R
0910120358768PARRISH, EVERETT R
0910210358768PARRISH, EVERETT R
0910220358768PARRISH, EVERETT R
0110030365482NEWTON, BETTY J
0221020365482NEWTON, BETTY J
1414010365482NEWTON, BETTY J
1414020365482NEWTON, BETTY J
0110020366869LANDERS, EVELYN C
0310030366869LANDERS, EVELYN C
0415040366869LANDERS, EVELYN C
1310110366869LANDERS, EVELYN C
0110030371633BENSON, HELEN C
0221020371633BENSON, HELEN C
1414010371633BENSON, HELEN C
1414020371633BENSON, HELEN C
0310010395489HASTINGS, JACK S
0310020395489HASTINGS, JACK S
0310030395489HASTINGS, JACK S
0110030405326BRYANT, CALVIN B
0220010405326BRYANT, CALVIN B
0220020405326BRYANT, CALVIN B
0310040405326BRYANT, CALVIN B
0110010427620MCKAY, TED R
0310020427620MCKAY, TED R
0415030427620MCKAY, TED R
0515040427620MCKAY, TED R
0110020464796TEASDALE, LAURIE N
0310030464796TEASDALE, LAURIE N
0415010464796TEASDALE, LAURIE N
0515040464796TEASDALE, LAURIE N
1310110466722NEWBURY, TAMMY T
1310120466722NEWBURY, TAMMY T
1320110466722NEWBURY, TAMMY T
1320120466722NEWBURY, TAMMY T
0110010467007WINSTON, LARRY W
0310020467007WINSTON, LARRY W
0415030467007WINSTON, LARRY W
0515040467007WINSTON, LARRY W
0110030478623GLOVER, KIMBERLY G
0221020478623GLOVER, KIMBERLY G
1210010478623GLOVER, KIMBERLY G
1210020478623GLOVER, KIMBERLY G
0115010487226HALL, CHARLES K
0830110487226HALL, CHARLES K
0830120487226HALL, CHARLES K
0830130487226HALL, CHARLES K
0310010552068MULL, TED D
0310020552068MULL, TED D
0310030552068MULL, TED D
0110020555590MEEHAN, CAITLIN I
0310030555590MEEHAN, CAITLIN I
------------------------------------------------------------------------------------------------------------------------
PAGE 0004
0415040555590MEEHAN, CAITLIN I
1210010555590MEEHAN, CAITLIN I
1210010560806HODGES, HOWARD B
1210020560806HODGES, HOWARD B
1210030560806HODGES, HOWARD B
1210510560806HODGES, HOWARD B
0110030566030CONLEY, CYBIL M
0221020566030CONLEY, CYBIL M
1414010566030CONLEY, CYBIL M
1414020566030CONLEY, CYBIL M
1310110574793LARUE, WANDA I
1310120574793LARUE, WANDA I
1320110574793LARUE, WANDA I
1320120574793LARUE, WANDA I
0110020575617ERICKSON, RUSSELL S
0310030575617ERICKSON, RUSSELL S
0415040575617ERICKSON, RUSSELL S
1011010575617ERICKSON, RUSSELL S
0115010591132GLASSMAN, ERNIE E
0223110591132GLASSMAN, ERNIE E
0320020591132GLASSMAN, ERNIE E
1011010591132GLASSMAN, ERNIE E
1011020591132GLASSMAN, ERNIE E
1011030591132GLASSMAN, ERNIE E
0110020597225AUSTIN, JIM O
0310010597225AUSTIN, JIM O
0415030597225AUSTIN, JIM O
0515040597225AUSTIN, JIM O
1414010610936SCHAEFER, BOB A
1414020610936SCHAEFER, BOB A
1414030610936SCHAEFER, BOB A
1210010612082HASTINGS, MARGUERITE K
1210020612082HASTINGS, MARGUERITE K
1210030612082HASTINGS, MARGUERITE K
1210510612082HASTINGS, MARGUERITE K
0110020612533HODGES, RONALD I
0310030612533HODGES, RONALD I
0415010612533HODGES, RONALD I
0515040612533HODGES, RONALD I
0110030625143PARRISH, ARNOLD W
0221020625143PARRISH, ARNOLD W
0320010625143PARRISH, ARNOLD W
1011010625143PARRISH, ARNOLD W
1011020625143PARRISH, ARNOLD W
0115010637591BURNETT, EVERETT H
0830110637591BURNETT, EVERETT H
0830120637591BURNETT, EVERETT H
0830130637591BURNETT, EVERETT H
0115010643686HASTINGS, PETER H
0220010643686HASTINGS, PETER H
0220020643686HASTINGS, PETER H
0221010643686HASTINGS, PETER H
0110030647893HORTON, SAMANTHA B
0220010647893HORTON, SAMANTHA B
0220020647893HORTON, SAMANTHA B
0310040647893HORTON, SAMANTHA B
0415010687119WEAVER, LARRY V
0415020687119WEAVER, LARRY V
0415030687119WEAVER, LARRY V
------------------------------------------------------------------------------------------------------------------------
PAGE 0005
1414010687191LABROIE, CALVIN D
1414020687191LABROIE, CALVIN D
1414030687191LABROIE, CALVIN D
0110030700304HILLFORD, MARGUERITE N
0221020700304HILLFORD, MARGUERITE N
1210010700304HILLFORD, MARGUERITE N
1210020700304HILLFORD, MARGUERITE N
0110030713816FRANKLIN, TED A
0221020713816FRANKLIN, TED A
0320010713816FRANKLIN, TED A
1011010713816FRANKLIN, TED A
1011020713816FRANKLIN, TED A
0220010717587MCKAY, DANIEL R
0220020717587MCKAY, DANIEL R
0221010717587MCKAY, DANIEL R
0221020717587MCKAY, DANIEL R
0110020722338HALL, WILLIAM K
0310030722338HALL, WILLIAM K
0415040722338HALL, WILLIAM K
1414010722338HALL, WILLIAM K
0110020728987YAEGER, SHARON T
0310030728987YAEGER, SHARON T
0415010728987YAEGER, SHARON T
0515040728987YAEGER, SHARON T
0110030740764MCKENZIE, ZELDA E
0221020740764MCKENZIE, ZELDA E
0320010740764MCKENZIE, ZELDA E
1011010740764MCKENZIE, ZELDA E
1011020740764MCKENZIE, ZELDA E
0115010748067RAMSEY, EVERETT I
0223110748067RAMSEY, EVERETT I
0320020748067RAMSEY, EVERETT I
1011010748067RAMSEY, EVERETT I
1011020748067RAMSEY, EVERETT I
1011030748067RAMSEY, EVERETT I
0310010748758PARKER, JACOB K
0310020748758PARKER, JACOB K
0310030748758PARKER, JACOB K
0110010755610NORRIS, TAMMY L
0310020755610NORRIS, TAMMY L
0415030755610NORRIS, TAMMY L
0515040755610NORRIS, TAMMY L
0310010757139GARLAND, JOAN L
0310020757139GARLAND, JOAN L
0310030757139GARLAND, JOAN L
0110010766116GARLAND, RONALD M
0310020766116GARLAND, RONALD M
0415030766116GARLAND, RONALD M
0515040766116GARLAND, RONALD M
0310010778839JACKSON, JOHN J
0310020778839JACKSON, JOHN J
0310030778839JACKSON, JOHN J
0110030790544RODGERS, THELMA I
0221020790544RODGERS, THELMA I
0310010790544RODGERS, THELMA I
0310020790544RODGERS, THELMA I
0110010791357HARMON, LOUISE W
0310020791357HARMON, LOUISE W
0415030791357HARMON, LOUISE W
------------------------------------------------------------------------------------------------------------------------
PAGE 0006
0515040791357HARMON, LOUISE W
0110010793297GERBLICK, LARRY C
0310020793297GERBLICK, LARRY C
0415030793297GERBLICK, LARRY C
0515040793297GERBLICK, LARRY C
0110020793617WHITE, CLIFF N
0310010793617WHITE, CLIFF N
0415030793617WHITE, CLIFF N
0515040793617WHITE, CLIFF N
0110020809327FRANKLIN, RUTH H
0310030809327FRANKLIN, RUTH H
0415040809327FRANKLIN, RUTH H
1210010809327FRANKLIN, RUTH H
0115010822928FITZGERALD, DAWN I
1310110822928FITZGERALD, DAWN I
1310120822928FITZGERALD, DAWN I
1320110822928FITZGERALD, DAWN I
1414010825790AUSTIN, LOUIS E
1414020825790AUSTIN, LOUIS E
1414030825790AUSTIN, LOUIS E
1310110836832TUCKER, BRENDA F
1310120836832TUCKER, BRENDA F
1320110836832TUCKER, BRENDA F
1320120836832TUCKER, BRENDA F
1210010853058MCKAY, CINDY O
1210020853058MCKAY, CINDY O
1210030853058MCKAY, CINDY O
1210510853058MCKAY, CINDY O
0110020853466MORENO, CLARA T
0310030853466MORENO, CLARA T
0415040853466MORENO, CLARA T
1310110853466MORENO, CLARA T
0115010857212PETERSON, VIRGINIA A
1210010857212PETERSON, VIRGINIA A
1210020857212PETERSON, VIRGINIA A
1210030857212PETERSON, VIRGINIA A
0830110858241VANACKER, PATTY S
0830120858241VANACKER, PATTY S
0830130858241VANACKER, PATTY S
0830310858241VANACKER, PATTY S
0110030881002BRYANT, ROLAND F
0221020881002BRYANT, ROLAND F
1210010881002BRYANT, ROLAND F
1210020881002BRYANT, ROLAND F
0415010888561HALL, ERNIE A
0415020888561HALL, ERNIE A
0415030888561HALL, ERNIE A
1310110892174DRAKE, BETTY P
1310120892174DRAKE, BETTY P
1320110892174DRAKE, BETTY P
1320120892174DRAKE, BETTY P
0415010928546SMITH, JOSEPH R
0415020928546SMITH, JOSEPH R
0415030928546SMITH, JOSEPH R
1414010935786BARBER, ROBERT I
1414020935786BARBER, ROBERT I
1414030935786BARBER, ROBERT I
0110020965296LARUE, YOLANDA C
0310010965296LARUE, YOLANDA C
------------------------------------------------------------------------------------------------------------------------
PAGE 0007
0415030965296LARUE, YOLANDA C
0515040965296LARUE, YOLANDA C
1414010967407TEASDALE, JANET V
1414020967407TEASDALE, JANET V
1414030967407TEASDALE, JANET V
0110010967791POWERS, LUCY I
0310020967791POWERS, LUCY I
0415030967791POWERS, LUCY I
0515040967791POWERS, LUCY I
0110030968791RICHARDS, BEVERLY L
0221020968791RICHARDS, BEVERLY L
1414010968791RICHARDS, BEVERLY L
1414020968791RICHARDS, BEVERLY L
0110030970626JENNINGS, JILL K
0221020970626JENNINGS, JILL K
1210010970626JENNINGS, JILL K
1210020970626JENNINGS, JILL K
0110010979347COOK, TOM T
0220020979347COOK, TOM T
0310030979347COOK, TOM T
0415040979347COOK, TOM T
0110010982436THATCHER, JOSEPH H
0220020982436THATCHER, JOSEPH H
0310030982436THATCHER, JOSEPH H
0415040982436THATCHER, JOSEPH H
------------------------------------------------------------------------------------------------------------------------
