OS/RPG(32K)*V1M10 EXAMPLE1 RPG 09/26/72 PAGE 0001
H
H*
H* READ ADDRESS CARDS AND PRINT ADDRESS LIST
H*
001 FINCARDS IPE F 80 80 READ40
002 FOUTLIST O F 132 132 OF LPRINTER
003 LOUTLIST 0010106012
004 IINCARDS AA 01
005 I 1 25 NAME
006 I 26 50 ADDR1
007 I 51 75 ADDR2
008 OOUTLIST H 201 1P
009 O OR OF
010 O PAGE Z 40
011 O 36 'PAGE'
012 O 23 'ADDRESS LIST'
013 O UDATE 8 ' 0/ / '
014 O D 1 01
015 O NAME 30
016 O D 1 01
017 O ADDR1 30
018 O D 2 01
019 O ADDR2 30
020 O T 3 01 LR
021 O 24 '*** END OF LIST ***'
------------------------------------------------------------------------------------------------------------------------
OS/RPG(32K)*V1M10 EXAMPLE1 RPG 09/26/72 PAGE 0002
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 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 NAME 000140 ADDR1 000159 ADDR2 000172 PAGE 000175 UDATE
LITERALS
ADDRESS LITERAL ADDRESS LITERAL ADDRESS LITERAL
000179 PAGE 00017D ADDRESS LIST 000189 ½½À/½½/½½ 000193 *** END OF LIST ***
MEMORY MAP
INPUT/OUTPUT INTERCEPT 0001AC TABLE (INPUT AND OUTPUT) 0001A8 DETERMINE RECORD TYPE 000360 DATA SPECIFICATION 0001D4 GET INPUT RECORD 000590 DETAIL CALCULATIONS 00075C TOTAL CALCULATIONS 000770 DETAIL LINES 00087C TOTAL LINES 000788 INPUT/OUTPUT REQUEST BLOCKS POINTER 001190 LOCATION OF DCB POINTERS 0009F8 INPUT/OUTPUT INTERFACE ROUTINES 000C30 LINE COUNTER 000A48 LINE COUNTER TABLE 000C10 WORK AREA POINTER 001520 OVERFLOW BYPASS 000870 TABLE(ASSEMBLE 4) 000954 OVERFLOW LINES 0007E4 LINKAGE PROGRAM 0011D4
------------------------------------------------------------------------------------------------------------------------
OS/RPG(32K)*V1M10 EXAMPLE1 RPG 09/26/72 PAGE 0003
PROGRAM LENGTH 0017E4
*STATISTICS* SOURCE RECORDS = 22
*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 17E4
LOCATION REFERS TO SYMBOL IN CONTROL SECTION LOCATION REFERS TO SYMBOL IN CONTROL SECTION
ENTRY ADDRESS 11D4 TOTAL LENGTH 17E8
****RPG DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
------------------------------------------------------------------------------------------------------------------------ 9/25/72 ADDRESS LIST PAGE 1
MICHELLE COOK
9561 BAYVIEW STREET
BALDWIN, MO 63022
PATTY JENNINGS
806 JACKSON STREET
VALPARAISO, IN 46383
RICHARD SMITH
279 PARKER BLVD
NASHAU, NH 03060
DUNCAN POWERS
9496 BAYVIEW STREET
BUFFALO, NY 14225
WILLIAM EUBANKS
736 FETLOCK AVENUE
FALLS VILLAGE, CT 06031
SHIRLEY GARLAND
827 SHORE AVENUE
GREENVILLE, SC 29616
JOAN FRANKLIN
4550 BIENVILLE CIRCLE
KANSAS CITY, MO 64118
ANDREW BLUME
2942 BAYVIEW AVENUE
ROCHESTER, NY 03840
ELIZABETH BOWERS
1023 SOUTHLAND STREET
RIVERSIDE, NJ 08370
DIANE HAMMOND
3732 BENSON CIRCLE
FORT COLLINS, CO 80524
LUCY ROSS
208 ALLEN PLACE
EVERETT, WA 98204
LISA ELISON
488 WESTRIDGE STREET
SPARKS, NV 89431
MATTHEW RIGHT
6267 BRIARGLEN PLACE
CLEVELAND, OH 44104
ZELDA BARBER
442 COLISEUM STREET
ALBANY, NY 12206
BRIAN HARMON
872 GRANT BLVD
WICHITA, KS 67208
------------------------------------------------------------------------------------------------------------------------ 9/25/72 ADDRESS LIST PAGE 2
NATHAN MCKAY
1184 JUNIPER CIRCLE
HOUSTON, TX 77053
LUCY JACOBY
144 MEADOW PLACE
SPARKS, NV 89431
SCOTT PARRISH
9387 A & M CIRCLE
DES PLAINES, IL 60018
CALVIN MULL
5924 TWILIGHT COURT
SPARKS, NV 89431
CYBIL NOELKE
6782 BRIDGE CIRCLE
LAGO VISTA, TX 78645
RUTH VANACKER
6021 BAYSHORE CIRCLE
NEWPORT BEACH, CA 92663
JARED BROCKTON
761 GARRETT AVENUE
GREENVILLE, SC 29616
MATTHEW JACKSON
4691 SHERWOOD STREET
LA JOLLA, CA 92037
CALVIN POWERS
867 ALLEN STREET
SPRING, TX 77373
SUE SMITH
9848 PLUM STREET
PALM DESERT, CA 92211
ARNOLD WEAVER
701 TWILIGHT ROAD
KNOXVILLE, TN 37932
KEVIN NORTON
5343 PARSON AVENUE
JUNEAU, AK 99801
SCOTT RENFRO
5418 ATOLL ROAD
PASADENA, CA 91186
ERNIE LABROIE
2913 BRANDYWINE CIRCL
SAN ANGELO, TX 76903
SHARON JACKSON
2934 ROSA LINDA AVENU
NEW YORK, NY 10001
------------------------------------------------------------------------------------------------------------------------ 9/25/72 ADDRESS LIST PAGE 3
PETER ALEXANDER
7444 ROBINHOOD ROAD
NEW YORK, NY 10001
SHARON EUBANKS
9619 JUNIPER ROAD
SIOUX FALLS, SD 57112
SHIRLEY ERICKSON
596 COLLEGE STREET
GRAND RAPIDS, MN 55745
ANN STUART
9581 DESERT STREET
OKLAHOMA CITY, OK 73120
SUE FONTAINE
2229 WESTRIDGE STREET
SAN ANTONIO, TX 78216
KEVIN COOK
3055 ROSA LINDA STREE
DES PLAINES, IL 60018
DIANE EUBANKS
4404 SOUTHLAND BLVD
PRESCOTT, AZ 86314
BOB JEFFERSON
542 KINGS RIDGE BLVD
NEWPORT, RI 02840
CRAIG LANDERS
6276 ELLIS STREET
ANN ARBOR, MI 48107
NELSON HORTON
3066 SHERWOOD ROAD
NORWALK, CT 06854
KEITH ERICKSON
227 BAYSHORE PLACE
GREENVILLE, KY 42345
RICHARD GOODWIN
294 RIDGEWAY ROAD
OKLAHOMA CITY, OK 73120
DANIEL ROBERTSON
379 ALTAVISTA CIRCLE
EVERETT, WA 98204
JOAN AUSTIN
203 EASTHAVEN STREET
NEWPORT, RI 02840
JARED MEEHAN
555 EDMUND CIRCLE
EVERETT, WA 98204
------------------------------------------------------------------------------------------------------------------------ 9/25/72 ADDRESS LIST PAGE 4
CRAIG STONE
6791 GUADLAUPE COURT
WEST PALM BEACH, FL 33406
JACOB SCHAEFER
8278 LINDENWOOD AVENU
JUNEAU, AK 99801
JARED HILLFORD
846 QUAIL AVENUE
PHOENIX, AZ 85040
CLIFF PARKER
674 BRANDYWINE AVENUE
LAGO VISTA, TX 78645
JOHN SCHAEFER
7210 PARSON COURT
LA HABRA, CA 90631
*** END OF LIST *** ------------------------------------------------------------------------------------------------------------------------
