IDENTIFICATION DIVISION.
   PROGRAM-ID. YOUR-PROGRAM-NAME.

   ENVIRONMENT DIVISION.
   INPUT-OUTPUT SECTION.
   FILE-CONTROL.
      SELECT FLEETS
            ASSIGN TO 'LastnameFirstinitialA5.rpt'
            ORGANIZATION IS LINE SEQUENTIAL.

   DATA DIVISION.
   FILE SECTION.
   FD FLEETS.
   *> THE MAIN TABLE
   01 OUT-VEHICLE-REC.
      05 VEHICLE-ID    PIC X(15).
      05 VEHICLE-DESC PIC X(15).
      05 MILES       PIC X(15).
      05 GAS          PIC X(15).
      05 MPG          PIC X(15).

   *> TITLE AND DATE
   01 FIRST-TITLE.
      05 FIRST-LINE PIC X(20).
      05 MM PIC 9(2).
      05 SS1 PIC X(1).
      05 DD PIC 9(2).
      05 SS2 PIC X(1).
      05 YY PIC 9(4).

   *> TABLE HEADER
   01 SECOND-LINE.
      05 HEAD-ID    PIC X(15).
      05 HEAD-DESC PIC X(15).
      05 HEAD-MILES PIC X(15).
      05 HEAD-GAS PIC X(15).
      05 HEAD-MPG PIC X(15).

   *> SUMMARY OF THE WORK
   01 LAST-TITLE.
      05 SIZE-COL PIC X(15).
      05 MPG-COL PIC X(15).

   *> CALCULATED DATA
   01 BOTTOM-LINE.
      05 FLEETS-SIZE PIC X(15).
      05 FLEETS-MPG PIC X(15).

   WORKING-STORAGE SECTION.
   01 WS-ID       PIC X(10).
   01 WS-DESC       PIC X(10).
   01 WS-MILES-IN PIC X(4).

Using only pointers (no array indexing) write a. a function to add...