===========================================================================
 BBS: The Abacus * HST/DS * Potterville, MI
Date: 03-12-93 (13:30)             Number: 241
From: CORIDON HENSHAW              Refer#: 165
  To: CASEY PEARSON                 Recvd: NO  
Subj: Layout problem (HELP!<g>)      Conf: (35) Quick Basi
---------------------------------------------------------------------------
Hello CASEY!

Wednesday March 10 1993, CASEY PEARSON writes to ALL:

 CP> I need help with random access files.  (RAF)  Here is the layout:

 CP> Field                Columns                Type
 CP> Stree Number        1 - 6                   String
 CP> Street Name         7 - 18                  String
 CP> Street Direction   19 - 20                  String
 CP> Street Type        21 - 26                  String
 CP> City               27 - 41                  String
 CP> State              42 - 43                  String
 CP> Zip Code           44 - 48                  string
 CP> YTD Hours Worked   49 - 50                  Interger/10
 CP> Hourly Rate        51 - 54                  Single
 CP> YTD Gross Pay      55 - 62                  Double
 CP> Social Security #  63 - 71                  string

 CP> I will be reading from a data file that is prepared by someone else and
 CP> using the above layout as my guide to read this data.

This TYPE should do the trick.

TYPE RAF
        StreetNumber    AS STRING * 6
        StreetName      AS STRING * 11
        StreetDirection AS STRING * 1
        StreetType      AS STRING * 5
        City            AS STRING * 14
        State           AS STRING * 2
        ZipCode         AS STRING * 6
        YTDHoursWorked  AS INTEGER
        HourlyRate      AS SINGLE
        YTDGrossPay     AS DOUBLE
        SocialSecurity  AS STRING * 10
END TYPE

 CP> I need the open statement too.  The file is called STDNTEMP.NDX.

DIM RAF AS RAF
OPEN "STDNTEMP.NDX" FOR RANDOM AS #1 LEN = LEN(RAF)

Coridon Henshaw / Sirrus Software / QBCIMR FTSC Standards Technician / SM DEV

--- GEcho 1.00
 * Origin: TCS Concordia - Mail Only - Toronto, Ontario (1:250/820)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 950 203/23 209/209 280/1
SEEN-BY: 390/1 396/1 15 397/2 2230/100 3603/20