DELETE BOTH;
REDEFINE DOMAIN BOTH OF ACC_KEY, PSI_KEY USING
!
! This is an attempt to match up the PSI accounting records with
! the System accounting records.  This is because PSI doesn't record
! a lot of information correctly (such as User Name) if the disconnect
! originates from the network: and even if it did, there is useful
! information in one set of records which is not found in the other.
! Unfortunately, the System Times differ slightly between records,
! and even the match shown here (terminal used) doesn't always
! match unambiguously.
!
! B. Z. Lederman
!
01 BOTH OCCURS FOR PSI_KEY WITH PSI_REC.UNIT NE "      ".
    10 USERNAME FROM PSI_KEY.
    10 UNIT FROM PSI_KEY.
    10 START_DATE FROM PSI_KEY.
    10 START_TIME FROM PSI_KEY.
    10 MATCH OCCURS FOR ACC_KEY WITH ACC_REC.TERMINAL = PSI_REC.UNIT.
	20 USERNAME FROM ACC_KEY.
	20 ACCOUNT FROM ACC_KEY.
	20 SUB_TYPE FROM ACC_KEY.
;