*ident ibm
*/ --------------------------------------------------------
*/ changes to transx for ibm mainframe systems.
*/ the details may vary from site to site.
*/ be sure to use '*set sw'
*/ ---------------------------------------------
*/ provide local elapsed charge-time call
*d transx.3984
      logical first/.true./
      if (.not.first) go to 1
      call sdelta
      first=.false.
      secs=0.
      go to 2
    1 call sdelta(n)
      secs=secs+float(n)/100.
    2 continue
*/ provide local date string.
*d transx.3994
      real*8 ddate,ddummy
      call datim(ddate,ddummy)
      write(hdate,'(a8)') ddate
*/ provide local wall-clock time string.
*d transx.4004
      real*8 dtime,ddummy
      call datim(ddummy,dtime)
      write(htime,'(a8)') dtime
*/ provide system fatal error exit.
*d transx.4017
      call abend