C     =================
      SUBROUTINE GENFIL
C     =================
C
C     A.Quadt, May  1997.
C     ----------------------------------------------------------

      IMPLICIT NONE

#include "zescommon.inc"
#include "zdskey.inc"
#include "partap.inc"

      CALL FETTAB(ZDSKEY,ID,1)
      ZES_RunNr   = ZDSKEY_NR1
      ZES_EventNr = ZDSKEY_NR2

      RETURN
      END