!spcos = !!collectallfor('SPCO','',!!CE )
!arrdetr = object ARRAY()
!arrgtyp = object ARRAY()
do !spco values !spcos
!gtyp = !spco.catref.gtyp
!detr = !spco.detref.Name
If !arrdetr.findfirst(!detr).unset() then
!arrdetr.append(!detr)
!arrgtyp.append(!gtyp)
endif
enddo
var !sort SORT !arrgtyp CIASCII FIRSTINGROUP !group
!file = object FILE('%pdmsuser%\' & !!CE.Namn.Replace('\','').Replace('/','').Replace('.','') & '.csv')
!file.open('OVER')
do !i indices !sort
!indx = !sort[!i].real()
If defined(!group[!i]) then
!file.WriteRecord(!arrgtyp[!indx] & ',' & !arrdetr[!indx])
else
!file.WriteRecord(',' & !arrdetr[!indx])
endif
enddo
!file.close()