Figure 7: Layout of physical files SHPORDERS and SHPDETAIL

     A          R SHPORDERSF
     A            ORDERNO       10A         COLHDG('ORDER' 'NUMBER')
     A            ORDERDATE       L         COLHDG('ORDER' 'DATE')
     A            FIRSTNAME     50A         COLHDG('FIRST NAME')
     A            LASTNAME      50A         COLHDG('LAST NAME')
     A            EMAILADDR    128A         COLHDG('EMAIL ADDRESS')


     A                                      UNIQUE
     A          R SHPDETAILF
     A            ORDERNO       10A         COLHDG('ORDER' 'NUMBER')
     A            LINENO         3P 0       COLHDG('LINE' 'ITEM')
     A            ITEMNO         6A         COLHDG('ITEM' 'NUMBER')
     A            ITEMDESC      25A         COLHDG('ITEM' 'DESC')
     A            QTYSHP         6P 0       COLHDG('QTY' 'SHIPPED')
     A            PRICE          6P 2       COLHDG('PRICE')
     A          K ORDERNO
     A          K LINENO