      SUBROUTINE PLU.ERROR.LOG(A1,A2,DESC)
*PIC-LAN
*
*ALL
*PC
*N
*
*
*
*
      INCLUDE SYS.TYPE.INCLUDE
*
      INCLUDE PL.COMMON
      INCLUDE PL.COMMON.DEFS
      INCLUDE PL.DEFS
      INCLUDE PLIP.COMMON
      INCLUDE PLW.COMMON
*
      PL_READVU ID FROM PLIP$CTRL.FD , 'NEXT.ERROR.LOG' , 1 ELSE ID = 0
      WRITEV ( ID + 1 ) ON PLIP$CTRL.FD , 'NEXT.ERROR.LOG' , 1
*
      ID = ID 'R%8'
*
      D = ''
      D<1> = DATE()
      D<2> = TIME()
      D<3> = A1
      D<4> = A2
      D<10> = DESC
*
      WRITE D ON PLIP$ERROR.LOG.FD , ID
*
      PL_PRINT 'ERR: Error log for ' : A1 : ' - ' : A2 : ' => ' : ID
*
      RETURN
   END
