      SUBROUTINE PLH.TO.ATTRS(V,VV)
*PIC-LAN
*
*ALL
*PC
*Y
*
*
*
*
      VV = ''
      BEGIN CASE
         CASE INDEX(V,SVM,1)
            I1 = DCOUNT(V,SVM)
            FOR I = 1 TO I1
               VV<-1> = V<1,1,I>
            NEXT I
         CASE INDEX(V,VM,1)
            I1 = DCOUNT(V,VM)
            FOR I = 1 TO I1
               VV<-1> = V<1,I>
            NEXT I
         CASE YES
            I1 = DCOUNT(V,AM)
            FOR I = 1 TO I1
               VV<-1> = V<I>
            NEXT I
      END CASE
*
      RETURN
   END
