      SUBROUTINE PLU.NUM.LIST(V,R,R.ERR)
*PIC-LAN
*
*ALL
*PC
*N
*
*
*
*
      INCLUDE SYS.TYPE.INCLUDE
*
      R = ''
      R.ERR = ''
      K1 = DCOUNT(V,',')
      FOR K = 1 TO K1
         VV = FIELD(V,',',K)
         BEGIN CASE
            CASE VV MATCHES '1N0N'
               R<1,-1> = VV + 0
            CASE VV MATCHES '1N0N-1N0N'
               N1 = FIELD(VV,'-',1)
               N2 = FIELD(VV,'-',2)
               IF N2 < N1 THEN
                  R.ERR = 'Invalid value ' : V
                  RETURN
               END
               FOR N = N1 TO N2
                  R<1,-1> = N
               NEXT N
            CASE YES
               R.ERR = 'Invalid value ' : V
               RETURN
         END CASE
      NEXT K
*
      RETURN
   END
