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 ***
------------------------------------------------------------------------------------------------------------------------