C
      SUBROUTINE WHAT
      COMMON INBUF(2048),IOUTBUF(8192),IWRK1(20),IWRK2(20),IFNAME1(3)
      COMMON ICMND,IFLAG1,IORG,INUM,IFORMT(20),IFLAG2
      CALL ERRSET2(IERR,99S,99S,IDCB)
05    CALL OPENF(2,'ERRMSG ',2,':SYS    ',0,2,2,7,0,3,0)
      CALL QUICK(' ERR CODE: ',IWRK1,6,NCR,0)
      IERKEY=0
      DECODE(4,10,IWRK1) IERKEY
10    FORMAT(Z4)
      IERKEY=ICHS(IERKEY,1)
      CALL GETR(2,IWRK1,20,IERKEY,3)
      CALL GETSIZ2(2,ISIZ)
      CALL SOUT(IWRK1,ISIZ)
      CALL CLOSEF(2,2)
      RETURN
99    CALL ERROR(5)
      CALL CLOSEF(2,2)
      GO TO 05
      END
