!------------------------------------!
! Procedure: Read-Input-File !
! Descr:     Read file               !
!-----------------------------------!
Begin-Procedure Read-Input-File
#debug show 'Entering Read-Input-File'

Read 1 into $Record:3000  !skip the headings

Move 0 to #Tot_Recs
Move 0 to #Recs_Rej

While Not #end-file
        Read 1 into $Input:3000 Status=#Read_stat
        If #end-file
                Do Close-file
                Break
        End-If
Add 1 to #Tot_Recs     
If #Read_Stat <> 0              !SQR returns zero if the read is successful
        Show 'Bad return from the Read command, errno= ' #Read_Stat
        Show ' Record # = ' #Tot_Recs
        Print 'Could not read record # ' (+1, 1)
        Print  #Tot_Recs () edit 8888888888
        Add 1 to #Recs_Rej
Else
        Show 'Calling Process-Input-Record to process record # ' #Tot_Recs
        Do Process-Input-Record
End-If
End-While
!At this point all records are read from the file

End-Procedure Read-Input-File