      *****************************************************************
      * CALL #  - MMDDYY - PURPOSE                                    *
      * FIX9701 - 041397 - EXPAND PRECISION OF AMT FIELDS             *
      * 2006001 - 041706 - ADD FUNCTIONS 6500 & 8200.
      *****************************************************************
       FD  RWF-DISK
041397*    RECORD    CONTAINS          190  CHARACTERS                      0045
041706*    RECORD    CONTAINS          314  CHARACTERS                      0045
041706     RECORD    CONTAINS          350  CHARACTERS                      0045
           BLOCK     CONTAINS          000  RECORDS                         0046
           LABEL     RECORDS           ARE  STANDARD
           DATA      RECORD            IS   RWFD.                           0048

       01            RWFD.
           05        RWFDK             PIC  X(017).
041397*    05        RWFDD             PIC  X(173).
041706*    05        RWFDD             PIC  X(297).
041706     05        RWFDD             PIC  X(333).
