Source Code for an Audit Log File

Audit file T1520DD1 is shown in Figure 1. The DDS source defines the fields for the audit file.

Figure 1. DDS Source for Audit File T1520DD1

       R  T1520DD1R
          USER          10          COLHDG('User')
          ITEM          20          COLHDG('Item name')
          PRICE         10S 2       COLHDG('Unit price')
          QTY            4S         COLHDG('Number of items')
          TXRATE         2S 2       COLHDG('Current tax rate')
          TOTAL         21          COLHDG('Total cost')
          DATE           6          COLHDG('Transaction date')
       K  USER