*-------------------------------------------------- *-- Extract all of the procedure and visual class *-- library files present in the project. *-------------------------------------------------- USE (tcProject) IN 0 AGAIN ALIAS _project SELECT NAME, TYPE, EXCLUDE ; FROM _project ; WHERE !DELETED() ; AND (TYPE = "V" ; OR TYPE = "P") ; ORDER BY TYPE ; INTO CURSOR cTempThen you can use APROCINFO() for each program.