      SUBROUTINE PLW.SUP.ERR(DESC,PARMS)
*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
*
      OPEN 'WWW.LOG,HANGS' TO HANG.FD ELSE CALL PLXX.STOP(201,'WWW.LOG,HANGS')
*
      EE = TIMEDATE() : ' PLW-SUPERVISOR: ' : DESC
      EE<-1> = ' '
*
      MAX.L = 0
      FOR I = 1 TO DCOUNT(PARMS,AM)
         L = LEN(PARMS<I,1>)
         IF L > MAX.L THEN MAX.L = L
      NEXT I
*
      FOR I = 1 TO DCOUNT(PARMS,AM)
         FMT.STR = 'L#' : MAX.L
         EE<-1> = PARMS<I,1> FMT.STR : ' = ' : PARMS<I,2>
      NEXT I
*
      FLG = NO
      ID = DATE() : '*' : TIME() : '*'
      N = 1
      LOOP
         PL_READVU DUMMY FROM HANG.FD , ID : N , 1 THEN
            RELEASE HANG.FD , ID : N
         END ELSE
            WRITE EE ON HANG.FD , ID : N
            FLG = YES
         END
         N = N + 1
      REPEAT
*
      RETURN
   END
