DEFINE CLASS test1 AS CUSTOM OLEPUBLIC > PROCEDURE ArrayDisplay() > PARAMETERS pdisplayarray > LOCAL cFile_name, lnRowcount, lnColCount, lnloop1, lnloop2 > lnRowcount = ALEN(pdisplayarray,1) > lnColCount = ALEN(pdisplayarray,2) > IF lnRowcount > 0 > cFile_name = SYS(3) + ".TXT" && Generate a unique file name. > SET CONSOLE OFF > SET ALTERNATE TO (cFile_name) > SET ALTERNATE ON > ? "---------[Rows in Array]----------------------------------------" > FOR lnloop1 = 1 TO lnRowcount > ? "Row" + ALLTRIM(STR(lnloop1)) + ": " + pdisplayarray[lnloop1,1] > IF lnColCount > 0 > FOR lnloop2 = 1 TO lnColCount > ? "Column" + ALLTRIM(STR(lnloop2)) + ": " + pdisplayarray[lnloop1,lnloop2] > ENDFOR > ENDIF > ENDFOR > ENDIF > ? > ? > SET CONSOLE ON > SET ALTERNATE OFF > CLOSE ALTERNATE > CLEAR TYPEAHEAD > DEFINE WINDOW wPopup_win AT 1.083, 1.500 SIZE 22.063,75.250 SYSTEM ; > FONT "Courier New", 10 STYLE "B" GROW FLOAT CLOSE NOMINIMIZE > ACTIVATE WINDOW wPopup_win TOP > SET MESSAGE TO ALLTRIM(L_QM_SQL.MSG46) > MODIFY COMMAND (cFile_name) NOEDIT WINDOW wPopup_win > RELEASE WINDOW wPopup_win > ERASE (cFile_name) > ENDPROC >enddefine>