CHARACTER Input

Problem Statement

This problem was discussed in a previous page using the I descriptor. Since the problem does not involve any computation, we shall redo it using the A descriptor.

Suppose we have an input like the following. Each row starts with a salesperson's number (10 positions), followed by his/her phone numbers (10 positions), followed by the bonus this person has earned. Each salesperson's number has seven digits, the first two gives the division code, followed by two digits of department code, followed by three digits of person code. A phone number has seven digits in the form of 482-0911.

         1    1    2    2
....5....0....5....0....5
7645094   7079173   1000
8745363   6347862   1120
8701001   7130067   750
4000023   6700175   1253
8801810   9000018   980
Write a Fortran program that reads in the above input and prints the following table:
         1    1    2    2    3    3
....5....0....5....0....5....0....5
       Sales Amount Table
       ==================

 Sales No.   Phone No.   Amount
 ---------   ---------   ------
 76-45-094   707-9173      1000
 87-45-363   634-7862      1120
 87-01-001   713-0067       750
 40-00-023   670-0175      1253
 88-01-810   900-0018       980

 Total  5 person(s) processed.
Note that the first position is always for printer control. Note also that we do not know the number of salespersons.

Solution

PROGRAM  Decoding
   IMPLICIT  NONE
   CHARACTER(LEN=2) :: SN_1, SN_2, SN_3*3
   CHARACTER(LEN=3) :: Phone_1, Phone_2*4
   CHARACTER(LEN=3) :: Filler_1, Filler_2
   INTEGER          :: Amount
   INTEGER          :: Number
   INTEGER          :: Status
   LOGICAL          :: Problem

   WRITE(*,"(A,A)")  " ", "      Sales Amount Table"
   WRITE(*,"(A,A)")  " ", "      =================="
   WRITE(*,*)
   WRITE(*,"(A, A)")  " ", "Sales No.   Phone No.   Amount"
   WRITE(*,"(A, A)")  " ", "---------   ---------   ------"
   Problem = .FALSE.
   Number = 0
   DO
      READ(*,"(7A,I5)", IOSTAT=Status)  SN_1, SN_2, SN_3, Filler_1,  &
                                        Phone_1, Phone_2, Filler_2, Amount
      IF (Status > 0) THEN
         WRITE(*,*)  "Something wrong in your input data"
         Problem = .TRUE.
         EXIT
      ELSE IF (Status < 0) THEN
         EXIT
      ELSE
         WRITE(*,"(10A,I10)")  &
            " ", SN_1, "-", SN_2, "-", SN_3, Filler_1, &
                 Phone_1, "-", Phone_2, Amount
         Number = Number + 1
      END IF
   END DO
   IF (.NOT. Problem) THEN
      WRITE(*,*)
      WRITE(*,"(A,A,I3,A)")  " ", "Total", Number, " person(s) processed."
   END IF
END PROGRAM  Decoding
Click here to download this program.

Program Input and Output

The output of the program is:
         1    1    2    2    3    3
....5....0....5....0....5....0....5
       Sales Amount Table
       ==================

 Sales No.   Phone No.   Amount
 ---------   ---------   ------
 76-45-094   707-9173      1000
 87-45-363   634-7862      1120
 87-01-001   713-0067       750
 40-00-023   670-0175      1253
 88-01-810   900-0018       980

 Total  5 person(s) processed.

Discussion