OS/RPG(32K)*V1M10 RPGECLG RPG 10/04/72 PAGE 0001
H
H*
H* UPDATE STUDENT MASTER WITH ENROLLED COURSES
H*
001 FCOURSES IPE F6300 63 ETAPE S
002 FSTMASTR UC F 250 250R 7KI 2 DISK14 S
003 FREPORT O F 132 132 OF LPRINTER
004 EAAC1COURSES STMASTR
005 LREPORT 101 6012
006 ICOURSES AA 01
007 I 1 7 IDENT C1
008 I 9 14 CN1
009 I 9 140CN1N 11
010 I 16 21 CN2
011 I 16 210CN2N 12
012 I 23 28 CN3
013 I 23 280CN3N 13
014 I 30 35 CN4
015 I 30 350CN4N 14
016 I 37 42 CN5
017 I 37 420CN5N 15
018 I 44 49 CN6
019 I 44 490CN6N 16
020 I 51 56 CN7
021 I 51 560CN7N 17
022 I 58 63 CN8
023 I 58 630CN8N 18
024 ISTMASTR BB 02 1 CA
025 I 9 43 NAME
C*
C* IF INDICATORS H0 AND 01 ARE ON, BUT 02 IS OFF, THEN
C* NO STUDENT MASTER RECORD WAS READ DURING THE CHAINING
C* OPERATION. H0 IS AUTOMATICALLY SET ON WHEN THIS
C* OCCURS, SO IT WILL NEED TO BE SET OFF TO AVOID AN
C* ABNORMAL TERMINATION OF THE PROGRAM.
C*
026 C 01N02 H0 SETOF H0
C*
C* COUNT RECORDS PROCESSED FOR SUMMARY AT END OF REPORT
C*
027 C 01 CCOUNT ADD 1 CCOUNT 30
028 C 01 02 UCOUNT ADD 1 UCOUNT 30
029 OSTMASTR D 01 02
030 O CN8 204
031 O CN7 195
032 O CN6 186
033 O CN5 177
034 O CN4 168
035 O CN3 159
036 O CN2 150
------------------------------------------------------------------------------------------------------------------------
OS/RPG(32K)*V1M10 RPGECLG RPG 10/04/72 PAGE 0002
037 O CN1 141
038 OREPORT H 201 1P
039 O OR OF
040 O 45 'STUDENT MASTER'
041 O 30 'COURSES TO'
042 O 19 'POST REGISTERED'
043 O D 1 01
044 O N14 CN4N 87 '0 - - '
045 O N13 CN3N 77 '0 - - '
046 O N12 CN2N 67 '0 - - '
047 O N11 CN1N 57 '0 - - '
048 O 02 NAME 47
049 O N02 38 'MASTER ***'
050 O N02 27 '*** NO MATCHING'
051 O IDENT 11
052 O D 2 01
053 O N18 CN8N 87 '0 - - '
054 O N17 CN7N 77 '0 - - '
055 O N16 CN6N 67 '0 - - '
056 O N15 CN5N 57 '0 - - '
057 O T 31 LR
058 O CCOUNTZ 7
059 O 27 'COURSE REGISTRATION'
060 O 40 'RECORDS READ'
061 O T 1 LR
062 O UCOUNTZ 7
063 O 22 'STUDENT MASTER'
064 O 38 'RECORDS UPDATED'
------------------------------------------------------------------------------------------------------------------------
OS/RPG(32K)*V1M10 RPGECLG RPG 10/04/72 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 000011 OF 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 CN1 000134 CN1N 000138 CN2 00013E CN2N 000142 CN3 000148 CN3N 00014C CN4 000152 CN4N 000156 CN5 00015C CN5N 000160 CN6 000166 CN6N 00016A CN7 000170 CN7N 000174 CN8 00017A CN8N 00017E NAME 0001A1 CCOUNT 0001A3 UCOUNT
LITERALS
ADDRESS LITERAL ADDRESS LITERAL ADDRESS LITERAL
0001A5 1 0001A6 STUDENT MASTER 0001B4 COURSES TO 0001BE POST REGISTERED 0001CD À½½-½½½-½ 0001D7 MASTER *** 0001E1 *** NO MATCHING 0001F0 COURSE REGISTRATION 000203 RECORDS READ 00020F RECORDS UPDATED
MEMORY MAP
INPUT/OUTPUT INTERCEPT 0004B4
CHAINING 000220
TABLE (INPUT AND OUTPUT) 0004B0
DETERMINE RECORD TYPE 000780
DATA SPECIFICATION 0004DC
GET INPUT RECORD 000A20
DETAIL CALCULATIONS 000BEC
TOTAL CALCULATIONS 000C40
DETAIL LINES 000D72
TOTAL LINES 000C58
INPUT/OUTPUT REQUEST BLOCKS POINTER 001DE8
LOCATION OF DCB POINTERS 001068
INPUT/OUTPUT INTERFACE ROUTINES 0013A0
LINE COUNTER 0010B8
LINE COUNTER TABLE 001380
------------------------------------------------------------------------------------------------------------------------
OS/RPG(32K)*V1M10 RPGECLG RPG 10/04/72 PAGE 0004
WORK AREA POINTER 002198 OVERFLOW BYPASS 000D66 TABLE(ASSEMBLE 4) 000E50 OVERFLOW LINES 000CDA LINKAGE PROGRAM 001E4C
PROGRAM LENGTH 0022B9
*STATISTICS* SOURCE RECORDS = 65
*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
RPGOBJ 00 22B9
LOCATION REFERS TO SYMBOL IN CONTROL SECTION LOCATION REFERS TO SYMBOL IN CONTROL SECTION
ENTRY ADDRESS 1E4C TOTAL LENGTH 22C0
****RPG DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
------------------------------------------------------------------------------------------------------------------------
POST REGISTERED COURSES TO STUDENT MASTER
0625143 ARNOLD W. PARRISH 01-100-3 02-210-2 03-200-1 10-110-1
10-110-2
0043415 ROLAND D. JOHNSON 01-150-1 13-101-1 13-101-2 13-201-1
0857212 VIRGINIA A. PETERSON 01-150-1 12-100-1 12-100-2 12-100-3
0791357 LOUISE W. HARMON 01-100-1 03-100-2 04-150-3 05-150-4
0427620 TED R. MCKAY 01-100-1 03-100-2 04-150-3 05-150-4
0713816 TED A. FRANKLIN 01-100-3 02-210-2 03-200-1 10-110-1
10-110-2
0979347 TOM T. COOK 01-100-1 02-200-2 03-100-3 04-150-4
0935786 ROBERT I. BARBER 14-140-1 14-140-2 14-140-3
0748067 EVERETT I. RAMSEY 01-150-1 02-231-1 03-200-2 10-110-1
10-110-2 10-110-3
0687119 LARRY V. WEAVER 04-150-1 04-150-2 04-150-3
0825790 LOUIS E. AUSTIN 14-140-1 14-140-2 14-140-3
0809327 RUTH H. FRANKLIN 01-100-2 03-100-3 04-150-4 12-100-1
0612533 RONALD I. HODGES 01-100-2 03-100-3 04-150-1 05-150-4
0591132 ERNIE E. GLASSMAN 01-150-1 02-231-1 03-200-2 10-110-1
10-110-2 10-110-3
0118376 THELMA B. SCHWAB 14-140-1 14-140-2 14-140-3
0643686 PETER H. HASTINGS 01-150-1 02-200-1 02-200-2 02-210-1
0040736 ELIZABETH W. GLOVER 14-140-1 14-140-2 14-140-3
0285887 EVERETT K. VANACKER 01-150-1 13-101-1 13-101-2 13-201-1
0243012 DIANE G. NOELKE 01-100-1 01-100-2 01-100-3 01-150-1
0223563 KATHRYN I. SCHWAB 01-100-3 02-210-2 13-101-1 13-101-2
------------------------------------------------------------------------------------------------------------------------
POST REGISTERED COURSES TO STUDENT MASTER
0487226 CHARLES K. HALL 01-150-1 08-301-1 08-301-2 08-301-3
0968791 BEVERLY L. RICHARDS 01-100-3 02-210-2 14-140-1 14-140-2
0881002 ROLAND F. BRYANT 01-100-3 02-210-2 12-100-1 12-100-2
0072697 HANNAH E. NORTON 01-100-1 03-100-2 04-150-3 05-150-4
0141670 RICHARD A. GARLAND 01-150-1 12-100-1 12-100-2 12-100-3
0342751 MARILYN W. JACOBY 01-100-3 02-200-1 02-200-2 03-100-4
0063296 *** NO MATCHING MASTER *** 01-100-1 01-100-2 02-210-1 03-100-4
0552068 TED D. MULL 03-100-1 03-100-2 03-100-3
0566030 CYBIL M. CONLEY 01-100-3 02-210-2 14-140-1 14-140-2
0306654 CALVIN B. RODGERS 08-301-1 08-301-2 08-301-3 08-303-1
0597225 JIM O. AUSTIN 01-100-2 03-100-1 04-150-3 05-150-4
0405326 CALVIN B. BRYANT 01-100-3 02-200-1 02-200-2 03-100-4
0928546 JOSEPH R. SMITH 04-150-1 04-150-2 04-150-3
0244106 JACOB T. WINSTON 01-100-1 03-100-2 04-150-3 05-150-4
0574793 WANDA I. LARUE 13-101-1 13-101-2 13-201-1 13-201-2
0717587 DANIEL R. MCKAY 02-200-1 02-200-2 02-210-1 02-210-2
0965296 YOLANDA C. LARUE 01-100-2 03-100-1 04-150-3 05-150-4
0892174 BETTY P. DRAKE 13-101-1 13-101-2 13-201-1 13-201-2
0637591 EVERETT H. BURNETT 01-150-1 08-301-1 08-301-2 08-301-3
0766116 RONALD M. GARLAND 01-100-1 03-100-2 04-150-3 05-150-4
------------------------------------------------------------------------------------------------------------------------
POST REGISTERED COURSES TO STUDENT MASTER
0478623 KIMBERLY G. GLOVER 01-100-3 02-210-2 12-100-1 12-100-2
0970626 JILL K. JENNINGS 01-100-3 02-210-2 12-100-1 12-100-2
0291088 ERNIE S. CHILDRESS 01-100-1 03-100-2 04-150-3 05-150-4
0136491 LAURIE B. REED 14-140-1 14-140-2 14-140-3
0034591 NELSON E. CHILDRESS 01-100-3 02-210-2 12-100-1 12-100-2
0822928 DAWN I. FITZGERALD 01-150-1 13-101-1 13-101-2 13-201-1
0700304 MARGUERITE N. HILLFORD 01-100-3 02-210-2 12-100-1 12-100-2
0038851 *** NO MATCHING MASTER *** 01-100-3 02-210-2 14-140-1 14-140-2
0740764 ZELDA E. MCKENZIE 01-100-3 02-210-2 03-200-1 10-110-1
10-110-2
0371633 HELEN C. BENSON 01-100-3 02-210-2 14-140-1 14-140-2
0395489 JACK S. HASTINGS 03-100-1 03-100-2 03-100-3
0793297 LARRY C. GERBLICK 01-100-1 03-100-2 04-150-3 05-150-4
0612082 MARGUERITE K. HASTINGS 12-100-1 12-100-2 12-100-3 12-105-1
0176560 ARNOLD O. HILLFORD 01-150-1 08-301-1 08-301-2 08-301-3
0365482 BETTY J. NEWTON 01-100-3 02-210-2 14-140-1 14-140-2
0120756 *** NO MATCHING MASTER *** 01-100-1 03-100-2 04-150-3 05-150-4
0139894 SAMANTHA I. HASTINGS 01-100-1 01-100-2 01-100-3 02-210-2
0647893 SAMANTHA B. HORTON 01-100-3 02-200-1 02-200-2 03-100-4
0054796 MIKE T. RICHARDS 01-100-2 03-100-3 04-150-1 05-150-4
0610936 BOB A. SCHAEFER 14-140-1 14-140-2 14-140-3
------------------------------------------------------------------------------------------------------------------------
POST REGISTERED COURSES TO STUDENT MASTER
0331623 LUCY B. LANDERS 01-150-1 13-101-1 13-101-2 13-201-1
0243815 JIM N. MEEHAN 01-100-3 02-210-2 14-140-1 14-140-2
0888561 ERNIE A. HALL 04-150-1 04-150-2 04-150-3
0790544 THELMA I. RODGERS 01-100-3 02-210-2 03-100-1 03-100-2
0464796 LAURIE N. TEASDALE 01-100-2 03-100-3 04-150-1 05-150-4
0722338 WILLIAM K. HALL 01-100-2 03-100-3 04-150-4 14-140-1
0982436 JOSEPH H. THATCHER 01-100-1 02-200-2 03-100-3 04-150-4
0099174 CINDY D. MCQUEEN 01-150-1 09-101-1 09-101-2 09-102-1
0208198 JACK D. MEEHAN 01-150-1 02-200-1 02-200-2 02-210-1
0728987 SHARON T. YAEGER 01-100-2 03-100-3 04-150-1 05-150-4
0836832 BRENDA F. TUCKER 13-101-1 13-101-2 13-201-1 13-201-2
0190433 CINDY E. NOELKE 03-100-1 03-100-2 03-100-3
0202663 RICHARD O. HAMMOND 01-100-2 03-100-3 04-150-4 09-101-1
0687191 CALVIN D. LABROIE 14-140-1 14-140-2 14-140-3
0366869 EVELYN C. LANDERS 01-100-2 03-100-3 04-150-4 13-101-1
0358768 EVERETT R. PARRISH 09-101-1 09-101-2 09-102-1 09-102-2
0778839 JOHN J. JACKSON 03-100-1 03-100-2 03-100-3
0967407 JANET V. TEASDALE 14-140-1 14-140-2 14-140-3
0757139 JOAN L. GARLAND 03-100-1 03-100-2 03-100-3
0560806 HOWARD B. HODGES 12-100-1 12-100-2 12-100-3 12-105-1
------------------------------------------------------------------------------------------------------------------------
POST REGISTERED COURSES TO STUDENT MASTER
0322868 JANET F. NORRIS 13-101-1 13-101-2 13-201-1 13-201-2
0318326 LOUISE L. PARKER 01-100-1 03-100-2 04-150-3 05-150-4
0853466 CLARA T. MORENO 01-100-2 03-100-3 04-150-4 13-101-1
0466722 TAMMY T. NEWBURY 13-101-1 13-101-2 13-201-1 13-201-2
0755610 TAMMY L. NORRIS 01-100-1 03-100-2 04-150-3 05-150-4
0967791 LUCY I. POWERS 01-100-1 03-100-2 04-150-3 05-150-4
0297566 LARRY H. ALAN 01-100-2 03-100-3 04-150-4 10-110-1
0748758 JACOB K. PARKER 03-100-1 03-100-2 03-100-3
0166305 HEATHER J. MORENO 01-100-2 03-100-3 04-150-1 05-150-4
0853058 CINDY O. MCKAY 12-100-1 12-100-2 12-100-3 12-105-1
0793617 CLIFF N. WHITE 01-100-2 03-100-1 04-150-3 05-150-4
0025654 SAMANTHA D. LABROIE 01-100-1 03-100-2 04-150-3 05-150-4
0356637 KAREN A. TUCKER 01-100-2 03-100-3 04-150-4 12-100-1
0858241 PATTY S. VANACKER 08-301-1 08-301-2 08-301-3 08-303-1
0194091 DEBRA A. NEWTON 01-100-1 03-100-2 04-150-3 05-150-4
0575617 RUSSELL S. ERICKSON 01-100-2 03-100-3 04-150-4 10-110-1
0555590 CAITLIN I. MEEHAN 01-100-2 03-100-3 04-150-4 12-100-1
0152570 HEATHER J. HORTON 01-100-2 03-100-3 04-150-1 05-150-4
0289051 ANN H. BURNETT 01-100-2 03-100-3 04-150-4 09-101-1
0467007 LARRY W. WINSTON 01-100-1 03-100-2 04-150-3 05-150-4
100 COURSE REGISTRATION RECORDS READ
97 STUDENT MASTER RECORDS UPDATED
------------------------------------------------------------------------------------------------------------------------
