Re: Reading Flat Files from SQR

[Ken Arnold <karnold@LEXMARK.COM>]

!****Open file as file number  "1"
  Open 'Afile.dat' as 1 For-Reading Record=80
  Status = #Open1
  If #Open1 <> 0
     Show 'Open for file 1 (Afile) failed'
  Else
     Show 'Open for file 1 (Afile) succeeded'
  End-If

!****Read file you opened as file number one "1"
  Read 1 into   $Afield1:06
                            $Fill1:01
                            $Another_field:3
                            $And_Another:70
!****This splits up the file into variables that you can use or manipulate
without using the substr
!****Not quite sure how one of the suggestions of using "Get" would work.
Get is used with  arrays. ????

!****Close file you opened as file number one "1"
 Close 1                         !Closing Input File 1

This used in both incoming interfaces and conversions.