DELETE TIMLOG-REC;
DEFINE RECORD TIMLOG-REC USING  
01 TIMLOG-REC.
   15 RSX_ACCOUNT	PIC IS X(4)
      QUERY-NAME IS ACC.
   15 APL_ACCOUNT	PIC IS X(32)
      QUERY-NAME IS APL.
;