*PARMS REUSEDLT(*YES)

                R TRACEITR
                  PGMQLFY       20          COLHDG('Program')
                  MDLNAME       10          COLHDG('Module')
                  THETIME         Z         COLHDG('Time' 'Stamp')
                  SRCSEQ         6
                  SRCDTA       100
                K PGMQLFY
                K MDLNAME
                K THETIME