Days ago I was trying to get the port form a printer

Now I succeed in getting it

But I had to create a cursor

I would apreciate if someone here help me to eliminate
the cursor
If not I will keep the code as it is



************************************************************************
APRINTERS(PTT1,1)
CREATE CURSOR PTT2 (A1 C(150), A2 C(150), A3 C(150), A4 C(150) )
APPEND FROM ARRAY PTT1
PT3 = GETPRINTER ()

SET EXACT ON
SELECT PTT2
LOCATE FOR ALLTRIM(A1) = ALLTRIM (PT3)

= MESSAGEBOX (A2) && here is the printer port