OS/RPG(32K)*V1M10 EXAMPLE2 RPG 09/26/72 PAGE 0001
H
H*
H* MERGE CUSTOMER CARDS (1-2-3) CREATING CUSTOMER TAPE
H*
001 FINCARDS IPE F 80 80 READ40
002 FOUTTAPE O F2900 116 TAPE S
003 IINCARDS 011 01 1 C1
004 I 3 90CUST#
005 I 11 21 FNAME
006 I 23 23 INITL
007 I 25 34 LNAME
008 I 36 60 ADDR
009 I 021 02 1 C2
010 I 3 90CUST#
011 I 11 30 CITY
012 I 32 33 STATE
013 I 35 39 ZIP
014 I 031 03 1 C3
015 I 3 90CUST#
016 I 11 11 SEX
017 I 13 22 PHONE
018 I 24 310BDATE
019 I 33 400ADATE
020 I 42 490LDATE
021 OOUTTAPE D 03
022 O LDATE 116
023 O ADATE 108
024 O BDATE 100
025 O PHONE 92
026 O SEX 82
027 O ZIP 81
028 O STATE 76
029 O CITY 74
030 O ADDR 54
031 O LNAME 29
032 O INITL 19
033 O FNAME 18
034 O CUST# 7
------------------------------------------------------------------------------------------------------------------------
OS/RPG(32K)*V1M10 EXAMPLE2 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 000014 1P 000015 LR 000016 00 000017 01 000018 02 000019 03 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 CUST# 00012B FNAME 000136 INITL 000137 LNAME 000141 ADDR 00015A CITY 00016E STATE 000170 ZIP 000175 SEX 000176 PHONE 000180 BDATE 000185 ADATE 00018A LDATE
003 01 IES213I
009 02 IES213I
IES213I WARNING - RESULTING INDICATOR IS UNREFERENCED.
MEMORY MAP
INPUT/OUTPUT INTERCEPT 000194 TABLE (INPUT AND OUTPUT) 000190 DETERMINE RECORD TYPE 0003E4 DATA SPECIFICATION 0001BC GET INPUT RECORD 00070C DETAIL CALCULATIONS 0008D8 TOTAL CALCULATIONS 0008EC DETAIL LINES 000994 TOTAL LINES 000904 INPUT/OUTPUT REQUEST BLOCKS POINTER 001110 LOCATION OF DCB POINTERS 000A88 INPUT/OUTPUT INTERFACE ROUTINES 000C90 LINE COUNTER 000AD8 WORK AREA POINTER 0014A0 OVERFLOW BYPASS 00098C TABLE(ASSEMBLE 4) 0009F0 OVERFLOW LINES 00092E LINKAGE PROGRAM 001154
PROGRAM LENGTH 0015C1
------------------------------------------------------------------------------------------------------------------------
OS/RPG(32K)*V1M10 EXAMPLE2 RPG 09/26/72 PAGE 0003
*STATISTICS* SOURCE RECORDS = 35
*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 15C1
LOCATION REFERS TO SYMBOL IN CONTROL SECTION LOCATION REFERS TO SYMBOL IN CONTROL SECTION
ENTRY ADDRESS 1154 TOTAL LENGTH 15C8
****RPG DOES NOT EXIST BUT HAS BEEN ADDED TO DATA SET
------------------------------------------------------------------------------------------------------------------------
PAGE 0001
0697106Howard PHall 7299 Caribbean Street Valparaiso IN46383M7653650809193709051944111719521210
0584185John FHammond 2268 Michigan Court Bridgeport CT06605M8606128230192305261959081019260513
0910463Jared TPowers 464 Lakefront Avenue Wichita KS67208M3165112293192604211944080919600628
0694749Jared FRenfro 874 Mill Mountain Circle Chicago IL60611M7086766824194303221950053119460509
0401511Rita HLockett 3590 Atoll Road Baldwin MO63022F4177196868194409131934012219330918
0256182Jill CMcQueen 8362 Plum Blvd Nashau NH03060F6033956751196002191909010119351001
0183911Caitlin WRobertson 9460 Bayview Blvd St. Clair MI48048F3137171015191611161921041019520902
0085946Duncan EPowers 3300 Walden Avenue Chicago IL60611M7081016465191207311942062219260211
0289054Cheryl DJennings 1215 Lincoln Place Stephenville TX76401F8172457424195409071960042319180203
0073094Yolanda BShriver 5559 Strawberry Circle Newport Beach CA92663F4083574020194804021950030719430225
0945065ChristopherTErwin 9062 Juniper Place San Angelo TX76903M9154614851194303221950053119460509
0993640Zelda HConley 232 Bayshore Place Kearney NE68848F4021321358193101301937040619310921
0528624Jack IJackson 2373 Westridge Street Rochester NY03840M3151398500191611041962070319630327
0172138Louise KGerblick 2013 Fetlock Avenue Sioux Falls SD57112F6057095553194603211921112219471229
0288661Calvin DStone 8467 Bayshore Street Fremont CA94538M9099522296192604211944080919600628
0541369Matthew LPeterson 7809 Windtree Street Charlotte NC28262M7046946147193503311923013119440731
0793289Angela GErickson 1142 Camelot Avenue Santa Fe NM87501F5052826183193908121944060219400412
0823522Bob RPeterson 7030 Lincoln Street Dallas TX75287M2146645310193508261946110619180425
0470904Marcia JTeasdale 485 College Street Columbus GA31997F9121129585196002191909010119351001
0172974Clara KRoss 922 Koberlin Blvd St. Clair MI48048F3132316320192506231924100119510724
0490291Michelle RWeaver 2936 Atoll Court Murfreesboro TN37128F6154727445192206221931021519390730
0390020Cliff GDrake 185 Lincoln Street Austin TX78759M5128936227191304111936111919360821
0977517Clara LGerblick 163 Parson Street Denver CO80256F3034515657195806151927022119400114
0239087Laurie LBrockton 6086 Bayshore Place New York NY10001F2125006763195409071960042319180203
0128941Harold GPowers 811 Hedgewood Avenue Albany NY12206M5186129061194603211921112219471229
0467019Craig NBryant 6037 Millbrook Blvd Missoula MT59802M4065360205193304151964031319171216
0925566Laurie KMattox 4154 Benson Road Santa Fe NM87501F5056549287194404301939062719460819
0743783Caitlin JJennings 1913 Lindenwood Avenue Louisville KY40207F5025805269193007141918071419080712
0768290Shirley AMurray 702 Industrial Road Roswell GA30075F4049975093193201091932022619500412
0147313Cliff HTyler 1492 Maple Street Falls Village CT06031M2038054996192204161922061919460805
0530271Jerry PWeaver 8414 Parkway Blvd Oklahoma City OK73120M4056506379192511241946122519420701
0172753Louis PRoss 598 Charleston Place Santa Fe NM87501M5058909117194602091947020219450910
0945929Everett RHammond 984 Quail Circle San Diego CA92154M6195553413193709051944111719521210
0870037ChristopherBLockett 8027 Sand Creek Court Sioux Falls SD57112M6051604138191411251961070119320930
0925405Andrew JHarmon 3059 Benson Road Peabody MA01961M5086458021195006091920120619250620
0588023Yolanda KLockett 901 Guadlaupe Avenue St. Clair MI48048F3135258050190709291940091819520701
0872297Hannah FMull 5756 Rosa Linda Road Buffalo NY14225F9149506972193308011928081019430622
0093472Helen HHorton 6441 Caribbean Street Peabody MA01961F5082492366193503311923013119440731
0539642Sharon KMoreno 884 Main Street Cleveland OH44104F2162470329192412021920040519550212
0796024Adolf WMcKenzie 808 Industrial Blvd Baton Rouge LA70805M3182516312191612091944092519470629
0879500Betty DGarland 225 Charleston Road Chicago IL60611F7087942517194701081948090219240403
0186119Craig TCook 663 College Avenue Salina KS67401M7853243687196002191909010119351001
0142690Tom GHorton 171 Bright Street Providence RI02917M4012429121192511241946122519420701
0884612Roland IStone 2227 Bienville Court Minneapolis MN55437M3205718647192603181960032619320411
0591578Bill LElison 448 Briarglen Street Norwalk CT06854M2034610747191301151953020219620321
0556455Kevin NBarber 738 Seabreeze Street Madison WI53704M6089525916190811201948020419390407
0965823Kathryn ARichards 309 Van Zandt Street Downey CA90302F2139765031192508151935030119200927
0854406Lisa BMartin 7814 Maple Blvd Kansas City MO64118F8167459162191304111936111919360821
0874374Diane EFranklin 574 Pecan Valley Street Buffalo NY14225F9148236939194312311956112019360604
0064835Lisa DWinston 6078 Green Valley Street Covington LA70433F5047413171192206221931021519390730
0956533Darryl ATrujillo 750 Michigan Road Madison WI53704M6084913086194603211921112219471229
0617132Louis ALarue 4587 Rio Vista Place Murfreesboro TN37128M6153801303193304151964031319171216
0046247Sharon AFontaine 3229 Atoll Avenue San Antonio TX78216F2103141991191404021948092919580824
0394300John OHall 5838 Apple Valley Avenue Hatteras NC27943M9196390200192508151935030119200927
0319423Jacob OMcKay 550 Parkway Place Fort Collins CO80524M9708144539195104211941121319080405
0577080Marcia DTeasdale 264 A & M Avenue New York NY10001F2128834754194602091947020219450910
0445867Caitlin CAlexander 643 Windwood Road Roanoak VA24014F5406480236194602201949070719251213
0353177Brian AStone 8622 Desert Blvd Fort Collins CO80524M9709205785196206191947041619260311
0557326Everett AErvin 8640 Michigan Avenue West Palm Beach FL33406M5619332412194312311956112019360604
------------------------------------------------------------------------------------------------------------------------
PAGE 0002
0257579Jerry FConley 108 Villa Park Street Berkeley CA94704M5106069427193101301937040619310921
0722219Jesse EAlexander 667 Coliseum Street Fort Lauderdale FL33304M9549580902192112261935120119550112
0077771Michelle HTrujillo 865 Bayshore Blvd Buffalo NY14225F9149975489192305261959081019260513
0770262Louis ADunbar 247 Easthaven Court Annapolis MD21402M4106265373196802081933052319390501
0768302Jared CParrish 6448 College Place Forest Heights MD20745M2404084382193908121944060219400412
0812479Lucy WRamsey 241 Hillside Place Chattanooga TN37422F6159734806192507061926060119570809
0920323Keith WReed 2590 Garrett Avenue Greenville SC29616M8038457821192206221931021519390730
0336619Louise GNorton 890 Sheridan Road Fort Worth TX76119F8173627296193005311908040219340823
0866676Peter TStone 9253 Seaside Avenue Forest Heights MD20745M2409129569194405201903091319500206
0723947Daniel EBarber 325 Cobbs Circle Fremont CA94538M9092774543195606061909010319170124
0335500Clara TReed 615 Apple Valley Street Denver CO80256F3032886714194405201903091319500206
0259331Troy MHarris 4217 Cobbs Street Anchorage AK99508M9074158569195409071960042319180203
0631537Cindy LTyler 999 Meadow Avenue Salt Lake City UT84109F8013316042193109041930082819490624
0986970Brian AMurray 3109 Benson Road Salt Lake City UT84109M8012261639192406121957061519190205
0627262Jack RParker 2398 Cumberland Avenue Houston TX77053M7137219689194110031946052019120815
0103316Bill GWinston 4504 Juniper Street Austin TX78759M5123940543193808291933112619181107
0778613Louis AStuart 536 Atoll Street Fremont CA94538M9099167194197502221953120819370108
0693514Joyce EDunbar 3570 Atoll Street Palm Desert CA92211F7603787181194602201949070719251213
0667249Peter BYaeger 980 Northcross Avenue Binghamton NY11704M3151552575195406151940050819380522
0615942Yolanda PRoss 3678 Rio Vista Street Falls Village CT06031F2034989268193402171937033019490916
0660148Evelyn RReed 355 Rosa Linda Street Fort Lauderdale FL33304F9541970391194302061927091619390206
0890481Robert JRobertson 644 Quail Avenue Tulsa OK74135M9181129443195409071960042319180203
0675113Richard HRenfro 753 Bonanza Road St. Clair MI48048M3134419723192207261960063019410227
0927088Adolf DParrish 816 Strawberry Avenue Derby KS67037M3167839497195101311912051819300825
0400595Everett RParker 5788 Pecan Valley Street Greenville KY42345M6023351344192412021920040519550212
0433640Angela RBowers 5308 Atoll Avenue Pittsburgh PA15226F8146453756192508151935030119200927
0167182Debra GMurray 207 Garden Road Fort Collins CO80524F9706346996191612091944092519470629
0637079Jacob HRodgers 2264 Northfield Street Juneau AK99801M9075385237193908121944060219400412
0974534Ernie MHillford 571 Villa Park Blvd Santa Fe NM87501M5055940984193308011928081019430622
0813872Heather WJohnson 551 Guadlaupe Avenue Baton Rouge LA70805F3187805492193902101942062419480727
0199707Troy OLarue 874 Allen Road Ashland KY41103M6064489045191801291962111919610609
0268301Ronald ITempleton 1966 Northfield Circle Los Angeles CA90077M2133294283194101091918032919310917
0798982Howard OJacoby 936 Grant Place Atlanta GA30305M4043167093192112261935120119550112
0659250Ronald TYaeger 803 Macadam Circle Roswell GA30075M4047797871194312311956112019360604
0483218Keith WFontaine 392 Lincoln Blvd Salina KS67401M7859098712196002191909010119351001
0868375Darryl SMcQueen 743 Grant Street Phoenix AZ85040M6024713398193005311908040219340823
0061326Beverly GNorton 1072 Robinhood Street Boise ID83714F2086349723193707121920032519600710
0039655Diane RHammond 1052 Bridge Court New York NY10001F2128697778192511241946122519420701
0109007Andrew KJefferson 6448 Shore Road Helena MT59602M4064552010192511241946122519420701
0531538Kimberly ICarlisle 4090 Pecan Valley Street Norman OK73252F4053946245192406121957061519190205
0457349Peter CTucker 4936 Macadam Street Louisville KY40207M5028622464192204161922061919460805
------------------------------------------------------------------------------------------------------------------------
