A                                      UNIQUE(*EXCNULL)
     A          R V2R                       TEXT('Scores info record')
     A            V2SCR          5  0       TEXT('Score')
     A                                      COLHDG('Score')
     A            V2DATE        21          TEXT('Date & Time')
     A                                      COLHDG('Date & Time')
     A            V2NAME        20          TEXT('Name')
     A                                      COLHDG('Name')
     A          K V2SCR                     DESCEND
     A          K V2DATE