Learn from sources
       Member BOATSALE in CGIDEV2 / QDDSSRC

      A*----------------------------------------------------------------
      A*         CATALOG OF BOATS FOR SALE
      A*  File BOATCGI/BOATSALE
      A*       ordered descending on boat length
      A*               descending on boat price
      A*----------------------------------------------------------------
      A          R BOATRC                    TEXT('Boat for sale record')
      A            BNBR           7S 0       TEXT('Catalog number')
      A                                      COLHDG('Catalog number')
      A            BTYPE         20A         TEXT('Boat type')
      A                                      COLHDG('Boat type')
      A            BMAKER        15A         TEXT('Manufacturer')
      A                                      COLHDG('Manufacturer')
      A            BNAME         40A         TEXT('Boat name')
      A                                      COLHDG('Boat name')
      A            BLEN           6S 2       TEXT('Boat length in feet')
      A                                      COLHDG('Boat length' '(Feet)')
      A            BYEAR          4S 0       TEXT('Year built')
      A                                      COLHDG('Year built')
      A            BPRICE        11S 0       TEXT('Price (US $)')
      A                                      COLHDG('Price' '(US $)')
      A            BCITY         15A         TEXT('City where located')
      A                                      COLHDG('City' 'where located')
      A            BSTATE        15A         TEXT('State where located')
      A                                      COLHDG('State' 'where located')
      A            BCTRY         16A         TEXT('Country where located')
      A                                      COLHDG('Contry' 'where located')
      A*----------------------------------------------------------------
      A*  BASIC IMAGE INFORMATION (.gif)
      A            BGIF           7A         TEXT('Gif name')
      A                                      COLHDG('Gif Name')
      A            BALIGN         1A         TEXT('Align L/R=Left/Right')
      A                                      COLHDG('Gif ALIGN' 'L=Left' -
      A                                      'R=Right')
      A            BHSPAC         1S 0       TEXT('Horizontal spacing')
      A                                      COLHDG('Horizontal spacing')
      A            BVSPAC         1S 0       TEXT('Vertical spacing')
      A                                      COLHDG('Vertical spacing')
      A*----------------------------------------------------------------
      A          K BLEN                      DESCEND
      A          K BPRICE                    DESCEND
0.059 sec.s