Initial commit — sursa COMUN (framework partajat ROA)

utile/Teste/test.prg

@@ -0,0 +1,23 @@
+lcFile = FORCEEXT(SYS(16),'prg')
+lnRows = APROCINFO(laproc,lcFile)
+
+lcProcedures = ""
+FOR i = 1 TO lnRows
+	IF LOWER(laproc[i,3]) = 'procedure'
+		lcProcedures = lcProcedures + laproc[i,1] + CHR(13) + CHR(10)
+	ENDIF
+ENDFOR
+MESSAGEBOX(lcProcedures)
+
+PROCEDURE test1
+
+ENDPROC && test1
+
+
+PROCEDURE test2
+
+ENDPROC && test2
+
+PROCEDURE test31
+
+ENDPROC && test31