      REM PLW.DEL.STATE.FILES.INCLUDE
*PIC-LAN
*INCLUDE
*ALL
*
*N
*
*
*
*
*
      PL_DEL_STATE
      IF ST$IBUF<1,1> = '~EXTERNAL~' AND ST$IBUF<1,2> MATCHES '1N0N' THEN
         FOR I = 1 TO ST$IBUF<1,2> + 1
            DELETE PL$CONN.FD , ST$PLCB 'R%8' : '*IBUF*' : I
         NEXT I
      END
